[mcclim-cvs] CVS mcclim/Drei

[rstrandh]

Update of /project/mcclim/cvsroot/mcclim/Drei
In directory clnet:/tmp/cvs-serv28149

Modified Files:
	views.lisp 
Log Message:
Facilitate debugging by printing subscriptable views with the name
and the subscript.


--- /project/mcclim/cvsroot/mcclim/Drei/views.lisp	2007/12/13 07:30:53	1.4
+++ /project/mcclim/cvsroot/mcclim/Drei/views.lisp	2007/12/15 07:23:54	1.5
@@ -441,6 +441,10 @@
 for Drei.")
   (:default-initargs :name "*scratch*"))
 
+(defmethod print-object ((view drei-view) stream)
+  (print-unreadable-object (view stream :type t :identity t)
+    (format stream "name: ~a ~a" (name view) (subscript view))))
+
 (defgeneric synchronize-view (view &key &allow-other-keys)
   (:documentation "Synchronize the view with the object under
 observation - what exactly this entails, and what keyword