[noctool-cvs] CVS source

[imattsson]

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

Modified Files:
	classes.lisp packages.lisp 
Log Message:
IM

Added a stub "view" class (it currently has barely enough slots to be
usable and is lacking in methods). The config loader was complaining
about it missing, for some reason (never done so before). I think
a recent upgrade of SBCL made FIND-CLASS more twitchy.


--- /project/noctool/cvsroot/source/classes.lisp	2008/06/02 19:12:08	1.3
+++ /project/noctool/cvsroot/source/classes.lisp	2008/06/05 05:50:31	1.4
@@ -192,3 +192,10 @@
 (defmethod remote-passwd ((peer null))
   (octetify "a"))
 
+(defclass view ()
+  ((width :accessor width :initarg :width)
+   (height :accessor height :initarg :height)
+   (name :accessor name :initarg :name)
+   (display-objects :accessor display-objects :initarg :display-objects)
+   )
+  (:default-initargs :display-objects nil))
--- /project/noctool/cvsroot/source/packages.lisp	2008/05/29 07:21:12	1.4
+++ /project/noctool/cvsroot/source/packages.lisp	2008/06/05 05:50:31	1.5
@@ -24,7 +24,7 @@
   (:nicknames #:noctool-config)
   (:use #:net.hexapodia.noctool #:cl)
   (:shadow #:load)
-  (:export #:cluster #:ping #:load #:machine #:user #:ip #:ssh-port #:disk #:disks #:disk-ignore))
+  (:export #:cluster #:ping #:load #:machine #:user #:ip #:ssh-port #:disk #:disks #:disk-ignore #:local-password #:peer))
 
 (defpackage #:net.hexapodia.noctool-network
   (:use #:net.hexapodia.noctool #:cl #:usocket)