GuidoForm frm00522 {
-action initial {[]}
proc ssiforminitialisedvalue { } {
global ssiforminitialised
return $ssiforminitialised
}
set ssiforminitialised 0
-default_buttons
-label "Enter observations for EDM survey"
-layout BoxLayout Y_AXIS
-tip 00522_TIP_0
GuidoPanel frm00522_24 {
-layout BoxLayout X_AXIS
GuidoPanel frm00522_22 {
-layout CentreLineLayout Vertical Left
GuidoLabel backsight_label {
-label Backsight
}
GuidoLabel backsight {
}
GuidoFiller filler {
-height 0.05
}
GuidoFiller filler {
-height 0.05
}
GuidoLabel setup_label {
-label SURVEY_SETUP_STATION_TXT
}
GuidoLabel setup {
}
GuidoFiller filler {
-height 0.05
}
GuidoFiller filler {
-height 0.05
}
GuidoLabel ref_angle_label {
-label "Reference angle"
}
GuidoLabel ref_angle {
}
GuidoFiller filler {
-height 0.05
}
GuidoFiller filler {
-height 0.05
}
GuidoLabel hi_label {
-label "Instrument height"
}
GuidoLabel hi {
}
}
}
GuidoFiller frm00522_26 {
-height 1
}
GuidoScrollPane frm00522_21 {
-height 19
GuidoTable scroll_1 {
-instances 1 1 200
-interactive true
GuidoField col1 {
-action focusGained {[
set ssiforminitialised 1
]}
-action initial {[if {[string length [$col1 getCurrentValueRelative -1]] > 0 && [ssiforminitialisedvalue] } { $col1 setCurrentValue [$col1 getCurrentValueRelative -1] }]}
-default 0
-display_length 3
-format integer
-high_bound 32000
-label String
-low_bound 0
-max_length 5
-null false
-tip 00522_TIP_1
-translate none
}
GuidoField col2 {
-action initial {[if {[string length [$col2 getCurrentValueRelative -1]] > 0 && [ssiforminitialisedvalue] } { $col2 setCurrentValue [$col2 getCurrentValueRelative -1] }]}
-default 0
-display_length 4
-format double
-label Prism
-decimals 3
-max_length 16
-null false
-tip 00522_TIP_2
-translate upper
}
GuidoField col3 {
-default 0
-display_length 4
-format double
-high_bound 999999
-label "Slope distance"
-low_bound 0
-max_length 16
-null false
-tip 00522_TIP_3
-translate upper
}
GuidoField col4 {
-decimals 4
-default 00
-display_length 6
-format dms_angle
-high_bound 6.283180459
-label "Vertical angle"
-low_bound 0
-max_length 10
-null false
-tip 00522_TIP_4
-translate upper
}
GuidoField col5 {
-decimals 4
-default 00
-display_length 6
-format dms_angle
-high_bound 6.283180459
-label "Horizontal angle"
-low_bound 0
-max_length 10
-null false
-tip 00522_TIP_5
-translate upper
}
GuidoField col6 {
-display_length 14
-format none
-label Description
-max_length 512
-tip 00522_TIP_6
-translate none
}
}
}
}
