GuidoForm frm10154 {
-action initial {[]}
proc ssiforminitialisedvalue { } {
global ssiforminitialised
return $ssiforminitialised
}
set ssiforminitialised 0
-default_buttons
-label "Underground radiation survey"
-layout BoxLayout Y_AXIS
-tip 10154_TIP_0
GuidoPanel frm10154_17 {
-layout CentreLineLayout
GuidoLabel frm10154_2 {
-label "Database name"
}
GuidoLabel dbname {
-action focusGained {[set ssiforminitialised 1]}
}
}
GuidoScrollPane frm10154_16 {
-height 16
GuidoTable scroll_1 {
-instances 1 1 200
-interactive true
GuidoField slodst {
-display_length 8
-format double
-label "Slope dist."
-max_length 8
-null false
-tip 10154_TIP_1
-translate upper
}
GuidoField vcircl {
-action initial {[if {[string length [$vcircl getCurrentValueRelative -1]] > 0 && [ssiforminitialisedvalue] } { $vcircl setCurrentValue [$vcircl getCurrentValueRelative -1] }]}
-decimals 4
-display_length 9
-format dms_angle
-label "Vert. circle"
-max_length 9
-null false
-tip 10154_TIP_2
-translate upper
}
GuidoField hcircl {
-decimals 4
-display_length 9
-format dms_angle
-label "Horiz. circle"
-max_length 9
-null false
-tip 10154_TIP_3
-translate upper
}
GuidoField up {
-action initial {[if {[string length [$up getCurrentValueRelative -1]] > 0 && [ssiforminitialisedvalue] } { $up setCurrentValue [$up getCurrentValueRelative -1] }]}
-display_length 7
-format double
-label Up
-max_length 7
-null false
-tip 10154_TIP_4
-translate upper
}
GuidoField down {
-action initial {[if {[string length [$down getCurrentValueRelative -1]] > 0 && [ssiforminitialisedvalue] } { $down setCurrentValue [$down getCurrentValueRelative -1] }]}
-display_length 7
-format double
-label Down
-max_length 7
-null false
-tip 10154_TIP_5
-translate upper
}
}
}
}
