proc validateFieldIndex { field } {
global fieldArray
set fieldKey [$field getCurrentValue]
set fieldName [$field getLabelText]
set returnCode 1
if {[info exists fieldArray($fieldKey)]} {
set returnCode 0
GuidoMessage warning "Duplicate description field index. Ensure all indices are valid and unique."
} else {
set fieldArray($fieldKey) $fieldName
}
return $returnCode
}
proc validateFieldIndices { } {
global fieldArray
unset fieldArray
}
GuidoForm frm00486 {
-default_buttons
-help_id 1052
-label "Recall and Display Samples for Grade Control"
-layout BoxLayout Y_AXIS
-tip 00486_TIP_0
GuidoPanel frm00486_24 {
-border etched true
-label "Define the sample string file to be used"
-layout CentreLineLayout Vertical Left
GuidoFileBrowserField smploc {
-display_length 19
-file_mask *.str
-format none
-label Location
-max_length 252
-null false
-tip 00486_TIP_1
-translate lower
-extension false
}
GuidoFiller filler {
-height 0.05
}
GuidoFiller filler {
-height 0.05
}
GuidoField isamp_fld {
-display_length 6
-format integer
-high_bound 100
-label "Assay field"
-low_bound 1
-max_length 5
-null false
-tip 00486_TIP_2
-translate none
}
GuidoFiller filler {
-height 0.05
}
GuidoFiller filler {
-height 0.05
}
GuidoField thickness {
-display_length 6
-format double
-high_bound 1e+06
-label Thickness
-low_bound .001
-max_length 8
-next_focus sg
-null false
-tip 00486_TIP_3
-translate upper
}
GuidoFiller filler {
-height 0.05
}
GuidoFiller filler {
-height 0.05
}
GuidoField sg {
-display_length 6
-format double
-high_bound 100
-label "Specific gravity"
-low_bound .001
-max_length 8
-null false
-tip 00486_TIP_4
-translate upper
}
GuidoPanel frm00486_20 {
-label Samples
-layout CentreLineLayout Vertical Left
-tip 00486_TIP_5
GuidoButtonGroupPanel pnt_or_int {
-layout BoxLayout Y_AXIS
GuidoRadioButton frm00486_18 {
-caption Interval
-selected_value I
}
GuidoRadioButton frm00486_19 {
-caption Point
-selected_value P
}
}
}
GuidoFiller filler {
-height 0.05
}
GuidoPanel frm00486_30 {
-layout CentreLineLayout Vertical Left
GuidoCheckBox dilute_fld {
-default false
-selected_value Y
-tip 12023_TIP_8
-unselected_value N
}
GuidoLabel frm00486_23 {
-label "Dilute blank or negative samples"
}
}
}
GuidoPanel frm00486_30 {
-border etched true
-layout CentreLineLayout Vertical Left
-label "Define the description fields for the results"
-validation {[validateFieldIndices]}
GuidoPanel frm00486_32 {
-layout BoxLayout X_AXIS
GuidoPanel frm00486_30 {
-border etched true
-layout CentreLineLayout Vertical Left
GuidoField igrade_fld {
-validation {[validateFieldIndex $igrade_fld]}
-display_length 5
-format integer
-high_bound 100
-label Grade
-low_bound 1
-max_length 5
-next_focus ivol_fld
-null false
-tip 00486_TIP_6
-translate none
}
GuidoFiller filler {
-height 0.05
}
GuidoFiller filler {
-height 0.05
}
GuidoField ivol_fld {
-validation {[validateFieldIndex $ivol_fld]}
-display_length 5
-format integer
-high_bound 100
-label Volume
-low_bound 1
-max_length 5
-next_focus isg_fld
-null false
-tip 00486_TIP_7
-translate none
}
GuidoFiller filler {
-height 0.05
}
GuidoFiller filler {
-height 0.05
}
GuidoField isg_fld {
-validation {[validateFieldIndex $isg_fld]}
-display_length 5
-format integer
-high_bound 100
-label "Specific gravity"
-low_bound 1
-max_length 5
-next_focus itonnes_fld
-null false
-tip 00486_TIP_8
-translate none
}
}
GuidoFiller frm00486_33 {
-width 1
}
GuidoPanel frm00486_31 {
-border etched true
-layout CentreLineLayout Vertical Left
GuidoField itonnes_fld {
-validation {[validateFieldIndex $itonnes_fld]}
-display_length 5
-format integer
-high_bound 100
-label Mass
-low_bound 1
-max_length 5
-next_focus iarea_fld
-null false
-tip 00486_TIP_9
-translate none
}
GuidoFiller filler {
-height 0.05
}
GuidoFiller filler {
-height 0.05
}
GuidoField iarea_fld {
-validation {[validateFieldIndex $iarea_fld]}
-display_length 5
-format integer
-high_bound 100
-label Area
-low_bound 1
-max_length 5
-next_focus ithick_fld
-null false
-tip 00486_TIP_10
-translate none
}
GuidoFiller filler {
-height 0.05
}
GuidoFiller filler {
-height 0.05
}
GuidoField ithick_fld {
-validation {[validateFieldIndex $ithick_fld]}
-display_length 5
-format integer
-high_bound 100
-label Thickness
-low_bound 1
-max_length 5
-null false
-tip 00486_TIP_11
-translate none
}
}
}
}
}
