home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Media Share 13
/
mediashare_13.zip
/
mediashare_13
/
ZIPPED
/
NETWORK
/
GP25.ZIP
/
YES.PRG
< prev
Wrap
Text File
|
1993-05-05
|
395b
|
19 lines
PARAMETERS cMsg , xParam2 , cRdOptions , cHelpObj
PRIVATE cButtons , lAlertMode
lAlertMode=.F.
DO CASE
CASE TYPE('xParam2')='L'
lAlertMode=xParam2
CASE TYPE('xParam2')='C'
lAlertMode=(LEFT(xParam2 , 1)=='!')
ENDCASE
IF lAlertMode
cButtons='\<OK;\!\?Cancel'
ELSE
cButtons='\!\<OK;\?Cancel'
ENDIF
RETURN msgwin(cMsg , xParam2 , cButtons , cRdOptions , cHelpObj)=='OK'