home *** CD-ROM | disk | FTP | other *** search
/ What PC? 1997 February / WPCFEB97.ISO / multi / times / data / nmm.dir / 00004.ls < prev    next >
Encoding:
Text File  |  1996-08-12  |  832 b   |  31 lines
  1. on exitFrame
  2.   global toolWindow
  3.   set h1 to the stageLeft + 20
  4.   set h2 to the stageLeft + 20 + 448
  5.   set v1 to the stageTop + 20
  6.   set v2 to the stageTop + 20 + 356
  7.   if objectp(toolWindow) then
  8.     set keyRect to rect(h1, v1, h2, v2)
  9.     set the windowType of toolWindow to 2
  10.     set the rect of toolWindow to keyRect
  11.     set the visible of toolWindow to 1
  12.     moveToFront(toolWindow)
  13.     tell toolWindow
  14.       setPuppets(1, 20, 0)
  15.       go("help")
  16.     end tell
  17.   else
  18.     set toolWindow to window "tools"
  19.     set the windowType of toolWindow to 2
  20.     set the fileName of toolWindow to "tool.dir"
  21.     set keyRect to rect(h1, v1, h2, v2)
  22.     set the rect of toolWindow to keyRect
  23.     set the visible of toolWindow to 1
  24.     open(toolWindow)
  25.     tell toolWindow
  26.       setPuppets(1, 20, 0)
  27.       go("help")
  28.     end tell
  29.   end if
  30. end
  31.