From: Blomquist, Ron-P. <Ron...@gd...> - 2008-05-21 22:25:22
|
I am having a problem where the Labels and Button labels are not appearing on one system, but are appearing on another system. Both systems are Windows XP SP2, running cygwin/perl 5.8.8. My sample code is below: --------------------------------- #!/usr/bin/perl -w # Perl script to show Problem with Labels use Win32::GUI(); # Build the UI $main = Win32::GUI::Window->new( -name => 'Main', -text => 'Disappearing Labels', -top => 100, -left => 100, -width => 450, -height => 150); $widgetX = 100; $widgetY = 20; $height = 22; $directory = `pwd`; chop $directory; $directoryField = $main->AddTextfield( -name => "DirectoryField", -text => "$directory", -left => $widgetX, -top => $widgetY, -width => 250, -height => $height, -prompt => ["Base Directory", -78], ); $main->AddButton( -name => "BrowseButton", -text => "Browse ...", -left => $directoryField->Left()+$directoryField->ScaleWidth()+10, -top => $widgetY, ); $widgetY += 20+$height; $exitButton = $main->AddButton( -name => "ExitButton", -text => "Exit", -ok => "1", -left => $widgetX, -top => $widgetY, ); # Center Exit Button $exitButton->Left(($main->Width()-$exitButton->ScaleWidth())/2); $main->Show(); Win32::GUI::Dialog(); sub Main_Terminate { -1; } sub ExitButton_Click { exit 0; } --------------------------------- Looking in the archives, I found the article "Re: [perl-win32-gui-users] Info From ActiveState on a problem" http://sourceforge.net/mailarchive/forum.php?thread_name=BLU140-W366544E 50685B49801CAA182D00%40phx.gbl&forum_name=perl-win32-gui-users, which appears to have similar symptoms to this problem, put I am not using perlapp. When I copied the sample manifest file into "perl.exe.manifest", I was able to see the button text. However, I still cannot see the labels. Any help/suggestions are much appreciated! Thanks! Ron B |