set viewzoommenu_items {
GuidoMenuItem item1 {
-label "In"
-icon "icons/16/zoom_in.png"
-command server "ZOOM IN"
}
GuidoMenuItem item2 {
-label "Out"
-icon "icons/16/zoom_out.png"
-command server "ZOOM OUT"
}
GuidoMenuItem item3 {
-label "All"
-icon "icons/16/zoom_all.png"
-command server "ZOOM ALL"
}
GuidoMenuItem zoomplane {
-label "Zoom plane"
-icon "icons/16/zoom_plane.png"
-command script scripts/zoomsection.tcl
}
GuidoSeparator sep1 {
}
GuidoMenuItem item4 {
-label "Factor"
-icon "icons/16/zoom_factor.png"
-command server "ZOOM FACTOR"
}
}
GuidoMenu viewzoommenu {
-label "Zoom"
-delayed_script $viewzoommenu_items
}
