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

[Philippe Brochard]

Author: pbrochard
Date: Sat Mar  5 18:38:07 2011
New Revision: 420

Log:
src/xlib-util.lisp (move-window,resize-window): Add a *color-move-window* border when moving or resizing a window.

Modified:
   clfswm/ChangeLog
   clfswm/TODO
   clfswm/src/clfswm-util.lisp
   clfswm/src/package.lisp
   clfswm/src/xlib-util.lisp

Modified: clfswm/ChangeLog
==============================================================================
--- clfswm/ChangeLog	(original)
+++ clfswm/ChangeLog	Sat Mar  5 18:38:07 2011
@@ -1,3 +1,8 @@
+2011-03-06  Philippe Brochard  <pbrochard at common-lisp.net>
+
+	* src/xlib-util.lisp (move-window,resize-window): Add a
+	*color-move-window* border when moving or resizing a window.
+
 2011-03-04  Philippe Brochard  <pbrochard at common-lisp.net>
 
 	* src/clfswm-internal.lisp (show-all-children): Perform only one

Modified: clfswm/TODO
==============================================================================
--- clfswm/TODO	(original)
+++ clfswm/TODO	Sat Mar  5 18:38:07 2011
@@ -13,20 +13,17 @@
 
 - Make frame/window border size variable.
 
-- Make a green border for the window to move and remove the
-  focus-all-children/show-all-children.
-
 - In show-all-children: add the ability to display all child from
   *root-frame* and hide all those who are not in *current-root*.
   -> remove hide-all-children when needed.
 
-- in show-all-children: simplify the selected -> remove the parent one.
+- in show-all-children: simplify the selected method -> remove the parent one.
 
-- estimate the time to raise/lower a child in show-all-children and
+- Estimate the time to raise/lower a child in show-all-children and
   see if there is a need for a rectangular optimization
 
 - Change the config system with a more lispy one and a less string
-  base one: (defconfig name group doc)
+  base one: (defconfig name value group doc)
 
 
 MAYBE

Modified: clfswm/src/clfswm-util.lisp
==============================================================================
--- clfswm/src/clfswm-util.lisp	(original)
+++ clfswm/src/clfswm-util.lisp	Sat Mar  5 18:38:07 2011
@@ -582,15 +582,14 @@
 		(unless (equal (type-of child) 'frame)
 		  (setf child (find-frame-window child *current-root*)))
 		(setf parent (find-parent-frame child)))))
+	(when (equal (type-of child) 'frame)
+	  (funcall mouse-fn child parent root-x root-y))
 	(when (and child parent
 		   (focus-all-children child parent
 				       (not (and (child-equal-p *current-child* *current-root*)
 						 (xlib:window-p *current-root*)))))
 	  (when (show-all-children)
-	    (setf to-replay nil)))
-	(when (equal (type-of child) 'frame)
-	  (funcall mouse-fn child parent root-x root-y))
-	(show-all-children))
+	    (setf to-replay nil))))
       (if to-replay
 	  (replay-button-event)
 	  (stop-button-event)))))

Modified: clfswm/src/package.lisp
==============================================================================
--- clfswm/src/package.lisp	(original)
+++ clfswm/src/package.lisp	Sat Mar  5 18:38:07 2011
@@ -71,6 +71,8 @@
 (defparameter *default-font-string* "fixed"
   "Config(): The default font used in clfswm")
 
+(defparameter *color-move-window* "Green"
+  "Config(Main mode group): Color when moving or resizing a windows")
 
 (defparameter *child-selection* nil)
 

Modified: clfswm/src/xlib-util.lisp
==============================================================================
--- clfswm/src/xlib-util.lisp	(original)
+++ clfswm/src/xlib-util.lisp	Sat Mar  5 18:38:07 2011
@@ -538,7 +538,8 @@
 	  add-fn additional-fn
 	  add-arg additional-arg
 	  dx (- (xlib:drawable-x window) orig-x)
-	  dy (- (xlib:drawable-y window) orig-y))
+	  dy (- (xlib:drawable-y window) orig-y)
+	  (xlib:window-border window) (get-color *color-move-window*))
     (raise-window window)
     (let ((pointer-grabbed-p (xgrab-pointer-p)))
       (unless pointer-grabbed-p
@@ -579,7 +580,8 @@
 	    min-width (or (and hints (xlib:wm-size-hints-min-width hints)) 0)
 	    min-height (or (and hints (xlib:wm-size-hints-min-height hints)) 0)
 	    max-width (or (and hints (xlib:wm-size-hints-max-width hints)) most-positive-fixnum)
-	    max-height (or (and hints (xlib:wm-size-hints-max-height hints)) most-positive-fixnum))
+	    max-height (or (and hints (xlib:wm-size-hints-max-height hints)) most-positive-fixnum)
+	    (xlib:window-border window) (get-color *color-move-window*))
       (raise-window window)
       (unless pointer-grabbed-p
 	(xgrab-pointer *root* nil nil))