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)