home *** CD-ROM | disk | FTP | other *** search
/ PC go! 1996 July / Image.iso / mrmore / mrmore.dir / 00653.ls < prev    next >
Encoding:
Text File  |  1996-04-11  |  517 b   |  16 lines
  1. on mouseDown
  2.   global goGBTools
  3.   set nList to the clickOn - 1
  4.   set nListCast to the castNum of sprite nList
  5.   set nTextVPos to the locV of sprite nList
  6.   set nTextHeight to the textHeight of field nListCast
  7.   set n to ((the mouseV - nTextVPos) / nTextHeight) + 1
  8.   set sDir to line n of the text of field nListCast
  9.   if sDir <> EMPTY then
  10.     goGBTools(mChDir, sDir)
  11.     set the text of cast "zielText" to goGBTools(mGetCurPath)
  12.     set the text of cast "Ordner" to goGBTools(mGetDir)
  13.     ReadWindow()
  14.   end if
  15. end
  16.