Handle unrecognized keys without crashing.

Author: ericu

src/Graphics/UI/FLTK/LowLevel/Fl_Enumerations.chs

@@ -314,6 +314,7 @@ enum SpecialKey {
  Kb_Refresh = FL_Refresh,
  Kb_Sleep = FL_Sleep,
  Kb_Favorites = FL_Favorites,
+ Kb_Unrecognized,
 };
 enum MouseButton {
  Mouse_Left = FL_LEFT_MOUSE,

src/Graphics/UI/FLTK/LowLevel/Utils.hs

@@ -311,7 +311,9 @@ cToKeyType cint =
  in
  case findSpecialKey of
  Just sk -> SpecialKeyType sk
- Nothing -> NormalKeyType (toEnum $ fromIntegral cint)
+ Nothing -> if cint <= 0x10FFFF
+ then NormalKeyType (toEnum $ fromIntegral cint)
+ else SpecialKeyType Kb_Unrecognized
 
 cFromKeyType :: KeyType -> CInt
 cFromKeyType kt = case kt of