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

2001-09-28 Thread Johan Lindstrom

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ömBoss Casinos
Sourcerer [EMAIL PROTECTED]
 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

2001-09-28 Thread Frazier, Joe Jr
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.   


Anyway, Thanks for the help!

Joe Frazier, Jr
Technical Support Engineer
PeopleClick
919-645-2916
[EMAIL PROTECTED]
 


-Original Message-
From: Johan Lindstrom [mailto:[EMAIL PROTECTED]
Sent: Thursday, September 27, 2001 4:54 PM
To: perl-win32-gui-users@lists.sourceforge.net
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  => 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ömBoss Casinos
Sourcerer [EMAIL PROTECTED]
  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
Perl-Win32-GUI-Users@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users



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

2001-09-28 Thread Johan Lindstrom

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ömBoss Casinos
Sourcerer [EMAIL PROTECTED]
 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] Absolute newbie Q

2001-09-28 Thread Frank Stetzer
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.  [EMAIL PROTECTED]
Research Support  P.O. Box 413
Information and Media TechnologiesMilwaukee, WI 53201
University of Wisconsin - Milwaukee   (414)-229-4571




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

2001-09-28 Thread Frazier, Joe Jr
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 = Win32::GUI::Window->new(
  -name => 'Main',
  -width => 100, 
  -height => 100,
);
   $main->AddLabel(-text => "Hello, World", -name => 'lblLabel');#
all I added was the -name attribute.
   $main->Show();
   Win32::GUI::Dialog();

   sub Main_Terminate {
-1;
   }
 

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. 

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 = $main->AddLabel(-text => "Hello, World", -name =>
'lblLabel');  
$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.  

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
[EMAIL PROTECTED]
 



> -Original Message-
> From: Frank Stetzer [mailto:[EMAIL PROTECTED]
> Sent: Friday, September 28, 2001 12:41 PM
> To: perl-win32-gui-users@lists.sourceforge.net
> 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.  [EMAIL PROTECTED]
> Research Support  P.O. Box 413
> Information and Media TechnologiesMilwaukee, WI 53201
> University of Wisconsin - Milwaukee   (414)-229-4571
> 
> 
> ___
> Perl-Win32-GUI-Users mailing list
> Perl-Win32-GUI-Users@lists.sourceforge.net
> https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
> 



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

2001-09-28 Thread Forhan, Michael
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:[EMAIL PROTECTED]
Sent: Friday, September 28, 2001 9:41 AM
To: perl-win32-gui-users@lists.sourceforge.net
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.  [EMAIL PROTECTED]
Research Support  P.O. Box 413
Information and Media TechnologiesMilwaukee, WI 53201
University of Wisconsin - Milwaukee   (414)-229-4571


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



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

2001-09-28 Thread Marcus
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