RE: [perl-win32-gui-users] Looping Question

2001-03-28 Thread Piske, Harald
| Win32::GUI? I have several sleeps in my loop and I want the | rest of the gui | script to be accessible while this part is "asleep". Any suggestions? Hi Thomas The basic knack is Win32::GUI::DoEvents() while Win32::GUI::PeekMessage(0,0,0); You can call this even from inside an event. Here's a

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

2001-03-28 Thread Piske, Harald
Hi Jonathan. I found a way - not exactly easy, probably far from perfect, but it works. I hide all windows - walking backwards through the chain of desktop children, to avoid making each active just before hiding it. Then I cover the background with a big, fat, ugly, black rectangle and show my o

[perl-win32-gui-users] Looping Question

2001-03-28 Thread Thomas, Timothy B
I have a Win32::GUI script that needs to loop. I tried using a timer for each instance of the loop, but it doesn't always take the same amount of time for each time through. I had this as a command line program and just put the whole thing in a while (1==1). How can I do the same thing with Win32::

[perl-win32-gui-users] ListView disappearing

2001-03-28 Thread Erick J. Bourgeois
I posted a message a while back saying that I had a problem when I tried to resize the columns in a ListView, the data (ie. that which was in the listview control) would disappear. Well, I isolated the problem. This only occurs if you create a label that covers the whole window. (The reason why

[perl-win32-gui-users] desktop

2001-03-28 Thread Jonathan Southwick
Is there any way to blackout the desktop (as a screensaver would) using the GUI module? I still want to be able to show my own windows I create in my program. Jonathan Southwick Technical & Network Services Allegheny College, Meadville, PA [EMAIL PROTECTED]

[perl-win32-gui-users] Missing tutorials 6,7,8?

2001-03-28 Thread Erick J. Bourgeois
Aldo, Is there a reason why the tutorials jump from 5 to 9. I guess the 9 is upside down ;-) regards, erick never stop questioning www.jeb.ca