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

RE: [perl-win32-gui-users] How to install two different versions of PERL on the same computer

[Chen, J. G <Jer...@AI...>]

You can install each in a different directory. I think each perl.exe will
boottrap
its own @INC when you run.  But, you should only keep the primary one's bin
path
to $PATH, that way you don't get path collision.  When you do want to use
the other
one, just cd to the directory and run it over there.  You also need to be
careful
when you run ppm in case you want to install packages.

Jerry Chen

-----Original Message-----
From: di...@se... [mailto:di...@se...]
Sent: Wednesday, May 16, 2001 8:45 AM
To: per...@li...
Subject: [perl-win32-gui-users] How to install two different versions of
PERL on the same computer


Hello,
What is the best way for
installing and using  two different versions of PERL on the same 
computer? I have Perl 523 version and would like to install 626 
version.
Thanks for help.
Ladislav

[perl-win32-gui-users] How to install two different versions of PERL on the same computer

[<di...@se...>]

Hello,
What is the best way for
installing and using  two different versions of PERL on the same 
computer? I have Perl 523 version and would like to install 626 
version.
Thanks for help.
Ladislav

Re: [perl-win32-gui-users] What are the parameters in the Toolbar::AddButtons for?

[<se...@la...>]

A long time ago, I went through and figured this out.  Luckily, I 
saved the results as a comment in my toolbar.pl file.  Here's what I 
have:

# first row is the number of buttons in this toolbar
# each additional row corresponds to a button
# first number is the zero-based index of the appropriate picture from the=
 bitmap object
# second number is the number that will be passed to the _Click event
# third number is the state of the button
#	-0 dark gray can't be clicked
#	-1 light gray & sunken  can't be clicked
#	-2 dark gray & sunken  can't be clicked
#	-3 light gray & sunken  can't be clicked
#	-4 normal
#	-5 light & sunken can be clicked
#	-6 normal & sunken if clicked becomes normal
#	-7 light & sunken can be clicked
# fourth number is the visibility
#	-even visible
#	-odd invisible
# fifth number is the zero-based index of the string that should accompany=
 the button

That last comment refers to the $TB->AddString statements in the 
file, in the order that they were declared.  I'm sure it must be 
possible to disable toolbar buttins on the fly, but I don't know how 
(perhaps sending a message, a la the RichEdit workarounds that we've 
seen on this list).


On 16 May 2001, at 15:17, Peter K=F6ller wrote:

> Hello,
> 
> has anyone an idea of the parameters in the ToolBar::AddButtons
> method?
> 
> The example toolbar.pl does the following:
> 
> $TB->AddButtons(
>     3,
>     0, 1, 4, 0, 0,
>     1, 2, 4, 0, 1,
>     2, 3, 4, 0, 2,
> );
> 
> What is the meaning of the parameters and is it possible to make
> toolbar items disabled? Can disabled toolbar items have another image?
> (I need something like the speedbars in Office Applications).
> 

[perl-win32-gui-users] What are the parameters in the Toolbar::AddButtons for?

[<pko...@me...>]

Hello,

has anyone an idea of the parameters in the ToolBar::AddButtons method?

The example toolbar.pl does the following:

$TB->AddButtons(
    3,
    0, 1, 4, 0, 0,
    1, 2, 4, 0, 1,
    2, 3, 4, 0, 2,
);

What is the meaning of the parameters and is it possible to make toolbar
items disabled? Can disabled toolbar items have another image? (I need
something like the speedbars in Office Applications).

Sincerely,
Peter

Re: [perl-win32-gui-users] Win32::GUI::Icon and Win32::Console - an icon for a console

[Aldo C. <da...@pe...>]

Johan Lindstrom wrote:
> Untested, but try something like this:
>
> my $icoDOS = ... create your icon object here ...;
> my $hwindDOS = Win32::GUI::GetPerlWindow();
> Win32::GUI::SetIcon($hwindDOS, $icoDOS, 0);

it works, but it's only a temporary change; when the icon
needs to be repainted (eg. if you minimize the window or
move the upper left corner out of sight), the icon reverts
to the default one. SetIcon (as SetCursor, BTW) only draws
its content one time, it does not change it permanently.
AFAIK, there's no way to permanently change the DOS window
icon with Win32::GUI.

cheers,
Aldo

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

[perl-win32-gui-users] Tabstop

[<dar...@la...>]

Below is an extract from a small program I am using, is there any way to set the
buttons up as Tabstops?

Thanks in advance.



**********************
**** Start of extract
**********************

$division_input = $fred->AddCombobox(
               -name          =>"division_input",
               -left          =>110,
               -top           =>70,
               -width         =>135,
               -height        =>220,
               -style         => WS_VISIBLE | 2 | WS_NOTIFY,
               -group    =>1,
               -tabstop  =>1,
               );

$division_input->InsertItem("Finance");
$division_input->InsertItem("IT Services");
$division_input->InsertItem("Audit");

# Add the Control Buttons

$b1 = MakeControl ("AddButton", 2, 5, 10, "   OK   ", "OK");
$b2 = MakeControl ("AddButton", 13, 5, 10, " Exit ", "Exit");
$b3 = MakeControl ("AddButton", 24, 5, 10, " Help ", "Help");

**********************
**** End of extract
**********************



The information in this e-mail and any attachments is confidential and may be
legally privileged. It is intended solely for the addressee or addressees. If
you are not an intended recipient, please delete the message and any attachments
and notify the sender of misdelivery: any use or disclosure of the contents of
either is unauthorised and may be unlawful. All liability for viruses is
excluded to the fullest extent permitted by law. Any views expressed in this
message are those of the individual sender, except where the sender states them,
with requisite authority, to be those of a specific LAZARD company or
partnership.

Re: [perl-win32-gui-users] Win32::GUI::Icon and Win32::Console - an icon for a console

[<pko...@me...>]

Johan Lindstrom wrote:

