[clfswm-cvs] CVS clfswm

[pbrochard]

Update of /project/clfswm/cvsroot/clfswm
In directory clnet:/tmp/cvs-serv30105

Modified Files:
	ChangeLog clfswm-internal.lisp xlib-util.lisp 
Log Message:
Remove structure-notivy events when hidding a window.

--- /project/clfswm/cvsroot/clfswm/ChangeLog	2007/05/16 20:36:18	1.2
+++ /project/clfswm/cvsroot/clfswm/ChangeLog	2007/08/26 21:08:16	1.3
@@ -1,3 +1,8 @@
+2007-08-26  Philippe Brochard  <hocwp at free.fr>
+
+	* xlib-util.lisp (hide-window): Remove structure-notivy events
+	when hidding a window.
+
 2007-05-16  Philippe Brochard  <hocwp at free.fr>
 
 	* package.lisp (*sm-property-notify-hook*): Readded
--- /project/clfswm/cvsroot/clfswm/clfswm-internal.lisp	2007/05/15 19:49:49	1.1
+++ /project/clfswm/cvsroot/clfswm/clfswm-internal.lisp	2007/08/26 21:08:16	1.2
@@ -1,7 +1,7 @@
 ;;; --------------------------------------------------------------------------
 ;;; CLFSWM - FullScreen Window Manager
 ;;;
-;;; #Date#: Mon May 14 22:55:32 2007
+;;; #Date#: Fri May 18 23:25:21 2007
 ;;;
 ;;; --------------------------------------------------------------------------
 ;;; Documentation: Main functions
@@ -73,10 +73,13 @@
 	    (get-group-size group)
 	  (case (window-type window)
 	    (:normal
+	     ;;(dbg "adapt 1" (wm-name window) (drawable-height window)) ;;; PHIL
 	     (setf (drawable-x window) x
 		   (drawable-y window) y
 		   (drawable-width window) width
-		   (drawable-height window) height))
+		   (drawable-height window) height)
+	     ;;(dbg "adapt 2" (drawable-height window))
+	     )
 	    (t (let* ((hints (xlib:wm-normal-hints window))
 		      (hints-width (or (and hints (xlib:wm-size-hints-max-width hints))
 				       most-positive-fixnum))
@@ -258,9 +261,9 @@
 						  (= (workspace-number w) action))
 					      *workspace-list*)))
 	  (if new-workspace
-		      (loop while (/= (workspace-number (current-workspace)) action)
-			    do (setf *workspace-list* (rotate-list *workspace-list*)))
-		      (add-workspace (create-default-workspace action)))))
+	      (loop while (/= (workspace-number (current-workspace)) action)
+		    do (setf *workspace-list* (rotate-list *workspace-list*)))
+	    (add-workspace (create-default-workspace action)))))
 	(t (add-workspace (create-default-workspace))))
       (show-all-windows-in-workspace (current-workspace)))))
 
--- /project/clfswm/cvsroot/clfswm/xlib-util.lisp	2007/05/15 19:49:51	1.1
+++ /project/clfswm/cvsroot/clfswm/xlib-util.lisp	2007/08/26 21:08:16	1.2
@@ -1,7 +1,7 @@
 ;;; --------------------------------------------------------------------------
 ;;; CLFSWM - FullScreen Window Manager
 ;;;
-;;; #Date#: Mon May 14 22:50:13 2007
+;;; #Date#: Sun Aug 26 23:03:55 2007
 ;;;
 ;;; --------------------------------------------------------------------------
 ;;; Documentation: Utility functions
@@ -91,7 +91,6 @@
     (handler-case
 	(progn
 	  (map-window window)
-	  ;;(map-subwindows *root*)  ;;; PHIL
 	  (setf (window-state window) +normal-state+))
       ((or match-error window-error drawable-error) (c)
 	(declare (ignore c))))))
@@ -103,7 +102,7 @@
     (handler-case
 	(progn
 	  (setf (window-state window) +iconic-state+
-		);;(window-event-mask window) (remove :structure-notify *window-events*)) ;;; PHIL
+		(window-event-mask window) (remove :structure-notify *window-events*))
 	  (unmap-window window)
 	  (setf (window-event-mask window) *window-events*))
       ((or match-error window-error drawable-error) (c)
@@ -220,7 +219,7 @@
 					  :background white))
 	(grab-pointer root '(:enter-window :pointer-motion
 			     :button-press :button-release)
-		      :owner-p t  :sync-keyboard-p nil :sync-pointer-p nil :cursor cursor)))
+		      :owner-p nil  :sync-keyboard-p nil :sync-pointer-p nil :cursor cursor)))
 
     (defun xungrab-pointer ()
       "Remove the grab on the cursor and restore the cursor shape."
@@ -238,7 +237,7 @@
   
   (defun xgrab-keyboard (root)
     (setf keyboard-grabbed t)
-    (grab-keyboard root :owner-p t :sync-keyboard-p nil :sync-pointer-p nil))
+    (grab-keyboard root :owner-p nil :sync-keyboard-p nil :sync-pointer-p nil))
   
   (defun xungrab-keyboard ()
     (setf keyboard-grabbed nil)