Re: [win32gui] [perl-win32-gui-users] Catching Combobox droplist mouse clicks

2005-05-07 Thread Jez White

Kurt,

droplist didn't work with the mouse but it wasn't obvious why. I wonder if 
invoking Dialog() via an instance should be outright forbidden in GUI.pm 
or GUI.xs.


Unless there is a reason for Dialog to exists as a method - it probably 
should be forbidden - thoughts anyone?


Cheers,

jez. 





[perl-win32-gui-users] AxWindow Application Error

2005-05-07 Thread Ariel Serbin
I'm having a problem with AxWindow throwing an error
when it quits.  I'm embedding the Microsoft Office
Document Imaging program into my app.  When my program
exits, i get a dialog box that reads:

--
The instruction at "xx" referenced memory  at
"xx".  The memory could not be "read".  Click OK
to terminate the program
--

Does anyone know how to track down why/where this
error is occurring?

The MODI control seems to be initialized properly and
working fine while the program is running.  Please
note that I am calling $Control->Release() as
mentioned in the AxWindow docs.

Here is a stripped down version of my code.  Please
note that MODI will only embed with Office 2003 or
later...

(using perl 5.8, ax 0.07, win xp)

use Win32::GUI;
use Win32::GUI::AxWindow;
use Win32::OLE;
use Win32::OLE::Const;

# main Window
$Window = new Win32::GUI::Window (
-title=> "Win32::GUI::AxWindow test",
-pos => [100, 100],
-size=> [400, 400],
-name => "Window",
) or die "new Window";

# Create AxWindow
$Control = new Win32::GUI::AxWindow  (
   -parent  => $Window,
   -name=> "Control",
   -pos => [10, 10],
   -size=> [300, 300],
   -control => 'MiDocViewer.MiDocView',
 ) or die "new Control";

sub Window_Terminate {
  $Control->Release();
  return -1;
}

If anyone knows where I should look to resolve this, I
would be extremely grateful.  Once I get this working,
I will submit some examples (and possibly a module)
showing how to play with MODI.

Thanks,

-Ariel



Re: [perl-win32-gui-users] AxWindow Application Error

2005-05-07 Thread Jez White

Hi Ariel,

As a guess this could be a scoping issue. When your app is shutting down, 
various Perl variables will be destroyed and where appropriate, they will 
call the destructors "elsewhere" (in the xs code), i.e., your main window 
might be getting destroyed before your control (or vice versa) resulting in 
crashes. If this is a scoping issue, then it should be easily solvable...


BTW - I ran your code on my box here (perl 5.6 and ax 0.7  I added 
$Window->Show();Win32::GUI::Dialog(); to your example) and it didn't crash 
on exit - although I've no idea what the control should be:)


Have a play with undef'ing the window and controls in various orders and see 
if that makes any difference.


Cheers,

jez.

- Original Message - 
From: "Ariel Serbin" <[EMAIL PROTECTED]>

To: 
Sent: Saturday, May 07, 2005 6:02 PM
Subject: [perl-win32-gui-users] AxWindow Application Error



I'm having a problem with AxWindow throwing an error
when it quits.  I'm embedding the Microsoft Office
Document Imaging program into my app.  When my program
exits, i get a dialog box that reads:

--
The instruction at "xx" referenced memory  at
"xx".  The memory could not be "read".  Click OK
to terminate the program
--

Does anyone know how to track down why/where this
error is occurring?

The MODI control seems to be initialized properly and
working fine while the program is running.  Please
note that I am calling $Control->Release() as
mentioned in the AxWindow docs.

Here is a stripped down version of my code.  Please
note that MODI will only embed with Office 2003 or
later...

(using perl 5.8, ax 0.07, win xp)

use Win32::GUI;
use Win32::GUI::AxWindow;
use Win32::OLE;
use Win32::OLE::Const;

# main Window
$Window = new Win32::GUI::Window (
   -title=> "Win32::GUI::AxWindow test",
   -pos => [100, 100],
   -size=> [400, 400],
   -name => "Window",
) or die "new Window";

# Create AxWindow
$Control = new Win32::GUI::AxWindow  (
  -parent  => $Window,
  -name=> "Control",
  -pos => [10, 10],
  -size=> [300, 300],
  -control => 'MiDocViewer.MiDocView',
) or die "new Control";

