Pro One: Netcracker Netscape Navigator/ProOne: Netcracker Netscape Navigator.iso/pc/nc/bm/bm_mail1.geo/00017.ls

Text File | 1997-03-19 | 1.5 KB | 72 lines

on ClickScroll spriteNum, castDown, macroName
  set flag to 0
  set SaveCast to the castNum of sprite spriteNum
  set flag to swapScroll(spriteNum, SaveCast, castDown)
  repeat while the stillDown
    set flag to swapScroll(spriteNum, SaveCast, castDown)
    if flag = 1 then
      do(macroName)
    end if
  end repeat
end

on swapScroll spriteNum, SaveCast, castDown
  if rollOver(spriteNum) then
    set the castNum of sprite spriteNum to the number of cast castDown
    updateStage()
    return 1
  else
    set the castNum of sprite spriteNum to the number of cast SaveCast
    updateStage()
    return 0
  end if
end

on switchButt spriteNum, castDown, macroName
  set flag to 0
  set SaveCast to the castNum of sprite spriteNum
  set flag to swapCast(spriteNum, SaveCast, castDown)
  repeat while the stillDown
    set flag to swapCast(spriteNum, SaveCast, castDown)
  end repeat
  if flag = 1 then
    do(macroName)
  end if
end

on swapCast spriteNum, SaveCast, castDown
  if rollOver(spriteNum) then
    set the castNum of sprite spriteNum to the number of cast castDown
    updateStage()
    return 1
  else
    set the castNum of sprite spriteNum to the number of cast SaveCast
    updateStage()
    return 0
  end if
end

on handleExit
  tell the stage
    CloseBookMarkWindows()
  end tell
end

on handleUP
  Set_StepMeter("decrease")
end

on handleDown
  Set_StepMeter("increase")
end

on Set_ScreenSubject theNum
  global ScreenSubject
  set ScreenSubject to theNum
end

on Get_ScreenSubject
  global ScreenSubject
  return ScreenSubject
end