Fix typo in MAIKOCOLOR (#2435)

library/MAIKOCOLOR

@@ -1,21 +1,13 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
 
-
(FILECREATED "26-Oct-2021 10:53:57" {DSK}<home>larry>medley>library>MAIKOCOLOR.;2
 60141  
+
(FILECREATED "30-Dec-2025 14:53:37" {WMEDLEY}<library>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}<home>larry>medley>library>MAIKOCOLOR.;1)
+      :CHANGES-TO (VARS MAIKOCOLORCOMS)
 
+      :PREVIOUS-DATE "26-Oct-2021 10:53:57" {WMEDLEY}<library>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

+       (PUTPROPS \MAIKO.CGTHREEP
 MACRO
 (NIL (EQ (LOGAND 120 (fetch
 DEVCONFIG of
 \InterfacePage))
+                                                48)))]
 
-                                                                                       \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