> Jeremy Aiyadurai wrote:
> >how do i get an icon to work for a console window...eg. i want to get rid
> >of the console-window-dos-prompt icon when i run my console program.
>
> Untested, but try something like this:
>
> my $icoDOS = ... create your icon object here ...;
> my $hwindDOS = Win32::GUI::GetPerlWindow();
> Win32::GUI::SetIcon($hwindDOS, $icoDOS, 0);

The above should work (I recently tried it) but it even removes the command
prompt if you type perl yourprogram.pl in the command window. Another way I
use is the following batch file, starting a perl script which creates
another process. This example works with Perl/Tk, too. Try it and use your
favourite method :-)

--- cut here and save it in a file like myprogram.bat ---
@rem = '--*-Perl-*--
@echo off
if "%OS%" == "Windows_NT" goto WinNT
perl -x -S "%0" %1 %2 %3 %4 %5 %6 %7 %8 %9
goto endofperl
:WinNT
perl -x -S "%0" %*
if NOT "%COMSPEC%" == "%SystemRoot%\system32\cmd.exe" goto endofperl
if %errorlevel% == 9009 echo You do not have Perl in your PATH.
goto endofperl
@rem ';
#!perl
#line 14
# Starts a perl script without console window
use strict;
use Win32;
use Win32::Process;

#---------------------------------------------------------------------------
# main

findPerl();

Win32::Process::Create($Win32::Proccess::Create::ProcessObj,
	findPerl(),
	'perl yourprogram.pl',
	0,
	DETACHED_PROCESS,
	".") or die print_error();

sub print_error {
	return Win32::FormatMessage(Win32::GetLastError());
}

#---------------------------------------------------------------------------
# sub

sub findPerl {
	foreach my $path (split(/;/, $ENV{PATH})) {
		if (-e "$path\\perl.exe") {
			return "$path\\perl.exe";
		}
	}
}
__END__
:endofperl
--- cut here ---

Peter

http://www.metaprojekt.de

Re: [perl-win32-gui-users] Win32::GUI::Icon and Win32::Console - an icon for a console

[Johan L. <jp...@bo...>]

Jeremy Aiyadurai wrote:
>how do i get an icon to work for a console window...eg. i want to get rid
>of the console-window-dos-prompt icon when i run my console program.

Untested, but try something like this:

my $icoDOS = ... create your icon object here ...;
my $hwindDOS = Win32::GUI::GetPerlWindow();
Win32::GUI::SetIcon($hwindDOS, $icoDOS, 0);

I found the docs for this in the Win32_GUI.html file.


/J

--
Johan Lindström, Sourcerer, Boss Casinos Ltd, Antigua
jp...@bo...

[perl-win32-gui-users] Win32::GUI::Icon and Win32::Console - an icon for a console

[Jeremy A. <bc...@te...>]

Hi all,

Thankyou for your help so far.

how do i get an icon to work for a console window...eg. i want to get rid
of the console-window-dos-prompt icon when i run my console program.


Thankyou

Jeremy

RE: [perl-win32-gui-users] Win32::GUI::Label

[Jeremy A. <bc...@te...>]

Hi All

Thank you for your knowledge and help so far.

Hi, I have tried this procedure...it does make the labels transparent, but
it makes them hidden
how do i go about showing my text in the labels, with the labels being
transparent to the background

Jeremy

>I struggled for an entire night trying to figure this out. ;-)  Actually, I
>was trying to mimic Winamp's skins and while I'm not quite there, I can
>"skin" my GUI (okay, so it may be cheesy but it was fun to do).
>
>Here's how I did it:
>
>Create the window, create a label (the size of the window), fill the label
>with the bitmap, create two labels with the -bitmap & -notify options set.
>This allows the labels to respond to events but they don't actually
>"appear", they're "hidden".  If my memory serves me, I had to create the
>elements in this exact order, otherwise the "hidden" label events would not
>fire.
>
>Code sample is below.
>
>Jeremy Blonde
>
>$Window = Win32::GUI::Window->new(
>  -name    => "Window",
>  -text    => $PREFS{TITLE},
>  -pos     => [ $PREFS{LEFT},  $PREFS{TOP} ],
>  -size    => [ $PREFS{WIDTH}, $PREFS{HEIGHT} ],
>  -topmost => $PREFS{ONTOP},
>  -resizable => 0,
>);
>
>$Window->AddLabel(
>  -name   => "Background",
>  -pos    => [ 0, 49 ],
>  -size   => [ $Window->Width(), 35 ],
>  -bitmap => 1,
>);
>
>$Window->Background->SetImage($BACKGROUND);
>
># Creates the label for the About "button"
>$Window->AddLabel(
>  -name   => "About",
>  -pos    =>
>
>               $PREFS{ABOUTLEFT} + $Window->Background->Left(),
>               $PREFS{ABOUTTOP}  + $Window->Background->Top(),
>             ],
>  -size   => [ $PREFS{ABOUTWIDTH}, $PREFS{ABOUTHEIGHT} ],
>  -notify => 1,
>  -bitmap => 1,
>);
>
># Creates the label for the Preferences "button"
>$Window->AddLabel(
>  -name   => "Preferences",
>  -pos    =>
>
>               $PREFS{PREFSLEFT} + $Window->Background->Left(),
>               $PREFS{PREFSTOP}  + $Window->Background->Top(),
>             ],
>  -size   => [ $PREFS{PREFSWIDTH}, $PREFS{PREFSHEIGHT} ],
>  -notify => 1,
>  -bitmap => 1,
>);
>
>-----Original Message-----
>From: per...@li...
>[mailto:per...@li...]On Behalf Of
>Jeremy Aiyadurai
>Sent: Friday, May 11, 2001 9:28 PM
>To: per...@li...
>Subject: [perl-win32-gui-users] Win32::GUI::Label
>
>
>Hi all,
>
>Thankyou for your help so far.
>If you have not seen my previous email "about the console icons" please do
>so.
>
>my question is, I have made a bmp to cover the entire background of a
>window. how do I make all the labels transparent, to blend with the
>background image?
>
>
>Thankyou
>
>Jeremy
>
>
>
>
>
>
>
>
>_______________________________________________
>Perl-Win32-GUI-Users mailing list
>Per...@li...
>http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
>
>
>_________________________________________________________
>Do You Yahoo!?
>Get your free @yahoo.com address at http://mail.yahoo.com
>
>
>_______________________________________________
>Perl-Win32-GUI-Users mailing list
>Per...@li...
>http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
>

