Shakedown of field menu items (#1957)

* Shakedown of field menu items

* Suppress shift-select in menus

* Typo, plus inserting EOL-containing strings

* Fix selection display glitch revealed by DOCUMENT

* Fix arg order, eliminate U-CASE

* U-CASE only if coercing IDENTIFIER from LABEL

* Allow SMALLP for identifiers, INITSTATE for SELECTION

Also a fence-post glitch in paragraph selection

* Fix MB.GET

* TEDIT-MENU:  Right button doesn't invert Marginbar, copying suppressed

* TEDIT-STREAM:  Error if copying an image object that doesn't allow copying

* Missed another LITATOM/SMALLP test on IDENTIFIERS

* Clicking in a menu removes stale promptwindow text

---------

Co-authored-by: Frank Halasz <frank@halasz.org>

internal/TEDIT-DEBUG

@@ -1,12 +1,12 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
 
-
(FILECREATED "16-Dec-2024 20:38:14" {WMEDLEY}<internal>TEDIT-DEBUG.;123
 130350 
+
(FILECREATED " 9-Jan-2025 16:40:25" {MEDLEY}<internal>TEDIT-DEBUG.;11
 130460 
 
       :EDIT-BY rmk
 
-      :CHANGES-TO (FNS SP)
+      :CHANGES-TO (FNS SPPRINT.OBJ)
 
-      :PREVIOUS-DATE "14-Dec-2024 14:32:20" {WMEDLEY}<internal>TEDIT-DEBUG.;122)
+      :PREVIOUS-DATE "16-Dec-2024 20:38:14" {MEDLEY}<internal>TEDIT-DEBUG.;10)
 
 
 (PRETTYCOMPRINT TEDIT-DEBUGCOMS)
@@ -1345,7 +1345,8 @@
                    OSTREAM)))])
 
 (SPPRINT.OBJ

-  [LAMBDA (OBJ STREAM POS)
                                   (* ; "Edited  6-Oct-2024 20:54 by rmk")


+  [LAMBDA (OBJ STREAM POS)
                                   (* ; "Edited  9-Jan-2025 16:37 by rmk")


+                                                             (* ; "Edited  6-Oct-2024 20:54 by rmk")


                                                              (* ; "Edited 29-Sep-2024 14:45 by rmk")


                                                              (* ; "Edited 29-Aug-2024 10:44 by rmk")


                                                              (* ; "Edited 25-Aug-2024 14:31 by rmk")


@@ -1364,7 +1365,7 @@
     (CL:UNLESS [NLSETQ (SELECTQ (IMAGEOBJPROP OBJ 'DISPLAYFN)
                            (MB.NWAY.DISPLAYFN 
                                 (PRINTOUT STREAM (IMAGEOBJPROP OBJ 'IDENTIFIER)
-                                       ":" T .TAB (IPLUS POS 2))
+                                       T .TAB (IPLUS POS 2))
                                 (for
 SOBJ in
 (IMAGEOBJPROP OBJ 'SUBOBJECTS)
                                    do
 (PRINTOUT STREAM (IMAGEOBJPROP SOBJ 'IDENTIFIER)
                                              " ")))
@@ -2426,30 +2427,30 @@
 (ADDTOVAR LAMA
 )
 )
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (4840 7227 (GTO 4850 . 5100) (GTS 5102 . 6701) (GTW 6703 . 6859) (GSEL 6861 . 7225)) (
-7284 20415 (IPC 7294 . 8798) (ILINES 8800 . 11341) (ISEL 11343 . 11954) (ITS 11956 . 13680) (IPANES 
-13682 . 13917) (ITL 13919 . 14338) (IHIST 14340 . 17002) (IPCTB 17004 . 17312) (IMB 17314 . 17929) (
-ICL 17931 . 18496) (IPL 18498 . 18902) (ICARET 18904 . 19281) (INSPECTPIECES 19283 . 20413)) (20437 
-55479 (SP 20447 . 25793) (SL 25795 . 28371) (SSP 28373 . 29486) (STL 29488 . 38000) (SPF 38002 . 40301
-) (SLF 40303 . 49436) (SHOWLINE 49438 . 53000) (SLL 53002 . 53749) (STBYTES 53751 . 55477)) (55480 
-60853 (NTHPIECE 55490 . 56622) (NPIECES 56624 . 57489) (NTHPIECECHAR 57491 . 58799) (SELPIECE 58801 . 
-59243) (PIECENUM 59245 . 59964) (PCBYTES 59966 . 60851)) (60854 63328 (FILEBYTES 60864 . 62288) (
-TFILEBYTES 62290 . 63326)) (63329 64651 (TRELMOVE 63339 . 63582) (TSCROLL 63584 . 63750) (TSCROLL* 
-63752 . 64649)) (64652 67701 (TRY 64662 . 65931) (TEDITCLOSEW 65933 . 66276) (PARALASTWITHOUTEOL 66278
- . 67163) (FIXPARALAST 67165 . 67699)) (67702 81927 (SPPRINT 67712 . 74128) (SPPRINT.CHAR 74130 . 
-75114) (SPPRINT.OBJ 75116 . 78069) (SHOWPIECEBYTES 78071 . 79627) (CHECKPLENGTHS 79629 . 80086) (SBT 
-80088 . 81077) (COPYPCHAIN 81079 . 81925)) (81928 83989 (POSLINE 81938 . 83987)) (83990 84873 (
-PRESPLIT 84000 . 84871)) (84874 86587 (ALLTL 84884 . 86137) (NTHCHARSLOT 86139 . 86585)) (86613 96826 
-(PLCHAIN 86623 . 87151) (PRINTLINE 87153 . 90143) (SL.GETLINES 90145 . 93438) (CHECKLINES 93440 . 
-94420) (COLLECTLINES 94422 . 94674) (NTHLINE 94676 . 95681) (HEIGHT 95683 . 95971) (LINEBOTS 95973 . 
-96824)) (96827 99275 (IPC.DECODEARGS 96837 . 99273)) (99276 99869 (SPF1 99286 . 99867)) (99898 102276 
-(SLF.FATPLEN 99908 . 100767) (FILEPIECE 100769 . 102274)) (102309 103077 (SELTEDIT 102319 . 103075)) (
-103147 109305 (PPARA 103157 . 103579) (PRUN 103581 . 105603) (ADDLINEPOSITIONS 105605 . 107032) (SBR 
-107034 . 107688) (SBC 107690 . 109303)) (109362 114037 (DFOV 109372 . 111842) (OLDWI 111844 . 112219) 
-(DFOV.OLDEST 112221 . 112646) (COMP 112648 . 112843) (DFR 112845 . 114035)) (114038 115071 (DFGV 
-114048 . 114574) (GDIRECTORIES 114576 . 115069)) (115072 121637 (TTEST 115082 . 119614) (LTEST 119616
- . 120981) (THC 120983 . 121635)) (121951 122643 (SHOWSAFE 121961 . 122641)) (122696 123143 (MYH 
-122706 . 123141)) (123388 124483 (DFVENUE 123398 . 124277) (VSEE 124279 . 124481)) (124484 124938 (PTT
- 124494 . 124936)) (126036 128352 (TEDIT-DEBUG 126046 . 128350)) (128353 130089 (TRENAME 128363 . 
-130087)))))
+  (FILEMAP (NIL (4845 7232 (GTO 4855 . 5105) (GTS 5107 . 6706) (GTW 6708 . 6864) (GSEL 6866 . 7230)) (
+7289 20420 (IPC 7299 . 8803) (ILINES 8805 . 11346) (ISEL 11348 . 11959) (ITS 11961 . 13685) (IPANES 
+13687 . 13922) (ITL 13924 . 14343) (IHIST 14345 . 17007) (IPCTB 17009 . 17317) (IMB 17319 . 17934) (
+ICL 17936 . 18501) (IPL 18503 . 18907) (ICARET 18909 . 19286) (INSPECTPIECES 19288 . 20418)) (20442 
+55484 (SP 20452 . 25798) (SL 25800 . 28376) (SSP 28378 . 29491) (STL 29493 . 38005) (SPF 38007 . 40306
+) (SLF 40308 . 49441) (SHOWLINE 49443 . 53005) (SLL 53007 . 53754) (STBYTES 53756 . 55482)) (55485 
+60858 (NTHPIECE 55495 . 56627) (NPIECES 56629 . 57494) (NTHPIECECHAR 57496 . 58804) (SELPIECE 58806 . 
+59248) (PIECENUM 59250 . 59969) (PCBYTES 59971 . 60856)) (60859 63333 (FILEBYTES 60869 . 62293) (
+TFILEBYTES 62295 . 63331)) (63334 64656 (TRELMOVE 63344 . 63587) (TSCROLL 63589 . 63755) (TSCROLL* 
+63757 . 64654)) (64657 67706 (TRY 64667 . 65936) (TEDITCLOSEW 65938 . 66281) (PARALASTWITHOUTEOL 66283
+ . 67168) (FIXPARALAST 67170 . 67704)) (67707 82037 (SPPRINT 67717 . 74133) (SPPRINT.CHAR 74135 . 
+75119) (SPPRINT.OBJ 75121 . 78179) (SHOWPIECEBYTES 78181 . 79737) (CHECKPLENGTHS 79739 . 80196) (SBT 
+80198 . 81187) (COPYPCHAIN 81189 . 82035)) (82038 84099 (POSLINE 82048 . 84097)) (84100 84983 (
+PRESPLIT 84110 . 84981)) (84984 86697 (ALLTL 84994 . 86247) (NTHCHARSLOT 86249 . 86695)) (86723 96936 
+(PLCHAIN 86733 . 87261) (PRINTLINE 87263 . 90253) (SL.GETLINES 90255 . 93548) (CHECKLINES 93550 . 
+94530) (COLLECTLINES 94532 . 94784) (NTHLINE 94786 . 95791) (HEIGHT 95793 . 96081) (LINEBOTS 96083 . 
+96934)) (96937 99385 (IPC.DECODEARGS 96947 . 99383)) (99386 99979 (SPF1 99396 . 99977)) (100008 102386
+ (SLF.FATPLEN 100018 . 100877) (FILEPIECE 100879 . 102384)) (102419 103187 (SELTEDIT 102429 . 103185))
+ (103257 109415 (PPARA 103267 . 103689) (PRUN 103691 . 105713) (ADDLINEPOSITIONS 105715 . 107142) (SBR
+ 107144 . 107798) (SBC 107800 . 109413)) (109472 114147 (DFOV 109482 . 111952) (OLDWI 111954 . 112329)
+ (DFOV.OLDEST 112331 . 112756) (COMP 112758 . 112953) (DFR 112955 . 114145)) (114148 115181 (DFGV 
+114158 . 114684) (GDIRECTORIES 114686 . 115179)) (115182 121747 (TTEST 115192 . 119724) (LTEST 119726
+ . 121091) (THC 121093 . 121745)) (122061 122753 (SHOWSAFE 122071 . 122751)) (122806 123253 (MYH 
+122816 . 123251)) (123498 124593 (DFVENUE 123508 . 124387) (VSEE 124389 . 124591)) (124594 125048 (PTT
+ 124604 . 125046)) (126146 128462 (TEDIT-DEBUG 126156 . 128460)) (128463 130199 (TRENAME 128473 . 
+130197)))))
 STOP