GuidoButton dhl_database_definition {
-icon "icons/<iconsize>/dhl_database_definition.png"
-command server "dhl database definition"
-tip "Open drill hole database"
}
GuidoButton geology_database_disconnect {
-icon "icons/<iconsize>/geology_database_disconnect.png"
-command server "geology database disconnect"
-tip "Close drill hole database"
}
GuidoFiller fill0 {
-width .2
}
GuidoButton display_styles {
-icon "icons/<iconsize>/edit_drillhole_styles.png"
-command script forms/editstyles.tcl
-tip "drill hole display styles"
}
GuidoFiller fill1 {
-width .2
}
GuidoButton graphics_drill_hole_layout {
-icon "icons/<iconsize>/draw_drill_hole_ids.png"
-command script scripts/drawholes.tcl
-tip "Display drill holes"
}
GuidoFiller fill2 {
-width .2
}
GuidoButton hide_one_hole {
-icon "icons/<iconsize>/hide_drillhole.png"
-command script scripts/hidehole.tcl
-tip "Hide one drill hole"
}
GuidoButton hide_all_holes {
-icon "icons/<iconsize>/hide_drillholes.png"
-command script scripts/hideholes.tcl
-tip "Hide all drill holes"
}
GuidoFiller fill6 {
-width .2
}
GuidoButton refresh_drillholes {
-icon "icons/<iconsize>/refresh_drillholes.png"
-command server "refresh drillholes"
-tip "Refresh drill holes"
}
GuidoFiller fill7 {
-width .2
}
GuidoButton id_drillhole {
-icon "icons/<iconsize>/identify_drillhole.png"
-command script scripts/selecthole.tcl
-tip "Identify drill hole"
}
GuidoButton edit_drillhole {
-icon "icons/<iconsize>/edit_hole.png"
-command server "EDIT HOLE"
-tip "Edit drill hole"
}
GuidoFiller fill8 {
-width .2
}
GuidoToggleButton drillhole_selectable {
-status_item "drillhole selectability"
-icon "icons/<iconsize>/drillholes_selectable.png"
-command server "drillholes not selectable"
-command server "drillholes selectable"
-tip "Toggle drillhole trace selectability"
}
GuidoToggleButton drillhole_label_selectable {
-status_item "drillhole label selectability"
-icon "icons/<iconsize>/drillhole_labels_selectable.png"
-command server "drillhole labels not selectable"
-command server "drillhole labels selectable"
-tip "Toggle drillhole label tickmark selectability"
}
GuidoToggleButton drillhole_geology_selectable {
-status_item "drillhole geology selectability"
-icon "icons/<iconsize>/drillhole_geology_selectable.png"
-command server "drillhole geology not selectable"
-command server "drillhole geology selectable"
-tip "Toggle drillhole geology pattern selectability"
}
GuidoFiller fill8c {
-width .2
}
GuidoButton segment_grade {
-icon "icons/<iconsize>/drillhole_segment_grade.png"
-command script "scripts/segmentgrade.tcl" "segment"
-tip "Digitised segment grade"
}
GuidoButton string_grade {
-icon "icons/<iconsize>/drillhole_string_grade.png"
-command script "scripts/segmentgrade.tcl" "string"
-tip "Digitised string grade"
}
GuidoFiller fill9a {
-width .2
}
GuidoButton composite_options {
-icon "icons/<iconsize>/compositing_options.png"
-command script scripts/compositeoptions.tcl
-tip "Setup compositing options"
}
GuidoFiller fill9b {
-width .2
}
GuidoButton composite_create {
-icon "icons/<iconsize>/create_composite.png"
-command script scripts/compositecreate.tcl
-tip "Graphically create composite"
}
GuidoFiller fill_10 {
-width .2
}
GuidoButton composite_code {
-icon "icons/<iconsize>/code_composites.png"
-command script scripts/compositecode.tcl
-tip "Code composite"
}
GuidoButton composite_edit {
-icon "icons/<iconsize>/edit_composite.png"
-command script scripts/compositeedit.tcl
-tip "Edit composite"
}
GuidoFiller fill_11 {
-width .2
}
GuidoButton composite_graphical_edit {
-icon "icons/<iconsize>/graphically_edit_composite.png"
-command script scripts/compositegraphicaledit.tcl
-tip "Graphically edit composite"
}
GuidoButton composite_graphical_move {
-icon "icons/<iconsize>/graphically_move_composite.png"
-command script scripts/compositegraphicalmove.tcl
-tip "Graphically move composite"
}
GuidoFiller fill_12 {
-width .2
}
GuidoButton composite_delete {
-icon "icons/<iconsize>/delete_composite.png"
-command script scripts/compositedelete.tcl
-tip "Delete one composite"
}
GuidoButton composite_delete_all {
-icon "icons/<iconsize>/delete_all_composites.png"
-command script scripts/deleteallcomposites.tcl
-tip "Delete all composites"
}
GuidoFiller fill_13 {
-width .2
}
GuidoButton composite_read {
-icon "icons/<iconsize>/read_composites.png"
-command server "READ COMPOSITES"
-tip "Read composites from database"
}
GuidoButton composite_write {
-icon "icons/<iconsize>/write_composites.png"
-command script scripts/compositewrite.tcl
-tip "Write composites to database"
}
GuidoFiller fill_14 {
-width .2
}
GuidoButton composite_report {
-icon "icons/<iconsize>/report_composites.png"
-command script scripts/compositereport.tcl
-tip "Report composites"
}
