Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl Monk, Perl Meditation

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); }

Replies are listed 'Best First'.
Re^2: Win32::GUI Dropmenus
by Anonymous Monk on Oct 17, 2008 at 18:05 UTC

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

    Thank you,

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://244397]
[Corion]: ambrus: Hmmm. It makes sense that AnyEvent would implement the push_write itself, but I think I don't have a good idea of where the boundary between AnyEvent and the underlying event system lies... Implementing the timer should give me a better idea
[ambrus]: Corion: push_write is in the higher level abstraction of AnyEvent::Handle, not in the watcher
[Corion]: ambrus: Hmm - rereading Prima::File, that merrily coincides with what Prima does - it tells you "you can read", and you're supposed to read from the fh yourself. I thought it called you with the data already read, which would've been harder to integrate
[ambrus]: you just need an io watcher, created by &AnyEvent::Impl:: Whatever::io(...)
[Corion]: So after talking it through with you even while I'm still not entirely clear on where AE ends and my implementation begins, I think I understand that I only need to implement some smaller parts for each functionality I want to support.
[Corion]: Yeah... and you might even be able to mix and match additional functionality if you have additional async suppliers, like from a separate thread
[ambrus]: You hvae to be careful with the timer, because apparently Prima::Timer insists on being periodic, wheras AnyEvent::Impl:: Whatever::timer should give a one-shot timer watcher

How do I use this? | Other CB clients
Other Users?
Others musing on the Monastery: (6)
As of 2016-12-08 12:23 GMT
Find Nodes?
    Voting Booth?
    On a regular basis, I'm most likely to spy upon:

    Results (141 votes). Check out past polls.