home *** CD-ROM | disk | FTP | other *** search
/ Flight + Action / FlightAction.img / mrmore / popup.dir / 00006_Script_6 < prev    next >
Text File  |  1995-12-06  |  554b  |  21 lines
  1. -- Dir wechseln
  2.  
  3. on mouseDown
  4.   global goGBTools
  5.   
  6.   set nList = the clickOn -1
  7.   set nListCast = the castNum of sprite nList
  8.   set nTextVPos =  the locV of sprite nList
  9.   set nTextHeight = the textheight of field nListCast
  10.   set n = (the mouseV - nTextVPos) / nTextHeight + 1
  11.   set sDir = line n of the text of field nListCast
  12.   
  13.   if sDir <> "" then
  14.     goGBTools(mChDir, sDir)
  15.     set the text of cast "zielText" = goGBTools(mGetCurPath)
  16.     set the text of cast "Ordner" = goGBTools(mGetDir)
  17.     
  18.     ReadWindow()
  19.   end if
  20.   
  21. end