GuidoForm frm10153 {
-action initial {[]}
proc ssiforminitialisedvalue { } {
global ssiforminitialised
return $ssiforminitialised
}
set ssiforminitialised 0
-default_buttons
-label "Underground chain and offset survey"
-layout BoxLayout Y_AXIS
-tip 10153_TIP_0
GuidoPanel frm10153_18 {
-layout CentreLineLayout
GuidoLabel frm10153_2 {
-label "Database Name"
}
GuidoLabel dbname {
-action focusGained {[set ssiforminitialised 1]}
}
}
GuidoScrollPane frm10153_17 {
-height 16
GuidoTable scroll_1 {
-instances 1 1 200
-interactive true
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 10153_TIP_1
-translate upper
}
GuidoField ofset {
-action initial {[if {[string length [$ofset getCurrentValueRelative -1]] > 0 && [ssiforminitialisedvalue] } { $ofset setCurrentValue [$ofset getCurrentValueRelative -1] }]}
-display_length 8
-format double
-decimals 3
-label Offset
-max_length 8
-null false
-tip 10153_TIP_2
-translate upper
}
GuidoField up {
-action initial {[if {[string length [$up getCurrentValueRelative -1]] > 0 && [ssiforminitialisedvalue] } { $up setCurrentValue [$up getCurrentValueRelative -1] }]}
-display_length 8
-format double
-decimals 3
-label Up
-max_length 8
-null false
-tip 10153_TIP_3
-translate upper
}
GuidoField down {
-action initial {[if {[string length [$down getCurrentValueRelative -1]] > 0 && [ssiforminitialisedvalue] } { $down setCurrentValue [$down getCurrentValueRelative -1] }]}
-display_length 8
-format double
-decimals 3
-label Down
-max_length 8
-null false
-tip 10153_TIP_4
-translate upper
}
GuidoCheckBox break {
-action initial {[if {[string length [$break getCurrentValueRelative -1]] > 0 && [ssiforminitialisedvalue] } { $break setCurrentValue [$break getCurrentValueRelative -1] }]}
-default false
-label Break
-selected_value Y
-tip 10153_TIP_5
-unselected_value N
}
}
}
}
