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

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

[Johan L. <jo...@ba...>]

At 00:04 2001-09-29 +0200, Marcus wrote:
>On 28.09.01 at 09:13 Johan Lindstrom wrote:
> >You should set the -group => 1 option on the _first_ RadioButton in
>each
> >group. This control should also be a tabstop.
>
>Great thanks, works nicely.
>In Loft, it actually "groupstart", right?

Yep. I wasn't aware of the Win32::GUI option at the time.


>What do you mean by tabstop?

-tabstop => 1

for the first control in the RadioButton group, => 0 for all the others.


/J

------ ---- --- -- -- -- -  -   -    -        -
Johan Lindström                    Boss Casinos
Sourcerer                     jo...@ba...
                  http://www.bahnhof.se/~johanl/
If the only tool you have is a hammer,
everything tends to look
like a nail 

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

[Marcus <li...@wo...>]

On 28.09.01 at 09:13 Johan Lindstrom wrote:
>You should set the -group => 1 option on the _first_ RadioButton in
each 
>group. This control should also be a tabstop.

Great thanks, works nicely.
In Loft, it actually "groupstart", right?

What do you mean by tabstop?


>>On another subject, how does the archive search function work?
>
>It doesn't.

Can't we mirror at yahoogroups or somewhere with a searchable archive?

Marcus

RE: [perl-win32-gui-users] Absolute newbie Q

[Forhan, M. <Mic...@tr...>]

I ran the script on my system , and it worked fine: however, from all I've
seen in this group, the problem is most likely that you didn't include a
name on your label. That causes a lot of crashes: make a habit of -name'ing
everything (even if its -name=>'label001'). Try replacing:

 $main->AddLabel(-text => "Hello, World");

with

 $main->AddLabel(-name => 'label001', -text => "Hello, World");

and try again.

Hope this helps,
-Mike


-----Original Message-----
From: Frank Stetzer [mailto:st...@cs...]
Sent: Friday, September 28, 2001 9:41 AM
To: per...@li...
Subject: [perl-win32-gui-users] Absolute newbie Q


I tried the "Hello, world" script from the Win32::GUI tutorial part 1.
(This is with yeterday's Active State build and Win32::GUI 0.558
installed by ppm on Win98SE).  I get the following Windows error:

   PERL caused an invalid page fault in
   Module MSVCRT.DLL at 0167:78003b44.
   Registers:
   EAX=01824f5c CS=0167 EIP=78003b44 EFLGS=00010246
     (etc.)

This is the script (hello.pl)

   use Win32::GUI;
   $main = Win32::GUI::Window->new(
     -name => 'Main',
     -width => 100, 
     -height => 100,
    );
   $main->AddLabel(-text => "Hello, World");
   $main->Show();
   Win32::GUI::Dialog();

   sub Main_Terminate {
    -1;
   }
	
I assume I missed some absolute first step in the process...
I scanned the listserv archive and didn't see anyone else 
disqualified so early in the game :-)
========================================================================
Frank Stetzer, Ph.D.                              st...@uw...
Research Support                                  P.O. Box 413
Information and Media Technologies                Milwaukee, WI 53201
University of Wisconsin - Milwaukee               (414)-229-4571


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

RE: [perl-win32-gui-users] Absolute newbie Q

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

Frank, one thing to remember that is not in the current versions of some
docs and some samples programs.  "ALL controls MUST have a -name
attribute" and this must be unique in the program (NOT just the window).
Hopefully, the next version to come out will correct these samples.
Try this:

    use Win32::GUI;
    $main =3D Win32::GUI::Window->new(
      -name =3D> 'Main',
      -width =3D> 100,=20
      -height =3D> 100,
    );
   $main->AddLabel(-text =3D> "Hello, World", -name =3D> 'lblLabel');    =
#
all I added was the -name attribute.
   $main->Show();
   Win32::GUI::Dialog();

   sub Main_Terminate {
    -1;
   }
=20

Enjoy!  One thing, after you have played with the base Win32::GUI for a
while, you should probably try Johan's excelent GuiLoft Designer.  He
has put in properties which are poorly documented, if at all.=20

Also, MANY of the samples are currently broke because of missing names
and additionally, I believe they start you in a bad coding habit.
Example:

