set editmenu_items {
GuidoScript scripts/menus/editlayer.tcl
GuidoScript scripts/menus/s_cn_editstring.tcl
GuidoScript scripts/menus/s_cn_editsegment.tcl
GuidoScript scripts/menus/editpoint.tcl
GuidoSeparator sep1 {
}
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 sep2 {
}
GuidoMenuItem string_copy_transform {
-label "Copy string constrained by Transformation"
-icon "icons/16/string_copy_transform.png"
-command server "STRING COPY TRANSFORM"
}
GuidoMenuItem segment_copy_transform {
-label "Copy segment constrained by Transformation"
-icon "icons/16/segment_copy_transform.png"
-command server "SEGMENT COPY TRANSFORM"
}
GuidoMenuItem string_move_transform {
-label "Move string constrained by Transformation"
-icon "icons/16/string_move_transform.png"
-command server "STRING MOVE TRANSFORM"
}
GuidoMenuItem segment_move_transform {
-label "Move segment constrained by Transformation"
-icon "icons/16/segment_move_transform.png"
-command server "SEGMENT MOVE TRANSFORM"
}
GuidoSeparator sep3 {
}
GuidoScript scripts/menus/s_cn_trim.tcl
}
GuidoMenu editmenu {
-label "Edit"
-delayed_script $editmenu_items
}
