use Tk;
$mw = tkinit;
$t = $mw->Scrolled(
        "ROText",
        -borderwidth => 4,
        -scrollbars => 'e',
        -bg => 'white',
        -relief => 'flat',
-takefocus => 0,
    )->pack(-fill => 'both',-expand => 1);
$t->Subwidget("scrolled")->bindtags([]);
MainLoop;