Changeset main,86

Timestamp:

02/15/2008 09:27:44 PM (18 years ago)

Author:

David Owen <dsowen@…>

branch-nick:

tui

revision id:

dsowen@fugue88.ws-20080215212744-nvsfm7il0t5cx7ki

Message:

Can now suspend ncurses to shell out to other programs.

Location:

main/window

Files:

• generic.lisp (modified) (1 diff)
• screen.lisp (modified) (2 diffs)

main/window/generic.lisp

@@ -18 +18 @@
    #:screen-window-destruction-error
    #:with-screen
+   #:without-screen
    #:with-screen-window))
 

main/window/screen.lisp

@@ -27 +27 @@
 (defcfun "endwin" :int)
 
+(defvar *screen*)
+
 (defmacro with-screen ((screen) &body body)
   (with-gensyms (ptr)
@@ -38 +40 @@
                 (let ((j (1+ i)))
                   (init-pair j (mod j 8) (floor j 8))))
-              (let ((,screen (make-instance 'screen-window :ptr ,ptr)))
+              (let* ((*screen* (make-instance 'screen-window :ptr ,ptr))
+                     (,screen *screen*))
                 ,@body))
          (endwin)))))
+
+(defmacro without-screen (&body body)
+  `(unwind-protect
+        (progn
+          (endwin)
+          (progn ,@body))
+     (refresh *screen*)))