perl-win32-gui-users — Using the Win32::GUI Perl extension

[perl-win32-gui-users] making windows - help w/code

[<Joe...@pa...>]

Joe Pfaltzgraff@PATAPSCO
03/05/2002 01:59 PM

I have code that is supposed to make 2 windows...  only the second window is
made, the first never appears and the two are identical.  If I add code to make
another window at the beginning, the two windows are created, but not the
additional one.  From what I observed, the first attempt to create a window in a
program always fails, and all the others succeed...  Any idea what is going on,
or what to do about it?

Thanks!
Joe Pfaltzgraff

I'm running WinXP and Komodo 1.2

Here is the code - not much of a program at all yet - Which ever window I tell
to show first doesn't show.  I can do the first window twice and then it's okay.
With this code $W1 doesn't show.

use strict;
use Win32::GUI;

my($window) = new Win32::GUI::Window(
    -name => "window", -title => "Window Title",
    -left => 100, -top => 100, -width => 500, -height => 400, );

$window->AddButton( -name => "Button1" );
$window->Button1->Show();

my ($W1, $W2);

        $W1 = new Win32::GUI::Window(
                -name  => "W1",
                -title => "First Window",
                -pos   => [ 100, 100 ],
                -size  => [ 300, 200 ],
        );
        $W2 = new Win32::GUI::Window(
                -name  => "W2",
                -title => "Second Window",
                POs   => [ 150, 150 ],
                -size  => [ 300, 200 ],
        );


$W1->Show();
$W2->Show();
$window->Show();
Win32::GUI::Dialog();

[perl-win32-gui-users] making windows - help

[<Joe...@pa...>]

Joe Pfaltzgraff@PATAPSCO
03/05/2002 01:45 PM

I have code that is supposed to make 2 windows...  only the second window is
made, the first never appears and the two are identical.  If I add code to make
another window at the beginning, the two windows are created, but not the
additional one.  From what I observed, the first attempt to create a window in a
program always fails, and all the others succeed...  Any idea what is going on,
or what to do about it?

Thanks!
Joe Pfaltzgraff

I'm running WinXP and Komodo 1.2

Re: [perl-win32-gui-users] Re: WYSIWYG

[<Jos...@DM...>]

I'm not looking for a tool to desing a gui window I'm looking for some way
to have whatever text comes up on the richtext field look exactly like what
will be printed out.  Spacing, size, indents, etc....






Borus Gabor <gab...@fr...>@lists.sourceforge.net on 03/04/2002
04:43:27 AM

Sent by:  per...@li...


To:   Perl List <per...@li...>
cc:
Subject:  [perl-win32-gui-users] Re: WYSIWYG

Hi

There is a tool, its name is The GUI Loft.
This tool is free, and the best Perl Win32::GUI builder what i found on the
Internet.
http://www.bahnhof.se/~johanl/perl/Loft/ this link is the product homepage.
Regards

Gabor

_______________________________________________
Perl-Win32-GUI-Users mailing list
Per...@li...
https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users

[perl-win32-gui-users] Font in Buttons?

[Ultimate R. D. <scc...@ho...>]

How do you change the color of text, and more specifically, how do you 
change the color of text in a button?

Thanks

_________________________________________________________________
Send and receive Hotmail on your mobile device: http://mobile.msn.com

Re: [perl-win32-gui-users] Win32::GUI Release 0.0.665

[Glenn L. <Gle...@ne...>]

Aldo Calpini wrote:
> 
> arguments to -events can be:
>   - a subroutine name (string)
>   - a reference (eg. \&)
>   - an anonymous sub (eg. sub { .. })


Both of the following items prevent me from porting certain Win32::GUI
applications to the New Event Model.

There doesn't seem to be a way to...

1) discover the code ref for an event handler, in case you want to wrap
it in a more powerful handler, or chain the handlers, when using layered
or modular software techniques.  Something like the following could be a
possible interface:

$coderef = $mw->GetEventHandler ( "Terminate" );

2) execute an event handler.  Something like the following could be the
interface:

$mw->CallEventHandler ( "Terminate", @pass_through_parameters );

The handler itself would then be called with the window/control name as
its first parameter, followed with the @pass_through_parameters.  The
handler's return value would be returned from CallEventHandler, but it
would generally be discarded in cases like this I suspect.

Clearly (1) is more powerful than (2), since if you can discover the
code ref, then you could clearly execute it... but (2) could be
convenient syntactic sugar for recoding cases like (old style event
model) shutting down all windows when the main window is closed:

