in reply to Tk binding...
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
|
|---|