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

RE: [perl-win32-gui-users] Taskbar & perl2exe -gui crash

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

I'm impressed - here's somebody who knows how to translate general ideas
into formal terminology. I don't have a solution at hand but with what you
say, you should be able to figure it out. I'm not aware of any ready-made
windoze function to give you the "effective desktop client area after
accounting for taskbars", but that does not mean there is none. I'm not
really at home in the win ref manuals.

Just one more note: my wife has a toolbar on her computer that is nothing
but a small collection of buttons. Looks like it was invented before Win98
came along with it's quick-launch thingy. That is only around 10% of the
screen width and just one row of icons high.

Have fun,
Harald

-----Original Message-----
From: Glenn Linderman [mailto:Gle...@ne...]
Sent: Montag, 28. Mai 2001 12:40
To: per...@li...
Subject: Re: [perl-win32-gui-users] Taskbar & perl2exe -gui crash


By "more general", I was looking for "all toolbars that are docked to the
edge
of the screen".

I'm pretty much a Windows-idiot, although pretty good at programming generic
Perl, so I'm still stumbling over the Windows terminology.

So how do you tell if a windows is "topmost"?  Maybe "all toolbars that are
docked to the edge of the screen" is somewhat equivalent to "all topmost
windows
that abut an edge of the screen and are really long and thin" ???  Maybe
"abut
an edge" means within "0 to -5 pixels" of the edge ???  Maybe "really long"
in
that means at least 90% of the dimension of the srceen" ???  I'm not sure
how
some of those toolbars interact in the corners, to know if 90% is right, or
if
maybe one should find all the "topmost" windows that "abut an edge" and then
iterate several times looking for those that "cover 100% of the remaining
space"
???

How do non-perl programs do it?  How does "maximize" know how to  leave the
toolbars visible?  Is there a Windows call to figure that out?


"Piske, Harald" wrote:

> More general ... hm. What do you mean? All the topmost windows? I think
the
> problem is too varied for a general solution. If you don't know the class
> names of the windows you want to find the coordinates of, how do you know
> which ones to choose? Well, you might go and take all the windows that are
> topmost, but that includes error messages and the task manager and who
knows
> what else, so you might not find any space on the desktop for yourself.
>
> Maybe you want to have an ini-file stating the names of windows that may
be
> present and if they are, consider their boundaries. See below for a small
> loop to display all the classnames.
>
> $_ = $Main->GetWindow (GW_HWNDLAST);
> do {
>     print Win32::GUI::GetClassName ($_), "\n"
>         if Win32::GUI::IsVisible ($_);
> } while $_ = Win32::GUI::GetWindow ($_, GW_HWNDPREV);
>
> I have a demo-script at www.fairymails.com/perl/, alone.pl, which uses a
> loop like this not to get the names of windows, but simply hide them -
> including the task bar - to claim 100% of the desktop.
>
> -----Original Message-----
> From: Glenn Linderman [mailto:Gle...@ne...]
> Sent: Samstag, 26. Mai 2001 13:54
> To: per...@li...
> Subject: Re: [perl-win32-gui-users] Taskbar & perl2exe -gui crash
>
> Indeed, this works.  I've long wondered about a way to do it, and I've now
> incorporated this into my (only) Win32::GUI program.  I am planning to
write
> some more Win32::GUI programs soon.  It seems, though, that this solution
> isn't
> completely general.  While I don't personally use it anymore, I recall MS
> Office
> had an optional taskbar that could be docked similarly to the Windows
> taskbar.
> And some laptops have "power management toolbars".  etc.
>
> Does anyone know of a more general technique for avoiding all the
> toolbars/taskbars that might nibble away at the edges of the desktop?
>
> _______________________________________________
> Perl-Win32-GUI-Users mailing list
> Per...@li...
> http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users

--
Glenn
=====
Due to the current economic situation, the light at the
end of the tunnel will be turned off until further notice.



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

Re: [perl-win32-gui-users] Taskbar & perl2exe -gui crash

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

By "more general", I was looking for "all toolbars that are docked to the edge
of the screen".

I'm pretty much a Windows-idiot, although pretty good at programming generic
Perl, so I'm still stumbling over the Windows terminology.

So how do you tell if a windows is "topmost"?  Maybe "all toolbars that are
docked to the edge of the screen" is somewhat equivalent to "all topmost windows
that abut an edge of the screen and are really long and thin" ???  Maybe "abut
an edge" means within "0 to -5 pixels" of the edge ???  Maybe "really long" in
that means at least 90% of the dimension of the srceen" ???  I'm not sure how
some of those toolbars interact in the corners, to know if 90% is right, or if
maybe one should find all the "topmost" windows that "abut an edge" and then
iterate several times looking for those that "cover 100% of the remaining space"
???

How do non-perl programs do it?  How does "maximize" know how to  leave the
toolbars visible?  Is there a Windows call to figure that out?


"Piske, Harald" wrote:

