Beefy Boxes and Bandwidth Generously Provided by pair Networks
Do you know where your variables are?
 
PerlMonks  

Re: Win32::GUI Dropmenus

by dree (Monsignor)
on Mar 19, 2003 at 17:43 UTC ( #244397=note: print w/ replies, xml ) Need Help??


in reply to Win32::GUI Dropmenus

Something like that?

use strict; use warnings; use Win32::GUI; use vars qw ($alignment_sx $alignment_cn $alignment_dx); ($alignment_sx,$alignment_cn,$alignment_dx)=(0,1,0); my $Menu = Win32::GUI::MakeMenu( "&File" => "File", " > &Choose alignment" => "choose_alignment", " > > &Left" => {-name=>"left", -checked => $alignment_s +x}, " > > &Center" => {-name=>"center", -checked => $alignment_c +n}, " > > &Right" => {-name=>"right", -checked => $alignment_d +x}, "> &Exit" => "File_Exit", ); my $win = new Win32::GUI::Window( -name => "Window", -text => "Sub menu", -width => 640, -height => 480, -menu => $Menu, -minsize => [640, 480], ); $win->Show(); Win32::GUI::Dialog(); sub File_Exit_Click { return -1 } sub left_Click { ($alignment_sx,$alignment_cn,$alignment_dx)=(1,0,0); Set_Menu(); } sub center_Click { ($alignment_sx,$alignment_cn,$alignment_dx)=(0,1,0); Set_Menu(); } sub right_Click { ($alignment_sx,$alignment_cn,$alignment_dx)=(0,0,1); Set_Menu(); } sub Set_Menu { $Menu->{left}->Checked($alignment_sx); $Menu->{center}->Checked($alignment_cn); $Menu->{right}->Checked($alignment_dx); }


Comment on Re: Win32::GUI Dropmenus
Download Code
Re^2: Win32::GUI Dropmenus
by Anonymous Monk on Oct 17, 2008 at 18:05 UTC
    Hello,

    Is there a way to apply this to a menu when you right-click on a AddNotifyIcon object?

    Thank you,
    Morpheous1129

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://244397]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others surveying the Monastery: (6)
As of 2014-09-03 02:14 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    My favorite cookbook is:










    Results (35 votes), past polls