Changeset main,53 for main/grid/test.lisp

Timestamp:

11/15/2007 09:11:06 PM (19 years ago)

Author:

David Owen <dsowen@…>

branch-nick:

tui

revision id:

dsowen@fugue88.ws-20071115211106-ix3zpfhce07h8wg8

Message:

Updated grid.

File:

• main/grid/test.lisp (modified) (5 diffs)

main/grid/test.lisp

@@ -1 +1 @@
 (defpackage #:grid-test
-  (:use #:cl #:cdk #:grid #:input)
+  (:use #:cl #:cdk #:grid #:tui-input #:tui-output #:tui-window)
   (:export))
 
@@ -30 +30 @@
 
 (defun clear (screen)
-  (cdk::c-erase-window screen)
-  (cdk::c-refresh-window screen))
+  (erase screen)
+  (refresh screen))
 
 (defun test-draw ()
@@ -38 +38 @@
     (with-screen (screen)
       (clear screen)
-      (with-der-window (window screen 5 16 0 0)
+      (with-subwindow (window screen 5 16 0 0)
         (let ((grid (make-grid window data widths :header-columns 1 :header-rows 1)))
           (flet ((try (i)
                    (setf (row-scroll grid) i)
                    (draw grid)
-                   (input:%wget-wch window)))
+                   (read-key window)))
             (try 0)
             (try 2)
@@ -51 +51 @@
                    (setf (column-scroll grid) i)
                    (draw grid)
-                   (input:%wget-wch window)))
+                   (read-key window)))
             (try 3)
             (try 99))))
@@ -57 +57 @@
       (let ((grid (make-grid screen data widths :header-columns 1 :header-rows 1)))
         (draw grid)
-        (input:%wget-wch screen)))))
+        (read-key screen)))))