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

Re: [perl-win32-gui-users] Re: daemon process in win98--on the same note

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

christopher sagayam wrote:
> Hi all  ,
> On the same note
> Is it possible to write a win32 GUI perl server daemon script ..
> if  so what are the precautions I should take  ??
> Particularly because the Win32::GUI::Dialog() indefinite Loop
> should not interfere with the while (1){} indefinite loop of
> the perl server
> Is it possible to integrate them both at all ?

you can put Win32::GUI::DoEvents inside your 'server' loop,
without Win32::GUI::Dialog() at all. the GUI will not be
so responsive as with Win32::GUI::Dialog, but this is the
'best-effort' possible with a single-threaded model.
if you wanna go multi thread, you should look at using
fork (only with perl 5.6.0) and some IPC mechanism (pipes,
sockets, shared memory, etc).


cheers,
Aldo

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

RE: [perl-win32-gui-users] Dr Watson

[<pau...@or...>]

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.
*******************************************************************************

Re: [perl-win32-gui-users] Re: daemon process in win98--on the same note

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

Im sorry to repeat this ..

But has no one seen this question so far ?

Please tell me atleast whether it can be done or it can't be done ?

Thanks

chris

----- Original Message -----
From: christopher sagayam <chr...@ya...>
To: <per...@li...>
Sent: Monday, March 05, 2001 1:37 PM
Subject: [perl-win32-gui-users] Re: daemon process in win98--on the same
note


Hi all  ,

On the same note

Is it possible to write a win32 GUI perl server daemon script ..

if  so what are the precautions I should take  ??

Particularly because the

Win32::GUI::Dialog() indefinite Loop should not interfere with the

while (1){} indefinite loop of the perl server

Is it possible to integrate them both at all ?


chris

----- Original Message -----
From: christopher sagayam <chr...@ya...>
To: <per...@li...>
Sent: Monday, March 05, 2001 1:31 PM
Subject: daemon process in win98


Hi all

Sub Somebutton_Click

{

system("c:/path/to/perlserver.exe");
}


I am trying to write a win32 gui script which will call a perl server ( any
perl daemon process for that matter!)
when a button is clicked

now

1) How do I check whether the process is aleady not running?

2) If the process is running how to STOP it ?


In unix we do a "ps -uax" etc and a "kill -9 PID" but in windows 98 what  to
do ??

chris






_______________________________________________
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

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

[Eric B. <er...@eb...>]

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 for day of the week.  The
datum you need is 0-6 for Sunday-Saturday.  Right now you need seven
_Click subs which each set a different value or which call on a sub that
does the checking.

With tags you could put the correct data value in the tag when creating
the buttons and give them all the same name.  Then

sub DayOfWeekRadioButton_Click {
	my ( $source_radiobutton ) = @_;

	our $day_of_week_value = $source_radiobutton->Tag;
}

would work for all of them.

If I was doing Model/View/Controller with Win32-GUI then I would use the
tag value to hold a reference to the model object for that control:

sub SomeText_Change {
	my ( $control ) = @_;

	# Get the object representing what this textbox shows
	my $model_value_holder = $control->Tag;

	# Inform the abstract model that the value has changed
	$model_value_holder->set_value( $control->Text );
}


The motive for doing this is to get as much code out of the GUI elements
as possible.  This helps testing the logic seperately from the GUI and
helps to limit where errors can occur.  So usually I would have all my
text boxes, all my buttons, etc execute the same routines for dealing with
their model object.

Normally I would do this by subclassing the text control to do
model-specific handling and then using instances of the subclassed
control.  Since the perl objects in Win32-GUI are just handles I don't
know if that would make sense here.


   - Eric B.

--
"Pasteurized From Concentrate"

RE: [perl-win32-gui-users] Display a jpeg and gif image

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

I have about 6000 images, so considering the disk space that .bmp takes
compared to a .jpg, that's out of the question. BUT, if I could figure =
out a
way to convert the jpg to a bmp just to display it, that might work, =
anyone
know of a internal perl way to do image conversions? I have done it =
through
3rd party tools, but not perl directly. Still, I would prefer to =
display the
jpeg directly. Aldo - any ideas?

Tim

