home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a079 / 1.img / FPDG.LZH / VOL2NUM0 / MISC / WCHILD.PRG < prev    next >
Encoding:
Text File  |  1993-02-01  |  763 b   |  19 lines
  1. *****************************************************************
  2. *     * 09/92               POPUP1.PRG                          *
  3. *****************************************************************
  4. *     * Author's Name: Jeb Long                                 *
  5. *     *                                                         *
  6. *     * Description:                                            *
  7. *     * This program illustrates WCHILD() function              *
  8. *****************************************************************
  9. DEFINE WINDOW W1 FROM 1,1 TO 20,70
  10. DEFINE WINDOW W2 FROM 1,1 TO 5,5  IN W1
  11. DEFINE WINDOW W3 FROM 8,8 TO 15,15 IN W1
  12. ACTIVATE WINDOW ALL
  13. ? WCHILD("W1")
  14. ? WCHILD(0)
  15. ? WCHILD(1)
  16. ? WCHILD()
  17. ACTIVATE WINDOW W1
  18. ? WCHILD()
  19.