[noctool-cvs] CVS source

[jprewett]

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

Modified Files:
	classes.lisp 
Log Message:
added :AFTER method for INITIALIZE-INSTANCE for the load-monitor class to add graphs to the instance after it is initialized.



--- /project/noctool/cvsroot/source/classes.lisp	2008/06/12 06:02:17	1.5
+++ /project/noctool/cvsroot/source/classes.lisp	2008/06/12 13:24:40	1.6
@@ -45,6 +45,9 @@
    )
   (:default-initargs :low-water 1.0 :high-water 5.0))
 
+(defmethod initialize-instance :after ((instance load-monitor) &key)
+  (add-graphs instance))
+
 (defclass tcp-monitor (monitor)
   ((sent-data :reader sent-data :initarg :sent-data :initform nil)
    (match-data :reader match-data :initarg :match-data :initform nil)