set editsegmentmenu_items {
GuidoMenuItem segment_join {
-label "Join"
-icon "icons/16/graphical_segment_join.png"
-command server "GRAPHICAL SEGMENT JOIN"
}
GuidoMenuItem segment_close {
-label "Close"
-icon "icons/16/segment_close.png"
-command server "SEGMENT CLOSE"
}
GuidoMenuItem segment_renumber {
-label "Renumber"
-icon "icons/16/segment_renumber.png"
-command server "SEGMENT RENUMBER"
}
GuidoMenuItem segment_reverse {
-label "Reverse"
-icon "icons/16/segment_reverse.png"
-command server "SEGMENT REVERSE"
}
GuidoSeparator sep1 {
}
GuidoMenuItem segment_break {
-label "Break"
-icon "icons/16/graphical_segment_break.png"
-command server "GRAPHICAL SEGMENT BREAK"
}
GuidoMenuItem segment_delete {
-label "Delete"
-icon "icons/16/segment_delete.png"
-command server "SEGMENT DELETE"
}
GuidoMenuItem lines_delete_from_segment {
-label "Delete portion"
-icon "icons/16/lines_delete_from_segment.png"
-command server "LINES DELETE FROM SEGMENT"
}
GuidoSeparator sep2 {
}
GuidoMenuItem segment_copy {
-label "Copy"
-icon "icons/16/segment_copy.png"
-command server "SEGMENT COPY"
}
GuidoMenuItem segment_move {
-label "Move"
-icon "icons/16/segment_move.png"
-command server "SEGMENT MOVE"
}
GuidoMenuItem change_gradient {
-label "Change gradient"
-icon "icons/16/grade_segment.png"
-command server "GRADE SEGMENT"
}
GuidoMenuItem segment_consolidate {
-label "Consolidate"
-icon "icons/16/segment_consolidate.png"
-command server "SEGMENT CONSOLIDATE"
}
GuidoSeparator sep3 {
}
GuidoMenuItem line_extend {
-label "Extend to line"
-icon "icons/16/line_extend.png"
-command server "LINE EXTEND"
}
GuidoMenuItem segment_trim {
-label "Trim"
-icon "icons/16/segment_trim.png"
-command server "SEGMENT TRIM"
}
GuidoMenuItem line_truncate {
-label "Truncate by line"
-icon "icons/16/line_truncate.png"
-command server "LINE TRUNCATE"
}
GuidoMenuItem expand_seg {
-label "Expand/Contract"
-icon "icons/16/expand_segment.png"
-command server "EXPAND SEGMENT"
}
GuidoSeparator sep4 {
}
GuidoMenuItem normalise_seg {
-label "Normalise segments"
-command server "macro:ssi_resource:scripts/normalise_segments.tcl"
}
GuidoMenuItem segment_maths {
-label "Maths"
-icon "icons/16/graphics_seg_maths.png"
-command server "GRAPHICS SEG MATHS"
}
GuidoMenuItem segment_snap {
-label "Snap to master"
-icon "icons/16/point_check_segment.png"
-command server "POINT CHECK SEGMENT"
}
}
GuidoMenu editsegmentmenu {
-label "Segment"
-delayed_script $editsegmentmenu_items
}
