set ssiforminitialised 0
proc ssiforminitialisedvalue { } {
global ssiforminitialised
return $ssiforminitialised
}
GuidoForm frm12011 {
-default_buttons
-label "Define Geology Fields"
-layout BoxLayout Y_AXIS
-tip 12011_TIP_0
GuidoPanel frm12011_23 {
-layout CentreLineLayout
GuidoLabel frm12011_2 {
-label Table
}
GuidoLabel geotable {
-action focusGained {[set ssiforminitialised 1]}
}
GuidoCheckBox combgeo {
-default false
-label "Combine adjacent samples"
-selected_value Y
-tip 12011_TIP_1
-unselected_value N
}
}
GuidoFiller frm12011_24 {
-height 1
}
GuidoLabel frm12011_4 {
-font_style bold
-label "Define the geology fields and their plotting characteristics"
}
GuidoScrollPane frm12011_22 {
-height 9
GuidoTable scroll_1 {
-instances 1 1 10
-interactive true
GuidoComboBox geofield {
-display_length 10
-format none
-label "Field Name"
-max_length 10
-tip 12010_TIP_1
-translate none
}
GuidoComboBox boxpos {
-action initial {[if {[string length [$boxpos getCurrentValueRelative -1]] > 0 && [ssiforminitialisedvalue] } { $boxpos setCurrentValue [$boxpos getCurrentValueRelative -1] }]}
-default left
-display_length 6
-format none
-label "Geology Location"
-max_length 5
-tip 12011_TIP_3
-value_in left right
}
GuidoField boxsize {
-action initial {[if {[string length [$boxsize getCurrentValueRelative -1]] > 0 && [ssiforminitialisedvalue] } { $boxsize setCurrentValue [$boxsize getCurrentValueRelative -1] }]}
-default 5
-display_length 8
-format double
-high_bound 99999
-label "Box Size"
-low_bound 0
-max_length 8
-null false
-tip 12011_TIP_4
-translate upper
}
}
}
}
