Re: Perl TK: Can a parent be made aware that a child has been modified

[zentara]

in reply to Perl TK: Can a parent be made aware that a child has been modified

Since you didn't show a simple code example, here is one. I am binding to the $mw here, but you can also bind to a widget of your choice.

#!/usr/bin/perl
use Tk;
my $mw = new MainWindow;

my $canvas = $mw->Canvas(-bg=>'white')->pack(-expand=>1, -fill => 'bot
+h');

my $currentSize = $mw->reqwidth . "x" . $mw->reqheight;

$mw->bind( '<Configure>', [ \&OnResize, \$currentSize ] );

MainLoop;

sub OnResize {
    my ( $mw, $oldSize ) = @_;

    my $newSize = $mw->width . "x" . $mw->height;
    if ( $$oldSize ne $newSize ) {
        ## Resize has occurred do something:
         printf( "Resize happened - old size: %s, new size: %s\n",
            $$oldSize, $newSize );
         ## set the old size to the new size
        $$oldSize = $newSize;
    }

}