set createmenu_items {
GuidoScript scripts/menus/s_cn_createpoint.tcl
GuidoMenuItem new_seg {
-label "New segment"
-command server "NEW SEGMENT"
}
GuidoMenuItem new_layer {
-label "New layer"
-icon "icons/16/new_layer.png"
-command server "NEW LAYER"
}
GuidoSeparator sep1 {
}
GuidoScript scripts/menus/s_cn_digitiser.tcl
GuidoScript scripts/menus/s_cn_digitisertablet.tcl
GuidoScript scripts/menus/s_cn_digitiseroptions.tcl
GuidoSeparator sep2 {
}
GuidoMenuItem circle_by_drag {
-label "Circle by drag"
-icon "icons/16/circle_by_drag.png"
-command server "CIRCLE BY DRAG"
}
GuidoMenuItem circle_from_point {
-label "Circle by selection"
-icon "icons/16/circle.png"
-command server "CIRCLE"
}
GuidoSeparator sep4 {
}
GuidoScript scripts/menus/createintersect.tcl
}
GuidoMenu createmenu {
-label "Create"
-delayed_script $createmenu_items
}
