PERL TK 1 Learn the basics 2 Experiment

PERL TK

1. Learn the basics 2. Experiment. 3. Use the documentation! 4. Use an IDE http: //spectcl. sourceforge. net/

#Simple Window use Tk; $mw=Main. Window->new(); Main. Loop ;

#Widget Tour use Tk; $mw=Main. Window->new(); $l=$mw->Label(-text => "this is a label"); $l->pack(); $b=$mw->Button(-text => "this is a button"); $b->pack(); $t=$mw->Text(-width => 10, height => 10); $t->insert(end, "this is a text"); $t->pack(); $e=$mw->Entry(width => 0); $e->insert(end, "this is an entry"); $e->pack(); $i=$mw->Listbox(height => 2); $i->insert(end, "listbox element 1"); $i->insert(end, "listbox element 2"); $i->selection. Set(1); $i->pack(); $be = $mw->Browse. Entry(-label => "Label", -variable => $var); $be->insert("end", "opt 1"); $be->insert("end", "opt 2"); $be->insert("end", "opt 3"); $be->pack(); Main. Loop;

#BUTTONS use Tk; $mw=Main. Window->new( -name => "Buttons", -title => 'Button Demonstration', ); $l=$mw->Label(-text => "If you click on any of the four buttons below, the background of the button area will change to the color indicated in the button. You can press Tab to move among the buttons, then press Space to invoke the current button. ", -wraplength => "4 i", -justify => left); $l->pack(); foreach my $color (qw/Peach. Puff 1 Light. Blue 1 Sea. Green 2 Yellow 1/) { my $b = $mw->Button( -text => $color, -width => 10, -command => sub{$mw->configure(-background => lc($color))}, ); $b->pack(qw/-side top -expand yes -pady 2/); } Main. Loop;

#LABELS use Tk; $mw=Main. Window->new( -name => "Label", -title => 'Label', ); $l=$mw->Label(text => "Five labels are displayed below: three textual ones on the left, and an image label and a text label on the right. Labels are pretty boring because you can't do anything with them. ", -wraplength => "4 i", -justify => left); $l->pack(); my @pl = qw/-side left -expand yes -padx 10 -pady 10 -fill both/; my $left = $mw->Frame->pack(-side => left, -expand => yes, -padx => 10, -pady => 10, fill => both); my $right = $mw->Frame->pack(@pl); @pl = qw/-side top -expand yes -pady 2 -anchor w/; my $left_l 1 = $left->Label(-text => 'First label')->pack(@pl); my $left_l 2 = $left->Label( -text => 'Second label, raised just for fun', -relief => 'raised', )>pack(@pl); my $left_l 3 = $left->Label( -text => 'Third label, sunken', -relief => 'sunken', )-pack(@pl); @pl = qw/-side top/; my $right_bitmap = $right->Label( -image => $mw->Photo(-file => Tk>find. INC('Xcamel. gif')), -borderwidth => 2, -relief => 'sunken', )->pack(@pl); my $right_caption = $right->Label(-text => 'Perl/Tk')->pack(@pl); Main. Loop;

#RADIOBUTTON use Tk; sub click{ $mw->Dialog(-title => "Title", -buttons => ["OK"], text => $_[0])->Show(); } $mw=Main. Window->new( -name => "Radio", -title => 'Radio', ); $v=2; $b=$mw->Radiobutton(-command =>[ &click , ["The Radio 1 clicked“, $v)], -variable => $v, -value => 1); $b 1=$mw->Radiobutton(-command =>[ &click("The Radio 2 clicked", $v 1)], -variable => $v, -value => 2); $b->pack(); $b 1 ->pack(); Main. Loop;

#Try to pack the "Button 10" at the left use Tk; $mw=Main. Window->new(); $mw->Button(-text => "Button 1")->pack(qw/-side top -pady 2/); $mw->Button(-text => "Button 2")->pack(qw/-side top -pady 2/); $mw->Button(-text => "Button 3")->pack(qw/-side top -pady 2/); $mw->Button(-text => "Button 4")->pack(qw/-side top -pady 2/); $mw->Button(-text => "Button 10")->pack(qw/-side left -expand yes pady 2/); Main. Loop;

