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

RE: [perl-win32-gui-users] use of Pos method

[Moore, L. <Lar...@tf...>]

->Select() doesn't work, I tried it, because $updown1 and $updown2 are
UpDown objects and Pos is the method for this object.  If I comment out the
two lines which set the Pos, then the program dies immediately.  

Larry

-----Original Message-----
From: Peter Eisengrein [mailto:Pet...@at...]
Sent: Thursday, March 08, 2001 2:34 PM
To: 'per...@li...'
Subject: RE: [perl-win32-gui-users] use of Pos method


Do you want ->Pos() or ->Select()? I suspect you probably want the latter.

-----Original Message-----
From: Moore, Larry [mailto:Lar...@tf...]
Sent: Thursday, March 08, 2001 1:49 PM
To: 'per...@li...'
Subject: [perl-win32-gui-users] use of Pos method


I have two listboxes each as the Buddy to an UpDown object.

I want to synchronize the selected item for the two listboxes.  

I use two click event subroutines to allow selection in the list, as well as
two scroll events.  I get an error message saying that the Pos method is not
available in my click subs, but after responding ok to these two messages,
one for each sub, my code seems to perform as I expect.  What am I doing
wrong?  Here is the code:



sub ud1_Scroll {
	geo_codes_Click();
}


sub ud2_Scroll {
	geo_names_Click();
}

sub geo_codes_Click {
	$sel = $geo_codes->SelectedItem();
	$updown2->Pos($sel);
}

sub geo_names_Click {
	$sel = $geo_names->SelectedItem();
	$updown1->Pos($sel);
}



Tks,
Larry

_______________________________________________
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

[perl-win32-gui-users] ChangeCursor for one button only

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

When I use $Mainwindow->Thisbutton->ChangeCursor ($fancyicon) then the mouse
cursor changes to the new resource whenever the mouse is positioned over ANY
button on the window. Seems the ChangeCursor affects the class and not the
object ...? Lacking MouseEnter and MouseLeave, how do I make ONE button come
up with a different cursor?

Regards,
Harald

PS: since I'm new to this group (and, in fact, to participating in any such
group ever), lemme introduce myself: I'm the guy asking this.
As probably all of us, I'm totally thrilled with Aldo's work, have a lot
more time at hand now for the kids because everything is so ridiculously
easy, and want to be part in pushing the limits of what you can do with
Win32-GUI. Oh, and Aldo, I'm sorry for bugging you before, but you know ...
us newbies ... had to find, and subscribe to, this group first.

[perl-win32-gui-users] Arc function OK in 2000, not in 98?

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

I made a paint sub that uses some drawing functions. It makes a beautiful
picture in Win2000, but on the target machine, running Win98, nothing shows.
Rectangle seems to work fine, Circle behaves strangely and Arc does not work
at all. Any ideas?

####### code snippet:
sub Paint
{
	$pitch = $window->Pitch->{-text} % 360;
	$roll  = $window->Roll->{-text};
	$roll += 180 if ($pitch > 90 && $pitch <= 270);
	$roll = $roll % 360;
#print "$pitch $roll\n";
	@_ = (180, 200, 100, $pitch + $roll, 180 - 2 * $pitch);
	$dc->BeginPath();
	$dc->Arc (@_[0..3], 0);		# just position pen
	$dc->AbortPath();
	$dc->SelectObject($Pb5);	# black pen, width 5
	$dc->SelectObject($Bblu);	# blue brush
	$dc->BeginPath();
	$dc->Arc (@_);
	$dc->CloseFigure();
	$dc->EndPath();
	$dc->StrokeAndFillPath();
	$dc->SelectObject($Pw4);	# white pen, width 4
	$dc->SelectObject($Bbro);	# brown brush
	$dc->BeginPath();
	$dc->Arc (@_[0..2], $_[3] + $_[4], 360 - $_[4]);
	$dc->CloseFigure();
	$dc->EndPath();
	$dc->StrokeAndFillPath();
	$dc->SelectObject($Pb5);
	$dc->Arc (@_[0..3], 360);	# redraw circle in black
	return 1;
}

RE: [perl-win32-gui-users] use of Pos method

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

Do you want ->Pos() or ->Select()? I suspect you probably want the latter.

