set trimmenu_items {
GuidoMenuItem item1 {
-label "Trim by window box"
-icon "icons/16/delete_by_box.png"
-command server "DELETE BY BOX"
}
GuidoMenuItem item2 {
-label "Trim by selected segment"
-icon "icons/16/delete_by_segment.png"
-command server "DELETE BY SEGMENT"
}
GuidoMenuItem item3 {
-label "Trim by digitised segment"
-icon "icons/16/delete_by_temp_segment.png"
-command server "DELETE BY TEMP SEGMENT"
}
GuidoSeparator sep1 {
}
GuidoMenuItem item7 {
-label "Clip by principal plane"
-command server "CLIP BY PLANE"
-icon "icons/16/clip_by_plane.png"
}
GuidoMenuItem item4 {
-label "Clip by window box"
-icon "icons/16/clip_by_box.png"
-command server "CLIP BY BOX"
}
GuidoMenuItem item5 {
-label "Clip by selected segment"
-icon "icons/16/clip_by_segment.png"
-command server "CLIP BY SEGMENT"
}
}
GuidoMenu trimmenu {
-label "Trim"
-delayed_script $trimmenu_items
}