Re: [perl-win32-gui-users] weird textfield issue

[Tom P. <tom...@co...>]

On 10 May 01, at 11:16, Marjolein Katsma wrote:

> Debuggers are a wonderful invention - and I use them. But you don't
> need them (need to *pay* for them!) until you've exhausted all
> possibilities of displaying traces and variable values of your program
> while it's executing. With Perl on Win - that's just what you need
> your command-line window for: without it (or a debugger): how do you
> know what's happening?

my 2c (pretty useless AUDs but...):
i would have to disagree pretty whole-heartedly with that (in the 
most friendly, constructive way i can manage :).  

I think almost the opposite attack should be tried.  learn to use the 
debugger and use that first.  if you can't get the debugger to give 
the information you require, THEN put in trace statements etc.

the debugger has the wonderful benefit of not requiring any extra 
code to run, no modifications to code, no extra errors and no weird 
side effects.  well almost.  also, you can watch variables and 
expressions that seemed obvious when writing the code but now 
mysteriously don't work...

a nice tip i read somewhere, was to always run the code through 
the debugger the first few times you run it (literally) to make sure it 
does what you think.

very rarely do you spend hours on a problem when you point the 
debugger at it first.

admittedly debuggers used to be too hard to use and way too 
much effort (gdb anyone?). but the current crop of visual debuggers 
are fantastic (eg VC++).   the debugger in the activestate PDK is 
well worth the download, and seems to work for a fair while without 
costing anything :).

- Tom
	(who wishes he'd learnt how to use the debugger -- and there'd 
been decent debuggers -- before he learnt to program, it would have 
saved me year's by now...)
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
tompaton (at) connect (dot) net (dot) au
http ... people.connect.net.au/~tompaton

Re: [perl-win32-gui-users] Font size - problems and workaround

[Marjolein K. <win...@ja...>]

(Talking to myself :) but I hope others read this, too!)

At 08:17 2001-05-09 +0200, Marjolein Katsma wrote:
>I've been running into problems getting and setting correct font sizes. 
>Since I'm new to this list, I searched the archives, but could find no reference. What I did find was a problem with GetTextExtentPoint32( STRING, [FONT] ) reported to always deliver values that were too large. I didn't investigate, but it might be related to what I'm seeing.

Well, yes - same problem here as one of the problems I found with fonts: I've now tested the output of GetTextExtentPoint32( STRING, [FONT] ) and (on my system) it's too large; the size correction is the same in principle as that for a Font - screens are often assumed to be 72 pixels per inch - but for PCs that is actually (supposed to be) 96 pixels per inch. I've compared the output of the method with actual pixels measured on a screen capture.

Here's what I use to get a Label's actual size in pixels (using the default font):

# Calculate a label's actual size
sub calc_labelsize {
# NOTE: as with Font size/height, to get the actual size in pixels, the difference
# between 72 pixels/inch and 96 pixels/inch has to be taken into account
        my ($Label) = @_;
        my ($lw, $lh) = $W->GetTextExtentPoint32( $Label->Text() );
        $lw = int( $lw*72/96+0.5 );
        $lh = int( $lh*72/96+0.5 );
        return ($lw, $lh)
}

>I don't know if it's platform dependent (I'm working on Win2000 SP1) but I hope not: if so, my workaround would not work on other platfoms (Win95/98/ME?).

It works for me on Win2K - I would appreciate if some people could test my workarounds on other versions of Windows (95/98/me/NT) and report back!

Thanks for any feedback.



Cheers,

Marjolein Katsma
HomeSite Help - http://hshelp.com/ - Extensions, Tips and Tools

RE: [perl-win32-gui-users] Win32::GUI::Label

[Jeremy A. <bc...@te...>]

Hi All

Thank you for your knowledge and help so far.

Hi, I have tried this procedure...it does make the labels transparent, but
it makes them hidden
how do i go about showing my text in the labels, using this procedure?

Jeremy

>I struggled for an entire night trying to figure this out. ;-)  Actually, I
>was trying to mimic Winamp's skins and while I'm not quite there, I can
>"skin" my GUI (okay, so it may be cheesy but it was fun to do).
>
>Here's how I did it:
>
>Create the window, create a label (the size of the window), fill the label
>with the bitmap, create two labels with the -bitmap & -notify options set.
>This allows the labels to respond to events but they don't actually
>"appear", they're "hidden".  If my memory serves me, I had to create the
>elements in this exact order, otherwise the "hidden" label events would not
>fire.
>
>Code sample is below.
>
>Jeremy Blonde
>
>$Window = Win32::GUI::Window->new(
>  -name    => "Window",
>  -text    => $PREFS{TITLE},
>  -pos     => [ $PREFS{LEFT},  $PREFS{TOP} ],
>  -size    => [ $PREFS{WIDTH}, $PREFS{HEIGHT} ],
>  -topmost => $PREFS{ONTOP},
>  -resizable => 0,
>);
>
>$Window->AddLabel(
>  -name   => "Background",
>  -pos    => [ 0, 49 ],
>  -size   => [ $Window->Width(), 35 ],
>  -bitmap => 1,
>);
>
>$Window->Background->SetImage($BACKGROUND);
>
># Creates the label for the About "button"
>$Window->AddLabel(
>  -name   => "About",
>  -pos    =>
>
>               $PREFS{ABOUTLEFT} + $Window->Background->Left(),
>               $PREFS{ABOUTTOP}  + $Window->Background->Top(),
>             ],
>  -size   => [ $PREFS{ABOUTWIDTH}, $PREFS{ABOUTHEIGHT} ],
>  -notify => 1,
>  -bitmap => 1,
>);
>
># Creates the label for the Preferences "button"
>$Window->AddLabel(
>  -name   => "Preferences",
>  -pos    =>
>
>               $PREFS{PREFSLEFT} + $Window->Background->Left(),
>               $PREFS{PREFSTOP}  + $Window->Background->Top(),
>             ],
>  -size   => [ $PREFS{PREFSWIDTH}, $PREFS{PREFSHEIGHT} ],
>  -notify => 1,
>  -bitmap => 1,
>);
>
>-----Original Message-----
>From: per...@li...
>[mailto:per...@li...]On Behalf Of
>Jeremy Aiyadurai
>Sent: Friday, May 11, 2001 9:28 PM
>To: per...@li...
>Subject: [perl-win32-gui-users] Win32::GUI::Label
>
>
>Hi all,
>
>Thankyou for your help so far.
>If you have not seen my previous email "about the console icons" please do
>so.
>
>my question is, I have made a bmp to cover the entire background of a
>window. how do I make all the labels transparent, to blend with the
>background image?
>
>
>Thankyou
>
>Jeremy
>
>
>
>
>
>
>
>
>_______________________________________________
>Perl-Win32-GUI-Users mailing list
>Per...@li...
>http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
>
>
>_________________________________________________________
>Do You Yahoo!?
>Get your free @yahoo.com address at http://mail.yahoo.com
>
>
>_______________________________________________
>Perl-Win32-GUI-Users mailing list
>Per...@li...
>http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
>

