dear-imgui 2.1.1 → 2.1.2
raw patch · 4 files changed
+31/−2 lines, 4 filesPVP ok
version bump matches the API change (PVP)
API changes (from Hackage documentation)
+ DearImGui: plotLines :: MonadIO m => Text -> [CFloat] -> m ()
+ DearImGui: setNextItemOpen :: MonadIO m => Bool -> m ()
+ DearImGui.Raw: plotLines :: MonadIO m => CString -> Ptr CFloat -> CInt -> m ()
+ DearImGui.Raw: setNextItemOpen :: MonadIO m => CBool -> m ()
Files
- ChangeLog.md +7/−0
- dear-imgui.cabal +2/−2
- src/DearImGui.hs +11/−0
- src/DearImGui/Raw.hs +11/−0
ChangeLog.md view
@@ -1,5 +1,11 @@ # Changelog for dear-imgui +## [2.1.2]++- Fixed glfw example build flags.+- Added `plotLines`.+- Added `setNextItemOpen`.+ ## [2.1.1] - Build flag fix for MacOS.@@ -93,6 +99,7 @@ [2.0.0]: https://github.com/haskell-game/dear-imgui.hs/tree/v2.0.0 [2.1.0]: https://github.com/haskell-game/dear-imgui.hs/tree/v2.1.0 [2.1.1]: https://github.com/haskell-game/dear-imgui.hs/tree/v2.1.1+[2.1.2]: https://github.com/haskell-game/dear-imgui.hs/tree/v2.1.2 [1.87]: https://github.com/ocornut/imgui/releases/tag/v1.87 [1.86]: https://github.com/ocornut/imgui/releases/tag/v1.86
dear-imgui.cabal view
@@ -1,7 +1,7 @@ cabal-version: 3.0 name: dear-imgui-version: 2.1.1+version: 2.1.2 author: Oliver Charles maintainer: ollie@ocharles.org.uk, aenor.realm@gmail.com license: BSD-3-Clause@@ -329,7 +329,7 @@ main-is: Main.hs hs-source-dirs: examples/glfw default-language: Haskell2010- if (!flag(examples) || !flag(glfw) || !flag(opengl3))+ if (!flag(examples) || !flag(glfw) || !flag(opengl2)) buildable: False else build-depends: base, GLFW-b, gl, dear-imgui, managed, text
src/DearImGui.hs view
@@ -226,6 +226,7 @@ , treeNode , treePush , Raw.treePop+ , setNextItemOpen -- ** Selectables , selectable@@ -237,6 +238,7 @@ , listBox -- ** Data Plotting+ , plotLines , plotHistogram -- ** Menus@@ -1545,6 +1547,9 @@ treePush label = liftIO do Text.withCString label Raw.treePush +-- | Wraps @ImGui::SetNextItemOpen()@.+setNextItemOpen :: MonadIO m => Bool -> m ()+setNextItemOpen is_open = Raw.setNextItemOpen (bool 0 1 is_open) -- | Wraps @ImGui::Selectable()@ with default options. selectable :: MonadIO m => Text -> m Bool@@ -1590,6 +1595,12 @@ return changed +-- | Wraps @ImGui::PlotLines()@.+plotLines :: MonadIO m => Text -> [CFloat] -> m ()+plotLines label values = liftIO $+ withArrayLen values \len valuesPtr ->+ Text.withCString label \labelPtr ->+ Raw.plotLines labelPtr valuesPtr (fromIntegral len) -- | Wraps @ImGui::PlotHistogram()@. plotHistogram :: MonadIO m => Text -> [CFloat] -> m ()
src/DearImGui/Raw.hs view
@@ -185,6 +185,7 @@ , treeNode , treePush , treePop+ , setNextItemOpen -- ** Selectables , selectable@@ -193,6 +194,7 @@ , listBox -- * Data Plotting+ , plotLines , plotHistogram -- ** Menus@@ -1232,6 +1234,11 @@ [C.exp| void { TreePop() } |] +-- | Wraps @ImGui::SetNextItemOpen()@.+setNextItemOpen :: (MonadIO m) => CBool -> m ()+setNextItemOpen is_open = liftIO do+ [C.exp| void { SetNextItemOpen($(bool is_open)) } |]+ -- -- | Wraps @ImGui::Selectable()@. -- selectable :: (MonadIO m) => CString -> m Bool -- selectable labelPtr = liftIO do@@ -1250,6 +1257,10 @@ listBox labelPtr iPtr itemsPtr itemsLen = liftIO do (0 /=) <$> [C.exp| bool { ListBox($(char* labelPtr), $(int* iPtr), $(char** itemsPtr), $(int itemsLen)) }|] +-- | Wraps @ImGui::PlotLines()@.+plotLines :: (MonadIO m) => CString -> Ptr CFloat -> CInt -> m ()+plotLines labelPtr valuesPtr valuesLen = liftIO do+ [C.exp| void { PlotLines($(char* labelPtr), $(float* valuesPtr), $(int valuesLen)) } |] -- | Wraps @ImGui::PlotHistogram()@. plotHistogram :: (MonadIO m) => CString -> Ptr CFloat -> CInt -> m ()