fltkhs 0.5.3.6 → 0.5.3.7

raw patch · 2 files changed

+12/−10 lines, 2 filesPVP: major bump suggested

API removals or changes: PVP suggests a major version bump

API changes (from Hackage documentation)

Files

• fltkhs.cabal +1/−1
• src/Graphics/UI/FLTK/LowLevel/FL.chs +11/−9

@@ -1,5 +1,5 @@ name : fltkhs-version : 0.5.3.6+version : 0.5.3.7 synopsis : FLTK bindings description: Low level bindings for the FLTK GUI toolkit. For installation and quick start instruction please scroll all the way down to the README. license : MIT

@@ -122,10 +122,9 @@      getFontName,      getFont,      getFontSizes,-     setFontByString,-     setFontByFont,+     setFontToString,+     setFontToFont,      setFonts,-     setFontsWithString,      -- * File Descriptor Callbacks      addFd,      addFdWhen,@@ -772,14 +771,17 @@ getFontName f = getFontNameWithAttributes' f {# fun Fl_get_font_sizes as getFontSizes        { cFromFont `Font', alloca- `Int' peekIntConv* } -> `Int' #}-{# fun Fl_set_font_by_string as setFontByString+{# fun Fl_set_font_by_string as setFontToString        { cFromFont `Font', unsafeToCString `T.Text' } -> `()' supressWarningAboutRes #}-{# fun Fl_set_font_by_font as setFontByFont+{# fun Fl_set_font_by_font as setFontToFont        { cFromFont `Font',cFromFont `Font' } -> `()' supressWarningAboutRes #}-{# fun Fl_set_fonts as setFonts-       {  } -> `Font' cToFont #}-{# fun Fl_set_fonts_with_string as setFontsWithString-       { unsafeToCString `T.Text' } -> `Font' cToFont #}+{# fun Fl_set_fonts as setFonts'+       {  } -> `Int' #}+{# fun Fl_set_fonts_with_string as setFontsWithString'+       { id `Ptr CChar' } -> `Int' #}+setFonts :: Maybe T.Text -> IO Int+setFonts (Just xstarName) = withText xstarName (\starNamePtr -> setFontsWithString' starNamePtr)+setFonts Nothing = setFonts'  {# fun Fl_add_fd_with_when as addFdWhen'        {