es gibt eine Moeglichkeit:
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();
damit vergroesserst du den Listbox-Frame.
Die Listbox selbst bekommst du so:
my $listbox = $listboxframe->Subwidget('listbox');
Ich mach's ungern ueber diesen Weg, aber wenn man die PopUp-Hoehe nicht angeben kann, muss man halt diesen Weg gehen.
,,Das perlt aber heute wieder...'' -- Dittsche