> More general ... hm. What do you mean? All the topmost windows? I think the
> problem is too varied for a general solution. If you don't know the class
> names of the windows you want to find the coordinates of, how do you know
> which ones to choose? Well, you might go and take all the windows that are
> topmost, but that includes error messages and the task manager and who knows
> what else, so you might not find any space on the desktop for yourself.
>
> Maybe you want to have an ini-file stating the names of windows that may be
> present and if they are, consider their boundaries. See below for a small
> loop to display all the classnames.
>
> $_ = $Main->GetWindow (GW_HWNDLAST);
> do {
>     print Win32::GUI::GetClassName ($_), "\n"
>         if Win32::GUI::IsVisible ($_);
> } while $_ = Win32::GUI::GetWindow ($_, GW_HWNDPREV);
>
> I have a demo-script at www.fairymails.com/perl/, alone.pl, which uses a
> loop like this not to get the names of windows, but simply hide them -
> including the task bar - to claim 100% of the desktop.
>
> -----Original Message-----
> From: Glenn Linderman [mailto:Gle...@ne...]
> Sent: Samstag, 26. Mai 2001 13:54
> To: per...@li...
> Subject: Re: [perl-win32-gui-users] Taskbar & perl2exe -gui crash
>
> Indeed, this works.  I've long wondered about a way to do it, and I've now
> incorporated this into my (only) Win32::GUI program.  I am planning to write
> some more Win32::GUI programs soon.  It seems, though, that this solution
> isn't
> completely general.  While I don't personally use it anymore, I recall MS
> Office
> had an optional taskbar that could be docked similarly to the Windows
> taskbar.
> And some laptops have "power management toolbars".  etc.
>
> Does anyone know of a more general technique for avoiding all the
> toolbars/taskbars that might nibble away at the edges of the desktop?
>
> _______________________________________________
> Perl-Win32-GUI-Users mailing list
> Per...@li...
> http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users

--
Glenn
=====
Due to the current economic situation, the light at the
end of the tunnel will be turned off until further notice.

RE: [perl-win32-gui-users] Taskbar & perl2exe -gui crash

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

More general ... hm. What do you mean? All the topmost windows? I think the
problem is too varied for a general solution. If you don't know the class
names of the windows you want to find the coordinates of, how do you know
which ones to choose? Well, you might go and take all the windows that are
topmost, but that includes error messages and the task manager and who knows
what else, so you might not find any space on the desktop for yourself.

Maybe you want to have an ini-file stating the names of windows that may be
present and if they are, consider their boundaries. See below for a small
loop to display all the classnames.

$_ = $Main->GetWindow (GW_HWNDLAST);
do {
    print Win32::GUI::GetClassName ($_), "\n"
        if Win32::GUI::IsVisible ($_);
} while $_ = Win32::GUI::GetWindow ($_, GW_HWNDPREV);

I have a demo-script at www.fairymails.com/perl/, alone.pl, which uses a
loop like this not to get the names of windows, but simply hide them -
including the task bar - to claim 100% of the desktop.

-----Original Message-----
From: Glenn Linderman [mailto:Gle...@ne...]
Sent: Samstag, 26. Mai 2001 13:54
To: per...@li...
Subject: Re: [perl-win32-gui-users] Taskbar & perl2exe -gui crash


Indeed, this works.  I've long wondered about a way to do it, and I've now
incorporated this into my (only) Win32::GUI program.  I am planning to write
some more Win32::GUI programs soon.  It seems, though, that this solution
isn't
completely general.  While I don't personally use it anymore, I recall MS
Office
had an optional taskbar that could be docked similarly to the Windows
taskbar.
And some laptops have "power management toolbars".  etc.

Does anyone know of a more general technique for avoiding all the
toolbars/taskbars that might nibble away at the edges of the desktop?

RE: [perl-win32-gui-users] Taskbar & perl2exe -gui crash

[Dave <da...@sk...>]

I have had the same problem you mentioned about perl2exe compiled apps
crashing on exit. If you come across a solution please let me know. 

Thanks, 
Dave

