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

Re: [perl-win32-gui-users] ListView Item Click and Windows 2000

[<Kev...@al...>]

Jonathan,

The particular app that this is for will use the ListView to display fi=
les.
I was hoping to allow a single click to select a file, further single
clicks to select multiple files and a double click to perform an action=
 on
the files that had been selected.  This would mean over riding the defa=
ult
action of a single click de-selecting the items that had previously bee=
n
selected and then selecting the item the mouse pointer is on.  As leavi=
ng
the mouse on an item has the same effect as clicking (and I don't seem =
to
be able to over ride this) I can't do it that way.

Looking back at that paragraph it looks even more confusing now!

Thanks again for your experience with this.

Kev.



                                                                       =
                                                                    =20
                    Jonathan Southwick                                 =
                                                                    =20
                    <jso...@al...>                      To:  =
   per...@li...                       =20
                    Sent by:                                      cc:  =
                                                                    =20
                    per...@li...urc        Subje=
ct:     Re: [perl-win32-gui-users] ListView Item Click and Windows  =20
                    eforge.net                                    2000 =
                                                                    =20
                                                                       =
                                                                    =20
                                                                       =
                                                                    =20
                    13/06/2001 14:03                                   =
                                                                    =20
                    Please respond to perl-win32-gui-users             =
                                                                    =20
                                                                       =
                                                                    =20
                                                                       =
                                                                    =20





Kevin,

I'm not sure I understand what you are trying to do.=A0 Do you perform =
any
actions on the item when an ItemClick (single) is performed or is the
action on the item carried out with a DblClick event?

I have written a program that works like Windows "Find Files or Folders=
"
but finds users in a database.=A0 I don't even capture the ItemClick ev=
ent
because no action is carried out until the user performs a DblClick.=A0=
 I
also capture a RightClick event and bring up a popup menu to allow the =
user
to select what action should be taken.=A0 Is this a feasible solution f=
or
what you are doing?

Jonathan

Jonathan Southwick
jso...@al...
Technical & Network Services
Allegheny College, Meadville, PA 16335
(814) 332-2755

=

[perl-win32-gui-users] RE: How to change tip for Notify Icon

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

Below is part of some code.  I want to be able to change the Notify Icon
tip based on the status of the main window:

If window is visible, tip should be "Hide PCKeys", if not visible, tip
should be "Show PCKeys".  Can this be done?   I have tried several
different things and nothing has worked.  I have the hide/show part in
my NI_Click sub, but cant change the tip text... Help...

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

use Win32::GUI;

$Window =3D new Win32::GUI::Window(
    -name   =3D> "Window",
    -topmost =3D> 1,
    -left   =3D> 300,
    -top    =3D> 400,
    -width  =3D> 205,
    -height =3D> 228,
    -maxsize  =3D> [205,228],
    -minsize  =3D> [205,228],
    -text   =3D> "PC 4.0 Keys",
 -maximizebox =3D> 0,
=20

);

$icon =3D new Win32::GUI::Icon('SECUR05.ICO');
$Window->ChangeIcon($icon);
$ni =3D $Window->AddNotifyIcon(-name =3D> "NI", -id =3D> 1,
                               -icon =3D> $icon, -tip =3D> "PCKeys");

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

#=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D
sub Window_Terminate {
#=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D
$ni =3D $Window->AddNotifyIcon(-name =3D> "NI", -id =3D> 1,
                               -icon =3D> '', -tip =3D> "Hide PCKeys");
    return -1;
}

sub NI_Click {
 if ($Window->IsVisible){
  $Window->Disable();
         $Window->Hide();
         $Window->NI->{-tip} =3D "Show PCKeys";
  return 1;
 }
 else {
         $Window->Enable();
         $Window->Show();
         $Window->NI->{-tip} =3D "Hide PCKeys";
  return 1;
 }
}

Re: [perl-win32-gui-users] ListView Item Click and Windows 2000

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

Kevin,

I'm not sure I understand what you are trying to do.  Do you perform any 
actions on the item when an ItemClick (single) is performed or is the 
action on the item carried out with a DblClick event?

I have written a program that works like Windows "Find Files or Folders" 
but finds users in a database.  I don't even capture the ItemClick event 
because no action is carried out until the user performs a DblClick.  I 
also capture a RightClick event and bring up a popup menu to allow the user 
to select what action should be taken.  Is this a feasible solution for 
what you are doing?

Jonathan

----------
Jonathan Southwick
jso...@al...
Technical & Network Services
Allegheny College, Meadville, PA 16335
(814) 332-2755

At 6/13/2001 08:48 AM, you wrote:

>Jonathan,
>
>I didn't even notice you'd put Windows 200 until you sent the second email.
>
>Its a shame about the ItemClick event for ListViews, I'd hope to use
>ItemClick for selecting and then the double click for doing something with
>the selected items.  Guess I'll just have to use double click for selecting
>and a button for dealing with the selected items.
>
>Cheers,
>
>Kev.

Re: [perl-win32-gui-users] ListView Item Click and Windows 2000

[<Kev...@al...>]

Jonathan,

I didn't even notice you'd put Windows 200 until you sent the second em=
ail.

Its a shame about the ItemClick event for ListViews, I'd hope to use
ItemClick for selecting and then the double click for doing something w=
ith
the selected items.  Guess I'll just have to use double click for selec=
ting
and a button for dealing with the selected items.

Cheers,

Kev.





Jonathan Southwick <jso...@al...>@lists.sourceforge.net on
12/06/2001 18:46:52

Please respond to per...@li...

Sent by:  per...@li...


To:   per...@li...
cc:

Subject:  Re: [perl-win32-gui-users] ListView Item Click and Windows 20=
00


Heh ... I meant Windows 2000; just trying my best to short-change Micro=
soft
whenever i can.=A0 ;]

And double-lick event?????=A0 You'd think I was talking about a lollipo=
p or
something. ;]

Later days ...

Jonathan

Jonathan Southwick
jso...@al...
Technical & Network Services
Allegheny College, Meadville, PA 16335
(814) 332-2755

At 6/12/2001 12:44 PM, you wrote:

Kevin,

The same thing happens to me in Windows 200 and it happened in NT 4.0 a=
s
well.=A0 The way I got around it was to look for a double-lick event in=
stead.