------------------------------------------------------------------------=
----
---------------------
Tim Thomas
Unix Systems Administrator
Lockheed Martin EIS =B7 Denver Data Center
303-430-2281
mailto:tim...@lm...
------------------------------------------------------------------------=
----
---------------------


-----Original Message-----
From: David Hiltz [mailto:dh...@wh...]
Sent: Friday, March 02, 2001 11:02 AM
To: per...@li...
Subject: Re: [perl-win32-gui-users] Display a jpeg and gif image



   You can display a BMP file, so maybe you could convert the jpg/gif =
to a
   bmp then display it.

   -dave

>=20
>      anyhow. .i'm also interrested in knowing..
>=20
>      maybe we could use some VB dll's :)
>     =20
> Best regards,
>  Danny Zak                            mailto:da...@be...
>   co-ceo=20
>=20
> Euro-Pictures/belGOnet.com
> Princesse Elisabeth Square 9/11
> 1030 Brussels
> Belgium
>=20
> Tel : +32-(0)2-215.67.65
> Fax : +32-(0)2-215.66.65
>=20
> -------------------------------------------------------------------
> Friday, March 02, 2001, 5:22:40 PM, you wrote:
>=20
> TTB> Aldo or anyone -=20
> TTB>         I really need to figure out a way to display jpeg and =
gif
images in
> TTB> one of my Win32::GUI apps. There has got to be a way to =
accomplish
it. Any
> TTB> suggestions? I thought of converting the whole thing to TK, but =
I
really
> TTB> don't want to have to go that route.
> TTB>         Thanks,
> TTB>                 Tim
>=20

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

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

[Jonathan S. <jso...@al...>]

Joe,

Try this as your ComboBox construct:

$CBdropdown = $Window->AddCombobox( 
     -name   => "Dropdown",
     -left   => 10, 
     -top    => 25,
     -width  => 180, 
     -height => 400,
     -addstyle  => WS_VISIBLE | 2 | WS_VSCROLL | WS_NOTIFY,
);


Jonathan Southwick
Technical & Network Services
Allegheny College, Meadsville, PA
jso...@al...


----- Original Message ----- 
From: "Frazier, Joe Jr" <Joe...@Pe...>
To: <per...@li...>
Sent: Friday, March 02, 2001 12:35 PM
Subject: [perl-win32-gui-users] FW: perl-win32-gui-users


> 
> 
> Joe Frazier, Jr
> Technical Support Engineer
> Peopleclick.com
> 800-841-2365
> su...@pe...
> 
> 
> 
> > -----Original Message-----
> > From: Frazier, Joe Jr On Behalf Of Peopleclick Customer Support
> > Sent: Friday, March 02, 2001 12:33 PM
> > To: 'per...@li...'
> > Subject: perl-win32-gui-users
> > 
> > 
> > I have a combo box such as below.  How do I get a scroll bar 
> > along the left or right side.  Is this functionality 
> > supported?  If so, does the same method work for List boxes.  
> > Part of the problem, is that I mostly copied these directly 
> > from the examples and don't know what the various style 
> > settings are since my documentation doesn't detail this option.
> > 
> > Thanks in advance for any insight.
> > 
> > I am on NT 4.0 SP6a 
> > 
> > c:\>perl -MWin32::GUI -e "print qq{$Win32::GUI::VERSION\n};"
> > 0.0.434
> > 
> > c:\>perl -v
> > 
> > This is perl, version 5.005_03 built for MSWin32-x86-object
> > (with 1 registered patch, see perl -V for more detail)
> > 
> > Copyright 1987-1999, Larry Wall
> > 
> > Binary build 522 provided by ActiveState Tool Corp. 
> > http://www.ActiveState.com
> > Built 09:52:28 Nov  2 1999
> > 
> > $CBdropdown = $Window->AddCombobox( 
> >     -name   => "Dropdown",
> >     -left   => 10, 
> >     -top    => 25,
> >     -width  => 180, 
> >     -height => 400,
> >     -scroll  => 1,
> >     -style  => WS_VISIBLE | 2 | WS_NOTIFY,
> > );
> > 
> > Joe Frazier, Jr
> > Technical Support Engineer
> > Peopleclick.com
> > 800-841-2365
> > su...@pe...
> > 
> > 
> > 
> > 
> 
> _______________________________________________
> Perl-Win32-GUI-Users mailing list
> Per...@li...
> http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
> 

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

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

