perl-win32-gui-hackers — Hacking and developing the Win32::GUI Perl extension

Re: [perl-win32-gui-hackers] Re: [The GUI Loft] Errors while exiting.

[Reini U. <ru...@x-...>]

Just a short note:
The cygwin package perl-Win32-GUI is about to be released.
Based on my patches.

Win32::GUI was formerly in perl-libwin32. Now it's an extra package.
p5p is also now more responsive regarding cygwin patches, so maybe 
libwin32 will be revived also.
-- 
Reini Urban
http://xarch.tu-graz.ac.at/publ/cygwin/release/perl-Win32-GUI/

[perl-win32-gui-hackers] Re: [The GUI Loft] Errors while exiting.

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

At 21:38 2005-02-10, mage990 wrote:
>Im having some trouble with errors during @ perl.exe terminiation...
>
>I've running:
>WinXP SP2
>ActiveState Perl 5.8.4
>Win32 0.23 (according to -MWin32 -e "print Win32->VERSION"
>Win32::GUI 1.0
>Win32::GUI::Loft 0.23
>
>The error occurs after the last line of my scripts, and only after i
>recently updated to 1.0 (odd how it worked fine with .8something and
>even the old AS ppd...)
>
>there are no errors being reported inside my code, by stepping through
>it i can even see that its AFTER the last line of my code...
>
>is anyone else having this problem anywhere?
>
>it appears to be a access violation by perl.exe( code 0xC0000005 flags
>0x0.. record 0x0.. Address: blah.)

This appears to be a known bug:
<http://sourceforge.net/tracker/index.php?func=detail&aid=1064828&group_id=16572&atid=116572>


I'd say it's pretty severe... is anyone working on this one? [cross-post to 
the gui hackers list]


/J

-------- ------ ---- --- -- --  --  -     -     -        -          -
Johan Lindström    Sourcerer @ Boss Casinos   johanl AT DarSerMan.com

Latest bookmark: "TCP Connection Passing"
http://tcpcp.sourceforge.net/
dmoz: /Computers/Programming/Languages/JavaScript/ 12

[perl-win32-gui-hackers] Commit

[Jez W. <je...@je...>]

+ [Jeremy White] :
    - GUI_Events.cpp:
      + Hooked events now report errors, also moved a strncmp function =
in ProcessEventError to
        be only performed when there is an error.

[perl-win32-gui-hackers] Commit

[Jez W. <je...@je...>]

+ [Jeremy White] :
    - Combobox.xs:
      + Added CloseUp and DropDown events.

[perl-win32-gui-hackers] Commit

[Jez W. <je...@je...>]

+ [Jeremy White & Chris Wearn] :
    - ListView.xs
        + Added the BeginDrag event
    - GUI.xs=20
        + Added the ClientToScreen method=20
       =20
+ [Jeremy White] :
    - UpDown.xs, GUI.pm :
        + Fixed the crash when using the SetBuddy, Buddy and GetBuddy =
methods
          Improvements still needed.


Cheers,

jez.

Re: [perl-win32-gui-hackers] Using threads to keep the GUI alive

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

At 02:07 2005-02-01, Johan Lindstrom wrote:
>I experimented a bit with threads and how to use them to perform tasks in 
>the background while still keeping the GUI responsive.

This was of course intended for the gui-users list...


/J

-------- ------ ---- --- -- --  --  -     -     -        -          -
Johan Lindström    Sourcerer @ Boss Casinos   johanl AT DarSerMan.com

Latest bookmark: "TCP Connection Passing"
http://tcpcp.sourceforge.net/
dmoz: /Computers/Programming/Languages/JavaScript/ 12

[perl-win32-gui-hackers] Using threads to keep the GUI alive

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

I experimented a bit with threads and how to use them to perform tasks in 
the background while still keeping the GUI responsive. This is a first 
draft. Hopefully it will be useful to someone.
Demo with .gld file at:
<http://www.darserman.com/Perl/Loft/temp/FetchURL-threads.zip>

The program is used to fetch HTML from urls. The GET request is done in a 
separate thread.

I tried various stuff but there was much segfaulting and variables lost 
between the threads. I ended up using worker queues to pass control and 
information between the threads.

The program begins by starting a thread and two queues (one for passing 
urls to the getter thread, and one for returning  the result.

my $oThreadBrowserGet;
my $oQueueBrowserGet;
my $oQueueBrowserGetReturn;
BEGIN {
     $oQueueBrowserGet = Thread::Queue->new;
     $oQueueBrowserGetReturn = Thread::Queue->new;

     $oThreadBrowserGet = threads->new(
         sub {
             while(my $url = $oQueueBrowserGet->dequeue())  {
                 #... the GET is done here ... #
                 $oQueueBrowserGetReturn->enqueue(Dumper($res));
             }
             warn("Exiting getter thread\n");
         });
}

The thread is started in a begin block to have it occur before the 
Win32::GUI stuff is "use"d. I'm not sure, but I think that may be important.

The thread basically waits for an URL to be put in the request queue. When 
one appears in the queue, the thread will GET the $url and put the 
serialized GET result object in the return value queue.

If the passwd $url is undef, the while loop will terminate and the thread 
will end.


When the thread is started, the GUI is loaded and the Dialog() main loop 
entered. This is what happens in the event handler that gets the url:

sub ::btnFetch_Click { my ($win) = Win32::GUI::Loft::tglApp("winFetch") or 
return(1);

     my $url = $win->tfURL->Text();
     $oQueueBrowserGet->enqueue($url);
     while( ! $oQueueBrowserGetReturn->pending() ) {
         Win32::GUI::DoEvents();
         threads->yield();
     }
     my $VAR1;
     my $res = eval( $oQueueBrowserGetReturn->dequeue() ); $@ and die($@);

     $win->tfHttp->Text($res->headers_as_string());
     $win->tfHtml->Text($res->content());
}

First the $url is put in the request queue. Then we wait for the return 
value to show up in the other queue. The result object is deserialized and 
used to populate the GUI controls (error checking omitted).

For some reason Storable::freeze and thaw produced segfaults, whereas 
Data::Dumper works fine. Go figure.

It would be trivial to continously pass progress info back to the GUI to 
update a ProgressBar control.

I think most of this could be fairly neatly encapsulated in a module so 
there is a small amount of  synchronization code in the application.


/J
-------- ------ ---- --- -- --  --  -     -     -        -          -
Johan Lindström    Sourcerer @ Boss Casinos   johanl AT DarSerMan.com

Latest bookmark: "TCP Connection Passing"
http://tcpcp.sourceforge.net/
dmoz: /Computers/Programming/Languages/JavaScript/ 12

[perl-win32-gui-hackers] SetBuddy Method of the updown control causes a crash

[Jez W. <je...@je...>]

Hi,

I've just come across a problem with the updown control when using the =
SetBuddy, Buddy and GetBuddy methods - they all cause a crash.

All these methods attempt to return the previous (or current) buddy =
control and it crashes in this part - I suspect that these methods have =
not been updated as Win32::GUI changed over time - I doubt that they =
have worked for a long time.

I can fix it so that these methods no long cause a crash but I'm not =
100% sure if I can "fix" them so that they return the buddy as a =
Win32::GUI object. To be honest, I'm not sure if it's actually desirable =
to return a new Win32::GUI object in this case since it might have =
strange effects when this Perl object is destroyed (therefore =
potentially destroying the windows handle too).

I propose that I change these methods so that they no longer crash and =
until someone knows what they I doing I'll change the return parameter =
to the handle of the buddy. I'll also update some of the documentation =
while I'm at it.

Does anyone have issues with this?

Cheers,

jez.

Re: [perl-win32-gui-hackers] Timer memory leak with -dialogui = 1

[Reini U. <ru...@x-...>]

Johan Lindstrom schrieb:
> Recently a TGL user noticed a memory leak when TGL is running.
> http://groups.yahoo.com/group/theguiloft/message/593

> Win32::GUI 1.0
> This is perl, v5.8.3 built for MSWin32-x86-multi-thread
> (with 8 registered patches, see perl -V for more detail)

A test against a current perl would have been better. (5.8.6)

But it's probably just a simple GUI.xs problem.
-- 
Reini Urban
http://xarch.tu-graz.ac.at/home/rurban/

Re: [perl-win32-gui-hackers] Timer memory leak with -dialogui = 1

[Jez W. <je...@je...>]

Hi Johan,

I get the same results as you - I've created a tracker item for this bug.

Cheers,

jez.
----- Original Message -----=20
From: "Johan Lindstrom" <jo...@Da...>
To: <per...@li...>
Sent: Monday, January 10, 2005 11:15 PM
Subject: [perl-win32-gui-hackers] Timer memory leak with -dialogui =3D 1


> Recently a TGL user noticed a memory leak when TGL is running.
> http://groups.yahoo.com/group/theguiloft/message/593
>
> After an evening of trying to isolate this I've found that it's related=
 to=20
> Win32::GUI, and it happens when:
> - A Timer
> - on a Win32::GUI::Window with the $win->{-dialogui} =3D 1 or on a=20
> Win32::GUI::DialogBox
> - fires off an event (an event handler sub doesn't need to exist)
>
> This example program demonstrates the leak. Open the Task Manager and=20
> watch the perl.exe process grow a couple of K/sec. Note that the mem us=
age=20
> can vary when the windows get/lose focus, that's not the leak.
>
>
>
> #!/usr/local/bin/perl -w
> $|++;
> use strict;
> use Win32::GUI;
>
> my $winTimer =3D Win32::GUI::Window->new(
>     -name =3D> "winTimer",
>     -left =3D> 50,
>     -top =3D> 50,
>     -height =3D> 200,
>     -width =3D> 300,
>     -text =3D> "Test timer mem leak",
> );
>
> $winTimer->{-dialogui} =3D 0;    #1 =3D> leak, 0 =3D> no leak
>
> my $timTimer =3D $winTimer->AddTimer("timTimer", 10);    #100 times/sec
>
> $winTimer->Show();
> Win32::GUI::Dialog();
>
>
> sub ::timTimer_Timer {
>     print ",";
> }
>
> __END__
>
>
> This seems entirely related to the -dialogui setting, using a=20
> Win32::GUI::DialogBox and setting the -dialogui to 0 doesn't result in =
a=20
> leak.
>
>
> Win32::GUI 1.0
> This is perl, v5.8.3 built for MSWin32-x86-multi-thread
> (with 8 registered patches, see perl -V for more detail)
>
>
> /J
> -------- ------ ---- --- -- --  --  -     -     -        -          -
> Johan Lindstr=F6m    Sourcerer @ Boss Casinos   johanl AT DarSerMan.com
>
> Latest bookmark: "TCP Connection Passing"
> http://tcpcp.sourceforge.net/
> dmoz: /Computers/Programming/Languages/JavaScript/ 12
>
>
>
> -------------------------------------------------------
> The SF.Net email is sponsored by: Beat the post-holiday blues
> Get a FREE limited edition SourceForge.net t-shirt from ThinkGeek.
> It's fun and FREE -- well, almost....http://www.thinkgeek.com/sfshirt
> _______________________________________________
> Perl-Win32-GUI-Hackers mailing list
> Per...@li...
> https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-hackers
>=20

[perl-win32-gui-hackers] Timer memory leak with -dialogui = 1

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

Recently a TGL user noticed a memory leak when TGL is running.
http://groups.yahoo.com/group/theguiloft/message/593

After an evening of trying to isolate this I've found that it's related to 
Win32::GUI, and it happens when:
- A Timer
- on a Win32::GUI::Window with the $win->{-dialogui} = 1 or on a 
Win32::GUI::DialogBox
- fires off an event (an event handler sub doesn't need to exist)

This example program demonstrates the leak. Open the Task Manager and watch 
the perl.exe process grow a couple of K/sec. Note that the mem usage can 
vary when the windows get/lose focus, that's not the leak.



#!/usr/local/bin/perl -w
$|++;
use strict;
use Win32::GUI;

my $winTimer = Win32::GUI::Window->new(
     -name => "winTimer",
     -left => 50,
     -top => 50,
     -height => 200,
     -width => 300,
     -text => "Test timer mem leak",
);

$winTimer->{-dialogui} = 0;    #1 => leak, 0 => no leak

my $timTimer = $winTimer->AddTimer("timTimer", 10);    #100 times/sec

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


sub ::timTimer_Timer {
     print ",";
}

__END__


This seems entirely related to the -dialogui setting, using a 
Win32::GUI::DialogBox and setting the -dialogui to 0 doesn't result in a leak.


Win32::GUI 1.0
This is perl, v5.8.3 built for MSWin32-x86-multi-thread
(with 8 registered patches, see perl -V for more detail)


/J
-------- ------ ---- --- -- --  --  -     -     -        -          -
Johan Lindström    Sourcerer @ Boss Casinos   johanl AT DarSerMan.com

Latest bookmark: "TCP Connection Passing"
http://tcpcp.sourceforge.net/
dmoz: /Computers/Programming/Languages/JavaScript/ 12

[perl-win32-gui-hackers] Win32::GUI cygwin patch

[Reini U. <ru...@x-...>]

Laurent ROCHER schrieb:
>     Win32::GUI version 1.0 is availlable at Sourceforge.

Sorry that I touched cygwin too late, but I did it at last.
After 0.503 the last time, back in 2000.
All samples work, but I didn't check the latest enhancements, esp. 
ImageList.

Attached are the needed fixes for cygwin:

ToolTip.xs should be renamed to Tooltip.xs. (It matters!)
Makefile_m.PL can be safely removed. I've put the mingw stuff back in.

I've added a small cygwin.c for a missing function, and add a small stub 
lib (currently called libcomctl-cyg.a) dynamically.
I don't check if future versions of -lcomctl32 already define this.

    itoa
    ImageList_Duplicate@4
    ImageList_DrawIndirect@4
    ImageList_Copy@20

-- 
Reini Urban
http://xarch.tu-graz.ac.at/home/rurban/

[perl-win32-gui-hackers] RE: [perl-win32-gui-users] Upgrading to 1.0, help!

[Roelof B. <ro...@ni...>]

Hey Bret and Win32-GUI developers,

You've been of great help Bret. Thanks, it works now.

Hey developers, wouldn't it be nice to add a readme file describing this
in the PPM destribution? It seems pretty clear that if you use the ppm
you get a very old versio of Win32-GUI...

Roelof Bos



> -----Oorspronkelijk bericht-----
> Van: Bret Swedeen [mailto:br...@po...] 
> Verzonden: maandag 29 november 2004 21:20
> Aan: per...@li...; Roelof Bos
> Onderwerp: Re: [perl-win32-gui-users] Upgrading to 1.0, help!
> 
> 
> Hi,
> 
> I too had a bit of problem installing Win32-GUI 1.0.  Here's 
> what I did to resolve my 
> problem.
> 
> 1.  I downloaded the appropriate ppd version of Win32-GUI for 
> my version of Perl 
> from ActiveState.  Since I'm using 5.8.x I downloaded the 
> Win32-GUI ppd package 
> specifically built for that version of Perl.
> 2.  Next, I uncompressed the downloaded file into a temp 
> directory (e.g. C:\temp).
> 3.  Inside the temp directory the uncompressed file built 
> another directory (I don't 
> remember the name but started with Win32 etc etc).  
> 4.  I switched into that directory and looked for the file 
> "Win32-GUI.ppd". 
> 5.  When I tried to launch the install as described in the 
> readme file I got the same 
> error you got (Win32-GUI already installed).  I figured the 
> problem was that I 
> needed to upgrade instead of install so I typed "ppm upgrade 
> -install Win32-
> GUI.ppd".  At this point I think it failed again with a 
> similar error message.  I tried to 
> remove the package and start from scratch, but again it 
> installed the old version and 
> not the new one.  I figured the install just wasn't finding 
> the local directory even 
> though I was sitting in it when I launched the install 
> command, so I started ppm and 
> edited the repository.  I removed the current repositories 
> and added one for my local 
> drive and pointed it to the temp directory (help for 
> manipulating the repository can 
> be found by typing "Help Repository" at the ppm prompt).  
> Once I added that 
> repository and removed the other ones, the install worked.
> 6.  Finally, I added the old repositories back (so I could 
> easily install other packages 
> from ActiveState) and left the new one for my local drive as 
> the last one on the 
> repository list.
> 
> I found the key to a successful install was to add my local 
> temp directory to the 
> repository list (and removing the other repositories), and 
> then execute "ppm 
> upgrade -install Win32-GUI.ppd".  Hope that helps.
> 
> On 29 Nov 2004 at 20:23, Roelof Bos wrote:
> 
> > Hello,
> > 
> > I am just trying to upgrade to Win32-GUI 1.0. I have downloaded the
> > ppm from sourceforge.
> > 
> > I note something strange during instalation, this is what the promt
> > reads:
> > 
> > 
> E:\Software\programeren\Perl\Modules\Win32-Gui\Win32-GUI-1.0-PPM-5.8>p
> > pm install Win32-GUI -force Note: Package 'Win32-GUI' is already
> > installed. ==================== Install 'Win32-GUI' version 
> 0.0.558 in
> > ActivePerl 5.8.3.809. ==================== Files found in blib\arch:
> > installing files in blib\lib into architecture dependent 
> library tree
> > Successfully installed Win32-GUI version 0.0.558 in ActivePerl
> > 5.8.3.809.
> > 
> > Check the last line, I thought I was installing version 1.0 not
> > 0.0.558??
> > 
> > And then, when I try to start an app I made using DateTime controls:
> > 
> > Can't locate auto/AddDateTime.al in @INC (@INC contains: lib
> > C:/Perl/lib C:/Perl/site/lib .) at lib/ItemControl.pm line 109
> > 
> > Is this because I installed an older version of Win32-GUI? Whats
> > happening, what should I do?
> > 
> > I also tried to "build" my own Win32-GUI but I keep getting fatal
> > erros which I don't understand:
> > 
> > NMAKE : fatal error U1077: 'cl' : return code '0x2'
> > Stop.
> > 
> > The full output on the prompt follows below. I get the same error on
> > nmake, nmake test and nmake install.
> > 
> > thanks
> > Roelof Bos
> > 
> > 
> ----------------------------------------------------------------------
> > -
> > 
> > E:\Software\programeren\Perl\Modules\Win32-Gui\Win32-GUI-1.0>nmake
> > test
> > 
> > Microsoft (R) Program Maintenance Utility   Version 6.00.8168.0
> > Copyright (C) Microsoft Corp 1988-1998. All rights reserved.
> > 
> >         cl -c    -nologo -Gf -W3 -MD -Zi -DNDEBUG -O1 -DWIN32
> >         -D_CONSOLE
> > -DNO_STRICT -DHAVE_DES_FCRYPT -DNO_HASH_SEED -DPERL_IMPLICIT_CONTEXT
> > -DPERL_IMPLICIT_SYS -DUSE_PERLIO -DPERL_MSVCRT_READFIX 
> -DPERL_POLLUTE
> > -MD -Zi -DNDEBUG -O1    -DVERSION=\"1.0\"  -DXS_VERSION=\"1.0\"
> > "-IC:\Perl\lib\CORE"   GUI.cpp GUI.cpp
> > 
> > *** Using Preserved Perl context.
> > 
> > GUI.xs(2040) : warning C4101: 'targ' : unreferenced local variable
> > GUI.xs(2333) : error C2065: 'WINDOWINFO' : undeclared identifier
> > GUI.xs(2333) : error C2146: syntax error : missing ';' before
> > identifier 'pwi' GUI.xs(2333) : error C2065: 'pwi' : undeclared
> > identifier GUI.xs(2335) : error C2228: left of '.cbSize' must have
> > class/struct/union type GUI.xs(2336) : error C2065: 
> 'GetWindowInfo' :
> > undeclared identifier GUI.xs(2338) : error C2228: left of 
> '.rcClient'
> > must have class/struct/union type GUI.xs(2338) : error 
> C2228: left of
> > '.left' must have class/struct/union type GUI.xs(2339) : 
> error C2228:
> > left of '.rcClient' must have class/struct/union type GUI.xs(2339) :
> > error C2228: left of '.top' must have class/struct/union type
> > GUI.xs(2340) : error C2228: left of '.rcClient' must have
> > class/struct/union type GUI.xs(2340) : error C2228: left of '.right'
> > must have class/struct/union type GUI.xs(2341) : error 
> C2228: left of
> > '.rcClient' must have class/struct/union type GUI.xs(2341) : error
> > C2228: left of '.bottom' must have class/struct/union type 
> *** PACKAGE
> > Win32::GUI::Menu... *** PACKAGE Win32::GUI::MenuButton... 
> *** PACKAGE
> > Win32::GUI::MenuItem... NMAKE : fatal error U1077: 'cl' : 
> return code
> > '0x2' Stop.
> > 
> > 
> > 
> > 
> > -------------------------------------------------------
> > SF email is sponsored by - The IT Product Guide
> > Read honest & candid reviews on hundreds of IT Products from real
> > users. Discover which products truly live up to the hype. Start
> > reading now. http://productguide.itmanagersjournal.com/
> > _______________________________________________ Perl-Win32-GUI-Users
> > mailing list Per...@li...
> > https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
> > 
> 
> 
> 

[perl-win32-gui-hackers] Win32::GUI 1.0

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

Hi Win32::GUI users,

    Win32::GUI version 1.0 is availlable at Sourceforge.

    This version come from main developpement branch of Win32::GUI.

        - Completely new base code.=20
        - Full NEM/OEM support.=20
        - Lot of control Win32 API method.=20
        - Preserved Perl context.=20
        - New DoModal.=20
        - More documentation.=20
        - MDI application support.=20
        - Add MonthCal control.=20
        - ...

    You can find a complet changelog at : =
http://sourceforge.net/project/shownotes.php?release_id=3D282115
    Source and 5.6&5.8 PPM are availlable at : =
http://sourceforge.net/project/showfiles.php?group_id=3D16572
    Documentation generated from source code is availlable at : =
http://perl-win32-gui.sourceforge.net/docs/GUI.html

Cheers,
    Laurent.

[perl-win32-gui-hackers] Background color of windows

[Jez W. <je...@je...>]

Hi,

I've been trying to set/change the background color of windows. As a =
real world example: You want to create a child window that looks like a =
richtext control (white background) you also want to be able to change =
the background of the child window to grey (to give the illusion that =
it's 'disabled').

I don't think this scenario is possible with the current win32-gui =
codeline. It seems the only way to set the background of a window is by =
using a class, but there is no way to change the class once a window has =
been created. The following comments (from line 884 GUI.xs):

        /* TODO: change class ???
        if(perlcs.cs.iClass !=3D NULL)
            SetWindowLong(handle, GWL_
        */

I had a little google on the web, and I couldn't find any examples on =
how to change a window class (only items within the class) - perhaps it =
can't be done? Surely there must be an easy way to change the background =
color of a window? Am I missing something?

The following perl code creates a (green) child window - I'm trying to =
change it to red:)

Cheers,

jez.

-------------------------

use Win32::GUI;
use strict;

my $col=3D65025;

my $redbrush =3D new Win32::GUI::Brush(-color =3D> [255,0,0]);
my $greenbrush =3D new Win32::GUI::Brush(-color =3D> [0,255,0]);

my $WC =3D new Win32::GUI::Class(
     -name =3D> "redrush",
     -brush =3D> $redbrush,
);

my $WC2 =3D new Win32::GUI::Class(
     -name =3D> "greenbrush",
     -brush =3D> $greenbrush,
);


my $win =3D new Win32::GUI::Window (
    -pos         =3D> [100, 100],
    -size        =3D> [400, 400],
    -name        =3D> 'Window',
    -text        =3D> 'Main Window',
   # -onTimer     =3D> \&Change,
);
#$win->AddTimer("Timer", 10);

$win->AddButton(
    -name        =3D> 'button',
    -pos         =3D> [0, 0],
    -size        =3D> [50, 20],
    -text        =3D> 'change',
    -onClick     =3D> \&Change,
);

my $child =3D new Win32::GUI::Window (
    -parent      =3D> $win,
    -name        =3D> 'ChildWin',
    -pos         =3D> [100, 100],
    -size        =3D> [100, 100],
    -popstyle    =3D> WS_CAPTION | WS_SIZEBOX,
    -pushstyle   =3D> WS_CHILD | WS_CLIPCHILDREN,
    -pushexstyle =3D> WS_EX_CLIENTEDGE,
    -class       =3D> $WC2,
);

my $lable=3D$child->AddLabel(
    -name        =3D> 'Lab',
    -pos         =3D> [20, 20],
    -size        =3D> [50, 20],
    -text        =3D> 'Some text',
    -background =3D> [255,0,0],
);


$child->Show();
$win->Show();

Win32::GUI::Dialog();

sub Change() {
  $child->Change(-class =3D> $WC);
  #$lable->Change(-background =3D> $col);
  $child->InvalidateRect(0);
  #$lable->InvalidateRect(0);
  $col+=3D20;
  print $col;
}

Re: [perl-win32-gui-hackers] TGL 0.25 released

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

At 20:02 2004-11-09, Laurent ROCHER wrote:
>I can made a v1.0 release this week-end.

Regarding the PPM thing, I asked about the procedure on Perlmonks. 
PodMaster to the rescue:
http://www.perlmonks.org/index.pl?node_id=406427


/J

-------- ------ ---- --- -- --  --  -     -     -        -          -
Johan Lindström    Sourcerer @ Boss Casinos   johanl AT DarSerMan.com

Latest bookmark: "TCP Connection Passing"
http://tcpcp.sourceforge.net/
dmoz: /Computers/Programming/Languages/JavaScript/ 12

Re: [perl-win32-gui-hackers] TGL 0.25 released

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

Hi,

> Glenn Linderman schrieb:
> > Yo, Laurent-- can you spare a few minutes to finish up the release of
> > 1.0 ???
> >
> > 0.99_1 has been out there for a little more than a month, Johan has TGL
> > working with it and released, and there've been no howls of protest from
> > the rest of the cognoscenti... probably time to release it on the
> > unwashed masses to see if we can generate some howls of protest there :)
>
> no howl of protest, rather a howl of enjoy. yes, please.

I can made a v1.0 release this week-end.

Laurent.

Re: [perl-win32-gui-hackers] State of the Docs

[Reini U. <ru...@x-...>]

Jez White schrieb:
>>> The docs I ship with The GUI Loft is an old version of forgotten 
>>> origin. I probably should update it to cover Win32::GUI 1.0 .
>>
>> The docs are not good, but better than nothing.
>> The situation with the samples which is much more important improved.
> 
> The docs have been much improved - are you sure you have got the updated 
> versions? A while ago Steve and Laurent went through and updated or 
> added most (if not all) function, methods and events.
> 
> The introduction, and tutorials could be improved though:)

Ok, I see. I got older ones.
But nothing beats the samples. esp in perl.

> At the moment the samples are only included with the source - perhaps 
> it's worth including them with the binary too?

I would prefer that.

...
> I'm also of the view that you can never have enough examples:) So 
> perhaps it's an idea to call for more examples, perhaps with a set of 
> goals in mind (a couple of examples per control, "advanced" concepts, 
> full applications etc )?

-- 
Reini Urban
http://xarch.tu-graz.ac.at/home/rurban/

Re: [perl-win32-gui-hackers] State of the Docs

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

At 15:15 2004-11-09, Jez White wrote:
>>The docs are not good, but better than nothing.
>>The situation with the samples which is much more important improved.
>
>The docs have been much improved - are you sure you have got the updated 
>versions? A while ago Steve and Laurent went through and updated or added 
>most (if not all) function, methods and events.
>
>The introduction, and tutorials could be improved though:)

