I'm writing my first module. I want to set binding to <Configure> action and
I don't know how to do it.
I want to invoke my procedure every time when
$widget->configure(-option => value) is used and any value is changed.
I write comething like this
sub Populate {
my ($w,$args) = @_;
$w->SUPER::Populate($args);
$w->ConfigSpecs('-margin' => ['PASSIVE',undef,undef,25]);
$w->Tk::bind('<Configure>', 'Myconfig');
}
sub Myconfig {
print "Myconfig is invoked\n";
}
But Myconfig is invoked only once when widget is created.
If somebody know how to have control over values changing plese hepl me.
Petr Vileta, Czech republic
(My server reject all messages from Yahoo and Hotmail. Send me your mail
from another non-spammer site please.)
_______________________________________________
ActivePerl mailing list
[email protected]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
