[mcclim-cvs] CVS mcclim

[ahefner]

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

Modified Files:
	panes.lisp sheets.lisp 
Log Message:
Small hacks that appear to make output to unadopted sheets work.



--- /project/mcclim/cvsroot/mcclim/panes.lisp	2007/03/04 15:08:00	1.181
+++ /project/mcclim/cvsroot/mcclim/panes.lisp	2007/03/20 01:43:55	1.182
@@ -27,7 +27,7 @@
 ;;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
 ;;; Boston, MA  02111-1307  USA.
 
-;;; $Id: panes.lisp,v 1.181 2007/03/04 15:08:00 thenriksen Exp $
+;;; $Id: panes.lisp,v 1.182 2007/03/20 01:43:55 ahefner Exp $
 
 (in-package :clim-internals)
 
@@ -2548,7 +2548,8 @@
   (stream-close-text-output-record pane)
   (let ((output-history (stream-output-history pane)))
     (with-bounding-rectangle* (left top right bottom) output-history
-      (medium-clear-area (sheet-medium pane) left top right bottom))
+      (when (sheet-viewable-p pane)
+	(medium-clear-area (sheet-medium pane) left top right bottom)))
     (clear-output-record output-history))
   (window-erase-viewport pane)
   (let ((cursor (stream-text-cursor pane)))
--- /project/mcclim/cvsroot/mcclim/sheets.lisp	2006/11/09 20:24:20	1.53
+++ /project/mcclim/cvsroot/mcclim/sheets.lisp	2007/03/20 01:43:55	1.54
@@ -84,7 +84,8 @@
 	   :initform (make-bounding-rectangle 0 0 100 100)
 	   :accessor sheet-region)
    (native-transformation :type (or null transformation)
-			  :initform nil
+			  ;:initform nil
+			  :initform +identity-transformation+
                           :writer %%set-sheet-native-transformation
                           :reader %%sheet-native-transformation)
    (native-region :type (or null region)
@@ -95,7 +96,7 @@
 		  :initform nil)
    (pointer-cursor :accessor sheet-pointer-cursor
                    :initarg  :pointer-cursor
-                   :initform :default)                   
+                   :initform :default)
    (enabled-p :type boolean
 	      :initarg :enabled-p
               :initform t