Help for this page

Select Code to Download


  1. or download this
    my $but2 = $frame->Button(-text => "Replace in the end",
              -command => [\&replace,$text,'16.0',  "end - 1c"  ])
     ->pack(-side => 'left');
  2. or download this
    #!/usr/bin/perl
use warnings;
...
})->pack(qw/-side left/);

MainLoop;