[defwm-cvs] CVS update: Define-Window-Manager/src/events.lisp

[Rahul Jain]

Update of /project/defwm/cvsroot/Define-Window-Manager/src
In directory common-lisp.net:/tmp/cvs-serv2600/src

Modified Files:
	events.lisp 
Log Message:
add some accessors... more to come

Date: Thu Feb 26 16:00:38 2004
Author: rjain

Index: Define-Window-Manager/src/events.lisp
diff -u Define-Window-Manager/src/events.lisp:1.1.1.1 Define-Window-Manager/src/events.lisp:1.2
--- Define-Window-Manager/src/events.lisp:1.1.1.1	Thu Feb 26 14:29:52 2004
+++ Define-Window-Manager/src/events.lisp	Thu Feb 26 16:00:38 2004
@@ -32,11 +32,14 @@
    (border-width :initarg :border-width)))
 
 (defclass create-window-event (device-event window-configuration-mixin window-manager-event)
-  ((event-sheet :initarg :event-sheet)
-   (new-window :initarg :new-window)))
+  ((event-sheet :initarg :event-sheet
+                :reader event-sheet)
+   (new-window :initarg :new-window
+               :reader event-new-window)))
 
 (defclass destroy-window-event (device-event window-manager-event)
-  ((event-sheet :initarg :event-sheet)
+  ((event-sheet :initarg :event-sheet
+                :reader event-sheet)
    (sheet :initarg :sheet)))
 
 (defclass reparent-event (device-event window-manager-event)