This commit is contained in:
Don Stewart 2007-03-07 06:22:01 +00:00
parent bea5592b85
commit 601724b086

View File

@ -96,7 +96,7 @@ handle (KeyEvent {event_type = t, state = mod, keycode = code})
handle e@(ConfigureRequestEvent {}) = do handle e@(ConfigureRequestEvent {}) = do
dpy <- gets display dpy <- gets display
io $ configureWindow dpy (window e) (value_mask e) $ io $ configureWindow dpy (window e) (value_mask e) $
WindowChanges WindowChanges
{ wcX = x e { wcX = x e
, wcY = y e , wcY = y e
, wcWidth = width e , wcWidth = width e