Perl/Tk is working
David Billsbrough
kc4zvw at taut.oau.org
Fri Jun 16 20:52:10 CDT 2000
Hello PerlMongers,
Any one else playing with scripting and GUI stuff?
#!/usr/bin/perl
use Tk;
#===========================================================
# Create a main window
#===========================================================
$top = MainWindow->new();
$top->title("Simple");
#===========================================================
# Instantiate widgets and arrange them
#===========================================================
$l = $top->Label(text => "\n" . 'Hello World!', # label properties
anchor => 'n', # anchor text to "north"
relief => 'groove', # border style
width => 15, height => 3); # 15 chars wide, 3 high.
$l->pack(); # Give it a default place with in the main window
#===========================================================
# Sit in an infinite loop dispatching incoming events.
#===========================================================
MainLoop();
# End of Script
regards,
// David //
--
David Billsbrough (KC4ZVW)
Altamonte Springs, Florida Grid: EL98hp
AMSAT * ARRL * Linux * OpenBSD * PICmicro * QRP-L * TAPR
More information about the Orlando-pm
mailing list