RE: [perl-win32-gui-users] Help with a couple of problems

[Glenn W Munroe]

Jez,

I got similar results to the other guys:

First script: No problems
Second script: Error loop on exit, but with a different error message:
        "Can't locate auto/Toolbar.al in @INC..."

I'm running:

- XP Pro SP2
- Perl 5.8.7 ActiveState build 813
- Win32::GUI 1.02

Glenn 

-----Original Message-----
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] On Behalf Of
Jeremy White
Sent: Wednesday, 10 August, 2005 10:17
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