-----Original Message-----
From: Moore, Larry [mailto:Lar...@tf...]
Sent: Thursday, March 08, 2001 1:49 PM
To: 'per...@li...'
Subject: [perl-win32-gui-users] use of Pos method


I have two listboxes each as the Buddy to an UpDown object.

I want to synchronize the selected item for the two listboxes.  

I use two click event subroutines to allow selection in the list, as well as
two scroll events.  I get an error message saying that the Pos method is not
available in my click subs, but after responding ok to these two messages,
one for each sub, my code seems to perform as I expect.  What am I doing
wrong?  Here is the code:



sub ud1_Scroll {
	geo_codes_Click();
}


sub ud2_Scroll {
	geo_names_Click();
}

sub geo_codes_Click {
	$sel = $geo_codes->SelectedItem();
	$updown2->Pos($sel);
}

sub geo_names_Click {
	$sel = $geo_names->SelectedItem();
	$updown1->Pos($sel);
}



Tks,
Larry

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

[perl-win32-gui-users] use of Pos method

[Moore, L. <Lar...@tf...>]

I have two listboxes each as the Buddy to an UpDown object.

I want to synchronize the selected item for the two listboxes.  

I use two click event subroutines to allow selection in the list, as well as
two scroll events.  I get an error message saying that the Pos method is not
available in my click subs, but after responding ok to these two messages,
one for each sub, my code seems to perform as I expect.  What am I doing
wrong?  Here is the code:



sub ud1_Scroll {
	geo_codes_Click();
}


sub ud2_Scroll {
	geo_names_Click();
}

sub geo_codes_Click {
	$sel = $geo_codes->SelectedItem();
	$updown2->Pos($sel);
}

sub geo_names_Click {
	$sel = $geo_names->SelectedItem();
	$updown1->Pos($sel);
}



Tks,
Larry

Re: [perl-win32-gui-users] Win32::GUI gives memory back to OS?

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

Peter Eisengrein wrote:
> Does Win32::GUI give memory back to the OS (WinNT)? I know this
> has been an on and off topic for Perl in general. And the answer
> is usually, no, Perl does not give memory back.

this is a very well known problem, and has been solved in version
0.0.558. the observed behaviour (Mem Usage growing in the Task
Manager and falling back when the window is minimized) is the usual
behaviour of almost all Win32 applications.


cheers,
Aldo

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

RE: [perl-win32-gui-users] -style info source

[Moore, L. <Lar...@tf...>]

My guess is that using the listbox and updown objects will be the solution
to my problem.  I should have experimented with these before diving off the
deep end with ~style.

Thanks, I love your GUI and that without even knowing it very well.

Larry

-----Original Message-----
From: Aldo Calpini [mailto:da...@pe...]
Sent: Thursday, March 08, 2001 10:06 AM
To: Moore, Larry
Subject: Re: [perl-win32-gui-users] -style info source


Moore, Larry wrote:
> is there a good source of info for using the -style attribute
> with the GUI objects?

Micro$$$oft's MSDN Library. but please note that -style is
*absolutely* deprecated. use the available options, and if
they don't do what you want them to do, complain about this
and I'll (try yo) seek a remedy. -style is there ONLY for
people who want to (and are able to) access the raw Win32 API
behind Win32::GUI :-)


cheers,
Aldo

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



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

[perl-win32-gui-users] Win32::GUI gives memory back to OS?

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

Does Win32::GUI give memory back to the OS (WinNT)? I know this has been an
on and off topic for Perl in general. And the answer is usually, no, Perl
does not give memory back.

Try this experiment: open any GUI script (seems to be true for any, at least
on WinNT 4.0). While it is open, open Windows TaskManager and goto Processes
tab. Identify the perl process. Note the Mem Usage. Leave TaskManager open
and minimize the perl gui window. Note the Mem Usage. Then restore the perl
gui window to its original size. Note the Mem Usage.

On my system, it would appear that minimizing and restoring the window
reduces the amount of memory the gui script uses (by quite a bit!). Is this
true or is it some slight-of-hand?

Re: [perl-win32-gui-users] -style info source

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

Moore, Larry wrote:
> is there a good source of info for using the -style attribute
> with the GUI objects?

