Update of /project/mcclim/cvsroot/mcclim/Apps/Inspector In directory common-lisp.net:/tmp/cvs-serv10943

Modified Files: inspector.lisp Log Message: Made minor changes to a few docstrings and removed a "FIXMEFIXME" comment that got left in by mistake.

Date: Fri Mar 11 00:00:54 2005 Author: pscott

Index: mcclim/Apps/Inspector/inspector.lisp diff -u mcclim/Apps/Inspector/inspector.lisp:1.27 mcclim/Apps/Inspector/inspector.lisp:1.28 --- mcclim/Apps/Inspector/inspector.lisp:1.27 Wed Mar 9 22:05:03 2005 +++ mcclim/Apps/Inspector/inspector.lisp Fri Mar 11 00:00:52 2005 @@ -136,11 +136,11 @@ could be boldface, or a different style, or even another font." `(with-text-face (,stream :bold) ,@body)) -;; FIXMEFIXME!!!!! + (defmacro inspector-table ((object pane) header &body body) - "Present OBJECT in tabular form on PANE, with -HEADER printed in a box at the top. BODY should output the rows of the -table using INSPECTOR-TABLE-ROW." + "Present OBJECT in tabular form on PANE, with HEADER evaluated to +print a label in a box at the top. BODY should output the rows of the +table, possibly using INSPECTOR-TABLE-ROW." (let ((evaluated-pane (gensym "pane")) (evaluated-object (gensym "object"))) `(let ((,evaluated-pane ,pane) @@ -160,8 +160,8 @@ (print-documentation ,evaluated-object ,evaluated-pane)))))

(defmacro inspector-table-row ((pane) left right) - "Output a table row with two items, LEFT and RIGHT, on PANE. This -should be used only within INSPECTOR-TABLE." + "Output a table row with two items, produced by evaluating LEFT and +RIGHT, on PANE. This should be used only within INSPECTOR-TABLE." (let ((evaluated-pane (gensym "pane"))) `(let ((,evaluated-pane ,pane)) (formatting-row (,evaluated-pane)