home *** CD-ROM | disk | FTP | other *** search
/ Almathera Ten Pack 4: Demo 1 / almathera_demo1.bin / commercial / turbotext / rexx / cleanup.ttx next >
Text File  |  1995-03-16  |  1KB  |  61 lines
  1.  
  2. /** $VER: CleanUp.ttx Demo 1.0 (11.1.91)
  3.  **
  4.  ** This iconifies all windows and tidies up the editor's screen
  5.  **
  6.  ** Written by Neil Lucking, Michael Sinz, Martin Taillefer and Fred Mitchell
  7.  **/
  8.  
  9.  
  10. OPTIONS RESULTS
  11.  
  12.  
  13.   ADDRESS "TURBOTEXT"
  14.  
  15.   GetDocuments
  16.   docs = RESULT
  17.  
  18.   i = 0
  19.   DO WHILE docs ~= ''
  20.     PARSE VAR docs '"' name.i '" TURBOTEXT' port docs
  21.     port.i = 'TURBOTEXT'||port
  22.     i = i+1
  23.   END
  24.   numdocs = i
  25.  
  26.   swap = "YES"
  27.   DO WHILE swap == "YES"
  28.     i = 0
  29.     swap = "NO"
  30.     DO WHILE i < numdocs - 1
  31.       j = i + 1
  32.       IF name.i > name.j THEN DO
  33.         swap = "YES"
  34.  
  35.         nswap = name.i
  36.         pswap = port.i
  37.  
  38.         name.i = name.j
  39.         port.i = port.j
  40.  
  41.         name.j = nswap
  42.         port.j = pswap
  43.       END
  44.       i = j
  45.     END
  46.   END
  47.  
  48.   i = 0
  49.   y = 0
  50.   DO WHILE i < numdocs
  51.     ADDRESS VALUE port.i
  52.  
  53.     IconifyWindow ON
  54.  
  55.     GetWindowInfo
  56.     PARSE VAR RESULT icon left top width height .
  57.     y = (height + 1) * (i + 1) + 1
  58.     MoveWindow (0-left) (y-top)
  59.     i = i+1
  60.   END
  61.