windowFocusCallback     tc win fa         = atomically $ writeTQueue tc $ EventWindowFocus     win fa
windowFocusCallback     tc win fa         = atomically $ writeTQueue tc $ EventWindowFocus     win fa
windowFocusCallback     tc win fa         = atomically $ writeTQueue tc $ EventWindowFocus     win fa