proc togglePanel {p} {
set flag [$p isInputAllowed]
if {$flag == 0} {
$p setInputAllowed true
} else {
$p setInputAllowed false
}
}
proc modifyCutoffField {table material use_parcel cutoff} {
set p [$use_parcel getCurrentValue]
set matt_name [$material getCurrentValue]
if {$p == "Y" && $matt_name != "sg" && $matt_name != "mcaf" && $matt_name != "pcaf"} {
$cutoff setInputAllowed true
} else {
$cutoff setInputAllowed false
}
}
GuidoForm frm21402 {
-default_buttons
-label "Input Whittle Values"
-layout BoxLayout Y_AXIS
-tip "BM_WHIT_FORM_HEADER"
-help_id 1048
GuidoScrollPane frm21402_17 {
-height 15
GuidoTable rock {
-instances 3 1 500
-interactive true
-row_headings
GuidoLabel material {
-label "Material / Element"
-display_length 12
}
GuidoField attribute {
-display_length 10
-format none
-label "Attribute name"
-max_length 512
-null false
-tip "Enter the attribute name to store the value for the material to the left of this field"
-translate lower
}
GuidoCheckBox use_parcel {
-label "Include Parcel"
-default false
-unselected_value N
-selected_value Y
-action valueChanged {[modifyCutoffField $rock $material $use_parcel $cutoff]}
-tip BM_WHIT_INCLUDE_PARCEL
}
GuidoField cutoff {
-display_length 10
-format none
-label "Material Cutoff"
-max_length 16
-null false
-tip "BM_WHIT_CUTOFF_VAL"
-translate none
}
}
}
GuidoPanel frm21402_24 {
-layout BoxLayout Y_AXIS
GuidoPanel vol_fac_panel {
-layout CentreLineLayout
GuidoCheckBox import_reject {
-default true
-label "Import rejected values"
-selected_value Yes
-tip "TODO"
-unselected_value No
}
GuidoCheckBox use_metal {
-default true
-label "Import metal values"
-selected_value Yes
-tip "BM_WHIT_IMPORT_METAL"
-unselected_value No
}
GuidoCheckBox equiv_metal {
-default false
-label "Use equivalent metal formula"
-selected_value Yes
-tip "BM_WHIT_EQUIV_METAL"
-unselected_value No
}
}
}
}
