set digitisemenu_items {
GuidoMenuItem newpoint {
-label "New point"
-icon "icons/16/digitiser_digitise.png"
-command server "DIGITISER DIGITISE"
}
GuidoMenuItem midpoint {
-label "New midpoint"
-icon "icons/16/digitiser_midpoint.png"
-command server "DIGITISER MIDPOINT"
}
GuidoMenuItem follow_segment {
-label "By following a segment"
-icon "icons/16/digitiser_follow_segment.png"
-command server "DIGITISER FOLLOW SEGMENT"
}
GuidoSeparator sep1 {
}
GuidoMenuItem startstring {
-label "Start next string"
-icon "icons/16/digitiser_next_string.png"
-command server "DIGITISER NEXT STRING"
}
GuidoMenuItem newstring {
-label "Start new string"
-icon "icons/16/digitiser_new_string.png"
-command server "DIGITISER NEW STRING"
}
GuidoSeparator sep2 {
}
GuidoMenuItem selectsegment {
-label "Reactivate segment"
-icon "icons/16/digitiser_select_segment.png"
-command server "DIGITISER SELECT SEGMENT"
}
GuidoMenuItem newsegment {
-label "Start new segment"
-icon "icons/16/digitiser_end_segment.png"
-command server "DIGITISER END SEGMENT"
}
GuidoMenuItem close_segment {
-label "Close current segment"
-icon "icons/16/digitiser_close_segment.png"
-command server "DIGITISER CLOSE SEGMENT"
}
GuidoSeparator sep3 {
}
GuidoScript scripts/menus/digitisertablet.tcl
GuidoScript scripts/menus/digitiseroptions.tcl
}
GuidoMenu digitisemenu {
-label "Digitise"
-delayed_script $digitisemenu_items
}
