set dbconstraintsmenu_items {
GuidoMenuItem addconstraint {
-label "Add new constraint"
-icon "icons/16/constrain_drillholes.png"
-command script scripts/constrainholes.tcl
}
GuidoMenuItem removeconstraint {
-label "Remove last constraint"
-icon "icons/16/remove_drillhole_constraint.png"
-command script scripts/unconstrainholes.tcl
}
GuidoMenuItem clearconstraints {
-label "Clear all constraints"
-icon "icons/16/clear_all_drillhole_constraints.png"
-command script scripts/clearconstraints.tcl
}
GuidoMenuItem removehole {
-label "Remove drillhole from constraint"
-icon "icons/16/remove_drillhole_constraint.png"
-command script scripts/removehole.tcl
}
}
GuidoMenu dbconstraints {
-label "Constraints"
-delayed_script $dbconstraintsmenu_items
}
