(FILECREATED "18-Jun-86 22:11:49" {ERIS}<lispusers>koto>TKDORADO.;1
 7034   

      changes to:  (VARS TKDORADOCOMS)
		   (FNS \\TK.DEPENDING))


(* Copyright (c) 1986 by Xerox Corporation. All rights reserved.)

(PRETTYCOMPRINT TKDORADOCOMS)

(RPAQQ TKDORADOCOMS
 [(P [SETQ TEDITKEY.KEYBINDINGS
				(UNION (APPEND TEDITKEY.KEYBINDINGS (QUOTE (NIL)))
				       (QUOTE (([LAMBDA (TEXTSTREAM TEXTOBJ SEL)
							(IF (ZEROP (FETCH DCH OF SEL))
							    then
							    (\TK.DEFAULTS.CARET TEXTSTREAM TEXTOBJ 
										SEL)
							    else
							    (\TK.DEFAULTSSEL TEXTSTREAM TEXTOBJ SEL]
						(##↑D)
						"default looks")
					       ([LAMBDA (TEXTSTREAM TEXTOBJ SEL)
							(if (ZEROP (fetch DCH of SEL))
							    then
							    (\TK.UNDERLINE.CARET.ON TEXTSTREAM 
										    TEXTOBJ SEL)
							    else
							    (\TK.UNDERLINE.SEL.ON TEXTSTREAM TEXTOBJ 
										  SEL]
						(##↑J)
						"underlining on")
					       ([LAMBDA (TEXTSTREAM TEXTOBJ SEL)
							(if (ZEROP (fetch DCH of SEL))
							    then
							    (\TK.UNDERLINE.CARET.OFF TEXTSTREAM 
										     TEXTOBJ SEL)
							    else
							    (\TK.UNDERLINE.SEL.OFF TEXTSTREAM TEXTOBJ 
										   SEL]
						(##↑K)
						"underlining off")
					       ([LAMBDA (TEXTSTREAM TEXTOBJ SEL)
							(if (ZEROP (fetch DCH of SEL))
							    then
							    (\TK.BOLD.CARET.ON TEXTSTREAM TEXTOBJ SEL)
							    else
							    (\TK.BOLD.SEL.ON TEXTSTREAM TEXTOBJ SEL]
						(##↑B)
						"bold on")
					       ([LAMBDA (TEXTSTREAM TEXTOBJ SEL)
							(if (ZEROP (fetch DCH of SEL))
							    then
							    (\TK.BOLD.CARET.OFF TEXTSTREAM TEXTOBJ 
										SEL)
							    else
							    (\TK.BOLD.SEL.OFF TEXTSTREAM TEXTOBJ SEL]
						(##↑N)
						"bold off")
					       ([LAMBDA (TEXTSTREAM TEXTOBJ SEL)
							(if (ZEROP (fetch DCH of SEL))
							    then
							    (\TK.ITALIC.CARET.ON TEXTSTREAM TEXTOBJ 
										 SEL)
							    else
							    (\TK.ITALIC.SEL.ON TEXTSTREAM TEXTOBJ SEL]
						(##↑I)
						"italics on")
					       ([LAMBDA (TEXTSTREAM TEXTOBJ SEL)
							(if (ZEROP (fetch DCH of SEL))
							    then
							    (\TK.ITALIC.CARET.OFF TEXTSTREAM TEXTOBJ 
										  SEL)
							    else
							    (\TK.ITALIC.SEL.OFF TEXTSTREAM TEXTOBJ 
										SEL]
						(##↑O)
						"italics off")
					       ([LAMBDA (TEXTSTREAM TEXTOBJ SEL)
							(IF (ZEROP (FETCH DCH OF SEL))
							    then
							    (\TK.SMALLER.CARET TEXTSTREAM TEXTOBJ SEL)
							    else
							    (\TK.SMALLERSEL TEXTSTREAM TEXTOBJ SEL]
						(##↑%[)
						"smaller font")
					       ([LAMBDA (TEXTSTREAM TEXTOBJ SEL)
							(IF (ZEROP (FETCH DCH OF SEL))
							    then
							    (\TK.LARGER.CARET TEXTSTREAM TEXTOBJ SEL)
							    else
							    (\TK.LARGERSEL TEXTSTREAM TEXTOBJ SEL]
						(##↑%])
						"larger font")
					       ([LAMBDA (TEXTSTREAM TEXTOBJ SEL)
							(IF (ZEROP (FETCH DCH OF SEL))
							    then
							    (\TK.SUPERSCRIPT.CARET TEXTSTREAM TEXTOBJ 
										   SEL)
							    else
							    (\TK.SUPERSCRIPTSEL TEXTSTREAM TEXTOBJ 
										SEL]
						(##↑↑)
						"superscript")
					       ([LAMBDA (TEXTSTREAM TEXTOBJ SEL)
							(IF (ZEROP (FETCH DCH OF SEL))
							    then
							    (\TK.SUBSCRIPT.CARET TEXTSTREAM TEXTOBJ 
										 SEL)
							    else
							    (\TK.SUBSCRIPTSEL TEXTSTREAM TEXTOBJ SEL]
						(##↑←)
						"subscript")
					       (\TK.CENTER.SEL (##↑C)
							       "center, justify, ... ")
					       (\TK.CENTER.SEL.REV (##↑V)
								   " ... , justify, center"]
			  (\TK.BUILD.MENU)
			  (TEDITKEY.INSTALL)
			  (CLOSEW DLIONFNKEYS)
			  (TEDIT.SETSYNTAX (CHARCODE ESC)
					   (QUOTE REDO])
[SETQ TEDITKEY.KEYBINDINGS (UNION (APPEND TEDITKEY.KEYBINDINGS (QUOTE (NIL)))
				  (QUOTE (([LAMBDA (TEXTSTREAM TEXTOBJ SEL)
						   (IF (ZEROP (FETCH DCH OF SEL))
						       then
						       (\TK.DEFAULTS.CARET TEXTSTREAM TEXTOBJ SEL)
						       else
						       (\TK.DEFAULTSSEL TEXTSTREAM TEXTOBJ SEL]
					   (##↑D)
					   "default looks")
					  ([LAMBDA (TEXTSTREAM TEXTOBJ SEL)
						   (if (ZEROP (fetch DCH of SEL))
						       then
						       (\TK.UNDERLINE.CARET.ON TEXTSTREAM TEXTOBJ SEL)
						       else
						       (\TK.UNDERLINE.SEL.ON TEXTSTREAM TEXTOBJ SEL]
					   (##↑J)
					   "underlining on")
					  ([LAMBDA (TEXTSTREAM TEXTOBJ SEL)
						   (if (ZEROP (fetch DCH of SEL))
						       then
						       (\TK.UNDERLINE.CARET.OFF TEXTSTREAM TEXTOBJ 
										SEL)
						       else
						       (\TK.UNDERLINE.SEL.OFF TEXTSTREAM TEXTOBJ SEL]
					   (##↑K)
					   "underlining off")
					  ([LAMBDA (TEXTSTREAM TEXTOBJ SEL)
						   (if (ZEROP (fetch DCH of SEL))
						       then
						       (\TK.BOLD.CARET.ON TEXTSTREAM TEXTOBJ SEL)
						       else
						       (\TK.BOLD.SEL.ON TEXTSTREAM TEXTOBJ SEL]
					   (##↑B)
					   "bold on")
					  ([LAMBDA (TEXTSTREAM TEXTOBJ SEL)
						   (if (ZEROP (fetch DCH of SEL))
						       then
						       (\TK.BOLD.CARET.OFF TEXTSTREAM TEXTOBJ SEL)
						       else
						       (\TK.BOLD.SEL.OFF TEXTSTREAM TEXTOBJ SEL]
					   (##↑N)
					   "bold off")
					  ([LAMBDA (TEXTSTREAM TEXTOBJ SEL)
						   (if (ZEROP (fetch DCH of SEL))
						       then
						       (\TK.ITALIC.CARET.ON TEXTSTREAM TEXTOBJ SEL)
						       else
						       (\TK.ITALIC.SEL.ON TEXTSTREAM TEXTOBJ SEL]
					   (##↑I)
					   "italics on")
					  ([LAMBDA (TEXTSTREAM TEXTOBJ SEL)
						   (if (ZEROP (fetch DCH of SEL))
						       then
						       (\TK.ITALIC.CARET.OFF TEXTSTREAM TEXTOBJ SEL)
						       else
						       (\TK.ITALIC.SEL.OFF TEXTSTREAM TEXTOBJ SEL]
					   (##↑O)
					   "italics off")
					  ([LAMBDA (TEXTSTREAM TEXTOBJ SEL)
						   (IF (ZEROP (FETCH DCH OF SEL))
						       then
						       (\TK.SMALLER.CARET TEXTSTREAM TEXTOBJ SEL)
						       else
						       (\TK.SMALLERSEL TEXTSTREAM TEXTOBJ SEL]
					   (##↑%[)
					   "smaller font")
					  ([LAMBDA (TEXTSTREAM TEXTOBJ SEL)
						   (IF (ZEROP (FETCH DCH OF SEL))
						       then
						       (\TK.LARGER.CARET TEXTSTREAM TEXTOBJ SEL)
						       else
						       (\TK.LARGERSEL TEXTSTREAM TEXTOBJ SEL]
					   (##↑%])
					   "larger font")
					  ([LAMBDA (TEXTSTREAM TEXTOBJ SEL)
						   (IF (ZEROP (FETCH DCH OF SEL))
						       then
						       (\TK.SUPERSCRIPT.CARET TEXTSTREAM TEXTOBJ SEL)
						       else
						       (\TK.SUPERSCRIPTSEL TEXTSTREAM TEXTOBJ SEL]
					   (##↑↑)
					   "superscript")
					  ([LAMBDA (TEXTSTREAM TEXTOBJ SEL)
						   (IF (ZEROP (FETCH DCH OF SEL))
						       then
						       (\TK.SUBSCRIPT.CARET TEXTSTREAM TEXTOBJ SEL)
						       else
						       (\TK.SUBSCRIPTSEL TEXTSTREAM TEXTOBJ SEL]
					   (##↑←)
					   "subscript")
					  (\TK.CENTER.SEL (##↑C)
							  "center, justify, ... ")
					  (\TK.CENTER.SEL.REV (##↑V)
							      " ... , justify, center"]
(\TK.BUILD.MENU)
(TEDITKEY.INSTALL)
(CLOSEW DLIONFNKEYS)
(TEDIT.SETSYNTAX (CHARCODE ESC)
		 (QUOTE REDO))
(PUTPROPS TKDORADO COPYRIGHT ("Xerox Corporation" 1986))
(DECLARE: DONTCOPY
  (FILEMAP (NIL)))
STOP