Hello David,

Tuesday, January 04, 2000, you wrote:


DH>    Is there a way to create submenus off a menu?  Example:

DH>         +--------+
DH>         | Edit   |
DH>         | Color >+--------+
DH>         | Exit   | Blue   |
DH>         +--------| Yellow | 
DH>                  | Green  |
DH>                  +--------+
see example :)
$M = new Win32::GUI::Menu(
    "&File"     => "File",
    " > &Open"  => "Open",
    " > &Save"  => "Save",
    " > -"  => "-",
    " > E&xit"  => "Exit",
    " > &More..." => "More",
    " >> More&1"  => { -name => "More1", -checked => 1},
    " >> More&2"  => { -name => "More2", -default => 1},
    " >> More&3"  => "More3",
    " > -"  => "-",
    " > &About"  => "About"
);

note: make some change to GUI.pm line 451 (for build 434)
--- from -----
 $M->{$parent}->SetMenuItemInfo(
               -submenu => $M->{$parent."_SubmenuButton"}
              );
--- to -------
 $M->{$parent}->Change(
               -submenu => $M->{$parent."_SubmenuButton"}
              );
--------------
Best regards,
 Max                            mailto:[EMAIL PROTECTED]



Reply via email to