sub Window_Terminate {
 $Control->Release();
 return -1;
}

If anyone knows where I should look to resolve this, I
would be extremely grateful.  Once I get this working,
I will submit some examples (and possibly a module)
showing how to play with MODI.

Thanks,

-Ariel


---
This SF.Net email is sponsored by: NEC IT Guy Games.
Get your fingers limbered up and give it your best shot. 4 great events, 4
opportunities to win big! Highest score wins.NEC IT Guy Games. Play to
win an NEC 61 plasma display. Visit http://www.necitguy.com/?r=20
___
Perl-Win32-GUI-Users mailing list
Perl-Win32-GUI-Users@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users 





Re: [perl-win32-gui-users] AxWindow Application Error

2005-05-07 Thread Ariel Serbin
Jez,

Thanks for the reply.  I tried undefing the window,
ax-control and ole-control in various orders.  All of
them still generated the error.  I tried stepping
through the script to see which undef was causing the
error, but it seems to be caused by something under
the hood that happens after all of that.

This error occurs on both my home computer and my work
computer, which are basically the same configuration.

FYI, this control will let you view/ocr/search .tif
and .mdi files.  It just didn't do anything because
we're not asking it to.  If you'd like to see it in
action, add this after the control is set up:

$v = $Control->GetOLE();
$v->{FileName} =  'test.TIF';

there's a decent description of the object model here:

http://msdn.microsoft.com/library/default.asp?url=/library/en-us/mspauto/html/welcomemodi_hv01135783.asp

-ariel

--- Jez White <[EMAIL PROTECTED]> wrote:
> Hi Ariel,
> 
> As a guess this could be a scoping issue. When your
> app is shutting down, 
> various Perl variables will be destroyed and where
> appropriate, they will 
> call the destructors "elsewhere" (in the xs code),
> i.e., your main window 
> might be getting destroyed before your control (or
> vice versa) resulting in 
> crashes. If this is a scoping issue, then it should
> be easily solvable...
> 
> BTW - I ran your code on my box here (perl 5.6 and
> ax 0.7  I added 
> $Window->Show();Win32::GUI::Dialog(); to your
> example) and it didn't crash 
> on exit - although I've no idea what the control
> should be:)
> 
> Have a play with undef'ing the window and controls
> in various orders and see 
> if that makes any difference.
> 
> Cheers,
> 
> jez.
> 
> - Original Message - 
> From: "Ariel Serbin" <[EMAIL PROTECTED]>
> To: 
> Sent: Saturday, May 07, 2005 6:02 PM
> Subject: [perl-win32-gui-users] AxWindow Application
> Error
> 
> 
> > I'm having a problem with AxWindow throwing an
> error
> > when it quits.  I'm embedding the Microsoft Office
> > Document Imaging program into my app.  When my
> program
> > exits, i get a dialog box that reads:
> >
> > --
> > The instruction at "xx" referenced memory  at
> > "xx".  The memory could not be "read".  Click
> OK
> > to terminate the program
> > --
> >
> > Does anyone know how to track down why/where this
> > error is occurring?
> >
> > The MODI control seems to be initialized properly
> and
> > working fine while the program is running.  Please
> > note that I am calling $Control->Release() as
> > mentioned in the AxWindow docs.
> >
> > Here is a stripped down version of my code. 
> Please
> > note that MODI will only embed with Office 2003 or
> > later...
> >
> > (using perl 5.8, ax 0.07, win xp)
> >
> > use Win32::GUI;
> > use Win32::GUI::AxWindow;
> > use Win32::OLE;
> > use Win32::OLE::Const;
> >
> > # main Window
> > $Window = new Win32::GUI::Window (
> >-title=> "Win32::GUI::AxWindow test",
> >-pos => [100, 100],
> >-size=> [400, 400],
> >-name => "Window",
> > ) or die "new Window";
> >
> > # Create AxWindow
> > $Control = new Win32::GUI::AxWindow  (
> >   -parent  => $Window,
> >   -name=> "Control",
> >   -pos => [10, 10],
> >   -size=> [300, 300],
> >   -control => 'MiDocViewer.MiDocView',
> > ) or die "new Control";
> >
> > sub Window_Terminate {
> >  $Control->Release();
> >  return -1;
> > }
> >
> > If anyone knows where I should look to resolve
> this, I
> > would be extremely grateful.  Once I get this
> working,
> > I will submit some examples (and possibly a
> module)
> > showing how to play with MODI.
> >
> > Thanks,
> >
> > -Ariel
> >
> >
> >
>
---
> > This SF.Net email is sponsored by: NEC IT Guy
> Games.
> > Get your fingers limbered up and give it your best
> shot. 4 great events, 4
> > opportunities to win big! Highest score wins.NEC
> IT Guy Games. Play to
> > win an NEC 61 plasma display. Visit
> http://www.necitguy.com/?r=20
> > ___
> > Perl-Win32-GUI-Users mailing list
> > Perl-Win32-GUI-Users@lists.sourceforge.net
> >
>
https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
> 
> 
> 



