[climacs-cvs] CVS climacs

[thenriksen]

Update of /project/climacs/cvsroot/climacs
In directory clnet:/tmp/cvs-serv13041

Modified Files:
	pane.lisp 
Log Message:
Fixed updating-output bug and added simplistic handling of long lines
(a band-aid, really).


--- /project/climacs/cvsroot/climacs/pane.lisp	2006/08/20 13:06:38	1.49
+++ /project/climacs/cvsroot/climacs/pane.lisp	2006/08/31 18:40:48	1.50
@@ -368,7 +368,7 @@
 		 (updating-output (pane :unique-id (incf id)
                                         :id-test #'=
 					:cache-value contents
-					:cache-test #'string=)
+					:cache-test #'equal)
 		   (present-contents contents pane)))
 	       (setf saved-index nil))))
       (with-slots (bot scan cursor-x cursor-y) pane
@@ -561,11 +561,8 @@
 (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))))
+  (setf (window-viewport-position pane) (values 0 0))
+  (change-space-requirements pane :min-width (bounding-rectangle-width (stream-current-output-record pane))))
 
 
 (defmethod redisplay-pane-with-syntax ((pane climacs-pane) (syntax basic-syntax) current-p)
@@ -582,9 +579,9 @@
 	     (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))
+  (redisplay-pane-with-syntax pane (syntax (buffer pane)) current-p)
+  (fix-pane-viewport pane))
 
 
 (defgeneric full-redisplay (pane))