Leser: 9
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26
#/usr/bin/perl -w use strict; use Tk; use Tk::BrowseEntry; my $mw = tkinit(); my $be_text = 'All'; my $c = $mw->BrowseEntry( -variable => \$be_text, -background => 'white', -disabledbackground => 'white', -disabledforeground => 'black', -style => 'MSWin32', -state => 'readonly', )->pack; $c->insert("end", 'Test') for 1..5; my $l = $c->Subwidget('slistbox'); $l = $l->Subwidget('listbox'); $l->configure(-background => 'white'); MainLoop;