PC go! 1996 July/Image.iso/mrmore/mrmore.dir/00654.ls

Text File | 1996-04-11 | 535 b | 16 lines

on mouseDown
  global goGBTools
  set nList to the clickOn - 1
  set nBar to the clickOn - 2
  set the puppet of sprite nBar to 1
  set nTextVPos to the locV of sprite nList
  set nTextHeight to the textHeight of field the castNum of sprite nList
  set n to ((the mouseV - nTextVPos) / nTextHeight) + 1
  set sDrive to line n of the text of field the castNum of sprite nList
  if sDrive <> EMPTY then
    set the locV of sprite nBar to ((n - 1) * nTextHeight) + nTextVPos
    goGBTools(mSetDrive, sDrive)
    ReadWindow()
  end if
end