abdb128636
* TMAX updates for compatibility with Tedit changes * DOC-OBJECTS changes for compatibility with Tedit changes * MODERNIZE update for Tedit split windows * Core Tedit files * IMAGEOBJ: Remove dependency on Tedit internals * WINDOW: Remove dependency on Tedit internal declaration Still strange that WFROMDS should have to branch on Tedit * WINDOWOBJ gets window of TTY process before the window of the stream of the TTY process So insert into Tedit works * TEDIT-CHAT: try to use TEXTSTREAM vs TEXTOBJ * Fix tab-initialization problem in SLIDES.TEDIT as reported by @nbriggs * TEDIT-CHAT: use TSTREAM rather than TEXTOBJ * Updates after lots more testing, particularly scrolling Some other files dragged along to avoid dependence on Tedit internals * Remove unwanted SAVE.SYSOUT * Addresses more end-of-file and empty-file display issues Try it again * TEDIT-DEBUG tracking other changes * Odds and ends * Adjust EOF selection and caret-scrolling on copy * More cleanup, plus fixing a few more ancient (Venue) glitches As usual, the problems have to do with the funky behavior of EOL's in the middle and end of the document. More abstraction and refactoring to get better control of this (I hope). * TEDIT-WINDOW: Scroll down of big objects Trying to fix what happens at the transition when scrolling down brings a big-object's top down in the window. Approach is to bring down the line above, which may make for a little jump. I hope that solves it. Scrolling up still needs some adjustment. * Eliminate junk at top of window after up/down scrolling of big objects BLTSHADE is OK there for scrolling, but not for redisplay after editing. In the edit case, the top of the pane above the last valid line is preserved. Scrolling still has the problem that the window can go blank at the first scroll that brings a tall object into the pane--still working on that. * Scrolling with tall lines should be more continuous * Another tweak for scrolling plus interface extension to TEDIT.MOVE and TEDIT.COPY, a little more on field menus * More robust strategy for field menu buttons Surround the field with prefix and suffix pieces with image objects that print the pre and post labels and shift the selection forward or backward into the field. Doesn't depend on inherited quirky logic in the selection line-scanner. * Field selection ignores right and middle clicks * A little more menu/selection tweaking You can't extend through fields and buttons * Added CUSTOMBUTTONEVENTFN to menu field buttons Also, menu buttons in general can't be deleted * A few more glitches, plus a little selection refactoring for buttons * Reduce flicker in pargraph menu margin bar * screen update glitch * DOC-OBJECTS, TEDIT-SCREEN: Fixes the HCFILES DOC-OBJECTS failure * TEDIT-BUTTONS: Field values should always be shown in the specified FIELDFONT * Abstracting the structure of the history lists cleanup, but mostly as a precursor to maybe doing a ring buffer of a specified length * TEDIT-FILE, a little font-reading cleanup * Include the files from rmk-39 that deal with the text/binary renamefile problem * TEDIT-PAGE addresses #1905 * Fix BUTTONSTART to STARTPC in Put/Get menu buttons * Use width of M as width of EOL--easy to select Also put in function call for potential kerning--needs eventual FONT support * Rename a few internal functions from TEDIT.-- to \TEDIT.-- * Doesn't make sense for a charlooks to not have a font * TEDIT-BUTTONS - Fix comment * Take out Tedit internals from \CARET.FLASH? Should have included this in fifth round long ago * TEDIT-FILE: use DEFAULTFONT for .sh files Easier to follow the layout * TEDIT-LOOKS: fix loadup order * tedit-exports.all Remove line-has-protection field Useless * Make sure that charlooks change as expected * External format for .sh files is UTF-8 * Better display of history information for debugging * Button changes: show document font families, better fields * TEDIT-WINDOW, remove extra truncated line with down-scroll * TEDIT-SELECTION: suppress line/paragraph selection for built-in menus Line/para selection would be reasonable for multi-line fields, but most menu lines have protected text that would behave inconsistently. So just suppress * Better support for potential kerning * Fix empty field value * Simplify ASCII translation code * Make sure headings have a default tab * Word boundary at character 1 * Remember that you specified a font class instead of a font For the charlooks menu, but also so that it is saved on a put * More items on the Family NWAY-button line * glitch * TEDIT-LOOKS: Better algorithm for Ascii translation * Charmenu remembers previous "Other" fonts, even if not installed * Fix initial piece index * Fix fontclass changes (again)
27 lines
4.5 KiB
Plaintext
27 lines
4.5 KiB
Plaintext
Medley TEDIT-PF-SEE
|
||
2
|
||
|
||
4
|
||
|
||
1
|
||
|
||
TEDIT-PF-SEE
|
||
1
|
||
|
||
4
|
||
|
||
By: Ron Kaplan
|
||
This document created in January 2022, last edited August 2024.
|
||
This tiny package adds alternatives to the PF and SEE commands that produce their output in scrollable read-only TEDIT windows rather than the unscrollable EXEC window. The new commands are tf (for t(edit)f(unction) and ts for t(edit)s(ee)
|
||
tf FUNCTION (FILELIST) (REPRINT) [command]
|
||
prints the definitions of FUNCTION that appear in the files in FILELIST, with a separate TEDIT allocated for each definition. If FILELST is not provided, then WHEREIS is used to locate the defintions, just as with PF. By default the definition characters are simply copied from the source file to the TEDIT stream, but if REPRINT is T the definition is read and then reprinted. This produces useful output for definitions that were not pretty-printed. Also, if FUNCTION is not provided, definitions for the last invocation will be reprinted.
|
||
ts FILE (WINDOW) [command]
|
||
shows the contents of FILE in a scrollable read-only TEDIT WINDOW. This uses the function TEDIT-SEE (also used for the FILEBROWSER See command), which interprets any font changes if FILE is a Lisp source file.
|
||
Meta,T Meta,t [Tedit command keys]
|
||
are armed in the Tedit readtable to cause the definition of the function named in the document's current selection to be shown in a separate read-only Tedit window.
|
||
TEDIT-PF-SEE loads the REGIONMANAGER package, and the default regions for tf and ts are of type PF-TEDIT and SEE-TEDIT respectively. The function SET-TYPED-REGIONS can be used to predefine the regions where the output for tf and ts (and the meta command-keys) will appear.
|
||
|
||
(SEQUENCE NIL NIL (0 0 0 0) ((PAGE NIL (PAPERSIZE Letter FOLIOINFO (ARABIC) STARTINGPAGE# 1) (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))) (ALTERNATE NIL NIL (0 0 0 0) ((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))))))) 1 $ 1 $ 4 È $È 1 È $ 1 Š Š8 $ 1 Š Š8 $ J È $È PAGEHEADING RUNNINGHEAD MODERN
|
||
‡ y(DEFAULTFONT 1 (TERMINAL 12) (TERMINAL 8) (TERMINAL 8) (PDF (TERMINAL 8)) (TEXT (TERMINAL 12)) (POSTSCRIPT (TERMINAL 8))) TERMINAL MODERN
|
||
TIMESROMAN $ HRULE.GETFN HRULE.GETFN HRULE.GETFN
|
||
HRULE.GETFN HRULE.GETFN @ ð F $ 0 U … I
|
||
$ ' # ¥
|
||
< š DATE:hâ<68>š Uzº |