Add inputPassword wrapper for inputText (#225)

Author: dpwiz

ChangeLog.md

@@ -1,5 +1,9 @@
 # Changelog for dear-imgui
 
+## UNRELEASED
+
+- Added `inputPassword` wrapper for text input, which sets the flag.
+
 ## [2.4.1]
 
 - Fixed builds on GHC-9.10+.

src/DearImGui.hs

@@ -221,6 +221,7 @@ module DearImGui
   , inputText
   , inputTextMultiline
   , inputTextWithHint
+  , inputPassword
   , inputFloat
   , inputFloat2
   , inputFloat3
@@ -1463,6 +1464,16 @@ inputTextWithHint label hint ref bufSize =
           ImGuiInputTextFlags_None
 
 
+-- | Wraps @ImGui::InputText()@ and sets a `ImGuiInputTextFlags_Password` flag.
+inputPassword :: (MonadIO m, HasSetter ref Text, HasGetter ref Text) => Text -> ref -> Int -> m Bool
+inputPassword label ref bufSize =
+  withInputString ref bufSize \bufPtrLen ->
+      Text.withCString label \labelPtr ->
+        Raw.inputText
+          labelPtr
+          bufPtrLen
+          ImGuiInputTextFlags_Password
+
 -- | Internal helper to prepare appropriately sized and encoded input buffer.
 withInputString
   :: (MonadIO m, HasSetter ref Text, HasGetter ref Text)