[mcclim-cvs] CVS update: mcclim/Apps/Inspector/inspector.lisp
Peter Scott
pscott at common-lisp.net
Thu Mar 10 23:00:59 UTC 2005
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)
, at 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)
More information about the Mcclim-cvs
mailing list