[perl-win32-gui-users] Simple Text

2005-05-07 Thread MJG
I have a simple window I've created.  Usually, I just do windows with
buttons, but I have a need for text with the window.  I have not found
any examples of how to do this.  Can someone provide an example within
my example of how to just add text to the main portion of the window?
Thank you in advance


Use Win32::GUI;
use Win32 ();

&Win32_GUI();

quit(0);

sub Win32_GUI
{

my $I = new Win32::GUI::Icon('icon.ICO');
my $C = new Win32::GUI::Bitmap("./harrow.cur", 2);

my $F = new Win32::GUI::Font(
-name => "Comic Sans MS",
-size => 10,
-bold => 0,
-underline=>0,
);

# Register a BUTTON class with cursor
my $BC = new Win32::GUI::Class(
-name => 'Class_Button',
-extends => 'BUTTON',   
-widget => 'Button',
-cursor   => $C,
);

my $WC = new Win32::GUI::Class(
-name => '_Button',
-cursor => $C,
-icon => $I,
-color => 2,
);

my $W = new Win32::GUI::Window(
-title  => "Uptime Monitor",
-pos=> [100, 100],
-size   => [400, 400],
-left   => 300, 
-top=> 100, 
-width  => 300, 
-height => 600,
-name   => "Main",
-class  => $WC,
-topmost=> 1,
-font   => $F,
-sysmenu=> 0,
-resizable  =>0,   
);

$W->AddButton(
   -text=> "Server List",
   -name=> "GroupBox_1",
   -left=> 2,
   -top => 40,
   -width   => 290,
   -height  => 530,
   -style  => WS_CHILD | WS_VISIBLE | 7,  # GroupBox
);

$W->AddButton(
-name=> "Update",
-left=> 150,
-top => 5,
-text=> "Update",
-tabstop => 1,
-class   => $BC,
#-icon   => $I,
);

$W->AddButton(
-name=> "Close",
-left=> 50,
-top => 5,
-text=> "Exit",
-tabstop => 1,
-class   => $BC,
#-icon   => $I,
);

#$W->{-dialogui} = 0;

my ($left, $top, $right, $bottom) = Win32::GUI::GetDesktopWindow();

my $SysTrayICON = new Win32::GUI::Icon('icon.ICO');

my $SysTray = $W->AddNotifyIcon(-name => "SysTray", 
  -id => 1, 
  -icon => $SysTrayICON, 
  -tip => "UPTIME!",
);


$W->Show();

Win32::GUI::Dialog(0);

}

sub Window_Terminate {
return -1;
}

sub Close_Click {

Window_Terminate();
}

sub Update_Click {


}

__END__




Re: [perl-win32-gui-users] Simple Text

2005-05-07 Thread Ariel Serbin
To add plain text, you can use a label:

$W->AddLabel(
  -name => "mylabel1",
  -left => 10,
  -top  => 150,
  -width=> 100,
  -height   => 22,
  -text => "Some Text Here"
 );


