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