set dbdisplaymenu_items {
GuidoMenuItem display_collars {
-label "Display loaded blastholes"
-icon "icons/16/display_drillholes.png"
-command script scripts/drawholes.tcl
}
GuidoSeparator sep1 {
}
GuidoMenuItem drillholestyles {
-label "Blast hole display styles"
-icon "icons/16/edit_drillhole_styles.png"
-command script forms/editstyles.tcl
}
GuidoMenuItem refresh_drillholes {
-label "Refresh"
-icon "icons/16/refresh_drillholes.png"
-command server "REFRESH BLASTHOLES"
}
GuidoSeparator sep2 {
}
GuidoMenuItem hidehole {
-label "Hide blast hole"
-icon "icons/16/hide_drillhole.png"
-command script scripts/hidehole.tcl
}
GuidoMenuItem hideallholes {
-label "Hide all blast holes"
-icon "icons/16/hide_drillholes.png"
-command script scripts/hideholes.tcl
}
GuidoSeparator sep3 {
}
GuidoMenuItem edithole {
-label "View a blast hole"
-icon "icons/16/edit_blast_hole.png"
-command server "EDIT BLAST HOLE"
}
GuidoMenuItem selecthole {
-label "Identify blast hole"
-icon "icons/16/identify_drillhole.png"
-command script scripts/selecthole.tcl
}
GuidoSeparator sep4 {
}
GuidoCheckBoxMenuItem dh_selectability {
-status_item "drillhole selectability"
-label "Blast hole traces selectable"
-default true
-icon "icons/16/drillholes_selectable.png"
-command server "BLASTHOLES NOT SELECTABLE"
-command server "BLASTHOLES SELECTABLE"
}
GuidoCheckBoxMenuItem dh_label_selectability {
-status_item "drillhole label selectability"
-label "Label tickmarks selectable"
-default true
-icon "icons/16/drillhole_labels_selectable.png"
-command server "BLASTHOLE LABELS NOT SELECTABLE"
-command server "BLASTHOLE LABELS SELECTABLE"
}
GuidoCheckBoxMenuItem dh_geology_selectability {
-status_item "drillhole geology selectability"
-label "Geology patterns selectable"
-default true
-icon "icons/16/drillhole_geology_selectable.png"
-command server "BLASTHOLE GEOLOGY NOT SELECTABLE"
-command server "BLASTHOLE GEOLOGY SELECTABLE"
}
GuidoSeparator sep5 {
}
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 blast hole from constraint"
-icon "icons/16/remove_drillhole_constraint.png"
-command script scripts/removehole.tcl
}
}
GuidoMenu dbdisplaymenu {
-label "Display"
-delayed_script $dbdisplaymenu_items
}
