#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \
&& !defined(__HADDOCK_VERSION__))
module GI.WebKit2.Objects.ContextMenuItem
(
ContextMenuItem(..) ,
IsContextMenuItem ,
toContextMenuItem ,
noContextMenuItem ,
#if ENABLE_OVERLOADING
ContextMenuItemGetActionMethodInfo ,
#endif
contextMenuItemGetAction ,
#if ENABLE_OVERLOADING
ContextMenuItemGetGactionMethodInfo ,
#endif
contextMenuItemGetGaction ,
#if ENABLE_OVERLOADING
ContextMenuItemGetStockActionMethodInfo ,
#endif
contextMenuItemGetStockAction ,
#if ENABLE_OVERLOADING
ContextMenuItemGetSubmenuMethodInfo ,
#endif
contextMenuItemGetSubmenu ,
#if ENABLE_OVERLOADING
ContextMenuItemIsSeparatorMethodInfo ,
#endif
contextMenuItemIsSeparator ,
contextMenuItemNew ,
contextMenuItemNewFromGaction ,
contextMenuItemNewFromStockAction ,
contextMenuItemNewFromStockActionWithLabel,
contextMenuItemNewSeparator ,
contextMenuItemNewWithSubmenu ,
#if ENABLE_OVERLOADING
ContextMenuItemSetSubmenuMethodInfo ,
#endif
contextMenuItemSetSubmenu ,
) 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.ManagedPtr as B.ManagedPtr
import qualified Data.GI.Base.GClosure as B.GClosure
import qualified Data.GI.Base.GError as B.GError
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.Text as T
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 GI.GObject.Objects.Object as GObject.Object
import qualified GI.Gio.Interfaces.Action as Gio.Action
import qualified GI.Gtk.Objects.Action as Gtk.Action
import {-# SOURCE #-} qualified GI.WebKit2.Enums as WebKit2.Enums
import {-# SOURCE #-} qualified GI.WebKit2.Objects.ContextMenu as WebKit2.ContextMenu
newtype ContextMenuItem = ContextMenuItem (ManagedPtr ContextMenuItem)
foreign import ccall "webkit_context_menu_item_get_type"
c_webkit_context_menu_item_get_type :: IO GType
instance GObject ContextMenuItem where
gobjectType = c_webkit_context_menu_item_get_type
class (GObject o, O.IsDescendantOf ContextMenuItem o) => IsContextMenuItem o
instance (GObject o, O.IsDescendantOf ContextMenuItem o) => IsContextMenuItem o
instance O.HasParentTypes ContextMenuItem
type instance O.ParentTypes ContextMenuItem = '[GObject.Object.Object]
toContextMenuItem :: (MonadIO m, IsContextMenuItem o) => o -> m ContextMenuItem
toContextMenuItem = liftIO . unsafeCastTo ContextMenuItem
noContextMenuItem :: Maybe ContextMenuItem
noContextMenuItem = Nothing
#if ENABLE_OVERLOADING
type family ResolveContextMenuItemMethod (t :: Symbol) (o :: *) :: * where
ResolveContextMenuItemMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
ResolveContextMenuItemMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
ResolveContextMenuItemMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
ResolveContextMenuItemMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
ResolveContextMenuItemMethod "getv" o = GObject.Object.ObjectGetvMethodInfo
ResolveContextMenuItemMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo
ResolveContextMenuItemMethod "isSeparator" o = ContextMenuItemIsSeparatorMethodInfo
ResolveContextMenuItemMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
ResolveContextMenuItemMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
ResolveContextMenuItemMethod "ref" o = GObject.Object.ObjectRefMethodInfo
ResolveContextMenuItemMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
ResolveContextMenuItemMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
ResolveContextMenuItemMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
ResolveContextMenuItemMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
ResolveContextMenuItemMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo
ResolveContextMenuItemMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo
ResolveContextMenuItemMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
ResolveContextMenuItemMethod "getAction" o = ContextMenuItemGetActionMethodInfo
ResolveContextMenuItemMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
ResolveContextMenuItemMethod "getGaction" o = ContextMenuItemGetGactionMethodInfo
ResolveContextMenuItemMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo
ResolveContextMenuItemMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo
ResolveContextMenuItemMethod "getStockAction" o = ContextMenuItemGetStockActionMethodInfo
ResolveContextMenuItemMethod "getSubmenu" o = ContextMenuItemGetSubmenuMethodInfo
ResolveContextMenuItemMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
ResolveContextMenuItemMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
ResolveContextMenuItemMethod "setSubmenu" o = ContextMenuItemSetSubmenuMethodInfo
ResolveContextMenuItemMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveContextMenuItemMethod t ContextMenuItem, O.MethodInfo info ContextMenuItem p) => OL.IsLabel t (ContextMenuItem -> p) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)
#else
fromLabel _ = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)
#endif
#endif
#if ENABLE_OVERLOADING
instance O.HasAttributeList ContextMenuItem
type instance O.AttributeList ContextMenuItem = ContextMenuItemAttributeList
type ContextMenuItemAttributeList = ('[ ] :: [(Symbol, *)])
#endif
#if ENABLE_OVERLOADING
#endif
#if ENABLE_OVERLOADING
type instance O.SignalList ContextMenuItem = ContextMenuItemSignalList
type ContextMenuItemSignalList = ('[ '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])
#endif
foreign import ccall "webkit_context_menu_item_new" webkit_context_menu_item_new ::
Ptr Gtk.Action.Action ->
IO (Ptr ContextMenuItem)
{-# DEPRECATED contextMenuItemNew ["(Since version 2.18)","Use 'GI.WebKit2.Objects.ContextMenuItem.contextMenuItemNewFromGaction' instead."] #-}
contextMenuItemNew ::
(B.CallStack.HasCallStack, MonadIO m, Gtk.Action.IsAction a) =>
a
-> m ContextMenuItem
contextMenuItemNew action = liftIO $ do
action' <- unsafeManagedPtrCastPtr action
result <- webkit_context_menu_item_new action'
checkUnexpectedReturnNULL "contextMenuItemNew" result
result' <- (newObject ContextMenuItem) result
touchManagedPtr action
return result'
#if ENABLE_OVERLOADING
#endif
foreign import ccall "webkit_context_menu_item_new_from_gaction" webkit_context_menu_item_new_from_gaction ::
Ptr Gio.Action.Action ->
CString ->
Ptr GVariant ->
IO (Ptr ContextMenuItem)
contextMenuItemNewFromGaction ::
(B.CallStack.HasCallStack, MonadIO m, Gio.Action.IsAction a) =>
a
-> T.Text
-> Maybe (GVariant)
-> m ContextMenuItem
contextMenuItemNewFromGaction action label target = liftIO $ do
action' <- unsafeManagedPtrCastPtr action
label' <- textToCString label
maybeTarget <- case target of
Nothing -> return nullPtr
Just jTarget -> do
jTarget' <- unsafeManagedPtrGetPtr jTarget
return jTarget'
result <- webkit_context_menu_item_new_from_gaction action' label' maybeTarget
checkUnexpectedReturnNULL "contextMenuItemNewFromGaction" result
result' <- (newObject ContextMenuItem) result
touchManagedPtr action
whenJust target touchManagedPtr
freeMem label'
return result'
#if ENABLE_OVERLOADING
#endif
foreign import ccall "webkit_context_menu_item_new_from_stock_action" webkit_context_menu_item_new_from_stock_action ::
CUInt ->
IO (Ptr ContextMenuItem)
contextMenuItemNewFromStockAction ::
(B.CallStack.HasCallStack, MonadIO m) =>
WebKit2.Enums.ContextMenuAction
-> m ContextMenuItem
contextMenuItemNewFromStockAction action = liftIO $ do
let action' = (fromIntegral . fromEnum) action
result <- webkit_context_menu_item_new_from_stock_action action'
checkUnexpectedReturnNULL "contextMenuItemNewFromStockAction" result
result' <- (newObject ContextMenuItem) result
return result'
#if ENABLE_OVERLOADING
#endif
foreign import ccall "webkit_context_menu_item_new_from_stock_action_with_label" webkit_context_menu_item_new_from_stock_action_with_label ::
CUInt ->
CString ->
IO (Ptr ContextMenuItem)
contextMenuItemNewFromStockActionWithLabel ::
(B.CallStack.HasCallStack, MonadIO m) =>
WebKit2.Enums.ContextMenuAction
-> T.Text
-> m ContextMenuItem
contextMenuItemNewFromStockActionWithLabel action label = liftIO $ do
let action' = (fromIntegral . fromEnum) action
label' <- textToCString label
result <- webkit_context_menu_item_new_from_stock_action_with_label action' label'
checkUnexpectedReturnNULL "contextMenuItemNewFromStockActionWithLabel" result
result' <- (newObject ContextMenuItem) result
freeMem label'
return result'
#if ENABLE_OVERLOADING
#endif
foreign import ccall "webkit_context_menu_item_new_separator" webkit_context_menu_item_new_separator ::
IO (Ptr ContextMenuItem)
contextMenuItemNewSeparator ::
(B.CallStack.HasCallStack, MonadIO m) =>
m ContextMenuItem
contextMenuItemNewSeparator = liftIO $ do
result <- webkit_context_menu_item_new_separator
checkUnexpectedReturnNULL "contextMenuItemNewSeparator" result
result' <- (newObject ContextMenuItem) result
return result'
#if ENABLE_OVERLOADING
#endif
foreign import ccall "webkit_context_menu_item_new_with_submenu" webkit_context_menu_item_new_with_submenu ::
CString ->
Ptr WebKit2.ContextMenu.ContextMenu ->
IO (Ptr ContextMenuItem)
contextMenuItemNewWithSubmenu ::
(B.CallStack.HasCallStack, MonadIO m, WebKit2.ContextMenu.IsContextMenu a) =>
T.Text
-> a
-> m ContextMenuItem
contextMenuItemNewWithSubmenu label submenu = liftIO $ do
label' <- textToCString label
submenu' <- unsafeManagedPtrCastPtr submenu
result <- webkit_context_menu_item_new_with_submenu label' submenu'
checkUnexpectedReturnNULL "contextMenuItemNewWithSubmenu" result
result' <- (newObject ContextMenuItem) result
touchManagedPtr submenu
freeMem label'
return result'
#if ENABLE_OVERLOADING
#endif
foreign import ccall "webkit_context_menu_item_get_action" webkit_context_menu_item_get_action ::
Ptr ContextMenuItem ->
IO (Ptr Gtk.Action.Action)
{-# DEPRECATED contextMenuItemGetAction ["(Since version 2.18)","Use 'GI.WebKit2.Objects.ContextMenuItem.contextMenuItemGetGaction' instead."] #-}
contextMenuItemGetAction ::
(B.CallStack.HasCallStack, MonadIO m, IsContextMenuItem a) =>
a
-> m (Maybe Gtk.Action.Action)
contextMenuItemGetAction item = liftIO $ do
item' <- unsafeManagedPtrCastPtr item
result <- webkit_context_menu_item_get_action item'
maybeResult <- convertIfNonNull result $ \result' -> do
result'' <- (newObject Gtk.Action.Action) result'
return result''
touchManagedPtr item
return maybeResult
#if ENABLE_OVERLOADING
data ContextMenuItemGetActionMethodInfo
instance (signature ~ (m (Maybe Gtk.Action.Action)), MonadIO m, IsContextMenuItem a) => O.MethodInfo ContextMenuItemGetActionMethodInfo a signature where
overloadedMethod _ = contextMenuItemGetAction
#endif
foreign import ccall "webkit_context_menu_item_get_gaction" webkit_context_menu_item_get_gaction ::
Ptr ContextMenuItem ->
IO (Ptr Gio.Action.Action)
contextMenuItemGetGaction ::
(B.CallStack.HasCallStack, MonadIO m, IsContextMenuItem a) =>
a
-> m (Maybe Gio.Action.Action)
contextMenuItemGetGaction item = liftIO $ do
item' <- unsafeManagedPtrCastPtr item
result <- webkit_context_menu_item_get_gaction item'
maybeResult <- convertIfNonNull result $ \result' -> do
result'' <- (newObject Gio.Action.Action) result'
return result''
touchManagedPtr item
return maybeResult
#if ENABLE_OVERLOADING
data ContextMenuItemGetGactionMethodInfo
instance (signature ~ (m (Maybe Gio.Action.Action)), MonadIO m, IsContextMenuItem a) => O.MethodInfo ContextMenuItemGetGactionMethodInfo a signature where
overloadedMethod _ = contextMenuItemGetGaction
#endif
foreign import ccall "webkit_context_menu_item_get_stock_action" webkit_context_menu_item_get_stock_action ::
Ptr ContextMenuItem ->
IO CUInt
contextMenuItemGetStockAction ::
(B.CallStack.HasCallStack, MonadIO m, IsContextMenuItem a) =>
a
-> m WebKit2.Enums.ContextMenuAction
contextMenuItemGetStockAction item = liftIO $ do
item' <- unsafeManagedPtrCastPtr item
result <- webkit_context_menu_item_get_stock_action item'
let result' = (toEnum . fromIntegral) result
touchManagedPtr item
return result'
#if ENABLE_OVERLOADING
data ContextMenuItemGetStockActionMethodInfo
instance (signature ~ (m WebKit2.Enums.ContextMenuAction), MonadIO m, IsContextMenuItem a) => O.MethodInfo ContextMenuItemGetStockActionMethodInfo a signature where
overloadedMethod _ = contextMenuItemGetStockAction
#endif
foreign import ccall "webkit_context_menu_item_get_submenu" webkit_context_menu_item_get_submenu ::
Ptr ContextMenuItem ->
IO (Ptr WebKit2.ContextMenu.ContextMenu)
contextMenuItemGetSubmenu ::
(B.CallStack.HasCallStack, MonadIO m, IsContextMenuItem a) =>
a
-> m (Maybe WebKit2.ContextMenu.ContextMenu)
contextMenuItemGetSubmenu item = liftIO $ do
item' <- unsafeManagedPtrCastPtr item
result <- webkit_context_menu_item_get_submenu item'
maybeResult <- convertIfNonNull result $ \result' -> do
result'' <- (newObject WebKit2.ContextMenu.ContextMenu) result'
return result''
touchManagedPtr item
return maybeResult
#if ENABLE_OVERLOADING
data ContextMenuItemGetSubmenuMethodInfo
instance (signature ~ (m (Maybe WebKit2.ContextMenu.ContextMenu)), MonadIO m, IsContextMenuItem a) => O.MethodInfo ContextMenuItemGetSubmenuMethodInfo a signature where
overloadedMethod _ = contextMenuItemGetSubmenu
#endif
foreign import ccall "webkit_context_menu_item_is_separator" webkit_context_menu_item_is_separator ::
Ptr ContextMenuItem ->
IO CInt
contextMenuItemIsSeparator ::
(B.CallStack.HasCallStack, MonadIO m, IsContextMenuItem a) =>
a
-> m Bool
contextMenuItemIsSeparator item = liftIO $ do
item' <- unsafeManagedPtrCastPtr item
result <- webkit_context_menu_item_is_separator item'
let result' = (/= 0) result
touchManagedPtr item
return result'
#if ENABLE_OVERLOADING
data ContextMenuItemIsSeparatorMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsContextMenuItem a) => O.MethodInfo ContextMenuItemIsSeparatorMethodInfo a signature where
overloadedMethod _ = contextMenuItemIsSeparator
#endif
foreign import ccall "webkit_context_menu_item_set_submenu" webkit_context_menu_item_set_submenu ::
Ptr ContextMenuItem ->
Ptr WebKit2.ContextMenu.ContextMenu ->
IO ()
contextMenuItemSetSubmenu ::
(B.CallStack.HasCallStack, MonadIO m, IsContextMenuItem a, WebKit2.ContextMenu.IsContextMenu b) =>
a
-> Maybe (b)
-> m ()
contextMenuItemSetSubmenu item submenu = liftIO $ do
item' <- unsafeManagedPtrCastPtr item
maybeSubmenu <- case submenu of
Nothing -> return nullPtr
Just jSubmenu -> do
jSubmenu' <- unsafeManagedPtrCastPtr jSubmenu
return jSubmenu'
webkit_context_menu_item_set_submenu item' maybeSubmenu
touchManagedPtr item
whenJust submenu touchManagedPtr
return ()
#if ENABLE_OVERLOADING
data ContextMenuItemSetSubmenuMethodInfo
instance (signature ~ (Maybe (b) -> m ()), MonadIO m, IsContextMenuItem a, WebKit2.ContextMenu.IsContextMenu b) => O.MethodInfo ContextMenuItemSetSubmenuMethodInfo a signature where
overloadedMethod _ = contextMenuItemSetSubmenu
#endif