4 Einträge, 1 Seite |
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
#!/usr/bin/perl
use warnings;
use strict;
use Tk;
use Tk::BrowseEntry;
my $mw = new MainWindow;
my $be = $mw->BrowseEntry()->pack();
$be->insert('end', $_) for ('1'..'10');
my $listboxframe = $be->Subwidget('slistbox');
$listboxframe->configure(-height => 1);
MainLoop();
my $listbox = $listboxframe->Subwidget('listbox');
4 Einträge, 1 Seite |