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

[Robert Strandh]

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

Modified Files:
	inspector.lisp 
Log Message:
Better layout for generic functions.

Date: Sat Jan 29 06:48:38 2005
Author: rstrandh

Index: mcclim/Apps/Inspector/inspector.lisp
diff -u mcclim/Apps/Inspector/inspector.lisp:1.1 mcclim/Apps/Inspector/inspector.lisp:1.2
--- mcclim/Apps/Inspector/inspector.lisp:1.1	Sat Jan 29 04:10:54 2005
+++ mcclim/Apps/Inspector/inspector.lisp	Sat Jan 29 06:48:38 2005
@@ -182,16 +182,19 @@
       (formatting-row (pane)
 	(formatting-cell (pane)
 	  (surrounding-output-with-border (pane)
-	    (print (generic-function-name object) pane))))
-      (loop for method in (generic-function-methods object)
-	    do (with-output-as-presentation
-		   (pane method (presentation-type-of method))
-		 (formatting-row (pane)
-		   (formatting-cell (pane)
-		     (print (method-qualifiers method)))
-		   (loop for specializer in (method-specializers method)
-			 do (formatting-cell (pane)
-			      (format pane "~s " (class-name specializer))))))))))
+	    (format pane "Generic Function: ~s" (generic-function-name object)))))
+      (formatting-row (pane)
+	(formatting-cell (pane)
+	  (formatting-table (pane)
+	    (loop for method in (generic-function-methods object)
+		  do (with-output-as-presentation
+			 (pane method (presentation-type-of method))
+		       (formatting-row (pane)
+			 (formatting-cell (pane)
+			   (print (method-qualifiers method)))
+			 (loop for specializer in (method-specializers method)
+			       do (formatting-cell (pane)
+				    (format pane "~s " (class-name specializer)))))))))))))
 
 (defun display-app (frame pane)
   (inspect-object (obj frame) pane))