What PC? 1997 February/WPCFEB97.ISO/multi/times/data/tools.dir/00020.ls

Text File | 1996-08-12 | 863 b | 23 lines

on mouseUp
  global whLett
  set mv to the mouseV
  set spv to the locV of sprite the clickOn
  set unitHeight to 22
  set offsetV to 0
  set whLett to (mv - spv - (offsetV - unitHeight)) / unitHeight
  set the locH of sprite 8 to the locH of sprite the clickOn
  set the locV of sprite 8 to the locV of sprite the clickOn + (unitHeight * (whLett - 1))
  set the width of sprite 8 to the width of sprite the clickOn
  set the height of sprite 8 to unitHeight - 2
  set whLett to whLett + 13
  set scrollNum to value(item 2 of line whLett of field "forceScroll")
  set the foreColor of field "list1" to 255
  set the foreColor of line scrollNum of field "list1" to 3
  if scrollNum >= 229 then
    put EMPTY before line scrollNum + 1 of field "list1"
  else
    put EMPTY before line scrollNum of field "list1"
  end if
  set the text of field "result" to " "
end