home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD1.iso / EGS / egssys71.lha / EGSClusterInc.lha / EGSIntui.mod < prev    next >
Encoding:
Text File  |  1994-12-13  |  1.4 KB  |  59 lines
  1. |##########|
  2. |#MAGIC   #|DBGFFCFC
  3. |#PROJECT #|""
  4. |#PATHS   #|"EGSProject"
  5. |#FLAGS   #|xx---x--x----xx-----------------
  6. |#USERSW  #|--------------------------------
  7. |#USERMASK#|--------------------------------
  8. |#SWITCHES#|x--x-x----------
  9. |##########|
  10. $$ConstChk:=FALSE
  11. IMPLEMENTATION MODULE EGSIntui;
  12.  
  13. FROM Exec       IMPORT OpenLibrary,CloseLibrary;
  14. FROM Exceptions IMPORT CouldNotOpenLibrary;
  15.  
  16. PROCEDURE CreateMenuL(items : LIST OF MenuItemPtr):MenuPtr;
  17. VAR i : INTEGER;
  18.     m : MenuPtr;
  19. BEGIN
  20.   m:=CreateMenu();
  21.   FOR i:=0 TO items'MAX DO
  22.     AddToMenu(m,items[i]);
  23.   END;
  24.   RETURN m;
  25. END CreateMenuL;
  26.  
  27. PROCEDURE CreateItemL(    font    : EFontPtr;
  28.                       REF name    : STRING;
  29.                           id      : LONGINT;
  30.                           key     : CHAR;
  31.                           toggle  : BOOLEAN;
  32.                           exclude : LONGSET;
  33.                           sub     : LIST OF MenuItemPtr):MenuItemPtr;
  34. VAR i  : INTEGER;
  35.     it : MenuItemPtr;
  36. BEGIN
  37.   it:=CreateItem(font,name.data'PTR,id,key,toggle);
  38.   it.mutualExclude:=exclude;
  39.   IF exclude#LONGSET:{} THEN
  40.     EXCL(it.flags,menuToggle);
  41.   END;
  42.   FOR i:=0 TO sub'MAX DO
  43.     IF sub[i]=NIL THEN
  44.       AddToItem(it,CreateItem(font,NIL,0,&0,FALSE));
  45.     ELSE
  46.       AddToItem(it,sub[i]);
  47.     END;
  48.   END;
  49.   RETURN it;
  50. END CreateItemL;
  51.  
  52. BEGIN
  53.   EGSIntuiBase:=OpenLibrary("egsintui.library",4);
  54.   ASSERT(EGSIntuiBase#NIL,CouldNotOpenLibrary);
  55. CLOSE
  56.   CloseLibrary(EGSIntuiBase);
  57. END EGSIntui.
  58.  
  59.