Perl/Tk - execute multiple subs by one button ?

[MoshiachNow]

Hi,

Is it possible to activate 2 subs+one extra command just by one button ?

Thanks

Long live king Moshiach !

http://www.7for70.com/

 

[Kirsle]

-command => sub {
   &red();
   &blue();
   print "two subs called\n";
}

 

[MoshiachNow]

great,thanks

Long live king Moshiach !

http://www.7for70.com/

 

[Kirsle]

Another alternative is to not use the button's -command for your handlers, but to use bindings.

Check out Tk::SignalSlot. The author explains it on this page:

http://www.perltk.org/index.php?option=com_content&task=view&id=49&Itemid=28

Tk::SignalSlot is an alternative to bind, and can set up multiple handlers for each binding.

use Tk::SignalSlot;

my $button = $mw->Button (
   -label => 'Click Me!',
)->pack;

$button->connect ('<ButtonRelease-1>', \&handler_1);
$button->connect ('<ButtonRelease-1>', \&handler_2);
$button->connect ('<ButtonRelease-1>', \&handler_3);

http://search.cpan.org/perldoc?Tk::SignalSlot

 

[MoshiachNow]

Thanks twice.
Am I right to think that Perl/Tk is not that popular ,and there is no so much updated staff on web on it ?

Long live king Moshiach !

http://www.7for70.com/