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');