{-# LANGUAGE TypeApplications #-}
#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif
module GI.WebKitWebProcessExtension.Objects.ContextMenu
(
ContextMenu(..) ,
IsContextMenu ,
toContextMenu ,
#if defined(ENABLE_OVERLOADING)
ResolveContextMenuMethod ,
#endif
#if defined(ENABLE_OVERLOADING)
ContextMenuAppendMethodInfo ,
#endif
contextMenuAppend ,
#if defined(ENABLE_OVERLOADING)
ContextMenuFirstMethodInfo ,
#endif
contextMenuFirst ,
#if defined(ENABLE_OVERLOADING)
ContextMenuGetEventMethodInfo ,
#endif
contextMenuGetEvent ,
#if defined(ENABLE_OVERLOADING)
ContextMenuGetItemAtPositionMethodInfo ,
#endif
contextMenuGetItemAtPosition ,
#if defined(ENABLE_OVERLOADING)
ContextMenuGetItemsMethodInfo ,
#endif
contextMenuGetItems ,
#if defined(ENABLE_OVERLOADING)
ContextMenuGetNItemsMethodInfo ,
#endif
contextMenuGetNItems ,
#if defined(ENABLE_OVERLOADING)
ContextMenuGetUserDataMethodInfo ,
#endif
contextMenuGetUserData ,
#if defined(ENABLE_OVERLOADING)
ContextMenuInsertMethodInfo ,
#endif
contextMenuInsert ,
#if defined(ENABLE_OVERLOADING)
ContextMenuLastMethodInfo ,
#endif
contextMenuLast ,
#if defined(ENABLE_OVERLOADING)
ContextMenuMoveItemMethodInfo ,
#endif
contextMenuMoveItem ,
contextMenuNew ,
contextMenuNewWithItems ,
#if defined(ENABLE_OVERLOADING)
ContextMenuPrependMethodInfo ,
#endif
contextMenuPrepend ,
#if defined(ENABLE_OVERLOADING)
ContextMenuRemoveMethodInfo ,
#endif
contextMenuRemove ,
#if defined(ENABLE_OVERLOADING)
ContextMenuRemoveAllMethodInfo ,
#endif
contextMenuRemoveAll ,
#if defined(ENABLE_OVERLOADING)
ContextMenuSetUserDataMethodInfo ,
#endif
contextMenuSetUserData ,
) where
import Data.GI.Base.ShortPrelude
import qualified Data.GI.Base.ShortPrelude as SP
import qualified Data.GI.Base.Overloading as O
import qualified Prelude as P
import qualified Data.GI.Base.Attributes as GI.Attributes
import qualified Data.GI.Base.BasicTypes as B.Types
import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr
import qualified Data.GI.Base.GArray as B.GArray
import qualified Data.GI.Base.GClosure as B.GClosure
import qualified Data.GI.Base.GError as B.GError
import qualified Data.GI.Base.GHashTable as B.GHT
import qualified Data.GI.Base.GVariant as B.GVariant
import qualified Data.GI.Base.GValue as B.GValue
import qualified Data.GI.Base.GParamSpec as B.GParamSpec
import qualified Data.GI.Base.CallStack as B.CallStack
import qualified Data.GI.Base.Properties as B.Properties
import qualified Data.GI.Base.Signals as B.Signals
import qualified Control.Monad.IO.Class as MIO
import qualified Data.Coerce as Coerce
import qualified Data.Text as T
import qualified Data.Kind as DK
import qualified Data.ByteString.Char8 as B
import qualified Data.Map as Map
import qualified Foreign.Ptr as FP
import qualified GHC.OverloadedLabels as OL
import qualified GHC.Records as R
import qualified GI.GObject.Objects.Object as GObject.Object
import qualified GI.Gdk.Objects.Event as Gdk.Event
import {-# SOURCE #-} qualified GI.WebKitWebProcessExtension.Objects.ContextMenuItem as WebKitWebProcessExtension.ContextMenuItem
newtype = (SP.ManagedPtr ContextMenu)
deriving (ContextMenu -> ContextMenu -> Bool
(ContextMenu -> ContextMenu -> Bool)
-> (ContextMenu -> ContextMenu -> Bool) -> Eq ContextMenu
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: ContextMenu -> ContextMenu -> Bool
== :: ContextMenu -> ContextMenu -> Bool
$c/= :: ContextMenu -> ContextMenu -> Bool
/= :: ContextMenu -> ContextMenu -> Bool
Eq)
instance SP.ManagedPtrNewtype ContextMenu where
toManagedPtr :: ContextMenu -> ManagedPtr ContextMenu
toManagedPtr (ContextMenu ManagedPtr ContextMenu
p) = ManagedPtr ContextMenu
p
foreign import ccall "webkit_context_menu_get_type"
:: IO B.Types.GType
instance B.Types.TypedObject ContextMenu where
glibType :: IO GType
glibType = IO GType
c_webkit_context_menu_get_type
instance B.Types.GObject ContextMenu
class (SP.GObject o, O.IsDescendantOf ContextMenu o) => o
instance (SP.GObject o, O.IsDescendantOf ContextMenu o) => IsContextMenu o
instance O.HasParentTypes ContextMenu
type instance O.ParentTypes ContextMenu = '[GObject.Object.Object]
toContextMenu :: (MIO.MonadIO m, IsContextMenu o) => o -> m ContextMenu
= IO ContextMenu -> m ContextMenu
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO ContextMenu -> m ContextMenu)
-> (o -> IO ContextMenu) -> o -> m ContextMenu
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (ManagedPtr ContextMenu -> ContextMenu) -> o -> IO ContextMenu
forall o o'.
(HasCallStack, ManagedPtrNewtype o, TypedObject o,
ManagedPtrNewtype o', TypedObject o') =>
(ManagedPtr o' -> o') -> o -> IO o'
B.ManagedPtr.unsafeCastTo ManagedPtr ContextMenu -> ContextMenu
ContextMenu
instance B.GValue.IsGValue (Maybe ContextMenu) where
gvalueGType_ :: IO GType
gvalueGType_ = IO GType
c_webkit_context_menu_get_type
gvalueSet_ :: Ptr GValue -> Maybe ContextMenu -> IO ()
gvalueSet_ Ptr GValue
gv Maybe ContextMenu
P.Nothing = Ptr GValue -> Ptr ContextMenu -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv (Ptr ContextMenu
forall a. Ptr a
FP.nullPtr :: FP.Ptr ContextMenu)
gvalueSet_ Ptr GValue
gv (P.Just ContextMenu
obj) = ContextMenu -> (Ptr ContextMenu -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
B.ManagedPtr.withManagedPtr ContextMenu
obj (Ptr GValue -> Ptr ContextMenu -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv)
gvalueGet_ :: Ptr GValue -> IO (Maybe ContextMenu)
gvalueGet_ Ptr GValue
gv = do
Ptr ContextMenu
ptr <- Ptr GValue -> IO (Ptr ContextMenu)
forall a. GObject a => Ptr GValue -> IO (Ptr a)
B.GValue.get_object Ptr GValue
gv :: IO (FP.Ptr ContextMenu)
if Ptr ContextMenu
ptr Ptr ContextMenu -> Ptr ContextMenu -> Bool
forall a. Eq a => a -> a -> Bool
/= Ptr ContextMenu
forall a. Ptr a
FP.nullPtr
then ContextMenu -> Maybe ContextMenu
forall a. a -> Maybe a
P.Just (ContextMenu -> Maybe ContextMenu)
-> IO ContextMenu -> IO (Maybe ContextMenu)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (ManagedPtr ContextMenu -> ContextMenu)
-> Ptr ContextMenu -> IO ContextMenu
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
B.ManagedPtr.newObject ManagedPtr ContextMenu -> ContextMenu
ContextMenu Ptr ContextMenu
ptr
else Maybe ContextMenu -> IO (Maybe ContextMenu)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe ContextMenu
forall a. Maybe a
P.Nothing
#if defined(ENABLE_OVERLOADING)
type family ResolveContextMenuMethod (t :: Symbol) (o :: DK.Type) :: DK.Type where
ResolveContextMenuMethod "append" o = ContextMenuAppendMethodInfo
ResolveContextMenuMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
ResolveContextMenuMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
ResolveContextMenuMethod "first" o = ContextMenuFirstMethodInfo
ResolveContextMenuMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
ResolveContextMenuMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
ResolveContextMenuMethod "getv" o = GObject.Object.ObjectGetvMethodInfo
ResolveContextMenuMethod "insert" o = ContextMenuInsertMethodInfo
ResolveContextMenuMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo
ResolveContextMenuMethod "last" o = ContextMenuLastMethodInfo
ResolveContextMenuMethod "moveItem" o = ContextMenuMoveItemMethodInfo
ResolveContextMenuMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
ResolveContextMenuMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
ResolveContextMenuMethod "prepend" o = ContextMenuPrependMethodInfo
ResolveContextMenuMethod "ref" o = GObject.Object.ObjectRefMethodInfo
ResolveContextMenuMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
ResolveContextMenuMethod "remove" o = ContextMenuRemoveMethodInfo
ResolveContextMenuMethod "removeAll" o = ContextMenuRemoveAllMethodInfo
ResolveContextMenuMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
ResolveContextMenuMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
ResolveContextMenuMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
ResolveContextMenuMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo
ResolveContextMenuMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo
ResolveContextMenuMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
ResolveContextMenuMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
ResolveContextMenuMethod "getEvent" o = ContextMenuGetEventMethodInfo
ResolveContextMenuMethod "getItemAtPosition" o = ContextMenuGetItemAtPositionMethodInfo
ResolveContextMenuMethod "getItems" o = ContextMenuGetItemsMethodInfo
ResolveContextMenuMethod "getNItems" o = ContextMenuGetNItemsMethodInfo
ResolveContextMenuMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo
ResolveContextMenuMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo
ResolveContextMenuMethod "getUserData" o = ContextMenuGetUserDataMethodInfo
ResolveContextMenuMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
ResolveContextMenuMethod "setDataFull" o = GObject.Object.ObjectSetDataFullMethodInfo
ResolveContextMenuMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
ResolveContextMenuMethod "setUserData" o = ContextMenuSetUserDataMethodInfo
ResolveContextMenuMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveContextMenuMethod t ContextMenu, O.OverloadedMethod info ContextMenu p) => OL.IsLabel t (ContextMenu -> p) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.overloadedMethod @info
#else
fromLabel _ = O.overloadedMethod @info
#endif
#if MIN_VERSION_base(4,13,0)
instance (info ~ ResolveContextMenuMethod t ContextMenu, O.OverloadedMethod info ContextMenu p, R.HasField t ContextMenu p) => R.HasField t ContextMenu p where
getField = O.overloadedMethod @info
#endif
instance (info ~ ResolveContextMenuMethod t ContextMenu, O.OverloadedMethodInfo info ContextMenu) => OL.IsLabel t (O.MethodProxy info ContextMenu) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.MethodProxy
#else
fromLabel _ = O.MethodProxy
#endif
#endif
#if defined(ENABLE_OVERLOADING)
instance O.HasAttributeList ContextMenu
type instance O.AttributeList ContextMenu = ContextMenuAttributeList
type ContextMenuAttributeList = ('[ ] :: [(Symbol, DK.Type)])
#endif
#if defined(ENABLE_OVERLOADING)
#endif
#if defined(ENABLE_OVERLOADING)
type instance O.SignalList ContextMenu = ContextMenuSignalList
type ContextMenuSignalList = ('[ '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, DK.Type)])
#endif
foreign import ccall "webkit_context_menu_new" ::
IO (Ptr ContextMenu)
contextMenuNew ::
(B.CallStack.HasCallStack, MonadIO m) =>
m ContextMenu
= IO ContextMenu -> m ContextMenu
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO ContextMenu -> m ContextMenu)
-> IO ContextMenu -> m ContextMenu
forall a b. (a -> b) -> a -> b
$ do
Ptr ContextMenu
result <- IO (Ptr ContextMenu)
webkit_context_menu_new
Text -> Ptr ContextMenu -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"contextMenuNew" Ptr ContextMenu
result
ContextMenu
result' <- ((ManagedPtr ContextMenu -> ContextMenu)
-> Ptr ContextMenu -> IO ContextMenu
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
wrapObject ManagedPtr ContextMenu -> ContextMenu
ContextMenu) Ptr ContextMenu
result
ContextMenu -> IO ContextMenu
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ContextMenu
result'
#if defined(ENABLE_OVERLOADING)
#endif
foreign import ccall "webkit_context_menu_new_with_items" ::
Ptr (GList (Ptr WebKitWebProcessExtension.ContextMenuItem.ContextMenuItem)) ->
IO (Ptr ContextMenu)
contextMenuNewWithItems ::
(B.CallStack.HasCallStack, MonadIO m, WebKitWebProcessExtension.ContextMenuItem.IsContextMenuItem a) =>
[a]
-> m ContextMenu
[a]
items = IO ContextMenu -> m ContextMenu
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO ContextMenu -> m ContextMenu)
-> IO ContextMenu -> m ContextMenu
forall a b. (a -> b) -> a -> b
$ do
[Ptr ContextMenuItem]
items' <- (a -> IO (Ptr ContextMenuItem)) -> [a] -> IO [Ptr ContextMenuItem]
forall (t :: * -> *) (m :: * -> *) a b.
(Traversable t, Monad m) =>
(a -> m b) -> t a -> m (t b)
forall (m :: * -> *) a b. Monad m => (a -> m b) -> [a] -> m [b]
mapM a -> IO (Ptr ContextMenuItem)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr [a]
items
Ptr (GList (Ptr ContextMenuItem))
items'' <- [Ptr ContextMenuItem] -> IO (Ptr (GList (Ptr ContextMenuItem)))
forall a. [Ptr a] -> IO (Ptr (GList (Ptr a)))
packGList [Ptr ContextMenuItem]
items'
Ptr ContextMenu
result <- Ptr (GList (Ptr ContextMenuItem)) -> IO (Ptr ContextMenu)
webkit_context_menu_new_with_items Ptr (GList (Ptr ContextMenuItem))
items''
Text -> Ptr ContextMenu -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"contextMenuNewWithItems" Ptr ContextMenu
result
ContextMenu
result' <- ((ManagedPtr ContextMenu -> ContextMenu)
-> Ptr ContextMenu -> IO ContextMenu
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
wrapObject ManagedPtr ContextMenu -> ContextMenu
ContextMenu) Ptr ContextMenu
result
(a -> IO ()) -> [a] -> IO ()
forall (t :: * -> *) (m :: * -> *) a b.
(Foldable t, Monad m) =>
(a -> m b) -> t a -> m ()
mapM_ a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr [a]
items
Ptr (GList (Ptr ContextMenuItem)) -> IO ()
forall a. Ptr (GList a) -> IO ()
g_list_free Ptr (GList (Ptr ContextMenuItem))
items''
ContextMenu -> IO ContextMenu
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ContextMenu
result'
#if defined(ENABLE_OVERLOADING)
#endif
foreign import ccall "webkit_context_menu_append" ::
Ptr ContextMenu ->
Ptr WebKitWebProcessExtension.ContextMenuItem.ContextMenuItem ->
IO ()
contextMenuAppend ::
(B.CallStack.HasCallStack, MonadIO m, IsContextMenu a, WebKitWebProcessExtension.ContextMenuItem.IsContextMenuItem b) =>
a
-> b
-> m ()
a
menu b
item = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr ContextMenu
menu' <- a -> IO (Ptr ContextMenu)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
menu
Ptr ContextMenuItem
item' <- b -> IO (Ptr ContextMenuItem)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
item
Ptr ContextMenu -> Ptr ContextMenuItem -> IO ()
webkit_context_menu_append Ptr ContextMenu
menu' Ptr ContextMenuItem
item'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
menu
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
item
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data ContextMenuAppendMethodInfo
instance (signature ~ (b -> m ()), MonadIO m, IsContextMenu a, WebKitWebProcessExtension.ContextMenuItem.IsContextMenuItem b) => O.OverloadedMethod ContextMenuAppendMethodInfo a signature where
overloadedMethod = contextMenuAppend
instance O.OverloadedMethodInfo ContextMenuAppendMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKitWebProcessExtension.Objects.ContextMenu.contextMenuAppend",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkitwebprocessextension-6.0.2/docs/GI-WebKitWebProcessExtension-Objects-ContextMenu.html#v:contextMenuAppend"
})
#endif
foreign import ccall "webkit_context_menu_first" ::
Ptr ContextMenu ->
IO (Ptr WebKitWebProcessExtension.ContextMenuItem.ContextMenuItem)
contextMenuFirst ::
(B.CallStack.HasCallStack, MonadIO m, IsContextMenu a) =>
a
-> m WebKitWebProcessExtension.ContextMenuItem.ContextMenuItem
a
menu = IO ContextMenuItem -> m ContextMenuItem
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO ContextMenuItem -> m ContextMenuItem)
-> IO ContextMenuItem -> m ContextMenuItem
forall a b. (a -> b) -> a -> b
$ do
Ptr ContextMenu
menu' <- a -> IO (Ptr ContextMenu)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
menu
Ptr ContextMenuItem
result <- Ptr ContextMenu -> IO (Ptr ContextMenuItem)
webkit_context_menu_first Ptr ContextMenu
menu'
Text -> Ptr ContextMenuItem -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"contextMenuFirst" Ptr ContextMenuItem
result
ContextMenuItem
result' <- ((ManagedPtr ContextMenuItem -> ContextMenuItem)
-> Ptr ContextMenuItem -> IO ContextMenuItem
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr ContextMenuItem -> ContextMenuItem
WebKitWebProcessExtension.ContextMenuItem.ContextMenuItem) Ptr ContextMenuItem
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
menu
ContextMenuItem -> IO ContextMenuItem
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ContextMenuItem
result'
#if defined(ENABLE_OVERLOADING)
data ContextMenuFirstMethodInfo
instance (signature ~ (m WebKitWebProcessExtension.ContextMenuItem.ContextMenuItem), MonadIO m, IsContextMenu a) => O.OverloadedMethod ContextMenuFirstMethodInfo a signature where
overloadedMethod = contextMenuFirst
instance O.OverloadedMethodInfo ContextMenuFirstMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKitWebProcessExtension.Objects.ContextMenu.contextMenuFirst",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkitwebprocessextension-6.0.2/docs/GI-WebKitWebProcessExtension-Objects-ContextMenu.html#v:contextMenuFirst"
})
#endif
foreign import ccall "webkit_context_menu_get_event" ::
Ptr ContextMenu ->
IO (Ptr Gdk.Event.Event)
contextMenuGetEvent ::
(B.CallStack.HasCallStack, MonadIO m, IsContextMenu a) =>
a
-> m Gdk.Event.Event
a
menu = IO Event -> m Event
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Event -> m Event) -> IO Event -> m Event
forall a b. (a -> b) -> a -> b
$ do
Ptr ContextMenu
menu' <- a -> IO (Ptr ContextMenu)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
menu
Ptr Event
result <- Ptr ContextMenu -> IO (Ptr Event)
webkit_context_menu_get_event Ptr ContextMenu
menu'
Text -> Ptr Event -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"contextMenuGetEvent" Ptr Event
result
Event
result' <- ((ManagedPtr Event -> Event) -> Ptr Event -> IO Event
forall a.
(HasCallStack, BoxedPtr a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
newPtr ManagedPtr Event -> Event
Gdk.Event.Event) Ptr Event
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
menu
Event -> IO Event
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Event
result'
#if defined(ENABLE_OVERLOADING)
data ContextMenuGetEventMethodInfo
instance (signature ~ (m Gdk.Event.Event), MonadIO m, IsContextMenu a) => O.OverloadedMethod ContextMenuGetEventMethodInfo a signature where
overloadedMethod = contextMenuGetEvent
instance O.OverloadedMethodInfo ContextMenuGetEventMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKitWebProcessExtension.Objects.ContextMenu.contextMenuGetEvent",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkitwebprocessextension-6.0.2/docs/GI-WebKitWebProcessExtension-Objects-ContextMenu.html#v:contextMenuGetEvent"
})
#endif
foreign import ccall "webkit_context_menu_get_item_at_position" ::
Ptr ContextMenu ->
Word32 ->
IO (Ptr WebKitWebProcessExtension.ContextMenuItem.ContextMenuItem)
contextMenuGetItemAtPosition ::
(B.CallStack.HasCallStack, MonadIO m, IsContextMenu a) =>
a
-> Word32
-> m WebKitWebProcessExtension.ContextMenuItem.ContextMenuItem
a
menu Word32
position = IO ContextMenuItem -> m ContextMenuItem
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO ContextMenuItem -> m ContextMenuItem)
-> IO ContextMenuItem -> m ContextMenuItem
forall a b. (a -> b) -> a -> b
$ do
Ptr ContextMenu
menu' <- a -> IO (Ptr ContextMenu)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
menu
Ptr ContextMenuItem
result <- Ptr ContextMenu -> Word32 -> IO (Ptr ContextMenuItem)
webkit_context_menu_get_item_at_position Ptr ContextMenu
menu' Word32
position
Text -> Ptr ContextMenuItem -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"contextMenuGetItemAtPosition" Ptr ContextMenuItem
result
ContextMenuItem
result' <- ((ManagedPtr ContextMenuItem -> ContextMenuItem)
-> Ptr ContextMenuItem -> IO ContextMenuItem
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr ContextMenuItem -> ContextMenuItem
WebKitWebProcessExtension.ContextMenuItem.ContextMenuItem) Ptr ContextMenuItem
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
menu
ContextMenuItem -> IO ContextMenuItem
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ContextMenuItem
result'
#if defined(ENABLE_OVERLOADING)
data ContextMenuGetItemAtPositionMethodInfo
instance (signature ~ (Word32 -> m WebKitWebProcessExtension.ContextMenuItem.ContextMenuItem), MonadIO m, IsContextMenu a) => O.OverloadedMethod ContextMenuGetItemAtPositionMethodInfo a signature where
overloadedMethod = contextMenuGetItemAtPosition
instance O.OverloadedMethodInfo ContextMenuGetItemAtPositionMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKitWebProcessExtension.Objects.ContextMenu.contextMenuGetItemAtPosition",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkitwebprocessextension-6.0.2/docs/GI-WebKitWebProcessExtension-Objects-ContextMenu.html#v:contextMenuGetItemAtPosition"
})
#endif
foreign import ccall "webkit_context_menu_get_items" ::
Ptr ContextMenu ->
IO (Ptr (GList (Ptr WebKitWebProcessExtension.ContextMenuItem.ContextMenuItem)))
contextMenuGetItems ::
(B.CallStack.HasCallStack, MonadIO m, IsContextMenu a) =>
a
-> m [WebKitWebProcessExtension.ContextMenuItem.ContextMenuItem]
a
menu = IO [ContextMenuItem] -> m [ContextMenuItem]
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO [ContextMenuItem] -> m [ContextMenuItem])
-> IO [ContextMenuItem] -> m [ContextMenuItem]
forall a b. (a -> b) -> a -> b
$ do
Ptr ContextMenu
menu' <- a -> IO (Ptr ContextMenu)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
menu
Ptr (GList (Ptr ContextMenuItem))
result <- Ptr ContextMenu -> IO (Ptr (GList (Ptr ContextMenuItem)))
webkit_context_menu_get_items Ptr ContextMenu
menu'
[Ptr ContextMenuItem]
result' <- Ptr (GList (Ptr ContextMenuItem)) -> IO [Ptr ContextMenuItem]
forall a. Ptr (GList (Ptr a)) -> IO [Ptr a]
unpackGList Ptr (GList (Ptr ContextMenuItem))
result
[ContextMenuItem]
result'' <- (Ptr ContextMenuItem -> IO ContextMenuItem)
-> [Ptr ContextMenuItem] -> IO [ContextMenuItem]
forall (t :: * -> *) (m :: * -> *) a b.
(Traversable t, Monad m) =>
(a -> m b) -> t a -> m (t b)
forall (m :: * -> *) a b. Monad m => (a -> m b) -> [a] -> m [b]
mapM ((ManagedPtr ContextMenuItem -> ContextMenuItem)
-> Ptr ContextMenuItem -> IO ContextMenuItem
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr ContextMenuItem -> ContextMenuItem
WebKitWebProcessExtension.ContextMenuItem.ContextMenuItem) [Ptr ContextMenuItem]
result'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
menu
[ContextMenuItem] -> IO [ContextMenuItem]
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return [ContextMenuItem]
result''
#if defined(ENABLE_OVERLOADING)
data ContextMenuGetItemsMethodInfo
instance (signature ~ (m [WebKitWebProcessExtension.ContextMenuItem.ContextMenuItem]), MonadIO m, IsContextMenu a) => O.OverloadedMethod ContextMenuGetItemsMethodInfo a signature where
overloadedMethod = contextMenuGetItems
instance O.OverloadedMethodInfo ContextMenuGetItemsMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKitWebProcessExtension.Objects.ContextMenu.contextMenuGetItems",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkitwebprocessextension-6.0.2/docs/GI-WebKitWebProcessExtension-Objects-ContextMenu.html#v:contextMenuGetItems"
})
#endif
foreign import ccall "webkit_context_menu_get_n_items" ::
Ptr ContextMenu ->
IO Word32
contextMenuGetNItems ::
(B.CallStack.HasCallStack, MonadIO m, IsContextMenu a) =>
a
-> m Word32
a
menu = IO Word32 -> m Word32
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Word32 -> m Word32) -> IO Word32 -> m Word32
forall a b. (a -> b) -> a -> b
$ do
Ptr ContextMenu
menu' <- a -> IO (Ptr ContextMenu)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
menu
Word32
result <- Ptr ContextMenu -> IO Word32
webkit_context_menu_get_n_items Ptr ContextMenu
menu'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
menu
Word32 -> IO Word32
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Word32
result
#if defined(ENABLE_OVERLOADING)
data ContextMenuGetNItemsMethodInfo
instance (signature ~ (m Word32), MonadIO m, IsContextMenu a) => O.OverloadedMethod ContextMenuGetNItemsMethodInfo a signature where
overloadedMethod = contextMenuGetNItems
instance O.OverloadedMethodInfo ContextMenuGetNItemsMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKitWebProcessExtension.Objects.ContextMenu.contextMenuGetNItems",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkitwebprocessextension-6.0.2/docs/GI-WebKitWebProcessExtension-Objects-ContextMenu.html#v:contextMenuGetNItems"
})
#endif
foreign import ccall "webkit_context_menu_get_user_data" ::
Ptr ContextMenu ->
IO (Ptr GVariant)
contextMenuGetUserData ::
(B.CallStack.HasCallStack, MonadIO m, IsContextMenu a) =>
a
-> m GVariant
a
menu = IO GVariant -> m GVariant
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO GVariant -> m GVariant) -> IO GVariant -> m GVariant
forall a b. (a -> b) -> a -> b
$ do
Ptr ContextMenu
menu' <- a -> IO (Ptr ContextMenu)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
menu
Ptr GVariant
result <- Ptr ContextMenu -> IO (Ptr GVariant)
webkit_context_menu_get_user_data Ptr ContextMenu
menu'
Text -> Ptr GVariant -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"contextMenuGetUserData" Ptr GVariant
result
GVariant
result' <- Ptr GVariant -> IO GVariant
B.GVariant.newGVariantFromPtr Ptr GVariant
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
menu
GVariant -> IO GVariant
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return GVariant
result'
#if defined(ENABLE_OVERLOADING)
data ContextMenuGetUserDataMethodInfo
instance (signature ~ (m GVariant), MonadIO m, IsContextMenu a) => O.OverloadedMethod ContextMenuGetUserDataMethodInfo a signature where
overloadedMethod = contextMenuGetUserData
instance O.OverloadedMethodInfo ContextMenuGetUserDataMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKitWebProcessExtension.Objects.ContextMenu.contextMenuGetUserData",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkitwebprocessextension-6.0.2/docs/GI-WebKitWebProcessExtension-Objects-ContextMenu.html#v:contextMenuGetUserData"
})
#endif
foreign import ccall "webkit_context_menu_insert" ::
Ptr ContextMenu ->
Ptr WebKitWebProcessExtension.ContextMenuItem.ContextMenuItem ->
Int32 ->
IO ()
contextMenuInsert ::
(B.CallStack.HasCallStack, MonadIO m, IsContextMenu a, WebKitWebProcessExtension.ContextMenuItem.IsContextMenuItem b) =>
a
-> b
-> Int32
-> m ()
a
menu b
item Int32
position = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr ContextMenu
menu' <- a -> IO (Ptr ContextMenu)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
menu
Ptr ContextMenuItem
item' <- b -> IO (Ptr ContextMenuItem)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
item
Ptr ContextMenu -> Ptr ContextMenuItem -> Int32 -> IO ()
webkit_context_menu_insert Ptr ContextMenu
menu' Ptr ContextMenuItem
item' Int32
position
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
menu
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
item
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data ContextMenuInsertMethodInfo
instance (signature ~ (b -> Int32 -> m ()), MonadIO m, IsContextMenu a, WebKitWebProcessExtension.ContextMenuItem.IsContextMenuItem b) => O.OverloadedMethod ContextMenuInsertMethodInfo a signature where
overloadedMethod = contextMenuInsert
instance O.OverloadedMethodInfo ContextMenuInsertMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKitWebProcessExtension.Objects.ContextMenu.contextMenuInsert",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkitwebprocessextension-6.0.2/docs/GI-WebKitWebProcessExtension-Objects-ContextMenu.html#v:contextMenuInsert"
})
#endif
foreign import ccall "webkit_context_menu_last" ::
Ptr ContextMenu ->
IO (Ptr WebKitWebProcessExtension.ContextMenuItem.ContextMenuItem)
contextMenuLast ::
(B.CallStack.HasCallStack, MonadIO m, IsContextMenu a) =>
a
-> m WebKitWebProcessExtension.ContextMenuItem.ContextMenuItem
a
menu = IO ContextMenuItem -> m ContextMenuItem
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO ContextMenuItem -> m ContextMenuItem)
-> IO ContextMenuItem -> m ContextMenuItem
forall a b. (a -> b) -> a -> b
$ do
Ptr ContextMenu
menu' <- a -> IO (Ptr ContextMenu)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
menu
Ptr ContextMenuItem
result <- Ptr ContextMenu -> IO (Ptr ContextMenuItem)
webkit_context_menu_last Ptr ContextMenu
menu'
Text -> Ptr ContextMenuItem -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"contextMenuLast" Ptr ContextMenuItem
result
ContextMenuItem
result' <- ((ManagedPtr ContextMenuItem -> ContextMenuItem)
-> Ptr ContextMenuItem -> IO ContextMenuItem
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr ContextMenuItem -> ContextMenuItem
WebKitWebProcessExtension.ContextMenuItem.ContextMenuItem) Ptr ContextMenuItem
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
menu
ContextMenuItem -> IO ContextMenuItem
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ContextMenuItem
result'
#if defined(ENABLE_OVERLOADING)
data ContextMenuLastMethodInfo
instance (signature ~ (m WebKitWebProcessExtension.ContextMenuItem.ContextMenuItem), MonadIO m, IsContextMenu a) => O.OverloadedMethod ContextMenuLastMethodInfo a signature where
overloadedMethod = contextMenuLast
instance O.OverloadedMethodInfo ContextMenuLastMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKitWebProcessExtension.Objects.ContextMenu.contextMenuLast",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkitwebprocessextension-6.0.2/docs/GI-WebKitWebProcessExtension-Objects-ContextMenu.html#v:contextMenuLast"
})
#endif
foreign import ccall "webkit_context_menu_move_item" ::
Ptr ContextMenu ->
Ptr WebKitWebProcessExtension.ContextMenuItem.ContextMenuItem ->
Int32 ->
IO ()
contextMenuMoveItem ::
(B.CallStack.HasCallStack, MonadIO m, IsContextMenu a, WebKitWebProcessExtension.ContextMenuItem.IsContextMenuItem b) =>
a
-> b
-> Int32
-> m ()
a
menu b
item Int32
position = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr ContextMenu
menu' <- a -> IO (Ptr ContextMenu)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
menu
Ptr ContextMenuItem
item' <- b -> IO (Ptr ContextMenuItem)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
item
Ptr ContextMenu -> Ptr ContextMenuItem -> Int32 -> IO ()
webkit_context_menu_move_item Ptr ContextMenu
menu' Ptr ContextMenuItem
item' Int32
position
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
menu
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
item
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data ContextMenuMoveItemMethodInfo
instance (signature ~ (b -> Int32 -> m ()), MonadIO m, IsContextMenu a, WebKitWebProcessExtension.ContextMenuItem.IsContextMenuItem b) => O.OverloadedMethod ContextMenuMoveItemMethodInfo a signature where
overloadedMethod = contextMenuMoveItem
instance O.OverloadedMethodInfo ContextMenuMoveItemMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKitWebProcessExtension.Objects.ContextMenu.contextMenuMoveItem",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkitwebprocessextension-6.0.2/docs/GI-WebKitWebProcessExtension-Objects-ContextMenu.html#v:contextMenuMoveItem"
})
#endif
foreign import ccall "webkit_context_menu_prepend" ::
Ptr ContextMenu ->
Ptr WebKitWebProcessExtension.ContextMenuItem.ContextMenuItem ->
IO ()
contextMenuPrepend ::
(B.CallStack.HasCallStack, MonadIO m, IsContextMenu a, WebKitWebProcessExtension.ContextMenuItem.IsContextMenuItem b) =>
a
-> b
-> m ()
a
menu b
item = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr ContextMenu
menu' <- a -> IO (Ptr ContextMenu)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
menu
Ptr ContextMenuItem
item' <- b -> IO (Ptr ContextMenuItem)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
item
Ptr ContextMenu -> Ptr ContextMenuItem -> IO ()
webkit_context_menu_prepend Ptr ContextMenu
menu' Ptr ContextMenuItem
item'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
menu
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
item
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data ContextMenuPrependMethodInfo
instance (signature ~ (b -> m ()), MonadIO m, IsContextMenu a, WebKitWebProcessExtension.ContextMenuItem.IsContextMenuItem b) => O.OverloadedMethod ContextMenuPrependMethodInfo a signature where
overloadedMethod = contextMenuPrepend
instance O.OverloadedMethodInfo ContextMenuPrependMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKitWebProcessExtension.Objects.ContextMenu.contextMenuPrepend",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkitwebprocessextension-6.0.2/docs/GI-WebKitWebProcessExtension-Objects-ContextMenu.html#v:contextMenuPrepend"
})
#endif
foreign import ccall "webkit_context_menu_remove" ::
Ptr ContextMenu ->
Ptr WebKitWebProcessExtension.ContextMenuItem.ContextMenuItem ->
IO ()
contextMenuRemove ::
(B.CallStack.HasCallStack, MonadIO m, IsContextMenu a, WebKitWebProcessExtension.ContextMenuItem.IsContextMenuItem b) =>
a
-> b
-> m ()
a
menu b
item = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr ContextMenu
menu' <- a -> IO (Ptr ContextMenu)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
menu
Ptr ContextMenuItem
item' <- b -> IO (Ptr ContextMenuItem)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
item
Ptr ContextMenu -> Ptr ContextMenuItem -> IO ()
webkit_context_menu_remove Ptr ContextMenu
menu' Ptr ContextMenuItem
item'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
menu
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
item
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data ContextMenuRemoveMethodInfo
instance (signature ~ (b -> m ()), MonadIO m, IsContextMenu a, WebKitWebProcessExtension.ContextMenuItem.IsContextMenuItem b) => O.OverloadedMethod ContextMenuRemoveMethodInfo a signature where
overloadedMethod = contextMenuRemove
instance O.OverloadedMethodInfo ContextMenuRemoveMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKitWebProcessExtension.Objects.ContextMenu.contextMenuRemove",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkitwebprocessextension-6.0.2/docs/GI-WebKitWebProcessExtension-Objects-ContextMenu.html#v:contextMenuRemove"
})
#endif
foreign import ccall "webkit_context_menu_remove_all" ::
Ptr ContextMenu ->
IO ()
contextMenuRemoveAll ::
(B.CallStack.HasCallStack, MonadIO m, IsContextMenu a) =>
a
-> m ()
a
menu = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr ContextMenu
menu' <- a -> IO (Ptr ContextMenu)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
menu
Ptr ContextMenu -> IO ()
webkit_context_menu_remove_all Ptr ContextMenu
menu'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
menu
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data ContextMenuRemoveAllMethodInfo
instance (signature ~ (m ()), MonadIO m, IsContextMenu a) => O.OverloadedMethod ContextMenuRemoveAllMethodInfo a signature where
overloadedMethod = contextMenuRemoveAll
instance O.OverloadedMethodInfo ContextMenuRemoveAllMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKitWebProcessExtension.Objects.ContextMenu.contextMenuRemoveAll",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkitwebprocessextension-6.0.2/docs/GI-WebKitWebProcessExtension-Objects-ContextMenu.html#v:contextMenuRemoveAll"
})
#endif
foreign import ccall "webkit_context_menu_set_user_data" ::
Ptr ContextMenu ->
Ptr GVariant ->
IO ()
contextMenuSetUserData ::
(B.CallStack.HasCallStack, MonadIO m, IsContextMenu a) =>
a
-> GVariant
-> m ()
a
menu GVariant
userData = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr ContextMenu
menu' <- a -> IO (Ptr ContextMenu)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
menu
Ptr GVariant
userData' <- GVariant -> IO (Ptr GVariant)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr GVariant
userData
Ptr ContextMenu -> Ptr GVariant -> IO ()
webkit_context_menu_set_user_data Ptr ContextMenu
menu' Ptr GVariant
userData'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
menu
GVariant -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr GVariant
userData
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data ContextMenuSetUserDataMethodInfo
instance (signature ~ (GVariant -> m ()), MonadIO m, IsContextMenu a) => O.OverloadedMethod ContextMenuSetUserDataMethodInfo a signature where
overloadedMethod = contextMenuSetUserData
instance O.OverloadedMethodInfo ContextMenuSetUserDataMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKitWebProcessExtension.Objects.ContextMenu.contextMenuSetUserData",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkitwebprocessextension-6.0.2/docs/GI-WebKitWebProcessExtension-Objects-ContextMenu.html#v:contextMenuSetUserData"
})
#endif