Update of /project/mcclim/cvsroot/mcclim In directory cl-net:/tmp/cvs-serv15258

Modified Files: panes.lisp Log Message: (ALLOCATE-SPACE SCROLLER-PANE T T) Missed one *SCROLLBAR-THICKNESS*

SCROLL-AREA Removed this ticking bomb.

--- /project/mcclim/cvsroot/mcclim/panes.lisp 2009/08/01 21:27:13 1.196 +++ /project/mcclim/cvsroot/mcclim/panes.lisp 2009/08/01 22:11:06 1.197 @@ -27,7 +27,7 @@ ;;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, ;;; Boston, MA 02111-1307 USA.

-;;; $Id: panes.lisp,v 1.196 2009/08/01 21:27:13 gbaumann Exp $ +;;; $Id: panes.lisp,v 1.197 2009/08/01 22:11:06 gbaumann Exp $

(in-package :clim-internals)

@@ -2060,7 +2060,7 @@ (ecase vertical-scroll-bar-position (:left vsbar-width) (:right 0)) - (- height *scrollbar-thickness*)) + (- height hsbar-height)) (allocate-space hscrollbar (- width vsbar-width) hsbar-height)) @@ -2646,19 +2646,6 @@ (scroll-extent pane x y) (values x y))

-;; this function appears to be unused, however... -;; v-- does this handle scrolling with occlusion? ie, if another thing is overlapping -;; the area being scrolled, will we copy junk off the top? -- BTS -(defun scroll-area (pane dx dy) - (let ((transform (sheet-transformation pane))) - ;; Region has been "scrolled" already. - (with-bounding-rectangle* (x1 y1 x2 y2) (sheet-region pane) - (multiple-value-bind (srcx srcy) - (untransform-position transform 0 0) - (multiple-value-bind (destx desty) - (untransform-position transform dx dy) - (copy-area pane srcx srcy (- x2 x1) (- y2 y1) destx desty)))))) - (defmethod stream-set-input-focus ((stream clim-stream-pane)) (with-slots (port) stream (prog1 (port-keyboard-input-focus port)