global alocid
global idrange
GuidoLabel zid {}
GuidoLabel oid {}
proc isIdExist_init { } {
global idrange
global alocid
set aid "[ $alocid getCurrentValue ]"
if { "$aid" != "" } {
$idrange setCurrentValue "[ $alocid getCurrentValue ]"
}
set idrvalue "[ $idrange getCurrentValue ]"
if { "$idrvalue" == "" } {
$idrange setInputAllowed false
} else {
$alocid setCurrentValue $idrvalue
$idrange setInputAllowed true
}
}
proc isIdExist { } {
global idrange
global alocid
set aid "[ $alocid getCurrentValue ]"
$idrange setCurrentValue "[ $alocid getCurrentValue ]"
set idrvalue "[ $idrange getCurrentValue ]"
if { "$idrvalue" == "" } {
$idrange setInputAllowed false
} else {
$idrange setInputAllowed true
}
}
GuidoForm frm12023 {
-default_buttons
-help_id 600
-layout CentreLineLayout VERTICAL LEFT
-label "Calculate grades for ore zones"
-tip 12023_TIP_0
GuidoPanel frm12023_1 {
-layout CentreLineLayout VERTICAL LEFT
-border etched true
GuidoFileBrowserField aloc {
-action initial {[isIdExist_init]}
-action focusLost {[isIdExist ]}
-label "Location of assay files"
-display_length 19.6
-file_mask *.str
-format none
-extension false
-link alocid
-null false
-max_length 252
-tip 12023_TIP_3
-translate lower
}
GuidoFiller frm_12023_8 {
-height 0.05
}
GuidoField alocid {
-height 0.05
-visible false
}
GuidoFileBrowserField zloc {
-label "Location of ore zone files"
-display_length 19.6
-file_mask *.str
-format none
-null false
-link zid
-max_length 252
-tip 12023_TIP_4
-translate lower
}
GuidoFiller frm_12023_1 {
-height 0.05
}
GuidoFiller frm_12023_2 {
-height 0.05
}
GuidoFileBrowserField oloc {
-label "Location for resultant zones"
-display_length 19.6
-file_mask *.str
-format none
-link oid
-null false
-max_length 252
-tip 12023_TIP_5
-translate lower
}
GuidoFiller frm_12023_3 {
-height 0.05
}
GuidoFiller frm_12023_4 {
-height 0.05
}
GuidoField idrange {
-label "Section range to process"
-display_length 19.6
-format range
-max_length 32
-tip 12023_TIP_2
-translate none
}
GuidoFiller frm_12023_3 {
-height 0.05
}
GuidoFiller frm_12023_4 {
-height 0.05
}
}
GuidoFiller frm_12023_4 {
-height 0.05
}
GuidoFiller frm_12023_4 {
-height 0.05
}
GuidoFiller frm_12023_4 {
-height 0.05
}
GuidoPanel frm12023_18_2 {
-layout BoxLayout X_AXIS
GuidoPanel frm12023_18_2 {
-layout BoxLayout Y_AXIS
GuidoPanel frm12023_18_3 {
-layout CentreLineLayout VERTICAL LEFT
-border etched true
GuidoField numass {
-label "Number of assays to process"
-display_length 3
-format integer
-high_bound 99
-low_bound 1
-max_length 2
-null false
-tip 12023_TIP_10
-translate none
}
}
GuidoPanel frm12023_8 {
-border etched true
-label "Grade calculation options:"
-layout CentreLineLayout VERTICAL LEFT
GuidoPanel frm12023_11 {
-layout CentreLineLayout VERTICAL LEFT
GuidoCheckBox overwrite {
-default false
-selected_value Y
-tip 12023_TIP_6
-unselected_value N
}
GuidoLabel location_label {
-label "Overwrite D-fields"
}
}
GuidoFiller frm_12023_9 {
-height 0.05
}
GuidoPanel frm12023_11 {
-layout CentreLineLayout VERTICAL LEFT
GuidoCheckBox full {
-default false
-selected_value Y
-tip 12023_TIP_7
-unselected_value N
}
GuidoLabel location_label {
-label "Compute full samples only"
}
}
GuidoFiller frm_12023_9 {
-height 0.05
}
GuidoPanel frm12023_11 {
-layout CentreLineLayout VERTICAL LEFT
GuidoCheckBox dilute {
-default false
-selected_value Y
-tip 12023_TIP_8
-unselected_value N
}
GuidoLabel location_label {
-label "Dilute blank or negative samples"
}
}
}
}
GuidoFiller frm_12023_9 {
-height 0.05
}
GuidoFiller frm_12023_4 {
-height 0.05
}
GuidoFiller frm_12023_4 {
-height 0.05
}
GuidoPanel frm12023_18 {
-layout BoxLayout Y_AXIS
GuidoPanel frm12023_18_4 {
-layout CentreLineLayout VERTICAL LEFT
-border etched true
-width 15.5
GuidoLabel type_label {
-label "Sample type:"
}
GuidoButtonGroupPanel type {
-layout BoxLayout Y_AXIS
-tip 12023_TIP_1
GuidoRadioButton frm12023_15 {
-caption Interval
-selected_value I
}
GuidoRadioButton frm12023_16 {
-caption Point
-selected_value P
}
}
}
GuidoFiller frm_12023_4 {
-height 0.05
}
GuidoPanel frm12023_13 {
-layout CentreLineLayout VERTICAL LEFT
-border etched true
GuidoLabel type_label {
-label "Calculation method:"
}
GuidoButtonGroupPanel method {
-layout BoxLayout Y_AXIS
-tip 12023_TIP_9
GuidoRadioButton frm12023_18 {
-caption Mean
-selected_value M
}
GuidoRadioButton frm12023_19 {
-caption Sichels
-selected_value S
}
}
}
}
}
}
