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

RE: [perl-win32-gui-users] Some beginners questions

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

> >- Is it somehow possible to catch keyboard events? I did not 
> find anything
> >in the Win32::GUI docu except for some _KeyDown event which 
> was associated
> >to a single object.
> 

I know you can use _KeyPress to catch keyboard events. I know it works in a
RichEdit, don't know about elsewhere.


> I don't know if anyone has been able to get Keyboard 
> Accelerators to work 
> for them properly (code examples wanted :)

I've not been able to get 'em to work either. Code examples would be a good
thing.

Re: [perl-win32-gui-users] Some beginners questions

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

Christian wrote:
>- I added some "RadioButton" to a window. It looks that they are all treated
>as one group of buttons in Win32::GUI. Is it somehow possible to create more
>than 1 group of radiobuttons in the same window?

Set the option -group => 1 in the first RadionButton control in each "radio 
button group". I think that's supported. If it isn't, do it with an 
-addstyle option:

-addstyle", 0x00020000,         #WS_GROUP

That works for sure.


>- Is it possible to distinguish between whether a window is closed by the
>close icon in the top right corner of the window or via the ALT-F4 key?

Don't think so (uncertain).


>- Is it somehow possible to catch keyboard events? I did not find anything
>in the Win32::GUI docu except for some _KeyDown event which was associated
>to a single object.

I don't know if anyone has been able to get Keyboard Accelerators to work 
for them properly (code examples wanted :)

In The GUI Loft, I use a Timer to poll for keyboard activity. Download the 
source at

http://www.bahnhof.se/~johanl/perl/Loft/

and look at the sub ::timKey_Timer (in lib\TGL\WindowDesign.pm). It uses 
the sub Win32::GUI::AdHoc::GetKeyboardState (in 
PPM\AdHoc\lib\Win32\GUI\AdHoc.pm).

It's not an elegant solution, but it works almost as desired.


/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] Some beginners questions

[Christian K. <uz...@un...>]

Hi listers,

I am new in this mailing list. My name is Christian. I just started to do
some programing of GUI's under Win32. I am not that chrack in perl
programming. Played a bit with Win32::GUI. Now I have some questions and
hope you could give me some answers:

- I added some "RadioButton" to a window. It looks that they are all treated
as one group of buttons in Win32::GUI. Is it somehow possible to create more
than 1 group of radiobuttons in the same window?
- Is it possible to associate a text to a radiobutton which wraps at the
right border of the window without creating a separate Label Object for it?
- Is it possible to distinguish between whether a window is closed by the
close icon in the top right corner of the window or via the ALT-F4 key?
- Is it somehow possible to catch keyboard events? I did not find anything
in the Win32::GUI docu except for some _KeyDown event which was associated
to a single object.

Thanks for all answers!

Regards,

   Christian

Re: [perl-win32-gui-users] Question about adding methods to GUI objects

[Dave L. <pe...@sc...>]

Joe,

The way to do this is to create the method in the Win32::GUI package. Then
switch back to the main package when you've finished to write your own code.
See the following example:

#!/perl -w

use Win32::GUI;

package Win32::GUI; # Create following methods as Win32::GUI methods

sub CenterOnScreen{

my $window = shift;  # gets the object which called the method??
my $desk = $window->GetDesktopWindow();
my(undef, undef, $d_width, $d_height)= Win32::GUI::GetWindowRect($desk);
my ($win_width)= $window->ScaleWidth();
my ($win_height) = $window->ScaleHeight();
my $delta_w = ($d_width  /2) - ($win_width/ 2);
my $delta_h = ($d_height / 2) - ($win_height / 2);
$window->Move($delta_w, $delta_h);

}

package main; # Return to the main package

my $window = new Win32::GUI::Window(
  -style   => WS_MINIMIZEBOX | WS_SYSMENU | WS_MAXIMIZEBOX,
  -name    => "Window",
  -title   => "EDFTree",
  -left    => 0,
  -top     => 0,
  -width   => 600,
  -height  => 504,
  -sizable => 1,
);

$window->Show;

$window->CenterOnScreen;

Win32::GUI::Dialog();