my $lbl1 =3D $main->AddLabel(-text =3D> "Hello, World", -name =3D>
'lblLabel'); =20
$lbl1->Text('Hello Master!'); # this set sets the text for the above
label to 'Hello Master!'

I would prefer this written as:

$main->lblLabel->Text('Hello Master!');

Now, while both will work, the first just pollutes your namespace
needlessly with variables that you dont need because you can access the
controls using the name instead. =20

This is all just my opinion and I could be wrong about anything I said.

Joe Frazier, Jr
Technical Support Engineer
PeopleClick
919-645-2916
joe...@pe...
=20



> -----Original Message-----
> From: Frank Stetzer [mailto:st...@cs...]
> Sent: Friday, September 28, 2001 12:41 PM
> To: per...@li...
> Subject: [perl-win32-gui-users] Absolute newbie Q
>=20
>=20
> I tried the "Hello, world" script from the Win32::GUI tutorial part 1.
> (This is with yeterday's Active State build and Win32::GUI 0.558
> installed by ppm on Win98SE).  I get the following Windows error:
>=20
>    PERL caused an invalid page fault in
>    Module MSVCRT.DLL at 0167:78003b44.
>    Registers:
>    EAX=3D01824f5c CS=3D0167 EIP=3D78003b44 EFLGS=3D00010246
>      (etc.)
>=20
> This is the script (hello.pl)
>=20
>    use Win32::GUI;
>    $main =3D Win32::GUI::Window->new(
>      -name =3D> 'Main',
>      -width =3D> 100,=20
>      -height =3D> 100,
>     );
>    $main->AddLabel(-text =3D> "Hello, World");
>    $main->Show();
>    Win32::GUI::Dialog();
>=20
>    sub Main_Terminate {
>     -1;
>    }
> =09
> I assume I missed some absolute first step in the process...
> I scanned the listserv archive and didn't see anyone else=20
> disqualified so early in the game :-)
> =
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D
> =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D
> Frank Stetzer, Ph.D.                              st...@uw...
> Research Support                                  P.O. Box 413
> Information and Media Technologies                Milwaukee, WI 53201
> University of Wisconsin - Milwaukee               (414)-229-4571
>=20
>=20
> _______________________________________________
> Perl-Win32-GUI-Users mailing list
> Per...@li...
> https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
>=20

[perl-win32-gui-users] Absolute newbie Q

[Frank S. <st...@cs...>]

I tried the "Hello, world" script from the Win32::GUI tutorial part 1.
(This is with yeterday's Active State build and Win32::GUI 0.558
installed by ppm on Win98SE).  I get the following Windows error:

   PERL caused an invalid page fault in
   Module MSVCRT.DLL at 0167:78003b44.
   Registers:
   EAX=01824f5c CS=0167 EIP=78003b44 EFLGS=00010246
     (etc.)

This is the script (hello.pl)

   use Win32::GUI;
   $main = Win32::GUI::Window->new(
     -name => 'Main',
     -width => 100, 
     -height => 100,
    );
   $main->AddLabel(-text => "Hello, World");
   $main->Show();
   Win32::GUI::Dialog();

   sub Main_Terminate {
    -1;
   }
	
I assume I missed some absolute first step in the process...
I scanned the listserv archive and didn't see anyone else 
disqualified so early in the game :-)
========================================================================
Frank Stetzer, Ph.D.                              st...@uw...
Research Support                                  P.O. Box 413
Information and Media Technologies                Milwaukee, WI 53201
University of Wisconsin - Milwaukee               (414)-229-4571

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

[Johan L. <jo...@ba...>]

At 07:15 2001-09-28 -0400, Frazier, Joe Jr wrote:
>That actually did it!  Thanks.    I have so much time spent on this
>application that converting it to use GUILoft would not be an easy
>option.

Actually, since all The GUI Loft does is _building_ the window for you, 
replacing existing window-creating code with The GUI Loft Designs is really 
straightforward:

Create a Design with exactly the same controls and control names, comment 
out the existing code and replace it with the window-building code for the 
.gld file. Voila, you're done. Everything else that has to do with 
Win32::GUI remains the same (except that you don't have to do resizing and 
TabStrips manually unless you want to).

I did that with The GUI Loft application itself and it worked out just 
fine. If it's worth the effort when you already have a working solution is 
another matter :)

