home *** CD-ROM | disk | FTP | other *** search
/ Global Amiga Experience / globalamigaexperience.iso / compressed / development / m2mdemopakdisk3.dms / m2mdemopakdisk3.adf / Text / Intuition.zoo / MenuUtils.def < prev    next >
Text File  |  1989-10-09  |  2KB  |  62 lines
  1. DEFINITION MODULE MenuUtils;
  2.  
  3. (*
  4.  
  5. Das Module MenuUtils stellt Proceduren zur Initialisierung  der Menu und
  6. MenuItem Records zur Verfügung.
  7.     
  8. Intuition Report Version 1.3    10-Apr-89
  9.  
  10. *)
  11.     
  12.  
  13. FROM Intuition IMPORT  
  14.        MenuPtr, MenuItemPtr, IntuiTextPtr;
  15.     
  16.  
  17.     
  18. PROCEDURE InitMenu (prevMenu: MenuPtr; Width,Height: INTEGER;
  19.                        VAR text: ARRAY OF CHAR): MenuPtr;
  20. PROCEDURE InitFirstItem (menu: MenuPtr; Width,Height: INTEGER;
  21.                         ch: CHAR; VAR text: ARRAY OF CHAR):MenuItemPtr;
  22. PROCEDURE InitFirstSubItem (itemPtr: MenuItemPtr; Width,Height: INTEGER;
  23.                               ch: CHAR; VAR text: ARRAY OF CHAR):MenuItemPtr;
  24. PROCEDURE AddItem (itemPtr: MenuItemPtr; ch: CHAR; 
  25.                               VAR text: ARRAY OF CHAR): MenuItemPtr;
  26. PROCEDURE DisposeMenu (menu: MenuPtr);
  27. PROCEDURE DisposeItem (item: MenuItemPtr);
  28.                              
  29.  
  30. END MenuUtils.
  31.    
  32.  
  33.     
  34.  
  35. »InitMenu«  initialisiert  ein Menu-Record. »prevMenu«  ist  der Zeiger zum   
  36. vorigen MenuRecord oder NIL, wenn dieses der erste Record in der Liste ist.
  37. »Width«  und  »Height«  bestimmt  die  Breite und Hoehe des Menu-Feldes. In
  38. »text«  wird  der Name des Menus übergeben. Der Resultatwert ist der Zeiger
  39. zum initialisierten Record.  
  40.  
  41. »InitFirstItem« initialisiert den ersten MenuItemRecord einer Liste. »menu« 
  42. ist der Zeiger zum MenuRecord. »Widht« und »Height« bestimmt die Breite und 
  43. Hoehe  des  Select-Feldes. In »ch« wird das Zeichen des ShortCut übergeben. 
  44. »text« enthält den TextString  des  Select-Feldes. Der Resultatwert ist ein 
  45. Zeiger auf den initialisierten Record. 
  46.  
  47. »InitFirstSubItem« initialisiert den ersten MenuSubItem-Record einer Liste. 
  48. Die Parameter  entsprechen denen von »InitFirstItem«. Statt des Zeigers zum 
  49. Menu wird in »itemPtr« der Zeiger zum Item-Record übergeben.
  50.  
  51. »AddItem« fügt einen MenuItemRecord  oder  MenuSubItemRecord  an  das  Ende
  52. einer Liste an. »itemPtr« ist der letzte MenuItemRecord der Liste. »ch« ist
  53. das Zeichen des ShortCut. »text« ist der Text im MenuItem. Wenn  kein  Text
  54. eingesetzt werden soll, wird in »text[0]« = 0C übergeben.
  55.  
  56. »DisposeMenu«  löscht  eine  Menu-Record-Liste.  Die   MenuItem-Listen  der 
  57. gelöschten Menus und die IntuiText-Records werden auch von dieser Procedure 
  58. gelöscht. 
  59.                              
  60. »DisposeItem« löscht eine  MenuItem-Record-Liste. Die IntuiText-Records der 
  61. MenuItems werden von dieser Procedure auch gelöscht. 
  62.