gi-gtk-0.3.16.12: GI/Gtk/Objects/UIManager.hs
{- |
Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte
License : LGPL-2.1
Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)
-}
module GI.Gtk.Objects.UIManager
(
-- * Exported types
UIManager(..) ,
UIManagerK ,
toUIManager ,
noUIManager ,
-- * Methods
-- ** uIManagerAddUi
uIManagerAddUi ,
-- ** uIManagerAddUiFromFile
uIManagerAddUiFromFile ,
-- ** uIManagerAddUiFromResource
uIManagerAddUiFromResource ,
-- ** uIManagerAddUiFromString
uIManagerAddUiFromString ,
-- ** uIManagerEnsureUpdate
uIManagerEnsureUpdate ,
-- ** uIManagerGetAccelGroup
uIManagerGetAccelGroup ,
-- ** uIManagerGetAction
uIManagerGetAction ,
-- ** uIManagerGetActionGroups
uIManagerGetActionGroups ,
-- ** uIManagerGetAddTearoffs
uIManagerGetAddTearoffs ,
-- ** uIManagerGetToplevels
uIManagerGetToplevels ,
-- ** uIManagerGetUi
uIManagerGetUi ,
-- ** uIManagerGetWidget
uIManagerGetWidget ,
-- ** uIManagerInsertActionGroup
uIManagerInsertActionGroup ,
-- ** uIManagerNew
uIManagerNew ,
-- ** uIManagerNewMergeId
uIManagerNewMergeId ,
-- ** uIManagerRemoveActionGroup
uIManagerRemoveActionGroup ,
-- ** uIManagerRemoveUi
uIManagerRemoveUi ,
-- ** uIManagerSetAddTearoffs
uIManagerSetAddTearoffs ,
-- * Properties
-- ** AddTearoffs
UIManagerAddTearoffsPropertyInfo ,
constructUIManagerAddTearoffs ,
getUIManagerAddTearoffs ,
setUIManagerAddTearoffs ,
-- ** Ui
UIManagerUiPropertyInfo ,
getUIManagerUi ,
-- * Signals
-- ** ActionsChanged
UIManagerActionsChangedCallback ,
UIManagerActionsChangedCallbackC ,
UIManagerActionsChangedSignalInfo ,
afterUIManagerActionsChanged ,
mkUIManagerActionsChangedCallback ,
noUIManagerActionsChangedCallback ,
onUIManagerActionsChanged ,
uIManagerActionsChangedCallbackWrapper ,
uIManagerActionsChangedClosure ,
-- ** AddWidget
UIManagerAddWidgetCallback ,
UIManagerAddWidgetCallbackC ,
UIManagerAddWidgetSignalInfo ,
afterUIManagerAddWidget ,
mkUIManagerAddWidgetCallback ,
noUIManagerAddWidgetCallback ,
onUIManagerAddWidget ,
uIManagerAddWidgetCallbackWrapper ,
uIManagerAddWidgetClosure ,
-- ** ConnectProxy
UIManagerConnectProxyCallback ,
UIManagerConnectProxyCallbackC ,
UIManagerConnectProxySignalInfo ,
afterUIManagerConnectProxy ,
mkUIManagerConnectProxyCallback ,
noUIManagerConnectProxyCallback ,
onUIManagerConnectProxy ,
uIManagerConnectProxyCallbackWrapper ,
uIManagerConnectProxyClosure ,
-- ** DisconnectProxy
UIManagerDisconnectProxyCallback ,
UIManagerDisconnectProxyCallbackC ,
UIManagerDisconnectProxySignalInfo ,
afterUIManagerDisconnectProxy ,
mkUIManagerDisconnectProxyCallback ,
noUIManagerDisconnectProxyCallback ,
onUIManagerDisconnectProxy ,
uIManagerDisconnectProxyCallbackWrapper ,
uIManagerDisconnectProxyClosure ,
-- ** PostActivate
UIManagerPostActivateCallback ,
UIManagerPostActivateCallbackC ,
UIManagerPostActivateSignalInfo ,
afterUIManagerPostActivate ,
mkUIManagerPostActivateCallback ,
noUIManagerPostActivateCallback ,
onUIManagerPostActivate ,
uIManagerPostActivateCallbackWrapper ,
uIManagerPostActivateClosure ,
-- ** PreActivate
UIManagerPreActivateCallback ,
UIManagerPreActivateCallbackC ,
UIManagerPreActivateSignalInfo ,
afterUIManagerPreActivate ,
mkUIManagerPreActivateCallback ,
noUIManagerPreActivateCallback ,
onUIManagerPreActivate ,
uIManagerPreActivateCallbackWrapper ,
uIManagerPreActivateClosure ,
) where
import Prelude ()
import Data.GI.Base.ShortPrelude
import qualified Data.Text as T
import qualified Data.ByteString.Char8 as B
import qualified Data.Map as Map
import GI.Gtk.Types
import GI.Gtk.Callbacks
import qualified GI.GObject as GObject
newtype UIManager = UIManager (ForeignPtr UIManager)
foreign import ccall "gtk_ui_manager_get_type"
c_gtk_ui_manager_get_type :: IO GType
type instance ParentTypes UIManager = UIManagerParentTypes
type UIManagerParentTypes = '[GObject.Object, Buildable]
instance GObject UIManager where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_gtk_ui_manager_get_type
class GObject o => UIManagerK o
instance (GObject o, IsDescendantOf UIManager o) => UIManagerK o
toUIManager :: UIManagerK o => o -> IO UIManager
toUIManager = unsafeCastTo UIManager
noUIManager :: Maybe UIManager
noUIManager = Nothing
-- signal UIManager::actions-changed
type UIManagerActionsChangedCallback =
IO ()
noUIManagerActionsChangedCallback :: Maybe UIManagerActionsChangedCallback
noUIManagerActionsChangedCallback = Nothing
type UIManagerActionsChangedCallbackC =
Ptr () -> -- object
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkUIManagerActionsChangedCallback :: UIManagerActionsChangedCallbackC -> IO (FunPtr UIManagerActionsChangedCallbackC)
uIManagerActionsChangedClosure :: UIManagerActionsChangedCallback -> IO Closure
uIManagerActionsChangedClosure cb = newCClosure =<< mkUIManagerActionsChangedCallback wrapped
where wrapped = uIManagerActionsChangedCallbackWrapper cb
uIManagerActionsChangedCallbackWrapper ::
UIManagerActionsChangedCallback ->
Ptr () ->
Ptr () ->
IO ()
uIManagerActionsChangedCallbackWrapper _cb _ _ = do
_cb
onUIManagerActionsChanged :: (GObject a, MonadIO m) => a -> UIManagerActionsChangedCallback -> m SignalHandlerId
onUIManagerActionsChanged obj cb = liftIO $ connectUIManagerActionsChanged obj cb SignalConnectBefore
afterUIManagerActionsChanged :: (GObject a, MonadIO m) => a -> UIManagerActionsChangedCallback -> m SignalHandlerId
afterUIManagerActionsChanged obj cb = connectUIManagerActionsChanged obj cb SignalConnectAfter
connectUIManagerActionsChanged :: (GObject a, MonadIO m) =>
a -> UIManagerActionsChangedCallback -> SignalConnectMode -> m SignalHandlerId
connectUIManagerActionsChanged obj cb after = liftIO $ do
cb' <- mkUIManagerActionsChangedCallback (uIManagerActionsChangedCallbackWrapper cb)
connectSignalFunPtr obj "actions-changed" cb' after
-- signal UIManager::add-widget
type UIManagerAddWidgetCallback =
Widget ->
IO ()
noUIManagerAddWidgetCallback :: Maybe UIManagerAddWidgetCallback
noUIManagerAddWidgetCallback = Nothing
type UIManagerAddWidgetCallbackC =
Ptr () -> -- object
Ptr Widget ->
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkUIManagerAddWidgetCallback :: UIManagerAddWidgetCallbackC -> IO (FunPtr UIManagerAddWidgetCallbackC)
uIManagerAddWidgetClosure :: UIManagerAddWidgetCallback -> IO Closure
uIManagerAddWidgetClosure cb = newCClosure =<< mkUIManagerAddWidgetCallback wrapped
where wrapped = uIManagerAddWidgetCallbackWrapper cb
uIManagerAddWidgetCallbackWrapper ::
UIManagerAddWidgetCallback ->
Ptr () ->
Ptr Widget ->
Ptr () ->
IO ()
uIManagerAddWidgetCallbackWrapper _cb _ widget _ = do
widget' <- (newObject Widget) widget
_cb widget'
onUIManagerAddWidget :: (GObject a, MonadIO m) => a -> UIManagerAddWidgetCallback -> m SignalHandlerId
onUIManagerAddWidget obj cb = liftIO $ connectUIManagerAddWidget obj cb SignalConnectBefore
afterUIManagerAddWidget :: (GObject a, MonadIO m) => a -> UIManagerAddWidgetCallback -> m SignalHandlerId
afterUIManagerAddWidget obj cb = connectUIManagerAddWidget obj cb SignalConnectAfter
connectUIManagerAddWidget :: (GObject a, MonadIO m) =>
a -> UIManagerAddWidgetCallback -> SignalConnectMode -> m SignalHandlerId
connectUIManagerAddWidget obj cb after = liftIO $ do
cb' <- mkUIManagerAddWidgetCallback (uIManagerAddWidgetCallbackWrapper cb)
connectSignalFunPtr obj "add-widget" cb' after
-- signal UIManager::connect-proxy
type UIManagerConnectProxyCallback =
Action ->
Widget ->
IO ()
noUIManagerConnectProxyCallback :: Maybe UIManagerConnectProxyCallback
noUIManagerConnectProxyCallback = Nothing
type UIManagerConnectProxyCallbackC =
Ptr () -> -- object
Ptr Action ->
Ptr Widget ->
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkUIManagerConnectProxyCallback :: UIManagerConnectProxyCallbackC -> IO (FunPtr UIManagerConnectProxyCallbackC)
uIManagerConnectProxyClosure :: UIManagerConnectProxyCallback -> IO Closure
uIManagerConnectProxyClosure cb = newCClosure =<< mkUIManagerConnectProxyCallback wrapped
where wrapped = uIManagerConnectProxyCallbackWrapper cb
uIManagerConnectProxyCallbackWrapper ::
UIManagerConnectProxyCallback ->
Ptr () ->
Ptr Action ->
Ptr Widget ->
Ptr () ->
IO ()
uIManagerConnectProxyCallbackWrapper _cb _ action proxy _ = do
action' <- (newObject Action) action
proxy' <- (newObject Widget) proxy
_cb action' proxy'
onUIManagerConnectProxy :: (GObject a, MonadIO m) => a -> UIManagerConnectProxyCallback -> m SignalHandlerId
onUIManagerConnectProxy obj cb = liftIO $ connectUIManagerConnectProxy obj cb SignalConnectBefore
afterUIManagerConnectProxy :: (GObject a, MonadIO m) => a -> UIManagerConnectProxyCallback -> m SignalHandlerId
afterUIManagerConnectProxy obj cb = connectUIManagerConnectProxy obj cb SignalConnectAfter
connectUIManagerConnectProxy :: (GObject a, MonadIO m) =>
a -> UIManagerConnectProxyCallback -> SignalConnectMode -> m SignalHandlerId
connectUIManagerConnectProxy obj cb after = liftIO $ do
cb' <- mkUIManagerConnectProxyCallback (uIManagerConnectProxyCallbackWrapper cb)
connectSignalFunPtr obj "connect-proxy" cb' after
-- signal UIManager::disconnect-proxy
type UIManagerDisconnectProxyCallback =
Action ->
Widget ->
IO ()
noUIManagerDisconnectProxyCallback :: Maybe UIManagerDisconnectProxyCallback
noUIManagerDisconnectProxyCallback = Nothing
type UIManagerDisconnectProxyCallbackC =
Ptr () -> -- object
Ptr Action ->
Ptr Widget ->
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkUIManagerDisconnectProxyCallback :: UIManagerDisconnectProxyCallbackC -> IO (FunPtr UIManagerDisconnectProxyCallbackC)
uIManagerDisconnectProxyClosure :: UIManagerDisconnectProxyCallback -> IO Closure
uIManagerDisconnectProxyClosure cb = newCClosure =<< mkUIManagerDisconnectProxyCallback wrapped
where wrapped = uIManagerDisconnectProxyCallbackWrapper cb
uIManagerDisconnectProxyCallbackWrapper ::
UIManagerDisconnectProxyCallback ->
Ptr () ->
Ptr Action ->
Ptr Widget ->
Ptr () ->
IO ()
uIManagerDisconnectProxyCallbackWrapper _cb _ action proxy _ = do
action' <- (newObject Action) action
proxy' <- (newObject Widget) proxy
_cb action' proxy'
onUIManagerDisconnectProxy :: (GObject a, MonadIO m) => a -> UIManagerDisconnectProxyCallback -> m SignalHandlerId
onUIManagerDisconnectProxy obj cb = liftIO $ connectUIManagerDisconnectProxy obj cb SignalConnectBefore
afterUIManagerDisconnectProxy :: (GObject a, MonadIO m) => a -> UIManagerDisconnectProxyCallback -> m SignalHandlerId
afterUIManagerDisconnectProxy obj cb = connectUIManagerDisconnectProxy obj cb SignalConnectAfter
connectUIManagerDisconnectProxy :: (GObject a, MonadIO m) =>
a -> UIManagerDisconnectProxyCallback -> SignalConnectMode -> m SignalHandlerId
connectUIManagerDisconnectProxy obj cb after = liftIO $ do
cb' <- mkUIManagerDisconnectProxyCallback (uIManagerDisconnectProxyCallbackWrapper cb)
connectSignalFunPtr obj "disconnect-proxy" cb' after
-- signal UIManager::post-activate
type UIManagerPostActivateCallback =
Action ->
IO ()
noUIManagerPostActivateCallback :: Maybe UIManagerPostActivateCallback
noUIManagerPostActivateCallback = Nothing
type UIManagerPostActivateCallbackC =
Ptr () -> -- object
Ptr Action ->
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkUIManagerPostActivateCallback :: UIManagerPostActivateCallbackC -> IO (FunPtr UIManagerPostActivateCallbackC)
uIManagerPostActivateClosure :: UIManagerPostActivateCallback -> IO Closure
uIManagerPostActivateClosure cb = newCClosure =<< mkUIManagerPostActivateCallback wrapped
where wrapped = uIManagerPostActivateCallbackWrapper cb
uIManagerPostActivateCallbackWrapper ::
UIManagerPostActivateCallback ->
Ptr () ->
Ptr Action ->
Ptr () ->
IO ()
uIManagerPostActivateCallbackWrapper _cb _ action _ = do
action' <- (newObject Action) action
_cb action'
onUIManagerPostActivate :: (GObject a, MonadIO m) => a -> UIManagerPostActivateCallback -> m SignalHandlerId
onUIManagerPostActivate obj cb = liftIO $ connectUIManagerPostActivate obj cb SignalConnectBefore
afterUIManagerPostActivate :: (GObject a, MonadIO m) => a -> UIManagerPostActivateCallback -> m SignalHandlerId
afterUIManagerPostActivate obj cb = connectUIManagerPostActivate obj cb SignalConnectAfter
connectUIManagerPostActivate :: (GObject a, MonadIO m) =>
a -> UIManagerPostActivateCallback -> SignalConnectMode -> m SignalHandlerId
connectUIManagerPostActivate obj cb after = liftIO $ do
cb' <- mkUIManagerPostActivateCallback (uIManagerPostActivateCallbackWrapper cb)
connectSignalFunPtr obj "post-activate" cb' after
-- signal UIManager::pre-activate
type UIManagerPreActivateCallback =
Action ->
IO ()
noUIManagerPreActivateCallback :: Maybe UIManagerPreActivateCallback
noUIManagerPreActivateCallback = Nothing
type UIManagerPreActivateCallbackC =
Ptr () -> -- object
Ptr Action ->
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkUIManagerPreActivateCallback :: UIManagerPreActivateCallbackC -> IO (FunPtr UIManagerPreActivateCallbackC)
uIManagerPreActivateClosure :: UIManagerPreActivateCallback -> IO Closure
uIManagerPreActivateClosure cb = newCClosure =<< mkUIManagerPreActivateCallback wrapped
where wrapped = uIManagerPreActivateCallbackWrapper cb
uIManagerPreActivateCallbackWrapper ::
UIManagerPreActivateCallback ->
Ptr () ->
Ptr Action ->
Ptr () ->
IO ()
uIManagerPreActivateCallbackWrapper _cb _ action _ = do
action' <- (newObject Action) action
_cb action'
onUIManagerPreActivate :: (GObject a, MonadIO m) => a -> UIManagerPreActivateCallback -> m SignalHandlerId
onUIManagerPreActivate obj cb = liftIO $ connectUIManagerPreActivate obj cb SignalConnectBefore
afterUIManagerPreActivate :: (GObject a, MonadIO m) => a -> UIManagerPreActivateCallback -> m SignalHandlerId
afterUIManagerPreActivate obj cb = connectUIManagerPreActivate obj cb SignalConnectAfter
connectUIManagerPreActivate :: (GObject a, MonadIO m) =>
a -> UIManagerPreActivateCallback -> SignalConnectMode -> m SignalHandlerId
connectUIManagerPreActivate obj cb after = liftIO $ do
cb' <- mkUIManagerPreActivateCallback (uIManagerPreActivateCallbackWrapper cb)
connectSignalFunPtr obj "pre-activate" cb' after
-- VVV Prop "add-tearoffs"
-- Type: TBasicType TBoolean
-- Flags: [PropertyReadable,PropertyWritable]
getUIManagerAddTearoffs :: (MonadIO m, UIManagerK o) => o -> m Bool
getUIManagerAddTearoffs obj = liftIO $ getObjectPropertyBool obj "add-tearoffs"
setUIManagerAddTearoffs :: (MonadIO m, UIManagerK o) => o -> Bool -> m ()
setUIManagerAddTearoffs obj val = liftIO $ setObjectPropertyBool obj "add-tearoffs" val
constructUIManagerAddTearoffs :: Bool -> IO ([Char], GValue)
constructUIManagerAddTearoffs val = constructObjectPropertyBool "add-tearoffs" val
data UIManagerAddTearoffsPropertyInfo
instance AttrInfo UIManagerAddTearoffsPropertyInfo where
type AttrAllowedOps UIManagerAddTearoffsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint UIManagerAddTearoffsPropertyInfo = (~) Bool
type AttrBaseTypeConstraint UIManagerAddTearoffsPropertyInfo = UIManagerK
type AttrGetType UIManagerAddTearoffsPropertyInfo = Bool
type AttrLabel UIManagerAddTearoffsPropertyInfo = "UIManager::add-tearoffs"
attrGet _ = getUIManagerAddTearoffs
attrSet _ = setUIManagerAddTearoffs
attrConstruct _ = constructUIManagerAddTearoffs
-- VVV Prop "ui"
-- Type: TBasicType TUTF8
-- Flags: [PropertyReadable]
getUIManagerUi :: (MonadIO m, UIManagerK o) => o -> m T.Text
getUIManagerUi obj = liftIO $ getObjectPropertyString obj "ui"
data UIManagerUiPropertyInfo
instance AttrInfo UIManagerUiPropertyInfo where
type AttrAllowedOps UIManagerUiPropertyInfo = '[ 'AttrGet]
type AttrSetTypeConstraint UIManagerUiPropertyInfo = (~) ()
type AttrBaseTypeConstraint UIManagerUiPropertyInfo = UIManagerK
type AttrGetType UIManagerUiPropertyInfo = T.Text
type AttrLabel UIManagerUiPropertyInfo = "UIManager::ui"
attrGet _ = getUIManagerUi
attrSet _ = undefined
attrConstruct _ = undefined
type instance AttributeList UIManager = UIManagerAttributeList
type UIManagerAttributeList = ('[ '("add-tearoffs", UIManagerAddTearoffsPropertyInfo), '("ui", UIManagerUiPropertyInfo)] :: [(Symbol, *)])
data UIManagerActionsChangedSignalInfo
instance SignalInfo UIManagerActionsChangedSignalInfo where
type HaskellCallbackType UIManagerActionsChangedSignalInfo = UIManagerActionsChangedCallback
connectSignal _ = connectUIManagerActionsChanged
data UIManagerAddWidgetSignalInfo
instance SignalInfo UIManagerAddWidgetSignalInfo where
type HaskellCallbackType UIManagerAddWidgetSignalInfo = UIManagerAddWidgetCallback
connectSignal _ = connectUIManagerAddWidget
data UIManagerConnectProxySignalInfo
instance SignalInfo UIManagerConnectProxySignalInfo where
type HaskellCallbackType UIManagerConnectProxySignalInfo = UIManagerConnectProxyCallback
connectSignal _ = connectUIManagerConnectProxy
data UIManagerDisconnectProxySignalInfo
instance SignalInfo UIManagerDisconnectProxySignalInfo where
type HaskellCallbackType UIManagerDisconnectProxySignalInfo = UIManagerDisconnectProxyCallback
connectSignal _ = connectUIManagerDisconnectProxy
data UIManagerPostActivateSignalInfo
instance SignalInfo UIManagerPostActivateSignalInfo where
type HaskellCallbackType UIManagerPostActivateSignalInfo = UIManagerPostActivateCallback
connectSignal _ = connectUIManagerPostActivate
data UIManagerPreActivateSignalInfo
instance SignalInfo UIManagerPreActivateSignalInfo where
type HaskellCallbackType UIManagerPreActivateSignalInfo = UIManagerPreActivateCallback
connectSignal _ = connectUIManagerPreActivate
type instance SignalList UIManager = UIManagerSignalList
type UIManagerSignalList = ('[ '("actions-changed", UIManagerActionsChangedSignalInfo), '("add-widget", UIManagerAddWidgetSignalInfo), '("connect-proxy", UIManagerConnectProxySignalInfo), '("disconnect-proxy", UIManagerDisconnectProxySignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("post-activate", UIManagerPostActivateSignalInfo), '("pre-activate", UIManagerPreActivateSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)])
-- method UIManager::new
-- method type : Constructor
-- Args : []
-- Lengths : []
-- hInArgs : []
-- returnType : TInterface "Gtk" "UIManager"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_ui_manager_new" gtk_ui_manager_new ::
IO (Ptr UIManager)
{-# DEPRECATED uIManagerNew ["(Since version 3.10)"]#-}
uIManagerNew ::
(MonadIO m) =>
m UIManager
uIManagerNew = liftIO $ do
result <- gtk_ui_manager_new
checkUnexpectedReturnNULL "gtk_ui_manager_new" result
result' <- (wrapObject UIManager) result
return result'
-- method UIManager::add_ui
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "UIManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "merge_id", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "action", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "type", argType = TInterface "Gtk" "UIManagerItemType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "top", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "UIManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "merge_id", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "action", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "type", argType = TInterface "Gtk" "UIManagerItemType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "top", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_ui_manager_add_ui" gtk_ui_manager_add_ui ::
Ptr UIManager -> -- _obj : TInterface "Gtk" "UIManager"
Word32 -> -- merge_id : TBasicType TUInt32
CString -> -- path : TBasicType TUTF8
CString -> -- name : TBasicType TUTF8
CString -> -- action : TBasicType TUTF8
CUInt -> -- type : TInterface "Gtk" "UIManagerItemType"
CInt -> -- top : TBasicType TBoolean
IO ()
{-# DEPRECATED uIManagerAddUi ["(Since version 3.10)"]#-}
uIManagerAddUi ::
(MonadIO m, UIManagerK a) =>
a -> -- _obj
Word32 -> -- merge_id
T.Text -> -- path
T.Text -> -- name
Maybe (T.Text) -> -- action
[UIManagerItemType] -> -- type
Bool -> -- top
m ()
uIManagerAddUi _obj merge_id path name action type_ top = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
path' <- textToCString path
name' <- textToCString name
maybeAction <- case action of
Nothing -> return nullPtr
Just jAction -> do
jAction' <- textToCString jAction
return jAction'
let type_' = gflagsToWord type_
let top' = (fromIntegral . fromEnum) top
gtk_ui_manager_add_ui _obj' merge_id path' name' maybeAction type_' top'
touchManagedPtr _obj
freeMem path'
freeMem name'
freeMem maybeAction
return ()
-- method UIManager::add_ui_from_file
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "UIManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "filename", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "UIManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "filename", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TUInt32
-- throws : True
-- Skip return : False
foreign import ccall "gtk_ui_manager_add_ui_from_file" gtk_ui_manager_add_ui_from_file ::
Ptr UIManager -> -- _obj : TInterface "Gtk" "UIManager"
CString -> -- filename : TBasicType TFileName
Ptr (Ptr GError) -> -- error
IO Word32
{-# DEPRECATED uIManagerAddUiFromFile ["(Since version 3.10)"]#-}
uIManagerAddUiFromFile ::
(MonadIO m, UIManagerK a) =>
a -> -- _obj
[Char] -> -- filename
m Word32
uIManagerAddUiFromFile _obj filename = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
filename' <- stringToCString filename
onException (do
result <- propagateGError $ gtk_ui_manager_add_ui_from_file _obj' filename'
touchManagedPtr _obj
freeMem filename'
return result
) (do
freeMem filename'
)
-- method UIManager::add_ui_from_resource
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "UIManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "resource_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "UIManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "resource_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TUInt32
-- throws : True
-- Skip return : False
foreign import ccall "gtk_ui_manager_add_ui_from_resource" gtk_ui_manager_add_ui_from_resource ::
Ptr UIManager -> -- _obj : TInterface "Gtk" "UIManager"
CString -> -- resource_path : TBasicType TUTF8
Ptr (Ptr GError) -> -- error
IO Word32
{-# DEPRECATED uIManagerAddUiFromResource ["(Since version 3.10)"]#-}
uIManagerAddUiFromResource ::
(MonadIO m, UIManagerK a) =>
a -> -- _obj
T.Text -> -- resource_path
m Word32
uIManagerAddUiFromResource _obj resource_path = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
resource_path' <- textToCString resource_path
onException (do
result <- propagateGError $ gtk_ui_manager_add_ui_from_resource _obj' resource_path'
touchManagedPtr _obj
freeMem resource_path'
return result
) (do
freeMem resource_path'
)
-- method UIManager::add_ui_from_string
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "UIManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "buffer", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "length", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "UIManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "buffer", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "length", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TUInt32
-- throws : True
-- Skip return : False
foreign import ccall "gtk_ui_manager_add_ui_from_string" gtk_ui_manager_add_ui_from_string ::
Ptr UIManager -> -- _obj : TInterface "Gtk" "UIManager"
CString -> -- buffer : TBasicType TUTF8
Int64 -> -- length : TBasicType TInt64
Ptr (Ptr GError) -> -- error
IO Word32
{-# DEPRECATED uIManagerAddUiFromString ["(Since version 3.10)"]#-}
uIManagerAddUiFromString ::
(MonadIO m, UIManagerK a) =>
a -> -- _obj
T.Text -> -- buffer
Int64 -> -- length
m Word32
uIManagerAddUiFromString _obj buffer length_ = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
buffer' <- textToCString buffer
onException (do
result <- propagateGError $ gtk_ui_manager_add_ui_from_string _obj' buffer' length_
touchManagedPtr _obj
freeMem buffer'
return result
) (do
freeMem buffer'
)
-- method UIManager::ensure_update
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "UIManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "UIManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_ui_manager_ensure_update" gtk_ui_manager_ensure_update ::
Ptr UIManager -> -- _obj : TInterface "Gtk" "UIManager"
IO ()
{-# DEPRECATED uIManagerEnsureUpdate ["(Since version 3.10)"]#-}
uIManagerEnsureUpdate ::
(MonadIO m, UIManagerK a) =>
a -> -- _obj
m ()
uIManagerEnsureUpdate _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_ui_manager_ensure_update _obj'
touchManagedPtr _obj
return ()
-- method UIManager::get_accel_group
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "UIManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "UIManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "AccelGroup"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_ui_manager_get_accel_group" gtk_ui_manager_get_accel_group ::
Ptr UIManager -> -- _obj : TInterface "Gtk" "UIManager"
IO (Ptr AccelGroup)
{-# DEPRECATED uIManagerGetAccelGroup ["(Since version 3.10)"]#-}
uIManagerGetAccelGroup ::
(MonadIO m, UIManagerK a) =>
a -> -- _obj
m AccelGroup
uIManagerGetAccelGroup _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_ui_manager_get_accel_group _obj'
checkUnexpectedReturnNULL "gtk_ui_manager_get_accel_group" result
result' <- (newObject AccelGroup) result
touchManagedPtr _obj
return result'
-- method UIManager::get_action
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "UIManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "UIManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "Action"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_ui_manager_get_action" gtk_ui_manager_get_action ::
Ptr UIManager -> -- _obj : TInterface "Gtk" "UIManager"
CString -> -- path : TBasicType TUTF8
IO (Ptr Action)
{-# DEPRECATED uIManagerGetAction ["(Since version 3.10)"]#-}
uIManagerGetAction ::
(MonadIO m, UIManagerK a) =>
a -> -- _obj
T.Text -> -- path
m Action
uIManagerGetAction _obj path = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
path' <- textToCString path
result <- gtk_ui_manager_get_action _obj' path'
checkUnexpectedReturnNULL "gtk_ui_manager_get_action" result
result' <- (newObject Action) result
touchManagedPtr _obj
freeMem path'
return result'
-- method UIManager::get_action_groups
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "UIManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "UIManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TGList (TInterface "Gtk" "ActionGroup")
-- throws : False
-- Skip return : False
foreign import ccall "gtk_ui_manager_get_action_groups" gtk_ui_manager_get_action_groups ::
Ptr UIManager -> -- _obj : TInterface "Gtk" "UIManager"
IO (Ptr (GList (Ptr ActionGroup)))
{-# DEPRECATED uIManagerGetActionGroups ["(Since version 3.10)"]#-}
uIManagerGetActionGroups ::
(MonadIO m, UIManagerK a) =>
a -> -- _obj
m [ActionGroup]
uIManagerGetActionGroups _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_ui_manager_get_action_groups _obj'
checkUnexpectedReturnNULL "gtk_ui_manager_get_action_groups" result
result' <- unpackGList result
result'' <- mapM (newObject ActionGroup) result'
touchManagedPtr _obj
return result''
-- method UIManager::get_add_tearoffs
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "UIManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "UIManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_ui_manager_get_add_tearoffs" gtk_ui_manager_get_add_tearoffs ::
Ptr UIManager -> -- _obj : TInterface "Gtk" "UIManager"
IO CInt
{-# DEPRECATED uIManagerGetAddTearoffs ["(Since version 3.4)","Tearoff menus are deprecated and should not"," be used in newly written code."]#-}
uIManagerGetAddTearoffs ::
(MonadIO m, UIManagerK a) =>
a -> -- _obj
m Bool
uIManagerGetAddTearoffs _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_ui_manager_get_add_tearoffs _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method UIManager::get_toplevels
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "UIManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "types", argType = TInterface "Gtk" "UIManagerItemType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "UIManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "types", argType = TInterface "Gtk" "UIManagerItemType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TGSList (TInterface "Gtk" "Widget")
-- throws : False
-- Skip return : False
foreign import ccall "gtk_ui_manager_get_toplevels" gtk_ui_manager_get_toplevels ::
Ptr UIManager -> -- _obj : TInterface "Gtk" "UIManager"
CUInt -> -- types : TInterface "Gtk" "UIManagerItemType"
IO (Ptr (GSList (Ptr Widget)))
{-# DEPRECATED uIManagerGetToplevels ["(Since version 3.10)"]#-}
uIManagerGetToplevels ::
(MonadIO m, UIManagerK a) =>
a -> -- _obj
[UIManagerItemType] -> -- types
m [Widget]
uIManagerGetToplevels _obj types = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let types' = gflagsToWord types
result <- gtk_ui_manager_get_toplevels _obj' types'
checkUnexpectedReturnNULL "gtk_ui_manager_get_toplevels" result
result' <- unpackGSList result
result'' <- mapM (newObject Widget) result'
g_slist_free result
touchManagedPtr _obj
return result''
-- method UIManager::get_ui
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "UIManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "UIManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TUTF8
-- throws : False
-- Skip return : False
foreign import ccall "gtk_ui_manager_get_ui" gtk_ui_manager_get_ui ::
Ptr UIManager -> -- _obj : TInterface "Gtk" "UIManager"
IO CString
{-# DEPRECATED uIManagerGetUi ["(Since version 3.10)"]#-}
uIManagerGetUi ::
(MonadIO m, UIManagerK a) =>
a -> -- _obj
m T.Text
uIManagerGetUi _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_ui_manager_get_ui _obj'
checkUnexpectedReturnNULL "gtk_ui_manager_get_ui" result
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method UIManager::get_widget
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "UIManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "UIManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "Widget"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_ui_manager_get_widget" gtk_ui_manager_get_widget ::
Ptr UIManager -> -- _obj : TInterface "Gtk" "UIManager"
CString -> -- path : TBasicType TUTF8
IO (Ptr Widget)
{-# DEPRECATED uIManagerGetWidget ["(Since version 3.10)"]#-}
uIManagerGetWidget ::
(MonadIO m, UIManagerK a) =>
a -> -- _obj
T.Text -> -- path
m Widget
uIManagerGetWidget _obj path = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
path' <- textToCString path
result <- gtk_ui_manager_get_widget _obj' path'
checkUnexpectedReturnNULL "gtk_ui_manager_get_widget" result
result' <- (newObject Widget) result
touchManagedPtr _obj
freeMem path'
return result'
-- method UIManager::insert_action_group
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "UIManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "action_group", argType = TInterface "Gtk" "ActionGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "UIManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "action_group", argType = TInterface "Gtk" "ActionGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_ui_manager_insert_action_group" gtk_ui_manager_insert_action_group ::
Ptr UIManager -> -- _obj : TInterface "Gtk" "UIManager"
Ptr ActionGroup -> -- action_group : TInterface "Gtk" "ActionGroup"
Int32 -> -- pos : TBasicType TInt32
IO ()
{-# DEPRECATED uIManagerInsertActionGroup ["(Since version 3.10)"]#-}
uIManagerInsertActionGroup ::
(MonadIO m, UIManagerK a, ActionGroupK b) =>
a -> -- _obj
b -> -- action_group
Int32 -> -- pos
m ()
uIManagerInsertActionGroup _obj action_group pos = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let action_group' = unsafeManagedPtrCastPtr action_group
gtk_ui_manager_insert_action_group _obj' action_group' pos
touchManagedPtr _obj
touchManagedPtr action_group
return ()
-- method UIManager::new_merge_id
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "UIManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "UIManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TUInt32
-- throws : False
-- Skip return : False
foreign import ccall "gtk_ui_manager_new_merge_id" gtk_ui_manager_new_merge_id ::
Ptr UIManager -> -- _obj : TInterface "Gtk" "UIManager"
IO Word32
{-# DEPRECATED uIManagerNewMergeId ["(Since version 3.10)"]#-}
uIManagerNewMergeId ::
(MonadIO m, UIManagerK a) =>
a -> -- _obj
m Word32
uIManagerNewMergeId _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_ui_manager_new_merge_id _obj'
touchManagedPtr _obj
return result
-- method UIManager::remove_action_group
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "UIManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "action_group", argType = TInterface "Gtk" "ActionGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "UIManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "action_group", argType = TInterface "Gtk" "ActionGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_ui_manager_remove_action_group" gtk_ui_manager_remove_action_group ::
Ptr UIManager -> -- _obj : TInterface "Gtk" "UIManager"
Ptr ActionGroup -> -- action_group : TInterface "Gtk" "ActionGroup"
IO ()
{-# DEPRECATED uIManagerRemoveActionGroup ["(Since version 3.10)"]#-}
uIManagerRemoveActionGroup ::
(MonadIO m, UIManagerK a, ActionGroupK b) =>
a -> -- _obj
b -> -- action_group
m ()
uIManagerRemoveActionGroup _obj action_group = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let action_group' = unsafeManagedPtrCastPtr action_group
gtk_ui_manager_remove_action_group _obj' action_group'
touchManagedPtr _obj
touchManagedPtr action_group
return ()
-- method UIManager::remove_ui
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "UIManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "merge_id", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "UIManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "merge_id", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_ui_manager_remove_ui" gtk_ui_manager_remove_ui ::
Ptr UIManager -> -- _obj : TInterface "Gtk" "UIManager"
Word32 -> -- merge_id : TBasicType TUInt32
IO ()
{-# DEPRECATED uIManagerRemoveUi ["(Since version 3.10)"]#-}
uIManagerRemoveUi ::
(MonadIO m, UIManagerK a) =>
a -> -- _obj
Word32 -> -- merge_id
m ()
uIManagerRemoveUi _obj merge_id = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_ui_manager_remove_ui _obj' merge_id
touchManagedPtr _obj
return ()
-- method UIManager::set_add_tearoffs
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "UIManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "add_tearoffs", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "UIManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "add_tearoffs", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_ui_manager_set_add_tearoffs" gtk_ui_manager_set_add_tearoffs ::
Ptr UIManager -> -- _obj : TInterface "Gtk" "UIManager"
CInt -> -- add_tearoffs : TBasicType TBoolean
IO ()
{-# DEPRECATED uIManagerSetAddTearoffs ["(Since version 3.4)","Tearoff menus are deprecated and should not"," be used in newly written code."]#-}
uIManagerSetAddTearoffs ::
(MonadIO m, UIManagerK a) =>
a -> -- _obj
Bool -> -- add_tearoffs
m ()
uIManagerSetAddTearoffs _obj add_tearoffs = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let add_tearoffs' = (fromIntegral . fromEnum) add_tearoffs
gtk_ui_manager_set_add_tearoffs _obj' add_tearoffs'
touchManagedPtr _obj
return ()