home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a079 / 1.img / FPDG.LZH / VOL2NUM0 / KEYBOARD / KEYBOARD.PRG < prev   
Encoding:
Text File  |  1993-02-01  |  2.3 KB  |  62 lines
  1. *****************************************************************
  2. *     * 09/92               Keyboard.prg                        *
  3. *****************************************************************
  4. *     * Author's Name: Jeb Long                                 *
  5. *     *                                                         *
  6. *     * Description:                                            *
  7. *     *  This program demonstrates the use of the KEYBOARD                        *
  8. *     *  function. A prompt is issued requesting that a file                *
  9. *     *  name be entered. If you press the Enter key, a popup            *
  10. *     *  of file names appears. When you select a file, the                 *
  11. *     *  file name is stuffed into the typeahead buffer, which        *
  12. *     *  is read into the input field by the READ command.      *
  13. *****************************************************************
  14. * 
  15. SET TALK OFF
  16. CLEAR
  17. DEFINE POPUP GetFile FROM 6,30 PROMPT FILES LIKE *.DBF
  18. ON READERR ?? ""   && Suppress read error intercept
  19. ON SELECTION POPUP GetFile DO action
  20. dbffile='                                '
  21. testfile= ' '
  22. @ 5,1 SAY "Enter a database file name (or press Enter)" ;
  23.        GET dbffile valid testx(dbffile)
  24. READ
  25. WAIT "The filename is: " + dbffile WINDOW NOWAIT
  26. RETURN
  27. ***********************************************************
  28. *
  29. *  Function:  Testx(filename)
  30. *  Description: UDF activates directory popup to select 
  31. *               the file name if the user did not enter a 
  32. *               file name.
  33. *  Input:  File name character string
  34. *  Output: Logical true value if file name was entered.
  35. *          Otherwise, a logical false is returned.
  36. *
  37. FUNCTION Testx
  38. PARAMETER filename
  39. IF .NOT. EMPTY(filename)
  40.     RETURN .T.         && User entered file name, return valid
  41. ENDIF
  42. ACTIVATE POPUP GetFile
  43. TestFile = PROMPT()     && Fetch selected file name
  44. DEACTIVATE POPUP
  45. IF TestFile = ' '
  46.     ?? chr(7)          && File name was not selected...  
  47. ELSE
  48.     KEYBOARD TestFile  && Stuff file name into typeahead
  49.                         && buffer with file name that will
  50.                         && be read by the GET command
  51. ENDIF
  52. RETURN .F.
  53. ***********************************************************
  54. *
  55. *   POPUP menu action procedure
  56. *
  57. PROCEDURE action
  58. testfile = PROMPT()   && Fetch the file name
  59. DEACTIVATE POPUP
  60. RETURN
  61.  
  62.