#!/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 $hidebutton = $mw->Button(-text => ">"); $hidebutton->pack(-side => 'left', -fill => 'y'); $hidebutton->configure( -command => sub { if ($hidebutton->cget(-text) eq ">") { $lframe->packForget; $hidebutton->configure(-text => "<") } else { $lframe->pack(-before => $hidebutton, -fill => 'both', -side => 'left', -expand => 1); $hidebutton->configure(-text => ">"); } }, -font => "courier 8", ); my $entry = $mw->Entry( -textvariable => \$str, )->pack(-expand => 1, -fill => 'x', -side => 'left'); $lb->bind("