home *** CD-ROM | disk | FTP | other *** search
/ What PC? 1997 February / WPCFEB97.ISO / multi / times / data / tools.dir / 00019.ls < prev    next >
Encoding:
Text File  |  1996-08-12  |  724 b   |  18 lines
  1. on mouseDown
  2.   global whLett
  3.   set mv to the mouseV
  4.   set spv to the locV of sprite the clickOn
  5.   set unitHeight to 22
  6.   set offsetV to 0
  7.   set whLett to (mv - spv - (offsetV - unitHeight)) / unitHeight
  8.   set the locH of sprite 8 to the locH of sprite the clickOn
  9.   set the locV of sprite 8 to the locV of sprite the clickOn + (unitHeight * (whLett - 1))
  10.   set the width of sprite 8 to the width of sprite the clickOn
  11.   set the height of sprite 8 to unitHeight - 2
  12.   set scrollNum to value(item 2 of line whLett of field 15)
  13.   set the foreColor of field "list1" to 255
  14.   set the foreColor of line scrollNum of field "list1" to 3
  15.   put EMPTY before line scrollNum of field "list1"
  16.   set the text of field "result" to " "
  17. end
  18.