TEDIT compatible with new printing architecture
Tedit files are of type TEDIT, not TEXT, new interface function TEDIT.TO.IMAGEFILE
This commit is contained in:
rmkaplan
parent
6d163daae9
commit
18567383e1
@ -1,12 +1,12 @@
|
||||
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
|
||||
|
||||
(FILECREATED "13-Nov-2025 21:00:34" {WMEDLEY}<library>TEDIT>TEDIT.;844 144838
|
||||
(FILECREATED "24-Dec-2025 22:45:39" {WMEDLEY}<library>TEDIT>TEDIT.;847 145111
|
||||
|
||||
:EDIT-BY rmk
|
||||
|
||||
:CHANGES-TO (FNS TEDIT.INSERT \TEDIT.INSERT)
|
||||
:CHANGES-TO (VARS TEDITCOMS)
|
||||
|
||||
:PREVIOUS-DATE "28-Oct-2025 00:29:56" {WMEDLEY}<library>TEDIT>TEDIT.;843)
|
||||
:PREVIOUS-DATE "24-Dec-2025 11:23:12" {WMEDLEY}<library>TEDIT>TEDIT.;846)
|
||||
|
||||
|
||||
(PRETTYCOMPRINT TEDITCOMS)
|
||||
@ -76,8 +76,9 @@
|
||||
(VARS (TEDITSYSTEMDATE (TEDITSYSTEMDATE]
|
||||
(COMS (* ;
|
||||
"IMAGETYPE Interface, so the system can decide if a file is a TEdit file.")
|
||||
(ADDVARS (PRINTFILETYPES (TEDIT (TEST TEDIT.FORMATTEDFILEP)
|
||||
(EXTENSION (TEDIT TED])
|
||||
(FNS TEDIT.IMAGESOURCEP)
|
||||
(ALISTS (PRINTFILETYPES TEDIT))
|
||||
(P (DEFAULT.IMAGETYPE.CONVERSIONS '(TEDIT TEDIT.TO.IMAGEFILE])
|
||||
|
||||
(FILESLOAD (SYSLOAD)
|
||||
POSTSCRIPTSTREAM PDFSTREAM WHEELSCROLL)
|
||||
@ -2317,30 +2318,40 @@
|
||||
|
||||
(* ; "IMAGETYPE Interface, so the system can decide if a file is a TEdit file.")
|
||||
|
||||
(DEFINEQ
|
||||
|
||||
(ADDTOVAR PRINTFILETYPES (TEDIT (TEST TEDIT.FORMATTEDFILEP)
|
||||
(TEDIT.IMAGESOURCEP
|
||||
[LAMBDA (X) (* ; "Edited 23-Dec-2025 11:26 by rmk")
|
||||
(OR (TEXTSTREAM X T)
|
||||
(TEDIT.FORMATTEDFILEP X])
|
||||
)
|
||||
|
||||
(ADDTOVAR PRINTFILETYPES (TEDIT (TEST TEDIT.IMAGESOURCEP)
|
||||
(EXTENSION (TEDIT TED))))
|
||||
|
||||
(DEFAULT.IMAGETYPE.CONVERSIONS '(TEDIT TEDIT.TO.IMAGEFILE))
|
||||
(DECLARE%: DONTCOPY
|
||||
(FILEMAP (NIL (4838 7232 (MAKE-TEDIT-EXPORTS.ALL 4848 . 5394) (UPDATE-TEDIT 5396 . 6325) (EDIT-TEDIT
|
||||
6327 . 7230)) (8662 36440 (TEDIT 8672 . 11286) (TEXTSTREAM 11288 . 13177) (TEXTSTREAMP 13179 . 13563)
|
||||
(COERCETEXTSTREAM 13565 . 17776) (TEDIT.CONCAT 17778 . 21080) (TEDITSTRING 21082 . 21996) (TEDIT-SEE
|
||||
21998 . 22682) (TEDIT.COPY 22684 . 24829) (TEDIT.DELETE 24831 . 26192) (TEDIT.INSERT 26194 . 29163) (
|
||||
TEDIT.TERPRI 29165 . 30279) (TEDIT.KILL 30281 . 31263) (TEDIT.QUIT 31265 . 32631) (TEDIT.MOVE 32633 .
|
||||
33521) (TEDIT.STRINGWIDTH 33523 . 34194) (TEDIT.CHARWIDTH 34196 . 36438)) (36441 38382 (TEXTOBJ 36451
|
||||
. 36916) (COERCETEXTOBJ 36918 . 38380)) (39782 41432 (TDRIBBLE 39792 . 41430)) (41473 53369 (
|
||||
TEDIT.INSERT.OBJECT 41483 . 45190) (TEDIT.EDIT.OBJECT 45192 . 48132) (TEDIT.OBJECT.CHANGED 48134 .
|
||||
51324) (TEDIT.MAP.OBJECTS 51326 . 52897) (\TEDIT.FIRST.OBJPIECE 52899 . 53132) (\TEDIT.NEXT.OBJPIECE
|
||||
53134 . 53367)) (53392 60835 (\TEDIT.CONCAT.PAGEFRAMES 53402 . 58469) (\TEDIT.GET.PAGE.HEADINGS 58471
|
||||
. 59500) (\TEDIT.CONCAT.INSTALL.HEADINGS 59502 . 60833)) (60836 64443 (\TEDIT.MOVE.MSG 60846 . 62927)
|
||||
(\TEDIT.READONLY 62929 . 64441)) (64444 70335 (TEDIT.NCHARS 64454 . 64827) (TEDIT.RPLCHARCODE 64829
|
||||
. 67819) (TEDIT.NTHCHARCODE 67821 . 69864) (TEDIT.NTHCHAR 69866 . 70333)) (70381 127158 (\TEDIT1
|
||||
70391 . 72468) (\TEDIT.INSERT 72470 . 78583) (\TEDIT.MOVE 78585 . 86491) (\TEDIT.COPY 86493 . 91024) (
|
||||
\TEDIT.REPLACE.SELPIECES 91026 . 95562) (\TEDIT.INSERT.SELPIECES 95564 . 98561) (\TEDIT.RESTARTFN
|
||||
98563 . 101068) (\TEDIT.CHARDELETE 101070 . 103999) (\TEDIT.COPYPIECE 104001 . 109163) (
|
||||
\TEDIT.APPLY.OBJFN 109165 . 112251) (\TEDIT.DELETE 112253 . 116621) (\TEDIT.DIFFUSE.PARALOOKS 116623
|
||||
. 118894) (\TEDIT.WORDDELETE 118896 . 120511) (\TEDIT.WORDDELETE.FORWARD 120513 . 122302) (
|
||||
\TEDIT.FINISHEDIT? 122304 . 127156)) (127159 127818 (\TEDIT.THELP 127169 . 127816)) (127852 136983 (
|
||||
\TEDIT.PARAPIECES 127862 . 129836) (\TEDIT.PARACHNOS 129838 . 130730) (\TEDIT.PARA.FIRST 130732 .
|
||||
133833) (\TEDIT.PARA.LAST 133835 . 136981)) (136984 144079 (\TEDIT.WORD.FIRST 136994 . 140998) (
|
||||
\TEDIT.WORD.LAST 141000 . 144077)) (144280 144557 (TEDITSYSTEMDATE 144290 . 144555)))))
|
||||
(FILEMAP (NIL (4840 7234 (MAKE-TEDIT-EXPORTS.ALL 4850 . 5396) (UPDATE-TEDIT 5398 . 6327) (EDIT-TEDIT
|
||||
6329 . 7232)) (8664 36442 (TEDIT 8674 . 11288) (TEXTSTREAM 11290 . 13179) (TEXTSTREAMP 13181 . 13565)
|
||||
(COERCETEXTSTREAM 13567 . 17778) (TEDIT.CONCAT 17780 . 21082) (TEDITSTRING 21084 . 21998) (TEDIT-SEE
|
||||
22000 . 22684) (TEDIT.COPY 22686 . 24831) (TEDIT.DELETE 24833 . 26194) (TEDIT.INSERT 26196 . 29165) (
|
||||
TEDIT.TERPRI 29167 . 30281) (TEDIT.KILL 30283 . 31265) (TEDIT.QUIT 31267 . 32633) (TEDIT.MOVE 32635 .
|
||||
33523) (TEDIT.STRINGWIDTH 33525 . 34196) (TEDIT.CHARWIDTH 34198 . 36440)) (36443 38384 (TEXTOBJ 36453
|
||||
. 36918) (COERCETEXTOBJ 36920 . 38382)) (39784 41434 (TDRIBBLE 39794 . 41432)) (41475 53371 (
|
||||
TEDIT.INSERT.OBJECT 41485 . 45192) (TEDIT.EDIT.OBJECT 45194 . 48134) (TEDIT.OBJECT.CHANGED 48136 .
|
||||
51326) (TEDIT.MAP.OBJECTS 51328 . 52899) (\TEDIT.FIRST.OBJPIECE 52901 . 53134) (\TEDIT.NEXT.OBJPIECE
|
||||
53136 . 53369)) (53394 60837 (\TEDIT.CONCAT.PAGEFRAMES 53404 . 58471) (\TEDIT.GET.PAGE.HEADINGS 58473
|
||||
. 59502) (\TEDIT.CONCAT.INSTALL.HEADINGS 59504 . 60835)) (60838 64445 (\TEDIT.MOVE.MSG 60848 . 62929)
|
||||
(\TEDIT.READONLY 62931 . 64443)) (64446 70337 (TEDIT.NCHARS 64456 . 64829) (TEDIT.RPLCHARCODE 64831
|
||||
. 67821) (TEDIT.NTHCHARCODE 67823 . 69866) (TEDIT.NTHCHAR 69868 . 70335)) (70383 127160 (\TEDIT1
|
||||
70393 . 72470) (\TEDIT.INSERT 72472 . 78585) (\TEDIT.MOVE 78587 . 86493) (\TEDIT.COPY 86495 . 91026) (
|
||||
\TEDIT.REPLACE.SELPIECES 91028 . 95564) (\TEDIT.INSERT.SELPIECES 95566 . 98563) (\TEDIT.RESTARTFN
|
||||
98565 . 101070) (\TEDIT.CHARDELETE 101072 . 104001) (\TEDIT.COPYPIECE 104003 . 109165) (
|
||||
\TEDIT.APPLY.OBJFN 109167 . 112253) (\TEDIT.DELETE 112255 . 116623) (\TEDIT.DIFFUSE.PARALOOKS 116625
|
||||
. 118896) (\TEDIT.WORDDELETE 118898 . 120513) (\TEDIT.WORDDELETE.FORWARD 120515 . 122304) (
|
||||
\TEDIT.FINISHEDIT? 122306 . 127158)) (127161 127820 (\TEDIT.THELP 127171 . 127818)) (127854 136985 (
|
||||
\TEDIT.PARAPIECES 127864 . 129838) (\TEDIT.PARACHNOS 129840 . 130732) (\TEDIT.PARA.FIRST 130734 .
|
||||
133835) (\TEDIT.PARA.LAST 133837 . 136983)) (136986 144081 (\TEDIT.WORD.FIRST 136996 . 141000) (
|
||||
\TEDIT.WORD.LAST 141002 . 144079)) (144282 144559 (TEDITSYSTEMDATE 144292 . 144557)) (144695 144902 (
|
||||
TEDIT.IMAGESOURCEP 144705 . 144900)))))
|
||||
STOP
|
||||
|
||||
@ -1,12 +1,14 @@
|
||||
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
|
||||
|
||||
(FILECREATED "19-Sep-2025 17:08:05" {WMEDLEY}<library>TEDIT>TEDIT-HCPY.;186 30742
|
||||
(FILECREATED "24-Dec-2025 11:16:22" {WMEDLEY}<library>TEDIT>TEDIT-HCPY.;194 32124
|
||||
|
||||
:EDIT-BY rmk
|
||||
|
||||
:CHANGES-TO (FNS TEDIT.HARDCOPYFN)
|
||||
:CHANGES-TO (FNS TEDIT.HARDCOPY \TEDIT.PRINT.MENU TEDIT.FORMAT.HARDCOPY TEDIT.IMAGEFILE.MESSAGE
|
||||
)
|
||||
(VARS TEDIT-HCPYCOMS)
|
||||
|
||||
:PREVIOUS-DATE "19-Sep-2025 08:35:34" {WMEDLEY}<library>TEDIT>TEDIT-HCPY.;185)
|
||||
:PREVIOUS-DATE "11-Dec-2025 23:23:30" {WMEDLEY}<library>TEDIT>TEDIT-HCPY.;189)
|
||||
|
||||
|
||||
(PRETTYCOMPRINT TEDIT-HCPYCOMS)
|
||||
@ -15,9 +17,10 @@
|
||||
((COMS
|
||||
(* ;; "Generic interface functions and common code")
|
||||
|
||||
(FNS TEDIT.HARDCOPY \TEDIT.PRINT.MENU TEDIT.HCPYFILE \TEDIT.HARDCOPY.DISPLAYLINE
|
||||
\TEDIT.HARDCOPY.FORMATLINE.HEADINGS \TEDIT.HARDCOPY.MODIFYLOOKS \TEDIT.HCPYFMTSPEC
|
||||
\TEDIT.INTEGER.IMAGEBOX \TEDIT.DISPLAY.DIACRITIC))
|
||||
(FNS TEDIT.HARDCOPY TEDIT.FORMAT.HARDCOPY TEDIT.IMAGEFILE.MESSAGE \TEDIT.PRINT.MENU
|
||||
\TEDIT.HARDCOPY.DISPLAYLINE \TEDIT.HARDCOPY.FORMATLINE.HEADINGS
|
||||
\TEDIT.HARDCOPY.MODIFYLOOKS \TEDIT.HCPYFMTSPEC \TEDIT.INTEGER.IMAGEBOX
|
||||
\TEDIT.DISPLAY.DIACRITIC))
|
||||
(COMS
|
||||
(* ;; "Functions for scaling regions as needed during hardcopy.")
|
||||
|
||||
@ -27,9 +30,9 @@
|
||||
(INITVARS (TEDIT.DEFAULTPAGEREGION (\TEDIT.SCALEREGION MICASPERINCH
|
||||
(CREATEREGION 1.1 0.75 6.4 9.25]
|
||||
(COMS
|
||||
(* ;; "Support for the window-menu's HARDCOPY button, LISTFILES, etc. THIS IS SCREWY")
|
||||
(* ;; "Support for the window-menu's HARDCOPY button, LISTFILES, etc. Eliminated postscript, but this still may be screwy")
|
||||
|
||||
(FNS TEDIT.HARDCOPYFN \TEDIT.HARDCOPYFILEFN \TEDIT.POSTSCRIPT.HARDCOPY))
|
||||
(FNS \TEDIT.HARDCOPYFILEFN))
|
||||
[COMS
|
||||
(* ;; "vars for Japanese Line Break")
|
||||
|
||||
@ -56,73 +59,114 @@
|
||||
|
||||
(TEDIT.HARDCOPY
|
||||
[LAMBDA (STREAM FILE DONTSEND BREAKPAGETITLE SERVER PRINTOPTIONS)
|
||||
(* ; "Edited 17-Dec-2025 01:06 by rmk")
|
||||
(* ; "Edited 6-Mar-2024 23:33 by rmk")
|
||||
(* ; "Edited 5-Jan-88 16:09 by jds")
|
||||
|
||||
(* ;; "Send the text to a printer, unless DONTSEND. If DONTSEND and we can't find a server, we'll get the DEFAULTPRINTERTYPE.")
|
||||
|
||||
(CL:UNLESS SERVER (SETQ SERVER DEFAULTPRINTINGHOST))
|
||||
(CL:UNLESS SERVER
|
||||
(SETQ SERVER (CAR (DEFAULTPRINTERS))))
|
||||
(COND
|
||||
[(OR SERVER DONTSEND)
|
||||
(for IMAGETYPE in (PRINTERPROP (PRINTERTYPE SERVER)
|
||||
'CANPRINT)
|
||||
do (RETURN (TEDIT.FORMAT.HARDCOPY STREAM FILE DONTSEND BREAKPAGETITLE SERVER PRINTOPTIONS
|
||||
do (RETURN (TEDIT.FORMAT.HARDCOPY STREAM FILE DONTSEND BREAKPAGETITLE SERVER PRINTOPTIONS
|
||||
IMAGETYPE)) finally (ERROR (CONCAT "Can't print TEDIT documents on a "
|
||||
(PRINTERTYPE SERVER)
|
||||
" printer."]
|
||||
(T (TEDIT.PROMPTPRINT (TEXTOBJ STREAM)
|
||||
"Can't HARDCOPY: No print server specified." T])
|
||||
|
||||
(TEDIT.FORMAT.HARDCOPY
|
||||
[LAMBDA (TSTREAM IMAGESTREAM DONTSEND BREAKPAGETITLE SERVER PRINTOPTIONS IMAGETYPE FIRSTPG# STARTPG
|
||||
ENDPG QUIET) (* ; "Edited 14-Dec-2025 17:40 by rmk")
|
||||
(* ; "Edited 8-Dec-2025 18:08 by rmk")
|
||||
(* ; "Edited 7-Dec-2025 15:06 by rmk")
|
||||
(* ; "Edited 19-Sep-2025 22:04 by rmk")
|
||||
(* ; "Edited 18-Sep-2025 10:11 by rmk")
|
||||
(* ; "Edited 12-Sep-2025 23:54 by rmk")
|
||||
(* ; "Edited 5-Jun-2025 08:24 by rmk")
|
||||
(* ; "Edited 22-Apr-2025 08:12 by rmk")
|
||||
(* ; "Edited 30-Aug-2024 15:45 by rmk")
|
||||
(* ; "Edited 5-Apr-2024 08:01 by rmk")
|
||||
(* ; "Edited 19-Jan-2024 23:39 by rmk")
|
||||
(* ; "Edited 15-Nov-2023 23:56 by rmk")
|
||||
(* ; "Edited 4-Jul-2023 11:16 by rmk")
|
||||
(* ; "Edited 2-Oct-2022 00:00 by rmk")
|
||||
(* ;
|
||||
"Edited 25-May-93 13:06 by sybalsky:mv:envos")
|
||||
|
||||
(* ;; "Format a document for hardcopy. Returns NIL if the before-print-fn said not to print.")
|
||||
|
||||
(* ;; "TEXTSTREAM is either already a textstream or somehow denotes a tedit-formatted file, otherwise an error. We don't here try to decide that a non-formatted file is a plain text file, as opposed binary or anything else.")
|
||||
|
||||
(RESETLST
|
||||
(LET [(IMAGEFILE (TEDIT.TO.IMAGEFILE TSTREAM IMAGESTREAM (OR IMAGETYPE DEFAULTPRINTERTYPE)
|
||||
`(,@PRINTOPTIONS FIRSTPG# ,FIRSTPG# STARTPG ,STARTPG ENDPG
|
||||
,ENDPG DOCUMENT.NAME ,BREAKPAGETITLE]
|
||||
(CL:UNLESS (OR DONTSEND (EQ IMAGEFILE IMAGESTREAM))
|
||||
|
||||
(* ;; "If the caller gave us an already open image stream, not just a filename (or NIL), we assume that the caller will close it and send to the printer, if necessary.")
|
||||
|
||||
(SEND.FILE.TO.PRINTER IMAGEFILE SERVER `(DOCUMENT.NAME ,BREAKPAGETITLE
|
||||
,@PRINTOPTIONS DOCUMENT.NAME
|
||||
"TEdit Hardcopy Output")))
|
||||
(CL:UNLESS QUIET (TEDIT.IMAGEFILE.MESSAGE TSTREAM))
|
||||
IMAGEFILE))])
|
||||
|
||||
(TEDIT.IMAGEFILE.MESSAGE
|
||||
[LAMBDA (TSTREAM) (* ; "Edited 14-Dec-2025 17:40 by rmk")
|
||||
|
||||
(* ;; "Description of last imagefile goes in promptwindow")
|
||||
|
||||
(LET* ((LASTIMAGEFILE (GETTEXTPROP TSTREAM 'LASTIMAGEFILE))
|
||||
(NPAGES (pop LASTIMAGEFILE))
|
||||
(IMAGESTREAM (pop LASTIMAGEFILE))
|
||||
(PRINTERNAME (pop LASTIMAGEFILE)))
|
||||
(TEDIT.PROMPTPRINT TSTREAM [CONCAT NPAGES " page" (CL:IF (EQ 1 NPAGES)
|
||||
""
|
||||
"s")
|
||||
(if PRINTERNAME
|
||||
then (CONCAT " printed on " PRINTERNAME)
|
||||
elseif (STREAMP IMAGESTREAM)
|
||||
then " printed"
|
||||
else (CONCAT " on " (PSEUDOFILENAME IMAGESTREAM]
|
||||
T])
|
||||
|
||||
(\TEDIT.PRINT.MENU
|
||||
[LAMBDA (TSTREAM) (* ; "Edited 19-Sep-2025 07:43 by rmk")
|
||||
[LAMBDA (TSTREAM) (* ; "Edited 17-Dec-2025 00:09 by rmk")
|
||||
(* ; "Edited 14-Dec-2025 17:38 by rmk")
|
||||
(* ; "Edited 13-Dec-2025 08:35 by rmk")
|
||||
(* ; "Edited 19-Sep-2025 07:43 by rmk")
|
||||
(* ; "Edited 28-Jun-2024 22:09 by rmk")
|
||||
(* ; "Edited 25-Jun-2023 13:16 by rmk")
|
||||
(* ; "Edited 6-Jun-2023 17:48 by rmk")
|
||||
(LET ((W (GETTOBJ (TEXTOBJ TSTREAM)
|
||||
PRIMARYPANE))
|
||||
FILE&TYPE)
|
||||
(* ; "Edited 25-Jun-2023 13:16 by rmk")
|
||||
(SETQ TSTREAM (TEXTSTREAM (GETTOBJ (TEXTOBJ TSTREAM)
|
||||
PRIMARYPANE)))
|
||||
(TEDIT.PROMPTCLEAR TSTREAM) (* ; "Edited 6-Jun-2023 17:48 by rmk")
|
||||
(LET (FILE&TYPE)
|
||||
(SELECTQ [MENU (create MENU
|
||||
ITEMS _ '(("Print to a file" 'FILE
|
||||
"Puts image on a file; prompts for filename and format"
|
||||
)
|
||||
("Send to a printer" 'PRINTER
|
||||
"Sends image to a printer of your choosing"]
|
||||
(FILE (CL:WHEN (SETQ FILE&TYPE (GetImageFile W))
|
||||
(TEDIT.TO.IMAGEFILE W (CAR FILE&TYPE)
|
||||
(CDR FILE&TYPE))))
|
||||
(PRINTER [SEND.FILE.TO.PRINTER (TEXTSTREAM W)
|
||||
(GetPrinterName)
|
||||
`(HEADING ,(GETTEXTPROP W 'FILENAME])
|
||||
NIL])
|
||||
|
||||
(TEDIT.HCPYFILE
|
||||
[LAMBDA (TSTREAM FILE BREAKPAGETITLE) (* ; "Edited 18-Sep-2025 11:21 by rmk")
|
||||
(* ; "Edited 29-Jun-2024 16:33 by rmk")
|
||||
(* ; "Edited 4-Oct-2022 09:23 by rmk")
|
||||
(* ; "Edited 1-Oct-2022 22:12 by rmk")
|
||||
|
||||
(* ;; "Not sure that this is ever called. Not documented.")
|
||||
(* ; "Edited 12-Jun-90 18:36 by mitani")
|
||||
|
||||
(* ;; "Create a hardcopy-format FILE from the text on TSTREAM, with the file type depending on what the default printer is.")
|
||||
|
||||
(LET ((IMAGETYPE DEFAULTPRINTERTYPE)
|
||||
TXTFILE)
|
||||
(CL:UNLESS FILE
|
||||
[SETQ FILE (\TEDIT.MAKEFILENAME (TEDIT.GETINPUT TSTREAM (CONCAT IMAGETYPE
|
||||
" file name: ")
|
||||
(CL:WHEN (SETQ TXTFILE (GETTEXTPROP TSTREAM
|
||||
'FILENAME))
|
||||
(* ;
|
||||
"There was a file, so supply default")
|
||||
(PACKFILENAME 'VERSION NIL 'EXTENSION
|
||||
(CAR (EXTENSIONS.FOR.IMAGEFILETYPE
|
||||
IMAGETYPE))
|
||||
'BODY TXTFILE))])
|
||||
(if FILE
|
||||
then [TEDIT.TO.IMAGEFILE TSTREAM FILE IMAGETYPE `(BREAKPAGEFILENAME `BREAKPAGETITLE]
|
||||
else (TEDIT.PROMPTPRINT TSTREAM "No hardcopy file--aborted" T T)
|
||||
NIL])
|
||||
(FILE [LET [(FILENAME (GETTEXTPROP TSTREAM 'FILENAME]
|
||||
(CL:WHEN FILENAME
|
||||
(SETQ FILENAME (PACKFILENAME
|
||||
'VERSION NIL 'EXTENSION
|
||||
[L-CASE (CAR (EXTENSIONS.FOR.IMAGEFILETYPE
|
||||
(CAR (PRINTERPROP (PRINTERTYPE
|
||||
:DEFAULTPRINTER)
|
||||
'CANPRINT]
|
||||
'BODY FILENAME)))
|
||||
(CL:WHEN (SETQ FILE&TYPE (GetImageFile FILENAME))
|
||||
(TEDIT.TO.IMAGEFILE TSTREAM (CAR FILE&TYPE)
|
||||
(CDR FILE&TYPE)))])
|
||||
(PRINTER [SEND.FILE.TO.PRINTER TSTREAM (GetPrinterName)
|
||||
`(HEADING ,(GETTEXTPROP TSTREAM 'FILENAME])
|
||||
NIL)
|
||||
(TEDIT.IMAGEFILE.MESSAGE TSTREAM])
|
||||
|
||||
(\TEDIT.HARDCOPY.DISPLAYLINE
|
||||
[LAMBDA (TSTREAM LINE REGION PRSTREAM FORMATTINGSTATE) (* ; "Edited 21-Apr-2025 19:02 by rmk")
|
||||
@ -420,29 +464,12 @@
|
||||
|
||||
|
||||
|
||||
(* ;; "Support for the window-menu's HARDCOPY button, LISTFILES, etc. THIS IS SCREWY")
|
||||
(* ;;
|
||||
"Support for the window-menu's HARDCOPY button, LISTFILES, etc. Eliminated postscript, but this still may be screwy"
|
||||
)
|
||||
|
||||
(DEFINEQ
|
||||
|
||||
(TEDIT.HARDCOPYFN
|
||||
[LAMBDA (WINDOW IMAGEFILE IMAGETYPE) (* ; "Edited 19-Sep-2025 13:49 by rmk")
|
||||
(* ; "Edited 12-Sep-2025 21:50 by rmk")
|
||||
(* ; "Edited 13-Dec-2024 22:33 by rmk")
|
||||
(* ; "Edited 29-Jun-2024 14:42 by rmk")
|
||||
(* ; "Edited 20-Mar-2024 10:49 by rmk")
|
||||
(* ; "Edited 25-Sep-2023 16:29 by rmk")
|
||||
(* ; "Edited 4-Jul-2023 11:16 by rmk")
|
||||
(* ; "Edited 21-Sep-2021 15:33 by rmk:")
|
||||
|
||||
(* ;;
|
||||
"This is the TEdit HARDCOPYFN, hooking into the system's standard Hardcopy window-menu operation.")
|
||||
|
||||
(TEDIT.TO.IMAGEFILE (CL:IF (FGETTOBJ (TEXTOBJ WINDOW)
|
||||
MENUFLG)
|
||||
(\TEDIT.MAINW WINDOW)
|
||||
WINDOW)
|
||||
IMAGEFILE IMAGETYPE])
|
||||
|
||||
(\TEDIT.HARDCOPYFILEFN
|
||||
[LAMBDA (W EXT) (* ; "Edited 25-Sep-2023 16:19 by rmk")
|
||||
(LET [(STRM (OR (GETTOBJ (TEXTOBJ W)
|
||||
@ -455,22 +482,6 @@
|
||||
(PACKFILENAME 'VERSION NIL 'EXTENSION (OR EXT 'IMAGEFILE)
|
||||
'BODY
|
||||
(FULLNAME STRM)))])
|
||||
|
||||
(\TEDIT.POSTSCRIPT.HARDCOPY
|
||||
[LAMBDA (FILE PFILE) (* ; "Edited 4-Oct-2022 10:40 by rmk")
|
||||
(* ; "Edited 1-Oct-2022 22:08 by rmk")
|
||||
(* ; "Edited 12-Jun-90 18:35 by mitani")
|
||||
|
||||
(* ;; "Send the document FILE to the printer (or to a print file, as determined by PFILE).")
|
||||
|
||||
(CL:WITH-OPEN-STREAM (TEXT-STREAM (OPENTEXTSTREAM FILE))
|
||||
(RESETLST
|
||||
[RESETSAVE (\TEDIT.MARKACTIVE (TEXTOBJ TEXT-STREAM))
|
||||
'(AND (\TEDIT.MARKINACTIVE OLDVALUE]
|
||||
[RESETSAVE NIL `(AND (CLOSEF? ',PFILE]
|
||||
(replace (TEXTOBJ EDITOPACTIVE) of (TEXTOBJ TEXT-STREAM) with 'Hardcopy)
|
||||
(TEDIT.FORMAT.HARDCOPY TEXT-STREAM PFILE T NIL NIL NIL 'POSTSCRIPT)
|
||||
PFILE)])
|
||||
)
|
||||
|
||||
|
||||
@ -508,11 +519,10 @@
|
||||
(CLOSEF DOC])
|
||||
)
|
||||
(DECLARE%: DONTCOPY
|
||||
(FILEMAP (NIL (2653 25392 (TEDIT.HARDCOPY 2663 . 3796) (\TEDIT.PRINT.MENU 3798 . 5139) (TEDIT.HCPYFILE
|
||||
5141 . 7122) (\TEDIT.HARDCOPY.DISPLAYLINE 7124 . 16347) (\TEDIT.HARDCOPY.FORMATLINE.HEADINGS 16349 .
|
||||
18078) (\TEDIT.HARDCOPY.MODIFYLOOKS 18080 . 20261) (\TEDIT.HCPYFMTSPEC 20263 . 23721) (
|
||||
\TEDIT.INTEGER.IMAGEBOX 23723 . 24394) (\TEDIT.DISPLAY.DIACRITIC 24396 . 25390)) (25467 26297 (
|
||||
\TEDIT.SCALEREGION 25477 . 26295)) (26550 29299 (TEDIT.HARDCOPYFN 26560 . 27801) (
|
||||
\TEDIT.HARDCOPYFILEFN 27803 . 28364) (\TEDIT.POSTSCRIPT.HARDCOPY 28366 . 29297)) (29918 30719 (
|
||||
TEDIT-BOOK 29928 . 30717)))))
|
||||
(FILEMAP (NIL (2824 28911 (TEDIT.HARDCOPY 2834 . 4092) (TEDIT.FORMAT.HARDCOPY 4094 . 7179) (
|
||||
TEDIT.IMAGEFILE.MESSAGE 7181 . 8236) (\TEDIT.PRINT.MENU 8238 . 10641) (\TEDIT.HARDCOPY.DISPLAYLINE
|
||||
10643 . 19866) (\TEDIT.HARDCOPY.FORMATLINE.HEADINGS 19868 . 21597) (\TEDIT.HARDCOPY.MODIFYLOOKS 21599
|
||||
. 23780) (\TEDIT.HCPYFMTSPEC 23782 . 27240) (\TEDIT.INTEGER.IMAGEBOX 27242 . 27913) (
|
||||
\TEDIT.DISPLAY.DIACRITIC 27915 . 28909)) (28986 29816 (\TEDIT.SCALEREGION 28996 . 29814)) (30108 30681
|
||||
(\TEDIT.HARDCOPYFILEFN 30118 . 30679)) (31300 32101 (TEDIT-BOOK 31310 . 32099)))))
|
||||
STOP
|
||||
|
||||
Binary file not shown.
@ -1,12 +1,12 @@
|
||||
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
|
||||
|
||||
(FILECREATED " 6-Oct-2025 20:50:59" {WMEDLEY}<library>TEDIT>TEDIT-LOOKS.;459 155349
|
||||
(FILECREATED " 7-Dec-2025 16:32:32" {WMEDLEY}<library>tedit>TEDIT-LOOKS.;460 155196
|
||||
|
||||
:EDIT-BY rmk
|
||||
|
||||
:CHANGES-TO (FNS \TEDIT.MCCS.TRANSLATE)
|
||||
:CHANGES-TO (VARS TEDIT-LOOKSCOMS)
|
||||
|
||||
:PREVIOUS-DATE " 5-Oct-2025 10:57:43" {WMEDLEY}<library>TEDIT>TEDIT-LOOKS.;457)
|
||||
:PREVIOUS-DATE " 6-Oct-2025 20:50:59" {WMEDLEY}<library>tedit>TEDIT-LOOKS.;459)
|
||||
|
||||
|
||||
(PRETTYCOMPRINT TEDIT-LOOKSCOMS)
|
||||
@ -60,7 +60,6 @@
|
||||
(* ;; "Public entries")
|
||||
|
||||
(FNS TEDIT.LOOKS TEDIT.GET.LOOKS TEDIT.SUBLOOKS TEDIT.FINDLOOKS)
|
||||
[INITVARS (TEDIT.FONTCLASSES '(DISPLAY PDF POSTSCRIPT INTERPRESS]
|
||||
(FNS \TEDIT.CHANGE.CHARLOOKS \TEDIT.CHANGE.CHARLOOKS.NEW \TEDIT.CHARLOOKS.CHANGE.FONT
|
||||
\TEDIT.FONT.NEXTSIZE \TEDIT.LOOKS \TEDIT.FONTCOPY \TEDIT.COERCE.FONTCLASS
|
||||
\TEDIT.FONTCLASS.TO.FONT))
|
||||
@ -1375,8 +1374,6 @@
|
||||
(TEDIT.NORMALIZECARET TEXTOBJ)
|
||||
(RETURN (\TEDIT.COPYSEL (FGETTOBJ TEXTOBJ SEL])])
|
||||
)
|
||||
|
||||
(RPAQ? TEDIT.FONTCLASSES '(DISPLAY PDF POSTSCRIPT INTERPRESS))
|
||||
(DEFINEQ
|
||||
|
||||
(\TEDIT.CHANGE.CHARLOOKS
|
||||
@ -2461,26 +2458,26 @@
|
||||
(ADDTOVAR LAMA )
|
||||
)
|
||||
(DECLARE%: DONTCOPY
|
||||
(FILEMAP (NIL (22099 24041 (\TEDIT.CHARLOOKS.DEFPRINT 22109 . 23245) (\TEDIT.PARALOOKS.DEFPRINT 23247
|
||||
. 24039)) (24145 24531 (\TEDIT.CREATE.FACE.MENU 24155 . 24327) (\TEDIT.CREATE.SIZE.MENU 24329 . 24529
|
||||
)) (25535 27424 (\TEDIT.CHARLOOKS.FEATURE.CHECK 25545 . 27422)) (27696 52953 (
|
||||
\TEDIT.CHARLOOKS.FROM.FONT 27706 . 29990) (\TEDIT.EQCLOOKS 29992 . 33023) (\TEDIT.SAMECLOOKS 33025 .
|
||||
36196) (TEDIT.CARETLOOKS 36198 . 37744) (TEDIT.COPY.LOOKS 37746 . 41029) (
|
||||
\TEDIT.UNPARSE.CHARLOOKS.LIST 41031 . 44525) (\TEDIT.MODIFYLOOKS 44527 . 46687) (TEDIT.NEW.FONT 46689
|
||||
. 47136) (\TEDIT.CARETLOOKS.VERIFY 47138 . 47975) (\TEDIT.CARETPIECE 47977 . 48282) (
|
||||
\TEDIT.GET.INSERT.CHARLOOKS 48284 . 51331) (\TEDIT.GET.TERMSA.WIDTHS 51333 . 51749) (
|
||||
\TEDIT.PARSE.CHARLOOKS.LIST 51751 . 52951)) (52954 65081 (\TEDIT.MCCS.TRANSLATE 52964 . 58817) (
|
||||
\TEDIT.CONVERT.TO.FORMATTED 58819 . 65079)) (65953 73290 (\TEDIT.UNIQUIFY.CHARLOOKS 65963 . 67623) (
|
||||
\TEDIT.UNIQUIFY.PARALOOKS 67625 . 68892) (\TEDIT.UNIQUIFY.ALL 68894 . 70982) (
|
||||
\TEDIT.FLUSH.UNUSED.LOOKS 70984 . 73288)) (73323 85281 (TEDIT.LOOKS 73333 . 75722) (TEDIT.GET.LOOKS
|
||||
75724 . 78059) (TEDIT.SUBLOOKS 78061 . 82441) (TEDIT.FINDLOOKS 82443 . 85279)) (85350 115000 (
|
||||
\TEDIT.CHANGE.CHARLOOKS 85360 . 94138) (\TEDIT.CHANGE.CHARLOOKS.NEW 94140 . 97955) (
|
||||
\TEDIT.CHARLOOKS.CHANGE.FONT 97957 . 106264) (\TEDIT.FONT.NEXTSIZE 106266 . 107887) (\TEDIT.LOOKS
|
||||
107889 . 111218) (\TEDIT.FONTCOPY 111220 . 112721) (\TEDIT.COERCE.FONTCLASS 112723 . 113874) (
|
||||
\TEDIT.FONTCLASS.TO.FONT 113876 . 114998)) (115043 146691 (\TEDIT.EQFMTSPEC 115053 . 118268) (
|
||||
TEDIT.GET.PARALOOKS 118270 . 122317) (\TEDIT.PARSE.PARALOOKS.LIST 122319 . 130352) (TEDIT.PARALOOKS
|
||||
130354 . 131394) (\TEDIT.CHANGE.PARALOOKS 131396 . 138364) (\TEDIT.CHANGE.PARALOOKS.NEW 138366 .
|
||||
142349) (TEDIT.COPY.PARALOOKS 142351 . 145025) (\TEDIT.PARABOUNDS 145027 . 146689)) (146751 154467 (
|
||||
TEDIT.SUBPARALOOKS 146761 . 150863) (SAMEPARALOOKS 150865 . 154465)) (154468 155155 (
|
||||
\TEDIT.MARK.REVISION 154478 . 155153)))))
|
||||
(FILEMAP (NIL (22014 23956 (\TEDIT.CHARLOOKS.DEFPRINT 22024 . 23160) (\TEDIT.PARALOOKS.DEFPRINT 23162
|
||||
. 23954)) (24060 24446 (\TEDIT.CREATE.FACE.MENU 24070 . 24242) (\TEDIT.CREATE.SIZE.MENU 24244 . 24444
|
||||
)) (25450 27339 (\TEDIT.CHARLOOKS.FEATURE.CHECK 25460 . 27337)) (27611 52868 (
|
||||
\TEDIT.CHARLOOKS.FROM.FONT 27621 . 29905) (\TEDIT.EQCLOOKS 29907 . 32938) (\TEDIT.SAMECLOOKS 32940 .
|
||||
36111) (TEDIT.CARETLOOKS 36113 . 37659) (TEDIT.COPY.LOOKS 37661 . 40944) (
|
||||
\TEDIT.UNPARSE.CHARLOOKS.LIST 40946 . 44440) (\TEDIT.MODIFYLOOKS 44442 . 46602) (TEDIT.NEW.FONT 46604
|
||||
. 47051) (\TEDIT.CARETLOOKS.VERIFY 47053 . 47890) (\TEDIT.CARETPIECE 47892 . 48197) (
|
||||
\TEDIT.GET.INSERT.CHARLOOKS 48199 . 51246) (\TEDIT.GET.TERMSA.WIDTHS 51248 . 51664) (
|
||||
\TEDIT.PARSE.CHARLOOKS.LIST 51666 . 52866)) (52869 64996 (\TEDIT.MCCS.TRANSLATE 52879 . 58732) (
|
||||
\TEDIT.CONVERT.TO.FORMATTED 58734 . 64994)) (65868 73205 (\TEDIT.UNIQUIFY.CHARLOOKS 65878 . 67538) (
|
||||
\TEDIT.UNIQUIFY.PARALOOKS 67540 . 68807) (\TEDIT.UNIQUIFY.ALL 68809 . 70897) (
|
||||
\TEDIT.FLUSH.UNUSED.LOOKS 70899 . 73203)) (73238 85196 (TEDIT.LOOKS 73248 . 75637) (TEDIT.GET.LOOKS
|
||||
75639 . 77974) (TEDIT.SUBLOOKS 77976 . 82356) (TEDIT.FINDLOOKS 82358 . 85194)) (85197 114847 (
|
||||
\TEDIT.CHANGE.CHARLOOKS 85207 . 93985) (\TEDIT.CHANGE.CHARLOOKS.NEW 93987 . 97802) (
|
||||
\TEDIT.CHARLOOKS.CHANGE.FONT 97804 . 106111) (\TEDIT.FONT.NEXTSIZE 106113 . 107734) (\TEDIT.LOOKS
|
||||
107736 . 111065) (\TEDIT.FONTCOPY 111067 . 112568) (\TEDIT.COERCE.FONTCLASS 112570 . 113721) (
|
||||
\TEDIT.FONTCLASS.TO.FONT 113723 . 114845)) (114890 146538 (\TEDIT.EQFMTSPEC 114900 . 118115) (
|
||||
TEDIT.GET.PARALOOKS 118117 . 122164) (\TEDIT.PARSE.PARALOOKS.LIST 122166 . 130199) (TEDIT.PARALOOKS
|
||||
130201 . 131241) (\TEDIT.CHANGE.PARALOOKS 131243 . 138211) (\TEDIT.CHANGE.PARALOOKS.NEW 138213 .
|
||||
142196) (TEDIT.COPY.PARALOOKS 142198 . 144872) (\TEDIT.PARABOUNDS 144874 . 146536)) (146598 154314 (
|
||||
TEDIT.SUBPARALOOKS 146608 . 150710) (SAMEPARALOOKS 150712 . 154312)) (154315 155002 (
|
||||
\TEDIT.MARK.REVISION 154325 . 155000)))))
|
||||
STOP
|
||||
|
||||
Binary file not shown.
@ -1,12 +1,12 @@
|
||||
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
|
||||
|
||||
(FILECREATED "22-Oct-2025 12:55:36" {WMEDLEY}<library>TEDIT>TEDIT-MENU.;498 183397
|
||||
(FILECREATED "12-Dec-2025 00:01:26" {WMEDLEY}<library>tedit>TEDIT-MENU.;501 183343
|
||||
|
||||
:EDIT-BY rmk
|
||||
|
||||
:CHANGES-TO (FNS MARGINBAR.NEUTRALIZE \TEDIT.PARALOOKS.TO.MARBAR)
|
||||
:CHANGES-TO (VARS TEDIT-MENUCOMS)
|
||||
|
||||
:PREVIOUS-DATE "19-Oct-2025 15:14:00" {WMEDLEY}<library>TEDIT>TEDIT-MENU.;496)
|
||||
:PREVIOUS-DATE " 7-Dec-2025 16:34:30" {WMEDLEY}<library>tedit>TEDIT-MENU.;499)
|
||||
|
||||
|
||||
(PRETTYCOMPRINT TEDIT-MENUCOMS)
|
||||
@ -67,7 +67,7 @@
|
||||
(* ;; "")
|
||||
|
||||
(* ; "CHARMENU")
|
||||
[INITVARS (TEDIT.FONTDEVICES '(DISPLAY PDF POSTSCRIPT))
|
||||
[INITVARS (TEDIT.FONTDEVICES '(DISPLAY PDF))
|
||||
(TEDIT.FONTFAMILIES '(Classic Modern Terminal Helvetica TimesRoman Gacha]
|
||||
(FNS \TEDIT.CHARMENU.CREATE \TEDIT.CHARMENU.START \TEDIT.CHARMENU.SPEC \TEDIT.CHARMENU.PARSE
|
||||
\TEDIT.CHARMENU.FILLIN \TEDIT.SHOW.CHARLOOKS \TEDIT.APPLY.CHARLOOKS
|
||||
@ -1952,7 +1952,7 @@
|
||||
(* ; "CHARMENU")
|
||||
|
||||
|
||||
(RPAQ? TEDIT.FONTDEVICES '(DISPLAY PDF POSTSCRIPT))
|
||||
(RPAQ? TEDIT.FONTDEVICES '(DISPLAY PDF))
|
||||
|
||||
(RPAQ? TEDIT.FONTFAMILIES '(Classic Modern Terminal Helvetica TimesRoman Gacha))
|
||||
(DEFINEQ
|
||||
@ -2907,32 +2907,32 @@
|
||||
(ADDTOVAR LAMA )
|
||||
)
|
||||
(DECLARE%: DONTCOPY
|
||||
(FILEMAP (NIL (4972 16610 (TEDIT.ADD.MENUITEM 4982 . 7099) (TEDIT.DEFAULT.MENUFN 7101 . 13822) (
|
||||
TEDIT.REMOVE.MENUITEM 13824 . 14821) (\TEDIT.CREATEMENU 14823 . 15388) (\TEDIT.MENU.WHENHELDFN 15390
|
||||
. 16295) (\TEDIT.MENU.WHENSELECTEDFN 16297 . 16608)) (17424 65459 (DRAWMARGINSCALE 17434 . 20893) (
|
||||
MARGINBAR 20895 . 28020) (MARGINBAR.CREATE 28022 . 32220) (MB.MARGINBAR.BUTTONEVENTINFN 32222 . 40024)
|
||||
(MB.MARGINBAR.SELFN.TABS 40026 . 45266) (MB.MARGINBAR.SELFN.TABS.KIND 45268 . 46203) (
|
||||
MARGINBAR.GETSTATEFN 46205 . 50192) (MARGINBAR.SETSTATEFN 50194 . 50404) (MARGINBAR.NEUTRALIZE 50406
|
||||
. 51081) (MARGINBAR.LOOKS 51083 . 54189) (MB.MARGINBAR.SIZEFN 54191 . 54977) (MB.MARGINBAR.DISPLAYFN
|
||||
54979 . 58040) (MDESCALE 58042 . 58582) (MSCALE 58584 . 58914) (MB.MARGINBAR.SHOWTAB 58916 . 61239) (
|
||||
MB.MARGINBAR.TABTRACK 61241 . 62626) (MARGINBAR.INIT 62628 . 64021) (\TEDIT.PARALOOKS.TO.MARBAR 64023
|
||||
. 65457)) (66284 73566 (TEDIT.MENUSTREAM 66294 . 67294) (TEDITMENUP 67296 . 68265) (\TEDIT.MENU.START
|
||||
68267 . 72614) (\TEDIT.MENU.OPEN? 72616 . 72990) (\TEDIT.MENU.BUTTONEVENTFN 72992 . 73564)) (73885
|
||||
81936 (\TEDIT.MENU.CREATE 73895 . 75835) (\TEDIT.MENU.PARSE 75837 . 79526) (\TEDIT.MENU.NEUTRALIZE
|
||||
79528 . 81599) (\TEDITMENU.RECORD.UNFORMATTED 81601 . 81934)) (82002 101783 (
|
||||
\TEDIT.EXPANDEDMENU.CREATE 82012 . 87479) (\TEDIT.EXPANDEDMENU.START 87481 . 89105) (
|
||||
\TEDIT.EXPANDEDMENU.FN 89107 . 92362) (\TEDIT.EXPANDEDMENU.ACTIONFN 92364 . 101781)) (101845 121270 (
|
||||
\TEDIT.PARAMENU.CREATE 101855 . 110586) (\TEDIT.PARAMENU.START 110588 . 111842) (
|
||||
\TEDIT.APPLY.PARALOOKS 111844 . 112896) (\TEDIT.SHOW.PARALOOKS 112898 . 115615) (
|
||||
\TEDIT.PARAMENU.FILLIN 115617 . 120366) (\TEDIT.PARAMENU.RESHAPEFN 120368 . 121268)) (121475 148317 (
|
||||
\TEDIT.CHARMENU.CREATE 121485 . 124089) (\TEDIT.CHARMENU.START 124091 . 125381) (\TEDIT.CHARMENU.SPEC
|
||||
125383 . 130066) (\TEDIT.CHARMENU.PARSE 130068 . 133236) (\TEDIT.CHARMENU.FILLIN 133238 . 137868) (
|
||||
\TEDIT.SHOW.CHARLOOKS 137870 . 141415) (\TEDIT.APPLY.CHARLOOKS 141417 . 142578) (
|
||||
\TEDIT.OFFSETTYPE.STATEFN 142580 . 144543) (\TEDIT.OTHER.STATECHANGEFN 144545 . 146190) (
|
||||
\TEDIT.OTHER.SELECTFN 146192 . 148315)) (148379 177437 (\TEDIT.PAGEMENU.CREATE 148389 . 156901) (
|
||||
\TEDIT.PAGEMENU.START 156903 . 157254) (\TEDIT.SHOW.PAGELOOKS 157256 . 159142) (\TEDIT.PAGEMENU.FILLIN
|
||||
159144 . 160694) (\TEDIT.PAGEREGION.UNPARSE 160696 . 170095) (\TEDIT.APPLY.PAGELOOKS 170097 . 172024)
|
||||
(\TEDIT.CHANGE.PAGELOOKS 172026 . 176593) (\TEDIT.PAGEMENU.CHARLOOKS.STATEFN 176595 . 177435)) (
|
||||
177438 183241 (\TEDIT.PAGEMENU.CREATE.HEADINGS 177448 . 180260) (\TEDIT.PAGEMENU.HEADINGS.SETSTATEFN
|
||||
180262 . 181687) (\TEDIT.PAGEMENU.HEADINGS.STATEFN 181689 . 183239)))))
|
||||
(FILEMAP (NIL (4929 16567 (TEDIT.ADD.MENUITEM 4939 . 7056) (TEDIT.DEFAULT.MENUFN 7058 . 13779) (
|
||||
TEDIT.REMOVE.MENUITEM 13781 . 14778) (\TEDIT.CREATEMENU 14780 . 15345) (\TEDIT.MENU.WHENHELDFN 15347
|
||||
. 16252) (\TEDIT.MENU.WHENSELECTEDFN 16254 . 16565)) (17381 65416 (DRAWMARGINSCALE 17391 . 20850) (
|
||||
MARGINBAR 20852 . 27977) (MARGINBAR.CREATE 27979 . 32177) (MB.MARGINBAR.BUTTONEVENTINFN 32179 . 39981)
|
||||
(MB.MARGINBAR.SELFN.TABS 39983 . 45223) (MB.MARGINBAR.SELFN.TABS.KIND 45225 . 46160) (
|
||||
MARGINBAR.GETSTATEFN 46162 . 50149) (MARGINBAR.SETSTATEFN 50151 . 50361) (MARGINBAR.NEUTRALIZE 50363
|
||||
. 51038) (MARGINBAR.LOOKS 51040 . 54146) (MB.MARGINBAR.SIZEFN 54148 . 54934) (MB.MARGINBAR.DISPLAYFN
|
||||
54936 . 57997) (MDESCALE 57999 . 58539) (MSCALE 58541 . 58871) (MB.MARGINBAR.SHOWTAB 58873 . 61196) (
|
||||
MB.MARGINBAR.TABTRACK 61198 . 62583) (MARGINBAR.INIT 62585 . 63978) (\TEDIT.PARALOOKS.TO.MARBAR 63980
|
||||
. 65414)) (66241 73523 (TEDIT.MENUSTREAM 66251 . 67251) (TEDITMENUP 67253 . 68222) (\TEDIT.MENU.START
|
||||
68224 . 72571) (\TEDIT.MENU.OPEN? 72573 . 72947) (\TEDIT.MENU.BUTTONEVENTFN 72949 . 73521)) (73842
|
||||
81893 (\TEDIT.MENU.CREATE 73852 . 75792) (\TEDIT.MENU.PARSE 75794 . 79483) (\TEDIT.MENU.NEUTRALIZE
|
||||
79485 . 81556) (\TEDITMENU.RECORD.UNFORMATTED 81558 . 81891)) (81959 101740 (
|
||||
\TEDIT.EXPANDEDMENU.CREATE 81969 . 87436) (\TEDIT.EXPANDEDMENU.START 87438 . 89062) (
|
||||
\TEDIT.EXPANDEDMENU.FN 89064 . 92319) (\TEDIT.EXPANDEDMENU.ACTIONFN 92321 . 101738)) (101802 121227 (
|
||||
\TEDIT.PARAMENU.CREATE 101812 . 110543) (\TEDIT.PARAMENU.START 110545 . 111799) (
|
||||
\TEDIT.APPLY.PARALOOKS 111801 . 112853) (\TEDIT.SHOW.PARALOOKS 112855 . 115572) (
|
||||
\TEDIT.PARAMENU.FILLIN 115574 . 120323) (\TEDIT.PARAMENU.RESHAPEFN 120325 . 121225)) (121421 148263 (
|
||||
\TEDIT.CHARMENU.CREATE 121431 . 124035) (\TEDIT.CHARMENU.START 124037 . 125327) (\TEDIT.CHARMENU.SPEC
|
||||
125329 . 130012) (\TEDIT.CHARMENU.PARSE 130014 . 133182) (\TEDIT.CHARMENU.FILLIN 133184 . 137814) (
|
||||
\TEDIT.SHOW.CHARLOOKS 137816 . 141361) (\TEDIT.APPLY.CHARLOOKS 141363 . 142524) (
|
||||
\TEDIT.OFFSETTYPE.STATEFN 142526 . 144489) (\TEDIT.OTHER.STATECHANGEFN 144491 . 146136) (
|
||||
\TEDIT.OTHER.SELECTFN 146138 . 148261)) (148325 177383 (\TEDIT.PAGEMENU.CREATE 148335 . 156847) (
|
||||
\TEDIT.PAGEMENU.START 156849 . 157200) (\TEDIT.SHOW.PAGELOOKS 157202 . 159088) (\TEDIT.PAGEMENU.FILLIN
|
||||
159090 . 160640) (\TEDIT.PAGEREGION.UNPARSE 160642 . 170041) (\TEDIT.APPLY.PAGELOOKS 170043 . 171970)
|
||||
(\TEDIT.CHANGE.PAGELOOKS 171972 . 176539) (\TEDIT.PAGEMENU.CHARLOOKS.STATEFN 176541 . 177381)) (
|
||||
177384 183187 (\TEDIT.PAGEMENU.CREATE.HEADINGS 177394 . 180206) (\TEDIT.PAGEMENU.HEADINGS.SETSTATEFN
|
||||
180208 . 181633) (\TEDIT.PAGEMENU.HEADINGS.STATEFN 181635 . 183185)))))
|
||||
STOP
|
||||
|
||||
Binary file not shown.
@ -1,14 +1,12 @@
|
||||
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
|
||||
|
||||
(FILECREATED "27-Sep-2025 16:25:26"
|
||||
{DSK}<Users>kaplan>Local>medley3.5>working-medley>library>TEDIT>TEDIT-PAGE.;234 133685
|
||||
(FILECREATED "25-Dec-2025 15:07:57" {WMEDLEY}<library>tedit>TEDIT-PAGE.;239 130445
|
||||
|
||||
:EDIT-BY rmk
|
||||
|
||||
:CHANGES-TO (FNS TEDIT.TO.IMAGEFILE)
|
||||
|
||||
:PREVIOUS-DATE "19-Sep-2025 22:09:03"
|
||||
{DSK}<Users>kaplan>Local>medley3.5>working-medley>library>TEDIT>TEDIT-PAGE.;232)
|
||||
:PREVIOUS-DATE "24-Dec-2025 11:16:05" {WMEDLEY}<library>tedit>TEDIT-PAGE.;238)
|
||||
|
||||
|
||||
(PRETTYCOMPRINT TEDIT-PAGECOMS)
|
||||
@ -52,7 +50,7 @@
|
||||
72 72 NIL 1)
|
||||
(TEDIT.SINGLE.PAGEFORMAT T 540 756 NIL 'RIGHT 72 72
|
||||
72 72 NIL 1]
|
||||
(FNS TEDIT.FORMAT.HARDCOPY TEDIT.TO.IMAGEFILE)
|
||||
(FNS TEDIT.TO.IMAGEFILE)
|
||||
(COMS
|
||||
(* ;; "Perform page layout, based on a regular expression of typed regions.")
|
||||
|
||||
@ -633,45 +631,11 @@
|
||||
(TEDIT.SINGLE.PAGEFORMAT T 540 756 NIL 'RIGHT 72 72 72 72 NIL 1)))
|
||||
(DEFINEQ
|
||||
|
||||
(TEDIT.FORMAT.HARDCOPY
|
||||
[LAMBDA (TEXTSTREAM IMAGESTREAM DONTSEND BREAKPAGETITLE SERVER PRINTOPTIONS IMAGETYPE FIRSTPG#
|
||||
STARTPG ENDPG QUIET) (* ; "Edited 19-Sep-2025 22:04 by rmk")
|
||||
(* ; "Edited 18-Sep-2025 10:11 by rmk")
|
||||
(* ; "Edited 12-Sep-2025 23:54 by rmk")
|
||||
(* ; "Edited 5-Jun-2025 08:24 by rmk")
|
||||
(* ; "Edited 22-Apr-2025 08:12 by rmk")
|
||||
(* ; "Edited 30-Aug-2024 15:45 by rmk")
|
||||
(* ; "Edited 5-Apr-2024 08:01 by rmk")
|
||||
(* ; "Edited 19-Jan-2024 23:39 by rmk")
|
||||
(* ; "Edited 15-Nov-2023 23:56 by rmk")
|
||||
(* ; "Edited 4-Jul-2023 11:16 by rmk")
|
||||
(* ; "Edited 2-Oct-2022 00:00 by rmk")
|
||||
(* ;
|
||||
"Edited 25-May-93 13:06 by sybalsky:mv:envos")
|
||||
|
||||
(* ;; "Format a document for hardcopy. Returns the number of pages printed (not the final page number!). Returns NIL if the before-print-fn said not to print.")
|
||||
|
||||
(* ;; "TEXTSTREAM is either already a textstream or somehow denotes a tedit-formatted file, otherwise an error. We don't here try to decide that a non-formatted file is a plain text file, as opposed binary or anything else.")
|
||||
|
||||
(RESETLST
|
||||
(SETQ TEXTSTREAM (if (TEXTSTREAM TEXTSTREAM T)
|
||||
elseif (TEDIT.FORMATTEDFILEP TEXTSTREAM)
|
||||
then [RESETSAVE (SETQ TEXTSTREAM (OPENTEXTSTREAM TEXTSTREAM))
|
||||
`(PROGN (CLOSEF? OLDVALUE]
|
||||
TEXTSTREAM
|
||||
else (ERROR TEXTSTREAM "is not a Tedit stream")))
|
||||
(CL:UNLESS BREAKPAGETITLE
|
||||
(SETQ BREAKPAGETITLE (if (LISTGET PRINTOPTIONS 'DOCUMENT.NAME)
|
||||
elseif (GETTEXTPROP TEXTSTREAM 'FILENAME)
|
||||
elseif [AND (GETTEXTPROP TEXTSTREAM 'FILESTREAM)
|
||||
(FULLNAME (GETTEXTPROP TEXTSTREAM 'FILESTREAM]
|
||||
else "TEdit Hardcopy Output")))
|
||||
[TEDIT.TO.IMAGEFILE TEXTSTREAM IMAGESTREAM (OR IMAGETYPE DEFAULTPRINTERTYPE)
|
||||
`(,@PRINTOPTIONS FIRSTPG# ,FIRSTPG# STARTPG ,STARTPG ENDPG ,ENDPG QUIET ,QUIET
|
||||
BREAKPAGEFILENAME ,BREAKPAGETITLE])])
|
||||
|
||||
(TEDIT.TO.IMAGEFILE
|
||||
[LAMBDA (TSTREAM IMAGEFILE IMAGETYPE OPTIONS) (* ; "Edited 27-Sep-2025 14:05 by rmk")
|
||||
[LAMBDA (TSTREAM IMAGEFILE IMAGETYPE OPTIONS) (* ; "Edited 25-Dec-2025 15:07 by rmk")
|
||||
(* ; "Edited 20-Dec-2025 23:03 by rmk")
|
||||
(* ; "Edited 14-Dec-2025 17:38 by rmk")
|
||||
(* ; "Edited 27-Sep-2025 14:05 by rmk")
|
||||
(* ; "Edited 19-Sep-2025 22:08 by rmk")
|
||||
|
||||
(* ;; "Format a document for hardcopy. Returns the number of pages printed (not the final page number!). Returns NIL if the before-print-fn said not to print.")
|
||||
@ -685,6 +649,8 @@
|
||||
`(PROGN (CLOSEF? OLDVALUE]
|
||||
TSTREAM
|
||||
else (ERROR TSTREAM "is not a Tedit stream")))
|
||||
(CL:WHEN (GETTEXTPROP TSTREAM 'MENUFLG)
|
||||
(SETQ TSTREAM (TEXTSTREAM (\TEDIT.MAINW TSTREAM))))
|
||||
(CL:UNLESS IMAGEFILE
|
||||
(CL:WHEN (GETTEXTPROP TSTREAM 'FILENAME)
|
||||
[SETQ IMAGEFILE (PACKFILENAME 'VERSION NIL 'EXTENSION (CAR (
|
||||
@ -692,6 +658,7 @@
|
||||
IMAGETYPE))
|
||||
'BODY
|
||||
(GETTEXTPROP TSTREAM 'FILENAME]))
|
||||
(PUTTEXTPROP TSTREAM 'LASTIMAGEFILE NIL)
|
||||
(PROG* ((FIRSTPG# (LISTGET OPTIONS 'FIRSTPG#))
|
||||
(TEXTOBJ (FTEXTOBJ TSTREAM))
|
||||
[FORMATTINGSTATE (create PAGEFORMATTINGSTATE
|
||||
@ -707,7 +674,7 @@
|
||||
(CDR FIRSTPG#))
|
||||
PAGE#TEXT _ (AND (LISTP FIRSTPG#)
|
||||
(CAR FIRSTPG#]
|
||||
IMAGESTREAM PAGEREGION SCRATCHFILE NPAGES)
|
||||
IMAGESTREAM PAGEREGION SCRATCHFILE)
|
||||
(CL:WHEN (EQ 'DON'T (APPLY* (OR (GETTEXTPROP TEXTOBJ 'BEFOREHARDCOPYFN)
|
||||
(FUNCTION NILL))
|
||||
TSTREAM)) (* ;
|
||||
@ -719,11 +686,15 @@
|
||||
(SETPFS FORMATTINGSTATE PRESSREGION TEDIT.DEFAULTPAGEREGION)
|
||||
(* ;
|
||||
"Print in the usual region on the page")
|
||||
(SETQ IMAGESTREAM (OR (IMAGESTREAMP IMAGEFILE)
|
||||
|
||||
(* ;; "TEDIT puts its own headings on the page")
|
||||
|
||||
[SETQ IMAGESTREAM (OR (IMAGESTREAMP IMAGEFILE)
|
||||
(OPENIMAGESTREAM [OR IMAGEFILE (SETQ IMAGEFILE
|
||||
(OPENSTREAM "{NODIRCORE}"
|
||||
'OUTPUT]
|
||||
IMAGETYPE OPTIONS)))
|
||||
IMAGETYPE
|
||||
`(HEADING NIL ,@OPTIONS]
|
||||
|
||||
(* ;; "The right margin must be big enough to prevent line wrap on landscaped 14 inch paper, with Postscript's scaling of .01-point increments. (~ 101,000). This will cause a performance hit. Sigh. JDS 9/5/89")
|
||||
|
||||
@ -751,19 +722,12 @@
|
||||
(APPLY* (OR (GETTEXTPROP TEXTOBJ 'AFTERHARDCOPYFN)
|
||||
(FUNCTION NILL))
|
||||
TSTREAM)
|
||||
(SETQ NPAGES (GETPFS FORMATTINGSTATE PAGECOUNT))
|
||||
(CL:UNLESS (LISTGET OPTIONS 'QUIET)
|
||||
(TEDIT.PROMPTPRINT TSTREAM [CONCAT NPAGES " page" (CL:IF (EQ 1 NPAGES)
|
||||
""
|
||||
"s")
|
||||
(if (PRINTERNAME IMAGESTREAM)
|
||||
then (CONCAT " printed on " (PRINTERNAME
|
||||
IMAGESTREAM))
|
||||
elseif (STREAMP (FULLNAME IMAGESTREAM))
|
||||
then " printed"
|
||||
else (CONCAT " on " (PSEUDOFILENAME
|
||||
(FULLNAME IMAGESTREAM]
|
||||
T))
|
||||
|
||||
(* ;; "So caller can formulate a prompt message TEDIT.IMAGEFILE.MESSAGE")
|
||||
|
||||
(PUTTEXTPROP TSTREAM 'LASTIMAGEFILE (LIST (GETPFS FORMATTINGSTATE PAGECOUNT)
|
||||
(FULLNAME IMAGESTREAM)
|
||||
(PRINTERNAME IMAGESTREAM)))
|
||||
(RETURN (CLOSEF IMAGESTREAM))))])
|
||||
)
|
||||
|
||||
@ -2093,19 +2057,18 @@
|
||||
(RETURN (DREMOVE NIL $$VAL])
|
||||
)
|
||||
(DECLARE%: DONTCOPY
|
||||
(FILEMAP (NIL (12237 15849 (\TEDIT.PARSE.PAGEFRAMES 12247 . 14026) (\TEDIT.PUT.PAGEFRAMES 14028 .
|
||||
14852) (\TEDIT.UNPARSE.PAGEFRAMES 14854 . 15847)) (15912 37929 (TEDIT.SINGLE.PAGEFORMAT 15922 . 26915)
|
||||
(TEDIT.COMPOUND.PAGEFORMAT 26917 . 27896) (TEDIT.PAGEFORMAT 27898 . 35187) (TEDIT.GET.PAGEFORMAT
|
||||
35189 . 37927)) (38216 47749 (TEDIT.FORMAT.HARDCOPY 38226 . 41261) (TEDIT.TO.IMAGEFILE 41263 . 47747))
|
||||
(47836 101088 (\TEDIT.FORMATBOX 47846 . 61270) (\TEDIT.FORMATHEADING 61272 . 65918) (
|
||||
\TEDIT.FORMATPAGE 65920 . 75109) (\TEDIT.FORMATTEXTBOX 75111 . 91624) (\TEDIT.FORMATFOLIO 91626 .
|
||||
96943) (\TEDIT.FORMAT.FOUNDBOX? 96945 . 98984) (\TEDIT.SKIP.SPECIALCOND 98986 . 101086)) (101168
|
||||
106223 (\TEDIT.HARDCOPY.PAGEHEADINGS 101178 . 106221)) (106332 114383 (\TEDIT.HARDCOPY-COLUMN-END
|
||||
106342 . 114381)) (114428 119369 (SCALEPAGEUNITS 114438 . 115579) (SCALEPAGEXUNITS 115581 . 116351) (
|
||||
SCALEPAGEYUNITS 116353 . 117124) (\TEDIT.PAPERHEIGHT 117126 . 118061) (\TEDIT.PAPERWIDTH 118063 .
|
||||
119367)) (119785 123353 (ROMANNUMERALS 119795 . 123351)) (123392 130658 (TEDIT.PAGENO.CREATE 123402 .
|
||||
123778) (\TEDIT.PAGENO.OBJINIT 123780 . 125063) (\TEDIT.PAGENO.BUTTONEVENTINFN 125065 . 126131) (
|
||||
\TEDIT.PAGENO.IMAGEBOXFN 126133 . 128283) (\TEDIT.PAGENO.DISPLAYFN 128285 . 129935) (
|
||||
\TEDIT.PAGENO.GETFN 129937 . 130329) (\TEDIT.PAGENO.PUTFN 130331 . 130656)) (130723 133662 (
|
||||
\TEDIT.FORMAT.FOOTNOTE 130733 . 133660)))))
|
||||
(FILEMAP (NIL (12133 15745 (\TEDIT.PARSE.PAGEFRAMES 12143 . 13922) (\TEDIT.PUT.PAGEFRAMES 13924 .
|
||||
14748) (\TEDIT.UNPARSE.PAGEFRAMES 14750 . 15743)) (15808 37825 (TEDIT.SINGLE.PAGEFORMAT 15818 . 26811)
|
||||
(TEDIT.COMPOUND.PAGEFORMAT 26813 . 27792) (TEDIT.PAGEFORMAT 27794 . 35083) (TEDIT.GET.PAGEFORMAT
|
||||
35085 . 37823)) (38112 44509 (TEDIT.TO.IMAGEFILE 38122 . 44507)) (44596 97848 (\TEDIT.FORMATBOX 44606
|
||||
. 58030) (\TEDIT.FORMATHEADING 58032 . 62678) (\TEDIT.FORMATPAGE 62680 . 71869) (\TEDIT.FORMATTEXTBOX
|
||||
71871 . 88384) (\TEDIT.FORMATFOLIO 88386 . 93703) (\TEDIT.FORMAT.FOUNDBOX? 93705 . 95744) (
|
||||
\TEDIT.SKIP.SPECIALCOND 95746 . 97846)) (97928 102983 (\TEDIT.HARDCOPY.PAGEHEADINGS 97938 . 102981)) (
|
||||
103092 111143 (\TEDIT.HARDCOPY-COLUMN-END 103102 . 111141)) (111188 116129 (SCALEPAGEUNITS 111198 .
|
||||
112339) (SCALEPAGEXUNITS 112341 . 113111) (SCALEPAGEYUNITS 113113 . 113884) (\TEDIT.PAPERHEIGHT 113886
|
||||
. 114821) (\TEDIT.PAPERWIDTH 114823 . 116127)) (116545 120113 (ROMANNUMERALS 116555 . 120111)) (
|
||||
120152 127418 (TEDIT.PAGENO.CREATE 120162 . 120538) (\TEDIT.PAGENO.OBJINIT 120540 . 121823) (
|
||||
\TEDIT.PAGENO.BUTTONEVENTINFN 121825 . 122891) (\TEDIT.PAGENO.IMAGEBOXFN 122893 . 125043) (
|
||||
\TEDIT.PAGENO.DISPLAYFN 125045 . 126695) (\TEDIT.PAGENO.GETFN 126697 . 127089) (\TEDIT.PAGENO.PUTFN
|
||||
127091 . 127416)) (127483 130422 (\TEDIT.FORMAT.FOOTNOTE 127493 . 130420)))))
|
||||
STOP
|
||||
|
||||
Binary file not shown.
@ -1,12 +1,12 @@
|
||||
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
|
||||
|
||||
(FILECREATED "21-Nov-2025 16:36:15" {WMEDLEY}<library>TEDIT>TEDIT-SCREEN.;913 186644
|
||||
(FILECREATED " 7-Dec-2025 16:28:01" {WMEDLEY}<library>TEDIT>TEDIT-SCREEN.;914 186683
|
||||
|
||||
:EDIT-BY rmk
|
||||
|
||||
:CHANGES-TO (FNS \TEDIT.FORMATLINE)
|
||||
:CHANGES-TO (FNS \TEDIT.FORMATLINE.SETUP.PARA)
|
||||
|
||||
:PREVIOUS-DATE "26-Oct-2025 17:10:29" {WMEDLEY}<library>TEDIT>TEDIT-SCREEN.;912)
|
||||
:PREVIOUS-DATE "21-Nov-2025 16:36:15" {WMEDLEY}<library>TEDIT>TEDIT-SCREEN.;913)
|
||||
|
||||
|
||||
(PRETTYCOMPRINT TEDIT-SCREENCOMS)
|
||||
@ -1224,7 +1224,8 @@
|
||||
(RETURN LINE])
|
||||
|
||||
(\TEDIT.FORMATLINE.SETUP.PARA
|
||||
[LAMBDA (TEXTOBJ PC LINE IMAGESTREAM LINETYPE) (* ; "Edited 19-Feb-2025 13:37 by rmk")
|
||||
[LAMBDA (TEXTOBJ PC LINE IMAGESTREAM LINETYPE) (* ; "Edited 7-Dec-2025 16:26 by rmk")
|
||||
(* ; "Edited 19-Feb-2025 13:37 by rmk")
|
||||
(* ; "Edited 8-Feb-2025 23:36 by rmk")
|
||||
(* ; "Edited 7-Feb-2025 08:09 by rmk")
|
||||
(* ; "Edited 22-Nov-2024 11:14 by rmk")
|
||||
@ -1259,9 +1260,8 @@
|
||||
(* ;; "Coerce the image stream and PARALOOKS for HARDCOPYDISPLAY.")
|
||||
|
||||
[SETQ IMAGESTREAM (OR (FGETTOBJ TEXTOBJ DISPLAYHCPYDS)
|
||||
(FSETTOBJ TEXTOBJ DISPLAYHCPYDS (OPENIMAGESTREAM
|
||||
'{NODIRCORE}
|
||||
'POSTSCRIPT]
|
||||
(FSETTOBJ TEXTOBJ DISPLAYHCPYDS (OPENIMAGESTREAM NIL
|
||||
DEFAULTPRINTERTYPE]
|
||||
(SETQ SCALE (DSPSCALE NIL IMAGESTREAM))
|
||||
[SETQ PLOOKS (create PARALOOKS using PLOOKS FMTHARDCOPYSCALE _ SCALE RIGHTMAR _
|
||||
(SCALEUP SCALE (FGETPLOOKS PLOOKS RIGHTMAR))
|
||||
@ -2863,21 +2863,21 @@
|
||||
(\TEDIT.LINE.TALLP LINE PHEIGHT))))])
|
||||
)
|
||||
(DECLARE%: DONTCOPY
|
||||
(FILEMAP (NIL (26214 28430 (\TEDIT.LINEDESCRIPTOR.DEFPRINT 26224 . 28428)) (35884 119488 (
|
||||
\TEDIT.FORMATLINE 35894 . 71000) (\TEDIT.FORMATLINE.SETUP.PARA 71002 . 76168) (
|
||||
\TEDIT.FORMATLINE.HORIZONTAL 76170 . 80987) (\TEDIT.FORMATLINE.VERTICAL 80989 . 83440) (
|
||||
\TEDIT.FORMATLINE.JUSTIFY 83442 . 89463) (\TEDIT.FORMATLINE.TABS 89465 . 97493) (\TEDIT.SCALE.TABS
|
||||
97495 . 98286) (\TEDIT.FORMATLINE.PURGE.SPACES 98288 . 99715) (\TEDIT.FORMATLINE.FLUSH.SOFTHYPHEN
|
||||
99717 . 100794) (\TEDIT.FORMATLINE.EMPTY 100796 . 105616) (\TEDIT.FORMATLINE.UPDATELOOKS 105618 .
|
||||
111799) (\TEDIT.FORMATLINE.LASTLEGAL 111801 . 115251) (\TEDIT.LINES.ABOVE 115253 . 118864) (
|
||||
\TEDIT.CHNO.TO.YTOP 118866 . 119486)) (119765 140345 (\TEDIT.DISPLAYLINE 119775 . 132285) (
|
||||
\TEDIT.DISPLAYLINE.TABS 132287 . 135091) (\TEDIT.LINECACHE 135093 . 135821) (\TEDIT.CREATE.LINECACHE
|
||||
135823 . 136659) (\TEDIT.BLTCHAR 136661 . 139288) (\TEDIT.DIACRITIC.SHIFT 139290 . 140343)) (140960
|
||||
186621 (\TEDIT.BACKFORMAT 140970 . 143524) (\TEDIT.PREVIOUS.LINEBREAK 143526 . 146329) (
|
||||
\TEDIT.UPDATE.LINES 146331 . 152637) (\TEDIT.PANE.CREATELINES 152639 . 154929) (
|
||||
\TEDIT.SUFFIXLINE.CREATE 154931 . 156546) (\TEDIT.LINES.BELOW 156548 . 161158) (\TEDIT.MEASURED.LINES
|
||||
161160 . 163169) (\TEDIT.VALID.LASTCHNOS 163171 . 166947) (\TEDIT.VALID.NEXTCHNOS 166949 . 170423) (
|
||||
\TEDIT.LASTVALIDLINE 170425 . 175096) (\TEDIT.NEXTVALIDLINE 175098 . 178068) (
|
||||
\TEDIT.CLEARPANE.BELOW.LINE 178070 . 180176) (\TEDIT.INSERTLINE 180178 . 181564) (\TEDIT.LINE.BOTTOM
|
||||
181566 . 184796) (\TEDIT.SHOW.AT.BOTTOMP 184798 . 185908) (\TEDIT.SHOW.AT.TOPP 185910 . 186619)))))
|
||||
(FILEMAP (NIL (26225 28441 (\TEDIT.LINEDESCRIPTOR.DEFPRINT 26235 . 28439)) (35895 119527 (
|
||||
\TEDIT.FORMATLINE 35905 . 71011) (\TEDIT.FORMATLINE.SETUP.PARA 71013 . 76207) (
|
||||
\TEDIT.FORMATLINE.HORIZONTAL 76209 . 81026) (\TEDIT.FORMATLINE.VERTICAL 81028 . 83479) (
|
||||
\TEDIT.FORMATLINE.JUSTIFY 83481 . 89502) (\TEDIT.FORMATLINE.TABS 89504 . 97532) (\TEDIT.SCALE.TABS
|
||||
97534 . 98325) (\TEDIT.FORMATLINE.PURGE.SPACES 98327 . 99754) (\TEDIT.FORMATLINE.FLUSH.SOFTHYPHEN
|
||||
99756 . 100833) (\TEDIT.FORMATLINE.EMPTY 100835 . 105655) (\TEDIT.FORMATLINE.UPDATELOOKS 105657 .
|
||||
111838) (\TEDIT.FORMATLINE.LASTLEGAL 111840 . 115290) (\TEDIT.LINES.ABOVE 115292 . 118903) (
|
||||
\TEDIT.CHNO.TO.YTOP 118905 . 119525)) (119804 140384 (\TEDIT.DISPLAYLINE 119814 . 132324) (
|
||||
\TEDIT.DISPLAYLINE.TABS 132326 . 135130) (\TEDIT.LINECACHE 135132 . 135860) (\TEDIT.CREATE.LINECACHE
|
||||
135862 . 136698) (\TEDIT.BLTCHAR 136700 . 139327) (\TEDIT.DIACRITIC.SHIFT 139329 . 140382)) (140999
|
||||
186660 (\TEDIT.BACKFORMAT 141009 . 143563) (\TEDIT.PREVIOUS.LINEBREAK 143565 . 146368) (
|
||||
\TEDIT.UPDATE.LINES 146370 . 152676) (\TEDIT.PANE.CREATELINES 152678 . 154968) (
|
||||
\TEDIT.SUFFIXLINE.CREATE 154970 . 156585) (\TEDIT.LINES.BELOW 156587 . 161197) (\TEDIT.MEASURED.LINES
|
||||
161199 . 163208) (\TEDIT.VALID.LASTCHNOS 163210 . 166986) (\TEDIT.VALID.NEXTCHNOS 166988 . 170462) (
|
||||
\TEDIT.LASTVALIDLINE 170464 . 175135) (\TEDIT.NEXTVALIDLINE 175137 . 178107) (
|
||||
\TEDIT.CLEARPANE.BELOW.LINE 178109 . 180215) (\TEDIT.INSERTLINE 180217 . 181603) (\TEDIT.LINE.BOTTOM
|
||||
181605 . 184835) (\TEDIT.SHOW.AT.BOTTOMP 184837 . 185947) (\TEDIT.SHOW.AT.TOPP 185949 . 186658)))))
|
||||
STOP
|
||||
|
||||
Binary file not shown.
@ -1,12 +1,12 @@
|
||||
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
|
||||
|
||||
(FILECREATED "15-Nov-2025 01:27:38" {WMEDLEY}<library>TEDIT>TEDIT-WINDOW.;881 231034
|
||||
(FILECREATED "24-Dec-2025 11:22:33" {WMEDLEY}<library>TEDIT>TEDIT-WINDOW.;883 231422
|
||||
|
||||
:EDIT-BY rmk
|
||||
|
||||
:CHANGES-TO (FNS \TEDIT.WINDOW.CREATE)
|
||||
:CHANGES-TO (FNS \TEDIT.MINIMAL.WINDOW.SETUP TEDIT.PROMPTCLEAR TEDIT.PROMPTPRINT)
|
||||
|
||||
:PREVIOUS-DATE "25-Oct-2025 10:33:08" {WMEDLEY}<library>TEDIT>TEDIT-WINDOW.;878)
|
||||
:PREVIOUS-DATE "15-Nov-2025 01:27:38" {WMEDLEY}<library>tedit>TEDIT-WINDOW.;881)
|
||||
|
||||
|
||||
(PRETTYCOMPRINT TEDIT-WINDOWCOMS)
|
||||
@ -608,7 +608,9 @@
|
||||
(\TEDIT.SET.WINDOW.EXTENT TEXTOBJ PANE])
|
||||
|
||||
(\TEDIT.MINIMAL.WINDOW.SETUP
|
||||
[LAMBDA (PANEWINDOW TSTREAM PROPS) (* ; "Edited 19-Oct-2025 14:55 by rmk")
|
||||
[LAMBDA (PANEWINDOW TSTREAM PROPS) (* ; "Edited 23-Dec-2025 23:41 by rmk")
|
||||
(* ; "Edited 20-Dec-2025 23:04 by rmk")
|
||||
(* ; "Edited 19-Oct-2025 14:55 by rmk")
|
||||
(* ; "Edited 20-Apr-2025 15:19 by rmk")
|
||||
(* ; "Edited 30-Nov-2024 13:32 by rmk")
|
||||
(* ; "Edited 4-Nov-2024 19:46 by rmk")
|
||||
@ -687,8 +689,7 @@
|
||||
(WINDOWPROP PANEWINDOW 'CURSOROUTFN (FUNCTION \TEDIT.CURSOROUTFN))
|
||||
(WINDOWPROP PANEWINDOW 'BUTTONEVENTFN (FUNCTION \TEDIT.BUTTONEVENTFN))
|
||||
(WINDOWPROP PANEWINDOW 'RIGHTBUTTONFN (FUNCTION \TEDIT.BUTTONEVENTFN))
|
||||
(WINDOWPROP PANEWINDOW 'HARDCOPYFN (FUNCTION TEDIT.HARDCOPYFN))
|
||||
(WINDOWPROP PANEWINDOW 'HARDCOPYFILEFN (FUNCTION \TEDIT.HARDCOPYFILEFN))
|
||||
(WINDOWPROP PANEWINDOW 'IMAGETYPE 'TEDIT) (* ; "For hardcopy")
|
||||
(WINDOWPROP PANEWINDOW 'COPYINSERTFN (FUNCTION \TEDIT.COPYINSERTFN))
|
||||
(WINDOWPROP PANEWINDOW 'REPAINTFN (FUNCTION \TEDIT.REPAINTFN))
|
||||
(WINDOWPROP PANEWINDOW 'AFTERMOVEFN (FUNCTION \TEDIT.AFTERMOVEFN))
|
||||
@ -2059,7 +2060,8 @@
|
||||
PROMPTWINDOW])
|
||||
|
||||
(TEDIT.PROMPTPRINT
|
||||
[LAMBDA (TEXTSTREAM MSG CLEAR? FLASH?) (* ; "Edited 29-Dec-2024 14:45 by rmk")
|
||||
[LAMBDA (TSTREAM MSG CLEAR? FLASH?) (* ; "Edited 14-Dec-2025 17:41 by rmk")
|
||||
(* ; "Edited 29-Dec-2024 14:45 by rmk")
|
||||
(* ; "Edited 26-Nov-2023 10:10 by rmk")
|
||||
(* ; "Edited 10-Sep-2023 00:27 by rmk")
|
||||
(* ; "Edited 30-Jul-2023 08:52 by rmk")
|
||||
@ -2070,7 +2072,7 @@
|
||||
|
||||
(* ;; "Print a message in the editor's prompt window (if none, use the global promptwindow). Optionally clear the window first.")
|
||||
|
||||
(LET ((TEXTOBJ (TEXTOBJ TEXTSTREAM T))
|
||||
(LET ((TEXTOBJ (TEXTOBJ TSTREAM T))
|
||||
PWINDOW MAINWINDOW)
|
||||
(if TEXTOBJ
|
||||
then (CL:WHEN (SETQ MAINWINDOW (\TEDIT.MAINW TEXTOBJ))
|
||||
@ -2078,7 +2080,7 @@
|
||||
(CAR (NLSETQ (SELECTQ PWINDOW
|
||||
(DON'T (CL:WHEN (GETTEXTPROP TEXTOBJ 'PWINDOW.ON.DEMAND)
|
||||
(GETPROMPTWINDOW MAINWINDOW)))
|
||||
(NIL (CL:WHEN TEXTSTREAM
|
||||
(NIL (CL:WHEN TSTREAM
|
||||
[GETPROMPTWINDOW MAINWINDOW NIL NIL
|
||||
(NOT (GETTEXTPROP TEXTOBJ 'PWINDOW.ON.DEMAND]))
|
||||
PWINDOW]) (* ;
|
||||
@ -2097,15 +2099,15 @@
|
||||
else (PROMPTPRINT MSG])
|
||||
|
||||
(TEDIT.PROMPTCLEAR
|
||||
[LAMBDA (TSTREAM FONT) (* ; "Edited 18-Sep-2025 23:08 by rmk")
|
||||
[LAMBDA (TSTREAM FONT) (* ; "Edited 14-Dec-2025 17:34 by rmk")
|
||||
(* ; "Edited 18-Sep-2025 23:08 by rmk")
|
||||
(* ; "Edited 14-Mar-98 12:52 by rmk:")
|
||||
(* ; "Edited 14-Oct-87 15:35 by bvm:")
|
||||
|
||||
(* ;; "Clears the promptwindow attached to TSTREAM and shrinks it back to a single line in font FONT (or TEDIT.PROMPT.FONT) if it has grown. [TSTREAM could actually be a stream on the promptwindow itself.--is that true, does this code need to deal with that?]")
|
||||
|
||||
(LET* [(MW (\TEDIT.MAINW TSTREAM))
|
||||
(PW (AND MW (WINDOWPROP (\TEDIT.MAINW TSTREAM)
|
||||
'TEDIT.PROMPTWINDOW]
|
||||
(PW (AND MW (GETPROMPTWINDOW MW NIL NIL (NOT (GETTEXTPROP TSTREAM 'PWINDOW.ON.DEMAND]
|
||||
(CL:WHEN PW
|
||||
(WINDOWPROP PW 'TEDIT.NLINES 1)
|
||||
(CL:WHEN [AND (SETQ MW (WINDOWPROP PW 'MAINWINDOW))
|
||||
@ -3662,36 +3664,36 @@
|
||||
(RPAQ? TEDIT.TITLED.ICON.TEMPLATE (create TITLEDICON ICON _ TEDITICON MASK _ TEDITMASK TITLEREG _
|
||||
TEDIT.ICON.TITLE.REGION))
|
||||
(DECLARE%: DONTCOPY
|
||||
(FILEMAP (NIL (17100 17996 (TEDIT.DEFER.UPDATES 17110 . 17994)) (17997 45089 (\TEDIT.WINDOW.CREATE
|
||||
18007 . 24870) (\TEDIT.WINDOW.GETREGION 24872 . 29576) (\TEDIT.WINDOW.SETUP 29578 . 33908) (
|
||||
\TEDIT.MINIMAL.WINDOW.SETUP 33910 . 41721) (\TEDIT.CLEARPANE 41723 . 42440) (\TEDIT.FILL.PANES 42442
|
||||
. 45087)) (45090 68791 (\TEDIT.CURSORMOVEDFN 45100 . 50710) (\TEDIT.CURSOROUTFN 50712 . 51400) (
|
||||
\TEDIT.ACTIVE.WINDOWP 51402 . 52472) (\TEDIT.EXPANDFN 52474 . 53037) (\TEDIT.MAINW 53039 . 54319) (
|
||||
\TEDIT.MAINSTREAM 54321 . 54655) (\TEDIT.PRIMARYPANE 54657 . 55427) (\TEDIT.PANELIST 55429 . 55925) (
|
||||
\TEDIT.NEWREGIONFN 55927 . 58443) (\TEDIT.SET.WINDOW.EXTENT 58445 . 63427) (\TEDIT.SHRINK.ICONCREATE
|
||||
63429 . 66162) (\TEDIT.SHRINKFN 66164 . 66573) (\TEDIT.PANEREGION 66575 . 68789)) (68823 101869 (
|
||||
\TEDIT.BUTTONEVENTFN 68833 . 81806) (\TEDIT.BUTTONEVENTFN.DOOPERATION 81808 . 89071) (
|
||||
\TEDIT.BUTTONEVENTFN.GETOPERATION 89073 . 90915) (\TEDIT.BUTTONEVENTFN.CURSEL.INIT 90917 . 94587) (
|
||||
\TEDIT.BUTTONEVENTFN.INACTIVE 94589 . 97019) (\TEDIT.BUTTONEVENTFN.INTITLE 97021 . 98856) (
|
||||
\TEDIT.COPYINSERTFN 98858 . 99990) (\TEDIT.FOREIGN.COPY 99992 . 101867)) (101870 119433 (
|
||||
\TEDIT.PANE.SPLIT 101880 . 105828) (\TEDIT.SPLITW 105830 . 113889) (\TEDIT.UNSPLITW 113891 . 118090) (
|
||||
\TEDIT.LINKPANES 118092 . 118855) (\TEDIT.UNLINKPANE 118857 . 119431)) (120867 121758 (TEDITWINDOWP
|
||||
120877 . 121756)) (121795 124898 (TEDIT.GETINPUT 121805 . 124248) (\TEDIT.MAKEFILENAME 124250 . 124896
|
||||
)) (124947 132597 (TEDIT.PROMPTWINDOW 124957 . 125271) (TEDIT.PROMPTPRINT 125273 . 127900) (
|
||||
TEDIT.PROMPTCLEAR 127902 . 129644) (TEDIT.PROMPTFLASH 129646 . 130904) (\TEDIT.PROMPT.PAGEFULLFN
|
||||
130906 . 132595)) (132835 143413 (\TEDIT.FILENAME 132845 . 133617) (\TEDIT.DEFAULT.TITLE 133619 .
|
||||
135998) (\TEDIT.WINDOW.TITLE 136000 . 138169) (\TEDIT.LIKELY.FILENAME 138171 . 140895) (
|
||||
\TEDIT.UPDATE.TITLE 140897 . 143411)) (143456 155940 (TEDIT.DEACTIVATE.WINDOW 143466 . 149039) (
|
||||
\TEDIT.RESHAPEFN 149041 . 151126) (\TEDIT.REPAINTFN 151128 . 151352) (\TEDIT.CLOSESPLITS 151354 .
|
||||
153799) (\TEDIT.CLOSEPANE 153801 . 155938)) (155941 198740 (\TEDIT.SCROLLFN 155951 . 158182) (
|
||||
\TEDIT.SCROLLCH.TOP 158184 . 160295) (\TEDIT.SCROLLCH.BOTTOM 160297 . 164627) (\TEDIT.SCROLLUP 164629
|
||||
. 170355) (\TEDIT.TOPLINE.YTOP 170357 . 172026) (\TEDIT.SCROLLDOWN 172028 . 179067) (
|
||||
\TEDIT.SCROLL.CARET 179069 . 181907) (\TEDIT.VISIBLECARETP 181909 . 184203) (\TEDIT.VISIBLECHARP
|
||||
184205 . 185296) (\TEDIT.BITMAPLINES 185298 . 189218) (\TEDIT.SETPANE.TOPLINE 189220 . 189832) (
|
||||
\TEDIT.SHIFTLINES 189834 . 198738)) (198741 209610 (\TEDIT.ONSCREEN? 198751 . 203302) (
|
||||
\TEDIT.ONSCREEN.REGION 203304 . 206955) (\TEDIT.AFTERMOVEFN 206957 . 207854) (OFFSCREENP 207856 .
|
||||
209608)) (209652 212466 (\TEDIT.PROCIDLEFN 209662 . 211322) (\TEDIT.PROCENTRYFN 211324 . 211769) (
|
||||
\TEDIT.PROCEXITFN 211771 . 212464)) (212545 225770 (\TEDIT.DOWNCARET 212555 . 213348) (
|
||||
\TEDIT.FLASHCARET 213350 . 215461) (\TEDIT.UPCARET 215463 . 216567) (TEDIT.NORMALIZECARET 216569 .
|
||||
219787) (\TEDIT.SETCARET 219789 . 225140) (\TEDIT.CARET 225142 . 225768)))))
|
||||
(FILEMAP (NIL (17143 18039 (TEDIT.DEFER.UPDATES 17153 . 18037)) (18040 45281 (\TEDIT.WINDOW.CREATE
|
||||
18050 . 24913) (\TEDIT.WINDOW.GETREGION 24915 . 29619) (\TEDIT.WINDOW.SETUP 29621 . 33951) (
|
||||
\TEDIT.MINIMAL.WINDOW.SETUP 33953 . 41913) (\TEDIT.CLEARPANE 41915 . 42632) (\TEDIT.FILL.PANES 42634
|
||||
. 45279)) (45282 68983 (\TEDIT.CURSORMOVEDFN 45292 . 50902) (\TEDIT.CURSOROUTFN 50904 . 51592) (
|
||||
\TEDIT.ACTIVE.WINDOWP 51594 . 52664) (\TEDIT.EXPANDFN 52666 . 53229) (\TEDIT.MAINW 53231 . 54511) (
|
||||
\TEDIT.MAINSTREAM 54513 . 54847) (\TEDIT.PRIMARYPANE 54849 . 55619) (\TEDIT.PANELIST 55621 . 56117) (
|
||||
\TEDIT.NEWREGIONFN 56119 . 58635) (\TEDIT.SET.WINDOW.EXTENT 58637 . 63619) (\TEDIT.SHRINK.ICONCREATE
|
||||
63621 . 66354) (\TEDIT.SHRINKFN 66356 . 66765) (\TEDIT.PANEREGION 66767 . 68981)) (69015 102061 (
|
||||
\TEDIT.BUTTONEVENTFN 69025 . 81998) (\TEDIT.BUTTONEVENTFN.DOOPERATION 82000 . 89263) (
|
||||
\TEDIT.BUTTONEVENTFN.GETOPERATION 89265 . 91107) (\TEDIT.BUTTONEVENTFN.CURSEL.INIT 91109 . 94779) (
|
||||
\TEDIT.BUTTONEVENTFN.INACTIVE 94781 . 97211) (\TEDIT.BUTTONEVENTFN.INTITLE 97213 . 99048) (
|
||||
\TEDIT.COPYINSERTFN 99050 . 100182) (\TEDIT.FOREIGN.COPY 100184 . 102059)) (102062 119625 (
|
||||
\TEDIT.PANE.SPLIT 102072 . 106020) (\TEDIT.SPLITW 106022 . 114081) (\TEDIT.UNSPLITW 114083 . 118282) (
|
||||
\TEDIT.LINKPANES 118284 . 119047) (\TEDIT.UNLINKPANE 119049 . 119623)) (121059 121950 (TEDITWINDOWP
|
||||
121069 . 121948)) (121987 125090 (TEDIT.GETINPUT 121997 . 124440) (\TEDIT.MAKEFILENAME 124442 . 125088
|
||||
)) (125139 132985 (TEDIT.PROMPTWINDOW 125149 . 125463) (TEDIT.PROMPTPRINT 125465 . 128195) (
|
||||
TEDIT.PROMPTCLEAR 128197 . 130032) (TEDIT.PROMPTFLASH 130034 . 131292) (\TEDIT.PROMPT.PAGEFULLFN
|
||||
131294 . 132983)) (133223 143801 (\TEDIT.FILENAME 133233 . 134005) (\TEDIT.DEFAULT.TITLE 134007 .
|
||||
136386) (\TEDIT.WINDOW.TITLE 136388 . 138557) (\TEDIT.LIKELY.FILENAME 138559 . 141283) (
|
||||
\TEDIT.UPDATE.TITLE 141285 . 143799)) (143844 156328 (TEDIT.DEACTIVATE.WINDOW 143854 . 149427) (
|
||||
\TEDIT.RESHAPEFN 149429 . 151514) (\TEDIT.REPAINTFN 151516 . 151740) (\TEDIT.CLOSESPLITS 151742 .
|
||||
154187) (\TEDIT.CLOSEPANE 154189 . 156326)) (156329 199128 (\TEDIT.SCROLLFN 156339 . 158570) (
|
||||
\TEDIT.SCROLLCH.TOP 158572 . 160683) (\TEDIT.SCROLLCH.BOTTOM 160685 . 165015) (\TEDIT.SCROLLUP 165017
|
||||
. 170743) (\TEDIT.TOPLINE.YTOP 170745 . 172414) (\TEDIT.SCROLLDOWN 172416 . 179455) (
|
||||
\TEDIT.SCROLL.CARET 179457 . 182295) (\TEDIT.VISIBLECARETP 182297 . 184591) (\TEDIT.VISIBLECHARP
|
||||
184593 . 185684) (\TEDIT.BITMAPLINES 185686 . 189606) (\TEDIT.SETPANE.TOPLINE 189608 . 190220) (
|
||||
\TEDIT.SHIFTLINES 190222 . 199126)) (199129 209998 (\TEDIT.ONSCREEN? 199139 . 203690) (
|
||||
\TEDIT.ONSCREEN.REGION 203692 . 207343) (\TEDIT.AFTERMOVEFN 207345 . 208242) (OFFSCREENP 208244 .
|
||||
209996)) (210040 212854 (\TEDIT.PROCIDLEFN 210050 . 211710) (\TEDIT.PROCENTRYFN 211712 . 212157) (
|
||||
\TEDIT.PROCEXITFN 212159 . 212852)) (212933 226158 (\TEDIT.DOWNCARET 212943 . 213736) (
|
||||
\TEDIT.FLASHCARET 213738 . 215849) (\TEDIT.UPCARET 215851 . 216955) (TEDIT.NORMALIZECARET 216957 .
|
||||
220175) (\TEDIT.SETCARET 220177 . 225528) (\TEDIT.CARET 225530 . 226156)))))
|
||||
STOP
|
||||
|
||||
Binary file not shown.
Binary file not shown.
Loading…
x
Reference in New Issue
Block a user