array set field_inited { 1 0 2 0 3 0 4 0 5 0 6 0 7 0 8 0 9 0 10 0 11 0 12 0 13 0 14 0 15 0 16 0 17 0 18 0 19 0 20 0 }
proc add_field_list { fieldHandle idx_in type} {
global field_inited
set idx [expr $idx_in + $type * 10]
if {$field_inited($idx) == 0} {
set currentValue "[ $fieldHandle getCurrentValue ]"
$fieldHandle removeAllItems
if {$type == 0} {
$fieldHandle setValues "" Y X Z D1 D2 D3 D4 D5 D6 D7 D8 D9 D10 D11 D12 D13 D14 D15 D16 D17 D18 D19 D20 D21 D22 D23 D24 D25 D26 D27 D28 D29 D30 D31 D32 D33 D34 D35 D36 D37 D38 D39 D40 D41 D42 D43 D44 D45 D46 D47 D48 D49 D50 D51 D52 D53 D54 D55 D56 D57 D58 D59 D60 D61 D62 D63 D64 D65 D66 D67 D68 D69 D70 D71 D72 D73 D74 D75 D76 D77 D78 D79 D80 D81 D82 D83 D84 D85 D86 D87 D88 D89 D90 D91 D92 D93 D94 D95 D96 D97 D98 D99 D100
} else {
$fieldHandle setValues + - * / C F S D =
}
set field_inited($idx) 1
$fieldHandle setExclusive 1
$fieldHandle setCurrentValue $currentValue
}
}
proc initialize { frm00499 } {
for {set idx 1} {$idx <= 10} {incr idx} {
global "opfld$idx"
upvar 0 "opfld$idx" fieldName
$fieldName setCurrentValue [$frm00499 readInputField "opfld$idx"]
global "op$idx"
upvar 0 "op$idx" fieldName
$fieldName setCurrentValue [$frm00499 readInputField "op$idx"]
global "value$idx"
upvar 0 "value$idx" fieldName
$fieldName setCurrentValue [$frm00499 readInputField "value$idx"]
}
add_field_list $opfld1 1 0
}
proc finalize { frm00499 } {
for {set idx 1} {$idx <= 10} {incr idx} {
global "opfld$idx"
upvar 0 "opfld$idx" fieldName
$frm00499 writeOutputField "opfld$idx" [$fieldName getCurrentValue]
global "op$idx"
upvar 0 "op$idx" fieldName
$frm00499 writeOutputField "op$idx" [$fieldName getCurrentValue]
global "value$idx"
upvar 0 "value$idx" fieldName
$frm00499 writeOutputField "value$idx" [$fieldName getCurrentValue]
}
$frm00499 finishedWritingFields
}
GuidoForm frm00499 {
-action initial {[initialize $frm00499]}
-action stateChanged {[ finalize $frm00499]}
-default_buttons
-label "Graphics String Maths - Define Required Operations 1"
-layout BoxLayout Y_AXIS
-next_focus opfld1
-tip "00499_TIP_001"
GuidoPanel frm00499_38 {
-border etched true
-layout BoxLayout X_AXIS
GuidoPanel frm00499_35 {
-layout CentreLineLayout
GuidoFiller frm00499_39 {}
GuidoLabel frm00499_2 {
-label Opfield
}
GuidoComboBox opfld1 {
-exclusive false
-value_in ""
-action focusGained {[add_field_list $opfld1 1 0]}
-display_length 2
-format none
-label 1
-max_length 4
-next_focus op1
-tip 00499_TIP_OPFIELD
}
GuidoComboBox opfld2 {
-exclusive false
-value_in ""
-action focusGained {[add_field_list $opfld2 2 0]}
-display_length 2
-format none
-label 2
-max_length 4
-next_focus op2
-tip 00499_TIP_OPFIELD
}
GuidoComboBox opfld3 {
-exclusive false
-action focusGained {[add_field_list $opfld3 3 0]}
-display_length 2
-format none
-label 3
-max_length 4
-next_focus op3
-tip 00499_TIP_OPFIELD
}
GuidoComboBox opfld4 {
-exclusive false
-action focusGained {[add_field_list $opfld4 4 0]}
-display_length 2
-format none
-label 4
-max_length 4
-next_focus op4
-tip 00499_TIP_OPFIELD
}
GuidoComboBox opfld5 {
-exclusive false
-action focusGained {[add_field_list $opfld5 5 0]}
-display_length 2
-format none
-label 5
-max_length 4
-next_focus op5
-tip 00499_TIP_OPFIELD
}
GuidoComboBox opfld6 {
-exclusive false
-action focusGained {[add_field_list $opfld6 6 0]}
-display_length 2
-format none
-label 6
-max_length 4
-next_focus op6
-tip 00499_TIP_OPFIELD
}
GuidoComboBox opfld7 {
-exclusive false
-action focusGained {[add_field_list $opfld7 7 0]}
-display_length 2
-format none
-label 7
-max_length 4
-next_focus op7
-tip 00499_TIP_OPFIELD
}
GuidoComboBox opfld8 {
-exclusive false
-action focusGained {[add_field_list $opfld8 8 0]}
-display_length 2
-format none
-label 8
-max_length 4
-next_focus op8
-tip 00499_TIP_OPFIELD
}
GuidoComboBox opfld9 {
-exclusive false
-action focusGained {[add_field_list $opfld9 9 0]}
-display_length 2
-format none
-label 9
-max_length 4
-next_focus op9
-tip 00499_TIP_OPFIELD
}
GuidoComboBox opfld10 {
-exclusive false
-action focusGained {[add_field_list $opfld10 10 0]}
-display_length 2
-format none
-label 10
-max_length 4
-next_focus op10
-tip 00499_TIP_OPFIELD
}
}
GuidoFiller frm00499_40 {
-width 1
}
GuidoPanel frm00499_36 {
-layout BoxLayout Y_AXIS
GuidoLabel frm00499_3 {
-label Operator
}
GuidoComboBox op1 {
-exclusive false
-value_in ""
-action focusGained {[add_field_list $op1 1 1]}
-default =
-display_length 1
-format none
-max_length 1
-next_focus value1
-tip 00499_TIP_OP
}
GuidoComboBox op2 {
-exclusive false
-value_in ""
-action focusGained {[add_field_list $op2 2 1]}
-default =
-display_length 1
-format none
-max_length 1
-next_focus value2
-tip 00499_TIP_OP
}
GuidoComboBox op3 {
-exclusive false
-value_in ""
-action focusGained {[add_field_list $op3 3 1]}
-default =
-display_length 1
-format none
-max_length 1
-next_focus value3
-tip 00499_TIP_OP
}
GuidoComboBox op4 {
-exclusive false
-value_in ""
-action focusGained {[add_field_list $op4 4 1]}
-default =
-display_length 1
-format none
-max_length 1
-next_focus value4
-tip 00499_TIP_OP
}
GuidoComboBox op5 {
-exclusive false
-value_in ""
-action focusGained {[add_field_list $op5 5 1]}
-default =
-display_length 1
-format none
-max_length 1
-next_focus value5
-tip 00499_TIP_OP
}
GuidoComboBox op6 {
-exclusive false
-value_in ""
-action focusGained {[add_field_list $op6 6 1]}
-default =
-display_length 1
-format none
-max_length 1
-next_focus value6
-tip 00499_TIP_OP
}
GuidoComboBox op7 {
-exclusive false
-value_in ""
-action focusGained {[add_field_list $op7 7 1]}
-default =
-display_length 1
-format none
-max_length 1
-next_focus value7
-tip 00499_TIP_OP
}
GuidoComboBox op8 {
-exclusive false
-value_in ""
-action focusGained {[add_field_list $op8 8 1]}
-default =
-display_length 1
-format none
-max_length 1
-next_focus value8
-tip 00499_TIP_OP
}
GuidoComboBox op9 {
-exclusive false
-value_in ""
-action focusGained {[add_field_list $op9 9 1]}
-default =
-display_length 1
-format none
-max_length 1
-next_focus value9
-tip 00499_TIP_OP
}
GuidoComboBox op10 {
-exclusive false
-value_in ""
-action focusGained {[add_field_list $op10 10 1]}
-default =
-display_length 1
-format none
-max_length 1
-next_focus value10
-tip 00499_TIP_OP
}
}
GuidoFiller frm00499_41 {
-width 1
}
GuidoPanel frm00499_37 {
-layout BoxLayout Y_AXIS
GuidoLabel frm00499_4 {
-label Value
}
GuidoField value1 {
-display_length 32
-format none
-max_length 32
-next_focus opfld2
-tip 00499_TIP_VALUE
-translate none
}
GuidoField value2 {
-display_length 32
-format none
-max_length 32
-next_focus opfld3
-tip 00499_TIP_VALUE
-translate none
}
GuidoField value3 {
-display_length 32
-format none
-max_length 32
-next_focus opfld4
-tip 00499_TIP_VALUE
-translate none
}
GuidoField value4 {
-display_length 32
-format none
-max_length 32
-next_focus opfld5
-tip 00499_TIP_VALUE
-translate none
}
GuidoField value5 {
-display_length 32
-format none
-max_length 32
-next_focus opfld6
-tip 00499_TIP_VALUE
-translate none
}
GuidoField value6 {
-display_length 32
-format none
-max_length 32
-next_focus opfld7
-tip 00499_TIP_VALUE
-translate none
}
GuidoField value7 {
-display_length 32
-format none
-max_length 32
-next_focus opfld8
-tip 00499_TIP_VALUE
-translate none
}
GuidoField value8 {
-display_length 32
-format none
-max_length 32
-next_focus opfld9
-tip 00499_TIP_VALUE
-translate none
}
GuidoField value9 {
-display_length 32
-format none
-max_length 32
-next_focus opfld10
-tip 00499_TIP_VALUE
-translate none
}
GuidoField value10 {
-display_length 32
-format none
-max_length 32
-tip 00499_TIP_VALUE
-translate none
}
}
}
$frm00499 legacyProcessValues false
}
