Re: [perl-win32-gui-users] Uninitialized value message

2001-03-15 Thread Eric Bennett
On Thu, 15 Mar 2001, Tom Allebrandi wrote: > Use of uninitialized value in subroutine entry at line > Try adding this to your script: sub warn_unless_win32_dialog_warning { my ( $warning_message ) = @_; my $hide_message = qr/^Use of uninitialized value in subroutine entry/;

Re: [perl-win32-gui-users] event handlers and tags

2001-03-05 Thread Eric Bennett
On Mon, 5 Mar 2001, Aldo Calpini wrote: > this is completely unclear to me. Sorry, I was unclear. A tag is a scalar value associated with the control which is for application use. It can be fetched and set but has no effect on control behavior. Why is this useful? Say you have radio buttons f

Re: [perl-win32-gui-users] event handlers

2001-03-02 Thread Eric Bennett
On Fri, 2 Mar 2001, Aldo Calpini wrote: > this is more clear. the New Event Model I'm trying to build will > pass a reference to the object that fired the event as its first > parameter, so this issue will be solved. This would be very helpful. The feature which would make this complete for me i

Re: [perl-win32-gui-users] event handlers

2001-03-02 Thread Eric Bennett
On Fri, 2 Mar 2001, Aldo Calpini wrote: > > it seems to me that this module wasnt really meant to be used in > > an OO application? can anyone out there tell me otherwise? > > I maybe be ignorant, but what the heck do you mean by 'an OO > application'? :-) He probably means being able to open mu

RE: [perl-win32-gui-users] Fork?

2001-02-28 Thread Eric Bennett
On Wed, 28 Feb 2001, Tom Allebrandi wrote: > As it turns out, and I don't know if Aldo intended for it to work this way, > if you have a handle to the control, you can also call the routine in the > "classless" way by doing > > GUI::ProgressBar::SetPos($progressControlHandle,$amount)); > >

RE: [perl-win32-gui-users] Getting the browser

2001-01-15 Thread Eric Bennett
On Mon, 15 Jan 2001, Thomas, Timothy B wrote: > Same problem, here's the output I am getting with your new regular > expression: > my ($cmd); > ($cmd) = $command=~/^(\S*)\s/; > return $cmd; How about this: my $command_with_args; my $match_nonspace_expect_in_quotes = qr/((?:"[^"

[perl-win32-gui-users] Re: [perl-win32-gui] Event processing

2001-01-09 Thread Eric Bennett
On Wed, 3 Jan 2001, Robert Sherman wrote: > sub Loop_Click { > while ($i<20) { > sleep 1; > if ($i==10){ > &Show_Win2($i); > } > $i++; > } > } One way to do this is to use a timer: # Warnin