my $spane = $mw->Pane(-bg => "orange")->pack(-expand => 1, -fill => 'both')
 my $scrl_y = $mw -> Scrollbar(-command=>[$spane,'yview']);
        $spane -> configure(-yscrollcommand=>[$scrl_y,'set']);
        $spane -> pack(-expand => 1, -fill => "both",
            -side => "left");
        $scrl_y -> pack(-expand => 1, -fill => "y");
#$spane -> focus;
$scrl_y -> focus;