sub Main_Terminate
{ # print "Main_Terminate\n";
  & LB_Terminate ();
  & PR_Terminate ();
  & ED_Terminate ();
  return -1;
}

-- 
Glenn
=====
Remember, 84.3% of all statistics are made up on the spot.

Re: [perl-win32-gui-users] installing win32::gui

[Laurent R. <ro...@cl...>]

Hello,


> hi. i'm having a little bit of a problem compiling win32::gui. i'm running
> activeperl 5.6.1.631 in win98se and using msvc++ 6.
> funny thing, when i perl makefile.pl it does it fine but it brings up
this:
> ...

    I have made Win32::GUI on win98se.
    I use 4NT shell (see http://www.jpsoft.com/ ).

    I have made a change in Makefile.pl .
    I replace the && by a carriage return.

sub xs_c {
($^O eq 'cygwin') ?
    shift->SUPER::xs_c(@_)
:
    '
.xs.cpp:
    $(PERL) -I$(PERL_ARCHLIB) -I$(PERL_LIB) $(XSUBPP) $(XSPROTOARG)
$(XSUBPPARGS) $*.xs >xstmp.c
    $(MV) xstmp.c $*.cpp
';
}

    Then :

    perl makefile.pl
    nmake
    nmake install

    You can found more information in Activeperl documentation for compiling
extension on Win9x ( see : perlwin32 ).

Laurent.

[perl-win32-gui-users] Re: WYSIWYG

[Borus G. <gab...@fr...>]

Hi

There is a tool, its name is The GUI Loft.
This tool is free, and the best Perl Win32::GUI builder what i found on the
Internet.
http://www.bahnhof.se/~johanl/perl/Loft/ this link is the product homepage.
Regards

Gabor

[perl-win32-gui-users] GUI 665 PPM

[Borus G. <gab...@fr...>]

Hi

I red, that Paul build an PPM package from the GUI source, but i didn't find
it on Aldo's webpage.
Can somebody send me it by e-mail?
Thanks

Gabor

Re: [perl-win32-gui-users] Win32::GUI Release 0.0.665

[Glenn L. <Gle...@ne...>]

Aldo Calpini wrote:
> 
> Frazier, Joe Jr wrote:
> > > but I still don't know what to do when you just say use Win32::GUI ;-)
> >
> > <vote type="my opinion">Use old style by default.  This avoids users
> > having to change thier code until they are ready to totally update thier
> > code.</vote>
> 
> yes, this is sure. by default the old style is used, the problem is when you
> don't use it and put an -events option on something. maybe I should
> process -events options *only* if you said:
> 
>     use Win32::GUI Event_Model => 'byref';

Seems like it would be possible to "merge" the old and new styles, if,
when a new window or control is defined, a search of the compiled
namespace would be done, and all functions defined at that time that
match the "window or control name followed by underscore followed by
event name" naming convention could be implicitly included into the
-event list (unless they were already defined explicitly with a -event
or -onEvent parameter).

This would allow a gradual migration path from old to new model, for
most typical Win32::GUI programs.  Programs that use eval to define new
methods to handle new events for new windows or controls wouldn't
benefit as greatly, but the (few) places where those evals are done
could be converted into Change ( -event ) calls.

-- 
Glenn
=====
Remember, 84.3% of all statistics are made up on the spot.

[perl-win32-gui-users] installing win32::gui

[<ma...@mm...>]

hi. i'm having a little bit of a problem compiling win32::gui. i'm running
activeperl 5.6.1.631 in win98se and using msvc++ 6.
funny thing, when i perl makefile.pl it does it fine but it brings up this:


    perl Makefile.PL USERESOURCE=0

Usage: xsubpp [-v] [-C++] [-except] [-prototypes] [-noversioncheck]
[-nolinenumb
ers] [-nooptimize] [-noinout] [-noargtypes] [-s pattern] [-typemap
typemap]... f
ile.xs
Writing Makefile for Win32::GUI

and then when i nmake it does this

Microsoft (R) Program Maintenance Utility   Version 6.00.8168.0
Copyright (C) Microsoft Corp 1988-1998. All rights reserved.

        C:\Perl\bin\perl.exe -IC:\Perl\lib -IC:\Perl\lib C:
\Perl\lib\ExtUtils/xs
ubpp  -typemap C:\Perl\lib\ExtUtils\typemap -typemap typemap GUI.xs
>xstmp.c &&
C:\Perl\bin\perl.exe -IC:\Perl\lib -IC:\Perl\lib -MExtUtils::Command -e mv
xstmp
.c GUI.cpp
Usage: xsubpp [-v] [-C++] [-except] [-prototypes] [-noversioncheck]
[-nolinenumb
ers] [-nooptimize] [-noinout] [-noargtypes] [-s pattern] [-typemap
typemap]... f
ile.xs
NMAKE : fatal error U1077: 'C:\Perl\bin\perl.exe' : return code '0xff'
Stop.

which makes me think, is xsubpp being passed the wrong arguments. i
couldn't really tell from the makefile. has any1 else experienced this
problem or know how to get around it?

thanx in advance

[perl-win32-gui-users] RE: Win32::GUI Release 0.0.665 - Cursor

[Chris W. <rea...@ii...>]

Glenn Linderman wrote:

>Here's another surprise:

>When moving the cursor to the edges and corners for resizing things, the
>cursor doesn't change to the "usual" double-headed arrows which provide
>feedback to the user that they are in the right position for resizing.

>Resizing still works, but it is awkward because of the expectation from
>other programs and earlier versions of Win32::GUI that the cursor should
>change shape for that event.

Another Cursor surprise.

On compiling 665 and continuing my current application, nowing adding
tooltips with great gusto :-) Thanks Aldo, The cursor defaults to the
Hourglass, until I click one of the buttons, or changes to the Textual 'I'
beam. However I have set NO cursor declarations in the program. Does this
mean we now have to initialize a default cursor type to stop this apparent
random cursor behaviour??

