set dbdisplaymenu_items {
GuidoMenuItem display_collars {
-label "Drillholes"
-icon "icons/16/display_drillholes.png"
-command script scripts/drawholes.tcl
}
GuidoSeparator sep1 {
}
GuidoMenuItem drillholestyles {
-label "Drillhole display styles"
-icon "icons/16/edit_drillhole_styles.png"
-command script forms/editstyles.tcl
}
GuidoMenuItem refresh_drillholes {
-label "Refresh drillholes"
-icon "icons/16/refresh_drillholes.png"
-command server "REFRESH DRILLHOLES"
}
GuidoSeparator sep2 {
}
GuidoMenuItem hidehole {
-label "Hide drillhole"
-icon "icons/16/hide_drillhole.png"
-command script scripts/hidehole.tcl
}
GuidoMenuItem hideallholes {
-label "Hide all drillholes"
-icon "icons/16/hide_drillholes.png"
-command script scripts/hideholes.tcl
}
GuidoSeparator sep3 {
}
GuidoMenuItem edithole {
-label "Edit drillhole"
-icon "icons/16/edit_hole.png"
-command server "EDIT HOLE"
}
GuidoMenuItem selecthole {
-label "Identify drillhole"
-icon "icons/16/identify_drillhole.png"
-command script scripts/selecthole.tcl
}
GuidoSeparator sep4 {
}
GuidoCheckBoxMenuItem dh_selectability {
-status_item "drillhole selectability"
-label "Drillhole traces selectable"
-default true
-command server "DRILLHOLES NOT SELECTABLE"
-icon "icons/16/drillholes_selectable.png"
-command server "DRILLHOLES SELECTABLE"
}
GuidoCheckBoxMenuItem dh_label_selectability {
-status_item "drillhole label selectability"
-label "Label tickmarks selectable"
-default true
-command server "DRILLHOLE LABELS NOT SELECTABLE"
-icon "icons/16/drillhole_labels_selectable.png"
-command server "DRILLHOLE LABELS SELECTABLE"
}
GuidoCheckBoxMenuItem dh_geology_selectability {
-status_item "drillhole geology selectability"
-label "Geology patterns selectable"
-default true
-command server "DRILLHOLE GEOLOGY NOT SELECTABLE"
-icon "icons/16/drillhole_geology_selectable.png"
-command server "DRILLHOLE 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 drillhole from constraint"
-icon "icons/16/remove_drillhole_constraint.png"
-command script scripts/removehole.tcl
}
GuidoSeparator sep6 {}
GuidoMenuItem display_samples {
-label "Display discrete samples"
-icon "icons/16/display_discrete_samples.png"
-command server "DISPLAY DISCRETE SAMPLES"
}
GuidoMenuItem save_samples {
-label "Save discrete samples"
-icon "icons/16/save_discrete_samples.png"
-command server "SAVE DISCRETE SAMPLES"
}
GuidoMenuItem refresh_samples {
-label "Refresh discrete samples"
-icon "icons/16/refresh_discrete_samples.png"
-command server "REFRESH DISCRETE SAMPLES"
}
GuidoMenuItem hidesamples {
-label "Hide discrete samples"
-icon "icons/16/hide_discrete_samples.png"
-command server "HIDE DISCRETE SAMPLES"
}
GuidoCheckBoxMenuItem sample_selectability {
-status_item "sample selectability"
-label "Discrete samples selectable"
-default true
-command server "DISCRETE SAMPLES NOT SELECTABLE"
-icon "icons/16/discrete_samples_selectable.png"
-command server "DISCRETE SAMPLES SELECTABLE"
}
}
GuidoMenu dbdisplaymenu {
-label "Display"
-delayed_script $dbdisplaymenu_items
}
