home *** CD-ROM | disk | FTP | other *** search
/ Global Amiga Experience / globalamigaexperience.iso / text_dtp / editor / turbotext / rexx / selectdoc.ttx < prev    next >
Text File  |  1995-07-10  |  1KB  |  67 lines
  1.  
  2. /** $VER: SelectDoc.ttx 2.0 (14.3.94)
  3.  **
  4.  ** This macro shows all documents currently loaded in TurboText and prompts
  5.  ** for a document to be selected. That document's window is then made active.
  6.  **
  7.  ** Written by Neil Lucking
  8.  ** Modified by Martin Taillefer
  9.  **/
  10.  
  11.  
  12. OPTIONS RESULTS
  13. OPTIONS PROMPT "Select document > "
  14. OPTIONS FAILAT 21
  15. PARSE ARG docname
  16.  
  17.  
  18.   ADDRESS TURBOTEXT
  19.  
  20.   IF docname = "" THEN DO
  21.     GetDocuments
  22.     docs = RESULT
  23.     SAY "Available documents:"
  24.  
  25.     i = 1
  26.     DO WHILE docs ~= ''
  27.       PARSE VAR docs '"' a '"' port docs
  28.       IF a ~= "" THEN DO
  29.         SAY ' ' i ':' a
  30.         name.i = a
  31.         i = i+1
  32.       END
  33.     END
  34.  
  35.     IF i = 1 THEN DO
  36.       SAY "No documents loaded"
  37.       RETURN
  38.     END
  39.  
  40.     PULL window
  41.     IF (window = '') THEN DO
  42.       RETURN
  43.     END
  44.  
  45.     GetPort name.window
  46.     IF rc ~= 0 THEN DO
  47.       GetPort window
  48.     END
  49.  
  50.   END; ELSE DO
  51.     GetPort docname
  52.  
  53.   END
  54.  
  55.   IF rc = 0 THEN DO
  56.     ADDRESS VALUE RESULT
  57.     IconifyWindow OFF
  58.     ControlWindow ON
  59.     Window2Front
  60.     Screen2Front
  61.     ActivateWindow
  62.  
  63.   END; ELSE DO
  64.     SAY "Document not found"
  65.  
  66.   END
  67.