home *** CD-ROM | disk | FTP | other *** search
/ BCI NET 2 / BCI NET 2.iso / archives / programming / e / amigae30a_fr.lha / AmigaE30f / Sources / Intui / AppMenuItem.e next >
Encoding:
Text File  |  1994-12-02  |  617 b   |  24 lines
  1. /* AppMenuItem.e, en provenance des RKRM libraries 3ème edition. */
  2.  
  3. OPT OSVERSION=37
  4.  
  5. MODULE 'wb'
  6.  
  7. DEF myport,appitem,appmsg
  8.  
  9. PROC main()
  10.   IF workbenchbase:=OpenLibrary('workbench.library',37)
  11.     IF myport:=CreateMsgPort()
  12.       IF appitem:=AddAppMenuItemA(0,0,'DisplayBeep()',myport,NIL)
  13.         WriteF('Allez, regardez ce qu\ail y a des le menu Tools ...\n')
  14.         WaitPort(myport)
  15.         DisplayBeep(NIL)
  16.         WriteF('Hé, vous l\aavez trouvé!\n')
  17.         RemoveAppMenuItem(appitem)
  18.         WHILE appmsg:=GetMsg(myport) DO ReplyMsg(appmsg)
  19.       ENDIF
  20.       DeleteMsgPort(myport)
  21.     ENDIF
  22.   ENDIF
  23. ENDPROC
  24.