gi-gtk-0.3.18.13: 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
UIManagerAddUiMethodInfo ,
uIManagerAddUi ,
-- ** uIManagerAddUiFromFile
UIManagerAddUiFromFileMethodInfo ,
uIManagerAddUiFromFile ,
-- ** uIManagerAddUiFromResource
UIManagerAddUiFromResourceMethodInfo ,
uIManagerAddUiFromResource ,
-- ** uIManagerAddUiFromString
UIManagerAddUiFromStringMethodInfo ,
uIManagerAddUiFromString ,
-- ** uIManagerEnsureUpdate
UIManagerEnsureUpdateMethodInfo ,
uIManagerEnsureUpdate ,
-- ** uIManagerGetAccelGroup
UIManagerGetAccelGroupMethodInfo ,
uIManagerGetAccelGroup ,
-- ** uIManagerGetAction
UIManagerGetActionMethodInfo ,
uIManagerGetAction ,
-- ** uIManagerGetActionGroups
UIManagerGetActionGroupsMethodInfo ,
uIManagerGetActionGroups ,
-- ** uIManagerGetAddTearoffs
UIManagerGetAddTearoffsMethodInfo ,
uIManagerGetAddTearoffs ,
-- ** uIManagerGetToplevels
UIManagerGetToplevelsMethodInfo ,
uIManagerGetToplevels ,
-- ** uIManagerGetUi
UIManagerGetUiMethodInfo ,
uIManagerGetUi ,
-- ** uIManagerGetWidget
UIManagerGetWidgetMethodInfo ,
uIManagerGetWidget ,
-- ** uIManagerInsertActionGroup
UIManagerInsertActionGroupMethodInfo ,
uIManagerInsertActionGroup ,
-- ** uIManagerNew
uIManagerNew ,
-- ** uIManagerNewMergeId
UIManagerNewMergeIdMethodInfo ,
uIManagerNewMergeId ,
-- ** uIManagerRemoveActionGroup
UIManagerRemoveActionGroupMethodInfo ,
uIManagerRemoveActionGroup ,
-- ** uIManagerRemoveUi
UIManagerRemoveUiMethodInfo ,
uIManagerRemoveUi ,
-- ** uIManagerSetAddTearoffs
UIManagerSetAddTearoffsMethodInfo ,
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
type family ResolveUIManagerMethod (t :: Symbol) (o :: *) :: * where
ResolveUIManagerMethod "addChild" o = BuildableAddChildMethodInfo
ResolveUIManagerMethod "addUi" o = UIManagerAddUiMethodInfo
ResolveUIManagerMethod "addUiFromFile" o = UIManagerAddUiFromFileMethodInfo
ResolveUIManagerMethod "addUiFromResource" o = UIManagerAddUiFromResourceMethodInfo
ResolveUIManagerMethod "addUiFromString" o = UIManagerAddUiFromStringMethodInfo
ResolveUIManagerMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo
ResolveUIManagerMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo
ResolveUIManagerMethod "constructChild" o = BuildableConstructChildMethodInfo
ResolveUIManagerMethod "customFinished" o = BuildableCustomFinishedMethodInfo
ResolveUIManagerMethod "customTagEnd" o = BuildableCustomTagEndMethodInfo
ResolveUIManagerMethod "customTagStart" o = BuildableCustomTagStartMethodInfo
ResolveUIManagerMethod "ensureUpdate" o = UIManagerEnsureUpdateMethodInfo
ResolveUIManagerMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo
ResolveUIManagerMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo
ResolveUIManagerMethod "insertActionGroup" o = UIManagerInsertActionGroupMethodInfo
ResolveUIManagerMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo
ResolveUIManagerMethod "newMergeId" o = UIManagerNewMergeIdMethodInfo
ResolveUIManagerMethod "notify" o = GObject.ObjectNotifyMethodInfo
ResolveUIManagerMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo
ResolveUIManagerMethod "parserFinished" o = BuildableParserFinishedMethodInfo
ResolveUIManagerMethod "ref" o = GObject.ObjectRefMethodInfo
ResolveUIManagerMethod "refSink" o = GObject.ObjectRefSinkMethodInfo
ResolveUIManagerMethod "removeActionGroup" o = UIManagerRemoveActionGroupMethodInfo
ResolveUIManagerMethod "removeUi" o = UIManagerRemoveUiMethodInfo
ResolveUIManagerMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo
ResolveUIManagerMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo
ResolveUIManagerMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo
ResolveUIManagerMethod "stealData" o = GObject.ObjectStealDataMethodInfo
ResolveUIManagerMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo
ResolveUIManagerMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo
ResolveUIManagerMethod "unref" o = GObject.ObjectUnrefMethodInfo
ResolveUIManagerMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo
ResolveUIManagerMethod "getAccelGroup" o = UIManagerGetAccelGroupMethodInfo
ResolveUIManagerMethod "getAction" o = UIManagerGetActionMethodInfo
ResolveUIManagerMethod "getActionGroups" o = UIManagerGetActionGroupsMethodInfo
ResolveUIManagerMethod "getAddTearoffs" o = UIManagerGetAddTearoffsMethodInfo
ResolveUIManagerMethod "getData" o = GObject.ObjectGetDataMethodInfo
ResolveUIManagerMethod "getInternalChild" o = BuildableGetInternalChildMethodInfo
ResolveUIManagerMethod "getName" o = BuildableGetNameMethodInfo
ResolveUIManagerMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo
ResolveUIManagerMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo
ResolveUIManagerMethod "getToplevels" o = UIManagerGetToplevelsMethodInfo
ResolveUIManagerMethod "getUi" o = UIManagerGetUiMethodInfo
ResolveUIManagerMethod "getWidget" o = UIManagerGetWidgetMethodInfo
ResolveUIManagerMethod "setAddTearoffs" o = UIManagerSetAddTearoffsMethodInfo
ResolveUIManagerMethod "setBuildableProperty" o = BuildableSetBuildablePropertyMethodInfo
ResolveUIManagerMethod "setData" o = GObject.ObjectSetDataMethodInfo
ResolveUIManagerMethod "setName" o = BuildableSetNameMethodInfo
ResolveUIManagerMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo
ResolveUIManagerMethod l o = MethodResolutionFailed l o
instance (info ~ ResolveUIManagerMethod t UIManager, MethodInfo info UIManager p) => IsLabelProxy t (UIManager -> p) where
fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)
#if MIN_VERSION_base(4,9,0)
instance (info ~ ResolveUIManagerMethod t UIManager, MethodInfo info UIManager p) => IsLabel t (UIManager -> p) where
fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)
#endif
-- 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 = "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 = "ui"
attrGet _ = getUIManagerUi
attrSet _ = undefined
attrConstruct _ = undefined
type instance AttributeList UIManager = UIManagerAttributeList
type UIManagerAttributeList = ('[ '("addTearoffs", 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 = ('[ '("actionsChanged", UIManagerActionsChangedSignalInfo), '("addWidget", UIManagerAddWidgetSignalInfo), '("connectProxy", UIManagerConnectProxySignalInfo), '("disconnectProxy", UIManagerDisconnectProxySignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("postActivate", UIManagerPostActivateSignalInfo), '("preActivate", UIManagerPreActivateSignalInfo)] :: [(Symbol, *)])
-- method UIManager::new
-- method type : Constructor
-- Args : []
-- Lengths : []
-- 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 -- result
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 {argCName = "_obj", argType = TInterface "Gtk" "UIManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "merge_id", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "action", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "type", argType = TInterface "Gtk" "UIManagerItemType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "top", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- 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 -- mergeId
-> T.Text -- path
-> T.Text -- name
-> Maybe (T.Text) -- action
-> [UIManagerItemType] -- type_
-> Bool -- top
-> m () -- result
uIManagerAddUi _obj mergeId 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' mergeId path' name' maybeAction type_' top'
touchManagedPtr _obj
freeMem path'
freeMem name'
freeMem maybeAction
return ()
data UIManagerAddUiMethodInfo
instance (signature ~ (Word32 -> T.Text -> T.Text -> Maybe (T.Text) -> [UIManagerItemType] -> Bool -> m ()), MonadIO m, UIManagerK a) => MethodInfo UIManagerAddUiMethodInfo a signature where
overloadedMethod _ = uIManagerAddUi
-- method UIManager::add_ui_from_file
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "UIManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "filename", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- 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 -- result
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'
)
data UIManagerAddUiFromFileMethodInfo
instance (signature ~ ([Char] -> m Word32), MonadIO m, UIManagerK a) => MethodInfo UIManagerAddUiFromFileMethodInfo a signature where
overloadedMethod _ = uIManagerAddUiFromFile
-- method UIManager::add_ui_from_resource
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "UIManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "resource_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- 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 -- resourcePath
-> m Word32 -- result
uIManagerAddUiFromResource _obj resourcePath = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
resourcePath' <- textToCString resourcePath
onException (do
result <- propagateGError $ gtk_ui_manager_add_ui_from_resource _obj' resourcePath'
touchManagedPtr _obj
freeMem resourcePath'
return result
) (do
freeMem resourcePath'
)
data UIManagerAddUiFromResourceMethodInfo
instance (signature ~ (T.Text -> m Word32), MonadIO m, UIManagerK a) => MethodInfo UIManagerAddUiFromResourceMethodInfo a signature where
overloadedMethod _ = uIManagerAddUiFromResource
-- method UIManager::add_ui_from_string
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "UIManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "buffer", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "length", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- 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 -- result
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'
)
data UIManagerAddUiFromStringMethodInfo
instance (signature ~ (T.Text -> Int64 -> m Word32), MonadIO m, UIManagerK a) => MethodInfo UIManagerAddUiFromStringMethodInfo a signature where
overloadedMethod _ = uIManagerAddUiFromString
-- method UIManager::ensure_update
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "UIManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- 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 () -- result
uIManagerEnsureUpdate _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_ui_manager_ensure_update _obj'
touchManagedPtr _obj
return ()
data UIManagerEnsureUpdateMethodInfo
instance (signature ~ (m ()), MonadIO m, UIManagerK a) => MethodInfo UIManagerEnsureUpdateMethodInfo a signature where
overloadedMethod _ = uIManagerEnsureUpdate
-- method UIManager::get_accel_group
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "UIManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- 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 -- result
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'
data UIManagerGetAccelGroupMethodInfo
instance (signature ~ (m AccelGroup), MonadIO m, UIManagerK a) => MethodInfo UIManagerGetAccelGroupMethodInfo a signature where
overloadedMethod _ = uIManagerGetAccelGroup
-- method UIManager::get_action
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "UIManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- 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 -- result
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'
data UIManagerGetActionMethodInfo
instance (signature ~ (T.Text -> m Action), MonadIO m, UIManagerK a) => MethodInfo UIManagerGetActionMethodInfo a signature where
overloadedMethod _ = uIManagerGetAction
-- method UIManager::get_action_groups
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "UIManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- 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] -- result
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''
data UIManagerGetActionGroupsMethodInfo
instance (signature ~ (m [ActionGroup]), MonadIO m, UIManagerK a) => MethodInfo UIManagerGetActionGroupsMethodInfo a signature where
overloadedMethod _ = uIManagerGetActionGroups
-- method UIManager::get_add_tearoffs
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "UIManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- 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 -- result
uIManagerGetAddTearoffs _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_ui_manager_get_add_tearoffs _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
data UIManagerGetAddTearoffsMethodInfo
instance (signature ~ (m Bool), MonadIO m, UIManagerK a) => MethodInfo UIManagerGetAddTearoffsMethodInfo a signature where
overloadedMethod _ = uIManagerGetAddTearoffs
-- method UIManager::get_toplevels
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "UIManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "types", argType = TInterface "Gtk" "UIManagerItemType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- 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] -- result
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''
data UIManagerGetToplevelsMethodInfo
instance (signature ~ ([UIManagerItemType] -> m [Widget]), MonadIO m, UIManagerK a) => MethodInfo UIManagerGetToplevelsMethodInfo a signature where
overloadedMethod _ = uIManagerGetToplevels
-- method UIManager::get_ui
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "UIManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- 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 -- result
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'
data UIManagerGetUiMethodInfo
instance (signature ~ (m T.Text), MonadIO m, UIManagerK a) => MethodInfo UIManagerGetUiMethodInfo a signature where
overloadedMethod _ = uIManagerGetUi
-- method UIManager::get_widget
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "UIManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- 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 -- result
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'
data UIManagerGetWidgetMethodInfo
instance (signature ~ (T.Text -> m Widget), MonadIO m, UIManagerK a) => MethodInfo UIManagerGetWidgetMethodInfo a signature where
overloadedMethod _ = uIManagerGetWidget
-- method UIManager::insert_action_group
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "UIManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "action_group", argType = TInterface "Gtk" "ActionGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "pos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- 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 -- actionGroup
-> Int32 -- pos
-> m () -- result
uIManagerInsertActionGroup _obj actionGroup pos = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let actionGroup' = unsafeManagedPtrCastPtr actionGroup
gtk_ui_manager_insert_action_group _obj' actionGroup' pos
touchManagedPtr _obj
touchManagedPtr actionGroup
return ()
data UIManagerInsertActionGroupMethodInfo
instance (signature ~ (b -> Int32 -> m ()), MonadIO m, UIManagerK a, ActionGroupK b) => MethodInfo UIManagerInsertActionGroupMethodInfo a signature where
overloadedMethod _ = uIManagerInsertActionGroup
-- method UIManager::new_merge_id
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "UIManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- 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 -- result
uIManagerNewMergeId _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_ui_manager_new_merge_id _obj'
touchManagedPtr _obj
return result
data UIManagerNewMergeIdMethodInfo
instance (signature ~ (m Word32), MonadIO m, UIManagerK a) => MethodInfo UIManagerNewMergeIdMethodInfo a signature where
overloadedMethod _ = uIManagerNewMergeId
-- method UIManager::remove_action_group
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "UIManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "action_group", argType = TInterface "Gtk" "ActionGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- 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 -- actionGroup
-> m () -- result
uIManagerRemoveActionGroup _obj actionGroup = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let actionGroup' = unsafeManagedPtrCastPtr actionGroup
gtk_ui_manager_remove_action_group _obj' actionGroup'
touchManagedPtr _obj
touchManagedPtr actionGroup
return ()
data UIManagerRemoveActionGroupMethodInfo
instance (signature ~ (b -> m ()), MonadIO m, UIManagerK a, ActionGroupK b) => MethodInfo UIManagerRemoveActionGroupMethodInfo a signature where
overloadedMethod _ = uIManagerRemoveActionGroup
-- method UIManager::remove_ui
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "UIManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "merge_id", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- 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 -- mergeId
-> m () -- result
uIManagerRemoveUi _obj mergeId = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_ui_manager_remove_ui _obj' mergeId
touchManagedPtr _obj
return ()
data UIManagerRemoveUiMethodInfo
instance (signature ~ (Word32 -> m ()), MonadIO m, UIManagerK a) => MethodInfo UIManagerRemoveUiMethodInfo a signature where
overloadedMethod _ = uIManagerRemoveUi
-- method UIManager::set_add_tearoffs
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "UIManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "add_tearoffs", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- 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 -- addTearoffs
-> m () -- result
uIManagerSetAddTearoffs _obj addTearoffs = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let addTearoffs' = (fromIntegral . fromEnum) addTearoffs
gtk_ui_manager_set_add_tearoffs _obj' addTearoffs'
touchManagedPtr _obj
return ()
data UIManagerSetAddTearoffsMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, UIManagerK a) => MethodInfo UIManagerSetAddTearoffsMethodInfo a signature where
overloadedMethod _ = uIManagerSetAddTearoffs