Hi all, My setup: Windows 2000 SP4, perl 5.8.4 build 810, Win32::GUI 1.0
The results: First script: No problem on exit Second script: Looping error message - Use of uninitialized value in substitution (s///) at c:/Perl/lib/AutoLoader.pm line 40. Use of uninitialized value in concatenation (.) or string at C:/Perl/lib/AutoLoader.pm line 41. I hope this helps! Brian Millham This message traveled at least 44,000 miles to reach you! Creator of the DW6000 Monitor http://www.millham.net/dw6000 [EMAIL PROTECTED] -----Original Message----- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] On Behalf Of Jeremy White Sent: Wednesday, August 10, 2005 4:17 AM To: perl-win32-gui-users@lists.sourceforge.net Cc: [EMAIL PROTECTED] Subject: [perl-win32-gui-users] Help with a couple of problems Hi, Rob and I have been trying to track down a couple of issues, and we're not sure if they are OS or Perl related. We would be greatful if you could run the two scipts below and report back your findings. When you report back could you include your OS, Perl and Win32-GUI versions. Thanks, jez. ------------------------- #This crashes on exit with XP (perl 5.6.1 & perl 5.8.7) but not 98 use strict; use warnings; use Win32::GUI; # Create the main window my $mainwindow = new Win32::GUI::Window( -name => "Window", -title => "Objects and Windows", -pos => [100,100], -size => [400,400], ); #We now create several employee selector 'controls'. my $search1=EmployeeSelector->new($mainwindow,20,20); my $search2=EmployeeSelector->new($mainwindow,20,50); my $search3=EmployeeSelector->new($mainwindow,20,80); my $search4=EmployeeSelector->new($mainwindow,20,110); my $search5=EmployeeSelector->new($mainwindow,20,140); $mainwindow->Show(); #Enter the message processing loop Win32::GUI::Dialog(); exit(0); package EmployeeSelector; use strict; use warnings; use Win32::GUI; use base qw(Win32::GUI::Window); #The constructor sub new { my ($class, $parent, $xcor, $ycor)[EMAIL PROTECTED]; #Create window my $self = $class->SUPER::new( -parent => $parent, -pos => [$xcor,$ycor], -size => [150, 24], -popstyle => WS_CAPTION | WS_SIZEBOX, -pushstyle => WS_CHILD | WS_CLIPCHILDREN | WS_VISIBLE, ); $self->AddButton ( -text => 'Search', -pos => [60,2], -size => [60,20], -tip => 'Search for a Employee ID', -onClick => sub{$self}, # closure ); return $self; } ------------------------- #!perl -w #This Causes an error on termination on XP perl 5.6.1 but not on perl 5.8.7 use strict; use warnings; use Win32::GUI; sub I_IMAGENONE() {-2}; sub RDW_INVALIDATE() {1}; my $mw = Win32::GUI::Window->new( -name => 'MainWindow', -text => 'CustomDraw', -pos => [ 100, 100 ], -size => [ 300, 350 ], -onActivate => sub { $_[0]->Toolbar->Redraw(RDW_INVALIDATE); return 1; }, -onDeactivate => sub { $_[0]->Toolbar->Redraw(RDW_INVALIDATE); return 1; }, -onTerminate => sub { -1 }, ); my $tb = $mw -> AddToolbar( -name => 'Toolbar', -nodivider => 1, -flat => 1, -list => 1, ); for ( 0 .. 3 ) { $tb->AddString("Test $_"); $tb->AddButtons( 1, I_IMAGENONE, 1000 + $_, TBSTATE_ENABLED, TBSTYLE_AUTOSIZE|TBSTYLE_BUTTON|BTNS_SHOWTEXT, $_ ); } $mw->Show(); Win32::GUI::Dialog(); exit(0); ------------------------- ------------------------------------------------------- SF.Net email is Sponsored by the Better Software Conference & EXPO September 19-22, 2005 * San Francisco, CA * Development Lifecycle Practices Agile & Plan-Driven Development * Managing Projects & Teams * Testing & QA Security * Process Improvement & Measurement * http://www.sqe.com/bsce5sf _______________________________________________ Perl-Win32-GUI-Users mailing list Perl-Win32-GUI-Users@lists.sourceforge.net https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users --- avast! Antivirus: Inbound message clean. Virus Database (VPS): 0532-1, 08/09/2005 Tested on: 8/10/2005 4:30:24 AM avast! is copyright (c) 2000-2003 ALWIL Software. http://www.avast.com --- avast! Antivirus: Outbound message clean. Virus Database (VPS): 0532-2, 08/10/2005 Tested on: 8/10/2005 7:14:52 PM avast! is copyright (c) 2000-2003 ALWIL Software. http://www.avast.com
