GuidoPanel namingPanel {
-border etched true
-label "Stope naming"
-layout BoxLayout Y_AXIS
GuidoPanel namingLayoutPanel {
-layout CentreLineLayout
GuidoField stopePrefix {
-label "Stope prefix"
-display_length 10
-default "_"
-null true
-tip STOPESNAMINGTAB_1
}
GuidoField startAt {
-label "Start at"
-display_length 5
-default "01A"
-null true
-tip STOPESNAMINGTAB_2
}
GuidoButtonGroupPanel incrementMethod {
-label "Increment method"
-layout BoxLayout Y_AXIS
-action valueChanged {[updateSamplePanel $sampleScroll $stopePrefix $startAt $incrementMethod $stopeName $pillarName $crownPillarName $startObjId $labelSep $prefixTable $prefix $prefixName $sliceMethod]}
GuidoRadioButton resetInc {
-caption "reset at each level"
-selected_value "reset"
-default true
-tip STOPESNAMINGTAB_3
}
GuidoRadioButton continueInc {
-caption "continue across levels"
-selected_value "continue"
-tip STOPESNAMINGTAB_4
}
}
GuidoField stopeName {
-label "Ore stope name"
-display_length 10
-null true
-tip STOPESNAMINGTAB_11
}
GuidoField pillarName {
-label "Pillar name"
-display_length 10
-null true
-tip STOPESNAMINGTAB_5
}
GuidoField crownPillarName {
-label "Crown pillar name"
-display_length 10
-null true
-tip STOPESNAMINGTAB_6
}
GuidoField startObjId {
-label "Start object ID"
-display_length 5
-default "1"
-format integer
-null false
-tip STOPESNAMINGTAB_7
}
GuidoField labelSep {
-label "Label separator"
-display_length 5
-default "_"
-null true
-tip STOPESNAMINGTAB_8
}
}
GuidoFiller f6 {
-height 0.2
}
GuidoPanel borderLayout {
-layout borderlayout
GuidoScrollPane prefixScroll {
-height 8
-width 45
GuidoTable prefixTable {
-instances 1 1 20
-interactive true
-position centre
GuidoField prefix {
-label "Area label"
-display_length 24
-tip STOPESNAMINGTAB_9
}
GuidoField prefixName {
-label "Name"
-display_length 10
-tip STOPESNAMINGTAB_10
}
}
}
}
}
GuidoPanel samplePanel {
-label "Sample names"
-border etched true
GuidoTextArea sampleScroll {
-height 10
-width 45
-editable false
}
$stopePrefix setActionCallback focusLost {[updateSamplePanel $sampleScroll $stopePrefix $startAt $incrementMethod $stopeName $pillarName $crownPillarName $startObjId $labelSep $prefixTable $prefix $prefixName $sliceMethod]}
$startAt setActionCallback focusLost {[updateSamplePanel $sampleScroll $stopePrefix $startAt $incrementMethod $stopeName $pillarName $crownPillarName $startObjId $labelSep $prefixTable $prefix $prefixName $sliceMethod]}
$resetInc setActionCallback focusLost {[updateSamplePanel $sampleScroll $stopePrefix $startAt $incrementMethod $stopeName $pillarName $crownPillarName $startObjId $labelSep $prefixTable $prefix $prefixName $sliceMethod]}
$continueInc setActionCallback focusLost {[updateSamplePanel $sampleScroll $stopePrefix $startAt $incrementMethod $stopeName $pillarName $crownPillarName $startObjId $labelSep $prefixTable $prefix $prefixName $sliceMethod]}
$pillarName setActionCallback focusLost {[updateSamplePanel $sampleScroll $stopePrefix $startAt $incrementMethod $stopeName $pillarName $crownPillarName $startObjId $labelSep $prefixTable $prefix $prefixName $sliceMethod]}
$crownPillarName setActionCallback focusLost {[updateSamplePanel $sampleScroll $stopePrefix $startAt $incrementMethod $stopeName $pillarName $crownPillarName $startObjId $labelSep $prefixTable $prefix $prefixName $sliceMethod]}
$startObjId setActionCallback focusLost {[updateSamplePanel $sampleScroll $stopePrefix $startAt $incrementMethod $stopeName $pillarName $crownPillarName $startObjId $labelSep $prefixTable $prefix $prefixName $sliceMethod]}
$labelSep setActionCallback focusLost {[updateSamplePanel $sampleScroll $stopePrefix $startAt $incrementMethod $stopeName $pillarName $crownPillarName $startObjId $labelSep $prefixTable $prefix $prefixName $sliceMethod]}
$prefix setActionCallback focusLost {[updateSamplePanel $sampleScroll $stopePrefix $startAt $incrementMethod $stopeName $pillarName $crownPillarName $startObjId $labelSep $prefixTable $prefix $prefixName $sliceMethod]}
$prefixName setActionCallback focusLost {[updateSamplePanel $sampleScroll $stopePrefix $startAt $incrementMethod $stopeName $pillarName $crownPillarName $startObjId $labelSep $prefixTable $prefix $prefixName $sliceMethod]}
$sliceMethod setActionCallback focusLost {[updateSamplePanel $sampleScroll $stopePrefix $startAt $incrementMethod $stopeName $pillarName $crownPillarName $startObjId $labelSep $prefixTable $prefix $prefixName $sliceMethod]}
}
