Hi All,
Ran tests 1 and 2, results:
MACHINE 1:
==========
WindowsXP SP2
Perl 5.8.7 build 813
Win32-GUI GUI.pm 1.02_01 compiled with MS VS compiler v13.10.3077
Test1 - ran/exited cleanly, but clicking buttons produced no output.
Test2 - ran cleanly, again toolbar buttons produced no output. On exit
same warnings as Brian Millham, 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.
Also noted a Messagebox labelled 'Deactivate' with the content "Can't
locate auto/Toolbar.al in @INC etc... at test2.pl line 17
MACHINE 2:
===========
Windows 2000 SP2
Perl 5.8.7 build 813
Win32-GUI GUI.pm 1.01_03 compiled with MinGW
Both tests same as above.
Rgds
Chris
On Wed, 2005-08-10 at 08:16 +0000, Jeremy White wrote:
> 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
>
