From pbrochard at common-lisp.net Sun Aug 26 21:08:16 2007 From: pbrochard at common-lisp.net (pbrochard) Date: Sun, 26 Aug 2007 17:08:16 -0400 (EDT) Subject: [clfswm-cvs] CVS clfswm Message-ID: <20070826210816.CDB94590A5@common-lisp.net> 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 + + * xlib-util.lisp (hide-window): Remove structure-notivy events + when hidding a window. + 2007-05-16 Philippe Brochard * 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)