Eric Bennett wrote:
> This would be very helpful.  The feature which would make this
> complete for me is if each control had a tag value which could
> hold a scalar reference.

a scalar reference to what?

> Then it would be simple to segue into an OO approach:
>
> sub CommonButtonName_Clicked {
>         my ( $source_button ) = @_;
>
>         $source_button->Tag->execute_command_and_log_undo();
> }

this is completely unclear to me. what is
'execute_command_and_log_undo'? a method in some package?
what is supposed $source_button->Tag to report?
maybe you mean it to act like:

   execute_command_and_log_undo( $source_button );

but, if this is what you mean, I don't see why you should want
it (it's just that you like the '->'? :-) and I don't see any
precedent in a Perl module for such things.
I don't think you want to patch *any* Perl module to be able
to write:

    my $OBJECT = Something->new;
    $OBJECT->execute_command_and_log_undo();

when 'execute_command_and_log_undo' is a sub in your script.

> Tags would also be handy for things like radiobutton data
> values.

please elaborate something more on your example, there may be
something I'm missing.

> I know very little about Win32::GUI internals so I have no
> idea how feasable this would be to implement.

I need to understand first *what* to implement and *why*
implement it. then it should be a breeze ;-)


cheers,
Aldo

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

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

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

>>I have a combo box such as below.  How do I get a scroll bar along the
>>left or right side.  Is this functionality supported?  If so, does the
>>same method work for List boxes.  Part of the problem, is that I
mostly
>>copied these directly from the examples and don't know what the
various
>>style settings are since my documentation doesn't detail this option.
>>
>>Thanks in advance for any insight.
>> $CBdropdown =3D $Window->AddCombobox(=20
>>     -name   =3D> "Dropdown",
>>     -left   =3D> 10,=20
>>     -top    =3D> 25,
>>     -width  =3D> 180,=20
>>     -height =3D> 400,
>>     -scroll  =3D> 1,
>>     -style  =3D> WS_VISIBLE | 2 | WS_NOTIFY,
>> );
>>=20
>> Joe Frazier, Jr
>> Technical Support Engineer
>> Peopleclick.com
>> 800-841-2365
>> su...@pe...
>>=20

> -----Original Message-----
> From: Erick J. Bourgeois [mailto:er...@e-...]
> Sent: Saturday, March 03, 2001 3:17 PM
> To: per...@li...
> Subject: Re: [perl-win32-gui-users] perl-win32-gui-users
>=20
>=20
> Use either/both WS_HSCROLL | WS_VSCROLL in your style option.
>=20
> erick
> never stop questioning
> www.jeb.ca


Thanks.  That worked.  I guess now, my question is is there any
documention on the style attribute?

Joe Frazier, Jr
Technical Support Engineer
Peopleclick.com
800-841-2365
su...@pe...

>=20

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

[Nahum M. <Mar...@re...>]

Do you known why this don't work  :

$allimp = $winimpsrv->AddListbox(
 -name => "allimp",
 -left     => 1,
 -top      => 1,
 -text     => '',
 -width    => 490,
 -height   => 350,
 -multiline =>1,
 -style  =>WS_VSCROLL,
);


foreach $ligne (@lstimp)
 {
  $allimp->AddString("$ligne");
 }

Nahum Marc,

----- Original Message -----
From: "Erick J. Bourgeois" <er...@e-...>
To: <per...@li...>
Sent: Saturday, March 03, 2001 9:17 PM
Subject: Re: [perl-win32-gui-users] perl-win32-gui-users


