GuidoScript scripts/strfileutilities.tcl
global dloc
global fldf
GuidoForm frm00514 {
-action initial { [ getDescriptionFieldNames $dloc $fldf]}
-default_buttons
-label "Field amalgamation"
-layout BoxLayout Y_AXIS
-tip "00514_TIP_001"
-action final {[destroyDescriptionFieldsMap]}
GuidoPanel frm00514_50 {
-layout BoxLayout X_AXIS
GuidoPanel frm00514_50 {
-border etched true
-label "Define control file"
-layout CentreLineLayout VERTICAL LEFT
GuidoFileBrowserField loc {
-display_length 16
-format none
-file_mask *.str
-label Location
-max_length 252
-next_focus outloc
-tip "00514_TIP_002"
-extension false
-null false
}
}
GuidoPanel frm00514_54 {
-border etched true
-label "Define output file"
-layout CentreLineLayout VERTICAL LEFT
GuidoFileBrowserField outloc {
-display_length 16
-format none
-file_mask *.str
-label Location
-max_length 252
-tip "00514_TIP_004"
-file_access write
-extension false
-null false
}
}
}
GuidoFiller filler {
-height 0.05
}
GuidoFiller filler {
-height 0.05
}
GuidoPanel frm00514_57 {
-layout CentreLineLayout Vertical Left
GuidoField smidgn {
-display_length 8
-format double
-label "Max separation distance"
-max_length 8
-null false
-tip "00514_TIP_006"
}
}
GuidoFiller filler {
-height 0.05
}
GuidoFiller filler {
-height 0.05
}
GuidoScrollPane field_amal {
-width 43
-height 12
GuidoTable field_amal_table {
-instances 1 1 50
-interactive true
-display_length 30
GuidoFileBrowserField dloc {
-display_length 23
-format none
-label "Location"
-max_length 252
-tip "00514_TIP_007"
-file_mask *.str
-extension false
-null false
-action focusLost { [ getDescriptionFieldNames $dloc $fldf]}
}
GuidoComboBox fldf {
-label "Field from"
-display_length 4
-format none
-max_length 4
-translate none
-exclusive false
-tip 00514_TIP_023
-null false
-value_in Z
}
GuidoComboBox oper {
-display_length 2
-font_style bold
-format none
-max_length 1
-label "Operator"
-tip "00514_TIP_023"
-null false
-exclusive true
-value_in + - / * =
}
GuidoComboBox fldt {
-label "Field to"
-display_length 2
-format none
-max_length 4
-translate none
-null false
-exclusive true
-tip "00514_TIP_023"
-value_in 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
}
}
}
}
