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

Tedit PLOOKS cleanup plus default paralooks (#2259)

Browse Source
This commit is contained in:
rmkaplan
2025-08-16 13:45:28 -07:00
committed by GitHub
parent 8fa61304a3
commit 74f518ca02
32 changed files with 752 additions and 777 deletions
Download Patch File Download Diff File Expand all files Collapse all files

95
library/tedit/TEDIT-COMMAND
View File

@@ -1,13 +1,14 @@
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
(FILECREATED "23-Mar-2025 15:27:20" {WMEDLEY}<library>tedit>TEDIT-COMMAND.;163 19331
(FILECREATED "17-Jul-2025 00:24:49" 
{DSK}<Users>kaplan>Local>medley3.5>working-medley>library>tedit>TEDIT-COMMAND.;165 19015
:EDIT-BY rmk
:CHANGES-TO (FNS \TEDIT.COMMAND.FUNCTION? \TEDIT.COMMAND.LOOP)
(VARS TEDIT-COMMANDCOMS)
:CHANGES-TO (FNS \TEDIT.COMMAND.RESET.SETUP)
:PREVIOUS-DATE "16-Mar-2025 14:20:07" {WMEDLEY}<library>tedit>TEDIT-COMMAND.;160)
:PREVIOUS-DATE "23-Mar-2025 15:27:20"
{DSK}<Users>kaplan>Local>medley3.5>working-medley>library>tedit>TEDIT-COMMAND.;163)
(PRETTYCOMPRINT TEDIT-COMMANDCOMS)
@@ -200,7 +201,8 @@
TEXTOBJ])
(\TEDIT.COMMAND.RESET.SETUP
[LAMBDA (ARGS STARTING) (* ; "Edited 29-Jun-2024 00:10 by rmk")
[LAMBDA (ARGS STARTING) (* ; "Edited 17-Jul-2025 00:01 by rmk")
(* ; "Edited 29-Jun-2024 00:10 by rmk")
(* ; "Edited 17-Mar-2024 18:54 by rmk")
(* ; "Edited 22-Feb-2024 23:14 by rmk")
(* ; "Edited 5-Oct-2023 22:41 by rmk")
@@ -211,52 +213,47 @@
(* ;; "If STARTING is T, set up the reset-driven connections and values for editing; otherwise, break links and reset values for non-editing")
(PROG ((TEXTOBJ (pop ARGS))
(OTTYWINDOW (pop ARGS))
(OTTYENTRYFN (pop ARGS))
(OTTYEXITFN (pop ARGS))
(OWINDOW (pop ARGS))
TTYWINDOW PRIMPANE)
(SETQ PRIMPANE (FGETTOBJ TEXTOBJ PRIMARYPANE))
[COND
(STARTING (* ;
(LET ((TEXTOBJ (pop ARGS))
(OTTYWINDOW (pop ARGS))
(OTTYENTRYFN (pop ARGS))
(OTTYEXITFN (pop ARGS))
(OWINDOW (pop ARGS))
TTYWINDOW PRIMPANE)
(SETQ PRIMPANE (FGETTOBJ TEXTOBJ PRIMARYPANE))
(if STARTING
then (* ;
 "We're going INTO the command loop. Set up all the stuff")
(FSETTOBJ TEXTOBJ EDITOPACTIVE T) (* ;
(FSETTOBJ TEXTOBJ EDITOPACTIVE T) (* ;
 "Mark us busy until we're set up, so that nobody tries any funny stuff.")
(SETQ OWINDOW (PROCESSPROP (THIS.PROCESS)
'WINDOW PRIMPANE)) (* ;
(SETQ OWINDOW (PROCESSPROP (THIS.PROCESS)
'WINDOW PRIMPANE)) (* ;
 "Attach the process to this window.")
(\TEDIT.INTERRUPT.SETUP (THIS.PROCESS)) (* ;
(\TEDIT.INTERRUPT.SETUP (THIS.PROCESS)) (* ;
 "Disarm all interrupt chars, re-arm them when we leave the edit")
(SETQ OTTYEXITFN (PROCESSPROP (THIS.PROCESS)
'TTYEXITFN
'\TEDIT.PROCEXITFN))
(SETQ OTTYEXITFN (PROCESSPROP (THIS.PROCESS)
'TTYEXITFN
'\TEDIT.PROCEXITFN))
(* ;
 "Set up functions for getting in and out of the edit process")
(SETQ OTTYENTRYFN (PROCESSPROP (THIS.PROCESS)
'TTYENTRYFN
'\TEDIT.PROCENTRYFN))
(CL:UNLESS (EQ (GETTEXTPROP TEXTOBJ 'TTYWINDOW)
'DON'T) (* ;
(SETQ OTTYENTRYFN (PROCESSPROP (THIS.PROCESS)
'TTYENTRYFN
'\TEDIT.PROCENTRYFN))
(CL:UNLESS (EQ (GETTEXTPROP TEXTOBJ 'TTYWINDOW)
'DON'T) (* ;
 "He can suppress the ability to copy-select things into this window if he wants....")
(SETQ TTYWINDOW (OR (GETTEXTPROP TEXTOBJ 'TTYWINDOW)
(CREATEW DEFAULTTTYREGION "TTY Window for TEdit" NIL T)))
(SETQ OTTYWINDOW (TTYDISPLAYSTREAM TTYWINDOW))
(PROCESSPROP (THIS.PROCESS)
'TEDITTTYWINDOW TTYWINDOW)
(WINDOWPROP TTYWINDOW 'PROCESS NIL)
[WINDOWPROP TTYWINDOW 'CLOSEFN (FUNCTION (LAMBDA (WW)
(WINDOWPROP WW 'PROCESS NIL]
(SETQ TTYWINDOW (OR (GETTEXTPROP TEXTOBJ 'TTYWINDOW)
(CREATEW DEFAULTTTYREGION "TTY Window for TEdit" NIL T)))
(SETQ OTTYWINDOW (TTYDISPLAYSTREAM TTYWINDOW))
(PROCESSPROP (THIS.PROCESS)
'TEDITTTYWINDOW TTYWINDOW)
(WINDOWPROP TTYWINDOW 'PROCESS NIL)
[WINDOWPROP TTYWINDOW 'CLOSEFN (FUNCTION (LAMBDA (WW)
(WINDOWPROP WW 'PROCESS NIL]
(* ;
 "So that there isn't a circularity in the PROCESS -> TTYWINDOW -> PROCESS")
(WINDOWPROP TTYWINDOW 'COPYINSERTFN (FUNCTION \TEDIT.COPYINSERTFN))
(WINDOWPROP TTYWINDOW 'MAINWINDOW PRIMPANE))
(FSETTOBJ TEXTOBJ TXTEDITING T) (* ;
 "Tell TEdit that this document is actively being edited.")
(* ;
 "Mark us un-busy so life can go on.")
(FSETTOBJ TEXTOBJ EDITOPACTIVE NIL))
(T (* ;
(WINDOWPROP TTYWINDOW 'COPYINSERTFN (FUNCTION \TEDIT.COPYINSERTFN))
(WINDOWPROP TTYWINDOW 'MAINWINDOW PRIMPANE))
else (* ;
 "Coming OUT OF the command loop -- reset everything")
(PROCESSPROP (THIS.PROCESS)
'WINDOW PRIMPANE) (* ;
@@ -279,15 +276,15 @@
(FSETTOBJ TEXTOBJ TXTHISTORY NIL) (* ;
 "To prevent circularities arising from the need to remember textobjs in the history list.")
(FSETTOBJ TEXTOBJ SELPANE NIL)
(FSETTOBJ TEXTOBJ TXTEDITING NIL) (* ;
 "Tell TEdit that this document is NO LONGER actively being edited.")
(CL:UNLESS (EQ (GETTEXTPROP TEXTOBJ 'TTYWINDOW)
'DON'T) (* ;
 "He can suppress the ability to copy-select things into this window if he wants....")
(TTYDISPLAYSTREAM OTTYWINDOW)
(PROCESSPROP (THIS.PROCESS)
'TEDITTTYWINDOW NIL))]
(RETURN (LIST TEXTOBJ OTTYWINDOW OTTYENTRYFN OTTYEXITFN OWINDOW])
'TEDITTTYWINDOW NIL)))
(FSETTOBJ TEXTOBJ EDITOPACTIVE NIL) (* ;
 "Mark us un-busy so life can go on.")
(LIST TEXTOBJ OTTYWINDOW OTTYENTRYFN OTTYEXITFN OWINDOW])
)
(RPAQ? TEDIT.INTERRUPTS '((2 BREAK)
@@ -306,7 +303,7 @@
(GLOBALVARS || TEDIT.INTERRUPTS)
)
(DECLARE%: DONTCOPY
(FILEMAP (NIL (2688 10242 (\TEDIT.COMMAND.LOOP 2698 . 9039) (\TEDIT.COMMAND.FUNCTION? 9041 . 10240)) (
10243 19041 (\TEDIT.INTERRUPT.SETUP 10253 . 11900) (\TEDIT.MARKACTIVE 11902 . 12231) (
\TEDIT.MARKINACTIVE 12233 . 12449) (\TEDIT.COMMAND.RESET.SETUP 12451 . 19039)))))
(FILEMAP (NIL (2709 10263 (\TEDIT.COMMAND.LOOP 2719 . 9060) (\TEDIT.COMMAND.FUNCTION? 9062 . 10261)) (
10264 18725 (\TEDIT.INTERRUPT.SETUP 10274 . 11921) (\TEDIT.MARKACTIVE 11923 . 12252) (
\TEDIT.MARKINACTIVE 12254 . 12470) (\TEDIT.COMMAND.RESET.SETUP 12472 . 18723)))))
STOP