> Use either/both WS_HSCROLL | WS_VSCROLL in your style option.
>
> erick
> never stop questioning
> www.jeb.ca
> ----- Original Message -----
> From: Peopleclick Customer Support
<Peo...@pe...>
> To: <per...@li...>
> Sent: Friday, March 02, 2001 6:33 PM
> Subject: [perl-win32-gui-users] perl-win32-gui-users
>
>
> I have a combo box such as below.  How do I get a scroll bar along the
> left or right side.  Is this functionality supported?  If so, does the
> same method work for List boxes.  Part of the problem, is that I mostly
> copied these directly from the examples and don't know what the various
> style settings are since my documentation doesn't detail this option.
>
> Thanks in advance for any insight.
>
> I am on NT 4.0 SP6a
>
> c:\>perl -MWin32::GUI -e "print qq{$Win32::GUI::VERSION\n};"
> 0.0.434
>
> c:\>perl -v
>
> This is perl, version 5.005_03 built for MSWin32-x86-object
> (with 1 registered patch, see perl -V for more detail)
>
> Copyright 1987-1999, Larry Wall
>
> Binary build 522 provided by ActiveState Tool Corp.
> http://www.ActiveState.com
> Built 09:52:28 Nov  2 1999
>
> $CBdropdown = $Window->AddCombobox(
>     -name   => "Dropdown",
>     -left   => 10,
>     -top    => 25,
>     -width  => 180,
>     -height => 400,
>     -scroll  => 1,
>     -style  => WS_VISIBLE | 2 | WS_NOTIFY,
> );
>
> Joe Frazier, Jr
> Technical Support Engineer
> Peopleclick.com
> 800-841-2365
> su...@pe...
>
>
>
>
> _______________________________________________
> 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] Re: daemon process in win98--on the same note

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

Hi all  ,

On the same note

Is it possible to write a win32 GUI perl server daemon script ..

if  so what are the precautions I should take  ??

Particularly because the

Win32::GUI::Dialog() indefinite Loop should not interfere with the

while (1){} indefinite loop of the perl server

Is it possible to integrate them both at all ?


chris

----- Original Message -----
From: christopher sagayam <chr...@ya...>
To: <per...@li...>
Sent: Monday, March 05, 2001 1:31 PM
Subject: daemon process in win98


Hi all

Sub Somebutton_Click

{

system("c:/path/to/perlserver.exe");
}


I am trying to write a win32 gui script which will call a perl server ( any
perl daemon process for that matter!)
when a button is clicked

now

1) How do I check whether the process is aleady not running?

2) If the process is running how to STOP it ?


In unix we do a "ps -uax" etc and a "kill -9 PID" but in windows 98 what  to
do ??

chris

[perl-win32-gui-users] daemon process in win98

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

Hi all

Sub Somebutton_Click

{

system("c:/path/to/perlserver.exe");
}


I am trying to write a win32 gui script which will call a perl server ( any
perl daemon process for that matter!)
when a button is clicked

now

1) How do I check whether the process is aleady not running?

2) If the process is running how to STOP it ?


In unix we do a "ps -uax" etc and a "kill -9 PID" but in windows 98 what  to
do ??

chris

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

[Erick J. B. <er...@e-...>]

Use either/both WS_HSCROLL | WS_VSCROLL in your style option.

erick
never stop questioning
www.jeb.ca
----- Original Message ----- 
From: Peopleclick Customer Support <Peo...@pe...>
To: <per...@li...>
Sent: Friday, March 02, 2001 6:33 PM
Subject: [perl-win32-gui-users] perl-win32-gui-users


I have a combo box such as below.  How do I get a scroll bar along the
left or right side.  Is this functionality supported?  If so, does the
same method work for List boxes.  Part of the problem, is that I mostly
copied these directly from the examples and don't know what the various
style settings are since my documentation doesn't detail this option.

Thanks in advance for any insight.

I am on NT 4.0 SP6a 

c:\>perl -MWin32::GUI -e "print qq{$Win32::GUI::VERSION\n};"
0.0.434

c:\>perl -v

This is perl, version 5.005_03 built for MSWin32-x86-object
(with 1 registered patch, see perl -V for more detail)

Copyright 1987-1999, Larry Wall

Binary build 522 provided by ActiveState Tool Corp.
http://www.ActiveState.com
Built 09:52:28 Nov  2 1999

$CBdropdown = $Window->AddCombobox( 
    -name   => "Dropdown",
    -left   => 10, 
    -top    => 25,
    -width  => 180, 
    -height => 400,
    -scroll  => 1,
    -style  => WS_VISIBLE | 2 | WS_NOTIFY,
);

Joe Frazier, Jr
Technical Support Engineer
Peopleclick.com
800-841-2365
su...@pe...




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

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

[Erick J. B. <er...@e-...>]

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

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

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