----- Original Message -----
From: "Frazier, Joe Jr" <Joe...@Pe...>
To: <per...@li...>
Sent: 07 August 2001 22:56
Subject: [perl-win32-gui-users] Question about adding methods to GUI objects


Is there a simple way to add a method to an object?  Basically, what I
want to do is this:

$window->CenterOnScreen();

where $window is my Win32::GUI::Window object, and CenterOnScreen() is a
sub I created in another package( or in main for that matter)

so that the method call above would invoke

sub CenterOnScreen{

my $window = shift;  # gets the object which called the method??

my $desk = $window->GetDesktopWindow();
my(undef, undef, $d_width, $d_height)= Win32::GUI::GetWindowRect($desk);
my ($win_width)= $window->ScaleWidth();
my ($win_height) = $window->ScaleHeight();
my $delta_w = ($d_width  /2) - ($win_width/ 2);
my $delta_h = ($d_height / 2) - ($win_height / 2);
$window->Move($delta_w, $delta_h);
}

So, how do I call this method created in my own package with an object
created in another package. I know I could easily do
CenterOnScreen($window);

but I want to stay in OO mode as much as possible AND I will want to
create several utility methods such as this for my GUI projects.

Any help is appreciated in advance.

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


PS:  Thanks to all for making such a great visual tool for us Win32
programmers.  I use this often to create simple GUI's which our "Tools"
team does seem to find time to produce.  Also, when is the next version
coming out?



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

Re: [perl-win32-gui-users] Question about adding methods to GUI objects

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

Joe wrote:
>Is there a simple way to add a method to an object?  Basically, what I
>want to do is this:
>
>$window->CenterOnScreen();

#Minimalistic example
use Data::Dumper;
sub Win32::GUI::Window::CenterOnScreen { my $self = shift;
         print "In CenterOnScreen\n";
         print Dumper($self);
         }

Or if you have a number of subs to add, enter package Win32::GUI::Window 
like this:

package Win32::GUI::Window;
use Data::Dumper;
sub CenterOnScreen { my $self = shift;
         print "In CenterOnScreen\n";
         print Dumper($self);
         }

I don't know which is more obvious to the reader. I guess the second 
approach where you explicitly change package.


/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] Question about adding methods to GUI objects

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

Is there a simple way to add a method to an object?  Basically, what I
want to do is this:

$window->CenterOnScreen();

where $window is my Win32::GUI::Window object, and CenterOnScreen() is a
sub I created in another package( or in main for that matter)

so that the method call above would invoke=20

sub CenterOnScreen{

my $window =3D shift;  # gets the object which called the method??

my $desk =3D $window->GetDesktopWindow();
my(undef, undef, $d_width, $d_height)=3D =
Win32::GUI::GetWindowRect($desk);
my ($win_width)=3D $window->ScaleWidth();
my ($win_height) =3D $window->ScaleHeight();
my $delta_w =3D ($d_width  /2) - ($win_width/ 2);
my $delta_h =3D ($d_height / 2) - ($win_height / 2);
$window->Move($delta_w, $delta_h);
}

So, how do I call this method created in my own package with an object
created in another package. I know I could easily do=20
CenterOnScreen($window);

but I want to stay in OO mode as much as possible AND I will want to
create several utility methods such as this for my GUI projects.

Any help is appreciated in advance.

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

PS:  Thanks to all for making such a great visual tool for us Win32
programmers.  I use this often to create simple GUI's which our "Tools"
team does seem to find time to produce.  Also, when is the next version
coming out?

[perl-win32-gui-users] Question about Threading on Win32 machines

[<Can...@ao...>]

Hey Guys,

I have not been able to get Multi-threading working with any of the modules 
on Win32 that I have tried up till now.  But the manpages that I have read 
say that it won't work on ActiveState, so I just want to know if this is 
still the current situation or if there is a way to do it.  If so any helpful 
information on how or links to the modules or pages to how you hacked it to 
work would be greatly appreciated.  I am pretty new to multi-threading so it 
could just be that I am naive to perls modules for it, either way any 
guidence would be greatly appreciated.

Thanks,
MAG

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

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

Renat Araslanow wrote:
> thanks a lot! but dont u think that this can be documented?

