home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 5 / Apprentice-Release5.iso / Source Code / C / Applications / Moscow ML 1.31 / source code / mosml / e_mac / os_mac_cmdmenu.c < prev    next >
Encoding:
C/C++ Source or Header  |  1995-09-05  |  1.4 KB  |  76 lines  |  [TEXT/CWIE]
  1. /* os_mac_cmdmenu.c
  2.  * 27Dec94  e  adapted from os_mac.c
  3.  * Macintosh specific stuff (for THINK C 7 or CodeWarrior 4 compiler).
  4.  * Copyright © 1992-1994 Douglas H. Currie, Jr.
  5.  */
  6.  
  7. #ifdef THINK_C
  8. #include <MacHeaders>
  9. #else
  10. #ifdef __MWERKS__
  11. #else
  12. "Unknown compiler!"
  13. #endif
  14. #endif
  15.  
  16. #include "os_mac.h"
  17.  
  18. #if 0
  19. void eDoDialog(int sel)
  20. {
  21.     switch(sel) {
  22.       case 0:    /* about */
  23.       { DialogPtr dlg;
  24.         short i;
  25.         /* do About */
  26.         /* SetDAFont(helvetica); */
  27.         dlg=GetNewDialog(about_dlogID,NULL,(WindowPtr)(-1L));
  28.         ModalDialog((ModalFilterProcPtr)NULL,&i);
  29.         DisposDialog(dlg);
  30.         /* SetDAFont(systemFont); */
  31.         break;
  32.       }
  33.       /*   1       interrupt -- handled by menu handler */
  34.       case 2:    /* help */
  35.         SysBeep(3);
  36.         break;
  37.       /*   3                 -- is a dimmed seperator line */
  38.       case 4:    /* load */
  39.         SysBeep(3);
  40.         break;
  41.       case 5:    /* dump */
  42.         SysBeep(3);
  43.         break;
  44.       default:
  45.         SysBeep(3);
  46.         break;
  47.     }
  48. }
  49. #endif
  50.  
  51. void eDoCommand(short theItem)
  52. {
  53.       switch (theItem)
  54.       { case iInclude:
  55.           do_include ();
  56.           break;
  57.         case iCompile:
  58.           do_compile ();
  59.           break;
  60.         case iLoad:
  61.           do_load ();
  62.           break;
  63.         case iLoadObject:
  64.           do_load_object ();
  65.           break;
  66.         case iGC:
  67.           do_gc ();
  68.           break;
  69.         default:
  70.           do_help();
  71.           break;
  72.       }
  73. }
  74.  
  75. /* end of os_mac_cmdmenu.c */
  76.