if { [ GuidoSSIOption get "product"] != "STATISTICS" } {
GuidoButton open {
-icon "icons/<iconsize>/vg_reload.png"
-command server "vg reload"
-tip "Load data from a string file"
}
GuidoFiller fill1 {
-width .2
}
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"
}
}
GuidoButton open_exp {
-icon "icons/<iconsize>/recall_exp_vg.png"
-command script scripts/recall_exp_vg.tcl
-tip "Load experimental variogram"
}
if {[GuidoSSIOption get "product"] != "STATISTICS" || [string match Minex* [GuidoSSIOption get "product_title"]]} {
GuidoButton open_mod {
-icon "icons/<iconsize>/recall_vg_model.png"
-command script scripts/recall_vg_model.tcl
-tip "Load variogram model"
}
GuidoButton save {
-icon "icons/<iconsize>/save_vg_model.png"
-command script scripts/save_vg.tcl
-tip "Save experimental variogram and model"
}
}
GuidoFiller fill1 {
-width 0.2
}
GuidoButton start {
-icon "icons/<iconsize>/vg_start_model.png"
-command server "vg start model"
-tip "Model variogram"
}
GuidoButton clear {
-icon "icons/<iconsize>/vg_clear_model.png"
-command server "vg clear model"
-tip "Delete variogram model"
}
GuidoButton add {
-icon "icons/<iconsize>/vg_add_structure.png"
-command server "vg add structure"
-tip "Add a structure"
}
GuidoButton delete {
-icon "icons/<iconsize>/vg_delete_structure.png"
-command server "vg delete structure"
-tip "Delete a structure"
}
GuidoButton type {
-icon "icons/<iconsize>/vg_type.png"
-command server "vg type"
-tip "Variogram type"
}
GuidoButton numpairs {
-icon "icons/<iconsize>/vg_num_pairs.png"
-command server "vg num pairs"
-tip "Display / Hide number of pairs"
}
GuidoButton variance {
-icon "icons/<iconsize>/vg_variance.png"
-command server "vg variance"
-tip "Display / Hide variance"
}
GuidoButton report {
-icon "icons/<iconsize>/vg_report_model.png"
-command server "vg report model"
-tip "Variogram Report"
}
GuidoButton exp_report {
-icon "icons/<iconsize>/vg_report_experimental.png"
-command server "vg report experimental"
-tip "Experimental Variogram Report"
}
GuidoScript scripts/toolbars/varigrammodeltype.tcl
GuidoFiller fill1 {
-width 0.2
}
GuidoButton vg_axis_maxima {
-tip "Axis scale"
-command script "scripts/vgaxes.tcl"
-icon "icons/<iconsize>/vg_set_axis_limits.png"
}
GuidoButton grid {
-icon "icons/<iconsize>/grid.png"
-command server "vg grid"
-tip "Display / hide grid"
}
GuidoButton legend {
-icon "icons/<iconsize>/vg_legend.png"
-command server "vg legend"
-tip "Display/hide chart legend"
}
GuidoButton lagintervals {
-icon "icons/<iconsize>/vg_lag_intervals.png"
-command server "vg lag intervals"
-tip "Display/hide lag intervals"
}
if { [ GuidoSSIOption get "product"] != "STATISTICS" } {
GuidoFiller fill1 {
-width 0.2
}
GuidoToggleButton macrorecord {
-selected_icon "icons/<iconsize>/macro_recording.gif"
-unselected_icon "icons/<iconsize>/macro_record_start.png"
-command server "macro record end"
-command server "macro record start"
-status_item "macro record"
-ui_active
-tip "Start/end recording an SCL script"
}
GuidoToggleButton macroplay {
-selected_icon "icons/<iconsize>/macro_playing.gif"
-unselected_icon "icons/<iconsize>/macro_playback.png"
-command client "SEND ABORT MESSAGE"
-command server "macro playback"
-status_item "macro playback"
-tip "Playback/abort a macro or SCL script"
}
}
GuidoFiller fill2 {
-width 0.2
}
GuidoScript scripts/toolbars/lagSlider.tcl
