home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 8 Other / 08-Other.zip / VOL8N11.ZIP / FUNCTEST.PRG < prev    next >
Text File  |  1989-02-20  |  1KB  |  38 lines
  1. * functest.prg RHS 2/20/89
  2. * This program demonstrates the use of a dBASEIV User-Defined Function
  3. * which you can use to create windowed error messages.
  4. * 
  5. * The function, wmsg() requires two parameters.
  6. * The first parameter is the message you wish to print.
  7. * The second parameter is used to prompt the user to press any key or a 
  8. * particular key. The function will return the keystroke pressed.
  9. *
  10. * For instance,
  11. *    choice = wmsg("Ready to re-index database.","Proceed? (Y/N)")
  12. *    if upper(choice) = 'Y'
  13. *        && reindex database
  14. *    endif
  15. *
  16. *
  17. * The only requirement for using the function, is that you must define the
  18. * msg_win window somewhere in your program code.
  19.  
  20.  
  21.  
  22. Define Window msg_win from 12,5 to 15,75 double color gr+/r
  23.  
  24. retval = wmsg("This error message appears in a window...","...Press any key")
  25. ?"Return value was ",retval
  26. return
  27.  
  28.  
  29.  
  30. Function wmsg
  31.     Parameters msg,prompt
  32.     Activate Window msg_win            && activate the window
  33.     @ 0,0 Say msg                && print main message
  34.     Wait prompt To retval            && print prompt, wait for key 
  35.     Deactivate Window msg_win            && deactivate window
  36.     Return retval                && return key
  37.     
  38.