set createmenu_items {
GuidoScript scripts/menus/q_createpoint.tcl
GuidoMenuItem new_seg {
-label "New segment"
-command server "NEW SEGMENT"
}
GuidoSeparator sep1 {
}
GuidoScript scripts/menus/digitiser.tcl
GuidoScript scripts/menus/digitisertablet.tcl
GuidoScript scripts/menus/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 sep3 {
}
GuidoMenuItem section_axis_coords {
-label "Section axis by coordinates"
-command server "DEFINE AXIS BY COORDS"
}
GuidoMenuItem section_axis_mouse {
-label "Section axis using mouse"
-command server "DEFINE AXIS BY GRAPHICS"
}
GuidoSeparator sep4 {
}
GuidoMenuItem grid {
-label "Rectangular grid"
-icon "icons/16/design_grid.png"
-command server "DESIGN GRID"
}
GuidoMenuItem staggered_grid {
-label "Staggered grid"
-icon "icons/16/staggered_design_grid.png"
-command server "STAGGERED DESIGN GRID"
}
GuidoSeparator sep5 {
}
GuidoScript scripts/menus/createintersect.tcl
}
GuidoMenu createmenu {
-label "Create"
-delayed_script $createmenu_items
}
