home *** CD-ROM | disk | FTP | other *** search
/ What PC? 1997 February / WPCFEB97.ISO / multi / times / data / choice.dir / 00028.ls < prev    next >
Encoding:
Text File  |  1996-08-27  |  1.4 KB  |  44 lines
  1. on exitFrame
  2.   global articleWindow, ImageWindow, toolWindow
  3.   if objectp(ImageWindow) then
  4.     forget(ImageWindow)
  5.   end if
  6.   set horzOrigin to the stageLeft + 200000
  7.   set vertOrigin to the stageTop + 200000
  8.   set photoWindowRect to rect(horzOrigin, vertOrigin, horzOrigin + 448, vertOrigin + 356)
  9.   set ImageWindow to window "photos"
  10.   set the windowType of ImageWindow to 49
  11.   set the fileName of ImageWindow to "image.dir"
  12.   set the rect of ImageWindow to photoWindowRect
  13.   set the title of ImageWindow to " "
  14.   set the titleVisible of ImageWindow to 0
  15.   set the visible of ImageWindow to 0
  16.   tell ImageWindow
  17.     setPuppets(1, 48, 0)
  18.     go("preLoad")
  19.   end tell
  20.   set the visible of ImageWindow to 0
  21.   set photoRect to rect(26, 40, 474, 396)
  22.   set the rect of ImageWindow to photoRect
  23.   if objectp(toolWindow) then
  24.     forget(toolWindow)
  25.   end if
  26.   set horzOrigin to the stageLeft + 200000
  27.   set vertOrigin to the stageTop + 200000
  28.   set helpRect to rect(horzOrigin, vertOrigin, horzOrigin + 448, vertOrigin + 356)
  29.   set toolWindow to window "tools"
  30.   set the windowType of toolWindow to 49
  31.   set the fileName of toolWindow to "tool.dir"
  32.   set the rect of toolWindow to helpRect
  33.   set the title of toolWindow to " "
  34.   set the titleVisible of toolWindow to 0
  35.   set the visible of toolWindow to 0
  36.   tell toolWindow
  37.     go("help")
  38.   end tell
  39.   set the visible of toolWindow to 0
  40.   set toolRect to rect(26, 40, 474, 396)
  41.   set the rect of toolWindow to toolRect
  42.   cursor(-1)
  43. end
  44.