Something like:

sub DataView_DblClick {

## code for double-click event

}

should work just fine.

DataView is the name given to my list view object.




JonathanJonathan Southwick
jso...@al...
Technical & Network Services
Allegheny College, Meadville, PA 16335
(814) 332-2755




At 6/12/2001 04:51 PM, you wrote:
Has anyone else found that=A0 under Windows 2000 leaving the mouse curs=
or
over a list view item causes an ItemClick event?=A0 Its almost as if th=
ere is
a MouseOver event.

If its not just me that gets this, does anyone have any thoughts on how=
 to
turn this behaviour off so that only a real click of the mouse button
generates the event?

Cheers,

Kevin.


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

=

Re: [perl-win32-gui-users] Capturing 'enter key' with Richedit

[<Kev...@al...>]

Carol,

In the KeyPress sub for the richedit you need to check if enter (ascii 13)
has been pressed.  Something like

     sub RichEdit_KeyPress {
        my($key) = @_;

        if ($key == 13) then {

           # Enter key pressed

        } else {

           # some other key

        }

     }

should do it if your rich edit control is called RichEdit.

Kev.





Carolyyne Courtney <car...@ho...>@lists.sourceforge.net on
13/06/2001 06:48:05

Please respond to per...@li...

Sent by:  per...@li...


To:   per...@li...
cc:

Subject:  [perl-win32-gui-users] Capturing 'enter key' with Richedit


Hi,

Is there any way that I can capture the 'enter key' when entering text
using
Richedit.

What I am am trying to do is:

The user types in a line of text and then hits enter.
At this point the text is evaluated in a sub routine and a response printed
in the Richedit box.

The user then enters the next line of text ..

Thanks!

Carol.


_________________________________________________________________________
Get Your Private, Free E-mail from MSN Hotmail at http://www.hotmail.com.


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

[perl-win32-gui-users] Capturing 'enter key' with Richedit

[Carolyyne C. <car...@ho...>]

Hi,

Is there any way that I can capture the 'enter key' when entering text using 
Richedit.

What I am am trying to do is:

The user types in a line of text and then hits enter.
At this point the text is evaluated in a sub routine and a response printed 
in the Richedit box.

The user then enters the next line of text ..

Thanks!

Carol.


_________________________________________________________________________
Get Your Private, Free E-mail from MSN Hotmail at http://www.hotmail.com.

RE: [perl-win32-gui-users] TreeView... how to add those little ic ons...?

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

It's 
       -lines => 1,
       -buttons => 1,
in the TreeView definition. For a sample, feel free to look up
www.fairymails.com/perl/
Click on wex.pl, download the zip and see the wex.ui file.

Have fun,
Harald

> -----Original Message-----
> From: Simon Hardy-Francis [mailto:si...@we...]
> Sent: Tuesday, June 12, 2001 12:30
> To: News group address
> Subject: [perl-win32-gui-users] TreeView... how to add those little
> icons...?
> 
> 
> Dear fellow GUI fans,
> 
> I've been fiddling with the TreeView but how to get little 
> icons (e.g. + and - boxes etc) shown in the view? Anybody 
> know or better got a link to some example code?
> 
> Thanks,
> 
> Simon
> 
> Powered by the Email PIM - Info Select - www.miclog.com
> 
> _______________________________________________
> Perl-Win32-GUI-Users mailing list
> Per...@li...
> http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
> 

[perl-win32-gui-users] TreeView... how to add those little icons...?

[Simon Hardy-F. <si...@we...>]

Dear fellow GUI fans,

I've been fiddling with the TreeView but how to get little icons (e.g. + an=
d - boxes etc) shown in the view? Anybody know or better got a link to some=
 example code?

Thanks,

Simon

Powered by the Email PIM - Info Select - www.miclog.com

Re: [perl-win32-gui-users] ListView Item Click and Windows 2000

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

Heh ... I meant Windows 2000; just trying my best to short-change Microsoft 
whenever i can.  ;]

And double-lick event?????  You'd think I was talking about a lollipop or 
something. ;]

Later days ...

Jonathan

----------
Jonathan Southwick
jso...@al...
Technical & Network Services
Allegheny College, Meadville, PA 16335
(814) 332-2755

At 6/12/2001 12:44 PM, you wrote:

>Kevin,
>
>The same thing happens to me in Windows 200 and it happened in NT 4.0 as 
>well.  The way I got around it was to look for a double-lick event instead.
>
>Something like:
>
>sub DataView_DblClick {
>
>## code for double-click event
>
>}
>
>should work just fine.
>
>DataView is the name given to my list view object.
>
>
>----------
>
>
>JonathanJonathan Southwick
>jso...@al...
>Technical & Network Services
>Allegheny College, Meadville, PA 16335
>(814) 332-2755
>
>
>
>
>At 6/12/2001 04:51 PM, you wrote:
>>Has anyone else found that  under Windows 2000 leaving the mouse cursor
>>over a list view item causes an ItemClick event?  Its almost as if there is
>>a MouseOver event.
>>
>>If its not just me that gets this, does anyone have any thoughts on how to
>>turn this behaviour off so that only a real click of the mouse button
>>generates the event?
>>
>>Cheers,
>>
>>Kevin.
>>
>>
>>_______________________________________________
>>Perl-Win32-GUI-Users mailing list
>>Per...@li...
>>http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users

Re: [perl-win32-gui-users] ListView Item Click and Windows 2000

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

Kevin,

The same thing happens to me in Windows 200 and it happened in NT 4.0 as 
well.  The way I got around it was to look for a double-lick event instead.

Something like:

sub DataView_DblClick {

## code for double-click event

}

should work just fine.

DataView is the name given to my list view object.


----------


JonathanJonathan Southwick
jso...@al...
Technical & Network Services
Allegheny College, Meadville, PA 16335
(814) 332-2755




At 6/12/2001 04:51 PM, you wrote:
>Has anyone else found that  under Windows 2000 leaving the mouse cursor
>over a list view item causes an ItemClick event?  Its almost as if there is
>a MouseOver event.
>
>If its not just me that gets this, does anyone have any thoughts on how to
>turn this behaviour off so that only a real click of the mouse button
>generates the event?
>
>Cheers,
>
>Kevin.
>
>
>_______________________________________________
>Perl-Win32-GUI-Users mailing list
>Per...@li...
>http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users

