set blast_dbsectionmenu_items {
GuidoMenuItem display_drillholes {
-label "Display blast holes"
-icon "icons/16/display_drillholes.png"
-command script scripts/drawholes.tcl
}
GuidoSeparator sep1 {
}
GuidoMenuItem slicing_planes {
-label "Define"
-icon "icons/16/slicing_planes.png"
-command server "SLICING PLANES"
}
GuidoSeparator sep2 {
}
GuidoMenuItem previoussection {
-label "Previous"
-icon "icons/16/viewing_planes_backward.png"
-command server "VIEWING PLANES BACKWARD"
}
GuidoMenuItem nextsection {
-label "Next"
-icon "icons/16/viewing_planes_forward.png"
-command server "VIEWING PLANES FORWARD"
}
GuidoSeparator sep3 {
}
GuidoMenuItem reverseview {
-label "Reverse view direction"
-icon "icons/16/reverse_view.png"
-command script scripts/reverseview.tcl
}
GuidoMenuItem zoomplane {
-label "Zoom plane"
-icon "icons/16/zoom_plane.png"
-command script scripts/zoomsection.tcl
}
GuidoSeparator sep4 {
}
GuidoMenuItem offplanestyle {
-label "Off section blast hole style"
-command script scripts/offsectionstyles.tcl
}
GuidoSeparator sep5 {
}
GuidoMenuItem endsectionmode {
-label "End section mode"
-icon "icons/16/end_slicing_mode.png"
-command server "DELETE CUTTING PLANES"
}
}
GuidoMenu blast_dbsections {
-label "Sections"
-delayed_script $blast_dbsectionmenu_items
}
