SteveS832001 has asked for the wisdom of the Perl Monks concerning the following question:
# # # GUI TEST PROGRAM # # use Tk; # -------------------------------------------------------------------- +----- # Create a main window # -------------------------------------------------------------------- +----- $top = MainWindow->new(); $top->title ("Simple"); # -------------------------------------------------------------------- +----- # Instantiate widgets and arrange them # -------------------------------------------------------------------- +----- $l = $top->Label(text => 'hello', #label properties anchor => 'n', #anchor test to "north" relief => 'groove', #border style width => '10', height => '3');#10 chars wide, 3 high $l->pack(); # give it a default place within the main window # -------------------------------------------------------------------- +----- # Sit in an infinite loop dispathing incoming events. # -------------------------------------------------------------------- +----- MainLoop();
|
|---|
| Replies are listed 'Best First'. | |
|---|---|
|
Re: New to Perl TK
by zentara (Cardinal) on Jul 09, 2005 at 15:24 UTC | |
|
Re: New to Perl TK
by kwaping (Priest) on Jul 09, 2005 at 14:28 UTC | |
|
Re: New to Perl TK
by aquarium (Curate) on Jul 09, 2005 at 14:19 UTC |