I'm in the process of writing one, but it's not that near completion at the 
moment though.


>At the moment the samples are only included with the source - perhaps it's 
>worth including them with the binary too?

Most certainly, since most people will be using the PPM.


>Once V1 is built and on sourceforge, it would be a good idea to do a bit 
>of a 'marketing' blitz and hit the various newsgroups and websites 
>(perlmonks, activestate etc) and inform people that a new version is 
>available. How do we get V1 added to the activestate repositories?

I think they autobuild the PPMs on a regular basis, and the modules that 
pass their test suite are included.

So, if Win32::GUI builds on a "nmake test", it should replace 0.0.558.


>I'm also of the view that you can never have enough examples:) So perhaps 
>it's an idea to call for more examples, perhaps with a set of goals in 
>mind (a couple of examples per control, "advanced" concepts, full 
>applications etc )?

The purpose of my tutorial would be to demo a small but complete 
application with "best practices" of building and packaging a GUI app, 
while avoiding lots of globals, etc.

The alpha is at:
http://www.darserman.com/Perl/TglTutorial/

Including the original Word file if you want to add or change anything.


/J

-------- ------ ---- --- -- --  --  -     -     -        -          -
Johan Lindström    Sourcerer @ Boss Casinos   johanl AT DarSerMan.com

Latest bookmark: "TCP Connection Passing"
http://tcpcp.sourceforge.net/
dmoz: /Computers/Programming/Languages/JavaScript/ 12

