[mcclim-cvs] CVS mcclim

[thenriksen]

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)