fltkhs 0.7.0.0 → 0.7.0.1

raw patch · 3 files changed

+8/−9 lines, 3 filesPVP: minor bump suggested

API additions: PVP suggests at least a minor version bump

API changes (from Hackage documentation)

Files

• fltkhs.cabal +1/−1
• src/Graphics/UI/FLTK/LowLevel/GlWindow.chs +2/−1
• src/Graphics/UI/FLTK/LowLevel/Glut.chs +5/−7

@@ -1,5 +1,5 @@ name : fltkhs-version : 0.7.0.0+version : 0.7.0.1 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

@@ -17,6 +17,7 @@ #include "Fl_C.h" #include "Fl_Double_WindowC.h" #include "Fl_Gl_WindowC.h"+import C2HS hiding (cFromEnum, cFromBool, cToBool,cToEnum) import Foreign import Graphics.UI.FLTK.LowLevel.Fl_Types import Graphics.UI.FLTK.LowLevel.Fl_Enumerations@@ -131,7 +132,7 @@ {# fun Fl_Gl_Window_set_mode as setMode' { id `Ptr ()',`Int' } -> `Int' #} instance (impl ~ (Modes ->  IO ())) => Op (SetMode ()) GlWindow orig impl where   runOp _ _ win a = withRef win $ \winPtr -> setMode' winPtr (modesToInt a) >> return ()-{# fun Fl_Gl_Window_context as context' { id `Ptr ()' } -> `Ptr ()' unsafeToRef #}+{# fun Fl_Gl_Window_context as context' { id `Ptr ()' } -> `Ptr ()'  #} instance (impl ~ ( IO (Ref FlGlContext))) => Op (GetContext ()) GlWindow orig impl where   runOp _ _ win = withRef win $ \winPtr -> context' winPtr >>= toRef {# fun Fl_Gl_Window_set_context as setContext' { id `Ptr ()',id `Ptr ()' } -> `()' supressWarningAboutRes #}

@@ -404,7 +404,7 @@ glutInitWindowSize (Size (Width w) (Height h)) = glutInitWindowSize' (fromIntegral w) (fromIntegral h) {# fun flc_glutMainLoop as glutMainLoop { } -> `()' #} {# fun flc_glutCreateWindow as glutCreateWindow' {`CString'} -> `GlutWindow' GlutWindow #}-glutCreateWindow :: T.Text -> IO ()+glutCreateWindow :: T.Text -> IO GlutWindow glutCreateWindow t = copyTextToCString t >>= glutCreateWindow' {# fun flc_glutCreateSubWindow as glutCreateSubWindow' {windowNumber `GlutWindow',`Int',`Int',`Int',`Int'} -> `GlutWindow' GlutWindow #} glutCreateSubWindow :: GlutWindow -> Rectangle -> IO GlutWindow@@ -456,14 +456,12 @@ {# fun flc_glutAddSubMenu as glutAddSubMenu' {`CString', menuNumber `GlutMenu' } -> `()' #} glutAddSubMenu :: T.Text -> GlutMenu -> IO () glutAddSubMenu t mn = copyTextToCString t >>= \t' -> glutAddSubMenu' t' mn-{# fun flc_glutChangeToMenuEntry as glutChangeToMenuEntry'' {`Int', `CString', `Int'} -> `()' #}-glutChangeToMenuEntry :: Int -> T.Text -> Int -> IO ()-glutChangeToMenuEntry i t v = copyTextToCString t >>= \t' -> glutChangeToMenuEntry' i t' v+{# fun flc_glutChangeToMenuEntry as glutChangeToMenuEntry' {`Int', `CString', `Int'} -> `()' #} glutChangeToMenuEntry :: Int -> T.Text -> IO ()-glutChangeToMenuEntry index label = glutChangeToMenuEntry' index label 0+glutChangeToMenuEntry index label = copyTextToCString label >>= \l -> glutChangeToMenuEntry' index l 0 {# fun flc_glutChangeToSubMenu as glutChangeToSubMenu' {`Int', `CString', menuNumber `GlutMenu' } -> `()' #}-glutChangeToSubMenu :: T.Text -> GlutMenu -> IO ()-glutChangeToSubMenu t m = copyTextToCString t >>= \t' -> glutChangeToSubMenu' t' m+glutChangeToSubMenu :: Int -> T.Text -> GlutMenu -> IO ()+glutChangeToSubMenu i t m = copyTextToCString t >>= \t' -> glutChangeToSubMenu' i t' m {# fun flc_glutRemoveMenuItem as glutRemoveMenuItem {`Int' } -> `()' #} {# fun flc_glutAttachMenu as glutAttachMenu {menuNumber `GlutMenu'} -> `()' #} {# fun flc_glutDetachMenu as glutDetachMenu {menuNumber `GlutMenu'} -> `()' #}