GuidoButton block_model_open {
-icon "icons/<iconsize>/block_model_open.png"
-command server "block model open"
-tip "Open block model"
}
GuidoButton block_model_save {
-icon "icons/<iconsize>/bm_save_model.png"
-command server "bm save model"
-tip "Save block model"
}
GuidoButton block_model_save_as {
-icon "icons/<iconsize>/bm_save_as.png"
-command server "bm save as"
-tip "Save as block model"
}
GuidoButton bm_exit {
-icon "icons/<iconsize>/bm_exit.png"
-command server "bm exit"
-tip "Close block model"
}
GuidoButton bm_graphics_draw {
-icon "icons/<iconsize>/bm_graphics_draw.png"
-command server "bm graphics draw"
-tip "Display block model"
}
GuidoButton bm_graphics_hide {
-icon "icons/<iconsize>/bm_graphics_erase.png"
-command server "bm graphics erase"
-tip "Hide block model"
}
GuidoFiller fill1 {
-width .2
}
GuidoButton bm_graphics_constrain_add {
-icon "icons/<iconsize>/bm_graphics_constrain_add.png"
-command server "bm graphics constrain add"
-tip "Add new graphical constraint"
}
GuidoButton bm_graphics_constrain_edit {
-icon "icons/<iconsize>/bm_graphics_constrain_edit.png"
-command server "bm graphics constrain edit"
-tip "Edit graphical constraints"
}
GuidoButton bm_graphics_constrain_remove {
-icon "icons/<iconsize>/bm_graphics_constrain_remove.png"
-command server "bm graphics constrain remove"
-tip "Remove last graphical constraint"
}
GuidoButton bm_graphics_constrain_clear {
-icon "icons/<iconsize>/bm_graphics_constrain_clear.png"
-command server "bm graphics constrain clear"
-tip "Remove all graphical constraints"
}
GuidoButton bm_save_constraint {
-icon "icons/<iconsize>/bm_save_graphical_constraints.png"
-command server "bm save graphical constraints"
-tip "Save Graphical Constraints"
}
GuidoButton bm_partial_percentages {
-icon "icons/<iconsize>/bm_partial_percentages.png"
-command script forms/PartialPercentage.tcl
-tip "Perform Partial Percentage Calculation"
}
GuidoButton bm_edit_constraint {
-icon "icons/<iconsize>/bm_edit_constraint.png"
-command server "bm edit constraint"
-tip "Edit block model constraint"
}
GuidoFiller fill2 {
-width .2
}
GuidoButton block_edges_and_faces {
-icon "icons/<iconsize>/block_edges_and_faces.png"
-command server "block edges and faces"
-tip "Block edge and face visibility"
}
GuidoButton bm_graphics_slice_add {
-icon "icons/<iconsize>/bm_graphics_slice_add.png"
-command server "bm graphics slice add"
-tip "Add graphical slicing plane constraints"
}
GuidoButton bm_graphics_slice_clear {
-icon "icons/<iconsize>/bm_graphics_slice_clear.png"
-command server "bm graphics slice clear"
-tip "Remove graphical slicing plane constraints"
}
GuidoFiller fill3 {
-width .2
}
GuidoButton bm_graphics_attribute_colour {
-icon "icons/<iconsize>/bm_graphics_attribute_colour.png"
-command server "bm graphics attribute colour"
-tip "Colour blocks by attribute"
}
GuidoButton bm_graphics_attribute_uncolour {
-icon "icons/<iconsize>/bm_graphics_attribute_uncolour.png"
-command server "bm graphics attribute uncolour"
-tip "Remove block colours"
}
GuidoButton bm_add_attribute {
-icon "icons/<iconsize>/bm_add_attribute.png"
-command server "bm add attribute"
-tip "Add new block model attribute"
}
GuidoButton bm_delete_attribute {
-icon "icons/<iconsize>/bm_delete_attributes.png"
-command server "bm delete attribute"
-tip "Delete block model attribute"
}
GuidoFiller fill4 {
-width .2
}
GuidoButton bm_block_maths {
-icon "icons/<iconsize>/bm_block_maths.png"
-command server "bm block maths"
-tip "Perform maths on block model attributes"
}
GuidoButton bm_graphics_block_id {
-icon "icons/<iconsize>/bm_graphics_block_id.png"
-command server "bm graphics block id"
-tip "Identify block values"
}
GuidoButton bm_vol_ton_report {
-icon "icons/<iconsize>/bm_vol_ton_report.png"
-command server "bm vol ton report"
-tip "Create block model volume and tonnage report"
}
GuidoFiller fill5 {
-width .2
}
GuidoButton ellipsoid_visualiser {
-icon "icons/<iconsize>/ellipsoid_visualiser.png"
-command script forms/EllipsoidVisualiser.tcl
-tip "Ellipsoid visualiser"
}
GuidoFiller fill5 {
-width .2
}
GuidoButton bm_audit_trail {
-icon "icons/<iconsize>/bm_audit_trail.png"
-command script "forms/BlockModelAudit.tcl" "BLOCK_MODEL_AUDIT"
-tip "Display Model Audit Trail"
}
GuidoButton flush_bm_audit_trail {
-icon "icons/<iconsize>/audit_flush.png"
-command script "forms/AuditFlush.tcl" "BLOCK_MODEL_AUDIT"
-tip "Flush Audit Trail"
}
GuidoToggleButton bm_audit_state {
-status_item "recording bm audit"
-icon "icons/<iconsize>/audit_record.png"
-command script "forms/AuditRecord.tcl" "BLOCK_MODEL_AUDIT N"
-command script "forms/AuditRecord.tcl" "BLOCK_MODEL_AUDIT Y"
-tip "Recording Block Model Audit"
}
GuidoFiller fill6 {
-width .2
}
