home *** CD-ROM | disk | FTP | other *** search
/ PC go! 1996 July / Image.iso / mrmore / mrmore.dir / 00656.ls < prev    next >
Encoding:
Text File  |  1996-04-11  |  406 b   |  14 lines
  1. on ReadWindow
  2.   global goGBTools, gnFirstSprite
  3.   set s to goGBTools(mGetCurPath)
  4.   if alltrim(the text of cast "NewDir") <> EMPTY then
  5.     if length(s) > 9 then
  6.       set s to s & "\"
  7.     end if
  8.     set s to s & alltrim(the text of cast "NewDir")
  9.   end if
  10.   set the text of cast "zielText" to s
  11.   set the text of cast "Ordner" to goGBTools(mGetDir)
  12.   set the puppet of sprite (gnFirstSprite + 1) to 0
  13. end
  14.