set createmenu_items {
GuidoScript scripts/menus/s_cn_createpoint.tcl
GuidoScript scripts/menus/curves.tcl
GuidoScript scripts/menus/s_cn_digitiser.tcl
GuidoSeparator sep1 {
}
GuidoMenuItem intersection {
-label "Intersection"
-icon "icons/16/intersect_strings.png"
-command server "INTERSECT STRINGS"
}
GuidoMenuItem outersection {
-label "Outersection"
-icon "icons/16/outersect_strings.png"
-command server "OUTERSECT STRINGS"
}
GuidoMenuItem union {
-label "Union"
-icon "icons/16/union_strings.png"
-command server "UNION STRINGS"
}
}
GuidoMenu createmenu {
-label "Create"
-delayed_script $createmenu_items
}