another thing... the data is actually in the list. When the blank combobox
drops down I can click in it and arrow up/down and then I'll see the data --
debug code confirms a selection is being made. It just doesn't want to show
it....


##################################


Hi all,

This is making me nuts. I have a combobox dropdown that shows on my window
but it does not show the data when I click on it. I copied this same exact
code into the comboxbox.pl sample and it works. Aaaaaaaarrgggghhhh!

Any help would be greatly appreciated. I'll just bang my head on the wall
'til then...

-Pete

#################################################################

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,
);

foreach (@months)
{
	$fromMonth->InsertItem("$_");
}

sub fromMonth_Change 
{
	my $selection=$fromMonth->SelectedItem();
	my $fromMonthSelection=$months[$selection];
	print "fromMonthSelection=$fromMonthSelection $selection\n";
	return 0;
}

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

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

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

Hi all,

This is making me nuts. I have a combobox dropdown that shows on my window
but it does not show the data when I click on it. I copied this same exact
code into the comboxbox.pl sample and it works. Aaaaaaaarrgggghhhh!

Any help would be greatly appreciated. I'll just bang my head on the wall
'til then...

-Pete

#################################################################

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,
);

foreach (@months)
{
	$fromMonth->InsertItem("$_");
}

sub fromMonth_Change 
{
	my $selection=$fromMonth->SelectedItem();
	my $fromMonthSelection=$months[$selection];
	print "fromMonthSelection=$fromMonthSelection $selection\n";
	return 0;
}

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

[Eric B. <er...@eb...>]

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 is if each control had a tag value which could hold a scalar
reference.  Then it would be simple to segue into an OO approach:

sub CommonButtonName_Clicked {
	my ( $source_button ) = @_;

	$source_button->Tag->execute_command_and_log_undo();
}

Tags would also be handy for things like radiobutton data values.

I know very little about Win32::GUI internals so I have no idea how
feasable this would be to implement.

   - Eric B.

--
"Pasteurized From Concentrate"

[perl-win32-gui-users] adding a scroll bars to listbox

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

I copied some of the code from the gui sample programs to add a vscroll bar
to my listbox.  Can I read the value of the thumb position and use that for
making a selection in the listbox? Can I control the position of the thumb
of the scroll bar with a variable in my perl code (e.g. for an initial
position) and have it adjust the displayed lines of the listbox?

Tks,

Larry Moore

Re: [perl-win32-gui-users] Display a jpeg and gif image

[David H. <dh...@wh...>]

   You can display a BMP file, so maybe you could convert the jpg/gif to a
   bmp then display it.

   -dave

> 
>      anyhow. .i'm also interrested in knowing..
> 
>      maybe we could use some VB dll's :)
>      
> Best regards,
>  Danny Zak                            mailto:da...@be...
>   co-ceo 
> 
> Euro-Pictures/belGOnet.com
> Princesse Elisabeth Square 9/11
> 1030 Brussels
> Belgium
> 
> Tel : +32-(0)2-215.67.65
> Fax : +32-(0)2-215.66.65
> 
> -------------------------------------------------------------------
> Friday, March 02, 2001, 5:22:40 PM, you wrote:
> 
> TTB> Aldo or anyone - 
> TTB>         I really need to figure out a way to display jpeg and gif images in
> TTB> one of my Win32::GUI apps. There has got to be a way to accomplish it. Any
> TTB> suggestions? I thought of converting the whole thing to TK, but I really
> TTB> don't want to have to go that route.
> TTB>         Thanks,
> TTB>                 Tim
> 

[perl-win32-gui-users] FW: perl-win32-gui-users

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

Joe Frazier, Jr
Technical Support Engineer
Peopleclick.com
800-841-2365
su...@pe...