Re: [perl-win32-gui-users] Win32::GUI::Label

[Marjolein K. <win...@ja...>]

Now that reminds me... I have the exact opposite problem:

When using a bitmap image on a button, how do I make the bitmap transparent?

There is never transparency info in a bitmap as such, but apparently, given the right inforrmation, windows will treat the color of the pixel in the lower left corner as the "transparent" color. I know I've done this in other programming contexts. A "-style" setting, I'm guessing, but if so: which?

Sorry I don't have the answer to your problem - but the two might well be related.

At 18:28 2001-05-11 -0700, Jeremy Aiyadurai wrote:
>Hi all,
>
>Thankyou for your help so far.
>If you have not seen my previous email "about the console icons" please do so.
>
>my question is, I have made a bmp to cover the entire background of a
>window. how do I make all the labels transparent, to blend with the
>background image?
>
>
>Thankyou
>
>Jeremy



Cheers,

Marjolein Katsma
HomeSite Help - http://hshelp.com/ - Extensions, Tips and Tools

RE: [perl-win32-gui-users] Win32::GUI::Label

[Jeremy B. <sco...@ya...>]

I struggled for an entire night trying to figure this out. ;-)  Actually, I
was trying to mimic Winamp's skins and while I'm not quite there, I can
"skin" my GUI (okay, so it may be cheesy but it was fun to do).

Here's how I did it:

Create the window, create a label (the size of the window), fill the label
with the bitmap, create two labels with the -bitmap & -notify options set.
This allows the labels to respond to events but they don't actually
"appear", they're "hidden".  If my memory serves me, I had to create the
elements in this exact order, otherwise the "hidden" label events would not
fire.

Code sample is below.

Jeremy Blonde

$Window = Win32::GUI::Window->new(
  -name    => "Window",
  -text    => $PREFS{TITLE},
  -pos     => [ $PREFS{LEFT},  $PREFS{TOP} ],
  -size    => [ $PREFS{WIDTH}, $PREFS{HEIGHT} ],
  -topmost => $PREFS{ONTOP},
  -resizable => 0,
);

$Window->AddLabel(
  -name   => "Background",
  -pos    => [ 0, 49 ],
  -size   => [ $Window->Width(), 35 ],
  -bitmap => 1,
);

$Window->Background->SetImage($BACKGROUND);

# Creates the label for the About "button"
$Window->AddLabel(
  -name   => "About",
  -pos    =>

               $PREFS{ABOUTLEFT} + $Window->Background->Left(),
               $PREFS{ABOUTTOP}  + $Window->Background->Top(),
             ],
  -size   => [ $PREFS{ABOUTWIDTH}, $PREFS{ABOUTHEIGHT} ],
  -notify => 1,
  -bitmap => 1,
);

# Creates the label for the Preferences "button"
$Window->AddLabel(
  -name   => "Preferences",
  -pos    =>

               $PREFS{PREFSLEFT} + $Window->Background->Left(),
               $PREFS{PREFSTOP}  + $Window->Background->Top(),
             ],
  -size   => [ $PREFS{PREFSWIDTH}, $PREFS{PREFSHEIGHT} ],
  -notify => 1,
  -bitmap => 1,
);

-----Original Message-----
From: per...@li...
[mailto:per...@li...]On Behalf Of
Jeremy Aiyadurai
Sent: Friday, May 11, 2001 9:28 PM
To: per...@li...
Subject: [perl-win32-gui-users] Win32::GUI::Label


Hi all,

Thankyou for your help so far.
If you have not seen my previous email "about the console icons" please do
so.

my question is, I have made a bmp to cover the entire background of a
window. how do I make all the labels transparent, to blend with the
background image?


Thankyou

Jeremy








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


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

[perl-win32-gui-users] Win32::GUI::Label

[Jeremy A. <bc...@te...>]

Hi all,

Thankyou for your help so far.
If you have not seen my previous email "about the console icons" please do so.

my question is, I have made a bmp to cover the entire background of a
window. how do I make all the labels transparent, to blend with the
background image?


Thankyou

Jeremy

[perl-win32-gui-users] Win32::GUI::Icon and Win32::Console - an icon for a console

[Jeremy A. <bc...@te...>]

Hi all,

Thankyou for your help so far.

