#!/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();