> -----Original Message-----
> From: Frazier, Joe Jr On Behalf Of Peopleclick Customer Support
> Sent: Friday, March 02, 2001 12:33 PM
> To: 'per...@li...'
> Subject: perl-win32-gui-users
>=20
>=20
> I have a combo box such as below.  How do I get a scroll bar=20
> along the left or right side.  Is this functionality=20
> supported?  If so, does the same method work for List boxes. =20
> Part of the problem, is that I mostly copied these directly=20
> from the examples and don't know what the various style=20
> settings are since my documentation doesn't detail this option.
>=20
> Thanks in advance for any insight.
>=20
> I am on NT 4.0 SP6a=20
>=20
> c:\>perl -MWin32::GUI -e "print qq{$Win32::GUI::VERSION\n};"
> 0.0.434
>=20
> c:\>perl -v
>=20
> This is perl, version 5.005_03 built for MSWin32-x86-object
> (with 1 registered patch, see perl -V for more detail)
>=20
> Copyright 1987-1999, Larry Wall
>=20
> Binary build 522 provided by ActiveState Tool Corp.=20
> http://www.ActiveState.com
> Built 09:52:28 Nov  2 1999
>=20
> $CBdropdown =3D $Window->AddCombobox(=20
>     -name   =3D> "Dropdown",
>     -left   =3D> 10,=20
>     -top    =3D> 25,
>     -width  =3D> 180,=20
>     -height =3D> 400,
>     -scroll  =3D> 1,
>     -style  =3D> WS_VISIBLE | 2 | WS_NOTIFY,
> );
>=20
> Joe Frazier, Jr
> Technical Support Engineer
> Peopleclick.com
> 800-841-2365
> su...@pe...
>=20
>=20
>=20
>=20

[perl-win32-gui-users] perl-win32-gui-users

[Peopleclick C. S. <Peo...@pe...>]

I have a combo box such as below.  How do I get a scroll bar along the
left or right side.  Is this functionality supported?  If so, does the
same method work for List boxes.  Part of the problem, is that I mostly
copied these directly from the examples and don't know what the various
style settings are since my documentation doesn't detail this option.

Thanks in advance for any insight.

I am on NT 4.0 SP6a=20

c:\>perl -MWin32::GUI -e "print qq{$Win32::GUI::VERSION\n};"
0.0.434

c:\>perl -v

This is perl, version 5.005_03 built for MSWin32-x86-object
(with 1 registered patch, see perl -V for more detail)

Copyright 1987-1999, Larry Wall

Binary build 522 provided by ActiveState Tool Corp.
http://www.ActiveState.com
Built 09:52:28 Nov  2 1999

$CBdropdown =3D $Window->AddCombobox(=20
    -name   =3D> "Dropdown",
    -left   =3D> 10,=20
    -top    =3D> 25,
    -width  =3D> 180,=20
    -height =3D> 400,
    -scroll  =3D> 1,
    -style  =3D> WS_VISIBLE | 2 | WS_NOTIFY,
);

Joe Frazier, Jr
Technical Support Engineer
Peopleclick.com
800-841-2365
su...@pe...

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

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

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 :-).

> 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.


cheers,
Aldo

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

Re: [perl-win32-gui-users] Display a jpeg and gif image

[Danny Z. <da...@be...>]

Dear Timothy,

     anyhow. .i'm also interrested in knowing..

     maybe we could use some VB dll's :)
     
Best regards,
 Danny Zak                            mailto:da...@be...
  co-ceo 

Euro-Pictures/belGOnet.com
Princesse Elisabeth Square 9/11
1030 Brussels
Belgium

Tel : +32-(0)2-215.67.65
Fax : +32-(0)2-215.66.65

-------------------------------------------------------------------
Friday, March 02, 2001, 5:22:40 PM, you wrote:

TTB> Aldo or anyone - 
TTB>         I really need to figure out a way to display jpeg and gif images in
TTB> one of my Win32::GUI apps. There has got to be a way to accomplish it. Any
TTB> suggestions? I thought of converting the whole thing to TK, but I really
TTB> don't want to have to go that route.
TTB>         Thanks,
TTB>                 Tim

TTB> ----------------------------------------------------------------------------
TTB> ---------------------
TTB> Tim Thomas
TTB> Unix Systems Administrator
TTB> Lockheed Martin EIS · Denver Data Center
TTB> 303-430-2281
TTB> mailto:tim...@lm...
TTB> ----------------------------------------------------------------------------
TTB> ---------------------


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

[perl-win32-gui-users] Display a jpeg and gif image

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

Aldo or anyone -=20
	I really need to figure out a way to display jpeg and gif images in
one of my Win32::GUI apps. There has got to be a way to accomplish it. =
Any
suggestions? I thought of converting the whole thing to TK, but I =
really
don't want to have to go that route.
	Thanks,
		Tim

