set rddisplaymenu_items {
GuidoMenuItem item1 {
-label "Display hole IDs"
-icon "icons/16/display_hole_ids.png"
-command server "DISPLAY HOLE IDS"
}
GuidoMenuItem item2 {
-label "Display hole lengths"
-icon "icons/16/display_hole_lengths.png"
-command server "DISPLAY HOLE LENGTHS"
}
GuidoMenuItem item3 {
-label "Display hole diameters"
-icon "icons/16/display_hole_diameters.png"
-command server "DISPLAY HOLE DIAMETERS"
}
GuidoSeparator sep1 {
}
GuidoMenuItem item4 {
-label "Display detonator delays"
-icon "icons/16/display_hole_delay.png"
-command server "DISPLAY HOLE DELAY"
}
GuidoMenuItem item5 {
-label "Display blasting sequence"
-icon "icons/16/display_hole_sequence.png"
-command server "DISPLAY HOLE SEQUENCE"
}
GuidoMenuItem item6 {
-label "Display explosive type"
-icon "icons/16/display_hole_explosive.png"
-command server "DISPLAY HOLE EXPLOSIVE"
}
GuidoSeparator sep2 {
}
GuidoMenuItem item7 {
-label "Drill hole colouring method"
-icon "icons/16/rd_colour_by.png"
-command server "RD COLOUR BY"
}
GuidoSeparator sep3 {
}
GuidoMenuItem item8 {
-label "Draw all data for current section"
-icon "icons/16/redraw.png"
-command server "REDRAW"
}
GuidoSeparator sep4 {
}
GuidoMenuItem item9 {
-label "View current section perpendicular to plane"
-icon "icons/16/view_plane.png"
-command server "VIEW PLANE"
}
GuidoMenuItem item10 {
-label "Limit view by width from current section"
-icon "icons/16/limit_view.png"
-command server "LIMIT VIEW"
}
GuidoMenuItem item11 {
-label "Zoom to view all sections"
-icon "icons/16/zoom_plane.png"
-command server "ZOOM PLANE"
}
GuidoSeparator sep5 {
}
GuidoMenuItem item12 {
-label "Erase hole by selection"
-icon "icons/16/erase_hole.png"
-command server "ERASE HOLE"
}
GuidoMenuItem item13 {
-label "Erase range of holes"
-icon "icons/16/erase_holes.png"
-command server "ERASE HOLES"
}
}
GuidoMenu rddisplaymenu {
-label "Display"
-delayed_script $rddisplaymenu_items
}
