set rdmastmenu_items {
GuidoMenuItem item1 {
-label "Select reference line"
-icon "icons/16/select_reference.png"
-command server "SELECT REFERENCE"
}
GuidoSeparator sep1 {
}
GuidoMenuItem item2 {
-label "Move mast by coordinates"
-icon "icons/16/move_mast_by_coords.png"
-command server "MOVE MAST BY COORDS"
}
GuidoMenuItem item3 {
-label "Move mast by distance"
-icon "icons/16/move_mast_by_dist.png"
-command server "MOVE MAST BY DIST"
}
GuidoMenuItem item4 {
-label "Move mast by graphics"
-icon "icons/16/move_mast_by_graphics.png"
-command server "MOVE MAST BY GRAPHICS"
}
GuidoMenuItem item5 {
-label "Move mast from wall"
-icon "icons/16/move_mast_from_wall.png"
-command server "MOVE MAST FROM WALL"
}
GuidoMenuItem item6 {
-label "Move mast to setup"
-icon "icons/16/move_mast_to_setup.png"
-command server "MOVE MAST TO SETUP"
}
GuidoSeparator sep2 {
}
GuidoMenuItem item7 {
-label "Rotate mast by angle"
-icon "icons/16/rotate_mast_by_angle.png"
-command server "ROTATE MAST BY ANGLE"
}
GuidoMenuItem item8 {
-label "Rotate mast by graphics"
-icon "icons/16/rotate_mast_by_graphics.png"
-command server "ROTATE MAST BY GRAPHICS"
}
GuidoMenuItem item9 {
-label "Rotate mast to angle"
-icon "icons/16/rotate_mast_to_angle.png"
-command server "ROTATE MAST TO ANGLE"
}
GuidoMenuItem item10 {
-label "Rotate mast to point"
-icon "icons/16/rotate_mast_to_point.png"
-command server "ROTATE MAST TO POINT"
}
}
GuidoMenu rdmastmenu {
-label "Move/rotate drill mast"
-delayed_script $rdmastmenu_items
}
