Changeset main,29 for main

Timestamp:

11/05/2007 08:04:36 PM (19 years ago)

Author:

David Owen <dsowen@…>

branch-nick:

tui-new

revision id:

dsowen@fugue88.ws-20071105200436-lr8xar2scppnugzp

Message:

WITH-SCREEN now initializes color.

Location:

main

Files:

• cdk.lisp (modified) (1 diff)
• window/screen.lisp (modified) (3 diffs)

main/cdk.lisp

@@ -29 +29 @@
 
 
-(defcfun ("start_color" c-curs-start-color) :int)
 
 

main/window/screen.lisp

@@ -18 +18 @@
 (defcfun "initscr" :pointer)
 
+(defcfun "start_color" :int)
+
+(defcfun "init_pair" :int
+  (pair :short)
+  (f :short)
+  (b :short))
+
 (defcfun "endwin" :int)
 
@@ -26 +33 @@
          (signal 'screen-initialization-error))
        (unwind-protect
+            (start-color)
+            (dotimes (i 63)
+              (let ((j (1+ i)))
+                (init-pair j (floor j 8) (mod j 8))))
             (let ((,screen (make-instance 'screen-window :ptr ,ptr)))
               ,@body)
@@ -68 +79 @@
     `(let ((,ptr (newwin ,height ,width ,y ,x)))
        (when (null-pointer-p ,ptr)
-         (signal screen-window-creation-error))
+         (signal 'screen-window-creation-error))
        (let ((,window (make-instance 'screen-window :ptr ,ptr)))
          (unwind-protect (progn ,@body)