[perl-win32-gui-users] ListView Item Click and Windows 2000

[<Kev...@al...>]

Has anyone else found that  under Windows 2000 leaving the mouse cursor
over a list view item causes an ItemClick event?  Its almost as if there is
a MouseOver event.

If its not just me that gets this, does anyone have any thoughts on how to
turn this behaviour off so that only a real click of the mouse button
generates the event?

Cheers,

Kevin.

[perl-win32-gui-users] Animation

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

I have been trying various methods, ProgressBar, Flashing Text etc. to show some
form of Progress whilst files are bieng added to a Zip Archive using Win32::ZIP,
alas no luck even after some inspired help from the list. As one last effort I
am trying to display an AVI that I created but again nothing, can anyboby tell
me 1. What am I doing wrong or 2. Is this posible with the Win32::ZIP package. I
have also tried While loops and timers etc.

, code below:

if (-e $network) {
               if (-e $dirname) {
                    if (-e $archive) {

                    #----------------------
                    # Update the Archive
                    #----------------------
                    my $zipobj=new
Win32::Zip(File=>"$archive",CompressionLevel=>7,Unattended=>Yes);
                    $options={'DirNames'=>1,'RecurseDirs'=>1,'HiddenFiles'=>1,
'Update'=>1};
                    $zipobj->SetAddOptions($options);
                    undef $options;
                    $zipobj->AddFilesToList(["$source"]);
                    $zipobj->EnableEvents;

                    $status->Show();
                    $status->AddAnimation(-autoplay => 1,
                                   -transparent => 1,
                                   -left      => 0,
                                   -top       => 55,);

$status->AddAnimation->Open("C:\\DATA\\PERLSC~1\\PROGRESS.AVI");
                    $status->AddAnimation->Play();
                    $zipobj->Add();
                    $status->Hide();

                    $zipobj->DisableEvents;

                    $zipobj->GetStatistics(\@StatInfo);
                    printf DATAPLACE "FileName      Date/Time Compression\n";
                    for($i=0;$i<=$#StatInfo;$i++) {
                    printf DATAPLACE "$StatInfo[$i]->{FileName}
$StatInfo[$i]->{DateTime}    $StatInfo[$i]->{Ratio}\n";
                    undef $zipobj;
                    }

                    close DATAPLACE;

                         } else {

Many thanks

Daryll



The information in this e-mail and any attachments is confidential and may be
legally privileged. It is intended solely for the addressee or addressees. If
you are not an intended recipient, please delete the message and any attachments
and notify the sender of misdelivery: any use or disclosure of the contents of
either is unauthorised and may be unlawful. All liability for viruses is
excluded to the fullest extent permitted by law. Any views expressed in this
message are those of the individual sender, except where the sender states them,
with requisite authority, to be those of a specific LAZARD company or
partnership.

Re: [perl-win32-gui-users] List of attributes

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

Kevin wrote:
>I have noticed that some  people reference some page at Micro$oft that 
>lists some possible window attributes.

I don't remember from where I downloaded the Win32 API help file I use, 
but  try the "Win32 API Reference" from this page:

http://www.winprog.org/resources.html

There might be newer versions. Another URL anyone?

On MSDN, these URLs are probably most useful:
<http://msdn.microsoft.com/library/default.asp?URL=/library/psdk/buildapp/win32api_7f8p.htm>

<http://msdn.microsoft.com/library/default.asp?URL=/library/psdk/psdkref/catfunc_26m1.htm>


You also need the files WINUSER.H, and COMMCTRL.H to expand all C #DEFINEd 
symbols you see in the docs (good idea: always document which symbol you 
used when you insert a numeric in your code!).

I have access to the .H files through Visual Studio. I don't know the 
copyright status of header files, otherwise I could have just posted it on 
a web page. But I guess it's a bad idea, and I really don't know where to 
find them otherwise :(


>If this does not exist how do some of you know what attributes to try and 
>send to control say whether or not a maximize button appears. Is this just 
>really good divine intervention?

Curiosity, persistence and a _lot_ of browsing the help files. Occasional 
"Wow, that would be cool!" moments help a little as well :)


/J - Win32 newbie

------ ---- --- -- -- -- -  -   -    -        -
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] List of attributes

[Kevin K. <ke...@kr...>]

I have noticed that some  people reference some page at Micro$oft that lists some possible window attributes. If this does not exist how do some of you know what attributes to try and send to control say whether or not a maximize button appears. Is this just really good divine intervention? Thanks for your help, this is one of the best lists I have ever belonged to. 

I am also very interested in the examples and code snippets page that was mentioned a few days ago.

Thanks
Kevin Robert Keegan
.

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

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

My, oh my, now I've got menus in windows, and menus by popups!  Amazing what an
example will do.  Thanks.  Now I have to populate their _Click routines!

"Piske, Harald" wrote:

> Note: I took the liberty of changing the subject, since this is not about
> BringWindowToTop anymore.
>
> About the popup menu, see trail "Re; Popup menu", posting by Jonathan
> Southwick on April 2nd, 2001. Apparently, Ludvig af Klinteberg subsequently
> managed to use the code for a tray icon.
> Quote:
>
> # define popup menu for listview
> my $PopupMenu = new Win32::GUI::Menu(
>     "Item Properties" => "ItemProp",
>     ">&Properties" => "ItemProperties",
> );
>
> # get right-click in listview
> sub DataView_RightClick {
>    my($X, $Y) = Win32::GUI::GetCursorPos();
>
>    $MainWindow->TrackPopupMenu($PopupMenu->{ItemProp},$X, $Y);
> }
>
> # clicked on particular menu item in popup menu
> sub ItemProperties_Click {
>    ## code you want to process;
> }
>
> Thanks, Jonathan
> Have fun
> Harald
>
> > -----Original Message-----
> > From: Glenn Linderman [mailto:Gle...@ne...]
> > Sent: Donnerstag, 7. Juni 2001 17:33
> > To: per...@li...
> > Subject: Re: [perl-win32-gui-users] BringWindowToTop doesn't
> >
> >
> > Does anyone have sample code to create a pop-up menu for a
> > Notify Icon's
> > right click?  That seems to be the current rage for System
> > Tray icons?  I've
> > got a few other enhancements to make, and then I'll be looking that
> > direction.
> >
> > I'm speculating that on click detection, you'd position and
> > show a window
> > that contains nothing but a menu item... but there's a lot of
> > details to
> > address to get that right, if it can even be done.
> >
> > Peter Eisengrein wrote:
> >
> > > I've used SetForegroundWindow() from a NotifyIcon and that
> > works on NT4.
> > >
> > > sub ni_Click
> > > {
> > >         if ($Window->IsVisible)
> > >         {
> > >                 $Window->Hide();
> > >         }
> > >         else
> > >         {
> > >                 $Window->Show();
> > >                 $Window->SetForegroundWindow();
> > >         }
> > >
> > >         return 0;
> > > }
> > >
> > > > -----Original Message-----
> > > > From: Piske, Harald [mailto:Har...@bo...]
> > > > Sent: Wednesday, June 06, 2001 10:12 PM
> > > > To: 'per...@li...'
> > > > Subject: RE: [perl-win32-gui-users] BringWindowToTop doesn't
> > > >
> > > >
> > > > Works with me ... I have two windows, one button in the first
> > > > window brings
> > > > the other to top. Complete code snippet attached for you to
> > > > check if it
> > > > works with you and figure out the differences to yours.
> > Oh, and I only
> > > > checked on Win2k.
> > > >
> > > > Have fun,
> > > > Harald
> > > >
> > > > > -----Original Message-----
> > > > > From: Glenn Linderman [mailto:Gle...@ne...]
> > > > > Sent: Mittwoch, 6. Juni 2001 18:25
> > > > > To: Win32::GUI
> > > > > Subject: [perl-win32-gui-users] BringWindowToTop doesn't
> > > > >
> > > > >
> > > > > Hi,
> > > > >
> > > > > So I've got this code, and it doesn't bring the window to
> > > > the top.  I
> > > > > can see that each time I click on the notify icon that
> > the code gets
> > > > > executed, both because the print statement fires, and the window
> > > > > redraws.  But the window stays behind other windows, in
> > spite of the
> > > > > BringWindowToTop call.  It does that with or without
> > the Hide/Show
> > > > > sequence, and with or with a Disable/Enable sequence wrapped
> > > > > around the
> > > > > BringWindowToTop.  ActivePerl 5.6.1 build 626, Win32::GUI
> > > > > 0.0.558.  What
> > > > > trick am I missing?
> > > > >
> > > > > I'm quite willing to throw all this away, and use whatever
> > > > > works... this
> > > > > is just what sounded like should work from the documentation.
> > > > >
> > > > > I should note that $mw is using the "parent window" trick to
> > > > > avoid being
> > > > > on the task bar.  I further note that sufficient Alt-Tab
> > > > keystrokes do
> > > > > eventually raise the window to the top.
> > > > >
> > > > > sub notify_icon_Click
> > > > > { if ( $mw -> IsVisible ())
> > > > >   { print "Bring Main to Top\n";
> > > > >     $mw -> Hide ();
> > > > >     $mw -> BringWindowToTop ();
> > > > >     $mw -> Show ();
> > > > >   }
> > > > > }
> > > > >
> > > > > --
> > > > > Glenn
> > > > > =====
> > > > > Due to the current economic situation, the light at the
> > > > > end of the tunnel will be turned off until further notice.
> > > > >
> > > > >
> > > > >
> > > > > _______________________________________________
> > > > > Perl-Win32-GUI-Users mailing list
> > > > > Per...@li...
> > > > > http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
> > > > >
> > > >
> > > >
> > >
> > > _______________________________________________
> > > Perl-Win32-GUI-Users mailing list
> > > Per...@li...
> > > http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
> >
> > --
> > Glenn
> > =====
> > Due to the current economic situation, the light at the
> > end of the tunnel will be turned off until further notice.
> >
> >
> >
> > _______________________________________________
> > Perl-Win32-GUI-Users mailing list
> > Per...@li...
> > http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
> >
>
> _______________________________________________
> Perl-Win32-GUI-Users mailing list
> Per...@li...
> http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users

--
Glenn
=====
Due to the current economic situation, the light at the
end of the tunnel will be turned off until further notice.

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

[Erick B. <er...@je...>]

I'm in the process of finishing a Perl source code exchange. Basically exchanging
subroutines and snippets of code, as well as the ability to upload binaries. And,
this code would be perfect:

| # define popup menu for listview
| my $PopupMenu = new Win32::GUI::Menu(
|     "Item Properties" => "ItemProp",
|     ">&Properties" => "ItemProperties",
| );
|
| # get right-click in listview
| sub DataView_RightClick {
|    my($X, $Y) = Win32::GUI::GetCursorPos();
|
|    $MainWindow->TrackPopupMenu($PopupMenu->{ItemProp},$X, $Y);
| }

It would be a great way of gathering all of the code that has been exchanged on
this list. I should be done by the end of next week, if any has any questions
regarding the idea(or, of course, some input), email me.

regards,

erick bourgeois
never stop questionning
www.jeb.ca

----- Original Message -----
From: Piske, Harald <Har...@bo...>
To: <per...@li...>
Sent: Thursday, June 07, 2001 8:08 PM
Subject: RE: [perl-win32-gui-users] Popup window


| Note: I took the liberty of changing the subject, since this is not about
| BringWindowToTop anymore.
|
| About the popup menu, see trail "Re; Popup menu", posting by Jonathan
| Southwick on April 2nd, 2001. Apparently, Ludvig af Klinteberg subsequently
| managed to use the code for a tray icon.
| Quote:
|
| # define popup menu for listview
| my $PopupMenu = new Win32::GUI::Menu(
|     "Item Properties" => "ItemProp",
|     ">&Properties" => "ItemProperties",
| );
|
| # get right-click in listview
| sub DataView_RightClick {
|    my($X, $Y) = Win32::GUI::GetCursorPos();
|
|    $MainWindow->TrackPopupMenu($PopupMenu->{ItemProp},$X, $Y);
| }
|
| # clicked on particular menu item in popup menu
| sub ItemProperties_Click {
|    ## code you want to process;
| }
|
| Thanks, Jonathan
| Have fun
| Harald

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

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

Note: I took the liberty of changing the subject, since this is not about
BringWindowToTop anymore.

About the popup menu, see trail "Re; Popup menu", posting by Jonathan
Southwick on April 2nd, 2001. Apparently, Ludvig af Klinteberg subsequently
managed to use the code for a tray icon.
Quote:

# define popup menu for listview
my $PopupMenu = new Win32::GUI::Menu(
    "Item Properties" => "ItemProp",
    ">&Properties" => "ItemProperties",
);
 
# get right-click in listview
sub DataView_RightClick {
   my($X, $Y) = Win32::GUI::GetCursorPos();
 
   $MainWindow->TrackPopupMenu($PopupMenu->{ItemProp},$X, $Y);
}
 
# clicked on particular menu item in popup menu
sub ItemProperties_Click {
   ## code you want to process;
}

Thanks, Jonathan
Have fun
Harald

> -----Original Message-----
> From: Glenn Linderman [mailto:Gle...@ne...]
> Sent: Donnerstag, 7. Juni 2001 17:33
> To: per...@li...
> Subject: Re: [perl-win32-gui-users] BringWindowToTop doesn't
> 
> 
> Does anyone have sample code to create a pop-up menu for a 
> Notify Icon's
> right click?  That seems to be the current rage for System 
> Tray icons?  I've
> got a few other enhancements to make, and then I'll be looking that
> direction.
> 
> I'm speculating that on click detection, you'd position and 
> show a window
> that contains nothing but a menu item... but there's a lot of 
> details to
> address to get that right, if it can even be done.
> 
> Peter Eisengrein wrote:
> 
> > I've used SetForegroundWindow() from a NotifyIcon and that 
> works on NT4.
> >
> > sub ni_Click
> > {
> >         if ($Window->IsVisible)
> >         {
> >                 $Window->Hide();
> >         }
> >         else
> >         {
> >                 $Window->Show();
> >                 $Window->SetForegroundWindow();
> >         }
> >
> >         return 0;
> > }
> >
> > > -----Original Message-----
> > > From: Piske, Harald [mailto:Har...@bo...]
> > > Sent: Wednesday, June 06, 2001 10:12 PM
> > > To: 'per...@li...'
> > > Subject: RE: [perl-win32-gui-users] BringWindowToTop doesn't
> > >
> > >
> > > Works with me ... I have two windows, one button in the first
> > > window brings
> > > the other to top. Complete code snippet attached for you to
> > > check if it
> > > works with you and figure out the differences to yours. 
> Oh, and I only
> > > checked on Win2k.
> > >
> > > Have fun,
> > > Harald
> > >
> > > > -----Original Message-----
> > > > From: Glenn Linderman [mailto:Gle...@ne...]
> > > > Sent: Mittwoch, 6. Juni 2001 18:25
> > > > To: Win32::GUI
> > > > Subject: [perl-win32-gui-users] BringWindowToTop doesn't
> > > >
> > > >
> > > > Hi,
> > > >
> > > > So I've got this code, and it doesn't bring the window to
> > > the top.  I
> > > > can see that each time I click on the notify icon that 
> the code gets
> > > > executed, both because the print statement fires, and the window
> > > > redraws.  But the window stays behind other windows, in 
> spite of the
> > > > BringWindowToTop call.  It does that with or without 
> the Hide/Show
> > > > sequence, and with or with a Disable/Enable sequence wrapped
> > > > around the
> > > > BringWindowToTop.  ActivePerl 5.6.1 build 626, Win32::GUI
> > > > 0.0.558.  What
> > > > trick am I missing?
> > > >
> > > > I'm quite willing to throw all this away, and use whatever
> > > > works... this
> > > > is just what sounded like should work from the documentation.
> > > >
> > > > I should note that $mw is using the "parent window" trick to
> > > > avoid being
> > > > on the task bar.  I further note that sufficient Alt-Tab
> > > keystrokes do
> > > > eventually raise the window to the top.
> > > >
> > > > sub notify_icon_Click
> > > > { if ( $mw -> IsVisible ())
> > > >   { print "Bring Main to Top\n";
> > > >     $mw -> Hide ();
> > > >     $mw -> BringWindowToTop ();
> > > >     $mw -> Show ();
> > > >   }
> > > > }
> > > >
> > > > --
> > > > Glenn
> > > > =====
> > > > Due to the current economic situation, the light at the
> > > > end of the tunnel will be turned off until further notice.
> > > >
> > > >
> > > >
> > > > _______________________________________________
> > > > Perl-Win32-GUI-Users mailing list
> > > > Per...@li...
> > > > http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
> > > >
> > >
> > >
> >
> > _______________________________________________
> > Perl-Win32-GUI-Users mailing list
> > Per...@li...
> > http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
> 
> --
> Glenn
> =====
> Due to the current economic situation, the light at the
> end of the tunnel will be turned off until further notice.
> 
> 
> 
> _______________________________________________
> Perl-Win32-GUI-Users mailing list
> Per...@li...
> http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
> 

Re: [perl-win32-gui-users] BringWindowToTop doesn't

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

Does anyone have sample code to create a pop-up menu for a Notify Icon's
right click?  That seems to be the current rage for System Tray icons?  I've
got a few other enhancements to make, and then I'll be looking that
direction.

I'm speculating that on click detection, you'd position and show a window
that contains nothing but a menu item... but there's a lot of details to
address to get that right, if it can even be done.

Peter Eisengrein wrote:

> I've used SetForegroundWindow() from a NotifyIcon and that works on NT4.
>
> sub ni_Click
> {
>         if ($Window->IsVisible)
>         {
>                 $Window->Hide();
>         }
>         else
>         {
>                 $Window->Show();
>                 $Window->SetForegroundWindow();
>         }
>
>         return 0;
> }
>
> > -----Original Message-----
> > From: Piske, Harald [mailto:Har...@bo...]
> > Sent: Wednesday, June 06, 2001 10:12 PM
> > To: 'per...@li...'
> > Subject: RE: [perl-win32-gui-users] BringWindowToTop doesn't
> >
> >
> > Works with me ... I have two windows, one button in the first
> > window brings
> > the other to top. Complete code snippet attached for you to
> > check if it
> > works with you and figure out the differences to yours. Oh, and I only
> > checked on Win2k.
> >
> > Have fun,
> > Harald
> >
> > > -----Original Message-----
> > > From: Glenn Linderman [mailto:Gle...@ne...]
> > > Sent: Mittwoch, 6. Juni 2001 18:25
> > > To: Win32::GUI
> > > Subject: [perl-win32-gui-users] BringWindowToTop doesn't
> > >
> > >
> > > Hi,
> > >
> > > So I've got this code, and it doesn't bring the window to
> > the top.  I
> > > can see that each time I click on the notify icon that the code gets
> > > executed, both because the print statement fires, and the window
> > > redraws.  But the window stays behind other windows, in spite of the
> > > BringWindowToTop call.  It does that with or without the Hide/Show
> > > sequence, and with or with a Disable/Enable sequence wrapped
> > > around the
> > > BringWindowToTop.  ActivePerl 5.6.1 build 626, Win32::GUI
> > > 0.0.558.  What
> > > trick am I missing?
> > >
> > > I'm quite willing to throw all this away, and use whatever
> > > works... this
> > > is just what sounded like should work from the documentation.
> > >
> > > I should note that $mw is using the "parent window" trick to
> > > avoid being
> > > on the task bar.  I further note that sufficient Alt-Tab
> > keystrokes do
> > > eventually raise the window to the top.
> > >
> > > sub notify_icon_Click
> > > { if ( $mw -> IsVisible ())
> > >   { print "Bring Main to Top\n";
> > >     $mw -> Hide ();
> > >     $mw -> BringWindowToTop ();
> > >     $mw -> Show ();
> > >   }
> > > }
> > >
> > > --
> > > Glenn
> > > =====
> > > Due to the current economic situation, the light at the
> > > end of the tunnel will be turned off until further notice.
> > >
> > >
> > >
> > > _______________________________________________
> > > Perl-Win32-GUI-Users mailing list
> > > Per...@li...
> > > http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
> > >
> >
> >
>
> _______________________________________________
> Perl-Win32-GUI-Users mailing list
> Per...@li...
> http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users

--
Glenn
=====
Due to the current economic situation, the light at the
end of the tunnel will be turned off until further notice.

RE: [perl-win32-gui-users] BringWindowToTop doesn't

[Marjolein K. <win...@ja...>]

But of course they can have beautiful flowers, too - as well as delicious edible fruit ;-)

At 11:04 2001-06-07 -0700, Piske, Harald wrote:
>On second thought, I'd like to speak of cacti rather than flowers ;-)


Cheers,

Marjolein Katsma
HomeSite Help - http://hshelp.com/ - Extensions, Tips and Tools

Re: [perl-win32-gui-users] BringWindowToTop doesn't

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

"Piske, Harald" wrote:

> I certainly agree, although complexity seems to be unavoidable with
> flexibility. My approach is to really fight for the time to go over ALL the
> functions once briefly, so that when I need a certain functionality, I have
> a better chance to vaguely remember where there was something.

Sure, if you can learn a little about everything, that's great.  But a focused
search leads to many dead ends.

It would be extremely helpful, for example, if things like BringWindowToTop
were documented to do only what they actually do, which appears to be to
manipulate only windows within a particular application, rather than system
wide.  There is no cross-reference to the similar functions needed to do the
equivalent system wide operation, and no clue that the operation only applies
to a single application.

Certainly flexibility results in complexity.  But there could be one API for
the functionality, with a flag to indicate if the operation pertains to the
widgets in a window, the windows of an application, or the applications on the
system.

> MSDN itself
> takes some getting used to and the first few days I was simply drowning in
> information overload. But at the end of the day, all the information is in
> there and if you just took a walk through all of the garden, you might
> remember where you saw a particular flower before.

It doesn't matter if all of the information is in there: if you can't find it
using reasonable search methods, it isn't good enough.  On the other hand, MSDN
6 is certainly a bit better than MSDN 5.  I never could figure out enough from
5 to want to learn Windows, with 6, it started to seem possible, but there are
still plenty of roadblocks.

> On second thought, I'd like to speak of cacti rather than flowers ;-)

Yes, stop and smell the cholla :)

