[mcclim-cvs] CVS mcclim/Apps/Inspector

[pscott]

Update of /project/mcclim/cvsroot/mcclim/Apps/Inspector
In directory clnet:/tmp/cvs-serv25884

Modified Files:
	inspector.lisp 
Log Message:
* Cosmetic improvement to hash table display

* Added horrible hack to fix bug with display of generic functions. I 
have no idea why this is even necessary, and I find myself QUITE 
UNNERVED that I'm even writing it. It shouldn't break anything, though! 
Probably!


--- /project/mcclim/cvsroot/mcclim/Apps/Inspector/inspector.lisp	2007/02/08 05:12:33	1.34
+++ /project/mcclim/cvsroot/mcclim/Apps/Inspector/inspector.lisp	2007/02/08 05:47:46	1.35
@@ -447,7 +447,7 @@
     (show-hash-table-status object pane :message "Hash table")))
 (defmethod inspect-object ((object hash-table) pane)
   (inspector-table (object pane)
-      (progn (format pane "~A (test: ~A)" 'hash-table (hash-table-test object))
+      (progn (format pane "~A (test: ~A)  " 'hash-table (hash-table-test object))
 	     (show-hash-table-status object pane))
     (loop for key being the hash-keys of object
        do (formatting-row (pane)
@@ -879,4 +879,10 @@
 				   (fboundp object)
 				   (tracedp object))))
     (object)
-  (list object))
\ No newline at end of file
+  (list object))
+
+;; FIXME: This is a horrible hack to gloss over issues that I don't
+;; properly understand. See
+;; <http://common-lisp.net/pipermail/mcclim-devel/2005-February/003700.html>
+(defmethod clim:presentation-type-of ((object standard-generic-function))
+  'clim:expression)
\ No newline at end of file