> -----Original Message-----
> From: per...@li...
[mailto:perl-win32-
> gui...@li...] On Behalf Of Glenn Linderman
> Sent: Saturday, May 26, 2001 4:54 PM
> To: per...@li...
> Subject: Re: [perl-win32-gui-users] Taskbar & perl2exe -gui crash
> 
> Indeed, this works.  I've long wondered about a way to do it, and I've
now
> incorporated this into my (only) Win32::GUI program.  I am planning to
> write
> some more Win32::GUI programs soon.  It seems, though, that this
solution
> isn't
> completely general.  While I don't personally use it anymore, I recall
MS
> Office
> had an optional taskbar that could be docked similarly to the Windows
> taskbar.
> And some laptops have "power management toolbars".  etc.
> 
> Does anyone know of a more general technique for avoiding all the
> toolbars/taskbars that might nibble away at the edges of the desktop?
> 
> 
> "Piske, Harald" wrote:
> 
> > $_ = Win32::GUI::FindWindow ("Shell_TrayWnd", "");
> > @_ = Win32::GUI::GetWindowRect ($_);
> >
> > $width = $_[2] - $_[0];
> > $height = $_[3] - $_[1];
> >
> > tested on Win2k and Win98. Interestingly, the position of the
taskbar is
> > slightly off the screen (-2).
> >
> > Note that the taskbar can be moved to each of the four window edges
> (eight
> > on dual-screen, which would look like off the desktop), so don't put
> your
> > program fixed at (0,0). I have mine upright at the left side instead
of
> flat
> > at the bottom. If it takes up less of the vertical extend, which
> programs
> > use for status bars, tool bars, menu bars and so on. Take web
browsers
> for
> > instance. Web pages are usually longer than the screen height but
less
> wide
> > than the screen width.
> >
> > Have fun,
> > Harald
> >
> > | -----Original Message-----
> > | From: Webmaster CZ [mailto:web...@cy...]
> > | Sent: Wednesday, May 23, 2001 12:51
> > | To: per...@li...
> > | Subject: [perl-win32-gui-users] Taskbar & perl2exe -gui crash
> > |
> > |
> > | Hi !
> > |
> > | I have two problems:
> > |
> > | a)
> > | My program start in maximal width & height with this code:
> > |
> > | ---------Code----------------
> > | $screensize        = Win32::GUI::GetDesktopWindow();
> > | $screensize_width  = Win32::GUI::Width($screensize);
> > | $screensize_height = Win32::GUI::Height($screensize);
> > | ---------Code----------------
> > |
> > | The problem is, that i must subtract the size of the Taskbar...
> > | so how can i read the size (height) of it ????
> > |
> > |
> > | b)
> > | If i compile my program with perl2exe and "-gui", then the
> > | program crash on exit.... ever: the "exit code" are:
> > |
> > | -----------Code-----------
> > | sub Window_Terminate {
> > |     return -1;
> > | }
> > |
> > | sub Exit_Click {
> > |     return -1;
> > | }
> > | ------------Code---------
> > |
> > | Any idea ???
> > |
> > |
> > |
> > | cu
> > | Thorsten Sommer
> > |
> > |
> > | _______________________________________________
> > | 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
> 
> --
> Glenn
> =====
> Due to the current economic situation, the light at the
> end of the tunnel will be turned off until further notice.
> 
> 
> 
> _______________________________________________
> Perl-Win32-GUI-Users mailing list
> Per...@li...
> http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users

Re: [perl-win32-gui-users] Taskbar & perl2exe -gui crash

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

Indeed, this works.  I've long wondered about a way to do it, and I've now
incorporated this into my (only) Win32::GUI program.  I am planning to write
some more Win32::GUI programs soon.  It seems, though, that this solution isn't
completely general.  While I don't personally use it anymore, I recall MS Office
had an optional taskbar that could be docked similarly to the Windows taskbar.
And some laptops have "power management toolbars".  etc.

Does anyone know of a more general technique for avoiding all the
toolbars/taskbars that might nibble away at the edges of the desktop?


"Piske, Harald" wrote:

> $_ = Win32::GUI::FindWindow ("Shell_TrayWnd", "");
> @_ = Win32::GUI::GetWindowRect ($_);
>
> $width = $_[2] - $_[0];
> $height = $_[3] - $_[1];
>
> tested on Win2k and Win98. Interestingly, the position of the taskbar is
> slightly off the screen (-2).
>
> Note that the taskbar can be moved to each of the four window edges (eight
> on dual-screen, which would look like off the desktop), so don't put your
> program fixed at (0,0). I have mine upright at the left side instead of flat
> at the bottom. If it takes up less of the vertical extend, which programs
> use for status bars, tool bars, menu bars and so on. Take web browsers for
> instance. Web pages are usually longer than the screen height but less wide
> than the screen width.
>
> Have fun,
> Harald
>
> | -----Original Message-----
> | From: Webmaster CZ [mailto:web...@cy...]
> | Sent: Wednesday, May 23, 2001 12:51
> | To: per...@li...
> | Subject: [perl-win32-gui-users] Taskbar & perl2exe -gui crash
> |
> |
> | Hi !
> |
> | I have two problems:
> |
> | a)
> | My program start in maximal width & height with this code:
> |
> | ---------Code----------------
> | $screensize        = Win32::GUI::GetDesktopWindow();
> | $screensize_width  = Win32::GUI::Width($screensize);
> | $screensize_height = Win32::GUI::Height($screensize);
> | ---------Code----------------
> |
> | The problem is, that i must subtract the size of the Taskbar...
> | so how can i read the size (height) of it ????
> |
> |
> | b)
> | If i compile my program with perl2exe and "-gui", then the
> | program crash on exit.... ever: the "exit code" are:
> |
> | -----------Code-----------
> | sub Window_Terminate {
> |     return -1;
> | }
> |
> | sub Exit_Click {
> |     return -1;
> | }
> | ------------Code---------
> |
> | Any idea ???
> |
> |
> |
> | cu
> | Thorsten Sommer
> |
> |
> | _______________________________________________
> | 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

