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"