{- | 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 ()