I can imagine that TGL Designs are more maintainable and easy to 
change/redesign than a bunch of $window->AddControl() statements.


/J

------ ---- --- -- -- -- -  -   -    -        -
Johan Lindström                    Boss Casinos
Sourcerer                     jo...@ba...
                  http://www.bahnhof.se/~johanl/
If the only tool you have is a hammer,
everything tends to look
like a nail 

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

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

That actually did it!  Thanks.    I have so much time spent on this
application that converting it to use GUILoft would not be an easy
option.   I am however, using GUILoft for all new projects.  By
autofill, I mean that if I have five lines in the Combo which start with
"i", if I put focus on the combobox and press "i", the combobox
populates the first entry which starts with "i".   If I press "i" again,
it populates the second entry with "i".  If, for example I am on the
last entry which starts with "i", and press it again, it populates the
first entry again.  =20


Anyway, Thanks for the help!

Joe Frazier, Jr
Technical Support Engineer
PeopleClick
919-645-2916
joe...@pe...
=20


-----Original Message-----
From: Johan Lindstrom [mailto:jo...@ba...]
Sent: Thursday, September 27, 2001 4:54 PM
To: per...@li...
Subject: Re: [perl-win32-gui-users] Combobox


At 15:52 2001-09-27 -0400, Frazier, Joe Jr wrote:
>What are the options for Combobox?  I have two applications which use a
>combobox.  One created manually and one using GuiLoft.  The one with
>GuiLoft does an an Autofill, however, the one made manually does not.

Eh... what is an Autofill?


>Example:
>
>$Window->AddCombobox(
-snip-
>    -addstyle  =3D> WS_VISIBLE | 2 | WS_VSCROLL,
>);

This looks like it is a combo with style CBS_DROPDOWN (the 2). In The
GUI=20
Loft, that is analogue to setting the Type property to "drop combo".

But from your description of how The Gui Loft version works, the Type=20
property is set to "drop list". The Win32::GUI code would look like
this:

     -addstyle =3D> 0x0003,                #CBS_DROPDOWNLIST

The third type of Combobox is Type: "simple combo", or

     -addstyle =3D> 0x0001,                #CBS_SIMPLE


If anyone is interested, how each type of control in The GUI Loft is=20
created can be viewed in the files in=20
.../PPM/Loft/lib/Win32/GUI/Loft/Control/ in the source distribution:
http://www.bahnhof.se/~johanl/perl/Loft/

In some situations it may be helpful just to be able to see the relevant

constants and stuff, even if you don't put any effort into understanding

the rest of the code.


/J

------ ---- --- -- -- -- -  -   -    -        -
Johan Lindstr=F6m                    Boss Casinos
Sourcerer                     jo...@ba...
                  http://www.bahnhof.se/~johanl/
If the only tool you have is a hammer,
everything tends to look
like a nail=20



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

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

[Johan L. <jo...@ba...>]

At 05:21 2001-09-28 +0200, Marcus wrote:
>How do you group radiobuttons on the same window so that they remain
>independent of other groups?

You should set the -group => 1 option on the _first_ RadioButton in each 
group. This control should also be a tabstop. The other RadioButtons in the 
group should have these options turned off.


>On another subject, how does the archive search function work?

It doesn't.

Yeah, that sucks :\


/J

------ ---- --- -- -- -- -  -   -    -        -
Johan Lindström                    Boss Casinos
Sourcerer                     jo...@ba...
                  http://www.bahnhof.se/~johanl/
If the only tool you have is a hammer,
everything tends to look
like a nail 

[perl-win32-gui-users] Radiobutton groups

[Marcus <li...@wo...>]

How do you group radiobuttons on the same window so that they remain
independent of other groups?
If you just define define radiobuttons, then only one button per window
can be checked. The example also only has one radiobutton group, and
the documentation doesn't mention anything.

On another subject, how does the archive search function work?
Do you need a login ID for it to work?
I've not manged to get one match, even using words I can view in actual
mails. Or is it some sort of browser technology issue, such as activex
being required?

Thanks,

Marcus

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

[Johan L. <jo...@ba...>]

At 15:52 2001-09-27 -0400, Frazier, Joe Jr wrote:
>What are the options for Combobox?  I have two applications which use a
>combobox.  One created manually and one using GuiLoft.  The one with
>GuiLoft does an an Autofill, however, the one made manually does not.

