diff --git a/ChangeLog.md b/ChangeLog.md --- a/ChangeLog.md +++ b/ChangeLog.md @@ -1,5 +1,11 @@ # Revision history for wild-bind-task-x11 +## 0.2.0.3 -- 2021-03-25 + +* Bug fix: Now `wildNumPad` initializes `WildBind.X11` first, and then `WildBind.Indicator`. + It was the other way around before, and it caused Segmentation Fault when you tried to show the status icon menu or the description dialog. + See https://github.com/debug-ito/wild-bind/issues/6 + ## 0.2.0.2 -- 2020-12-30 * Confirm build with `wind-bind-indicator-1.0.0.0` diff --git a/src/WildBind/Task/X11.hs b/src/WildBind/Task/X11.hs --- a/src/WildBind/Task/X11.hs +++ b/src/WildBind/Task/X11.hs @@ -66,4 +66,5 @@ -- 'Indicator', and uses the 'Binding' you return as-is. wildNumPad' :: (NumPadPosition i, XKeyInput i, Describable i, Ord i, Enum i, Bounded i) => (Indicator ActiveWindow i -> Binding ActiveWindow i) -> IO () -wildNumPad' create_binding = withNumPadIndicator $ \ind -> withFrontEnd $ wildBindWithIndicator ind (create_binding ind) +wildNumPad' createBinding = + withFrontEnd $ \front -> withNumPadIndicator $ \ind -> wildBindWithIndicator ind (createBinding ind) front diff --git a/wild-bind-task-x11.cabal b/wild-bind-task-x11.cabal --- a/wild-bind-task-x11.cabal +++ b/wild-bind-task-x11.cabal @@ -1,5 +1,5 @@ name: wild-bind-task-x11 -version: 0.2.0.2 +version: 0.2.0.3 author: Toshio Ito maintainer: Toshio Ito license: BSD3