Micro$$$oft's MSDN Library. but please note that -style is
*absolutely* deprecated. use the available options, and if
they don't do what you want them to do, complain about this
and I'll (try yo) seek a remedy. -style is there ONLY for
people who want to (and are able to) access the raw Win32 API
behind Win32::GUI :-)


cheers,
Aldo

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

Re: [perl-win32-gui-users] Textfield question

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

Glenn Linderman wrote:
> The -vscroll doesn't seem to have any affect.  When I later
>
> $help_text -> Text ( $long_string );
>
> and use a string that is longer than fits in the Textfield, I
> expected, but did not get, a vertical scroll bar on the right of
> the Text field.  Any easy way to make that happen?  Or must I
> limit my help text to the available space?

add this option when you create the Textfield:
    -autovscroll => 1

this should do the trick.
    
cheers,
Aldo

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

Re: [perl-win32-gui-users] Re: how to set ?

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

christopher sagayam wrote:
> This doesnt work 
>
> $ModuleWindow->text2_tab1->Change(-readonly => 1);
>
> what is the correct way ?

this will work in the next release. I've found that you
need to send a message to change the ES_READONLY style
*after* control creation. this is the 'workaround'
message if you're in a hurry:

  # set -readonly => 1
  $ModuleWindow->text2_tab1->SendMessage(0x00CF, 1, 0);

  # set -readonly => 0
  $ModuleWindow->text2_tab1->SendMessage(0x00CF, 0, 0);
  

cheers,
Aldo

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

RE: [perl-win32-gui-users] combobox making me crazy

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

Found it!!! And I'm a bit more humble for it... I was missing
Win32::GUI::Dialog(); in my code. Duh.

-----Original Message-----
From: Peter Eisengrein [mailto:Pet...@at...]
Sent: Wednesday, March 07, 2001 2:55 PM
To: 'per...@li...'
Subject: RE: [perl-win32-gui-users] combobox making me crazy


I hate to be a pest on this subject, but I still haven't come up with the
cause of the problem nor the solution. Again, I have comboboxes that pull
down when I click on the handle but it does not display the text. However,
if I arrow-down while it is open I can then see and select (by hitting
return but not clicking) each item.

I have quite a few comboboxes (22) on the window and they are inside a
groupbox. Any chance either of these instances should make a difference?



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

[perl-win32-gui-users] Re: how to set ?

[christopher s. <chr...@ya...>]

This doesnt work 

$ModuleWindow->text2_tab1->Change(-readonly => 1);

what is the correct way ?

chris
----- Original Message ----- 
From: christopher sagayam <chr...@ya...>
To: <per...@li...>
Sent: Thursday, March 08, 2001 11:32 AM
Subject: how to set ?


How to dynamically change the readonly attributes of a text field ?

$ModuleWindow->text2_tab1(-readonly => '1');

and later

$ModuleWindow->text2_tab1(-readonly => '0');

how to make the above work ?

chris

[perl-win32-gui-users] how to set ?

[christopher s. <chr...@ya...>]

How to dynamically change the readonly attributes of a text field ?

$ModuleWindow->text2_tab1(-readonly => '1');

and later

$ModuleWindow->text2_tab1(-readonly => '0');

how to make the above work ?

chris

Re: [perl-win32-gui-users] Textfield question

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

Pete,

Thanks for the idea.  I added your suggestion, minus the WS_HSCROLL (I want
wrapping to take effect).  It does produce a scroll bar.  It removes the effect
of -readonly, but since I never look at the resulting text, and refresh it on
the next display, that isn't terribly problematical.  Perhaps I'll diddle around
and find something that turns -readonly back on.  Perhaps another -style flag?

Peter Eisengrein wrote:

