home *** CD-ROM | disk | FTP | other *** search
/ Meeting Pearls 3 / Meeting_Pearls_III.iso / Pearls / dev / AmigaE / ArisModules / MsgPort / msgport_test.e < prev    next >
Text File  |  1995-06-21  |  465b  |  14 lines
  1. MODULE '*msgport','rexxsyslib'
  2. PROC main() HANDLE
  3.     DEF portclass:PTR TO msgport,rc,result
  4.     NEW portclass.create('TEST_PORT',0)
  5.     IF ((rexxsysbase:=OpenLibrary('rexxsyslib.library',0))=NIL) THEN Raise ('YO')
  6.     rc,result:=portclass.putrxcmd(FUNC,'REQUEST TITLE="POZDRAV" BODY="Hallo!!!" BUTTON="OK|CANCEL|BO|YO"','GOLDED.1')
  7.     ->StringF(result,'\d',result)
  8.     WriteF('RC=\d,RESULT=\s\n',rc,result)
  9.     END portclass
  10. EXCEPT
  11.     END portclass
  12.     ENDPROC
  13.  
  14.