of course it could, if only I had time to do it. and then, I never
needed vertical text on a label, so who ever imagined this? :-)

> and who maintain documentation.

unfortunately, it's me :-(
as I said several times already, if you (or anybody else) want to take
over this task, I'll be very, very, very glad.

> PS% and how about buttons valign bug?

possibly my fault, I'll look into it.


cheers,
Aldo

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

[perl-win32-gui-users] hack message queue and get particular message

[Renat A. <tr...@ya...>]

how i can subj? strictly speaking i want get WM_HELP message to process help
button that appears in title when we create window with following tags

        -helpbutton=>1,
        -maximizebox=>0,
        -minimizebox=>0,

here a sample prog that not work. somebody can help me (except God, of
course =)?

use Win32::GUI;
    my $main_window=new Win32::GUI::Window(
        -name=>"main_window",
        -title=>"main window",
        -pos=>[100,50],
        -size=>[500,500],
        -helpbutton=>1,
        -maximizebox=>0,
        -minimizebox=>0,
        );

    $main_window->AddTabStrip(
        -justify=>1,
        -name=>"tabs",
        -pos=>[0,0],
        -helpId=>10,
        -size=>[400,500]);

    $main_window->tabs->InsertItem(-text=>"first");
    $main_window->tabs->InsertItem(-text=>"#####",);

    $main_window->Show();
    #Win32::GUI::Dialog();
    open FH,"> zzz";
    while(1)
    {
        my @msg;

        print "founded!!" if Win32::GUI::PeekMessage(0x0053,0x0053,\@msg);
        print "@msg";
        my $z=unpack('IiiLLllpl',$msg[3]);
        print $z;
        Win32::GUI::DoEvents();
        select(undef, undef, undef, 0.5);
    }

sub main_window_Terminate
{
    exit;
    return -1;
}

PS% sorry for my awful English. =(

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

[Renat A. <tr...@ya...>]

>> Subject: Can't see label with user defined font
>>Reason: '-escapement' tag in font definition"

>this is a (rather unpleasant) feature :-)

[explanation skiped]

thanks a lot! but dont u think that this can be documented? and who maintain
documentation.
in Win32-GUI-0.0.558.tar.gz archive dont full (huh, maybe more than `dont
full` ;) ) and so many TDB =(

>> when i write in C and use it - it working pretty good.

>you should've been writing something else, because in C it works
>exactly the same way as Win32::GUI.

I meant no harm you. i end my bussines wih Win32 API long time ago and
possibly i forgot about this behavior.

PS% and how about buttons valign bug?
_______________________________________________
Perl-Win32-GUI-Users mailing list
Per...@li...
http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users

RE: [perl-win32-gui-users] interactive help [? ]button

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

Aye, therein lies the rub. I haven't had any practical application for =
it
yet, but hopefully this page from the MSDN will help:

http://msdn.microsoft.com/library/default.asp?url=3D/library/en-us/cpref=
/html/
frlrfSystemWindowsFormsFormClassHelpButtonTopic.asp

This page describes the event for a Help button as =
'control.HelpRequested',
I can only assume that means you will have a sub for each item you want =
to
provide help on? I tried to write a quick program, but didn't have much =
luck
making it work. This is all I have found so far, but I hope that it =
helps
you out.

Sorry I don't have any more information for you,
-Mike
Mic...@tr...


-----Original Message-----
From: Rogers, John [mailto:rog...@oc...]
Sent: Sunday, August 05, 2001 12:53 AM
To: 'per...@li...'
Subject: RE: [perl-win32-gui-users] interactive help [? ]button


I looked up this theard and others in the archives
I now know how to hide it , Thanks
But my question still remains, how to make it Do something ?

JohnR

> -----Original Message-----
> From: Forhan, Michael [mailto:Mic...@tr...]
> Sent: Friday, 3 August 2001 11:55
> To: 'per...@li...'
> Subject: RE: [perl-win32-gui-users] interactive help [? ]button
>=20
>=20
> The issue of the question button came up some time ago in=20
> this group, (I
> have a post from 5/31/01 in my personal archive), thought it=20
> may have been
> hard to spot from the subject [ Window Size Controls &=20
> Miscellany ?'s ] Here
> it is for your reference:
>=20
> <!-- Begin Snippet -->
>=20
> I pulled up Microsoft's website on maximizebox settings (I=20
> just searched for
> it from their main page), and linking from there I found=20
> information for a
> 'helpbutton'. After putting -helpbutton =3D> 1 in my
> window, sure enough, I got one of those '?' boxes.=20
>=20
> Its amazing what new functionality you can find by just being=20
> curious ;)=20
>=20
> -Michael Forhan
>=20
> -----Original Message-----
> From: Frazier, Joe Jr [mailto:Joe...@Pe...]
> Sent: Thursday, May 31, 2001 1:49 PM
> To: per...@li...
> Subject: RE: [perl-win32-gui-users] Window Size Controls & Miscellany
> ?'s
>=20
>=20
> Yea, I just found about the -maximizebox thing.  -minimizebox does =
the
> opposite.  Set both to 0 if you want neither to show.  I wonder if
> -questionbox works the same way for a Win32::GUI::DialogWindow and
> removes the goofy question mark box?
>=20
> <!-- End Snippet -->
>=20
> Hope this helps!
> -Mike=20
> Mic...@tr...
>=20
> PS. I believe you have to have -minimizebox and -maximizebox=20
> =3D> 0 before you
> can use the questionbox option.
>=20
> -----Original Message-----
>=20
> Gday,
>=20
> I just joined this list Ive been using perl a Win32::GUI for=20
> a few months
> now,
> I posted the following on win32 users list and got no answer=20
> any one here
> help ?
>=20
> ---------
> Does anyone know how to use the interactive help, (?) button on the
> dialogbox ???
>=20
> cant find it in the docs
>=20
> dosent have to really work just a button event would be ok,
> ----------
>=20
> JohnR
>=20
> _______________________________________________
> Perl-Win32-GUI-Users mailing list
> Per...@li...
> http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
>=20