On the subject of toolbars... how do you add tool tips to the individual
icons in the toolbar

$tbResultWin = $ResultWindow->AddToolbar(
    -left   => 0,
    -top    => 0,
    -width  => 790,
    -height => 80,
    -name   => "tbResultWin",
);

$ResToolsBMP = new Win32::GUI::Bitmap("./Images/restools.bmp");
$tbResultWin->SetBitmapSize(18, 18);
$tbResultWin->AddBitmap($ResToolsBMP, 12);

$tbResultWin->AddButtons(
	12,
	0, 1, 4, 0, 0,
	1, 2, 4, 0, 1,
	2, 3, 4, 0, 2,
	3, 4, 4, 0, 3,
	4, 5, 4, 1, 4,
	5, 6, 4, 0, 5,
	6, 7, 4, 0, 6,
	7, 8, 4, 1, 7,
	8, 9, 4, 0, 8,
	9, 10, 4, 0, 9,
	10, 11, 4, 1, 10,
	11, 12, 4, 0, 11,
);

Lastly has anyone used a call to Win32::GUI::BrowseForFolder, I found a
reference to it in a mail archive using two methods, -root
and -includefiles. But could not get it to work. Has anyone else used this?

Chris Wearn
Realm Technology

PS for all the 'How do I make an exe from my Perl Script' threads. I have
now upgraded to ActiveStates PDK 4.0 and it binds my app and Win32-GUI
perfectly, I like the new features of being able to add an icon as well.
Together with the other included applications the PDK is well worth the
money.

[perl-win32-gui-users] WYSIWYG

[<Jos...@DM...>]

Hello,

I have several simple text files that are automatically created and sent to
my office every week that basically just have 5 columns of invoice number,
date, amounts and balance.  I want to create a gui application that will
open the file in a richtext window so that the font and size will be
exactly what is printed out.  Now if we open the file in notepad and print
it out the font size is to big and not everything fits on one line.  My
users have to open the file in word change the font and size so that it
fits and looks nice then print it.  I want them to be able to just open the
file see if it's what they want and then print it.  Some files require more
space on a line than others because of longer invoice numbers, dollar
amounts (I cry whenever I see an invoice for a million dollars and it's not
for me).  Is there a way to do this?

Thanks,

Joe

Re: [perl-win32-gui-users] Win32::GUI Release 0.0.665

[Glenn L. <Gle...@ne...>]

Glenn Linderman wrote:
> 
> Now I've downloaded and compiled the new version.  Boy was I surprised!

Here's another surprise:

When moving the cursor to the edges and corners for resizing things, the
cursor doesn't change to the "usual" double-headed arrows which provide
feedback to the user that they are in the right position for resizing.

Resizing still works, but it is awkward because of the expectation from
other programs and earlier versions of Win32::GUI that the cursor should
change shape for that event.

-- 
Glenn
=====
Remember, 84.3% of all statistics are made up on the spot.

Re: [perl-win32-gui-users] Win32::GUI Release 0.0.665