--
Glenn
=====
Due to the current economic situation, the light at the
end of the tunnel will be turned off until further notice.

Re: [perl-win32-gui-users] Taskbar & perl2exe -gui crash

[Webmaster C. <web...@cy...>]

Hi !

> $_ = Win32::GUI::FindWindow ("Shell_TrayWnd", "");
> @_ = Win32::GUI::GetWindowRect ($_);
> 
> $width = $_[2] - $_[0];
> $height = $_[3] - $_[1];

ok - thx ... works fine !!!!


cu
Thorsten S.

[perl-win32-gui-users] richedit

[Alex L. <sim...@ya...>]

Hi All: 

Does anyone know how to print out the sentence below
in a richedit control:  

      'see the fox jump' 

the word 'jump' is bold and is also green, while the
rest of the text is just plain black. 

Thanks in advance. 

Alex :)


=====
**************************
***** END OF MESSAGE *****

__________________________________________________
Do You Yahoo!?
Yahoo! Auctions - buy the things you want at great prices
http://auctions.yahoo.com/

[perl-win32-gui-users] Printing in windows

[Dave <da...@sk...>]

I was wondering what the best method is of sending text to a printer
attached to the computer running the application. I had read that you
can just open the LPT1 with a pipe, but that didn't work for me. 

Can anyone please point me to information on printing from within a
win32 gui app on a local printer? Most all information I have found has
been to print to a remote / networked printer. Possibly using the
standard windows printer dialog box would be great. 

Thanks in advance, 
Dave

RE: [perl-win32-gui-users] multiline Label

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

Try using a multiline, borderless, readonly text field ... will take a while
digging thru texpex and .h-files until you figure out what values to feed
-addstyle and -remstyle with, and maybe fiddle with colors. But when you've
found it all out, lemme know ... ;-)

nb, line breaks in textfields require crlf (\r\n), not just newline.

Have fun,
Harald

| -----Original Message-----
| From: Eoi...@de... [mailto:Eoi...@de...]
| Sent: Friday, May 25, 2001 1:48
[...]
| This Will Sound Silly 
| But How do Get A label to display the text the way I want it 
| without just wraping the text

RE: [perl-win32-gui-users] multiline Label

[<Eoi...@de...>]

This Will Sound Silly 
But How do Get A label to display the text the way I want it 
without just wraping the text

in other words how do I insert \n ,\r ,\t etc.......
Without getting a square where my "\n"  should be ..

This is what i've tried , plus a few other things

	$W->DisplayError->{-text} = "SDR For $barcode\n COULD NOT BE FOUND
!!";

this is what i'm getting
SDR For 12345? COULD NOT BE 
FOUND !!";


This is what I Want
   SDR For 12345 
COULD NOT BE FOUND !!";


Rgds  Eoin :
EMF2 Test Engineering
mailto:Eoi...@de...

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

Re: [perl-win32-gui-users] pathext issue with start, run vs command line

[SykkN <sy...@ho...>]

I do know that if you add a link to that file in your path it will work from
the run prompt.

    you can create "script.lnk" and type just "script" from the run prompt

it will run it without the ".lnk" file extension.  I use this feature all
the time to keep from using the mouse to double click everything.

-=SykkN=-
http://www.lessthan.org

----- Original Message -----
From: "Thomas, Timothy B" <tim...@lm...>
To: <per...@li...>
Sent: Wednesday, May 23, 2001 3:42 PM
Subject: [perl-win32-gui-users] pathext issue with start, run vs command
line


> This isn't strictly WIn32:GUI, but it's related. I have .pl and .gpl
> associated with perl.exe and guiperl.exe respectively where guiperl is the
> console-less executable. I also have the pathext environment variable set
to
> include .pl and .gpl. I also have all my useful scripts in one location
and
> that location is in the path. So this means I can run script.gpl by
entering
> just "script"  from anywhere on the system. This works great, the problem
> is, I can't do the same by clicking on Start then Run. If I enter my
script
> with the extension it works just fine, but without it, it doesn't find it.
> So it seems to be a PATHEXT issue. This seems to be the case for both
> Windows NT and Windows 2000. Has anyone tracked this problem down any
> further to determine why start, run doesn't work the same as the command
> prompt? Any solutions out there to this issue?
> Thanks,
> Tim Thomas
>
> _______________________________________________
> Perl-Win32-GUI-Users mailing list
> Per...@li...
> http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
>

[perl-win32-gui-users] Re: New Window

[Dave <da...@sk...>]