##############################################################=20
Disclaimer=20

If this e-mail has been sent to you in error, please notify=20
Oc=E9-Australia Limited immediately and delete this e-mail from=20
your system.=20

Any views expressed in this e-mail are those of the individual=20
sender and may not necessarily reflect the views of=20
Oc=E9-Australia Limited.=20
##############################################################

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

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

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

Renat Araslanow wrote:
> Subject: Can't see label with user defined font
> Reason: '-escapement' tag in font definition"

this is a (rather unpleasant) feature :-)
the label is there, and the text is even rotated 90=B0, but it
falls outside of the label area. the reference point for the
text is the upper left corner of the label, so when you rotate
it, the text is above the label area. the following ASCII art
should (hopefully) explain what's happening:

               T
               X
               E
               T
  +------+    +------+
  |TEXT  |    |      |
  +------+    +------+
  normal      rotated

I did some research and found that, in order to see at least
some of the text inside the label, you need this:

    $W->AddLabel(
        -name=3D>"ok",
        -left=3D>0,-top=3D>100,
        -width=3D>500,-height=3D>500,
        -align =3D> 'center',  # center horizontally
        -addstyle =3D> 0x200, # SS_CENTERIMAGE (center vertically)
        -font=3D>$font1,
        -text=3D>"ooooooo",
    );

the only drawback to this is that SS_CENTERIMAGE works only for
a single-line text. if you try it with more than one line, it
just doesn't wrap.

another pretty ugly workaround to fit the text in the label area
is to add some newline before the text (eg. -text =3D>
"\r\n\r\noooooo").

> when i write in C and use it - it working pretty good.

you should've been writing something else, because in C it works
exactly the same way as Win32::GUI.


cheers,
Aldo

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

Re: [perl-win32-gui-users] Window without border and icons for a splash screen?

[<pko...@me...>]

Great work, Johan!

This did the trick. Thanks,

Peter


