Select Code to Download

my $c=0;
my $r=0;
...
                       -pady => 5,
                        )-> pack ();

$txt = $mw->Scrolled('Text',
                  -scrollbars => 'se',
                  -background =>'white',
...
        # Determines the callback used when the Text widget is scrolle
+d vertically.
                )->pack();