home *** CD-ROM | disk | FTP | other *** search
/ Media Share 13 / mediashare_13.zip / mediashare_13 / ZIPPED / NETWORK / GP25.ZIP / YES.PRG < prev   
Text File  |  1993-05-05  |  395b  |  19 lines
  1. PARAMETERS cMsg , xParam2 , cRdOptions , cHelpObj
  2.  
  3. PRIVATE cButtons , lAlertMode
  4.  
  5. lAlertMode=.F.
  6. DO CASE
  7.     CASE TYPE('xParam2')='L'
  8.         lAlertMode=xParam2
  9.     CASE TYPE('xParam2')='C'
  10.         lAlertMode=(LEFT(xParam2 , 1)=='!')
  11. ENDCASE
  12.  
  13. IF lAlertMode
  14.     cButtons='\<OK;\!\?Cancel'
  15. ELSE
  16.     cButtons='\!\<OK;\?Cancel'
  17. ENDIF
  18. RETURN msgwin(cMsg , xParam2 , cButtons , cRdOptions , cHelpObj)=='OK'
  19.