GuidoLabel rid2 {}
proc rangecallback { } {
global opnloc
global stopeloc
global secrange
global secrange2
$secrange2 setCurrentValue "[ $secrange getCurrentValue ]"
if {"[$stopeloc getCurrentValue]" == "" &&
"[$opnloc getCurrentValue]" != "" &&
"[$opnloc getCurrentValue]" != ".str" } {
$stopeloc setCurrentValue "[ $opnloc getCurrentValue ]"
}
if {"[$opnloc getCurrentValue]" == "" &&
"[$stopeloc getCurrentValue]" != "" &&
"[$stopeloc getCurrentValue]" != ".str" } {
$opnloc setCurrentValue "[ $stopeloc getCurrentValue ]"
}
}
GuidoForm frm70006 {
-default_buttons
-label "Ring Design Sections"
-tip "70006_TIP_001"
GuidoFileBrowserField opnloc {
-display_length 26
-file_mask *.str
-format none
-label "Location for Survey Openings"
-link secrange
-max_length 252
-null false
-tip "70006_TIP_002"
-translate lower
}
GuidoField secrange {
-display_length 26
-format range
-label "Define the Range of Sections"
-max_length 32
-null false
-tip "Enter the range of ring sections to be designed."
-translate none
}
GuidoField drive_str {
-display_length 26
-format range
-label "String range for Survey Openings"
-max_length 32
-tip "70006_TIP_004"
-translate none
}
GuidoFiller frm70006_15 {
-height 1
}
GuidoFiller frm70006_16 {
-height 1
}
GuidoFileBrowserField stopeloc {
-display_length 26
-file_mask *.str
-format none
-label "Location for Stope Outlines"
-link rid2
-max_length 252
-tip "70006_TIP_005"
-translate lower
-extension false
}
GuidoLabel frm70006_6 {
-label "Range of Sections"
}
GuidoLabel secrange2 {}
GuidoField stope_str {
-display_length 26
-format range
-label "String range for Stope Outlines"
-max_length 32
-tip "70006_TIP_006"
-translate none
}
GuidoFiller frm70006_17 {
-height 1
}
GuidoFiller frm70006_18 {
-height 1
}
GuidoPanel frm70006_13 {
-label "View direction"
-layout BoxLayout X_AXIS
-tip "70006_TIP_007"
GuidoButtonGroupPanel view_dir {
GuidoRadioButton frm70006_11 {
-caption "North / East / Above"
-selected_value "North / East / Above"
}
GuidoRadioButton frm70006_12 {
-caption "South / West / Below"
-selected_value "South / West / Below"
}
}
}
$opnloc    setActionCallback focusGained {[rangecallback]}
$secrange  setActionCallback focusGained {[rangecallback]}
$drive_str setActionCallback focusGained {[rangecallback]}
$stopeloc  setActionCallback focusGained {[rangecallback]}
$stope_str setActionCallback focusGained {[rangecallback]}
$view_dir  setActionCallback focusGained {[rangecallback]}
}
