Update of /project/mcclim/cvsroot/mcclim/Backends/CLX In directory clnet:/tmp/cvs-serv22752/Backends/CLX
Modified Files: port.lisp Log Message: revert previous checkins, putting magic 100 and #x10000 values back in
--- /project/mcclim/cvsroot/mcclim/Backends/CLX/port.lisp 2006/11/05 15:35:26 1.124 +++ /project/mcclim/cvsroot/mcclim/Backends/CLX/port.lisp 2006/11/09 20:24:21 1.125 @@ -337,7 +337,7 @@ mirror-region)))
(defun realize-mirror-aux (port sheet - &key width height (x 0) (y 0) + &key (width 100) (height 100) (x 0) (y 0) (border-width 0) (border 0) (override-redirect :off) (map t) @@ -367,10 +367,12 @@ (pixel (xlib:alloc-color (xlib:screen-default-colormap (clx-port-screen port)) color)) (window (xlib:create-window :parent (sheet-mirror (sheet-parent sheet)) - :width (or width - (round-coordinate (bounding-rectangle-width (%sheet-mirror-region sheet)))) - :height (or height - (round-coordinate (bounding-rectangle-height (%sheet-mirror-region sheet)))) + :width (if (%sheet-mirror-region sheet) + (round-coordinate (bounding-rectangle-width (%sheet-mirror-region sheet))) + width) + :height (if (%sheet-mirror-region sheet) + (round-coordinate (bounding-rectangle-height (%sheet-mirror-region sheet))) + height) :x (if (%sheet-mirror-transformation sheet) (round-coordinate (nth-value 0 (transform-position (%sheet-mirror-transformation sheet)