how do i get an icon to work for a console window...eg. i want to get rid
of the console-window-dos-prompt icon when i run my console program.


Thankyou

Jeremy

RE: [perl-win32-gui-users] Minimized GUI windows fall asleep

[Peter E. <Pet...@at...>]

Well, I'd believe the memory problem before anything else. This particular
script is quite hungry and eats up a whopping 22MB+. Heck, that's even more
than Outlook! Thanks for the food for thought.

> -----Original Message-----
> From: Piske, Harald [mailto:Har...@bo...]
> Sent: Friday, May 11, 2001 1:32 PM
> To: 'per...@li...'
> Subject: RE: [perl-win32-gui-users] Minimized GUI windows fall asleep
> 
> 
> Never had that at all, and I love to keep my taskbar stuffed 
> with around 15
> open apps, 10 of which are min'd while I deal with 3 of the 
> other 5. Even on
> mon mornings, after around 64 hrs of win-dozing, they come up 
> normally ...
> that is, as painfully slow as is usual for this OS ;-)
> 
> There must be something in your water. Does it only affect 
> your Win32::GUI
> wins? Then you should check their ... erm ... sleep cycle by 
> i.e. having a
> timer sub that changes the caption. That way, you can see right in the
> taskbar button of your app, if it still breathes.
> 
> One other suspicion: you're short of RAM and have something 
> running with a
> memory leak. I have an app with no leak, but reeeeeeally 
> memory hungry. Once
> that thing is up, it surges all available real memory and 
> when I reactivate
> one of the other windows, it takes like until next tuesday 
> before they have
> swapped themselves out of virtual and into real memory. One 
> other prog, that
> does have a leak, slowly gobbles all RAM until everything 
> else stalls. If,
> at that point, I close it, it looks frozen, but actually 
> needs about 20%
> *more* RAM to shut down - I suspect a side effect of the 
> garbage collection,
> trying to free the leaked resources and having to build a 
> hash or something
> like that. After a couple of minutes, it really closes and 
> everything is
> back to normal.
> 
> If on NT or 2k, keep the task manager open and watch, which 
> app or process
> burns the CPU power and RAM. If on 9x, the task scheduler 
> worx differently
> there and you can have one malfunctioning app freezing all 
> others, given a
> few conditions.
> 
> One last idea: when did you last check for viruses?
> 
> | -----Original Message-----
> | From: Peter Eisengrein [mailto:Pet...@at...]
> | Sent: Friday, May 11, 2001 8:30
> | To: Perl GUI Mail list (E-mail)
> | Subject: [perl-win32-gui-users] Minimized GUI windows fall asleep
> | 
> | 
> | Anyone had a problem with a Window that "falls asleep" if 
> it has been
> | minimized for a while. I have this problem and it takes quite 
> | a while (> 10
> | minutes sometimes) for the system to return it when it is 
> | restored. This is
> | especially prevalent in Win98 but have also seen it on NT4.0.
> | 
> | Is there a fix other than "don't minimize the window"?
> | 
> | _______________________________________________
> | Perl-Win32-GUI-Users mailing list
> | Per...@li...
> | http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
> | 
> 
> _______________________________________________
> Perl-Win32-GUI-Users mailing list
> Per...@li...
> http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
> 

RE: [perl-win32-gui-users] keeping a window open

[Piske, H. <Har...@bo...>]

   sub Exit_Click {
    exit;
    }

this works, pretty much like the engine stops if you hold the brake, put in
any gear and release the clutch. The way it was designed to be is to return
-1, which tells Win32::GUI to exit the message loop and return from the
Win32::GUI::Dialog() call back to your script. I say this because it implies
that Dialog() returns back to your script whenever any of your event subs
happens to return something that looks like a negative number.
 
You have exec() (or, system() by now, or backtick or fork or whatever) as
the last line of your event. If this returns a negative number, your
launcher app will again stop. Also, since your script is still alive, it
executes everything after the Dialog() call, which you might not expect if
you are used to killing your app with exit from out of an event sub.

RE: [perl-win32-gui-users] Minimized GUI windows fall asleep

[Piske, H. <Har...@bo...>]

Never had that at all, and I love to keep my taskbar stuffed with around 15
open apps, 10 of which are min'd while I deal with 3 of the other 5. Even on
mon mornings, after around 64 hrs of win-dozing, they come up normally ...
that is, as painfully slow as is usual for this OS ;-)

There must be something in your water. Does it only affect your Win32::GUI
wins? Then you should check their ... erm ... sleep cycle by i.e. having a
timer sub that changes the caption. That way, you can see right in the
taskbar button of your app, if it still breathes.

One other suspicion: you're short of RAM and have something running with a
memory leak. I have an app with no leak, but reeeeeeally memory hungry. Once
that thing is up, it surges all available real memory and when I reactivate
one of the other windows, it takes like until next tuesday before they have
swapped themselves out of virtual and into real memory. One other prog, that
does have a leak, slowly gobbles all RAM until everything else stalls. If,
at that point, I close it, it looks frozen, but actually needs about 20%
*more* RAM to shut down - I suspect a side effect of the garbage collection,
trying to free the leaked resources and having to build a hash or something
like that. After a couple of minutes, it really closes and everything is
back to normal.

If on NT or 2k, keep the task manager open and watch, which app or process
burns the CPU power and RAM. If on 9x, the task scheduler worx differently
there and you can have one malfunctioning app freezing all others, given a
few conditions.

One last idea: when did you last check for viruses?

| -----Original Message-----
| From: Peter Eisengrein [mailto:Pet...@at...]
| Sent: Friday, May 11, 2001 8:30
| To: Perl GUI Mail list (E-mail)
| Subject: [perl-win32-gui-users] Minimized GUI windows fall asleep
| 
| 
| Anyone had a problem with a Window that "falls asleep" if it has been
| minimized for a while. I have this problem and it takes quite 
| a while (> 10
| minutes sometimes) for the system to return it when it is 
| restored. This is
| especially prevalent in Win98 but have also seen it on NT4.0.
| 
| Is there a fix other than "don't minimize the window"?
| 
| _______________________________________________
| Perl-Win32-GUI-Users mailing list
| Per...@li...
| http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
| 

