home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 18 REXX / 18-REXX.zip / rxasyn20.zip / RXMSG.CMD < prev    next >
OS/2 REXX Batch file  |  1994-12-26  |  3KB  |  75 lines
  1. /*=====================================================================*/
  2. /* RXMSG.cmd - Test if RXASYNC.dll message boxes work                  */
  3. /*                                                                     */
  4. /* Note: You will need to use the following OS/2 START command         */
  5. /*                                                                     */
  6. /*       START "RxMsg.Cmd Test" /PGM /PM "cmd.exe" /C RxMsg.Cmd        */
  7. /*                                                                     */
  8. /*=====================================================================*/
  9.  
  10. call on error
  11.  
  12. /*=====================================================================*/
  13. /* setup                                                               */
  14. /*=====================================================================*/
  15.  
  16. call RxFuncAdd 'RxAsyncLoadFuncs', 'RXASYNC', 'RxAsyncLoadFuncs'
  17. call RxAsyncLoadFuncs
  18. Say 'RxAsyncLoadFuncs is complete.'
  19.  
  20. /*=====================================================================*/
  21. /* display pm message boxes                                            */
  22. /*=====================================================================*/
  23.  
  24. rc = RxAsyncMsgBox('Testing 1 2 3','I','I',,,'Information with title. Vanilla returned '||rc )
  25. if rc <> 0
  26.    then say 'RxAsyncMsgBox failed with rc=>'rc'<'
  27.    else say 'RxAsyncMsgBox completed okay.'
  28.  
  29. rc = RxAsyncMsgBox('','Q','Q','Y',,'Continue with no title. Information returned '||rc )
  30. if rc <> 0
  31.    then say 'RxAsyncMsgBox failed with rc=>'rc'<'
  32.    else say 'RxAsyncMsgBox completed okay.'
  33.  
  34. rc = RxAsyncMsgBox('Testing 1 2 3','W','W',,,'Warning with title. Continue returned '||rc )
  35. if rc <> 0
  36.    then say 'RxAsyncMsgBox failed with rc=>'rc'<'
  37.    else say 'RxAsyncMsgBox completed okay.'
  38.  
  39. rc = RxAsyncMsgBox('Testing 1 2 3','S','S',,,'Error with title. Warning returned '||rc )
  40. if rc <> 0
  41.    then say 'RxAsyncMsgBox failed with rc=>'rc'<'
  42.    else say 'RxAsyncMsgBox completed okay.'
  43.  
  44. rc = RxAsyncMsgBox('Testing 1 2 3','W','R',,,'Retry with title. Error returned '||rc )
  45. if rc <> 0
  46.    then say 'RxAsyncMsgBox failed with rc=>'rc'<'
  47.    else say 'RxAsyncMsgBox completed okay.'
  48.  
  49. rc = RxAsyncMsgBox('Testing 1 2 3','S','A',,,'Abort with title. Retry returned '||rc )
  50. if rc <> 0
  51.    then say 'RxAsyncMsgBox failed with rc=>'rc'<'
  52.    else say 'RxAsyncMsgBox completed okay.'
  53.  
  54. rc = RxAsyncMsgBox('Testing 1 2 3','I','I',,,'Information with title. Abort returned '||rc )
  55. if rc <> 0
  56.    then say 'RxAsyncMsgBox failed with rc=>'rc'<'
  57.    else say 'RxAsyncMsgBox completed okay.'
  58.  
  59. /*=====================================================================*/
  60. /* cleanup                                                             */
  61. /*=====================================================================*/
  62.  
  63. call RxAsyncDropFuncs
  64. Say 'RxAsyncDropFuncs is complete.'
  65. exit
  66.  
  67. /*=====================================================================*/
  68. /* just in case                                                        */
  69. /*=====================================================================*/
  70.  
  71. error:
  72.    call RxAsyncDropFuncs
  73.    exit
  74.  
  75.