Changeset main,28 for main/display-string.lisp

Timestamp:

11/04/2007 06:19:33 AM (19 years ago)

Author:

David Owen <dsowen@…>

branch-nick:

tui-new

revision id:

dsowen@fugue88.ws-20071104061933-b5oiof728551luy5

Message:

Major overhaul to get rid of CDK stuff, and modularize all the ncurses stuff.
Using CLOS for genericity.

File:

• main/display-string.lisp (modified) (2 diffs)

main/display-string.lisp

@@ -1 @@
-(defpackage #:display-string
-  (:use #:cl #:cdk #:cl-ppcre #:dso-lex)
+(defpackage #:tui-display-string
+  (:use #:cl #:cl-ppcre #:dso-lex #:tui-cursor #:tui-output #:tui-window)
   (:export #:enquote #:dequote #:render))
 
-(in-package #:display-string)
+(in-package #:tui-display-string)
 
 
@@ -77 +77 @@
                   (attr (getf +attributes+ (char-downcase image))))
               (if on
-                  (cdk::c-wattron window attr)
-                  (cdk::c-wattroff window attr))))))))
+                  (cdk::c-wattron (window-pointer window) attr)
+                  (cdk::c-wattroff (window-pointer window) attr))))))))
 
 (defun test ()
   (let ((m "`UNow `B`Ris `bthe`r ``time.'`u"))
     (with-screen (s)
-      (cdk::c-erase-window s)
-      (cdk::c-refresh-window s)
-      (with-der-window (w s 3 10 5 5)
-        (wmove w 0 0)
+      (erase s)
+      (refresh s)
+      (with-subwindow (w s 3 10 5 5)
+        (setf (cursor-position w) '(0 0))
         (add-string w (make-sequence 'string 15 :initial-element #\.))
         (render m w 1 -2)
-        (input:%wget-wch w)))))
+        (tui-input:read-key w)))))