Re: [perl-win32-gui-users] keeping a window open

[Chris E. <ce...@mi...>]

That did it. Thanks!

Chris


----- Original Message ----- 
From: "Frazier, Joe Jr" <Joe...@Pe...>
To: <per...@li...>
Sent: Friday, May 11, 2001 9:11 AM
Subject: RE: [perl-win32-gui-users] keeping a window open


>perldoc -f exec
 exec LIST
 exec PROGRAM LIST
         The `exec()' function executes a system command *AND
         NEVER RETURNS* - use `system()' instead of `exec()' if
         you want it to return. It fails and returns FALSE only
         if the command does not exist *and* it is executed
         directly instead of via your system's command shell (see
         below).
 
note the AND NEVER RETURNS part.  
 
You may want system, but that locks the toolbar until the application
returns.    You probably want to use fork if you are running Perl 5.6.
Win32::Process may might also be an alternative, but using both are
outside of my expertise as far as returning messages from the CALLED
back to the CALLEE( your program). 
 
Also, I would probably set a return 1 statement at the end of each
event.  Not sure it this is needed or not, perhaps someone else could
verify.  
 

-----Original Message-----
From: Chris Etzel [mailto:ce...@mi...]
Sent: Thursday, May 10, 2001 9:38 PM
To: per...@li...
Subject: Re: [perl-win32-gui-users] keeping a window open


yes. 
 
Here is the code. It's messy, but commented ...
 
use Win32::GUI;
#($DOS) = Win32::GUI::GetPerlWindow();
# Win32::GUI::Hide($DOS);
 
# this is basically a test to learn Win32::GUI
my $Toolbar=Win32::GUI::Window->new(
     -name=>'Toolbar',
     -size=>[600,75],
     -title=>"PERL ToolBar",
     );
 
# launcher button on main bar
my $launcher=$Toolbar->AddButton(
     -name=>'launcher',
     -pos=>[10,10],
     -text=>"Launcher",
     );
$Toolbar->launcher->Show();
 

#launch the launcher panel and create panel as separate window
#this is where I can type a command in and run it directly from <STDIN>
 sub launcher_Click{
   my $Launcher=Win32::GUI::Window->new( 
          -name=>'CommandLauncher',
          -size=>[200,75],
          -title=>"Launcher",
          );
   $Launcher->Show();
 

   my $textfield=$Launcher->AddTextfield(
           -name=>'CommandBox',
           -background=>[255,255,0],
           -pos=>[10,10],
           -size=>[150,22],
           );
 
#run button on launcher window
   my $runButton-$Launcher->AddButton(
        -name=>'runbutton',
        -pos=>[160,10],
        -text=>'Run',
        -size=>[30,22],
        );
   $Launcher->runbutton->Show();
 
# this executes the user input of $textfield 
    sub runbutton_Click{
     exec($textfield->Text);
    }
   }
my $NotePadButton=$Toolbar->AddButton(
        -name=>'notepad',
        -pos=>[75,10],
        -text=>'notepad',
           );
 
  
$Toolbar->notepad->Show();
  sub notepad_Click{
   exec("notepad.exe");
    }
 
#exit the program. This is a test to figure out how to keep the 
#toolbar floating without exiting on button_Click. 
 

my $ExitButton=$Toolbar->AddButton(
     -name=>'Exit',
     -pos=>[150,10],
     -text=>'Exit Toolbar',
     );
     
   sub Exit_Click {
    exit;
    }
   
 

$Toolbar->Show();
Win32::GUI::Dialog();
 
# commented this out trying to troubleshoot 
#  sub Toolbar_Terminate{
#   -1;
#  }
 
    
 
 
 
 

----- Original Message ----- 
From: Peter Eisengrein <mailto:Pet...@at...>  
To: 'per...@li...'
<mailto:'per...@li...'>  
Sent: Friday, May 11, 2001 7:31 AM
Subject: RE: [perl-win32-gui-users] keeping a window open

Do you have the Win::GUI::Dialog(); statement in there?
 
 

-----Original Message-----
From: Chris Etzel [ mailto:ce...@mi...
<mailto:ce...@mi...> ]
Sent: Thursday, May 10, 2001 8:03 PM
To: per...@li...
<mailto:per...@li...> 
Subject: [perl-win32-gui-users] keeping a window open


Ok, it may be that I have hacking at my script so long I am cross-eyed,
but it is too much fun to stop now. I figured the best way to learn the
Win32::GUI was to write a cool little toolbar with a couple of my most
used apps on it. It floats and brings up my apps like it should, but it
closes after I click the button for the app. How do I keep the script
open until I exit it manually? 
 
I have an exit button but for the life of me I can't figure out how to
tell it 
    unless I click EXIT, stay open.
 
I will kick myself in advance in case this is a basic perl coding issue
and not a Win32gui issue.
 
Thanks, 
Chris


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

[perl-win32-gui-users] Minimized GUI windows fall asleep

[Peter E. <Pet...@at...>]

Anyone had a problem with a Window that "falls asleep" if it has been
minimized for a while. I have this problem and it takes quite a while (> 10
minutes sometimes) for the system to return it when it is restored. This is
especially prevalent in Win98 but have also seen it on NT4.0.

Is there a fix other than "don't minimize the window"?

RE: [perl-win32-gui-users] keeping a window open

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

>perldoc -f exec
 exec LIST
 exec PROGRAM LIST
         The `exec()' function executes a system command *AND
         NEVER RETURNS* - use `system()' instead of `exec()' if
         you want it to return. It fails and returns FALSE only
         if the command does not exist *and* it is executed
         directly instead of via your system's command shell (see
         below).
