0 r R , R U = § GUDF:a5wcb_createBackupForImportedComponent meta:certificate ~~~~ R ¥ DIR ¤ ¤ A Y U ¤ wp Pÿÿÿÿ/ a5wcb_createBackupForImportedComponent L% -U LIMITATIONS:H > U . ::alpha5::thread.current().ui_disable b U U B U 2 eval_valid("wp.componentfilename") = .f. À U U r U fn C5 U wp.componentfilename fn ! U fn = "" J U U B U 2 file.filename_parse(fn,"e") <> ".a5wcmp" ¨ U U Z M U backupfiles !+ a5wcb_showComponentBackups(fn,.t.) C+ U backupfiles <> "" < U U U html C# U !
You are about to edit a component that was imported into this project. Would you like to create an `-initial backup-` so that you can use the `-Restore backup-` command at some later stage to revert to the current version of this component?
html @ U % ' a5wcb_HTMLHelpTemplate(1,html) html U ' dlg_title C U ( dlg_body C U ) dlg_event C/ U * "Backup" dlg_title ¼ U + Ÿ {removecomments} {can_exit=no} {removeleadingspaces} {html=100,7html};;; {justify=right} <&Yes - Create an initial backup!yes> <10&No!no> dlg_body e U 3 G if a_dlg_button = "yes" then flagOK = .t. end if dlg_event ) U 9 flagOK ! .f. L= U : 1 ui_dlg_box(dlg_title,dlg_body,dlg_event) J U <