my $maincanvas = $mw-> Canvas(-highlightthickness => 0);

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

$maincanvas->createImage(0,0, -image => $maincanvasi, -anchor => 'nw');


##</code><code>##

my $subcanvas1 = $maincanvas-> Canvas(-width => 64, -height => 54, -highlightthickness => 0);

my $subcanvas1i = $maincanvas->Photo(-file => "$button1.jpg");

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

$subcanvas1-> createImage(0, 0, -image => $subcanvas1i, -anchor => 'nw');


##</code><code>##

$subcanvas1-> Tk::bind('<Button-1>' => sub { dostuff } );


##</code><code>##

foreach (@canvasbuttons) { $_->delete('all'); $_->formForget; }


##</code><code>##

Tk::Error: Window "<yada>" is not managed by the tixForm manager...
...
 <ButtonRelease-1>
 (command bound to event)