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

26 Feb 2004

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)

    