set createpointmenu_items {
GuidoMenuItem create_point {
-label "By coordinates"
-icon "icons/16/create_point.png"
-command server "CREATE POINT"
}
GuidoMenuItem locate_angle {
-label "By angle"
-icon "icons/16/locate_angle.png"
-command server "LOCATE ANGLE"
}
GuidoMenuItem locate_bearing {
-label "By bearing"
-icon "icons/16/locate_bearing.png"
-command server "LOCATE BEARING"
}
GuidoMenuItem locate_on_line {
-label "Between any points"
-icon "icons/16/locate_on_line.png"
-command server "LOCATE ON LINE"
}
}
GuidoMenu createpointmenu {
-label "Points"
-delayed_script $createpointmenu_items
}
