Re: Can't get Dialog or messageBox to work from button

Try with:

$f_refresh->Button(-text => 'Test', -command => sub { &displayMsg()})-
+>pack(-side=>'left');
[download]

Call all your functions in Tk with the & or \& prefix if they are defined after their call. Perl can't find them. ;)

Edit
Some call examples:

Here inside an anonymous subroutine: end_automode and ping_site are called.

$update_bttn = $button_f->Button(-text => "Update",
                 -state => 'disabled',
                 -command => sub { &end_automode;
                           &ping_site });
[download]

Here a direct call to the subroutine do_automode, bind to the command.

$automode_bttn = $button_f->Button(-text => "Start Automode",
                   -command => \&do_automode);
[download]

Rem: end_automode, ping_site, do_automode are defined after their calls.

Comment on Re: Can't get Dialog or messageBox to work from button Select or Download Code

Replies are listed 'Best First'.
Re^2: Can't get Dialog or messageBox to work from button by choroba (Cardinal) on Jan 11, 2016 at 15:49 UTC
Sure! `sub xx { shift() + 1 } say \&xx(3); # SCALAR(0x60003b660) say ${ \&xx(3) }; # 4 say sub { \&xx(shift) }->(3); # SCALAR(0x60003b888) say ${ sub { \&xx(shift) }->(3) }; # 4` [download] How much easier than `say xx(3); # 4 say sub { xx(shift) }->(3); # 4` [download] ($q=q:Sq=~/;[c](.)(.)/;chr(-\|\|-\|5+lengthSq)`"S\|oS2"`map{chr \|+ord }map{substrSq`S_+\|`\|}3E\|-\|`7**2-3:)=~y+S\|`+$1,++print+eval$q,q,a, [download]	[reply] [d/l] [select]
Re^3: Can't get Dialog or messageBox to work from button by karlgoethebier (Abbot) on Jan 11, 2016 at 19:34 UTC
I don't use Tk and therefore i didn't really read the friendly manual but i would like to mention that i figured out in a hurry that the construct hotchiwawa mentions can be found here and here. Perhaps he jumped to the wrong conclusion? Best regards, Karl ŤThe Crux of the Biscuit is the Apostropheť	[reply]
Re^4: Can't get Dialog or messageBox to work from button by choroba (Cardinal) on Jan 11, 2016 at 19:58 UTC
I don't use Tk and therefore i didn't really read the friendly manual This is not Tk related. This is referencing in Perl. that the construct hotchiwawa mentions can be found here and here No, it can't. There's a big difference between the two: `my $value_ref = \&callback(); my $code_ref = \&callback; # <-- See? No parentheses!` [download] ($q=q:Sq=~/;[c](.)(.)/;chr(-\|\|-\|5+lengthSq)`"S\|oS2"`map{chr \|+ord }map{substrSq`S_+\|`\|}3E\|-\|`7**2-3:)=~y+S\|`+$1,++print+eval$q,q,a, [download]	[reply] [d/l] [select]
Re^5: Can't get Dialog or messageBox to work from button by karlgoethebier (Abbot) on Jan 11, 2016 at 20:22 UTC
Re^4: Can't get Dialog or messageBox to work from button by hotchiwawa (Scribe) on Jan 12, 2016 at 08:51 UTC
I updated my 1st post with 2 examples yesterday ;) Interesting your doc.	[reply]
Re^2: Can't get Dialog or messageBox to work from button by Anonymous Monk on Jan 11, 2016 at 15:41 UTC
Can you please explain that. Why would anyone "Call all your functions with the \& prefix" and what does it have to do with "they are under ;)"?	[reply]
Re^3: Can't get Dialog or messageBox to work from button by hotchiwawa (Scribe) on Jan 11, 2016 at 16:23 UTC
I added info in the post.	[reply]
Re^4: Can't get Dialog or messageBox to work from button by Corion (Patriarch) on Jan 11, 2016 at 16:27 UTC
Why do you think that Perl couldn't find `displayMsg`? The debug output certainly shows that it was found and called. If Perl couldn't find a subroutine, it would have raised an error which the OP would have seen.	[reply] [d/l]
Re^5: Can't get Dialog or messageBox to work from button by hotchiwawa (Scribe) on Jan 11, 2016 at 16:50 UTC
Re^6: Can't get Dialog or messageBox to work from button by Corion (Patriarch) on Jan 11, 2016 at 16:58 UTC


Come for the quick hacks, stay for the epiphanies.
	PerlMonks