[clfswm-cvs] r350 - clfswm/src

[Philippe Brochard]

Author: pbrochard
Date: Sat Oct  9 02:45:48 2010
New Revision: 350

Log:
clfswm.lisp: move display-hello-window in the *init-hook* list

Modified:
   clfswm/src/clfswm-util.lisp
   clfswm/src/clfswm.lisp
   clfswm/src/config.lisp

Modified: clfswm/src/clfswm-util.lisp
==============================================================================
--- clfswm/src/clfswm-util.lisp	(original)
+++ clfswm/src/clfswm-util.lisp	Sat Oct  9 02:45:48 2010
@@ -1500,7 +1500,6 @@
 
 
   (defun display-hello-window ()
-    (sleep 5)
     (open-hello-window)
     (with-timer (10)
       (close-hello-window))))

Modified: clfswm/src/clfswm.lisp
==============================================================================
--- clfswm/src/clfswm.lisp	(original)
+++ clfswm/src/clfswm.lisp	Sat Oct  9 02:45:48 2010
@@ -207,9 +207,7 @@
   (process-existing-windows *screen*)
   (show-all-children *current-root*)
   (grab-main-keys)
-  (xlib:display-finish-output *display*)
-  (when *have-to-display-hello-window*
-    (display-hello-window)))
+  (xlib:display-finish-output *display*))
 
 
 

Modified: clfswm/src/config.lisp
==============================================================================
--- clfswm/src/config.lisp	(original)
+++ clfswm/src/config.lisp	Sat Oct  9 02:45:48 2010
@@ -37,10 +37,6 @@
 (setf *have-to-compress-notify* t)
 
 
-(defparameter *have-to-display-hello-window* t
-  "Config(): Display the hello window at startup")
-
-
 ;;; CONFIG - Default modifiers
 (defparameter *default-modifiers* '()
   "Config(): Default modifiers list to append to explicit modifiers
@@ -150,7 +146,7 @@
 ;;;
 ;;; See clfswm.lisp for hooks examples.
 
-(defparameter *init-hook* 'default-init-hook
+(defparameter *init-hook* '(default-init-hook display-hello-window)
   "Config(Hook group): Init hook. This hook is run just after the first root frame is created")
 
 (defparameter *default-nw-hook* 'default-frame-nw-hook