[mcclim-cvs] CVS mcclim/Drei

[thenriksen]

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