[climacs-cvs] CVS update: climacs/TODO climacs/gui.lisp

[Robert Strandh]

Update of /project/climacs/cvsroot/climacs
In directory common-lisp.net:/tmp/cvs-serv21015

Modified Files:
	TODO gui.lisp 
Log Message:
Redisplay is now invoked when the frame is resized. 

Date: Sun Feb 20 06:11:45 2005
Author: rstrandh

Index: climacs/TODO
diff -u climacs/TODO:1.3 climacs/TODO:1.4
--- climacs/TODO:1.3	Thu Feb 10 01:27:07 2005
+++ climacs/TODO	Sun Feb 20 06:11:39 2005
@@ -8,5 +8,3 @@
 - handle wrapped lines instead of making McCLIM handle them
 
 - replace the use of the scroller pane by custom pane
-
-- invoke redisplay after resize


Index: climacs/gui.lisp
diff -u climacs/gui.lisp:1.112 climacs/gui.lisp:1.113
--- climacs/gui.lisp:1.112	Sat Feb 19 07:19:06 2005
+++ climacs/gui.lisp	Sun Feb 20 06:11:39 2005
@@ -147,6 +147,10 @@
   (declare (ignore frame))
   (redisplay-pane pane (eq pane (car (windows *application-frame*)))))
 
+(defmethod handle-repaint :before ((pane extended-pane) region)
+  (declare (ignore region))
+  (redisplay-frame-panes *application-frame*))
+
 (defun find-gestures (gestures start-table)
   (loop with table = (find-command-table start-table)
 	for (gesture . rest) on gestures