module Graphics.UI.Gtk.WebKit.Signals (
module System.Glib.Signals,
connect_PTR_PTR__NONE,
connect_OBJECT__BOOL,
connect_OBJECT_STRING_BOXED__BOOL,
connect_OBJECT__PTR,
connect_INT_INT_STRING__BOOL,
connect_STRING_STRING_INT_STRING__BOOL,
connect_OBJECT_STRING__BOOL,
connect_OBJECT_STRING_STRING__BOOL,
connect_OBJECT_OBJECT_OBJECT_OBJECT__BOOL,
connect_OBJECT_OBJECT_STRING_OBJECT__BOOL,
connect_OBJECT_OBJECT_OBJECT_OBJECT__NONE,
connect_OBJECT_OBJECT_MOBJECT_MOBJECT__NONE,
connect_ENUM_INT__BOOL,
connect_NONE__BOOL,
connect_NONE__NONE,
connect_MSTRING_MSTRING__NONE,
connect_OBJECT_STRING__NONE,
connect_OBJECT_OBJECT__NONE,
connect_STRING_STRING__NONE,
connect_OBJECT__NONE,
connect_INT__NONE,
connect_STRING__NONE,
) where
import Control.Monad (liftM)
import System.Glib.FFI
import System.Glib.UTFString (peekUTFString,maybePeekUTFString)
import qualified System.Glib.UTFString as Glib
import System.Glib.GError (failOnGError)
import System.Glib.Signals
import System.Glib.GObject
import Graphics.UI.GtkInternals
connect_PTR_PTR__NONE ::
GObjectClass obj => SignalName ->
ConnectAfter -> obj ->
(Ptr a -> Ptr b -> IO ()) ->
IO (ConnectId obj)
connect_PTR_PTR__NONE signal after obj user =
connectGeneric signal after obj action
where action :: Ptr GObject -> Ptr () -> Ptr () -> IO ()
action _ ptr1 ptr2 =
failOnGError $
user (castPtr ptr1) (castPtr ptr2)
connect_OBJECT__BOOL ::
(GObjectClass a', GObjectClass obj) => SignalName ->
ConnectAfter -> obj ->
(a' -> IO Bool) ->
IO (ConnectId obj)
connect_OBJECT__BOOL signal after obj user =
connectGeneric signal after obj action
where action :: Ptr GObject -> Ptr GObject -> IO Bool
action _ obj1 =
failOnGError $
makeNewGObject (GObject, objectUnrefFromMainloop) (return obj1) >>= \obj1' ->
user (unsafeCastGObject obj1')
connect_OBJECT_STRING_BOXED__BOOL ::
(GObjectClass a', GObjectClass obj) => SignalName ->
(Ptr c' -> IO c) ->
ConnectAfter -> obj ->
(a' -> String -> c -> IO Bool) ->
IO (ConnectId obj)
connect_OBJECT_STRING_BOXED__BOOL signal boxedPre3 after obj user =
connectGeneric signal after obj action
where action :: Ptr GObject -> Ptr GObject -> CString -> Ptr () -> IO Bool
action _ obj1 str2 box3 =
failOnGError $
boxedPre3 (castPtr box3) >>= \box3' ->
peekUTFString str2 >>= \str2' ->
makeNewGObject (GObject, objectUnrefFromMainloop) (return obj1) >>= \obj1' ->
user (unsafeCastGObject obj1') str2' box3'
connect_OBJECT__PTR ::
(GObjectClass a', GObjectClass obj) => SignalName ->
ConnectAfter -> obj ->
(a' -> IO (Ptr b)) ->
IO (ConnectId obj)
connect_OBJECT__PTR signal after obj user =
connectGeneric signal after obj action
where action :: Ptr GObject -> Ptr GObject -> IO (Ptr ())
action _ obj1 =
failOnGError $
liftM castPtr $
makeNewGObject (GObject, objectUnrefFromMainloop) (return obj1) >>= \obj1' ->
user (unsafeCastGObject obj1')
connect_INT_INT_STRING__BOOL ::
GObjectClass obj => SignalName ->
ConnectAfter -> obj ->
(Int -> Int -> String -> IO Bool) ->
IO (ConnectId obj)
connect_INT_INT_STRING__BOOL signal after obj user =
connectGeneric signal after obj action
where action :: Ptr GObject -> Int -> Int -> CString -> IO Bool
action _ int1 int2 str3 =
failOnGError $
peekUTFString str3 >>= \str3' ->
user int1 int2 str3'
connect_STRING_STRING_INT_STRING__BOOL ::
GObjectClass obj => SignalName ->
ConnectAfter -> obj ->
(String -> String -> Int -> String -> IO Bool) ->
IO (ConnectId obj)
connect_STRING_STRING_INT_STRING__BOOL signal after obj user =
connectGeneric signal after obj action
where action :: Ptr GObject -> CString -> CString -> Int -> CString -> IO Bool
action _ str1 str2 int3 str4 =
failOnGError $
peekUTFString str4 >>= \str4' ->
peekUTFString str2 >>= \str2' ->
peekUTFString str1 >>= \str1' ->
user str1' str2' int3 str4'
connect_OBJECT_STRING__BOOL ::
(GObjectClass a', GObjectClass obj) => SignalName ->
ConnectAfter -> obj ->
(a' -> String -> IO Bool) ->
IO (ConnectId obj)
connect_OBJECT_STRING__BOOL signal after obj user =
connectGeneric signal after obj action
where action :: Ptr GObject -> Ptr GObject -> CString -> IO Bool
action _ obj1 str2 =
failOnGError $
peekUTFString str2 >>= \str2' ->
makeNewGObject (GObject, objectUnrefFromMainloop) (return obj1) >>= \obj1' ->
user (unsafeCastGObject obj1') str2'
connect_OBJECT_STRING_STRING__BOOL ::
(GObjectClass a', GObjectClass obj) => SignalName ->
ConnectAfter -> obj ->
(a' -> String -> String -> IO Bool) ->
IO (ConnectId obj)
connect_OBJECT_STRING_STRING__BOOL signal after obj user =
connectGeneric signal after obj action
where action :: Ptr GObject -> Ptr GObject -> CString -> CString -> IO Bool
action _ obj1 str2 str3 =
failOnGError $
peekUTFString str3 >>= \str3' ->
peekUTFString str2 >>= \str2' ->
makeNewGObject (GObject, objectUnrefFromMainloop) (return obj1) >>= \obj1' ->
user (unsafeCastGObject obj1') str2' str3'
connect_OBJECT_OBJECT_OBJECT_OBJECT__BOOL ::
(GObjectClass a', GObjectClass b', GObjectClass c', GObjectClass d', GObjectClass obj) => SignalName ->
ConnectAfter -> obj ->
(a' -> b' -> c' -> d' -> IO Bool) ->
IO (ConnectId obj)
connect_OBJECT_OBJECT_OBJECT_OBJECT__BOOL signal after obj user =
connectGeneric signal after obj action
where action :: Ptr GObject -> Ptr GObject -> Ptr GObject -> Ptr GObject -> Ptr GObject -> IO Bool
action _ obj1 obj2 obj3 obj4 =
failOnGError $
makeNewGObject (GObject, objectUnrefFromMainloop) (return obj4) >>= \obj4' ->
makeNewGObject (GObject, objectUnrefFromMainloop) (return obj3) >>= \obj3' ->
makeNewGObject (GObject, objectUnrefFromMainloop) (return obj2) >>= \obj2' ->
makeNewGObject (GObject, objectUnrefFromMainloop) (return obj1) >>= \obj1' ->
user (unsafeCastGObject obj1') (unsafeCastGObject obj2') (unsafeCastGObject obj3') (unsafeCastGObject obj4')
connect_OBJECT_OBJECT_STRING_OBJECT__BOOL ::
(GObjectClass a', GObjectClass b', GObjectClass d', GObjectClass obj) => SignalName ->
ConnectAfter -> obj ->
(a' -> b' -> String -> d' -> IO Bool) ->
IO (ConnectId obj)
connect_OBJECT_OBJECT_STRING_OBJECT__BOOL signal after obj user =
connectGeneric signal after obj action
where action :: Ptr GObject -> Ptr GObject -> Ptr GObject -> CString -> Ptr GObject -> IO Bool
action _ obj1 obj2 str3 obj4 =
failOnGError $
makeNewGObject (GObject, objectUnrefFromMainloop) (return obj4) >>= \obj4' ->
peekUTFString str3 >>= \str3' ->
makeNewGObject (GObject, objectUnrefFromMainloop) (return obj2) >>= \obj2' ->
makeNewGObject (GObject, objectUnrefFromMainloop) (return obj1) >>= \obj1' ->
user (unsafeCastGObject obj1') (unsafeCastGObject obj2') str3' (unsafeCastGObject obj4')
connect_OBJECT_OBJECT_OBJECT_OBJECT__NONE ::
(GObjectClass a', GObjectClass b', GObjectClass c', GObjectClass d', GObjectClass obj) => SignalName ->
ConnectAfter -> obj ->
(a' -> b' -> c' -> d' -> IO ()) ->
IO (ConnectId obj)
connect_OBJECT_OBJECT_OBJECT_OBJECT__NONE signal after obj user =
connectGeneric signal after obj action
where action :: Ptr GObject -> Ptr GObject -> Ptr GObject -> Ptr GObject -> Ptr GObject -> IO ()
action _ obj1 obj2 obj3 obj4 =
failOnGError $
makeNewGObject (GObject, objectUnrefFromMainloop) (return obj4) >>= \obj4' ->
makeNewGObject (GObject, objectUnrefFromMainloop) (return obj3) >>= \obj3' ->
makeNewGObject (GObject, objectUnrefFromMainloop) (return obj2) >>= \obj2' ->
makeNewGObject (GObject, objectUnrefFromMainloop) (return obj1) >>= \obj1' ->
user (unsafeCastGObject obj1') (unsafeCastGObject obj2') (unsafeCastGObject obj3') (unsafeCastGObject obj4')
connect_OBJECT_OBJECT_MOBJECT_MOBJECT__NONE ::
(GObjectClass a', GObjectClass b', GObjectClass c', GObjectClass d', GObjectClass obj) => SignalName ->
ConnectAfter -> obj ->
(a' -> b' -> Maybe c' -> Maybe d' -> IO ()) ->
IO (ConnectId obj)
connect_OBJECT_OBJECT_MOBJECT_MOBJECT__NONE signal after obj user =
connectGeneric signal after obj action
where action :: Ptr GObject -> Ptr GObject -> Ptr GObject -> Ptr GObject -> Ptr GObject -> IO ()
action _ obj1 obj2 obj3 obj4 =
failOnGError $
maybeNull (makeNewGObject (GObject, objectUnrefFromMainloop)) (return obj4) >>= \obj4' ->
maybeNull (makeNewGObject (GObject, objectUnrefFromMainloop)) (return obj3) >>= \obj3' ->
makeNewGObject (GObject, objectUnrefFromMainloop) (return obj2) >>= \obj2' ->
makeNewGObject (GObject, objectUnrefFromMainloop) (return obj1) >>= \obj1' ->
user (unsafeCastGObject obj1') (unsafeCastGObject obj2') (liftM unsafeCastGObject obj3') (liftM unsafeCastGObject obj4')
connect_ENUM_INT__BOOL ::
(Enum a, GObjectClass obj) => SignalName ->
ConnectAfter -> obj ->
(a -> Int -> IO Bool) ->
IO (ConnectId obj)
connect_ENUM_INT__BOOL signal after obj user =
connectGeneric signal after obj action
where action :: Ptr GObject -> Int -> Int -> IO Bool
action _ enum1 int2 =
failOnGError $
user (toEnum enum1) int2
connect_NONE__BOOL ::
GObjectClass obj => SignalName ->
ConnectAfter -> obj ->
(IO Bool) ->
IO (ConnectId obj)
connect_NONE__BOOL signal after obj user =
connectGeneric signal after obj action
where action :: Ptr GObject -> IO Bool
action _ =
failOnGError $
user
connect_NONE__NONE ::
GObjectClass obj => SignalName ->
ConnectAfter -> obj ->
(IO ()) ->
IO (ConnectId obj)
connect_NONE__NONE signal after obj user =
connectGeneric signal after obj action
where action :: Ptr GObject -> IO ()
action _ =
failOnGError $
user
connect_MSTRING_MSTRING__NONE ::
GObjectClass obj => SignalName ->
ConnectAfter -> obj ->
(Maybe String -> Maybe String -> IO ()) ->
IO (ConnectId obj)
connect_MSTRING_MSTRING__NONE signal after obj user =
connectGeneric signal after obj action
where action :: Ptr GObject -> CString -> CString -> IO ()
action _ str1 str2 =
failOnGError $
maybePeekUTFString str2 >>= \str2' ->
maybePeekUTFString str1 >>= \str1' ->
user str1' str2'
connect_OBJECT_STRING__NONE ::
(GObjectClass a', GObjectClass obj) => SignalName ->
ConnectAfter -> obj ->
(a' -> String -> IO ()) ->
IO (ConnectId obj)
connect_OBJECT_STRING__NONE signal after obj user =
connectGeneric signal after obj action
where action :: Ptr GObject -> Ptr GObject -> CString -> IO ()
action _ obj1 str2 =
failOnGError $
peekUTFString str2 >>= \str2' ->
makeNewGObject (GObject, objectUnrefFromMainloop) (return obj1) >>= \obj1' ->
user (unsafeCastGObject obj1') str2'
connect_OBJECT_OBJECT__NONE ::
(GObjectClass a', GObjectClass b', GObjectClass obj) => SignalName ->
ConnectAfter -> obj ->
(a' -> b' -> IO ()) ->
IO (ConnectId obj)
connect_OBJECT_OBJECT__NONE signal after obj user =
connectGeneric signal after obj action
where action :: Ptr GObject -> Ptr GObject -> Ptr GObject -> IO ()
action _ obj1 obj2 =
failOnGError $
makeNewGObject (GObject, objectUnrefFromMainloop) (return obj2) >>= \obj2' ->
makeNewGObject (GObject, objectUnrefFromMainloop) (return obj1) >>= \obj1' ->
user (unsafeCastGObject obj1') (unsafeCastGObject obj2')
connect_STRING_STRING__NONE ::
GObjectClass obj => SignalName ->
ConnectAfter -> obj ->
(String -> String -> IO ()) ->
IO (ConnectId obj)
connect_STRING_STRING__NONE signal after obj user =
connectGeneric signal after obj action
where action :: Ptr GObject -> CString -> CString -> IO ()
action _ str1 str2 =
failOnGError $
peekUTFString str2 >>= \str2' ->
peekUTFString str1 >>= \str1' ->
user str1' str2'
connect_OBJECT__NONE ::
(GObjectClass a', GObjectClass obj) => SignalName ->
ConnectAfter -> obj ->
(a' -> IO ()) ->
IO (ConnectId obj)
connect_OBJECT__NONE signal after obj user =
connectGeneric signal after obj action
where action :: Ptr GObject -> Ptr GObject -> IO ()
action _ obj1 =
failOnGError $
makeNewGObject (GObject, objectUnrefFromMainloop) (return obj1) >>= \obj1' ->
user (unsafeCastGObject obj1')
connect_INT__NONE ::
GObjectClass obj => SignalName ->
ConnectAfter -> obj ->
(Int -> IO ()) ->
IO (ConnectId obj)
connect_INT__NONE signal after obj user =
connectGeneric signal after obj action
where action :: Ptr GObject -> Int -> IO ()
action _ int1 =
failOnGError $
user int1
connect_STRING__NONE ::
GObjectClass obj => SignalName ->
ConnectAfter -> obj ->
(String -> IO ()) ->
IO (ConnectId obj)
connect_STRING__NONE signal after obj user =
connectGeneric signal after obj action
where action :: Ptr GObject -> CString -> IO ()
action _ str1 =
failOnGError $
peekUTFString str1 >>= \str1' ->
user str1'