Re: [perl-win32-gui-hackers] State of the Docs

[Jez W. <je...@je...>]

>> The docs I ship with The GUI Loft is an old version of forgotten origin. 
>> I probably should update it to cover Win32::GUI 1.0 .
>
> The docs are not good, but better than nothing.
> The situation with the samples which is much more important improved.

The docs have been much improved - are you sure you have got the updated 
versions? A while ago Steve and Laurent went through and updated or added 
most (if not all) function, methods and events.

The introduction, and tutorials could be improved though:)

At the moment the samples are only included with the source - perhaps it's 
worth including them with the binary too?

Once V1 is built and on sourceforge, it would be a good idea to do a bit of 
a 'marketing' blitz and hit the various newsgroups and websites (perlmonks, 
activestate etc) and inform people that a new version is available. How do 
we get V1 added to the activestate repositories?

I'm also of the view that you can never have enough examples:) So perhaps 
it's an idea to call for more examples, perhaps with a set of goals in mind 
(a couple of examples per control, "advanced" concepts, full applications 
etc )?

Cheers,

jez.



 

Re: [perl-win32-gui-hackers] State of the Docs

[Reini U. <ru...@x-...>]

Johan Lindstrom schrieb:
> At 13:21 2004-11-09, Reini Urban wrote:
> 
>>> Actually, it seems likely that most of the howls of protest are 
>>> likely to be resolved by telling folks to keep top-level window 
>>> objects in global variables :)
>>
>>
>> yes, add this please to the docs.
> 
> 
> While we're on the subject, what's the state of the documentation today? 
> Is it complete enough that it covers all or most of the functionality 
> added up to 1.0?
> 
> The docs I ship with The GUI Loft is an old version of forgotten origin. 
> I probably should update it to cover Win32::GUI 1.0 .

