Re: [perl-win32-gui-users] double click in listbox

[Jonathan S. <jso...@al...>]

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
jso...@al...


----- Original Message -----
From: "Sean Healy" <jal...@ho...>
To: <per...@li...>
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
> Per...@li...
> http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
>