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))