diff --git a/imgui b/imgui index bc5d864..db20d38 160000 --- a/imgui +++ b/imgui @@ -1 +1 @@ -Subproject commit bc5d864c4f036f1a88ce92ae12636f0469163874 +Subproject commit db20d38864f6b598e255cef116add91ab08e66de diff --git a/src/DearImGui/Raw/DrawList.hs b/src/DearImGui/Raw/DrawList.hs index 5add9d1..443ff40 100644 --- a/src/DearImGui/Raw/DrawList.hs +++ b/src/DearImGui/Raw/DrawList.hs @@ -412,8 +412,8 @@ addText_ (DrawList drawList) pos col text_begin text_end = liftIO do } |] -addText :: MonadIO m => DrawList -> Ptr ImFont -> CFloat -> Ptr ImVec2 -> ImU32 -> CString -> CString -> CFloat -> Ptr ImVec4 -> m () -addText (DrawList drawList) fontPtr font_size pos col text_begin text_end wrap_width cpu_fine_clip_rect = liftIO do +addText :: MonadIO m => DrawList -> Ptr ImFont -> CFloat -> Ptr ImVec2 -> ImU32 -> CString -> CString -> CFloat -> CFloat -> Ptr ImVec4 -> m () +addText (DrawList drawList) fontPtr font_size pos col text_begin text_end wrap_width text_align cpu_fine_clip_rect = liftIO do [C.block| void { $(ImDrawList* drawList)->AddText( @@ -424,6 +424,7 @@ addText (DrawList drawList) fontPtr font_size pos col text_begin text_end wrap_w $(char* text_begin), $(char* text_end), $(float wrap_width), + $(float text_align), $(ImVec4* cpu_fine_clip_rect) ); }