set viewquadrantsmenu_items {
GuidoButtonGroup g1 {
-status_item "world quadrant"
GuidoRadioButtonMenuItem item1 {
-selected_value "NE"
-label "North-East"
-command server "NE QUADRANT"
}
GuidoRadioButtonMenuItem item2 {
-selected_value "NW"
-label "North-West"
-command server "NW QUADRANT"
}
GuidoRadioButtonMenuItem item3 {
-selected_value "SE"
-label "South-East"
-command server "SE QUADRANT"
}
GuidoRadioButtonMenuItem item4 {
-selected_value "SW"
-label "South-West"
-command server "SW QUADRANT"
}
}
}
GuidoMenu viewquadrantsmenu {
-label "Quadrants"
-delayed_script $viewquadrantsmenu_items
}
