home *** CD-ROM | disk | FTP | other *** search
/ Fuji Wa La Te I Ka - Hyakunin Isshu Karuta / KARUTA.bin / wins / karu_gin.dir / 00386_Script_386 < prev    next >
Text File  |  1995-11-13  |  536b  |  24 lines
  1.  
  2. on forgetAllWindow
  3.   put count(the windowList) into wCnt
  4.   if wCnt = 0 then exit
  5.   repeat with wNum = wCnt down to 1
  6.     forget window wNum
  7.   end repeat
  8. end
  9.  
  10. on invisiblewindow 
  11.   put count(the windowList) into wCnt
  12.   if wCnt = 0 then exit
  13.   repeat with wNum = wCnt down to 1
  14.     set the visible of window wNum = false
  15.   end repeat
  16. end
  17. on visiblewindow 
  18.   put count(the windowList) into wCnt
  19.   if wCnt = 0 then exit
  20.   repeat with wNum = wCnt down to 1
  21.     set the visible of window wNum = TRUE
  22.   end repeat
  23. end
  24.