[clfswm-cvs] r74 - in clfswm: . src

[pbrochard at common-lisp.net]

Author: pbrochard
Date: Fri Apr 11 18:09:46 2008
New Revision: 74

Modified:
   clfswm/ChangeLog
   clfswm/src/clfswm-internal.lisp
   clfswm/src/clfswm.lisp
Log:
Add key handling on no focus window and on frame windows.


Modified: clfswm/ChangeLog
==============================================================================
--- clfswm/ChangeLog	(original)
+++ clfswm/ChangeLog	Fri Apr 11 18:09:46 2008
@@ -1,3 +1,8 @@
+2008-04-12  Philippe Brochard  <pbrochard at common-lisp.net>
+
+	* src/clfswm.lisp (init-display): Add key handling on no focus
+	window and on frame windows.
+
 2008-04-11  Philippe Brochard  <pbrochard at common-lisp.net>
 
 	* src/clfswm.lisp (main): Keyboard handle strategie change: Grab

Modified: clfswm/src/clfswm-internal.lisp
==============================================================================
--- clfswm/src/clfswm-internal.lisp	(original)
+++ clfswm/src/clfswm-internal.lisp	Fri Apr 11 18:09:46 2008
@@ -210,7 +210,8 @@
 				     :colormap (xlib:screen-default-colormap *screen*)
 				     :border-width 1
 				     :border (get-color "Red")
-				     :event-mask '(:exposure :button-press :button-release :pointer-motion)))
+				     :event-mask '(:exposure :key-press :key-release
+						   :button-press :button-release :pointer-motion)))
 	 (gc (xlib:create-gcontext :drawable window
 				   :foreground (get-color "Green")
 				   :background (get-color "Black")

Modified: clfswm/src/clfswm.lisp
==============================================================================
--- clfswm/src/clfswm.lisp	(original)
+++ clfswm/src/clfswm.lisp	Fri Apr 11 18:09:46 2008
@@ -194,7 +194,9 @@
 (defun init-display ()
   (setf *screen* (first (xlib:display-roots *display*))
 	*root* (xlib:screen-root *screen*)
-	*no-focus-window* (xlib:create-window :parent *root* :x 0 :y 0 :width 1 :height 1)
+	*no-focus-window* (xlib:create-window :parent *root* :x 0 :y 0 :width 1 :height 1
+					      :event-mask '(:key-press :key-release
+							    :button-press :button-release :pointer-motion))
 	*root-gc* (xlib:create-gcontext :drawable *root*
 					:foreground (get-color *color-unselected*)
 					:background (get-color "Black")