--
Glenn
=====
Due to the current economic situation, the light at the
end of the tunnel will be turned off until further notice.

RE: [perl-win32-gui-users] BringWindowToTop doesn't

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

Having been in on this trail before makes me feel entitled to contribute to
this philosophical footnote as well:

I certainly agree, although complexity seems to be unavoidable with
flexibility. My approach is to really fight for the time to go over ALL the
functions once briefly, so that when I need a certain functionality, I have
a better chance to vaguely remember where there was something. MSDN itself
takes some getting used to and the first few days I was simply drowning in
information overload. But at the end of the day, all the information is in
there and if you just took a walk through all of the garden, you might
remember where you saw a particular flower before.

On second thought, I'd like to speak of cacti rather than flowers ;-)

-----Original Message-----
From: Glenn Linderman [mailto:Gle...@ne...]
Sent: Thursday, June 07, 2001 10:49
To: per...@li...
Subject: Re: [perl-win32-gui-users] BringWindowToTop doesn't


Thanks so much.  That does it for me too.  SetForegroundWindow is the key
API for this functionality.

Side note TWIMC: the Windows API is clearly too big, with too many ways to
do the wrong thing, but that make it sound like it is the right thing.
Focused searching can easily lead down the wrong trail, and there is
insufficient cross-referencing among similar sounding topics.  Not your
fault, but sure doesn't make it easy to learn the Windows API.

