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