[mcclim-cvs] CVS update: mcclim/presentations.lisp

[Timothy Moore]

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

Modified Files:
	presentations.lisp 
Log Message:
Change ROUND-COORDINATES back to the definition that rounds up at half pixel boundaries. When I made the previous change I didn't realize that X coordinates are at pixel centers.
Date: Fri Jan 14 13:43:23 2005
Author: tmoore

Index: mcclim/presentations.lisp
diff -u mcclim/presentations.lisp:1.69 mcclim/presentations.lisp:1.70
--- mcclim/presentations.lisp:1.69	Tue Jan 11 14:02:19 2005
+++ mcclim/presentations.lisp	Fri Jan 14 13:43:23 2005
@@ -45,6 +45,16 @@
     (presentation-mixin standard-sequence-output-record)
   ())
 
+(defvar *print-presentation-verbose* nil)
+
+(defmethod print-object ((self standard-presentation) stream)
+  (print-unreadable-object (self stream :type t :identity t)
+    (with-bounding-rectangle* (x1 y1 x2 y2)
+	self
+      (format stream "~D:~D,~D:~D ~S" x1 x2 y1 y2 (presentation-type self))
+      (when *print-presentation-verbose*
+	(format stream " ~S" (presentation-object self))))))
+
 (defgeneric ptype-specializer (type)
   (:documentation "The specializer to use for this type in a presentation
 method lambda list"))
@@ -1757,7 +1767,7 @@
 					    (frame *application-frame*)
 					    event modifier-state button)
   (find-innermost-presentation-match input-context
-				     (stream-output-history window)
+				     top-record
 				     frame
 				     window
 				     x y
@@ -1789,6 +1799,8 @@
 					  x y)
 	  (when ptype
 	    (funcall (cdr context) object ptype event options)))))))
+
+(defvar *input-context*)
 
 (defun throw-object-ptype (object type
 			   &key (input-context *input-context*) sheet)