Thank you very much for all of your help. I took your advice and
arranged things better, added the $Win_Terminate without -1, removed one
Win32::GUI::Dialog(), changed the sub to only $Win->Show(); moved the
constructors to the top with the others. 

It turned out to be shear stupidity on my part that it didn't work, I
had named two buttons very similarly, and was using the wrong one :/
Guess I need more sleep. Sorry for wasting your time on this, but I do
appreciate all the advice, lessons learned :)

Thanks again, 
Dave McLaughlin

RE: [perl-win32-gui-users] Install

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

Thanks, but as stated below, my primary machine is running 5.005_3
version build 623 of activeperl and not 5.6.  I would appreciate the new
version though as I have another machine which IS running 5.6 and would
like to play with it.  I have to have both for my environment and cant
upgrade my current machine to 5.6 across all computers yet.

btw, why not do the ppm versions not have the docs?

> -----Original Message-----
> From: Piske, Harald [mailto:Har...@bo...]
> Sent: Thursday, May 24, 2001 14:40
> To: 'per...@li...'
> Subject: RE: [perl-win32-gui-users] Install
>=20
>=20
> Why do you want to go from very old to old? The latest=20
> version is 558, not
> 502. Take
> http://prdownloads.sourceforge.net/perl-win32-gui/Win32-GUI-0.
0.558-PPM-5.6.
zip
unzip it, change to the directory and then do

ppm install Win32-GUI.ppd

This will install the local file instead of trying to connect to an
online
repository.
I you have trouble downloading it (the prdownloads server of sourceforge
does seem to be somewhat unreliable), I can mail it to you. It's just
188k.

Have fun,
Harald

| -----Original Message-----
| From: Frazier, Joe Jr [mailto:Joe...@Pe...]
| Sent: Thursday, May 24, 2001 11:16
| To: per...@li...
| Subject: [perl-win32-gui-users] Install
|=20
|=20
| I have version Perl build 523 and Win32::GUI version 0.0.434=20
| and wish to
| upgrade.  I tried to download from :
| http://prdownloads.sourceforge.net/perl-win32-gui/Win32-GUI-0.
0.502-PPM-
| 5.005.zip and got a "Cannot find server or DNS Error"
|=20
| Is this available via ppm and if so, what is the repository path? =20
|=20
| _______________________________________________
| Perl-Win32-GUI-Users mailing list
| Per...@li...
| http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
|=20

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

RE: [perl-win32-gui-users] Install

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

Why do you want to go from very old to old? The latest version is 558, not
502. Take
http://prdownloads.sourceforge.net/perl-win32-gui/Win32-GUI-0.0.558-PPM-5.6.
zip
unzip it, change to the directory and then do

ppm install Win32-GUI.ppd

This will install the local file instead of trying to connect to an online
repository.
I you have trouble downloading it (the prdownloads server of sourceforge
does seem to be somewhat unreliable), I can mail it to you. It's just 188k.

Have fun,
Harald

| -----Original Message-----
| From: Frazier, Joe Jr [mailto:Joe...@Pe...]
| Sent: Thursday, May 24, 2001 11:16
| To: per...@li...
| Subject: [perl-win32-gui-users] Install
| 
| 
| I have version Perl build 523 and Win32::GUI version 0.0.434 
| and wish to
| upgrade.  I tried to download from :
| http://prdownloads.sourceforge.net/perl-win32-gui/Win32-GUI-0.
0.502-PPM-
| 5.005.zip and got a "Cannot find server or DNS Error"
| 
| Is this available via ppm and if so, what is the repository path?  
| 
| _______________________________________________
| Perl-Win32-GUI-Users mailing list
| Per...@li...
| http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
| 

[perl-win32-gui-users] Install

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

I have version Perl build 523 and Win32::GUI version 0.0.434 and wish to
upgrade.  I tried to download from :
http://prdownloads.sourceforge.net/perl-win32-gui/Win32-GUI-0.0.502-PPM-
5.005.zip and got a "Cannot find server or DNS Error"

Is this available via ppm and if so, what is the repository path? =20

RE: [perl-win32-gui-users] New window?

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

I copied your code into a script of mine and it worked. Please make sure you
have Win32-GUI 0.0.558 (in a dos window, run ppm query win32-gui).

As for your approach, I would recommend you create the dialogbox and all
it's controls outside the sub stored_Click, before you call
Win32::GUI::Dialog() and inside sub stored_Click, you just do $Win->Show().
That way, when you klick on 'stored' for the second time, you won't
re-create all the controls, but simply reuse them. In the sub Win_Terminate
(not the Window_Terminate for the main window, just the one for the
DialogBox), DON'T return -1, because that would end your only message loop
for both windows. Just do $Win->Hide(). That way, you will always be inside
one Win32::GUI::Dialog() call and only return from that when the main window
terminates.

Win32::GUI does no DestroyWindow calls, the windows only disappear from
memory after the script terminates. Meaning, you can go ahead and create
windows and controls dynamically inside _Click subs (or anywhere else), but
if you create the same DialogBox every time you use it, this will
effectively be a memory leak.

