set editmenu_items {
GuidoMenuItem undo {
-label "Undo"
-icon "icons/16/undo.png"
-command server "UNDO"
}
GuidoMenuItem redo {
-label "Redo"
-icon "icons/16/redo.png"
-command server "REDO"
}
GuidoScript scripts/menus/undo.tcl
GuidoSeparator sep1 {
}
GuidoScript scripts/menus/x_editlayer.tcl
GuidoScript scripts/menus/x_editstring.tcl
GuidoScript scripts/menus/x_editsegment.tcl
GuidoScript scripts/menus/x_editpoint.tcl
GuidoSeparator sep2 {
}
GuidoScript scripts/menus/x_movestringconstrained.tcl
GuidoScript scripts/menus/x_movesegmentconstrained.tcl
GuidoSeparator sep2 {
}
GuidoMenuItem string_copy_by_bearing_and_dip {
-label "Copy string constrained by bearing & distance"
-icon "icons/16/string_copy_by_bearing_and_dip.png"
-command server "STRING COPY BY BEARING AND DIP"
}
GuidoMenuItem segment_copy_by_bearing_and_dip {
-label "Copy segment constrained by bearing & distance"
-icon "icons/16/segment_copy_by_bearing_and_dip.png"
-command server "SEGMENT COPY BY BEARING AND DIP"
}
}
GuidoMenu editmenu {
-label "Edit"
-delayed_script $editmenu_items
}
