Changeset main,64

Timestamp:

11/19/2007 09:43:17 PM (19 years ago)

Author:

David Owen <dsowen@…>

branch-nick:

tui

revision id:

dsowen@fugue88.ws-20071119214317-q7c11ecsg98fmrus

Message:

Added WITH-FORM.

File:

• main/form.lisp (modified) (2 diffs)

main/form.lisp

@@ -3 +3 @@
 (defpackage #:tui-form
   (:use #:cl #:dso-util #:tui-input #:tui-widget #:tui-window)
-  (:export #:form-value #:defform #:create-form #:destroy-form #:scroll
-           #:activate))
+  (:export #:form-value #:defform #:create-form #:destroy-form #:with-form
+           #:scroll #:activate))
 
 (in-package #:tui-form)
@@ -224 +224 @@
         (setf (aref peers i) nil)))))
 
+(defmacro with-form ((var name data-table window) &body body)
+  `(let ((,var (create-form ,name ,data-table ,window)))
+     (unwind-protect (progn ,@body)
+       (destroy-form ,var))))
+