in reply to perl tk bind callback
That said, the setConfigure sub seems to be called, but not the setProperty sub. However, in the PerlTk documenation, things like -background are referred to as OPTIONS and I'm wondering if the distinction is pertinant.use strict ; use Tk ; sub setColors { print "set Colors @_!\n" ; } sub setConfiguration { print "setConfiguration @_\n" ; } my($mw) = new MainWindow ; my($l) = $mw->Button(-text => 'Hello World')->pack ; $l->bind('<Property>' => \&setColors) ; $l->bind('<Configure>' => \&setConfiguration) ; $l->configure(-command => sub { $l->configure(-background => 'blue') ; +}) ; MainLoop ;
|
|---|