home *** CD-ROM | disk | FTP | other *** search
/ What PC? 1997 February / WPCFEB97.ISO / multi / times / data / choice.dir / 00033.ls < prev    next >
Encoding:
Text File  |  1996-08-27  |  913 b   |  25 lines
  1. on exitFrame
  2.   global articleWindow
  3.   if objectp(articleWindow) then
  4.     forget(articleWindow)
  5.   end if
  6.   set horzOrigin to the stageLeft + 200000
  7.   set vertOrigin to the stageTop + 200000
  8.   set articleWindowRect to rect(horzOrigin, vertOrigin, horzOrigin + 448, vertOrigin + 356)
  9.   set articleWindow to window "articles"
  10.   set the windowType of articleWindow to 49
  11.   set the rect of articleWindow to articleWindowRect
  12.   set the fileName of articleWindow to "article.dir"
  13.   set the title of articleWindow to " "
  14.   set the titleVisible of articleWindow to 0
  15.   set the visible of articleWindow to 0
  16.   tell articleWindow
  17.     go("preload")
  18.   end tell
  19.   set the visible of articleWindow to 0
  20.   set horzOrigin to the stageLeft + 20
  21.   set vertOrigin to the stageTop + 50
  22.   set articleWindowRect to rect(horzOrigin, vertOrigin, horzOrigin + 448, vertOrigin + 356)
  23.   set the rect of articleWindow to articleWindowRect
  24. end
  25.