Re^3: How to destroy and re-create bound widgets

[zentara]

It sounds like you, as a beginner, my want to reconsider your design. The first thing I have to say, is why do you need the overlapping secondary sub-canvases? If you can make something on your sub-canvas, you can do the same thing on the underlying canvas. You can still put a background image on the main canvas, then instead of overlaying other canvases, why not create rectangular regions on the base canvas? In any event, look at this example:

#!/usr/bin/perl
use warnings;
use strict;
use Tk;

my $mw = new MainWindow;

my $main = $mw -> Scrolled("Canvas",-scrollbars=>'e')-> 
          pack(-side =>'left', -fill => 'both', -expand => 1);

my $canvas = $main->Subwidget("canvas");

Tk::bind($canvas, '<MouseWheel>', [ sub {$canvas->yview('scroll',
    -($_[1] / 120) * 3,'units')}, Ev('D')]); 

my $see = "\nHaaa, See that and scroll!";

my $info = $main->createText(180, 15, -text => "$see", 
                    -font => 'Arial 11 bold' , -fill => 'red');

$main->configure(-scrollregion => [0,0,2000 , 2000]);

my $canvas_cube = $main->Canvas(-width => 45, -height => 45, 
                                          -background => 'green');

my $canvasWindow = $main->createWindow(75,75, -window => $canvas_cube)
+;

Tk::bind( $canvas_cube,  '<Enter>' => sub { print "Enter\n"; });
Tk::bind( $canvas_cube,  '<Leave>' => sub { print "Leave\n"; });

Tk::bind( $canvas_cube,  '<Button-1>' => sub { print "1\n"; });

$canvas->focus;

MainLoop;

[zentara]

Also see embedding xterm into a Tk app. If you are determined to use embeded Canvases, you could use this technique, to hide show them. Tk is somwhat limited and you need to cover the createWindow with another properly colored rectangle.

Tk::Zinc can actually hide or show the window. See the second example in Re: Window with background image and transparent listbox . You could put a second Zinc canvas in there, instead of an xterm.