github.com/Interlisp.medley
1
0
Fork 0
mirror of synced 2026-01-12 00:42:56 +00:00
Code Issues Projects Releases Wiki Activity

Fix typo in MAIKOCOLOR (#2435)

Browse Source
This commit is contained in:
rmkaplan 2025-12-31 11:29:43 -08:00 committed by GitHub
parent ba90276e93
commit b9757062e9
No known key found for this signature in database
GPG Key ID: B5690EEEBB952194
2 changed files with 22 additions and 39 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

61
library/MAIKOCOLOR
View File

@ -1,21 +1,13 @@
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) (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) :EDIT-BY rmk
(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)
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) (PRETTYCOMPRINT MAIKOCOLORCOMS)
@ -29,7 +21,7 @@ Copyright (c) 1988-1991 by Fuji Xerox Co., Ltd..
\MAIKO.SENDCOLORMAPENTRY \MAIKO.CHANGESCREEN) \MAIKO.SENDCOLORMAPENTRY \MAIKO.CHANGESCREEN)
(FNS CURSOREXIT CURSORSCREEN WARPCURSOR \SLOWBLTCHAR \SOFTCURSORUP \BITBLT.DISPLAY) (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.SLOWBLTCHAR \MAIKO.PUNTBLTCHAR \MAIKO.BLTCHAR)
(FNS \PUNT.BLTSHADE.BITMAP \PUNT.BITBLT.BITMAP) (FNS \PUNT.BLTSHADE.BITMAP \PUNT.BITBLT.BITMAP)
(FNS BITMAPOBJ.SNAPW) (FNS BITMAPOBJ.SNAPW)
@ -47,7 +39,7 @@ Copyright (c) 1988-1991 by Fuji Xerox Co., Ltd..
(GLOBALVARS MAIKOCOLOR.BITSPERPIXEL) (GLOBALVARS MAIKOCOLOR.BITSPERPIXEL)
(FILES COLOR BIGBITMAPS) (FILES COLOR BIGBITMAPS)
(DECLARE%: DONTEVAL@LOAD DOCOPY (P (MOVD 'CURSOREXIT 'SAVE.CURSOREXIT) (DECLARE%: DONTEVAL@LOAD DOCOPY (P (MOVD 'CURSOREXIT 'SAVE.CURSOREXIT)
(MOVD '\MAIKO.BLTCHAR '\BILTCHAR) (MOVD '\MAIKO.BLTCHAR '\BLTCHAR)
(\MAIKO.COLORINIT) (\MAIKO.COLORINIT)
(COLORDISPLAY 'ON 'MAIKOCOLOR) (COLORDISPLAY 'ON 'MAIKOCOLOR)
(CURSORSCREEN (COLORSCREEN) (CURSORSCREEN (COLORSCREEN)
@ -909,28 +901,20 @@ Copyright (c) 1988-1991 by Fuji Xerox Co., Ltd..
[PROGN (DEFMACRO \MAIKO.CGTHREEP () [PROGN (DEFMACRO \MAIKO.CGTHREEP ()
(EQ (LOGAND 120 (fetch DEVCONFIG of \InterfacePage)) (EQ (LOGAND 120 (fetch DEVCONFIG of \InterfacePage))
48)) 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 (PUTPROPS \MAIKO.CGFOURP MACRO (NIL (EQ (LOGAND 120 (fetch DEVCONFIG of \InterfacePage))
)) 64)))
48)))]
(PUTPROPS \MAIKO.CGFOURP MACRO (NIL (EQ (LOGAND 120 (fetch DEVCONFIG of
\InterfacePage
))
64)))
[PROGN (DEFMACRO \MAIKO.CGSIXP () [PROGN (DEFMACRO \MAIKO.CGSIXP ()
(EQ (LOGAND 120 (fetch DEVCONFIG of \InterfacePage)) (EQ (LOGAND 120 (fetch DEVCONFIG of \InterfacePage))
96)) 96))
(PUTPROPS \MAIKO.CGSIXP MACRO (NIL (EQ (LOGAND 120 (fetch DEVCONFIG of (PUTPROPS \MAIKO.CGSIXP MACRO (NIL (EQ (LOGAND 120 (fetch DEVCONFIG of \InterfacePage))
\InterfacePage 96)))]
))
96)))]
(PUTPROPS \MAIKO.CGTWOP MACRO (NIL (EQ (LOGAND 120 (fetch DEVCONFIG of \InterfacePage (PUTPROPS \MAIKO.CGTWOP MACRO (NIL (EQ (LOGAND 120 (fetch DEVCONFIG of \InterfacePage))
)) 24)))
24)))
) )
(DECLARE%: EVAL@COMPILE (DECLARE%: EVAL@COMPILE
@ -974,7 +958,7 @@ Copyright (c) 1988-1991 by Fuji Xerox Co., Ltd..
(MOVD 'CURSOREXIT 'SAVE.CURSOREXIT) (MOVD 'CURSOREXIT 'SAVE.CURSOREXIT)
(MOVD '\MAIKO.BLTCHAR '\BILTCHAR) (MOVD '\MAIKO.BLTCHAR '\BLTCHAR)
(\MAIKO.COLORINIT) (\MAIKO.COLORINIT)
@ -989,13 +973,12 @@ Copyright (c) 1988-1991 by Fuji Xerox Co., Ltd..
(LOGOW) (LOGOW)
) )
(PUTPROPS MAIKOCOLOR COPYRIGHT ("Fuji Xerox Co., Ltd." 1988 1989 1990 1991))
(DECLARE%: DONTCOPY (DECLARE%: DONTCOPY
(FILEMAP (NIL (3229 7254 (\MAIKO.COLORINIT 3239 . 4475) (\MAIKO.STARTCOLOR 4477 . 5293) ( (FILEMAP (NIL (2639 6664 (\MAIKO.COLORINIT 2649 . 3885) (\MAIKO.STARTCOLOR 3887 . 4703) (
\MAIKO.STOPCOLOR 5295 . 5749) (\MAIKOCOLOR.EVENTFN 5751 . 6382) (\MAIKO.SENDCOLORMAPENTRY 6384 . 6842) \MAIKO.STOPCOLOR 4705 . 5159) (\MAIKOCOLOR.EVENTFN 5161 . 5792) (\MAIKO.SENDCOLORMAPENTRY 5794 . 6252)
(\MAIKO.CHANGESCREEN 6844 . 7252)) (7255 28244 (CURSOREXIT 7265 . 8769) (CURSORSCREEN 8771 . 10877) ( (\MAIKO.CHANGESCREEN 6254 . 6662)) (6665 27654 (CURSOREXIT 6675 . 8179) (CURSORSCREEN 8181 . 10287) (
WARPCURSOR 10879 . 11194) (\SLOWBLTCHAR 11196 . 11608) (\SOFTCURSORUP 11610 . 17471) (\BITBLT.DISPLAY WARPCURSOR 10289 . 10604) (\SLOWBLTCHAR 10606 . 11018) (\SOFTCURSORUP 11020 . 16881) (\BITBLT.DISPLAY
17473 . 28242)) (28315 40283 (\PUNT.SLOWBLTCHAR 28325 . 35163) (\MAIKO.PUNTBLTCHAR 35165 . 39855) ( 16883 . 27652)) (27725 39693 (\PUNT.SLOWBLTCHAR 27735 . 34573) (\MAIKO.PUNTBLTCHAR 34575 . 39265) (
\MAIKO.BLTCHAR 39857 . 40281)) (40284 56617 (\PUNT.BLTSHADE.BITMAP 40294 . 47386) (\PUNT.BITBLT.BITMAP \MAIKO.BLTCHAR 39267 . 39691)) (39694 56027 (\PUNT.BLTSHADE.BITMAP 39704 . 46796) (\PUNT.BITBLT.BITMAP
47388 . 56615)) (56618 57426 (BITMAPOBJ.SNAPW 56628 . 57424))))) 46798 . 56025)) (56028 56836 (BITMAPOBJ.SNAPW 56038 . 56834)))))
STOP STOP

BIN
library/MAIKOCOLOR.LCOM
View File

Binary file not shown.