--- MJG <[EMAIL PROTECTED]> wrote:
> I have a simple window I've created.  Usually, I
> just do windows with
> buttons, but I have a need for text with the window.
>  I have not found
> any examples of how to do this.  Can someone provide
> an example within
> my example of how to just add text to the main
> portion of the window?
> Thank you in advance
> 
> 
> Use Win32::GUI;
> use Win32 ();
> 
> &Win32_GUI();
> 
> quit(0);
> 
> sub Win32_GUI
> {
> 
> my $I = new Win32::GUI::Icon('icon.ICO');
> my $C = new Win32::GUI::Bitmap("./harrow.cur", 2);
>   
> my $F = new Win32::GUI::Font(
>   -name => "Comic Sans MS",
>   -size => 10,
>   -bold => 0,
>   -underline=>0,
> );
> 
> # Register a BUTTON class with cursor
> my $BC = new Win32::GUI::Class(
>   -name => 'Class_Button',
>   -extends => 'BUTTON',   
>   -widget => 'Button',
>   -cursor   => $C,
> );
> 
> my $WC = new Win32::GUI::Class(
>   -name => '_Button',
>   -cursor => $C,
> -icon => $I,
> -color => 2,
> );
> 
> my $W = new Win32::GUI::Window(
> -title=> "Uptime Monitor",
> -pos  => [100, 100],
> -size => [400, 400],
> -left => 300, 
> -top  => 100, 
> -width=> 300, 
> -height   => 600,
> -name => "Main",
> -class=> $WC,
> -topmost  => 1,
> -font => $F,
> -sysmenu  => 0,
> -resizable=>0,   
> );
> 
> $W->AddButton(
>-text=> "Server List",
>-name=> "GroupBox_1",
>-left=> 2,
>-top => 40,
>-width   => 290,
>-height  => 530,
>-style  => WS_CHILD | WS_VISIBLE | 7,  # GroupBox
> );
> 
> $W->AddButton(
> -name=> "Update",
> -left=> 150,
> -top => 5,
>   -text=> "Update",
>   -tabstop => 1,
>   -class   => $BC,
>   #-icon   => $I,
> );
> 
> $W->AddButton(
> -name=> "Close",
> -left=> 50,
> -top => 5,
>   -text=> "Exit",
>   -tabstop => 1,
>   -class   => $BC,
>   #-icon   => $I,
> );
> 
> #$W->{-dialogui} = 0;
> 
> my ($left, $top, $right, $bottom) =
> Win32::GUI::GetDesktopWindow();
> 
> my $SysTrayICON = new Win32::GUI::Icon('icon.ICO');
> 
> my $SysTray = $W->AddNotifyIcon(-name => "SysTray", 
> -id => 1, 
> -icon => $SysTrayICON, 
> -tip => "UPTIME!",
> );
> 
> 
> $W->Show();
> 
> Win32::GUI::Dialog(0);
> 
> }
> 
> sub Window_Terminate {
> return -1;
> }
> 
> sub Close_Click {
> 
> Window_Terminate();
> }
> 
> sub Update_Click {
> 
> 
> }
> 
> __END__
> 
> 
> 
>
---
> This SF.Net email is sponsored by: NEC IT Guy Games.
> Get your fingers limbered up and give it your best
> shot. 4 great events, 4
> opportunities to win big! Highest score wins.NEC IT
> Guy Games. Play to
> win an NEC 61 plasma display. Visit
> http://www.necitguy.com/?r 
> ___
> Perl-Win32-GUI-Users mailing list
> Perl-Win32-GUI-Users@lists.sourceforge.net
>
https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
> 



RE: [perl-win32-gui-users] Simple Text

2005-05-07 Thread MJG
Ok, that's cool, but let's say I want to fill the entire window with
text.  Do I use a label for each row, or is there something I can use to
just fill the window? 

Thanks