Have fun,
Harald

| -----Original Message-----
| From: Dave [mailto:da...@sk...]
| Sent: Thursday, May 24, 2001 9:20
| To: per...@li...
| Subject: [perl-win32-gui-users] New window?
| 
| 
| I am having a problem with a dialog box. The main problem is, it won't
| show up. Below is the code I am using to open a new window 
| from my main
| window when a button is pushed ( store ) . Before this code 
| is all of my
| normal application code ( which works fine ). I have tried it with and
| without the first and second Win32::GUI::Dialog(); entries. 
| Neither will
| make the new window appear. Can someone please tell me what I am doing
| wrong?
| 
| 
| <MainWindow GUI code is here >
| $MainWindow->Show();
| 
| Win32::GUI::Dialog();
| 
| <subs for main window are here>
| 
| sub stored_Click {
|       $Win=Win32::GUI::DialogBox->new(
| #      -left   => 341,
| #      -top    => 218,
|       -width  => 563,
|       -height => 368,
|       -name   => "Win",
|       -title   => "Window Title"
|       );
| 
| $Win->Show();
| 
| $Win->AddRichEdit(
|        -text    => "",
|        -name    => "RichEdit_1",
|        -left    => 1,
|        -top     => 1,
|        -width   => 552,
|        -height  => 306,
|       );
| 
| $Win->AddButton(
|        -text    => "Save",
|        -name    => "instrsave",
|        -left    => 132,
|        -top     => 316,
|        -width   => 90,
|        -height  => 21,
|        -foreground    => 0,
|       );
| 
| $Win->AddButton(
|        -text    => "Cancel",
|        -name    => "popupcancel",
|        -left    => 343,
|        -top     => 315,
|        -width   => 95,
|        -height  => 21,
|        -foreground    => 0,
|       );
| }
| Win32::GUI::Dialog();
| sub Window_Terminate {
|     return -1;
| }
| 
| sub Close_Click {
|     Window_Terminate();
| };
| 
| 
| _______________________________________________
| Perl-Win32-GUI-Users mailing list
| Per...@li...
| http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
| 

Re: [perl-win32-gui-users] New window?

[Erick B. <er...@je...>]

Dave,

It's probably a good idea to put the $Win->Show(); at the end of the
'stored_Click 'sub, that is, after you added all the controls. And from what I
remember, you should only call Win32::GUI::Dialog(); once.

regards,

erick bourgeois
never stop questionning
www.jeb.ca

----- Original Message -----
From: Dave <da...@sk...>
To: <per...@li...>
Sent: Thursday, May 24, 2001 9:19 AM
Subject: [perl-win32-gui-users] New window?


| I am having a problem with a dialog box. The main problem is, it won't
| show up. Below is the code I am using to open a new window from my main
| window when a button is pushed ( store ) . Before this code is all of my
| normal application code ( which works fine ). I have tried it with and
| without the first and second Win32::GUI::Dialog(); entries. Neither will
| make the new window appear. Can someone please tell me what I am doing
| wrong?
|
|
| <MainWindow GUI code is here >
| $MainWindow->Show();
|
| Win32::GUI::Dialog();
|
| <subs for main window are here>
|
| sub stored_Click {
|       $Win=Win32::GUI::DialogBox->new(
| #      -left   => 341,
| #      -top    => 218,
|       -width  => 563,
|       -height => 368,
|       -name   => "Win",
|       -title   => "Window Title"
|       );
|
| $Win->Show();
|
| $Win->AddRichEdit(
|        -text    => "",
|        -name    => "RichEdit_1",
|        -left    => 1,
|        -top     => 1,
|        -width   => 552,
|        -height  => 306,
|       );
|
| $Win->AddButton(
|        -text    => "Save",
|        -name    => "instrsave",
|        -left    => 132,
|        -top     => 316,
|        -width   => 90,
|        -height  => 21,
|        -foreground    => 0,
|       );
|
| $Win->AddButton(
|        -text    => "Cancel",
|        -name    => "popupcancel",
|        -left    => 343,
|        -top     => 315,
|        -width   => 95,
|        -height  => 21,
|        -foreground    => 0,
|       );
| }
| Win32::GUI::Dialog();
| sub Window_Terminate {
|     return -1;
| }
|
| sub Close_Click {
|     Window_Terminate();
| };
|
|
| _______________________________________________
| Perl-Win32-GUI-Users mailing list
| Per...@li...
| http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
|

[perl-win32-gui-users] New window?

[Dave <da...@sk...>]

I am having a problem with a dialog box. The main problem is, it won't
show up. Below is the code I am using to open a new window from my main
window when a button is pushed ( store ) . Before this code is all of my
normal application code ( which works fine ). I have tried it with and
without the first and second Win32::GUI::Dialog(); entries. Neither will
make the new window appear. Can someone please tell me what I am doing
wrong?