Peter Eisengrein wrote:

> I've used SetForegroundWindow() from a NotifyIcon and that works on NT4.
>
> sub ni_Click
> {
>         if ($Window->IsVisible)
>         {
>                 $Window->Hide();
>         }
>         else
>         {
>                 $Window->Show();
>                 $Window->SetForegroundWindow();
>         }
>
>         return 0;
> }
>
> > -----Original Message-----
> > From: Piske, Harald [mailto:Har...@bo...]
> > Sent: Wednesday, June 06, 2001 10:12 PM
> > To: 'per...@li...'
> > Subject: RE: [perl-win32-gui-users] BringWindowToTop doesn't
> >
> >
> > Works with me ... I have two windows, one button in the first
> > window brings
> > the other to top. Complete code snippet attached for you to
> > check if it
> > works with you and figure out the differences to yours. Oh, and I only
> > checked on Win2k.
> >
> > Have fun,
> > Harald
> >
> > > -----Original Message-----
> > > From: Glenn Linderman [mailto:Gle...@ne...]
> > > Sent: Mittwoch, 6. Juni 2001 18:25
> > > To: Win32::GUI
> > > Subject: [perl-win32-gui-users] BringWindowToTop doesn't
> > >
> > >
> > > Hi,
> > >
> > > So I've got this code, and it doesn't bring the window to
> > the top.  I
> > > can see that each time I click on the notify icon that the code gets
> > > executed, both because the print statement fires, and the window
> > > redraws.  But the window stays behind other windows, in spite of the
> > > BringWindowToTop call.  It does that with or without the Hide/Show
> > > sequence, and with or with a Disable/Enable sequence wrapped
> > > around the
> > > BringWindowToTop.  ActivePerl 5.6.1 build 626, Win32::GUI
> > > 0.0.558.  What
> > > trick am I missing?
> > >
> > > I'm quite willing to throw all this away, and use whatever
> > > works... this
> > > is just what sounded like should work from the documentation.
> > >
> > > I should note that $mw is using the "parent window" trick to
> > > avoid being
> > > on the task bar.  I further note that sufficient Alt-Tab
> > keystrokes do
> > > eventually raise the window to the top.
> > >
> > > sub notify_icon_Click
> > > { if ( $mw -> IsVisible ())
> > >   { print "Bring Main to Top\n";
> > >     $mw -> Hide ();
> > >     $mw -> BringWindowToTop ();
> > >     $mw -> Show ();
> > >   }
> > > }
> > >
> > > --
> > > Glenn
> > > =====
> > > Due to the current economic situation, the light at the
> > > end of the tunnel will be turned off until further notice.
> > >
> > >
> > >
> > > _______________________________________________
> > > Perl-Win32-GUI-Users mailing list
> > > Per...@li...
> > > http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
> > >
> >
> >
>
> _______________________________________________
> Perl-Win32-GUI-Users mailing list
> Per...@li...
> http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users

