home *** CD-ROM | disk | FTP | other *** search
/ Dream 48 / Amiga_Dream_48.iso / Atari / c / libs / xaes_new.lzh / TEST.C < prev    next >
C/C++ Source or Header  |  1994-12-06  |  15KB  |  505 lines
  1. /*
  2.  *    XAES 1.00
  3.  *    Test Program
  4.  *
  5.  *    Copyright (c) 1994, Bitgate Software.  All Rights Reserved.
  6.  *    Program by Ken Hollis
  7.  *
  8.  *    Shows all functions of XAES off.  This program will most likely
  9.  *    be larger after a few changes are made to XAES.
  10.  *
  11.  *    Although it takes quite a few parameters to create an actual
  12.  *    window, it is relatively bug-free.  Read the docs (RTFM) for more
  13.  *    information.  (Or hit HELP if you're using Pure C.)
  14.  */
  15.  
  16. #include <stddef.h>
  17. #include <stdio.h>
  18.  
  19. #include "test.h"
  20. #include "xaes.h"
  21. #include "nkcc.h"
  22.  
  23. int testkind, windsize;
  24. BOOL backgroundable, sizeable, customwin;
  25.  
  26. OBJECT *test, *test2, *test3, *test4, *icontree, *test5, *test6,
  27.        *test7, *test8, *test9, *test10;
  28.  
  29. #define    infokind    (NAME|MOVER|CLOSER)
  30. #define    allkind        0xFFFF
  31. #define nokind        0x0000
  32. #define    stdkind        (NAME|MOVER|CLOSER)
  33.  
  34. LOCAL int hormax, vermax, horstep, verstep;
  35.  
  36. void DoSliders(WINDOW *win)
  37. {
  38.     WCreateObject(WC_SLIDER, win->tree, 0, hormax, horstep, SLIDER_HOR, SLRT1, SLIDE1, TRACK1, SLLT1);
  39.     WCreateObject(WC_SLIDER, win->tree, 100, 999, 5, SLIDER_HOR, HMAXINC, HMAXSLID, HMAXTRAK, HMAXDEC);
  40.     WCreateObject(WC_SLIDER, win->tree, 25, 999, 5, SLIDER_HOR, VMAXINC, VMAXSLID, VMAXTRAK, VMAXDEC);
  41.     WCreateObject(WC_SLIDER, win->tree, 5, 99, 5, SLIDER_HOR, HSTEPINC, HSTEPSLD, HSTEPTRK, HSTEPDEC);
  42.     WCreateObject(WC_SLIDER, win->tree, 5, 99, 5, SLIDER_HOR, VSTEPINC, VSTEPSLD, VSTEPTRK, VSTEPDEC);
  43.     WCreateObject(WC_SLIDER, win->tree, 0, vermax, verstep, SLIDER_VER, SLDN1, SLIDE5, TRACK5, SLUP1);
  44. }
  45.  
  46. int Dlg1Dispatcher(WINDOW *win, int msg_buf[8])
  47. {
  48.     UNUSED(win);
  49.     UNUSED(msg_buf);
  50.  
  51.     return FALSE;
  52. }
  53.  
  54. int Dlg2Dispatcher(WINDOW *win, int msg_buf[8])
  55. {
  56.     switch(*msg_buf) {
  57.         case WM_COPIED:
  58.             if (win)
  59.                 DoSliders(win);
  60.             break;
  61.  
  62.         case WM_SLIDER:
  63.             switch(msg_buf[3]) {
  64.                 case HMAXDEC:
  65.                 case HMAXTRAK:
  66.                 case HMAXSLID:
  67.                 case HMAXINC:
  68.                     if (msg_buf[4] == 0)
  69.                         msg_buf[4] = 1;
  70.  
  71.                     if (((msg_buf[4]!=0) && (msg_buf[5]!=0)) &&
  72.                         (msg_buf[4]!=msg_buf[5])) {
  73.                         hormax = msg_buf[4];
  74.                         WCreateObject(WC_SLIDER, win->tree, 0, hormax, horstep, SLIDER_HOR, SLRT1, SLIDE1, TRACK1, SLLT1);
  75.                         WUpdateWindowDlgLevel(win, desk.g_x, desk.g_y, desk.g_w, desk.g_h, TRACK1, 1);
  76.                     }
  77.                     break;
  78.  
  79.                 case VMAXDEC:
  80.                 case VMAXTRAK:
  81.                 case VMAXSLID:
  82.                 case VMAXINC:
  83.                     if (msg_buf[4] == 0)
  84.                         msg_buf[4] = 1;
  85.  
  86.                     if (((msg_buf[4]!=0) && (msg_buf[5]!=0)) &&
  87.                         (msg_buf[4]!=msg_buf[5])) {
  88.                         vermax = msg_buf[4];
  89.                         WCreateObject(WC_SLIDER, win->tree, 0, vermax, verstep, SLIDER_VER, SLDN1, SLIDE5, TRACK5, SLUP1);
  90.                         WUpdateWindowDlgLevel(win, desk.g_x, desk.g_y, desk.g_w, desk.g_h, TRACK5, 1);
  91.                     }
  92.                     break;
  93.  
  94.                 case HSTEPDEC:
  95.                 case HSTEPTRK:
  96.                 case HSTEPSLD:
  97.                 case HSTEPINC:
  98.                     if (msg_buf[4] == 0)
  99.                         msg_buf[4] = 1;
  100.  
  101.                     if (((msg_buf[4]!=0) && (msg_buf[5]!=0)) &&
  102.                         (msg_buf[4]!=msg_buf[5])) {
  103.                         horstep = msg_buf[4];
  104.                         WCreateObject(WC_SLIDER, win->tree, 0, hormax, horstep, SLIDER_HOR, SLRT1, SLIDE1, TRACK1, SLLT1);
  105.                     }
  106.                     break;
  107.  
  108.                 case VSTEPDEC:
  109.                 case VSTEPTRK:
  110.                 case VSTEPSLD:
  111.                 case VSTEPINC:
  112.                     if (msg_buf[4] == 0)
  113.                         msg_buf[4] = 1;
  114.  
  115.                     if (((msg_buf[4]!=0) && (msg_buf[5]!=0)) &&
  116.                         (msg_buf[4]!=msg_buf[5])) {
  117.                         verstep = msg_buf[4];
  118.                         WCreateObject(WC_SLIDER, win->tree, 0, vermax, verstep, SLIDER_VER, SLDN1, SLIDE5, TRACK5, SLUP1);
  119.                     }
  120.                     break;
  121.             }
  122.     }
  123.  
  124.     return FALSE;
  125. }
  126.  
  127. int Dlg4Dispatcher(WINDOW *win, int msg_buf[8])
  128. {
  129.     UNUSED(win);
  130.     UNUSED(msg_buf);
  131.  
  132.     return FALSE;
  133. }
  134.  
  135. void CheckItems(void)
  136. {
  137.     menu_icheck(test3, NAMESET, (testkind & NAME) ? TRUE : FALSE);
  138.     menu_icheck(test3, CLOSSET, (testkind & CLOSER) ? TRUE : FALSE);
  139.     menu_icheck(test3, FULLSET, (testkind & FULLER) ? TRUE : FALSE);
  140.     menu_icheck(test3, MOVESET, (testkind & MOVER) ? TRUE : FALSE);
  141.     menu_icheck(test3, INFOSET, (testkind & INFO) ? TRUE : FALSE);
  142.     menu_icheck(test3, SIZESET, (testkind & SIZER) ? TRUE : FALSE);
  143.     menu_icheck(test3, UPARSET, (testkind & UPARROW) ? TRUE : FALSE);
  144.     menu_icheck(test3, DNARSET, (testkind & DNARROW) ? TRUE : FALSE);
  145.     menu_icheck(test3, VSLIDSET, (testkind & VSLIDE) ? TRUE : FALSE);
  146.     menu_icheck(test3, LFARSET, (testkind & LFARROW) ? TRUE : FALSE);
  147.     menu_icheck(test3, RTARSET, (testkind & RTARROW) ? TRUE : FALSE);
  148.     menu_icheck(test3, HSLIDSET, (testkind & HSLIDE) ? TRUE : FALSE);
  149.     menu_icheck(test3, CASCSET, (testkind & CASCADE) ? TRUE : FALSE);
  150.     menu_icheck(test3, MENUSET, (testkind & MENUWORK) ? TRUE : FALSE);
  151.     menu_icheck(test3, OPTISET, (testkind & OPTIONS) ? TRUE : FALSE);
  152.     menu_icheck(test3, SIZEXAES, (sizeable) ? TRUE : FALSE);
  153.     menu_icheck(test3, BKGNXAES, (backgroundable) ? TRUE : FALSE);
  154.     menu_icheck(test3, LWINXAES, (windsize == WC_WINDOW) ? TRUE : FALSE);
  155.     menu_icheck(test3, SWINXAES, (windsize == WC_SWINDOW) ? TRUE : FALSE);
  156.     menu_icheck(test3, CUSTXAES, (customwin) ? TRUE : FALSE);
  157.  
  158.     menu_ienable(test3, CASCSET, (customwin) ? TRUE : FALSE);
  159.     menu_ienable(test3, MENUSET, (customwin) ? TRUE : FALSE);
  160.     menu_ienable(test3, OPTISET, (customwin) ? TRUE : FALSE);
  161.     menu_ienable(test3, SIZEXAES, (customwin) ? TRUE : FALSE);
  162.     menu_ienable(test3, LWINXAES, (customwin) ? TRUE : FALSE);
  163.     menu_ienable(test3, SWINXAES, (customwin) ? TRUE : FALSE);
  164. }
  165.  
  166. int EtcDispatcher(int msg_buf[8])
  167. {
  168.     switch (*msg_buf) {
  169.         case MN_SELECTED:
  170.             menu_tnormal(test3, msg_buf[3], TRUE);
  171.  
  172.             switch(msg_buf[4]) {
  173.                 case ABTXAES:
  174.                     WCreateObject(WC_WINDOW, W_OPEN|W_DIALOG|W_UNUNTOPPABLE|W_UNSIZABLE,
  175.                                 ((customwin) ? W_CUSTOMWINDOW : 0), (NAME|CLOSER|MOVER|SIZER),
  176.                                 "Test dialog 1", "      Test info", test, NULL, 
  177.                                 -1, -1, -1, -1, 0, icontree, 1, "Dialog 1", NULL);
  178.                     break;
  179.  
  180.                 case WIN1XAES:
  181.                     WCreateObject(WC_WINDOW, W_OPEN|W_DIALOG|((backgroundable) ? W_BEVENT : 0)|((!(sizeable)) ? W_UNSIZABLE : 0),
  182.                                 ((customwin) ? W_CUSTOMWINDOW : 0), testkind,
  183.                                 "Test dialog 1", "      Test info", test, NULL, 
  184.                                 -1, -1, -1, -1, 0, icontree, 1, "Dialog 1", NULL);
  185.                     break;
  186.  
  187.                 case WIN2XAES:
  188.                     {
  189.                         WINDOW *win;
  190.  
  191.                         win = WCreateObject(WC_WINDOW, W_OPEN|W_DIALOG|((backgroundable) ? W_BEVENT : 0)|((!(sizeable)) ? W_UNSIZABLE : 0),
  192.                                     ((customwin) ? W_CUSTOMWINDOW : 0), testkind,
  193.                                     "Test dialog 2", "      Test info", test2, Dlg2Dispatcher, 
  194.                                     -1, -1, -1, -1, 12, icontree, 1, "Dialog 2", NULL);
  195.                     }
  196.                     break;
  197.  
  198.                 case WIN3XAES:
  199.                     WCreateObject(WC_WINDOW, W_OPEN|W_DIALOG|((backgroundable) ? W_BEVENT : 0)|((!(sizeable)) ? W_UNSIZABLE : 0),
  200.                                 ((customwin) ? W_CUSTOMWINDOW : 0), testkind,
  201.                                 "Test dialog", "      Test info", test5, NULL, 
  202.                                 -1, -1, -1, -1, 0, icontree, 1, "Dialog", NULL);
  203.                     break;
  204.  
  205.                 case WIN4XAES:
  206.                     WCreateObject(WC_WINDOW, W_OPEN|W_DIALOG|((backgroundable) ? W_BEVENT : 0)|((!(sizeable)) ? W_UNSIZABLE : 0),
  207.                                 ((customwin) ? W_CUSTOMWINDOW : 0), testkind,
  208.                                 "Test dialog", "      Test info", test6, NULL, 
  209.                                 -1, -1, -1, -1, 0, icontree, 1, "Dialog", NULL);
  210.                     break;
  211.  
  212.                 case WIN5XAES:
  213.                     WCreateObject(WC_WINDOW, W_OPEN|W_DIALOG|((backgroundable) ? W_BEVENT : 0)|((!(sizeable)) ? W_UNSIZABLE : 0),
  214.                                 ((customwin) ? W_CUSTOMWINDOW : 0), testkind,
  215.                                 "Test dialog", "      Test info", test7, NULL, 
  216.                                 -1, -1, -1, -1, 0, icontree, 1, "Dialog", NULL);
  217.                     break;
  218.  
  219.                 case WIN6XAES:
  220.                     WCreateObject(WC_WINDOW, W_OPEN|W_DIALOG|((backgroundable) ? W_BEVENT : 0)|((!(sizeable)) ? W_UNSIZABLE : 0),
  221.                                 ((customwin) ? W_CUSTOMWINDOW : 0), testkind,
  222.                                 "Test dialog", "      Test info", test8, NULL, 
  223.                                 -1, -1, -1, -1, 0, icontree, 1, "Dialog", NULL);
  224.                     break;
  225.  
  226.                 case WIN7XAES:
  227.                     WCreateObject(WC_WINDOW, W_OPEN|W_DIALOG|((backgroundable) ? W_BEVENT : 0)|((!(sizeable)) ? W_UNSIZABLE : 0),
  228.                                 ((customwin) ? W_CUSTOMWINDOW : 0), testkind,
  229.                                 "Test dialog", "      Test info", test9, NULL, 
  230.                                 -1, -1, -1, -1, 0, icontree, 1, "Dialog", NULL);
  231.                     break;
  232.  
  233.                 case WIN8XAES:
  234.                     WCreateObject(WC_WINDOW, W_OPEN|W_DIALOG|((backgroundable) ? W_BEVENT : 0)|((!(sizeable)) ? W_UNSIZABLE : 0),
  235.                                 ((customwin) ? W_CUSTOMWINDOW : 0), testkind,
  236.                                 "Test dialog", "      Test info", test10, NULL, 
  237.                                 -1, -1, -1, -1, 0, icontree, 1, "Dialog", NULL);
  238.                     break;
  239.  
  240.                 case CHGSET:
  241.                     WCreateObject(WC_WINDOW, W_OPEN|W_DIALOG|W_BEVENT|W_UNSIZABLE,
  242.                                 W_CUSTOMWINDOW, stdkind, "GUI_DEFS Settings", "      Test info", test4, NULL,
  243.                                 -1, -1, -1, -1, 0, icontree, 1, "Settings", NULL);
  244.                     break;
  245.  
  246.                 case QUITXAES:
  247.                     WDie(0);
  248.                     break;
  249.  
  250.                 case NAMESET:
  251.                     testkind = (testkind & NAME) ? testkind & ~NAME : testkind | NAME;
  252.                     break;
  253.  
  254.                 case CLOSSET:
  255.                     testkind = (testkind & CLOSER) ? testkind & ~CLOSER : testkind | CLOSER;
  256.                     break;
  257.  
  258.                 case FULLSET:
  259.                     testkind = (testkind & FULLER) ? testkind & ~FULLER : testkind | FULLER;
  260.                     break;
  261.  
  262.                 case MOVESET:
  263.                     testkind = (testkind & MOVER) ? testkind & ~MOVER : testkind | MOVER;
  264.                     break;
  265.  
  266.                 case INFOSET:
  267.                     testkind = (testkind & INFO) ? testkind & ~INFO : testkind | INFO;
  268.                     break;
  269.  
  270.                 case SIZESET:
  271.                     testkind = (testkind & SIZER) ? testkind & ~SIZER : testkind | SIZER;
  272.                     break;
  273.  
  274.                 case UPARSET:
  275.                     testkind = (testkind & UPARROW) ? testkind & ~UPARROW : testkind | UPARROW;
  276.                     break;
  277.  
  278.                 case DNARSET:
  279.                     testkind = (testkind & DNARROW) ? testkind & ~DNARROW : testkind | DNARROW;
  280.                     break;
  281.  
  282.                 case VSLIDSET:
  283.                     testkind = (testkind & VSLIDE) ? testkind & ~VSLIDE : testkind | VSLIDE;
  284.                     break;
  285.  
  286.                 case LFARSET:
  287.                     testkind = (testkind & LFARROW) ? testkind & ~LFARROW : testkind | LFARROW;
  288.                     break;
  289.  
  290.                 case RTARSET:
  291.                     testkind = (testkind & RTARROW) ? testkind & ~RTARROW : testkind | RTARROW;
  292.                     break;
  293.  
  294.                 case HSLIDSET:
  295.                     testkind = (testkind & HSLIDE) ? testkind & ~HSLIDE : testkind | HSLIDE;
  296.                     break;
  297.  
  298.                 case CASCSET:
  299.                     testkind = (testkind & CASCADE) ? testkind & ~CASCADE : testkind | CASCADE;
  300.                     break;
  301.  
  302.                 case MENUSET:
  303.                     testkind = (testkind & MENUWORK) ? testkind & ~MENUWORK : testkind | MENUWORK;
  304.                     break;
  305.  
  306.                 case OPTISET:
  307.                     testkind = (testkind & OPTIONS) ? testkind & ~OPTIONS : testkind | OPTIONS;
  308.                     break;
  309.  
  310.                 case SIZEXAES:
  311.                     sizeable = (sizeable) ? FALSE : TRUE;
  312.                     break;
  313.  
  314.                 case BKGNXAES:
  315.                     backgroundable = (backgroundable) ? FALSE : TRUE;
  316.                     break;
  317.  
  318.                 case LWINXAES:
  319.                     windsize = WC_WINDOW;
  320.                     break;
  321.  
  322.                 case SWINXAES:
  323.                     windsize = WC_SWINDOW;
  324.                     break;
  325.  
  326.                 case EALLXAES:
  327.                     testkind = allkind;
  328.                     break;
  329.  
  330.                 case DALLXAES:
  331.                     testkind = nokind;
  332.                     break;
  333.  
  334.                 case STANXAES:
  335.                     testkind = stdkind;
  336.                     break;
  337.  
  338.                 case CUSTXAES:
  339.                     customwin = (customwin) ? FALSE : TRUE;
  340.                     break;
  341.             }
  342.  
  343.             CheckItems();
  344.             break;
  345.  
  346.         case WM_CLOSEALL:
  347.             if (msg_buf[3] == K_ASK)
  348.                 if ((form_alert(1, "[3][Close all windows| |Are you sure?][ Okay | Cancel ]")) == 1)
  349.                     return FALSE;
  350.                 else
  351.                     return TRUE;
  352.  
  353.             if (msg_buf[3] == K_NO_STOP)
  354.                 return TRUE;
  355.  
  356.             break;
  357.  
  358.         case WM_PROGEND:
  359. /*            WDie(0); */
  360.             break;
  361.     }
  362.  
  363.     return FALSE;
  364. }
  365.  
  366. int KeyDispatcher(int key)
  367. {
  368.     if (key & NKF_CTRL)
  369.         switch (key & 0xff) {
  370.             case 'I':
  371.             case 'i':
  372.                 WCreateObject(WC_WINDOW, W_OPEN|W_DIALOG|W_UNUNTOPPABLE|W_UNSIZABLE,
  373.                             ((customwin) ? W_CUSTOMWINDOW : 0), (NAME|CLOSER|MOVER|SIZER),
  374.                             "Test dialog 1", "      Test info", test, NULL, 
  375.                             -1, -1, -1, -1, 0, icontree, 1, "Dialog 1", NULL);
  376.                 break;
  377.  
  378.             case 'Q':
  379.             case 'q':
  380.                 if (_app)
  381.                     if ((form_alert(1, "[3][Doing this will quit|the demo.][ Okay | Cancel ]")) == 1)
  382.                         WDie(0);
  383.                     else
  384.                         return TRUE;
  385.  
  386.                 return TRUE;
  387.  
  388.             case 'U':
  389.             case 'u':
  390.                 WCloseWindow(NULL, WC_OBJECTABLE, K_ASK);
  391.                 break;
  392.  
  393.             case 'W':
  394.             case 'w':
  395.                 WTopWindow(NULL);
  396.                 break;
  397.  
  398.             case 'A':
  399.             case 'a':
  400.                 testkind = allkind;
  401.                 CheckItems();
  402.                 break;
  403.  
  404.             case 'D':
  405.             case 'd':
  406.                 testkind = nokind;
  407.                 CheckItems();
  408.                 break;
  409.         }
  410.  
  411.     if (key & NKF_FUNC)
  412.         switch (key & 0xff) {
  413.             case NK_F1:
  414.                 WCreateObject(WC_WINDOW, W_OPEN|W_DIALOG|((backgroundable) ? W_BEVENT : 0)|((!(sizeable)) ? W_UNSIZABLE : 0),
  415.                             ((customwin) ? W_CUSTOMWINDOW : 0), testkind,
  416.                             "Test dialog 1", "      Test info", test, NULL, 
  417.                             -1, -1, -1, -1, 0, icontree, 1, "Dialog 1", NULL);
  418.                 break;
  419.  
  420.             case NK_F2:
  421.                 {
  422.                     WINDOW *win;
  423.  
  424.                     win = WCreateObject(WC_WINDOW, W_OPEN|W_DIALOG|((backgroundable) ? W_BEVENT : 0)|((!(sizeable)) ? W_UNSIZABLE : 0),
  425.                                 ((customwin) ? W_CUSTOMWINDOW : 0), testkind,
  426.                                 "Test dialog 2", "      Test info", test2, Dlg2Dispatcher, 
  427.                                 -1, -1, -1, -1, 12, icontree, 1, "Dialog 2", NULL);
  428.                 }
  429.                 break;
  430.         }
  431.  
  432.     return FALSE;
  433. }
  434.  
  435. void UnfixObjects()
  436. {
  437.     unfix_object(test3);
  438.     unfix_object(test);
  439.     unfix_object(test2);
  440.     unfix_object(test4);
  441. }
  442.  
  443. int main(void)
  444. {
  445.     OBJECT *TT;
  446.  
  447.     if (rsrc_load(".\\TEST.RSC")) {
  448.         WBoot();
  449.  
  450.         graf_mouse(ARROW, 0L);
  451.  
  452.         rsrc_gaddr(R_TREE, 0, &test3);
  453.         rsrc_gaddr(R_TREE, 1, &test);
  454.         rsrc_gaddr(R_TREE, 2, &test2);
  455.         rsrc_gaddr(R_TREE, 3, &test4);
  456.         rsrc_gaddr(R_TREE, 4, &icontree);
  457.         rsrc_gaddr(R_TREE, 5, &test5);
  458.         rsrc_gaddr(R_TREE, 6, &test6);
  459.         rsrc_gaddr(R_TREE, 7, &test7);
  460.         rsrc_gaddr(R_TREE, 8, &test8);
  461.         rsrc_gaddr(R_TREE, 9, &test9);
  462.         rsrc_gaddr(R_TREE, 10, &test10);
  463.  
  464.         testkind = NAME|MOVER|SIZER;
  465.         backgroundable = TRUE;
  466.         sizeable = FALSE;
  467.         windsize = WC_WINDOW;
  468.         customwin = TRUE;
  469.  
  470.         fix_object(test3, FALSE, FALSE);
  471.  
  472.         test2[SLIDE1].ob_x++;    test2[SLIDE1].ob_y++;
  473.         test2[SLIDE5].ob_x++;    test2[SLIDE5].ob_y++;
  474.         test2[HMAXSLID].ob_x++;    test2[HMAXSLID].ob_y++;
  475.         test2[VMAXSLID].ob_x++;    test2[VMAXSLID].ob_y++;
  476.         test2[HSTEPSLD].ob_x++;    test2[HSTEPSLD].ob_y++;
  477.         test2[VSTEPSLD].ob_x++;    test2[VSTEPSLD].ob_y++;
  478.  
  479.         WInit(0, EtcDispatcher, KeyDispatcher, "  XAES Demo 0.01",
  480.               "XAES", FALSE);
  481.  
  482.         WSetCallback(XC_INITIALIZE, CheckItems);
  483.         WSetCallback(XC_DEINITIALIZE, UnfixObjects);
  484.  
  485.         menu_bar(test3, TRUE);
  486.  
  487.         XCallInitializeCallback;
  488.         XCallStartupCallback;
  489.  
  490.         hormax = 100;
  491.         vermax = 25;
  492.         horstep = 5;
  493.         verstep = 5;
  494.  
  495.         WDoDial();
  496.         menu_bar(test3, FALSE);
  497.  
  498.         XCallDeinitializeCallback;
  499.  
  500.         WTerm(FALSE);
  501.     } else
  502.         form_alert(1, "[3][Sorry, could not locate|the resource file!][ Okay ]");
  503.  
  504.     return FALSE;
  505. }