Loading VTCHAT should set it as default (#696)
This commit is contained in:
Larry Masinter
GitHub
107
library/VTCHAT
107
library/VTCHAT
@@ -1,13 +1,14 @@
|
||||
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
|
||||
(FILECREATED "30-Sep-2021 17:41:51" {DSK}<Users>briggs>Projects>medley>library>VTCHAT.;4 21924
|
||||
|
||||
changes to%: (FNS VTCHAT.STATUS)
|
||||
(FILECREATED "20-Feb-2022 11:10:55" {DSK}<home>larry>medley>library>VTCHAT.;2 21881
|
||||
|
||||
previous date%: "20-Jan-93 15:06:01" {DSK}<Users>briggs>Projects>medley>library>VTCHAT.;3)
|
||||
:CHANGES-TO (VARS VTCHATCOMS)
|
||||
|
||||
:PREVIOUS-DATE "30-Sep-2021 17:41:51" {DSK}<home>larry>medley>library>VTCHAT.;1)
|
||||
|
||||
|
||||
(* ; "
|
||||
Copyright (c) 1983-1988, 1990, 1993 by Venue & Xerox Corporation.
|
||||
Copyright (c) 1983-1988, 1990, 1993, 2022 by Venue & Xerox Corporation.
|
||||
")
|
||||
|
||||
(PRETTYCOMPRINT VTCHATCOMS)
|
||||
@@ -31,7 +32,13 @@ Copyright (c) 1983-1988, 1990, 1993 by Venue & Xerox Corporation.
|
||||
(SYSRECORDS VT100.STATE)
|
||||
(DECLARE%: DONTEVAL@LOAD DOCOPY (FILES (SYSLOAD)
|
||||
VT100KP)
|
||||
(ADDVARS (CHAT.DISPLAYTYPES ("Replace this string with NIL to prefer vt100" NIL VT100])
|
||||
|
||||
(* ;; "lmm 2/20/22:")
|
||||
|
||||
|
||||
(* ;; "(CAAR CHAT.DISPLAYTYPES) had %"replace this string with NIL to prefer VT100 for chat%", now replaced")
|
||||
|
||||
(ADDVARS (CHAT.DISPLAYTYPES (NIL NIL VT100])
|
||||
|
||||
|
||||
|
||||
@@ -147,27 +154,27 @@ Copyright (c) 1983-1988, 1990, 1993 by Venue & Xerox Corporation.
|
||||
(RECORD VT100SAVE (CURSORPOS CHARATTR CHARSET))
|
||||
|
||||
(DATATYPE VT100.STATE ((DINGED FLAG)
|
||||
(EATLF FLAG)
|
||||
(EATCRLF FLAG)
|
||||
(EATTOCRLF FLAG)
|
||||
(AUTOLF FLAG)
|
||||
(BLINKMODE FLAG)
|
||||
(BRIGHTMODE FLAG)
|
||||
(SMOOTHSCROLL FLAG)
|
||||
(SIFONT POINTER)
|
||||
(KEYPADMODE FLAG)
|
||||
(CURSORMODE FLAG)
|
||||
(CHARSET0 FLAG)
|
||||
(CHARSET1 FLAG)
|
||||
(SOFONT POINTER)
|
||||
(PARAMCOUNT WORD)
|
||||
(ADDRESSING WORD)
|
||||
ESCAPESEQUENCE VT100MEM PARAMARRAY RELORIGIN INVERTFLG CSTERM)
|
||||
VT100MEM _ (create VT100SAVE
|
||||
CURSORPOS _ (create POSITION
|
||||
XCOORD _ 1
|
||||
YCOORD _ 1))
|
||||
PARAMARRAY _ (ARRAY 12 'SMALLP 0 1))
|
||||
(EATLF FLAG)
|
||||
(EATCRLF FLAG)
|
||||
(EATTOCRLF FLAG)
|
||||
(AUTOLF FLAG)
|
||||
(BLINKMODE FLAG)
|
||||
(BRIGHTMODE FLAG)
|
||||
(SMOOTHSCROLL FLAG)
|
||||
(SIFONT POINTER)
|
||||
(KEYPADMODE FLAG)
|
||||
(CURSORMODE FLAG)
|
||||
(CHARSET0 FLAG)
|
||||
(CHARSET1 FLAG)
|
||||
(SOFONT POINTER)
|
||||
(PARAMCOUNT WORD)
|
||||
(ADDRESSING WORD)
|
||||
ESCAPESEQUENCE VT100MEM PARAMARRAY RELORIGIN INVERTFLG CSTERM)
|
||||
VT100MEM _ (create VT100SAVE
|
||||
CURSORPOS _ (create POSITION
|
||||
XCOORD _ 1
|
||||
YCOORD _ 1))
|
||||
PARAMARRAY _ (ARRAY 12 'SMALLP 0 1))
|
||||
)
|
||||
|
||||
(/DECLAREDATATYPE 'VT100.STATE
|
||||
@@ -227,22 +234,22 @@ Copyright (c) 1983-1988, 1990, 1993 by Venue & Xerox Corporation.
|
||||
(ADDTOVAR SYSTEMRECLST
|
||||
|
||||
(DATATYPE VT100.STATE ((DINGED FLAG)
|
||||
(EATLF FLAG)
|
||||
(EATCRLF FLAG)
|
||||
(EATTOCRLF FLAG)
|
||||
(AUTOLF FLAG)
|
||||
(BLINKMODE FLAG)
|
||||
(BRIGHTMODE FLAG)
|
||||
(SMOOTHSCROLL FLAG)
|
||||
(SIFONT POINTER)
|
||||
(KEYPADMODE FLAG)
|
||||
(CURSORMODE FLAG)
|
||||
(CHARSET0 FLAG)
|
||||
(CHARSET1 FLAG)
|
||||
(SOFONT POINTER)
|
||||
(PARAMCOUNT WORD)
|
||||
(ADDRESSING WORD)
|
||||
ESCAPESEQUENCE VT100MEM PARAMARRAY RELORIGIN INVERTFLG CSTERM))
|
||||
(EATLF FLAG)
|
||||
(EATCRLF FLAG)
|
||||
(EATTOCRLF FLAG)
|
||||
(AUTOLF FLAG)
|
||||
(BLINKMODE FLAG)
|
||||
(BRIGHTMODE FLAG)
|
||||
(SMOOTHSCROLL FLAG)
|
||||
(SIFONT POINTER)
|
||||
(KEYPADMODE FLAG)
|
||||
(CURSORMODE FLAG)
|
||||
(CHARSET0 FLAG)
|
||||
(CHARSET1 FLAG)
|
||||
(SOFONT POINTER)
|
||||
(PARAMCOUNT WORD)
|
||||
(ADDRESSING WORD)
|
||||
ESCAPESEQUENCE VT100MEM PARAMARRAY RELORIGIN INVERTFLG CSTERM))
|
||||
)
|
||||
(DECLARE%: DONTEVAL@LOAD DOCOPY
|
||||
|
||||
@@ -250,14 +257,14 @@ Copyright (c) 1983-1988, 1990, 1993 by Venue & Xerox Corporation.
|
||||
VT100KP)
|
||||
|
||||
|
||||
(ADDTOVAR CHAT.DISPLAYTYPES ("Replace this string with NIL to prefer vt100" NIL VT100))
|
||||
(ADDTOVAR CHAT.DISPLAYTYPES (NIL NIL VT100))
|
||||
)
|
||||
(PUTPROPS VTCHAT COPYRIGHT ("Venue & Xerox Corporation" 1983 1984 1985 1986 1987 1988 1990 1993))
|
||||
(PUTPROPS VTCHAT COPYRIGHT ("Venue & Xerox Corporation" 1983 1984 1985 1986 1987 1988 1990 1993 2022))
|
||||
(DECLARE%: DONTCOPY
|
||||
(FILEMAP (NIL (1532 9598 (VTCHAT.STATE 1542 . 2052) (VTCHAT.HANDLECHARACTER 2054 . 4628) (
|
||||
VTCHAT.SEQUENCE 4630 . 6173) (VTCHAT.DOCOMMAND 6175 . 9596)) (9599 17110 (VTCHAT.ADDRESS 9609 . 10127)
|
||||
(VTCHAT.REVERSE.INDEX 10129 . 10698) (VTCHAT.ATTRIBUTES 10700 . 11086) (VTCHAT.DECLFONT 11088 . 11357
|
||||
) (VTCHAT.CLEARMODES 11359 . 11862) (VTCHAT.SAVE 11864 . 12603) (VTCHAT.RESTORE 12605 . 13312) (
|
||||
VTCHAT.SETMODE 13314 . 14386) (VTCHAT.SETMARGINS 14388 . 14979) (VTCHAT.REPORT 14981 . 15741) (
|
||||
VTCHAT.STATUS 15743 . 17108)))))
|
||||
(FILEMAP (NIL (1675 9741 (VTCHAT.STATE 1685 . 2195) (VTCHAT.HANDLECHARACTER 2197 . 4771) (
|
||||
VTCHAT.SEQUENCE 4773 . 6316) (VTCHAT.DOCOMMAND 6318 . 9739)) (9742 17253 (VTCHAT.ADDRESS 9752 . 10270)
|
||||
(VTCHAT.REVERSE.INDEX 10272 . 10841) (VTCHAT.ATTRIBUTES 10843 . 11229) (VTCHAT.DECLFONT 11231 . 11500
|
||||
) (VTCHAT.CLEARMODES 11502 . 12005) (VTCHAT.SAVE 12007 . 12746) (VTCHAT.RESTORE 12748 . 13455) (
|
||||
VTCHAT.SETMODE 13457 . 14529) (VTCHAT.SETMARGINS 14531 . 15122) (VTCHAT.REPORT 15124 . 15884) (
|
||||
VTCHAT.STATUS 15886 . 17251)))))
|
||||
STOP
|
||||
|
||||
Binary file not shown.
Reference in New Issue
Block a user