From d612b5333f657dfb9db90c66f09637b47d98dec0 Mon Sep 17 00:00:00 2001 From: rmkaplan Date: Tue, 10 Feb 2026 21:23:10 -0800 Subject: [PATCH] Print prompt message when there is no text to get new looks --- library/tedit/TEDIT-LOOKS | 65 ++++++++++++++++++--------------- library/tedit/TEDIT-LOOKS.LCOM | Bin 38185 -> 38414 bytes 2 files changed, 36 insertions(+), 29 deletions(-) diff --git a/library/tedit/TEDIT-LOOKS b/library/tedit/TEDIT-LOOKS index 9c66d9ca..7467df8b 100644 --- a/library/tedit/TEDIT-LOOKS +++ b/library/tedit/TEDIT-LOOKS @@ -1,12 +1,12 @@ (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) -(FILECREATED " 7-Dec-2025 16:32:32" {WMEDLEY}tedit>TEDIT-LOOKS.;460 155196 +(FILECREATED "10-Feb-2026 11:07:12" {WMEDLEY}TEDIT>TEDIT-LOOKS.;465 155591 :EDIT-BY rmk - :CHANGES-TO (VARS TEDIT-LOOKSCOMS) + :CHANGES-TO (FNS \TEDIT.CHANGE.CHARLOOKS \TEDIT.CHANGE.PARALOOKS) - :PREVIOUS-DATE " 6-Oct-2025 20:50:59" {WMEDLEY}tedit>TEDIT-LOOKS.;459) + :PREVIOUS-DATE " 7-Dec-2025 16:32:32" {WMEDLEY}tedit>TEDIT-LOOKS.;460) (PRETTYCOMPRINT TEDIT-LOOKSCOMS) @@ -1377,7 +1377,8 @@ (DEFINEQ (\TEDIT.CHANGE.CHARLOOKS - [LAMBDA (TSTREAM NEWLOOKS TARGETSEL) (* ; "Edited 31-Jul-2025 09:18 by rmk") + [LAMBDA (TSTREAM NEWLOOKS TARGETSEL) (* ; "Edited 10-Feb-2026 11:06 by rmk") + (* ; "Edited 31-Jul-2025 09:18 by rmk") (* ; "Edited 22-Apr-2025 20:17 by rmk") (* ; "Edited 21-Apr-2025 20:17 by rmk") (* ; "Edited 20-Apr-2025 13:27 by rmk") @@ -1403,10 +1404,12 @@ (* ;;; "Internal programmatic interface to changing character looks. DOES NOT CHANGE the current selection (unless it's the TARGETSEL).") (PROG ((TEXTOBJ (TEXTOBJ TSTREAM)) - SELPIECES NEWLOOKSLIST FONT DIRTY) (* ; - "Construct the set of new looks to apply:") + SELPIECES NEWLOOKSLIST FONT DIRTY) (CL:UNLESS TARGETSEL (SETQ TARGETSEL (TEXTSEL TEXTOBJ))) + (CL:WHEN (EQ 0 (GETSEL TARGETSEL DCH)) + (TEDIT.PROMPTPRINT TSTREAM "No characters are selected" T) + (RETURN)) (CL:UNLESS (AND NEWLOOKS (FGETSEL TARGETSEL SET) (NOT (\TEDIT.READONLY TSTREAM NIL (GETSEL TARGETSEL CH#))) (ILEQ (GETSEL TARGETSEL CH#) @@ -2103,7 +2106,8 @@ then (\TEDIT.CHANGE.PARALOOKS TSTREAM NEWLOOKS TARGETSEL)))]) (\TEDIT.CHANGE.PARALOOKS - [LAMBDA (TSTREAM NEWLOOKS TARGETSEL) (* ; "Edited 21-Apr-2025 23:27 by rmk") + [LAMBDA (TSTREAM NEWLOOKS TARGETSEL) (* ; "Edited 10-Feb-2026 11:07 by rmk") + (* ; "Edited 21-Apr-2025 23:27 by rmk") (* ; "Edited 20-Apr-2025 13:27 by rmk") (* ; "Edited 16-Apr-2025 09:05 by rmk") (* ; "Edited 6-Apr-2025 14:29 by rmk") @@ -2126,6 +2130,9 @@ NEWPAGEAFTER HEADINGKEEP KEEP HARDCOPY USERINFO REVISED STYLE CHARSTYLES COLUMN TABS DEFAULTTAB MARGINBAR)) PARAPIECES) + (CL:WHEN (EQ 0 (TEXTLEN TEXTOBJ)) + (TEDIT.PROMPTPRINT TSTREAM "No text to modify" T) + (RETURN)) (CL:UNLESS TARGETSEL (SETQ TARGETSEL (TEXTSEL TEXTOBJ))) (CL:UNLESS (AND NEWLOOKS (FGETSEL TARGETSEL SET) @@ -2458,26 +2465,26 @@ (ADDTOVAR LAMA ) ) (DECLARE%: DONTCOPY - (FILEMAP (NIL (22014 23956 (\TEDIT.CHARLOOKS.DEFPRINT 22024 . 23160) (\TEDIT.PARALOOKS.DEFPRINT 23162 - . 23954)) (24060 24446 (\TEDIT.CREATE.FACE.MENU 24070 . 24242) (\TEDIT.CREATE.SIZE.MENU 24244 . 24444 -)) (25450 27339 (\TEDIT.CHARLOOKS.FEATURE.CHECK 25460 . 27337)) (27611 52868 ( -\TEDIT.CHARLOOKS.FROM.FONT 27621 . 29905) (\TEDIT.EQCLOOKS 29907 . 32938) (\TEDIT.SAMECLOOKS 32940 . -36111) (TEDIT.CARETLOOKS 36113 . 37659) (TEDIT.COPY.LOOKS 37661 . 40944) ( -\TEDIT.UNPARSE.CHARLOOKS.LIST 40946 . 44440) (\TEDIT.MODIFYLOOKS 44442 . 46602) (TEDIT.NEW.FONT 46604 - . 47051) (\TEDIT.CARETLOOKS.VERIFY 47053 . 47890) (\TEDIT.CARETPIECE 47892 . 48197) ( -\TEDIT.GET.INSERT.CHARLOOKS 48199 . 51246) (\TEDIT.GET.TERMSA.WIDTHS 51248 . 51664) ( -\TEDIT.PARSE.CHARLOOKS.LIST 51666 . 52866)) (52869 64996 (\TEDIT.MCCS.TRANSLATE 52879 . 58732) ( -\TEDIT.CONVERT.TO.FORMATTED 58734 . 64994)) (65868 73205 (\TEDIT.UNIQUIFY.CHARLOOKS 65878 . 67538) ( -\TEDIT.UNIQUIFY.PARALOOKS 67540 . 68807) (\TEDIT.UNIQUIFY.ALL 68809 . 70897) ( -\TEDIT.FLUSH.UNUSED.LOOKS 70899 . 73203)) (73238 85196 (TEDIT.LOOKS 73248 . 75637) (TEDIT.GET.LOOKS -75639 . 77974) (TEDIT.SUBLOOKS 77976 . 82356) (TEDIT.FINDLOOKS 82358 . 85194)) (85197 114847 ( -\TEDIT.CHANGE.CHARLOOKS 85207 . 93985) (\TEDIT.CHANGE.CHARLOOKS.NEW 93987 . 97802) ( -\TEDIT.CHARLOOKS.CHANGE.FONT 97804 . 106111) (\TEDIT.FONT.NEXTSIZE 106113 . 107734) (\TEDIT.LOOKS -107736 . 111065) (\TEDIT.FONTCOPY 111067 . 112568) (\TEDIT.COERCE.FONTCLASS 112570 . 113721) ( -\TEDIT.FONTCLASS.TO.FONT 113723 . 114845)) (114890 146538 (\TEDIT.EQFMTSPEC 114900 . 118115) ( -TEDIT.GET.PARALOOKS 118117 . 122164) (\TEDIT.PARSE.PARALOOKS.LIST 122166 . 130199) (TEDIT.PARALOOKS -130201 . 131241) (\TEDIT.CHANGE.PARALOOKS 131243 . 138211) (\TEDIT.CHANGE.PARALOOKS.NEW 138213 . -142196) (TEDIT.COPY.PARALOOKS 142198 . 144872) (\TEDIT.PARABOUNDS 144874 . 146536)) (146598 154314 ( -TEDIT.SUBPARALOOKS 146608 . 150710) (SAMEPARALOOKS 150712 . 154312)) (154315 155002 ( -\TEDIT.MARK.REVISION 154325 . 155000))))) + (FILEMAP (NIL (22045 23987 (\TEDIT.CHARLOOKS.DEFPRINT 22055 . 23191) (\TEDIT.PARALOOKS.DEFPRINT 23193 + . 23985)) (24091 24477 (\TEDIT.CREATE.FACE.MENU 24101 . 24273) (\TEDIT.CREATE.SIZE.MENU 24275 . 24475 +)) (25481 27370 (\TEDIT.CHARLOOKS.FEATURE.CHECK 25491 . 27368)) (27642 52899 ( +\TEDIT.CHARLOOKS.FROM.FONT 27652 . 29936) (\TEDIT.EQCLOOKS 29938 . 32969) (\TEDIT.SAMECLOOKS 32971 . +36142) (TEDIT.CARETLOOKS 36144 . 37690) (TEDIT.COPY.LOOKS 37692 . 40975) ( +\TEDIT.UNPARSE.CHARLOOKS.LIST 40977 . 44471) (\TEDIT.MODIFYLOOKS 44473 . 46633) (TEDIT.NEW.FONT 46635 + . 47082) (\TEDIT.CARETLOOKS.VERIFY 47084 . 47921) (\TEDIT.CARETPIECE 47923 . 48228) ( +\TEDIT.GET.INSERT.CHARLOOKS 48230 . 51277) (\TEDIT.GET.TERMSA.WIDTHS 51279 . 51695) ( +\TEDIT.PARSE.CHARLOOKS.LIST 51697 . 52897)) (52900 65027 (\TEDIT.MCCS.TRANSLATE 52910 . 58763) ( +\TEDIT.CONVERT.TO.FORMATTED 58765 . 65025)) (65899 73236 (\TEDIT.UNIQUIFY.CHARLOOKS 65909 . 67569) ( +\TEDIT.UNIQUIFY.PARALOOKS 67571 . 68838) (\TEDIT.UNIQUIFY.ALL 68840 . 70928) ( +\TEDIT.FLUSH.UNUSED.LOOKS 70930 . 73234)) (73269 85227 (TEDIT.LOOKS 73279 . 75668) (TEDIT.GET.LOOKS +75670 . 78005) (TEDIT.SUBLOOKS 78007 . 82387) (TEDIT.FINDLOOKS 82389 . 85225)) (85228 115001 ( +\TEDIT.CHANGE.CHARLOOKS 85238 . 94139) (\TEDIT.CHANGE.CHARLOOKS.NEW 94141 . 97956) ( +\TEDIT.CHARLOOKS.CHANGE.FONT 97958 . 106265) (\TEDIT.FONT.NEXTSIZE 106267 . 107888) (\TEDIT.LOOKS +107890 . 111219) (\TEDIT.FONTCOPY 111221 . 112722) (\TEDIT.COERCE.FONTCLASS 112724 . 113875) ( +\TEDIT.FONTCLASS.TO.FONT 113877 . 114999)) (115044 146933 (\TEDIT.EQFMTSPEC 115054 . 118269) ( +TEDIT.GET.PARALOOKS 118271 . 122318) (\TEDIT.PARSE.PARALOOKS.LIST 122320 . 130353) (TEDIT.PARALOOKS +130355 . 131395) (\TEDIT.CHANGE.PARALOOKS 131397 . 138606) (\TEDIT.CHANGE.PARALOOKS.NEW 138608 . +142591) (TEDIT.COPY.PARALOOKS 142593 . 145267) (\TEDIT.PARABOUNDS 145269 . 146931)) (146993 154709 ( +TEDIT.SUBPARALOOKS 147003 . 151105) (SAMEPARALOOKS 151107 . 154707)) (154710 155397 ( +\TEDIT.MARK.REVISION 154720 . 155395))))) STOP diff --git a/library/tedit/TEDIT-LOOKS.LCOM b/library/tedit/TEDIT-LOOKS.LCOM index 066f0a1552dac306f0d36b44660325e55156333b..c5bf83c2f775ced8638c75e4c0819bce81bd0038 100644 GIT binary patch delta 1924 zcmZuy&u<$=6i#f4L;yh=bX47!kK1Yu$f)bHlpIIwg zRb@6*0fD@5D1=JW@bz9zm8z=s&4(x5{eHXuC`3KMo{7K%;hY-;@?J$T-K`{JhjH<8G3|BKbd1t|r5I&5>+ zt=N06s)7{K*H-6~k{SNz-S-EQQ3y|%g@*Emw*iv!k)K)dY{vwt8PTzAMZqU*02nd%3ZaG1_vQERQ6&fw4P*=dkICsTzJ-g8=luEd(jRHiw zS+%PW1?LP(*h$rJ(O0AX=ADIvWWMvk%A(H4<*OYtERD&W|M+Mz$+R3^#uCle)gDlt zN7XqEyXJU^2SZbq1JkaX1zZvdHB~DDk=);Ud}A4}TaEx>*^Z@5$uC3}U9_@s}b9H8(^2qAan-9DnL*Js;Z0;DT_N1F>%raU=nT^VAXdm z*D6-A`Pipp$`!BI=qRt(c+5%3v~HBEy111Qd%x;WWY$X>PnPjM0fp z%^^8HY%~x`V~)28l6KMqq~OGe_rvdnIbL#sEieYLm)|2BPsosg8{dH62qD$|q71 zF<7J|?tgo96vQ7jdVJMTO^hw~ns_71!E9;Na72W$S| Mle-u0$zN;#1JEw-{r~^~ delta 1716 zcmZvc%WoT16vmS=P!Wj*l;%NF>2yRMG=4l7Tie%q=&pr2?@BF@e{+;&qH`b6qvto9a5OxA zba3<#4vs)?Z+5#deYMeO=mn`S-OJI+g{MpNLQqr;rKqP?RD z=j^t&C~j!~F3!xd#{nm`$;U5 zw8Supz!J1Pi95k|EW2QFrhYiNRMU3=7&pKM6rp%_B9fpx@nrRL%QIu=WA+WMOZUBo?(VtSIDln-+!0U+XNW2;3L8k;PNc4u?;k1HkPq)ah;rs%{ro4_DB^ zTo8vK>8YmR*i-kA%_%)H`J{I*Q%96?q-sz$6-UgnNgM%C!vVcsAM6fCXnq~nM16I~ ztP$H*Ki@GGF_+Fdcc0w4s=Zbja+taD4ejighyToKh}`+X;ykyV3XH;W+%_`DaY4~> zZ*OuON@3S&@c9I(DeyVsPy}BDpHngcp9%Hi@q%Uu_4~>45_K|brOuKY?Oqax(gSKU zQ0E^nEI0ac8z@p!q%93e4UW{mDIKeV-YTJIRa5`-3_(rHUfjqn#!ZO&?PO(aR%e%T zFN|{B93Ps%!gIchTwFMX131p884gB+0y|0p(P?=>xC7K85MluZNLX*^kI|GsQNMyU zn=$76|BswA`r02~K0;X#96UL04ZM*3W)Dq^th{Rh+wa