[mcclim-cvs] CVS update: mcclim/Apps/Inspector/inspector.lisp

[Peter Scott]

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)