twin/xmonad-contrib
1
0
Fork 0
mirror of https://github.com/xmonad/xmonad-contrib.git synced 2025-08-19 06:03:47 -07:00
Code Issues Packages Projects Releases Wiki Activity

fix bug leading to early exit in XPrompt.

Browse Source
This commit is contained in:
David Roundy
2007-08-27 18:58:58 +00:00
parent ebe8385a4f
commit 7551c79496
1 changed files with 2 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
XPrompt.hs
View File

@@ -220,7 +220,8 @@ handle ks (KeyEvent {ev_event_type = t, ev_state = m})
handle _ (AnyEvent {ev_event_type = t, ev_window = w}) handle _ (AnyEvent {ev_event_type = t, ev_window = w})
| t == expose = do | t == expose = do
st <- get st <- get
when (win st == w) $ updateWindows >> eventLoop handle when (win st == w) updateWindows
eventLoop handle
handle _ _ = eventLoop handle handle _ _ = eventLoop handle
-- completion event handler -- completion event handler