[climacs-cvs] CVS update: climacs/pane.lisp

[Dwight Holman]

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

Modified Files:
	pane.lisp 
Log Message:
Added method to fix problems with the viewport after resizing,
and added it to the redisplay function.
Ideally, it should only be called on resizes leading to the
problem, so I'll keep looking for better solutions.

Date: Mon Dec  5 10:55:18 2005
Author: dholman

Index: climacs/pane.lisp
diff -u climacs/pane.lisp:1.33 climacs/pane.lisp:1.34
--- climacs/pane.lisp:1.33	Tue Sep 13 21:23:59 2005
+++ climacs/pane.lisp	Mon Dec  5 10:55:18 2005
@@ -527,6 +527,16 @@
 	 (setf cursor-x x
 	       cursor-y y)))))  
 
+(defgeneric fix-pane-viewport (pane))
+
+(defmethod fix-pane-viewport ((pane climacs-pane))
+  (let* ((v (window-viewport pane))
+	(x (rectangle-width v))
+	(y (rectangle-height v)))
+    (resize-sheet pane x y)
+    (setf (window-viewport-position pane) (values 0 0))))
+
+
 (defmethod redisplay-pane-with-syntax ((pane climacs-pane) (syntax basic-syntax) current-p)
   (display-cache pane)
   (when (mark-visible-p pane) (display-mark pane syntax))
@@ -541,8 +551,10 @@
 	     (setf (full-redisplay-p pane) nil))
       (adjust-cache pane))
   (fill-cache pane)
+  (fix-pane-viewport pane)
   (update-syntax-for-display (buffer pane) (syntax (buffer pane)) (top pane) (bot pane))
   (redisplay-pane-with-syntax pane (syntax (buffer pane)) current-p))
+
 
 (defgeneric full-redisplay (pane))