home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a079 / 1.img / FPDG.LZH / VOL2NUM0 / MISC / HIDEDEMO.PRG < prev    next >
Encoding:
Text File  |  1993-01-31  |  890 b   |  20 lines
  1. *****************************************************************
  2. *     * 09/92               HIDEDEMO.PRG                        *
  3. *****************************************************************
  4. *     * Author's Name: Jeb Long                                 *
  5. *     *                                                         *
  6. *     * Description:                                            *
  7. *     * This program illustrates the use of HIDE POPUP command  *
  8. *     *                                                         *
  9. *****************************************************************
  10. DEFINE WINDOW FEdit FROM 10,30 TO 40,90 SYSTEM 
  11. DEFINE POPUP Pop1 FROM 10,10 PROMPT FILES LIKE *.TXT ;
  12.      MESSAGE "Choose a file to view"
  13. ON SELECTION POPUP Pop1 DO Action
  14. ACTIVATE POPUP Pop1
  15. PROCEDURE Action
  16.    HIDE POPUP Pop1
  17.    MODI FILE PROMPT() WINDOW FEdit
  18.    RETURN
  19.  
  20.