> -----Urspr=FCngliche Nachricht-----
> Von: per...@li...
> [mailto:per...@li...]Im Auftrag von
> Johan Lindstrom
> Gesendet am: Sonntag, 5. August 2001 23:00
> An: per...@li...
> Betreff: Re: [perl-win32-gui-users] Window without border and icons for
> a splash screen?
>
> Peter wrote:
> >is there a solution for creating splash screens without the
> windows border
> >and icons (e. g. like Opera).
>
> Try this:
>
> my $winMain =3D new Win32::GUI::Window(
>          -left   =3D> 13,
>          -top    =3D> 32,
>          -width  =3D> 439,
>          -height =3D> 260,
>          -name   =3D> "winMain",
>          -text   =3D> "Autoscroller",
>          -style =3D> 0x80000000                    #WS_POPUP
>          );
>
> Read more about the CreateWindow function in the Win32 API for
> other things
> you can do to the style.
>
> <http://msdn.microsoft.com/library/default.asp?url=3D/library/en-us/
wcesdkr/htm/_wcesdk_win32_createwindow.asp>


/J - just back from YAPC::Europe in Amsterdam

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



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

Re: [perl-win32-gui-users] Window without border and icons for a splash screen?

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

Peter wrote:
>is there a solution for creating splash screens without the windows border
>and icons (e. g. like Opera).

Try this:

my $winMain = new Win32::GUI::Window(
         -left   => 13,
         -top    => 32,
         -width  => 439,
         -height => 260,
         -name   => "winMain",
         -text   => "Autoscroller",
         -style => 0x80000000                    #WS_POPUP
         );

Read more about the CreateWindow function in the Win32 API for other things 
you can do to the style.

<http://msdn.microsoft.com/library/default.asp?url=/library/en-us/wcesdkr/htm/_wcesdk_win32_createwindow.asp>


/J - just back from YAPC::Europe in Amsterdam

------ ---- --- -- -- -- -  -   -    -        -
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] bug_or_feature [1]

[Renat A. <tr...@ya...>]

> Not sure what the '-escapement' tag in the font was supposed to do but
when

here a cut from MSDN. when i write in C and use it - it working pretty good.

==

Specifies the angle, in tenths of degrees, between the escapement vector and
the x-axis of the device. The escapement vector is parallel to the base line
of a row of text.

==
> I removed it the label became visible.

i see you next msg. all allright =)

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

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

duh. you said that. I must need more coffee...

> -----Original Message-----
> From: Peter Eisengrein 
> Sent: 05 August 2001 11:58
> To: 'per...@li...'
> Subject: RE: [perl-win32-gui-users] bug_or_feature [1]
> 
> 
> Not sure what the '-escapement' tag in the font was supposed 
> to do but when I removed it the label became visible.
> 
> 
> 
> 
> > -----Original Message-----
> > From: Renat Araslanow [mailto:tr...@ya...]
> > Sent: 04 August 2001 15:53
> > To: per...@li...
> > Subject: [perl-win32-gui-users] bug_or_feature [1]
> > 
> > 
> > #OS w2k pro SP1 rus ActivePerl 5.6.1.626
> > #Win32::GUI::Version=0.0.558
> > 
> > use Win32::GUI;
> > 
> >     $W=new Win32::GUI::Window(
> >         -name=>"bug_or_feature",
> >         -title=>"bug_or_feature - can't see label.",
> >         -pos=>[100,50],
> >         -size=>[500,500],
> >         );
> > 
> >     $font1=new Win32::GUI::Font(
> >         -name=>'Arial',
> >         -size=>24,
> >         -escapement=>900,
> >         );
> > 
> >     
> > 
> $W->AddLabel(-name=>"ok",-left=>0,-top=>100,-width=>500,-height=>500,
> >         -font=>$font1,
> >         -text=>"ooooooo");
> > 
> >     $W->AddLabel(-name=>"explanation",-pos=>[0,0],-size=>[500,100],
> >         -text=>"Subject: Can't see label with user defined 
> > font\nReason:
> > '-escapement' tag in font definition"
> >         );
> > 
> >     $W->Show();
> >     $W->Dialog;
> > 
> > sub bug_or_feature_Terminate
> > {
> >     return -1;
> > }
> > 
> > 
> > _______________________________________________
> > Perl-Win32-GUI-Users mailing list
> > Per...@li...
> > http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
> > 
> 

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

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

Not sure what the '-escapement' tag in the font was supposed to do but when
I removed it the label became visible.




