github.com/Interlisp.medley
1
0
Fork 0
mirror of synced 2026-05-03 22:59:35 +00:00
Code Issues Projects Releases Wiki Activity

Tedit 4th round (#1352)

Browse Source 
* INSPECT:  Sort datatype fields alphabetically, fixed a small bug

* INSPECT:  Sort only DATATYPE records

* VIRTUALKEYBOARD:  fix loadup

* Reorganizing VIRTUALKEYBOARDS as described in #1267

* KEYBOARDEDITOR:  fixed one bug, still is out of step

* MEDLEYDIR: Pack DSK as the default HOST on the value of (UNIX-GETENV "MEDLEYDIR")

* Move KEYBOARDCONFIGS KEYBOARDEDIT to library/virtualkeyboards

This collects all files relevant to VIRTUALKEYBOARDS into the same subdirectory

* NEARESTCORNER must be onscreen  (addresses #1294

Mouse jumps to the nearest onscreen corner of the ghost region

* EQUALALL tests equivalence of bitmaps and big bitmaps

* Oops, off by one

* INSPECT:  had wrong test in deciding whether to sort or not

* Improve check for closed stream in \UFSCloseFile.

Check if the (STREAM ACCESS) bits are NIL, indicating a closed stream, and
if so do not attempt to close the file again

* COMPAREDIRECTORIES, COMPARESOURCES, COMPARETEXT, EXAMINEDEFS

Relatively minor cleanups, little or no functionality improvements

* Remove calls to OPENFILE

OPENFILE is a residual Interlisp function that returns a litatom instead of a stream.  In almost all cases, this immediate causes an error that litatom files are no longer supported.  I have found (FINDCALLERS) all the examples in lispusers/sources/library/ and replaced OPENFILE with OPENSTREAM (except for the calls from \PEEKPUP and \PEEKNS, that I didn't track down).  There was a trivai call in COMPILE.FILECHECK in COMPILE, but that function is not called anywhere.  So I removed it.

* ADIR:  remove OPENFILE calls, also another stab at \COPYSYS

With respect to \COPYSYS, this replaces the draft PR #1263.  This applies TRUEFILENAME at the start, but remembers whether it was in fact a pseudohost and restores that for the return value.  So if you start in a pseudo world you end up there.

* Next version of TEDIT core files

* Update

* Update

* UPDATE

* UPDATE

* UPDATE:  FORCE-END fix

* FILEIO:  OPENSTREAM parameters default to STREAMPROP

also add LINELENGTH

* Expose useful subfunctions

* TEDITDORADOKEYS - compatibility with new declarations

* Update tedit-exports.all

* * removed from title when all changes are undone

* Delete old tedit fiels

* Add TEDIT.FILEDATE

* REGISTER-TYPED-REGION creates a new TYPED-REGIONS entry

If a window is closed whose region is of an as-yet-unknown type, a new entry will be added implicitly to TYPED-REGIONS to that that region and future regions of that type can be recycled.

* COMPAREDIRECTORIES:  Get AUTHOR only if selected

This may provide a little speed up.  But of more importance, almost all the array crashes I am seeing are underneath (GETFILEINFO xxx 'AUTHOR).  The UFS implementation may be smashing array space, or maybe it is just detecting the corruption.  For now, I'm eliminating this potential source of bad behavior.

* Hilighting and caret flashing in split windows

* A little more on window splitting caret/hilights

* Rename caret functions

* REGIONMANAGER:  Compatibility with REGIONMANAGER PR

* EXAMINEDEFS: Better interpretation of TYPE NIL = (FNS FUNCTIONS) with better formatting

* Refining caret behavior, importing separate changes also in other PRs for compatibility

* Mostly dealing with highlighting and caret flashing in split windows

* FONTPROFILE: specvars declaration for cleanliness

* Prep for UTF8, a little performance tuning

* Meta EOL = non-paragraph linebreak

* Back-scrolling based on linebreak characters, not paragraph breaks, also eliminate obsolete code

* FIddling around with window titles (getting *'s when changed), dealing with titles  not computed by Tedit

* Recompile DOC-OBJECTS because \DIRTY bit has changed

* COMPARETEXT: fixed to avoid EOF error if EOL gets confused

* CLIPBOARD (bug fix also a separate PR)

* \TEXTBOUT of EOL doesn't create a paragraph, though typing does

Otherwise, every line in a plaintext or lisp sourcefile is a separate paragraph, which adds unnecessary overhead.

* TEDIT-PCTREE:  Move some straggling piece and btree functions to their proper home

* Change \TEDIT2 to \TEDIT1 as a way of recognizing a Tedit process

* Prepping for more speed up in SEEing of large source files

* Miscellaneous stability/maintenance/performance changes

Fixes the TEDIT.TITLEMENUFN problem, adds TEDIT.COLLECT.OBJECTS

* TEDIT-FILE :  fix readers for obsolete Tedit file formats

* Cleanout misplaced pane/ files

* Fix for most of the lispusers/ hardcopy failures

They all had to do with the diacritic overbar in Env-os.

* Another diacritic glitch

* MODERNIZE:  Fixed off by one bug in NEARESTCORNER

* Update tedit-exports.all

* The "HELP PURGE" problem, plus a little cleanup

* hide initial caret in menus

* TEDIT-LOOKS, TEDIT-PCTREE:  prep for reducing FIXP's

* LLSYMBOL's FILEMAP was also incomplete

This update hopefully won't reveal any other problems

* Introduce NOTSPLITTABLE TEXTPROPERTY

If T, window-splitting cannot happen for this text stream.  Hopefully removes need for Notecards advice on \TEDIT.SPLITW.

* PSEUDHOSTS and .TEDIT: Apply TRUEFILENAME on PREFIX, update documentation

Documentation addresses #1303 .  Using TRUEFILENAME makes sure it always goes to a ground instance in e.g.  (PSEUDOHOST 'MEDLEY '{MEDLEY}).

* Don't allow Put of readonly file

* Inverted selection (black) hilights in readonly texts

More visible than a little underline when there is no blinking cursor

* Remove redundant type-tests

The I.S.OPRs test the I.V. type for lines and pieces, so that field accesses can safely be fast inside the loops

* MULTIPLE-HARDCOPY: at least fix obvious issues with new Tedit

Also avoided FILELST as a bound variable.  This needs work and maybe a little support from Tedit--it shouldn't be advising and unadvising a Tedit function.

* TEDIT-SELECTION:  Fix hilighting glitch with READONLY texts

(Shift select should have its usual highlighting)

* TEDIT menus are not splittable

* TEDIT-FILE fixes imageobj bug in old Tedit formats

Revealed by running HCFILES

* Improve conversion of unformatted to formatted

Also cache HINTPC inside \CHTOPC

* Fix to pageregion problem in old versions

Also adds TEDIT.NCHARS

* Code cleanup after testing faster scrolling

* EXTERNALFORMAT: \CHECKECOLC macro confusedf ANY vs CR EOL convention

* Recompile callers of \CHECKEOLC macro

* EXTERNALFORMAT: \CHECKECOLC macro confusedf ANY vs CR EOL convention

* Recompile callers of \CHECKEOLC macro

* Mostly work on scrolling and  HCFILE issues

* Trying to fix PSEUDHOSTS conficts

* PDFSTREAM

Backing up to fix merge problems

* update EXTERNALFORMAT to avoid conflicdt

* Mostly diacritic display and hardcopy

* Change DIRTY field to LDIRTY

* Added new user function TEDIT.FINDLOOKS

* WINDOWOBJ:  READIMAGEOBJ doesn't ask for permission

If the image object is on a hyphenated file and it can find a nonhyphenated sister, it loads that.  If that doesn't provide the getfn, it tries the original file.

* If ANY and no CR after LF, return EOL instead of CR

* Move charset management to externalformat (addresses #1454)

Removed IMCHARSET from IMAGEOPS declaration, added FORMATCHARSETFN to EXTERNALFORMAT, put XCCS charset handling in the XCCS externalformat.

* XCCS, fixed a glitch

* Fix EXTERNALFORMAT clash

* Mostly CHARENCODING

* TEDIT-PF-SEE:  Use TEDIT.ATOMBOUND.READTABLE

Tedit word-selection → atom selection in source files

* For merging with new charset arrangement

* Mostly work on hardcopy-display

Also asks before it saves a plaintext file as a formatted file

* Changing to hardcopy display doesn't mark "dirty"

* Mostly Put and Get, reorganizing for UTF8, plus odds and ends

* Straggler: TMAX-XREF.LCOM

* Meta-EOL

* Fix and extend page-format updates

Original TEDIT.PAGEFORMAT was unsafe and less useful.  Also did not update history for undoing.

* Use window's screen's height/width to test offscreen

* Write and read unbreakable character property

* Don't suggest put-name if TEMPLATE

* 2 point hilight if readonly

* Mostly proper treatment of invisible pieces and forward char-delete

* Forward word delete, better paragraph selection, cleanup, lisp source atom selection

* fix conflicts for merge

* fix incompatible merge

* Updates including UTF-8 plaintext files

Other continuing cleanups

* Continue edit after writing out UTF-8 plaintext

* TEDIT-FILE   EOL stays EOL after putting to a different EOL convention

for continued editing.

* Update EXTERNALFORMAT from master

* Get rid of needless file change

* EOL processing

* Fix Lafite glitches

Including relaxing constraints on the order of pieces in Tedit files.

* Unsplit any existing panes before main window is reused

* TEDIT-FILE glitch

* Better TEDIT.FORMATTEDFILEP, more TEDIT.CONCAT

* Headings with concatenated Tedit files

* Adjust page headers and numbers

* Reshaping reestablishes the YBOT of PLINES

* Tighten up on binable, better error when binning on empty textstream

* TEDIT.PUT.STREAM, left click gives point selection

* TEDIT.PUT.STREAM

* Unhighlighting of menu buttons

related to point vs. single-character selection

* Better behavior when moving to foreign target

also some cleanup of the file-putting code

* More improvements to cursor tracking

* Single-char shift-selection (lost an edit)

* Try it again

* Suppress EOF error

* BIN instead of GETBASEBYTE, more cleanup of buttonevent and TEDIT.PUT

* Mostly work on process and menu configuration

* A little more careful in choosing the current selection (as opposed to prior search target) for find and substitutes

Use the selection if it is greater than a single character, otherwise the prior target.  meta,G is available for clearly just repeating the prior target.

* Make the names of the Tedit menu process more distinctive

E.g. TEDIT-Charlooks instead of TEDIT#2.  TEDIT and TEDIT#n stand out as the document processes.

* Logically correct undo of Move between different documents

The destination document keeps the delete event in the source, if it is still the most recent source event when the move is undone, the deletion is undone in the source.  Otherwise, the deletion is ignored.

* Line spacing reflects offsets

* TEXTPROP returns length

* TEDIT-HISTORY:  Redo of a move just does a new-location insert

* remove unwanted cpv from PR

* Removed the unecessary SPTEXTOBJ field in SELPIECES, move work on move-undo

* Fix hardcopy bug

* More work on the hardcopy interface

* TEDIT-FILE addresses put of empty stream (issue #1577)

---------

Co-authored-by: Nick Briggs <nicholas.h.briggs@gmail.com>
Co-authored-by: Larry Masinter <lmm@acm.org>
This commit is contained in:
rmkaplan
2024-03-11 23:12:46 -07:00
committed by GitHub
parent 35b7195ed5
commit 44e42940a9
79 changed files with 26500 additions and 28510 deletions
Download Patch File Download Diff File Expand all files Collapse all files

431
lispusers/TEDITKEY
View File

@@ -1,36 +1,36 @@
(DEFINE-FILE-INFO READTABLE "INTERLISP" PACKAGE "INTERLISP")
(FILECREATED "10-Nov-87 14:55:24" {ERINYES}<LISPUSERS>LISPCORE>TEDITKEY.;1 95396
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
changes to%: (VARS TEDITKEYCOMS)
(FILECREATED "14-Oct-2023 14:53:17" {WMEDLEY}<lispusers>TEDITKEY.;4 93014
previous date%: " 1-Apr-86 22:36:26" {ERINYES}<LISP>LYRIC>LISPUSERS>TEDITKEY.;1)
:EDIT-BY rmk
:CHANGES-TO (FNS \SEL.LINEDESC)
:PREVIOUS-DATE "24-Oct-2022 15:25:58" {WMEDLEY}<lispusers>TEDITKEY.;2)
(* "
Copyright (c) 1985, 1986, 1987 by Xerox Corporation. All rights reserved.
(* ; "
Copyright (c) 1985-1987 by Xerox Corporation.
")
(PRETTYCOMPRINT TEDITKEYCOMS)
(RPAQQ TEDITKEYCOMS
(RPAQQ TEDITKEYCOMS
[(COMS
(* ;;; "This is the Lyric-and-later version of TEditKey")
)
(COMS (* ;
 "functions for affecting the selection")
(FNS NTHCAR \TEXTOBJ.WINDEX \TK.PREVSCREEN \TK.UNDERLINE.SEL.ON \TK.UNDERLINE.SEL.OFF
\TK.BOLD.SEL.ON \TK.BOLD.SEL.OFF \TK.ITALIC.SEL.ON \TK.ITALIC.SEL.OFF
\TK.SMALLERSEL \TK.LARGERSEL \TK.SUPERSCRIPTSEL \TK.SUBSCRIPTSEL \TK.DEFAULTSSEL
\TK.DEL.WORD.FORWARD \TK.UCASE.SEL \TK.CAPITALISE.SEL \CAPITALISE \TK.LCASE.SEL)
(* ;
 "functions for affecting the paralooks of the selection")
(FNS \TK.CENTER.SEL \TK.CENTER.SEL.REV \TK.NEST \TK.UNNEST))
(COMS (* ;
 "functions for affecting (and displaying) the caret character looks")
(FNS \TK.SHOWCARETLOOKS \TK.BOLD.CARET.ON \TK.BOLD.CARET.OFF \TK.ITALIC.CARET.ON
\TK.ITALIC.CARET.OFF \TK.UNDERLINE.CARET.ON \TK.UNDERLINE.CARET.OFF
\TK.SUPERSCRIPT.CARET \TK.SUBSCRIPT.CARET \TK.SMALLER.CARET \TK.LARGER.CARET
@@ -38,37 +38,30 @@ Copyright (c) 1985, 1986, 1987 by Xerox Corporation. All rights reserved.
\TK.FONT5 \TK.FONT6 \TK.FONT7 \TK.FONT8)
(* ;
 "the functions which aren't currently used, which toggle the caret looks")
(FNS \TK.BOLDTOGGLE \TK.ITALICTOGGLE \TK.UNDERLINETOGGLE))
(COMS (* ;
 "functions dealing with the default looks")
(FNS \TK.SETDEFAULTLOOKS))
(COMS (* ;
 "functions for positioning within a document")
(FNS GOTONEXTTTYWINDOW \TK.NEXTLINE \TK.PREVLINE \TK.GOTODOCBEGIN \TK.GOTODOCEND
\TK.GOTOLINEBEGIN \TK.GOTOLINEEND \TK.PREVCHAR \TK.NEXTCHAR \TK.FORWARD.WORD
\TK.BACK.WORD \TK.SELECT.ALL))
(COMS (* ; "other utilities")
(FNS \TK.FIND \TK.REDISPLAY \TK.DELLINEFORWARD \TK.OPENLINE \TK.DELCHARFORWARD
\TK.TRANSPOSECHARS))
(COMS (* ;
 "little selection utilities etc., for building hacks")
(FNS \SEL.LIMIT \TK.SETFILEPTR.TO.CARET \SEL.LINEDESC)
(MACROS \SEL.LIMIT.FORWARD \TK.ONOROFF \LINEDESC.LAST.REAL.CHAR))
(COMS (* ; "fns for the key interface itself")
(FNS \SHIFTACTION \ACTION TEDITKEY.INSTALL TEDITKEY.DEINSTALL \TK.ACTIONTOCHARCODE
\TK.BUILD.MENU \TK.HELP \TK.SETFONTINLOOKS WRITE.CHARDESC.AUX CHARDESC
TEDITKEY.CONFIGURE \TK.ADDKEY \TK.CHANGEKEY \TK.APPLYPENDING \TK.NTHFONT)
(* ; "redefinition of system junk")
(FNS METASHIFT))
(* ;; "(\TK.BOLDTOGGLE (##H ##h) 'toggle Bold caret looks') (\TK.ITALICTOGGLE (##i ##I) 'toggle Italic caret looks') (\TK.SUPERSCRIPT.CARET (##^) 'Superscript the caret looks') (\TK.SUBSCRIPT.CARET (##_) 'Subscript the caret looks')")
(* ;; "(\TK.BOLDTOGGLE (##H ##h) 'toggle Bold caret looks') (\TK.ITALICTOGGLE (##i ##I) 'toggle Italic caret looks') (\TK.SUPERSCRIPT.CARET (##^) 'Superscript the caret looks') (\TK.SUBSCRIPT.CARET (##_) 'Subscript the caret looks')")
(FNS TEDIT.FULL.FIND)
[VARS \TK.WHITESPACE (TEDIT.INTERRUPTS `((%, (CHARCODE ^G)
@@ -184,8 +177,7 @@ Copyright (c) 1985, 1986, 1987 by Xerox Corporation. All rights reserved.
(FONT FONTDOWN . FONTUP)
(KEYBOARD USERMODE1DOWN . USERMODE1UP]
(COMS
(* ;; "(TEDITKEY.FNKEYACTIONS (BQUOTE ((CENTER (, (CHARCODE ##^B), (CHARCODE ##^C))) (BOLD (, (CHARCODE ##^D), (CHARCODE ##^E) NOLOCKSHIFT)) (ITALICS (, (CHARCODE ##^F), (CHARCODE ##^G) NOLOCKSHIFT)) (UNDERLINE (, (CHARCODE ##^H), (CHARCODE ##^I) NOLOCKSHIFT)) (SUPERSCRIPT (, (CHARCODE ##^J), (CHARCODE ##^K) NOLOCKSHIFT)) (SUBSCRIPT (, (CHARCODE ##^L), (CHARCODE ##^N) NOLOCKSHIFT)) (LARGER (, (CHARCODE ##^O), (CHARCODE ##^P) NOLOCKSHIFT)) (DEFAULTS (, (CHARCODE ##^Q), (CHARCODE ##^R) NOLOCKSHIFT)) (BS (, (CHARCODE ^H), (CHARCODE ^D) NOLOCKSHIFT)))))")
(* ;; "(TEDITKEY.FNKEYACTIONS (BQUOTE ((CENTER (, (CHARCODE ##^B), (CHARCODE ##^C))) (BOLD (, (CHARCODE ##^D), (CHARCODE ##^E) NOLOCKSHIFT)) (ITALICS (, (CHARCODE ##^F), (CHARCODE ##^G) NOLOCKSHIFT)) (UNDERLINE (, (CHARCODE ##^H), (CHARCODE ##^I) NOLOCKSHIFT)) (SUPERSCRIPT (, (CHARCODE ##^J), (CHARCODE ##^K) NOLOCKSHIFT)) (SUBSCRIPT (, (CHARCODE ##^L), (CHARCODE ##^N) NOLOCKSHIFT)) (LARGER (, (CHARCODE ##^O), (CHARCODE ##^P) NOLOCKSHIFT)) (DEFAULTS (, (CHARCODE ##^Q), (CHARCODE ##^R) NOLOCKSHIFT)) (BS (, (CHARCODE ^H), (CHARCODE ^D) NOLOCKSHIFT)))))")
)
[TEDITKEY.DLION.KEYBINDINGS '(((\ACTION 'OPEN)
\TK.OPENLINE)
@@ -202,8 +194,7 @@ Copyright (c) 1985, 1986, 1987 by Xerox Corporation. All rights reserved.
((\SHIFTACTION 'DEFAULTS)
\TK.SETDEFAULTLOOKS]
(COMS
(* ;; "NOT NEEDED (TEDITKEY.DLION.KEYSYNTAX (QUOTE (((\ACTION (QUOTE NEXT)) NEXT) ((\ACTION (QUOTE UNDO)) UNDO) ((\ACTION (QUOTE BS)) CHARDELETE))))")
(* ;; "NOT NEEDED (TEDITKEY.DLION.KEYSYNTAX (QUOTE (((\ACTION (QUOTE NEXT)) NEXT) ((\ACTION (QUOTE UNDO)) UNDO) ((\ACTION (QUOTE BS)) CHARDELETE))))")
)
[TEDITKEY.DORADO.KEYACTIONS `((BS (%, (CHARCODE ^H)
%,
@@ -1207,38 +1198,40 @@ Copyright (c) 1985, 1986, 1987 by Xerox Corporation. All rights reserved.
(SETFILEPTR TEXTSTREAM (SUB1 (\SEL.LIMIT.FORWARD SEL])
(\SEL.LINEDESC
[LAMBDA (SEL) (* gbn "10-Oct-85 20:57")
(* * Returns the line descriptor of the point of the selection in the last
 selected window)
[LAMBDA (SEL) (* ; "Edited 14-Oct-2023 14:53 by rmk")
(* ; "Edited 24-Oct-2022 15:24 by rmk")
(* gbn "10-Oct-85 20:57")
(NTHCAR (if (EQ (fetch POINT of SEL)
(* ;;; "Returns the line descriptor of the point of the selection in the last selected window")
(NTHCAR (if (EQ (fetch (SELECTION POINT) of SEL)
'LEFT)
then (fetch L1 of SEL)
else (fetch LN of SEL))
(\TEXTOBJ.WINDEX (fetch \TEXTOBJ of SEL])
then (fetch (SELECTION L1) of SEL)
else (fetch (SELECTION LN) of SEL))
(\TEXTOBJ.WINDEX (fetch (SELECTION SELTEXTOBJ) of SEL])
)
(DECLARE%: EVAL@COMPILE
[PUTPROPS \SEL.LIMIT.FORWARD MACRO (LAMBDA (SEL)
(* gbn "13-Dec-84 11:43")
(* returns the character in front of the caret
(ch# for left and chlim for right))
(if (EQ (fetch POINT of SEL)
'LEFT)
then
(fetch CH# of SEL)
else
(fetch CHLIM of SEL]
[PUTPROPS \TK.ONOROFF MACRO (LAMBDA (FLG)
(if FLG then "on" else "off"]
[PUTPROPS \LINEDESC.LAST.REAL.CHAR MACRO (LAMBDA (LINEDESC)
(if (fetch CR\END of LINEDESC)
then
(* there is a CR at the end so the last real char
CHLIM-1)
(SUB1 (fetch CHARLIM of LINEDESC))
else
(fetch CHARLIM of LINEDESC]
(PUTPROPS \SEL.LIMIT.FORWARD MACRO [LAMBDA (SEL) (* gbn "13-Dec-84 11:43")
(* returns the character in front of
 the caret (ch# for left and chlim for
 right))
(if (EQ (fetch POINT of SEL)
'LEFT)
then (fetch CH# of SEL)
else (fetch CHLIM of SEL])
(PUTPROPS \TK.ONOROFF MACRO [LAMBDA (FLG)
(if FLG
then "on"
else "off"])
(PUTPROPS \LINEDESC.LAST.REAL.CHAR MACRO [LAMBDA (LINEDESC)
(if (fetch CR\END of LINEDESC)
then (* there is a CR at the end so the
 last real char CHLIM-1)
(SUB1 (fetch CHARLIM of LINEDESC))
else (fetch CHARLIM of LINEDESC])
)
@@ -1636,6 +1629,7 @@ Copyright (c) 1985, 1986, 1987 by Xerox Corporation. All rights reserved.
(RPAQQ \TK.WHITESPACE 22)
(CONSTANTS (\TK.WHITESPACE 22))
)
@@ -1655,131 +1649,136 @@ Copyright (c) 1985, 1986, 1987 by Xerox Corporation. All rights reserved.
(RPAQ? TEDITKEY.FNKEYFLG T)
(DECLARE%: EVAL@COMPILE
[PUTPROPS METACODE MACRO (LAMBDA (CHARCODE)
(LOGOR CHARCODE 128]
[PUTPROPS CONTROLCODE MACRO (LAMBDA (CHARCODE)
(LOGAND CHARCODE 31]
[PUTPROPS LCMETACODE MACRO (LAMBDA (CHARCODE)
(LOGOR 160 CHARCODE]
(PUTPROPS METACODE MACRO [LAMBDA (CHARCODE)
(LOGOR CHARCODE 128])
(PUTPROPS CONTROLCODE MACRO [LAMBDA (CHARCODE)
(LOGAND CHARCODE 31])
(PUTPROPS LCMETACODE MACRO [LAMBDA (CHARCODE)
(LOGOR 160 CHARCODE])
)
(RPAQ? \TK.SELKEY 'OPEN)
(RPAQ? \TK.PENDING )
(RPAQ? TEDITKEY.KEYBINDINGS `((\TK.FONT1 (%##1)
%,
(CONCAT "change to font " (\TK.NTHFONT 1)))
(\TK.FONT2 (%##2)
%,
(CONCAT "change to font " (\TK.NTHFONT 2)))
(\TK.FONT3 (%##3)
%,
(CONCAT "change to font " (\TK.NTHFONT 3)))
(\TK.FONT4 (%##4)
%,
(CONCAT "change to font " (\TK.NTHFONT 4)))
(\TK.FONT5 (%##5)
%,
(CONCAT "change to font " (\TK.NTHFONT 5)))
(\TK.FONT6 (%##6)
%,
(CONCAT "change to font " (\TK.NTHFONT 6)))
(\TK.FONT7 (%##7)
%,
(CONCAT "change to font " (\TK.NTHFONT 7)))
(\TK.FONT8 (%##8)
%,
(CONCAT "change to font " (\TK.NTHFONT 8)))
NIL
(\TK.DEFAULTS.CARET (%##/)
"restore the default caret looks")
(\TK.SMALLER.CARET (%##9)
"decrease the caret font size")
(\TK.LARGER.CARET (%##0)
"increase the caret font size")
(\TK.SHOWCARETLOOKS (%##=)
"display the current caret looks")
NIL
(\TK.REDISPLAY (%##R %##r)
"Restore the display")
(\TK.HELP (%##?)
"displays the current key bindings")
NIL
(\TK.PREVCHAR (^B ^b)
"Back one character")
(\TK.NEXTCHAR (^F ^f)
"Forward one character")
(\TK.FORWARD.WORD (%##F %##f)
"Forward one word")
(\TK.BACK.WORD (%##B %##b)
"Back one word")
(\TK.GOTOLINEBEGIN (^A ^a)
"go to stArt of line")
(\TK.GOTOLINEEND (^E ^e)
"go to End of line")
(\TK.PREVLINE (^P ^p)
"go to Previous line")
(\TK.NEXTLINE (^N ^n)
"go to Next line")
(\TK.GOTODOCBEGIN (%##<)
"start of document")
(\TK.GOTODOCEND (%##>)
"end of document")
(\TK.SELECT.ALL (%##S %##s)
"Select whole document")
NIL
(\TK.DELLINEFORWARD (^K ^k)
"Kill line")
(\TK.OPENLINE (^O ^o)
"Open up blank line")
(\TK.DELCHARFORWARD (^D ^d)
"Delete character forward")
(\TK.DEL.WORD.FORWARD (%##D %##d)
"Delete word forward")
(\TK.TRANSPOSECHARS (^T ^t)
"Transpose characters")
NIL NIL (\TK.NEST (|##[|)
"indents margins (nest)")
(\TK.UNNEST (|##]|)
"exdents margins (unnest)")
(\TK.CENTER.SEL (%##J %##j)
"alter Justification")
(\TK.UCASE.SEL (%##U %##u)
"Uppercasify selection")
(\TK.CAPITALISE.SEL (%##C %##c)
"Capitalize selection")
(\TK.LCASE.SEL (%##L %##l)
"Lowercasify selection")
(GET.OBJ.FROM.USER (%##O %##o)
"insert Object")))
(RPAQ? TEDITKEY.KEYBINDINGS
`((\TK.FONT1 (%##1)
%,
(CONCAT "change to font " (\TK.NTHFONT 1)))
(\TK.FONT2 (%##2)
%,
(CONCAT "change to font " (\TK.NTHFONT 2)))
(\TK.FONT3 (%##3)
%,
(CONCAT "change to font " (\TK.NTHFONT 3)))
(\TK.FONT4 (%##4)
%,
(CONCAT "change to font " (\TK.NTHFONT 4)))
(\TK.FONT5 (%##5)
%,
(CONCAT "change to font " (\TK.NTHFONT 5)))
(\TK.FONT6 (%##6)
%,
(CONCAT "change to font " (\TK.NTHFONT 6)))
(\TK.FONT7 (%##7)
%,
(CONCAT "change to font " (\TK.NTHFONT 7)))
(\TK.FONT8 (%##8)
%,
(CONCAT "change to font " (\TK.NTHFONT 8)))
NIL
(\TK.DEFAULTS.CARET (%##/)
"restore the default caret looks")
(\TK.SMALLER.CARET (%##9)
"decrease the caret font size")
(\TK.LARGER.CARET (%##0)
"increase the caret font size")
(\TK.SHOWCARETLOOKS (%##=)
"display the current caret looks")
NIL
(\TK.REDISPLAY (%##R %##r)
"Restore the display")
(\TK.HELP (%##?)
"displays the current key bindings")
NIL
(\TK.PREVCHAR (^B ^b)
"Back one character")
(\TK.NEXTCHAR (^F ^f)
"Forward one character")
(\TK.FORWARD.WORD (%##F %##f)
"Forward one word")
(\TK.BACK.WORD (%##B %##b)
"Back one word")
(\TK.GOTOLINEBEGIN (^A ^a)
"go to stArt of line")
(\TK.GOTOLINEEND (^E ^e)
"go to End of line")
(\TK.PREVLINE (^P ^p)
"go to Previous line")
(\TK.NEXTLINE (^N ^n)
"go to Next line")
(\TK.GOTODOCBEGIN (%##<)
"start of document")
(\TK.GOTODOCEND (%##>)
"end of document")
(\TK.SELECT.ALL (%##S %##s)
"Select whole document")
NIL
(\TK.DELLINEFORWARD (^K ^k)
"Kill line")
(\TK.OPENLINE (^O ^o)
"Open up blank line")
(\TK.DELCHARFORWARD (^D ^d)
"Delete character forward")
(\TK.DEL.WORD.FORWARD (%##D %##d)
"Delete word forward")
(\TK.TRANSPOSECHARS (^T ^t)
"Transpose characters")
NIL NIL (\TK.NEST (|##[|)
"indents margins (nest)")
(\TK.UNNEST (|##]|)
"exdents margins (unnest)")
(\TK.CENTER.SEL (%##J %##j)
"alter Justification")
(\TK.UCASE.SEL (%##U %##u)
"Uppercasify selection")
(\TK.CAPITALISE.SEL (%##C %##c)
"Capitalize selection")
(\TK.LCASE.SEL (%##L %##l)
"Lowercasify selection")
(GET.OBJ.FROM.USER (%##O %##o)
"insert Object")))
(RPAQ? TEDITKEY.DLION.KEYACTIONS `((STOP (%, (CHARCODE ^G)
%,
(CHARCODE ^C)
NOLOCKSHIFT))
(OPEN (%, (CHARCODE 2,1)
%,
(CHARCODE 2,41)
NOLOCKSHIFT))
(FONT FONTDOWN . FONTUP)
(KEYBOARD USERMODE1DOWN . USERMODE1UP)))
(RPAQ? TEDITKEY.DLION.KEYACTIONS
`((STOP (%, (CHARCODE ^G)
%,
(CHARCODE ^C)
NOLOCKSHIFT))
(OPEN (%, (CHARCODE 2,1)
%,
(CHARCODE 2,41)
NOLOCKSHIFT))
(FONT FONTDOWN . FONTUP)
(KEYBOARD USERMODE1DOWN . USERMODE1UP)))
(RPAQ? COMS
(* ;; "(TEDITKEY.FNKEYACTIONS (BQUOTE ((CENTER (, (CHARCODE ##^B), (CHARCODE ##^C))) (BOLD (, (CHARCODE ##^D), (CHARCODE ##^E) NOLOCKSHIFT)) (ITALICS (, (CHARCODE ##^F), (CHARCODE ##^G) NOLOCKSHIFT)) (UNDERLINE (, (CHARCODE ##^H), (CHARCODE ##^I) NOLOCKSHIFT)) (SUPERSCRIPT (, (CHARCODE ##^J), (CHARCODE ##^K) NOLOCKSHIFT)) (SUBSCRIPT (, (CHARCODE ##^L), (CHARCODE ##^N) NOLOCKSHIFT)) (LARGER (, (CHARCODE ##^O), (CHARCODE ##^P) NOLOCKSHIFT)) (DEFAULTS (, (CHARCODE ##^Q), (CHARCODE ##^R) NOLOCKSHIFT)) (BS (, (CHARCODE ^H), (CHARCODE ^D) NOLOCKSHIFT)))))")
(* ;; "(TEDITKEY.FNKEYACTIONS (BQUOTE ((CENTER (, (CHARCODE ##^B), (CHARCODE ##^C))) (BOLD (, (CHARCODE ##^D), (CHARCODE ##^E) NOLOCKSHIFT)) (ITALICS (, (CHARCODE ##^F), (CHARCODE ##^G) NOLOCKSHIFT)) (UNDERLINE (, (CHARCODE ##^H), (CHARCODE ##^I) NOLOCKSHIFT)) (SUPERSCRIPT (, (CHARCODE ##^J), (CHARCODE ##^K) NOLOCKSHIFT)) (SUBSCRIPT (, (CHARCODE ##^L), (CHARCODE ##^N) NOLOCKSHIFT)) (LARGER (, (CHARCODE ##^O), (CHARCODE ##^P) NOLOCKSHIFT)) (DEFAULTS (, (CHARCODE ##^Q), (CHARCODE ##^R) NOLOCKSHIFT)) (BS (, (CHARCODE ^H), (CHARCODE ^D) NOLOCKSHIFT)))))")
)
(RPAQ? TEDITKEY.DLION.KEYBINDINGS '(((\ACTION 'OPEN)
\TK.OPENLINE)
((\ACTION 'HELP)
\TK.HELP)
((\ACTION 'MARGINS)
\TK.NEST)
((\SHIFTACTION 'MARGINS)
\TK.UNNEST)
((\SHIFTACTION 'NEXT)
GOTONEXTTTYWINDOW)))
(RPAQ? TEDITKEY.DLION.KEYBINDINGS
'(((\ACTION 'OPEN)
\TK.OPENLINE)
((\ACTION 'HELP)
\TK.HELP)
((\ACTION 'MARGINS)
\TK.NEST)
((\SHIFTACTION 'MARGINS)
\TK.UNNEST)
((\SHIFTACTION 'NEXT)
GOTONEXTTTYWINDOW)))
(RPAQ? TEDITKEY.FNKEYBINDINGS '(((\ACTION 'DEFAULTS)
\TK.DEFAULTSSEL)
@@ -1787,26 +1786,26 @@ Copyright (c) 1985, 1986, 1987 by Xerox Corporation. All rights reserved.
\TK.SETDEFAULTLOOKS)))
(RPAQ? COMS
(* ;; "NOT NEEDED (TEDITKEY.DLION.KEYSYNTAX (QUOTE (((\ACTION (QUOTE NEXT)) NEXT) ((\ACTION (QUOTE UNDO)) UNDO) ((\ACTION (QUOTE BS)) CHARDELETE))))")
(* ;; "NOT NEEDED (TEDITKEY.DLION.KEYSYNTAX (QUOTE (((\ACTION (QUOTE NEXT)) NEXT) ((\ACTION (QUOTE UNDO)) UNDO) ((\ACTION (QUOTE BS)) CHARDELETE))))")
)
(RPAQ? TEDITKEY.DORADO.KEYACTIONS `((BS (%, (CHARCODE ^H)
%,
(CHARCODE ^H)))
(BLANK-BOTTOM (%, (CHARCODE %##^A)
%,
(CHARCODE %##^A)))
(BLANK-TOP FONTDOWN . FONTUP)
(BLANK-MIDDLE USERMODE1DOWN . USERMODE1UP)
(CENTER (2,101 2,141 NOLOCKSHIFT))
(BOLD (2,102 2,142 NOLOCKSHIFT))
(ITALICS (2,103 2,143 NOLOCKSHIFT))
(UNDERLINE (2,106 2,146 NOLOCKSHIFT))
(SUPERSCRIPT (2,113 2,153 NOLOCKSHIFT))
(SUBSCRIPT (2,114 2,154 NOLOCKSHIFT))
(LARGER (2,110 2,150 NOLOCKSHIFT))
(DEFAULTS (2,115 2,155 NOLOCKSHIFT))))
(RPAQ? TEDITKEY.DORADO.KEYACTIONS
`((BS (%, (CHARCODE ^H)
%,
(CHARCODE ^H)))
(BLANK-BOTTOM (%, (CHARCODE %##^A)
%,
(CHARCODE %##^A)))
(BLANK-TOP FONTDOWN . FONTUP)
(BLANK-MIDDLE USERMODE1DOWN . USERMODE1UP)
(CENTER (2,101 2,141 NOLOCKSHIFT))
(BOLD (2,102 2,142 NOLOCKSHIFT))
(ITALICS (2,103 2,143 NOLOCKSHIFT))
(UNDERLINE (2,106 2,146 NOLOCKSHIFT))
(SUPERSCRIPT (2,113 2,153 NOLOCKSHIFT))
(SUBSCRIPT (2,114 2,154 NOLOCKSHIFT))
(LARGER (2,110 2,150 NOLOCKSHIFT))
(DEFAULTS (2,115 2,155 NOLOCKSHIFT))))
(RPAQ? TEDITKEY.DORADO.KEYSYNTAX '(((CHARCODE %##N)
NEXT)
@@ -1816,8 +1815,10 @@ Copyright (c) 1985, 1986, 1987 by Xerox Corporation. All rights reserved.
UNDO)
((\ACTION 'BS)
CHARDELETE)))
(TEDITKEY.INSTALL)
(\TK.BUILD.MENU)
(TEDITKEY.INSTALL)
(\TK.BUILD.MENU)
(DECLARE%: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS
(ADDTOVAR NLAMA )
@@ -1828,34 +1829,34 @@ Copyright (c) 1985, 1986, 1987 by Xerox Corporation. All rights reserved.
)
(PUTPROPS TEDITKEY COPYRIGHT ("Xerox Corporation" 1985 1986 1987))
(DECLARE%: DONTCOPY
(FILEMAP (NIL (15418 27849 (NTHCAR 15428 . 15557) (\TEXTOBJ.WINDEX 15559 . 16116) (\TK.PREVSCREEN
16118 . 18028) (\TK.UNDERLINE.SEL.ON 18030 . 18510) (\TK.UNDERLINE.SEL.OFF 18512 . 18995) (
\TK.BOLD.SEL.ON 18997 . 19589) (\TK.BOLD.SEL.OFF 19591 . 20187) (\TK.ITALIC.SEL.ON 20189 . 20537) (
\TK.ITALIC.SEL.OFF 20539 . 20890) (\TK.SMALLERSEL 20892 . 21529) (\TK.LARGERSEL 21531 . 22162) (
\TK.SUPERSCRIPTSEL 22164 . 22809) (\TK.SUBSCRIPTSEL 22811 . 23460) (\TK.DEFAULTSSEL 23462 . 24181) (
\TK.DEL.WORD.FORWARD 24183 . 25779) (\TK.UCASE.SEL 25781 . 26347) (\TK.CAPITALISE.SEL 26349 . 26963) (
\CAPITALISE 26965 . 27279) (\TK.LCASE.SEL 27281 . 27847)) (27921 32598 (\TK.CENTER.SEL 27931 . 29199)
(\TK.CENTER.SEL.REV 29201 . 30379) (\TK.NEST 30381 . 31361) (\TK.UNNEST 31363 . 32596)) (32682 42410 (
\TK.SHOWCARETLOOKS 32692 . 34003) (\TK.BOLD.CARET.ON 34005 . 34568) (\TK.BOLD.CARET.OFF 34570 . 35136)
(\TK.ITALIC.CARET.ON 35138 . 35703) (\TK.ITALIC.CARET.OFF 35705 . 36273) (\TK.UNDERLINE.CARET.ON
36275 . 36714) (\TK.UNDERLINE.CARET.OFF 36716 . 37158) (\TK.SUPERSCRIPT.CARET 37160 . 37802) (
\TK.SUBSCRIPT.CARET 37804 . 38462) (\TK.SMALLER.CARET 38464 . 39106) (\TK.LARGER.CARET 39108 . 39695)
(\TK.DEFAULTS.CARET 39697 . 40022) (\TK.FONT1 40024 . 40196) (\TK.FONT2 40198 . 40370) (\TK.FONT3
40372 . 40544) (\TK.SETCARETFONT 40546 . 41538) (\TK.FONT4 41540 . 41712) (\TK.FONT5 41714 . 41886) (
\TK.FONT6 41888 . 42060) (\TK.FONT7 42062 . 42234) (\TK.FONT8 42236 . 42408)) (42499 44831 (
\TK.BOLDTOGGLE 42509 . 43384) (\TK.ITALICTOGGLE 43386 . 44197) (\TK.UNDERLINETOGGLE 44199 . 44829)) (
44889 45351 (\TK.SETDEFAULTLOOKS 44899 . 45349)) (45412 58534 (GOTONEXTTTYWINDOW 45422 . 47701) (
\TK.NEXTLINE 47703 . 49591) (\TK.PREVLINE 49593 . 51693) (\TK.GOTODOCBEGIN 51695 . 52053) (
\TK.GOTODOCEND 52055 . 52406) (\TK.GOTOLINEBEGIN 52408 . 53192) (\TK.GOTOLINEEND 53194 . 54018) (
\TK.PREVCHAR 54020 . 54549) (\TK.NEXTCHAR 54551 . 55115) (\TK.FORWARD.WORD 55117 . 56654) (
\TK.BACK.WORD 56656 . 58224) (\TK.SELECT.ALL 58226 . 58532)) (58567 61606 (\TK.FIND 58577 . 58848) (
\TK.REDISPLAY 58850 . 59108) (\TK.DELLINEFORWARD 59110 . 59650) (\TK.OPENLINE 59652 . 59859) (
\TK.DELCHARFORWARD 59861 . 60248) (\TK.TRANSPOSECHARS 60250 . 61604)) (61675 63029 (\SEL.LIMIT 61685
. 62100) (\TK.SETFILEPTR.TO.CARET 62102 . 62529) (\SEL.LINEDESC 62531 . 63027)) (64449 81285 (
\SHIFTACTION 64459 . 64705) (\ACTION 64707 . 64949) (TEDITKEY.INSTALL 64951 . 72392) (
TEDITKEY.DEINSTALL 72394 . 72657) (\TK.ACTIONTOCHARCODE 72659 . 73122) (\TK.BUILD.MENU 73124 . 74440)
(\TK.HELP 74442 . 74753) (\TK.SETFONTINLOOKS 74755 . 77230) (WRITE.CHARDESC.AUX 77232 . 77988) (
CHARDESC 77990 . 78296) (TEDITKEY.CONFIGURE 78298 . 78453) (\TK.ADDKEY 78455 . 78655) (\TK.CHANGEKEY
78657 . 78852) (\TK.APPLYPENDING 78854 . 80960) (\TK.NTHFONT 80962 . 81283)) (81330 82491 (METASHIFT
81340 . 82489)) (82737 85563 (TEDIT.FULL.FIND 82747 . 85561)))))
(FILEMAP (NIL (15387 27818 (NTHCAR 15397 . 15526) (\TEXTOBJ.WINDEX 15528 . 16085) (\TK.PREVSCREEN
16087 . 17997) (\TK.UNDERLINE.SEL.ON 17999 . 18479) (\TK.UNDERLINE.SEL.OFF 18481 . 18964) (
\TK.BOLD.SEL.ON 18966 . 19558) (\TK.BOLD.SEL.OFF 19560 . 20156) (\TK.ITALIC.SEL.ON 20158 . 20506) (
\TK.ITALIC.SEL.OFF 20508 . 20859) (\TK.SMALLERSEL 20861 . 21498) (\TK.LARGERSEL 21500 . 22131) (
\TK.SUPERSCRIPTSEL 22133 . 22778) (\TK.SUBSCRIPTSEL 22780 . 23429) (\TK.DEFAULTSSEL 23431 . 24150) (
\TK.DEL.WORD.FORWARD 24152 . 25748) (\TK.UCASE.SEL 25750 . 26316) (\TK.CAPITALISE.SEL 26318 . 26932) (
\CAPITALISE 26934 . 27248) (\TK.LCASE.SEL 27250 . 27816)) (27890 32567 (\TK.CENTER.SEL 27900 . 29168)
(\TK.CENTER.SEL.REV 29170 . 30348) (\TK.NEST 30350 . 31330) (\TK.UNNEST 31332 . 32565)) (32651 42379 (
\TK.SHOWCARETLOOKS 32661 . 33972) (\TK.BOLD.CARET.ON 33974 . 34537) (\TK.BOLD.CARET.OFF 34539 . 35105)
(\TK.ITALIC.CARET.ON 35107 . 35672) (\TK.ITALIC.CARET.OFF 35674 . 36242) (\TK.UNDERLINE.CARET.ON
36244 . 36683) (\TK.UNDERLINE.CARET.OFF 36685 . 37127) (\TK.SUPERSCRIPT.CARET 37129 . 37771) (
\TK.SUBSCRIPT.CARET 37773 . 38431) (\TK.SMALLER.CARET 38433 . 39075) (\TK.LARGER.CARET 39077 . 39664)
(\TK.DEFAULTS.CARET 39666 . 39991) (\TK.FONT1 39993 . 40165) (\TK.FONT2 40167 . 40339) (\TK.FONT3
40341 . 40513) (\TK.SETCARETFONT 40515 . 41507) (\TK.FONT4 41509 . 41681) (\TK.FONT5 41683 . 41855) (
\TK.FONT6 41857 . 42029) (\TK.FONT7 42031 . 42203) (\TK.FONT8 42205 . 42377)) (42468 44800 (
\TK.BOLDTOGGLE 42478 . 43353) (\TK.ITALICTOGGLE 43355 . 44166) (\TK.UNDERLINETOGGLE 44168 . 44798)) (
44858 45320 (\TK.SETDEFAULTLOOKS 44868 . 45318)) (45381 58503 (GOTONEXTTTYWINDOW 45391 . 47670) (
\TK.NEXTLINE 47672 . 49560) (\TK.PREVLINE 49562 . 51662) (\TK.GOTODOCBEGIN 51664 . 52022) (
\TK.GOTODOCEND 52024 . 52375) (\TK.GOTOLINEBEGIN 52377 . 53161) (\TK.GOTOLINEEND 53163 . 53987) (
\TK.PREVCHAR 53989 . 54518) (\TK.NEXTCHAR 54520 . 55084) (\TK.FORWARD.WORD 55086 . 56623) (
\TK.BACK.WORD 56625 . 58193) (\TK.SELECT.ALL 58195 . 58501)) (58536 61575 (\TK.FIND 58546 . 58817) (
\TK.REDISPLAY 58819 . 59077) (\TK.DELLINEFORWARD 59079 . 59619) (\TK.OPENLINE 59621 . 59828) (
\TK.DELCHARFORWARD 59830 . 60217) (\TK.TRANSPOSECHARS 60219 . 61573)) (61644 63231 (\SEL.LIMIT 61654
. 62069) (\TK.SETFILEPTR.TO.CARET 62071 . 62498) (\SEL.LINEDESC 62500 . 63229)) (64698 81534 (
\SHIFTACTION 64708 . 64954) (\ACTION 64956 . 65198) (TEDITKEY.INSTALL 65200 . 72641) (
TEDITKEY.DEINSTALL 72643 . 72906) (\TK.ACTIONTOCHARCODE 72908 . 73371) (\TK.BUILD.MENU 73373 . 74689)
(\TK.HELP 74691 . 75002) (\TK.SETFONTINLOOKS 75004 . 77479) (WRITE.CHARDESC.AUX 77481 . 78237) (
CHARDESC 78239 . 78545) (TEDITKEY.CONFIGURE 78547 . 78702) (\TK.ADDKEY 78704 . 78904) (\TK.CHANGEKEY
78906 . 79101) (\TK.APPLYPENDING 79103 . 81209) (\TK.NTHFONT 81211 . 81532)) (81579 82740 (METASHIFT
81589 . 82738)) (82986 85812 (TEDIT.FULL.FIND 82996 . 85810)))))
STOP