home *** CD-ROM | disk | FTP | other *** search
/ PC-Online 1996 June / PCOnline_06_1996.iso / mrmore / mrmore.dir / 00656_Script_656 < prev    next >
Text File  |  1996-04-11  |  822b  |  22 lines
  1. -- Extra Ordner-Script
  2.  
  3. on ReadWindow  --  ******************  Zusatzfunc fⁿr Ordner-Fenster
  4.   global goGBTools, gnFirstSprite
  5.   
  6.   set s = goGBTools(mGetCurPath)
  7.   if alltrim(the text of cast "NewDir") <> "" then 
  8.     if length(s) > 9 then set s = s & "\"
  9.     set s = s & alltrim(the text of cast "NewDir")
  10.   end if
  11.   
  12.   set the text of cast "zielText" = s
  13.   set the text of cast "Ordner" = goGBTools(mGetDir)
  14.   
  15.   set the puppet of sprite (gnFirstSprite+1)  = false
  16.   
  17.   --  set the textSize of field "Ordner" = 12
  18.   --  repeat while ((the textheight of field "Ordner") * (the number of lines of the text of field "Ordner") ¼
  19. --                                > the height of cast "OrdnerRahmen")
  20.   --    set the textSize of field "Ordner" = (the textSize of field "Ordner") - 1
  21.   --  end repeat
  22. end