Eh... what is an Autofill?


>Example:
>
>$Window->AddCombobox(
-snip-
>    -addstyle  => WS_VISIBLE | 2 | WS_VSCROLL,
>);

This looks like it is a combo with style CBS_DROPDOWN (the 2). In The GUI 
Loft, that is analogue to setting the Type property to "drop combo".

But from your description of how The Gui Loft version works, the Type 
property is set to "drop list". The Win32::GUI code would look like this:

     -addstyle => 0x0003,                #CBS_DROPDOWNLIST

The third type of Combobox is Type: "simple combo", or

     -addstyle => 0x0001,                #CBS_SIMPLE


If anyone is interested, how each type of control in The GUI Loft is 
created can be viewed in the files in 
.../PPM/Loft/lib/Win32/GUI/Loft/Control/ in the source distribution:
http://www.bahnhof.se/~johanl/perl/Loft/

In some situations it may be helpful just to be able to see the relevant 
constants and stuff, even if you don't put any effort into understanding 
the rest of the code.


/J

------ ---- --- -- -- -- -  -   -    -        -
Johan Lindström                    Boss Casinos
Sourcerer                     jo...@ba...
                  http://www.bahnhof.se/~johanl/
If the only tool you have is a hammer,
everything tends to look
like a nail 

[perl-win32-gui-users] Combobox

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

What are the options for Combobox?  I have two applications which use a
combobox.  One created manually and one using GuiLoft.  The one with
GuiLoft does an an Autofill, however, the one made manually does not.
Example:

$Window->AddCombobox(
	-tabstop =3D> 1,
	-default =3D>1,
    -sort =3D> 1,
    -name   =3D> Dropdown,
    -left   =3D> 10,
    -top    =3D> 15,
    -width  =3D> 180,
    -height =3D> 300,
    -scroll  =3D> 1,
    -addstyle  =3D> WS_VISIBLE | 2 | WS_VSCROLL,
);

Given the following data.
One
Two
Three
Four
Five
Six
Seven
Eight
Nine
Ten

In the one created in GuiLoft, if I am in the combobox and press 't', it
selects 'Two'.  If I press 't' again, it selects 'Three'.   However, the
hand created combobox does not do this.  If, for example, I press 't', I
have to press the down arrow on my keyboard for it to populate 'Two'
into the control.  Any help would be umm... helpful 8^)

Joe Frazier, Jr
Technical Support Engineer
PeopleClick
919-645-2916
joe...@pe...
=20

Re: [perl-win32-gui-users] (no subject)

[Johan L. <jo...@ba...>]

Joe wrote:
>Look at the samples and "play". 8^(  To my knowledge, there is no
>standard documentation which fully explains all the features of all
>implimented controls.  This is why we have the list 8^).  Also, check
>the archives on Sourceforge.net.

Also, look at the thread "Documentation" from last Tuesday and the list I 
posted of Win32::GUI applications to learn from.

Look through all of them and take note of what cool features you'd like in 
your own program. Then go code browsing.


/J

------ ---- --- -- -- -- -  -   -    -        -
Johan Lindström                    Boss Casinos
Sourcerer                     jo...@ba...
                  http://www.bahnhof.se/~johanl/
If the only tool you have is a hammer,
everything tends to look
like a nail 

RE: [perl-win32-gui-users] (no subject)

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

Look at the samples and "play". 8^(  To my knowledge, there is no
standard documentation which fully explains all the features of all
implimented controls.  This is why we have the list 8^).  Also, check
the archives on Sourceforge.net. =20

 I took this from a program I had which has a menu, and added the
Enable/Disable to my program.  I then answered your question.  I got the
idea from "splitter.pl in the samples.  In the sub Vertical_Click, it
has :

$M->{Horizontal}->Checked(not $M->{Horizontal}->Checked );

# $M is your menu object
# Horizontal is sub-object as CID is below
# Checked is one of those undocumented methods.  I just replaced Enabled
and it worked....

Joe Frazier, Jr
Technical Support Engineer
PeopleClick
919-645-2916
joe...@pe...
=20


-----Original Message-----
From: Mark Wilkinson [mailto:ma...@il...]
Sent: Thursday, September 27, 2001 10:28 AM
To: ""Frazier; Frazier, Joe Jr;
per...@li...
Subject: RE: [perl-win32-gui-users] (no subject)


