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