<MainWindow GUI code is here >
$MainWindow->Show();

Win32::GUI::Dialog();

<subs for main window are here>

sub stored_Click {
      $Win=Win32::GUI::DialogBox->new(
#      -left   => 341,
#      -top    => 218,
      -width  => 563,
      -height => 368,
      -name   => "Win",
      -title   => "Window Title"
      );

$Win->Show();

$Win->AddRichEdit(
       -text    => "",
       -name    => "RichEdit_1",
       -left    => 1,
       -top     => 1,
       -width   => 552,
       -height  => 306,
      );

$Win->AddButton(
       -text    => "Save",
       -name    => "instrsave",
       -left    => 132,
       -top     => 316,
       -width   => 90,
       -height  => 21,
       -foreground    => 0,
      );

$Win->AddButton(
       -text    => "Cancel",
       -name    => "popupcancel",
       -left    => 343,
       -top     => 315,
       -width   => 95,
       -height  => 21,
       -foreground    => 0,
      );
}
Win32::GUI::Dialog();
sub Window_Terminate {
    return -1;
}

sub Close_Click {
    Window_Terminate();
};

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

[Jeremy D. <jer...@ad...>]

Ah,

you just change the tab_click to tab_change...






At 09:13 21/05/01 +0100, you wrote:
>Hi,
>
>I am having a problem with tabstrips.
>
>  When selecting the tabs by mouse the fields hide and show as expected 
> but if I use the left and right arrow keys the tabs move but the fields 
> don't change (i.e. it still shows page 1). Is this something I am doing 
> wrong? I note that the example supplied does the same.
>
>Any help at all would be appreciated.
>
>
>
>_______________________________________________
>Perl-Win32-GUI-Users mailing list
>Per...@li...
>http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users

[perl-win32-gui-users] pathext issue with start, run vs command line

[Thomas, T. B <tim...@lm...>]

This isn't strictly WIn32:GUI, but it's related. I have .pl and .gpl
associated with perl.exe and guiperl.exe respectively where guiperl is the
console-less executable. I also have the pathext environment variable set to
include .pl and .gpl. I also have all my useful scripts in one location and
that location is in the path. So this means I can run script.gpl by entering
just "script"  from anywhere on the system. This works great, the problem
is, I can't do the same by clicking on Start then Run. If I enter my script
with the extension it works just fine, but without it, it doesn't find it.
So it seems to be a PATHEXT issue. This seems to be the case for both
Windows NT and Windows 2000. Has anyone tracked this problem down any
further to determine why start, run doesn't work the same as the command
prompt? Any solutions out there to this issue?
	Thanks,
		Tim Thomas

RE: [perl-win32-gui-users] Taskbar & perl2exe -gui crash

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

$_ = Win32::GUI::FindWindow ("Shell_TrayWnd", "");
@_ = Win32::GUI::GetWindowRect ($_);

$width = $_[2] - $_[0];
$height = $_[3] - $_[1];

tested on Win2k and Win98. Interestingly, the position of the taskbar is
slightly off the screen (-2).

Note that the taskbar can be moved to each of the four window edges (eight
on dual-screen, which would look like off the desktop), so don't put your
program fixed at (0,0). I have mine upright at the left side instead of flat
at the bottom. If it takes up less of the vertical extend, which programs
use for status bars, tool bars, menu bars and so on. Take web browsers for
instance. Web pages are usually longer than the screen height but less wide
than the screen width.

Have fun,
Harald

| -----Original Message-----
| From: Webmaster CZ [mailto:web...@cy...]
| Sent: Wednesday, May 23, 2001 12:51
| To: per...@li...
| Subject: [perl-win32-gui-users] Taskbar & perl2exe -gui crash
| 
| 
| Hi !
| 
| I have two problems:
| 
| a)
| My program start in maximal width & height with this code:
| 
| ---------Code----------------
| $screensize        = Win32::GUI::GetDesktopWindow();
| $screensize_width  = Win32::GUI::Width($screensize);
| $screensize_height = Win32::GUI::Height($screensize);
| ---------Code----------------
| 
| The problem is, that i must subtract the size of the Taskbar...
| so how can i read the size (height) of it ????
| 
| 
| b)
| If i compile my program with perl2exe and "-gui", then the
| program crash on exit.... ever: the "exit code" are:
| 
| -----------Code-----------
| sub Window_Terminate {
|     return -1;
| }
| 
| sub Exit_Click {
|     return -1;
| }
| ------------Code---------
| 
| Any idea ???
| 
| 
| 
| cu
| Thorsten Sommer
| 
| 
| _______________________________________________
| Perl-Win32-GUI-Users mailing list
| Per...@li...
| http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
| 

[perl-win32-gui-users] Taskbar & perl2exe -gui crash

[Webmaster C. <web...@cy...>]

Hi !

I have two problems:

a)
My program start in maximal width & height with this code:

