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 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/s_cn_offsectionstyles.tcl
}
}
GuidoMenu blast_dbsections {
-label "Sections"
-delayed_script $blast_dbsectionmenu_items
}