use Tk; $mw=Main. Window->new(); $mw->Button(-text => "Button 10")->pack(qw/-side left -pady 2/); $mw->Button(-text => "Button 1")->pack(qw/-side top pady 2/); $mw->Button(-text => "Button 2")->pack(qw/-side top pady 2/); $mw->Button(-text => "Button 3")->pack(qw/-side top pady 2/); $mw->Button(-text => "Button 4")->pack(qw/-side top -pady 2/); Main. Loop;

#Make it to take all the extra space use Tk; $mw=Main. Window->new(); $mw->Button(-text => "Button 10", -height => 8 )->pack(qw/-side left -expand yes -pady 2/); $mw->Button(-text => "Button 1")->pack(qw/side top -expand yes -pady 2/); $mw->Button(-text => "Button 2")->pack(qw/side top -expand yes -pady 2/); $mw->Button(-text => "Button 3")->pack(qw/side top -expand yes -pady 2/); $mw->Button(-text => "Button 4")->pack(qw/side top -expand yes -pady 2/); Main. Loop;

use Tk; $mw=Main. Window->new(); $mw->Button(-text => "Button 10", -height => 8 )>pack(qw/-side left -expand yes -pady 2 fill y/); $mw->Button(-text => "Button 1")->pack(qw/-side top -expand yes -pady 2/); $mw->Button(-text => "Button 2")->pack(qw/-side top -expand yes -pady 2/); $mw->Button(-text => "Button 3")->pack(qw/-side top -expand yes -pady 2/); $mw->Button(-text => "Button 4")->pack(qw/-side top -expand yes -pady 2/); Main. Loop;

#Make the "Button 1" and "Button 2" to be at the left , one under another use Tk; $mw=Main. Window->new(); $mw->Button(-text => "Button 10", -height => 8 )->pack(qw/-side left expand yes -pady 2 -fill y/); $mw->Button(-text => "Button 20", -height => 8 )->pack(qw/-side left expand yes -pady 2 -fill y/); $mw->Button(-text => "Button 1")->pack(qw/-side top -expand yes pady 2/); $mw->Button(-text => "Button 2")->pack(qw/-side top -expand yes pady 2/); $mw->Button(-text => "Button 3")->pack(qw/-side top -expand yes -pady 2/); $mw->Button(-text => "Button 4")->pack(qw/-side top expand yes -pady 2/); Main. Loop;

#Use Frames! use Tk; $mw=Main. Window->new(); $f 1=$mw->Frame(); $f 2=$mw->Frame(); $f 1 ->Button(-text => "Button 10")->pack(qw/-side top -expand yes -pady 2 -fill y/); $f 1 ->Button(-text => "Button 20")->pack(qw/-side top -expand yes -pady 2 -fill y/); $f 2 ->Button(-text => "Button 1")->pack(qw/-side top -expand yes -pady 2/); $f 2 ->Button(-text => "Button 2")->pack(qw/-side top -expand yes -pady 2/); $f 2 ->Button(-text => "Button 3")->pack(qw/-side top -expand yes -pady 2/); $f 2 ->Button(-text => "Button 4")->pack(qw/-side top -expand yes -pady 2/); $f 1 ->pack(qw/-side left -expand yes -pady 2 -fill y/); $f 2 ->pack(qw/-side left -expand yes pady 2 -fill y/); Main. Loop;

#Placer use Tk; $mw=Main. Window->new(); $mw->Button(-text => "Button 1")->place(qw/-x 1 -y 1/); $mw->Button(-text => "Button 2")->place(qw/-x 1 -y 1/); Main. Loop;

use Tk; $mw=Main. Window->new(); $mw->Button(-text => "Button 1")->place(qw/-x 4 -y 4/); $mw->Button(-text => "Button 2")->place(qw/-x 1 -y 1/); Main. Loop;

That is not all: Open the real application in the browser…