> Not sure if the -style flag works on textfields but it does on RichEdits and
> that might be what's missing. Try adding this to your Textfield hash:
>
>         -style     => WS_CHILD | WS_VISIBLE | WS_VSCROLL | WS_HSCROLL
>                       | ES_LEFT | ES_MULTILINE,
>
> -Pete
>
> -----Original Message-----
> From: Glenn Linderman [mailto:Gle...@ne...]
> Sent: Wednesday, March 07, 2001 12:31 PM
> To: per...@li...
> Subject: [perl-win32-gui-users] Textfield question
>
> Hi,
>
> I'm a Perl expert, but a Windows novice.  I'm using the .558 version of
> Win32::GUI, and having great success for the most part.  There are some
> rough
> edges, and some apparently missing pieces, but no showstoppers so far, to
> achieve what I need.
>
> I created a Textfield as
>
>   $help_text = $neww -> AddTextfield (
>     -name => 'help_text',
>     -text => "This is not very\r\nhelpful, yet.",
>     -multiline => 1, -readonly => 1, -vscroll => 1,
>     -top => $lastbottom, -left => 0, -width => 600, -height => 190,
>     );
>
> The -vscroll doesn't seem to have any affect.  When I later
>
> $help_text -> Text ( $long_string );
>
> and use a string that is longer than fits in the Textfield, I expected, but
> did not get, a vertical scroll bar on the right of the Text field.  Any easy
> way to make that happen?  Or must I limit my help text to the available
> space?
>
> I tried using RichEdit instead, but it doesn't seem to honor -readonly, and
> doesn't display a scrollbar either.  Although it did do scrolling of sorts,
> via the up & down cursor keys... but it seemed to only scroll in "whole
> field
> size" jumps, not line at a time.  Going back to the Textfield, I tried
> clicking on it and using the up & down cursor keys, but no joy.
>
> If there is no easy way, does someone have sample code for the hard way?
>
> --
> Glenn
> =====
> Even if you're on the right track,
> you'll get run over if you just sit there.
>                        -- Will Rogers
>
> _______________________________________________
> 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
=====
Even if you're on the right track,
you'll get run over if you just sit there.
                       -- Will Rogers

RE: [perl-win32-gui-users] combobox making me crazy

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

I hate to be a pest on this subject, but I still haven't come up with the
cause of the problem nor the solution. Again, I have comboboxes that pull
down when I click on the handle but it does not display the text. However,
if I arrow-down while it is open I can then see and select (by hitting
return but not clicking) each item.

I have quite a few comboboxes (22) on the window and they are inside a
groupbox. Any chance either of these instances should make a difference?

RE: [perl-win32-gui-users] Textfield question

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

Not sure if the -style flag works on textfields but it does on RichEdits and
that might be what's missing. Try adding this to your Textfield hash:

	-style     => WS_CHILD | WS_VISIBLE | WS_VSCROLL | WS_HSCROLL
  	              | ES_LEFT | ES_MULTILINE,



-Pete

-----Original Message-----
From: Glenn Linderman [mailto:Gle...@ne...]
Sent: Wednesday, March 07, 2001 12:31 PM
To: per...@li...
Subject: [perl-win32-gui-users] Textfield question


Hi,

I'm a Perl expert, but a Windows novice.  I'm using the .558 version of
Win32::GUI, and having great success for the most part.  There are some
rough
edges, and some apparently missing pieces, but no showstoppers so far, to
achieve what I need.

I created a Textfield as

  $help_text = $neww -> AddTextfield (
    -name => 'help_text',
    -text => "This is not very\r\nhelpful, yet.",
    -multiline => 1, -readonly => 1, -vscroll => 1,
    -top => $lastbottom, -left => 0, -width => 600, -height => 190,
    );

The -vscroll doesn't seem to have any affect.  When I later

$help_text -> Text ( $long_string );

and use a string that is longer than fits in the Textfield, I expected, but
did not get, a vertical scroll bar on the right of the Text field.  Any easy
way to make that happen?  Or must I limit my help text to the available
space?

I tried using RichEdit instead, but it doesn't seem to honor -readonly, and
doesn't display a scrollbar either.  Although it did do scrolling of sorts,
via the up & down cursor keys... but it seemed to only scroll in "whole
field
size" jumps, not line at a time.  Going back to the Textfield, I tried
clicking on it and using the up & down cursor keys, but no joy.

If there is no easy way, does someone have sample code for the hard way?

--
Glenn
=====
Even if you're on the right track,
you'll get run over if you just sit there.
                       -- Will Rogers



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

[perl-win32-gui-users] Textfield question

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

Hi,

I'm a Perl expert, but a Windows novice.  I'm using the .558 version of
Win32::GUI, and having great success for the most part.  There are some rough
edges, and some apparently missing pieces, but no showstoppers so far, to
achieve what I need.