=20
note the AND NEVER RETURNS part. =20
=20
You may want system, but that locks the toolbar until the application
returns.    You probably want to use fork if you are running Perl 5.6.
Win32::Process may might also be an alternative, but using both are
outside of my expertise as far as returning messages from the CALLED
back to the CALLEE( your program).=20
=20
Also, I would probably set a return 1 statement at the end of each
event.  Not sure it this is needed or not, perhaps someone else could
verify. =20
=20

-----Original Message-----
From: Chris Etzel [mailto:ce...@mi...]
Sent: Thursday, May 10, 2001 9:38 PM
To: per...@li...
Subject: Re: [perl-win32-gui-users] keeping a window open


yes.=20
=20
Here is the code. It's messy, but commented ...
=20
use Win32::GUI;
#($DOS) =3D Win32::GUI::GetPerlWindow();
# Win32::GUI::Hide($DOS);
=20
# this is basically a test to learn Win32::GUI
my $Toolbar=3DWin32::GUI::Window->new(
     -name=3D>'Toolbar',
     -size=3D>[600,75],
     -title=3D>"PERL ToolBar",
     );
=20
# launcher button on main bar
my $launcher=3D$Toolbar->AddButton(
     -name=3D>'launcher',
     -pos=3D>[10,10],
     -text=3D>"Launcher",
     );
$Toolbar->launcher->Show();
=20

#launch the launcher panel and create panel as separate window
#this is where I can type a command in and run it directly from <STDIN>
 sub launcher_Click{
   my $Launcher=3DWin32::GUI::Window->new(=20
          -name=3D>'CommandLauncher',
          -size=3D>[200,75],
          -title=3D>"Launcher",
          );
   $Launcher->Show();
=20

   my $textfield=3D$Launcher->AddTextfield(
           -name=3D>'CommandBox',
           -background=3D>[255,255,0],
           -pos=3D>[10,10],
           -size=3D>[150,22],
           );
=20
#run button on launcher window
   my $runButton-$Launcher->AddButton(
        -name=3D>'runbutton',
        -pos=3D>[160,10],
        -text=3D>'Run',
        -size=3D>[30,22],
        );
   $Launcher->runbutton->Show();
=20
# this executes the user input of $textfield=20
    sub runbutton_Click{
     exec($textfield->Text);
    }
   }
my $NotePadButton=3D$Toolbar->AddButton(
        -name=3D>'notepad',
        -pos=3D>[75,10],
        -text=3D>'notepad',
           );
=20
 =20
$Toolbar->notepad->Show();
  sub notepad_Click{
   exec("notepad.exe");
    }
=20
#exit the program. This is a test to figure out how to keep the=20
#toolbar floating without exiting on button_Click.=20
=20

my $ExitButton=3D$Toolbar->AddButton(
     -name=3D>'Exit',
     -pos=3D>[150,10],
     -text=3D>'Exit Toolbar',
     );
    =20
   sub Exit_Click {
    exit;
    }
  =20
=20

$Toolbar->Show();
Win32::GUI::Dialog();
=20
# commented this out trying to troubleshoot=20
#  sub Toolbar_Terminate{
#   -1;
#  }
=20
   =20
=20
=20
=20
=20

----- Original Message -----=20
From: Peter Eisengrein <mailto:Pet...@at...> =20
To: 'per...@li...'
<mailto:'per...@li...'> =20
Sent: Friday, May 11, 2001 7:31 AM
Subject: RE: [perl-win32-gui-users] keeping a window open

Do you have the Win::GUI::Dialog(); statement in there?
=20
=20

-----Original Message-----
From: Chris Etzel [ mailto:ce...@mi...
<mailto:ce...@mi...> ]
Sent: Thursday, May 10, 2001 8:03 PM
To: per...@li...
<mailto:per...@li...>=20
Subject: [perl-win32-gui-users] keeping a window open


Ok, it may be that I have hacking at my script so long I am cross-eyed,
but it is too much fun to stop now. I figured the best way to learn the
Win32::GUI was to write a cool little toolbar with a couple of my most
used apps on it. It floats and brings up my apps like it should, but it
closes after I click the button for the app. How do I keep the script
open until I exit it manually?=20
=20
I have an exit button but for the life of me I can't figure out how to
tell it=20
    unless I click EXIT, stay open.
=20
I will kick myself in advance in case this is a basic perl coding issue
and not a Win32gui issue.
=20
Thanks,=20
Chris

RE: [perl-win32-gui-users] keeping a window open

[Jeremy B. <sco...@ya...>]

You are going to want to change 'exec' to 'system'.  That should take care
of the problem.

Check the 'perlfunc' section of the Perl documentation to note the
differences between 'exec' and 'system'.

Jeremy Blonde

-----Original Message-----
From: per...@li...
[mailto:per...@li...]On Behalf Of Chris
Etzel
Sent: Thursday, May 10, 2001 9:38 PM
To: per...@li...
Subject: Re: [perl-win32-gui-users] keeping a window open


yes.

Here is the code. It's messy, but commented ...

use Win32::GUI;
#($DOS) = Win32::GUI::GetPerlWindow();
# Win32::GUI::Hide($DOS);

# this is basically a test to learn Win32::GUI
my $Toolbar=Win32::GUI::Window->new(
     -name=>'Toolbar',
     -size=>[600,75],
     -title=>"PERL ToolBar",
     );

# launcher button on main bar
my $launcher=$Toolbar->AddButton(
     -name=>'launcher',
     -pos=>[10,10],
     -text=>"Launcher",
     );
$Toolbar->launcher->Show();


#launch the launcher panel and create panel as separate window
#this is where I can type a command in and run it directly from <STDIN>
 sub launcher_Click{
   my
uncher=Win32::GUI::Window->new( 
          -name=>'CommandLauncher',
          -size=>[200,75],
          -title=>"Launcher",
          );
   $Launcher->Show();


   my $textfield=$Launcher->AddTextfield(
           -name=>'CommandBox',
           -background=>[255,255,0],
           -pos=>[10,10],
           -size=>[150,22],
           );

#run button on launcher window
   my $runButton-$Launcher->AddButton(
        -name=>'runbutton',
        -pos=>[160,10],
        -text=>'Run',
        -size=>[30,22],
        );
   $Launcher->runbutton->Show();

# this executes the user input of $textfield 
    sub runbutton_Click{
     exec($textfield->Text);
    }
   }
