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

[Vincent Arkesteijn]

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

Modified Files:
	inspector.lisp 
Log Message:
Added an inspect-object method for characters.

Date: Sat Feb  5 15:40:56 2005
Author: varkesteijn

Index: mcclim/Apps/Inspector/inspector.lisp
diff -u mcclim/Apps/Inspector/inspector.lisp:1.13 mcclim/Apps/Inspector/inspector.lisp:1.14
--- mcclim/Apps/Inspector/inspector.lisp:1.13	Fri Feb  4 23:37:21 2005
+++ mcclim/Apps/Inspector/inspector.lisp	Sat Feb  5 15:40:55 2005
@@ -446,6 +446,18 @@
   (with-output-as-presentation
       (pane object (presentation-type-of object))
     (print object pane)))
+(defmethod inspect-object ((object character) pane)
+  (inspector-table
+    (format pane "Character ~S" object)
+    (inspector-table-row
+       (princ "code:" pane)
+       (inspect-object (char-code object) pane))
+    (inspector-table-row
+       (princ "int:" pane)
+       (inspect-object (char-int object) pane))
+    (inspector-table-row
+       (princ "name:" pane)
+       (inspect-object (char-name object) pane))))
 
 (defun display-app (frame pane)
   "Display the APP frame of the inspector"