-Original Message-
From: Ariel Serbin [mailto:[EMAIL PROTECTED] 
Sent: Saturday, May 07, 2005 1:07 PM
To: MJG; perl-win32-gui-users@lists.sourceforge.net
Subject: Re: [perl-win32-gui-users] Simple Text

To add plain text, you can use a label:

$W->AddLabel(
  -name => "mylabel1",
  -left => 10,
  -top  => 150,
  -width=> 100,
  -height   => 22,
  -text => "Some Text Here"
 );


--- MJG <[EMAIL PROTECTED]> wrote:
> I have a simple window I've created.  Usually, I
> just do windows with
> buttons, but I have a need for text with the window.
>  I have not found
> any examples of how to do this.  Can someone provide
> an example within
> my example of how to just add text to the main
> portion of the window?
> Thank you in advance
> 
> 
> Use Win32::GUI;
> use Win32 ();
> 
> &Win32_GUI();
> 
> quit(0);
> 
> sub Win32_GUI
> {
> 
> my $I = new Win32::GUI::Icon('icon.ICO');
> my $C = new Win32::GUI::Bitmap("./harrow.cur", 2);
>   
> my $F = new Win32::GUI::Font(
>   -name => "Comic Sans MS",
>   -size => 10,
>   -bold => 0,
>   -underline=>0,
> );
> 
> # Register a BUTTON class with cursor
> my $BC = new Win32::GUI::Class(
>   -name => 'Class_Button',
>   -extends => 'BUTTON',   
>   -widget => 'Button',
>   -cursor   => $C,
> );
> 
> my $WC = new Win32::GUI::Class(
>   -name => '_Button',
>   -cursor => $C,
> -icon => $I,
> -color => 2,
> );
> 
> my $W = new Win32::GUI::Window(
> -title=> "Uptime Monitor",
> -pos  => [100, 100],
> -size => [400, 400],
> -left => 300, 
> -top  => 100, 
> -width=> 300, 
> -height   => 600,
> -name => "Main",
> -class=> $WC,
> -topmost  => 1,
> -font => $F,
> -sysmenu  => 0,
> -resizable=>0,   
> );
> 
> $W->AddButton(
>-text=> "Server List",
>-name=> "GroupBox_1",
>-left=> 2,
>-top => 40,
>-width   => 290,
>-height  => 530,
>-style  => WS_CHILD | WS_VISIBLE | 7,  # GroupBox
> );
> 
> $W->AddButton(
> -name=> "Update",
> -left=> 150,
> -top => 5,
>   -text=> "Update",
>   -tabstop => 1,
>   -class   => $BC,
>   #-icon   => $I,
> );
> 
> $W->AddButton(
> -name=> "Close",
> -left=> 50,
> -top => 5,
>   -text=> "Exit",
>   -tabstop => 1,
>   -class   => $BC,
>   #-icon   => $I,
> );
> 
> #$W->{-dialogui} = 0;
> 
> my ($left, $top, $right, $bottom) =
> Win32::GUI::GetDesktopWindow();
> 
> my $SysTrayICON = new Win32::GUI::Icon('icon.ICO');
> 
> my $SysTray = $W->AddNotifyIcon(-name => "SysTray", 
> -id => 1, 
> -icon => $SysTrayICON, 
> -tip => "UPTIME!",
> );
> 
> 
> $W->Show();
> 
> Win32::GUI::Dialog(0);
> 
> }
> 
> sub Window_Terminate {
> return -1;
> }
> 
> sub Close_Click {
> 
> Window_Terminate();
> }
> 
> sub Update_Click {
> 
> 
> }
> 
> __END__
> 
> 
> 
>
---
> This SF.Net email is sponsored by: NEC IT Guy Games.
> Get your fingers limbered up and give it your best
> shot. 4 great events, 4
> opportunities to win big! Highest score wins.NEC IT
> Guy Games. Play to
> win an NEC 61 plasma display. Visit
> http://www.necitguy.com/?r 
> ___
> Perl-Win32-GUI-Users mailing list
> Perl-Win32-GUI-Users@lists.sourceforge.net
>
https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
> 




RE: [perl-win32-gui-users] Simple Text

2005-05-07 Thread Ariel Serbin
i'm not positive about the best way to do this, but
labels can wrap text.  if you just make a big label it
will work.  try this:

use Win32::GUI;

$win = new Win32::GUI::Window(
 -title => 'test',
 -name => 'mywin',
 -left => 100,
 -top => 100,
 -width => 400,
 -height => 400,
);

$lbl = $win->AddLabel(
 -name => 'lbl1',
 -top => 50,
 -left => 10,
 -width => 380,
 -height => 340,
 -text => 'this is the starting text and it is a
really really really really really really really
really really really really really really really
really really long line...'
);

$win->AddButton(
-name => 'btn1',
-text => 'click me'
);

$win->Show();
Win32::GUI::Dialog();

sub mywin_Terminate {-1};

sub btn1_Click {
 my $txt = $lbl->Text();
 $txt .= "\nmore label text here";
 $lbl->Text($txt);
}

--- MJG <[EMAIL PROTECTED]> wrote:

> Ok, that's cool, but let's say I want to fill the
> entire window with
> text.  Do I use a label for each row, or is there
> something I can use to
> just fill the window? 
> 
> Thanks
> 
> -Original Message-
> From: Ariel Serbin [mailto:[EMAIL PROTECTED] 
> Sent: Saturday, May 07, 2005 1:07 PM
> To: MJG; perl-win32-gui-users@lists.sourceforge.net
> Subject: Re: [perl-win32-gui-users] Simple Text
> 
> To add plain text, you can use a label:
> 
> $W->AddLabel(
>   -name => "mylabel1",
>   -left => 10,
>   -top  => 150,
>   -width=> 100,
>   -height   => 22,
>   -text => "Some Text Here"
>  );
> 
> 
> --- MJG <[EMAIL PROTECTED]> wrote:
> > I have a simple window I've created.  Usually, I
> > just do windows with
> > buttons, but I have a need for text with the
> window.
> >  I have not found
> > any examples of how to do this.  Can someone
> provide
> > an example within
> > my example of how to just add text to the main
> > portion of the window?
> > Thank you in advance
> > 
> > 
> > Use Win32::GUI;
> > use Win32 ();
> > 
> > &Win32_GUI();
> > 
> > quit(0);
> > 
> > sub Win32_GUI
> > {
> > 
> > my $I = new Win32::GUI::Icon('icon.ICO');
> > my $C = new Win32::GUI::Bitmap("./harrow.cur", 2);
> > 
> > my $F = new Win32::GUI::Font(
> > -name => "Comic Sans MS",
> > -size => 10,
> > -bold => 0,
> > -underline=>0,
> > );
> > 
> > # Register a BUTTON class with cursor
> > my $BC = new Win32::GUI::Class(
> > -name => 'Class_Button',
> > -extends => 'BUTTON',   
> > -widget => 'Button',
> > -cursor   => $C,
> > );
> > 
> > my $WC = new Win32::GUI::Class(
> > -name => '_Button',
> > -cursor => $C,
> > -icon => $I,
> > -color => 2,
> > );
> > 
> > my $W = new Win32::GUI::Window(
> > -title  => "Uptime Monitor",
> > -pos=> [100, 100],
> > -size   => [400, 400],
> > -left   => 300, 
> > -top=> 100, 
> > -width  => 300, 
> > -height => 600,
> > -name   => "Main",
> > -class  => $WC,
> > -topmost=> 1,
> > -font   => $F,
> > -sysmenu=> 0,
> > -resizable  =>0,   
> > );
> > 
> > $W->AddButton(
> >-text=> "Server List",
> >-name=> "GroupBox_1",
> >-left=> 2,
> >-top => 40,
> >-width   => 290,
> >-height  => 530,
> >-style  => WS_CHILD | WS_VISIBLE | 7,  #
> GroupBox
> > );
> > 
> > $W->AddButton(
> > -name=> "Update",
> > -left=> 150,
> > -top => 5,
> > -text=> "Update",
> > -tabstop => 1,
> > -class   => $BC,
> > #-icon   => $I,
> > );
> > 
> > $W->AddButton(
> > -name=> "Close",
> > -left=> 50,
> > -top => 5,
> > -text=> "Exit",
> > -tabstop => 1,
> > -class   => $BC,
> > #-icon   => $I,
> > );
> > 
> > #$W->{-dialogui} = 0;
> > 
> > my ($left, $top, $right, $bottom) =
> > Win32::GUI::GetDesktopWindow();
> > 
> > my $SysTrayICON = new
> Win32::GUI::Icon('icon.ICO');
> > 
> > my $SysTray = $W->AddNotifyIcon(-name =>
> "SysTray", 
> >   -id => 1, 
> >   -icon => $SysTrayICON, 
> >   -tip => "UPTIME!",
> > );
> > 
> > 
> > $W->Show();
> > 
> > Win32::GUI::Dialog(0);
> > 
> > }
> > 
> > sub Window_Terminate {
> > return -1;
> > }
> > 
> > sub Close_Click {
> > 
> > Window_Terminate();
> > }
> > 
> > sub Update_Click {
> > 
> > 
> > }
> > 
> > __END__
> > 
> > 
> > 
> >
>
---
> > This SF.Net email is sponsored by: NEC IT Guy
> Games.
> > Get your fingers limbered up and give it your best
> > shot. 4 great events, 4
> > opportunities to win big! Highest score wins.NEC
> IT
> > Guy Games. Play to
> > win an NEC 61 plasma display. Visit
> > http://www.necitguy.com/?r 
> > ___
> > Perl-Win32-GUI-Users mailing list
> > Perl-Win32-GU