What PC? 1997 February/WPCFEB97.ISO/multi/times/data/shared.dir/00992.ls

Text File | 1996-08-11 | 5.9 KB | 232 lines

on clearAllWindows
  global toolWindow, articleWindow, ImageWindow
  if objectp(ImageWindow) then
    set the visible of ImageWindow to 0
  end if
  if objectp(articleWindow) then
    set the visible of articleWindow to 0
  end if
  if objectp(toolWindow) then
    set the visible of toolWindow to 0
  end if
end

on doInstall
  global articleWindow, ImageWindow
  if objectp(articleWindow) = 1 then
  else
  end if
  if objectp(ImageWindow) = 1 then
  else
  end if
end

on doArtMenu
  global articleWindow
  if objectp(articleWindow) then
    set the visible of articleWindow to 1
    moveToFront(articleWindow)
  end if
end

on doImgMenu
  global ImageWindow
  if objectp(ImageWindow) then
    set the visible of ImageWindow to 1
    moveToFront(ImageWindow)
  end if
end

on winArticle
  global articleWindow, theArticle
  tell the stage
  end tell
  if objectp(articleWindow) then
    set the visible of articleWindow to 1
    tell articleWindow
      go(1)
    end tell
  else
    cursor(4)
    set horzOrigin to the stageLeft + 20
    set vertOrigin to the stageTop + 50
    set articleWindowRect to rect(horzOrigin, vertOrigin, horzOrigin + 448, vertOrigin + 356)
    set articleWindow to window "articles"
    set the windowType of articleWindow to 49
    set the rect of articleWindow to articleWindowRect
    set the fileName of articleWindow to "article.dir"
    set the title of articleWindow to " "
    set the titleVisible of articleWindow to 0
    open(articleWindow)
    cursor(-1)
  end if
  moveToFront(articleWindow)
end

on winImage
  global theImage
  if the name of cast the castNum of sprite the clickOn <> "black.pct" then
    set theImage to the name of cast the castNum of sprite the clickOn
    if char 10 of item 1 of theImage = "p" then
      winPhoto()
    else
      winGraphic()
    end if
  else
    if char 10 of item 1 of theImage = "p" then
      winPhoto()
    else
      winGraphic()
    end if
  end if
  createLocationPhoto()
end

on winPhoto
  global ImageWindow, theImage, whWindow
  tell the stage
  end tell
  if objectp(ImageWindow) then
    set photoRect to rect(26, 40, 474, 396)
    if whWindow <> "small" then
      set the rect of ImageWindow to photoRect
    end if
    set the visible of ImageWindow to 1
    tell ImageWindow
      repeat with n = 30 to 44
        set the castNum of sprite n to cast "blank"
      end repeat
      setPuppets(1, 48, 0)
      go(1)
      updateStage()
    end tell
  else
    cursor(4)
    set ImageWindow to window "photos"
    set the windowType of ImageWindow to 49
    set the fileName of ImageWindow to "image.dir"
    set photoRect to rect(26, 40, 474, 396)
    set the rect of ImageWindow to photoRect
    set the title of ImageWindow to " "
    set the titleVisible of ImageWindow to 0
    open(ImageWindow)
    tell ImageWindow
      setPuppets(1, 48, 0)
      go(1)
    end tell
    cursor(-1)
  end if
  set whWindow to "small"
  moveToFront(ImageWindow)
end

on winGraphic
  global theArticle, ImageWindow, theImage, menuShowHide, whWindow
  if objectp(ImageWindow) then
    set graphicRect to rect(10, 35, 618, 485)
    if whWindow <> "large" then
      set the rect of ImageWindow to graphicRect
    end if
    set the visible of ImageWindow to 1
    tell ImageWindow
      repeat with n = 30 to 37
        set the castNum of sprite n to cast "blank"
      end repeat
      setPuppets(1, 48, 0)
      go("graphic")
      updateStage()
    end tell
  else
    set ImageWindow to window "photos"
    set the windowType of ImageWindow to 49
    set the fileName of ImageWindow to "image.dir"
    set graphicRect to rect(10, 35, 618, 485)
    set the rect of ImageWindow to graphicRect
    set the title of ImageWindow to " "
    set the titleVisible of ImageWindow to 0
    open(ImageWindow)
    tell ImageWindow
      setPuppets(1, 48, 0)
      go("graphic")
    end tell
  end if
  set whWindow to "large"
  moveToFront(ImageWindow)
end

on notepadOpen
  global toolWindow
  if objectp(toolWindow) then
    set noteRect to rect(26, 40, 266, 396)
    set the rect of toolWindow to noteRect
    set the windowType of toolWindow to 49
    set the visible of toolWindow to 1
  else
    set toolWindow to window "tools"
    set the windowType of toolWindow to 49
    set the fileName of toolWindow to "tool.dir"
    set noteRect to rect(26, 40, 266, 396)
    set the rect of toolWindow to noteRect
    set the title of toolWindow to " "
    set the titleVisible of toolWindow to 0
    open(toolWindow)
  end if
  tell toolWindow
    setPuppets(1, 20, 0)
    go("notepad")
  end tell
  moveToFront(toolWindow)
end

on keywordOpen
  global toolWindow
  if objectp(toolWindow) then
    set keyRect to rect(26, 40, 474, 396)
    set the rect of toolWindow to keyRect
    set the windowType of toolWindow to 49
    set the visible of toolWindow to 1
  else
    set toolWindow to window "tools"
    set the windowType of toolWindow to 49
    set the fileName of toolWindow to "tool.dir"
    set keyRect to rect(26, 40, 474, 396)
    set the rect of toolWindow to keyRect
    set the title of toolWindow to " "
    set the titleVisible of toolWindow to 0
    open(toolWindow)
  end if
  tell toolWindow
    setPuppets(1, 20, 0)
    go("keyword")
    setPuppets(7, 8, 1)
    moveIndicator2()
  end tell
  moveToFront(toolWindow)
end

on helpOpen
  global toolWindow
  if objectp(toolWindow) then
    set helpRect to rect(26, 40, 474, 396)
    set the rect of toolWindow to helpRect
    set the windowType of toolWindow to 49
    set the visible of toolWindow to 1
  else
    cursor(4)
    set toolWindow to window "tools"
    set the windowType of toolWindow to 49
    set the fileName of toolWindow to "tool.dir"
    set helpRect to rect(26, 40, 474, 396)
    set the rect of toolWindow to helpRect
    set the title of toolWindow to " "
    set the titleVisible of toolWindow to 0
    open(toolWindow)
    cursor(-1)
  end if
  tell toolWindow
    setPuppets(1, 20, 0)
    go("help")
  end tell
  moveToFront(toolWindow)
end