proc setDisplayName {} {
global atts
global att
global displayName
set tableRow [$atts getEditingRow]
set currValue [$displayName getCurrentValue $tableRow]
if {$currValue == ""} {
set currValue [$att getCurrentValue $tableRow]
$displayName setCurrentValue $tableRow $currValue
}
}
GuidoForm frm20520 {
-default_buttons
-label "Select Mining Attributes"
-layout BoxLayout Y_AXIS
GuidoFiller space {
-height 0.5
}
GuidoPanel sgPanel {
-layout CentrelineLayout
GuidoComboBox autodisplay {
-label "Display results"
-display_length 10
-format none
-max_length 80
-translate none
-null false
-value_in "Never" "Over Target Volume" "Over Target Tonnage" "Every 1 block"  "Every 5 blocks" "Every 10 blocks" "Every 20 blocks" "Every 50 blocks"
-default "Never"
-tip "20520_TIP_001"
}
GuidoFiller space {
-height 0.5
}
GuidoFiller space {
-height 0.5
}
GuidoField targetVolume {
-display_length 10
-format none
-label "Target Volume"
-max_length 30
-translate none
-tip "Enter the volume target you wish to hit for this mining period.  This field may be left empty."
}
GuidoField targetTonnage {
-display_length 10
-format none
-label "Target Tonnage"
-max_length 30
-translate none
-tip "Enter the tonnage target you wish to hit for this mining period.  This field may be left empty."
}
GuidoFiller space {
-height 0.5
}
GuidoFiller space {
-height 0.5
}
GuidoBMAttributeBrowser sg {
-label "SG Attribute"
-display_length 10
-format none
-max_length BM_MAX_ATT_NAME_LEN
-translate none
-attribute_types real integer calculated
-tip "Enter the (optional) density attribute to use in mass weighting calculations."
}
}
GuidoFiller space {
-height 0.5
}
GuidoScrollPane frm20513_7 {
-height 10
GuidoTable atts {
-instances 1 1 50
-interactive true
GuidoBMAttributeBrowser att {
-display_length 18
-format none
-label "Attribute Name"
-max_length BM_MAX_ATT_NAME_LEN
-null false
-exclusive true
-attribute_types real integer calculated
-tip "Select the attributes to mine and graphically report on."
}
GuidoField displayName {
-display_length 20
-label "Display Name"
-max_length BM_MAX_ATT_NAME_LEN
-translate none
-action focusGained {[setDisplayName]}
-tip "Description label to use for selected attribute. Can be the same as the attribute name."
}
GuidoComboBox cumType {
-display_length 20
-format none
-label "Average Calculation"
-max_length 30
-translate none
-value_in "Volume Weighted Average" "Mass Weighted Average" "Aggregate"
-tip "Choose the weighting to use for this attribute"
}
GuidoField target {
-display_length 10
-format none
-label "Target"
-max_length 30
-translate none
-tip "Enter the target average you wish to hit for this attribute"
}
}
}
GuidoFiller space {
-height 0.5
}
GuidoPanel constPanel {
-layout CentrelineLayout
GuidoFileBrowserField minedConst {
-display_length 16
-label "Save mined blocks to"
-format none
-max_length 256
-translate none
-file_mask *.con
-tip "20520_TIP_009"
}
GuidoFileBrowserField resultConst {
-display_length 16
-label "Save resulting mine shape to"
-format none
-max_length 256
-translate none
-file_mask *.con
-tip "20520_TIP_010"
}
}
GuidoFiller space {
-height 0.5
}
$att updateBrowserList
$sg updateBrowserList
}
