[mcclim-cvs] CVS mcclim

[dlichteblau]

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

Modified Files:
	sheets.lisp 
Log Message:
revert previous checkins, putting magic 100 and #x10000 values back in


--- /project/mcclim/cvsroot/mcclim/sheets.lisp	2006/11/05 15:40:15	1.52
+++ /project/mcclim/cvsroot/mcclim/sheets.lisp	2006/11/09 20:24:20	1.53
@@ -671,16 +671,17 @@
     ;; the server, since it is not under our control.
     ((or (null (sheet-parent sheet))
          (null (sheet-parent (sheet-parent sheet))))
+     (make-rectangle* 0 0 #x10000 #x10000)
+     #+nil
      (make-rectangle* 0 0
                       (port-mirror-width (port sheet) sheet)
                       (port-mirror-height (port sheet) sheet)))
     (t
      ;; For other sheets just use the calculated value, saves a round trip.
      (or (%sheet-mirror-region sheet)
-	 ;; ... unless we don't have it yet.
-	 (make-rectangle* 0 0
-			  (port-mirror-width (port sheet) sheet)
-			  (port-mirror-height (port sheet) sheet)) ))))
+         ;; XXX what to do if the sheet has no idea about its region?
+         ;; XXX can we consider calling sheet-mirror-region then an error?
+         (make-rectangle* 0 0 #x10000 #x10000) ))))
 
 (defmethod sheet-native-transformation ((sheet mirrored-sheet-mixin))
   ;; XXX hm...