set rdmodifymenu_items {
GuidoMenuItem item1 {
-label "Delete hole"
-icon "icons/16/delete_hole.png"
-command server "DELETE HOLE"
}
GuidoMenuItem item2 {
-label "Delete range of holes"
-icon "icons/16/delete_holes.png"
-command server "DELETE HOLES"
}
GuidoMenuItem item3 {
-label "Delete all holes"
-icon "icons/16/clear_ring.png"
-command server "CLEAR RING"
}
GuidoSeparator sep1 {
}
GuidoMenuItem item4 {
-label "Change hole diameter"
-icon "icons/16/edit_diameter.png"
-command server "EDIT DIAMETER"
}
GuidoMenuItem item5 {
-label "Change diameters of range"
-icon "icons/16/edit_diameters.png"
-command server "EDIT DIAMETERS"
}
GuidoSeparator sep2 {
}
GuidoMenuItem item6 {
-label "Change hole length"
-icon "icons/16/hole_length.png"
-command server "HOLE LENGTH"
}
GuidoMenuItem item7 {
-label "Set hole length"
-icon "icons/16/set_length_of_hole.png"
-command server "SET LENGTH OF HOLE"
}
GuidoMenuItem item8 {
-label "Set length for range"
-icon "icons/16/set_length_of_holes.png"
-command server "SET LENGTH OF HOLES"
}
GuidoSeparator sep3 {
}
GuidoMenuItem item9 {
-label "Move hole"
-icon "icons/16/move_hole.png"
-command server "MOVE HOLE"
}
GuidoMenuItem item14 {
-label "Move hole by pivot position"
-icon "icons/16/move_hole_by_pivot_position.png"
-command server "MOVE HOLE BY PIVOT POSITION"
}
GuidoMenuItem item10 {
-label "Rotate hole"
-icon "icons/16/rotate_hole.png"
-command server "ROTATE HOLE"
}
GuidoSeparator sep4 {
}
GuidoMenuItem item11 {
-label  "Move hole by offsets to plane"
-icon "icons/16/offset_the_hole.png"
-command script scripts/offsetHoleFromPlane.tcl
}
GuidoMenuItem item12 {
-label "Move hole collar by Graphics"
-icon "icons/16/offset_hole_collar.png"
-command server "OFFSET HOLE COLLAR"
}
GuidoMenuItem item13 {
-label "Move hole toe by Graphics"
-icon "icons/16/offset_hole_toe.png"
-command server "OFFSET HOLE TOE"
}
GuidoSeparator sep5 {
}
GuidoMenuItem item14 {
-label "Snap hole to stope"
-icon "icons/16/snap_hole.png"
-command server "SNAP HOLE"
}
GuidoMenuItem item15 {
-label "Snap range of holes to stope"
-icon "icons/16/snap_holes.png"
-command server "SNAP HOLES"
}
GuidoSeparator sep6 {
}
GuidoMenuItem item15 {
-label "Renumber holes"
-icon "icons/16/renumber_holes.png"
-command server "RENUMBER HOLES"
}
}
GuidoMenu rdmodifymenu {
-label "Modify holes"
-delayed_script $rdmodifymenu_items
}
