7 lines
4.0 KiB
Plaintext
7 lines
4.0 KiB
Plaintext
ROOMS USERS' UN-HIDE-TTY
|
||
2
|
||
|
||
4
|
||
|
||
1
|
||
|
||
UN-HIDE-TTY
|
||
1
|
||
|
||
4
|
||
|
||
By: Doug Cutting (Cutting.PA@Xerox.COM)
|
||
This document last edited on April 28, 1988.
|
||
ROOMS changes the window system such that open windows are not always visible. Some applications presume that open windows are visible. This module attempts to amend this situation.
|
||
Often when an application decides to start using a window which is not visible it gives that window the caret. CHAT is an example of such an application. When IL:CLOSECHATWINDOWFLG is NIL (the default) CHAT windows are left open after their connection is closed. If one leaves such a CHAT window in another room and then attempts to open a CHAT connection, CHAT will merrily re-use the hidden window. But as CHAT takes the caret when it opens a connection, we can identify that window and pull it into the current room.
|
||
(ROOMS:UN-HIDE-TTY) [Function]
|
||
If the window with the caret is not in the current room, it is brought into the current room with a call to ROOMS:UN-HIDE-WINDOW. If the window with the TTY is already visible on the screen then it is flashed. If there is no TTY window (i.e. the process with the keyboard has no TTY window) then a message to this effect is printed to the prompt window.
|
||
One can use this function in the action of a button, e.g.:
|
||
(ROOMS:MAKE-BUTTON-WINDOW
|
||
(ROOMS:MAKE-BUTTON :TEXT "Un-Hide TTY" :ACTION '(ROOMS:UN-HIDE-TTY)))
|
||
Control-Y [Interrupt]
|
||
Brings the window with the caret into the current room by calling ROOMS:UN-HIDE-TTY. This interrupt is installed when UN-HIDE-TTY is loaded. This will not work with applications which have their own interrupt tables, e.g. TEdit and CHAT.
|
||
(LIST ((PAGE NIL (PAPERSIZE Letter FOLIOINFO (ARABIC "" "") STARTINGPAGE# 9) (0 0 612 792) ((FOLIO NIL (PARALOOKS (QUAD CENTERED) CHARLOOKS (SUPERSCRIPT 0 INVISIBLE OFF SELECTPOINT OFF PROTECTED OFF SIZE 10 FAMILY MODERN OVERLINE OFF STRIKEOUT OFF UNDERLINE OFF EXPANSION REGULAR SLOPE REGULAR WEIGHT MEDIUM INVERTED OFF USERINFO NIL STYLE NIL) FORMATINFO (ARABIC "" "")) (174 36 288 36) NIL) (HEADING NIL (HEADINGTYPE RUNNINGHEAD) (84 744 528 36) NIL) (TEXT NIL NIL (84 96 456 600) NIL))) (PAGE NIL (PAPERSIZE Letter FOLIOINFO (ARABIC "" "")) (0 0 612 792) ((FOLIO NIL (PARALOOKS (QUAD CENTERED) CHARLOOKS (SUPERSCRIPT 0 INVISIBLE OFF SELECTPOINT OFF PROTECTED OFF SIZE 10 FAMILY MODERN OVERLINE OFF STRIKEOUT OFF UNDERLINE OFF EXPANSION REGULAR SLOPE REGULAR WEIGHT MEDIUM INVERTED OFF USERINFO NIL STYLE NIL) FORMATINFO (ARABIC "" "")) (174 36 288 36) NIL) (HEADING NIL (HEADINGTYPE RUNNINGHEAD) (84 744 528 36) NIL) (TEXT NIL NIL (84 96 456 600) NIL))) (PAGE NIL (PAPERSIZE Letter FOLIOINFO (ARABIC "" "")) (0 0 612 792) ((FOLIO NIL (PARALOOKS (QUAD CENTERED) CHARLOOKS (SUPERSCRIPT 0 INVISIBLE OFF SELECTPOINT OFF PROTECTED OFF SIZE 10 FAMILY MODERN OVERLINE OFF STRIKEOUT OFF UNDERLINE OFF EXPANSION REGULAR SLOPE REGULAR WEIGHT MEDIUM INVERTED OFF USERINFO NIL STYLE NIL) FORMATINFO (ARABIC "" "")) (174 36 288 36) NIL) (HEADING NIL (HEADINGTYPE RUNNINGHEAD) (84 744 528 36) NIL) (TEXT NIL NIL (84 96 456 600) NIL))))) 2 <01> <01> , <01> , <00> <00>8 , <00> <00>8 H <01> <01> PAGEHEADING RUNNINGHEAD MODERN HELVETICA
|
||
MODERN
|
||
MODERN
|
||
MODERN MODERN HRULE.GETFN MODERN
|
||
HRULE.GETFN MODERN
|
||
HRULE.GETFN MODERN
|
||
HRULE.GETFN MODERN HRULE.GETFN MODERN ) , <00> d ; c <00> u 1z<31> |