diff options
Diffstat (limited to 'Master/tlpkg/tlperl/lib/Tk/demos/widget_lib/notebook.pl')
-rw-r--r-- | Master/tlpkg/tlperl/lib/Tk/demos/widget_lib/notebook.pl | 59 |
1 files changed, 59 insertions, 0 deletions
diff --git a/Master/tlpkg/tlperl/lib/Tk/demos/widget_lib/notebook.pl b/Master/tlpkg/tlperl/lib/Tk/demos/widget_lib/notebook.pl new file mode 100644 index 00000000000..ed45ef83190 --- /dev/null +++ b/Master/tlpkg/tlperl/lib/Tk/demos/widget_lib/notebook.pl @@ -0,0 +1,59 @@ +# Notebook, selectable pages. + +use Tk; +use Tk::DialogBox; +use Tk::NoteBook; +use Tk::LabEntry; + +my $name = "Rajappa Iyer"; +my $email = "rsi\@netcom.com"; +my $os = "Linux"; + +use vars qw($top); + +$top = MainWindow->new; +my $pb = $top->Button(-text => "Notebook", -command => \&donotebook); +$pb->pack; +MainLoop; + + +my $f; + +sub donotebook { + if (not defined $f) { + # The current example uses a DialogBox, but you could just + # as easily not use one... replace the following by + # $n = $top->NoteBook(-ipadx => 6, -ipady => 6); + # Of course, then you'd have to take care of the OK and Cancel + # buttons yourself. :-) + $f = $top->DialogBox(-title => "Personal Profile", + -buttons => ["OK", "Cancel"]); + my $n = $f->add('NoteBook', -ipadx => 6, -ipady => 6); + + my $address_p = $n->add("address", -label => "Address", -underline => 0); + my $pref_p = $n->add("pref", -label => "Preferences", -underline => 0); + + $address_p->LabEntry(-label => "Name: ", + -labelPack => [-side => "left", -anchor => "w"], + -width => 20, + -textvariable => \$name)->pack(-side => "top", -anchor => "nw"); + $address_p->LabEntry(-label => "Email Address:", + -labelPack => [-side => "left", -anchor => "w"], + -width => 50, + -textvariable => \$email)->pack(-side => "top", -anchor => "nw"); + $pref_p->LabEntry(-label => "Operating System:", + -labelPack => [-side => "left"], + -width => 15, + -textvariable => \$os)->pack(-side => "top", -anchor => "nw"); + $n->pack(-expand => "yes", + -fill => "both", + -padx => 5, -pady => 5, + -side => "top"); + + } + my $result = $f->Show; + if ($result =~ /OK/) { + print "name = $name, email = $email, os = $os\n"; + } +} + |