set view_window_menu_items {
GuidoMenuItem window_in {
-label "In"
-icon "icons/16/window_in.png"
-command server "WINDOW IN"
}
GuidoMenuItem window_out {
-label "Out"
-icon "icons/16/window_out.png"
-command server "WINDOW OUT"
}
GuidoMenuItem pan_view {
-label "Pan"
-icon "icons/16/pan_view.png"
-command server "PAN VIEW"
}
}
GuidoMenu view_window_menu {
-label "Window "
-delayed_script $view_window_menu_items
}