The docs are not good, but better than nothing.
The situation with the samples which is much more important improved.

-- 
Reini Urban
http://xarch.tu-graz.ac.at/home/rurban/

[perl-win32-gui-hackers] State of the Docs (was: TGL 0.25 released)

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

At 13:21 2004-11-09, Reini Urban wrote:
>>Actually, it seems likely that most of the howls of protest are likely to 
>>be resolved by telling folks to keep top-level window objects in global 
>>variables :)
>
>yes, add this please to the docs.

While we're on the subject, what's the state of the documentation today? Is 
it complete enough that it covers all or most of the functionality added up 
to 1.0?

The docs I ship with The GUI Loft is an old version of forgotten origin. I 
probably should update it to cover Win32::GUI 1.0 .


/J

-------- ------ ---- --- -- --  --  -     -     -        -          -
Johan Lindström    Sourcerer @ Boss Casinos   johanl AT DarSerMan.com

Latest bookmark: "TCP Connection Passing"
http://tcpcp.sourceforge.net/
dmoz: /Computers/Programming/Languages/JavaScript/ 12

Re: [perl-win32-gui-hackers] TGL 0.25 released

[Reini U. <ru...@x-...>]

Glenn Linderman schrieb:
> Yo, Laurent-- can you spare a few minutes to finish up the release of 
> 1.0 ???
> 
> 0.99_1 has been out there for a little more than a month, Johan has TGL 
> working with it and released, and there've been no howls of protest from 
> the rest of the cognoscenti... probably time to release it on the 
> unwashed masses to see if we can generate some howls of protest there :)

