That is what the -command parameter of Button is for. So, construct your button thus:
That will run ./scriptname on every button press.$angel = $MW->Button( -text => 'Launch Scripts', -command => sub { print STDERR "Launching..."; system("./scriptname"); }, ); ##not sure why you're using exit, so I left it out.
Anima Legato
.oO all things connect through the motion of the mind
In reply to Re: Tk binding...
by legato
in thread Tk binding...
by Anonymous Monk
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |