Mega Code Archive

 

Categories / Perl / GUI

 

Entry(text field)

#!/usr/local/bin/perl -w use Tk; use strict; my $str = "AaBbCcDdEeFfGgHhIiJjKkLlMmNnOoPpQqRrSsTtUuVvWwXxYyZz0123456789"; my $mw = MainWindow->new; my $lframe = $mw->Frame->pack(-fill => 'both', -side => 'left', -expand => 1); my $lb = $lframe->Scrolled(qw/Listbox -scrollbars e -height 3/)->                           pack(qw/-fill both -expand 1 -side top/); $lb->insert('end', sort $mw->fontFamilies); my $entry = $mw->Entry(     -textvariable => \$str,     -width => 12,      -font => "{Comic Sans MS} 72",     -relief => 'raised',     -highlightthickness => 0, )->pack(-expand => 1, -fill => 'x', -side => 'left'); $lb->bind("<Button>", sub { $entry->configure(-font =>     "{". $lb->get($lb->curselection) . "} 72"); }); MainLoop;