> -----Original Message-----
> From: Renat Araslanow [mailto:tr...@ya...]
> Sent: 04 August 2001 15:53
> To: per...@li...
> Subject: [perl-win32-gui-users] bug_or_feature [1]
> 
> 
> #OS w2k pro SP1 rus ActivePerl 5.6.1.626
> #Win32::GUI::Version=0.0.558
> 
> use Win32::GUI;
> 
>     $W=new Win32::GUI::Window(
>         -name=>"bug_or_feature",
>         -title=>"bug_or_feature - can't see label.",
>         -pos=>[100,50],
>         -size=>[500,500],
>         );
> 
>     $font1=new Win32::GUI::Font(
>         -name=>'Arial',
>         -size=>24,
>         -escapement=>900,
>         );
> 
>     
> $W->AddLabel(-name=>"ok",-left=>0,-top=>100,-width=>500,-height=>500,
>         -font=>$font1,
>         -text=>"ooooooo");
> 
>     $W->AddLabel(-name=>"explanation",-pos=>[0,0],-size=>[500,100],
>         -text=>"Subject: Can't see label with user defined 
> font\nReason:
> '-escapement' tag in font definition"
>         );
> 
>     $W->Show();
>     $W->Dialog;
> 
> sub bug_or_feature_Terminate
> {
>     return -1;
> }
> 
> 
> _______________________________________________
> Perl-Win32-GUI-Users mailing list
> Per...@li...
> http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
> 

RE: [perl-win32-gui-users] interactive help [? ]button

[Rogers, J. <rog...@oc...>]

I looked up this theard and others in the archives
I now know how to hide it , Thanks
But my question still remains, how to make it Do something ?

JohnR

> -----Original Message-----
> From: Forhan, Michael [mailto:Mic...@tr...]
> Sent: Friday, 3 August 2001 11:55
> To: 'per...@li...'
> Subject: RE: [perl-win32-gui-users] interactive help [? ]button
>=20
>=20
> The issue of the question button came up some time ago in=20
> this group, (I
> have a post from 5/31/01 in my personal archive), thought it=20
> may have been
> hard to spot from the subject [ Window Size Controls &=20
> Miscellany ?'s ] Here
> it is for your reference:
>=20
> <!-- Begin Snippet -->
>=20
> I pulled up Microsoft's website on maximizebox settings (I=20
> just searched for
> it from their main page), and linking from there I found=20
> information for a
> 'helpbutton'. After putting -helpbutton =3D> 1 in my
> window, sure enough, I got one of those '?' boxes.=20
>=20
> Its amazing what new functionality you can find by just being=20
> curious ;)=20
>=20
> -Michael Forhan
>=20
> -----Original Message-----
> From: Frazier, Joe Jr [mailto:Joe...@Pe...]
> Sent: Thursday, May 31, 2001 1:49 PM
> To: per...@li...
> Subject: RE: [perl-win32-gui-users] Window Size Controls & Miscellany
> ?'s
>=20
>=20
> Yea, I just found about the -maximizebox thing.  -minimizebox does =
the
> opposite.  Set both to 0 if you want neither to show.  I wonder if
> -questionbox works the same way for a Win32::GUI::DialogWindow and
> removes the goofy question mark box?
>=20
> <!-- End Snippet -->
>=20
> Hope this helps!
> -Mike=20
> Mic...@tr...
>=20
> PS. I believe you have to have -minimizebox and -maximizebox=20
> =3D> 0 before you
> can use the questionbox option.
>=20
> -----Original Message-----
>=20
> Gday,
>=20
> I just joined this list Ive been using perl a Win32::GUI for=20
> a few months
> now,
> I posted the following on win32 users list and got no answer=20
> any one here
> help ?
>=20
> ---------
> Does anyone know how to use the interactive help, (?) button on the
> dialogbox ???
>=20
> cant find it in the docs
>=20
> dosent have to really work just a button event would be ok,
> ----------
>=20
> JohnR
>=20
> _______________________________________________
> Perl-Win32-GUI-Users mailing list
> Per...@li...
> http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
>=20


##############################################################=20
Disclaimer=20

