github.com/Interlisp.medley
1
0
Fork 0
mirror of synced 2026-01-26 20:31:53 +00:00
Code Issues Projects Releases Wiki Activity

Rmk88 split screen updates and color, eliminate reliance on STREAMHINT xpointer (#2119)

Browse Source 
* Tedit window splitting is more robust, interface through menu items instead of split-region on the right of the window.  See TEDIT-RELEASENOTES.TEDIT

* Tedit recognizes color as specfied by DSPCOLOR, passes it to hardcopy

* N-way buttons default to unsorted--new items go at the end. Otherwise keyboard shortcut meta-3 for the 3rd font might pick a different one depending on what went before.

* USER.CM can be specified as an opening property for Bravo conversion.

* Adresses/fixes Tedit issues #2173 #2172 #2171 #2142  #2105 #2062 #2059 #1972 (maybe some others).

* Changes to rationalize internal interfaces and simplify code, and particularly to eliminate internal dependencies on the STREAMHINT Xpointer backlink.  STREAMHINT is only accessed if a client has grabbed the TEXTOBJ and passes it back in.  The stream and window are the safe/reliable way of referencing the Tedit state (and the window and stream know about each other, and know about the TEXTOBJ only through the stream).

* Many changes to TEDIT-STRESS, including new defaults CHECKARRAYS NIL, NSYSOUTS 0, ARRAYBLOCKCHECKING T

* lispusers/EQUATIONS: image object no longer saves state on the stream, not the window (which may not be there).

* Rename CHARNAME to be CHARCODE.ENCODE, parallel to CHARCODE.DECODE
This commit is contained in:
rmkaplan
2025-07-03 00:06:10 -07:00
committed by GitHub
parent d6253dbffd
commit 63d5849a15
47 changed files with 5481 additions and 4204 deletions
Download Patch File Download Diff File Expand all files Collapse all files

73
lispusers/EQUATIONS
View File

@@ -1,12 +1,12 @@
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
(FILECREATED "28-Jun-2024 22:11:21" {WMEDLEY}<lispusers>EQUATIONS.;2 85831
(FILECREATED "31-May-2025 19:47:44" {WMEDLEY}<lispusers>EQUATIONS.;4 85964
:EDIT-BY rmk
:CHANGES-TO (FNS EQN.WindowFromText)
:CHANGES-TO (FNS EQN.EditWindow)
:PREVIOUS-DATE " 3-Mar-88 13:51:10" {WMEDLEY}<lispusers>EQUATIONS.;1)
:PREVIOUS-DATE "28-Jun-2024 22:11:21" {WMEDLEY}<lispusers>EQUATIONS.;2)
(PRETTYCOMPRINT EQUATIONSCOMS)
@@ -1326,12 +1326,13 @@
])
(EQN.EditWindow
[LAMBDA window (* thh%: " 3-May-85 08:55")
[LAMBDA window (* ; "Edited 31-May-2025 19:47 by rmk")
(* thh%: " 3-May-85 08:55")
(* returns or sets window of any sub
 edit)
(COND
[(IEQP window 1)
(PROG [(w (WINDOWPROP (ARG window 1)
(PROG [(w (WINDOWPROP (TEDITWINDOWP (ARG window 1))
'EditWindow] (* test for valid window)
(RETURN (COND
((WINDOWP w)
@@ -1345,7 +1346,7 @@
NIL)))
(T NIL]
((IEQP window 2)
(WINDOWPROP (ARG window 1)
(WINDOWPROP (TEDITWINDOWP (ARG window 1))
'EditWindow
(ARG window 2)))
(T NIL])
@@ -1797,34 +1798,34 @@
(FILESLOAD EQUATIONFORMS)
(DECLARE%: DONTCOPY
(FILEMAP (NIL (4439 19468 (EQIO.CreateFns 4449 . 4982) (EQIO.Create 4984 . 6250) (EQIO.Imagebox 6252
. 6664) (EQIO.Display 6666 . 8277) (EQIO.ButtonEventIn 8279 . 12120) (EQIO.Copy 12122 . 12503) (
EQIO.CopyList 12505 . 13076) (EQIO.Get 13078 . 13486) (EQIO.Put 13488 . 14043) (EQIO.WhenDeleted 14045
. 14539) (EQIO.SelectRegion 14541 . 15688) (EQIO.Selection 15690 . 17194) (EQIO.DefaultSelectFn 17196
. 18434) (EQIO.MakeSelectionMenu 18436 . 19466)) (19542 25544 (EQIO.EqnType 19552 . 19803) (
EQIO.EqnDataList 19805 . 20145) (EQIO.SetDataList 20147 . 20544) (EQIO.EqnData 20546 . 20725) (
EQIO.EqnProperty 20727 . 21655) (EQIO.AllProps 21657 . 22172) (EQIO.Specify 22174 . 22671) (
EQIO.GetInitialProps 22673 . 23805) (EQIO.NumPieces 23807 . 25050) (EQIO.NewStructure 25052 . 25542))
(25611 30073 (EQIO.AddType 25621 . 26134) (EQIO.GetInfo 26136 . 26486) (EQIO.SetInfo 26488 . 27129) (
EQIO.TypeProp 27131 . 28077) (EQIO.ResetTypeProps 28079 . 28401) (EQIO.IsDefined 28403 . 28688) (
EQIO.GetBox 28690 . 28910) (EQIO.GetDataSpec 28912 . 29245) (EQIO.GetDataSpecList 29247 . 29392) (
EQIO.GetDataPosition 29394 . 29534) (EQIO.GetDataSelectRegion 29536 . 29680) (EQIO.MakeSpec 29682 .
29918) (EQIO.MakeDataSpec 29920 . 30071)) (31648 48752 (EQN.AbortEdit 31658 . 32170) (EQN.StopEdit
32172 . 32619) (EQN.ContinueEdit 32621 . 36273) (EQN.FinishEdit 36275 . 37008) (EQN.MakeEditWindow
37010 . 38429) (EQN.SetUpEdit 38431 . 39608) (EQN.StartEdit 39610 . 42911) (EQN.StartNextEdit 42913 .
43430) (EQN.UpdateEdit 43432 . 44829) (EQN.DefaultData 44831 . 47516) (EQN.TypeMenu 47518 . 48750)) (
48819 56727 (EQN.Equation 48829 . 50088) (EQN.NextPiece 50090 . 50815) (EQN.FinishEqn 50817 . 51346) (
EQN.NoUpdateAbort 51348 . 51761) (EQN.PreventUpdate 51763 . 52198) (EQN.CharFn 52200 . 54285) (
EQN.TEditSpecialChar 54287 . 55006) (EQN.SnuggleWindows 55008 . 55599) (EQN.SnuggleMainWindow 55601 .
56725)) (56781 58520 (EQN.EquationFontNumber 56791 . 57550) (EQN.EquationFont 57552 . 57894) (
EQN.GetEqnFont 57896 . 58077) (EQN.MakeFS 58079 . 58518)) (58549 61690 (EQN.AdjustWindow 58559 . 60519
) (EQN.CheckWindowSize 60521 . 61688)) (61691 67455 (EQN.SubEditorP 61701 . 61934) (EQN.WindowFromText
61936 . 62473) (EQN.EditWindow 62475 . 63553) (EQN.ResultWindow 63555 . 64105) (EQN.ResultObj 64107
. 64575) (EQN.PieceNumber 64577 . 65126) (EQN.ContinueFlg 65128 . 65691) (EQN.ValidEditWindow 65693
. 66127) (EQN.ObjEditWindow 66129 . 67453)) (67456 68573 (EQN.Make 67466 . 68571)) (69805 85740 (
FS.Box 69815 . 72061) (FS.Copy 72063 . 72703) (FS.Display 72705 . 75691) (FS.Get 75693 . 76162) (
FS.Put 76164 . 76635) (FS.ItemFont 76637 . 76998) (FS.ItemValue 77000 . 77406) (FS.ItemShift 77408 .
77788) (FS.MakeItem 77790 . 78212) (FS.Extract 78214 . 82138) (FS.ExtractFont 82140 . 82743) (
FS.ExtractShift 82745 . 83308) (FS.Insert 83310 . 85299) (FS.AllowedChar 85301 . 85538) (
FS.RealStringP 85540 . 85738)))))
(FILEMAP (NIL (4437 19466 (EQIO.CreateFns 4447 . 4980) (EQIO.Create 4982 . 6248) (EQIO.Imagebox 6250
. 6662) (EQIO.Display 6664 . 8275) (EQIO.ButtonEventIn 8277 . 12118) (EQIO.Copy 12120 . 12501) (
EQIO.CopyList 12503 . 13074) (EQIO.Get 13076 . 13484) (EQIO.Put 13486 . 14041) (EQIO.WhenDeleted 14043
. 14537) (EQIO.SelectRegion 14539 . 15686) (EQIO.Selection 15688 . 17192) (EQIO.DefaultSelectFn 17194
. 18432) (EQIO.MakeSelectionMenu 18434 . 19464)) (19540 25542 (EQIO.EqnType 19550 . 19801) (
EQIO.EqnDataList 19803 . 20143) (EQIO.SetDataList 20145 . 20542) (EQIO.EqnData 20544 . 20723) (
EQIO.EqnProperty 20725 . 21653) (EQIO.AllProps 21655 . 22170) (EQIO.Specify 22172 . 22669) (
EQIO.GetInitialProps 22671 . 23803) (EQIO.NumPieces 23805 . 25048) (EQIO.NewStructure 25050 . 25540))
(25609 30071 (EQIO.AddType 25619 . 26132) (EQIO.GetInfo 26134 . 26484) (EQIO.SetInfo 26486 . 27127) (
EQIO.TypeProp 27129 . 28075) (EQIO.ResetTypeProps 28077 . 28399) (EQIO.IsDefined 28401 . 28686) (
EQIO.GetBox 28688 . 28908) (EQIO.GetDataSpec 28910 . 29243) (EQIO.GetDataSpecList 29245 . 29390) (
EQIO.GetDataPosition 29392 . 29532) (EQIO.GetDataSelectRegion 29534 . 29678) (EQIO.MakeSpec 29680 .
29916) (EQIO.MakeDataSpec 29918 . 30069)) (31646 48750 (EQN.AbortEdit 31656 . 32168) (EQN.StopEdit
32170 . 32617) (EQN.ContinueEdit 32619 . 36271) (EQN.FinishEdit 36273 . 37006) (EQN.MakeEditWindow
37008 . 38427) (EQN.SetUpEdit 38429 . 39606) (EQN.StartEdit 39608 . 42909) (EQN.StartNextEdit 42911 .
43428) (EQN.UpdateEdit 43430 . 44827) (EQN.DefaultData 44829 . 47514) (EQN.TypeMenu 47516 . 48748)) (
48817 56725 (EQN.Equation 48827 . 50086) (EQN.NextPiece 50088 . 50813) (EQN.FinishEqn 50815 . 51344) (
EQN.NoUpdateAbort 51346 . 51759) (EQN.PreventUpdate 51761 . 52196) (EQN.CharFn 52198 . 54283) (
EQN.TEditSpecialChar 54285 . 55004) (EQN.SnuggleWindows 55006 . 55597) (EQN.SnuggleMainWindow 55599 .
56723)) (56779 58518 (EQN.EquationFontNumber 56789 . 57548) (EQN.EquationFont 57550 . 57892) (
EQN.GetEqnFont 57894 . 58075) (EQN.MakeFS 58077 . 58516)) (58547 61688 (EQN.AdjustWindow 58557 . 60517
) (EQN.CheckWindowSize 60519 . 61686)) (61689 67588 (EQN.SubEditorP 61699 . 61932) (EQN.WindowFromText
61934 . 62471) (EQN.EditWindow 62473 . 63686) (EQN.ResultWindow 63688 . 64238) (EQN.ResultObj 64240
. 64708) (EQN.PieceNumber 64710 . 65259) (EQN.ContinueFlg 65261 . 65824) (EQN.ValidEditWindow 65826
. 66260) (EQN.ObjEditWindow 66262 . 67586)) (67589 68706 (EQN.Make 67599 . 68704)) (69938 85873 (
FS.Box 69948 . 72194) (FS.Copy 72196 . 72836) (FS.Display 72838 . 75824) (FS.Get 75826 . 76295) (
FS.Put 76297 . 76768) (FS.ItemFont 76770 . 77131) (FS.ItemValue 77133 . 77539) (FS.ItemShift 77541 .
77921) (FS.MakeItem 77923 . 78345) (FS.Extract 78347 . 82271) (FS.ExtractFont 82273 . 82876) (
FS.ExtractShift 82878 . 83441) (FS.Insert 83443 . 85432) (FS.AllowedChar 85434 . 85671) (
FS.RealStringP 85673 . 85871)))))
STOP

BIN
lispusers/EQUATIONS.LCOM
View File

Binary file not shown.