I created a Textfield as

  $help_text = $neww -> AddTextfield (
    -name => 'help_text',
    -text => "This is not very\r\nhelpful, yet.",
    -multiline => 1, -readonly => 1, -vscroll => 1,
    -top => $lastbottom, -left => 0, -width => 600, -height => 190,
    );

The -vscroll doesn't seem to have any affect.  When I later

$help_text -> Text ( $long_string );

and use a string that is longer than fits in the Textfield, I expected, but
did not get, a vertical scroll bar on the right of the Text field.  Any easy
way to make that happen?  Or must I limit my help text to the available space?

I tried using RichEdit instead, but it doesn't seem to honor -readonly, and
doesn't display a scrollbar either.  Although it did do scrolling of sorts,
via the up & down cursor keys... but it seemed to only scroll in "whole field
size" jumps, not line at a time.  Going back to the Textfield, I tried
clicking on it and using the up & down cursor keys, but no joy.

If there is no easy way, does someone have sample code for the hard way?

--
Glenn
=====
Even if you're on the right track,
you'll get run over if you just sit there.
                       -- Will Rogers

[perl-win32-gui-users] -style info source

[Moore, L. <Lar...@tf...>]

is there a good source of info for using the -style attribute with the GUI
objects?  

Tks,

Larry

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

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

Dave Moore 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.
>
> that will be nice, but there is still the issue of name space.
> having to name each control in some sort of global space...ie.
>
> $MW->Button(Name => 'MyButton1');
>
> gets hard to keep track when you want to break your program into
> objects or even if it gets really big. i dont know how else you
> could do it though.

but with the New Event Model (codename 'NEM') you don't need a name
at all.

> and seeming as how the topic was event handlers, i think it would
> be cool if i could say:
>
> my $btn = $MainW->Button();
> $btn->add_handler('Click', \&some_sub);
>
> sub some_sub {
>   my ($object, $event) = @_;
> }
>
> instead of making a subroutine with Name_Click. it would clean up
> all my scripts alot. for eg cancel buttons all do the same thing.
> its easier to register a routine for your events than to declare a
> subroutine that calls a subroutine.
>
> just my humble opinion

that's exactly what the NEM stands for. right now, the synopsis is:

  $MainW->AddButton(
      -text => "Click Me",
      -pos  => [ 50, 50 ],
      -events => {
          -Click => \&some_sub,
          # or
          # -Click => "some_sub",
          # or
          # -Click => sub { print 'I got a click!'; }
      },
  );

