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

Modified Files: panes.lisp Log Message:

From the spec:

"Returns the viewport region of the CLIM stream pane window. If the window is not scrollable, and hence has no viewport, this will region [sic] `sheet-region' of window."

--- /project/mcclim/cvsroot/mcclim/panes.lisp 2006/12/23 11:42:43 1.176 +++ /project/mcclim/cvsroot/mcclim/panes.lisp 2007/01/07 19:53:05 1.177 @@ -27,7 +27,7 @@ ;;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, ;;; Boston, MA 02111-1307 USA.

-;;; $Id: panes.lisp,v 1.176 2006/12/23 11:42:43 ahefner Exp $ +;;; $Id: panes.lisp,v 1.177 2007/01/07 19:53:05 thenriksen Exp $

(in-package :clim-internals)

@@ -2543,7 +2543,8 @@ (stream-replay pane))

(defmethod window-viewport ((pane clim-stream-pane)) - (pane-viewport-region pane)) + (or (pane-viewport-region pane) + (sheet-region pane)))

(defmethod window-erase-viewport ((pane clim-stream-pane)) (with-bounding-rectangle* (x1 y1 x2 y2) (or (pane-viewport-region pane)