
11 Mar
2009
11 Mar
'09
4:32 p.m.
Andy Stewart
Hi all,
I use gtk2hs develop editor.
I use below function handle key press event.
keyPressHandler :: Event -> IO Bool keyPressHandler (Key {eventKeyName = keyName}) = do case keyName of "Escape" -> do mainQuit >> return True _ -> do -- How to insert character self? return True
I answer self. Just modified like below: keyPressHandler :: Event -> IO Bool keyPressHandler (Key {eventKeyName = keyName}) = do case keyName of "Escape" -> do mainQuit >> return True _ -> return False Okay, now fix. :) -- Andy