--
Glenn
=====
Due to the current economic situation, the light at the
end of the tunnel will be turned off until further notice.



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

Re: [perl-win32-gui-users] BringWindowToTop doesn't

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

Thanks so much.  That does it for me too.  SetForegroundWindow is the key
API for this functionality.

Side note TWIMC: the Windows API is clearly too big, with too many ways to
do the wrong thing, but that make it sound like it is the right thing.
Focused searching can easily lead down the wrong trail, and there is
insufficient cross-referencing among similar sounding topics.  Not your
fault, but sure doesn't make it easy to learn the Windows API.

Peter Eisengrein wrote:

> I've used SetForegroundWindow() from a NotifyIcon and that works on NT4.
>
> sub ni_Click
> {
>         if ($Window->IsVisible)
>         {
>                 $Window->Hide();
>         }
>         else
>         {
>                 $Window->Show();
>                 $Window->SetForegroundWindow();
>         }
>
>         return 0;
> }
>
> > -----Original Message-----
> > From: Piske, Harald [mailto:Har...@bo...]
> > Sent: Wednesday, June 06, 2001 10:12 PM
> > To: 'per...@li...'
> > Subject: RE: [perl-win32-gui-users] BringWindowToTop doesn't
> >
> >
> > Works with me ... I have two windows, one button in the first
> > window brings
> > the other to top. Complete code snippet attached for you to
> > check if it
> > works with you and figure out the differences to yours. Oh, and I only
> > checked on Win2k.
> >
> > Have fun,
> > Harald
> >
> > > -----Original Message-----
> > > From: Glenn Linderman [mailto:Gle...@ne...]
> > > Sent: Mittwoch, 6. Juni 2001 18:25
> > > To: Win32::GUI
> > > Subject: [perl-win32-gui-users] BringWindowToTop doesn't
> > >
> > >
> > > Hi,
> > >
> > > So I've got this code, and it doesn't bring the window to
> > the top.  I
> > > can see that each time I click on the notify icon that the code gets
> > > executed, both because the print statement fires, and the window
> > > redraws.  But the window stays behind other windows, in spite of the
> > > BringWindowToTop call.  It does that with or without the Hide/Show
> > > sequence, and with or with a Disable/Enable sequence wrapped
> > > around the
> > > BringWindowToTop.  ActivePerl 5.6.1 build 626, Win32::GUI
> > > 0.0.558.  What
> > > trick am I missing?
> > >
> > > I'm quite willing to throw all this away, and use whatever
> > > works... this
> > > is just what sounded like should work from the documentation.
> > >
> > > I should note that $mw is using the "parent window" trick to
> > > avoid being
> > > on the task bar.  I further note that sufficient Alt-Tab
> > keystrokes do
> > > eventually raise the window to the top.
> > >
> > > sub notify_icon_Click
> > > { if ( $mw -> IsVisible ())
> > >   { print "Bring Main to Top\n";
> > >     $mw -> Hide ();
> > >     $mw -> BringWindowToTop ();
> > >     $mw -> Show ();
> > >   }
> > > }
> > >
> > > --
> > > Glenn
> > > =====
> > > Due to the current economic situation, the light at the
> > > end of the tunnel will be turned off until further notice.
> > >
> > >
> > >
> > > _______________________________________________
> > > Perl-Win32-GUI-Users mailing list
> > > Per...@li...
> > > http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
> > >
> >
> >
>
> _______________________________________________
> Perl-Win32-GUI-Users mailing list
> Per...@li...
> http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users

