[noctool-cvs] CVS source

[jprewett]

Update of /project/noctool/cvsroot/source
In directory clnet:/tmp/cvs-serv27764

Modified Files:
	graph-monitors.lisp 
Log Message:
changed image:height to image::height as height is not external in the image package



--- /project/noctool/cvsroot/source/graph-monitors.lisp	2008/05/17 12:43:27	1.3
+++ /project/noctool/cvsroot/source/graph-monitors.lisp	2008/05/17 17:27:26	1.4
@@ -82,7 +82,7 @@
   (let ((lines (length (noctool::disk-list graph)))
 	(disks (sort (copy-list (noctool::disk-list graph)) #'> :key #'noctool::disk-max)))
     (let ((image (image:make-image 350 (+ 130 (* 10 lines)))))
-      (image:rect image 0 0 349 (1- (image:height image)) t 192 192 192)
+      (image:rect image 0 0 349 (1- (image::height image)) t 192 192 192)
       (multiple-value-bind (percentile max scale) (show (noctool::disk-graph (car disks)) image nil :color '(0 0 0 0.0) :base-x 25 :base-y 110 :height 100 :selector selector)
 	(draw-grid image max (interval graph) selector scale "b" 3 (noctool:last-updated graph))
 	(loop for disk in disks