I just uninstalled my old build of both ActivePerl and Win32-GUI and installed
the latest releases. Rebooted and everything. Win32-GUI is not working right
anymore???? I ran a small program (with a ListView, see below code) that ran
fine with older releases of Perl and Win32-GUI, but runs like garbage with the
new installs. The ListView looks like hell. I can't see the control at all, no
borders, no column headers. All I see are the words "Apples Pears Oran..."
all on the same row????? What I should see is a column header "FRUIT" and
underneath that I should see Apples on the first row, Pears on the second row,
and Oranges on the third row. Anybody tried the latest Perl build with latest
Win32-GUI build and experienced any problems???
Thanks,
Eric
Dallas, TX USA
use Win32::GUI;
$W = new Win32::GUI::DialogBox(
-name => "Window",
-text => "ListView Test",
-width => 275,
-height => 250,
-left => 50,
-top => 50
);
$LV = $W->AddListView(
-name => "ListView",
-left => 12,
-top => 10,
-height => 200,
-width => 225,
);
$LV->View(1); # detailed listing, i.e. columns and rows
$W->Show();
$W->BringWindowToTop();
Load_ListView();
Win32::GUI::Dialog();
sub Load_ListView {
$LV->InsertColumn(-index => 1, -width => 200, -text => "FRUIT");
$LV->InsertItem(-item => 0, -text => "Apples");
$LV->InsertItem(-item => 1, -text => "Pears");
$LV->InsertItem(-item => 2, -text => "Oranges");
}
sub Window_Terminate {
return -1;
}
#-- END SCRIPT