If this e-mail has been sent to you in error, please notify=20
Oc=E9-Australia Limited immediately and delete this e-mail from=20
your system.=20

Any views expressed in this e-mail are those of the individual=20
sender and may not necessarily reflect the views of=20
Oc=E9-Australia Limited.=20
##############################################################

[perl-win32-gui-users] some trick? =)

[Renat A. <tr...@ya...>]

before all i want say "sorry!" to all about my bad English =(

its about event loop and modal condition window.

use Win32::GUI;

$Win = new Win32::GUI::Window(
      -left   => 341,
      -top    => 218,
      -width  => 300,
      -height => 213,
      -name   => "Win",
      -text   => "Window Title"
      );


$Win->AddButton(
       -text    => "Loop",
       -name    => "Loop",
       -left    => 104.5,
       -top     => 102,
       -width   => 95,
       -height  => 28,
      );

$Win2 = new Win32::GUI::Window(
      -left   => 391,
      -top    => 238,
      -width  => 200,
      -height => 183,
      -name   => "Win2",
      -title   => "New Window",
      );

$Win2->AddLabel(
       -text    => "",
       -name    => "Label",
       -left    => 60,
       -top     => 30,
       -width   => 20,
       -height  => 20,
      );

$Win2->AddButton(
       -text    => "OK",
       -name    => "OK",
       -left    => 50,
       -top     => 102,
       -width   => 95,
       -height  => 28,
      );

print  "$Win->{-handle}\t$Win2->{-handle}\n";

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

$global=0;

sub Win_Terminate {
   return -1;
}


sub Loop_Click {

   foreach $i (0 ... 3) {
     $Win->Disable();
     Show_Win2($i);
     while (!$global)
     {
        Win32::GUI::DoEvents();
        #sleep 1;
        #sleep functionality =)
        select(undef, undef, undef, 0.1); 
     }
     $global=0;
     print "ok$i";
    sleep 1;
   }
}

sub Win2_Terminate{
    return -1;
}

sub Show_Win2 {
   my($num) = @_;

   $Win2->Label->Text($num);
   $Win2->Show();
   $Win2->Update();
     # "This will make the OK button show up, but
     # the window will not wait for a click of the OK."

     # this behavior was before we add while loop in "sub Loop_Click"
     # with this loop we see expected behavior
     # first this question i see from David Hiltz
}

sub OK_Click {
   $Win->Enable();
   $Win2->Hide();
   $global=1;
   return 1;
}

[perl-win32-gui-users] bug_or_feature[2]

[Renat A. <tr...@ya...>]

#OS w2k pro SP1 rus ActivePerl 5.6.1.626
#Win32::GUI::Version=0.0.558

use Win32::GUI;

    $W=new Win32::GUI::Window(
        -name=>"bug_or_feature",
        -title=>"bug_or_feature - button '-valign' tag misplacing.",
        -pos=>[100,50],
        -size=>[500,500],
        );

$W->AddButton(-name=>"but1",-left=>0,-top=>0,
                    -width=>200,-height=>90,
                   -title=>"here is '-valign=center'",
                   -align=>right,
                   -valign=>center,
                   -visible=>1);

$W->AddButton(-name=>"but2",-left=>100,-top=>100,
                                 -width=>200,-height=>90,
                   -title=>"and here - '-valign=top'",
                   -align=>right,
                   -valign=>top,
                   -visible=>1);

    $W->Show();
    $W->Dialog;

sub bug_or_feature_Terminate
{
    return -1;
}

[perl-win32-gui-users] bug_or_feature [1]

[Renat A. <tr...@ya...>]

#OS w2k pro SP1 rus ActivePerl 5.6.1.626
#Win32::GUI::Version=0.0.558

use Win32::GUI;

    $W=new Win32::GUI::Window(
        -name=>"bug_or_feature",
        -title=>"bug_or_feature - can't see label.",
        -pos=>[100,50],
        -size=>[500,500],
        );

    $font1=new Win32::GUI::Font(
        -name=>'Arial',
        -size=>24,
        -escapement=>900,
        );

    $W->AddLabel(-name=>"ok",-left=>0,-top=>100,-width=>500,-height=>500,
        -font=>$font1,
        -text=>"ooooooo");

    $W->AddLabel(-name=>"explanation",-pos=>[0,0],-size=>[500,100],
        -text=>"Subject: Can't see label with user defined font\nReason:
'-escapement' tag in font definition"
        );

    $W->Show();
    $W->Dialog;

sub bug_or_feature_Terminate
{
    return -1;
}

[perl-win32-gui-users] AcceleratorTable doesnt work =(

[Renat A. <tr...@ya...>]

subj! =(
here is a sample on i try this. what's wrong?

PS: OS-w2k pro SP1 Win32::GUI::Version==0.0.558 (ppm) ActivePerl 5.6.1.626

#!wperl

use Win32::GUI;
    $Ac = new Win32::GUI::AcceleratorTable(
        "Ctrl-X"       => "Close",
        "Shift-N"      => "New",
        "Ctrl-Alt-Del" => "Reboot",
    );

    $main_window=new Win32::GUI::Window(
        -accel=>$Ac,
        -name=>"main_window",
        -title=>"main window",
        -top=>50,
        -left=>100,
        -width=>500,
        -height=>500,
        );


    $main_window->Show();

    Win32::GUI::Dialog();
        

sub New_Click
{
    exit;
    print "new is a";
    return 1;
}

sub main_window_Click
{
    exit;
    print "triggerred";
    return 1;    
}

sub Close_Click
{
    exit;
    print "triggerred";
    return 1;    
}

sub main_window_Terminate
{
    return -1;
}

RE: [perl-win32-gui-users] interactive help [? ]button

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

The issue of the question button came up some time ago in this group, (I
have a post from 5/31/01 in my personal archive), thought it may have been
hard to spot from the subject [ Window Size Controls & Miscellany ?'s ] Here
it is for your reference:

<!-- Begin Snippet -->

I pulled up Microsoft's website on maximizebox settings (I just searched for
it from their main page), and linking from there I found information for a
'helpbutton'. After putting -helpbutton => 1 in my
window, sure enough, I got one of those '?' boxes. 

Its amazing what new functionality you can find by just being curious ;) 

-Michael Forhan

-----Original Message-----
From: Frazier, Joe Jr [mailto:Joe...@Pe...]
Sent: Thursday, May 31, 2001 1:49 PM
To: per...@li...
Subject: RE: [perl-win32-gui-users] Window Size Controls & Miscellany
?'s


Yea, I just found about the -maximizebox thing.  -minimizebox does the
opposite.  Set both to 0 if you want neither to show.  I wonder if
-questionbox works the same way for a Win32::GUI::DialogWindow and
removes the goofy question mark box?

<!-- End Snippet -->

Hope this helps!
-Mike 
Mic...@tr...

PS. I believe you have to have -minimizebox and -maximizebox => 0 before you
can use the questionbox option.

-----Original Message-----

Gday,

I just joined this list Ive been using perl a Win32::GUI for a few months
now,
I posted the following on win32 users list and got no answer any one here
help ?

---------
Does anyone know how to use the interactive help, (?) button on the
dialogbox ???

cant find it in the docs

dosent have to really work just a button event would be ok,
----------

JohnR

[perl-win32-gui-users] interactive help [? ]button

[Rogers, J. <rog...@oc...>]

Gday,

I just joined this list Ive been using perl a Win32::GUI for a few =
months
now,
I posted the following on win32 users list and got no answer any one =
here
help ?

---------
Does anyone know how to use the interactive help, (?) button on the
dialogbox ???

cant find it in the docs

dosent have to really work just a button event would be ok,
----------




JohnR



##############################################################=20
Disclaimer=20

If this e-mail has been sent to you in error, please notify=20
Oc=E9-Australia Limited immediately and delete this e-mail from=20
your system.=20

Any views expressed in this e-mail are those of the individual=20
sender and may not necessarily reflect the views of=20
Oc=E9-Australia Limited.=20
##############################################################

[perl-win32-gui-users] Window without border and icons for a splash screen?

[<pko...@me...>]

Hello Win32-GUI users,

is there a solution for creating splash screens without the windows border
and icons (e. g. like Opera).

Thanks in advance,

Peter