{-# LANGUAGE TypeApplications #-}
#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif
module GI.Adw.Objects.NavigationSplitView
(
NavigationSplitView(..) ,
IsNavigationSplitView ,
toNavigationSplitView ,
#if defined(ENABLE_OVERLOADING)
ResolveNavigationSplitViewMethod ,
#endif
#if defined(ENABLE_OVERLOADING)
NavigationSplitViewGetCollapsedMethodInfo,
#endif
navigationSplitViewGetCollapsed ,
#if defined(ENABLE_OVERLOADING)
NavigationSplitViewGetContentMethodInfo ,
#endif
navigationSplitViewGetContent ,
#if defined(ENABLE_OVERLOADING)
NavigationSplitViewGetMaxSidebarWidthMethodInfo,
#endif
navigationSplitViewGetMaxSidebarWidth ,
#if defined(ENABLE_OVERLOADING)
NavigationSplitViewGetMinSidebarWidthMethodInfo,
#endif
navigationSplitViewGetMinSidebarWidth ,
#if defined(ENABLE_OVERLOADING)
NavigationSplitViewGetShowContentMethodInfo,
#endif
navigationSplitViewGetShowContent ,
#if defined(ENABLE_OVERLOADING)
NavigationSplitViewGetSidebarMethodInfo ,
#endif
navigationSplitViewGetSidebar ,
#if defined(ENABLE_OVERLOADING)
NavigationSplitViewGetSidebarWidthFractionMethodInfo,
#endif
navigationSplitViewGetSidebarWidthFraction,
#if defined(ENABLE_OVERLOADING)
NavigationSplitViewGetSidebarWidthUnitMethodInfo,
#endif
navigationSplitViewGetSidebarWidthUnit ,
navigationSplitViewNew ,
#if defined(ENABLE_OVERLOADING)
NavigationSplitViewSetCollapsedMethodInfo,
#endif
navigationSplitViewSetCollapsed ,
#if defined(ENABLE_OVERLOADING)
NavigationSplitViewSetContentMethodInfo ,
#endif
navigationSplitViewSetContent ,
#if defined(ENABLE_OVERLOADING)
NavigationSplitViewSetMaxSidebarWidthMethodInfo,
#endif
navigationSplitViewSetMaxSidebarWidth ,
#if defined(ENABLE_OVERLOADING)
NavigationSplitViewSetMinSidebarWidthMethodInfo,
#endif
navigationSplitViewSetMinSidebarWidth ,
#if defined(ENABLE_OVERLOADING)
NavigationSplitViewSetShowContentMethodInfo,
#endif
navigationSplitViewSetShowContent ,
#if defined(ENABLE_OVERLOADING)
NavigationSplitViewSetSidebarMethodInfo ,
#endif
navigationSplitViewSetSidebar ,
#if defined(ENABLE_OVERLOADING)
NavigationSplitViewSetSidebarWidthFractionMethodInfo,
#endif
navigationSplitViewSetSidebarWidthFraction,
#if defined(ENABLE_OVERLOADING)
NavigationSplitViewSetSidebarWidthUnitMethodInfo,
#endif
navigationSplitViewSetSidebarWidthUnit ,
#if defined(ENABLE_OVERLOADING)
NavigationSplitViewCollapsedPropertyInfo,
#endif
constructNavigationSplitViewCollapsed ,
getNavigationSplitViewCollapsed ,
#if defined(ENABLE_OVERLOADING)
navigationSplitViewCollapsed ,
#endif
setNavigationSplitViewCollapsed ,
#if defined(ENABLE_OVERLOADING)
NavigationSplitViewContentPropertyInfo ,
#endif
clearNavigationSplitViewContent ,
constructNavigationSplitViewContent ,
getNavigationSplitViewContent ,
#if defined(ENABLE_OVERLOADING)
navigationSplitViewContent ,
#endif
setNavigationSplitViewContent ,
#if defined(ENABLE_OVERLOADING)
NavigationSplitViewMaxSidebarWidthPropertyInfo,
#endif
constructNavigationSplitViewMaxSidebarWidth,
getNavigationSplitViewMaxSidebarWidth ,
#if defined(ENABLE_OVERLOADING)
navigationSplitViewMaxSidebarWidth ,
#endif
setNavigationSplitViewMaxSidebarWidth ,
#if defined(ENABLE_OVERLOADING)
NavigationSplitViewMinSidebarWidthPropertyInfo,
#endif
constructNavigationSplitViewMinSidebarWidth,
getNavigationSplitViewMinSidebarWidth ,
#if defined(ENABLE_OVERLOADING)
navigationSplitViewMinSidebarWidth ,
#endif
setNavigationSplitViewMinSidebarWidth ,
#if defined(ENABLE_OVERLOADING)
NavigationSplitViewShowContentPropertyInfo,
#endif
constructNavigationSplitViewShowContent ,
getNavigationSplitViewShowContent ,
#if defined(ENABLE_OVERLOADING)
navigationSplitViewShowContent ,
#endif
setNavigationSplitViewShowContent ,
#if defined(ENABLE_OVERLOADING)
NavigationSplitViewSidebarPropertyInfo ,
#endif
clearNavigationSplitViewSidebar ,
constructNavigationSplitViewSidebar ,
getNavigationSplitViewSidebar ,
#if defined(ENABLE_OVERLOADING)
navigationSplitViewSidebar ,
#endif
setNavigationSplitViewSidebar ,
#if defined(ENABLE_OVERLOADING)
NavigationSplitViewSidebarWidthFractionPropertyInfo,
#endif
constructNavigationSplitViewSidebarWidthFraction,
getNavigationSplitViewSidebarWidthFraction,
#if defined(ENABLE_OVERLOADING)
navigationSplitViewSidebarWidthFraction ,
#endif
setNavigationSplitViewSidebarWidthFraction,
#if defined(ENABLE_OVERLOADING)
NavigationSplitViewSidebarWidthUnitPropertyInfo,
#endif
constructNavigationSplitViewSidebarWidthUnit,
getNavigationSplitViewSidebarWidthUnit ,
#if defined(ENABLE_OVERLOADING)
navigationSplitViewSidebarWidthUnit ,
#endif
setNavigationSplitViewSidebarWidthUnit ,
) 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 qualified Data.Word as DW
import qualified Data.Int as DI
import qualified System.Posix.Types as SPT
import qualified Foreign.C.Types as FCT
#if MIN_VERSION_base(4,18,0)
import {-# SOURCE #-} qualified GI.Adw.Enums as Adw.Enums
import {-# SOURCE #-} qualified GI.Adw.Objects.NavigationPage as Adw.NavigationPage
import qualified GI.GObject.Objects.Object as GObject.Object
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
#else
import {-# SOURCE #-} qualified GI.Adw.Enums as Adw.Enums
import {-# SOURCE #-} qualified GI.Adw.Objects.NavigationPage as Adw.NavigationPage
import qualified GI.GObject.Objects.Object as GObject.Object
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
#endif
newtype NavigationSplitView = NavigationSplitView (SP.ManagedPtr NavigationSplitView)
deriving (NavigationSplitView -> NavigationSplitView -> Bool
(NavigationSplitView -> NavigationSplitView -> Bool)
-> (NavigationSplitView -> NavigationSplitView -> Bool)
-> Eq NavigationSplitView
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: NavigationSplitView -> NavigationSplitView -> Bool
== :: NavigationSplitView -> NavigationSplitView -> Bool
$c/= :: NavigationSplitView -> NavigationSplitView -> Bool
/= :: NavigationSplitView -> NavigationSplitView -> Bool
Eq)
instance SP.ManagedPtrNewtype NavigationSplitView where
toManagedPtr :: NavigationSplitView -> ManagedPtr NavigationSplitView
toManagedPtr (NavigationSplitView ManagedPtr NavigationSplitView
p) = ManagedPtr NavigationSplitView
p
foreign import ccall "adw_navigation_split_view_get_type"
c_adw_navigation_split_view_get_type :: IO B.Types.GType
instance B.Types.TypedObject NavigationSplitView where
glibType :: IO GType
glibType = IO GType
c_adw_navigation_split_view_get_type
instance B.Types.GObject NavigationSplitView
class (SP.GObject o, O.IsDescendantOf NavigationSplitView o) => IsNavigationSplitView o
instance (SP.GObject o, O.IsDescendantOf NavigationSplitView o) => IsNavigationSplitView o
instance O.HasParentTypes NavigationSplitView
type instance O.ParentTypes NavigationSplitView = '[Gtk.Widget.Widget, GObject.Object.Object, Gtk.Accessible.Accessible, Gtk.Buildable.Buildable, Gtk.ConstraintTarget.ConstraintTarget]
toNavigationSplitView :: (MIO.MonadIO m, IsNavigationSplitView o) => o -> m NavigationSplitView
toNavigationSplitView :: forall (m :: * -> *) o.
(MonadIO m, IsNavigationSplitView o) =>
o -> m NavigationSplitView
toNavigationSplitView = IO NavigationSplitView -> m NavigationSplitView
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO NavigationSplitView -> m NavigationSplitView)
-> (o -> IO NavigationSplitView) -> o -> m NavigationSplitView
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (ManagedPtr NavigationSplitView -> NavigationSplitView)
-> o -> IO NavigationSplitView
forall o o'.
(HasCallStack, ManagedPtrNewtype o, TypedObject o,
ManagedPtrNewtype o', TypedObject o') =>
(ManagedPtr o' -> o') -> o -> IO o'
B.ManagedPtr.unsafeCastTo ManagedPtr NavigationSplitView -> NavigationSplitView
NavigationSplitView
instance B.GValue.IsGValue (Maybe NavigationSplitView) where
gvalueGType_ :: IO GType
gvalueGType_ = IO GType
c_adw_navigation_split_view_get_type
gvalueSet_ :: Ptr GValue -> Maybe NavigationSplitView -> IO ()
gvalueSet_ Ptr GValue
gv Maybe NavigationSplitView
P.Nothing = Ptr GValue -> Ptr NavigationSplitView -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv (Ptr NavigationSplitView
forall a. Ptr a
FP.nullPtr :: FP.Ptr NavigationSplitView)
gvalueSet_ Ptr GValue
gv (P.Just NavigationSplitView
obj) = NavigationSplitView -> (Ptr NavigationSplitView -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
B.ManagedPtr.withManagedPtr NavigationSplitView
obj (Ptr GValue -> Ptr NavigationSplitView -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv)
gvalueGet_ :: Ptr GValue -> IO (Maybe NavigationSplitView)
gvalueGet_ Ptr GValue
gv = do
Ptr NavigationSplitView
ptr <- Ptr GValue -> IO (Ptr NavigationSplitView)
forall a. GObject a => Ptr GValue -> IO (Ptr a)
B.GValue.get_object Ptr GValue
gv :: IO (FP.Ptr NavigationSplitView)
if Ptr NavigationSplitView
ptr Ptr NavigationSplitView -> Ptr NavigationSplitView -> Bool
forall a. Eq a => a -> a -> Bool
/= Ptr NavigationSplitView
forall a. Ptr a
FP.nullPtr
then NavigationSplitView -> Maybe NavigationSplitView
forall a. a -> Maybe a
P.Just (NavigationSplitView -> Maybe NavigationSplitView)
-> IO NavigationSplitView -> IO (Maybe NavigationSplitView)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (ManagedPtr NavigationSplitView -> NavigationSplitView)
-> Ptr NavigationSplitView -> IO NavigationSplitView
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
B.ManagedPtr.newObject ManagedPtr NavigationSplitView -> NavigationSplitView
NavigationSplitView Ptr NavigationSplitView
ptr
else Maybe NavigationSplitView -> IO (Maybe NavigationSplitView)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe NavigationSplitView
forall a. Maybe a
P.Nothing
#if defined(ENABLE_OVERLOADING)
type family ResolveNavigationSplitViewMethod (t :: Symbol) (o :: DK.Type) :: DK.Type where
ResolveNavigationSplitViewMethod "actionSetEnabled" o = Gtk.Widget.WidgetActionSetEnabledMethodInfo
ResolveNavigationSplitViewMethod "activate" o = Gtk.Widget.WidgetActivateMethodInfo
ResolveNavigationSplitViewMethod "activateAction" o = Gtk.Widget.WidgetActivateActionMethodInfo
ResolveNavigationSplitViewMethod "activateDefault" o = Gtk.Widget.WidgetActivateDefaultMethodInfo
ResolveNavigationSplitViewMethod "addController" o = Gtk.Widget.WidgetAddControllerMethodInfo
ResolveNavigationSplitViewMethod "addCssClass" o = Gtk.Widget.WidgetAddCssClassMethodInfo
ResolveNavigationSplitViewMethod "addMnemonicLabel" o = Gtk.Widget.WidgetAddMnemonicLabelMethodInfo
ResolveNavigationSplitViewMethod "addTickCallback" o = Gtk.Widget.WidgetAddTickCallbackMethodInfo
ResolveNavigationSplitViewMethod "allocate" o = Gtk.Widget.WidgetAllocateMethodInfo
ResolveNavigationSplitViewMethod "announce" o = Gtk.Accessible.AccessibleAnnounceMethodInfo
ResolveNavigationSplitViewMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
ResolveNavigationSplitViewMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
ResolveNavigationSplitViewMethod "childFocus" o = Gtk.Widget.WidgetChildFocusMethodInfo
ResolveNavigationSplitViewMethod "computeBounds" o = Gtk.Widget.WidgetComputeBoundsMethodInfo
ResolveNavigationSplitViewMethod "computeExpand" o = Gtk.Widget.WidgetComputeExpandMethodInfo
ResolveNavigationSplitViewMethod "computePoint" o = Gtk.Widget.WidgetComputePointMethodInfo
ResolveNavigationSplitViewMethod "computeTransform" o = Gtk.Widget.WidgetComputeTransformMethodInfo
ResolveNavigationSplitViewMethod "contains" o = Gtk.Widget.WidgetContainsMethodInfo
ResolveNavigationSplitViewMethod "createPangoContext" o = Gtk.Widget.WidgetCreatePangoContextMethodInfo
ResolveNavigationSplitViewMethod "createPangoLayout" o = Gtk.Widget.WidgetCreatePangoLayoutMethodInfo
ResolveNavigationSplitViewMethod "disposeTemplate" o = Gtk.Widget.WidgetDisposeTemplateMethodInfo
ResolveNavigationSplitViewMethod "dragCheckThreshold" o = Gtk.Widget.WidgetDragCheckThresholdMethodInfo
ResolveNavigationSplitViewMethod "errorBell" o = Gtk.Widget.WidgetErrorBellMethodInfo
ResolveNavigationSplitViewMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
ResolveNavigationSplitViewMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
ResolveNavigationSplitViewMethod "getv" o = GObject.Object.ObjectGetvMethodInfo
ResolveNavigationSplitViewMethod "grabFocus" o = Gtk.Widget.WidgetGrabFocusMethodInfo
ResolveNavigationSplitViewMethod "hasCssClass" o = Gtk.Widget.WidgetHasCssClassMethodInfo
ResolveNavigationSplitViewMethod "hasDefault" o = Gtk.Widget.WidgetHasDefaultMethodInfo
ResolveNavigationSplitViewMethod "hasFocus" o = Gtk.Widget.WidgetHasFocusMethodInfo
ResolveNavigationSplitViewMethod "hasVisibleFocus" o = Gtk.Widget.WidgetHasVisibleFocusMethodInfo
ResolveNavigationSplitViewMethod "hide" o = Gtk.Widget.WidgetHideMethodInfo
ResolveNavigationSplitViewMethod "inDestruction" o = Gtk.Widget.WidgetInDestructionMethodInfo
ResolveNavigationSplitViewMethod "initTemplate" o = Gtk.Widget.WidgetInitTemplateMethodInfo
ResolveNavigationSplitViewMethod "insertActionGroup" o = Gtk.Widget.WidgetInsertActionGroupMethodInfo
ResolveNavigationSplitViewMethod "insertAfter" o = Gtk.Widget.WidgetInsertAfterMethodInfo
ResolveNavigationSplitViewMethod "insertBefore" o = Gtk.Widget.WidgetInsertBeforeMethodInfo
ResolveNavigationSplitViewMethod "isAncestor" o = Gtk.Widget.WidgetIsAncestorMethodInfo
ResolveNavigationSplitViewMethod "isDrawable" o = Gtk.Widget.WidgetIsDrawableMethodInfo
ResolveNavigationSplitViewMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo
ResolveNavigationSplitViewMethod "isFocus" o = Gtk.Widget.WidgetIsFocusMethodInfo
ResolveNavigationSplitViewMethod "isSensitive" o = Gtk.Widget.WidgetIsSensitiveMethodInfo
ResolveNavigationSplitViewMethod "isVisible" o = Gtk.Widget.WidgetIsVisibleMethodInfo
ResolveNavigationSplitViewMethod "keynavFailed" o = Gtk.Widget.WidgetKeynavFailedMethodInfo
ResolveNavigationSplitViewMethod "listMnemonicLabels" o = Gtk.Widget.WidgetListMnemonicLabelsMethodInfo
ResolveNavigationSplitViewMethod "map" o = Gtk.Widget.WidgetMapMethodInfo
ResolveNavigationSplitViewMethod "measure" o = Gtk.Widget.WidgetMeasureMethodInfo
ResolveNavigationSplitViewMethod "mnemonicActivate" o = Gtk.Widget.WidgetMnemonicActivateMethodInfo
ResolveNavigationSplitViewMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
ResolveNavigationSplitViewMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
ResolveNavigationSplitViewMethod "observeChildren" o = Gtk.Widget.WidgetObserveChildrenMethodInfo
ResolveNavigationSplitViewMethod "observeControllers" o = Gtk.Widget.WidgetObserveControllersMethodInfo
ResolveNavigationSplitViewMethod "pick" o = Gtk.Widget.WidgetPickMethodInfo
ResolveNavigationSplitViewMethod "queueAllocate" o = Gtk.Widget.WidgetQueueAllocateMethodInfo
ResolveNavigationSplitViewMethod "queueDraw" o = Gtk.Widget.WidgetQueueDrawMethodInfo
ResolveNavigationSplitViewMethod "queueResize" o = Gtk.Widget.WidgetQueueResizeMethodInfo
ResolveNavigationSplitViewMethod "realize" o = Gtk.Widget.WidgetRealizeMethodInfo
ResolveNavigationSplitViewMethod "ref" o = GObject.Object.ObjectRefMethodInfo
ResolveNavigationSplitViewMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
ResolveNavigationSplitViewMethod "removeController" o = Gtk.Widget.WidgetRemoveControllerMethodInfo
ResolveNavigationSplitViewMethod "removeCssClass" o = Gtk.Widget.WidgetRemoveCssClassMethodInfo
ResolveNavigationSplitViewMethod "removeMnemonicLabel" o = Gtk.Widget.WidgetRemoveMnemonicLabelMethodInfo
ResolveNavigationSplitViewMethod "removeTickCallback" o = Gtk.Widget.WidgetRemoveTickCallbackMethodInfo
ResolveNavigationSplitViewMethod "resetProperty" o = Gtk.Accessible.AccessibleResetPropertyMethodInfo
ResolveNavigationSplitViewMethod "resetRelation" o = Gtk.Accessible.AccessibleResetRelationMethodInfo
ResolveNavigationSplitViewMethod "resetState" o = Gtk.Accessible.AccessibleResetStateMethodInfo
ResolveNavigationSplitViewMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
ResolveNavigationSplitViewMethod "shouldLayout" o = Gtk.Widget.WidgetShouldLayoutMethodInfo
ResolveNavigationSplitViewMethod "show" o = Gtk.Widget.WidgetShowMethodInfo
ResolveNavigationSplitViewMethod "sizeAllocate" o = Gtk.Widget.WidgetSizeAllocateMethodInfo
ResolveNavigationSplitViewMethod "snapshotChild" o = Gtk.Widget.WidgetSnapshotChildMethodInfo
ResolveNavigationSplitViewMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
ResolveNavigationSplitViewMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
ResolveNavigationSplitViewMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo
ResolveNavigationSplitViewMethod "translateCoordinates" o = Gtk.Widget.WidgetTranslateCoordinatesMethodInfo
ResolveNavigationSplitViewMethod "triggerTooltipQuery" o = Gtk.Widget.WidgetTriggerTooltipQueryMethodInfo
ResolveNavigationSplitViewMethod "unmap" o = Gtk.Widget.WidgetUnmapMethodInfo
ResolveNavigationSplitViewMethod "unparent" o = Gtk.Widget.WidgetUnparentMethodInfo
ResolveNavigationSplitViewMethod "unrealize" o = Gtk.Widget.WidgetUnrealizeMethodInfo
ResolveNavigationSplitViewMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo
ResolveNavigationSplitViewMethod "unsetStateFlags" o = Gtk.Widget.WidgetUnsetStateFlagsMethodInfo
ResolveNavigationSplitViewMethod "updateNextAccessibleSibling" o = Gtk.Accessible.AccessibleUpdateNextAccessibleSiblingMethodInfo
ResolveNavigationSplitViewMethod "updateProperty" o = Gtk.Accessible.AccessibleUpdatePropertyMethodInfo
ResolveNavigationSplitViewMethod "updateRelation" o = Gtk.Accessible.AccessibleUpdateRelationMethodInfo
ResolveNavigationSplitViewMethod "updateState" o = Gtk.Accessible.AccessibleUpdateStateMethodInfo
ResolveNavigationSplitViewMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
ResolveNavigationSplitViewMethod "getAccessibleParent" o = Gtk.Accessible.AccessibleGetAccessibleParentMethodInfo
ResolveNavigationSplitViewMethod "getAccessibleRole" o = Gtk.Accessible.AccessibleGetAccessibleRoleMethodInfo
ResolveNavigationSplitViewMethod "getAllocatedBaseline" o = Gtk.Widget.WidgetGetAllocatedBaselineMethodInfo
ResolveNavigationSplitViewMethod "getAllocatedHeight" o = Gtk.Widget.WidgetGetAllocatedHeightMethodInfo
ResolveNavigationSplitViewMethod "getAllocatedWidth" o = Gtk.Widget.WidgetGetAllocatedWidthMethodInfo
ResolveNavigationSplitViewMethod "getAllocation" o = Gtk.Widget.WidgetGetAllocationMethodInfo
ResolveNavigationSplitViewMethod "getAncestor" o = Gtk.Widget.WidgetGetAncestorMethodInfo
ResolveNavigationSplitViewMethod "getAtContext" o = Gtk.Accessible.AccessibleGetAtContextMethodInfo
ResolveNavigationSplitViewMethod "getBaseline" o = Gtk.Widget.WidgetGetBaselineMethodInfo
ResolveNavigationSplitViewMethod "getBounds" o = Gtk.Accessible.AccessibleGetBoundsMethodInfo
ResolveNavigationSplitViewMethod "getBuildableId" o = Gtk.Buildable.BuildableGetBuildableIdMethodInfo
ResolveNavigationSplitViewMethod "getCanFocus" o = Gtk.Widget.WidgetGetCanFocusMethodInfo
ResolveNavigationSplitViewMethod "getCanTarget" o = Gtk.Widget.WidgetGetCanTargetMethodInfo
ResolveNavigationSplitViewMethod "getChildVisible" o = Gtk.Widget.WidgetGetChildVisibleMethodInfo
ResolveNavigationSplitViewMethod "getClipboard" o = Gtk.Widget.WidgetGetClipboardMethodInfo
ResolveNavigationSplitViewMethod "getCollapsed" o = NavigationSplitViewGetCollapsedMethodInfo
ResolveNavigationSplitViewMethod "getColor" o = Gtk.Widget.WidgetGetColorMethodInfo
ResolveNavigationSplitViewMethod "getContent" o = NavigationSplitViewGetContentMethodInfo
ResolveNavigationSplitViewMethod "getCssClasses" o = Gtk.Widget.WidgetGetCssClassesMethodInfo
ResolveNavigationSplitViewMethod "getCssName" o = Gtk.Widget.WidgetGetCssNameMethodInfo
ResolveNavigationSplitViewMethod "getCursor" o = Gtk.Widget.WidgetGetCursorMethodInfo
ResolveNavigationSplitViewMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
ResolveNavigationSplitViewMethod "getDirection" o = Gtk.Widget.WidgetGetDirectionMethodInfo
ResolveNavigationSplitViewMethod "getDisplay" o = Gtk.Widget.WidgetGetDisplayMethodInfo
ResolveNavigationSplitViewMethod "getFirstAccessibleChild" o = Gtk.Accessible.AccessibleGetFirstAccessibleChildMethodInfo
ResolveNavigationSplitViewMethod "getFirstChild" o = Gtk.Widget.WidgetGetFirstChildMethodInfo
ResolveNavigationSplitViewMethod "getFocusChild" o = Gtk.Widget.WidgetGetFocusChildMethodInfo
ResolveNavigationSplitViewMethod "getFocusOnClick" o = Gtk.Widget.WidgetGetFocusOnClickMethodInfo
ResolveNavigationSplitViewMethod "getFocusable" o = Gtk.Widget.WidgetGetFocusableMethodInfo
ResolveNavigationSplitViewMethod "getFontMap" o = Gtk.Widget.WidgetGetFontMapMethodInfo
ResolveNavigationSplitViewMethod "getFontOptions" o = Gtk.Widget.WidgetGetFontOptionsMethodInfo
ResolveNavigationSplitViewMethod "getFrameClock" o = Gtk.Widget.WidgetGetFrameClockMethodInfo
ResolveNavigationSplitViewMethod "getHalign" o = Gtk.Widget.WidgetGetHalignMethodInfo
ResolveNavigationSplitViewMethod "getHasTooltip" o = Gtk.Widget.WidgetGetHasTooltipMethodInfo
ResolveNavigationSplitViewMethod "getHeight" o = Gtk.Widget.WidgetGetHeightMethodInfo
ResolveNavigationSplitViewMethod "getHexpand" o = Gtk.Widget.WidgetGetHexpandMethodInfo
ResolveNavigationSplitViewMethod "getHexpandSet" o = Gtk.Widget.WidgetGetHexpandSetMethodInfo
ResolveNavigationSplitViewMethod "getLastChild" o = Gtk.Widget.WidgetGetLastChildMethodInfo
ResolveNavigationSplitViewMethod "getLayoutManager" o = Gtk.Widget.WidgetGetLayoutManagerMethodInfo
ResolveNavigationSplitViewMethod "getMapped" o = Gtk.Widget.WidgetGetMappedMethodInfo
ResolveNavigationSplitViewMethod "getMarginBottom" o = Gtk.Widget.WidgetGetMarginBottomMethodInfo
ResolveNavigationSplitViewMethod "getMarginEnd" o = Gtk.Widget.WidgetGetMarginEndMethodInfo
ResolveNavigationSplitViewMethod "getMarginStart" o = Gtk.Widget.WidgetGetMarginStartMethodInfo
ResolveNavigationSplitViewMethod "getMarginTop" o = Gtk.Widget.WidgetGetMarginTopMethodInfo
ResolveNavigationSplitViewMethod "getMaxSidebarWidth" o = NavigationSplitViewGetMaxSidebarWidthMethodInfo
ResolveNavigationSplitViewMethod "getMinSidebarWidth" o = NavigationSplitViewGetMinSidebarWidthMethodInfo
ResolveNavigationSplitViewMethod "getName" o = Gtk.Widget.WidgetGetNameMethodInfo
ResolveNavigationSplitViewMethod "getNative" o = Gtk.Widget.WidgetGetNativeMethodInfo
ResolveNavigationSplitViewMethod "getNextAccessibleSibling" o = Gtk.Accessible.AccessibleGetNextAccessibleSiblingMethodInfo
ResolveNavigationSplitViewMethod "getNextSibling" o = Gtk.Widget.WidgetGetNextSiblingMethodInfo
ResolveNavigationSplitViewMethod "getOpacity" o = Gtk.Widget.WidgetGetOpacityMethodInfo
ResolveNavigationSplitViewMethod "getOverflow" o = Gtk.Widget.WidgetGetOverflowMethodInfo
ResolveNavigationSplitViewMethod "getPangoContext" o = Gtk.Widget.WidgetGetPangoContextMethodInfo
ResolveNavigationSplitViewMethod "getParent" o = Gtk.Widget.WidgetGetParentMethodInfo
ResolveNavigationSplitViewMethod "getPlatformState" o = Gtk.Accessible.AccessibleGetPlatformStateMethodInfo
ResolveNavigationSplitViewMethod "getPreferredSize" o = Gtk.Widget.WidgetGetPreferredSizeMethodInfo
ResolveNavigationSplitViewMethod "getPrevSibling" o = Gtk.Widget.WidgetGetPrevSiblingMethodInfo
ResolveNavigationSplitViewMethod "getPrimaryClipboard" o = Gtk.Widget.WidgetGetPrimaryClipboardMethodInfo
ResolveNavigationSplitViewMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo
ResolveNavigationSplitViewMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo
ResolveNavigationSplitViewMethod "getRealized" o = Gtk.Widget.WidgetGetRealizedMethodInfo
ResolveNavigationSplitViewMethod "getReceivesDefault" o = Gtk.Widget.WidgetGetReceivesDefaultMethodInfo
ResolveNavigationSplitViewMethod "getRequestMode" o = Gtk.Widget.WidgetGetRequestModeMethodInfo
ResolveNavigationSplitViewMethod "getRoot" o = Gtk.Widget.WidgetGetRootMethodInfo
ResolveNavigationSplitViewMethod "getScaleFactor" o = Gtk.Widget.WidgetGetScaleFactorMethodInfo
ResolveNavigationSplitViewMethod "getSensitive" o = Gtk.Widget.WidgetGetSensitiveMethodInfo
ResolveNavigationSplitViewMethod "getSettings" o = Gtk.Widget.WidgetGetSettingsMethodInfo
ResolveNavigationSplitViewMethod "getShowContent" o = NavigationSplitViewGetShowContentMethodInfo
ResolveNavigationSplitViewMethod "getSidebar" o = NavigationSplitViewGetSidebarMethodInfo
ResolveNavigationSplitViewMethod "getSidebarWidthFraction" o = NavigationSplitViewGetSidebarWidthFractionMethodInfo
ResolveNavigationSplitViewMethod "getSidebarWidthUnit" o = NavigationSplitViewGetSidebarWidthUnitMethodInfo
ResolveNavigationSplitViewMethod "getSize" o = Gtk.Widget.WidgetGetSizeMethodInfo
ResolveNavigationSplitViewMethod "getSizeRequest" o = Gtk.Widget.WidgetGetSizeRequestMethodInfo
ResolveNavigationSplitViewMethod "getStateFlags" o = Gtk.Widget.WidgetGetStateFlagsMethodInfo
ResolveNavigationSplitViewMethod "getStyleContext" o = Gtk.Widget.WidgetGetStyleContextMethodInfo
ResolveNavigationSplitViewMethod "getTemplateChild" o = Gtk.Widget.WidgetGetTemplateChildMethodInfo
ResolveNavigationSplitViewMethod "getTooltipMarkup" o = Gtk.Widget.WidgetGetTooltipMarkupMethodInfo
ResolveNavigationSplitViewMethod "getTooltipText" o = Gtk.Widget.WidgetGetTooltipTextMethodInfo
ResolveNavigationSplitViewMethod "getValign" o = Gtk.Widget.WidgetGetValignMethodInfo
ResolveNavigationSplitViewMethod "getVexpand" o = Gtk.Widget.WidgetGetVexpandMethodInfo
ResolveNavigationSplitViewMethod "getVexpandSet" o = Gtk.Widget.WidgetGetVexpandSetMethodInfo
ResolveNavigationSplitViewMethod "getVisible" o = Gtk.Widget.WidgetGetVisibleMethodInfo
ResolveNavigationSplitViewMethod "getWidth" o = Gtk.Widget.WidgetGetWidthMethodInfo
ResolveNavigationSplitViewMethod "setAccessibleParent" o = Gtk.Accessible.AccessibleSetAccessibleParentMethodInfo
ResolveNavigationSplitViewMethod "setCanFocus" o = Gtk.Widget.WidgetSetCanFocusMethodInfo
ResolveNavigationSplitViewMethod "setCanTarget" o = Gtk.Widget.WidgetSetCanTargetMethodInfo
ResolveNavigationSplitViewMethod "setChildVisible" o = Gtk.Widget.WidgetSetChildVisibleMethodInfo
ResolveNavigationSplitViewMethod "setCollapsed" o = NavigationSplitViewSetCollapsedMethodInfo
ResolveNavigationSplitViewMethod "setContent" o = NavigationSplitViewSetContentMethodInfo
ResolveNavigationSplitViewMethod "setCssClasses" o = Gtk.Widget.WidgetSetCssClassesMethodInfo
ResolveNavigationSplitViewMethod "setCursor" o = Gtk.Widget.WidgetSetCursorMethodInfo
ResolveNavigationSplitViewMethod "setCursorFromName" o = Gtk.Widget.WidgetSetCursorFromNameMethodInfo
ResolveNavigationSplitViewMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
ResolveNavigationSplitViewMethod "setDataFull" o = GObject.Object.ObjectSetDataFullMethodInfo
ResolveNavigationSplitViewMethod "setDirection" o = Gtk.Widget.WidgetSetDirectionMethodInfo
ResolveNavigationSplitViewMethod "setFocusChild" o = Gtk.Widget.WidgetSetFocusChildMethodInfo
ResolveNavigationSplitViewMethod "setFocusOnClick" o = Gtk.Widget.WidgetSetFocusOnClickMethodInfo
ResolveNavigationSplitViewMethod "setFocusable" o = Gtk.Widget.WidgetSetFocusableMethodInfo
ResolveNavigationSplitViewMethod "setFontMap" o = Gtk.Widget.WidgetSetFontMapMethodInfo
ResolveNavigationSplitViewMethod "setFontOptions" o = Gtk.Widget.WidgetSetFontOptionsMethodInfo
ResolveNavigationSplitViewMethod "setHalign" o = Gtk.Widget.WidgetSetHalignMethodInfo
ResolveNavigationSplitViewMethod "setHasTooltip" o = Gtk.Widget.WidgetSetHasTooltipMethodInfo
ResolveNavigationSplitViewMethod "setHexpand" o = Gtk.Widget.WidgetSetHexpandMethodInfo
ResolveNavigationSplitViewMethod "setHexpandSet" o = Gtk.Widget.WidgetSetHexpandSetMethodInfo
ResolveNavigationSplitViewMethod "setLayoutManager" o = Gtk.Widget.WidgetSetLayoutManagerMethodInfo
ResolveNavigationSplitViewMethod "setMarginBottom" o = Gtk.Widget.WidgetSetMarginBottomMethodInfo
ResolveNavigationSplitViewMethod "setMarginEnd" o = Gtk.Widget.WidgetSetMarginEndMethodInfo
ResolveNavigationSplitViewMethod "setMarginStart" o = Gtk.Widget.WidgetSetMarginStartMethodInfo
ResolveNavigationSplitViewMethod "setMarginTop" o = Gtk.Widget.WidgetSetMarginTopMethodInfo
ResolveNavigationSplitViewMethod "setMaxSidebarWidth" o = NavigationSplitViewSetMaxSidebarWidthMethodInfo
ResolveNavigationSplitViewMethod "setMinSidebarWidth" o = NavigationSplitViewSetMinSidebarWidthMethodInfo
ResolveNavigationSplitViewMethod "setName" o = Gtk.Widget.WidgetSetNameMethodInfo
ResolveNavigationSplitViewMethod "setOpacity" o = Gtk.Widget.WidgetSetOpacityMethodInfo
ResolveNavigationSplitViewMethod "setOverflow" o = Gtk.Widget.WidgetSetOverflowMethodInfo
ResolveNavigationSplitViewMethod "setParent" o = Gtk.Widget.WidgetSetParentMethodInfo
ResolveNavigationSplitViewMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
ResolveNavigationSplitViewMethod "setReceivesDefault" o = Gtk.Widget.WidgetSetReceivesDefaultMethodInfo
ResolveNavigationSplitViewMethod "setSensitive" o = Gtk.Widget.WidgetSetSensitiveMethodInfo
ResolveNavigationSplitViewMethod "setShowContent" o = NavigationSplitViewSetShowContentMethodInfo
ResolveNavigationSplitViewMethod "setSidebar" o = NavigationSplitViewSetSidebarMethodInfo
ResolveNavigationSplitViewMethod "setSidebarWidthFraction" o = NavigationSplitViewSetSidebarWidthFractionMethodInfo
ResolveNavigationSplitViewMethod "setSidebarWidthUnit" o = NavigationSplitViewSetSidebarWidthUnitMethodInfo
ResolveNavigationSplitViewMethod "setSizeRequest" o = Gtk.Widget.WidgetSetSizeRequestMethodInfo
ResolveNavigationSplitViewMethod "setStateFlags" o = Gtk.Widget.WidgetSetStateFlagsMethodInfo
ResolveNavigationSplitViewMethod "setTooltipMarkup" o = Gtk.Widget.WidgetSetTooltipMarkupMethodInfo
ResolveNavigationSplitViewMethod "setTooltipText" o = Gtk.Widget.WidgetSetTooltipTextMethodInfo
ResolveNavigationSplitViewMethod "setValign" o = Gtk.Widget.WidgetSetValignMethodInfo
ResolveNavigationSplitViewMethod "setVexpand" o = Gtk.Widget.WidgetSetVexpandMethodInfo
ResolveNavigationSplitViewMethod "setVexpandSet" o = Gtk.Widget.WidgetSetVexpandSetMethodInfo
ResolveNavigationSplitViewMethod "setVisible" o = Gtk.Widget.WidgetSetVisibleMethodInfo
ResolveNavigationSplitViewMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveNavigationSplitViewMethod t NavigationSplitView, O.OverloadedMethod info NavigationSplitView p) => OL.IsLabel t (NavigationSplitView -> 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 ~ ResolveNavigationSplitViewMethod t NavigationSplitView, O.OverloadedMethod info NavigationSplitView p, R.HasField t NavigationSplitView p) => R.HasField t NavigationSplitView p where
getField = O.overloadedMethod @info
#endif
instance (info ~ ResolveNavigationSplitViewMethod t NavigationSplitView, O.OverloadedMethodInfo info NavigationSplitView) => OL.IsLabel t (O.MethodProxy info NavigationSplitView) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.MethodProxy
#else
fromLabel _ = O.MethodProxy
#endif
#endif
getNavigationSplitViewCollapsed :: (MonadIO m, IsNavigationSplitView o) => o -> m Bool
getNavigationSplitViewCollapsed :: forall (m :: * -> *) o.
(MonadIO m, IsNavigationSplitView o) =>
o -> m Bool
getNavigationSplitViewCollapsed 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
"collapsed"
setNavigationSplitViewCollapsed :: (MonadIO m, IsNavigationSplitView o) => o -> Bool -> m ()
setNavigationSplitViewCollapsed :: forall (m :: * -> *) o.
(MonadIO m, IsNavigationSplitView o) =>
o -> Bool -> m ()
setNavigationSplitViewCollapsed 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
"collapsed" Bool
val
constructNavigationSplitViewCollapsed :: (IsNavigationSplitView o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructNavigationSplitViewCollapsed :: forall o (m :: * -> *).
(IsNavigationSplitView o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructNavigationSplitViewCollapsed 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
"collapsed" Bool
val
#if defined(ENABLE_OVERLOADING)
data NavigationSplitViewCollapsedPropertyInfo
instance AttrInfo NavigationSplitViewCollapsedPropertyInfo where
type AttrAllowedOps NavigationSplitViewCollapsedPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint NavigationSplitViewCollapsedPropertyInfo = IsNavigationSplitView
type AttrSetTypeConstraint NavigationSplitViewCollapsedPropertyInfo = (~) Bool
type AttrTransferTypeConstraint NavigationSplitViewCollapsedPropertyInfo = (~) Bool
type AttrTransferType NavigationSplitViewCollapsedPropertyInfo = Bool
type AttrGetType NavigationSplitViewCollapsedPropertyInfo = Bool
type AttrLabel NavigationSplitViewCollapsedPropertyInfo = "collapsed"
type AttrOrigin NavigationSplitViewCollapsedPropertyInfo = NavigationSplitView
attrGet = getNavigationSplitViewCollapsed
attrSet = setNavigationSplitViewCollapsed
attrTransfer _ v = do
return v
attrConstruct = constructNavigationSplitViewCollapsed
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.NavigationSplitView.collapsed"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.7/docs/GI-Adw-Objects-NavigationSplitView.html#g:attr:collapsed"
})
#endif
getNavigationSplitViewContent :: (MonadIO m, IsNavigationSplitView o) => o -> m (Maybe Adw.NavigationPage.NavigationPage)
getNavigationSplitViewContent :: forall (m :: * -> *) o.
(MonadIO m, IsNavigationSplitView o) =>
o -> m (Maybe NavigationPage)
getNavigationSplitViewContent o
obj = IO (Maybe NavigationPage) -> m (Maybe NavigationPage)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (Maybe NavigationPage) -> m (Maybe NavigationPage))
-> IO (Maybe NavigationPage) -> m (Maybe NavigationPage)
forall a b. (a -> b) -> a -> b
$ o
-> String
-> (ManagedPtr NavigationPage -> NavigationPage)
-> IO (Maybe NavigationPage)
forall a b.
(GObject a, GObject b) =>
a -> String -> (ManagedPtr b -> b) -> IO (Maybe b)
B.Properties.getObjectPropertyObject o
obj String
"content" ManagedPtr NavigationPage -> NavigationPage
Adw.NavigationPage.NavigationPage
setNavigationSplitViewContent :: (MonadIO m, IsNavigationSplitView o, Adw.NavigationPage.IsNavigationPage a) => o -> a -> m ()
setNavigationSplitViewContent :: forall (m :: * -> *) o a.
(MonadIO m, IsNavigationSplitView o, IsNavigationPage a) =>
o -> a -> m ()
setNavigationSplitViewContent 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
"content" (a -> Maybe a
forall a. a -> Maybe a
Just a
val)
constructNavigationSplitViewContent :: (IsNavigationSplitView o, MIO.MonadIO m, Adw.NavigationPage.IsNavigationPage a) => a -> m (GValueConstruct o)
constructNavigationSplitViewContent :: forall o (m :: * -> *) a.
(IsNavigationSplitView o, MonadIO m, IsNavigationPage a) =>
a -> m (GValueConstruct o)
constructNavigationSplitViewContent 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
"content" (a -> Maybe a
forall a. a -> Maybe a
P.Just a
val)
clearNavigationSplitViewContent :: (MonadIO m, IsNavigationSplitView o) => o -> m ()
clearNavigationSplitViewContent :: forall (m :: * -> *) o.
(MonadIO m, IsNavigationSplitView o) =>
o -> m ()
clearNavigationSplitViewContent 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 NavigationPage -> IO ()
forall a b.
(GObject a, GObject b) =>
a -> String -> Maybe b -> IO ()
B.Properties.setObjectPropertyObject o
obj String
"content" (Maybe NavigationPage
forall a. Maybe a
Nothing :: Maybe Adw.NavigationPage.NavigationPage)
#if defined(ENABLE_OVERLOADING)
data NavigationSplitViewContentPropertyInfo
instance AttrInfo NavigationSplitViewContentPropertyInfo where
type AttrAllowedOps NavigationSplitViewContentPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint NavigationSplitViewContentPropertyInfo = IsNavigationSplitView
type AttrSetTypeConstraint NavigationSplitViewContentPropertyInfo = Adw.NavigationPage.IsNavigationPage
type AttrTransferTypeConstraint NavigationSplitViewContentPropertyInfo = Adw.NavigationPage.IsNavigationPage
type AttrTransferType NavigationSplitViewContentPropertyInfo = Adw.NavigationPage.NavigationPage
type AttrGetType NavigationSplitViewContentPropertyInfo = (Maybe Adw.NavigationPage.NavigationPage)
type AttrLabel NavigationSplitViewContentPropertyInfo = "content"
type AttrOrigin NavigationSplitViewContentPropertyInfo = NavigationSplitView
attrGet = getNavigationSplitViewContent
attrSet = setNavigationSplitViewContent
attrTransfer _ v = do
unsafeCastTo Adw.NavigationPage.NavigationPage v
attrConstruct = constructNavigationSplitViewContent
attrClear = clearNavigationSplitViewContent
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.NavigationSplitView.content"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.7/docs/GI-Adw-Objects-NavigationSplitView.html#g:attr:content"
})
#endif
getNavigationSplitViewMaxSidebarWidth :: (MonadIO m, IsNavigationSplitView o) => o -> m Double
o
obj = IO Double -> m Double
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Double -> m Double) -> IO Double -> m Double
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Double
forall a. GObject a => a -> String -> IO Double
B.Properties.getObjectPropertyDouble o
obj String
"max-sidebar-width"
setNavigationSplitViewMaxSidebarWidth :: (MonadIO m, IsNavigationSplitView o) => o -> Double -> m ()
o
obj Double
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 -> Double -> IO ()
forall a. GObject a => a -> String -> Double -> IO ()
B.Properties.setObjectPropertyDouble o
obj String
"max-sidebar-width" Double
val
constructNavigationSplitViewMaxSidebarWidth :: (IsNavigationSplitView o, MIO.MonadIO m) => Double -> m (GValueConstruct o)
Double
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 -> Double -> IO (GValueConstruct o)
forall o. String -> Double -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyDouble String
"max-sidebar-width" Double
val
#if defined(ENABLE_OVERLOADING)
data NavigationSplitViewMaxSidebarWidthPropertyInfo
instance AttrInfo NavigationSplitViewMaxSidebarWidthPropertyInfo where
type AttrAllowedOps NavigationSplitViewMaxSidebarWidthPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint NavigationSplitViewMaxSidebarWidthPropertyInfo = IsNavigationSplitView
type AttrSetTypeConstraint NavigationSplitViewMaxSidebarWidthPropertyInfo = (~) Double
type AttrTransferTypeConstraint NavigationSplitViewMaxSidebarWidthPropertyInfo = (~) Double
type AttrTransferType NavigationSplitViewMaxSidebarWidthPropertyInfo = Double
type AttrGetType NavigationSplitViewMaxSidebarWidthPropertyInfo = Double
type AttrLabel NavigationSplitViewMaxSidebarWidthPropertyInfo = "max-sidebar-width"
type AttrOrigin NavigationSplitViewMaxSidebarWidthPropertyInfo = NavigationSplitView
attrGet = getNavigationSplitViewMaxSidebarWidth
attrSet = setNavigationSplitViewMaxSidebarWidth
attrTransfer _ v = do
return v
attrConstruct = constructNavigationSplitViewMaxSidebarWidth
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.NavigationSplitView.maxSidebarWidth"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.7/docs/GI-Adw-Objects-NavigationSplitView.html#g:attr:maxSidebarWidth"
})
#endif
getNavigationSplitViewMinSidebarWidth :: (MonadIO m, IsNavigationSplitView o) => o -> m Double
o
obj = IO Double -> m Double
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Double -> m Double) -> IO Double -> m Double
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Double
forall a. GObject a => a -> String -> IO Double
B.Properties.getObjectPropertyDouble o
obj String
"min-sidebar-width"
setNavigationSplitViewMinSidebarWidth :: (MonadIO m, IsNavigationSplitView o) => o -> Double -> m ()
o
obj Double
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 -> Double -> IO ()
forall a. GObject a => a -> String -> Double -> IO ()
B.Properties.setObjectPropertyDouble o
obj String
"min-sidebar-width" Double
val
constructNavigationSplitViewMinSidebarWidth :: (IsNavigationSplitView o, MIO.MonadIO m) => Double -> m (GValueConstruct o)
Double
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 -> Double -> IO (GValueConstruct o)
forall o. String -> Double -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyDouble String
"min-sidebar-width" Double
val
#if defined(ENABLE_OVERLOADING)
data NavigationSplitViewMinSidebarWidthPropertyInfo
instance AttrInfo NavigationSplitViewMinSidebarWidthPropertyInfo where
type AttrAllowedOps NavigationSplitViewMinSidebarWidthPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint NavigationSplitViewMinSidebarWidthPropertyInfo = IsNavigationSplitView
type AttrSetTypeConstraint NavigationSplitViewMinSidebarWidthPropertyInfo = (~) Double
type AttrTransferTypeConstraint NavigationSplitViewMinSidebarWidthPropertyInfo = (~) Double
type AttrTransferType NavigationSplitViewMinSidebarWidthPropertyInfo = Double
type AttrGetType NavigationSplitViewMinSidebarWidthPropertyInfo = Double
type AttrLabel NavigationSplitViewMinSidebarWidthPropertyInfo = "min-sidebar-width"
type AttrOrigin NavigationSplitViewMinSidebarWidthPropertyInfo = NavigationSplitView
attrGet = getNavigationSplitViewMinSidebarWidth
attrSet = setNavigationSplitViewMinSidebarWidth
attrTransfer _ v = do
return v
attrConstruct = constructNavigationSplitViewMinSidebarWidth
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.NavigationSplitView.minSidebarWidth"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.7/docs/GI-Adw-Objects-NavigationSplitView.html#g:attr:minSidebarWidth"
})
#endif
getNavigationSplitViewShowContent :: (MonadIO m, IsNavigationSplitView o) => o -> m Bool
getNavigationSplitViewShowContent :: forall (m :: * -> *) o.
(MonadIO m, IsNavigationSplitView o) =>
o -> m Bool
getNavigationSplitViewShowContent 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-content"
setNavigationSplitViewShowContent :: (MonadIO m, IsNavigationSplitView o) => o -> Bool -> m ()
setNavigationSplitViewShowContent :: forall (m :: * -> *) o.
(MonadIO m, IsNavigationSplitView o) =>
o -> Bool -> m ()
setNavigationSplitViewShowContent 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-content" Bool
val
constructNavigationSplitViewShowContent :: (IsNavigationSplitView o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructNavigationSplitViewShowContent :: forall o (m :: * -> *).
(IsNavigationSplitView o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructNavigationSplitViewShowContent 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-content" Bool
val
#if defined(ENABLE_OVERLOADING)
data NavigationSplitViewShowContentPropertyInfo
instance AttrInfo NavigationSplitViewShowContentPropertyInfo where
type AttrAllowedOps NavigationSplitViewShowContentPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint NavigationSplitViewShowContentPropertyInfo = IsNavigationSplitView
type AttrSetTypeConstraint NavigationSplitViewShowContentPropertyInfo = (~) Bool
type AttrTransferTypeConstraint NavigationSplitViewShowContentPropertyInfo = (~) Bool
type AttrTransferType NavigationSplitViewShowContentPropertyInfo = Bool
type AttrGetType NavigationSplitViewShowContentPropertyInfo = Bool
type AttrLabel NavigationSplitViewShowContentPropertyInfo = "show-content"
type AttrOrigin NavigationSplitViewShowContentPropertyInfo = NavigationSplitView
attrGet = getNavigationSplitViewShowContent
attrSet = setNavigationSplitViewShowContent
attrTransfer _ v = do
return v
attrConstruct = constructNavigationSplitViewShowContent
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.NavigationSplitView.showContent"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.7/docs/GI-Adw-Objects-NavigationSplitView.html#g:attr:showContent"
})
#endif
getNavigationSplitViewSidebar :: (MonadIO m, IsNavigationSplitView o) => o -> m (Maybe Adw.NavigationPage.NavigationPage)
o
obj = IO (Maybe NavigationPage) -> m (Maybe NavigationPage)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (Maybe NavigationPage) -> m (Maybe NavigationPage))
-> IO (Maybe NavigationPage) -> m (Maybe NavigationPage)
forall a b. (a -> b) -> a -> b
$ o
-> String
-> (ManagedPtr NavigationPage -> NavigationPage)
-> IO (Maybe NavigationPage)
forall a b.
(GObject a, GObject b) =>
a -> String -> (ManagedPtr b -> b) -> IO (Maybe b)
B.Properties.getObjectPropertyObject o
obj String
"sidebar" ManagedPtr NavigationPage -> NavigationPage
Adw.NavigationPage.NavigationPage
setNavigationSplitViewSidebar :: (MonadIO m, IsNavigationSplitView o, Adw.NavigationPage.IsNavigationPage 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
"sidebar" (a -> Maybe a
forall a. a -> Maybe a
Just a
val)
constructNavigationSplitViewSidebar :: (IsNavigationSplitView o, MIO.MonadIO m, Adw.NavigationPage.IsNavigationPage 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
"sidebar" (a -> Maybe a
forall a. a -> Maybe a
P.Just a
val)
clearNavigationSplitViewSidebar :: (MonadIO m, IsNavigationSplitView 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 NavigationPage -> IO ()
forall a b.
(GObject a, GObject b) =>
a -> String -> Maybe b -> IO ()
B.Properties.setObjectPropertyObject o
obj String
"sidebar" (Maybe NavigationPage
forall a. Maybe a
Nothing :: Maybe Adw.NavigationPage.NavigationPage)
#if defined(ENABLE_OVERLOADING)
data NavigationSplitViewSidebarPropertyInfo
instance AttrInfo NavigationSplitViewSidebarPropertyInfo where
type AttrAllowedOps NavigationSplitViewSidebarPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint NavigationSplitViewSidebarPropertyInfo = IsNavigationSplitView
type AttrSetTypeConstraint NavigationSplitViewSidebarPropertyInfo = Adw.NavigationPage.IsNavigationPage
type AttrTransferTypeConstraint NavigationSplitViewSidebarPropertyInfo = Adw.NavigationPage.IsNavigationPage
type AttrTransferType NavigationSplitViewSidebarPropertyInfo = Adw.NavigationPage.NavigationPage
type AttrGetType NavigationSplitViewSidebarPropertyInfo = (Maybe Adw.NavigationPage.NavigationPage)
type AttrLabel NavigationSplitViewSidebarPropertyInfo = "sidebar"
type AttrOrigin NavigationSplitViewSidebarPropertyInfo = NavigationSplitView
attrGet = getNavigationSplitViewSidebar
attrSet = setNavigationSplitViewSidebar
attrTransfer _ v = do
unsafeCastTo Adw.NavigationPage.NavigationPage v
attrConstruct = constructNavigationSplitViewSidebar
attrClear = clearNavigationSplitViewSidebar
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.NavigationSplitView.sidebar"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.7/docs/GI-Adw-Objects-NavigationSplitView.html#g:attr:sidebar"
})
#endif
getNavigationSplitViewSidebarWidthFraction :: (MonadIO m, IsNavigationSplitView o) => o -> m Double
o
obj = IO Double -> m Double
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Double -> m Double) -> IO Double -> m Double
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Double
forall a. GObject a => a -> String -> IO Double
B.Properties.getObjectPropertyDouble o
obj String
"sidebar-width-fraction"
setNavigationSplitViewSidebarWidthFraction :: (MonadIO m, IsNavigationSplitView o) => o -> Double -> m ()
o
obj Double
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 -> Double -> IO ()
forall a. GObject a => a -> String -> Double -> IO ()
B.Properties.setObjectPropertyDouble o
obj String
"sidebar-width-fraction" Double
val
constructNavigationSplitViewSidebarWidthFraction :: (IsNavigationSplitView o, MIO.MonadIO m) => Double -> m (GValueConstruct o)
Double
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 -> Double -> IO (GValueConstruct o)
forall o. String -> Double -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyDouble String
"sidebar-width-fraction" Double
val
#if defined(ENABLE_OVERLOADING)
data NavigationSplitViewSidebarWidthFractionPropertyInfo
instance AttrInfo NavigationSplitViewSidebarWidthFractionPropertyInfo where
type AttrAllowedOps NavigationSplitViewSidebarWidthFractionPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint NavigationSplitViewSidebarWidthFractionPropertyInfo = IsNavigationSplitView
type AttrSetTypeConstraint NavigationSplitViewSidebarWidthFractionPropertyInfo = (~) Double
type AttrTransferTypeConstraint NavigationSplitViewSidebarWidthFractionPropertyInfo = (~) Double
type AttrTransferType NavigationSplitViewSidebarWidthFractionPropertyInfo = Double
type AttrGetType NavigationSplitViewSidebarWidthFractionPropertyInfo = Double
type AttrLabel NavigationSplitViewSidebarWidthFractionPropertyInfo = "sidebar-width-fraction"
type AttrOrigin NavigationSplitViewSidebarWidthFractionPropertyInfo = NavigationSplitView
attrGet = getNavigationSplitViewSidebarWidthFraction
attrSet = setNavigationSplitViewSidebarWidthFraction
attrTransfer _ v = do
return v
attrConstruct = constructNavigationSplitViewSidebarWidthFraction
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.NavigationSplitView.sidebarWidthFraction"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.7/docs/GI-Adw-Objects-NavigationSplitView.html#g:attr:sidebarWidthFraction"
})
#endif
getNavigationSplitViewSidebarWidthUnit :: (MonadIO m, IsNavigationSplitView o) => o -> m Adw.Enums.LengthUnit
o
obj = IO LengthUnit -> m LengthUnit
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO LengthUnit -> m LengthUnit) -> IO LengthUnit -> m LengthUnit
forall a b. (a -> b) -> a -> b
$ o -> String -> IO LengthUnit
forall a b. (GObject a, Enum b, BoxedEnum b) => a -> String -> IO b
B.Properties.getObjectPropertyEnum o
obj String
"sidebar-width-unit"
setNavigationSplitViewSidebarWidthUnit :: (MonadIO m, IsNavigationSplitView o) => o -> Adw.Enums.LengthUnit -> m ()
o
obj LengthUnit
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 -> LengthUnit -> IO ()
forall a b.
(GObject a, Enum b, BoxedEnum b) =>
a -> String -> b -> IO ()
B.Properties.setObjectPropertyEnum o
obj String
"sidebar-width-unit" LengthUnit
val
constructNavigationSplitViewSidebarWidthUnit :: (IsNavigationSplitView o, MIO.MonadIO m) => Adw.Enums.LengthUnit -> m (GValueConstruct o)
LengthUnit
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 -> LengthUnit -> IO (GValueConstruct o)
forall a o.
(Enum a, BoxedEnum a) =>
String -> a -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyEnum String
"sidebar-width-unit" LengthUnit
val
#if defined(ENABLE_OVERLOADING)
data NavigationSplitViewSidebarWidthUnitPropertyInfo
instance AttrInfo NavigationSplitViewSidebarWidthUnitPropertyInfo where
type AttrAllowedOps NavigationSplitViewSidebarWidthUnitPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint NavigationSplitViewSidebarWidthUnitPropertyInfo = IsNavigationSplitView
type AttrSetTypeConstraint NavigationSplitViewSidebarWidthUnitPropertyInfo = (~) Adw.Enums.LengthUnit
type AttrTransferTypeConstraint NavigationSplitViewSidebarWidthUnitPropertyInfo = (~) Adw.Enums.LengthUnit
type AttrTransferType NavigationSplitViewSidebarWidthUnitPropertyInfo = Adw.Enums.LengthUnit
type AttrGetType NavigationSplitViewSidebarWidthUnitPropertyInfo = Adw.Enums.LengthUnit
type AttrLabel NavigationSplitViewSidebarWidthUnitPropertyInfo = "sidebar-width-unit"
type AttrOrigin NavigationSplitViewSidebarWidthUnitPropertyInfo = NavigationSplitView
attrGet = getNavigationSplitViewSidebarWidthUnit
attrSet = setNavigationSplitViewSidebarWidthUnit
attrTransfer _ v = do
return v
attrConstruct = constructNavigationSplitViewSidebarWidthUnit
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.NavigationSplitView.sidebarWidthUnit"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.7/docs/GI-Adw-Objects-NavigationSplitView.html#g:attr:sidebarWidthUnit"
})
#endif
#if defined(ENABLE_OVERLOADING)
instance O.HasAttributeList NavigationSplitView
type instance O.AttributeList NavigationSplitView = NavigationSplitViewAttributeList
type NavigationSplitViewAttributeList = ('[ '("accessibleRole", Gtk.Accessible.AccessibleAccessibleRolePropertyInfo), '("canFocus", Gtk.Widget.WidgetCanFocusPropertyInfo), '("canTarget", Gtk.Widget.WidgetCanTargetPropertyInfo), '("collapsed", NavigationSplitViewCollapsedPropertyInfo), '("content", NavigationSplitViewContentPropertyInfo), '("cssClasses", Gtk.Widget.WidgetCssClassesPropertyInfo), '("cssName", Gtk.Widget.WidgetCssNamePropertyInfo), '("cursor", Gtk.Widget.WidgetCursorPropertyInfo), '("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), '("layoutManager", Gtk.Widget.WidgetLayoutManagerPropertyInfo), '("marginBottom", Gtk.Widget.WidgetMarginBottomPropertyInfo), '("marginEnd", Gtk.Widget.WidgetMarginEndPropertyInfo), '("marginStart", Gtk.Widget.WidgetMarginStartPropertyInfo), '("marginTop", Gtk.Widget.WidgetMarginTopPropertyInfo), '("maxSidebarWidth", NavigationSplitViewMaxSidebarWidthPropertyInfo), '("minSidebarWidth", NavigationSplitViewMinSidebarWidthPropertyInfo), '("name", Gtk.Widget.WidgetNamePropertyInfo), '("opacity", Gtk.Widget.WidgetOpacityPropertyInfo), '("overflow", Gtk.Widget.WidgetOverflowPropertyInfo), '("parent", Gtk.Widget.WidgetParentPropertyInfo), '("receivesDefault", Gtk.Widget.WidgetReceivesDefaultPropertyInfo), '("root", Gtk.Widget.WidgetRootPropertyInfo), '("scaleFactor", Gtk.Widget.WidgetScaleFactorPropertyInfo), '("sensitive", Gtk.Widget.WidgetSensitivePropertyInfo), '("showContent", NavigationSplitViewShowContentPropertyInfo), '("sidebar", NavigationSplitViewSidebarPropertyInfo), '("sidebarWidthFraction", NavigationSplitViewSidebarWidthFractionPropertyInfo), '("sidebarWidthUnit", NavigationSplitViewSidebarWidthUnitPropertyInfo), '("tooltipMarkup", Gtk.Widget.WidgetTooltipMarkupPropertyInfo), '("tooltipText", Gtk.Widget.WidgetTooltipTextPropertyInfo), '("valign", Gtk.Widget.WidgetValignPropertyInfo), '("vexpand", Gtk.Widget.WidgetVexpandPropertyInfo), '("vexpandSet", Gtk.Widget.WidgetVexpandSetPropertyInfo), '("visible", Gtk.Widget.WidgetVisiblePropertyInfo), '("widthRequest", Gtk.Widget.WidgetWidthRequestPropertyInfo)] :: [(Symbol, DK.Type)])
#endif
#if defined(ENABLE_OVERLOADING)
navigationSplitViewCollapsed :: AttrLabelProxy "collapsed"
navigationSplitViewCollapsed = AttrLabelProxy
navigationSplitViewContent :: AttrLabelProxy "content"
navigationSplitViewContent = AttrLabelProxy
navigationSplitViewMaxSidebarWidth :: AttrLabelProxy "maxSidebarWidth"
navigationSplitViewMaxSidebarWidth = AttrLabelProxy
navigationSplitViewMinSidebarWidth :: AttrLabelProxy "minSidebarWidth"
navigationSplitViewMinSidebarWidth = AttrLabelProxy
navigationSplitViewShowContent :: AttrLabelProxy "showContent"
navigationSplitViewShowContent = AttrLabelProxy
navigationSplitViewSidebar :: AttrLabelProxy "sidebar"
navigationSplitViewSidebar = AttrLabelProxy
navigationSplitViewSidebarWidthFraction :: AttrLabelProxy "sidebarWidthFraction"
navigationSplitViewSidebarWidthFraction = AttrLabelProxy
navigationSplitViewSidebarWidthUnit :: AttrLabelProxy "sidebarWidthUnit"
navigationSplitViewSidebarWidthUnit = AttrLabelProxy
#endif
#if defined(ENABLE_OVERLOADING)
type instance O.SignalList NavigationSplitView = NavigationSplitViewSignalList
type NavigationSplitViewSignalList = ('[ '("destroy", Gtk.Widget.WidgetDestroySignalInfo), '("directionChanged", Gtk.Widget.WidgetDirectionChangedSignalInfo), '("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_navigation_split_view_new" adw_navigation_split_view_new ::
IO (Ptr NavigationSplitView)
navigationSplitViewNew ::
(B.CallStack.HasCallStack, MonadIO m) =>
m NavigationSplitView
navigationSplitViewNew :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
m NavigationSplitView
navigationSplitViewNew = IO NavigationSplitView -> m NavigationSplitView
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO NavigationSplitView -> m NavigationSplitView)
-> IO NavigationSplitView -> m NavigationSplitView
forall a b. (a -> b) -> a -> b
$ do
Ptr NavigationSplitView
result <- IO (Ptr NavigationSplitView)
adw_navigation_split_view_new
Text -> Ptr NavigationSplitView -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"navigationSplitViewNew" Ptr NavigationSplitView
result
NavigationSplitView
result' <- ((ManagedPtr NavigationSplitView -> NavigationSplitView)
-> Ptr NavigationSplitView -> IO NavigationSplitView
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr NavigationSplitView -> NavigationSplitView
NavigationSplitView) Ptr NavigationSplitView
result
NavigationSplitView -> IO NavigationSplitView
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return NavigationSplitView
result'
#if defined(ENABLE_OVERLOADING)
#endif
foreign import ccall "adw_navigation_split_view_get_collapsed" adw_navigation_split_view_get_collapsed ::
Ptr NavigationSplitView ->
IO CInt
navigationSplitViewGetCollapsed ::
(B.CallStack.HasCallStack, MonadIO m, IsNavigationSplitView a) =>
a
-> m Bool
navigationSplitViewGetCollapsed :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsNavigationSplitView a) =>
a -> m Bool
navigationSplitViewGetCollapsed 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 NavigationSplitView
self' <- a -> IO (Ptr NavigationSplitView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CInt
result <- Ptr NavigationSplitView -> IO CInt
adw_navigation_split_view_get_collapsed Ptr NavigationSplitView
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 NavigationSplitViewGetCollapsedMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsNavigationSplitView a) => O.OverloadedMethod NavigationSplitViewGetCollapsedMethodInfo a signature where
overloadedMethod = navigationSplitViewGetCollapsed
instance O.OverloadedMethodInfo NavigationSplitViewGetCollapsedMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.NavigationSplitView.navigationSplitViewGetCollapsed",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.7/docs/GI-Adw-Objects-NavigationSplitView.html#v:navigationSplitViewGetCollapsed"
})
#endif
foreign import ccall "adw_navigation_split_view_get_content" adw_navigation_split_view_get_content ::
Ptr NavigationSplitView ->
IO (Ptr Adw.NavigationPage.NavigationPage)
navigationSplitViewGetContent ::
(B.CallStack.HasCallStack, MonadIO m, IsNavigationSplitView a) =>
a
-> m (Maybe Adw.NavigationPage.NavigationPage)
navigationSplitViewGetContent :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsNavigationSplitView a) =>
a -> m (Maybe NavigationPage)
navigationSplitViewGetContent a
self = IO (Maybe NavigationPage) -> m (Maybe NavigationPage)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe NavigationPage) -> m (Maybe NavigationPage))
-> IO (Maybe NavigationPage) -> m (Maybe NavigationPage)
forall a b. (a -> b) -> a -> b
$ do
Ptr NavigationSplitView
self' <- a -> IO (Ptr NavigationSplitView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr NavigationPage
result <- Ptr NavigationSplitView -> IO (Ptr NavigationPage)
adw_navigation_split_view_get_content Ptr NavigationSplitView
self'
Maybe NavigationPage
maybeResult <- Ptr NavigationPage
-> (Ptr NavigationPage -> IO NavigationPage)
-> IO (Maybe NavigationPage)
forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
convertIfNonNull Ptr NavigationPage
result ((Ptr NavigationPage -> IO NavigationPage)
-> IO (Maybe NavigationPage))
-> (Ptr NavigationPage -> IO NavigationPage)
-> IO (Maybe NavigationPage)
forall a b. (a -> b) -> a -> b
$ \Ptr NavigationPage
result' -> do
NavigationPage
result'' <- ((ManagedPtr NavigationPage -> NavigationPage)
-> Ptr NavigationPage -> IO NavigationPage
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr NavigationPage -> NavigationPage
Adw.NavigationPage.NavigationPage) Ptr NavigationPage
result'
NavigationPage -> IO NavigationPage
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return NavigationPage
result''
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
Maybe NavigationPage -> IO (Maybe NavigationPage)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe NavigationPage
maybeResult
#if defined(ENABLE_OVERLOADING)
data NavigationSplitViewGetContentMethodInfo
instance (signature ~ (m (Maybe Adw.NavigationPage.NavigationPage)), MonadIO m, IsNavigationSplitView a) => O.OverloadedMethod NavigationSplitViewGetContentMethodInfo a signature where
overloadedMethod = navigationSplitViewGetContent
instance O.OverloadedMethodInfo NavigationSplitViewGetContentMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.NavigationSplitView.navigationSplitViewGetContent",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.7/docs/GI-Adw-Objects-NavigationSplitView.html#v:navigationSplitViewGetContent"
})
#endif
foreign import ccall "adw_navigation_split_view_get_max_sidebar_width" ::
Ptr NavigationSplitView ->
IO CDouble
navigationSplitViewGetMaxSidebarWidth ::
(B.CallStack.HasCallStack, MonadIO m, IsNavigationSplitView a) =>
a
-> m Double
a
self = IO Double -> m Double
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Double -> m Double) -> IO Double -> m Double
forall a b. (a -> b) -> a -> b
$ do
Ptr NavigationSplitView
self' <- a -> IO (Ptr NavigationSplitView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CDouble
result <- Ptr NavigationSplitView -> IO CDouble
adw_navigation_split_view_get_max_sidebar_width Ptr NavigationSplitView
self'
let result' :: Double
result' = CDouble -> Double
forall a b. (Real a, Fractional b) => a -> b
realToFrac CDouble
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
Double -> IO Double
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Double
result'
#if defined(ENABLE_OVERLOADING)
data NavigationSplitViewGetMaxSidebarWidthMethodInfo
instance (signature ~ (m Double), MonadIO m, IsNavigationSplitView a) => O.OverloadedMethod NavigationSplitViewGetMaxSidebarWidthMethodInfo a signature where
overloadedMethod = navigationSplitViewGetMaxSidebarWidth
instance O.OverloadedMethodInfo NavigationSplitViewGetMaxSidebarWidthMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.NavigationSplitView.navigationSplitViewGetMaxSidebarWidth",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.7/docs/GI-Adw-Objects-NavigationSplitView.html#v:navigationSplitViewGetMaxSidebarWidth"
})
#endif
foreign import ccall "adw_navigation_split_view_get_min_sidebar_width" ::
Ptr NavigationSplitView ->
IO CDouble
navigationSplitViewGetMinSidebarWidth ::
(B.CallStack.HasCallStack, MonadIO m, IsNavigationSplitView a) =>
a
-> m Double
a
self = IO Double -> m Double
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Double -> m Double) -> IO Double -> m Double
forall a b. (a -> b) -> a -> b
$ do
Ptr NavigationSplitView
self' <- a -> IO (Ptr NavigationSplitView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CDouble
result <- Ptr NavigationSplitView -> IO CDouble
adw_navigation_split_view_get_min_sidebar_width Ptr NavigationSplitView
self'
let result' :: Double
result' = CDouble -> Double
forall a b. (Real a, Fractional b) => a -> b
realToFrac CDouble
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
Double -> IO Double
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Double
result'
#if defined(ENABLE_OVERLOADING)
data NavigationSplitViewGetMinSidebarWidthMethodInfo
instance (signature ~ (m Double), MonadIO m, IsNavigationSplitView a) => O.OverloadedMethod NavigationSplitViewGetMinSidebarWidthMethodInfo a signature where
overloadedMethod = navigationSplitViewGetMinSidebarWidth
instance O.OverloadedMethodInfo NavigationSplitViewGetMinSidebarWidthMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.NavigationSplitView.navigationSplitViewGetMinSidebarWidth",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.7/docs/GI-Adw-Objects-NavigationSplitView.html#v:navigationSplitViewGetMinSidebarWidth"
})
#endif
foreign import ccall "adw_navigation_split_view_get_show_content" adw_navigation_split_view_get_show_content ::
Ptr NavigationSplitView ->
IO CInt
navigationSplitViewGetShowContent ::
(B.CallStack.HasCallStack, MonadIO m, IsNavigationSplitView a) =>
a
-> m Bool
navigationSplitViewGetShowContent :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsNavigationSplitView a) =>
a -> m Bool
navigationSplitViewGetShowContent 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 NavigationSplitView
self' <- a -> IO (Ptr NavigationSplitView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CInt
result <- Ptr NavigationSplitView -> IO CInt
adw_navigation_split_view_get_show_content Ptr NavigationSplitView
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 NavigationSplitViewGetShowContentMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsNavigationSplitView a) => O.OverloadedMethod NavigationSplitViewGetShowContentMethodInfo a signature where
overloadedMethod = navigationSplitViewGetShowContent
instance O.OverloadedMethodInfo NavigationSplitViewGetShowContentMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.NavigationSplitView.navigationSplitViewGetShowContent",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.7/docs/GI-Adw-Objects-NavigationSplitView.html#v:navigationSplitViewGetShowContent"
})
#endif
foreign import ccall "adw_navigation_split_view_get_sidebar" ::
Ptr NavigationSplitView ->
IO (Ptr Adw.NavigationPage.NavigationPage)
navigationSplitViewGetSidebar ::
(B.CallStack.HasCallStack, MonadIO m, IsNavigationSplitView a) =>
a
-> m (Maybe Adw.NavigationPage.NavigationPage)
a
self = IO (Maybe NavigationPage) -> m (Maybe NavigationPage)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe NavigationPage) -> m (Maybe NavigationPage))
-> IO (Maybe NavigationPage) -> m (Maybe NavigationPage)
forall a b. (a -> b) -> a -> b
$ do
Ptr NavigationSplitView
self' <- a -> IO (Ptr NavigationSplitView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr NavigationPage
result <- Ptr NavigationSplitView -> IO (Ptr NavigationPage)
adw_navigation_split_view_get_sidebar Ptr NavigationSplitView
self'
Maybe NavigationPage
maybeResult <- Ptr NavigationPage
-> (Ptr NavigationPage -> IO NavigationPage)
-> IO (Maybe NavigationPage)
forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
convertIfNonNull Ptr NavigationPage
result ((Ptr NavigationPage -> IO NavigationPage)
-> IO (Maybe NavigationPage))
-> (Ptr NavigationPage -> IO NavigationPage)
-> IO (Maybe NavigationPage)
forall a b. (a -> b) -> a -> b
$ \Ptr NavigationPage
result' -> do
NavigationPage
result'' <- ((ManagedPtr NavigationPage -> NavigationPage)
-> Ptr NavigationPage -> IO NavigationPage
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr NavigationPage -> NavigationPage
Adw.NavigationPage.NavigationPage) Ptr NavigationPage
result'
NavigationPage -> IO NavigationPage
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return NavigationPage
result''
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
Maybe NavigationPage -> IO (Maybe NavigationPage)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe NavigationPage
maybeResult
#if defined(ENABLE_OVERLOADING)
data NavigationSplitViewGetSidebarMethodInfo
instance (signature ~ (m (Maybe Adw.NavigationPage.NavigationPage)), MonadIO m, IsNavigationSplitView a) => O.OverloadedMethod NavigationSplitViewGetSidebarMethodInfo a signature where
overloadedMethod = navigationSplitViewGetSidebar
instance O.OverloadedMethodInfo NavigationSplitViewGetSidebarMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.NavigationSplitView.navigationSplitViewGetSidebar",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.7/docs/GI-Adw-Objects-NavigationSplitView.html#v:navigationSplitViewGetSidebar"
})
#endif
foreign import ccall "adw_navigation_split_view_get_sidebar_width_fraction" ::
Ptr NavigationSplitView ->
IO CDouble
navigationSplitViewGetSidebarWidthFraction ::
(B.CallStack.HasCallStack, MonadIO m, IsNavigationSplitView a) =>
a
-> m Double
a
self = IO Double -> m Double
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Double -> m Double) -> IO Double -> m Double
forall a b. (a -> b) -> a -> b
$ do
Ptr NavigationSplitView
self' <- a -> IO (Ptr NavigationSplitView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CDouble
result <- Ptr NavigationSplitView -> IO CDouble
adw_navigation_split_view_get_sidebar_width_fraction Ptr NavigationSplitView
self'
let result' :: Double
result' = CDouble -> Double
forall a b. (Real a, Fractional b) => a -> b
realToFrac CDouble
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
Double -> IO Double
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Double
result'
#if defined(ENABLE_OVERLOADING)
data NavigationSplitViewGetSidebarWidthFractionMethodInfo
instance (signature ~ (m Double), MonadIO m, IsNavigationSplitView a) => O.OverloadedMethod NavigationSplitViewGetSidebarWidthFractionMethodInfo a signature where
overloadedMethod = navigationSplitViewGetSidebarWidthFraction
instance O.OverloadedMethodInfo NavigationSplitViewGetSidebarWidthFractionMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.NavigationSplitView.navigationSplitViewGetSidebarWidthFraction",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.7/docs/GI-Adw-Objects-NavigationSplitView.html#v:navigationSplitViewGetSidebarWidthFraction"
})
#endif
foreign import ccall "adw_navigation_split_view_get_sidebar_width_unit" ::
Ptr NavigationSplitView ->
IO CUInt
navigationSplitViewGetSidebarWidthUnit ::
(B.CallStack.HasCallStack, MonadIO m, IsNavigationSplitView a) =>
a
-> m Adw.Enums.LengthUnit
a
self = IO LengthUnit -> m LengthUnit
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO LengthUnit -> m LengthUnit) -> IO LengthUnit -> m LengthUnit
forall a b. (a -> b) -> a -> b
$ do
Ptr NavigationSplitView
self' <- a -> IO (Ptr NavigationSplitView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CUInt
result <- Ptr NavigationSplitView -> IO CUInt
adw_navigation_split_view_get_sidebar_width_unit Ptr NavigationSplitView
self'
let result' :: LengthUnit
result' = (Int -> LengthUnit
forall a. Enum a => Int -> a
toEnum (Int -> LengthUnit) -> (CUInt -> Int) -> CUInt -> LengthUnit
forall b c a. (b -> c) -> (a -> b) -> a -> c
. CUInt -> Int
forall a b. (Integral a, Num b) => a -> b
fromIntegral) CUInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
LengthUnit -> IO LengthUnit
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return LengthUnit
result'
#if defined(ENABLE_OVERLOADING)
data NavigationSplitViewGetSidebarWidthUnitMethodInfo
instance (signature ~ (m Adw.Enums.LengthUnit), MonadIO m, IsNavigationSplitView a) => O.OverloadedMethod NavigationSplitViewGetSidebarWidthUnitMethodInfo a signature where
overloadedMethod = navigationSplitViewGetSidebarWidthUnit
instance O.OverloadedMethodInfo NavigationSplitViewGetSidebarWidthUnitMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.NavigationSplitView.navigationSplitViewGetSidebarWidthUnit",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.7/docs/GI-Adw-Objects-NavigationSplitView.html#v:navigationSplitViewGetSidebarWidthUnit"
})
#endif
foreign import ccall "adw_navigation_split_view_set_collapsed" adw_navigation_split_view_set_collapsed ::
Ptr NavigationSplitView ->
CInt ->
IO ()
navigationSplitViewSetCollapsed ::
(B.CallStack.HasCallStack, MonadIO m, IsNavigationSplitView a) =>
a
-> Bool
-> m ()
navigationSplitViewSetCollapsed :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsNavigationSplitView a) =>
a -> Bool -> m ()
navigationSplitViewSetCollapsed a
self Bool
collapsed = 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 NavigationSplitView
self' <- a -> IO (Ptr NavigationSplitView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
let collapsed' :: CInt
collapsed' = (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
collapsed
Ptr NavigationSplitView -> CInt -> IO ()
adw_navigation_split_view_set_collapsed Ptr NavigationSplitView
self' CInt
collapsed'
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 NavigationSplitViewSetCollapsedMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsNavigationSplitView a) => O.OverloadedMethod NavigationSplitViewSetCollapsedMethodInfo a signature where
overloadedMethod = navigationSplitViewSetCollapsed
instance O.OverloadedMethodInfo NavigationSplitViewSetCollapsedMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.NavigationSplitView.navigationSplitViewSetCollapsed",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.7/docs/GI-Adw-Objects-NavigationSplitView.html#v:navigationSplitViewSetCollapsed"
})
#endif
foreign import ccall "adw_navigation_split_view_set_content" adw_navigation_split_view_set_content ::
Ptr NavigationSplitView ->
Ptr Adw.NavigationPage.NavigationPage ->
IO ()
navigationSplitViewSetContent ::
(B.CallStack.HasCallStack, MonadIO m, IsNavigationSplitView a, Adw.NavigationPage.IsNavigationPage b) =>
a
-> Maybe (b)
-> m ()
navigationSplitViewSetContent :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsNavigationSplitView a,
IsNavigationPage b) =>
a -> Maybe b -> m ()
navigationSplitViewSetContent a
self Maybe b
content = 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 NavigationSplitView
self' <- a -> IO (Ptr NavigationSplitView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr NavigationPage
maybeContent <- case Maybe b
content of
Maybe b
Nothing -> Ptr NavigationPage -> IO (Ptr NavigationPage)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr NavigationPage
forall a. Ptr a
nullPtr
Just b
jContent -> do
Ptr NavigationPage
jContent' <- b -> IO (Ptr NavigationPage)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
jContent
Ptr NavigationPage -> IO (Ptr NavigationPage)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr NavigationPage
jContent'
Ptr NavigationSplitView -> Ptr NavigationPage -> IO ()
adw_navigation_split_view_set_content Ptr NavigationSplitView
self' Ptr NavigationPage
maybeContent
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
content 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 NavigationSplitViewSetContentMethodInfo
instance (signature ~ (Maybe (b) -> m ()), MonadIO m, IsNavigationSplitView a, Adw.NavigationPage.IsNavigationPage b) => O.OverloadedMethod NavigationSplitViewSetContentMethodInfo a signature where
overloadedMethod = navigationSplitViewSetContent
instance O.OverloadedMethodInfo NavigationSplitViewSetContentMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.NavigationSplitView.navigationSplitViewSetContent",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.7/docs/GI-Adw-Objects-NavigationSplitView.html#v:navigationSplitViewSetContent"
})
#endif
foreign import ccall "adw_navigation_split_view_set_max_sidebar_width" ::
Ptr NavigationSplitView ->
CDouble ->
IO ()
navigationSplitViewSetMaxSidebarWidth ::
(B.CallStack.HasCallStack, MonadIO m, IsNavigationSplitView a) =>
a
-> Double
-> m ()
a
self Double
width = 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 NavigationSplitView
self' <- a -> IO (Ptr NavigationSplitView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
let width' :: CDouble
width' = Double -> CDouble
forall a b. (Real a, Fractional b) => a -> b
realToFrac Double
width
Ptr NavigationSplitView -> CDouble -> IO ()
adw_navigation_split_view_set_max_sidebar_width Ptr NavigationSplitView
self' CDouble
width'
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 NavigationSplitViewSetMaxSidebarWidthMethodInfo
instance (signature ~ (Double -> m ()), MonadIO m, IsNavigationSplitView a) => O.OverloadedMethod NavigationSplitViewSetMaxSidebarWidthMethodInfo a signature where
overloadedMethod = navigationSplitViewSetMaxSidebarWidth
instance O.OverloadedMethodInfo NavigationSplitViewSetMaxSidebarWidthMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.NavigationSplitView.navigationSplitViewSetMaxSidebarWidth",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.7/docs/GI-Adw-Objects-NavigationSplitView.html#v:navigationSplitViewSetMaxSidebarWidth"
})
#endif
foreign import ccall "adw_navigation_split_view_set_min_sidebar_width" ::
Ptr NavigationSplitView ->
CDouble ->
IO ()
navigationSplitViewSetMinSidebarWidth ::
(B.CallStack.HasCallStack, MonadIO m, IsNavigationSplitView a) =>
a
-> Double
-> m ()
a
self Double
width = 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 NavigationSplitView
self' <- a -> IO (Ptr NavigationSplitView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
let width' :: CDouble
width' = Double -> CDouble
forall a b. (Real a, Fractional b) => a -> b
realToFrac Double
width
Ptr NavigationSplitView -> CDouble -> IO ()
adw_navigation_split_view_set_min_sidebar_width Ptr NavigationSplitView
self' CDouble
width'
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 NavigationSplitViewSetMinSidebarWidthMethodInfo
instance (signature ~ (Double -> m ()), MonadIO m, IsNavigationSplitView a) => O.OverloadedMethod NavigationSplitViewSetMinSidebarWidthMethodInfo a signature where
overloadedMethod = navigationSplitViewSetMinSidebarWidth
instance O.OverloadedMethodInfo NavigationSplitViewSetMinSidebarWidthMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.NavigationSplitView.navigationSplitViewSetMinSidebarWidth",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.7/docs/GI-Adw-Objects-NavigationSplitView.html#v:navigationSplitViewSetMinSidebarWidth"
})
#endif
foreign import ccall "adw_navigation_split_view_set_show_content" adw_navigation_split_view_set_show_content ::
Ptr NavigationSplitView ->
CInt ->
IO ()
navigationSplitViewSetShowContent ::
(B.CallStack.HasCallStack, MonadIO m, IsNavigationSplitView a) =>
a
-> Bool
-> m ()
navigationSplitViewSetShowContent :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsNavigationSplitView a) =>
a -> Bool -> m ()
navigationSplitViewSetShowContent a
self Bool
showContent = 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 NavigationSplitView
self' <- a -> IO (Ptr NavigationSplitView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
let showContent' :: CInt
showContent' = (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
showContent
Ptr NavigationSplitView -> CInt -> IO ()
adw_navigation_split_view_set_show_content Ptr NavigationSplitView
self' CInt
showContent'
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 NavigationSplitViewSetShowContentMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsNavigationSplitView a) => O.OverloadedMethod NavigationSplitViewSetShowContentMethodInfo a signature where
overloadedMethod = navigationSplitViewSetShowContent
instance O.OverloadedMethodInfo NavigationSplitViewSetShowContentMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.NavigationSplitView.navigationSplitViewSetShowContent",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.7/docs/GI-Adw-Objects-NavigationSplitView.html#v:navigationSplitViewSetShowContent"
})
#endif
foreign import ccall "adw_navigation_split_view_set_sidebar" ::
Ptr NavigationSplitView ->
Ptr Adw.NavigationPage.NavigationPage ->
IO ()
navigationSplitViewSetSidebar ::
(B.CallStack.HasCallStack, MonadIO m, IsNavigationSplitView a, Adw.NavigationPage.IsNavigationPage b) =>
a
-> Maybe (b)
-> m ()
a
self Maybe b
sidebar = 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 NavigationSplitView
self' <- a -> IO (Ptr NavigationSplitView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr NavigationPage
maybeSidebar <- case Maybe b
sidebar of
Maybe b
Nothing -> Ptr NavigationPage -> IO (Ptr NavigationPage)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr NavigationPage
forall a. Ptr a
nullPtr
Just b
jSidebar -> do
Ptr NavigationPage
jSidebar' <- b -> IO (Ptr NavigationPage)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
jSidebar
Ptr NavigationPage -> IO (Ptr NavigationPage)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr NavigationPage
jSidebar'
Ptr NavigationSplitView -> Ptr NavigationPage -> IO ()
adw_navigation_split_view_set_sidebar Ptr NavigationSplitView
self' Ptr NavigationPage
maybeSidebar
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
sidebar 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 NavigationSplitViewSetSidebarMethodInfo
instance (signature ~ (Maybe (b) -> m ()), MonadIO m, IsNavigationSplitView a, Adw.NavigationPage.IsNavigationPage b) => O.OverloadedMethod NavigationSplitViewSetSidebarMethodInfo a signature where
overloadedMethod = navigationSplitViewSetSidebar
instance O.OverloadedMethodInfo NavigationSplitViewSetSidebarMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.NavigationSplitView.navigationSplitViewSetSidebar",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.7/docs/GI-Adw-Objects-NavigationSplitView.html#v:navigationSplitViewSetSidebar"
})
#endif
foreign import ccall "adw_navigation_split_view_set_sidebar_width_fraction" ::
Ptr NavigationSplitView ->
CDouble ->
IO ()
navigationSplitViewSetSidebarWidthFraction ::
(B.CallStack.HasCallStack, MonadIO m, IsNavigationSplitView a) =>
a
-> Double
-> m ()
a
self Double
fraction = 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 NavigationSplitView
self' <- a -> IO (Ptr NavigationSplitView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
let fraction' :: CDouble
fraction' = Double -> CDouble
forall a b. (Real a, Fractional b) => a -> b
realToFrac Double
fraction
Ptr NavigationSplitView -> CDouble -> IO ()
adw_navigation_split_view_set_sidebar_width_fraction Ptr NavigationSplitView
self' CDouble
fraction'
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 NavigationSplitViewSetSidebarWidthFractionMethodInfo
instance (signature ~ (Double -> m ()), MonadIO m, IsNavigationSplitView a) => O.OverloadedMethod NavigationSplitViewSetSidebarWidthFractionMethodInfo a signature where
overloadedMethod = navigationSplitViewSetSidebarWidthFraction
instance O.OverloadedMethodInfo NavigationSplitViewSetSidebarWidthFractionMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.NavigationSplitView.navigationSplitViewSetSidebarWidthFraction",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.7/docs/GI-Adw-Objects-NavigationSplitView.html#v:navigationSplitViewSetSidebarWidthFraction"
})
#endif
foreign import ccall "adw_navigation_split_view_set_sidebar_width_unit" ::
Ptr NavigationSplitView ->
CUInt ->
IO ()
navigationSplitViewSetSidebarWidthUnit ::
(B.CallStack.HasCallStack, MonadIO m, IsNavigationSplitView a) =>
a
-> Adw.Enums.LengthUnit
-> m ()
a
self LengthUnit
unit = 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 NavigationSplitView
self' <- a -> IO (Ptr NavigationSplitView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
let unit' :: CUInt
unit' = (Int -> CUInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CUInt) -> (LengthUnit -> Int) -> LengthUnit -> CUInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. LengthUnit -> Int
forall a. Enum a => a -> Int
fromEnum) LengthUnit
unit
Ptr NavigationSplitView -> CUInt -> IO ()
adw_navigation_split_view_set_sidebar_width_unit Ptr NavigationSplitView
self' CUInt
unit'
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 NavigationSplitViewSetSidebarWidthUnitMethodInfo
instance (signature ~ (Adw.Enums.LengthUnit -> m ()), MonadIO m, IsNavigationSplitView a) => O.OverloadedMethod NavigationSplitViewSetSidebarWidthUnitMethodInfo a signature where
overloadedMethod = navigationSplitViewSetSidebarWidthUnit
instance O.OverloadedMethodInfo NavigationSplitViewSetSidebarWidthUnitMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.NavigationSplitView.navigationSplitViewSetSidebarWidthUnit",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.7/docs/GI-Adw-Objects-NavigationSplitView.html#v:navigationSplitViewSetSidebarWidthUnit"
})
#endif