proc validate_object {object} {
set buffer [GuidoExecServer Validateobject [subst {object = [$object getCurrentValue]}]]
}
GuidoForm frm60001_1 {
-default_buttons
-label "Close Open Sides for Trisolations"
-layout CentreLineLayout
-tip 60001_TIP_0
GuidoLabel layer {
-label "Layer name"
}
GuidoLabel swa_name {
-display_length 16
-font_style bold
}
GuidoField object {
-display_length 16
-format integer
-high_bound 32000
-label "Object number"
-low_bound 1
-action valueChanged {[validate_object $object]}
-max_length 5
-null false
-translate none
-tip 60001_TIP_1
}
GuidoField trisolation_range {
-display_length 16
-format range
-label "Trisolation range"
-max_length 32
-null true
-translate none
-tip 60001_TIP_2
}
}
