From 92b9d423dbe368ee28fc6c6259b669f23ef3a90b Mon Sep 17 00:00:00 2001
From: Andrea Rossato <andrea.rossato@unibz.it>
Date: Sun, 7 Oct 2007 18:38:25 +0200
Subject: Tabbed and XPrompt updated to lates Extras changes

darcs-hash:20071007163825-32816-8ebe1d13dff1ac21304138a19b6ae883a54f71c7.gz
---
 XPrompt.hs | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

(limited to 'XPrompt.hs')

diff --git a/XPrompt.hs b/XPrompt.hs
index f092fa1..f4debb0 100644
--- a/XPrompt.hs
+++ b/XPrompt.hs
@@ -212,13 +212,12 @@ eventLoop action = do
 -- Main event handler
 handle :: KeyStroke -> Event -> XP ()
 handle k@(ks,_) e@(KeyEvent {ev_event_type = t})
-    | t == keyPress && ks == xK_Tab = do
+    | t == keyPress && ks == xK_Tab    = do
   c <- getCompletions
   completionHandle c k e
 handle ks (KeyEvent {ev_event_type = t, ev_state = m}) 
     | t == keyPress = keyPressHandle m ks
-handle _ (AnyEvent {ev_event_type = t, ev_window = w}) 
-    | t == expose = do 
+handle _ (ExposeEvent {ev_window = w}) = do
   st <- get
   when (win st == w) updateWindows
   eventLoop handle
-- 
cgit v1.2.3