dear-imgui 1.0.1 → 1.0.2

raw patch · 4 files changed

+96/−3 lines, 4 filesPVP ok

version bump matches the API change (PVP)

API changes (from Hackage documentation)

Files

• ChangeLog.md +7/−2
• dear-imgui.cabal +1/−1
• src/DearImGui.hs +43/−0
• src/DearImGui/Raw.hs +45/−0

@@ -1,7 +1,11 @@ # Changelog for dear-imgui -## [1.0.1] Initial Hackage release+## [1.0.2] +- Added `withID` and `ToID(..)` to make composable components possible.++## [1.0.1]+ - Fixed missing headers in source dist.  ## [1.0.0]@@ -9,4 +13,5 @@ Initial Hackage release based on 1.83.  [1.0.0]: https://github.com/haskell-game/dear-imgui.hs/tree/v1.0.0-[1.0.0]: https://github.com/haskell-game/dear-imgui.hs/tree/v1.0.1+[1.0.1]: https://github.com/haskell-game/dear-imgui.hs/tree/v1.0.1+[1.0.2]: https://github.com/haskell-game/dear-imgui.hs/tree/v1.0.2

@@ -1,7 +1,7 @@ cabal-version: 3.0  name: dear-imgui-version: 1.0.1+version: 1.0.2 author: Oliver Charles maintainer: ollie@ocharles.org.uk, aenor.realm@gmail.com license: BSD-3-Clause

@@ -1,6 +1,7 @@ {-# LANGUAGE BlockArguments #-} {-# LANGUAGE DuplicateRecordFields #-} {-# LANGUAGE FlexibleContexts #-}+{-# LANGUAGE FlexibleInstances #-} {-# LANGUAGE LambdaCase #-} {-# LANGUAGE NamedFieldPuns #-} {-# LANGUAGE OverloadedStrings #-}@@ -87,6 +88,10 @@   , setCursorPos   , Raw.alignTextToFramePadding +    -- * ID stack+  , withID+  , ToID(..)+     -- * Widgets     -- ** Text   , text@@ -1460,6 +1465,44 @@   pos <- get posRef   with pos Raw.setCursorPos +-- | Add an element to a ID stack+--+-- Read the FAQ (http://dearimgui.org/faq) for more details+-- about how ID are handled in dear imgui.+--+-- Those questions are answered and impacted by understanding of the ID stack system:+-- * "Q: Why is my widget not reacting when I click on it?"+-- * "Q: How can I have widgets with an empty label?"+-- * "Q: How can I have multiple widgets with the same label?"+--+-- Wraps @ImGui::PushId@ and @ImGui::PopId@+withID :: (MonadUnliftIO m, ToID id) => id -> m a -> m a+withID i = bracket_ (liftIO $ pushID i) Raw.popID++-- | A supplementary class to match overloaded functions in C++ the library.+class ToID a where+  pushID :: MonadIO m => a -> m ()++instance ToID CInt where+  pushID = Raw.pushIDInt++instance ToID Int where+  pushID = Raw.pushIDInt . fromIntegral++instance ToID Integer where+  pushID = Raw.pushIDInt . fromInteger++instance {-# OVERLAPPABLE #-} ToID (Ptr a) where+  pushID = Raw.pushIDPtr++instance {-# OVERLAPPING #-} ToID (Ptr CChar) where+  pushID = Raw.pushIDStr++instance ToID (Ptr CChar, Int) where+  pushID = Raw.pushIDStrLen++instance ToID String where+  pushID s = liftIO $ withCStringLen s pushID  -- | Modify a style color by pushing to the shared stack. always use this if you modify the style after `newFrame` --

@@ -178,6 +178,13 @@   , openPopup   , closeCurrentPopup +    -- * ID stack/scopes+  , pushIDInt+  , pushIDPtr+  , pushIDStr+  , pushIDStrLen+  , popID+     -- * Item/Widgets Utilities   , isItemHovered   , wantCaptureMouse@@ -1260,6 +1267,44 @@ popStyleVar :: (MonadIO m) => CInt -> m () popStyleVar n = liftIO do   [C.exp| void { PopStyleVar($(int n)) } |]+++-- | Push integer into the ID stack (will hash int).+--+-- Wraps @ImGui::PushId@+pushIDInt :: (MonadIO m) => CInt -> m ()+pushIDInt intId = liftIO do+  [C.exp| void { PushID($(int intId)) } |]++-- | Push pointer into the ID stack (will hash pointer).+--+-- Wraps @ImGui::PushId@+pushIDPtr :: (MonadIO m) => Ptr a -> m ()+pushIDPtr ptr = liftIO do+  [C.exp| void { PushID($(void * ptr_)) } |]+  where+    ptr_ = castPtr ptr++-- | Push string into the ID stack (will hash string).+--+-- Wraps @ImGui::PushId@+pushIDStr :: (MonadIO m) => CString -> m ()+pushIDStr strId = liftIO do+  [C.exp| void { PushID($(char * strId)) } |]++-- | Push string into the ID stack (will hash string).+--+-- Wraps @ImGui::PushId@+pushIDStrLen :: (MonadIO m) => CStringLen -> m ()+pushIDStrLen (strBegin, strLen) = liftIO do+  [C.exp| void { PushID($(char * strBegin), $(char * strEnd)) } |]+  where+    strEnd = plusPtr strBegin strLen++popID :: (MonadIO m) => m ()+popID = liftIO do+  [C.exp| void { PopID() } |]+  wantCaptureMouse :: MonadIO m => m Bool wantCaptureMouse = liftIO do