Re: [perl-win32-gui] Menu Question

[Aldo Calpini]

Jonathan Southwick wrote:
> 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.

well, you have to do it by hand :-)

    sub SwitchView {
        $DataMenu->{ViewResHall}->Checked(
            !$DataMenu->{ViewResHall}->Checked()
        );
        $DataMenu->{ViewHouse}->Checked(
            !$DataMenu->{ViewHouse}->Checked()
        );
    }
    sub ViewResHall_Click { SwitchView(); }
    sub ViewHouse_Click   { SwitchView(); }

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

not quite. you could add your own Graphic widget, but then
it would becomes tedious to follow window resize etc. etc...

cheers,
Aldo

__END__
$_=q,just perl,,s, , another ,,s,$, hacker,,print;