I can't find any documentation *at all* for Menu objects... all the docs
I
have say "TBA" when it comes to Menu's.  I am surprised and excited to
see
that they are implemented!  Please send me a URL where I can get updated
docs :-)

thanks all!

Mark Wilkinson
ma...@ch...
ma...@il...
> Given:
>=20
> $menu =3D Win32::GUI::MakeMenu(
>     "&File"     =3D> "File",
>     " > E&xit"  =3D> "Exit",
>     "&Search"   =3D> "Search",
>     " > &Client ID"  =3D> "CID",
> );
>=20
> then this:
> $menu->{CID}->Enabled(0);
>=20
> disables the Client ID menu command and=20
>=20
> $menu->{CID}->Enabled(1);
>=20
> reenables it.
>=20

RE: [perl-win32-gui-users] (no subject)

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

Given:

$menu =3D Win32::GUI::MakeMenu(
    "&File"     =3D> "File",
    " > E&xit"  =3D> "Exit",
    "&Search"   =3D> "Search",
    " > &Client ID"  =3D> "CID",
);

then this:
$menu->{CID}->Enabled(0);

disables the Client ID menu command and=20

$menu->{CID}->Enabled(1);

reenables it.



-----Original Message-----
From: Eva...@ao... [mailto:Eva...@ao...]
Sent: Thursday, September 27, 2001 12:18 AM
To: per...@li...
Subject: [perl-win32-gui-users] (no subject)


I've got 2 questions...=20

In a listview control, is there a way I can select *all* of the items in
the control?  Along those same lines, could i also select *none* of the
items?=20

And one more thing...can i enable/disable specific items in a
Win32::GUI::Menu object (and if so, how)?=20


-=20
______________________________=20
"Very funny Scotty.  Now beam up my clothes."=20

[perl-win32-gui-users] (no subject)

[<Eva...@ao...>]

I've got 2 questions...

In a listview control, is there a way I can select *all* of the items in the 
control?  Along those same lines, could i also select *none* of the items?

And one more thing...can i enable/disable specific items in a 
Win32::GUI::Menu object (and if so, how)?

-
______________________________
"Very funny Scotty.  Now beam up my clothes."

RE: [perl-win32-gui-users] Selecting multiple files

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

Tested:

use Win32::FileOp;
my @filenames =3D Win32::FileOp::OpenDialog(
	title =3D> 'Test',
      filters =3D> [ 'Word Documents' =3D> '*.rtf;*.doc', 'All' =3D> =
'*.*'],
      defaultfilter =3D> 1,
      dir =3D> 'c:\\',
      filename =3D> ' ',
      handle  =3D> 0,
      options =3D> OFN_ALLOWMULTISELECT |  OFN_EXPLORER,  # does multi
select and does explorer type interface
);
print join("\n", @filenames);


Aldo, any chance of getting the bit flags in the options added to the
Win32::GUI::GetOpenFileName function so that it allows multiple files?
I dont know what these consants are named in Windows, but here are the
values from the Win32::FileOp module:

OFN_ALLOWMULTISELECT =3D> 512
OFN_EXPLORER =3D> 524288

I tried [addstyle|style] to set these, but that did not work.  If we can
get this to work with SendMessage, or any other way, let us know. =20





-----Original Message-----
From: Marcus [mailto:li...@wo...]
Sent: Wednesday, September 26, 2001 1:19 AM
To: per...@li...
Subject: [perl-win32-gui-users] Selecting multiple files



It doesn't seem that you can select more than one file with
GetOpenFileName. Is that correct?
I tried using Win32::FileOp::OpenDialog, but get the following error:
Can't locate auto/DELETE.al in @INC(...) at ...Win32/FileOp.pm line
941.

Here is the code:

