set curvesmenu_items {
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"
}
}
GuidoMenu curvesmenu {
-label "Curves"
-delayed_script $curvesmenu_items
}
