From b9757062e9515d76f8ec5417c965d8622a2b9966 Mon Sep 17 00:00:00 2001 From: rmkaplan <69548581+rmkaplan@users.noreply.github.com> Date: Wed, 31 Dec 2025 11:29:43 -0800 Subject: [PATCH] Fix typo in MAIKOCOLOR (#2435) --- library/MAIKOCOLOR | 61 +++++++++++++++------------------------- library/MAIKOCOLOR.LCOM | Bin 14824 -> 14031 bytes 2 files changed, 22 insertions(+), 39 deletions(-) diff --git a/library/MAIKOCOLOR b/library/MAIKOCOLOR index 3af8c6cc..dcddf0fd 100644 --- a/library/MAIKOCOLOR +++ b/library/MAIKOCOLOR @@ -1,21 +1,13 @@ (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) -(FILECREATED "26-Oct-2021 10:53:57" {DSK}larry>medley>library>MAIKOCOLOR.;2 60141 +(FILECREATED "30-Dec-2025 14:53:37" {WMEDLEY}MAIKOCOLOR.;3 58803 - changes to%: (VARS MAIKOCOLORCOMS) - (MACROS \MAIKO.CGTHREEP \MAIKO.CGFOURP \MAIKO.CGSIXP \MAIKO.CGTWOP) - (FNS \MAIKO.COLORINIT \MAIKO.STARTCOLOR \MAIKO.STOPCOLOR \MAIKOCOLOR.EVENTFN - \MAIKO.SENDCOLORMAPENTRY \MAIKO.CHANGESCREEN CURSOREXIT CURSORSCREEN - WARPCURSOR \SLOWBLTCHAR \SOFTCURSORUP \BITBLT.DISPLAY \PUNT.SLOWBLTCHAR - \PUNT.BLTSHADE.BITMAP \PUNT.BITBLT.BITMAP BITMAPOBJ.SNAPW \MAIKO.PUNTBLTCHAR - \MAIKO.BLTCHAR) + :EDIT-BY rmk - previous date%: "23-Oct-91 14:43:35" {DSK}larry>medley>library>MAIKOCOLOR.;1) + :CHANGES-TO (VARS MAIKOCOLORCOMS) + :PREVIOUS-DATE "26-Oct-2021 10:53:57" {WMEDLEY}MAIKOCOLOR.;2) -(* ; " -Copyright (c) 1988-1991 by Fuji Xerox Co., Ltd.. -") (PRETTYCOMPRINT MAIKOCOLORCOMS) @@ -29,7 +21,7 @@ Copyright (c) 1988-1991 by Fuji Xerox Co., Ltd.. \MAIKO.SENDCOLORMAPENTRY \MAIKO.CHANGESCREEN) (FNS CURSOREXIT CURSORSCREEN WARPCURSOR \SLOWBLTCHAR \SOFTCURSORUP \BITBLT.DISPLAY) (* ; - "these FNS defs. will be moved to original files,later") + "these FNS defs. will be moved to original files,later") (FNS \PUNT.SLOWBLTCHAR \MAIKO.PUNTBLTCHAR \MAIKO.BLTCHAR) (FNS \PUNT.BLTSHADE.BITMAP \PUNT.BITBLT.BITMAP) (FNS BITMAPOBJ.SNAPW) @@ -47,7 +39,7 @@ Copyright (c) 1988-1991 by Fuji Xerox Co., Ltd.. (GLOBALVARS MAIKOCOLOR.BITSPERPIXEL) (FILES COLOR BIGBITMAPS) (DECLARE%: DONTEVAL@LOAD DOCOPY (P (MOVD 'CURSOREXIT 'SAVE.CURSOREXIT) - (MOVD '\MAIKO.BLTCHAR '\BILTCHAR) + (MOVD '\MAIKO.BLTCHAR '\BLTCHAR) (\MAIKO.COLORINIT) (COLORDISPLAY 'ON 'MAIKOCOLOR) (CURSORSCREEN (COLORSCREEN) @@ -909,28 +901,20 @@ Copyright (c) 1988-1991 by Fuji Xerox Co., Ltd.. [PROGN (DEFMACRO \MAIKO.CGTHREEP () (EQ (LOGAND 120 (fetch DEVCONFIG of \InterfacePage)) 48)) - (PUTPROPS \MAIKO.CGTHREEP MACRO (NIL (EQ (LOGAND 120 (fetch DEVCONFIG of - - \InterfacePage - )) - 48)))] + (PUTPROPS \MAIKO.CGTHREEP MACRO (NIL (EQ (LOGAND 120 (fetch DEVCONFIG of \InterfacePage)) + 48)))] -(PUTPROPS \MAIKO.CGFOURP MACRO (NIL (EQ (LOGAND 120 (fetch DEVCONFIG of - \InterfacePage - )) - 64))) +(PUTPROPS \MAIKO.CGFOURP MACRO (NIL (EQ (LOGAND 120 (fetch DEVCONFIG of \InterfacePage)) + 64))) [PROGN (DEFMACRO \MAIKO.CGSIXP () (EQ (LOGAND 120 (fetch DEVCONFIG of \InterfacePage)) 96)) - (PUTPROPS \MAIKO.CGSIXP MACRO (NIL (EQ (LOGAND 120 (fetch DEVCONFIG of - \InterfacePage - )) - 96)))] + (PUTPROPS \MAIKO.CGSIXP MACRO (NIL (EQ (LOGAND 120 (fetch DEVCONFIG of \InterfacePage)) + 96)))] -(PUTPROPS \MAIKO.CGTWOP MACRO (NIL (EQ (LOGAND 120 (fetch DEVCONFIG of \InterfacePage - )) - 24))) +(PUTPROPS \MAIKO.CGTWOP MACRO (NIL (EQ (LOGAND 120 (fetch DEVCONFIG of \InterfacePage)) + 24))) ) (DECLARE%: EVAL@COMPILE @@ -974,7 +958,7 @@ Copyright (c) 1988-1991 by Fuji Xerox Co., Ltd.. (MOVD 'CURSOREXIT 'SAVE.CURSOREXIT) -(MOVD '\MAIKO.BLTCHAR '\BILTCHAR) +(MOVD '\MAIKO.BLTCHAR '\BLTCHAR) (\MAIKO.COLORINIT) @@ -989,13 +973,12 @@ Copyright (c) 1988-1991 by Fuji Xerox Co., Ltd.. (LOGOW) ) -(PUTPROPS MAIKOCOLOR COPYRIGHT ("Fuji Xerox Co., Ltd." 1988 1989 1990 1991)) (DECLARE%: DONTCOPY - (FILEMAP (NIL (3229 7254 (\MAIKO.COLORINIT 3239 . 4475) (\MAIKO.STARTCOLOR 4477 . 5293) ( -\MAIKO.STOPCOLOR 5295 . 5749) (\MAIKOCOLOR.EVENTFN 5751 . 6382) (\MAIKO.SENDCOLORMAPENTRY 6384 . 6842) - (\MAIKO.CHANGESCREEN 6844 . 7252)) (7255 28244 (CURSOREXIT 7265 . 8769) (CURSORSCREEN 8771 . 10877) ( -WARPCURSOR 10879 . 11194) (\SLOWBLTCHAR 11196 . 11608) (\SOFTCURSORUP 11610 . 17471) (\BITBLT.DISPLAY -17473 . 28242)) (28315 40283 (\PUNT.SLOWBLTCHAR 28325 . 35163) (\MAIKO.PUNTBLTCHAR 35165 . 39855) ( -\MAIKO.BLTCHAR 39857 . 40281)) (40284 56617 (\PUNT.BLTSHADE.BITMAP 40294 . 47386) (\PUNT.BITBLT.BITMAP - 47388 . 56615)) (56618 57426 (BITMAPOBJ.SNAPW 56628 . 57424))))) + (FILEMAP (NIL (2639 6664 (\MAIKO.COLORINIT 2649 . 3885) (\MAIKO.STARTCOLOR 3887 . 4703) ( +\MAIKO.STOPCOLOR 4705 . 5159) (\MAIKOCOLOR.EVENTFN 5161 . 5792) (\MAIKO.SENDCOLORMAPENTRY 5794 . 6252) + (\MAIKO.CHANGESCREEN 6254 . 6662)) (6665 27654 (CURSOREXIT 6675 . 8179) (CURSORSCREEN 8181 . 10287) ( +WARPCURSOR 10289 . 10604) (\SLOWBLTCHAR 10606 . 11018) (\SOFTCURSORUP 11020 . 16881) (\BITBLT.DISPLAY +16883 . 27652)) (27725 39693 (\PUNT.SLOWBLTCHAR 27735 . 34573) (\MAIKO.PUNTBLTCHAR 34575 . 39265) ( +\MAIKO.BLTCHAR 39267 . 39691)) (39694 56027 (\PUNT.BLTSHADE.BITMAP 39704 . 46796) (\PUNT.BITBLT.BITMAP + 46798 . 56025)) (56028 56836 (BITMAPOBJ.SNAPW 56038 . 56834))))) STOP diff --git a/library/MAIKOCOLOR.LCOM b/library/MAIKOCOLOR.LCOM index b4c0f333640d1e4448bb7a93bc6d20798719c241..5160611c4cbc28b743e09dd68fab402e32396a94 100644 GIT binary patch delta 438 zcmaiw%SyvQ6hJ|`$~U;U3<#M;LY{3LMTp6?4o)(Xq%8$EZ5lM#7ikxYNH%_e;NG9; z-n}c={(+xiB4{g!ZZF((?mh3z*XcvQG&RM~QpL~=8+41k delta 660 zcmaKq(Q4XY6vxraz@XqZMz0Rp97Z&LU!vB09YTycGt(qXB5tfVRzpoOMxu_%7(T&Z z?7Qw$^r|;~fZgn3Ptdzw4fY28w54^M^ya{Ua}NLC|9^glSJQ9ZrBu#a{aIc@5(bP& zsYsB-Lx%51;UpOO1Bk}J!{@r&{_<)Vg?@F^i{nK#^amqveIxuba9D^iSb=f}@wo$25a-^aFaq zx+Tie-{|Ge?R3rXw3g}sN3&R1LQVG$RNJb(5nWTYyAUwh&5mKfrV>#Uc^LF&3~Q@I zg%`L?Q#Tr#(@?!e9sc52*&~w@@)VMRf!f(3yyb%VPG`Yyho