my $NotePadButton=$Toolbar->AddButton(
        -name=>'notepad',
        -pos=>[75,10],
        -text=>'notepad',
           );

  
$Toolbar->notepad->Show();
  sub notepad_Click{
   exec("notepad.exe");
    }

#exit the program. This is a test to figure out how to keep the 
#toolbar floating without exiting on button_Click. 


my $ExitButton=$Toolbar->AddButton(
     -name=>'Exit',
     -pos=>[150,10],
     -text=>'Exit Toolbar',
     );
     
   sub Exit_Click {
    exit;
    }
   


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

# commented this out trying to troubleshoot 
#  sub Toolbar_Terminate{
#   -1;
#  }

    




----- Original Message ----- 
From: Peter Eisengrein 
To: 'per...@li...' 
Sent: Friday, May 11, 2001 7:31 AM
Subject: RE: [perl-win32-gui-users] keeping a window open


Do you have the Win::GUI::Dialog(); statement in there?
 
 
-----Original Message-----
From: Chris Etzel [mailto:ce...@mi...]
Sent: Thursday, May 10, 2001 8:03 PM
To: per...@li...
Subject: [perl-win32-gui-users] keeping a window open


Ok, it may be that I have hacking at my script so long I am cross-eyed, but it is too much fun to stop now. I figured the best way to learn the Win32::GUI was to write a cool little toolbar with a couple of my most used apps on it. It floats and brings up my apps like it should, but it closes after I click the button for the app. How do I keep the script open until I exit it manually? 

I have an exit button but for the life of me I can't figure out how to tell it 
    unless I click EXIT, stay open.

I will kick myself in advance in case this is a basic perl coding issue and not a Win32gui issue.

Thanks, 
Chris


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

RE: [perl-win32-gui-users] keeping a window open

[Peter E. <Pet...@at...>]

replace exec with system and it works. exec tells perl to run something and
quit.

-----Original Message-----
From: Chris Etzel [mailto:ce...@mi...]
Sent: Thursday, May 10, 2001 9:38 PM
To: per...@li...
Subject: Re: [perl-win32-gui-users] keeping a window open


yes. 
 
Here is the code. It's messy, but commented ...
 
use Win32::GUI;
#($DOS) = Win32::GUI::GetPerlWindow();
# Win32::GUI::Hide($DOS);
 
# this is basically a test to learn Win32::GUI
my $Toolbar=Win32::GUI::Window->new(
     -name=>'Toolbar',
     -size=>[600,75],
     -title=>"PERL ToolBar",
     );
 
# launcher button on main bar
my $launcher=$Toolbar->AddButton(
     -name=>'launcher',
     -pos=>[10,10],
     -text=>"Launcher",
     );
$Toolbar->launcher->Show();
 

#launch the launcher panel and create panel as separate window
#this is where I can type a command in and run it directly from <STDIN>
 sub launcher_Click{
   my $Launcher=Win32::GUI::Window->new( 
          -name=>'CommandLauncher',
          -size=>[200,75],
          -title=>"Launcher",
          );
   $Launcher->Show();
 

   my $textfield=$Launcher->AddTextfield(
           -name=>'CommandBox',
           -background=>[255,255,0],
           -pos=>[10,10],
           -size=>[150,22],
           );
 
#run button on launcher window
   my $runButton-$Launcher->AddButton(
        -name=>'runbutton',
        -pos=>[160,10],
        -text=>'Run',
        -size=>[30,22],
        );
   $Launcher->runbutton->Show();
 
# this executes the user input of $textfield 
    sub runbutton_Click{
     exec($textfield->Text);
    }
   }
my $NotePadButton=$Toolbar->AddButton(
        -name=>'notepad',
        -pos=>[75,10],
        -text=>'notepad',
           );
 
  
$Toolbar->notepad->Show();
  sub notepad_Click{
   exec("notepad.exe");
    }
 
#exit the program. This is a test to figure out how to keep the 
#toolbar floating without exiting on button_Click. 
 

my $ExitButton=$Toolbar->AddButton(
     -name=>'Exit',
     -pos=>[150,10],
     -text=>'Exit Toolbar',
     );
     
   sub Exit_Click {
    exit;
    }
   
 

$Toolbar->Show();
Win32::GUI::Dialog();
 
# commented this out trying to troubleshoot 
#  sub Toolbar_Terminate{
#   -1;
#  }
 
    
 
 
 
 

----- Original Message ----- 
From: Peter Eisengrein <mailto:Pet...@at...>  
To: 'per...@li...'
<mailto:'per...@li...'>  
Sent: Friday, May 11, 2001 7:31 AM
Subject: RE: [perl-win32-gui-users] keeping a window open

Do you have the Win::GUI::Dialog(); statement in there?
 
 

-----Original Message-----
From: Chris Etzel [ mailto:ce...@mi...
<mailto:ce...@mi...> ]
Sent: Thursday, May 10, 2001 8:03 PM
To: per...@li...
<mailto:per...@li...> 
Subject: [perl-win32-gui-users] keeping a window open


Ok, it may be that I have hacking at my script so long I am cross-eyed, but
it is too much fun to stop now. I figured the best way to learn the
Win32::GUI was to write a cool little toolbar with a couple of my most used
apps on it. It floats and brings up my apps like it should, but it closes
after I click the button for the app. How do I keep the script open until I
exit it manually? 
 
I have an exit button but for the life of me I can't figure out how to tell
it 
    unless I click EXIT, stay open.
 
I will kick myself in advance in case this is a basic perl coding issue and
not a Win32gui issue.
 
Thanks, 
Chris