sub ::AddFilesButton_Click { defined(my $root =3D
$Win32::GUI::Loft::window{MyWindow}) or return(1);

use Win32;
use Win32::FileOp;

my @filenames =3D $root->Win32::FileOp::OpenDialog(
			-options =3D> 'OFN_ALLOWMULTISELECT');

...


Thanks for any help,

Marcus



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

[perl-win32-gui-users] Selecting multiple files

[Marcus <li...@wo...>]

It doesn't seem that you can select more than one file with
GetOpenFileName. Is that correct?
I tried using Win32::FileOp::OpenDialog, but get the following error:
Can't locate auto/DELETE.al in @INC(...) at ...Win32/FileOp.pm line
941.

Here is the code:

sub ::AddFilesButton_Click { defined(my $root =
$Win32::GUI::Loft::window{MyWindow}) or return(1);

use Win32;
use Win32::FileOp;

my @filenames = $root->Win32::FileOp::OpenDialog(
			-options => 'OFN_ALLOWMULTISELECT');

...


Thanks for any help,

Marcus

[perl-win32-gui-users] Remote directory browser

[Marcus <li...@wo...>]

Has anybody created a remote FTP directory browser (for file selction)?
I have written one for Perl/Tk, but if there's already one for
Win32::GUI, then I won't need to rewrite it.

Thanks,

Marcus

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

[Leon N. <le...@sc...>]

Hi John,

Just downloaded Win32-GUI-0.0.558.tar.gz and this contains all that I need.

many thanks :-)

Leon.

-----Original Message-----
From: Rogers, John [mailto:rog...@oc...]
Sent: 25 September 2001 09:54
To: 'Leon Noble'
Subject: RE: [perl-win32-gui-users] Documentation


Hi,
I cant find on line either,
I downloaded the zip of the package, there is html documents in it.
JohnR
> -----Original Message-----
> From: Leon Noble [mailto:le...@sc...]
> Sent: Tuesday, 25 September 2001 6:38
> To: per...@li...
> Subject: [perl-win32-gui-users] Documentation
> 
> 
> Hi Guys,
> 
> just new to this list, forgive me if this has been asked 
> before, but I have
> checked the archives and could find nothing on this.
> 
> Is there an online reference/documentation on the Win32::GUI 
> module. I have
> check http://dada.perl.it/ and associated urls from search engines but
> either pages could not be found or information about 
> telecommunications was
> presented before me.
> 
> any help on this greatly appreciated.
> 
> Leon Noble
> Scotland On Line
> le...@sc...
> 
> Email Disclaimer
> 
> This message is confidential and may contain privileged 
> information.  You
> should not disclose its contents to any other person.  If you 
> are not the
> intended recipient, please notify the sender named above immediately.
> 
> It is expressly declared that this e-mail does not constitute 
> nor form part
> of a contract or unilateral obligation.
> 
> Opinions, conclusions and other information in this message 
> that do not
> relate to the official business of Scotland On Line Limited shall be
> understood as neither given nor endorsed by it.
> 
> 
> _______________________________________________
> Perl-Win32-GUI-Users mailing list
> Per...@li...
> https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
> 

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

[Leon N. <le...@sc...>]

Hi Johan,

thanks for that.

the thing is that the docs @ http://dada.perl.it/gui_docs/gui.html no longer
exist, and I have used the http://www.jeb.ca/faq/Win32-GUI-FAQ.html
http://www.jeb.ca/howto/The_Win32-GUI_HOWTO.html to get started with the
Win32::GUI module. I am looking for a complete reference so I can progress
on with this module:-). The docs @ http://dada.perl.it/gui_docs/gui.html and
such related URL's found from google etc would have been perfect but as I
say they are no longer available.

many thanks

Leon.

-----Original Message-----
From: per...@li...
[mailto:per...@li...]On Behalf Of
Johan Lindstrom
Sent: 25 September 2001 10:00
To: per...@li...
Subject: Re: [perl-win32-gui-users] Documentation


Leon wrote:
>Is there an online reference/documentation on the Win32::GUI module. I have
>check http://dada.perl.it/ and associated urls from search engines but
>either pages could not be found or information about telecommunications was
>presented before me.

In the source distribution at SourceForge (download and look at the sample
scripts too!):
http://sourceforge.net/projects/perl-win32-gui

or online at:
http://dada.perl.it/gui_docs/gui.html

See also the FAQ:
http://www.jeb.ca/faq/Win32-GUI-FAQ.html

and a tutorial (which should be fixed[1]!!! (the -name stuff)):
http://www.jeb.ca/howto/The_Win32-GUI_HOWTO.html


/J

[1] This is getting Win32::GUI a lot of bad press

------ ---- --- -- -- -- -  -   -    -        -
Johan Lindström                    Boss Casinos
Sourcerer                     jo...@ba...
                  http://www.bahnhof.se/~johanl/
