GuidoForm frm10158 {
-action initial {[]}
proc ssiforminitialisedvalue { } {
global ssiforminitialised
return $ssiforminitialised
}
set ssiforminitialised 0
-default_buttons
-label "Underground section profile survey"
-layout BoxLayout Y_AXIS
-tip 10158_TIP_0
GuidoPanel frm10158_15 {
-layout CentreLineLayout
GuidoLabel frm10158_2 {
-label "Database name"
}
GuidoLabel dbname {
-action focusGained {[set ssiforminitialised 1]}
}
}
GuidoScrollPane frm10158_14 {
-height 16
GuidoTable scroll_1 {
-instances 1 1 200
-interactive true
GuidoField istr {
-action initial {[if {[string length [$istr getCurrentValueRelative -1]] > 0 && [ssiforminitialisedvalue] } { $istr setCurrentValue [$istr getCurrentValueRelative -1] }]}
-display_length 5
-format integer
-high_bound 32000
-label "String no"
-low_bound 0
-max_length 5
-null false
-tip 10158_TIP_1
-translate none
}
GuidoField chain {
-action initial {[if {[string length [$chain getCurrentValueRelative -1]] > 0 && [ssiforminitialisedvalue] } { $chain setCurrentValue [$chain getCurrentValueRelative -1] }]}
-display_length 8
-format double
-decimals 3
-label Chainage
-max_length 8
-null false
-tip 10158_TIP_2
-translate upper
}
GuidoField hofset {
-action initial {[if {[string length [$hofset getCurrentValueRelative -1]] > 0 && [ssiforminitialisedvalue] } { $hofset setCurrentValue [$hofset getCurrentValueRelative -1] }]}
-display_length 8
-format double
-decimals 3
-label "Horiz. offset"
-max_length 8
-null false
-tip 10158_TIP_3
-translate upper
}
GuidoField vofset {
-action initial {[if {[string length [$vofset getCurrentValueRelative -1]] > 0 && [ssiforminitialisedvalue] } { $vofset setCurrentValue [$vofset getCurrentValueRelative -1] }]}
-display_length 8
-format double
-decimals 3
-label "Vert. offset"
-max_length 8
-null false
-tip 10158_TIP_4
-translate upper
}
}
}
}
