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

[pbrochard at common-lisp.net]

Author: pbrochard
Date: Sat May  3 17:54:33 2008
New Revision: 115

Modified:
   clfswm/ChangeLog
   clfswm/src/clfswm-internal.lisp
Log:
set-current-child, adapt-child-to-parent, show-child, hide-child): Handle the case where child is not a frame or a window.

Modified: clfswm/ChangeLog
==============================================================================
--- clfswm/ChangeLog	(original)
+++ clfswm/ChangeLog	Sat May  3 17:54:33 2008
@@ -1,5 +1,9 @@
 2008-05-03  Philippe Brochard  <pbrochard at common-lisp.net>
 
+	* src/clfswm-internal.lisp (set-current-child)
+	(adapt-child-to-parent, show-child, hide-child): Handle the case
+	where child is not a frame or a window.
+
 	* src/clfswm-util.lisp
 	(mouse-click-to-focus-generic,mouse-focus-move/resize-generic):
 	Check if child is a frame.

Modified: clfswm/src/clfswm-internal.lisp
==============================================================================
--- clfswm/src/clfswm-internal.lisp	(original)
+++ clfswm/src/clfswm-internal.lisp	Sat May  3 17:54:33 2008
@@ -421,7 +421,10 @@
 		(xlib:drawable-width window) rw
 		(xlib:drawable-height window) rh)
 	  (values raise-p change))))))
-   
+
+(defmethod adapt-child-to-parent (child parent)
+  (declare (ignore child parent))
+  ())
 
 
 
@@ -454,6 +457,9 @@
 	  (raise-if-needed window raise-p first-p))
 	(hide-window window))))
 
+(defmethod show-child (child parent display-p raise-p first-p)
+  (declare (ignore child parent display-p raise-p first-p))
+  ())
 
 
 (defgeneric hide-child (child))
@@ -466,7 +472,9 @@
 (defmethod hide-child ((window xlib:window))
   (hide-window window))
 
-
+(defmethod hide-child (child)
+  (declare (ignore child))
+  ())
 
 
 
@@ -488,6 +496,10 @@
 			   ((equal selected nil) *color-unselected*)
 			   (selected *color-selected*))))))
 
+(defmethod select-child (child selected)
+  (declare (ignore child selected))
+  ())
+
 (defun select-current-frame (selected)
   (select-child *current-child* selected))
 
@@ -582,6 +594,10 @@
   (declare (ignore parent window-parent))
   (set-current-child-generic child))
 
+(defmethod set-current-child (child parent window-parent)
+  (declare (ignore child parent window-parent))
+  ())
+
 
 (defun set-current-root (parent)
   "Set current root if parent is not in current root"