set createmenu_items {
GuidoScript scripts/menus/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/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"
}
GuidoMenuItem curve_from_tangent {
-label "Curve from tangents"
-icon "icons/16/curve_tangent.png"
-command server "CURVE TANGENT"
}
GuidoMenuItem curve_from_seg_end {
-label "Curve at segment end"
-icon "icons/16/curve_end.png"
-command server "CURVE END"
}
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"
}
GuidoMenuItem road_from_centreline {
-label "Road from centreline"
-icon "icons/16/drive_outline.png"
-command server "DRIVE OUTLINE"
}
GuidoMenuItem create_road_profile {
-label "Longitudinal profile"
-icon "icons/16/create_longitudinal_profile.png"
-command script scripts/createLongitudinalProfile.tcl
}
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
GuidoScript scripts/menus/labels.tcl
}
GuidoMenu createmenu {
-label "Create"
-delayed_script $createmenu_items
}
