home *** CD-ROM | disk | FTP | other *** search
- /**************************************************************************
- * *
- * FLDLIB DEMO 2 *
- * Demonstrates multiple form management *
- * *
- **************************************************************************/
-
- #include <aes.h>
- #include "fldlib.h"
- #include "demo.h"
-
-
- int main(void) {
- short ret;
- OBJECT *form1;
-
- appl_init();
- fld_ability(FLDA_CLOSE|FLDA_ICON);
-
- if (!rsrc_load("DEMO.RSC")) {
- form_alert(1,"[3][ Could not find | DEMO.RSC ][ Exit ]");
- appl_exit();
- return 0;
- }
-
- rsrc_gaddr(R_TREE, FORM1, &form1);
- form1[FM_DL2].ob_state |= DISABLED;
-
- if ( (ret = fld_do(form1, "FLDLIB Demo")) != FLDR_NONE) {
-
- switch (ret) {
- case FM1_EXIT1:
- form_alert(1, "[1][ Exit 1 | selected ][ OK ]");
- break;
- case FM1_EXIT2:
- form_alert(1, "[1][ Exit 2 | selected ][ OK ]");
- break;
- }
- } else {
- form_alert(1, "[1][ Closebox | clicked ][ OK ]");
- }
-
- rsrc_free();
- appl_exit();
-
- return 0;
- }