Changeset main,48 for main/window/screen.lisp

Timestamp:

11/13/2007 04:31:46 PM (19 years ago)

Author:

David Owen <dsowen@…>

branch-nick:

tui

revision id:

dsowen@fugue88.ws-20071113163146-2c9661gfdiyqnwbf

Message:

Modified colormap.
Fixed flat-menu to work with other new code.

File:

• main/window/screen.lisp (modified) (1 diff)

main/window/screen.lisp

@@ -36 +36 @@
             (dotimes (i 63)
               (let ((j (1+ i)))
-                (init-pair j (floor j 8) (mod j 8))))
+                (init-pair j (mod j 8) (floor j 8))))
             (let ((,screen (make-instance 'screen-window :ptr ,ptr)))
               ,@body)