diff options
Diffstat (limited to 'src/Gtk/Signal.icl')
| -rw-r--r-- | src/Gtk/Signal.icl | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/src/Gtk/Signal.icl b/src/Gtk/Signal.icl index 9ca4b22..5861e92 100644 --- a/src/Gtk/Signal.icl +++ b/src/Gtk/Signal.icl @@ -5,9 +5,9 @@ import StdEnv import Control.Monad import Control.Monad.Identity import Control.Monad.State -import qualified Data.Map as M +import qualified Data.Map -import qualified Gtk.Internal as I +import Gtk.Internal import Gtk.State import Gtk.Widgets @@ -15,12 +15,12 @@ installSignalHandler :: !GSignalHandler !w -> State GtkState w | gtkWidget w installSignalHandler handler widget = modify (\st -> { st - & signal_handlers = 'M'.put (st.signal_counter+1) handler_internal st.signal_handlers + & signal_handlers = 'Data.Map'.put (st.signal_counter+1) handler_internal st.signal_handlers , signal_counter = st.signal_counter+1 }) >>| gets (\st -> st.signal_counter) >>= \id -> (toState case handler_internal of - GSHI_Void _ -> 'I'.g_signal_connect_void (toPtr (gtkWidget widget)) signal_name id) >>| + GSHI_Void _ -> g_signal_connect_void (toPtr (gtkWidget widget)) signal_name id) >>| pure widget where (signal_name,handler_internal) = case handler of |