home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a079 / 1.img / FPDG.LZH / VOL2NUM0 / MISC / FIG16-7.PRG < prev    next >
Encoding:
Text File  |  1993-01-31  |  996 b   |  21 lines
  1. *****************************************************************
  2. *     * 09/92               FIG16-7.PRG                         *
  3. *****************************************************************
  4. *     * Author's Name: Jeb Long                                 *
  5. *     *                                                         *
  6. *     * Description:                                            *
  7. *     * This program illustrates how to create Popup menus      *
  8. *     *                                                         *
  9. *****************************************************************
  10. CLEAR
  11. DEFINE POPUP POP1 FROM 1,1
  12. DEFINE BAR 1 OF POP1 PROMPT " \<Database"
  13. DEFINE BAR 2 OF POP1 PROMPT " \<Program"
  14. DEFINE BAR 3 OF POP1 PROMPT "\-"         && Separation bar
  15. DEFINE BAR 4 OF POP1 PROMPT " \<Report"
  16. DEFINE BAR 5 OF POP1 PROMPT " \<Label"
  17. DEFINE BAR 6 OF POP1 PROMPT "\-"          && Separation bar
  18. DEFINE BAR 7 OF POP1 PROMPT " \<Application "
  19. ACTIVATE POPUP POP1
  20.  
  21.