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...