[perl-win32-gui] Menu Question

[Jonathan Southwick]

I have a menu defined as follows:

my $DataMenu = new Win32::GUI::Menu(
    "&File" => "File",
    "   >   Update All &Data" => "GetData",
    "   >   -" => 0,
    "   >   E&xit" => "FileExit",
    "&Search" => "Search",
    "   >   Find &Name" => "FindName",
    "   >   Find &Building" => "FindBuilding",
    "   >   Find &Adapter" => "FindAdapter",
    "   >   -" => 0,
    "   >   View Residence Hall Data" => {-name => "ViewResHall", -checked => 1},
    "   >   View College House Data" => {-name => "ViewHouse", -checked => 0},
    "&Tools" => "Tools",
    "   >   Report &Problem" => "ReportProblem",
    "&Help" => "Help",
    "   >   About" => "About",
);


If I click on "Search" a check is displayed next to "View Residence Hall Data". What I 
want to happen is if I click on
"View College House Data", I want the check to be moved to that item.

Also is there a way to add a line seperator between the menu and the rest of the 
window?


Jonathan Southwick