[clfswm-cvs] [clfswm-git]CLFSWM - A(nother) Common Lisp FullScreen Window Manager branch test updated. R-1106-56-g0ff435c

[Philippe Brochard]

This is an automated email from the git hooks/post-receive script. It was
generated because a ref change was pushed to the repository containing
the project "CLFSWM - A(nother) Common Lisp FullScreen Window Manager".

The branch, test has been updated
       via  0ff435ca00f6ab1f2e434087dfa38048a1527808 (commit)
      from  6f96f0da9f45ee751c3fd7e4d4ad5c687d3eeb22 (commit)

Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we list those
revisions in full, below.

- Log -----------------------------------------------------------------
commit 0ff435ca00f6ab1f2e434087dfa38048a1527808
Author: Philippe Brochard <pbrochard at common-lisp.net>
Date:   Wed May 30 22:49:15 2012 +0200

    contrib/toolbar.lisp (clock): Add a clock module.

diff --git a/ChangeLog b/ChangeLog
index 5b90db3..1cf1374 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+2012-05-30  Philippe Brochard  <pbrochard at common-lisp.net>
+
+	* contrib/toolbar.lisp (clock): Add a clock module.
+
 2012-05-28  Philippe Brochard  <pbrochard at common-lisp.net>
 
 	* contrib/toolbar.lisp: begining of toolbar support.
diff --git a/contrib/toolbar.lisp b/contrib/toolbar.lisp
index a5a5b30..17205b3 100644
--- a/contrib/toolbar.lisp
+++ b/contrib/toolbar.lisp
@@ -154,7 +154,7 @@
                                                                  :width width
                                                                  :height height
                                                                  :background (get-color *toolbar-window-background*)
-                                                                 :border-width *border-size*
+                                                                 :border-width 0
                                                                  :border (get-color *toolbar-window-border*)
                                                                  :colormap (xlib:screen-default-colormap *screen*)
                                                                  :event-mask '(:exposure :key-press))
@@ -213,8 +213,11 @@
 
 (define-toolbar-module (clock)
   "The clock module"
-  (toolbar-draw-text toolbar (second module) (/ *toolbar-default-thickness* 2)
-                     "Clock"))
+  (multiple-value-bind (s m h)
+      (get-decoded-time)
+    (declare (ignore s))
+    (toolbar-draw-text toolbar (second module) (/ *toolbar-default-thickness* 2)
+                       (format nil "~A:~A" h m))))
 
 
 (define-toolbar-module (label)
diff --git a/src/clfswm.lisp b/src/clfswm.lisp
index c1bb567..51a44ed 100644
--- a/src/clfswm.lisp
+++ b/src/clfswm.lisp
@@ -134,6 +134,9 @@
   (awhen (find-frame-window window)
     (display-frame-info it)))
 
+(define-handler main-mode :resize-request (window)
+  (dbg :resize-request window))
+
 
 (defun error-handler (display error-key &rest key-vals &key asynchronous &allow-other-keys)
   "Handle X errors"
@@ -204,6 +207,7 @@
   (setf (xlib:window-event-mask *root*) (xlib:make-event-mask :substructure-redirect
 							      :substructure-notify
 							      :property-change
+                                                              :resize-redirect
 							      :exposure
 							      :button-press
 							      :button-release

-----------------------------------------------------------------------

Summary of changes:
 ChangeLog            |    4 ++++
 contrib/toolbar.lisp |    9 ++++++---
 src/clfswm.lisp      |    4 ++++
 3 files changed, 14 insertions(+), 3 deletions(-)


hooks/post-receive
-- 
CLFSWM - A(nother) Common Lisp FullScreen Window Manager