Shocking The Web CD-ROM/SHOCK_CD.ISO/pc/tutorial/ch05_des/slider/slider.dcr/00005.ls

Text File | 1996-11-26 | 546 b | 20 lines

global gConstrainSprite, gSliderSprite, gLineTop

on initSlider
  set gSliderSprite to 2
  set gConstrainSprite to 1
  set the constraint of sprite gSliderSprite to gConstrainSprite
  puppetSprite(gSliderSprite, 1)
  set gLineTop to the top of sprite gConstrainSprite
end

on dragMe
  repeat while the stillDown
    set the locV of sprite gSliderSprite to the mouseV
    set newValue to the locV of sprite gSliderSprite - gLineTop
    set the text of field "Tempo" to string(newValue)
    puppetTempo(newValue)
    updateStage()
  end repeat
end