[clfswm-cvs] r436 - in clfswm: . contrib src

[Philippe Brochard]

Author: pbrochard
Date: Sat Mar 19 16:35:08 2011
New Revision: 436

Log:
Fix never-managed-windows in contrib/osd.lisp

Modified:
   clfswm/TODO
   clfswm/contrib/osd.lisp
   clfswm/src/clfswm-internal.lisp
   clfswm/src/version.lisp

Modified: clfswm/TODO
==============================================================================
--- clfswm/TODO	(original)
+++ clfswm/TODO	Sat Mar 19 16:35:08 2011
@@ -16,7 +16,7 @@
 MAYBE
 =====
 
-- cd/pwd a la shell to navigate through frames.
+- cd/pwd/find a la shell to navigate through frames.
 
 - Zoom:
     Concept:

Modified: clfswm/contrib/osd.lisp
==============================================================================
--- clfswm/contrib/osd.lisp	(original)
+++ clfswm/contrib/osd.lisp	Sat Mar 19 16:35:08 2011
@@ -75,7 +75,7 @@
   (let* ((modifiers (state->modifiers state))
 	 (keysym (keysym->keysym-name (xlib:keycode->keysym *display* code 0))))
     (when (frame-p *current-child*)
-      (push (list #'equal #'is-osd-window-p t) *never-managed-window-list*))
+      (push (list #'is-osd-window-p nil) *never-managed-window-list*))
     (raise-window *osd-window*)
     (rotatef (xlib:gcontext-foreground *osd-gc*) (xlib:gcontext-background *osd-gc*))
     (xlib:draw-rectangle *osd-window* *osd-gc*

Modified: clfswm/src/clfswm-internal.lisp
==============================================================================
--- clfswm/src/clfswm-internal.lisp	(original)
+++ clfswm/src/clfswm-internal.lisp	Sat Mar 19 16:35:08 2011
@@ -508,7 +508,8 @@
 (defun get-first-window ()
   (typecase *current-child*
     (xlib:window  *current-child*)
-    (frame (first (frame-child *current-child*)))))
+    (frame (or (first (frame-child *current-child*))
+               *current-child*))))
 
 
 

Modified: clfswm/src/version.lisp
==============================================================================
--- clfswm/src/version.lisp	(original)
+++ clfswm/src/version.lisp	Sat Mar 19 16:35:08 2011
@@ -33,4 +33,4 @@
 
 (in-package :version)
 
-(defparameter *version* #.(concatenate 'string "Version: 11.03   built " (date-string)))
+(defparameter *version* #.(concatenate 'string "Version: 1103   built " (date-string)))