{-# LANGUAGE ImplicitParams, RankNTypes, TypeApplications #-}
#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif
module GI.Adw.Objects.TabOverview
(
TabOverview(..) ,
IsTabOverview ,
toTabOverview ,
#if defined(ENABLE_OVERLOADING)
ResolveTabOverviewMethod ,
#endif
#if defined(ENABLE_OVERLOADING)
TabOverviewGetChildMethodInfo ,
#endif
tabOverviewGetChild ,
#if defined(ENABLE_OVERLOADING)
TabOverviewGetEnableNewTabMethodInfo ,
#endif
tabOverviewGetEnableNewTab ,
#if defined(ENABLE_OVERLOADING)
TabOverviewGetEnableSearchMethodInfo ,
#endif
tabOverviewGetEnableSearch ,
#if defined(ENABLE_OVERLOADING)
TabOverviewGetExtraDragPreloadMethodInfo,
#endif
tabOverviewGetExtraDragPreload ,
#if defined(ENABLE_OVERLOADING)
TabOverviewGetInvertedMethodInfo ,
#endif
tabOverviewGetInverted ,
#if defined(ENABLE_OVERLOADING)
TabOverviewGetOpenMethodInfo ,
#endif
tabOverviewGetOpen ,
#if defined(ENABLE_OVERLOADING)
TabOverviewGetSearchActiveMethodInfo ,
#endif
tabOverviewGetSearchActive ,
#if defined(ENABLE_OVERLOADING)
TabOverviewGetSecondaryMenuMethodInfo ,
#endif
tabOverviewGetSecondaryMenu ,
#if defined(ENABLE_OVERLOADING)
TabOverviewGetShowEndTitleButtonsMethodInfo,
#endif
tabOverviewGetShowEndTitleButtons ,
#if defined(ENABLE_OVERLOADING)
TabOverviewGetShowStartTitleButtonsMethodInfo,
#endif
tabOverviewGetShowStartTitleButtons ,
#if defined(ENABLE_OVERLOADING)
TabOverviewGetViewMethodInfo ,
#endif
tabOverviewGetView ,
tabOverviewNew ,
#if defined(ENABLE_OVERLOADING)
TabOverviewSetChildMethodInfo ,
#endif
tabOverviewSetChild ,
#if defined(ENABLE_OVERLOADING)
TabOverviewSetEnableNewTabMethodInfo ,
#endif
tabOverviewSetEnableNewTab ,
#if defined(ENABLE_OVERLOADING)
TabOverviewSetEnableSearchMethodInfo ,
#endif
tabOverviewSetEnableSearch ,
#if defined(ENABLE_OVERLOADING)
TabOverviewSetExtraDragPreloadMethodInfo,
#endif
tabOverviewSetExtraDragPreload ,
#if defined(ENABLE_OVERLOADING)
TabOverviewSetInvertedMethodInfo ,
#endif
tabOverviewSetInverted ,
#if defined(ENABLE_OVERLOADING)
TabOverviewSetOpenMethodInfo ,
#endif
tabOverviewSetOpen ,
#if defined(ENABLE_OVERLOADING)
TabOverviewSetSecondaryMenuMethodInfo ,
#endif
tabOverviewSetSecondaryMenu ,
#if defined(ENABLE_OVERLOADING)
TabOverviewSetShowEndTitleButtonsMethodInfo,
#endif
tabOverviewSetShowEndTitleButtons ,
#if defined(ENABLE_OVERLOADING)
TabOverviewSetShowStartTitleButtonsMethodInfo,
#endif
tabOverviewSetShowStartTitleButtons ,
#if defined(ENABLE_OVERLOADING)
TabOverviewSetViewMethodInfo ,
#endif
tabOverviewSetView ,
#if defined(ENABLE_OVERLOADING)
TabOverviewSetupExtraDropTargetMethodInfo,
#endif
tabOverviewSetupExtraDropTarget ,
#if defined(ENABLE_OVERLOADING)
TabOverviewChildPropertyInfo ,
#endif
clearTabOverviewChild ,
constructTabOverviewChild ,
getTabOverviewChild ,
setTabOverviewChild ,
#if defined(ENABLE_OVERLOADING)
tabOverviewChild ,
#endif
#if defined(ENABLE_OVERLOADING)
TabOverviewEnableNewTabPropertyInfo ,
#endif
constructTabOverviewEnableNewTab ,
getTabOverviewEnableNewTab ,
setTabOverviewEnableNewTab ,
#if defined(ENABLE_OVERLOADING)
tabOverviewEnableNewTab ,
#endif
#if defined(ENABLE_OVERLOADING)
TabOverviewEnableSearchPropertyInfo ,
#endif
constructTabOverviewEnableSearch ,
getTabOverviewEnableSearch ,
setTabOverviewEnableSearch ,
#if defined(ENABLE_OVERLOADING)
tabOverviewEnableSearch ,
#endif
#if defined(ENABLE_OVERLOADING)
TabOverviewExtraDragPreloadPropertyInfo ,
#endif
constructTabOverviewExtraDragPreload ,
getTabOverviewExtraDragPreload ,
setTabOverviewExtraDragPreload ,
#if defined(ENABLE_OVERLOADING)
tabOverviewExtraDragPreload ,
#endif
#if defined(ENABLE_OVERLOADING)
TabOverviewInvertedPropertyInfo ,
#endif
constructTabOverviewInverted ,
getTabOverviewInverted ,
setTabOverviewInverted ,
#if defined(ENABLE_OVERLOADING)
tabOverviewInverted ,
#endif
#if defined(ENABLE_OVERLOADING)
TabOverviewOpenPropertyInfo ,
#endif
constructTabOverviewOpen ,
getTabOverviewOpen ,
setTabOverviewOpen ,
#if defined(ENABLE_OVERLOADING)
tabOverviewOpen ,
#endif
#if defined(ENABLE_OVERLOADING)
TabOverviewSearchActivePropertyInfo ,
#endif
getTabOverviewSearchActive ,
#if defined(ENABLE_OVERLOADING)
tabOverviewSearchActive ,
#endif
#if defined(ENABLE_OVERLOADING)
TabOverviewSecondaryMenuPropertyInfo ,
#endif
clearTabOverviewSecondaryMenu ,
constructTabOverviewSecondaryMenu ,
getTabOverviewSecondaryMenu ,
setTabOverviewSecondaryMenu ,
#if defined(ENABLE_OVERLOADING)
tabOverviewSecondaryMenu ,
#endif
#if defined(ENABLE_OVERLOADING)
TabOverviewShowEndTitleButtonsPropertyInfo,
#endif
constructTabOverviewShowEndTitleButtons ,
getTabOverviewShowEndTitleButtons ,
setTabOverviewShowEndTitleButtons ,
#if defined(ENABLE_OVERLOADING)
tabOverviewShowEndTitleButtons ,
#endif
#if defined(ENABLE_OVERLOADING)
TabOverviewShowStartTitleButtonsPropertyInfo,
#endif
constructTabOverviewShowStartTitleButtons,
getTabOverviewShowStartTitleButtons ,
setTabOverviewShowStartTitleButtons ,
#if defined(ENABLE_OVERLOADING)
tabOverviewShowStartTitleButtons ,
#endif
#if defined(ENABLE_OVERLOADING)
TabOverviewViewPropertyInfo ,
#endif
clearTabOverviewView ,
constructTabOverviewView ,
getTabOverviewView ,
setTabOverviewView ,
#if defined(ENABLE_OVERLOADING)
tabOverviewView ,
#endif
TabOverviewCreateTabCallback ,
#if defined(ENABLE_OVERLOADING)
TabOverviewCreateTabSignalInfo ,
#endif
afterTabOverviewCreateTab ,
onTabOverviewCreateTab ,
TabOverviewExtraDragDropCallback ,
#if defined(ENABLE_OVERLOADING)
TabOverviewExtraDragDropSignalInfo ,
#endif
afterTabOverviewExtraDragDrop ,
onTabOverviewExtraDragDrop ,
TabOverviewExtraDragValueCallback ,
#if defined(ENABLE_OVERLOADING)
TabOverviewExtraDragValueSignalInfo ,
#endif
afterTabOverviewExtraDragValue ,
onTabOverviewExtraDragValue ,
) 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.Kind as DK
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.Objects.TabPage as Adw.TabPage
import {-# SOURCE #-} qualified GI.Adw.Objects.TabView as Adw.TabView
import qualified GI.GObject.Objects.Object as GObject.Object
import qualified GI.Gdk.Flags as Gdk.Flags
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.Objects.Widget as Gtk.Widget
newtype TabOverview = TabOverview (SP.ManagedPtr TabOverview)
deriving (TabOverview -> TabOverview -> Bool
(TabOverview -> TabOverview -> Bool)
-> (TabOverview -> TabOverview -> Bool) -> Eq TabOverview
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: TabOverview -> TabOverview -> Bool
== :: TabOverview -> TabOverview -> Bool
$c/= :: TabOverview -> TabOverview -> Bool
/= :: TabOverview -> TabOverview -> Bool
Eq)
instance SP.ManagedPtrNewtype TabOverview where
toManagedPtr :: TabOverview -> ManagedPtr TabOverview
toManagedPtr (TabOverview ManagedPtr TabOverview
p) = ManagedPtr TabOverview
p
foreign import ccall "adw_tab_overview_get_type"
c_adw_tab_overview_get_type :: IO B.Types.GType
instance B.Types.TypedObject TabOverview where
glibType :: IO GType
glibType = IO GType
c_adw_tab_overview_get_type
instance B.Types.GObject TabOverview
class (SP.GObject o, O.IsDescendantOf TabOverview o) => IsTabOverview o
instance (SP.GObject o, O.IsDescendantOf TabOverview o) => IsTabOverview o
instance O.HasParentTypes TabOverview
type instance O.ParentTypes TabOverview = '[Gtk.Widget.Widget, GObject.Object.Object, Gtk.Accessible.Accessible, Gtk.Buildable.Buildable, Gtk.ConstraintTarget.ConstraintTarget]
toTabOverview :: (MIO.MonadIO m, IsTabOverview o) => o -> m TabOverview
toTabOverview :: forall (m :: * -> *) o.
(MonadIO m, IsTabOverview o) =>
o -> m TabOverview
toTabOverview = IO TabOverview -> m TabOverview
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO TabOverview -> m TabOverview)
-> (o -> IO TabOverview) -> o -> m TabOverview
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (ManagedPtr TabOverview -> TabOverview) -> o -> IO TabOverview
forall o o'.
(HasCallStack, ManagedPtrNewtype o, TypedObject o,
ManagedPtrNewtype o', TypedObject o') =>
(ManagedPtr o' -> o') -> o -> IO o'
B.ManagedPtr.unsafeCastTo ManagedPtr TabOverview -> TabOverview
TabOverview
instance B.GValue.IsGValue (Maybe TabOverview) where
gvalueGType_ :: IO GType
gvalueGType_ = IO GType
c_adw_tab_overview_get_type
gvalueSet_ :: Ptr GValue -> Maybe TabOverview -> IO ()
gvalueSet_ Ptr GValue
gv Maybe TabOverview
P.Nothing = Ptr GValue -> Ptr TabOverview -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv (Ptr TabOverview
forall a. Ptr a
FP.nullPtr :: FP.Ptr TabOverview)
gvalueSet_ Ptr GValue
gv (P.Just TabOverview
obj) = TabOverview -> (Ptr TabOverview -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
B.ManagedPtr.withManagedPtr TabOverview
obj (Ptr GValue -> Ptr TabOverview -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv)
gvalueGet_ :: Ptr GValue -> IO (Maybe TabOverview)
gvalueGet_ Ptr GValue
gv = do
Ptr TabOverview
ptr <- Ptr GValue -> IO (Ptr TabOverview)
forall a. GObject a => Ptr GValue -> IO (Ptr a)
B.GValue.get_object Ptr GValue
gv :: IO (FP.Ptr TabOverview)
if Ptr TabOverview
ptr Ptr TabOverview -> Ptr TabOverview -> Bool
forall a. Eq a => a -> a -> Bool
/= Ptr TabOverview
forall a. Ptr a
FP.nullPtr
then TabOverview -> Maybe TabOverview
forall a. a -> Maybe a
P.Just (TabOverview -> Maybe TabOverview)
-> IO TabOverview -> IO (Maybe TabOverview)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (ManagedPtr TabOverview -> TabOverview)
-> Ptr TabOverview -> IO TabOverview
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
B.ManagedPtr.newObject ManagedPtr TabOverview -> TabOverview
TabOverview Ptr TabOverview
ptr
else Maybe TabOverview -> IO (Maybe TabOverview)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe TabOverview
forall a. Maybe a
P.Nothing
#if defined(ENABLE_OVERLOADING)
type family ResolveTabOverviewMethod (t :: Symbol) (o :: DK.Type) :: DK.Type where
ResolveTabOverviewMethod "actionSetEnabled" o = Gtk.Widget.WidgetActionSetEnabledMethodInfo
ResolveTabOverviewMethod "activate" o = Gtk.Widget.WidgetActivateMethodInfo
ResolveTabOverviewMethod "activateAction" o = Gtk.Widget.WidgetActivateActionMethodInfo
ResolveTabOverviewMethod "activateDefault" o = Gtk.Widget.WidgetActivateDefaultMethodInfo
ResolveTabOverviewMethod "addController" o = Gtk.Widget.WidgetAddControllerMethodInfo
ResolveTabOverviewMethod "addCssClass" o = Gtk.Widget.WidgetAddCssClassMethodInfo
ResolveTabOverviewMethod "addMnemonicLabel" o = Gtk.Widget.WidgetAddMnemonicLabelMethodInfo
ResolveTabOverviewMethod "addTickCallback" o = Gtk.Widget.WidgetAddTickCallbackMethodInfo
ResolveTabOverviewMethod "allocate" o = Gtk.Widget.WidgetAllocateMethodInfo
ResolveTabOverviewMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
ResolveTabOverviewMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
ResolveTabOverviewMethod "childFocus" o = Gtk.Widget.WidgetChildFocusMethodInfo
ResolveTabOverviewMethod "computeBounds" o = Gtk.Widget.WidgetComputeBoundsMethodInfo
ResolveTabOverviewMethod "computeExpand" o = Gtk.Widget.WidgetComputeExpandMethodInfo
ResolveTabOverviewMethod "computePoint" o = Gtk.Widget.WidgetComputePointMethodInfo
ResolveTabOverviewMethod "computeTransform" o = Gtk.Widget.WidgetComputeTransformMethodInfo
ResolveTabOverviewMethod "contains" o = Gtk.Widget.WidgetContainsMethodInfo
ResolveTabOverviewMethod "createPangoContext" o = Gtk.Widget.WidgetCreatePangoContextMethodInfo
ResolveTabOverviewMethod "createPangoLayout" o = Gtk.Widget.WidgetCreatePangoLayoutMethodInfo
ResolveTabOverviewMethod "disposeTemplate" o = Gtk.Widget.WidgetDisposeTemplateMethodInfo
ResolveTabOverviewMethod "dragCheckThreshold" o = Gtk.Widget.WidgetDragCheckThresholdMethodInfo
ResolveTabOverviewMethod "errorBell" o = Gtk.Widget.WidgetErrorBellMethodInfo
ResolveTabOverviewMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
ResolveTabOverviewMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
ResolveTabOverviewMethod "getv" o = GObject.Object.ObjectGetvMethodInfo
ResolveTabOverviewMethod "grabFocus" o = Gtk.Widget.WidgetGrabFocusMethodInfo
ResolveTabOverviewMethod "hasCssClass" o = Gtk.Widget.WidgetHasCssClassMethodInfo
ResolveTabOverviewMethod "hasDefault" o = Gtk.Widget.WidgetHasDefaultMethodInfo
ResolveTabOverviewMethod "hasFocus" o = Gtk.Widget.WidgetHasFocusMethodInfo
ResolveTabOverviewMethod "hasVisibleFocus" o = Gtk.Widget.WidgetHasVisibleFocusMethodInfo
ResolveTabOverviewMethod "hide" o = Gtk.Widget.WidgetHideMethodInfo
ResolveTabOverviewMethod "inDestruction" o = Gtk.Widget.WidgetInDestructionMethodInfo
ResolveTabOverviewMethod "initTemplate" o = Gtk.Widget.WidgetInitTemplateMethodInfo
ResolveTabOverviewMethod "insertActionGroup" o = Gtk.Widget.WidgetInsertActionGroupMethodInfo
ResolveTabOverviewMethod "insertAfter" o = Gtk.Widget.WidgetInsertAfterMethodInfo
ResolveTabOverviewMethod "insertBefore" o = Gtk.Widget.WidgetInsertBeforeMethodInfo
ResolveTabOverviewMethod "isAncestor" o = Gtk.Widget.WidgetIsAncestorMethodInfo
ResolveTabOverviewMethod "isDrawable" o = Gtk.Widget.WidgetIsDrawableMethodInfo
ResolveTabOverviewMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo
ResolveTabOverviewMethod "isFocus" o = Gtk.Widget.WidgetIsFocusMethodInfo
ResolveTabOverviewMethod "isSensitive" o = Gtk.Widget.WidgetIsSensitiveMethodInfo
ResolveTabOverviewMethod "isVisible" o = Gtk.Widget.WidgetIsVisibleMethodInfo
ResolveTabOverviewMethod "keynavFailed" o = Gtk.Widget.WidgetKeynavFailedMethodInfo
ResolveTabOverviewMethod "listMnemonicLabels" o = Gtk.Widget.WidgetListMnemonicLabelsMethodInfo
ResolveTabOverviewMethod "map" o = Gtk.Widget.WidgetMapMethodInfo
ResolveTabOverviewMethod "measure" o = Gtk.Widget.WidgetMeasureMethodInfo
ResolveTabOverviewMethod "mnemonicActivate" o = Gtk.Widget.WidgetMnemonicActivateMethodInfo
ResolveTabOverviewMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
ResolveTabOverviewMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
ResolveTabOverviewMethod "observeChildren" o = Gtk.Widget.WidgetObserveChildrenMethodInfo
ResolveTabOverviewMethod "observeControllers" o = Gtk.Widget.WidgetObserveControllersMethodInfo
ResolveTabOverviewMethod "pick" o = Gtk.Widget.WidgetPickMethodInfo
ResolveTabOverviewMethod "queueAllocate" o = Gtk.Widget.WidgetQueueAllocateMethodInfo
ResolveTabOverviewMethod "queueDraw" o = Gtk.Widget.WidgetQueueDrawMethodInfo
ResolveTabOverviewMethod "queueResize" o = Gtk.Widget.WidgetQueueResizeMethodInfo
ResolveTabOverviewMethod "realize" o = Gtk.Widget.WidgetRealizeMethodInfo
ResolveTabOverviewMethod "ref" o = GObject.Object.ObjectRefMethodInfo
ResolveTabOverviewMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
ResolveTabOverviewMethod "removeController" o = Gtk.Widget.WidgetRemoveControllerMethodInfo
ResolveTabOverviewMethod "removeCssClass" o = Gtk.Widget.WidgetRemoveCssClassMethodInfo
ResolveTabOverviewMethod "removeMnemonicLabel" o = Gtk.Widget.WidgetRemoveMnemonicLabelMethodInfo
ResolveTabOverviewMethod "removeTickCallback" o = Gtk.Widget.WidgetRemoveTickCallbackMethodInfo
ResolveTabOverviewMethod "resetProperty" o = Gtk.Accessible.AccessibleResetPropertyMethodInfo
ResolveTabOverviewMethod "resetRelation" o = Gtk.Accessible.AccessibleResetRelationMethodInfo
ResolveTabOverviewMethod "resetState" o = Gtk.Accessible.AccessibleResetStateMethodInfo
ResolveTabOverviewMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
ResolveTabOverviewMethod "setupExtraDropTarget" o = TabOverviewSetupExtraDropTargetMethodInfo
ResolveTabOverviewMethod "shouldLayout" o = Gtk.Widget.WidgetShouldLayoutMethodInfo
ResolveTabOverviewMethod "show" o = Gtk.Widget.WidgetShowMethodInfo
ResolveTabOverviewMethod "sizeAllocate" o = Gtk.Widget.WidgetSizeAllocateMethodInfo
ResolveTabOverviewMethod "snapshotChild" o = Gtk.Widget.WidgetSnapshotChildMethodInfo
ResolveTabOverviewMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
ResolveTabOverviewMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
ResolveTabOverviewMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo
ResolveTabOverviewMethod "translateCoordinates" o = Gtk.Widget.WidgetTranslateCoordinatesMethodInfo
ResolveTabOverviewMethod "triggerTooltipQuery" o = Gtk.Widget.WidgetTriggerTooltipQueryMethodInfo
ResolveTabOverviewMethod "unmap" o = Gtk.Widget.WidgetUnmapMethodInfo
ResolveTabOverviewMethod "unparent" o = Gtk.Widget.WidgetUnparentMethodInfo
ResolveTabOverviewMethod "unrealize" o = Gtk.Widget.WidgetUnrealizeMethodInfo
ResolveTabOverviewMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo
ResolveTabOverviewMethod "unsetStateFlags" o = Gtk.Widget.WidgetUnsetStateFlagsMethodInfo
ResolveTabOverviewMethod "updateNextAccessibleSibling" o = Gtk.Accessible.AccessibleUpdateNextAccessibleSiblingMethodInfo
ResolveTabOverviewMethod "updateProperty" o = Gtk.Accessible.AccessibleUpdatePropertyMethodInfo
ResolveTabOverviewMethod "updateRelation" o = Gtk.Accessible.AccessibleUpdateRelationMethodInfo
ResolveTabOverviewMethod "updateState" o = Gtk.Accessible.AccessibleUpdateStateMethodInfo
ResolveTabOverviewMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
ResolveTabOverviewMethod "getAccessibleParent" o = Gtk.Accessible.AccessibleGetAccessibleParentMethodInfo
ResolveTabOverviewMethod "getAccessibleRole" o = Gtk.Accessible.AccessibleGetAccessibleRoleMethodInfo
ResolveTabOverviewMethod "getAllocatedBaseline" o = Gtk.Widget.WidgetGetAllocatedBaselineMethodInfo
ResolveTabOverviewMethod "getAllocatedHeight" o = Gtk.Widget.WidgetGetAllocatedHeightMethodInfo
ResolveTabOverviewMethod "getAllocatedWidth" o = Gtk.Widget.WidgetGetAllocatedWidthMethodInfo
ResolveTabOverviewMethod "getAllocation" o = Gtk.Widget.WidgetGetAllocationMethodInfo
ResolveTabOverviewMethod "getAncestor" o = Gtk.Widget.WidgetGetAncestorMethodInfo
ResolveTabOverviewMethod "getAtContext" o = Gtk.Accessible.AccessibleGetAtContextMethodInfo
ResolveTabOverviewMethod "getBounds" o = Gtk.Accessible.AccessibleGetBoundsMethodInfo
ResolveTabOverviewMethod "getBuildableId" o = Gtk.Buildable.BuildableGetBuildableIdMethodInfo
ResolveTabOverviewMethod "getCanFocus" o = Gtk.Widget.WidgetGetCanFocusMethodInfo
ResolveTabOverviewMethod "getCanTarget" o = Gtk.Widget.WidgetGetCanTargetMethodInfo
ResolveTabOverviewMethod "getChild" o = TabOverviewGetChildMethodInfo
ResolveTabOverviewMethod "getChildVisible" o = Gtk.Widget.WidgetGetChildVisibleMethodInfo
ResolveTabOverviewMethod "getClipboard" o = Gtk.Widget.WidgetGetClipboardMethodInfo
ResolveTabOverviewMethod "getColor" o = Gtk.Widget.WidgetGetColorMethodInfo
ResolveTabOverviewMethod "getCssClasses" o = Gtk.Widget.WidgetGetCssClassesMethodInfo
ResolveTabOverviewMethod "getCssName" o = Gtk.Widget.WidgetGetCssNameMethodInfo
ResolveTabOverviewMethod "getCursor" o = Gtk.Widget.WidgetGetCursorMethodInfo
ResolveTabOverviewMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
ResolveTabOverviewMethod "getDirection" o = Gtk.Widget.WidgetGetDirectionMethodInfo
ResolveTabOverviewMethod "getDisplay" o = Gtk.Widget.WidgetGetDisplayMethodInfo
ResolveTabOverviewMethod "getEnableNewTab" o = TabOverviewGetEnableNewTabMethodInfo
ResolveTabOverviewMethod "getEnableSearch" o = TabOverviewGetEnableSearchMethodInfo
ResolveTabOverviewMethod "getExtraDragPreload" o = TabOverviewGetExtraDragPreloadMethodInfo
ResolveTabOverviewMethod "getFirstAccessibleChild" o = Gtk.Accessible.AccessibleGetFirstAccessibleChildMethodInfo
ResolveTabOverviewMethod "getFirstChild" o = Gtk.Widget.WidgetGetFirstChildMethodInfo
ResolveTabOverviewMethod "getFocusChild" o = Gtk.Widget.WidgetGetFocusChildMethodInfo
ResolveTabOverviewMethod "getFocusOnClick" o = Gtk.Widget.WidgetGetFocusOnClickMethodInfo
ResolveTabOverviewMethod "getFocusable" o = Gtk.Widget.WidgetGetFocusableMethodInfo
ResolveTabOverviewMethod "getFontMap" o = Gtk.Widget.WidgetGetFontMapMethodInfo
ResolveTabOverviewMethod "getFontOptions" o = Gtk.Widget.WidgetGetFontOptionsMethodInfo
ResolveTabOverviewMethod "getFrameClock" o = Gtk.Widget.WidgetGetFrameClockMethodInfo
ResolveTabOverviewMethod "getHalign" o = Gtk.Widget.WidgetGetHalignMethodInfo
ResolveTabOverviewMethod "getHasTooltip" o = Gtk.Widget.WidgetGetHasTooltipMethodInfo
ResolveTabOverviewMethod "getHeight" o = Gtk.Widget.WidgetGetHeightMethodInfo
ResolveTabOverviewMethod "getHexpand" o = Gtk.Widget.WidgetGetHexpandMethodInfo
ResolveTabOverviewMethod "getHexpandSet" o = Gtk.Widget.WidgetGetHexpandSetMethodInfo
ResolveTabOverviewMethod "getInverted" o = TabOverviewGetInvertedMethodInfo
ResolveTabOverviewMethod "getLastChild" o = Gtk.Widget.WidgetGetLastChildMethodInfo
ResolveTabOverviewMethod "getLayoutManager" o = Gtk.Widget.WidgetGetLayoutManagerMethodInfo
ResolveTabOverviewMethod "getMapped" o = Gtk.Widget.WidgetGetMappedMethodInfo
ResolveTabOverviewMethod "getMarginBottom" o = Gtk.Widget.WidgetGetMarginBottomMethodInfo
ResolveTabOverviewMethod "getMarginEnd" o = Gtk.Widget.WidgetGetMarginEndMethodInfo
ResolveTabOverviewMethod "getMarginStart" o = Gtk.Widget.WidgetGetMarginStartMethodInfo
ResolveTabOverviewMethod "getMarginTop" o = Gtk.Widget.WidgetGetMarginTopMethodInfo
ResolveTabOverviewMethod "getName" o = Gtk.Widget.WidgetGetNameMethodInfo
ResolveTabOverviewMethod "getNative" o = Gtk.Widget.WidgetGetNativeMethodInfo
ResolveTabOverviewMethod "getNextAccessibleSibling" o = Gtk.Accessible.AccessibleGetNextAccessibleSiblingMethodInfo
ResolveTabOverviewMethod "getNextSibling" o = Gtk.Widget.WidgetGetNextSiblingMethodInfo
ResolveTabOverviewMethod "getOpacity" o = Gtk.Widget.WidgetGetOpacityMethodInfo
ResolveTabOverviewMethod "getOpen" o = TabOverviewGetOpenMethodInfo
ResolveTabOverviewMethod "getOverflow" o = Gtk.Widget.WidgetGetOverflowMethodInfo
ResolveTabOverviewMethod "getPangoContext" o = Gtk.Widget.WidgetGetPangoContextMethodInfo
ResolveTabOverviewMethod "getParent" o = Gtk.Widget.WidgetGetParentMethodInfo
ResolveTabOverviewMethod "getPlatformState" o = Gtk.Accessible.AccessibleGetPlatformStateMethodInfo
ResolveTabOverviewMethod "getPreferredSize" o = Gtk.Widget.WidgetGetPreferredSizeMethodInfo
ResolveTabOverviewMethod "getPrevSibling" o = Gtk.Widget.WidgetGetPrevSiblingMethodInfo
ResolveTabOverviewMethod "getPrimaryClipboard" o = Gtk.Widget.WidgetGetPrimaryClipboardMethodInfo
ResolveTabOverviewMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo
ResolveTabOverviewMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo
ResolveTabOverviewMethod "getRealized" o = Gtk.Widget.WidgetGetRealizedMethodInfo
ResolveTabOverviewMethod "getReceivesDefault" o = Gtk.Widget.WidgetGetReceivesDefaultMethodInfo
ResolveTabOverviewMethod "getRequestMode" o = Gtk.Widget.WidgetGetRequestModeMethodInfo
ResolveTabOverviewMethod "getRoot" o = Gtk.Widget.WidgetGetRootMethodInfo
ResolveTabOverviewMethod "getScaleFactor" o = Gtk.Widget.WidgetGetScaleFactorMethodInfo
ResolveTabOverviewMethod "getSearchActive" o = TabOverviewGetSearchActiveMethodInfo
ResolveTabOverviewMethod "getSecondaryMenu" o = TabOverviewGetSecondaryMenuMethodInfo
ResolveTabOverviewMethod "getSensitive" o = Gtk.Widget.WidgetGetSensitiveMethodInfo
ResolveTabOverviewMethod "getSettings" o = Gtk.Widget.WidgetGetSettingsMethodInfo
ResolveTabOverviewMethod "getShowEndTitleButtons" o = TabOverviewGetShowEndTitleButtonsMethodInfo
ResolveTabOverviewMethod "getShowStartTitleButtons" o = TabOverviewGetShowStartTitleButtonsMethodInfo
ResolveTabOverviewMethod "getSize" o = Gtk.Widget.WidgetGetSizeMethodInfo
ResolveTabOverviewMethod "getSizeRequest" o = Gtk.Widget.WidgetGetSizeRequestMethodInfo
ResolveTabOverviewMethod "getStateFlags" o = Gtk.Widget.WidgetGetStateFlagsMethodInfo
ResolveTabOverviewMethod "getStyleContext" o = Gtk.Widget.WidgetGetStyleContextMethodInfo
ResolveTabOverviewMethod "getTemplateChild" o = Gtk.Widget.WidgetGetTemplateChildMethodInfo
ResolveTabOverviewMethod "getTooltipMarkup" o = Gtk.Widget.WidgetGetTooltipMarkupMethodInfo
ResolveTabOverviewMethod "getTooltipText" o = Gtk.Widget.WidgetGetTooltipTextMethodInfo
ResolveTabOverviewMethod "getValign" o = Gtk.Widget.WidgetGetValignMethodInfo
ResolveTabOverviewMethod "getVexpand" o = Gtk.Widget.WidgetGetVexpandMethodInfo
ResolveTabOverviewMethod "getVexpandSet" o = Gtk.Widget.WidgetGetVexpandSetMethodInfo
ResolveTabOverviewMethod "getView" o = TabOverviewGetViewMethodInfo
ResolveTabOverviewMethod "getVisible" o = Gtk.Widget.WidgetGetVisibleMethodInfo
ResolveTabOverviewMethod "getWidth" o = Gtk.Widget.WidgetGetWidthMethodInfo
ResolveTabOverviewMethod "setAccessibleParent" o = Gtk.Accessible.AccessibleSetAccessibleParentMethodInfo
ResolveTabOverviewMethod "setCanFocus" o = Gtk.Widget.WidgetSetCanFocusMethodInfo
ResolveTabOverviewMethod "setCanTarget" o = Gtk.Widget.WidgetSetCanTargetMethodInfo
ResolveTabOverviewMethod "setChild" o = TabOverviewSetChildMethodInfo
ResolveTabOverviewMethod "setChildVisible" o = Gtk.Widget.WidgetSetChildVisibleMethodInfo
ResolveTabOverviewMethod "setCssClasses" o = Gtk.Widget.WidgetSetCssClassesMethodInfo
ResolveTabOverviewMethod "setCursor" o = Gtk.Widget.WidgetSetCursorMethodInfo
ResolveTabOverviewMethod "setCursorFromName" o = Gtk.Widget.WidgetSetCursorFromNameMethodInfo
ResolveTabOverviewMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
ResolveTabOverviewMethod "setDataFull" o = GObject.Object.ObjectSetDataFullMethodInfo
ResolveTabOverviewMethod "setDirection" o = Gtk.Widget.WidgetSetDirectionMethodInfo
ResolveTabOverviewMethod "setEnableNewTab" o = TabOverviewSetEnableNewTabMethodInfo
ResolveTabOverviewMethod "setEnableSearch" o = TabOverviewSetEnableSearchMethodInfo
ResolveTabOverviewMethod "setExtraDragPreload" o = TabOverviewSetExtraDragPreloadMethodInfo
ResolveTabOverviewMethod "setFocusChild" o = Gtk.Widget.WidgetSetFocusChildMethodInfo
ResolveTabOverviewMethod "setFocusOnClick" o = Gtk.Widget.WidgetSetFocusOnClickMethodInfo
ResolveTabOverviewMethod "setFocusable" o = Gtk.Widget.WidgetSetFocusableMethodInfo
ResolveTabOverviewMethod "setFontMap" o = Gtk.Widget.WidgetSetFontMapMethodInfo
ResolveTabOverviewMethod "setFontOptions" o = Gtk.Widget.WidgetSetFontOptionsMethodInfo
ResolveTabOverviewMethod "setHalign" o = Gtk.Widget.WidgetSetHalignMethodInfo
ResolveTabOverviewMethod "setHasTooltip" o = Gtk.Widget.WidgetSetHasTooltipMethodInfo
ResolveTabOverviewMethod "setHexpand" o = Gtk.Widget.WidgetSetHexpandMethodInfo
ResolveTabOverviewMethod "setHexpandSet" o = Gtk.Widget.WidgetSetHexpandSetMethodInfo
ResolveTabOverviewMethod "setInverted" o = TabOverviewSetInvertedMethodInfo
ResolveTabOverviewMethod "setLayoutManager" o = Gtk.Widget.WidgetSetLayoutManagerMethodInfo
ResolveTabOverviewMethod "setMarginBottom" o = Gtk.Widget.WidgetSetMarginBottomMethodInfo
ResolveTabOverviewMethod "setMarginEnd" o = Gtk.Widget.WidgetSetMarginEndMethodInfo
ResolveTabOverviewMethod "setMarginStart" o = Gtk.Widget.WidgetSetMarginStartMethodInfo
ResolveTabOverviewMethod "setMarginTop" o = Gtk.Widget.WidgetSetMarginTopMethodInfo
ResolveTabOverviewMethod "setName" o = Gtk.Widget.WidgetSetNameMethodInfo
ResolveTabOverviewMethod "setOpacity" o = Gtk.Widget.WidgetSetOpacityMethodInfo
ResolveTabOverviewMethod "setOpen" o = TabOverviewSetOpenMethodInfo
ResolveTabOverviewMethod "setOverflow" o = Gtk.Widget.WidgetSetOverflowMethodInfo
ResolveTabOverviewMethod "setParent" o = Gtk.Widget.WidgetSetParentMethodInfo
ResolveTabOverviewMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
ResolveTabOverviewMethod "setReceivesDefault" o = Gtk.Widget.WidgetSetReceivesDefaultMethodInfo
ResolveTabOverviewMethod "setSecondaryMenu" o = TabOverviewSetSecondaryMenuMethodInfo
ResolveTabOverviewMethod "setSensitive" o = Gtk.Widget.WidgetSetSensitiveMethodInfo
ResolveTabOverviewMethod "setShowEndTitleButtons" o = TabOverviewSetShowEndTitleButtonsMethodInfo
ResolveTabOverviewMethod "setShowStartTitleButtons" o = TabOverviewSetShowStartTitleButtonsMethodInfo
ResolveTabOverviewMethod "setSizeRequest" o = Gtk.Widget.WidgetSetSizeRequestMethodInfo
ResolveTabOverviewMethod "setStateFlags" o = Gtk.Widget.WidgetSetStateFlagsMethodInfo
ResolveTabOverviewMethod "setTooltipMarkup" o = Gtk.Widget.WidgetSetTooltipMarkupMethodInfo
ResolveTabOverviewMethod "setTooltipText" o = Gtk.Widget.WidgetSetTooltipTextMethodInfo
ResolveTabOverviewMethod "setValign" o = Gtk.Widget.WidgetSetValignMethodInfo
ResolveTabOverviewMethod "setVexpand" o = Gtk.Widget.WidgetSetVexpandMethodInfo
ResolveTabOverviewMethod "setVexpandSet" o = Gtk.Widget.WidgetSetVexpandSetMethodInfo
ResolveTabOverviewMethod "setView" o = TabOverviewSetViewMethodInfo
ResolveTabOverviewMethod "setVisible" o = Gtk.Widget.WidgetSetVisibleMethodInfo
ResolveTabOverviewMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveTabOverviewMethod t TabOverview, O.OverloadedMethod info TabOverview p) => OL.IsLabel t (TabOverview -> 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 ~ ResolveTabOverviewMethod t TabOverview, O.OverloadedMethod info TabOverview p, R.HasField t TabOverview p) => R.HasField t TabOverview p where
getField = O.overloadedMethod @info
#endif
instance (info ~ ResolveTabOverviewMethod t TabOverview, O.OverloadedMethodInfo info TabOverview) => OL.IsLabel t (O.MethodProxy info TabOverview) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.MethodProxy
#else
fromLabel _ = O.MethodProxy
#endif
#endif
type TabOverviewCreateTabCallback =
IO Adw.TabPage.TabPage
type C_TabOverviewCreateTabCallback =
Ptr TabOverview ->
Ptr () ->
IO (Ptr Adw.TabPage.TabPage)
foreign import ccall "wrapper"
mk_TabOverviewCreateTabCallback :: C_TabOverviewCreateTabCallback -> IO (FunPtr C_TabOverviewCreateTabCallback)
wrap_TabOverviewCreateTabCallback ::
GObject a => (a -> TabOverviewCreateTabCallback) ->
C_TabOverviewCreateTabCallback
wrap_TabOverviewCreateTabCallback :: forall a.
GObject a =>
(a -> TabOverviewCreateTabCallback)
-> C_TabOverviewCreateTabCallback
wrap_TabOverviewCreateTabCallback a -> TabOverviewCreateTabCallback
gi'cb Ptr TabOverview
gi'selfPtr Ptr ()
_ = do
TabPage
result <- Ptr TabOverview
-> (TabOverview -> TabOverviewCreateTabCallback)
-> TabOverviewCreateTabCallback
forall a b.
(HasCallStack, ManagedPtrNewtype a) =>
Ptr a -> (a -> IO b) -> IO b
B.ManagedPtr.withTransient Ptr TabOverview
gi'selfPtr ((TabOverview -> TabOverviewCreateTabCallback)
-> TabOverviewCreateTabCallback)
-> (TabOverview -> TabOverviewCreateTabCallback)
-> TabOverviewCreateTabCallback
forall a b. (a -> b) -> a -> b
$ \TabOverview
gi'self -> a -> TabOverviewCreateTabCallback
gi'cb (TabOverview -> a
forall a b. Coercible a b => a -> b
Coerce.coerce TabOverview
gi'self)
Ptr TabPage
result' <- TabPage -> IO (Ptr TabPage)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr TabPage
result
Ptr TabPage -> IO (Ptr TabPage)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr TabPage
result'
onTabOverviewCreateTab :: (IsTabOverview a, MonadIO m) => a -> ((?self :: a) => TabOverviewCreateTabCallback) -> m SignalHandlerId
onTabOverviewCreateTab :: forall a (m :: * -> *).
(IsTabOverview a, MonadIO m) =>
a
-> ((?self::a) => TabOverviewCreateTabCallback)
-> m SignalHandlerId
onTabOverviewCreateTab a
obj (?self::a) => TabOverviewCreateTabCallback
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 -> TabOverviewCreateTabCallback
wrapped a
self = let ?self = a
?self::a
self in TabOverviewCreateTabCallback
(?self::a) => TabOverviewCreateTabCallback
cb
let wrapped' :: C_TabOverviewCreateTabCallback
wrapped' = (a -> TabOverviewCreateTabCallback)
-> C_TabOverviewCreateTabCallback
forall a.
GObject a =>
(a -> TabOverviewCreateTabCallback)
-> C_TabOverviewCreateTabCallback
wrap_TabOverviewCreateTabCallback a -> TabOverviewCreateTabCallback
wrapped
FunPtr C_TabOverviewCreateTabCallback
wrapped'' <- C_TabOverviewCreateTabCallback
-> IO (FunPtr C_TabOverviewCreateTabCallback)
mk_TabOverviewCreateTabCallback C_TabOverviewCreateTabCallback
wrapped'
a
-> Text
-> FunPtr C_TabOverviewCreateTabCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"create-tab" FunPtr C_TabOverviewCreateTabCallback
wrapped'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterTabOverviewCreateTab :: (IsTabOverview a, MonadIO m) => a -> ((?self :: a) => TabOverviewCreateTabCallback) -> m SignalHandlerId
afterTabOverviewCreateTab :: forall a (m :: * -> *).
(IsTabOverview a, MonadIO m) =>
a
-> ((?self::a) => TabOverviewCreateTabCallback)
-> m SignalHandlerId
afterTabOverviewCreateTab a
obj (?self::a) => TabOverviewCreateTabCallback
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 -> TabOverviewCreateTabCallback
wrapped a
self = let ?self = a
?self::a
self in TabOverviewCreateTabCallback
(?self::a) => TabOverviewCreateTabCallback
cb
let wrapped' :: C_TabOverviewCreateTabCallback
wrapped' = (a -> TabOverviewCreateTabCallback)
-> C_TabOverviewCreateTabCallback
forall a.
GObject a =>
(a -> TabOverviewCreateTabCallback)
-> C_TabOverviewCreateTabCallback
wrap_TabOverviewCreateTabCallback a -> TabOverviewCreateTabCallback
wrapped
FunPtr C_TabOverviewCreateTabCallback
wrapped'' <- C_TabOverviewCreateTabCallback
-> IO (FunPtr C_TabOverviewCreateTabCallback)
mk_TabOverviewCreateTabCallback C_TabOverviewCreateTabCallback
wrapped'
a
-> Text
-> FunPtr C_TabOverviewCreateTabCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"create-tab" FunPtr C_TabOverviewCreateTabCallback
wrapped'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data TabOverviewCreateTabSignalInfo
instance SignalInfo TabOverviewCreateTabSignalInfo where
type HaskellCallbackType TabOverviewCreateTabSignalInfo = TabOverviewCreateTabCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_TabOverviewCreateTabCallback cb
cb'' <- mk_TabOverviewCreateTabCallback cb'
connectSignalFunPtr obj "create-tab" cb'' connectMode detail
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.TabOverview::create-tab"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.5/docs/GI-Adw-Objects-TabOverview.html#g:signal:createTab"})
#endif
type =
Adw.TabPage.TabPage
-> GValue
-> IO Bool
type =
Ptr TabOverview ->
Ptr Adw.TabPage.TabPage ->
Ptr GValue ->
Ptr () ->
IO CInt
foreign import ccall "wrapper"
:: C_TabOverviewExtraDragDropCallback -> IO (FunPtr C_TabOverviewExtraDragDropCallback)
wrap_TabOverviewExtraDragDropCallback ::
GObject a => (a -> TabOverviewExtraDragDropCallback) ->
C_TabOverviewExtraDragDropCallback
a -> TabOverviewExtraDragDropCallback
gi'cb Ptr TabOverview
gi'selfPtr Ptr TabPage
page Ptr GValue
value Ptr ()
_ = do
TabPage
page' <- ((ManagedPtr TabPage -> TabPage)
-> Ptr TabPage -> TabOverviewCreateTabCallback
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
GValue
value' <- Ptr GValue -> IO GValue
B.GValue.newGValueFromPtr Ptr GValue
value
Bool
result <- Ptr TabOverview -> (TabOverview -> IO Bool) -> IO Bool
forall a b.
(HasCallStack, ManagedPtrNewtype a) =>
Ptr a -> (a -> IO b) -> IO b
B.ManagedPtr.withTransient Ptr TabOverview
gi'selfPtr ((TabOverview -> IO Bool) -> IO Bool)
-> (TabOverview -> IO Bool) -> IO Bool
forall a b. (a -> b) -> a -> b
$ \TabOverview
gi'self -> a -> TabOverviewExtraDragDropCallback
gi'cb (TabOverview -> a
forall a b. Coercible a b => a -> b
Coerce.coerce TabOverview
gi'self) TabPage
page' GValue
value'
let result' :: CInt
result' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
P.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
P.fromEnum) Bool
result
CInt -> IO CInt
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return CInt
result'
onTabOverviewExtraDragDrop :: (IsTabOverview a, MonadIO m) => a -> ((?self :: a) => TabOverviewExtraDragDropCallback) -> m SignalHandlerId
a
obj (?self::a) => TabOverviewExtraDragDropCallback
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 -> TabOverviewExtraDragDropCallback
wrapped a
self = let ?self = a
?self::a
self in (?self::a) => TabOverviewExtraDragDropCallback
TabOverviewExtraDragDropCallback
cb
let wrapped' :: C_TabOverviewExtraDragDropCallback
wrapped' = (a -> TabOverviewExtraDragDropCallback)
-> C_TabOverviewExtraDragDropCallback
forall a.
GObject a =>
(a -> TabOverviewExtraDragDropCallback)
-> C_TabOverviewExtraDragDropCallback
wrap_TabOverviewExtraDragDropCallback a -> TabOverviewExtraDragDropCallback
wrapped
FunPtr C_TabOverviewExtraDragDropCallback
wrapped'' <- C_TabOverviewExtraDragDropCallback
-> IO (FunPtr C_TabOverviewExtraDragDropCallback)
mk_TabOverviewExtraDragDropCallback C_TabOverviewExtraDragDropCallback
wrapped'
a
-> Text
-> FunPtr C_TabOverviewExtraDragDropCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"extra-drag-drop" FunPtr C_TabOverviewExtraDragDropCallback
wrapped'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterTabOverviewExtraDragDrop :: (IsTabOverview a, MonadIO m) => a -> ((?self :: a) => TabOverviewExtraDragDropCallback) -> m SignalHandlerId
a
obj (?self::a) => TabOverviewExtraDragDropCallback
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 -> TabOverviewExtraDragDropCallback
wrapped a
self = let ?self = a
?self::a
self in (?self::a) => TabOverviewExtraDragDropCallback
TabOverviewExtraDragDropCallback
cb
let wrapped' :: C_TabOverviewExtraDragDropCallback
wrapped' = (a -> TabOverviewExtraDragDropCallback)
-> C_TabOverviewExtraDragDropCallback
forall a.
GObject a =>
(a -> TabOverviewExtraDragDropCallback)
-> C_TabOverviewExtraDragDropCallback
wrap_TabOverviewExtraDragDropCallback a -> TabOverviewExtraDragDropCallback
wrapped
FunPtr C_TabOverviewExtraDragDropCallback
wrapped'' <- C_TabOverviewExtraDragDropCallback
-> IO (FunPtr C_TabOverviewExtraDragDropCallback)
mk_TabOverviewExtraDragDropCallback C_TabOverviewExtraDragDropCallback
wrapped'
a
-> Text
-> FunPtr C_TabOverviewExtraDragDropCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"extra-drag-drop" FunPtr C_TabOverviewExtraDragDropCallback
wrapped'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data TabOverviewExtraDragDropSignalInfo
instance SignalInfo TabOverviewExtraDragDropSignalInfo where
type HaskellCallbackType TabOverviewExtraDragDropSignalInfo = TabOverviewExtraDragDropCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_TabOverviewExtraDragDropCallback cb
cb'' <- mk_TabOverviewExtraDragDropCallback cb'
connectSignalFunPtr obj "extra-drag-drop" cb'' connectMode detail
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.TabOverview::extra-drag-drop"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.5/docs/GI-Adw-Objects-TabOverview.html#g:signal:extraDragDrop"})
#endif
type =
Adw.TabPage.TabPage
-> GValue
-> IO [Gdk.Flags.DragAction]
type =
Ptr TabOverview ->
Ptr Adw.TabPage.TabPage ->
Ptr GValue ->
Ptr () ->
IO CUInt
foreign import ccall "wrapper"
:: C_TabOverviewExtraDragValueCallback -> IO (FunPtr C_TabOverviewExtraDragValueCallback)
wrap_TabOverviewExtraDragValueCallback ::
GObject a => (a -> TabOverviewExtraDragValueCallback) ->
C_TabOverviewExtraDragValueCallback
a -> TabOverviewExtraDragValueCallback
gi'cb Ptr TabOverview
gi'selfPtr Ptr TabPage
page Ptr GValue
value Ptr ()
_ = do
TabPage
page' <- ((ManagedPtr TabPage -> TabPage)
-> Ptr TabPage -> TabOverviewCreateTabCallback
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
GValue
value' <- Ptr GValue -> IO GValue
B.GValue.newGValueFromPtr Ptr GValue
value
[DragAction]
result <- Ptr TabOverview
-> (TabOverview -> IO [DragAction]) -> IO [DragAction]
forall a b.
(HasCallStack, ManagedPtrNewtype a) =>
Ptr a -> (a -> IO b) -> IO b
B.ManagedPtr.withTransient Ptr TabOverview
gi'selfPtr ((TabOverview -> IO [DragAction]) -> IO [DragAction])
-> (TabOverview -> IO [DragAction]) -> IO [DragAction]
forall a b. (a -> b) -> a -> b
$ \TabOverview
gi'self -> a -> TabOverviewExtraDragValueCallback
gi'cb (TabOverview -> a
forall a b. Coercible a b => a -> b
Coerce.coerce TabOverview
gi'self) TabPage
page' GValue
value'
let result' :: CUInt
result' = [DragAction] -> CUInt
forall b a. (Num b, IsGFlag a) => [a] -> b
gflagsToWord [DragAction]
result
CUInt -> IO CUInt
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return CUInt
result'
onTabOverviewExtraDragValue :: (IsTabOverview a, MonadIO m) => a -> ((?self :: a) => TabOverviewExtraDragValueCallback) -> m SignalHandlerId
a
obj (?self::a) => TabOverviewExtraDragValueCallback
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 -> TabOverviewExtraDragValueCallback
wrapped a
self = let ?self = a
?self::a
self in (?self::a) => TabOverviewExtraDragValueCallback
TabOverviewExtraDragValueCallback
cb
let wrapped' :: C_TabOverviewExtraDragValueCallback
wrapped' = (a -> TabOverviewExtraDragValueCallback)
-> C_TabOverviewExtraDragValueCallback
forall a.
GObject a =>
(a -> TabOverviewExtraDragValueCallback)
-> C_TabOverviewExtraDragValueCallback
wrap_TabOverviewExtraDragValueCallback a -> TabOverviewExtraDragValueCallback
wrapped
FunPtr C_TabOverviewExtraDragValueCallback
wrapped'' <- C_TabOverviewExtraDragValueCallback
-> IO (FunPtr C_TabOverviewExtraDragValueCallback)
mk_TabOverviewExtraDragValueCallback C_TabOverviewExtraDragValueCallback
wrapped'
a
-> Text
-> FunPtr C_TabOverviewExtraDragValueCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"extra-drag-value" FunPtr C_TabOverviewExtraDragValueCallback
wrapped'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterTabOverviewExtraDragValue :: (IsTabOverview a, MonadIO m) => a -> ((?self :: a) => TabOverviewExtraDragValueCallback) -> m SignalHandlerId
a
obj (?self::a) => TabOverviewExtraDragValueCallback
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 -> TabOverviewExtraDragValueCallback
wrapped a
self = let ?self = a
?self::a
self in (?self::a) => TabOverviewExtraDragValueCallback
TabOverviewExtraDragValueCallback
cb
let wrapped' :: C_TabOverviewExtraDragValueCallback
wrapped' = (a -> TabOverviewExtraDragValueCallback)
-> C_TabOverviewExtraDragValueCallback
forall a.
GObject a =>
(a -> TabOverviewExtraDragValueCallback)
-> C_TabOverviewExtraDragValueCallback
wrap_TabOverviewExtraDragValueCallback a -> TabOverviewExtraDragValueCallback
wrapped
FunPtr C_TabOverviewExtraDragValueCallback
wrapped'' <- C_TabOverviewExtraDragValueCallback
-> IO (FunPtr C_TabOverviewExtraDragValueCallback)
mk_TabOverviewExtraDragValueCallback C_TabOverviewExtraDragValueCallback
wrapped'
a
-> Text
-> FunPtr C_TabOverviewExtraDragValueCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"extra-drag-value" FunPtr C_TabOverviewExtraDragValueCallback
wrapped'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data TabOverviewExtraDragValueSignalInfo
instance SignalInfo TabOverviewExtraDragValueSignalInfo where
type HaskellCallbackType TabOverviewExtraDragValueSignalInfo = TabOverviewExtraDragValueCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_TabOverviewExtraDragValueCallback cb
cb'' <- mk_TabOverviewExtraDragValueCallback cb'
connectSignalFunPtr obj "extra-drag-value" cb'' connectMode detail
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.TabOverview::extra-drag-value"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.5/docs/GI-Adw-Objects-TabOverview.html#g:signal:extraDragValue"})
#endif
getTabOverviewChild :: (MonadIO m, IsTabOverview o) => o -> m (Maybe Gtk.Widget.Widget)
getTabOverviewChild :: forall (m :: * -> *) o.
(MonadIO m, IsTabOverview o) =>
o -> m (Maybe Widget)
getTabOverviewChild o
obj = IO (Maybe Widget) -> m (Maybe Widget)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (Maybe Widget) -> m (Maybe Widget))
-> IO (Maybe Widget) -> m (Maybe Widget)
forall a b. (a -> b) -> a -> b
$ o -> String -> (ManagedPtr Widget -> Widget) -> IO (Maybe Widget)
forall a b.
(GObject a, GObject b) =>
a -> String -> (ManagedPtr b -> b) -> IO (Maybe b)
B.Properties.getObjectPropertyObject o
obj String
"child" ManagedPtr Widget -> Widget
Gtk.Widget.Widget
setTabOverviewChild :: (MonadIO m, IsTabOverview o, Gtk.Widget.IsWidget a) => o -> a -> m ()
setTabOverviewChild :: forall (m :: * -> *) o a.
(MonadIO m, IsTabOverview o, IsWidget a) =>
o -> a -> m ()
setTabOverviewChild 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
"child" (a -> Maybe a
forall a. a -> Maybe a
Just a
val)
constructTabOverviewChild :: (IsTabOverview o, MIO.MonadIO m, Gtk.Widget.IsWidget a) => a -> m (GValueConstruct o)
constructTabOverviewChild :: forall o (m :: * -> *) a.
(IsTabOverview o, MonadIO m, IsWidget a) =>
a -> m (GValueConstruct o)
constructTabOverviewChild 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
"child" (a -> Maybe a
forall a. a -> Maybe a
P.Just a
val)
clearTabOverviewChild :: (MonadIO m, IsTabOverview o) => o -> m ()
clearTabOverviewChild :: forall (m :: * -> *) o. (MonadIO m, IsTabOverview o) => o -> m ()
clearTabOverviewChild 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 Widget -> IO ()
forall a b.
(GObject a, GObject b) =>
a -> String -> Maybe b -> IO ()
B.Properties.setObjectPropertyObject o
obj String
"child" (Maybe Widget
forall a. Maybe a
Nothing :: Maybe Gtk.Widget.Widget)
#if defined(ENABLE_OVERLOADING)
data TabOverviewChildPropertyInfo
instance AttrInfo TabOverviewChildPropertyInfo where
type AttrAllowedOps TabOverviewChildPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint TabOverviewChildPropertyInfo = IsTabOverview
type AttrSetTypeConstraint TabOverviewChildPropertyInfo = Gtk.Widget.IsWidget
type AttrTransferTypeConstraint TabOverviewChildPropertyInfo = Gtk.Widget.IsWidget
type AttrTransferType TabOverviewChildPropertyInfo = Gtk.Widget.Widget
type AttrGetType TabOverviewChildPropertyInfo = (Maybe Gtk.Widget.Widget)
type AttrLabel TabOverviewChildPropertyInfo = "child"
type AttrOrigin TabOverviewChildPropertyInfo = TabOverview
attrGet = getTabOverviewChild
attrSet = setTabOverviewChild
attrTransfer _ v = do
unsafeCastTo Gtk.Widget.Widget v
attrConstruct = constructTabOverviewChild
attrClear = clearTabOverviewChild
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.TabOverview.child"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.5/docs/GI-Adw-Objects-TabOverview.html#g:attr:child"
})
#endif
getTabOverviewEnableNewTab :: (MonadIO m, IsTabOverview o) => o -> m Bool
getTabOverviewEnableNewTab :: forall (m :: * -> *) o. (MonadIO m, IsTabOverview o) => o -> m Bool
getTabOverviewEnableNewTab 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
"enable-new-tab"
setTabOverviewEnableNewTab :: (MonadIO m, IsTabOverview o) => o -> Bool -> m ()
setTabOverviewEnableNewTab :: forall (m :: * -> *) o.
(MonadIO m, IsTabOverview o) =>
o -> Bool -> m ()
setTabOverviewEnableNewTab o
obj Bool
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 -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj String
"enable-new-tab" Bool
val
constructTabOverviewEnableNewTab :: (IsTabOverview o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructTabOverviewEnableNewTab :: forall o (m :: * -> *).
(IsTabOverview o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructTabOverviewEnableNewTab Bool
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 -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool String
"enable-new-tab" Bool
val
#if defined(ENABLE_OVERLOADING)
data TabOverviewEnableNewTabPropertyInfo
instance AttrInfo TabOverviewEnableNewTabPropertyInfo where
type AttrAllowedOps TabOverviewEnableNewTabPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint TabOverviewEnableNewTabPropertyInfo = IsTabOverview
type AttrSetTypeConstraint TabOverviewEnableNewTabPropertyInfo = (~) Bool
type AttrTransferTypeConstraint TabOverviewEnableNewTabPropertyInfo = (~) Bool
type AttrTransferType TabOverviewEnableNewTabPropertyInfo = Bool
type AttrGetType TabOverviewEnableNewTabPropertyInfo = Bool
type AttrLabel TabOverviewEnableNewTabPropertyInfo = "enable-new-tab"
type AttrOrigin TabOverviewEnableNewTabPropertyInfo = TabOverview
attrGet = getTabOverviewEnableNewTab
attrSet = setTabOverviewEnableNewTab
attrTransfer _ v = do
return v
attrConstruct = constructTabOverviewEnableNewTab
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.TabOverview.enableNewTab"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.5/docs/GI-Adw-Objects-TabOverview.html#g:attr:enableNewTab"
})
#endif
getTabOverviewEnableSearch :: (MonadIO m, IsTabOverview o) => o -> m Bool
getTabOverviewEnableSearch :: forall (m :: * -> *) o. (MonadIO m, IsTabOverview o) => o -> m Bool
getTabOverviewEnableSearch 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
"enable-search"
setTabOverviewEnableSearch :: (MonadIO m, IsTabOverview o) => o -> Bool -> m ()
setTabOverviewEnableSearch :: forall (m :: * -> *) o.
(MonadIO m, IsTabOverview o) =>
o -> Bool -> m ()
setTabOverviewEnableSearch o
obj Bool
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 -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj String
"enable-search" Bool
val
constructTabOverviewEnableSearch :: (IsTabOverview o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructTabOverviewEnableSearch :: forall o (m :: * -> *).
(IsTabOverview o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructTabOverviewEnableSearch Bool
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 -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool String
"enable-search" Bool
val
#if defined(ENABLE_OVERLOADING)
data TabOverviewEnableSearchPropertyInfo
instance AttrInfo TabOverviewEnableSearchPropertyInfo where
type AttrAllowedOps TabOverviewEnableSearchPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint TabOverviewEnableSearchPropertyInfo = IsTabOverview
type AttrSetTypeConstraint TabOverviewEnableSearchPropertyInfo = (~) Bool
type AttrTransferTypeConstraint TabOverviewEnableSearchPropertyInfo = (~) Bool
type AttrTransferType TabOverviewEnableSearchPropertyInfo = Bool
type AttrGetType TabOverviewEnableSearchPropertyInfo = Bool
type AttrLabel TabOverviewEnableSearchPropertyInfo = "enable-search"
type AttrOrigin TabOverviewEnableSearchPropertyInfo = TabOverview
attrGet = getTabOverviewEnableSearch
attrSet = setTabOverviewEnableSearch
attrTransfer _ v = do
return v
attrConstruct = constructTabOverviewEnableSearch
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.TabOverview.enableSearch"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.5/docs/GI-Adw-Objects-TabOverview.html#g:attr:enableSearch"
})
#endif
getTabOverviewExtraDragPreload :: (MonadIO m, IsTabOverview o) => o -> m Bool
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
"extra-drag-preload"
setTabOverviewExtraDragPreload :: (MonadIO m, IsTabOverview o) => o -> Bool -> m ()
o
obj Bool
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 -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj String
"extra-drag-preload" Bool
val
constructTabOverviewExtraDragPreload :: (IsTabOverview o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
Bool
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 -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool String
"extra-drag-preload" Bool
val
#if defined(ENABLE_OVERLOADING)
data TabOverviewExtraDragPreloadPropertyInfo
instance AttrInfo TabOverviewExtraDragPreloadPropertyInfo where
type AttrAllowedOps TabOverviewExtraDragPreloadPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint TabOverviewExtraDragPreloadPropertyInfo = IsTabOverview
type AttrSetTypeConstraint TabOverviewExtraDragPreloadPropertyInfo = (~) Bool
type AttrTransferTypeConstraint TabOverviewExtraDragPreloadPropertyInfo = (~) Bool
type AttrTransferType TabOverviewExtraDragPreloadPropertyInfo = Bool
type AttrGetType TabOverviewExtraDragPreloadPropertyInfo = Bool
type AttrLabel TabOverviewExtraDragPreloadPropertyInfo = "extra-drag-preload"
type AttrOrigin TabOverviewExtraDragPreloadPropertyInfo = TabOverview
attrGet = getTabOverviewExtraDragPreload
attrSet = setTabOverviewExtraDragPreload
attrTransfer _ v = do
return v
attrConstruct = constructTabOverviewExtraDragPreload
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.TabOverview.extraDragPreload"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.5/docs/GI-Adw-Objects-TabOverview.html#g:attr:extraDragPreload"
})
#endif
getTabOverviewInverted :: (MonadIO m, IsTabOverview o) => o -> m Bool
getTabOverviewInverted :: forall (m :: * -> *) o. (MonadIO m, IsTabOverview o) => o -> m Bool
getTabOverviewInverted 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
"inverted"
setTabOverviewInverted :: (MonadIO m, IsTabOverview o) => o -> Bool -> m ()
setTabOverviewInverted :: forall (m :: * -> *) o.
(MonadIO m, IsTabOverview o) =>
o -> Bool -> m ()
setTabOverviewInverted o
obj Bool
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 -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj String
"inverted" Bool
val
constructTabOverviewInverted :: (IsTabOverview o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructTabOverviewInverted :: forall o (m :: * -> *).
(IsTabOverview o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructTabOverviewInverted Bool
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 -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool String
"inverted" Bool
val
#if defined(ENABLE_OVERLOADING)
data TabOverviewInvertedPropertyInfo
instance AttrInfo TabOverviewInvertedPropertyInfo where
type AttrAllowedOps TabOverviewInvertedPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint TabOverviewInvertedPropertyInfo = IsTabOverview
type AttrSetTypeConstraint TabOverviewInvertedPropertyInfo = (~) Bool
type AttrTransferTypeConstraint TabOverviewInvertedPropertyInfo = (~) Bool
type AttrTransferType TabOverviewInvertedPropertyInfo = Bool
type AttrGetType TabOverviewInvertedPropertyInfo = Bool
type AttrLabel TabOverviewInvertedPropertyInfo = "inverted"
type AttrOrigin TabOverviewInvertedPropertyInfo = TabOverview
attrGet = getTabOverviewInverted
attrSet = setTabOverviewInverted
attrTransfer _ v = do
return v
attrConstruct = constructTabOverviewInverted
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.TabOverview.inverted"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.5/docs/GI-Adw-Objects-TabOverview.html#g:attr:inverted"
})
#endif
getTabOverviewOpen :: (MonadIO m, IsTabOverview o) => o -> m Bool
getTabOverviewOpen :: forall (m :: * -> *) o. (MonadIO m, IsTabOverview o) => o -> m Bool
getTabOverviewOpen 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
"open"
setTabOverviewOpen :: (MonadIO m, IsTabOverview o) => o -> Bool -> m ()
setTabOverviewOpen :: forall (m :: * -> *) o.
(MonadIO m, IsTabOverview o) =>
o -> Bool -> m ()
setTabOverviewOpen o
obj Bool
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 -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj String
"open" Bool
val
constructTabOverviewOpen :: (IsTabOverview o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructTabOverviewOpen :: forall o (m :: * -> *).
(IsTabOverview o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructTabOverviewOpen Bool
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 -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool String
"open" Bool
val
#if defined(ENABLE_OVERLOADING)
data TabOverviewOpenPropertyInfo
instance AttrInfo TabOverviewOpenPropertyInfo where
type AttrAllowedOps TabOverviewOpenPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint TabOverviewOpenPropertyInfo = IsTabOverview
type AttrSetTypeConstraint TabOverviewOpenPropertyInfo = (~) Bool
type AttrTransferTypeConstraint TabOverviewOpenPropertyInfo = (~) Bool
type AttrTransferType TabOverviewOpenPropertyInfo = Bool
type AttrGetType TabOverviewOpenPropertyInfo = Bool
type AttrLabel TabOverviewOpenPropertyInfo = "open"
type AttrOrigin TabOverviewOpenPropertyInfo = TabOverview
attrGet = getTabOverviewOpen
attrSet = setTabOverviewOpen
attrTransfer _ v = do
return v
attrConstruct = constructTabOverviewOpen
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.TabOverview.open"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.5/docs/GI-Adw-Objects-TabOverview.html#g:attr:open"
})
#endif
getTabOverviewSearchActive :: (MonadIO m, IsTabOverview o) => o -> m Bool
getTabOverviewSearchActive :: forall (m :: * -> *) o. (MonadIO m, IsTabOverview o) => o -> m Bool
getTabOverviewSearchActive 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
"search-active"
#if defined(ENABLE_OVERLOADING)
data TabOverviewSearchActivePropertyInfo
instance AttrInfo TabOverviewSearchActivePropertyInfo where
type AttrAllowedOps TabOverviewSearchActivePropertyInfo = '[ 'AttrGet]
type AttrBaseTypeConstraint TabOverviewSearchActivePropertyInfo = IsTabOverview
type AttrSetTypeConstraint TabOverviewSearchActivePropertyInfo = (~) ()
type AttrTransferTypeConstraint TabOverviewSearchActivePropertyInfo = (~) ()
type AttrTransferType TabOverviewSearchActivePropertyInfo = ()
type AttrGetType TabOverviewSearchActivePropertyInfo = Bool
type AttrLabel TabOverviewSearchActivePropertyInfo = "search-active"
type AttrOrigin TabOverviewSearchActivePropertyInfo = TabOverview
attrGet = getTabOverviewSearchActive
attrSet = undefined
attrTransfer _ = undefined
attrConstruct = undefined
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.TabOverview.searchActive"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.5/docs/GI-Adw-Objects-TabOverview.html#g:attr:searchActive"
})
#endif
getTabOverviewSecondaryMenu :: (MonadIO m, IsTabOverview 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
"secondary-menu" ManagedPtr MenuModel -> MenuModel
Gio.MenuModel.MenuModel
setTabOverviewSecondaryMenu :: (MonadIO m, IsTabOverview 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
"secondary-menu" (a -> Maybe a
forall a. a -> Maybe a
Just a
val)
constructTabOverviewSecondaryMenu :: (IsTabOverview 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
"secondary-menu" (a -> Maybe a
forall a. a -> Maybe a
P.Just a
val)
clearTabOverviewSecondaryMenu :: (MonadIO m, IsTabOverview 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
"secondary-menu" (Maybe MenuModel
forall a. Maybe a
Nothing :: Maybe Gio.MenuModel.MenuModel)
#if defined(ENABLE_OVERLOADING)
data TabOverviewSecondaryMenuPropertyInfo
instance AttrInfo TabOverviewSecondaryMenuPropertyInfo where
type AttrAllowedOps TabOverviewSecondaryMenuPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint TabOverviewSecondaryMenuPropertyInfo = IsTabOverview
type AttrSetTypeConstraint TabOverviewSecondaryMenuPropertyInfo = Gio.MenuModel.IsMenuModel
type AttrTransferTypeConstraint TabOverviewSecondaryMenuPropertyInfo = Gio.MenuModel.IsMenuModel
type AttrTransferType TabOverviewSecondaryMenuPropertyInfo = Gio.MenuModel.MenuModel
type AttrGetType TabOverviewSecondaryMenuPropertyInfo = (Maybe Gio.MenuModel.MenuModel)
type AttrLabel TabOverviewSecondaryMenuPropertyInfo = "secondary-menu"
type AttrOrigin TabOverviewSecondaryMenuPropertyInfo = TabOverview
attrGet = getTabOverviewSecondaryMenu
attrSet = setTabOverviewSecondaryMenu
attrTransfer _ v = do
unsafeCastTo Gio.MenuModel.MenuModel v
attrConstruct = constructTabOverviewSecondaryMenu
attrClear = clearTabOverviewSecondaryMenu
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.TabOverview.secondaryMenu"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.5/docs/GI-Adw-Objects-TabOverview.html#g:attr:secondaryMenu"
})
#endif
getTabOverviewShowEndTitleButtons :: (MonadIO m, IsTabOverview o) => o -> m Bool
getTabOverviewShowEndTitleButtons :: forall (m :: * -> *) o. (MonadIO m, IsTabOverview o) => o -> m Bool
getTabOverviewShowEndTitleButtons 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
"show-end-title-buttons"
setTabOverviewShowEndTitleButtons :: (MonadIO m, IsTabOverview o) => o -> Bool -> m ()
setTabOverviewShowEndTitleButtons :: forall (m :: * -> *) o.
(MonadIO m, IsTabOverview o) =>
o -> Bool -> m ()
setTabOverviewShowEndTitleButtons o
obj Bool
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 -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj String
"show-end-title-buttons" Bool
val
constructTabOverviewShowEndTitleButtons :: (IsTabOverview o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructTabOverviewShowEndTitleButtons :: forall o (m :: * -> *).
(IsTabOverview o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructTabOverviewShowEndTitleButtons Bool
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 -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool String
"show-end-title-buttons" Bool
val
#if defined(ENABLE_OVERLOADING)
data TabOverviewShowEndTitleButtonsPropertyInfo
instance AttrInfo TabOverviewShowEndTitleButtonsPropertyInfo where
type AttrAllowedOps TabOverviewShowEndTitleButtonsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint TabOverviewShowEndTitleButtonsPropertyInfo = IsTabOverview
type AttrSetTypeConstraint TabOverviewShowEndTitleButtonsPropertyInfo = (~) Bool
type AttrTransferTypeConstraint TabOverviewShowEndTitleButtonsPropertyInfo = (~) Bool
type AttrTransferType TabOverviewShowEndTitleButtonsPropertyInfo = Bool
type AttrGetType TabOverviewShowEndTitleButtonsPropertyInfo = Bool
type AttrLabel TabOverviewShowEndTitleButtonsPropertyInfo = "show-end-title-buttons"
type AttrOrigin TabOverviewShowEndTitleButtonsPropertyInfo = TabOverview
attrGet = getTabOverviewShowEndTitleButtons
attrSet = setTabOverviewShowEndTitleButtons
attrTransfer _ v = do
return v
attrConstruct = constructTabOverviewShowEndTitleButtons
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.TabOverview.showEndTitleButtons"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.5/docs/GI-Adw-Objects-TabOverview.html#g:attr:showEndTitleButtons"
})
#endif
getTabOverviewShowStartTitleButtons :: (MonadIO m, IsTabOverview o) => o -> m Bool
getTabOverviewShowStartTitleButtons :: forall (m :: * -> *) o. (MonadIO m, IsTabOverview o) => o -> m Bool
getTabOverviewShowStartTitleButtons 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
"show-start-title-buttons"
setTabOverviewShowStartTitleButtons :: (MonadIO m, IsTabOverview o) => o -> Bool -> m ()
setTabOverviewShowStartTitleButtons :: forall (m :: * -> *) o.
(MonadIO m, IsTabOverview o) =>
o -> Bool -> m ()
setTabOverviewShowStartTitleButtons o
obj Bool
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 -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj String
"show-start-title-buttons" Bool
val
constructTabOverviewShowStartTitleButtons :: (IsTabOverview o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructTabOverviewShowStartTitleButtons :: forall o (m :: * -> *).
(IsTabOverview o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructTabOverviewShowStartTitleButtons Bool
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 -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool String
"show-start-title-buttons" Bool
val
#if defined(ENABLE_OVERLOADING)
data TabOverviewShowStartTitleButtonsPropertyInfo
instance AttrInfo TabOverviewShowStartTitleButtonsPropertyInfo where
type AttrAllowedOps TabOverviewShowStartTitleButtonsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint TabOverviewShowStartTitleButtonsPropertyInfo = IsTabOverview
type AttrSetTypeConstraint TabOverviewShowStartTitleButtonsPropertyInfo = (~) Bool
type AttrTransferTypeConstraint TabOverviewShowStartTitleButtonsPropertyInfo = (~) Bool
type AttrTransferType TabOverviewShowStartTitleButtonsPropertyInfo = Bool
type AttrGetType TabOverviewShowStartTitleButtonsPropertyInfo = Bool
type AttrLabel TabOverviewShowStartTitleButtonsPropertyInfo = "show-start-title-buttons"
type AttrOrigin TabOverviewShowStartTitleButtonsPropertyInfo = TabOverview
attrGet = getTabOverviewShowStartTitleButtons
attrSet = setTabOverviewShowStartTitleButtons
attrTransfer _ v = do
return v
attrConstruct = constructTabOverviewShowStartTitleButtons
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.TabOverview.showStartTitleButtons"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.5/docs/GI-Adw-Objects-TabOverview.html#g:attr:showStartTitleButtons"
})
#endif
getTabOverviewView :: (MonadIO m, IsTabOverview o) => o -> m (Maybe Adw.TabView.TabView)
getTabOverviewView :: forall (m :: * -> *) o.
(MonadIO m, IsTabOverview o) =>
o -> m (Maybe TabView)
getTabOverviewView o
obj = IO (Maybe TabView) -> m (Maybe TabView)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (Maybe TabView) -> m (Maybe TabView))
-> IO (Maybe TabView) -> m (Maybe TabView)
forall a b. (a -> b) -> a -> b
$ o
-> String -> (ManagedPtr TabView -> TabView) -> IO (Maybe TabView)
forall a b.
(GObject a, GObject b) =>
a -> String -> (ManagedPtr b -> b) -> IO (Maybe b)
B.Properties.getObjectPropertyObject o
obj String
"view" ManagedPtr TabView -> TabView
Adw.TabView.TabView
setTabOverviewView :: (MonadIO m, IsTabOverview o, Adw.TabView.IsTabView a) => o -> a -> m ()
setTabOverviewView :: forall (m :: * -> *) o a.
(MonadIO m, IsTabOverview o, IsTabView a) =>
o -> a -> m ()
setTabOverviewView 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
"view" (a -> Maybe a
forall a. a -> Maybe a
Just a
val)
constructTabOverviewView :: (IsTabOverview o, MIO.MonadIO m, Adw.TabView.IsTabView a) => a -> m (GValueConstruct o)
constructTabOverviewView :: forall o (m :: * -> *) a.
(IsTabOverview o, MonadIO m, IsTabView a) =>
a -> m (GValueConstruct o)
constructTabOverviewView 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
"view" (a -> Maybe a
forall a. a -> Maybe a
P.Just a
val)
clearTabOverviewView :: (MonadIO m, IsTabOverview o) => o -> m ()
clearTabOverviewView :: forall (m :: * -> *) o. (MonadIO m, IsTabOverview o) => o -> m ()
clearTabOverviewView 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 TabView -> IO ()
forall a b.
(GObject a, GObject b) =>
a -> String -> Maybe b -> IO ()
B.Properties.setObjectPropertyObject o
obj String
"view" (Maybe TabView
forall a. Maybe a
Nothing :: Maybe Adw.TabView.TabView)
#if defined(ENABLE_OVERLOADING)
data TabOverviewViewPropertyInfo
instance AttrInfo TabOverviewViewPropertyInfo where
type AttrAllowedOps TabOverviewViewPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint TabOverviewViewPropertyInfo = IsTabOverview
type AttrSetTypeConstraint TabOverviewViewPropertyInfo = Adw.TabView.IsTabView
type AttrTransferTypeConstraint TabOverviewViewPropertyInfo = Adw.TabView.IsTabView
type AttrTransferType TabOverviewViewPropertyInfo = Adw.TabView.TabView
type AttrGetType TabOverviewViewPropertyInfo = (Maybe Adw.TabView.TabView)
type AttrLabel TabOverviewViewPropertyInfo = "view"
type AttrOrigin TabOverviewViewPropertyInfo = TabOverview
attrGet = getTabOverviewView
attrSet = setTabOverviewView
attrTransfer _ v = do
unsafeCastTo Adw.TabView.TabView v
attrConstruct = constructTabOverviewView
attrClear = clearTabOverviewView
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.TabOverview.view"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.5/docs/GI-Adw-Objects-TabOverview.html#g:attr:view"
})
#endif
#if defined(ENABLE_OVERLOADING)
instance O.HasAttributeList TabOverview
type instance O.AttributeList TabOverview = TabOverviewAttributeList
type TabOverviewAttributeList = ('[ '("accessibleRole", Gtk.Accessible.AccessibleAccessibleRolePropertyInfo), '("canFocus", Gtk.Widget.WidgetCanFocusPropertyInfo), '("canTarget", Gtk.Widget.WidgetCanTargetPropertyInfo), '("child", TabOverviewChildPropertyInfo), '("cssClasses", Gtk.Widget.WidgetCssClassesPropertyInfo), '("cssName", Gtk.Widget.WidgetCssNamePropertyInfo), '("cursor", Gtk.Widget.WidgetCursorPropertyInfo), '("enableNewTab", TabOverviewEnableNewTabPropertyInfo), '("enableSearch", TabOverviewEnableSearchPropertyInfo), '("extraDragPreload", TabOverviewExtraDragPreloadPropertyInfo), '("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), '("inverted", TabOverviewInvertedPropertyInfo), '("layoutManager", Gtk.Widget.WidgetLayoutManagerPropertyInfo), '("marginBottom", Gtk.Widget.WidgetMarginBottomPropertyInfo), '("marginEnd", Gtk.Widget.WidgetMarginEndPropertyInfo), '("marginStart", Gtk.Widget.WidgetMarginStartPropertyInfo), '("marginTop", Gtk.Widget.WidgetMarginTopPropertyInfo), '("name", Gtk.Widget.WidgetNamePropertyInfo), '("opacity", Gtk.Widget.WidgetOpacityPropertyInfo), '("open", TabOverviewOpenPropertyInfo), '("overflow", Gtk.Widget.WidgetOverflowPropertyInfo), '("parent", Gtk.Widget.WidgetParentPropertyInfo), '("receivesDefault", Gtk.Widget.WidgetReceivesDefaultPropertyInfo), '("root", Gtk.Widget.WidgetRootPropertyInfo), '("scaleFactor", Gtk.Widget.WidgetScaleFactorPropertyInfo), '("searchActive", TabOverviewSearchActivePropertyInfo), '("secondaryMenu", TabOverviewSecondaryMenuPropertyInfo), '("sensitive", Gtk.Widget.WidgetSensitivePropertyInfo), '("showEndTitleButtons", TabOverviewShowEndTitleButtonsPropertyInfo), '("showStartTitleButtons", TabOverviewShowStartTitleButtonsPropertyInfo), '("tooltipMarkup", Gtk.Widget.WidgetTooltipMarkupPropertyInfo), '("tooltipText", Gtk.Widget.WidgetTooltipTextPropertyInfo), '("valign", Gtk.Widget.WidgetValignPropertyInfo), '("vexpand", Gtk.Widget.WidgetVexpandPropertyInfo), '("vexpandSet", Gtk.Widget.WidgetVexpandSetPropertyInfo), '("view", TabOverviewViewPropertyInfo), '("visible", Gtk.Widget.WidgetVisiblePropertyInfo), '("widthRequest", Gtk.Widget.WidgetWidthRequestPropertyInfo)] :: [(Symbol, DK.Type)])
#endif
#if defined(ENABLE_OVERLOADING)
tabOverviewChild :: AttrLabelProxy "child"
tabOverviewChild = AttrLabelProxy
tabOverviewEnableNewTab :: AttrLabelProxy "enableNewTab"
tabOverviewEnableNewTab = AttrLabelProxy
tabOverviewEnableSearch :: AttrLabelProxy "enableSearch"
tabOverviewEnableSearch = AttrLabelProxy
tabOverviewExtraDragPreload :: AttrLabelProxy "extraDragPreload"
tabOverviewExtraDragPreload = AttrLabelProxy
tabOverviewInverted :: AttrLabelProxy "inverted"
tabOverviewInverted = AttrLabelProxy
tabOverviewOpen :: AttrLabelProxy "open"
tabOverviewOpen = AttrLabelProxy
tabOverviewSearchActive :: AttrLabelProxy "searchActive"
tabOverviewSearchActive = AttrLabelProxy
tabOverviewSecondaryMenu :: AttrLabelProxy "secondaryMenu"
tabOverviewSecondaryMenu = AttrLabelProxy
tabOverviewShowEndTitleButtons :: AttrLabelProxy "showEndTitleButtons"
tabOverviewShowEndTitleButtons = AttrLabelProxy
tabOverviewShowStartTitleButtons :: AttrLabelProxy "showStartTitleButtons"
tabOverviewShowStartTitleButtons = AttrLabelProxy
tabOverviewView :: AttrLabelProxy "view"
tabOverviewView = AttrLabelProxy
#endif
#if defined(ENABLE_OVERLOADING)
type instance O.SignalList TabOverview = TabOverviewSignalList
type TabOverviewSignalList = ('[ '("createTab", TabOverviewCreateTabSignalInfo), '("destroy", Gtk.Widget.WidgetDestroySignalInfo), '("directionChanged", Gtk.Widget.WidgetDirectionChangedSignalInfo), '("extraDragDrop", TabOverviewExtraDragDropSignalInfo), '("extraDragValue", TabOverviewExtraDragValueSignalInfo), '("hide", Gtk.Widget.WidgetHideSignalInfo), '("keynavFailed", Gtk.Widget.WidgetKeynavFailedSignalInfo), '("map", Gtk.Widget.WidgetMapSignalInfo), '("mnemonicActivate", Gtk.Widget.WidgetMnemonicActivateSignalInfo), '("moveFocus", Gtk.Widget.WidgetMoveFocusSignalInfo), '("notify", GObject.Object.ObjectNotifySignalInfo), '("queryTooltip", Gtk.Widget.WidgetQueryTooltipSignalInfo), '("realize", Gtk.Widget.WidgetRealizeSignalInfo), '("show", Gtk.Widget.WidgetShowSignalInfo), '("stateFlagsChanged", Gtk.Widget.WidgetStateFlagsChangedSignalInfo), '("unmap", Gtk.Widget.WidgetUnmapSignalInfo), '("unrealize", Gtk.Widget.WidgetUnrealizeSignalInfo)] :: [(Symbol, DK.Type)])
#endif
foreign import ccall "adw_tab_overview_new" adw_tab_overview_new ::
IO (Ptr TabOverview)
tabOverviewNew ::
(B.CallStack.HasCallStack, MonadIO m) =>
m TabOverview
tabOverviewNew :: forall (m :: * -> *). (HasCallStack, MonadIO m) => m TabOverview
tabOverviewNew = IO TabOverview -> m TabOverview
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO TabOverview -> m TabOverview)
-> IO TabOverview -> m TabOverview
forall a b. (a -> b) -> a -> b
$ do
Ptr TabOverview
result <- IO (Ptr TabOverview)
adw_tab_overview_new
Text -> Ptr TabOverview -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"tabOverviewNew" Ptr TabOverview
result
TabOverview
result' <- ((ManagedPtr TabOverview -> TabOverview)
-> Ptr TabOverview -> IO TabOverview
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr TabOverview -> TabOverview
TabOverview) Ptr TabOverview
result
TabOverview -> IO TabOverview
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return TabOverview
result'
#if defined(ENABLE_OVERLOADING)
#endif
foreign import ccall "adw_tab_overview_get_child" adw_tab_overview_get_child ::
Ptr TabOverview ->
IO (Ptr Gtk.Widget.Widget)
tabOverviewGetChild ::
(B.CallStack.HasCallStack, MonadIO m, IsTabOverview a) =>
a
-> m (Maybe Gtk.Widget.Widget)
tabOverviewGetChild :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTabOverview a) =>
a -> m (Maybe Widget)
tabOverviewGetChild a
self = IO (Maybe Widget) -> m (Maybe Widget)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe Widget) -> m (Maybe Widget))
-> IO (Maybe Widget) -> m (Maybe Widget)
forall a b. (a -> b) -> a -> b
$ do
Ptr TabOverview
self' <- a -> IO (Ptr TabOverview)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr Widget
result <- Ptr TabOverview -> IO (Ptr Widget)
adw_tab_overview_get_child Ptr TabOverview
self'
Maybe Widget
maybeResult <- Ptr Widget -> (Ptr Widget -> IO Widget) -> IO (Maybe Widget)
forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
convertIfNonNull Ptr Widget
result ((Ptr Widget -> IO Widget) -> IO (Maybe Widget))
-> (Ptr Widget -> IO Widget) -> IO (Maybe Widget)
forall a b. (a -> b) -> a -> b
$ \Ptr Widget
result' -> do
Widget
result'' <- ((ManagedPtr Widget -> Widget) -> Ptr Widget -> IO Widget
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr Widget -> Widget
Gtk.Widget.Widget) Ptr Widget
result'
Widget -> IO Widget
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Widget
result''
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
Maybe Widget -> IO (Maybe Widget)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe Widget
maybeResult
#if defined(ENABLE_OVERLOADING)
data TabOverviewGetChildMethodInfo
instance (signature ~ (m (Maybe Gtk.Widget.Widget)), MonadIO m, IsTabOverview a) => O.OverloadedMethod TabOverviewGetChildMethodInfo a signature where
overloadedMethod = tabOverviewGetChild
instance O.OverloadedMethodInfo TabOverviewGetChildMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.TabOverview.tabOverviewGetChild",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.5/docs/GI-Adw-Objects-TabOverview.html#v:tabOverviewGetChild"
})
#endif
foreign import ccall "adw_tab_overview_get_enable_new_tab" adw_tab_overview_get_enable_new_tab ::
Ptr TabOverview ->
IO CInt
tabOverviewGetEnableNewTab ::
(B.CallStack.HasCallStack, MonadIO m, IsTabOverview a) =>
a
-> m Bool
tabOverviewGetEnableNewTab :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTabOverview a) =>
a -> m Bool
tabOverviewGetEnableNewTab 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 TabOverview
self' <- a -> IO (Ptr TabOverview)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CInt
result <- Ptr TabOverview -> IO CInt
adw_tab_overview_get_enable_new_tab Ptr TabOverview
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 TabOverviewGetEnableNewTabMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsTabOverview a) => O.OverloadedMethod TabOverviewGetEnableNewTabMethodInfo a signature where
overloadedMethod = tabOverviewGetEnableNewTab
instance O.OverloadedMethodInfo TabOverviewGetEnableNewTabMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.TabOverview.tabOverviewGetEnableNewTab",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.5/docs/GI-Adw-Objects-TabOverview.html#v:tabOverviewGetEnableNewTab"
})
#endif
foreign import ccall "adw_tab_overview_get_enable_search" adw_tab_overview_get_enable_search ::
Ptr TabOverview ->
IO CInt
tabOverviewGetEnableSearch ::
(B.CallStack.HasCallStack, MonadIO m, IsTabOverview a) =>
a
-> m Bool
tabOverviewGetEnableSearch :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTabOverview a) =>
a -> m Bool
tabOverviewGetEnableSearch 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 TabOverview
self' <- a -> IO (Ptr TabOverview)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CInt
result <- Ptr TabOverview -> IO CInt
adw_tab_overview_get_enable_search Ptr TabOverview
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 TabOverviewGetEnableSearchMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsTabOverview a) => O.OverloadedMethod TabOverviewGetEnableSearchMethodInfo a signature where
overloadedMethod = tabOverviewGetEnableSearch
instance O.OverloadedMethodInfo TabOverviewGetEnableSearchMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.TabOverview.tabOverviewGetEnableSearch",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.5/docs/GI-Adw-Objects-TabOverview.html#v:tabOverviewGetEnableSearch"
})
#endif
foreign import ccall "adw_tab_overview_get_extra_drag_preload" ::
Ptr TabOverview ->
IO CInt
tabOverviewGetExtraDragPreload ::
(B.CallStack.HasCallStack, MonadIO m, IsTabOverview a) =>
a
-> m Bool
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 TabOverview
self' <- a -> IO (Ptr TabOverview)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CInt
result <- Ptr TabOverview -> IO CInt
adw_tab_overview_get_extra_drag_preload Ptr TabOverview
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 TabOverviewGetExtraDragPreloadMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsTabOverview a) => O.OverloadedMethod TabOverviewGetExtraDragPreloadMethodInfo a signature where
overloadedMethod = tabOverviewGetExtraDragPreload
instance O.OverloadedMethodInfo TabOverviewGetExtraDragPreloadMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.TabOverview.tabOverviewGetExtraDragPreload",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.5/docs/GI-Adw-Objects-TabOverview.html#v:tabOverviewGetExtraDragPreload"
})
#endif
foreign import ccall "adw_tab_overview_get_inverted" adw_tab_overview_get_inverted ::
Ptr TabOverview ->
IO CInt
tabOverviewGetInverted ::
(B.CallStack.HasCallStack, MonadIO m, IsTabOverview a) =>
a
-> m Bool
tabOverviewGetInverted :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTabOverview a) =>
a -> m Bool
tabOverviewGetInverted 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 TabOverview
self' <- a -> IO (Ptr TabOverview)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CInt
result <- Ptr TabOverview -> IO CInt
adw_tab_overview_get_inverted Ptr TabOverview
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 TabOverviewGetInvertedMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsTabOverview a) => O.OverloadedMethod TabOverviewGetInvertedMethodInfo a signature where
overloadedMethod = tabOverviewGetInverted
instance O.OverloadedMethodInfo TabOverviewGetInvertedMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.TabOverview.tabOverviewGetInverted",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.5/docs/GI-Adw-Objects-TabOverview.html#v:tabOverviewGetInverted"
})
#endif
foreign import ccall "adw_tab_overview_get_open" adw_tab_overview_get_open ::
Ptr TabOverview ->
IO CInt
tabOverviewGetOpen ::
(B.CallStack.HasCallStack, MonadIO m, IsTabOverview a) =>
a
-> m Bool
tabOverviewGetOpen :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTabOverview a) =>
a -> m Bool
tabOverviewGetOpen 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 TabOverview
self' <- a -> IO (Ptr TabOverview)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CInt
result <- Ptr TabOverview -> IO CInt
adw_tab_overview_get_open Ptr TabOverview
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 TabOverviewGetOpenMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsTabOverview a) => O.OverloadedMethod TabOverviewGetOpenMethodInfo a signature where
overloadedMethod = tabOverviewGetOpen
instance O.OverloadedMethodInfo TabOverviewGetOpenMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.TabOverview.tabOverviewGetOpen",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.5/docs/GI-Adw-Objects-TabOverview.html#v:tabOverviewGetOpen"
})
#endif
foreign import ccall "adw_tab_overview_get_search_active" adw_tab_overview_get_search_active ::
Ptr TabOverview ->
IO CInt
tabOverviewGetSearchActive ::
(B.CallStack.HasCallStack, MonadIO m, IsTabOverview a) =>
a
-> m Bool
tabOverviewGetSearchActive :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTabOverview a) =>
a -> m Bool
tabOverviewGetSearchActive 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 TabOverview
self' <- a -> IO (Ptr TabOverview)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CInt
result <- Ptr TabOverview -> IO CInt
adw_tab_overview_get_search_active Ptr TabOverview
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 TabOverviewGetSearchActiveMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsTabOverview a) => O.OverloadedMethod TabOverviewGetSearchActiveMethodInfo a signature where
overloadedMethod = tabOverviewGetSearchActive
instance O.OverloadedMethodInfo TabOverviewGetSearchActiveMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.TabOverview.tabOverviewGetSearchActive",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.5/docs/GI-Adw-Objects-TabOverview.html#v:tabOverviewGetSearchActive"
})
#endif
foreign import ccall "adw_tab_overview_get_secondary_menu" ::
Ptr TabOverview ->
IO (Ptr Gio.MenuModel.MenuModel)
tabOverviewGetSecondaryMenu ::
(B.CallStack.HasCallStack, MonadIO m, IsTabOverview 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 TabOverview
self' <- a -> IO (Ptr TabOverview)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr MenuModel
result <- Ptr TabOverview -> IO (Ptr MenuModel)
adw_tab_overview_get_secondary_menu Ptr TabOverview
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 TabOverviewGetSecondaryMenuMethodInfo
instance (signature ~ (m (Maybe Gio.MenuModel.MenuModel)), MonadIO m, IsTabOverview a) => O.OverloadedMethod TabOverviewGetSecondaryMenuMethodInfo a signature where
overloadedMethod = tabOverviewGetSecondaryMenu
instance O.OverloadedMethodInfo TabOverviewGetSecondaryMenuMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.TabOverview.tabOverviewGetSecondaryMenu",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.5/docs/GI-Adw-Objects-TabOverview.html#v:tabOverviewGetSecondaryMenu"
})
#endif
foreign import ccall "adw_tab_overview_get_show_end_title_buttons" adw_tab_overview_get_show_end_title_buttons ::
Ptr TabOverview ->
IO CInt
tabOverviewGetShowEndTitleButtons ::
(B.CallStack.HasCallStack, MonadIO m, IsTabOverview a) =>
a
-> m Bool
tabOverviewGetShowEndTitleButtons :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTabOverview a) =>
a -> m Bool
tabOverviewGetShowEndTitleButtons 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 TabOverview
self' <- a -> IO (Ptr TabOverview)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CInt
result <- Ptr TabOverview -> IO CInt
adw_tab_overview_get_show_end_title_buttons Ptr TabOverview
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 TabOverviewGetShowEndTitleButtonsMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsTabOverview a) => O.OverloadedMethod TabOverviewGetShowEndTitleButtonsMethodInfo a signature where
overloadedMethod = tabOverviewGetShowEndTitleButtons
instance O.OverloadedMethodInfo TabOverviewGetShowEndTitleButtonsMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.TabOverview.tabOverviewGetShowEndTitleButtons",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.5/docs/GI-Adw-Objects-TabOverview.html#v:tabOverviewGetShowEndTitleButtons"
})
#endif
foreign import ccall "adw_tab_overview_get_show_start_title_buttons" adw_tab_overview_get_show_start_title_buttons ::
Ptr TabOverview ->
IO CInt
tabOverviewGetShowStartTitleButtons ::
(B.CallStack.HasCallStack, MonadIO m, IsTabOverview a) =>
a
-> m Bool
tabOverviewGetShowStartTitleButtons :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTabOverview a) =>
a -> m Bool
tabOverviewGetShowStartTitleButtons 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 TabOverview
self' <- a -> IO (Ptr TabOverview)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CInt
result <- Ptr TabOverview -> IO CInt
adw_tab_overview_get_show_start_title_buttons Ptr TabOverview
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 TabOverviewGetShowStartTitleButtonsMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsTabOverview a) => O.OverloadedMethod TabOverviewGetShowStartTitleButtonsMethodInfo a signature where
overloadedMethod = tabOverviewGetShowStartTitleButtons
instance O.OverloadedMethodInfo TabOverviewGetShowStartTitleButtonsMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.TabOverview.tabOverviewGetShowStartTitleButtons",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.5/docs/GI-Adw-Objects-TabOverview.html#v:tabOverviewGetShowStartTitleButtons"
})
#endif
foreign import ccall "adw_tab_overview_get_view" adw_tab_overview_get_view ::
Ptr TabOverview ->
IO (Ptr Adw.TabView.TabView)
tabOverviewGetView ::
(B.CallStack.HasCallStack, MonadIO m, IsTabOverview a) =>
a
-> m (Maybe Adw.TabView.TabView)
tabOverviewGetView :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTabOverview a) =>
a -> m (Maybe TabView)
tabOverviewGetView a
self = IO (Maybe TabView) -> m (Maybe TabView)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe TabView) -> m (Maybe TabView))
-> IO (Maybe TabView) -> m (Maybe TabView)
forall a b. (a -> b) -> a -> b
$ do
Ptr TabOverview
self' <- a -> IO (Ptr TabOverview)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr TabView
result <- Ptr TabOverview -> IO (Ptr TabView)
adw_tab_overview_get_view Ptr TabOverview
self'
Maybe TabView
maybeResult <- Ptr TabView -> (Ptr TabView -> IO TabView) -> IO (Maybe TabView)
forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
convertIfNonNull Ptr TabView
result ((Ptr TabView -> IO TabView) -> IO (Maybe TabView))
-> (Ptr TabView -> IO TabView) -> IO (Maybe TabView)
forall a b. (a -> b) -> a -> b
$ \Ptr TabView
result' -> do
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
Adw.TabView.TabView) Ptr TabView
result'
TabView -> IO TabView
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return TabView
result''
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
Maybe TabView -> IO (Maybe TabView)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe TabView
maybeResult
#if defined(ENABLE_OVERLOADING)
data TabOverviewGetViewMethodInfo
instance (signature ~ (m (Maybe Adw.TabView.TabView)), MonadIO m, IsTabOverview a) => O.OverloadedMethod TabOverviewGetViewMethodInfo a signature where
overloadedMethod = tabOverviewGetView
instance O.OverloadedMethodInfo TabOverviewGetViewMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.TabOverview.tabOverviewGetView",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.5/docs/GI-Adw-Objects-TabOverview.html#v:tabOverviewGetView"
})
#endif
foreign import ccall "adw_tab_overview_set_child" adw_tab_overview_set_child ::
Ptr TabOverview ->
Ptr Gtk.Widget.Widget ->
IO ()
tabOverviewSetChild ::
(B.CallStack.HasCallStack, MonadIO m, IsTabOverview a, Gtk.Widget.IsWidget b) =>
a
-> Maybe (b)
-> m ()
tabOverviewSetChild :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsTabOverview a, IsWidget b) =>
a -> Maybe b -> m ()
tabOverviewSetChild a
self Maybe b
child = 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 TabOverview
self' <- a -> IO (Ptr TabOverview)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr Widget
maybeChild <- case Maybe b
child of
Maybe b
Nothing -> Ptr Widget -> IO (Ptr Widget)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Widget
forall a. Ptr a
nullPtr
Just b
jChild -> do
Ptr Widget
jChild' <- b -> IO (Ptr Widget)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
jChild
Ptr Widget -> IO (Ptr Widget)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Widget
jChild'
Ptr TabOverview -> Ptr Widget -> IO ()
adw_tab_overview_set_child Ptr TabOverview
self' Ptr Widget
maybeChild
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
child 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 TabOverviewSetChildMethodInfo
instance (signature ~ (Maybe (b) -> m ()), MonadIO m, IsTabOverview a, Gtk.Widget.IsWidget b) => O.OverloadedMethod TabOverviewSetChildMethodInfo a signature where
overloadedMethod = tabOverviewSetChild
instance O.OverloadedMethodInfo TabOverviewSetChildMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.TabOverview.tabOverviewSetChild",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.5/docs/GI-Adw-Objects-TabOverview.html#v:tabOverviewSetChild"
})
#endif
foreign import ccall "adw_tab_overview_set_enable_new_tab" adw_tab_overview_set_enable_new_tab ::
Ptr TabOverview ->
CInt ->
IO ()
tabOverviewSetEnableNewTab ::
(B.CallStack.HasCallStack, MonadIO m, IsTabOverview a) =>
a
-> Bool
-> m ()
tabOverviewSetEnableNewTab :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTabOverview a) =>
a -> Bool -> m ()
tabOverviewSetEnableNewTab a
self Bool
enableNewTab = 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 TabOverview
self' <- a -> IO (Ptr TabOverview)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
let enableNewTab' :: CInt
enableNewTab' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
P.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
P.fromEnum) Bool
enableNewTab
Ptr TabOverview -> CInt -> IO ()
adw_tab_overview_set_enable_new_tab Ptr TabOverview
self' CInt
enableNewTab'
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 TabOverviewSetEnableNewTabMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsTabOverview a) => O.OverloadedMethod TabOverviewSetEnableNewTabMethodInfo a signature where
overloadedMethod = tabOverviewSetEnableNewTab
instance O.OverloadedMethodInfo TabOverviewSetEnableNewTabMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.TabOverview.tabOverviewSetEnableNewTab",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.5/docs/GI-Adw-Objects-TabOverview.html#v:tabOverviewSetEnableNewTab"
})
#endif
foreign import ccall "adw_tab_overview_set_enable_search" adw_tab_overview_set_enable_search ::
Ptr TabOverview ->
CInt ->
IO ()
tabOverviewSetEnableSearch ::
(B.CallStack.HasCallStack, MonadIO m, IsTabOverview a) =>
a
-> Bool
-> m ()
tabOverviewSetEnableSearch :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTabOverview a) =>
a -> Bool -> m ()
tabOverviewSetEnableSearch a
self Bool
enableSearch = 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 TabOverview
self' <- a -> IO (Ptr TabOverview)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
let enableSearch' :: CInt
enableSearch' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
P.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
P.fromEnum) Bool
enableSearch
Ptr TabOverview -> CInt -> IO ()
adw_tab_overview_set_enable_search Ptr TabOverview
self' CInt
enableSearch'
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 TabOverviewSetEnableSearchMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsTabOverview a) => O.OverloadedMethod TabOverviewSetEnableSearchMethodInfo a signature where
overloadedMethod = tabOverviewSetEnableSearch
instance O.OverloadedMethodInfo TabOverviewSetEnableSearchMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.TabOverview.tabOverviewSetEnableSearch",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.5/docs/GI-Adw-Objects-TabOverview.html#v:tabOverviewSetEnableSearch"
})
#endif
foreign import ccall "adw_tab_overview_set_extra_drag_preload" ::
Ptr TabOverview ->
CInt ->
IO ()
tabOverviewSetExtraDragPreload ::
(B.CallStack.HasCallStack, MonadIO m, IsTabOverview a) =>
a
-> Bool
-> m ()
a
self Bool
preload = 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 TabOverview
self' <- a -> IO (Ptr TabOverview)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
let preload' :: CInt
preload' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
P.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
P.fromEnum) Bool
preload
Ptr TabOverview -> CInt -> IO ()
adw_tab_overview_set_extra_drag_preload Ptr TabOverview
self' CInt
preload'
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 TabOverviewSetExtraDragPreloadMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsTabOverview a) => O.OverloadedMethod TabOverviewSetExtraDragPreloadMethodInfo a signature where
overloadedMethod = tabOverviewSetExtraDragPreload
instance O.OverloadedMethodInfo TabOverviewSetExtraDragPreloadMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.TabOverview.tabOverviewSetExtraDragPreload",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.5/docs/GI-Adw-Objects-TabOverview.html#v:tabOverviewSetExtraDragPreload"
})
#endif
foreign import ccall "adw_tab_overview_set_inverted" adw_tab_overview_set_inverted ::
Ptr TabOverview ->
CInt ->
IO ()
tabOverviewSetInverted ::
(B.CallStack.HasCallStack, MonadIO m, IsTabOverview a) =>
a
-> Bool
-> m ()
tabOverviewSetInverted :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTabOverview a) =>
a -> Bool -> m ()
tabOverviewSetInverted a
self Bool
inverted = 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 TabOverview
self' <- a -> IO (Ptr TabOverview)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
let inverted' :: CInt
inverted' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
P.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
P.fromEnum) Bool
inverted
Ptr TabOverview -> CInt -> IO ()
adw_tab_overview_set_inverted Ptr TabOverview
self' CInt
inverted'
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 TabOverviewSetInvertedMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsTabOverview a) => O.OverloadedMethod TabOverviewSetInvertedMethodInfo a signature where
overloadedMethod = tabOverviewSetInverted
instance O.OverloadedMethodInfo TabOverviewSetInvertedMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.TabOverview.tabOverviewSetInverted",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.5/docs/GI-Adw-Objects-TabOverview.html#v:tabOverviewSetInverted"
})
#endif
foreign import ccall "adw_tab_overview_set_open" adw_tab_overview_set_open ::
Ptr TabOverview ->
CInt ->
IO ()
tabOverviewSetOpen ::
(B.CallStack.HasCallStack, MonadIO m, IsTabOverview a) =>
a
-> Bool
-> m ()
tabOverviewSetOpen :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTabOverview a) =>
a -> Bool -> m ()
tabOverviewSetOpen a
self Bool
open = 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 TabOverview
self' <- a -> IO (Ptr TabOverview)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
let open' :: CInt
open' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
P.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
P.fromEnum) Bool
open
Ptr TabOverview -> CInt -> IO ()
adw_tab_overview_set_open Ptr TabOverview
self' CInt
open'
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 TabOverviewSetOpenMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsTabOverview a) => O.OverloadedMethod TabOverviewSetOpenMethodInfo a signature where
overloadedMethod = tabOverviewSetOpen
instance O.OverloadedMethodInfo TabOverviewSetOpenMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.TabOverview.tabOverviewSetOpen",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.5/docs/GI-Adw-Objects-TabOverview.html#v:tabOverviewSetOpen"
})
#endif
foreign import ccall "adw_tab_overview_set_secondary_menu" ::
Ptr TabOverview ->
Ptr Gio.MenuModel.MenuModel ->
IO ()
tabOverviewSetSecondaryMenu ::
(B.CallStack.HasCallStack, MonadIO m, IsTabOverview a, Gio.MenuModel.IsMenuModel b) =>
a
-> Maybe (b)
-> m ()
a
self Maybe b
secondaryMenu = 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 TabOverview
self' <- a -> IO (Ptr TabOverview)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr MenuModel
maybeSecondaryMenu <- case Maybe b
secondaryMenu 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
jSecondaryMenu -> do
Ptr MenuModel
jSecondaryMenu' <- b -> IO (Ptr MenuModel)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
jSecondaryMenu
Ptr MenuModel -> IO (Ptr MenuModel)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr MenuModel
jSecondaryMenu'
Ptr TabOverview -> Ptr MenuModel -> IO ()
adw_tab_overview_set_secondary_menu Ptr TabOverview
self' Ptr MenuModel
maybeSecondaryMenu
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
secondaryMenu 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 TabOverviewSetSecondaryMenuMethodInfo
instance (signature ~ (Maybe (b) -> m ()), MonadIO m, IsTabOverview a, Gio.MenuModel.IsMenuModel b) => O.OverloadedMethod TabOverviewSetSecondaryMenuMethodInfo a signature where
overloadedMethod = tabOverviewSetSecondaryMenu
instance O.OverloadedMethodInfo TabOverviewSetSecondaryMenuMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.TabOverview.tabOverviewSetSecondaryMenu",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.5/docs/GI-Adw-Objects-TabOverview.html#v:tabOverviewSetSecondaryMenu"
})
#endif
foreign import ccall "adw_tab_overview_set_show_end_title_buttons" adw_tab_overview_set_show_end_title_buttons ::
Ptr TabOverview ->
CInt ->
IO ()
tabOverviewSetShowEndTitleButtons ::
(B.CallStack.HasCallStack, MonadIO m, IsTabOverview a) =>
a
-> Bool
-> m ()
tabOverviewSetShowEndTitleButtons :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTabOverview a) =>
a -> Bool -> m ()
tabOverviewSetShowEndTitleButtons a
self Bool
showEndTitleButtons = 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 TabOverview
self' <- a -> IO (Ptr TabOverview)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
let showEndTitleButtons' :: CInt
showEndTitleButtons' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
P.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
P.fromEnum) Bool
showEndTitleButtons
Ptr TabOverview -> CInt -> IO ()
adw_tab_overview_set_show_end_title_buttons Ptr TabOverview
self' CInt
showEndTitleButtons'
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 TabOverviewSetShowEndTitleButtonsMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsTabOverview a) => O.OverloadedMethod TabOverviewSetShowEndTitleButtonsMethodInfo a signature where
overloadedMethod = tabOverviewSetShowEndTitleButtons
instance O.OverloadedMethodInfo TabOverviewSetShowEndTitleButtonsMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.TabOverview.tabOverviewSetShowEndTitleButtons",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.5/docs/GI-Adw-Objects-TabOverview.html#v:tabOverviewSetShowEndTitleButtons"
})
#endif
foreign import ccall "adw_tab_overview_set_show_start_title_buttons" adw_tab_overview_set_show_start_title_buttons ::
Ptr TabOverview ->
CInt ->
IO ()
tabOverviewSetShowStartTitleButtons ::
(B.CallStack.HasCallStack, MonadIO m, IsTabOverview a) =>
a
-> Bool
-> m ()
tabOverviewSetShowStartTitleButtons :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTabOverview a) =>
a -> Bool -> m ()
tabOverviewSetShowStartTitleButtons a
self Bool
showStartTitleButtons = 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 TabOverview
self' <- a -> IO (Ptr TabOverview)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
let showStartTitleButtons' :: CInt
showStartTitleButtons' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
P.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
P.fromEnum) Bool
showStartTitleButtons
Ptr TabOverview -> CInt -> IO ()
adw_tab_overview_set_show_start_title_buttons Ptr TabOverview
self' CInt
showStartTitleButtons'
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 TabOverviewSetShowStartTitleButtonsMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsTabOverview a) => O.OverloadedMethod TabOverviewSetShowStartTitleButtonsMethodInfo a signature where
overloadedMethod = tabOverviewSetShowStartTitleButtons
instance O.OverloadedMethodInfo TabOverviewSetShowStartTitleButtonsMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.TabOverview.tabOverviewSetShowStartTitleButtons",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.5/docs/GI-Adw-Objects-TabOverview.html#v:tabOverviewSetShowStartTitleButtons"
})
#endif
foreign import ccall "adw_tab_overview_set_view" adw_tab_overview_set_view ::
Ptr TabOverview ->
Ptr Adw.TabView.TabView ->
IO ()
tabOverviewSetView ::
(B.CallStack.HasCallStack, MonadIO m, IsTabOverview a, Adw.TabView.IsTabView b) =>
a
-> Maybe (b)
-> m ()
tabOverviewSetView :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsTabOverview a, IsTabView b) =>
a -> Maybe b -> m ()
tabOverviewSetView a
self Maybe b
view = 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 TabOverview
self' <- a -> IO (Ptr TabOverview)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr TabView
maybeView <- case Maybe b
view of
Maybe b
Nothing -> Ptr TabView -> IO (Ptr TabView)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr TabView
forall a. Ptr a
nullPtr
Just b
jView -> do
Ptr TabView
jView' <- b -> IO (Ptr TabView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
jView
Ptr TabView -> IO (Ptr TabView)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr TabView
jView'
Ptr TabOverview -> Ptr TabView -> IO ()
adw_tab_overview_set_view Ptr TabOverview
self' Ptr TabView
maybeView
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
view 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 TabOverviewSetViewMethodInfo
instance (signature ~ (Maybe (b) -> m ()), MonadIO m, IsTabOverview a, Adw.TabView.IsTabView b) => O.OverloadedMethod TabOverviewSetViewMethodInfo a signature where
overloadedMethod = tabOverviewSetView
instance O.OverloadedMethodInfo TabOverviewSetViewMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.TabOverview.tabOverviewSetView",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.5/docs/GI-Adw-Objects-TabOverview.html#v:tabOverviewSetView"
})
#endif
foreign import ccall "adw_tab_overview_setup_extra_drop_target" ::
Ptr TabOverview ->
CUInt ->
Ptr CGType ->
Word64 ->
IO ()
tabOverviewSetupExtraDropTarget ::
(B.CallStack.HasCallStack, MonadIO m, IsTabOverview a) =>
a
-> [Gdk.Flags.DragAction]
-> Maybe ([GType])
-> m ()
a
self [DragAction]
actions Maybe [GType]
types = 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
let nTypes :: Word64
nTypes = case Maybe [GType]
types of
Maybe [GType]
Nothing -> Word64
0
Just [GType]
jTypes -> Int -> Word64
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> Word64) -> Int -> Word64
forall a b. (a -> b) -> a -> b
$ [GType] -> Int
forall a. [a] -> Int
forall (t :: * -> *) a. Foldable t => t a -> Int
P.length [GType]
jTypes
Ptr TabOverview
self' <- a -> IO (Ptr TabOverview)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
let actions' :: CUInt
actions' = [DragAction] -> CUInt
forall b a. (Num b, IsGFlag a) => [a] -> b
gflagsToWord [DragAction]
actions
Ptr Word64
maybeTypes <- case Maybe [GType]
types of
Maybe [GType]
Nothing -> Ptr Word64 -> IO (Ptr Word64)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Word64
forall a. Ptr a
nullPtr
Just [GType]
jTypes -> do
Ptr Word64
jTypes' <- ((GType -> Word64) -> [GType] -> IO (Ptr Word64)
forall a b. Storable b => (a -> b) -> [a] -> IO (Ptr b)
packMapStorableArray GType -> Word64
gtypeToCGType) [GType]
jTypes
Ptr Word64 -> IO (Ptr Word64)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Word64
jTypes'
Ptr TabOverview -> CUInt -> Ptr Word64 -> Word64 -> IO ()
adw_tab_overview_setup_extra_drop_target Ptr TabOverview
self' CUInt
actions' Ptr Word64
maybeTypes Word64
nTypes
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
Ptr Word64 -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr Word64
maybeTypes
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data TabOverviewSetupExtraDropTargetMethodInfo
instance (signature ~ ([Gdk.Flags.DragAction] -> Maybe ([GType]) -> m ()), MonadIO m, IsTabOverview a) => O.OverloadedMethod TabOverviewSetupExtraDropTargetMethodInfo a signature where
overloadedMethod = tabOverviewSetupExtraDropTarget
instance O.OverloadedMethodInfo TabOverviewSetupExtraDropTargetMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.TabOverview.tabOverviewSetupExtraDropTarget",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.5/docs/GI-Adw-Objects-TabOverview.html#v:tabOverviewSetupExtraDropTarget"
})
#endif