Andy Stewart <[email protected]> writes:
> 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
_______________________________________________
Haskell-Cafe mailing list
[email protected]
http://www.haskell.org/mailman/listinfo/haskell-cafe