no howl of protest, rather a howl of enjoy. yes, please.

> Actually, it seems likely that most of the howls of protest are likely 
> to be resolved by telling folks to keep top-level window objects in 
> global variables :)

yes, add this please to the docs.

we at cygwin will update our libwin32 package also soon, which will 
include 1.0 then. The Win32::API was also accepted today as is.
-- 
Reini Urban
http://xarch.tu-graz.ac.at/home/rurban/

Re: [perl-win32-gui-hackers] TGL 0.25 released

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

At 10:42 2004-11-03, Glenn Linderman wrote:
>>I just released a new version of TGL that supports the 0.9 version, so 
>>Win32::GUI should be ready for it's 1.0 release, at least in that regard.
>
>Thanks Johan, did you learn anything significant in the process of 
>producing it, other than what has already been mentioned on the list?

I just finished investigating some very weird thing with timers which I had 
problems reproducing. It was kind of difficult, since it turned out to not 
having anything to do with timers in the end :)

Instead it seemed like it was that new thing with Win32::GUI::Window 
objects actually being destroyed. So I was missing a variable to keep the 
object in scope. At least that's what I think happened.


/J

-------- ------ ---- --- -- --  --  -     -     -        -          -
Johan Lindström    Sourcerer @ Boss Casinos   johanl AT DarSerMan.com

Latest bookmark: "TCP Connection Passing"
http://tcpcp.sourceforge.net/
dmoz: /Computers/Programming/Languages/JavaScript/ 12

[perl-win32-gui-hackers] TGL 0.25 released

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

I just released a new version of TGL that supports the 0.9 version, so 
Win32::GUI should be ready for it's 1.0 release, at least in that regard.


/J
-------- ------ ---- --- -- --  --  -     -     -        -          -
Johan Lindström    Sourcerer @ Boss Casinos   johanl AT DarSerMan.com

Latest bookmark: "TCP Connection Passing"
http://tcpcp.sourceforge.net/
dmoz: /Computers/Programming/Languages/JavaScript/ 12