Rmk88 split screen updates and color, eliminate reliance on STREAMHINT xpointer

library/tedit/TEDIT-ABBREV

@@ -1,12 +1,12 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
 
-
(FILECREATED "28-Mar-2025 10:13:36" {WMEDLEY}<library>tedit>TEDIT-ABBREV.;21
 15982  
+
(FILECREATED "24-Apr-2025 23:45:12" {WMEDLEY}<library>tedit>TEDIT-ABBREV.;23
 16200  
 
       :EDIT-BY rmk
 
       :CHANGES-TO (FNS \TEDIT.ABBREV.PARSE)
 
-      :PREVIOUS-DATE "23-Mar-2025 17:09:00" {WMEDLEY}<library>tedit>TEDIT-ABBREV.;20)
+      :PREVIOUS-DATE "20-Apr-2025 23:30:29" {WMEDLEY}<library>tedit>TEDIT-ABBREV.;22)
 
 
 (PRETTYCOMPRINT TEDIT-ABBREVCOMS)
@@ -63,7 +63,8 @@
 (DEFINEQ
 
 (\TEDIT.ABBREV.EXPAND

-  [LAMBDA (TSTREAM TEXTOBJ SEL)
                              (* ; "Edited 20-Mar-2025 21:52 by rmk")


+  [LAMBDA (TSTREAM TEXTOBJ SEL)
                              (* ; "Edited 20-Apr-2025 23:30 by rmk")


+                                                             (* ; "Edited 20-Mar-2025 21:52 by rmk")


                                                              (* ; "Edited 30-May-91 19:27 by jds")

                                                              (* ; "Expand an abbvreviation")

     (LET ((CANDIDATES (\TEDIT.ABBREV.PARSE
 TSTREAM SEL))
@@ -92,11 +93,12 @@
                   (\TEDIT.REPLACE.SELPIECES (\TEDIT.SELPIECES.FROM.STRING EXPANSION TEXTOBJ NIL
                                                    (PCHARLOOKS (\TEDIT.CHTOPC (CADR CAND)
                                                                       TEXTOBJ)))
-                         TEXTOBJ SEL)
+                         TSTREAM SEL)
            else
 (TEDIT.PROMPTPRINT TSTREAM "No abbreviation to expand" T])
 
 (\TEDIT.ABBREV.PARSE

-  [LAMBDA (TSTREAM SEL)
                                      (* ; "Edited 28-Mar-2025 10:11 by rmk")


+  [LAMBDA (TSTREAM SEL)
                                      (* ; "Edited 24-Apr-2025 23:45 by rmk")


+                                                             (* ; "Edited 28-Mar-2025 10:11 by rmk")


                                                              (* ; "Edited 23-Mar-2025 17:08 by rmk")


                                                              (* ; "Edited 20-Mar-2025 22:21 by rmk")

 
@@ -159,7 +161,7 @@
                                      FIRST# LEN)))           (* ; "Extend if a ,")

           [for
 C KEY END in
 CANDIDATES
              do
 
-                (* ;; "Comma for XCCS character names, - and / - for internal punctuation (3/4 EM-DASH). Adjacent character must be text")

+                (* ;; "Comma for MCCS character names, - and / - for internal punctuation (3/4 EM-DASH). Adjacent character must be text")

 
                 (if
 [AND (MEMB (\TEDIT.NTHCHARCODE TSTREAM (SUB1 (CADR C)))
                                (CHARCODE (%, / -
)))
@@ -306,6 +308,6 @@
          ("DATE" . \TEDIT.EXPAND.DATE)
          (">>DATE<<" . \TEDIT.EXPAND.DATE)))
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (2933 14638 (\TEDIT.ABBREV.EXPAND 2943 . 5054) (\TEDIT.ABBREV.PARSE 5056 . 12340) (
-\TEDIT.EXPAND.DATE 12342 . 12975) (\TEDIT.TRY.ABBREV 12977 . 14636)))))
+  (FILEMAP (NIL (2933 14856 (\TEDIT.ABBREV.EXPAND 2943 . 5163) (\TEDIT.ABBREV.PARSE 5165 . 12558) (
+\TEDIT.EXPAND.DATE 12560 . 13193) (\TEDIT.TRY.ABBREV 13195 . 14854)))))
 STOP

library/tedit/TEDIT-BUTTONS

@@ -1,12 +1,12 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
 
-
(FILECREATED "24-Mar-2025 09:26:13" {WMEDLEY}<library>tedit>TEDIT-BUTTONS.;223
 124611 
+
(FILECREATED "30-Apr-2025 14:09:18" {WMEDLEY}<library>tedit>TEDIT-BUTTONS.;228
 125393 
 
       :EDIT-BY rmk
 
-      :CHANGES-TO (FNS MB.FIELD.INSURETYPE MB.BUTTONEVENTINFN)
+      :CHANGES-TO (FNS MB.NWAY.ADDITEM MB.NWAY.CREATE MB.NWAY.SETSTATEFN MB.NWAY.SELECT)
 
-      :PREVIOUS-DATE "14-Mar-2025 15:29:51" {WMEDLEY}<library>TEDIT>TEDIT-BUTTONS.;219)
+      :PREVIOUS-DATE "14-Apr-2025 23:50:23" {WMEDLEY}<library>tedit>TEDIT-BUTTONS.;226)
 
 
 (PRETTYCOMPRINT TEDIT-BUTTONSCOMS)
@@ -67,7 +67,8 @@
 (DEFINEQ
 
 (MB.ADD

-  [LAMBDA (MENUDESC MENUTSTREAM WHERE INCREMENTALUPDATES)
    (* ; "Edited  5-Jan-2025 11:36 by rmk")


+  [LAMBDA (MENUDESC MENUTSTREAM WHERE INCREMENTALUPDATES)
    (* ; "Edited  6-Apr-2025 14:35 by rmk")


+                                                             (* ; "Edited  5-Jan-2025 11:36 by rmk")


                                                              (* ; "Edited 22-Oct-2024 09:16 by rmk")


                                                              (* ; "Edited 21-Oct-2024 00:26 by rmk")


                                                              (* ; "Edited 18-Oct-2024 13:49 by rmk")


@@ -156,10 +157,10 @@
                            (* ;; "Form to be evaluated")

 
                            (add
 CH# (EVAL TYPE))
-                    else
 (\ILLEGAL.ARG DESC))) finally
 (\TEDIT.SHOWSEL NIL NIL MENUTSTREAM) 
+                    else
 (\ILLEGAL.ARG DESC))) finally
 (\TEDIT.NOSEL MENUTSTREAM) 
                                                              (* ; 
 
                                                             "User has to click to get a selection")

-                                                     (SETSEL (TEXTSEL (GETTSTR MENUTSTREAM TEXTOBJ))
+                                                     (SETSEL (TEXTSEL (FTEXTOBJ MENUTSTREAM))
                                                             SET NIL)
                                                      (RETURN CH#)))])
 
@@ -753,6 +754,7 @@
 
 (MB.3STATE.BUTTONEVENTINFN

   [LAMBDA (OBJ MENUDS SEL RELX RELY MENUWINDOW MENUTSTREAM BUTTON)

+                                                             (* ; "Edited 14-Apr-2025 23:49 by rmk")


                                                              (* ; "Edited 22-Dec-2024 22:45 by rmk")


                                                              (* ; "Edited  7-Dec-2024 13:11 by rmk")


                                                              (* ; "Edited  5-Dec-2024 21:53 by rmk")


@@ -794,8 +796,7 @@
                    else
                                      (* ; "Buttons came up:  do it")

                         (IMAGEOBJPROP OBJ 'STATE NEXTSTATE)
                         (CL:WHEN (SETQ STATECHANGEFN (IMAGEOBJPROP OBJ 'STATECHANGEFN))
-                            (APPLY* STATECHANGEFN OBJ NEXTSTATE (fetch
 (TEXTWINDOW WTEXTSTREAM)
-                                                                   of
 MENUDS)))])
+                            (APPLY* STATECHANGEFN OBJ NEXTSTATE (PANETEXTSTREAM MENUDS)))])
              (TEDIT.BACKTOMAIN
 MENUTSTREAM)))
     'DON'T])
 )
@@ -816,7 +817,8 @@
 (DEFINEQ
 
 (MB.NWAY.CREATE

-  [LAMBDA (SPEC MENUTSTREAM CH#)
                             (* ; "Edited 16-Feb-2025 12:08 by rmk")


+  [LAMBDA (SPEC MENUTSTREAM CH#)
                             (* ; "Edited 30-Apr-2025 14:06 by rmk")


+                                                             (* ; "Edited 16-Feb-2025 12:08 by rmk")


                                                              (* ; "Edited  9-Jan-2025 11:38 by rmk")


                                                              (* ; "Edited  4-Jan-2025 21:39 by rmk")


                                                              (* ; "Edited 20-Dec-2024 22:17 by rmk")


@@ -833,6 +835,7 @@
                                                              (* gbn "24-Sep-84 15:31")

     (LET ((IDENTIFIER (CADR (ASSOC 'IDENTIFIER SPEC)))
           (BUTTONS (CADR (ASSOC 'BUTTONS SPEC)))
+          (SORTBUTTONS (CADR (ASSOC 'SORTBUTTONS SPEC)))
           [FONT (FONTCREATE (OR (CADR (ASSOC 'FONT SPEC))
                                 '(HELVETICA 8 BOLD]
           (STATECHANGEFN (CADR (ASSOC 'STATECHANGEFN SPEC)))
@@ -876,14 +879,14 @@
 
          (* ;; "At most, we're as wide as the N widest buttons put together. COPY because we want to preserve the original order")

 
-         [IMAGEOBJPROP OBJ 'MAXWIDTH (for
 SOBJ
-                                        in
 [SORT (COPY SUBOBJECTS)
-                                                 (FUNCTION (LAMBDA (A B)
-                                                             (IGEQ (fetch
 XSIZE
-                                                                      of
 (IMAGEOBJPROP A 'BOUNDBOX))
-                                                                   (fetch
 XSIZE
-                                                                      of
 (IMAGEOBJPROP B 'BOUNDBOX]
-                                        as
 I from
 1 to
 MAXITEMS/LINE
+         (CL:WHEN SORTBUTTONS
+             (IMAGEOBJPROP OBJ 'SORTBUTTONS T)
+             [SETQ SUBOBJECTS (SORT SUBOBJECTS (FUNCTION (LAMBDA (A B)
+                                                           (IGEQ (fetch
 XSIZE
+                                                                    of
 (IMAGEOBJPROP A 'BOUNDBOX))
+                                                                 (fetch
 XSIZE
+                                                                    of
 (IMAGEOBJPROP B 'BOUNDBOX])
+         [IMAGEOBJPROP OBJ 'MAXWIDTH (for
 SOBJ in
 SUBOBJECTS as
 I from
 1 to
 MAXITEMS/LINE
                                         sum
 (fetch
 XSIZE of
 (IMAGEOBJPROP SOBJ 'BOUNDBOX))
                                         finally
 (RETURN (IPLUS $$VAL (ITIMES SPACING (SUB1 
                                                                                         MAXITEMS/LINE
@@ -1191,7 +1194,8 @@
                                                              (RETURN (DREVERSE LINES])
 
 (MB.NWAY.ADDITEM

-  [LAMBDA (OBJ NEWBUTTON)
                                    (* ; "Edited  9-Jan-2025 11:38 by rmk")


+  [LAMBDA (OBJ NEWBUTTON)
                                    (* ; "Edited 30-Apr-2025 14:09 by rmk")


+                                                             (* ; "Edited  9-Jan-2025 11:38 by rmk")


                                                              (* ; "Edited 20-Oct-2024 00:13 by rmk")


                                                              (* ; "Edited 29-Sep-2024 12:47 by rmk")


                                                              (* ; "Edited 26-Aug-2024 09:36 by rmk")


@@ -1205,15 +1209,17 @@
     (* ;; "Given an existing n-way choice menu button, add another choice to the list.  The items are arranged in alphabetical order by their labels. MAXITEMS/LINE is goofy: it should flow with reshaping of the window.")

 
     (CL:WHEN NEWBUTTON
-        (LET* [(SUBOBJECTS (IMAGEOBJPROP OBJ 'SUBOBJECTS))
-               [NEWSOBJ (MB.TOGGLE.CREATE
 `((IDENTIFIER ,NEWBUTTON)
+        (LET* [[NEWSOBJ (MB.TOGGLE.CREATE
 `((IDENTIFIER ,NEWBUTTON)
                                             (LABEL ,NEWBUTTON)
                                             (FONT ,(IMAGEOBJPROP OBJ 'FONT]
+               (SUBOBJECTS (APPEND (IMAGEOBJPROP OBJ 'SUBOBJECTS)
+                                  (CONS NEWSOBJ)))
                (MAXITEMS/LINE (IMAGEOBJPROP OBJ 'MAXITEMS/LINE]
-              [SETQ SUBOBJECTS (SORT (CONS NEWSOBJ SUBOBJECTS)
-                                     (FUNCTION (LAMBDA (S1 S2)
-                                                 (ALPHORDER (IMAGEOBJPROP S1 'LABEL)
-                                                        (IMAGEOBJPROP S2 'LABEL]
+              (CL:WHEN (IMAGEOBJPROP OBJ 'SORTBUTTONS)
+                  [SETQ SUBOBJECTS (SORT SUBOBJECTS (FUNCTION (LAMBDA (S1 S2)
+                                                                (ALPHORDER (IMAGEOBJPROP S1
+                                                                                  'LABEL)
+                                                                       (IMAGEOBJPROP S2 'LABEL])
               (IMAGEOBJPROP OBJ 'SUBOBJECTS SUBOBJECTS)
               [IMAGEOBJPROP OBJ 'MINWIDTH (IMAX (IMAGEOBJPROP OBJ 'MINWIDTH)
                                                 (fetch
 XSIZE of
 (IMAGEOBJPROP NEWSOBJ 'BOUNDBOX]
@@ -1379,6 +1385,7 @@
 
 (MB.TOGGLE.BUTTONEVENTINFN

   [LAMBDA (OBJ MENUDS MENUSEL RELX RELY MENUWINDOW MENUTSTREAM BUTTON)

+                                                             (* ; "Edited 14-Apr-2025 23:49 by rmk")


                                                              (* ; "Edited  7-Dec-2024 13:11 by rmk")


                                                              (* ; "Edited 19-Oct-2024 19:52 by rmk")


                                                              (* ; "Edited  5-Oct-2024 22:42 by rmk")


@@ -1422,8 +1429,8 @@
                       else
                                   (* ; "Buttons came up:  do it")

                            (SETQ STATECHANGEFN (IMAGEOBJPROP OBJ 'STATECHANGEFN))
                            (if
 (OR (NULL STATECHANGEFN)
-                                   (NEQ 'DON'T (APPLY* STATECHANGEFN OBJ NEXTSTATE
-                                                      (fetch
 (TEXTWINDOW WTEXTSTREAM) of
 MENUDS)
+                                   (NEQ 'DON'T (APPLY* STATECHANGEFN OBJ NEXTSTATE (PANETEXTSTREAM
+                                                                                    MENUDS)
                                                       MENUSEL)))
                                then
 (IMAGEOBJPROP OBJ 'STATE NEXTSTATE) 
                                                              (* ; 
@@ -1774,7 +1781,8 @@
           ENDPC])
 
 (MB.FIELD.SETSTATEFN

-  [LAMBDA (PREFIXPC NEWVALUE TSTREAM)
                        (* ; "Edited  9-Dec-2024 22:14 by rmk")


+  [LAMBDA (PREFIXPC NEWVALUE TSTREAM)
                        (* ; "Edited  6-Apr-2025 12:23 by rmk")


+                                                             (* ; "Edited  9-Dec-2024 22:14 by rmk")


                                                              (* ; "Edited  4-Dec-2024 20:31 by rmk")


                                                              (* ; "Edited 20-Oct-2024 17:20 by rmk")


                                                              (* ; "Edited 29-Sep-2024 12:46 by rmk")


@@ -1818,7 +1826,7 @@
 
                                                    "FSEL selects the field to the right of PREFIXPC")

            (\TEDIT.UPDATE.SEL FSEL FIELDSTART FIELDLENGTH 'LEFT)
            (CL:UNLESS (EQ 0 FIELDLENGTH)                     (* ; "Clear the old value")

-               (\TEDIT.DELETE TEXTOBJ FSEL)
+               (\TEDIT.DELETE TSTREAM FSEL)
                (SETQ FIELDLENGTH 0))
            (SETQ FIELDLENGTH (if
 (EQ NEWVALUE '**EMPTY**)
                                  then
 0
@@ -1961,25 +1969,25 @@
 (MB.FIELD.INIT
)
 )
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (3253 19106 (MB.ADD 3263 . 9692) (MB.DELETE 9694 . 10068) (MB.GET 10070 . 16840) (
-MB.GET.MBARG 16842 . 18511) (TEDIT.BACKTOMAIN 18513 . 19104)) (19150 39086 (MB.BUTTONEVENTINFN 19160
- . 20728) (MB.DISPLAYFN 20730 . 22789) (MB.SETIMAGE 22791 . 23959) (MB.SIZEFN 23961 . 25509) (
-MB.WHENOPERATEDONFN 25511 . 27460) (MB.COPYFN 27462 . 27920) (MB.GETFN 27922 . 28883) (MB.PUTFN 28885
- . 29985) (MB.SHOWSELFN 29987 . 31496) (MB.CREATE 31498 . 35521) (MB.CHANGENAME 35523 . 36005) (
-MB.INIT 36007 . 37468) (MB.TRACK.UNTIL 37470 . 38165) (MB.DON'T 38167 . 38463) (MB.SPEC.REMAINDER 
-38465 . 39084)) (39248 49238 (MB.3STATE.CREATE 39258 . 40122) (MB.3STATE.DISPLAYFN 40124 . 41110) (
-MB.3STATE.SHOWSELFN 41112 . 43423) (MB.3STATE.INIT 43425 . 44836) (MB.3STATE.SETSTATEFN 44838 . 45496)
- (MB.3STATE.BUTTONEVENTINFN 45498 . 49236)) (49393 80061 (MB.NWAY.CREATE 49403 . 55445) (
-MB.NWAY.DISPLAYFN 55447 . 56310) (MB.NWAY.WHENOPERATEDONFN 56312 . 58502) (MB.NWAY.SIZEFN 58504 . 
-62440) (MB.NWAY.SELECT 62442 . 66012) (MB.NWAY.BUTTONEVENTINFN 66014 . 69226) (MB.NWAY.NEWMENUBUTTON 
-69228 . 69940) (MB.NWAY.COPYFN 69942 . 70909) (MB.NWAY.INIT 70911 . 72402) (MB.NWAY.ARRANGEBUTTONS 
-72404 . 74375) (MB.NWAY.ADDITEM 74377 . 78239) (MB.NWAY.FINDSUBOBJ 78241 . 78755) (MB.NWAY.SETSTATEFN 
-78757 . 80059)) (80140 92027 (MB.TOGGLE.CREATE 80150 . 81145) (MB.TOGGLE.DISPLAYFN 81147 . 82630) (
-MB.TOGGLE.INIT 82632 . 84431) (MB.SET.TOGGLE 84433 . 85634) (MB.TOGGLE.SETSTATEFN 85636 . 86476) (
-MB.TOGGLE.BUTTONEVENTINFN 86478 . 90682) (MB.TOGGLE.WHENOPERATEDONFN 90684 . 92025)) (92108 124532 (
-MB.FIELD.CREATE 92118 . 97569) (MB.FIELD.DISPLAYFN 97571 . 98362) (MB.FIELD.IMAGEBOXFN 98364 . 99846) 
-(MB.FIELD.PREFIXCREATE 99848 . 103784) (MB.FIELD.SUFFIXCREATE 103786 . 105446) (MB.FIELD.INIT 105448
- . 107215) (MB.FIELD.WHENOPERATEDONFN 107217 . 108488) (MB.FIELD.GETSTATEFN 108490 . 112424) (
-MB.FIELD.SETSTATEFN 112426 . 117121) (MB.FIELD.BUTTONEVENTINFN 117123 . 119428) (MB.FIELD.SIZEFN 
-119430 . 119670) (MB.FIELD.INSURETYPE 119672 . 124530)))))
+  (FILEMAP (NIL (3279 19224 (MB.ADD 3289 . 9810) (MB.DELETE 9812 . 10186) (MB.GET 10188 . 16958) (
+MB.GET.MBARG 16960 . 18629) (TEDIT.BACKTOMAIN 18631 . 19222)) (19268 39204 (MB.BUTTONEVENTINFN 19278
+ . 20846) (MB.DISPLAYFN 20848 . 22907) (MB.SETIMAGE 22909 . 24077) (MB.SIZEFN 24079 . 25627) (
+MB.WHENOPERATEDONFN 25629 . 27578) (MB.COPYFN 27580 . 28038) (MB.GETFN 28040 . 29001) (MB.PUTFN 29003
+ . 30103) (MB.SHOWSELFN 30105 . 31614) (MB.CREATE 31616 . 35639) (MB.CHANGENAME 35641 . 36123) (
+MB.INIT 36125 . 37586) (MB.TRACK.UNTIL 37588 . 38283) (MB.DON'T 38285 . 38581) (MB.SPEC.REMAINDER 
+38583 . 39202)) (39366 49371 (MB.3STATE.CREATE 39376 . 40240) (MB.3STATE.DISPLAYFN 40242 . 41228) (
+MB.3STATE.SHOWSELFN 41230 . 43541) (MB.3STATE.INIT 43543 . 44954) (MB.3STATE.SETSTATEFN 44956 . 45614)
+ (MB.3STATE.BUTTONEVENTINFN 45616 . 49369)) (49526 80622 (MB.NWAY.CREATE 49536 . 55719) (
+MB.NWAY.DISPLAYFN 55721 . 56584) (MB.NWAY.WHENOPERATEDONFN 56586 . 58776) (MB.NWAY.SIZEFN 58778 . 
+62714) (MB.NWAY.SELECT 62716 . 66286) (MB.NWAY.BUTTONEVENTINFN 66288 . 69500) (MB.NWAY.NEWMENUBUTTON 
+69502 . 70214) (MB.NWAY.COPYFN 70216 . 71183) (MB.NWAY.INIT 71185 . 72676) (MB.NWAY.ARRANGEBUTTONS 
+72678 . 74649) (MB.NWAY.ADDITEM 74651 . 78800) (MB.NWAY.FINDSUBOBJ 78802 . 79316) (MB.NWAY.SETSTATEFN 
+79318 . 80620)) (80701 92700 (MB.TOGGLE.CREATE 80711 . 81706) (MB.TOGGLE.DISPLAYFN 81708 . 83191) (
+MB.TOGGLE.INIT 83193 . 84992) (MB.SET.TOGGLE 84994 . 86195) (MB.TOGGLE.SETSTATEFN 86197 . 87037) (
+MB.TOGGLE.BUTTONEVENTINFN 87039 . 91355) (MB.TOGGLE.WHENOPERATEDONFN 91357 . 92698)) (92781 125314 (
+MB.FIELD.CREATE 92791 . 98242) (MB.FIELD.DISPLAYFN 98244 . 99035) (MB.FIELD.IMAGEBOXFN 99037 . 100519)
+ (MB.FIELD.PREFIXCREATE 100521 . 104457) (MB.FIELD.SUFFIXCREATE 104459 . 106119) (MB.FIELD.INIT 106121
+ . 107888) (MB.FIELD.WHENOPERATEDONFN 107890 . 109161) (MB.FIELD.GETSTATEFN 109163 . 113097) (
+MB.FIELD.SETSTATEFN 113099 . 117903) (MB.FIELD.BUTTONEVENTINFN 117905 . 120210) (MB.FIELD.SIZEFN 
+120212 . 120452) (MB.FIELD.INSURETYPE 120454 . 125312)))))
 STOP