ongoing problem with enter-exit focus

[Mark Diekhans <markd kermodei com>]

Hi Folks,

I have been having an ongoing issue with enter-exit focus and
sawfish.

Frequently, when the mouse enters the window, it gets mouse
focus (as indicated by the pull down menus for the particular
application). The title bar color changes, however keyboard
focus remains on the previous window.  Typing anything goes to
the wrong application.  Moving the mouse out of the window and
back in again will fix keyboard focus.

I just upgraded to sawfish 1.7.0 (compiled from source), and
since it still exists, I have become determined to track it
down. This occurs running on various GNU/Linux systems, most
current being Ubuntu 10.10.

custom file attached.  Suggestions on how to debug appreciated.

Thanks for all the great work,
mark

;; sawfish user customization -- do not edit by hand!
;; sawfish version 1.7.0, written Wed Dec  1 20:17:37 2010

(custom-set-typed-variable (quote dont-avoid-ignored) (quote ()) (quote boolean))
(custom-set-typed-variable (quote avoid-by-default) (quote ()) (quote boolean))
(custom-set-typed-variable (quote default-frame-style) (quote brushed-metal) (quote frame-style))
(custom-set-typed-variable (quote grow-pack-bump-other-depth) (quote maybe) (quote (choice always maybe never)))
(custom-set-typed-variable (quote place-window-mode) (quote under-pointer) (quote symbol))
(custom-set-typed-variable (quote focus-mode) (quote enter-exit) (quote symbol))
(custom-set-typed-variable (quote match-window-profile) (quote ((((WM_NAME . "^xbatt$")) (depth . 16) (frame-type . none) (sticky . #t) (cycle-skip . #t) (window-list-skip . #t) (task-list-skip . #t)) (((WM_NAME . "^xfce4-panel$")) (raise-on-focus . #t) (cycle-skip . #t) (window-list-skip . #t)) (((WM_NAME . "^sunclock / clock$")) (cycle-skip . #t) (window-list-skip . #t) (task-list-skip . #t)) (((WM_NAME . "^pager$")) (sticky . #t)) (((WM_NAME . "^gkrellm$")) (cycle-skip . #t) (window-list-skip . #t) (task-list-skip . #t)) (((WM_NAME . "^xbiff$")) (ignore-program-position . #t) (place-mode . top-left) (frame-type . none) (window-list-skip . #t) (task-list-skip . #t)) (((WM_NAME . "^Task List$")) (depth . 16) (window-list-skip . #t) (task-list-skip . #t)) (((WM_NAME . "^OpenSSH Authentication Passphrase Request$")) (place-mode . centered) (depth . 16) (focus-when-mapped . #t)))) (quote match-window) (quote sawfish.wm.ext.match-window))
(custom-set-typed-variable (quote wm-modifier-value) (quote (meta)) (quote modifier-list))
(custom-set-typed-variable (quote workspace-send-boundary-mode) (quote stop) (quote (choice stop wrap-around keep-going)))
(custom-set-typed-variable (quote workspace-boundary-mode) (quote stop) (quote (choice stop wrap-around keep-going)))
(custom-set-typed-variable (quote viewport-boundary-mode) (quote wrap-around) (quote (choice wrap-around stop dynamic)))
(custom-set-typed-variable (quote move-outline-mode) (quote opaque) (quote (choice opaque box cross elliptical draft)))
(custom-set-keymap (quote border-keymap) (quote (keymap (resize-window-interactively . "Button1-Move") (move-window-interactively . "Button2-Move") (raise-lower-window . "Button3-Off"))))
(custom-set-typed-variable (quote workspace-names) (quote ("ws1")) (quote (list string "Workspace names")))
(custom-set-typed-variable (quote viewport-minimum-dimensions) (quote (2 . 2)) (quote (pair (number 1) (number 1))))
(custom-set-typed-variable (quote viewport-dimensions) (quote (2 . 2)) (quote (pair (number 1) (number 1))))
(custom-set-typed-variable (quote scroll-viewport-steps) (quote 4) (quote number))
(custom-set-keymap (quote global-keymap) (quote (keymap (next-workspace . "W-Right") (previous-workspace . "W-Left"))))
(custom-set-typed-variable (quote default-window-animator) (quote solid) (quote (choice none solid wireframe cross elliptical draft)))
(custom-set-typed-variable (quote move-outline-mode) (quote box) (quote (choice opaque box cross elliptical draft)))
(custom-set-typed-variable (quote resize-outline-mode) (quote opaque) (quote (choice opaque box cross elliptical draft)))
(custom-set-typed-variable (quote resize-outline-mode) (quote opaque) (quote (choice opaque box cross elliptical draft)))
(custom-set-typed-variable (quote default-window-animator) (quote solid) (quote (choice none solid wireframe cross elliptical draft)))
(custom-set-typed-variable (quote viewport-boundary-mode) (quote dynamic) (quote (choice wrap-around stop dynamic)))
(custom-set-typed-variable (quote tooltips-show-doc-strings) (quote ()) (quote boolean))
(custom-set-typed-variable (quote move-resize-raise-window) (quote ()) (quote boolean))
(custom-set-typed-variable (quote move-show-position) (quote t) (quote boolean))
(custom-set-typed-variable (quote cycle-all-workspaces) (quote t) (quote boolean))
(custom-set-typed-variable (quote error-destination) (quote standard-error) (quote (choice nowhere screen standard-error)))
(custom-set-keymap (quote maximize-button-keymap) (quote (keymap (maximize-window-vertically-toggle . "Button1-Off") (maximize-window-horizontally-toggle . "Button2-Off") (toggle-window-shaded . "Button3-Off"))))
(custom-set-typed-variable (quote Empire:active-decor-color) (quote ()) (quote (optional color)))
(custom-set-typed-variable (quote Crux:normal-color) (quote ()) (quote (optional color)))
(custom-set-typed-variable (quote default-font) (quote ("xlfd" . "fixed")) (quote font))
(custom-set-typed-variable (quote pager-shrink-factor) (quote 13) (quote number))
(custom-set-typed-variable (quote pager-warp-cursor) (quote t) (quote boolean))
(custom-set-typed-variable (quote move-lock-when-maximized) (quote ()) (quote boolean))
(custom-set-typed-variable (quote error-handler-beep) (quote ()) (quote boolean))
(custom-set-typed-variable (quote tooltips-enabled) (quote t) (quote boolean) (quote sawfish.wm.ext.tooltips))
(custom-set-typed-variable (quote focus-click-through) (quote ()) (quote boolean))