home *** CD-ROM | disk | FTP | other *** search
/ Enigma Amiga Life 113 / EnigmaAmiga113CD.iso / software / sviluppo / easygui_os12 / source / hybrid / ports.e < prev    next >
Encoding:
Text File  |  2000-06-11  |  800 b   |  26 lines
  1. /* RST: hybrid "any kick" replacement for exec library
  2.    CreateMsgPort() and DeleteMsgPort()
  3.  
  4.    Please do not redistribute modified versions of this code. If you have
  5.    any ideas how to make things better contact me at metamonk@yahoo.com.
  6.  
  7.    Also, please do not distribute further 'hybrid/#?' modules since there
  8.    is already a large amount of additional stuff in work. Contact me...
  9.  
  10.    This code is Copyright (c) 2000, Ralf 'hippie2000' Steines, and
  11.    inherits the legal state from the original EasyGUI disctribution. */
  12.  
  13. OPT MODULE
  14. OPT EXPORT
  15.  
  16. MODULE 'amigalib/ports'
  17.  
  18. PROC createMsgPort()
  19.   DEF port
  20.   IF KickVersion(36) THEN port:=CreateMsgPort() ELSE port:=createPort(0,0)
  21. ENDPROC port
  22.  
  23. PROC deleteMsgPort(port)
  24.   IF KickVersion(36) THEN DeleteMsgPort(port) ELSE deletePort(port)
  25. ENDPROC
  26.