GuidoForm form {
-default_buttons
-label "Validation report"
-tip "Enter the filename to output a validation report"
-layout CentreLineLayout
GuidoFileBrowserField report_file {
-default "valid.not"
-display_length 16
-file_mask reports
-format none
-null false
-label "Report file"
-max_length 252
-tip 00872_TIP_1
-translate none
}
}
set return_code [$form interact]
if {$return_code == "apply"} {
GuidoApp srreportapp "SOLIDS REPAIR REPORT"
$srreportapp setParam report_file [$report_file getCurrentValue]
$srreportapp invoke
$srreportapp destroy
}
$form destroy
