Remove extra scheduled Medley builds that were added for testing purposes last weeek. (#1615)

Add TEDIT.XYTOCH for Notecards

.github/workflows/buildReleaseInclDocker.yml

@@ -20,8 +20,6 @@ name: "Build/Push Release & Docker"
 on:
   schedule:
     - cron: '0 9 * * 1'
-    - cron: '0 9 * * 2'
-    - cron: '0 9 * * 3'
 
   workflow_dispatch:
     inputs:

library/tedit/TEDIT-SELECTION

@@ -1,12 +1,12 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
 
-
(FILECREATED "16-Mar-2024 16:31:03" {MEDLEY}<library>tedit>TEDIT-SELECTION.;76
 125706 
+
(FILECREATED "21-Mar-2024 10:32:02" {MEDLEY}<library>tedit>TEDIT-SELECTION.;80
 126882 
 
       :EDIT-BY rmk
 
-      :CHANGES-TO (FNS \SELPIECES)
+      :CHANGES-TO (VARS TEDIT-SELECTIONCOMS)
 
-      :PREVIOUS-DATE " 5-Mar-2024 15:07:12" {MEDLEY}<library>tedit>TEDIT-SELECTION.;75)
+      :PREVIOUS-DATE "16-Mar-2024 16:31:03" {MEDLEY}<library>tedit>TEDIT-SELECTION.;79)
 
 
 (PRETTYCOMPRINT TEDIT-SELECTIONCOMS)
@@ -43,7 +43,7 @@
         
         (* ;; "User entries to the selection code")

 
-        (FNS TEDIT.GETPOINT TEDIT.GETSEL TEDIT.GETSEL.PARA TEDIT.MAKESEL TEDIT.SCANSEL 
+        (FNS TEDIT.XYTOCH TEDIT.GETPOINT TEDIT.GETSEL TEDIT.GETSEL.PARA TEDIT.MAKESEL TEDIT.SCANSEL 
              TEDIT.SET.SEL.LOOKS TEDIT.SETSEL TEDIT.SHOWSEL)
         
         (* ;; "SELPIECES")

@@ -1672,6 +1672,31 @@
 
 (DEFINEQ
 
+(TEDIT.XYTOCH

+  [LAMBDA (X Y PANE)
                                         (* ; "Edited 20-Mar-2024 14:32 by rmk")

+
+    (* ;; "Returns the character number of the character at coordinates X and Y in PANE.")

+
+    (LET ((TEXTOBJ (TEXTOBJ PANE))
+          SEL)
+
+         (* ;; "The X W fields should be good in all panes, not sure about the Y W fields.  Maybe those are PANE-dependent.")

+
+         (SETQ X (SELECTQ X
+                     (LEFT (GETTOBJ TEXTOBJ WLEFT))
+                     (RIGHT (SUB1 (GETTOBJ TEXTOBJ WRIGHT)))
+                     X))
+         (SETQ Y (SELECTQ Y
+                     (TOP (SUB1 (GETTOBJ TEXTOBJ WTOP)))
+                     (BOTTOM (GETTOBJ TEXTOBJ WBOTTOM))
+                     Y))
+         (SETQ SEL (\TEDIT.SELECT.LINE.SCANNER
 X Y TEXTOBJ (fetch
 (TEXTWINDOW PLINES) of
 PANE)
+                          'TEXT NIL NIL PANE))
+         (CL:WHEN (AND (type?
 SELECTION SEL)
+                       (GETSEL SEL SET))                     (* ; 
+
                                                        "He pointed at something real;  return that.")

+             (GETSEL SEL CH#))])
+
 (TEDIT.GETPOINT

   [LAMBDA (STREAM SEL)
                                       (* ; "Edited  5-Jun-2023 15:30 by rmk")


                                                              (* ; "Edited 30-May-91 23:03 by jds")

@@ -2112,23 +2137,23 @@
               (SHOULDNT)) finally
 (RETURN RESULT])
 )
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (12802 14667 (\TEDIT.SELECTION.DEFPRINT 12812 . 14665)) (14668 15789 (
-\TEDIT.SET.GLOBAL.SELECTIONS 14678 . 15787)) (15826 24061 (TEDIT.SEL.AS.STRING 15836 . 17423) (
-TEDIT.SEL.AS.SEXPR 17425 . 18411) (TEDIT.SELECTALL 18413 . 18743) (TEDIT.SELECTED.PIECES 18745 . 20089
-) (\TEDIT.FIND.PROTECTED.END 20091 . 21580) (\TEDIT.FIND.PROTECTED.START 21582 . 23396) (
-\TEDIT.WORD.BOUND 23398 . 24059)) (24195 55659 (\TEDIT.EXTEND.SEL 24205 . 31181) (\TEDIT.SELECT 31183
- . 32565) (\TEDIT.SCAN.LINE 32567 . 40568) (\TEDIT.SCAN.LINE.WORD 40570 . 44690) (
-\TEDIT.SELECT.LINE.SCANNER 44692 . 51741) (\TEDIT.SELECT.OBJECT 51743 . 55657)) (55660 70554 (\FIXSEL 
-55670 . 66192) (\TEDIT.CHTOX 66194 . 69181) (\TEDIT.COLLECTSELS 69183 . 70234) (\TEDIT.SELECTION.UNSET
- 70236 . 70552)) (70555 73694 (TEDIT.RESET.EXTEND.PENDING.DELETE 70565 . 71402) (\TEDIT.SET.SEL.LOOKS 
-71404 . 73692)) (73695 95076 (\SHOWSEL 73705 . 77423) (\TEDIT.SHOWSEL.HILIGHT 77425 . 80938) (
-\TEDIT.UPDATE.SHOWSEL 80940 . 87253) (\TEDIT.REFRESH.SHOWSEL 87255 . 89491) (\TEDIT.UPDATE.SEL 89493
- . 92615) (\TEDIT.SEL.L1 92617 . 92905) (\TEDIT.SEL.LN 92907 . 93195) (\TEDIT.SEL.DELETEDCHARS 93197
- . 95074)) (95077 98165 (\COPYSEL 95087 . 96775) (\TEDIT.SEL.CHANGED? 96777 . 98163)) (98218 108786 (
-TEDIT.GETPOINT 98228 . 99177) (TEDIT.GETSEL 99179 . 99499) (TEDIT.GETSEL.PARA 99501 . 100450) (
-TEDIT.MAKESEL 100452 . 101434) (TEDIT.SCANSEL 101436 . 102110) (TEDIT.SET.SEL.LOOKS 102112 . 102993) (
-TEDIT.SETSEL 102995 . 107961) (TEDIT.SHOWSEL 107963 . 108784)) (108814 125683 (\SELPIECES 108824 . 
-111917) (\SELPIECES.COPY 111919 . 113788) (\SELPIECES.CONCAT 113790 . 115663) (
-\SELPIECES.CHARTRANSFORM 115665 . 118685) (\SELPIECES.FROM.STRING 118687 . 123602) (
-\SELPIECES.TO.STRING 123604 . 125681)))))
+  (FILEMAP (NIL (12825 14690 (\TEDIT.SELECTION.DEFPRINT 12835 . 14688)) (14691 15812 (
+\TEDIT.SET.GLOBAL.SELECTIONS 14701 . 15810)) (15849 24084 (TEDIT.SEL.AS.STRING 15859 . 17446) (
+TEDIT.SEL.AS.SEXPR 17448 . 18434) (TEDIT.SELECTALL 18436 . 18766) (TEDIT.SELECTED.PIECES 18768 . 20112
+) (\TEDIT.FIND.PROTECTED.END 20114 . 21603) (\TEDIT.FIND.PROTECTED.START 21605 . 23419) (
+\TEDIT.WORD.BOUND 23421 . 24082)) (24218 55682 (\TEDIT.EXTEND.SEL 24228 . 31204) (\TEDIT.SELECT 31206
+ . 32588) (\TEDIT.SCAN.LINE 32590 . 40591) (\TEDIT.SCAN.LINE.WORD 40593 . 44713) (
+\TEDIT.SELECT.LINE.SCANNER 44715 . 51764) (\TEDIT.SELECT.OBJECT 51766 . 55680)) (55683 70577 (\FIXSEL 
+55693 . 66215) (\TEDIT.CHTOX 66217 . 69204) (\TEDIT.COLLECTSELS 69206 . 70257) (\TEDIT.SELECTION.UNSET
+ 70259 . 70575)) (70578 73717 (TEDIT.RESET.EXTEND.PENDING.DELETE 70588 . 71425) (\TEDIT.SET.SEL.LOOKS 
+71427 . 73715)) (73718 95099 (\SHOWSEL 73728 . 77446) (\TEDIT.SHOWSEL.HILIGHT 77448 . 80961) (
+\TEDIT.UPDATE.SHOWSEL 80963 . 87276) (\TEDIT.REFRESH.SHOWSEL 87278 . 89514) (\TEDIT.UPDATE.SEL 89516
+ . 92638) (\TEDIT.SEL.L1 92640 . 92928) (\TEDIT.SEL.LN 92930 . 93218) (\TEDIT.SEL.DELETEDCHARS 93220
+ . 95097)) (95100 98188 (\COPYSEL 95110 . 96798) (\TEDIT.SEL.CHANGED? 96800 . 98186)) (98241 109962 (
+TEDIT.XYTOCH 98251 . 99402) (TEDIT.GETPOINT 99404 . 100353) (TEDIT.GETSEL 100355 . 100675) (
+TEDIT.GETSEL.PARA 100677 . 101626) (TEDIT.MAKESEL 101628 . 102610) (TEDIT.SCANSEL 102612 . 103286) (
+TEDIT.SET.SEL.LOOKS 103288 . 104169) (TEDIT.SETSEL 104171 . 109137) (TEDIT.SHOWSEL 109139 . 109960)) (
+109990 126859 (\SELPIECES 110000 . 113093) (\SELPIECES.COPY 113095 . 114964) (\SELPIECES.CONCAT 114966
+ . 116839) (\SELPIECES.CHARTRANSFORM 116841 . 119861) (\SELPIECES.FROM.STRING 119863 . 124778) (
+\SELPIECES.TO.STRING 124780 . 126857)))))
 STOP

library/tedit/TEDIT-WINDOW

@@ -1,12 +1,14 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
 
-
(FILECREATED "17-Mar-2024 23:43:56" {DSK}<home>frank>il>ncmedley>library>tedit>TEDIT-WINDOW.;7
 195743 
+
(FILECREATED "21-Mar-2024 21:48:49" 
+{DSK}<Users>kaplan>Local>medley3.5>git-medley>library>tedit>TEDIT-WINDOW.;69
 195813 
 
-      :CHANGES-TO (VARS TEDIT-WINDOWCOMS)
-                  (FNS TEDIT.PROMPTWINDOW)
+      :EDIT-BY rmk
 
-      :PREVIOUS-DATE " 4-Mar-2024 15:15:31" {DSK}<home>frank>il>ncmedley>library>tedit>TEDIT-WINDOW.;6
-)
+      :CHANGES-TO (FNS TEDIT.NORMALIZECARET)
+
+      :PREVIOUS-DATE "17-Mar-2024 23:43:56" 
+{DSK}<Users>kaplan>Local>medley3.5>git-medley>library>tedit>TEDIT-WINDOW.;68)
 
 
 (PRETTYCOMPRINT TEDIT-WINDOWCOMS)
@@ -2773,7 +2775,8 @@
         (DSPYPOSITION Y (ffetch
 (TEDITCARET TCCARETDS) of
 CARET)))])
 
 (TEDIT.NORMALIZECARET

-  [LAMBDA (TEXTOBJ SEL EVEN.IF.VISIBLE)
                      (* ; "Edited 21-Feb-2024 20:43 by rmk")


+  [LAMBDA (TEXTOBJ SEL EVEN.IF.VISIBLE)
                      (* ; "Edited 21-Mar-2024 21:48 by rmk")


+                                                             (* ; "Edited 21-Feb-2024 20:43 by rmk")


                                                              (* ; "Edited 18-Feb-2024 23:35 by rmk")


                                                              (* ; "Edited  2-Jan-2024 11:09 by rmk")


                                                              (* ; "Edited 20-Nov-2023 14:22 by rmk")


@@ -2828,8 +2831,7 @@
                       (* ;; "Not visible, work to do: Make sure the line containing CH# is linked in and scrolled to the top of the pane. This should be replaceable by \TEDIT.SCROLLFN, with the appropriate DY.")

 
                       (\SHOWSEL SEL NIL SELPANE)
-                      (SETQ TOPLINE (CADR (\FORMATBLOCK TEXTOBJ (SUB1 CH#)
-                                                 PHEIGHT)))
+                      (SETQ TOPLINE (CADR (\FORMATBLOCK TEXTOBJ CH# PHEIGHT)))
                       (SETYPOS TOPLINE (IDIFFERENCE PHEIGHT (GETLD TOPLINE LHEIGHT)))
                       (LINKLD (fetch
 (TEXTWINDOW PLINES) of
 SELPANE)
                              TOPLINE)
@@ -3173,34 +3175,34 @@
 (RPAQ? TEDIT.TITLED.ICON.TEMPLATE
 (create TITLEDICON ICON _ TEDITICON MASK _ TEDITMASK TITLEREG _ 
                                          TEDIT.ICON.TITLE.REGION))
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (13015 32591 (\TEDIT.CREATEW 13025 . 19400) (\TEDIT.WINDOW.SETUP 19402 . 22091) (
-\TEDIT.MINIMAL.WINDOW.SETUP 22093 . 30514) (\TEDIT.ADD.CARET 30516 . 31980) (\TEDIT.CLEARPANE 31982 . 
-32589)) (32592 53648 (\TEDIT.CURSORMOVEDFN 32602 . 36410) (\TEDIT.CURSOROUTFN 36412 . 36857) (
-\TEDIT.ACTIVE.WINDOWP 36859 . 37985) (\TEDIT.EXPANDFN 37987 . 38550) (\TEDIT.MAINW 38552 . 40692) (
-\TEDIT.PRIMARYW 40694 . 41334) (\TEDIT.NEWREGIONFN 41336 . 43852) (\TEDIT.SET.WINDOW.EXTENT 43854 . 
-48717) (\TEDIT.SHRINK.ICONCREATE 48719 . 51142) (\TEDIT.SHRINKFN 51144 . 51553) (\TEDIT.PANEREGION 
-51555 . 53646)) (53649 77414 (\TEDIT.BUTTONEVENTFN 53659 . 68714) (\TEDIT.DO.SELOPERATION 68716 . 
-70998) (\TEDIT.TTY.TEXTOBJP 71000 . 71424) (\TEDIT.BUTTONEVENTFN.SELOPERATION 71426 . 72815) (
-\TEDIT.BUTTONEVENTFN.INACTIVE 72817 . 74843) (\TEDIT.BUTTONEVENTFN.INTITLE 74845 . 76364) (
-\TEDIT.COPYINSERT 76366 . 77412)) (77449 92178 (\TEDIT.PANE.SPLIT 77459 . 81679) (\TEDIT.SPLITW 81681
- . 88014) (\TEDIT.UNSPLITW 88016 . 92176)) (93534 94319 (TEDITWINDOWP 93544 . 94317)) (94356 97344 (
-TEDIT.GETINPUT 94366 . 96809) (\TEDIT.MAKEFILENAME 96811 . 97342)) (97393 105382 (TEDIT.PROMPTWINDOW 
-97403 . 97740) (TEDIT.PROMPTPRINT 97742 . 100178) (TEDIT.PROMPTCLEAR 100180 . 101899) (
-TEDIT.PROMPTFLASH 101901 . 103810) (\TEDIT.PROMPT.PAGEFULLFN 103812 . 105380)) (105620 113499 (
-\TEXTSTREAM.TITLE 105630 . 106320) (\TEDIT.DEFAULT.TITLE 106322 . 108701) (\TEDIT.WINDOW.TITLE 108703
- . 110760) (\TEXTSTREAM.FILENAME 110762 . 112432) (\TEDIT.UPDATE.TITLE 112434 . 113497)) (113542 
-128583 (TEDIT.DEACTIVATE.WINDOW 113552 . 119974) (\TEDIT.REPAINTFN 119976 . 121551) (
-\TEDIT.AFTERMOVEFN 121553 . 122307) (OFFSCREENP 122309 . 123514) (\TEDIT.RESHAPEFN 123516 . 127405) (
-\TEDIT.PANEWITHINSCREEN? 127407 . 128581)) (128584 156217 (\TEDIT.SCROLLFN 128594 . 130281) (
-\TEDIT.SCROLLFLOAT 130283 . 134869) (\TEDIT.SCROLLUP 134871 . 142247) (\TEDIT.SCROLL.SHOWSEL 142249 . 
-144873) (\TEDIT.SCROLLDOWN 144875 . 150091) (\TEDIT.OFFSCREEN.SCROLL 150093 . 152208) (
-\TEDIT.WHERE.SEL 152210 . 153430) (\TEDIT.WHERE.SEL1 153432 . 156215)) (156218 161340 (\TEDIT.ONSCREEN
- 156228 . 157683) (\TEDIT.ONSCREEN? 157685 . 159998) (\TEDIT.PANE.SCREENREGION 160000 . 161338)) (
-161382 163627 (\TEDIT.PROCIDLEFN 161392 . 162801) (\TEDIT.PROCENTRYFN 162803 . 163248) (
-\TEDIT.PROCEXITFN 163250 . 163625)) (163706 176433 (\TEDIT.DOWNCARET 163716 . 164509) (
-\TEDIT.FLASHCARET 164511 . 166328) (\TEDIT.UPCARET 166330 . 167434) (TEDIT.NORMALIZECARET 167436 . 
-172164) (\TEDIT.SETCARET 172166 . 176006) (\TEDIT.CARET 176008 . 176431)) (176467 189713 (
-TEDIT.ADD.MENUITEM 176477 . 178768) (TEDIT.DEFAULT.MENUFN 178770 . 187053) (TEDIT.REMOVE.MENUITEM 
-187055 . 188052) (\TEDIT.CREATEMENU 188054 . 188491) (\TEDIT.MENU.WHENHELDFN 188493 . 189398) (
-\TEDIT.MENU.WHENSELECTEDFN 189400 . 189711)))))
+  (FILEMAP (NIL (13032 32608 (\TEDIT.CREATEW 13042 . 19417) (\TEDIT.WINDOW.SETUP 19419 . 22108) (
+\TEDIT.MINIMAL.WINDOW.SETUP 22110 . 30531) (\TEDIT.ADD.CARET 30533 . 31997) (\TEDIT.CLEARPANE 31999 . 
+32606)) (32609 53665 (\TEDIT.CURSORMOVEDFN 32619 . 36427) (\TEDIT.CURSOROUTFN 36429 . 36874) (
+\TEDIT.ACTIVE.WINDOWP 36876 . 38002) (\TEDIT.EXPANDFN 38004 . 38567) (\TEDIT.MAINW 38569 . 40709) (
+\TEDIT.PRIMARYW 40711 . 41351) (\TEDIT.NEWREGIONFN 41353 . 43869) (\TEDIT.SET.WINDOW.EXTENT 43871 . 
+48734) (\TEDIT.SHRINK.ICONCREATE 48736 . 51159) (\TEDIT.SHRINKFN 51161 . 51570) (\TEDIT.PANEREGION 
+51572 . 53663)) (53666 77431 (\TEDIT.BUTTONEVENTFN 53676 . 68731) (\TEDIT.DO.SELOPERATION 68733 . 
+71015) (\TEDIT.TTY.TEXTOBJP 71017 . 71441) (\TEDIT.BUTTONEVENTFN.SELOPERATION 71443 . 72832) (
+\TEDIT.BUTTONEVENTFN.INACTIVE 72834 . 74860) (\TEDIT.BUTTONEVENTFN.INTITLE 74862 . 76381) (
+\TEDIT.COPYINSERT 76383 . 77429)) (77466 92195 (\TEDIT.PANE.SPLIT 77476 . 81696) (\TEDIT.SPLITW 81698
+ . 88031) (\TEDIT.UNSPLITW 88033 . 92193)) (93551 94336 (TEDITWINDOWP 93561 . 94334)) (94373 97361 (
+TEDIT.GETINPUT 94383 . 96826) (\TEDIT.MAKEFILENAME 96828 . 97359)) (97410 105399 (TEDIT.PROMPTWINDOW 
+97420 . 97757) (TEDIT.PROMPTPRINT 97759 . 100195) (TEDIT.PROMPTCLEAR 100197 . 101916) (
+TEDIT.PROMPTFLASH 101918 . 103827) (\TEDIT.PROMPT.PAGEFULLFN 103829 . 105397)) (105637 113516 (
+\TEXTSTREAM.TITLE 105647 . 106337) (\TEDIT.DEFAULT.TITLE 106339 . 108718) (\TEDIT.WINDOW.TITLE 108720
+ . 110777) (\TEXTSTREAM.FILENAME 110779 . 112449) (\TEDIT.UPDATE.TITLE 112451 . 113514)) (113559 
+128600 (TEDIT.DEACTIVATE.WINDOW 113569 . 119991) (\TEDIT.REPAINTFN 119993 . 121568) (
+\TEDIT.AFTERMOVEFN 121570 . 122324) (OFFSCREENP 122326 . 123531) (\TEDIT.RESHAPEFN 123533 . 127422) (
+\TEDIT.PANEWITHINSCREEN? 127424 . 128598)) (128601 156234 (\TEDIT.SCROLLFN 128611 . 130298) (
+\TEDIT.SCROLLFLOAT 130300 . 134886) (\TEDIT.SCROLLUP 134888 . 142264) (\TEDIT.SCROLL.SHOWSEL 142266 . 
+144890) (\TEDIT.SCROLLDOWN 144892 . 150108) (\TEDIT.OFFSCREEN.SCROLL 150110 . 152225) (
+\TEDIT.WHERE.SEL 152227 . 153447) (\TEDIT.WHERE.SEL1 153449 . 156232)) (156235 161357 (\TEDIT.ONSCREEN
+ 156245 . 157700) (\TEDIT.ONSCREEN? 157702 . 160015) (\TEDIT.PANE.SCREENREGION 160017 . 161355)) (
+161399 163644 (\TEDIT.PROCIDLEFN 161409 . 162818) (\TEDIT.PROCENTRYFN 162820 . 163265) (
+\TEDIT.PROCEXITFN 163267 . 163642)) (163723 176503 (\TEDIT.DOWNCARET 163733 . 164526) (
+\TEDIT.FLASHCARET 164528 . 166345) (\TEDIT.UPCARET 166347 . 167451) (TEDIT.NORMALIZECARET 167453 . 
+172234) (\TEDIT.SETCARET 172236 . 176076) (\TEDIT.CARET 176078 . 176501)) (176537 189783 (
+TEDIT.ADD.MENUITEM 176547 . 178838) (TEDIT.DEFAULT.MENUFN 178840 . 187123) (TEDIT.REMOVE.MENUITEM 
+187125 . 188122) (\TEDIT.CREATEMENU 188124 . 188561) (\TEDIT.MENU.WHENHELDFN 188563 . 189468) (
+\TEDIT.MENU.WHENSELECTEDFN 189470 . 189781)))))
 STOP