--
Glenn
=====
Due to the current economic situation, the light at the
end of the tunnel will be turned off until further notice.

RE: [perl-win32-gui-users] BringWindowToTop doesn't

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

I've used SetForegroundWindow() from a NotifyIcon and that works on NT4.

sub ni_Click
{
	if ($Window->IsVisible)
	{
		$Window->Hide();
	}
	else
	{
		$Window->Show();
		$Window->SetForegroundWindow();
	}

	return 0;
}




> -----Original Message-----
> From: Piske, Harald [mailto:Har...@bo...]
> Sent: Wednesday, June 06, 2001 10:12 PM
> To: 'per...@li...'
> Subject: RE: [perl-win32-gui-users] BringWindowToTop doesn't
> 
> 
> Works with me ... I have two windows, one button in the first 
> window brings
> the other to top. Complete code snippet attached for you to 
> check if it
> works with you and figure out the differences to yours. Oh, and I only
> checked on Win2k.
> 
> Have fun,
> Harald
> 
> > -----Original Message-----
> > From: Glenn Linderman [mailto:Gle...@ne...]
> > Sent: Mittwoch, 6. Juni 2001 18:25
> > To: Win32::GUI
> > Subject: [perl-win32-gui-users] BringWindowToTop doesn't
> > 
> > 
> > Hi,
> > 
> > So I've got this code, and it doesn't bring the window to 
> the top.  I
> > can see that each time I click on the notify icon that the code gets
> > executed, both because the print statement fires, and the window
> > redraws.  But the window stays behind other windows, in spite of the
> > BringWindowToTop call.  It does that with or without the Hide/Show
> > sequence, and with or with a Disable/Enable sequence wrapped 
> > around the
> > BringWindowToTop.  ActivePerl 5.6.1 build 626, Win32::GUI 
> > 0.0.558.  What
> > trick am I missing?
> > 
> > I'm quite willing to throw all this away, and use whatever 
> > works... this
> > is just what sounded like should work from the documentation.
> > 
> > I should note that $mw is using the "parent window" trick to 
> > avoid being
> > on the task bar.  I further note that sufficient Alt-Tab 
> keystrokes do
> > eventually raise the window to the top.
> > 
> > sub notify_icon_Click
> > { if ( $mw -> IsVisible ())
> >   { print "Bring Main to Top\n";
> >     $mw -> Hide ();
> >     $mw -> BringWindowToTop ();
> >     $mw -> Show ();
> >   }
> > }
> > 
> > --
> > Glenn
> > =====
> > Due to the current economic situation, the light at the
> > end of the tunnel will be turned off until further notice.
> > 
> > 
> > 
> > _______________________________________________
> > Perl-Win32-GUI-Users mailing list
> > Per...@li...
> > http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
> > 
> 
> 

