{-# LANGUAGE TypeApplications #-}
#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif
module GI.Adw.Objects.Bin
(
Bin(..) ,
IsBin ,
toBin ,
#if defined(ENABLE_OVERLOADING)
ResolveBinMethod ,
#endif
#if defined(ENABLE_OVERLOADING)
BinGetChildMethodInfo ,
#endif
binGetChild ,
binNew ,
#if defined(ENABLE_OVERLOADING)
BinSetChildMethodInfo ,
#endif
binSetChild ,
#if defined(ENABLE_OVERLOADING)
BinChildPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
binChild ,
#endif
clearBinChild ,
constructBinChild ,
getBinChild ,
setBinChild ,
) where
import Data.GI.Base.ShortPrelude
import qualified Data.GI.Base.ShortPrelude as SP
import qualified Data.GI.Base.Overloading as O
import qualified Prelude as P
import qualified Data.GI.Base.Attributes as GI.Attributes
import qualified Data.GI.Base.BasicTypes as B.Types
import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr
import qualified Data.GI.Base.GArray as B.GArray
import qualified Data.GI.Base.GClosure as B.GClosure
import qualified Data.GI.Base.GError as B.GError
import qualified Data.GI.Base.GHashTable as B.GHT
import qualified Data.GI.Base.GVariant as B.GVariant
import qualified Data.GI.Base.GValue as B.GValue
import qualified Data.GI.Base.GParamSpec as B.GParamSpec
import qualified Data.GI.Base.CallStack as B.CallStack
import qualified Data.GI.Base.Properties as B.Properties
import qualified Data.GI.Base.Signals as B.Signals
import qualified Control.Monad.IO.Class as MIO
import qualified Data.Coerce as Coerce
import qualified Data.Text as T
import qualified Data.ByteString.Char8 as B
import qualified Data.Map as Map
import qualified Foreign.Ptr as FP
import qualified GHC.OverloadedLabels as OL
import qualified GHC.Records as R
import 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
newtype Bin = Bin (SP.ManagedPtr Bin)
deriving (Bin -> Bin -> Bool
(Bin -> Bin -> Bool) -> (Bin -> Bin -> Bool) -> Eq Bin
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: Bin -> Bin -> Bool
== :: Bin -> Bin -> Bool
$c/= :: Bin -> Bin -> Bool
/= :: Bin -> Bin -> Bool
Eq)
instance SP.ManagedPtrNewtype Bin where
toManagedPtr :: Bin -> ManagedPtr Bin
toManagedPtr (Bin ManagedPtr Bin
p) = ManagedPtr Bin
p
foreign import ccall "adw_bin_get_type"
c_adw_bin_get_type :: IO B.Types.GType
instance B.Types.TypedObject Bin where
glibType :: IO GType
glibType = IO GType
c_adw_bin_get_type
instance B.Types.GObject Bin
class (SP.GObject o, O.IsDescendantOf Bin o) => IsBin o
instance (SP.GObject o, O.IsDescendantOf Bin o) => IsBin o
instance O.HasParentTypes Bin
type instance O.ParentTypes Bin = '[Gtk.Widget.Widget, GObject.Object.Object, Gtk.Accessible.Accessible, Gtk.Buildable.Buildable, Gtk.ConstraintTarget.ConstraintTarget]
toBin :: (MIO.MonadIO m, IsBin o) => o -> m Bin
toBin :: forall (m :: * -> *) o. (MonadIO m, IsBin o) => o -> m Bin
toBin = IO Bin -> m Bin
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Bin -> m Bin) -> (o -> IO Bin) -> o -> m Bin
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (ManagedPtr Bin -> Bin) -> o -> IO Bin
forall o o'.
(HasCallStack, ManagedPtrNewtype o, TypedObject o,
ManagedPtrNewtype o', TypedObject o') =>
(ManagedPtr o' -> o') -> o -> IO o'
B.ManagedPtr.unsafeCastTo ManagedPtr Bin -> Bin
Bin
instance B.GValue.IsGValue (Maybe Bin) where
gvalueGType_ :: IO GType
gvalueGType_ = IO GType
c_adw_bin_get_type
gvalueSet_ :: Ptr GValue -> Maybe Bin -> IO ()
gvalueSet_ Ptr GValue
gv Maybe Bin
P.Nothing = Ptr GValue -> Ptr Bin -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv (Ptr Bin
forall a. Ptr a
FP.nullPtr :: FP.Ptr Bin)
gvalueSet_ Ptr GValue
gv (P.Just Bin
obj) = Bin -> (Ptr Bin -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
B.ManagedPtr.withManagedPtr Bin
obj (Ptr GValue -> Ptr Bin -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv)
gvalueGet_ :: Ptr GValue -> IO (Maybe Bin)
gvalueGet_ Ptr GValue
gv = do
Ptr Bin
ptr <- Ptr GValue -> IO (Ptr Bin)
forall a. GObject a => Ptr GValue -> IO (Ptr a)
B.GValue.get_object Ptr GValue
gv :: IO (FP.Ptr Bin)
if Ptr Bin
ptr Ptr Bin -> Ptr Bin -> Bool
forall a. Eq a => a -> a -> Bool
/= Ptr Bin
forall a. Ptr a
FP.nullPtr
then Bin -> Maybe Bin
forall a. a -> Maybe a
P.Just (Bin -> Maybe Bin) -> IO Bin -> IO (Maybe Bin)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (ManagedPtr Bin -> Bin) -> Ptr Bin -> IO Bin
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
B.ManagedPtr.newObject ManagedPtr Bin -> Bin
Bin Ptr Bin
ptr
else Maybe Bin -> IO (Maybe Bin)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe Bin
forall a. Maybe a
P.Nothing
#if defined(ENABLE_OVERLOADING)
type family ResolveBinMethod (t :: Symbol) (o :: *) :: * where
ResolveBinMethod "actionSetEnabled" o = Gtk.Widget.WidgetActionSetEnabledMethodInfo
ResolveBinMethod "activate" o = Gtk.Widget.WidgetActivateMethodInfo
ResolveBinMethod "activateAction" o = Gtk.Widget.WidgetActivateActionMethodInfo
ResolveBinMethod "activateDefault" o = Gtk.Widget.WidgetActivateDefaultMethodInfo
ResolveBinMethod "addController" o = Gtk.Widget.WidgetAddControllerMethodInfo
ResolveBinMethod "addCssClass" o = Gtk.Widget.WidgetAddCssClassMethodInfo
ResolveBinMethod "addMnemonicLabel" o = Gtk.Widget.WidgetAddMnemonicLabelMethodInfo
ResolveBinMethod "addTickCallback" o = Gtk.Widget.WidgetAddTickCallbackMethodInfo
ResolveBinMethod "allocate" o = Gtk.Widget.WidgetAllocateMethodInfo
ResolveBinMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
ResolveBinMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
ResolveBinMethod "childFocus" o = Gtk.Widget.WidgetChildFocusMethodInfo
ResolveBinMethod "computeBounds" o = Gtk.Widget.WidgetComputeBoundsMethodInfo
ResolveBinMethod "computeExpand" o = Gtk.Widget.WidgetComputeExpandMethodInfo
ResolveBinMethod "computePoint" o = Gtk.Widget.WidgetComputePointMethodInfo
ResolveBinMethod "computeTransform" o = Gtk.Widget.WidgetComputeTransformMethodInfo
ResolveBinMethod "contains" o = Gtk.Widget.WidgetContainsMethodInfo
ResolveBinMethod "createPangoContext" o = Gtk.Widget.WidgetCreatePangoContextMethodInfo
ResolveBinMethod "createPangoLayout" o = Gtk.Widget.WidgetCreatePangoLayoutMethodInfo
ResolveBinMethod "dragCheckThreshold" o = Gtk.Widget.WidgetDragCheckThresholdMethodInfo
ResolveBinMethod "errorBell" o = Gtk.Widget.WidgetErrorBellMethodInfo
ResolveBinMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
ResolveBinMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
ResolveBinMethod "getv" o = GObject.Object.ObjectGetvMethodInfo
ResolveBinMethod "grabFocus" o = Gtk.Widget.WidgetGrabFocusMethodInfo
ResolveBinMethod "hasCssClass" o = Gtk.Widget.WidgetHasCssClassMethodInfo
ResolveBinMethod "hasDefault" o = Gtk.Widget.WidgetHasDefaultMethodInfo
ResolveBinMethod "hasFocus" o = Gtk.Widget.WidgetHasFocusMethodInfo
ResolveBinMethod "hasVisibleFocus" o = Gtk.Widget.WidgetHasVisibleFocusMethodInfo
ResolveBinMethod "hide" o = Gtk.Widget.WidgetHideMethodInfo
ResolveBinMethod "inDestruction" o = Gtk.Widget.WidgetInDestructionMethodInfo
ResolveBinMethod "initTemplate" o = Gtk.Widget.WidgetInitTemplateMethodInfo
ResolveBinMethod "insertActionGroup" o = Gtk.Widget.WidgetInsertActionGroupMethodInfo
ResolveBinMethod "insertAfter" o = Gtk.Widget.WidgetInsertAfterMethodInfo
ResolveBinMethod "insertBefore" o = Gtk.Widget.WidgetInsertBeforeMethodInfo
ResolveBinMethod "isAncestor" o = Gtk.Widget.WidgetIsAncestorMethodInfo
ResolveBinMethod "isDrawable" o = Gtk.Widget.WidgetIsDrawableMethodInfo
ResolveBinMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo
ResolveBinMethod "isFocus" o = Gtk.Widget.WidgetIsFocusMethodInfo
ResolveBinMethod "isSensitive" o = Gtk.Widget.WidgetIsSensitiveMethodInfo
ResolveBinMethod "isVisible" o = Gtk.Widget.WidgetIsVisibleMethodInfo
ResolveBinMethod "keynavFailed" o = Gtk.Widget.WidgetKeynavFailedMethodInfo
ResolveBinMethod "listMnemonicLabels" o = Gtk.Widget.WidgetListMnemonicLabelsMethodInfo
ResolveBinMethod "map" o = Gtk.Widget.WidgetMapMethodInfo
ResolveBinMethod "measure" o = Gtk.Widget.WidgetMeasureMethodInfo
ResolveBinMethod "mnemonicActivate" o = Gtk.Widget.WidgetMnemonicActivateMethodInfo
ResolveBinMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
ResolveBinMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
ResolveBinMethod "observeChildren" o = Gtk.Widget.WidgetObserveChildrenMethodInfo
ResolveBinMethod "observeControllers" o = Gtk.Widget.WidgetObserveControllersMethodInfo
ResolveBinMethod "pick" o = Gtk.Widget.WidgetPickMethodInfo
ResolveBinMethod "queueAllocate" o = Gtk.Widget.WidgetQueueAllocateMethodInfo
ResolveBinMethod "queueDraw" o = Gtk.Widget.WidgetQueueDrawMethodInfo
ResolveBinMethod "queueResize" o = Gtk.Widget.WidgetQueueResizeMethodInfo
ResolveBinMethod "realize" o = Gtk.Widget.WidgetRealizeMethodInfo
ResolveBinMethod "ref" o = GObject.Object.ObjectRefMethodInfo
ResolveBinMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
ResolveBinMethod "removeController" o = Gtk.Widget.WidgetRemoveControllerMethodInfo
ResolveBinMethod "removeCssClass" o = Gtk.Widget.WidgetRemoveCssClassMethodInfo
ResolveBinMethod "removeMnemonicLabel" o = Gtk.Widget.WidgetRemoveMnemonicLabelMethodInfo
ResolveBinMethod "removeTickCallback" o = Gtk.Widget.WidgetRemoveTickCallbackMethodInfo
ResolveBinMethod "resetProperty" o = Gtk.Accessible.AccessibleResetPropertyMethodInfo
ResolveBinMethod "resetRelation" o = Gtk.Accessible.AccessibleResetRelationMethodInfo
ResolveBinMethod "resetState" o = Gtk.Accessible.AccessibleResetStateMethodInfo
ResolveBinMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
ResolveBinMethod "shouldLayout" o = Gtk.Widget.WidgetShouldLayoutMethodInfo
ResolveBinMethod "show" o = Gtk.Widget.WidgetShowMethodInfo
ResolveBinMethod "sizeAllocate" o = Gtk.Widget.WidgetSizeAllocateMethodInfo
ResolveBinMethod "snapshotChild" o = Gtk.Widget.WidgetSnapshotChildMethodInfo
ResolveBinMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
ResolveBinMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
ResolveBinMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo
ResolveBinMethod "translateCoordinates" o = Gtk.Widget.WidgetTranslateCoordinatesMethodInfo
ResolveBinMethod "triggerTooltipQuery" o = Gtk.Widget.WidgetTriggerTooltipQueryMethodInfo
ResolveBinMethod "unmap" o = Gtk.Widget.WidgetUnmapMethodInfo
ResolveBinMethod "unparent" o = Gtk.Widget.WidgetUnparentMethodInfo
ResolveBinMethod "unrealize" o = Gtk.Widget.WidgetUnrealizeMethodInfo
ResolveBinMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo
ResolveBinMethod "unsetStateFlags" o = Gtk.Widget.WidgetUnsetStateFlagsMethodInfo
ResolveBinMethod "updateProperty" o = Gtk.Accessible.AccessibleUpdatePropertyMethodInfo
ResolveBinMethod "updateRelation" o = Gtk.Accessible.AccessibleUpdateRelationMethodInfo
ResolveBinMethod "updateState" o = Gtk.Accessible.AccessibleUpdateStateMethodInfo
ResolveBinMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
ResolveBinMethod "getAccessibleRole" o = Gtk.Accessible.AccessibleGetAccessibleRoleMethodInfo
ResolveBinMethod "getAllocatedBaseline" o = Gtk.Widget.WidgetGetAllocatedBaselineMethodInfo
ResolveBinMethod "getAllocatedHeight" o = Gtk.Widget.WidgetGetAllocatedHeightMethodInfo
ResolveBinMethod "getAllocatedWidth" o = Gtk.Widget.WidgetGetAllocatedWidthMethodInfo
ResolveBinMethod "getAllocation" o = Gtk.Widget.WidgetGetAllocationMethodInfo
ResolveBinMethod "getAncestor" o = Gtk.Widget.WidgetGetAncestorMethodInfo
ResolveBinMethod "getBuildableId" o = Gtk.Buildable.BuildableGetBuildableIdMethodInfo
ResolveBinMethod "getCanFocus" o = Gtk.Widget.WidgetGetCanFocusMethodInfo
ResolveBinMethod "getCanTarget" o = Gtk.Widget.WidgetGetCanTargetMethodInfo
ResolveBinMethod "getChild" o = BinGetChildMethodInfo
ResolveBinMethod "getChildVisible" o = Gtk.Widget.WidgetGetChildVisibleMethodInfo
ResolveBinMethod "getClipboard" o = Gtk.Widget.WidgetGetClipboardMethodInfo
ResolveBinMethod "getCssClasses" o = Gtk.Widget.WidgetGetCssClassesMethodInfo
ResolveBinMethod "getCssName" o = Gtk.Widget.WidgetGetCssNameMethodInfo
ResolveBinMethod "getCursor" o = Gtk.Widget.WidgetGetCursorMethodInfo
ResolveBinMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
ResolveBinMethod "getDirection" o = Gtk.Widget.WidgetGetDirectionMethodInfo
ResolveBinMethod "getDisplay" o = Gtk.Widget.WidgetGetDisplayMethodInfo
ResolveBinMethod "getFirstChild" o = Gtk.Widget.WidgetGetFirstChildMethodInfo
ResolveBinMethod "getFocusChild" o = Gtk.Widget.WidgetGetFocusChildMethodInfo
ResolveBinMethod "getFocusOnClick" o = Gtk.Widget.WidgetGetFocusOnClickMethodInfo
ResolveBinMethod "getFocusable" o = Gtk.Widget.WidgetGetFocusableMethodInfo
ResolveBinMethod "getFontMap" o = Gtk.Widget.WidgetGetFontMapMethodInfo
ResolveBinMethod "getFontOptions" o = Gtk.Widget.WidgetGetFontOptionsMethodInfo
ResolveBinMethod "getFrameClock" o = Gtk.Widget.WidgetGetFrameClockMethodInfo
ResolveBinMethod "getHalign" o = Gtk.Widget.WidgetGetHalignMethodInfo
ResolveBinMethod "getHasTooltip" o = Gtk.Widget.WidgetGetHasTooltipMethodInfo
ResolveBinMethod "getHeight" o = Gtk.Widget.WidgetGetHeightMethodInfo
ResolveBinMethod "getHexpand" o = Gtk.Widget.WidgetGetHexpandMethodInfo
ResolveBinMethod "getHexpandSet" o = Gtk.Widget.WidgetGetHexpandSetMethodInfo
ResolveBinMethod "getLastChild" o = Gtk.Widget.WidgetGetLastChildMethodInfo
ResolveBinMethod "getLayoutManager" o = Gtk.Widget.WidgetGetLayoutManagerMethodInfo
ResolveBinMethod "getMapped" o = Gtk.Widget.WidgetGetMappedMethodInfo
ResolveBinMethod "getMarginBottom" o = Gtk.Widget.WidgetGetMarginBottomMethodInfo
ResolveBinMethod "getMarginEnd" o = Gtk.Widget.WidgetGetMarginEndMethodInfo
ResolveBinMethod "getMarginStart" o = Gtk.Widget.WidgetGetMarginStartMethodInfo
ResolveBinMethod "getMarginTop" o = Gtk.Widget.WidgetGetMarginTopMethodInfo
ResolveBinMethod "getName" o = Gtk.Widget.WidgetGetNameMethodInfo
ResolveBinMethod "getNative" o = Gtk.Widget.WidgetGetNativeMethodInfo
ResolveBinMethod "getNextSibling" o = Gtk.Widget.WidgetGetNextSiblingMethodInfo
ResolveBinMethod "getOpacity" o = Gtk.Widget.WidgetGetOpacityMethodInfo
ResolveBinMethod "getOverflow" o = Gtk.Widget.WidgetGetOverflowMethodInfo
ResolveBinMethod "getPangoContext" o = Gtk.Widget.WidgetGetPangoContextMethodInfo
ResolveBinMethod "getParent" o = Gtk.Widget.WidgetGetParentMethodInfo
ResolveBinMethod "getPreferredSize" o = Gtk.Widget.WidgetGetPreferredSizeMethodInfo
ResolveBinMethod "getPrevSibling" o = Gtk.Widget.WidgetGetPrevSiblingMethodInfo
ResolveBinMethod "getPrimaryClipboard" o = Gtk.Widget.WidgetGetPrimaryClipboardMethodInfo
ResolveBinMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo
ResolveBinMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo
ResolveBinMethod "getRealized" o = Gtk.Widget.WidgetGetRealizedMethodInfo
ResolveBinMethod "getReceivesDefault" o = Gtk.Widget.WidgetGetReceivesDefaultMethodInfo
ResolveBinMethod "getRequestMode" o = Gtk.Widget.WidgetGetRequestModeMethodInfo
ResolveBinMethod "getRoot" o = Gtk.Widget.WidgetGetRootMethodInfo
ResolveBinMethod "getScaleFactor" o = Gtk.Widget.WidgetGetScaleFactorMethodInfo
ResolveBinMethod "getSensitive" o = Gtk.Widget.WidgetGetSensitiveMethodInfo
ResolveBinMethod "getSettings" o = Gtk.Widget.WidgetGetSettingsMethodInfo
ResolveBinMethod "getSize" o = Gtk.Widget.WidgetGetSizeMethodInfo
ResolveBinMethod "getSizeRequest" o = Gtk.Widget.WidgetGetSizeRequestMethodInfo
ResolveBinMethod "getStateFlags" o = Gtk.Widget.WidgetGetStateFlagsMethodInfo
ResolveBinMethod "getStyleContext" o = Gtk.Widget.WidgetGetStyleContextMethodInfo
ResolveBinMethod "getTemplateChild" o = Gtk.Widget.WidgetGetTemplateChildMethodInfo
ResolveBinMethod "getTooltipMarkup" o = Gtk.Widget.WidgetGetTooltipMarkupMethodInfo
ResolveBinMethod "getTooltipText" o = Gtk.Widget.WidgetGetTooltipTextMethodInfo
ResolveBinMethod "getValign" o = Gtk.Widget.WidgetGetValignMethodInfo
ResolveBinMethod "getVexpand" o = Gtk.Widget.WidgetGetVexpandMethodInfo
ResolveBinMethod "getVexpandSet" o = Gtk.Widget.WidgetGetVexpandSetMethodInfo
ResolveBinMethod "getVisible" o = Gtk.Widget.WidgetGetVisibleMethodInfo
ResolveBinMethod "getWidth" o = Gtk.Widget.WidgetGetWidthMethodInfo
ResolveBinMethod "setCanFocus" o = Gtk.Widget.WidgetSetCanFocusMethodInfo
ResolveBinMethod "setCanTarget" o = Gtk.Widget.WidgetSetCanTargetMethodInfo
ResolveBinMethod "setChild" o = BinSetChildMethodInfo
ResolveBinMethod "setChildVisible" o = Gtk.Widget.WidgetSetChildVisibleMethodInfo
ResolveBinMethod "setCssClasses" o = Gtk.Widget.WidgetSetCssClassesMethodInfo
ResolveBinMethod "setCursor" o = Gtk.Widget.WidgetSetCursorMethodInfo
ResolveBinMethod "setCursorFromName" o = Gtk.Widget.WidgetSetCursorFromNameMethodInfo
ResolveBinMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
ResolveBinMethod "setDataFull" o = GObject.Object.ObjectSetDataFullMethodInfo
ResolveBinMethod "setDirection" o = Gtk.Widget.WidgetSetDirectionMethodInfo
ResolveBinMethod "setFocusChild" o = Gtk.Widget.WidgetSetFocusChildMethodInfo
ResolveBinMethod "setFocusOnClick" o = Gtk.Widget.WidgetSetFocusOnClickMethodInfo
ResolveBinMethod "setFocusable" o = Gtk.Widget.WidgetSetFocusableMethodInfo
ResolveBinMethod "setFontMap" o = Gtk.Widget.WidgetSetFontMapMethodInfo
ResolveBinMethod "setFontOptions" o = Gtk.Widget.WidgetSetFontOptionsMethodInfo
ResolveBinMethod "setHalign" o = Gtk.Widget.WidgetSetHalignMethodInfo
ResolveBinMethod "setHasTooltip" o = Gtk.Widget.WidgetSetHasTooltipMethodInfo
ResolveBinMethod "setHexpand" o = Gtk.Widget.WidgetSetHexpandMethodInfo
ResolveBinMethod "setHexpandSet" o = Gtk.Widget.WidgetSetHexpandSetMethodInfo
ResolveBinMethod "setLayoutManager" o = Gtk.Widget.WidgetSetLayoutManagerMethodInfo
ResolveBinMethod "setMarginBottom" o = Gtk.Widget.WidgetSetMarginBottomMethodInfo
ResolveBinMethod "setMarginEnd" o = Gtk.Widget.WidgetSetMarginEndMethodInfo
ResolveBinMethod "setMarginStart" o = Gtk.Widget.WidgetSetMarginStartMethodInfo
ResolveBinMethod "setMarginTop" o = Gtk.Widget.WidgetSetMarginTopMethodInfo
ResolveBinMethod "setName" o = Gtk.Widget.WidgetSetNameMethodInfo
ResolveBinMethod "setOpacity" o = Gtk.Widget.WidgetSetOpacityMethodInfo
ResolveBinMethod "setOverflow" o = Gtk.Widget.WidgetSetOverflowMethodInfo
ResolveBinMethod "setParent" o = Gtk.Widget.WidgetSetParentMethodInfo
ResolveBinMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
ResolveBinMethod "setReceivesDefault" o = Gtk.Widget.WidgetSetReceivesDefaultMethodInfo
ResolveBinMethod "setSensitive" o = Gtk.Widget.WidgetSetSensitiveMethodInfo
ResolveBinMethod "setSizeRequest" o = Gtk.Widget.WidgetSetSizeRequestMethodInfo
ResolveBinMethod "setStateFlags" o = Gtk.Widget.WidgetSetStateFlagsMethodInfo
ResolveBinMethod "setTooltipMarkup" o = Gtk.Widget.WidgetSetTooltipMarkupMethodInfo
ResolveBinMethod "setTooltipText" o = Gtk.Widget.WidgetSetTooltipTextMethodInfo
ResolveBinMethod "setValign" o = Gtk.Widget.WidgetSetValignMethodInfo
ResolveBinMethod "setVexpand" o = Gtk.Widget.WidgetSetVexpandMethodInfo
ResolveBinMethod "setVexpandSet" o = Gtk.Widget.WidgetSetVexpandSetMethodInfo
ResolveBinMethod "setVisible" o = Gtk.Widget.WidgetSetVisibleMethodInfo
ResolveBinMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveBinMethod t Bin, O.OverloadedMethod info Bin p) => OL.IsLabel t (Bin -> 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 ~ ResolveBinMethod t Bin, O.OverloadedMethod info Bin p, R.HasField t Bin p) => R.HasField t Bin p where
getField = O.overloadedMethod @info
#endif
instance (info ~ ResolveBinMethod t Bin, O.OverloadedMethodInfo info Bin) => OL.IsLabel t (O.MethodProxy info Bin) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.MethodProxy
#else
fromLabel _ = O.MethodProxy
#endif
#endif
getBinChild :: (MonadIO m, IsBin o) => o -> m (Maybe Gtk.Widget.Widget)
getBinChild :: forall (m :: * -> *) o.
(MonadIO m, IsBin o) =>
o -> m (Maybe Widget)
getBinChild o
obj = IO (Maybe Widget) -> m (Maybe Widget)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (Maybe Widget) -> m (Maybe Widget))
-> IO (Maybe Widget) -> m (Maybe Widget)
forall a b. (a -> b) -> a -> b
$ o -> String -> (ManagedPtr Widget -> Widget) -> IO (Maybe Widget)
forall a b.
(GObject a, GObject b) =>
a -> String -> (ManagedPtr b -> b) -> IO (Maybe b)
B.Properties.getObjectPropertyObject o
obj String
"child" ManagedPtr Widget -> Widget
Gtk.Widget.Widget
setBinChild :: (MonadIO m, IsBin o, Gtk.Widget.IsWidget a) => o -> a -> m ()
setBinChild :: forall (m :: * -> *) o a.
(MonadIO m, IsBin o, IsWidget a) =>
o -> a -> m ()
setBinChild o
obj a
val = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Maybe a -> IO ()
forall a b.
(GObject a, GObject b) =>
a -> String -> Maybe b -> IO ()
B.Properties.setObjectPropertyObject o
obj String
"child" (a -> Maybe a
forall a. a -> Maybe a
Just a
val)
constructBinChild :: (IsBin o, MIO.MonadIO m, Gtk.Widget.IsWidget a) => a -> m (GValueConstruct o)
constructBinChild :: forall o (m :: * -> *) a.
(IsBin o, MonadIO m, IsWidget a) =>
a -> m (GValueConstruct o)
constructBinChild a
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Maybe a -> IO (GValueConstruct o)
forall a o.
GObject a =>
String -> Maybe a -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyObject String
"child" (a -> Maybe a
forall a. a -> Maybe a
P.Just a
val)
clearBinChild :: (MonadIO m, IsBin o) => o -> m ()
clearBinChild :: forall (m :: * -> *) o. (MonadIO m, IsBin o) => o -> m ()
clearBinChild o
obj = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Maybe Widget -> IO ()
forall a b.
(GObject a, GObject b) =>
a -> String -> Maybe b -> IO ()
B.Properties.setObjectPropertyObject o
obj String
"child" (Maybe Widget
forall a. Maybe a
Nothing :: Maybe Gtk.Widget.Widget)
#if defined(ENABLE_OVERLOADING)
data BinChildPropertyInfo
instance AttrInfo BinChildPropertyInfo where
type AttrAllowedOps BinChildPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint BinChildPropertyInfo = IsBin
type AttrSetTypeConstraint BinChildPropertyInfo = Gtk.Widget.IsWidget
type AttrTransferTypeConstraint BinChildPropertyInfo = Gtk.Widget.IsWidget
type AttrTransferType BinChildPropertyInfo = Gtk.Widget.Widget
type AttrGetType BinChildPropertyInfo = (Maybe Gtk.Widget.Widget)
type AttrLabel BinChildPropertyInfo = "child"
type AttrOrigin BinChildPropertyInfo = Bin
attrGet = getBinChild
attrSet = setBinChild
attrTransfer _ v = do
unsafeCastTo Gtk.Widget.Widget v
attrConstruct = constructBinChild
attrClear = clearBinChild
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.Bin.child"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.2/docs/GI-Adw-Objects-Bin.html#g:attr:child"
})
#endif
#if defined(ENABLE_OVERLOADING)
instance O.HasAttributeList Bin
type instance O.AttributeList Bin = BinAttributeList
type BinAttributeList = ('[ '("accessibleRole", Gtk.Accessible.AccessibleAccessibleRolePropertyInfo), '("canFocus", Gtk.Widget.WidgetCanFocusPropertyInfo), '("canTarget", Gtk.Widget.WidgetCanTargetPropertyInfo), '("child", BinChildPropertyInfo), '("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), '("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), '("tooltipMarkup", Gtk.Widget.WidgetTooltipMarkupPropertyInfo), '("tooltipText", Gtk.Widget.WidgetTooltipTextPropertyInfo), '("valign", Gtk.Widget.WidgetValignPropertyInfo), '("vexpand", Gtk.Widget.WidgetVexpandPropertyInfo), '("vexpandSet", Gtk.Widget.WidgetVexpandSetPropertyInfo), '("visible", Gtk.Widget.WidgetVisiblePropertyInfo), '("widthRequest", Gtk.Widget.WidgetWidthRequestPropertyInfo)] :: [(Symbol, *)])
#endif
#if defined(ENABLE_OVERLOADING)
binChild :: AttrLabelProxy "child"
binChild = AttrLabelProxy
#endif
#if defined(ENABLE_OVERLOADING)
type instance O.SignalList Bin = BinSignalList
type BinSignalList = ('[ '("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, *)])
#endif
foreign import ccall "adw_bin_new" adw_bin_new ::
IO (Ptr Bin)
binNew ::
(B.CallStack.HasCallStack, MonadIO m) =>
m Bin
binNew :: forall (m :: * -> *). (HasCallStack, MonadIO m) => m Bin
binNew = IO Bin -> m Bin
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bin -> m Bin) -> IO Bin -> m Bin
forall a b. (a -> b) -> a -> b
$ do
Ptr Bin
result <- IO (Ptr Bin)
adw_bin_new
Text -> Ptr Bin -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"binNew" Ptr Bin
result
Bin
result' <- ((ManagedPtr Bin -> Bin) -> Ptr Bin -> IO Bin
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr Bin -> Bin
Bin) Ptr Bin
result
Bin -> IO Bin
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Bin
result'
#if defined(ENABLE_OVERLOADING)
#endif
foreign import ccall "adw_bin_get_child" adw_bin_get_child ::
Ptr Bin ->
IO (Ptr Gtk.Widget.Widget)
binGetChild ::
(B.CallStack.HasCallStack, MonadIO m, IsBin a) =>
a
-> m (Maybe Gtk.Widget.Widget)
binGetChild :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsBin a) =>
a -> m (Maybe Widget)
binGetChild a
self = IO (Maybe Widget) -> m (Maybe Widget)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe Widget) -> m (Maybe Widget))
-> IO (Maybe Widget) -> m (Maybe Widget)
forall a b. (a -> b) -> a -> b
$ do
Ptr Bin
self' <- a -> IO (Ptr Bin)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr Widget
result <- Ptr Bin -> IO (Ptr Widget)
adw_bin_get_child Ptr Bin
self'
Maybe Widget
maybeResult <- Ptr Widget -> (Ptr Widget -> IO Widget) -> IO (Maybe Widget)
forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
convertIfNonNull Ptr Widget
result ((Ptr Widget -> IO Widget) -> IO (Maybe Widget))
-> (Ptr Widget -> IO Widget) -> IO (Maybe Widget)
forall a b. (a -> b) -> a -> b
$ \Ptr Widget
result' -> do
Widget
result'' <- ((ManagedPtr Widget -> Widget) -> Ptr Widget -> IO Widget
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr Widget -> Widget
Gtk.Widget.Widget) Ptr Widget
result'
Widget -> IO Widget
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Widget
result''
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
Maybe Widget -> IO (Maybe Widget)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe Widget
maybeResult
#if defined(ENABLE_OVERLOADING)
data BinGetChildMethodInfo
instance (signature ~ (m (Maybe Gtk.Widget.Widget)), MonadIO m, IsBin a) => O.OverloadedMethod BinGetChildMethodInfo a signature where
overloadedMethod = binGetChild
instance O.OverloadedMethodInfo BinGetChildMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.Bin.binGetChild",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.2/docs/GI-Adw-Objects-Bin.html#v:binGetChild"
})
#endif
foreign import ccall "adw_bin_set_child" adw_bin_set_child ::
Ptr Bin ->
Ptr Gtk.Widget.Widget ->
IO ()
binSetChild ::
(B.CallStack.HasCallStack, MonadIO m, IsBin a, Gtk.Widget.IsWidget b) =>
a
-> Maybe (b)
-> m ()
binSetChild :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsBin a, IsWidget b) =>
a -> Maybe b -> m ()
binSetChild a
self Maybe b
child = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Bin
self' <- a -> IO (Ptr Bin)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr Widget
maybeChild <- case Maybe b
child of
Maybe b
Nothing -> Ptr Widget -> IO (Ptr Widget)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Widget
forall a. Ptr a
nullPtr
Just b
jChild -> do
Ptr Widget
jChild' <- b -> IO (Ptr Widget)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
jChild
Ptr Widget -> IO (Ptr Widget)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Widget
jChild'
Ptr Bin -> Ptr Widget -> IO ()
adw_bin_set_child Ptr Bin
self' Ptr Widget
maybeChild
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
Maybe b -> (b -> IO ()) -> IO ()
forall (m :: * -> *) a. Monad m => Maybe a -> (a -> m ()) -> m ()
whenJust Maybe b
child b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data BinSetChildMethodInfo
instance (signature ~ (Maybe (b) -> m ()), MonadIO m, IsBin a, Gtk.Widget.IsWidget b) => O.OverloadedMethod BinSetChildMethodInfo a signature where
overloadedMethod = binSetChild
instance O.OverloadedMethodInfo BinSetChildMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.Bin.binSetChild",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.2/docs/GI-Adw-Objects-Bin.html#v:binSetChild"
})
#endif