If the only tool you have is a hammer,
everything tends to look
like a nail



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

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

[Johan L. <jo...@ba...>]

Leon wrote:
>Is there an online reference/documentation on the Win32::GUI module. I have
>check http://dada.perl.it/ and associated urls from search engines but
>either pages could not be found or information about telecommunications was
>presented before me.

In the source distribution at SourceForge (download and look at the sample 
scripts too!):
http://sourceforge.net/projects/perl-win32-gui

or online at:
http://dada.perl.it/gui_docs/gui.html

See also the FAQ:
http://www.jeb.ca/faq/Win32-GUI-FAQ.html

and a tutorial (which should be fixed[1]!!! (the -name stuff)):
http://www.jeb.ca/howto/The_Win32-GUI_HOWTO.html


/J

[1] This is getting Win32::GUI a lot of bad press

------ ---- --- -- -- -- -  -   -    -        -
Johan Lindström                    Boss Casinos
Sourcerer                     jo...@ba...
                  http://www.bahnhof.se/~johanl/
If the only tool you have is a hammer,
everything tends to look
like a nail 

[perl-win32-gui-users] Documentation

[Leon N. <le...@sc...>]

Hi Guys,

just new to this list, forgive me if this has been asked before, but I have
checked the archives and could find nothing on this.

Is there an online reference/documentation on the Win32::GUI module. I have
check http://dada.perl.it/ and associated urls from search engines but
either pages could not be found or information about telecommunications was
presented before me.

any help on this greatly appreciated.

Leon Noble
Scotland On Line
le...@sc...

Email Disclaimer

This message is confidential and may contain privileged information.  You
should not disclose its contents to any other person.  If you are not the
intended recipient, please notify the sender named above immediately.

It is expressly declared that this e-mail does not constitute nor form part
of a contract or unilateral obligation.

Opinions, conclusions and other information in this message that do not
relate to the official business of Scotland On Line Limited shall be
understood as neither given nor endorsed by it.

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

[Jason B. <jas...@gb...>]

> Second, how can i determine (using any win32 module, really) the default
width in pixels of a scrollbar on each seperate 
> user's computer?  for instance, on mine, it's 16 pixels, but someone
else's computer, it may be 5 pixels, or even like 32 
> pixels...how can i tell? 

Not a complete answer but hopefully some direction to the second question

The registry key "HKCU\Control Panel\Desktop\WindowMetrics\Scroll Width" or
"Scroll Height" may be a good start. 8 pixels seems to equate to -120, 9
pixels = -135 and so on .... 32 pixels = -480.... Both of these values seem
to be linked and change whenever the Appearance Display properties are
changed. This was on a Win2K box but I would want to test it across all your
targets....

Hope this can help out a bit

JB

[perl-win32-gui-users] Scrollbar Questions

[<Eva...@ao...>]

I've actually got 2 different questions, both concerning scrollbars...

First, on a Listview control (with gridlines and multiple columns), it works 
so that if the height of it is less than the height of the items in it, it 
automatically adds a vertical scroll bar...now how can i tell if there's 
*actually* a scrollbar on it?

Second, how can i determine (using any win32 module, really) the default 
width in pixels of a scrollbar on each seperate user's computer?  for 
instance, on mine, it's 16 pixels, but someone else's computer, it may be 5 
pixels, or even like 32 pixels...how can i tell?

so, if anyone can answer my questions, or even point me in the right 
direction, it'd help me out a LOT.

-

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

[Jason B. <jas...@gb...>]

> I just decided to take Win32-GUI for a test drive and
> tried the following sample.  It abortrf on the
> addlabel method.  I'm running on Win2000 and I've got
> the latest release of Win32-GUI I believe, release
> 0.0.558.  If I comment that line out it runs fine.

Labels and most controls seem to need a -name tag

The original code crashed on my system too... With this slight modification
it works fine for me.

JB

== Begin Perl Code ==
use Win32::GUI;
$main = Win32::GUI::Window->new(
	-name   => 'Main',
	-width  => 100,
	-height => 100,
);

$main->AddLabel(
	-text => "Hello, world",
	-name => HelloLbl     # HERE IS THE CHANGE
);

$main->Show();
Win32::GUI::Dialog();

sub Main_Terminate {
	-1;
}
== End Perl Code ==