------------------------------------------------------------------------=
----
---------------------
Tim Thomas
Unix Systems Administrator
Lockheed Martin EIS =B7 Denver Data Center
303-430-2281
mailto:tim...@lm...
------------------------------------------------------------------------=
----
---------------------

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

[Eric B. <er...@eb...>]

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 multiple instances of a window
or being able to subclass window or control behavior.

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.

I was considering doing this with package names (one package per window,
consistant control names, package is destroyed after window closes) but
havn't actually coded it yet.

I hope I am missing the simple, good way to do this.  Example below.

   - Eric B.

--
"Pasteurized From Concentrate"

==============================================================

use Win32::GUI;

#
#	An example of window instances in practice.
#
#	Note that if we needed to catch Change events on the text boxes
#	those would need coded names too.
#
#	Some of this could be cleaned by having small lexical subs which
#	forward to normal methods but you still need the closures
#	somewhere to hold a reference to disambiguate the window.
#
#	In a real MVC app I would usually refer directly to controls very
#	little; instead the lexical ref would be to a model object doing
#	the work.  I left that out for clarity.
#

my $prior_unique_window_code = 0;

my $open_window_count = 0;


sub build_add_window {

	my $code = ++$prior_unique_window_code;

	my $Window = new Win32::GUI::Window(
	    -title  => "Add Numbers ($code)",
	    -left   => 100,
	    -top    => 100,
	    -width  => 220,
	    -height => 200,
	    -name   => "Window$code",
	    -style  => WS_MINIMIZEBOX | WS_CAPTION | WS_SYSMENU,
	);
	
	$Window->AddTextfield(
	    -name     => "InputA",
	    -left     => 10,
	    -top      => 10,
	    -text     => "5",
	    -width    => 180,
	    -height   => 22,
	);
	
	$Window->AddTextfield(
	    -name     => "InputB",
	    -left     => 10,
	    -top      => 38,
	    -text     => "8",
	    -width    => 180,
	    -height   => 22,
	);
	
	$Window->AddButton(
	    -name   => "Add$code",
	    -text   => "Add",
	    -left   => 80,
	    -top    => 66,
	);
	
	$Window->AddTextfield(
	    -name     => "Output",
	    -left     => 10,
	    -top      => 94,
	    -text     => "?",
	    -width    => 180,
	    -height   => 22,
	);
	
	$Window->AddButton(
	    -name   => "CloneWindow$code",
	    -text   => "Clone Window",
	    -left   => 55,
	    -top    => 122,
	);
	
	$open_window_count++;
	$Window->Show();

	*{"Window$code\_Terminate"} = sub {
		# Free refs hidden in the subs
		undef *{"Window$code\_Terminate"};
		undef *{"Add$code\_Click"};
		undef *{"CloneWindow$code\_Click"};

		$open_window_count--;

		return $open_window_count > 0 ? 1 : -1;
	};

	*{"Add$code\_Click"} = sub {
		$Window->Output->Text(
			$Window->InputA->Text + $Window->InputB->Text
		);
	};

	*{"CloneWindow$code\_Click"} = sub {
		my $NewWindow = build_add_window();

		$NewWindow->InputA->Text( $Window->InputA->Text );
		$NewWindow->InputB->Text( $Window->InputB->Text );
		$NewWindow->Output->Text( $Window->Output->Text );
	};

	return $Window;
}

build_add_window();

Win32::GUI::Dialog();

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

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

Dave Moore wrote:
> hey.
>
> do event handler routines (ie. sub Button1_Click) have to be in
> the main namespace or in the namespace in which they were created?

no, they can be anywhere: just add the namespace to your control's
name and the event will be searched in that namespace.
example:

    $Window->AddButton(
        -name => "Buttons::Button1",
        # etc.
    );

    package Buttons;
    sub Button1_Click {
        # etc.
    }

> can objects be assigned and event handler? (ie.
> $myButton->Event(Click => \&coderef);). if not, twould be nice.
> id be willing to do the work if it didnt involve too much serious
> XS stuff.

I'm working on it, it's basically done (the version is on CVS) but
there are still some issues to solve. and yes, it involves serious
XS stuff ;-)

> 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'? :-)


cheers,
Aldo

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