there will be, of course, a method to add, change and remove events
after the object creation. the latest version on CVS does already
support the synopsis above; I'm having serious problems supporting
a NEM for menus :-(
if someone wants to help me with this just ring the bell...


cheers,
Aldo

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

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

[Dave M. <da...@no...>]

> Eric Bennett wrote:
> > He probably means being able to open multiple instances of a
> > window or being able to subclass window or control behavior.
>
> I'm afraid I still don't get the exact point (I'm tired, sorry :-).
>

i dont know what i meant either (i was tired too).

> > Right now the only connection a control has to the rest of the
> > program is through the control name.  This means that to open two
> > identical windows where the controls on each window refer to the
> > right window's values you have to use app-unique names for controls
> > and then dynamically define subs with lexical references to those
> > values.
>
> 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.
>

that will be nice, but there is still the issue of name space. having to
name each control in some sort of global space...ie.

$MW->Button(Name => 'MyButton1');

gets hard to keep track when you want to break your program into objects or
even if it gets really big. i dont know how else you could do it though.

and seeming as how the topic was event handlers, i think it would be cool if
i could say:

my $btn = $MainW->Button();
$btn->add_handler('Click', \&some_sub);

sub some_sub {
  my ($object, $event) = @_;
}

instead of making a subroutine with Name_Click. it would clean up all my
scripts alot. for eg cancel buttons all do the same thing. its easier to
register a routine for your events than to declare a subroutine that calls a
subroutine.

just my humble opinion

dave

RE: [perl-win32-gui-users] Progress Bar

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

my $ProgressWindow = new Win32::GUI::DialogBox(
	-name   => "ProgressWindow",
	-left   => 300,
	-top    => 300,
	-width  => 400,
	-height => 100,
	-title  => "Loading file...",
);

$ProgressWindow->AddProgressBar(
	-name   => "PB",
	-left   => 20,
	-top    => 25,
	-width  => 350,
	-height => 20,
	-smooth => 1,
);

$ProgressWindow->PB->SetPos(10);

sub ProgressWindow_Terminate
{
	$ProgressWindow->Hide();
	$ProgressWindow->PB->SetPos(0);
	return 0;
}


$ProgressWindow->PB->SetRange(0,$size);  ### I Set $size to the filesize
(upto 65535 max)
$ProgressWindow->Show();

while (something)	### HERE's WHERE YOU OPEN THE FILE. DEPENDING UPON
HOW 
			### YOU WANT TO DO THE UPDATE WILL DETERMINE THE
while STATEMENT
{
	$linecount++;
	$ProgressWindow->PB->SetPos($linecount);
}

$ProgressWindow->Hide();



### Hope that helps.
### Pete


-----Original Message-----
From: dar...@la... [mailto:dar...@la...]
Sent: Tuesday, March 06, 2001 4:48 AM
To: per...@ht...
Subject: [perl-win32-gui-users] Progress Bar


Does anyone have any example code for displaying a Progress Bar while a
program
executes for instance:

I have the program:

$prog     = "C:\\Progra~1\\winzip\\wzzip.exe -u -p -r -es -whs $archive
$source";

While I execute $prog I would like a status bar to display the progress and
hide() when complete.

Regards

Daryll





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.



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

[perl-win32-gui-users] Progress Bar

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

Does anyone have any example code for displaying a Progress Bar while a program
executes for instance:

I have the program:

$prog     = "C:\\Progra~1\\winzip\\wzzip.exe -u -p -r -es -whs $archive
$source";

While I execute $prog I would like a status bar to display the progress and
hide() when complete.

Regards

Daryll





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] Dr Watson

[Simon T. - T. <sim...@te...>]

Hi Paul

Thanks for asking.  No, I'm still plugging away on 0.0.502, developing my
little app (when time permits).  I'm getting close to finishing so I'm going
to want to try 0.0.558 again soon.  Any ideas how I can trace the cause of
the Dr Watsons?

Thanks - Simon.

-----Original Message-----
From: pau...@or... [mailto:pau...@or...]
Sent: Tuesday, March 06, 2001 5:16 AM
To: per...@li...
Subject: RE: [perl-win32-gui-users] Dr Watson




Hi Simon

Did you ever get this sorted ?

PB



****************************************************************************
***
Important. This E-mail is intended for the above named person and may be
confidential and/or legally privileged. If this has come to you in error you
must take no action based on it, nor must you copy or show it to anyone;
please
inform the sender immediately.
****************************************************************************
***

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

CAUTION: 
This message and any attachments contain privileged and confidential information.  If you are not the intended recipient of this message, you are hereby notified that any use, dissemination, distribution or reproduction of this message is prohibited. If you have received this message in error please notify the sender immediately via email and then destroy this message and any attachments.
Any views expressed in this message are those of the individual sender and may not necessarily reflect the views of Tegel Foods Ltd.

RE: [perl-win32-gui-users] combobox making me crazy

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

unfortunately that didn't do it. Anyone else seen this type of behaviour
before?

-----Original Message-----
From: Erick J. Bourgeois [mailto:er...@e-...]
Sent: Saturday, March 03, 2001 4:48 AM
To: per...@li...
Subject: Re: [perl-win32-gui-users] combobox making me crazy


I know when I would forget a comma in the options, I would not get the
proper
output. Try either uncommenting the WS_NOTIFY or adding a comma after the 2.

| my @months = ('',Jan,Feb,Mar,Apr,May,Jun,Jul,Aug,Sep,Oct,Nov,Dec);
|
| my $fromMonth = $Window->AddCombobox(
| -name   => "fromMonth",
| -left   => 65,
| -top    => 440,
| -width  => 60,
| -height => 150,
| -style  => WS_VISIBLE | 2 # | WS_NOTIFY,
| );
|

erick
never stop questioning
www.jeb.ca


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