(DEFINE-FILE-INFO READTABLE "XCL" PACKAGE "ROOMS")

(IL:FILECREATED " 5-Dec-2020 16:37:26" 
IL:|{DSK}<Users>arunwelch>SKYDRIVE>DOCUMENTS>UNIX>LISP>LDE>ROOMS>MEDLEY-35>UN-HIDE-TTY.;2|
 1806   

      IL:|previous| IL:|date:| "17-Aug-90 14:47:42" 
IL:|{DSK}<Users>arunwelch>SKYDRIVE>DOCUMENTS>UNIX>LISP>LDE>ROOMS>MEDLEY-35>UN-HIDE-TTY.;1|)


; Copyright (c) 1988, 1990, 2020 by Venue & Xerox Corporation.  All rights reserved.

(IL:PRETTYCOMPRINT IL:UN-HIDE-TTYCOMS)

(IL:RPAQQ IL:UN-HIDE-TTYCOMS
 ((FILE-ENVIRONMENTS IL:UN-HIDE-TTY)
                                  
                                  (IL:* IL:|;;| 

"make Control-Y be an interrupt which yanks the window with the TTY process into the current room.")


                                  (IL:P (EXPORT 'UN-HIDE-TTY "ROOMS"))
                                  (IL:FUNCTIONS UN-HIDE-TTY)
                                  (IL:P (IL:INTERRUPTCHAR (CHAR-CODE #\^Y)
                                               '(UN-HIDE-TTY)))))

(DEFINE-FILE-ENVIRONMENT IL:UN-HIDE-TTY
 :COMPILER :COMPILE-FILE
   :PACKAGE "ROOMS"
   :READTABLE "XCL")



(IL:* IL:|;;| 
"make Control-Y be an interrupt which yanks the window with the TTY process into the current room.")



(EXPORT 'UN-HIDE-TTY "ROOMS")

(DEFUN UN-HIDE-TTY
 ()
   (LET ((TTY-WINDOW (IL:WFROMDS (IL:PROCESS.TTY (IL:TTY.PROCESS))
                            T)))
        (IF TTY-WINDOW
            (IF (WINDOW-HIDDEN? TTY-WINDOW)
                (UN-HIDE-WINDOW TTY-WINDOW)
                (IL:FLASHWINDOW TTY-WINDOW))
            (FORMAT IL:PROMPTWINDOW "~%No TTY window to un-hide!~%"))))

(IL:INTERRUPTCHAR (CHAR-CODE #\^Y)
       '(UN-HIDE-TTY
))
(IL:PUTPROPS IL:UN-HIDE-TTY IL:COPYRIGHT ("Venue & Xerox Corporation" 1988 1990 2020))
(IL:DECLARE\: IL:DONTCOPY
  (IL:FILEMAP (NIL (1274 1627 (UN-HIDE-TTY 1274 . 1627)))))
IL:STOP