Help for this page

Select Code to Download


  1. or download this
    my $maincanvas = $mw-> Canvas(-highlightthickness => 0);

my $maincanvasi = $mw-> Photo(-file => "$img.jpg");

$maincanvas->createImage(0,0, -image => $maincanvasi, -anchor => 'nw')
+;
  2. or download this
    my $subcanvas1 = $maincanvas-> Canvas(-width => 64, -height => 54, -hi
+ghlightthickness => 0);

...
$subcanvas1-> form(-left => '420', -top => '444');

$subcanvas1-> createImage(0, 0, -image => $subcanvas1i, -anchor => 'nw
+');
  3. or download this
    $subcanvas1-> Tk::bind('<Button-1>' => sub { dostuff } );
  4. or download this
    foreach (@canvasbuttons) { $_->delete('all'); $_->formForget; }
  5. or download this
    Tk::Error: Window "<yada>" is not managed by the tixForm manager...
...
 <ButtonRelease-1>
 (command bound to event)