Select Code to Download

my $mw = MainWindow->new(-title => 'Mouse Gesture Test');
$mw->geometry('1200x900+50+50');

my $w_text = $mw->Scrolled('Text',
    -scrollbars => 'osoe',
    -wrap => 'none',
)->pack(-fill => 'both', -expand => 1);

$w_text->bind('<Motion>', [\&mouse_gesture, Ev('x'), Ev('y')]);

$mw->Button(-text => q{Exit}, -command => sub { exit })->pack();

$w->xviewScroll($xpos < $x ? 1 : -1, q{units});
...
$w->yviewScroll($ypos < $y ? 1 : -1, q{units});

$w->insert('end',
    "This is line $_. It's really long ... $long_string\n"
);