http://www.perlmonks.org?node_id=244397


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