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>
This commit is contained in:
rmkaplan
GitHub
@@ -1,12 +1,12 @@
|
||||
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
|
||||
|
||||
(FILECREATED "22-Dec-2024 15:27:12" {WMEDLEY}<library>TEDIT>TEDIT-LOOKS.;359 160454
|
||||
(FILECREATED " 5-Jan-2025 23:31:37" {MEDLEY}<library>tedit>TEDIT-LOOKS.;14 160989
|
||||
|
||||
:EDIT-BY rmk
|
||||
|
||||
:CHANGES-TO (FNS \TEDIT.CHARLOOKS.CHANGE.FONT)
|
||||
:CHANGES-TO (FNS \TEDIT.CHANGE.PARALOOKS.NEW)
|
||||
|
||||
:PREVIOUS-DATE "22-Dec-2024 11:42:48" {WMEDLEY}<library>TEDIT>TEDIT-LOOKS.;357)
|
||||
:PREVIOUS-DATE "22-Dec-2024 15:27:12" {MEDLEY}<library>tedit>TEDIT-LOOKS.;13)
|
||||
|
||||
|
||||
(PRETTYCOMPRINT TEDIT-LOOKSCOMS)
|
||||
@@ -2141,7 +2141,8 @@ CONS pair of default width and LIST of TAB record instances")
|
||||
(\TEDIT.SHOWSEL NIL T TEXTOBJ)))])
|
||||
|
||||
(\TEDIT.CHANGE.PARALOOKS.NEW
|
||||
[LAMBDA (NEWLOOKS OLDFMTSPEC TEXTOBJ) (* ; "Edited 31-Aug-2024 15:00 by rmk")
|
||||
[LAMBDA (NEWLOOKS OLDFMTSPEC TEXTOBJ) (* ; "Edited 5-Jan-2025 16:02 by rmk")
|
||||
(* ; "Edited 31-Aug-2024 15:00 by rmk")
|
||||
(* ; "Edited 29-Aug-2024 11:13 by rmk")
|
||||
(* ; "Edited 23-Aug-2024 23:41 by rmk")
|
||||
(* ; "Edited 11-Aug-2024 21:22 by rmk")
|
||||
@@ -2187,7 +2188,13 @@ CONS pair of default width and LIST of TAB record instances")
|
||||
(STYLE (FSETPARA NEWFMTSPEC FMTSTYLE VAL))
|
||||
(CHARSTYLES (FSETPARA NEWFMTSPEC FMTCHARSTYLES VAL))
|
||||
(COLUMN (FSETPARA NEWFMTSPEC FMTCOLUMN VAL))
|
||||
(TABS (FSETPARA NEWFMTSPEC FMTTABS VAL))
|
||||
(TABS [if (LISTP (CAR VAL))
|
||||
then (FSETPARA NEWFMTSPEC FMTTABS VAL)
|
||||
else (* ;
|
||||
"Could be the old (DEF . TABS) format")
|
||||
(FSETPARA NEWFMTSPEC FMTTABS (CDR VAL))
|
||||
(CL:WHEN (CAR VAL)
|
||||
(FSETPARA NEWFMTSPEC FMTDEFAULTTAB (CAR VAL)))])
|
||||
(DEFAULTTAB (FSETPARA NEWFMTSPEC FMTDEFAULTTAB VAL))
|
||||
NIL) finally (RETURN NEWFMTSPEC])
|
||||
|
||||
@@ -2568,28 +2575,28 @@ CONS pair of default width and LIST of TAB record instances")
|
||||
(ADDTOVAR LAMA \TEDIT.CHARLOOK.FEATURE)
|
||||
)
|
||||
(DECLARE%: DONTCOPY
|
||||
(FILEMAP (NIL (22860 24621 (\TEDIT.CHARLOOKS.DEFPRINT 22870 . 24001) (\TEDIT.FMTSPEC.DEFPRINT 24003 .
|
||||
24619)) (24725 25710 (\TEDIT.CREATE.DEFAULT.FMTSPEC 24735 . 25332) (\TEDIT.CREATE.FACE.MENU 25334 .
|
||||
25506) (\TEDIT.CREATE.SIZE.MENU 25508 . 25708)) (26600 26789 (\TEDIT.CHARLOOK.FEATUREP 26610 . 26787))
|
||||
(27091 56841 (\TEDIT.CHARLOOKS.FROM.FONT 27101 . 28911) (\TEDIT.EQCLOOKS 28913 . 31882) (
|
||||
\TEDIT.SAMECLOOKS 31884 . 36154) (TEDIT.CARETLOOKS 36156 . 37198) (TEDIT.COPY.LOOKS 37200 . 40483) (
|
||||
\TEDIT.UNPARSE.CHARLOOKS.LIST 40485 . 43198) (\TEDIT.MODIFYLOOKS 43200 . 45194) (TEDIT.NEW.FONT 45196
|
||||
. 45643) (\TEDIT.CARETLOOKS.VERIFY 45645 . 46482) (\TEDIT.CARETPIECE 46484 . 46789) (
|
||||
\TEDIT.GET.INSERT.CHARLOOKS 46791 . 49527) (\TEDIT.GET.TERMSA.WIDTHS 49529 . 49945) (
|
||||
\TEDIT.PARSE.CHARLOOKS.LIST 49947 . 51147) (\TEDIT.CHARLOOK.FEATURE 51149 . 56839)) (56842 71973 (
|
||||
\TEDIT.TRANSLATE.ASCIICHARS 56852 . 65951) (\TEDIT.CONVERT.TO.FORMATTED 65953 . 71971)) (73163 80398 (
|
||||
\TEDIT.UNIQUIFY.CHARLOOKS 73173 . 74833) (\TEDIT.UNIQUIFY.PARALOOKS 74835 . 76102) (
|
||||
\TEDIT.UNIQUIFY.ALL 76104 . 77961) (\TEDIT.FLUSH.UNUSED.LOOKS 77963 . 80396)) (80431 91527 (
|
||||
TEDIT.LOOKS 80441 . 82830) (TEDIT.GET.LOOKS 82832 . 84861) (TEDIT.SUBLOOKS 84863 . 88891) (
|
||||
TEDIT.FINDLOOKS 88893 . 91525)) (91528 111971 (\TEDIT.CHANGE.CHARLOOKS 91538 . 99274) (
|
||||
\TEDIT.CHANGE.CHARLOOKS.NEW 99276 . 103010) (\TEDIT.CHARLOOKS.CHANGE.FONT 103012 . 107289) (
|
||||
\TEDIT.LOOKS 107291 . 110620) (\TEDIT.FONTCOPY 110622 . 111969)) (112014 141681 (\TEDIT.EQFMTSPEC
|
||||
112024 . 115781) (TEDIT.GET.PARALOOKS 115783 . 119520) (\TEDIT.PARSE.PARALOOKS.LIST 119522 . 126596) (
|
||||
TEDIT.PARALOOKS 126598 . 127604) (\TEDIT.CHANGE.PARALOOKS 127606 . 134253) (
|
||||
\TEDIT.CHANGE.PARALOOKS.NEW 134255 . 137339) (TEDIT.COPY.PARALOOKS 137341 . 140015) (\TEDIT.PARABOUNDS
|
||||
140017 . 141679)) (141741 149288 (TEDIT.SUBPARALOOKS 141751 . 145535) (SAMEPARALOOKS 145537 . 149286)
|
||||
) (149327 149905 (\TEDIT.MARK.REVISION 149337 . 149903)) (149942 158994 (\TEDIT.APPLY.STYLES 149952 .
|
||||
153517) (\TEDIT.APPLY.PARASTYLES 153519 . 155868) (TEDIT.STYLESHEET 155870 . 156937) (
|
||||
TEDIT.POP.STYLESHEET 156939 . 157607) (TEDIT.PUSH.STYLESHEET 157609 . 158349) (TEDIT.ADD.STYLESHEET
|
||||
158351 . 158992)))))
|
||||
(FILEMAP (NIL (22855 24616 (\TEDIT.CHARLOOKS.DEFPRINT 22865 . 23996) (\TEDIT.FMTSPEC.DEFPRINT 23998 .
|
||||
24614)) (24720 25705 (\TEDIT.CREATE.DEFAULT.FMTSPEC 24730 . 25327) (\TEDIT.CREATE.FACE.MENU 25329 .
|
||||
25501) (\TEDIT.CREATE.SIZE.MENU 25503 . 25703)) (26595 26784 (\TEDIT.CHARLOOK.FEATUREP 26605 . 26782))
|
||||
(27086 56836 (\TEDIT.CHARLOOKS.FROM.FONT 27096 . 28906) (\TEDIT.EQCLOOKS 28908 . 31877) (
|
||||
\TEDIT.SAMECLOOKS 31879 . 36149) (TEDIT.CARETLOOKS 36151 . 37193) (TEDIT.COPY.LOOKS 37195 . 40478) (
|
||||
\TEDIT.UNPARSE.CHARLOOKS.LIST 40480 . 43193) (\TEDIT.MODIFYLOOKS 43195 . 45189) (TEDIT.NEW.FONT 45191
|
||||
. 45638) (\TEDIT.CARETLOOKS.VERIFY 45640 . 46477) (\TEDIT.CARETPIECE 46479 . 46784) (
|
||||
\TEDIT.GET.INSERT.CHARLOOKS 46786 . 49522) (\TEDIT.GET.TERMSA.WIDTHS 49524 . 49940) (
|
||||
\TEDIT.PARSE.CHARLOOKS.LIST 49942 . 51142) (\TEDIT.CHARLOOK.FEATURE 51144 . 56834)) (56837 71968 (
|
||||
\TEDIT.TRANSLATE.ASCIICHARS 56847 . 65946) (\TEDIT.CONVERT.TO.FORMATTED 65948 . 71966)) (73158 80393 (
|
||||
\TEDIT.UNIQUIFY.CHARLOOKS 73168 . 74828) (\TEDIT.UNIQUIFY.PARALOOKS 74830 . 76097) (
|
||||
\TEDIT.UNIQUIFY.ALL 76099 . 77956) (\TEDIT.FLUSH.UNUSED.LOOKS 77958 . 80391)) (80426 91522 (
|
||||
TEDIT.LOOKS 80436 . 82825) (TEDIT.GET.LOOKS 82827 . 84856) (TEDIT.SUBLOOKS 84858 . 88886) (
|
||||
TEDIT.FINDLOOKS 88888 . 91520)) (91523 111966 (\TEDIT.CHANGE.CHARLOOKS 91533 . 99269) (
|
||||
\TEDIT.CHANGE.CHARLOOKS.NEW 99271 . 103005) (\TEDIT.CHARLOOKS.CHANGE.FONT 103007 . 107284) (
|
||||
\TEDIT.LOOKS 107286 . 110615) (\TEDIT.FONTCOPY 110617 . 111964)) (112009 142216 (\TEDIT.EQFMTSPEC
|
||||
112019 . 115776) (TEDIT.GET.PARALOOKS 115778 . 119515) (\TEDIT.PARSE.PARALOOKS.LIST 119517 . 126591) (
|
||||
TEDIT.PARALOOKS 126593 . 127599) (\TEDIT.CHANGE.PARALOOKS 127601 . 134248) (
|
||||
\TEDIT.CHANGE.PARALOOKS.NEW 134250 . 137874) (TEDIT.COPY.PARALOOKS 137876 . 140550) (\TEDIT.PARABOUNDS
|
||||
140552 . 142214)) (142276 149823 (TEDIT.SUBPARALOOKS 142286 . 146070) (SAMEPARALOOKS 146072 . 149821)
|
||||
) (149862 150440 (\TEDIT.MARK.REVISION 149872 . 150438)) (150477 159529 (\TEDIT.APPLY.STYLES 150487 .
|
||||
154052) (\TEDIT.APPLY.PARASTYLES 154054 . 156403) (TEDIT.STYLESHEET 156405 . 157472) (
|
||||
TEDIT.POP.STYLESHEET 157474 . 158142) (TEDIT.PUSH.STYLESHEET 158144 . 158884) (TEDIT.ADD.STYLESHEET
|
||||
158886 . 159527)))))
|
||||
STOP
|
||||
|
||||
Reference in New Issue
Block a user