Update of /project/mcclim/cvsroot/mcclim In directory common-lisp.net:/tmp/cvs-serv25434
Modified Files: panes.lisp Log Message:
Fix to window-clear (close current text output before clearing output history, else hilarity ensues), provided by Alastair Bridgewater.
Date: Tue Feb 22 08:02:27 2005 Author: ahefner
Index: mcclim/panes.lisp diff -u mcclim/panes.lisp:1.150 mcclim/panes.lisp:1.151 --- mcclim/panes.lisp:1.150 Tue Feb 22 04:09:18 2005 +++ mcclim/panes.lisp Tue Feb 22 08:02:18 2005 @@ -27,7 +27,7 @@ ;;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, ;;; Boston, MA 02111-1307 USA.
-;;; $Id: panes.lisp,v 1.150 2005/02/22 03:09:18 ahefner Exp $ +;;; $Id: panes.lisp,v 1.151 2005/02/22 07:02:18 ahefner Exp $
(in-package :clim-internals)
@@ -2290,6 +2290,7 @@ :height h :min-height h :max-height +fill+)))
(defmethod window-clear ((pane clim-stream-pane)) + (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))