---------Code----------------
$screensize        = Win32::GUI::GetDesktopWindow();
$screensize_width  = Win32::GUI::Width($screensize);
$screensize_height = Win32::GUI::Height($screensize);
---------Code----------------

The problem is, that i must subtract the size of the Taskbar...
so how can i read the size (height) of it ????


b)
If i compile my program with perl2exe and "-gui", then the
program crash on exit.... ever: the "exit code" are:

-----------Code-----------
sub Window_Terminate {
    return -1;
}

sub Exit_Click {
    return -1;
}
------------Code---------

Any idea ???



cu
Thorsten Sommer

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

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

Jeremy,

I take care of this by having two subroutines both calling the same subroutine that actually takes care of showing and hiding the controls, like so:

sub tabSteps_Click () {
        tabSteps_Changed();
}

# takes care of keyboard navigation between tabs (left, right) and
# handles it just as if the tab was clicked.
sub tabSteps_Change () {
        tabSteps_Changed();
}

The Click event will only capture a mouse click, so that's why you need the Change event to capture changing a tab page with the keyboard.

The tabSteps_Changed subroutime would contain whatever you need to show and hide your controls.

At 09:13 2001-05-21 +0100, Jeremy Dack wrote:
>Hi,
>
>I am having a problem with tabstrips.
>
> When selecting the tabs by mouse the fields hide and show as expected but if I use the left and right arrow keys the tabs move but the fields don't change (i.e. it still shows page 1). Is this something I am doing wrong? I note that the example supplied does the same.
>
>Any help at all would be appreciated.
>
>
>
>_______________________________________________
>Perl-Win32-GUI-Users mailing list
>Per...@li...
>http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users


Cheers,

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

Re: [perl-win32-gui-users] newbie's question

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

Jerry wrote:
>Which one is easier/simpler to use: Tk or Win32::GUI?  The latter
>sounds pretty intriguing to me.  Can I find any sample Win32::GUI
>apps on the Web?

I started a Manila site to document a few things. It is now dormant :) 
However, this page may help you:

http://win32gui.manilasites.com/stories/storyReader$14

The very first thing you need are the sample programs from the distribution.


/J

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

Re: [perl-win32-gui-users] Shutdown, reboot, logoff and lock on NT and 2000 with perl?

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

Tim,

I have had mixed success using Win32::InitiateSystemShutdown, it didn't work
effectivley for mixed service packs therefore I used SHUTDOWN.EXE from the Winnt
Res Kit which has several options:

Usage: SHUTDOWN [/?] [\\Computer] [/L] [/A] [/R] [/T:xx] ["Msg"] [/Y] [/C]

/?        Shows this screen.
\\Computer     Specifies a remote computer to shutdown.
/L        Specifies a local shutdown.
/A        Abortes a systemshutdown. This is only possible during the
          timeout period.If this switch is used, all other are ignored.
/R        Specifies that the machine should reboot after shutdown.
/T:xx          Sets the timer for system shutdown in seconds.[20 sec. default]
"Msg"          Specifies an additional message
/Y        Answer all following questinons with yes
/C        Forces running applications to close.
          ATTENTION: If you use the /C parameter NT ignores the
                     applications option to save data which may
                     have changed. You will see no File-Save dialog
                     box, because NT will force the application to
                     close. This will result in a loss of all data.
                     not previously saved !!!

$shutdown="C:\\SHUTDOWN.EXE /L /R /T:01 /Y /C";
`$shutdown`;





|--------+------------------------------------------------>
|        |                                                |
|        |                                                |
|        |   Kev...@al...                    |
|        |   Sent by:                                     |
|        |   per...@li...urceforge.|
|        |   net                                          |
|        |                                                |
|        |   22 May 2001 09:18 AM                         |
|        |   Please respond to perl-win32-gui-users       |
|        |                                                |
|--------+------------------------------------------------>
  >----------------------------------------------------------------------------|
  |                                                                            |
  |       To:     per...@li...                   |
  |       cc:                                                                  |
  |       Subject:     Re: [perl-win32-gui-users] Shutdown, reboot, logoff and |
  |       lock on NT and 2000 with perl?                                       |
  >----------------------------------------------------------------------------|





Tim,

The Win32 module has

     Win32::InitiateSystemShutdown(MACHINE, MESSAGE, TIMEOUT, FORCECLOSE,
REBOOT)

I haven't come across modules which do  of the other things.

Kev.




"Thomas, Timothy B" <tim...@lm...>@lists.sourceforge.net on
21/05/2001 23:20:02

Please respond to per...@li...

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


To:   "'per...@li...'"
      <per...@li...>
cc:

Subject:  [perl-win32-gui-users] Shutdown, reboot, logoff and lock on NT
      and 2000 with perl?


Are there any Win32::GUI options to to shutdown, reboot, logoff the current
user and/or lock the screen using perl on NT or 2000?

Thanks,
     Tim Thomas

_______________________________________________
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




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.