From rjain at common-lisp.net Thu Feb 26 19:29:52 2004 From: rjain at common-lisp.net (Rahul Jain) Date: Thu, 26 Feb 2004 14:29:52 -0500 Subject: [defwm-cvs] CVS update: Module imported: Define-Window-Manager Message-ID: Update of /project/defwm/cvsroot/Define-Window-Manager In directory common-lisp.net:/tmp/cvs-serv21536 Log Message: Initial import Status: Vendor Tag: rjain Release Tags: start N Define-Window-Manager/src/application.lisp N Define-Window-Manager/src/borders.lisp N Define-Window-Manager/src/events.lisp N Define-Window-Manager/src/package.lisp N Define-Window-Manager/src/COPYRIGHT N Define-Window-Manager/website/Makefile N Define-Window-Manager/website/website.lisp N Define-Window-Manager/website/public_html/index.html No conflicts created by this import Date: Thu Feb 26 14:29:52 2004 Author: rjain New module Define-Window-Manager added From rjain at common-lisp.net Thu Feb 26 21:00:39 2004 From: rjain at common-lisp.net (Rahul Jain) Date: Thu, 26 Feb 2004 16:00:39 -0500 Subject: [defwm-cvs] CVS update: Define-Window-Manager/src/events.lisp Message-ID: 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) From rjain at common-lisp.net Thu Feb 26 21:00:53 2004 From: rjain at common-lisp.net (Rahul Jain) Date: Thu, 26 Feb 2004 16:00:53 -0500 Subject: [defwm-cvs] CVS update: Define-Window-Manager/src/define-window-manager.asd Message-ID: Update of /project/defwm/cvsroot/Define-Window-Manager/src In directory common-lisp.net:/tmp/cvs-serv8992/src Added Files: define-window-manager.asd Log Message: add system definition Date: Thu Feb 26 16:00:53 2004 Author: rjain From rjain at common-lisp.net Thu Feb 26 21:01:13 2004 From: rjain at common-lisp.net (Rahul Jain) Date: Thu, 26 Feb 2004 16:01:13 -0500 Subject: [defwm-cvs] CVS update: Define-Window-Manager/website/website.lisp Message-ID: Update of /project/defwm/cvsroot/Define-Window-Manager/website In directory common-lisp.net:/tmp/cvs-serv12312/website Modified Files: website.lisp Log Message: add some info about define-window-manager Date: Thu Feb 26 16:01:13 2004 Author: rjain Index: Define-Window-Manager/website/website.lisp diff -u Define-Window-Manager/website/website.lisp:1.1.1.1 Define-Window-Manager/website/website.lisp:1.2 --- Define-Window-Manager/website/website.lisp:1.1.1.1 Thu Feb 26 14:29:52 2004 +++ Define-Window-Manager/website/website.lisp Thu Feb 26 16:01:13 2004 @@ -26,7 +26,9 @@ (code () (paragraph () "The code is in a rather infantile state, but what there is is " - (link (url (gen-src-link "/")) "publically available")". ") + (link (url (gen-src-link "/")) "publically available")". " + (Define-Window-Manager) " hooks into McCLIM's CLX backend and " + "intercepts window-management-related events.") (section (title "Plans") (paragraph ()))) (communication () From rjain at common-lisp.net Thu Feb 26 21:02:45 2004 From: rjain at common-lisp.net (Rahul Jain) Date: Thu, 26 Feb 2004 16:02:45 -0500 Subject: [defwm-cvs] CVS update: Define-Window-Manager/website/website.lisp Message-ID: Update of /project/defwm/cvsroot/Define-Window-Manager/website In directory common-lisp.net:/tmp/cvs-serv20193 Modified Files: website.lisp Log Message: change short-description to be appropriate to this project :P Date: Thu Feb 26 16:02:45 2004 Author: rjain Index: Define-Window-Manager/website/website.lisp diff -u Define-Window-Manager/website/website.lisp:1.2 Define-Window-Manager/website/website.lisp:1.3 --- Define-Window-Manager/website/website.lisp:1.2 Thu Feb 26 16:01:13 2004 +++ Define-Window-Manager/website/website.lisp Thu Feb 26 16:02:45 2004 @@ -18,7 +18,7 @@ (concatenate 'string "/mailman/listinfo/defwm-" target)) (defdoc index (project-website name (doc Define-Window-Manager) - short-description "An extensible, dynamic strcutured document editor" + short-description "An extensible, object-oriented, command-oriented X11 window manager" author "Rahul Jain") (documentation () (paragraph ()