home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaMiscModsCD3.iso / _PROGRAMME / PLAYER / GUI / EasyPlayer.lha / EYP / Source / modsrc / reqs.e < prev    next >
Encoding:
Text File  |  1999-09-23  |  498 b   |  21 lines
  1. OPT MODULE
  2. OPT EXPORT
  3.  
  4. MODULE 'intuition/intuition'
  5.  
  6. PROC easyreq(textformat,args=NIL,title=NIL,gadformat=NIL)
  7. DEF num
  8.     IF title=NIL THEN title:='EYP message'
  9.     IF gadformat=NIL THEN gadformat:='Ok'
  10.     num:=EasyRequestArgs(NIL,[SIZEOF easystruct,0,title,textformat,gadformat],NIL,args)
  11. ENDPROC num
  12.  
  13. PROC errorreq(textformat,titleformat,args=NIL)
  14. DEF s,e
  15.     e:='EYP error, '
  16.     s:=String(StrLen(e)+StrLen(titleformat)+2)
  17.     StringF(s,'\s\s',e,titleformat)
  18.     StrAdd(s,'()')
  19.     easyreq(textformat,args,s)
  20. ENDPROC
  21.