tk example

softworkz has asked for the wisdom of the Perl Monks concerning the following question:

I'm still rather new to Perl, but I'm trying! I haven't found too much info on tk usage so I hope this node helps someone. I've looked around for the docs but the links lead to a zope error :( If anyone can help, please do so.

As for the example I needed a dialog box to pop up after my Perl code was executed, it's pretty neat. I made a Perl script to parse win32 log files, turned the script into a executable using perl2exe and added it to one of windoze scheduled tasks. Pretty cool stuff! Anyway HAVE FUN!

#!/usr/bin/perl-w
use strict;
use Tk;

my $mw = MainWindow -> new;
   
$mw -> title("my tk example");

my %nl = (); # newline
$mw ->Label(%nl)->pack;

my %nl = (); # newline
$mw ->Label(%nl)->pack;

my %nl = (); # newline
$mw ->Label(%nl)->pack;

my %text = ('-text',"Reminder, Don't forget to use strict!");
$mw ->Label(%text)->pack;

# -ipadx = width
# -ipady = height
my $dialog_box = $mw -> Label()-> pack(-side => 'top', -ipadx => '120'
+, -ipady => '25');
$mw -> Button(-text => "Close ", -command => sub { &exit })-> pack (-s
+ide => 'bottom');

MainLoop;
[download]

softworkz

Comment on tk example Download Code

Replies are listed 'Best First'.
Re: tk example by dga (Hermit) on Aug 30, 2001 at 19:08 UTC
Why do you define %nl 3 times?	[reply]
Re: Re: tk example by Hofmator (Curate) on Aug 30, 2001 at 19:17 UTC
I can only tell why -w didn't catch it ;-) `#!/usr/bin/perl-w should have been #!/usr/bin/perl -w` [download] Update: Regarding the documentation issue, you should try `perldoc Tk` which points you to loads of documentation. -- Hofmator	[reply] [d/l] [select]
Re: Re: Re: tk example by softworkz (Monk) on Aug 30, 2001 at 19:49 UTC
Thanks! Try this instead #!/usr/bin/perl -w use strict; use Tk; my $mw = MainWindow -> new; $mw -> title("my tk example"); my %nl = (); # newline $mw ->Label(%nl)->pack; my %nl2 = (); # newline $mw ->Label(%nl2)->pack; my %nl3 = (); # newline $mw ->Label(%nl3)->pack; my %text = ('-text',"Reminder, Don't forget to use strict!"); $mw ->Label(%text)->pack; # -ipadx = width # -ipady = height my $dialog_box = $mw -> Label()-> pack(-side => 'top', -ipadx => '120' +, -ipady => '25'); $mw -> Button(-text => "Close ", -command => sub { &exit })-> pack (-s +ide => 'bottom'); MainLoop; [download]	[reply] [d/l]