proc setLabel { } {
global agreement
set translated_val [GuidoMessage translate SAVE_FILE_AS_OLD_FORM]
$agreement setCurrentValue $translated_val
}
GuidoForm FileSaveAs {
-default_buttons
-label SAVE_FILE_AS
-layout BoxLayout Y_AXIS
-action initial {[setLabel]}
GuidoScrollPane frm99999_89 {
-height 18
-width 40
GuidoHTMLPane agreement {
}
}
}
set return_code [$FileSaveAs interact]
$FileSaveAs destroy
