home *** CD-ROM | disk | FTP | other *** search
/ Flight + Action / FlightAction.img / mrmore / popup.dir / 00009_Script_9 < prev    next >
Text File  |  1995-12-06  |  741b  |  20 lines
  1. -- Extra Ordner-Script
  2.  
  3. on ReadWindow  --  ******************  Zusatzfunc fⁿr Ordner-Fenster
  4.   global goGBTools
  5.   
  6.   set s = "Ziel: " & 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 textSize of field "Ordner" = 12
  16.   repeat while ((the textheight of field "Ordner") * (the number of lines of the text of field "Ordner") ¼
  17.                                 > the height of cast "OrdnerRahmen")
  18.     set the textSize of field "Ordner" = (the textSize of field "Ordner") - 1
  19.   end repeat
  20. end