Sean,
I'm sorry I didn't realize you wanted a scroll bar. Try this:
use Win32::GUI;
my $MainWindow = new Win32::GUI::Window(
-name => "FruitWindow",
-top => 200,
-left => 100,
-width => 300,
-height => 200,
-minsize=> [300,200],
-title => "Fruit Box",
);
my $FruitList = $MainWindow->AddListbox(
-name => "FruitListBox",
-top => 52,
-left => 98,
-width => 125,
-height => 110,
-addstyle => WS_VISIBLE | 3 | WS_VSCROLL,
);
$FruitList->InsertItem("Apple");
$FruitList->InsertItem("Banana");
$FruitList->InsertItem("Canteloupe");
$FruitList->InsertItem("Cherrie");
$FruitList->InsertItem("Grapes");
$FruitList->InsertItem("Guava");
$FruitList->InsertItem("Kiwi");
$FruitList->InsertItem("Lemon");
$FruitList->InsertItem("Lime");
$FruitList->InsertItem("Pineapple");
$FruitList->InsertItem("Strawberry");
$FruitList->InsertItem("Tangerine");
$MainWindow->Show();
Win32::GUI::Dialog();
sub FruitListBox_DblClick {
print "got double click\n";
}
sub FruitWindow_Terminate {
exit(0);
}
Jonathan Southwick
Technical & Network Services
Allegheny College, Meadsville, PA
[EMAIL PROTECTED]
----- Original Message -----
From: "Sean Healy" <[EMAIL PROTECTED]>
To: <perl-win32-gui-users@lists.sourceforge.net>
Sent: Friday, January 12, 2001 12:54 PM
Subject: Re: [perl-win32-gui-users] double click in listbox
> Thanks, Jonathan. I was able to figure out the problem, which is that
it
> will not work when the '-style' attribute is set. So now I can get it to
> register a double click, but only if I'm willing to give up scrollbars.
Has
> anyone found a way around this? I guess I can use the arrow keys or page
up
> and page down.
>
> Is this a bug? It seems like one to me.
> _________________________________________________________________
> Get your FREE download of MSN Explorer at http://explorer.msn.com
>
>
> _______________________________________________
> Perl-Win32-GUI-Users mailing list
> Perl-Win32-GUI-Users@lists.sourceforge.net
> http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
>
