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