Update of /project/mcclim/cvsroot/mcclim/Drei In directory clnet:/tmp/cvs-serv13626/Drei

Modified Files: drei-redisplay.lisp views.lisp Log Message: Moved defvar to remove warnings.

--- /project/mcclim/cvsroot/mcclim/Drei/drei-redisplay.lisp 2008/04/15 09:19:43 1.70 +++ /project/mcclim/cvsroot/mcclim/Drei/drei-redisplay.lisp 2008/05/03 07:47:17 1.71 @@ -745,11 +745,6 @@ (when (> old-height (- y2 y1)) (clear-rectangle* pane x1 y2 (+ x1 old-width) (+ y1 old-height)))))

-(defvar *maximum-chunk-size* 100 - "The maximum amount of objects put into a stroke by a -`drei-buffer-view'. Actual strokes may be smaller if a #\Newline -character is encountered.") - (defun object-drawer () "Return a closure capable of functioning as a stroke drawer. It expects its stroke to cover a single-object non-character buffer --- /project/mcclim/cvsroot/mcclim/Drei/views.lisp 2008/03/07 15:23:14 1.44 +++ /project/mcclim/cvsroot/mcclim/Drei/views.lisp 2008/05/03 07:47:17 1.45 @@ -719,6 +719,11 @@ "Return the length of the `buffer-line' object `line'." (- (end-offset line) (start-offset line)))

+(defvar *maximum-chunk-size* 100 + "The maximum amount of objects put into a single chunk by a +`drei-buffer-view'. Actual chunks may be smaller if a #\Newline +character is encountered.") + (defun get-chunk (buffer line-start-offset chunk-start-offset line-end-offset) "Return a chunk in the form of a cons cell. The chunk will start at `chunk-start-offset' and extend no further than