GuidoForm sampleForm {
-default_buttons
-label "New Style Application Sample"
-layout BoxLayout Y_AXIS
-tip "FRM_SAMPLE_SCRIPT_1"
GuidoField field1 {
-display_length 10
-font_style bold
-format none
-label "Field 1"
-max_length 16
-translate upper
}
GuidoField field2 {
-display_length 10
-font_style bold
-format none
-label "Field 2"
-max_length 16
-translate upper
}
}
$sampleForm setField field1 "default 1"
$sampleForm setField field2 "default 2"
set formStatus [$sampleForm interact]
GuidoApp appHandle "SAMPLE NEWAPP"
$appHandle setParam param1 [$sampleForm getField field1]
$appHandle setParam param2 [$sampleForm getField field2]
$sampleForm destroy
set appStatus [$appHandle invoke]
puts $appStatus
$appHandle destroy
