{-# LANGUAGE ImplicitParams, RankNTypes, TypeApplications #-}
#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif
module GI.Adw.Objects.TabView
(
TabView(..) ,
IsTabView ,
toTabView ,
#if defined(ENABLE_OVERLOADING)
ResolveTabViewMethod ,
#endif
#if defined(ENABLE_OVERLOADING)
TabViewAddPageMethodInfo ,
#endif
tabViewAddPage ,
#if defined(ENABLE_OVERLOADING)
TabViewAddShortcutsMethodInfo ,
#endif
tabViewAddShortcuts ,
#if defined(ENABLE_OVERLOADING)
TabViewAppendMethodInfo ,
#endif
tabViewAppend ,
#if defined(ENABLE_OVERLOADING)
TabViewAppendPinnedMethodInfo ,
#endif
tabViewAppendPinned ,
#if defined(ENABLE_OVERLOADING)
TabViewCloseOtherPagesMethodInfo ,
#endif
tabViewCloseOtherPages ,
#if defined(ENABLE_OVERLOADING)
TabViewClosePageMethodInfo ,
#endif
tabViewClosePage ,
#if defined(ENABLE_OVERLOADING)
TabViewClosePageFinishMethodInfo ,
#endif
tabViewClosePageFinish ,
#if defined(ENABLE_OVERLOADING)
TabViewClosePagesAfterMethodInfo ,
#endif
tabViewClosePagesAfter ,
#if defined(ENABLE_OVERLOADING)
TabViewClosePagesBeforeMethodInfo ,
#endif
tabViewClosePagesBefore ,
#if defined(ENABLE_OVERLOADING)
TabViewGetDefaultIconMethodInfo ,
#endif
tabViewGetDefaultIcon ,
#if defined(ENABLE_OVERLOADING)
TabViewGetIsTransferringPageMethodInfo ,
#endif
tabViewGetIsTransferringPage ,
#if defined(ENABLE_OVERLOADING)
TabViewGetMenuModelMethodInfo ,
#endif
tabViewGetMenuModel ,
#if defined(ENABLE_OVERLOADING)
TabViewGetNPagesMethodInfo ,
#endif
tabViewGetNPages ,
#if defined(ENABLE_OVERLOADING)
TabViewGetNPinnedPagesMethodInfo ,
#endif
tabViewGetNPinnedPages ,
#if defined(ENABLE_OVERLOADING)
TabViewGetNthPageMethodInfo ,
#endif
tabViewGetNthPage ,
#if defined(ENABLE_OVERLOADING)
TabViewGetPageMethodInfo ,
#endif
tabViewGetPage ,
#if defined(ENABLE_OVERLOADING)
TabViewGetPagePositionMethodInfo ,
#endif
tabViewGetPagePosition ,
#if defined(ENABLE_OVERLOADING)
TabViewGetPagesMethodInfo ,
#endif
tabViewGetPages ,
#if defined(ENABLE_OVERLOADING)
TabViewGetSelectedPageMethodInfo ,
#endif
tabViewGetSelectedPage ,
#if defined(ENABLE_OVERLOADING)
TabViewGetShortcutsMethodInfo ,
#endif
tabViewGetShortcuts ,
#if defined(ENABLE_OVERLOADING)
TabViewInsertMethodInfo ,
#endif
tabViewInsert ,
#if defined(ENABLE_OVERLOADING)
TabViewInsertPinnedMethodInfo ,
#endif
tabViewInsertPinned ,
tabViewNew ,
#if defined(ENABLE_OVERLOADING)
TabViewPrependMethodInfo ,
#endif
tabViewPrepend ,
#if defined(ENABLE_OVERLOADING)
TabViewPrependPinnedMethodInfo ,
#endif
tabViewPrependPinned ,
#if defined(ENABLE_OVERLOADING)
TabViewRemoveShortcutsMethodInfo ,
#endif
tabViewRemoveShortcuts ,
#if defined(ENABLE_OVERLOADING)
TabViewReorderBackwardMethodInfo ,
#endif
tabViewReorderBackward ,
#if defined(ENABLE_OVERLOADING)
TabViewReorderFirstMethodInfo ,
#endif
tabViewReorderFirst ,
#if defined(ENABLE_OVERLOADING)
TabViewReorderForwardMethodInfo ,
#endif
tabViewReorderForward ,
#if defined(ENABLE_OVERLOADING)
TabViewReorderLastMethodInfo ,
#endif
tabViewReorderLast ,
#if defined(ENABLE_OVERLOADING)
TabViewReorderPageMethodInfo ,
#endif
tabViewReorderPage ,
#if defined(ENABLE_OVERLOADING)
TabViewSelectNextPageMethodInfo ,
#endif
tabViewSelectNextPage ,
#if defined(ENABLE_OVERLOADING)
TabViewSelectPreviousPageMethodInfo ,
#endif
tabViewSelectPreviousPage ,
#if defined(ENABLE_OVERLOADING)
TabViewSetDefaultIconMethodInfo ,
#endif
tabViewSetDefaultIcon ,
#if defined(ENABLE_OVERLOADING)
TabViewSetMenuModelMethodInfo ,
#endif
tabViewSetMenuModel ,
#if defined(ENABLE_OVERLOADING)
TabViewSetPagePinnedMethodInfo ,
#endif
tabViewSetPagePinned ,
#if defined(ENABLE_OVERLOADING)
TabViewSetSelectedPageMethodInfo ,
#endif
tabViewSetSelectedPage ,
#if defined(ENABLE_OVERLOADING)
TabViewSetShortcutsMethodInfo ,
#endif
tabViewSetShortcuts ,
#if defined(ENABLE_OVERLOADING)
TabViewTransferPageMethodInfo ,
#endif
tabViewTransferPage ,
#if defined(ENABLE_OVERLOADING)
TabViewDefaultIconPropertyInfo ,
#endif
constructTabViewDefaultIcon ,
getTabViewDefaultIcon ,
setTabViewDefaultIcon ,
#if defined(ENABLE_OVERLOADING)
tabViewDefaultIcon ,
#endif
#if defined(ENABLE_OVERLOADING)
TabViewIsTransferringPagePropertyInfo ,
#endif
getTabViewIsTransferringPage ,
#if defined(ENABLE_OVERLOADING)
tabViewIsTransferringPage ,
#endif
#if defined(ENABLE_OVERLOADING)
TabViewMenuModelPropertyInfo ,
#endif
clearTabViewMenuModel ,
constructTabViewMenuModel ,
getTabViewMenuModel ,
setTabViewMenuModel ,
#if defined(ENABLE_OVERLOADING)
tabViewMenuModel ,
#endif
#if defined(ENABLE_OVERLOADING)
TabViewNPagesPropertyInfo ,
#endif
getTabViewNPages ,
#if defined(ENABLE_OVERLOADING)
tabViewNPages ,
#endif
#if defined(ENABLE_OVERLOADING)
TabViewNPinnedPagesPropertyInfo ,
#endif
getTabViewNPinnedPages ,
#if defined(ENABLE_OVERLOADING)
tabViewNPinnedPages ,
#endif
#if defined(ENABLE_OVERLOADING)
TabViewPagesPropertyInfo ,
#endif
getTabViewPages ,
#if defined(ENABLE_OVERLOADING)
tabViewPages ,
#endif
#if defined(ENABLE_OVERLOADING)
TabViewSelectedPagePropertyInfo ,
#endif
constructTabViewSelectedPage ,
getTabViewSelectedPage ,
setTabViewSelectedPage ,
#if defined(ENABLE_OVERLOADING)
tabViewSelectedPage ,
#endif
#if defined(ENABLE_OVERLOADING)
TabViewShortcutsPropertyInfo ,
#endif
constructTabViewShortcuts ,
getTabViewShortcuts ,
setTabViewShortcuts ,
#if defined(ENABLE_OVERLOADING)
tabViewShortcuts ,
#endif
TabViewClosePageCallback ,
#if defined(ENABLE_OVERLOADING)
TabViewClosePageSignalInfo ,
#endif
afterTabViewClosePage ,
onTabViewClosePage ,
TabViewCreateWindowCallback ,
#if defined(ENABLE_OVERLOADING)
TabViewCreateWindowSignalInfo ,
#endif
afterTabViewCreateWindow ,
onTabViewCreateWindow ,
TabViewIndicatorActivatedCallback ,
#if defined(ENABLE_OVERLOADING)
TabViewIndicatorActivatedSignalInfo ,
#endif
afterTabViewIndicatorActivated ,
onTabViewIndicatorActivated ,
TabViewPageAttachedCallback ,
#if defined(ENABLE_OVERLOADING)
TabViewPageAttachedSignalInfo ,
#endif
afterTabViewPageAttached ,
onTabViewPageAttached ,
TabViewPageDetachedCallback ,
#if defined(ENABLE_OVERLOADING)
TabViewPageDetachedSignalInfo ,
#endif
afterTabViewPageDetached ,
onTabViewPageDetached ,
TabViewPageReorderedCallback ,
#if defined(ENABLE_OVERLOADING)
TabViewPageReorderedSignalInfo ,
#endif
afterTabViewPageReordered ,
onTabViewPageReordered ,
TabViewSetupMenuCallback ,
#if defined(ENABLE_OVERLOADING)
TabViewSetupMenuSignalInfo ,
#endif
afterTabViewSetupMenu ,
onTabViewSetupMenu ,
) where
import Data.GI.Base.ShortPrelude
import qualified Data.GI.Base.ShortPrelude as SP
import qualified Data.GI.Base.Overloading as O
import qualified Prelude as P
import qualified Data.GI.Base.Attributes as GI.Attributes
import qualified Data.GI.Base.BasicTypes as B.Types
import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr
import qualified Data.GI.Base.GArray as B.GArray
import qualified Data.GI.Base.GClosure as B.GClosure
import qualified Data.GI.Base.GError as B.GError
import qualified Data.GI.Base.GHashTable as B.GHT
import qualified Data.GI.Base.GVariant as B.GVariant
import qualified Data.GI.Base.GValue as B.GValue
import qualified Data.GI.Base.GParamSpec as B.GParamSpec
import qualified Data.GI.Base.CallStack as B.CallStack
import qualified Data.GI.Base.Properties as B.Properties
import qualified Data.GI.Base.Signals as B.Signals
import qualified Control.Monad.IO.Class as MIO
import qualified Data.Coerce as Coerce
import qualified Data.Text as T
import qualified Data.ByteString.Char8 as B
import qualified Data.Map as Map
import qualified Foreign.Ptr as FP
import qualified GHC.OverloadedLabels as OL
import qualified GHC.Records as R
import {-# SOURCE #-} qualified GI.Adw.Flags as Adw.Flags
import {-# SOURCE #-} qualified GI.Adw.Objects.TabPage as Adw.TabPage
import qualified GI.GObject.Objects.Object as GObject.Object
import qualified GI.Gio.Interfaces.Icon as Gio.Icon
import qualified GI.Gio.Objects.MenuModel as Gio.MenuModel
import qualified GI.Gtk.Interfaces.Accessible as Gtk.Accessible
import qualified GI.Gtk.Interfaces.Buildable as Gtk.Buildable
import qualified GI.Gtk.Interfaces.ConstraintTarget as Gtk.ConstraintTarget
import qualified GI.Gtk.Interfaces.SelectionModel as Gtk.SelectionModel
import qualified GI.Gtk.Objects.Widget as Gtk.Widget
newtype TabView = TabView (SP.ManagedPtr TabView)
deriving (TabView -> TabView -> Bool
(TabView -> TabView -> Bool)
-> (TabView -> TabView -> Bool) -> Eq TabView
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: TabView -> TabView -> Bool
== :: TabView -> TabView -> Bool
$c/= :: TabView -> TabView -> Bool
/= :: TabView -> TabView -> Bool
Eq)
instance SP.ManagedPtrNewtype TabView where
toManagedPtr :: TabView -> ManagedPtr TabView
toManagedPtr (TabView ManagedPtr TabView
p) = ManagedPtr TabView
p
foreign import ccall "adw_tab_view_get_type"
c_adw_tab_view_get_type :: IO B.Types.GType
instance B.Types.TypedObject TabView where
glibType :: IO GType
glibType = IO GType
c_adw_tab_view_get_type
instance B.Types.GObject TabView
class (SP.GObject o, O.IsDescendantOf TabView o) => IsTabView o
instance (SP.GObject o, O.IsDescendantOf TabView o) => IsTabView o
instance O.HasParentTypes TabView
type instance O.ParentTypes TabView = '[Gtk.Widget.Widget, GObject.Object.Object, Gtk.Accessible.Accessible, Gtk.Buildable.Buildable, Gtk.ConstraintTarget.ConstraintTarget]
toTabView :: (MIO.MonadIO m, IsTabView o) => o -> m TabView
toTabView :: forall (m :: * -> *) o. (MonadIO m, IsTabView o) => o -> m TabView
toTabView = IO TabView -> m TabView
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO TabView -> m TabView) -> (o -> IO TabView) -> o -> m TabView
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (ManagedPtr TabView -> TabView) -> o -> IO TabView
forall o o'.
(HasCallStack, ManagedPtrNewtype o, TypedObject o,
ManagedPtrNewtype o', TypedObject o') =>
(ManagedPtr o' -> o') -> o -> IO o'
B.ManagedPtr.unsafeCastTo ManagedPtr TabView -> TabView
TabView
instance B.GValue.IsGValue (Maybe TabView) where
gvalueGType_ :: IO GType
gvalueGType_ = IO GType
c_adw_tab_view_get_type
gvalueSet_ :: Ptr GValue -> Maybe TabView -> IO ()
gvalueSet_ Ptr GValue
gv Maybe TabView
P.Nothing = Ptr GValue -> Ptr TabView -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv (Ptr TabView
forall a. Ptr a
FP.nullPtr :: FP.Ptr TabView)
gvalueSet_ Ptr GValue
gv (P.Just TabView
obj) = TabView -> (Ptr TabView -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
B.ManagedPtr.withManagedPtr TabView
obj (Ptr GValue -> Ptr TabView -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv)
gvalueGet_ :: Ptr GValue -> IO (Maybe TabView)
gvalueGet_ Ptr GValue
gv = do
Ptr TabView
ptr <- Ptr GValue -> IO (Ptr TabView)
forall a. GObject a => Ptr GValue -> IO (Ptr a)
B.GValue.get_object Ptr GValue
gv :: IO (FP.Ptr TabView)
if Ptr TabView
ptr Ptr TabView -> Ptr TabView -> Bool
forall a. Eq a => a -> a -> Bool
/= Ptr TabView
forall a. Ptr a
FP.nullPtr
then TabView -> Maybe TabView
forall a. a -> Maybe a
P.Just (TabView -> Maybe TabView) -> IO TabView -> IO (Maybe TabView)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (ManagedPtr TabView -> TabView) -> Ptr TabView -> IO TabView
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
B.ManagedPtr.newObject ManagedPtr TabView -> TabView
TabView Ptr TabView
ptr
else Maybe TabView -> IO (Maybe TabView)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe TabView
forall a. Maybe a
P.Nothing
#if defined(ENABLE_OVERLOADING)
type family ResolveTabViewMethod (t :: Symbol) (o :: *) :: * where
ResolveTabViewMethod "actionSetEnabled" o = Gtk.Widget.WidgetActionSetEnabledMethodInfo
ResolveTabViewMethod "activate" o = Gtk.Widget.WidgetActivateMethodInfo
ResolveTabViewMethod "activateAction" o = Gtk.Widget.WidgetActivateActionMethodInfo
ResolveTabViewMethod "activateDefault" o = Gtk.Widget.WidgetActivateDefaultMethodInfo
ResolveTabViewMethod "addController" o = Gtk.Widget.WidgetAddControllerMethodInfo
ResolveTabViewMethod "addCssClass" o = Gtk.Widget.WidgetAddCssClassMethodInfo
ResolveTabViewMethod "addMnemonicLabel" o = Gtk.Widget.WidgetAddMnemonicLabelMethodInfo
ResolveTabViewMethod "addPage" o = TabViewAddPageMethodInfo
ResolveTabViewMethod "addShortcuts" o = TabViewAddShortcutsMethodInfo
ResolveTabViewMethod "addTickCallback" o = Gtk.Widget.WidgetAddTickCallbackMethodInfo
ResolveTabViewMethod "allocate" o = Gtk.Widget.WidgetAllocateMethodInfo
ResolveTabViewMethod "append" o = TabViewAppendMethodInfo
ResolveTabViewMethod "appendPinned" o = TabViewAppendPinnedMethodInfo
ResolveTabViewMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
ResolveTabViewMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
ResolveTabViewMethod "childFocus" o = Gtk.Widget.WidgetChildFocusMethodInfo
ResolveTabViewMethod "closeOtherPages" o = TabViewCloseOtherPagesMethodInfo
ResolveTabViewMethod "closePage" o = TabViewClosePageMethodInfo
ResolveTabViewMethod "closePageFinish" o = TabViewClosePageFinishMethodInfo
ResolveTabViewMethod "closePagesAfter" o = TabViewClosePagesAfterMethodInfo
ResolveTabViewMethod "closePagesBefore" o = TabViewClosePagesBeforeMethodInfo
ResolveTabViewMethod "computeBounds" o = Gtk.Widget.WidgetComputeBoundsMethodInfo
ResolveTabViewMethod "computeExpand" o = Gtk.Widget.WidgetComputeExpandMethodInfo
ResolveTabViewMethod "computePoint" o = Gtk.Widget.WidgetComputePointMethodInfo
ResolveTabViewMethod "computeTransform" o = Gtk.Widget.WidgetComputeTransformMethodInfo
ResolveTabViewMethod "contains" o = Gtk.Widget.WidgetContainsMethodInfo
ResolveTabViewMethod "createPangoContext" o = Gtk.Widget.WidgetCreatePangoContextMethodInfo
ResolveTabViewMethod "createPangoLayout" o = Gtk.Widget.WidgetCreatePangoLayoutMethodInfo
ResolveTabViewMethod "disposeTemplate" o = Gtk.Widget.WidgetDisposeTemplateMethodInfo
ResolveTabViewMethod "dragCheckThreshold" o = Gtk.Widget.WidgetDragCheckThresholdMethodInfo
ResolveTabViewMethod "errorBell" o = Gtk.Widget.WidgetErrorBellMethodInfo
ResolveTabViewMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
ResolveTabViewMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
ResolveTabViewMethod "getv" o = GObject.Object.ObjectGetvMethodInfo
ResolveTabViewMethod "grabFocus" o = Gtk.Widget.WidgetGrabFocusMethodInfo
ResolveTabViewMethod "hasCssClass" o = Gtk.Widget.WidgetHasCssClassMethodInfo
ResolveTabViewMethod "hasDefault" o = Gtk.Widget.WidgetHasDefaultMethodInfo
ResolveTabViewMethod "hasFocus" o = Gtk.Widget.WidgetHasFocusMethodInfo
ResolveTabViewMethod "hasVisibleFocus" o = Gtk.Widget.WidgetHasVisibleFocusMethodInfo
ResolveTabViewMethod "hide" o = Gtk.Widget.WidgetHideMethodInfo
ResolveTabViewMethod "inDestruction" o = Gtk.Widget.WidgetInDestructionMethodInfo
ResolveTabViewMethod "initTemplate" o = Gtk.Widget.WidgetInitTemplateMethodInfo
ResolveTabViewMethod "insert" o = TabViewInsertMethodInfo
ResolveTabViewMethod "insertActionGroup" o = Gtk.Widget.WidgetInsertActionGroupMethodInfo
ResolveTabViewMethod "insertAfter" o = Gtk.Widget.WidgetInsertAfterMethodInfo
ResolveTabViewMethod "insertBefore" o = Gtk.Widget.WidgetInsertBeforeMethodInfo
ResolveTabViewMethod "insertPinned" o = TabViewInsertPinnedMethodInfo
ResolveTabViewMethod "isAncestor" o = Gtk.Widget.WidgetIsAncestorMethodInfo
ResolveTabViewMethod "isDrawable" o = Gtk.Widget.WidgetIsDrawableMethodInfo
ResolveTabViewMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo
ResolveTabViewMethod "isFocus" o = Gtk.Widget.WidgetIsFocusMethodInfo
ResolveTabViewMethod "isSensitive" o = Gtk.Widget.WidgetIsSensitiveMethodInfo
ResolveTabViewMethod "isVisible" o = Gtk.Widget.WidgetIsVisibleMethodInfo
ResolveTabViewMethod "keynavFailed" o = Gtk.Widget.WidgetKeynavFailedMethodInfo
ResolveTabViewMethod "listMnemonicLabels" o = Gtk.Widget.WidgetListMnemonicLabelsMethodInfo
ResolveTabViewMethod "map" o = Gtk.Widget.WidgetMapMethodInfo
ResolveTabViewMethod "measure" o = Gtk.Widget.WidgetMeasureMethodInfo
ResolveTabViewMethod "mnemonicActivate" o = Gtk.Widget.WidgetMnemonicActivateMethodInfo
ResolveTabViewMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
ResolveTabViewMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
ResolveTabViewMethod "observeChildren" o = Gtk.Widget.WidgetObserveChildrenMethodInfo
ResolveTabViewMethod "observeControllers" o = Gtk.Widget.WidgetObserveControllersMethodInfo
ResolveTabViewMethod "pick" o = Gtk.Widget.WidgetPickMethodInfo
ResolveTabViewMethod "prepend" o = TabViewPrependMethodInfo
ResolveTabViewMethod "prependPinned" o = TabViewPrependPinnedMethodInfo
ResolveTabViewMethod "queueAllocate" o = Gtk.Widget.WidgetQueueAllocateMethodInfo
ResolveTabViewMethod "queueDraw" o = Gtk.Widget.WidgetQueueDrawMethodInfo
ResolveTabViewMethod "queueResize" o = Gtk.Widget.WidgetQueueResizeMethodInfo
ResolveTabViewMethod "realize" o = Gtk.Widget.WidgetRealizeMethodInfo
ResolveTabViewMethod "ref" o = GObject.Object.ObjectRefMethodInfo
ResolveTabViewMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
ResolveTabViewMethod "removeController" o = Gtk.Widget.WidgetRemoveControllerMethodInfo
ResolveTabViewMethod "removeCssClass" o = Gtk.Widget.WidgetRemoveCssClassMethodInfo
ResolveTabViewMethod "removeMnemonicLabel" o = Gtk.Widget.WidgetRemoveMnemonicLabelMethodInfo
ResolveTabViewMethod "removeShortcuts" o = TabViewRemoveShortcutsMethodInfo
ResolveTabViewMethod "removeTickCallback" o = Gtk.Widget.WidgetRemoveTickCallbackMethodInfo
ResolveTabViewMethod "reorderBackward" o = TabViewReorderBackwardMethodInfo
ResolveTabViewMethod "reorderFirst" o = TabViewReorderFirstMethodInfo
ResolveTabViewMethod "reorderForward" o = TabViewReorderForwardMethodInfo
ResolveTabViewMethod "reorderLast" o = TabViewReorderLastMethodInfo
ResolveTabViewMethod "reorderPage" o = TabViewReorderPageMethodInfo
ResolveTabViewMethod "resetProperty" o = Gtk.Accessible.AccessibleResetPropertyMethodInfo
ResolveTabViewMethod "resetRelation" o = Gtk.Accessible.AccessibleResetRelationMethodInfo
ResolveTabViewMethod "resetState" o = Gtk.Accessible.AccessibleResetStateMethodInfo
ResolveTabViewMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
ResolveTabViewMethod "selectNextPage" o = TabViewSelectNextPageMethodInfo
ResolveTabViewMethod "selectPreviousPage" o = TabViewSelectPreviousPageMethodInfo
ResolveTabViewMethod "shouldLayout" o = Gtk.Widget.WidgetShouldLayoutMethodInfo
ResolveTabViewMethod "show" o = Gtk.Widget.WidgetShowMethodInfo
ResolveTabViewMethod "sizeAllocate" o = Gtk.Widget.WidgetSizeAllocateMethodInfo
ResolveTabViewMethod "snapshotChild" o = Gtk.Widget.WidgetSnapshotChildMethodInfo
ResolveTabViewMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
ResolveTabViewMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
ResolveTabViewMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo
ResolveTabViewMethod "transferPage" o = TabViewTransferPageMethodInfo
ResolveTabViewMethod "translateCoordinates" o = Gtk.Widget.WidgetTranslateCoordinatesMethodInfo
ResolveTabViewMethod "triggerTooltipQuery" o = Gtk.Widget.WidgetTriggerTooltipQueryMethodInfo
ResolveTabViewMethod "unmap" o = Gtk.Widget.WidgetUnmapMethodInfo
ResolveTabViewMethod "unparent" o = Gtk.Widget.WidgetUnparentMethodInfo
ResolveTabViewMethod "unrealize" o = Gtk.Widget.WidgetUnrealizeMethodInfo
ResolveTabViewMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo
ResolveTabViewMethod "unsetStateFlags" o = Gtk.Widget.WidgetUnsetStateFlagsMethodInfo
ResolveTabViewMethod "updateProperty" o = Gtk.Accessible.AccessibleUpdatePropertyMethodInfo
ResolveTabViewMethod "updateRelation" o = Gtk.Accessible.AccessibleUpdateRelationMethodInfo
ResolveTabViewMethod "updateState" o = Gtk.Accessible.AccessibleUpdateStateMethodInfo
ResolveTabViewMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
ResolveTabViewMethod "getAccessibleRole" o = Gtk.Accessible.AccessibleGetAccessibleRoleMethodInfo
ResolveTabViewMethod "getAllocatedBaseline" o = Gtk.Widget.WidgetGetAllocatedBaselineMethodInfo
ResolveTabViewMethod "getAllocatedHeight" o = Gtk.Widget.WidgetGetAllocatedHeightMethodInfo
ResolveTabViewMethod "getAllocatedWidth" o = Gtk.Widget.WidgetGetAllocatedWidthMethodInfo
ResolveTabViewMethod "getAllocation" o = Gtk.Widget.WidgetGetAllocationMethodInfo
ResolveTabViewMethod "getAncestor" o = Gtk.Widget.WidgetGetAncestorMethodInfo
ResolveTabViewMethod "getBuildableId" o = Gtk.Buildable.BuildableGetBuildableIdMethodInfo
ResolveTabViewMethod "getCanFocus" o = Gtk.Widget.WidgetGetCanFocusMethodInfo
ResolveTabViewMethod "getCanTarget" o = Gtk.Widget.WidgetGetCanTargetMethodInfo
ResolveTabViewMethod "getChildVisible" o = Gtk.Widget.WidgetGetChildVisibleMethodInfo
ResolveTabViewMethod "getClipboard" o = Gtk.Widget.WidgetGetClipboardMethodInfo
ResolveTabViewMethod "getCssClasses" o = Gtk.Widget.WidgetGetCssClassesMethodInfo
ResolveTabViewMethod "getCssName" o = Gtk.Widget.WidgetGetCssNameMethodInfo
ResolveTabViewMethod "getCursor" o = Gtk.Widget.WidgetGetCursorMethodInfo
ResolveTabViewMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
ResolveTabViewMethod "getDefaultIcon" o = TabViewGetDefaultIconMethodInfo
ResolveTabViewMethod "getDirection" o = Gtk.Widget.WidgetGetDirectionMethodInfo
ResolveTabViewMethod "getDisplay" o = Gtk.Widget.WidgetGetDisplayMethodInfo
ResolveTabViewMethod "getFirstChild" o = Gtk.Widget.WidgetGetFirstChildMethodInfo
ResolveTabViewMethod "getFocusChild" o = Gtk.Widget.WidgetGetFocusChildMethodInfo
ResolveTabViewMethod "getFocusOnClick" o = Gtk.Widget.WidgetGetFocusOnClickMethodInfo
ResolveTabViewMethod "getFocusable" o = Gtk.Widget.WidgetGetFocusableMethodInfo
ResolveTabViewMethod "getFontMap" o = Gtk.Widget.WidgetGetFontMapMethodInfo
ResolveTabViewMethod "getFontOptions" o = Gtk.Widget.WidgetGetFontOptionsMethodInfo
ResolveTabViewMethod "getFrameClock" o = Gtk.Widget.WidgetGetFrameClockMethodInfo
ResolveTabViewMethod "getHalign" o = Gtk.Widget.WidgetGetHalignMethodInfo
ResolveTabViewMethod "getHasTooltip" o = Gtk.Widget.WidgetGetHasTooltipMethodInfo
ResolveTabViewMethod "getHeight" o = Gtk.Widget.WidgetGetHeightMethodInfo
ResolveTabViewMethod "getHexpand" o = Gtk.Widget.WidgetGetHexpandMethodInfo
ResolveTabViewMethod "getHexpandSet" o = Gtk.Widget.WidgetGetHexpandSetMethodInfo
ResolveTabViewMethod "getIsTransferringPage" o = TabViewGetIsTransferringPageMethodInfo
ResolveTabViewMethod "getLastChild" o = Gtk.Widget.WidgetGetLastChildMethodInfo
ResolveTabViewMethod "getLayoutManager" o = Gtk.Widget.WidgetGetLayoutManagerMethodInfo
ResolveTabViewMethod "getMapped" o = Gtk.Widget.WidgetGetMappedMethodInfo
ResolveTabViewMethod "getMarginBottom" o = Gtk.Widget.WidgetGetMarginBottomMethodInfo
ResolveTabViewMethod "getMarginEnd" o = Gtk.Widget.WidgetGetMarginEndMethodInfo
ResolveTabViewMethod "getMarginStart" o = Gtk.Widget.WidgetGetMarginStartMethodInfo
ResolveTabViewMethod "getMarginTop" o = Gtk.Widget.WidgetGetMarginTopMethodInfo
ResolveTabViewMethod "getMenuModel" o = TabViewGetMenuModelMethodInfo
ResolveTabViewMethod "getNPages" o = TabViewGetNPagesMethodInfo
ResolveTabViewMethod "getNPinnedPages" o = TabViewGetNPinnedPagesMethodInfo
ResolveTabViewMethod "getName" o = Gtk.Widget.WidgetGetNameMethodInfo
ResolveTabViewMethod "getNative" o = Gtk.Widget.WidgetGetNativeMethodInfo
ResolveTabViewMethod "getNextSibling" o = Gtk.Widget.WidgetGetNextSiblingMethodInfo
ResolveTabViewMethod "getNthPage" o = TabViewGetNthPageMethodInfo
ResolveTabViewMethod "getOpacity" o = Gtk.Widget.WidgetGetOpacityMethodInfo
ResolveTabViewMethod "getOverflow" o = Gtk.Widget.WidgetGetOverflowMethodInfo
ResolveTabViewMethod "getPage" o = TabViewGetPageMethodInfo
ResolveTabViewMethod "getPagePosition" o = TabViewGetPagePositionMethodInfo
ResolveTabViewMethod "getPages" o = TabViewGetPagesMethodInfo
ResolveTabViewMethod "getPangoContext" o = Gtk.Widget.WidgetGetPangoContextMethodInfo
ResolveTabViewMethod "getParent" o = Gtk.Widget.WidgetGetParentMethodInfo
ResolveTabViewMethod "getPreferredSize" o = Gtk.Widget.WidgetGetPreferredSizeMethodInfo
ResolveTabViewMethod "getPrevSibling" o = Gtk.Widget.WidgetGetPrevSiblingMethodInfo
ResolveTabViewMethod "getPrimaryClipboard" o = Gtk.Widget.WidgetGetPrimaryClipboardMethodInfo
ResolveTabViewMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo
ResolveTabViewMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo
ResolveTabViewMethod "getRealized" o = Gtk.Widget.WidgetGetRealizedMethodInfo
ResolveTabViewMethod "getReceivesDefault" o = Gtk.Widget.WidgetGetReceivesDefaultMethodInfo
ResolveTabViewMethod "getRequestMode" o = Gtk.Widget.WidgetGetRequestModeMethodInfo
ResolveTabViewMethod "getRoot" o = Gtk.Widget.WidgetGetRootMethodInfo
ResolveTabViewMethod "getScaleFactor" o = Gtk.Widget.WidgetGetScaleFactorMethodInfo
ResolveTabViewMethod "getSelectedPage" o = TabViewGetSelectedPageMethodInfo
ResolveTabViewMethod "getSensitive" o = Gtk.Widget.WidgetGetSensitiveMethodInfo
ResolveTabViewMethod "getSettings" o = Gtk.Widget.WidgetGetSettingsMethodInfo
ResolveTabViewMethod "getShortcuts" o = TabViewGetShortcutsMethodInfo
ResolveTabViewMethod "getSize" o = Gtk.Widget.WidgetGetSizeMethodInfo
ResolveTabViewMethod "getSizeRequest" o = Gtk.Widget.WidgetGetSizeRequestMethodInfo
ResolveTabViewMethod "getStateFlags" o = Gtk.Widget.WidgetGetStateFlagsMethodInfo
ResolveTabViewMethod "getStyleContext" o = Gtk.Widget.WidgetGetStyleContextMethodInfo
ResolveTabViewMethod "getTemplateChild" o = Gtk.Widget.WidgetGetTemplateChildMethodInfo
ResolveTabViewMethod "getTooltipMarkup" o = Gtk.Widget.WidgetGetTooltipMarkupMethodInfo
ResolveTabViewMethod "getTooltipText" o = Gtk.Widget.WidgetGetTooltipTextMethodInfo
ResolveTabViewMethod "getValign" o = Gtk.Widget.WidgetGetValignMethodInfo
ResolveTabViewMethod "getVexpand" o = Gtk.Widget.WidgetGetVexpandMethodInfo
ResolveTabViewMethod "getVexpandSet" o = Gtk.Widget.WidgetGetVexpandSetMethodInfo
ResolveTabViewMethod "getVisible" o = Gtk.Widget.WidgetGetVisibleMethodInfo
ResolveTabViewMethod "getWidth" o = Gtk.Widget.WidgetGetWidthMethodInfo
ResolveTabViewMethod "setCanFocus" o = Gtk.Widget.WidgetSetCanFocusMethodInfo
ResolveTabViewMethod "setCanTarget" o = Gtk.Widget.WidgetSetCanTargetMethodInfo
ResolveTabViewMethod "setChildVisible" o = Gtk.Widget.WidgetSetChildVisibleMethodInfo
ResolveTabViewMethod "setCssClasses" o = Gtk.Widget.WidgetSetCssClassesMethodInfo
ResolveTabViewMethod "setCursor" o = Gtk.Widget.WidgetSetCursorMethodInfo
ResolveTabViewMethod "setCursorFromName" o = Gtk.Widget.WidgetSetCursorFromNameMethodInfo
ResolveTabViewMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
ResolveTabViewMethod "setDataFull" o = GObject.Object.ObjectSetDataFullMethodInfo
ResolveTabViewMethod "setDefaultIcon" o = TabViewSetDefaultIconMethodInfo
ResolveTabViewMethod "setDirection" o = Gtk.Widget.WidgetSetDirectionMethodInfo
ResolveTabViewMethod "setFocusChild" o = Gtk.Widget.WidgetSetFocusChildMethodInfo
ResolveTabViewMethod "setFocusOnClick" o = Gtk.Widget.WidgetSetFocusOnClickMethodInfo
ResolveTabViewMethod "setFocusable" o = Gtk.Widget.WidgetSetFocusableMethodInfo
ResolveTabViewMethod "setFontMap" o = Gtk.Widget.WidgetSetFontMapMethodInfo
ResolveTabViewMethod "setFontOptions" o = Gtk.Widget.WidgetSetFontOptionsMethodInfo
ResolveTabViewMethod "setHalign" o = Gtk.Widget.WidgetSetHalignMethodInfo
ResolveTabViewMethod "setHasTooltip" o = Gtk.Widget.WidgetSetHasTooltipMethodInfo
ResolveTabViewMethod "setHexpand" o = Gtk.Widget.WidgetSetHexpandMethodInfo
ResolveTabViewMethod "setHexpandSet" o = Gtk.Widget.WidgetSetHexpandSetMethodInfo
ResolveTabViewMethod "setLayoutManager" o = Gtk.Widget.WidgetSetLayoutManagerMethodInfo
ResolveTabViewMethod "setMarginBottom" o = Gtk.Widget.WidgetSetMarginBottomMethodInfo
ResolveTabViewMethod "setMarginEnd" o = Gtk.Widget.WidgetSetMarginEndMethodInfo
ResolveTabViewMethod "setMarginStart" o = Gtk.Widget.WidgetSetMarginStartMethodInfo
ResolveTabViewMethod "setMarginTop" o = Gtk.Widget.WidgetSetMarginTopMethodInfo
ResolveTabViewMethod "setMenuModel" o = TabViewSetMenuModelMethodInfo
ResolveTabViewMethod "setName" o = Gtk.Widget.WidgetSetNameMethodInfo
ResolveTabViewMethod "setOpacity" o = Gtk.Widget.WidgetSetOpacityMethodInfo
ResolveTabViewMethod "setOverflow" o = Gtk.Widget.WidgetSetOverflowMethodInfo
ResolveTabViewMethod "setPagePinned" o = TabViewSetPagePinnedMethodInfo
ResolveTabViewMethod "setParent" o = Gtk.Widget.WidgetSetParentMethodInfo
ResolveTabViewMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
ResolveTabViewMethod "setReceivesDefault" o = Gtk.Widget.WidgetSetReceivesDefaultMethodInfo
ResolveTabViewMethod "setSelectedPage" o = TabViewSetSelectedPageMethodInfo
ResolveTabViewMethod "setSensitive" o = Gtk.Widget.WidgetSetSensitiveMethodInfo
ResolveTabViewMethod "setShortcuts" o = TabViewSetShortcutsMethodInfo
ResolveTabViewMethod "setSizeRequest" o = Gtk.Widget.WidgetSetSizeRequestMethodInfo
ResolveTabViewMethod "setStateFlags" o = Gtk.Widget.WidgetSetStateFlagsMethodInfo
ResolveTabViewMethod "setTooltipMarkup" o = Gtk.Widget.WidgetSetTooltipMarkupMethodInfo
ResolveTabViewMethod "setTooltipText" o = Gtk.Widget.WidgetSetTooltipTextMethodInfo
ResolveTabViewMethod "setValign" o = Gtk.Widget.WidgetSetValignMethodInfo
ResolveTabViewMethod "setVexpand" o = Gtk.Widget.WidgetSetVexpandMethodInfo
ResolveTabViewMethod "setVexpandSet" o = Gtk.Widget.WidgetSetVexpandSetMethodInfo
ResolveTabViewMethod "setVisible" o = Gtk.Widget.WidgetSetVisibleMethodInfo
ResolveTabViewMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveTabViewMethod t TabView, O.OverloadedMethod info TabView p) => OL.IsLabel t (TabView -> p) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.overloadedMethod @info
#else
fromLabel _ = O.overloadedMethod @info
#endif
#if MIN_VERSION_base(4,13,0)
instance (info ~ ResolveTabViewMethod t TabView, O.OverloadedMethod info TabView p, R.HasField t TabView p) => R.HasField t TabView p where
getField = O.overloadedMethod @info
#endif
instance (info ~ ResolveTabViewMethod t TabView, O.OverloadedMethodInfo info TabView) => OL.IsLabel t (O.MethodProxy info TabView) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.MethodProxy
#else
fromLabel _ = O.MethodProxy
#endif
#endif
type TabViewClosePageCallback =
Adw.TabPage.TabPage
-> IO Bool
type C_TabViewClosePageCallback =
Ptr TabView ->
Ptr Adw.TabPage.TabPage ->
Ptr () ->
IO CInt
foreign import ccall "wrapper"
mk_TabViewClosePageCallback :: C_TabViewClosePageCallback -> IO (FunPtr C_TabViewClosePageCallback)
wrap_TabViewClosePageCallback ::
GObject a => (a -> TabViewClosePageCallback) ->
C_TabViewClosePageCallback
wrap_TabViewClosePageCallback :: forall a.
GObject a =>
(a -> TabViewClosePageCallback) -> C_TabViewClosePageCallback
wrap_TabViewClosePageCallback a -> TabViewClosePageCallback
gi'cb Ptr TabView
gi'selfPtr Ptr TabPage
page Ptr ()
_ = do
TabPage
page' <- ((ManagedPtr TabPage -> TabPage) -> Ptr TabPage -> IO TabPage
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr TabPage -> TabPage
Adw.TabPage.TabPage) Ptr TabPage
page
Bool
result <- Ptr TabView -> (TabView -> IO Bool) -> IO Bool
forall a b.
(HasCallStack, ManagedPtrNewtype a) =>
Ptr a -> (a -> IO b) -> IO b
B.ManagedPtr.withTransient Ptr TabView
gi'selfPtr ((TabView -> IO Bool) -> IO Bool)
-> (TabView -> IO Bool) -> IO Bool
forall a b. (a -> b) -> a -> b
$ \TabView
gi'self -> a -> TabViewClosePageCallback
gi'cb (TabView -> a
forall a b. Coercible a b => a -> b
Coerce.coerce TabView
gi'self) TabPage
page'
let result' :: CInt
result' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
fromEnum) Bool
result
CInt -> IO CInt
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return CInt
result'
onTabViewClosePage :: (IsTabView a, MonadIO m) => a -> ((?self :: a) => TabViewClosePageCallback) -> m SignalHandlerId
onTabViewClosePage :: forall a (m :: * -> *).
(IsTabView a, MonadIO m) =>
a -> ((?self::a) => TabViewClosePageCallback) -> m SignalHandlerId
onTabViewClosePage a
obj (?self::a) => TabViewClosePageCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> TabViewClosePageCallback
wrapped a
self = let ?self = a
?self::a
self in (?self::a) => TabViewClosePageCallback
TabViewClosePageCallback
cb
let wrapped' :: C_TabViewClosePageCallback
wrapped' = (a -> TabViewClosePageCallback) -> C_TabViewClosePageCallback
forall a.
GObject a =>
(a -> TabViewClosePageCallback) -> C_TabViewClosePageCallback
wrap_TabViewClosePageCallback a -> TabViewClosePageCallback
wrapped
FunPtr C_TabViewClosePageCallback
wrapped'' <- C_TabViewClosePageCallback
-> IO (FunPtr C_TabViewClosePageCallback)
mk_TabViewClosePageCallback C_TabViewClosePageCallback
wrapped'
a
-> Text
-> FunPtr C_TabViewClosePageCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"close-page" FunPtr C_TabViewClosePageCallback
wrapped'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterTabViewClosePage :: (IsTabView a, MonadIO m) => a -> ((?self :: a) => TabViewClosePageCallback) -> m SignalHandlerId
afterTabViewClosePage :: forall a (m :: * -> *).
(IsTabView a, MonadIO m) =>
a -> ((?self::a) => TabViewClosePageCallback) -> m SignalHandlerId
afterTabViewClosePage a
obj (?self::a) => TabViewClosePageCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> TabViewClosePageCallback
wrapped a
self = let ?self = a
?self::a
self in (?self::a) => TabViewClosePageCallback
TabViewClosePageCallback
cb
let wrapped' :: C_TabViewClosePageCallback
wrapped' = (a -> TabViewClosePageCallback) -> C_TabViewClosePageCallback
forall a.
GObject a =>
(a -> TabViewClosePageCallback) -> C_TabViewClosePageCallback
wrap_TabViewClosePageCallback a -> TabViewClosePageCallback
wrapped
FunPtr C_TabViewClosePageCallback
wrapped'' <- C_TabViewClosePageCallback
-> IO (FunPtr C_TabViewClosePageCallback)
mk_TabViewClosePageCallback C_TabViewClosePageCallback
wrapped'
a
-> Text
-> FunPtr C_TabViewClosePageCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"close-page" FunPtr C_TabViewClosePageCallback
wrapped'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data TabViewClosePageSignalInfo
instance SignalInfo TabViewClosePageSignalInfo where
type HaskellCallbackType TabViewClosePageSignalInfo = TabViewClosePageCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_TabViewClosePageCallback cb
cb'' <- mk_TabViewClosePageCallback cb'
connectSignalFunPtr obj "close-page" cb'' connectMode detail
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.TabView::close-page"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.3/docs/GI-Adw-Objects-TabView.html#g:signal:closePage"})
#endif
type TabViewCreateWindowCallback =
IO (Maybe TabView)
type C_TabViewCreateWindowCallback =
Ptr TabView ->
Ptr () ->
IO (Ptr TabView)
foreign import ccall "wrapper"
mk_TabViewCreateWindowCallback :: C_TabViewCreateWindowCallback -> IO (FunPtr C_TabViewCreateWindowCallback)
wrap_TabViewCreateWindowCallback ::
GObject a => (a -> TabViewCreateWindowCallback) ->
C_TabViewCreateWindowCallback
wrap_TabViewCreateWindowCallback :: forall a.
GObject a =>
(a -> IO (Maybe TabView)) -> C_TabViewCreateWindowCallback
wrap_TabViewCreateWindowCallback a -> IO (Maybe TabView)
gi'cb Ptr TabView
gi'selfPtr Ptr ()
_ = do
Maybe TabView
result <- Ptr TabView
-> (TabView -> IO (Maybe TabView)) -> IO (Maybe TabView)
forall a b.
(HasCallStack, ManagedPtrNewtype a) =>
Ptr a -> (a -> IO b) -> IO b
B.ManagedPtr.withTransient Ptr TabView
gi'selfPtr ((TabView -> IO (Maybe TabView)) -> IO (Maybe TabView))
-> (TabView -> IO (Maybe TabView)) -> IO (Maybe TabView)
forall a b. (a -> b) -> a -> b
$ \TabView
gi'self -> a -> IO (Maybe TabView)
gi'cb (TabView -> a
forall a b. Coercible a b => a -> b
Coerce.coerce TabView
gi'self)
Ptr TabView
-> Maybe TabView
-> (TabView -> IO (Ptr TabView))
-> IO (Ptr TabView)
forall (m :: * -> *) b a.
Monad m =>
b -> Maybe a -> (a -> m b) -> m b
maybeM Ptr TabView
forall a. Ptr a
FP.nullPtr Maybe TabView
result ((TabView -> IO (Ptr TabView)) -> IO (Ptr TabView))
-> (TabView -> IO (Ptr TabView)) -> IO (Ptr TabView)
forall a b. (a -> b) -> a -> b
$ \TabView
result' -> do
Ptr TabView
result'' <- TabView -> IO (Ptr TabView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr TabView
result'
Ptr TabView -> IO (Ptr TabView)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr TabView
result''
onTabViewCreateWindow :: (IsTabView a, MonadIO m) => a -> ((?self :: a) => TabViewCreateWindowCallback) -> m SignalHandlerId
onTabViewCreateWindow :: forall a (m :: * -> *).
(IsTabView a, MonadIO m) =>
a -> ((?self::a) => IO (Maybe TabView)) -> m SignalHandlerId
onTabViewCreateWindow a
obj (?self::a) => IO (Maybe TabView)
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> IO (Maybe TabView)
wrapped a
self = let ?self = a
?self::a
self in IO (Maybe TabView)
(?self::a) => IO (Maybe TabView)
cb
let wrapped' :: C_TabViewCreateWindowCallback
wrapped' = (a -> IO (Maybe TabView)) -> C_TabViewCreateWindowCallback
forall a.
GObject a =>
(a -> IO (Maybe TabView)) -> C_TabViewCreateWindowCallback
wrap_TabViewCreateWindowCallback a -> IO (Maybe TabView)
wrapped
FunPtr C_TabViewCreateWindowCallback
wrapped'' <- C_TabViewCreateWindowCallback
-> IO (FunPtr C_TabViewCreateWindowCallback)
mk_TabViewCreateWindowCallback C_TabViewCreateWindowCallback
wrapped'
a
-> Text
-> FunPtr C_TabViewCreateWindowCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"create-window" FunPtr C_TabViewCreateWindowCallback
wrapped'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterTabViewCreateWindow :: (IsTabView a, MonadIO m) => a -> ((?self :: a) => TabViewCreateWindowCallback) -> m SignalHandlerId
afterTabViewCreateWindow :: forall a (m :: * -> *).
(IsTabView a, MonadIO m) =>
a -> ((?self::a) => IO (Maybe TabView)) -> m SignalHandlerId
afterTabViewCreateWindow a
obj (?self::a) => IO (Maybe TabView)
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> IO (Maybe TabView)
wrapped a
self = let ?self = a
?self::a
self in IO (Maybe TabView)
(?self::a) => IO (Maybe TabView)
cb
let wrapped' :: C_TabViewCreateWindowCallback
wrapped' = (a -> IO (Maybe TabView)) -> C_TabViewCreateWindowCallback
forall a.
GObject a =>
(a -> IO (Maybe TabView)) -> C_TabViewCreateWindowCallback
wrap_TabViewCreateWindowCallback a -> IO (Maybe TabView)
wrapped
FunPtr C_TabViewCreateWindowCallback
wrapped'' <- C_TabViewCreateWindowCallback
-> IO (FunPtr C_TabViewCreateWindowCallback)
mk_TabViewCreateWindowCallback C_TabViewCreateWindowCallback
wrapped'
a
-> Text
-> FunPtr C_TabViewCreateWindowCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"create-window" FunPtr C_TabViewCreateWindowCallback
wrapped'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data TabViewCreateWindowSignalInfo
instance SignalInfo TabViewCreateWindowSignalInfo where
type HaskellCallbackType TabViewCreateWindowSignalInfo = TabViewCreateWindowCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_TabViewCreateWindowCallback cb
cb'' <- mk_TabViewCreateWindowCallback cb'
connectSignalFunPtr obj "create-window" cb'' connectMode detail
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.TabView::create-window"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.3/docs/GI-Adw-Objects-TabView.html#g:signal:createWindow"})
#endif
type TabViewIndicatorActivatedCallback =
Adw.TabPage.TabPage
-> IO ()
type C_TabViewIndicatorActivatedCallback =
Ptr TabView ->
Ptr Adw.TabPage.TabPage ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_TabViewIndicatorActivatedCallback :: C_TabViewIndicatorActivatedCallback -> IO (FunPtr C_TabViewIndicatorActivatedCallback)
wrap_TabViewIndicatorActivatedCallback ::
GObject a => (a -> TabViewIndicatorActivatedCallback) ->
C_TabViewIndicatorActivatedCallback
wrap_TabViewIndicatorActivatedCallback :: forall a.
GObject a =>
(a -> TabViewIndicatorActivatedCallback)
-> C_TabViewIndicatorActivatedCallback
wrap_TabViewIndicatorActivatedCallback a -> TabViewIndicatorActivatedCallback
gi'cb Ptr TabView
gi'selfPtr Ptr TabPage
page Ptr ()
_ = do
TabPage
page' <- ((ManagedPtr TabPage -> TabPage) -> Ptr TabPage -> IO TabPage
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr TabPage -> TabPage
Adw.TabPage.TabPage) Ptr TabPage
page
Ptr TabView -> (TabView -> IO ()) -> IO ()
forall a b.
(HasCallStack, ManagedPtrNewtype a) =>
Ptr a -> (a -> IO b) -> IO b
B.ManagedPtr.withTransient Ptr TabView
gi'selfPtr ((TabView -> IO ()) -> IO ()) -> (TabView -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \TabView
gi'self -> a -> TabViewIndicatorActivatedCallback
gi'cb (TabView -> a
forall a b. Coercible a b => a -> b
Coerce.coerce TabView
gi'self) TabPage
page'
onTabViewIndicatorActivated :: (IsTabView a, MonadIO m) => a -> ((?self :: a) => TabViewIndicatorActivatedCallback) -> m SignalHandlerId
onTabViewIndicatorActivated :: forall a (m :: * -> *).
(IsTabView a, MonadIO m) =>
a
-> ((?self::a) => TabViewIndicatorActivatedCallback)
-> m SignalHandlerId
onTabViewIndicatorActivated a
obj (?self::a) => TabViewIndicatorActivatedCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> TabViewIndicatorActivatedCallback
wrapped a
self = let ?self = a
?self::a
self in (?self::a) => TabViewIndicatorActivatedCallback
TabViewIndicatorActivatedCallback
cb
let wrapped' :: C_TabViewIndicatorActivatedCallback
wrapped' = (a -> TabViewIndicatorActivatedCallback)
-> C_TabViewIndicatorActivatedCallback
forall a.
GObject a =>
(a -> TabViewIndicatorActivatedCallback)
-> C_TabViewIndicatorActivatedCallback
wrap_TabViewIndicatorActivatedCallback a -> TabViewIndicatorActivatedCallback
wrapped
FunPtr C_TabViewIndicatorActivatedCallback
wrapped'' <- C_TabViewIndicatorActivatedCallback
-> IO (FunPtr C_TabViewIndicatorActivatedCallback)
mk_TabViewIndicatorActivatedCallback C_TabViewIndicatorActivatedCallback
wrapped'
a
-> Text
-> FunPtr C_TabViewIndicatorActivatedCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"indicator-activated" FunPtr C_TabViewIndicatorActivatedCallback
wrapped'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterTabViewIndicatorActivated :: (IsTabView a, MonadIO m) => a -> ((?self :: a) => TabViewIndicatorActivatedCallback) -> m SignalHandlerId
afterTabViewIndicatorActivated :: forall a (m :: * -> *).
(IsTabView a, MonadIO m) =>
a
-> ((?self::a) => TabViewIndicatorActivatedCallback)
-> m SignalHandlerId
afterTabViewIndicatorActivated a
obj (?self::a) => TabViewIndicatorActivatedCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> TabViewIndicatorActivatedCallback
wrapped a
self = let ?self = a
?self::a
self in (?self::a) => TabViewIndicatorActivatedCallback
TabViewIndicatorActivatedCallback
cb
let wrapped' :: C_TabViewIndicatorActivatedCallback
wrapped' = (a -> TabViewIndicatorActivatedCallback)
-> C_TabViewIndicatorActivatedCallback
forall a.
GObject a =>
(a -> TabViewIndicatorActivatedCallback)
-> C_TabViewIndicatorActivatedCallback
wrap_TabViewIndicatorActivatedCallback a -> TabViewIndicatorActivatedCallback
wrapped
FunPtr C_TabViewIndicatorActivatedCallback
wrapped'' <- C_TabViewIndicatorActivatedCallback
-> IO (FunPtr C_TabViewIndicatorActivatedCallback)
mk_TabViewIndicatorActivatedCallback C_TabViewIndicatorActivatedCallback
wrapped'
a
-> Text
-> FunPtr C_TabViewIndicatorActivatedCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"indicator-activated" FunPtr C_TabViewIndicatorActivatedCallback
wrapped'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data TabViewIndicatorActivatedSignalInfo
instance SignalInfo TabViewIndicatorActivatedSignalInfo where
type HaskellCallbackType TabViewIndicatorActivatedSignalInfo = TabViewIndicatorActivatedCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_TabViewIndicatorActivatedCallback cb
cb'' <- mk_TabViewIndicatorActivatedCallback cb'
connectSignalFunPtr obj "indicator-activated" cb'' connectMode detail
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.TabView::indicator-activated"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.3/docs/GI-Adw-Objects-TabView.html#g:signal:indicatorActivated"})
#endif
type TabViewPageAttachedCallback =
Adw.TabPage.TabPage
-> Int32
-> IO ()
type C_TabViewPageAttachedCallback =
Ptr TabView ->
Ptr Adw.TabPage.TabPage ->
Int32 ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_TabViewPageAttachedCallback :: C_TabViewPageAttachedCallback -> IO (FunPtr C_TabViewPageAttachedCallback)
wrap_TabViewPageAttachedCallback ::
GObject a => (a -> TabViewPageAttachedCallback) ->
C_TabViewPageAttachedCallback
wrap_TabViewPageAttachedCallback :: forall a.
GObject a =>
(a -> TabViewPageAttachedCallback) -> C_TabViewPageAttachedCallback
wrap_TabViewPageAttachedCallback a -> TabViewPageAttachedCallback
gi'cb Ptr TabView
gi'selfPtr Ptr TabPage
page Int32
position Ptr ()
_ = do
TabPage
page' <- ((ManagedPtr TabPage -> TabPage) -> Ptr TabPage -> IO TabPage
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr TabPage -> TabPage
Adw.TabPage.TabPage) Ptr TabPage
page
Ptr TabView -> (TabView -> IO ()) -> IO ()
forall a b.
(HasCallStack, ManagedPtrNewtype a) =>
Ptr a -> (a -> IO b) -> IO b
B.ManagedPtr.withTransient Ptr TabView
gi'selfPtr ((TabView -> IO ()) -> IO ()) -> (TabView -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \TabView
gi'self -> a -> TabViewPageAttachedCallback
gi'cb (TabView -> a
forall a b. Coercible a b => a -> b
Coerce.coerce TabView
gi'self) TabPage
page' Int32
position
onTabViewPageAttached :: (IsTabView a, MonadIO m) => a -> ((?self :: a) => TabViewPageAttachedCallback) -> m SignalHandlerId
onTabViewPageAttached :: forall a (m :: * -> *).
(IsTabView a, MonadIO m) =>
a
-> ((?self::a) => TabViewPageAttachedCallback) -> m SignalHandlerId
onTabViewPageAttached a
obj (?self::a) => TabViewPageAttachedCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> TabViewPageAttachedCallback
wrapped a
self = let ?self = a
?self::a
self in (?self::a) => TabViewPageAttachedCallback
TabViewPageAttachedCallback
cb
let wrapped' :: C_TabViewPageAttachedCallback
wrapped' = (a -> TabViewPageAttachedCallback) -> C_TabViewPageAttachedCallback
forall a.
GObject a =>
(a -> TabViewPageAttachedCallback) -> C_TabViewPageAttachedCallback
wrap_TabViewPageAttachedCallback a -> TabViewPageAttachedCallback
wrapped
FunPtr C_TabViewPageAttachedCallback
wrapped'' <- C_TabViewPageAttachedCallback
-> IO (FunPtr C_TabViewPageAttachedCallback)
mk_TabViewPageAttachedCallback C_TabViewPageAttachedCallback
wrapped'
a
-> Text
-> FunPtr C_TabViewPageAttachedCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"page-attached" FunPtr C_TabViewPageAttachedCallback
wrapped'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterTabViewPageAttached :: (IsTabView a, MonadIO m) => a -> ((?self :: a) => TabViewPageAttachedCallback) -> m SignalHandlerId
afterTabViewPageAttached :: forall a (m :: * -> *).
(IsTabView a, MonadIO m) =>
a
-> ((?self::a) => TabViewPageAttachedCallback) -> m SignalHandlerId
afterTabViewPageAttached a
obj (?self::a) => TabViewPageAttachedCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> TabViewPageAttachedCallback
wrapped a
self = let ?self = a
?self::a
self in (?self::a) => TabViewPageAttachedCallback
TabViewPageAttachedCallback
cb
let wrapped' :: C_TabViewPageAttachedCallback
wrapped' = (a -> TabViewPageAttachedCallback) -> C_TabViewPageAttachedCallback
forall a.
GObject a =>
(a -> TabViewPageAttachedCallback) -> C_TabViewPageAttachedCallback
wrap_TabViewPageAttachedCallback a -> TabViewPageAttachedCallback
wrapped
FunPtr C_TabViewPageAttachedCallback
wrapped'' <- C_TabViewPageAttachedCallback
-> IO (FunPtr C_TabViewPageAttachedCallback)
mk_TabViewPageAttachedCallback C_TabViewPageAttachedCallback
wrapped'
a
-> Text
-> FunPtr C_TabViewPageAttachedCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"page-attached" FunPtr C_TabViewPageAttachedCallback
wrapped'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data TabViewPageAttachedSignalInfo
instance SignalInfo TabViewPageAttachedSignalInfo where
type HaskellCallbackType TabViewPageAttachedSignalInfo = TabViewPageAttachedCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_TabViewPageAttachedCallback cb
cb'' <- mk_TabViewPageAttachedCallback cb'
connectSignalFunPtr obj "page-attached" cb'' connectMode detail
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.TabView::page-attached"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.3/docs/GI-Adw-Objects-TabView.html#g:signal:pageAttached"})
#endif
type TabViewPageDetachedCallback =
Adw.TabPage.TabPage
-> Int32
-> IO ()
type C_TabViewPageDetachedCallback =
Ptr TabView ->
Ptr Adw.TabPage.TabPage ->
Int32 ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_TabViewPageDetachedCallback :: C_TabViewPageDetachedCallback -> IO (FunPtr C_TabViewPageDetachedCallback)
wrap_TabViewPageDetachedCallback ::
GObject a => (a -> TabViewPageDetachedCallback) ->
C_TabViewPageDetachedCallback
wrap_TabViewPageDetachedCallback :: forall a.
GObject a =>
(a -> TabViewPageAttachedCallback) -> C_TabViewPageAttachedCallback
wrap_TabViewPageDetachedCallback a -> TabViewPageAttachedCallback
gi'cb Ptr TabView
gi'selfPtr Ptr TabPage
page Int32
position Ptr ()
_ = do
TabPage
page' <- ((ManagedPtr TabPage -> TabPage) -> Ptr TabPage -> IO TabPage
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr TabPage -> TabPage
Adw.TabPage.TabPage) Ptr TabPage
page
Ptr TabView -> (TabView -> IO ()) -> IO ()
forall a b.
(HasCallStack, ManagedPtrNewtype a) =>
Ptr a -> (a -> IO b) -> IO b
B.ManagedPtr.withTransient Ptr TabView
gi'selfPtr ((TabView -> IO ()) -> IO ()) -> (TabView -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \TabView
gi'self -> a -> TabViewPageAttachedCallback
gi'cb (TabView -> a
forall a b. Coercible a b => a -> b
Coerce.coerce TabView
gi'self) TabPage
page' Int32
position
onTabViewPageDetached :: (IsTabView a, MonadIO m) => a -> ((?self :: a) => TabViewPageDetachedCallback) -> m SignalHandlerId
onTabViewPageDetached :: forall a (m :: * -> *).
(IsTabView a, MonadIO m) =>
a
-> ((?self::a) => TabViewPageAttachedCallback) -> m SignalHandlerId
onTabViewPageDetached a
obj (?self::a) => TabViewPageAttachedCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> TabViewPageAttachedCallback
wrapped a
self = let ?self = a
?self::a
self in (?self::a) => TabViewPageAttachedCallback
TabViewPageAttachedCallback
cb
let wrapped' :: C_TabViewPageAttachedCallback
wrapped' = (a -> TabViewPageAttachedCallback) -> C_TabViewPageAttachedCallback
forall a.
GObject a =>
(a -> TabViewPageAttachedCallback) -> C_TabViewPageAttachedCallback
wrap_TabViewPageDetachedCallback a -> TabViewPageAttachedCallback
wrapped
FunPtr C_TabViewPageAttachedCallback
wrapped'' <- C_TabViewPageAttachedCallback
-> IO (FunPtr C_TabViewPageAttachedCallback)
mk_TabViewPageDetachedCallback C_TabViewPageAttachedCallback
wrapped'
a
-> Text
-> FunPtr C_TabViewPageAttachedCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"page-detached" FunPtr C_TabViewPageAttachedCallback
wrapped'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterTabViewPageDetached :: (IsTabView a, MonadIO m) => a -> ((?self :: a) => TabViewPageDetachedCallback) -> m SignalHandlerId
afterTabViewPageDetached :: forall a (m :: * -> *).
(IsTabView a, MonadIO m) =>
a
-> ((?self::a) => TabViewPageAttachedCallback) -> m SignalHandlerId
afterTabViewPageDetached a
obj (?self::a) => TabViewPageAttachedCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> TabViewPageAttachedCallback
wrapped a
self = let ?self = a
?self::a
self in (?self::a) => TabViewPageAttachedCallback
TabViewPageAttachedCallback
cb
let wrapped' :: C_TabViewPageAttachedCallback
wrapped' = (a -> TabViewPageAttachedCallback) -> C_TabViewPageAttachedCallback
forall a.
GObject a =>
(a -> TabViewPageAttachedCallback) -> C_TabViewPageAttachedCallback
wrap_TabViewPageDetachedCallback a -> TabViewPageAttachedCallback
wrapped
FunPtr C_TabViewPageAttachedCallback
wrapped'' <- C_TabViewPageAttachedCallback
-> IO (FunPtr C_TabViewPageAttachedCallback)
mk_TabViewPageDetachedCallback C_TabViewPageAttachedCallback
wrapped'
a
-> Text
-> FunPtr C_TabViewPageAttachedCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"page-detached" FunPtr C_TabViewPageAttachedCallback
wrapped'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data TabViewPageDetachedSignalInfo
instance SignalInfo TabViewPageDetachedSignalInfo where
type HaskellCallbackType TabViewPageDetachedSignalInfo = TabViewPageDetachedCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_TabViewPageDetachedCallback cb
cb'' <- mk_TabViewPageDetachedCallback cb'
connectSignalFunPtr obj "page-detached" cb'' connectMode detail
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.TabView::page-detached"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.3/docs/GI-Adw-Objects-TabView.html#g:signal:pageDetached"})
#endif
type =
Adw.TabPage.TabPage
-> Int32
-> IO ()
type =
Ptr TabView ->
Ptr Adw.TabPage.TabPage ->
Int32 ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
:: C_TabViewPageReorderedCallback -> IO (FunPtr C_TabViewPageReorderedCallback)
wrap_TabViewPageReorderedCallback ::
GObject a => (a -> TabViewPageReorderedCallback) ->
C_TabViewPageReorderedCallback
a -> TabViewPageAttachedCallback
gi'cb Ptr TabView
gi'selfPtr Ptr TabPage
page Int32
position Ptr ()
_ = do
TabPage
page' <- ((ManagedPtr TabPage -> TabPage) -> Ptr TabPage -> IO TabPage
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr TabPage -> TabPage
Adw.TabPage.TabPage) Ptr TabPage
page
Ptr TabView -> (TabView -> IO ()) -> IO ()
forall a b.
(HasCallStack, ManagedPtrNewtype a) =>
Ptr a -> (a -> IO b) -> IO b
B.ManagedPtr.withTransient Ptr TabView
gi'selfPtr ((TabView -> IO ()) -> IO ()) -> (TabView -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \TabView
gi'self -> a -> TabViewPageAttachedCallback
gi'cb (TabView -> a
forall a b. Coercible a b => a -> b
Coerce.coerce TabView
gi'self) TabPage
page' Int32
position
onTabViewPageReordered :: (IsTabView a, MonadIO m) => a -> ((?self :: a) => TabViewPageReorderedCallback) -> m SignalHandlerId
a
obj (?self::a) => TabViewPageAttachedCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> TabViewPageAttachedCallback
wrapped a
self = let ?self = a
?self::a
self in (?self::a) => TabViewPageAttachedCallback
TabViewPageAttachedCallback
cb
let wrapped' :: C_TabViewPageAttachedCallback
wrapped' = (a -> TabViewPageAttachedCallback) -> C_TabViewPageAttachedCallback
forall a.
GObject a =>
(a -> TabViewPageAttachedCallback) -> C_TabViewPageAttachedCallback
wrap_TabViewPageReorderedCallback a -> TabViewPageAttachedCallback
wrapped
FunPtr C_TabViewPageAttachedCallback
wrapped'' <- C_TabViewPageAttachedCallback
-> IO (FunPtr C_TabViewPageAttachedCallback)
mk_TabViewPageReorderedCallback C_TabViewPageAttachedCallback
wrapped'
a
-> Text
-> FunPtr C_TabViewPageAttachedCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"page-reordered" FunPtr C_TabViewPageAttachedCallback
wrapped'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterTabViewPageReordered :: (IsTabView a, MonadIO m) => a -> ((?self :: a) => TabViewPageReorderedCallback) -> m SignalHandlerId
a
obj (?self::a) => TabViewPageAttachedCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> TabViewPageAttachedCallback
wrapped a
self = let ?self = a
?self::a
self in (?self::a) => TabViewPageAttachedCallback
TabViewPageAttachedCallback
cb
let wrapped' :: C_TabViewPageAttachedCallback
wrapped' = (a -> TabViewPageAttachedCallback) -> C_TabViewPageAttachedCallback
forall a.
GObject a =>
(a -> TabViewPageAttachedCallback) -> C_TabViewPageAttachedCallback
wrap_TabViewPageReorderedCallback a -> TabViewPageAttachedCallback
wrapped
FunPtr C_TabViewPageAttachedCallback
wrapped'' <- C_TabViewPageAttachedCallback
-> IO (FunPtr C_TabViewPageAttachedCallback)
mk_TabViewPageReorderedCallback C_TabViewPageAttachedCallback
wrapped'
a
-> Text
-> FunPtr C_TabViewPageAttachedCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"page-reordered" FunPtr C_TabViewPageAttachedCallback
wrapped'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data TabViewPageReorderedSignalInfo
instance SignalInfo TabViewPageReorderedSignalInfo where
type HaskellCallbackType TabViewPageReorderedSignalInfo = TabViewPageReorderedCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_TabViewPageReorderedCallback cb
cb'' <- mk_TabViewPageReorderedCallback cb'
connectSignalFunPtr obj "page-reordered" cb'' connectMode detail
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.TabView::page-reordered"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.3/docs/GI-Adw-Objects-TabView.html#g:signal:pageReordered"})
#endif
type =
Maybe Adw.TabPage.TabPage
-> IO ()
type =
Ptr TabView ->
Ptr Adw.TabPage.TabPage ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
:: C_TabViewSetupMenuCallback -> IO (FunPtr C_TabViewSetupMenuCallback)
wrap_TabViewSetupMenuCallback ::
GObject a => (a -> TabViewSetupMenuCallback) ->
C_TabViewSetupMenuCallback
a -> TabViewSetupMenuCallback
gi'cb Ptr TabView
gi'selfPtr Ptr TabPage
page Ptr ()
_ = do
Maybe TabPage
maybePage <-
if Ptr TabPage
page Ptr TabPage -> Ptr TabPage -> Bool
forall a. Eq a => a -> a -> Bool
== Ptr TabPage
forall a. Ptr a
nullPtr
then Maybe TabPage -> IO (Maybe TabPage)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe TabPage
forall a. Maybe a
Nothing
else do
TabPage
page' <- ((ManagedPtr TabPage -> TabPage) -> Ptr TabPage -> IO TabPage
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr TabPage -> TabPage
Adw.TabPage.TabPage) Ptr TabPage
page
Maybe TabPage -> IO (Maybe TabPage)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return (Maybe TabPage -> IO (Maybe TabPage))
-> Maybe TabPage -> IO (Maybe TabPage)
forall a b. (a -> b) -> a -> b
$ TabPage -> Maybe TabPage
forall a. a -> Maybe a
Just TabPage
page'
Ptr TabView -> (TabView -> IO ()) -> IO ()
forall a b.
(HasCallStack, ManagedPtrNewtype a) =>
Ptr a -> (a -> IO b) -> IO b
B.ManagedPtr.withTransient Ptr TabView
gi'selfPtr ((TabView -> IO ()) -> IO ()) -> (TabView -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \TabView
gi'self -> a -> TabViewSetupMenuCallback
gi'cb (TabView -> a
forall a b. Coercible a b => a -> b
Coerce.coerce TabView
gi'self) Maybe TabPage
maybePage
onTabViewSetupMenu :: (IsTabView a, MonadIO m) => a -> ((?self :: a) => TabViewSetupMenuCallback) -> m SignalHandlerId
a
obj (?self::a) => TabViewSetupMenuCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> TabViewSetupMenuCallback
wrapped a
self = let ?self = a
?self::a
self in (?self::a) => TabViewSetupMenuCallback
TabViewSetupMenuCallback
cb
let wrapped' :: C_TabViewIndicatorActivatedCallback
wrapped' = (a -> TabViewSetupMenuCallback)
-> C_TabViewIndicatorActivatedCallback
forall a.
GObject a =>
(a -> TabViewSetupMenuCallback)
-> C_TabViewIndicatorActivatedCallback
wrap_TabViewSetupMenuCallback a -> TabViewSetupMenuCallback
wrapped
FunPtr C_TabViewIndicatorActivatedCallback
wrapped'' <- C_TabViewIndicatorActivatedCallback
-> IO (FunPtr C_TabViewIndicatorActivatedCallback)
mk_TabViewSetupMenuCallback C_TabViewIndicatorActivatedCallback
wrapped'
a
-> Text
-> FunPtr C_TabViewIndicatorActivatedCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"setup-menu" FunPtr C_TabViewIndicatorActivatedCallback
wrapped'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterTabViewSetupMenu :: (IsTabView a, MonadIO m) => a -> ((?self :: a) => TabViewSetupMenuCallback) -> m SignalHandlerId
a
obj (?self::a) => TabViewSetupMenuCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> TabViewSetupMenuCallback
wrapped a
self = let ?self = a
?self::a
self in (?self::a) => TabViewSetupMenuCallback
TabViewSetupMenuCallback
cb
let wrapped' :: C_TabViewIndicatorActivatedCallback
wrapped' = (a -> TabViewSetupMenuCallback)
-> C_TabViewIndicatorActivatedCallback
forall a.
GObject a =>
(a -> TabViewSetupMenuCallback)
-> C_TabViewIndicatorActivatedCallback
wrap_TabViewSetupMenuCallback a -> TabViewSetupMenuCallback
wrapped
FunPtr C_TabViewIndicatorActivatedCallback
wrapped'' <- C_TabViewIndicatorActivatedCallback
-> IO (FunPtr C_TabViewIndicatorActivatedCallback)
mk_TabViewSetupMenuCallback C_TabViewIndicatorActivatedCallback
wrapped'
a
-> Text
-> FunPtr C_TabViewIndicatorActivatedCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"setup-menu" FunPtr C_TabViewIndicatorActivatedCallback
wrapped'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data TabViewSetupMenuSignalInfo
instance SignalInfo TabViewSetupMenuSignalInfo where
type HaskellCallbackType TabViewSetupMenuSignalInfo = TabViewSetupMenuCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_TabViewSetupMenuCallback cb
cb'' <- mk_TabViewSetupMenuCallback cb'
connectSignalFunPtr obj "setup-menu" cb'' connectMode detail
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.TabView::setup-menu"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.3/docs/GI-Adw-Objects-TabView.html#g:signal:setupMenu"})
#endif
getTabViewDefaultIcon :: (MonadIO m, IsTabView o) => o -> m Gio.Icon.Icon
getTabViewDefaultIcon :: forall (m :: * -> *) o. (MonadIO m, IsTabView o) => o -> m Icon
getTabViewDefaultIcon o
obj = IO Icon -> m Icon
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Icon -> m Icon) -> IO Icon -> m Icon
forall a b. (a -> b) -> a -> b
$ Text -> IO (Maybe Icon) -> IO Icon
forall a. HasCallStack => Text -> IO (Maybe a) -> IO a
checkUnexpectedNothing Text
"getTabViewDefaultIcon" (IO (Maybe Icon) -> IO Icon) -> IO (Maybe Icon) -> IO Icon
forall a b. (a -> b) -> a -> b
$ o -> String -> (ManagedPtr Icon -> Icon) -> IO (Maybe Icon)
forall a b.
(GObject a, GObject b) =>
a -> String -> (ManagedPtr b -> b) -> IO (Maybe b)
B.Properties.getObjectPropertyObject o
obj String
"default-icon" ManagedPtr Icon -> Icon
Gio.Icon.Icon
setTabViewDefaultIcon :: (MonadIO m, IsTabView o, Gio.Icon.IsIcon a) => o -> a -> m ()
setTabViewDefaultIcon :: forall (m :: * -> *) o a.
(MonadIO m, IsTabView o, IsIcon a) =>
o -> a -> m ()
setTabViewDefaultIcon o
obj a
val = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Maybe a -> IO ()
forall a b.
(GObject a, GObject b) =>
a -> String -> Maybe b -> IO ()
B.Properties.setObjectPropertyObject o
obj String
"default-icon" (a -> Maybe a
forall a. a -> Maybe a
Just a
val)
constructTabViewDefaultIcon :: (IsTabView o, MIO.MonadIO m, Gio.Icon.IsIcon a) => a -> m (GValueConstruct o)
constructTabViewDefaultIcon :: forall o (m :: * -> *) a.
(IsTabView o, MonadIO m, IsIcon a) =>
a -> m (GValueConstruct o)
constructTabViewDefaultIcon a
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Maybe a -> IO (GValueConstruct o)
forall a o.
GObject a =>
String -> Maybe a -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyObject String
"default-icon" (a -> Maybe a
forall a. a -> Maybe a
P.Just a
val)
#if defined(ENABLE_OVERLOADING)
data TabViewDefaultIconPropertyInfo
instance AttrInfo TabViewDefaultIconPropertyInfo where
type AttrAllowedOps TabViewDefaultIconPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint TabViewDefaultIconPropertyInfo = IsTabView
type AttrSetTypeConstraint TabViewDefaultIconPropertyInfo = Gio.Icon.IsIcon
type AttrTransferTypeConstraint TabViewDefaultIconPropertyInfo = Gio.Icon.IsIcon
type AttrTransferType TabViewDefaultIconPropertyInfo = Gio.Icon.Icon
type AttrGetType TabViewDefaultIconPropertyInfo = Gio.Icon.Icon
type AttrLabel TabViewDefaultIconPropertyInfo = "default-icon"
type AttrOrigin TabViewDefaultIconPropertyInfo = TabView
attrGet = getTabViewDefaultIcon
attrSet = setTabViewDefaultIcon
attrTransfer _ v = do
unsafeCastTo Gio.Icon.Icon v
attrConstruct = constructTabViewDefaultIcon
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.TabView.defaultIcon"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.3/docs/GI-Adw-Objects-TabView.html#g:attr:defaultIcon"
})
#endif
getTabViewIsTransferringPage :: (MonadIO m, IsTabView o) => o -> m Bool
getTabViewIsTransferringPage :: forall (m :: * -> *) o. (MonadIO m, IsTabView o) => o -> m Bool
getTabViewIsTransferringPage o
obj = IO Bool -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj String
"is-transferring-page"
#if defined(ENABLE_OVERLOADING)
data TabViewIsTransferringPagePropertyInfo
instance AttrInfo TabViewIsTransferringPagePropertyInfo where
type AttrAllowedOps TabViewIsTransferringPagePropertyInfo = '[ 'AttrGet]
type AttrBaseTypeConstraint TabViewIsTransferringPagePropertyInfo = IsTabView
type AttrSetTypeConstraint TabViewIsTransferringPagePropertyInfo = (~) ()
type AttrTransferTypeConstraint TabViewIsTransferringPagePropertyInfo = (~) ()
type AttrTransferType TabViewIsTransferringPagePropertyInfo = ()
type AttrGetType TabViewIsTransferringPagePropertyInfo = Bool
type AttrLabel TabViewIsTransferringPagePropertyInfo = "is-transferring-page"
type AttrOrigin TabViewIsTransferringPagePropertyInfo = TabView
attrGet = getTabViewIsTransferringPage
attrSet = undefined
attrTransfer _ = undefined
attrConstruct = undefined
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.TabView.isTransferringPage"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.3/docs/GI-Adw-Objects-TabView.html#g:attr:isTransferringPage"
})
#endif
getTabViewMenuModel :: (MonadIO m, IsTabView o) => o -> m (Maybe Gio.MenuModel.MenuModel)
o
obj = IO (Maybe MenuModel) -> m (Maybe MenuModel)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (Maybe MenuModel) -> m (Maybe MenuModel))
-> IO (Maybe MenuModel) -> m (Maybe MenuModel)
forall a b. (a -> b) -> a -> b
$ o
-> String
-> (ManagedPtr MenuModel -> MenuModel)
-> IO (Maybe MenuModel)
forall a b.
(GObject a, GObject b) =>
a -> String -> (ManagedPtr b -> b) -> IO (Maybe b)
B.Properties.getObjectPropertyObject o
obj String
"menu-model" ManagedPtr MenuModel -> MenuModel
Gio.MenuModel.MenuModel
setTabViewMenuModel :: (MonadIO m, IsTabView o, Gio.MenuModel.IsMenuModel a) => o -> a -> m ()
o
obj a
val = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Maybe a -> IO ()
forall a b.
(GObject a, GObject b) =>
a -> String -> Maybe b -> IO ()
B.Properties.setObjectPropertyObject o
obj String
"menu-model" (a -> Maybe a
forall a. a -> Maybe a
Just a
val)
constructTabViewMenuModel :: (IsTabView o, MIO.MonadIO m, Gio.MenuModel.IsMenuModel a) => a -> m (GValueConstruct o)
a
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Maybe a -> IO (GValueConstruct o)
forall a o.
GObject a =>
String -> Maybe a -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyObject String
"menu-model" (a -> Maybe a
forall a. a -> Maybe a
P.Just a
val)
clearTabViewMenuModel :: (MonadIO m, IsTabView o) => o -> m ()
o
obj = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Maybe MenuModel -> IO ()
forall a b.
(GObject a, GObject b) =>
a -> String -> Maybe b -> IO ()
B.Properties.setObjectPropertyObject o
obj String
"menu-model" (Maybe MenuModel
forall a. Maybe a
Nothing :: Maybe Gio.MenuModel.MenuModel)
#if defined(ENABLE_OVERLOADING)
data TabViewMenuModelPropertyInfo
instance AttrInfo TabViewMenuModelPropertyInfo where
type AttrAllowedOps TabViewMenuModelPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint TabViewMenuModelPropertyInfo = IsTabView
type AttrSetTypeConstraint TabViewMenuModelPropertyInfo = Gio.MenuModel.IsMenuModel
type AttrTransferTypeConstraint TabViewMenuModelPropertyInfo = Gio.MenuModel.IsMenuModel
type AttrTransferType TabViewMenuModelPropertyInfo = Gio.MenuModel.MenuModel
type AttrGetType TabViewMenuModelPropertyInfo = (Maybe Gio.MenuModel.MenuModel)
type AttrLabel TabViewMenuModelPropertyInfo = "menu-model"
type AttrOrigin TabViewMenuModelPropertyInfo = TabView
attrGet = getTabViewMenuModel
attrSet = setTabViewMenuModel
attrTransfer _ v = do
unsafeCastTo Gio.MenuModel.MenuModel v
attrConstruct = constructTabViewMenuModel
attrClear = clearTabViewMenuModel
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.TabView.menuModel"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.3/docs/GI-Adw-Objects-TabView.html#g:attr:menuModel"
})
#endif
getTabViewNPages :: (MonadIO m, IsTabView o) => o -> m Int32
getTabViewNPages :: forall (m :: * -> *) o. (MonadIO m, IsTabView o) => o -> m Int32
getTabViewNPages o
obj = IO Int32 -> m Int32
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Int32 -> m Int32) -> IO Int32 -> m Int32
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Int32
forall a. GObject a => a -> String -> IO Int32
B.Properties.getObjectPropertyInt32 o
obj String
"n-pages"
#if defined(ENABLE_OVERLOADING)
data TabViewNPagesPropertyInfo
instance AttrInfo TabViewNPagesPropertyInfo where
type AttrAllowedOps TabViewNPagesPropertyInfo = '[ 'AttrGet]
type AttrBaseTypeConstraint TabViewNPagesPropertyInfo = IsTabView
type AttrSetTypeConstraint TabViewNPagesPropertyInfo = (~) ()
type AttrTransferTypeConstraint TabViewNPagesPropertyInfo = (~) ()
type AttrTransferType TabViewNPagesPropertyInfo = ()
type AttrGetType TabViewNPagesPropertyInfo = Int32
type AttrLabel TabViewNPagesPropertyInfo = "n-pages"
type AttrOrigin TabViewNPagesPropertyInfo = TabView
attrGet = getTabViewNPages
attrSet = undefined
attrTransfer _ = undefined
attrConstruct = undefined
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.TabView.nPages"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.3/docs/GI-Adw-Objects-TabView.html#g:attr:nPages"
})
#endif
getTabViewNPinnedPages :: (MonadIO m, IsTabView o) => o -> m Int32
getTabViewNPinnedPages :: forall (m :: * -> *) o. (MonadIO m, IsTabView o) => o -> m Int32
getTabViewNPinnedPages o
obj = IO Int32 -> m Int32
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Int32 -> m Int32) -> IO Int32 -> m Int32
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Int32
forall a. GObject a => a -> String -> IO Int32
B.Properties.getObjectPropertyInt32 o
obj String
"n-pinned-pages"
#if defined(ENABLE_OVERLOADING)
data TabViewNPinnedPagesPropertyInfo
instance AttrInfo TabViewNPinnedPagesPropertyInfo where
type AttrAllowedOps TabViewNPinnedPagesPropertyInfo = '[ 'AttrGet]
type AttrBaseTypeConstraint TabViewNPinnedPagesPropertyInfo = IsTabView
type AttrSetTypeConstraint TabViewNPinnedPagesPropertyInfo = (~) ()
type AttrTransferTypeConstraint TabViewNPinnedPagesPropertyInfo = (~) ()
type AttrTransferType TabViewNPinnedPagesPropertyInfo = ()
type AttrGetType TabViewNPinnedPagesPropertyInfo = Int32
type AttrLabel TabViewNPinnedPagesPropertyInfo = "n-pinned-pages"
type AttrOrigin TabViewNPinnedPagesPropertyInfo = TabView
attrGet = getTabViewNPinnedPages
attrSet = undefined
attrTransfer _ = undefined
attrConstruct = undefined
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.TabView.nPinnedPages"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.3/docs/GI-Adw-Objects-TabView.html#g:attr:nPinnedPages"
})
#endif
getTabViewPages :: (MonadIO m, IsTabView o) => o -> m (Maybe Gtk.SelectionModel.SelectionModel)
getTabViewPages :: forall (m :: * -> *) o.
(MonadIO m, IsTabView o) =>
o -> m (Maybe SelectionModel)
getTabViewPages o
obj = IO (Maybe SelectionModel) -> m (Maybe SelectionModel)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (Maybe SelectionModel) -> m (Maybe SelectionModel))
-> IO (Maybe SelectionModel) -> m (Maybe SelectionModel)
forall a b. (a -> b) -> a -> b
$ o
-> String
-> (ManagedPtr SelectionModel -> SelectionModel)
-> IO (Maybe SelectionModel)
forall a b.
(GObject a, GObject b) =>
a -> String -> (ManagedPtr b -> b) -> IO (Maybe b)
B.Properties.getObjectPropertyObject o
obj String
"pages" ManagedPtr SelectionModel -> SelectionModel
Gtk.SelectionModel.SelectionModel
#if defined(ENABLE_OVERLOADING)
data TabViewPagesPropertyInfo
instance AttrInfo TabViewPagesPropertyInfo where
type AttrAllowedOps TabViewPagesPropertyInfo = '[ 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint TabViewPagesPropertyInfo = IsTabView
type AttrSetTypeConstraint TabViewPagesPropertyInfo = (~) ()
type AttrTransferTypeConstraint TabViewPagesPropertyInfo = (~) ()
type AttrTransferType TabViewPagesPropertyInfo = ()
type AttrGetType TabViewPagesPropertyInfo = (Maybe Gtk.SelectionModel.SelectionModel)
type AttrLabel TabViewPagesPropertyInfo = "pages"
type AttrOrigin TabViewPagesPropertyInfo = TabView
attrGet = getTabViewPages
attrSet = undefined
attrTransfer _ = undefined
attrConstruct = undefined
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.TabView.pages"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.3/docs/GI-Adw-Objects-TabView.html#g:attr:pages"
})
#endif
getTabViewSelectedPage :: (MonadIO m, IsTabView o) => o -> m (Maybe Adw.TabPage.TabPage)
getTabViewSelectedPage :: forall (m :: * -> *) o.
(MonadIO m, IsTabView o) =>
o -> m (Maybe TabPage)
getTabViewSelectedPage o
obj = IO (Maybe TabPage) -> m (Maybe TabPage)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (Maybe TabPage) -> m (Maybe TabPage))
-> IO (Maybe TabPage) -> m (Maybe TabPage)
forall a b. (a -> b) -> a -> b
$ o
-> String -> (ManagedPtr TabPage -> TabPage) -> IO (Maybe TabPage)
forall a b.
(GObject a, GObject b) =>
a -> String -> (ManagedPtr b -> b) -> IO (Maybe b)
B.Properties.getObjectPropertyObject o
obj String
"selected-page" ManagedPtr TabPage -> TabPage
Adw.TabPage.TabPage
setTabViewSelectedPage :: (MonadIO m, IsTabView o, Adw.TabPage.IsTabPage a) => o -> a -> m ()
setTabViewSelectedPage :: forall (m :: * -> *) o a.
(MonadIO m, IsTabView o, IsTabPage a) =>
o -> a -> m ()
setTabViewSelectedPage o
obj a
val = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Maybe a -> IO ()
forall a b.
(GObject a, GObject b) =>
a -> String -> Maybe b -> IO ()
B.Properties.setObjectPropertyObject o
obj String
"selected-page" (a -> Maybe a
forall a. a -> Maybe a
Just a
val)
constructTabViewSelectedPage :: (IsTabView o, MIO.MonadIO m, Adw.TabPage.IsTabPage a) => a -> m (GValueConstruct o)
constructTabViewSelectedPage :: forall o (m :: * -> *) a.
(IsTabView o, MonadIO m, IsTabPage a) =>
a -> m (GValueConstruct o)
constructTabViewSelectedPage a
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Maybe a -> IO (GValueConstruct o)
forall a o.
GObject a =>
String -> Maybe a -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyObject String
"selected-page" (a -> Maybe a
forall a. a -> Maybe a
P.Just a
val)
#if defined(ENABLE_OVERLOADING)
data TabViewSelectedPagePropertyInfo
instance AttrInfo TabViewSelectedPagePropertyInfo where
type AttrAllowedOps TabViewSelectedPagePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint TabViewSelectedPagePropertyInfo = IsTabView
type AttrSetTypeConstraint TabViewSelectedPagePropertyInfo = Adw.TabPage.IsTabPage
type AttrTransferTypeConstraint TabViewSelectedPagePropertyInfo = Adw.TabPage.IsTabPage
type AttrTransferType TabViewSelectedPagePropertyInfo = Adw.TabPage.TabPage
type AttrGetType TabViewSelectedPagePropertyInfo = (Maybe Adw.TabPage.TabPage)
type AttrLabel TabViewSelectedPagePropertyInfo = "selected-page"
type AttrOrigin TabViewSelectedPagePropertyInfo = TabView
attrGet = getTabViewSelectedPage
attrSet = setTabViewSelectedPage
attrTransfer _ v = do
unsafeCastTo Adw.TabPage.TabPage v
attrConstruct = constructTabViewSelectedPage
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.TabView.selectedPage"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.3/docs/GI-Adw-Objects-TabView.html#g:attr:selectedPage"
})
#endif
getTabViewShortcuts :: (MonadIO m, IsTabView o) => o -> m [Adw.Flags.TabViewShortcuts]
getTabViewShortcuts :: forall (m :: * -> *) o.
(MonadIO m, IsTabView o) =>
o -> m [TabViewShortcuts]
getTabViewShortcuts o
obj = IO [TabViewShortcuts] -> m [TabViewShortcuts]
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO [TabViewShortcuts] -> m [TabViewShortcuts])
-> IO [TabViewShortcuts] -> m [TabViewShortcuts]
forall a b. (a -> b) -> a -> b
$ o -> String -> IO [TabViewShortcuts]
forall a b.
(GObject a, IsGFlag b, BoxedFlags b) =>
a -> String -> IO [b]
B.Properties.getObjectPropertyFlags o
obj String
"shortcuts"
setTabViewShortcuts :: (MonadIO m, IsTabView o) => o -> [Adw.Flags.TabViewShortcuts] -> m ()
setTabViewShortcuts :: forall (m :: * -> *) o.
(MonadIO m, IsTabView o) =>
o -> [TabViewShortcuts] -> m ()
setTabViewShortcuts o
obj [TabViewShortcuts]
val = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> [TabViewShortcuts] -> IO ()
forall a b.
(IsGFlag b, BoxedFlags b, GObject a) =>
a -> String -> [b] -> IO ()
B.Properties.setObjectPropertyFlags o
obj String
"shortcuts" [TabViewShortcuts]
val
constructTabViewShortcuts :: (IsTabView o, MIO.MonadIO m) => [Adw.Flags.TabViewShortcuts] -> m (GValueConstruct o)
constructTabViewShortcuts :: forall o (m :: * -> *).
(IsTabView o, MonadIO m) =>
[TabViewShortcuts] -> m (GValueConstruct o)
constructTabViewShortcuts [TabViewShortcuts]
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> [TabViewShortcuts] -> IO (GValueConstruct o)
forall a o.
(IsGFlag a, BoxedFlags a) =>
String -> [a] -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyFlags String
"shortcuts" [TabViewShortcuts]
val
#if defined(ENABLE_OVERLOADING)
data TabViewShortcutsPropertyInfo
instance AttrInfo TabViewShortcutsPropertyInfo where
type AttrAllowedOps TabViewShortcutsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint TabViewShortcutsPropertyInfo = IsTabView
type AttrSetTypeConstraint TabViewShortcutsPropertyInfo = (~) [Adw.Flags.TabViewShortcuts]
type AttrTransferTypeConstraint TabViewShortcutsPropertyInfo = (~) [Adw.Flags.TabViewShortcuts]
type AttrTransferType TabViewShortcutsPropertyInfo = [Adw.Flags.TabViewShortcuts]
type AttrGetType TabViewShortcutsPropertyInfo = [Adw.Flags.TabViewShortcuts]
type AttrLabel TabViewShortcutsPropertyInfo = "shortcuts"
type AttrOrigin TabViewShortcutsPropertyInfo = TabView
attrGet = getTabViewShortcuts
attrSet = setTabViewShortcuts
attrTransfer _ v = do
return v
attrConstruct = constructTabViewShortcuts
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.TabView.shortcuts"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.3/docs/GI-Adw-Objects-TabView.html#g:attr:shortcuts"
})
#endif
#if defined(ENABLE_OVERLOADING)
instance O.HasAttributeList TabView
type instance O.AttributeList TabView = TabViewAttributeList
type TabViewAttributeList = ('[ '("accessibleRole", Gtk.Accessible.AccessibleAccessibleRolePropertyInfo), '("canFocus", Gtk.Widget.WidgetCanFocusPropertyInfo), '("canTarget", Gtk.Widget.WidgetCanTargetPropertyInfo), '("cssClasses", Gtk.Widget.WidgetCssClassesPropertyInfo), '("cssName", Gtk.Widget.WidgetCssNamePropertyInfo), '("cursor", Gtk.Widget.WidgetCursorPropertyInfo), '("defaultIcon", TabViewDefaultIconPropertyInfo), '("focusOnClick", Gtk.Widget.WidgetFocusOnClickPropertyInfo), '("focusable", Gtk.Widget.WidgetFocusablePropertyInfo), '("halign", Gtk.Widget.WidgetHalignPropertyInfo), '("hasDefault", Gtk.Widget.WidgetHasDefaultPropertyInfo), '("hasFocus", Gtk.Widget.WidgetHasFocusPropertyInfo), '("hasTooltip", Gtk.Widget.WidgetHasTooltipPropertyInfo), '("heightRequest", Gtk.Widget.WidgetHeightRequestPropertyInfo), '("hexpand", Gtk.Widget.WidgetHexpandPropertyInfo), '("hexpandSet", Gtk.Widget.WidgetHexpandSetPropertyInfo), '("isTransferringPage", TabViewIsTransferringPagePropertyInfo), '("layoutManager", Gtk.Widget.WidgetLayoutManagerPropertyInfo), '("marginBottom", Gtk.Widget.WidgetMarginBottomPropertyInfo), '("marginEnd", Gtk.Widget.WidgetMarginEndPropertyInfo), '("marginStart", Gtk.Widget.WidgetMarginStartPropertyInfo), '("marginTop", Gtk.Widget.WidgetMarginTopPropertyInfo), '("menuModel", TabViewMenuModelPropertyInfo), '("nPages", TabViewNPagesPropertyInfo), '("nPinnedPages", TabViewNPinnedPagesPropertyInfo), '("name", Gtk.Widget.WidgetNamePropertyInfo), '("opacity", Gtk.Widget.WidgetOpacityPropertyInfo), '("overflow", Gtk.Widget.WidgetOverflowPropertyInfo), '("pages", TabViewPagesPropertyInfo), '("parent", Gtk.Widget.WidgetParentPropertyInfo), '("receivesDefault", Gtk.Widget.WidgetReceivesDefaultPropertyInfo), '("root", Gtk.Widget.WidgetRootPropertyInfo), '("scaleFactor", Gtk.Widget.WidgetScaleFactorPropertyInfo), '("selectedPage", TabViewSelectedPagePropertyInfo), '("sensitive", Gtk.Widget.WidgetSensitivePropertyInfo), '("shortcuts", TabViewShortcutsPropertyInfo), '("tooltipMarkup", Gtk.Widget.WidgetTooltipMarkupPropertyInfo), '("tooltipText", Gtk.Widget.WidgetTooltipTextPropertyInfo), '("valign", Gtk.Widget.WidgetValignPropertyInfo), '("vexpand", Gtk.Widget.WidgetVexpandPropertyInfo), '("vexpandSet", Gtk.Widget.WidgetVexpandSetPropertyInfo), '("visible", Gtk.Widget.WidgetVisiblePropertyInfo), '("widthRequest", Gtk.Widget.WidgetWidthRequestPropertyInfo)] :: [(Symbol, *)])
#endif
#if defined(ENABLE_OVERLOADING)
tabViewDefaultIcon :: AttrLabelProxy "defaultIcon"
tabViewDefaultIcon = AttrLabelProxy
tabViewIsTransferringPage :: AttrLabelProxy "isTransferringPage"
tabViewIsTransferringPage = AttrLabelProxy
tabViewMenuModel :: AttrLabelProxy "menuModel"
tabViewMenuModel = AttrLabelProxy
tabViewNPages :: AttrLabelProxy "nPages"
tabViewNPages = AttrLabelProxy
tabViewNPinnedPages :: AttrLabelProxy "nPinnedPages"
tabViewNPinnedPages = AttrLabelProxy
tabViewPages :: AttrLabelProxy "pages"
tabViewPages = AttrLabelProxy
tabViewSelectedPage :: AttrLabelProxy "selectedPage"
tabViewSelectedPage = AttrLabelProxy
tabViewShortcuts :: AttrLabelProxy "shortcuts"
tabViewShortcuts = AttrLabelProxy
#endif
#if defined(ENABLE_OVERLOADING)
type instance O.SignalList TabView = TabViewSignalList
type TabViewSignalList = ('[ '("closePage", TabViewClosePageSignalInfo), '("createWindow", TabViewCreateWindowSignalInfo), '("destroy", Gtk.Widget.WidgetDestroySignalInfo), '("directionChanged", Gtk.Widget.WidgetDirectionChangedSignalInfo), '("hide", Gtk.Widget.WidgetHideSignalInfo), '("indicatorActivated", TabViewIndicatorActivatedSignalInfo), '("keynavFailed", Gtk.Widget.WidgetKeynavFailedSignalInfo), '("map", Gtk.Widget.WidgetMapSignalInfo), '("mnemonicActivate", Gtk.Widget.WidgetMnemonicActivateSignalInfo), '("moveFocus", Gtk.Widget.WidgetMoveFocusSignalInfo), '("notify", GObject.Object.ObjectNotifySignalInfo), '("pageAttached", TabViewPageAttachedSignalInfo), '("pageDetached", TabViewPageDetachedSignalInfo), '("pageReordered", TabViewPageReorderedSignalInfo), '("queryTooltip", Gtk.Widget.WidgetQueryTooltipSignalInfo), '("realize", Gtk.Widget.WidgetRealizeSignalInfo), '("setupMenu", TabViewSetupMenuSignalInfo), '("show", Gtk.Widget.WidgetShowSignalInfo), '("stateFlagsChanged", Gtk.Widget.WidgetStateFlagsChangedSignalInfo), '("unmap", Gtk.Widget.WidgetUnmapSignalInfo), '("unrealize", Gtk.Widget.WidgetUnrealizeSignalInfo)] :: [(Symbol, *)])
#endif
foreign import ccall "adw_tab_view_new" adw_tab_view_new ::
IO (Ptr TabView)
tabViewNew ::
(B.CallStack.HasCallStack, MonadIO m) =>
m TabView
tabViewNew :: forall (m :: * -> *). (HasCallStack, MonadIO m) => m TabView
tabViewNew = IO TabView -> m TabView
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO TabView -> m TabView) -> IO TabView -> m TabView
forall a b. (a -> b) -> a -> b
$ do
Ptr TabView
result <- IO (Ptr TabView)
adw_tab_view_new
Text -> Ptr TabView -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"tabViewNew" Ptr TabView
result
TabView
result' <- ((ManagedPtr TabView -> TabView) -> Ptr TabView -> IO TabView
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr TabView -> TabView
TabView) Ptr TabView
result
TabView -> IO TabView
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return TabView
result'
#if defined(ENABLE_OVERLOADING)
#endif
foreign import ccall "adw_tab_view_add_page" adw_tab_view_add_page ::
Ptr TabView ->
Ptr Gtk.Widget.Widget ->
Ptr Adw.TabPage.TabPage ->
IO (Ptr Adw.TabPage.TabPage)
tabViewAddPage ::
(B.CallStack.HasCallStack, MonadIO m, IsTabView a, Gtk.Widget.IsWidget b, Adw.TabPage.IsTabPage c) =>
a
-> b
-> Maybe (c)
-> m Adw.TabPage.TabPage
tabViewAddPage :: forall (m :: * -> *) a b c.
(HasCallStack, MonadIO m, IsTabView a, IsWidget b, IsTabPage c) =>
a -> b -> Maybe c -> m TabPage
tabViewAddPage a
self b
child Maybe c
parent = IO TabPage -> m TabPage
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO TabPage -> m TabPage) -> IO TabPage -> m TabPage
forall a b. (a -> b) -> a -> b
$ do
Ptr TabView
self' <- a -> IO (Ptr TabView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr Widget
child' <- b -> IO (Ptr Widget)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
child
Ptr TabPage
maybeParent <- case Maybe c
parent of
Maybe c
Nothing -> Ptr TabPage -> IO (Ptr TabPage)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr TabPage
forall a. Ptr a
nullPtr
Just c
jParent -> do
Ptr TabPage
jParent' <- c -> IO (Ptr TabPage)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr c
jParent
Ptr TabPage -> IO (Ptr TabPage)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr TabPage
jParent'
Ptr TabPage
result <- Ptr TabView -> Ptr Widget -> Ptr TabPage -> IO (Ptr TabPage)
adw_tab_view_add_page Ptr TabView
self' Ptr Widget
child' Ptr TabPage
maybeParent
Text -> Ptr TabPage -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"tabViewAddPage" Ptr TabPage
result
TabPage
result' <- ((ManagedPtr TabPage -> TabPage) -> Ptr TabPage -> IO TabPage
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr TabPage -> TabPage
Adw.TabPage.TabPage) Ptr TabPage
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
child
Maybe c -> (c -> IO ()) -> IO ()
forall (m :: * -> *) a. Monad m => Maybe a -> (a -> m ()) -> m ()
whenJust Maybe c
parent c -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr
TabPage -> IO TabPage
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return TabPage
result'
#if defined(ENABLE_OVERLOADING)
data TabViewAddPageMethodInfo
instance (signature ~ (b -> Maybe (c) -> m Adw.TabPage.TabPage), MonadIO m, IsTabView a, Gtk.Widget.IsWidget b, Adw.TabPage.IsTabPage c) => O.OverloadedMethod TabViewAddPageMethodInfo a signature where
overloadedMethod = tabViewAddPage
instance O.OverloadedMethodInfo TabViewAddPageMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.TabView.tabViewAddPage",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.3/docs/GI-Adw-Objects-TabView.html#v:tabViewAddPage"
})
#endif
foreign import ccall "adw_tab_view_add_shortcuts" adw_tab_view_add_shortcuts ::
Ptr TabView ->
CUInt ->
IO ()
tabViewAddShortcuts ::
(B.CallStack.HasCallStack, MonadIO m, IsTabView a) =>
a
-> [Adw.Flags.TabViewShortcuts]
-> m ()
tabViewAddShortcuts :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTabView a) =>
a -> [TabViewShortcuts] -> m ()
tabViewAddShortcuts a
self [TabViewShortcuts]
shortcuts = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr TabView
self' <- a -> IO (Ptr TabView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
let shortcuts' :: CUInt
shortcuts' = [TabViewShortcuts] -> CUInt
forall b a. (Num b, IsGFlag a) => [a] -> b
gflagsToWord [TabViewShortcuts]
shortcuts
Ptr TabView -> CUInt -> IO ()
adw_tab_view_add_shortcuts Ptr TabView
self' CUInt
shortcuts'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data TabViewAddShortcutsMethodInfo
instance (signature ~ ([Adw.Flags.TabViewShortcuts] -> m ()), MonadIO m, IsTabView a) => O.OverloadedMethod TabViewAddShortcutsMethodInfo a signature where
overloadedMethod = tabViewAddShortcuts
instance O.OverloadedMethodInfo TabViewAddShortcutsMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.TabView.tabViewAddShortcuts",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.3/docs/GI-Adw-Objects-TabView.html#v:tabViewAddShortcuts"
})
#endif
foreign import ccall "adw_tab_view_append" adw_tab_view_append ::
Ptr TabView ->
Ptr Gtk.Widget.Widget ->
IO (Ptr Adw.TabPage.TabPage)
tabViewAppend ::
(B.CallStack.HasCallStack, MonadIO m, IsTabView a, Gtk.Widget.IsWidget b) =>
a
-> b
-> m Adw.TabPage.TabPage
tabViewAppend :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsTabView a, IsWidget b) =>
a -> b -> m TabPage
tabViewAppend a
self b
child = IO TabPage -> m TabPage
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO TabPage -> m TabPage) -> IO TabPage -> m TabPage
forall a b. (a -> b) -> a -> b
$ do
Ptr TabView
self' <- a -> IO (Ptr TabView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr Widget
child' <- b -> IO (Ptr Widget)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
child
Ptr TabPage
result <- Ptr TabView -> Ptr Widget -> IO (Ptr TabPage)
adw_tab_view_append Ptr TabView
self' Ptr Widget
child'
Text -> Ptr TabPage -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"tabViewAppend" Ptr TabPage
result
TabPage
result' <- ((ManagedPtr TabPage -> TabPage) -> Ptr TabPage -> IO TabPage
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr TabPage -> TabPage
Adw.TabPage.TabPage) Ptr TabPage
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
child
TabPage -> IO TabPage
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return TabPage
result'
#if defined(ENABLE_OVERLOADING)
data TabViewAppendMethodInfo
instance (signature ~ (b -> m Adw.TabPage.TabPage), MonadIO m, IsTabView a, Gtk.Widget.IsWidget b) => O.OverloadedMethod TabViewAppendMethodInfo a signature where
overloadedMethod = tabViewAppend
instance O.OverloadedMethodInfo TabViewAppendMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.TabView.tabViewAppend",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.3/docs/GI-Adw-Objects-TabView.html#v:tabViewAppend"
})
#endif
foreign import ccall "adw_tab_view_append_pinned" adw_tab_view_append_pinned ::
Ptr TabView ->
Ptr Gtk.Widget.Widget ->
IO (Ptr Adw.TabPage.TabPage)
tabViewAppendPinned ::
(B.CallStack.HasCallStack, MonadIO m, IsTabView a, Gtk.Widget.IsWidget b) =>
a
-> b
-> m Adw.TabPage.TabPage
tabViewAppendPinned :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsTabView a, IsWidget b) =>
a -> b -> m TabPage
tabViewAppendPinned a
self b
child = IO TabPage -> m TabPage
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO TabPage -> m TabPage) -> IO TabPage -> m TabPage
forall a b. (a -> b) -> a -> b
$ do
Ptr TabView
self' <- a -> IO (Ptr TabView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr Widget
child' <- b -> IO (Ptr Widget)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
child
Ptr TabPage
result <- Ptr TabView -> Ptr Widget -> IO (Ptr TabPage)
adw_tab_view_append_pinned Ptr TabView
self' Ptr Widget
child'
Text -> Ptr TabPage -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"tabViewAppendPinned" Ptr TabPage
result
TabPage
result' <- ((ManagedPtr TabPage -> TabPage) -> Ptr TabPage -> IO TabPage
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr TabPage -> TabPage
Adw.TabPage.TabPage) Ptr TabPage
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
child
TabPage -> IO TabPage
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return TabPage
result'
#if defined(ENABLE_OVERLOADING)
data TabViewAppendPinnedMethodInfo
instance (signature ~ (b -> m Adw.TabPage.TabPage), MonadIO m, IsTabView a, Gtk.Widget.IsWidget b) => O.OverloadedMethod TabViewAppendPinnedMethodInfo a signature where
overloadedMethod = tabViewAppendPinned
instance O.OverloadedMethodInfo TabViewAppendPinnedMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.TabView.tabViewAppendPinned",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.3/docs/GI-Adw-Objects-TabView.html#v:tabViewAppendPinned"
})
#endif
foreign import ccall "adw_tab_view_close_other_pages" adw_tab_view_close_other_pages ::
Ptr TabView ->
Ptr Adw.TabPage.TabPage ->
IO ()
tabViewCloseOtherPages ::
(B.CallStack.HasCallStack, MonadIO m, IsTabView a, Adw.TabPage.IsTabPage b) =>
a
-> b
-> m ()
tabViewCloseOtherPages :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsTabView a, IsTabPage b) =>
a -> b -> m ()
tabViewCloseOtherPages a
self b
page = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr TabView
self' <- a -> IO (Ptr TabView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr TabPage
page' <- b -> IO (Ptr TabPage)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
page
Ptr TabView -> Ptr TabPage -> IO ()
adw_tab_view_close_other_pages Ptr TabView
self' Ptr TabPage
page'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
page
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data TabViewCloseOtherPagesMethodInfo
instance (signature ~ (b -> m ()), MonadIO m, IsTabView a, Adw.TabPage.IsTabPage b) => O.OverloadedMethod TabViewCloseOtherPagesMethodInfo a signature where
overloadedMethod = tabViewCloseOtherPages
instance O.OverloadedMethodInfo TabViewCloseOtherPagesMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.TabView.tabViewCloseOtherPages",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.3/docs/GI-Adw-Objects-TabView.html#v:tabViewCloseOtherPages"
})
#endif
foreign import ccall "adw_tab_view_close_page" adw_tab_view_close_page ::
Ptr TabView ->
Ptr Adw.TabPage.TabPage ->
IO ()
tabViewClosePage ::
(B.CallStack.HasCallStack, MonadIO m, IsTabView a, Adw.TabPage.IsTabPage b) =>
a
-> b
-> m ()
tabViewClosePage :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsTabView a, IsTabPage b) =>
a -> b -> m ()
tabViewClosePage a
self b
page = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr TabView
self' <- a -> IO (Ptr TabView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr TabPage
page' <- b -> IO (Ptr TabPage)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
page
Ptr TabView -> Ptr TabPage -> IO ()
adw_tab_view_close_page Ptr TabView
self' Ptr TabPage
page'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
page
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data TabViewClosePageMethodInfo
instance (signature ~ (b -> m ()), MonadIO m, IsTabView a, Adw.TabPage.IsTabPage b) => O.OverloadedMethod TabViewClosePageMethodInfo a signature where
overloadedMethod = tabViewClosePage
instance O.OverloadedMethodInfo TabViewClosePageMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.TabView.tabViewClosePage",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.3/docs/GI-Adw-Objects-TabView.html#v:tabViewClosePage"
})
#endif
foreign import ccall "adw_tab_view_close_page_finish" adw_tab_view_close_page_finish ::
Ptr TabView ->
Ptr Adw.TabPage.TabPage ->
CInt ->
IO ()
tabViewClosePageFinish ::
(B.CallStack.HasCallStack, MonadIO m, IsTabView a, Adw.TabPage.IsTabPage b) =>
a
-> b
-> Bool
-> m ()
tabViewClosePageFinish :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsTabView a, IsTabPage b) =>
a -> b -> Bool -> m ()
tabViewClosePageFinish a
self b
page Bool
confirm = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr TabView
self' <- a -> IO (Ptr TabView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr TabPage
page' <- b -> IO (Ptr TabPage)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
page
let confirm' :: CInt
confirm' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
fromEnum) Bool
confirm
Ptr TabView -> Ptr TabPage -> CInt -> IO ()
adw_tab_view_close_page_finish Ptr TabView
self' Ptr TabPage
page' CInt
confirm'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
page
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data TabViewClosePageFinishMethodInfo
instance (signature ~ (b -> Bool -> m ()), MonadIO m, IsTabView a, Adw.TabPage.IsTabPage b) => O.OverloadedMethod TabViewClosePageFinishMethodInfo a signature where
overloadedMethod = tabViewClosePageFinish
instance O.OverloadedMethodInfo TabViewClosePageFinishMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.TabView.tabViewClosePageFinish",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.3/docs/GI-Adw-Objects-TabView.html#v:tabViewClosePageFinish"
})
#endif
foreign import ccall "adw_tab_view_close_pages_after" adw_tab_view_close_pages_after ::
Ptr TabView ->
Ptr Adw.TabPage.TabPage ->
IO ()
tabViewClosePagesAfter ::
(B.CallStack.HasCallStack, MonadIO m, IsTabView a, Adw.TabPage.IsTabPage b) =>
a
-> b
-> m ()
tabViewClosePagesAfter :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsTabView a, IsTabPage b) =>
a -> b -> m ()
tabViewClosePagesAfter a
self b
page = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr TabView
self' <- a -> IO (Ptr TabView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr TabPage
page' <- b -> IO (Ptr TabPage)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
page
Ptr TabView -> Ptr TabPage -> IO ()
adw_tab_view_close_pages_after Ptr TabView
self' Ptr TabPage
page'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
page
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data TabViewClosePagesAfterMethodInfo
instance (signature ~ (b -> m ()), MonadIO m, IsTabView a, Adw.TabPage.IsTabPage b) => O.OverloadedMethod TabViewClosePagesAfterMethodInfo a signature where
overloadedMethod = tabViewClosePagesAfter
instance O.OverloadedMethodInfo TabViewClosePagesAfterMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.TabView.tabViewClosePagesAfter",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.3/docs/GI-Adw-Objects-TabView.html#v:tabViewClosePagesAfter"
})
#endif
foreign import ccall "adw_tab_view_close_pages_before" adw_tab_view_close_pages_before ::
Ptr TabView ->
Ptr Adw.TabPage.TabPage ->
IO ()
tabViewClosePagesBefore ::
(B.CallStack.HasCallStack, MonadIO m, IsTabView a, Adw.TabPage.IsTabPage b) =>
a
-> b
-> m ()
tabViewClosePagesBefore :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsTabView a, IsTabPage b) =>
a -> b -> m ()
tabViewClosePagesBefore a
self b
page = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr TabView
self' <- a -> IO (Ptr TabView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr TabPage
page' <- b -> IO (Ptr TabPage)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
page
Ptr TabView -> Ptr TabPage -> IO ()
adw_tab_view_close_pages_before Ptr TabView
self' Ptr TabPage
page'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
page
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data TabViewClosePagesBeforeMethodInfo
instance (signature ~ (b -> m ()), MonadIO m, IsTabView a, Adw.TabPage.IsTabPage b) => O.OverloadedMethod TabViewClosePagesBeforeMethodInfo a signature where
overloadedMethod = tabViewClosePagesBefore
instance O.OverloadedMethodInfo TabViewClosePagesBeforeMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.TabView.tabViewClosePagesBefore",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.3/docs/GI-Adw-Objects-TabView.html#v:tabViewClosePagesBefore"
})
#endif
foreign import ccall "adw_tab_view_get_default_icon" adw_tab_view_get_default_icon ::
Ptr TabView ->
IO (Ptr Gio.Icon.Icon)
tabViewGetDefaultIcon ::
(B.CallStack.HasCallStack, MonadIO m, IsTabView a) =>
a
-> m Gio.Icon.Icon
tabViewGetDefaultIcon :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTabView a) =>
a -> m Icon
tabViewGetDefaultIcon a
self = IO Icon -> m Icon
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Icon -> m Icon) -> IO Icon -> m Icon
forall a b. (a -> b) -> a -> b
$ do
Ptr TabView
self' <- a -> IO (Ptr TabView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr Icon
result <- Ptr TabView -> IO (Ptr Icon)
adw_tab_view_get_default_icon Ptr TabView
self'
Text -> Ptr Icon -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"tabViewGetDefaultIcon" Ptr Icon
result
Icon
result' <- ((ManagedPtr Icon -> Icon) -> Ptr Icon -> IO Icon
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr Icon -> Icon
Gio.Icon.Icon) Ptr Icon
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
Icon -> IO Icon
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Icon
result'
#if defined(ENABLE_OVERLOADING)
data TabViewGetDefaultIconMethodInfo
instance (signature ~ (m Gio.Icon.Icon), MonadIO m, IsTabView a) => O.OverloadedMethod TabViewGetDefaultIconMethodInfo a signature where
overloadedMethod = tabViewGetDefaultIcon
instance O.OverloadedMethodInfo TabViewGetDefaultIconMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.TabView.tabViewGetDefaultIcon",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.3/docs/GI-Adw-Objects-TabView.html#v:tabViewGetDefaultIcon"
})
#endif
foreign import ccall "adw_tab_view_get_is_transferring_page" adw_tab_view_get_is_transferring_page ::
Ptr TabView ->
IO CInt
tabViewGetIsTransferringPage ::
(B.CallStack.HasCallStack, MonadIO m, IsTabView a) =>
a
-> m Bool
tabViewGetIsTransferringPage :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTabView a) =>
a -> m Bool
tabViewGetIsTransferringPage a
self = IO Bool -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr TabView
self' <- a -> IO (Ptr TabView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CInt
result <- Ptr TabView -> IO CInt
adw_tab_view_get_is_transferring_page Ptr TabView
self'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
Bool -> IO Bool
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data TabViewGetIsTransferringPageMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsTabView a) => O.OverloadedMethod TabViewGetIsTransferringPageMethodInfo a signature where
overloadedMethod = tabViewGetIsTransferringPage
instance O.OverloadedMethodInfo TabViewGetIsTransferringPageMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.TabView.tabViewGetIsTransferringPage",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.3/docs/GI-Adw-Objects-TabView.html#v:tabViewGetIsTransferringPage"
})
#endif
foreign import ccall "adw_tab_view_get_menu_model" ::
Ptr TabView ->
IO (Ptr Gio.MenuModel.MenuModel)
tabViewGetMenuModel ::
(B.CallStack.HasCallStack, MonadIO m, IsTabView a) =>
a
-> m (Maybe Gio.MenuModel.MenuModel)
a
self = IO (Maybe MenuModel) -> m (Maybe MenuModel)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe MenuModel) -> m (Maybe MenuModel))
-> IO (Maybe MenuModel) -> m (Maybe MenuModel)
forall a b. (a -> b) -> a -> b
$ do
Ptr TabView
self' <- a -> IO (Ptr TabView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr MenuModel
result <- Ptr TabView -> IO (Ptr MenuModel)
adw_tab_view_get_menu_model Ptr TabView
self'
Maybe MenuModel
maybeResult <- Ptr MenuModel
-> (Ptr MenuModel -> IO MenuModel) -> IO (Maybe MenuModel)
forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
convertIfNonNull Ptr MenuModel
result ((Ptr MenuModel -> IO MenuModel) -> IO (Maybe MenuModel))
-> (Ptr MenuModel -> IO MenuModel) -> IO (Maybe MenuModel)
forall a b. (a -> b) -> a -> b
$ \Ptr MenuModel
result' -> do
MenuModel
result'' <- ((ManagedPtr MenuModel -> MenuModel)
-> Ptr MenuModel -> IO MenuModel
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr MenuModel -> MenuModel
Gio.MenuModel.MenuModel) Ptr MenuModel
result'
MenuModel -> IO MenuModel
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return MenuModel
result''
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
Maybe MenuModel -> IO (Maybe MenuModel)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe MenuModel
maybeResult
#if defined(ENABLE_OVERLOADING)
data TabViewGetMenuModelMethodInfo
instance (signature ~ (m (Maybe Gio.MenuModel.MenuModel)), MonadIO m, IsTabView a) => O.OverloadedMethod TabViewGetMenuModelMethodInfo a signature where
overloadedMethod = tabViewGetMenuModel
instance O.OverloadedMethodInfo TabViewGetMenuModelMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.TabView.tabViewGetMenuModel",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.3/docs/GI-Adw-Objects-TabView.html#v:tabViewGetMenuModel"
})
#endif
foreign import ccall "adw_tab_view_get_n_pages" adw_tab_view_get_n_pages ::
Ptr TabView ->
IO Int32
tabViewGetNPages ::
(B.CallStack.HasCallStack, MonadIO m, IsTabView a) =>
a
-> m Int32
tabViewGetNPages :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTabView a) =>
a -> m Int32
tabViewGetNPages a
self = IO Int32 -> m Int32
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Int32 -> m Int32) -> IO Int32 -> m Int32
forall a b. (a -> b) -> a -> b
$ do
Ptr TabView
self' <- a -> IO (Ptr TabView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Int32
result <- Ptr TabView -> IO Int32
adw_tab_view_get_n_pages Ptr TabView
self'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
Int32 -> IO Int32
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Int32
result
#if defined(ENABLE_OVERLOADING)
data TabViewGetNPagesMethodInfo
instance (signature ~ (m Int32), MonadIO m, IsTabView a) => O.OverloadedMethod TabViewGetNPagesMethodInfo a signature where
overloadedMethod = tabViewGetNPages
instance O.OverloadedMethodInfo TabViewGetNPagesMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.TabView.tabViewGetNPages",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.3/docs/GI-Adw-Objects-TabView.html#v:tabViewGetNPages"
})
#endif
foreign import ccall "adw_tab_view_get_n_pinned_pages" adw_tab_view_get_n_pinned_pages ::
Ptr TabView ->
IO Int32
tabViewGetNPinnedPages ::
(B.CallStack.HasCallStack, MonadIO m, IsTabView a) =>
a
-> m Int32
tabViewGetNPinnedPages :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTabView a) =>
a -> m Int32
tabViewGetNPinnedPages a
self = IO Int32 -> m Int32
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Int32 -> m Int32) -> IO Int32 -> m Int32
forall a b. (a -> b) -> a -> b
$ do
Ptr TabView
self' <- a -> IO (Ptr TabView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Int32
result <- Ptr TabView -> IO Int32
adw_tab_view_get_n_pinned_pages Ptr TabView
self'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
Int32 -> IO Int32
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Int32
result
#if defined(ENABLE_OVERLOADING)
data TabViewGetNPinnedPagesMethodInfo
instance (signature ~ (m Int32), MonadIO m, IsTabView a) => O.OverloadedMethod TabViewGetNPinnedPagesMethodInfo a signature where
overloadedMethod = tabViewGetNPinnedPages
instance O.OverloadedMethodInfo TabViewGetNPinnedPagesMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.TabView.tabViewGetNPinnedPages",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.3/docs/GI-Adw-Objects-TabView.html#v:tabViewGetNPinnedPages"
})
#endif
foreign import ccall "adw_tab_view_get_nth_page" adw_tab_view_get_nth_page ::
Ptr TabView ->
Int32 ->
IO (Ptr Adw.TabPage.TabPage)
tabViewGetNthPage ::
(B.CallStack.HasCallStack, MonadIO m, IsTabView a) =>
a
-> Int32
-> m Adw.TabPage.TabPage
tabViewGetNthPage :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTabView a) =>
a -> Int32 -> m TabPage
tabViewGetNthPage a
self Int32
position = IO TabPage -> m TabPage
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO TabPage -> m TabPage) -> IO TabPage -> m TabPage
forall a b. (a -> b) -> a -> b
$ do
Ptr TabView
self' <- a -> IO (Ptr TabView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr TabPage
result <- Ptr TabView -> Int32 -> IO (Ptr TabPage)
adw_tab_view_get_nth_page Ptr TabView
self' Int32
position
Text -> Ptr TabPage -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"tabViewGetNthPage" Ptr TabPage
result
TabPage
result' <- ((ManagedPtr TabPage -> TabPage) -> Ptr TabPage -> IO TabPage
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr TabPage -> TabPage
Adw.TabPage.TabPage) Ptr TabPage
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
TabPage -> IO TabPage
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return TabPage
result'
#if defined(ENABLE_OVERLOADING)
data TabViewGetNthPageMethodInfo
instance (signature ~ (Int32 -> m Adw.TabPage.TabPage), MonadIO m, IsTabView a) => O.OverloadedMethod TabViewGetNthPageMethodInfo a signature where
overloadedMethod = tabViewGetNthPage
instance O.OverloadedMethodInfo TabViewGetNthPageMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.TabView.tabViewGetNthPage",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.3/docs/GI-Adw-Objects-TabView.html#v:tabViewGetNthPage"
})
#endif
foreign import ccall "adw_tab_view_get_page" adw_tab_view_get_page ::
Ptr TabView ->
Ptr Gtk.Widget.Widget ->
IO (Ptr Adw.TabPage.TabPage)
tabViewGetPage ::
(B.CallStack.HasCallStack, MonadIO m, IsTabView a, Gtk.Widget.IsWidget b) =>
a
-> b
-> m Adw.TabPage.TabPage
tabViewGetPage :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsTabView a, IsWidget b) =>
a -> b -> m TabPage
tabViewGetPage a
self b
child = IO TabPage -> m TabPage
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO TabPage -> m TabPage) -> IO TabPage -> m TabPage
forall a b. (a -> b) -> a -> b
$ do
Ptr TabView
self' <- a -> IO (Ptr TabView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr Widget
child' <- b -> IO (Ptr Widget)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
child
Ptr TabPage
result <- Ptr TabView -> Ptr Widget -> IO (Ptr TabPage)
adw_tab_view_get_page Ptr TabView
self' Ptr Widget
child'
Text -> Ptr TabPage -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"tabViewGetPage" Ptr TabPage
result
TabPage
result' <- ((ManagedPtr TabPage -> TabPage) -> Ptr TabPage -> IO TabPage
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr TabPage -> TabPage
Adw.TabPage.TabPage) Ptr TabPage
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
child
TabPage -> IO TabPage
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return TabPage
result'
#if defined(ENABLE_OVERLOADING)
data TabViewGetPageMethodInfo
instance (signature ~ (b -> m Adw.TabPage.TabPage), MonadIO m, IsTabView a, Gtk.Widget.IsWidget b) => O.OverloadedMethod TabViewGetPageMethodInfo a signature where
overloadedMethod = tabViewGetPage
instance O.OverloadedMethodInfo TabViewGetPageMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.TabView.tabViewGetPage",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.3/docs/GI-Adw-Objects-TabView.html#v:tabViewGetPage"
})
#endif
foreign import ccall "adw_tab_view_get_page_position" adw_tab_view_get_page_position ::
Ptr TabView ->
Ptr Adw.TabPage.TabPage ->
IO Int32
tabViewGetPagePosition ::
(B.CallStack.HasCallStack, MonadIO m, IsTabView a, Adw.TabPage.IsTabPage b) =>
a
-> b
-> m Int32
tabViewGetPagePosition :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsTabView a, IsTabPage b) =>
a -> b -> m Int32
tabViewGetPagePosition a
self b
page = IO Int32 -> m Int32
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Int32 -> m Int32) -> IO Int32 -> m Int32
forall a b. (a -> b) -> a -> b
$ do
Ptr TabView
self' <- a -> IO (Ptr TabView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr TabPage
page' <- b -> IO (Ptr TabPage)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
page
Int32
result <- Ptr TabView -> Ptr TabPage -> IO Int32
adw_tab_view_get_page_position Ptr TabView
self' Ptr TabPage
page'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
page
Int32 -> IO Int32
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Int32
result
#if defined(ENABLE_OVERLOADING)
data TabViewGetPagePositionMethodInfo
instance (signature ~ (b -> m Int32), MonadIO m, IsTabView a, Adw.TabPage.IsTabPage b) => O.OverloadedMethod TabViewGetPagePositionMethodInfo a signature where
overloadedMethod = tabViewGetPagePosition
instance O.OverloadedMethodInfo TabViewGetPagePositionMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.TabView.tabViewGetPagePosition",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.3/docs/GI-Adw-Objects-TabView.html#v:tabViewGetPagePosition"
})
#endif
foreign import ccall "adw_tab_view_get_pages" adw_tab_view_get_pages ::
Ptr TabView ->
IO (Ptr Gtk.SelectionModel.SelectionModel)
tabViewGetPages ::
(B.CallStack.HasCallStack, MonadIO m, IsTabView a) =>
a
-> m Gtk.SelectionModel.SelectionModel
tabViewGetPages :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTabView a) =>
a -> m SelectionModel
tabViewGetPages a
self = IO SelectionModel -> m SelectionModel
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SelectionModel -> m SelectionModel)
-> IO SelectionModel -> m SelectionModel
forall a b. (a -> b) -> a -> b
$ do
Ptr TabView
self' <- a -> IO (Ptr TabView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr SelectionModel
result <- Ptr TabView -> IO (Ptr SelectionModel)
adw_tab_view_get_pages Ptr TabView
self'
Text -> Ptr SelectionModel -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"tabViewGetPages" Ptr SelectionModel
result
SelectionModel
result' <- ((ManagedPtr SelectionModel -> SelectionModel)
-> Ptr SelectionModel -> IO SelectionModel
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
wrapObject ManagedPtr SelectionModel -> SelectionModel
Gtk.SelectionModel.SelectionModel) Ptr SelectionModel
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
SelectionModel -> IO SelectionModel
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return SelectionModel
result'
#if defined(ENABLE_OVERLOADING)
data TabViewGetPagesMethodInfo
instance (signature ~ (m Gtk.SelectionModel.SelectionModel), MonadIO m, IsTabView a) => O.OverloadedMethod TabViewGetPagesMethodInfo a signature where
overloadedMethod = tabViewGetPages
instance O.OverloadedMethodInfo TabViewGetPagesMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.TabView.tabViewGetPages",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.3/docs/GI-Adw-Objects-TabView.html#v:tabViewGetPages"
})
#endif
foreign import ccall "adw_tab_view_get_selected_page" adw_tab_view_get_selected_page ::
Ptr TabView ->
IO (Ptr Adw.TabPage.TabPage)
tabViewGetSelectedPage ::
(B.CallStack.HasCallStack, MonadIO m, IsTabView a) =>
a
-> m (Maybe Adw.TabPage.TabPage)
tabViewGetSelectedPage :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTabView a) =>
a -> m (Maybe TabPage)
tabViewGetSelectedPage a
self = IO (Maybe TabPage) -> m (Maybe TabPage)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe TabPage) -> m (Maybe TabPage))
-> IO (Maybe TabPage) -> m (Maybe TabPage)
forall a b. (a -> b) -> a -> b
$ do
Ptr TabView
self' <- a -> IO (Ptr TabView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr TabPage
result <- Ptr TabView -> IO (Ptr TabPage)
adw_tab_view_get_selected_page Ptr TabView
self'
Maybe TabPage
maybeResult <- Ptr TabPage -> (Ptr TabPage -> IO TabPage) -> IO (Maybe TabPage)
forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
convertIfNonNull Ptr TabPage
result ((Ptr TabPage -> IO TabPage) -> IO (Maybe TabPage))
-> (Ptr TabPage -> IO TabPage) -> IO (Maybe TabPage)
forall a b. (a -> b) -> a -> b
$ \Ptr TabPage
result' -> do
TabPage
result'' <- ((ManagedPtr TabPage -> TabPage) -> Ptr TabPage -> IO TabPage
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr TabPage -> TabPage
Adw.TabPage.TabPage) Ptr TabPage
result'
TabPage -> IO TabPage
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return TabPage
result''
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
Maybe TabPage -> IO (Maybe TabPage)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe TabPage
maybeResult
#if defined(ENABLE_OVERLOADING)
data TabViewGetSelectedPageMethodInfo
instance (signature ~ (m (Maybe Adw.TabPage.TabPage)), MonadIO m, IsTabView a) => O.OverloadedMethod TabViewGetSelectedPageMethodInfo a signature where
overloadedMethod = tabViewGetSelectedPage
instance O.OverloadedMethodInfo TabViewGetSelectedPageMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.TabView.tabViewGetSelectedPage",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.3/docs/GI-Adw-Objects-TabView.html#v:tabViewGetSelectedPage"
})
#endif
foreign import ccall "adw_tab_view_get_shortcuts" adw_tab_view_get_shortcuts ::
Ptr TabView ->
IO CUInt
tabViewGetShortcuts ::
(B.CallStack.HasCallStack, MonadIO m, IsTabView a) =>
a
-> m [Adw.Flags.TabViewShortcuts]
tabViewGetShortcuts :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTabView a) =>
a -> m [TabViewShortcuts]
tabViewGetShortcuts a
self = IO [TabViewShortcuts] -> m [TabViewShortcuts]
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO [TabViewShortcuts] -> m [TabViewShortcuts])
-> IO [TabViewShortcuts] -> m [TabViewShortcuts]
forall a b. (a -> b) -> a -> b
$ do
Ptr TabView
self' <- a -> IO (Ptr TabView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CUInt
result <- Ptr TabView -> IO CUInt
adw_tab_view_get_shortcuts Ptr TabView
self'
let result' :: [TabViewShortcuts]
result' = CUInt -> [TabViewShortcuts]
forall a b. (Storable a, Integral a, Bits a, IsGFlag b) => a -> [b]
wordToGFlags CUInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
[TabViewShortcuts] -> IO [TabViewShortcuts]
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return [TabViewShortcuts]
result'
#if defined(ENABLE_OVERLOADING)
data TabViewGetShortcutsMethodInfo
instance (signature ~ (m [Adw.Flags.TabViewShortcuts]), MonadIO m, IsTabView a) => O.OverloadedMethod TabViewGetShortcutsMethodInfo a signature where
overloadedMethod = tabViewGetShortcuts
instance O.OverloadedMethodInfo TabViewGetShortcutsMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.TabView.tabViewGetShortcuts",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.3/docs/GI-Adw-Objects-TabView.html#v:tabViewGetShortcuts"
})
#endif
foreign import ccall "adw_tab_view_insert" adw_tab_view_insert ::
Ptr TabView ->
Ptr Gtk.Widget.Widget ->
Int32 ->
IO (Ptr Adw.TabPage.TabPage)
tabViewInsert ::
(B.CallStack.HasCallStack, MonadIO m, IsTabView a, Gtk.Widget.IsWidget b) =>
a
-> b
-> Int32
-> m Adw.TabPage.TabPage
tabViewInsert :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsTabView a, IsWidget b) =>
a -> b -> Int32 -> m TabPage
tabViewInsert a
self b
child Int32
position = IO TabPage -> m TabPage
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO TabPage -> m TabPage) -> IO TabPage -> m TabPage
forall a b. (a -> b) -> a -> b
$ do
Ptr TabView
self' <- a -> IO (Ptr TabView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr Widget
child' <- b -> IO (Ptr Widget)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
child
Ptr TabPage
result <- Ptr TabView -> Ptr Widget -> Int32 -> IO (Ptr TabPage)
adw_tab_view_insert Ptr TabView
self' Ptr Widget
child' Int32
position
Text -> Ptr TabPage -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"tabViewInsert" Ptr TabPage
result
TabPage
result' <- ((ManagedPtr TabPage -> TabPage) -> Ptr TabPage -> IO TabPage
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr TabPage -> TabPage
Adw.TabPage.TabPage) Ptr TabPage
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
child
TabPage -> IO TabPage
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return TabPage
result'
#if defined(ENABLE_OVERLOADING)
data TabViewInsertMethodInfo
instance (signature ~ (b -> Int32 -> m Adw.TabPage.TabPage), MonadIO m, IsTabView a, Gtk.Widget.IsWidget b) => O.OverloadedMethod TabViewInsertMethodInfo a signature where
overloadedMethod = tabViewInsert
instance O.OverloadedMethodInfo TabViewInsertMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.TabView.tabViewInsert",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.3/docs/GI-Adw-Objects-TabView.html#v:tabViewInsert"
})
#endif
foreign import ccall "adw_tab_view_insert_pinned" adw_tab_view_insert_pinned ::
Ptr TabView ->
Ptr Gtk.Widget.Widget ->
Int32 ->
IO (Ptr Adw.TabPage.TabPage)
tabViewInsertPinned ::
(B.CallStack.HasCallStack, MonadIO m, IsTabView a, Gtk.Widget.IsWidget b) =>
a
-> b
-> Int32
-> m Adw.TabPage.TabPage
tabViewInsertPinned :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsTabView a, IsWidget b) =>
a -> b -> Int32 -> m TabPage
tabViewInsertPinned a
self b
child Int32
position = IO TabPage -> m TabPage
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO TabPage -> m TabPage) -> IO TabPage -> m TabPage
forall a b. (a -> b) -> a -> b
$ do
Ptr TabView
self' <- a -> IO (Ptr TabView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr Widget
child' <- b -> IO (Ptr Widget)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
child
Ptr TabPage
result <- Ptr TabView -> Ptr Widget -> Int32 -> IO (Ptr TabPage)
adw_tab_view_insert_pinned Ptr TabView
self' Ptr Widget
child' Int32
position
Text -> Ptr TabPage -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"tabViewInsertPinned" Ptr TabPage
result
TabPage
result' <- ((ManagedPtr TabPage -> TabPage) -> Ptr TabPage -> IO TabPage
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr TabPage -> TabPage
Adw.TabPage.TabPage) Ptr TabPage
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
child
TabPage -> IO TabPage
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return TabPage
result'
#if defined(ENABLE_OVERLOADING)
data TabViewInsertPinnedMethodInfo
instance (signature ~ (b -> Int32 -> m Adw.TabPage.TabPage), MonadIO m, IsTabView a, Gtk.Widget.IsWidget b) => O.OverloadedMethod TabViewInsertPinnedMethodInfo a signature where
overloadedMethod = tabViewInsertPinned
instance O.OverloadedMethodInfo TabViewInsertPinnedMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.TabView.tabViewInsertPinned",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.3/docs/GI-Adw-Objects-TabView.html#v:tabViewInsertPinned"
})
#endif
foreign import ccall "adw_tab_view_prepend" adw_tab_view_prepend ::
Ptr TabView ->
Ptr Gtk.Widget.Widget ->
IO (Ptr Adw.TabPage.TabPage)
tabViewPrepend ::
(B.CallStack.HasCallStack, MonadIO m, IsTabView a, Gtk.Widget.IsWidget b) =>
a
-> b
-> m Adw.TabPage.TabPage
tabViewPrepend :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsTabView a, IsWidget b) =>
a -> b -> m TabPage
tabViewPrepend a
self b
child = IO TabPage -> m TabPage
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO TabPage -> m TabPage) -> IO TabPage -> m TabPage
forall a b. (a -> b) -> a -> b
$ do
Ptr TabView
self' <- a -> IO (Ptr TabView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr Widget
child' <- b -> IO (Ptr Widget)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
child
Ptr TabPage
result <- Ptr TabView -> Ptr Widget -> IO (Ptr TabPage)
adw_tab_view_prepend Ptr TabView
self' Ptr Widget
child'
Text -> Ptr TabPage -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"tabViewPrepend" Ptr TabPage
result
TabPage
result' <- ((ManagedPtr TabPage -> TabPage) -> Ptr TabPage -> IO TabPage
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr TabPage -> TabPage
Adw.TabPage.TabPage) Ptr TabPage
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
child
TabPage -> IO TabPage
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return TabPage
result'
#if defined(ENABLE_OVERLOADING)
data TabViewPrependMethodInfo
instance (signature ~ (b -> m Adw.TabPage.TabPage), MonadIO m, IsTabView a, Gtk.Widget.IsWidget b) => O.OverloadedMethod TabViewPrependMethodInfo a signature where
overloadedMethod = tabViewPrepend
instance O.OverloadedMethodInfo TabViewPrependMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.TabView.tabViewPrepend",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.3/docs/GI-Adw-Objects-TabView.html#v:tabViewPrepend"
})
#endif
foreign import ccall "adw_tab_view_prepend_pinned" adw_tab_view_prepend_pinned ::
Ptr TabView ->
Ptr Gtk.Widget.Widget ->
IO (Ptr Adw.TabPage.TabPage)
tabViewPrependPinned ::
(B.CallStack.HasCallStack, MonadIO m, IsTabView a, Gtk.Widget.IsWidget b) =>
a
-> b
-> m Adw.TabPage.TabPage
tabViewPrependPinned :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsTabView a, IsWidget b) =>
a -> b -> m TabPage
tabViewPrependPinned a
self b
child = IO TabPage -> m TabPage
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO TabPage -> m TabPage) -> IO TabPage -> m TabPage
forall a b. (a -> b) -> a -> b
$ do
Ptr TabView
self' <- a -> IO (Ptr TabView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr Widget
child' <- b -> IO (Ptr Widget)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
child
Ptr TabPage
result <- Ptr TabView -> Ptr Widget -> IO (Ptr TabPage)
adw_tab_view_prepend_pinned Ptr TabView
self' Ptr Widget
child'
Text -> Ptr TabPage -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"tabViewPrependPinned" Ptr TabPage
result
TabPage
result' <- ((ManagedPtr TabPage -> TabPage) -> Ptr TabPage -> IO TabPage
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr TabPage -> TabPage
Adw.TabPage.TabPage) Ptr TabPage
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
child
TabPage -> IO TabPage
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return TabPage
result'
#if defined(ENABLE_OVERLOADING)
data TabViewPrependPinnedMethodInfo
instance (signature ~ (b -> m Adw.TabPage.TabPage), MonadIO m, IsTabView a, Gtk.Widget.IsWidget b) => O.OverloadedMethod TabViewPrependPinnedMethodInfo a signature where
overloadedMethod = tabViewPrependPinned
instance O.OverloadedMethodInfo TabViewPrependPinnedMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.TabView.tabViewPrependPinned",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.3/docs/GI-Adw-Objects-TabView.html#v:tabViewPrependPinned"
})
#endif
foreign import ccall "adw_tab_view_remove_shortcuts" adw_tab_view_remove_shortcuts ::
Ptr TabView ->
CUInt ->
IO ()
tabViewRemoveShortcuts ::
(B.CallStack.HasCallStack, MonadIO m, IsTabView a) =>
a
-> [Adw.Flags.TabViewShortcuts]
-> m ()
tabViewRemoveShortcuts :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTabView a) =>
a -> [TabViewShortcuts] -> m ()
tabViewRemoveShortcuts a
self [TabViewShortcuts]
shortcuts = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr TabView
self' <- a -> IO (Ptr TabView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
let shortcuts' :: CUInt
shortcuts' = [TabViewShortcuts] -> CUInt
forall b a. (Num b, IsGFlag a) => [a] -> b
gflagsToWord [TabViewShortcuts]
shortcuts
Ptr TabView -> CUInt -> IO ()
adw_tab_view_remove_shortcuts Ptr TabView
self' CUInt
shortcuts'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data TabViewRemoveShortcutsMethodInfo
instance (signature ~ ([Adw.Flags.TabViewShortcuts] -> m ()), MonadIO m, IsTabView a) => O.OverloadedMethod TabViewRemoveShortcutsMethodInfo a signature where
overloadedMethod = tabViewRemoveShortcuts
instance O.OverloadedMethodInfo TabViewRemoveShortcutsMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.TabView.tabViewRemoveShortcuts",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.3/docs/GI-Adw-Objects-TabView.html#v:tabViewRemoveShortcuts"
})
#endif
foreign import ccall "adw_tab_view_reorder_backward" adw_tab_view_reorder_backward ::
Ptr TabView ->
Ptr Adw.TabPage.TabPage ->
IO CInt
tabViewReorderBackward ::
(B.CallStack.HasCallStack, MonadIO m, IsTabView a, Adw.TabPage.IsTabPage b) =>
a
-> b
-> m Bool
tabViewReorderBackward :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsTabView a, IsTabPage b) =>
a -> b -> m Bool
tabViewReorderBackward a
self b
page = IO Bool -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr TabView
self' <- a -> IO (Ptr TabView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr TabPage
page' <- b -> IO (Ptr TabPage)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
page
CInt
result <- Ptr TabView -> Ptr TabPage -> IO CInt
adw_tab_view_reorder_backward Ptr TabView
self' Ptr TabPage
page'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
page
Bool -> IO Bool
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data TabViewReorderBackwardMethodInfo
instance (signature ~ (b -> m Bool), MonadIO m, IsTabView a, Adw.TabPage.IsTabPage b) => O.OverloadedMethod TabViewReorderBackwardMethodInfo a signature where
overloadedMethod = tabViewReorderBackward
instance O.OverloadedMethodInfo TabViewReorderBackwardMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.TabView.tabViewReorderBackward",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.3/docs/GI-Adw-Objects-TabView.html#v:tabViewReorderBackward"
})
#endif
foreign import ccall "adw_tab_view_reorder_first" adw_tab_view_reorder_first ::
Ptr TabView ->
Ptr Adw.TabPage.TabPage ->
IO CInt
tabViewReorderFirst ::
(B.CallStack.HasCallStack, MonadIO m, IsTabView a, Adw.TabPage.IsTabPage b) =>
a
-> b
-> m Bool
tabViewReorderFirst :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsTabView a, IsTabPage b) =>
a -> b -> m Bool
tabViewReorderFirst a
self b
page = IO Bool -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr TabView
self' <- a -> IO (Ptr TabView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr TabPage
page' <- b -> IO (Ptr TabPage)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
page
CInt
result <- Ptr TabView -> Ptr TabPage -> IO CInt
adw_tab_view_reorder_first Ptr TabView
self' Ptr TabPage
page'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
page
Bool -> IO Bool
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data TabViewReorderFirstMethodInfo
instance (signature ~ (b -> m Bool), MonadIO m, IsTabView a, Adw.TabPage.IsTabPage b) => O.OverloadedMethod TabViewReorderFirstMethodInfo a signature where
overloadedMethod = tabViewReorderFirst
instance O.OverloadedMethodInfo TabViewReorderFirstMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.TabView.tabViewReorderFirst",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.3/docs/GI-Adw-Objects-TabView.html#v:tabViewReorderFirst"
})
#endif
foreign import ccall "adw_tab_view_reorder_forward" adw_tab_view_reorder_forward ::
Ptr TabView ->
Ptr Adw.TabPage.TabPage ->
IO CInt
tabViewReorderForward ::
(B.CallStack.HasCallStack, MonadIO m, IsTabView a, Adw.TabPage.IsTabPage b) =>
a
-> b
-> m Bool
tabViewReorderForward :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsTabView a, IsTabPage b) =>
a -> b -> m Bool
tabViewReorderForward a
self b
page = IO Bool -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr TabView
self' <- a -> IO (Ptr TabView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr TabPage
page' <- b -> IO (Ptr TabPage)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
page
CInt
result <- Ptr TabView -> Ptr TabPage -> IO CInt
adw_tab_view_reorder_forward Ptr TabView
self' Ptr TabPage
page'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
page
Bool -> IO Bool
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data TabViewReorderForwardMethodInfo
instance (signature ~ (b -> m Bool), MonadIO m, IsTabView a, Adw.TabPage.IsTabPage b) => O.OverloadedMethod TabViewReorderForwardMethodInfo a signature where
overloadedMethod = tabViewReorderForward
instance O.OverloadedMethodInfo TabViewReorderForwardMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.TabView.tabViewReorderForward",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.3/docs/GI-Adw-Objects-TabView.html#v:tabViewReorderForward"
})
#endif
foreign import ccall "adw_tab_view_reorder_last" adw_tab_view_reorder_last ::
Ptr TabView ->
Ptr Adw.TabPage.TabPage ->
IO CInt
tabViewReorderLast ::
(B.CallStack.HasCallStack, MonadIO m, IsTabView a, Adw.TabPage.IsTabPage b) =>
a
-> b
-> m Bool
tabViewReorderLast :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsTabView a, IsTabPage b) =>
a -> b -> m Bool
tabViewReorderLast a
self b
page = IO Bool -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr TabView
self' <- a -> IO (Ptr TabView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr TabPage
page' <- b -> IO (Ptr TabPage)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
page
CInt
result <- Ptr TabView -> Ptr TabPage -> IO CInt
adw_tab_view_reorder_last Ptr TabView
self' Ptr TabPage
page'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
page
Bool -> IO Bool
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data TabViewReorderLastMethodInfo
instance (signature ~ (b -> m Bool), MonadIO m, IsTabView a, Adw.TabPage.IsTabPage b) => O.OverloadedMethod TabViewReorderLastMethodInfo a signature where
overloadedMethod = tabViewReorderLast
instance O.OverloadedMethodInfo TabViewReorderLastMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.TabView.tabViewReorderLast",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.3/docs/GI-Adw-Objects-TabView.html#v:tabViewReorderLast"
})
#endif
foreign import ccall "adw_tab_view_reorder_page" adw_tab_view_reorder_page ::
Ptr TabView ->
Ptr Adw.TabPage.TabPage ->
Int32 ->
IO CInt
tabViewReorderPage ::
(B.CallStack.HasCallStack, MonadIO m, IsTabView a, Adw.TabPage.IsTabPage b) =>
a
-> b
-> Int32
-> m Bool
tabViewReorderPage :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsTabView a, IsTabPage b) =>
a -> b -> Int32 -> m Bool
tabViewReorderPage a
self b
page Int32
position = IO Bool -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr TabView
self' <- a -> IO (Ptr TabView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr TabPage
page' <- b -> IO (Ptr TabPage)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
page
CInt
result <- Ptr TabView -> Ptr TabPage -> Int32 -> IO CInt
adw_tab_view_reorder_page Ptr TabView
self' Ptr TabPage
page' Int32
position
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
page
Bool -> IO Bool
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data TabViewReorderPageMethodInfo
instance (signature ~ (b -> Int32 -> m Bool), MonadIO m, IsTabView a, Adw.TabPage.IsTabPage b) => O.OverloadedMethod TabViewReorderPageMethodInfo a signature where
overloadedMethod = tabViewReorderPage
instance O.OverloadedMethodInfo TabViewReorderPageMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.TabView.tabViewReorderPage",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.3/docs/GI-Adw-Objects-TabView.html#v:tabViewReorderPage"
})
#endif
foreign import ccall "adw_tab_view_select_next_page" adw_tab_view_select_next_page ::
Ptr TabView ->
IO CInt
tabViewSelectNextPage ::
(B.CallStack.HasCallStack, MonadIO m, IsTabView a) =>
a
-> m Bool
tabViewSelectNextPage :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTabView a) =>
a -> m Bool
tabViewSelectNextPage a
self = IO Bool -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr TabView
self' <- a -> IO (Ptr TabView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CInt
result <- Ptr TabView -> IO CInt
adw_tab_view_select_next_page Ptr TabView
self'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
Bool -> IO Bool
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data TabViewSelectNextPageMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsTabView a) => O.OverloadedMethod TabViewSelectNextPageMethodInfo a signature where
overloadedMethod = tabViewSelectNextPage
instance O.OverloadedMethodInfo TabViewSelectNextPageMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.TabView.tabViewSelectNextPage",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.3/docs/GI-Adw-Objects-TabView.html#v:tabViewSelectNextPage"
})
#endif
foreign import ccall "adw_tab_view_select_previous_page" adw_tab_view_select_previous_page ::
Ptr TabView ->
IO CInt
tabViewSelectPreviousPage ::
(B.CallStack.HasCallStack, MonadIO m, IsTabView a) =>
a
-> m Bool
tabViewSelectPreviousPage :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTabView a) =>
a -> m Bool
tabViewSelectPreviousPage a
self = IO Bool -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr TabView
self' <- a -> IO (Ptr TabView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CInt
result <- Ptr TabView -> IO CInt
adw_tab_view_select_previous_page Ptr TabView
self'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
Bool -> IO Bool
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data TabViewSelectPreviousPageMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsTabView a) => O.OverloadedMethod TabViewSelectPreviousPageMethodInfo a signature where
overloadedMethod = tabViewSelectPreviousPage
instance O.OverloadedMethodInfo TabViewSelectPreviousPageMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.TabView.tabViewSelectPreviousPage",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.3/docs/GI-Adw-Objects-TabView.html#v:tabViewSelectPreviousPage"
})
#endif
foreign import ccall "adw_tab_view_set_default_icon" adw_tab_view_set_default_icon ::
Ptr TabView ->
Ptr Gio.Icon.Icon ->
IO ()
tabViewSetDefaultIcon ::
(B.CallStack.HasCallStack, MonadIO m, IsTabView a, Gio.Icon.IsIcon b) =>
a
-> b
-> m ()
tabViewSetDefaultIcon :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsTabView a, IsIcon b) =>
a -> b -> m ()
tabViewSetDefaultIcon a
self b
defaultIcon = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr TabView
self' <- a -> IO (Ptr TabView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr Icon
defaultIcon' <- b -> IO (Ptr Icon)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
defaultIcon
Ptr TabView -> Ptr Icon -> IO ()
adw_tab_view_set_default_icon Ptr TabView
self' Ptr Icon
defaultIcon'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
defaultIcon
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data TabViewSetDefaultIconMethodInfo
instance (signature ~ (b -> m ()), MonadIO m, IsTabView a, Gio.Icon.IsIcon b) => O.OverloadedMethod TabViewSetDefaultIconMethodInfo a signature where
overloadedMethod = tabViewSetDefaultIcon
instance O.OverloadedMethodInfo TabViewSetDefaultIconMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.TabView.tabViewSetDefaultIcon",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.3/docs/GI-Adw-Objects-TabView.html#v:tabViewSetDefaultIcon"
})
#endif
foreign import ccall "adw_tab_view_set_menu_model" ::
Ptr TabView ->
Ptr Gio.MenuModel.MenuModel ->
IO ()
tabViewSetMenuModel ::
(B.CallStack.HasCallStack, MonadIO m, IsTabView a, Gio.MenuModel.IsMenuModel b) =>
a
-> Maybe (b)
-> m ()
a
self Maybe b
menuModel = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr TabView
self' <- a -> IO (Ptr TabView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr MenuModel
maybeMenuModel <- case Maybe b
menuModel of
Maybe b
Nothing -> Ptr MenuModel -> IO (Ptr MenuModel)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr MenuModel
forall a. Ptr a
nullPtr
Just b
jMenuModel -> do
Ptr MenuModel
jMenuModel' <- b -> IO (Ptr MenuModel)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
jMenuModel
Ptr MenuModel -> IO (Ptr MenuModel)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr MenuModel
jMenuModel'
Ptr TabView -> Ptr MenuModel -> IO ()
adw_tab_view_set_menu_model Ptr TabView
self' Ptr MenuModel
maybeMenuModel
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
Maybe b -> (b -> IO ()) -> IO ()
forall (m :: * -> *) a. Monad m => Maybe a -> (a -> m ()) -> m ()
whenJust Maybe b
menuModel b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data TabViewSetMenuModelMethodInfo
instance (signature ~ (Maybe (b) -> m ()), MonadIO m, IsTabView a, Gio.MenuModel.IsMenuModel b) => O.OverloadedMethod TabViewSetMenuModelMethodInfo a signature where
overloadedMethod = tabViewSetMenuModel
instance O.OverloadedMethodInfo TabViewSetMenuModelMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.TabView.tabViewSetMenuModel",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.3/docs/GI-Adw-Objects-TabView.html#v:tabViewSetMenuModel"
})
#endif
foreign import ccall "adw_tab_view_set_page_pinned" adw_tab_view_set_page_pinned ::
Ptr TabView ->
Ptr Adw.TabPage.TabPage ->
CInt ->
IO ()
tabViewSetPagePinned ::
(B.CallStack.HasCallStack, MonadIO m, IsTabView a, Adw.TabPage.IsTabPage b) =>
a
-> b
-> Bool
-> m ()
tabViewSetPagePinned :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsTabView a, IsTabPage b) =>
a -> b -> Bool -> m ()
tabViewSetPagePinned a
self b
page Bool
pinned = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr TabView
self' <- a -> IO (Ptr TabView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr TabPage
page' <- b -> IO (Ptr TabPage)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
page
let pinned' :: CInt
pinned' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
fromEnum) Bool
pinned
Ptr TabView -> Ptr TabPage -> CInt -> IO ()
adw_tab_view_set_page_pinned Ptr TabView
self' Ptr TabPage
page' CInt
pinned'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
page
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data TabViewSetPagePinnedMethodInfo
instance (signature ~ (b -> Bool -> m ()), MonadIO m, IsTabView a, Adw.TabPage.IsTabPage b) => O.OverloadedMethod TabViewSetPagePinnedMethodInfo a signature where
overloadedMethod = tabViewSetPagePinned
instance O.OverloadedMethodInfo TabViewSetPagePinnedMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.TabView.tabViewSetPagePinned",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.3/docs/GI-Adw-Objects-TabView.html#v:tabViewSetPagePinned"
})
#endif
foreign import ccall "adw_tab_view_set_selected_page" adw_tab_view_set_selected_page ::
Ptr TabView ->
Ptr Adw.TabPage.TabPage ->
IO ()
tabViewSetSelectedPage ::
(B.CallStack.HasCallStack, MonadIO m, IsTabView a, Adw.TabPage.IsTabPage b) =>
a
-> b
-> m ()
tabViewSetSelectedPage :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsTabView a, IsTabPage b) =>
a -> b -> m ()
tabViewSetSelectedPage a
self b
selectedPage = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr TabView
self' <- a -> IO (Ptr TabView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr TabPage
selectedPage' <- b -> IO (Ptr TabPage)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
selectedPage
Ptr TabView -> Ptr TabPage -> IO ()
adw_tab_view_set_selected_page Ptr TabView
self' Ptr TabPage
selectedPage'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
selectedPage
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data TabViewSetSelectedPageMethodInfo
instance (signature ~ (b -> m ()), MonadIO m, IsTabView a, Adw.TabPage.IsTabPage b) => O.OverloadedMethod TabViewSetSelectedPageMethodInfo a signature where
overloadedMethod = tabViewSetSelectedPage
instance O.OverloadedMethodInfo TabViewSetSelectedPageMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.TabView.tabViewSetSelectedPage",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.3/docs/GI-Adw-Objects-TabView.html#v:tabViewSetSelectedPage"
})
#endif
foreign import ccall "adw_tab_view_set_shortcuts" adw_tab_view_set_shortcuts ::
Ptr TabView ->
CUInt ->
IO ()
tabViewSetShortcuts ::
(B.CallStack.HasCallStack, MonadIO m, IsTabView a) =>
a
-> [Adw.Flags.TabViewShortcuts]
-> m ()
tabViewSetShortcuts :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTabView a) =>
a -> [TabViewShortcuts] -> m ()
tabViewSetShortcuts a
self [TabViewShortcuts]
shortcuts = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr TabView
self' <- a -> IO (Ptr TabView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
let shortcuts' :: CUInt
shortcuts' = [TabViewShortcuts] -> CUInt
forall b a. (Num b, IsGFlag a) => [a] -> b
gflagsToWord [TabViewShortcuts]
shortcuts
Ptr TabView -> CUInt -> IO ()
adw_tab_view_set_shortcuts Ptr TabView
self' CUInt
shortcuts'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data TabViewSetShortcutsMethodInfo
instance (signature ~ ([Adw.Flags.TabViewShortcuts] -> m ()), MonadIO m, IsTabView a) => O.OverloadedMethod TabViewSetShortcutsMethodInfo a signature where
overloadedMethod = tabViewSetShortcuts
instance O.OverloadedMethodInfo TabViewSetShortcutsMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.TabView.tabViewSetShortcuts",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.3/docs/GI-Adw-Objects-TabView.html#v:tabViewSetShortcuts"
})
#endif
foreign import ccall "adw_tab_view_transfer_page" adw_tab_view_transfer_page ::
Ptr TabView ->
Ptr Adw.TabPage.TabPage ->
Ptr TabView ->
Int32 ->
IO ()
tabViewTransferPage ::
(B.CallStack.HasCallStack, MonadIO m, IsTabView a, Adw.TabPage.IsTabPage b, IsTabView c) =>
a
-> b
-> c
-> Int32
-> m ()
tabViewTransferPage :: forall (m :: * -> *) a b c.
(HasCallStack, MonadIO m, IsTabView a, IsTabPage b, IsTabView c) =>
a -> b -> c -> Int32 -> m ()
tabViewTransferPage a
self b
page c
otherView Int32
position = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr TabView
self' <- a -> IO (Ptr TabView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr TabPage
page' <- b -> IO (Ptr TabPage)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
page
Ptr TabView
otherView' <- c -> IO (Ptr TabView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr c
otherView
Ptr TabView -> Ptr TabPage -> Ptr TabView -> Int32 -> IO ()
adw_tab_view_transfer_page Ptr TabView
self' Ptr TabPage
page' Ptr TabView
otherView' Int32
position
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
page
c -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr c
otherView
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data TabViewTransferPageMethodInfo
instance (signature ~ (b -> c -> Int32 -> m ()), MonadIO m, IsTabView a, Adw.TabPage.IsTabPage b, IsTabView c) => O.OverloadedMethod TabViewTransferPageMethodInfo a signature where
overloadedMethod = tabViewTransferPage
instance O.OverloadedMethodInfo TabViewTransferPageMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.TabView.tabViewTransferPage",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.3/docs/GI-Adw-Objects-TabView.html#v:tabViewTransferPage"
})
#endif