$txt->bind('<Prior>', sub { $txt->yviewScroll(-1, 'units') } );
    $txt->bind('<Next>',  sub { $txt->yviewScroll( 1, 'units') } );
    #$txt->bind('<Home>',  sub { $txt->see('1.0') } );
    #$txt->bind('<End>',   sub { $txt->see('end') } );
    $txt->bind('<Home>',  sub { $txt->yviewMoveto(0) } );
    $txt->bind('<End>',   sub { $txt->yviewMoveto(1) } );