I am having trouble selecting items in a ListBox. Basically, when using
the latest Dev version of Win32::GUI, I can only get the select to work
when multisel is set to 0. The problem is that I need to be able to
select multiple items during program load as defaulting to being
selected. Any help would be appreciated. This is for Perl 5.6 v
0.0.671 Dev from Laurent Rocher site. Please let me know if I am doing
something wrong or if it is broke.
use Win32::GUI;
my $Window = new Win32::GUI::Window (
-name => "Window",
-topmost => 1,
-left => 300,
-dialogui => 1,
-top => 400,
-width => 222,
-height => 300,
-text => "Test",
-events =>
{
Terminate => sub { return -1 },
},
);
$Window->AddListbox(
-name =>"List",
-height => 100,
-width =>70,
-top =>1,
-left =>5,
-multisel => 1, # Select works when this is commented out i.e.,
multisel =>0
);
$Window->List->Add("Test1");
$Window->List->Add("Test2");
$Window->List->Add("Test3");
$Window->List->Select(1); # also tried SelectString
#$Window->List->Select(2);
$Window->Enable();
$Window->Show();
Win32::GUI::Dialog;
Joe Frazier, Jr.