Re: [perl-win32-gui-users] file-menu question

[Chris E. <ce...@mi...>]

Thanks Johan. That was it.

Chris
----- Original Message -----
From: "Johan Lindstrom" <jp...@bo...>
To: <per...@li...>
Sent: Thursday, June 07, 2001 2:17 AM
Subject: Re: [perl-win32-gui-users] file-menu question


> Chris wrote:
> >Is there anything special I should know about making a Menu visible?
>
> Study this example code:
>
> my $mnuMain =3D Win32::GUI::MakeMenu(
>          "&File"                     =3D> "mnuFile",
>          " > &New"                   =3D> "mnuFileNew",
>          " > &Open..."               =3D> "mnuFileOpen",
>          " > &Save"                  =3D> "mnuFileSave",
>          " > Save &as..."            =3D> "mnuFileSaveAs",
>          " > -"                      =3D>  0,
>          " > E&xit"                  =3D> "mnuFileExit",
>
>          "&Design"                   =3D> "mnuDesign",
>          " > &Test window"           =3D> "mnuDesignTest",
>
>          "&Help"                     =3D> "mnuHelp",
>          " > &Topics"                =3D> "mnuHelpTopics",
>          " > -"                      =3D>  0,
>          " > &About..."              =3D> "mnuHelpAbout",
>          );
>
> my $winMain =3D new Win32::GUI::Window(
>        -left   =3D> 0,
>        -top    =3D> 100,
>        -width  =3D> 200,
>        -height =3D> 500,
>        -name   =3D> "winMain",
>        -text   =3D> "The GUI Loft",
>        -menu   =3D> $mnuMain,
>        );
> $winMain->{-dialogui} =3D 1;
>
>
> As you can see, the Menu object is specified with the -menu option when
you
> create the window.
>
>
> /J
>
> PS.
> <BUZZ>
> BTW, the code is from "The GUI Loft", a GUI designer tool I'm working o=
n.
> Pre-release previews may be available on request if anyone is intereste=
d.
> </BUZZ>
>
> --
> Johan Lindstr=F6m, Sourcerer, Boss Casinos Ltd, Antigua
> jp...@bo...
>
>
> _______________________________________________
> Perl-Win32-GUI-Users mailing list
> Per...@li...
> http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
>

Re: [perl-win32-gui-users] file-menu question

[Johan L. <jp...@bo...>]

Chris wrote:
>Is there anything special I should know about making a Menu visible?

Study this example code:

my $mnuMain = Win32::GUI::MakeMenu(
         "&File"                     => "mnuFile",
         " > &New"                   => "mnuFileNew",
         " > &Open..."               => "mnuFileOpen",
         " > &Save"                  => "mnuFileSave",
         " > Save &as..."            => "mnuFileSaveAs",
         " > -"                      =>  0,
         " > E&xit"                  => "mnuFileExit",

         "&Design"                   => "mnuDesign",
         " > &Test window"           => "mnuDesignTest",

         "&Help"                     => "mnuHelp",
         " > &Topics"                => "mnuHelpTopics",
         " > -"                      =>  0,
         " > &About..."              => "mnuHelpAbout",
         );

my $winMain = new Win32::GUI::Window(
       -left   => 0,
       -top    => 100,
       -width  => 200,
       -height => 500,
       -name   => "winMain",
       -text   => "The GUI Loft",
       -menu   => $mnuMain,
       );
$winMain->{-dialogui} = 1;


As you can see, the Menu object is specified with the -menu option when you 
create the window.


/J

PS.
<BUZZ>
BTW, the code is from "The GUI Loft", a GUI designer tool I'm working on. 
Pre-release previews may be available on request if anyone is interested.
</BUZZ>

--
Johan Lindström, Sourcerer, Boss Casinos Ltd, Antigua
jp...@bo...