[Glenn L. <Gle...@ne...>]

> At Thursday, 28 February 2002, Glenn wrote:
> 
> >Now I've downloaded and compiled the new version.  Boy was I surprised!

jean bosco muzatsinda wrote:
> 
> Hi,
> How did you proceed to download and compile?
> I'm knew to this matter of things ( win32::GUI)and I'm experiencing
> some problems.
> Thanks,
> 
> Jean

Although this was a private message (inappropriate) I'm replying back to
the list, because there may be a number of others that have never
compiled Win32::GUI, that now suddenly have the desire to.

It was my first time to ever compile a perl module, but really, it isn't
too hard when things are set up right, I guess, and it seems that Aldo
has things set up right.

The following is what I did to download and compile:

Download: used web browser, went to http://data.perl.it/, found the link
for the source ( http://dada.perl.it/Win32-GUI-0.0.665.tar.gz ), and
fetched it to my local hard drive, I used d:\.  Using cmd.exe, I 

Then  "gunzip Win32-GUI-0.0.665.tar.gz"
Then  "tar xvf Win32-GUI-0.0.665.tar"
Then  "cd d:\Win32-GUI-0.0.665"

I used my favorite text editor, emacs, to look around.  It appears that
although the code has been enhanced and restructured into multiple
source files, that the documentation has not yet been enhanced in any
way, and also not the sample code.

Then I had to experiment to see how to compile.  Since I'm using
ActiveState's perl, which is reportedly compiled using MS VC, I figured
I'd need to get that on my path.  And I remembered that when I had
installed MS VC, it had told me about a batch file that can put it on
the path (doesn't need to be on the path when you use the MS IDE).  And
I remembered seeing, over and over again on various perl lists, the
comment that when using MS VC, you have to use "nmake" instead of
"make".  And the theoretical process for installing modules is
documented as the sequence of commands:

perl makefile.pl
make
make install

So I wrote the following batch file:

call "c:\program files\microsoft visual studio\vc98\bin\vcvars32.bat"
perl makefile.pl
nmake
nmake install

Upon executing it from the command line prompt, where my current
directory was d:\Win32-GUI-0.0.665, it seemed to do the trick.

I then attempted to run a couple scripts for which I had already set up
shortcuts, and lo and behold! they used the new version of Win32::GUI ! 
With the surprise reported earlier.

-- 
Glenn
=====
Remember, 84.3% of all statistics are made up on the spot.

Re: [perl-win32-gui-users] Win32::GUI Release 0.0.665

[Aldo C. <dad...@al...>]

Frazier, Joe Jr wrote:
> > but I still don't know what to do when you just say use Win32::GUI ;-)
>
> <vote type="my opinion">Use old style by default.  This avoids users
> having to change thier code until they are ready to totally update thier
> code.</vote>

yes, this is sure. by default the old style is used, the problem is when you
don't use it and put an -events option on something. maybe I should
process -events options *only* if you said:

    use Win32::GUI Event_Model => 'byref';

otherwise they're simply ignored.

> I would probably do something simular to the way XML::SAX::* works and
> do this
>
> [...]
>
> -events => {
>             Terminate => $gui->myhandler();

not quite... should be something like:

              Terminate => \&{ $gui->myhandler };

arguments to -events can be:
  - a subroutine name (string)
  - a reference (eg. \&)
  - an anonymous sub (eg. sub { .. })

BTW, I didn't understand the use of My::Package ... but maybe it's just me.

> Now, the question is, how does it work to pass in stuff such as the
> listview passing the row clicked?  or do we have to handle all that
> ourselves?  If this is covered in the docs(are the docs more fleshed
> out?), let me know and I will check there.

ops, sorry, I forgot to mention this :-)
for your joy (and many other's too), all NEM events pass the object they're
referring to as their first argument, while subsequent arguments are the
same as their non-NEM counterparts.

so you can do this:

  $Window->AddButton(
    # ...
    -name => "Button1",
    -onClick => sub {
      my($self) = @_;
      print "you clicked button: $self->{-name}\n";
    },
  );

and this will print out: you clicked button: Button1

an ItemClick event for a ListView would look like:

  -onItemClick => sub {
    my($self, $item) = @_;
    # do something with $item
  },

> Sorry to be a pain, but i am so excited to check this out and have a
> few questions on gotchas I have ran into in the past before migrating.

don't worry, this kind of pain is welcome :-)

cheers,
Aldo

__END__
$_=q,just perl,,s, , another ,,s,$, hacker,,print;

Re: [perl-win32-gui-users] Waiting a result from a window

[Johan L. <jo...@ba...>]

At 10:32 2002-03-01 +0100, Guillem Cunillera Wefers wrote:
>The question is:
>How is possible for a script to obtain a result that can be obtained from 
>the user. That is to say, the script doesn't continue until the window 
>return the user information

http://www.bahnhof.se/~johanl/perl/Win32GUI/Modalizer.pm

It's not perfect, but it's a fairly decent workaround. Win32::GUI needs a 
real implementation of modal dialogs.


/J

-------- ------ ---- --- -- --  --  -    -     -      -         -
Johan Lindström    Sourcerer @ Boss Casinos     jo...@ba...

Latest bookmark: "The Ideahamster Organization"
http://www.ideahamster.org/

[perl-win32-gui-users] Waiting a result from a window

[Guillem C. W. <vac...@es...>]

Yesterday, I resolve a question with the use of MessageBox, but now I am =
in similar circumstancies, and I can't use MessageBox.

The question is:
How is possible for a script to obtain a result that can be obtained =
from the user. That is to say, the script doesn't continue until the =
window return the user information
For instance:

Module a: (without any $window, but Win32:Dialog still running)
...
...
a=3DLlibreria:moduleb:Initial(param_a,param_b)
...
...


Module b:

$window properties

Sub initial
{
...
$window->Show()
...
return (result)    ### In fact, I can't return until the user has =
entered the necessary information !!!!
}

sub button1_click.

...
etc.

Guillem Cunillera i Wefers.

Re: [perl-win32-gui-users] PALINDROME Date/Time TRIVIA

[Ahmed F. <ahm...@ya...>]

Hiya

I think you're right.. Dunno, they love giving hype to small stuff,
technically 2001 was the beginning of the new millenium, however they hyped
2000 as the big thing.

Later,
Ahmed.

-----Original Message-----
From: Eric Hansen <Ha...@sw...>
To: per...@li...
<per...@li...>
Date: Thursday, February 28, 2002 10:51 PM
Subject: [perl-win32-gui-users] PALINDROME Date/Time TRIVIA


Hey fello Win32:GUIers

You may have heard in the media (internet, news, etc.) recently that a
date/time palindrome would occur on Feb 20, 2002 at 8:02pm.  Written in DDMM
YYYY  HHMM format as 2002 2002 2002 , reading the same forwards and
backwards.  From what I heard, this was the last time this would occur in
history due to the 24 hour clock limitation. I also heard that the last time
this occured was on Jan 10, 1001 at  10:01. Written in DDMM YYYY  HHMM
format as 1001 1001 1001.  But after some calculating of my own on the
subject, I found the following to be the case:

DDMM     YYYY     HHMM

0110       0110        0110        October 01, 0110 at 1:10
      891 years pass till
1001       1001        1001        January 10, 1001 at 10:01
      110 years pass till
1111       1111        1111        November 11, 1111 at 11:11
      891 years pass till
2002       2002        2002        February 02, 2002 at 20:02
                                                         recently reported
as last date/time
                                                         palindrome to be
seen in history
      110 years pass till
2112       2112        2112        December 21, 2112 at 21:12
                                                        actual last
date/time palindrome
       891 years pass till
3003       3003        ????        24 hour clock limitation
       110 years pass till
3113       3113        ????        24 hour clock limitation

I assume 2112 2112 2112 is a palindrome since it reads same both frontwards
and backwards?

What do you guys and gals think?   Is it?

Eric Hansen
Dallas, TX USA



_________________________________________________________
Do You Yahoo!?
Get your free @yahoo.com address at http://mail.yahoo.com

Re: [perl-win32-gui-users] Win32::GUI Release 0.0.665

[Glenn L. <Gle...@ne...>]

Now I've downloaded and compiled the new version.  Boy was I surprised!

I ran an existing application, and it looked quite different in layout,
but upon careful inspection, and knowing how the code was written, it
appears that everything that is different is a result of exactly one
thing:

$font = Win32::GUI::Font->new ( -name => "Times New Roman", -size => 18,
);

The above line was fiddled with by trial and error using version 558, to
get the size font that I wanted.  I was rather surprised at the time
that the size, if expressed in points, turned out to be so small on my
screen.  But I was so busy learning other stuff, that I just ignored
that issue.... but now it has come back to haunt me!

Using version 665, the font used probably _is_ 18 points... at least it
looks the same as what Word Perfect calls 18 points for that same font!

So I guess this is an improvement, except that it would be nice to know
if there is a scale factor that can be applied, so that an application
could choose the same size font in either version of Win32::GUI.

Other than the font size issue, and the resulting effects on widget
layout, my forking Win32::GUI application seems to still be functional.

-- 
Glenn
=====
Remember, 84.3% of all statistics are made up on the spot.

[perl-win32-gui-users] PALINDROME Date/Time TRIVIA

[Eric H. <Ha...@sw...>]

Hey fello Win32:GUIers=20

You may have heard in the media (internet, news, etc.) recently that a =
date/time palindrome would occur on Feb 20, 2002 at 8:02pm.  Written in =
DDMM  YYYY  HHMM format as 2002 2002 2002 , reading the same forwards and =
backwards.  From what I heard, this was the last time this would occur in =
history due to the 24 hour clock limitation. I also heard that the last =
time this occured was on Jan 10, 1001 at  10:01. Written in DDMM YYYY  =
HHMM format as 1001 1001 1001.  But after some calculating of my own on =
the subject, I found the following to be the case:

DDMM     YYYY     HHMM

0110       0110        0110        October 01, 0110 at 1:10
      891 years pass till
1001       1001        1001        January 10, 1001 at 10:01
      110 years pass till
1111       1111        1111        November 11, 1111 at 11:11
      891 years pass till
2002       2002        2002        February 02, 2002 at 20:02
                                                         recently reported =
as last date/time
                                                         palindrome to be =
seen in history
      110 years pass till
2112       2112        2112        December 21, 2112 at 21:12
                                                        actual last =
date/time palindrome=20
       891 years pass till
3003       3003        ????        24 hour clock limitation
       110 years pass till
3113       3113        ????        24 hour clock limitation=20

I assume 2112 2112 2112 is a palindrome since it reads same both frontwards=
 and backwards? =20

What do you guys and gals think?   Is it?

Eric Hansen
Dallas, TX USA

Re: [perl-win32-gui-users] Win32::GUI Release 0.0.665

[<Kev...@al...>]

I've downloaded and compiled the new version.  The only script I've had
problems with so far is one based on Aldo's pride.pl example but then
pride.pl doesn't work any more either.

Tried a simple test with the NEM and fork() and it still works (except for
the crash on exit with a double fork mentioned yesterday).  Much better
than TK which crashes as soon as I try a fork.

Kev.



|---------+------------------------------------------------>
|         |           "Aldo Calpini" <dad...@al...>   |
|         |           Sent by:                             |
|         |           per...@li...ur|
|         |           ceforge.net                          |
|         |                                                |
|         |                                                |
|         |           28/02/2002 10:02                     |
|         |                                                |
|---------+------------------------------------------------>
  >----------------------------------------------------------------------------------------------|
  |                                                                                              |
  |       To:       "Perl-Win32-GUI-Users" <per...@li...>          |
  |       cc:                                                                                    |
  |       Subject:  [perl-win32-gui-users] Win32::GUI Release 0.0.665                            |
  >----------------------------------------------------------------------------------------------|




hello people,

finally, an update! this release of Win32::GUI introduces many new
features,
the most important being:

- the NEM (New Event Model), which allows for something like:

  $Window->AddButton(
      -text => 'say hello',
      -onClick => sub { print "hello, world!\n"; },
  );

  *** editor's note *** there are actually many gotchas with NEM,
  I'll elaborate more on this in a separate post.

- tooltips are now supported on most controls with the -tip => STRING
  option.

- ListView checkboxes can now be managed with the ItemCheck() method;
  there's also a new ItemCheck event for ListViews that gets fired when
  you toggle an item's checkbox.

the biggest changes are in the codebase, which is now splitted in several
files. please note that something - particularly the NEM - may be broken
in this release (you already knew it, huh? ;-)

source code is available at my site (http://dada.perl.it, which is up and
running again :-) and at SourceForge. PPM binaries will follow ASAP -- if
someone wants to pack the binaries for us, please do it (you'll certainly
be faster than me ;-) and send me the files so that I can put it online.

cheers,
Aldo

__END__
$_=q,just perl,,s, , another ,,s,$, hacker,,print;



_______________________________________________
Perl-Win32-GUI-Users mailing list
Per...@li...
https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users

RE: [perl-win32-gui-users] Win32::GUI Release 0.0.665

[Frazier, J. J. <Joe...@Pe...>]

> -----Original Message-----
> From: Aldo Calpini [mailto:dad...@al...]
> Sent: Thursday, February 28, 2002 8:18 AM
> To: Frazier, Joe Jr; Perl-Win32-GUI-Users
> Subject: Re: [perl-win32-gui-users] Win32::GUI Release 0.0.665
>=20
>=20
> Frazier, Joe Jr wrote:
> > >   $Window->AddButton(
> > >       -text =3D> 'say hello',
> > >       -onClick =3D> sub { print "hello, world!\n"; },
> > >   );
> >
> > Hmmm... is this the ONLY way  or does the old method still=20
> work also?
>=20
> the old method still works. but the main problem now is the=20
> interaction
> between the methods. in a few words:
>=20
> don't expect to use them both for the same window!
>=20
> if you define a $Window with NEM events, *all* of the=20
> controls inside it
> should have NEM events only, eg. no Button_Click won't work=20
> if the parent of
> the Button has NEM events.

I would probably do something simular to the way XML::SAX::* works and =
do this=20

package My::Package;
my $gui =3D My::Package->new()
.....


....

sub myhandler{

}

package main;

my $Window =3D Win32::GUI::Window->new(
        # ....        =20
	-events =3D> {
            Terminate =3D> $gui->myhandler();
		Activate  =3D> sub { print "here I am!\n"; },
        },
        -onMinimize =3D> sub { print "no please!\n"; },
    );
=20


Now, the question is, how does it work to pass in stuff such as the =
listview passing the row clicked?  or do we have to handle all that =
ourselves?  If this is covered in the docs(are the docs more fleshed =
out?), let me know and I will check there.

>=20
> this is a little tricky, I know; in fact I proposed to add a=20
> pragma when
> loading Win32::GUI, like this:
>=20
>     use Win32::GUI Event_Model =3D> 'byref';
>     #### only NEM events in this script!
>=20
> or
>=20
>     use Win32::GUI Event_Model =3D> 'byname';
>     #### no NEM events in this script!
>=20
> but I still don't know what to do when you just say use Win32::GUI ;-)
>=20

<vote type=3D"my opinion">Use old style by default.  This avoids users =
having to change thier code until they are ready to totally update thier =
code.</vote>

> BTW, NEM events can also be specified inside a single -events=20
> option (or in
> mixed style), as in:
>=20
>     my $Window =3D Win32::GUI::Window->new(
>         # ....
>         -events =3D> {
>             Terminate =3D> sub { -1 },
>             Activate  =3D> sub { print "here I am!\n"; },
>         },
>         -onMinimize =3D> sub { print "no please!\n"; },
>     );
>=20

ooooooooooo! me like. =20

> you can (err, should be able to, not really tested ;-) change=20
> events with
> the Change() method. to cancel an event, undef it:
>=20
>     $Window->Change(
>         -onMinimize =3D> undef,
>     );
>=20
>=20

Awesome! If this works, it will greatly help me with some dynamic fields =
I would like to be able to add.  ie. Have a DB which builds your app =
controls for you. Not "easily" possible in the old model, but it seems =
very easy with this new model (assuming the change event thing works).

Sorry to be a pain, but i am so excited to check this out and have a few =
questions on gotchas I have ran into in the past before migrating.


Joe Frazier, Jr.
Technical Support Engineer
Peopleclick Service Support

Tel:  +1-800-841-2365
E-Mail: mailto:su...@pe...

RE: [perl-win32-gui-users] Waiting the user to continue the download of information from the web

[Guillem C. W. <vac...@es...>]

Forget it !!
Forget it !!

Using Messagebox instead of using a own module I resolve this stupid =
problem.

But, I have to say, a new tutorial or documentation with some examples =
will be excellent, or just a list of interesting links about Win32::GUI.

I guess anybody has lost time in trying to answer me. Excuses.

Guillem Cunillera i Wefers.
  -----Mensaje original-----
  De: Guillem Cunillera Wefers <vac...@es...>
  Para: per...@li... =
<per...@li...>
  Fecha: dijous, 28 / febrer / 2002 12:25
  Asunto: [perl-win32-gui-users] Waiting the user to continue the =
download of information from the web


  Hello again,

  In my aplication I have to acces  a lot of times to a web information, =
but I don't want to die my apllication if a non is_succes and I want to =
put a message error and waiting the answer of the user if he wants to =
insist or abort. I don't know if maybe yesterday I drunk too much but =
today I have no idea.
  Can anybody help me ?
  I include for you the code of one of them that don't go correctly for =
this reason, i have to use semaphores or something like this ?
  This subroutine is not inside a module that uses any window.

   # -------------------------------------
  sub obtenirget {
  # -------------------------------------
  # permet obtenir la informacio de la direcci=F3 web subministrada

   my $llistotal=3Dshift(@_);

   $finalitzat=3D0;
   $intents=3D0;
   while ($finalitzat=3D=3D0)
   {
    my $ua =3D LWP::UserAgent->new;
    my $req =3D HTTP::Request->new(GET =3D> $llistotal);
    my $res =3D $ua->request($req);

    if ($res->is_success)
    {
     $contingut =3D $res->content;=20
     $contingut =3D~ s/\015?\012/\n/g; ##per als salts de HTML
     $contingut =3D~ s/\015\012?/\n/g; ## per a DOS =20
     $finalitzat=3D1;
    } else=20
    {
     $intents++;
     if ($intents % 5)
     {
      $texterror=3D"Error No s ha obtingut la llista satisfactoriament =
".$res->status_line;
         Mailtool::errors::visualitza($texterror);
     }
    }
   =20
   }
  =20
   return($contingut);
  }

Re: [perl-win32-gui-users] Win32::GUI Release 0.0.665

[Aldo C. <dad...@al...>]

Frazier, Joe Jr wrote:
> >   $Window->AddButton(
> >       -text => 'say hello',
> >       -onClick => sub { print "hello, world!\n"; },
> >   );
>
> Hmmm... is this the ONLY way  or does the old method still work also?

the old method still works. but the main problem now is the interaction
between the methods. in a few words:

don't expect to use them both for the same window!

if you define a $Window with NEM events, *all* of the controls inside it
should have NEM events only, eg. no Button_Click won't work if the parent of
the Button has NEM events.

this is a little tricky, I know; in fact I proposed to add a pragma when
loading Win32::GUI, like this:

    use Win32::GUI Event_Model => 'byref';
    #### only NEM events in this script!

or

    use Win32::GUI Event_Model => 'byname';
    #### no NEM events in this script!

but I still don't know what to do when you just say use Win32::GUI ;-)

BTW, NEM events can also be specified inside a single -events option (or in
mixed style), as in:

    my $Window = Win32::GUI::Window->new(
        # ....
        -events => {
            Terminate => sub { -1 },
            Activate  => sub { print "here I am!\n"; },
        },
        -onMinimize => sub { print "no please!\n"; },
    );

you can (err, should be able to, not really tested ;-) change events with
the Change() method. to cancel an event, undef it:

    $Window->Change(
        -onMinimize => undef,
    );


cheers,
Aldo

__END__
$_=q,just perl,,s, , another ,,s,$, hacker,,print;

RE: [perl-win32-gui-users] Win32::GUI Release 0.0.665

[Frazier, J. J. <Joe...@Pe...>]

> -----Original Message-----
> From: Aldo Calpini [mailto:dad...@al...]
> Sent: Thursday, February 28, 2002 5:02 AM
> To: Perl-Win32-GUI-Users
> Subject: [perl-win32-gui-users] Win32::GUI Release 0.0.665
>=20
>=20
> hello people,
>=20
> finally, an update! this release of Win32::GUI introduces=20
> many new features,
> the most important being:
>=20
> - the NEM (New Event Model), which allows for something like:
>=20
>   $Window->AddButton(
>       -text =3D> 'say hello',
>       -onClick =3D> sub { print "hello, world!\n"; },
>   );

Hmmm... is this the ONLY way  or does the old method still work also?


>   *** editor's note *** there are actually many gotchas with NEM,
>   I'll elaborate more on this in a separate post.
>=20
> - tooltips are now supported on most controls with the -tip =3D> =
STRING
>   option.

Super!!!!

>=20
> - ListView checkboxes can now be managed with the ItemCheck() method;
>   there's also a new ItemCheck event for ListViews that gets=20
> fired when
>   you toggle an item's checkbox.

Super again!

>=20
> the biggest changes are in the codebase, which is now=20
> splitted in several
> files. please note that something - particularly the NEM -=20
> may be broken
> in this release (you already knew it, huh? ;-)

Anyone going to perform some hard testing over the weekend on the new =
code and report back to the list?  I would love to be able to do this, =
but working two jobs, I barely have time for my family, much less =
anything fun (yes, coding is fun for me.  Since it is about the only =
thing free that I can do decently, its all I have).

Thanks Aldo!

Joe Frazier, Jr.
Technical Support Engineer
Peopleclick Service Support

Tel:  +1-800-841-2365
E-Mail: mailto:su...@pe...