{-# LANGUAGE ImplicitParams, RankNTypes, TypeApplications #-}
#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif
module GI.Gtk.Objects.DropDown
(
DropDown(..) ,
IsDropDown ,
toDropDown ,
#if defined(ENABLE_OVERLOADING)
ResolveDropDownMethod ,
#endif
#if defined(ENABLE_OVERLOADING)
DropDownGetEnableSearchMethodInfo ,
#endif
dropDownGetEnableSearch ,
#if defined(ENABLE_OVERLOADING)
DropDownGetExpressionMethodInfo ,
#endif
dropDownGetExpression ,
#if defined(ENABLE_OVERLOADING)
DropDownGetFactoryMethodInfo ,
#endif
dropDownGetFactory ,
#if defined(ENABLE_OVERLOADING)
DropDownGetListFactoryMethodInfo ,
#endif
dropDownGetListFactory ,
#if defined(ENABLE_OVERLOADING)
DropDownGetModelMethodInfo ,
#endif
dropDownGetModel ,
#if defined(ENABLE_OVERLOADING)
DropDownGetSelectedMethodInfo ,
#endif
dropDownGetSelected ,
#if defined(ENABLE_OVERLOADING)
DropDownGetSelectedItemMethodInfo ,
#endif
dropDownGetSelectedItem ,
#if defined(ENABLE_OVERLOADING)
DropDownGetShowArrowMethodInfo ,
#endif
dropDownGetShowArrow ,
dropDownNew ,
dropDownNewFromStrings ,
#if defined(ENABLE_OVERLOADING)
DropDownSetEnableSearchMethodInfo ,
#endif
dropDownSetEnableSearch ,
#if defined(ENABLE_OVERLOADING)
DropDownSetExpressionMethodInfo ,
#endif
dropDownSetExpression ,
#if defined(ENABLE_OVERLOADING)
DropDownSetFactoryMethodInfo ,
#endif
dropDownSetFactory ,
#if defined(ENABLE_OVERLOADING)
DropDownSetListFactoryMethodInfo ,
#endif
dropDownSetListFactory ,
#if defined(ENABLE_OVERLOADING)
DropDownSetModelMethodInfo ,
#endif
dropDownSetModel ,
#if defined(ENABLE_OVERLOADING)
DropDownSetSelectedMethodInfo ,
#endif
dropDownSetSelected ,
#if defined(ENABLE_OVERLOADING)
DropDownSetShowArrowMethodInfo ,
#endif
dropDownSetShowArrow ,
#if defined(ENABLE_OVERLOADING)
DropDownEnableSearchPropertyInfo ,
#endif
constructDropDownEnableSearch ,
#if defined(ENABLE_OVERLOADING)
dropDownEnableSearch ,
#endif
getDropDownEnableSearch ,
setDropDownEnableSearch ,
#if defined(ENABLE_OVERLOADING)
DropDownExpressionPropertyInfo ,
#endif
clearDropDownExpression ,
constructDropDownExpression ,
#if defined(ENABLE_OVERLOADING)
dropDownExpression ,
#endif
getDropDownExpression ,
setDropDownExpression ,
#if defined(ENABLE_OVERLOADING)
DropDownFactoryPropertyInfo ,
#endif
clearDropDownFactory ,
constructDropDownFactory ,
#if defined(ENABLE_OVERLOADING)
dropDownFactory ,
#endif
getDropDownFactory ,
setDropDownFactory ,
#if defined(ENABLE_OVERLOADING)
DropDownListFactoryPropertyInfo ,
#endif
clearDropDownListFactory ,
constructDropDownListFactory ,
#if defined(ENABLE_OVERLOADING)
dropDownListFactory ,
#endif
getDropDownListFactory ,
setDropDownListFactory ,
#if defined(ENABLE_OVERLOADING)
DropDownModelPropertyInfo ,
#endif
clearDropDownModel ,
constructDropDownModel ,
#if defined(ENABLE_OVERLOADING)
dropDownModel ,
#endif
getDropDownModel ,
setDropDownModel ,
#if defined(ENABLE_OVERLOADING)
DropDownSelectedPropertyInfo ,
#endif
constructDropDownSelected ,
#if defined(ENABLE_OVERLOADING)
dropDownSelected ,
#endif
getDropDownSelected ,
setDropDownSelected ,
#if defined(ENABLE_OVERLOADING)
DropDownSelectedItemPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
dropDownSelectedItem ,
#endif
getDropDownSelectedItem ,
#if defined(ENABLE_OVERLOADING)
DropDownShowArrowPropertyInfo ,
#endif
constructDropDownShowArrow ,
#if defined(ENABLE_OVERLOADING)
dropDownShowArrow ,
#endif
getDropDownShowArrow ,
setDropDownShowArrow ,
DropDownActivateCallback ,
#if defined(ENABLE_OVERLOADING)
DropDownActivateSignalInfo ,
#endif
afterDropDownActivate ,
onDropDownActivate ,
) 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.Gio.Interfaces.ListModel as Gio.ListModel
import {-# SOURCE #-} qualified GI.Gtk.Interfaces.Accessible as Gtk.Accessible
import {-# SOURCE #-} qualified GI.Gtk.Interfaces.Buildable as Gtk.Buildable
import {-# SOURCE #-} qualified GI.Gtk.Interfaces.ConstraintTarget as Gtk.ConstraintTarget
import {-# SOURCE #-} qualified GI.Gtk.Objects.Expression as Gtk.Expression
import {-# SOURCE #-} qualified GI.Gtk.Objects.ListItemFactory as Gtk.ListItemFactory
import {-# SOURCE #-} qualified GI.Gtk.Objects.Widget as Gtk.Widget
newtype DropDown = DropDown (SP.ManagedPtr DropDown)
deriving (DropDown -> DropDown -> Bool
(DropDown -> DropDown -> Bool)
-> (DropDown -> DropDown -> Bool) -> Eq DropDown
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: DropDown -> DropDown -> Bool
== :: DropDown -> DropDown -> Bool
$c/= :: DropDown -> DropDown -> Bool
/= :: DropDown -> DropDown -> Bool
Eq)
instance SP.ManagedPtrNewtype DropDown where
toManagedPtr :: DropDown -> ManagedPtr DropDown
toManagedPtr (DropDown ManagedPtr DropDown
p) = ManagedPtr DropDown
p
foreign import ccall "gtk_drop_down_get_type"
c_gtk_drop_down_get_type :: IO B.Types.GType
instance B.Types.TypedObject DropDown where
glibType :: IO GType
glibType = IO GType
c_gtk_drop_down_get_type
instance B.Types.GObject DropDown
class (SP.GObject o, O.IsDescendantOf DropDown o) => IsDropDown o
instance (SP.GObject o, O.IsDescendantOf DropDown o) => IsDropDown o
instance O.HasParentTypes DropDown
type instance O.ParentTypes DropDown = '[Gtk.Widget.Widget, GObject.Object.Object, Gtk.Accessible.Accessible, Gtk.Buildable.Buildable, Gtk.ConstraintTarget.ConstraintTarget]
toDropDown :: (MIO.MonadIO m, IsDropDown o) => o -> m DropDown
toDropDown :: forall (m :: * -> *) o.
(MonadIO m, IsDropDown o) =>
o -> m DropDown
toDropDown = IO DropDown -> m DropDown
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO DropDown -> m DropDown)
-> (o -> IO DropDown) -> o -> m DropDown
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (ManagedPtr DropDown -> DropDown) -> o -> IO DropDown
forall o o'.
(HasCallStack, ManagedPtrNewtype o, TypedObject o,
ManagedPtrNewtype o', TypedObject o') =>
(ManagedPtr o' -> o') -> o -> IO o'
B.ManagedPtr.unsafeCastTo ManagedPtr DropDown -> DropDown
DropDown
instance B.GValue.IsGValue (Maybe DropDown) where
gvalueGType_ :: IO GType
gvalueGType_ = IO GType
c_gtk_drop_down_get_type
gvalueSet_ :: Ptr GValue -> Maybe DropDown -> IO ()
gvalueSet_ Ptr GValue
gv Maybe DropDown
P.Nothing = Ptr GValue -> Ptr DropDown -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv (Ptr DropDown
forall a. Ptr a
FP.nullPtr :: FP.Ptr DropDown)
gvalueSet_ Ptr GValue
gv (P.Just DropDown
obj) = DropDown -> (Ptr DropDown -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
B.ManagedPtr.withManagedPtr DropDown
obj (Ptr GValue -> Ptr DropDown -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv)
gvalueGet_ :: Ptr GValue -> IO (Maybe DropDown)
gvalueGet_ Ptr GValue
gv = do
Ptr DropDown
ptr <- Ptr GValue -> IO (Ptr DropDown)
forall a. GObject a => Ptr GValue -> IO (Ptr a)
B.GValue.get_object Ptr GValue
gv :: IO (FP.Ptr DropDown)
if Ptr DropDown
ptr Ptr DropDown -> Ptr DropDown -> Bool
forall a. Eq a => a -> a -> Bool
/= Ptr DropDown
forall a. Ptr a
FP.nullPtr
then DropDown -> Maybe DropDown
forall a. a -> Maybe a
P.Just (DropDown -> Maybe DropDown) -> IO DropDown -> IO (Maybe DropDown)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (ManagedPtr DropDown -> DropDown) -> Ptr DropDown -> IO DropDown
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
B.ManagedPtr.newObject ManagedPtr DropDown -> DropDown
DropDown Ptr DropDown
ptr
else Maybe DropDown -> IO (Maybe DropDown)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe DropDown
forall a. Maybe a
P.Nothing
#if defined(ENABLE_OVERLOADING)
type family ResolveDropDownMethod (t :: Symbol) (o :: *) :: * where
ResolveDropDownMethod "actionSetEnabled" o = Gtk.Widget.WidgetActionSetEnabledMethodInfo
ResolveDropDownMethod "activate" o = Gtk.Widget.WidgetActivateMethodInfo
ResolveDropDownMethod "activateAction" o = Gtk.Widget.WidgetActivateActionMethodInfo
ResolveDropDownMethod "activateDefault" o = Gtk.Widget.WidgetActivateDefaultMethodInfo
ResolveDropDownMethod "addController" o = Gtk.Widget.WidgetAddControllerMethodInfo
ResolveDropDownMethod "addCssClass" o = Gtk.Widget.WidgetAddCssClassMethodInfo
ResolveDropDownMethod "addMnemonicLabel" o = Gtk.Widget.WidgetAddMnemonicLabelMethodInfo
ResolveDropDownMethod "addTickCallback" o = Gtk.Widget.WidgetAddTickCallbackMethodInfo
ResolveDropDownMethod "allocate" o = Gtk.Widget.WidgetAllocateMethodInfo
ResolveDropDownMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
ResolveDropDownMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
ResolveDropDownMethod "childFocus" o = Gtk.Widget.WidgetChildFocusMethodInfo
ResolveDropDownMethod "computeBounds" o = Gtk.Widget.WidgetComputeBoundsMethodInfo
ResolveDropDownMethod "computeExpand" o = Gtk.Widget.WidgetComputeExpandMethodInfo
ResolveDropDownMethod "computePoint" o = Gtk.Widget.WidgetComputePointMethodInfo
ResolveDropDownMethod "computeTransform" o = Gtk.Widget.WidgetComputeTransformMethodInfo
ResolveDropDownMethod "contains" o = Gtk.Widget.WidgetContainsMethodInfo
ResolveDropDownMethod "createPangoContext" o = Gtk.Widget.WidgetCreatePangoContextMethodInfo
ResolveDropDownMethod "createPangoLayout" o = Gtk.Widget.WidgetCreatePangoLayoutMethodInfo
ResolveDropDownMethod "disposeTemplate" o = Gtk.Widget.WidgetDisposeTemplateMethodInfo
ResolveDropDownMethod "dragCheckThreshold" o = Gtk.Widget.WidgetDragCheckThresholdMethodInfo
ResolveDropDownMethod "errorBell" o = Gtk.Widget.WidgetErrorBellMethodInfo
ResolveDropDownMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
ResolveDropDownMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
ResolveDropDownMethod "getv" o = GObject.Object.ObjectGetvMethodInfo
ResolveDropDownMethod "grabFocus" o = Gtk.Widget.WidgetGrabFocusMethodInfo
ResolveDropDownMethod "hasCssClass" o = Gtk.Widget.WidgetHasCssClassMethodInfo
ResolveDropDownMethod "hasDefault" o = Gtk.Widget.WidgetHasDefaultMethodInfo
ResolveDropDownMethod "hasFocus" o = Gtk.Widget.WidgetHasFocusMethodInfo
ResolveDropDownMethod "hasVisibleFocus" o = Gtk.Widget.WidgetHasVisibleFocusMethodInfo
ResolveDropDownMethod "hide" o = Gtk.Widget.WidgetHideMethodInfo
ResolveDropDownMethod "inDestruction" o = Gtk.Widget.WidgetInDestructionMethodInfo
ResolveDropDownMethod "initTemplate" o = Gtk.Widget.WidgetInitTemplateMethodInfo
ResolveDropDownMethod "insertActionGroup" o = Gtk.Widget.WidgetInsertActionGroupMethodInfo
ResolveDropDownMethod "insertAfter" o = Gtk.Widget.WidgetInsertAfterMethodInfo
ResolveDropDownMethod "insertBefore" o = Gtk.Widget.WidgetInsertBeforeMethodInfo
ResolveDropDownMethod "isAncestor" o = Gtk.Widget.WidgetIsAncestorMethodInfo
ResolveDropDownMethod "isDrawable" o = Gtk.Widget.WidgetIsDrawableMethodInfo
ResolveDropDownMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo
ResolveDropDownMethod "isFocus" o = Gtk.Widget.WidgetIsFocusMethodInfo
ResolveDropDownMethod "isSensitive" o = Gtk.Widget.WidgetIsSensitiveMethodInfo
ResolveDropDownMethod "isVisible" o = Gtk.Widget.WidgetIsVisibleMethodInfo
ResolveDropDownMethod "keynavFailed" o = Gtk.Widget.WidgetKeynavFailedMethodInfo
ResolveDropDownMethod "listMnemonicLabels" o = Gtk.Widget.WidgetListMnemonicLabelsMethodInfo
ResolveDropDownMethod "map" o = Gtk.Widget.WidgetMapMethodInfo
ResolveDropDownMethod "measure" o = Gtk.Widget.WidgetMeasureMethodInfo
ResolveDropDownMethod "mnemonicActivate" o = Gtk.Widget.WidgetMnemonicActivateMethodInfo
ResolveDropDownMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
ResolveDropDownMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
ResolveDropDownMethod "observeChildren" o = Gtk.Widget.WidgetObserveChildrenMethodInfo
ResolveDropDownMethod "observeControllers" o = Gtk.Widget.WidgetObserveControllersMethodInfo
ResolveDropDownMethod "pick" o = Gtk.Widget.WidgetPickMethodInfo
ResolveDropDownMethod "queueAllocate" o = Gtk.Widget.WidgetQueueAllocateMethodInfo
ResolveDropDownMethod "queueDraw" o = Gtk.Widget.WidgetQueueDrawMethodInfo
ResolveDropDownMethod "queueResize" o = Gtk.Widget.WidgetQueueResizeMethodInfo
ResolveDropDownMethod "realize" o = Gtk.Widget.WidgetRealizeMethodInfo
ResolveDropDownMethod "ref" o = GObject.Object.ObjectRefMethodInfo
ResolveDropDownMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
ResolveDropDownMethod "removeController" o = Gtk.Widget.WidgetRemoveControllerMethodInfo
ResolveDropDownMethod "removeCssClass" o = Gtk.Widget.WidgetRemoveCssClassMethodInfo
ResolveDropDownMethod "removeMnemonicLabel" o = Gtk.Widget.WidgetRemoveMnemonicLabelMethodInfo
ResolveDropDownMethod "removeTickCallback" o = Gtk.Widget.WidgetRemoveTickCallbackMethodInfo
ResolveDropDownMethod "resetProperty" o = Gtk.Accessible.AccessibleResetPropertyMethodInfo
ResolveDropDownMethod "resetRelation" o = Gtk.Accessible.AccessibleResetRelationMethodInfo
ResolveDropDownMethod "resetState" o = Gtk.Accessible.AccessibleResetStateMethodInfo
ResolveDropDownMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
ResolveDropDownMethod "shouldLayout" o = Gtk.Widget.WidgetShouldLayoutMethodInfo
ResolveDropDownMethod "show" o = Gtk.Widget.WidgetShowMethodInfo
ResolveDropDownMethod "sizeAllocate" o = Gtk.Widget.WidgetSizeAllocateMethodInfo
ResolveDropDownMethod "snapshotChild" o = Gtk.Widget.WidgetSnapshotChildMethodInfo
ResolveDropDownMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
ResolveDropDownMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
ResolveDropDownMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo
ResolveDropDownMethod "translateCoordinates" o = Gtk.Widget.WidgetTranslateCoordinatesMethodInfo
ResolveDropDownMethod "triggerTooltipQuery" o = Gtk.Widget.WidgetTriggerTooltipQueryMethodInfo
ResolveDropDownMethod "unmap" o = Gtk.Widget.WidgetUnmapMethodInfo
ResolveDropDownMethod "unparent" o = Gtk.Widget.WidgetUnparentMethodInfo
ResolveDropDownMethod "unrealize" o = Gtk.Widget.WidgetUnrealizeMethodInfo
ResolveDropDownMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo
ResolveDropDownMethod "unsetStateFlags" o = Gtk.Widget.WidgetUnsetStateFlagsMethodInfo
ResolveDropDownMethod "updateProperty" o = Gtk.Accessible.AccessibleUpdatePropertyMethodInfo
ResolveDropDownMethod "updateRelation" o = Gtk.Accessible.AccessibleUpdateRelationMethodInfo
ResolveDropDownMethod "updateState" o = Gtk.Accessible.AccessibleUpdateStateMethodInfo
ResolveDropDownMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
ResolveDropDownMethod "getAccessibleRole" o = Gtk.Accessible.AccessibleGetAccessibleRoleMethodInfo
ResolveDropDownMethod "getAllocatedBaseline" o = Gtk.Widget.WidgetGetAllocatedBaselineMethodInfo
ResolveDropDownMethod "getAllocatedHeight" o = Gtk.Widget.WidgetGetAllocatedHeightMethodInfo
ResolveDropDownMethod "getAllocatedWidth" o = Gtk.Widget.WidgetGetAllocatedWidthMethodInfo
ResolveDropDownMethod "getAllocation" o = Gtk.Widget.WidgetGetAllocationMethodInfo
ResolveDropDownMethod "getAncestor" o = Gtk.Widget.WidgetGetAncestorMethodInfo
ResolveDropDownMethod "getBuildableId" o = Gtk.Buildable.BuildableGetBuildableIdMethodInfo
ResolveDropDownMethod "getCanFocus" o = Gtk.Widget.WidgetGetCanFocusMethodInfo
ResolveDropDownMethod "getCanTarget" o = Gtk.Widget.WidgetGetCanTargetMethodInfo
ResolveDropDownMethod "getChildVisible" o = Gtk.Widget.WidgetGetChildVisibleMethodInfo
ResolveDropDownMethod "getClipboard" o = Gtk.Widget.WidgetGetClipboardMethodInfo
ResolveDropDownMethod "getCssClasses" o = Gtk.Widget.WidgetGetCssClassesMethodInfo
ResolveDropDownMethod "getCssName" o = Gtk.Widget.WidgetGetCssNameMethodInfo
ResolveDropDownMethod "getCursor" o = Gtk.Widget.WidgetGetCursorMethodInfo
ResolveDropDownMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
ResolveDropDownMethod "getDirection" o = Gtk.Widget.WidgetGetDirectionMethodInfo
ResolveDropDownMethod "getDisplay" o = Gtk.Widget.WidgetGetDisplayMethodInfo
ResolveDropDownMethod "getEnableSearch" o = DropDownGetEnableSearchMethodInfo
ResolveDropDownMethod "getExpression" o = DropDownGetExpressionMethodInfo
ResolveDropDownMethod "getFactory" o = DropDownGetFactoryMethodInfo
ResolveDropDownMethod "getFirstChild" o = Gtk.Widget.WidgetGetFirstChildMethodInfo
ResolveDropDownMethod "getFocusChild" o = Gtk.Widget.WidgetGetFocusChildMethodInfo
ResolveDropDownMethod "getFocusOnClick" o = Gtk.Widget.WidgetGetFocusOnClickMethodInfo
ResolveDropDownMethod "getFocusable" o = Gtk.Widget.WidgetGetFocusableMethodInfo
ResolveDropDownMethod "getFontMap" o = Gtk.Widget.WidgetGetFontMapMethodInfo
ResolveDropDownMethod "getFontOptions" o = Gtk.Widget.WidgetGetFontOptionsMethodInfo
ResolveDropDownMethod "getFrameClock" o = Gtk.Widget.WidgetGetFrameClockMethodInfo
ResolveDropDownMethod "getHalign" o = Gtk.Widget.WidgetGetHalignMethodInfo
ResolveDropDownMethod "getHasTooltip" o = Gtk.Widget.WidgetGetHasTooltipMethodInfo
ResolveDropDownMethod "getHeight" o = Gtk.Widget.WidgetGetHeightMethodInfo
ResolveDropDownMethod "getHexpand" o = Gtk.Widget.WidgetGetHexpandMethodInfo
ResolveDropDownMethod "getHexpandSet" o = Gtk.Widget.WidgetGetHexpandSetMethodInfo
ResolveDropDownMethod "getLastChild" o = Gtk.Widget.WidgetGetLastChildMethodInfo
ResolveDropDownMethod "getLayoutManager" o = Gtk.Widget.WidgetGetLayoutManagerMethodInfo
ResolveDropDownMethod "getListFactory" o = DropDownGetListFactoryMethodInfo
ResolveDropDownMethod "getMapped" o = Gtk.Widget.WidgetGetMappedMethodInfo
ResolveDropDownMethod "getMarginBottom" o = Gtk.Widget.WidgetGetMarginBottomMethodInfo
ResolveDropDownMethod "getMarginEnd" o = Gtk.Widget.WidgetGetMarginEndMethodInfo
ResolveDropDownMethod "getMarginStart" o = Gtk.Widget.WidgetGetMarginStartMethodInfo
ResolveDropDownMethod "getMarginTop" o = Gtk.Widget.WidgetGetMarginTopMethodInfo
ResolveDropDownMethod "getModel" o = DropDownGetModelMethodInfo
ResolveDropDownMethod "getName" o = Gtk.Widget.WidgetGetNameMethodInfo
ResolveDropDownMethod "getNative" o = Gtk.Widget.WidgetGetNativeMethodInfo
ResolveDropDownMethod "getNextSibling" o = Gtk.Widget.WidgetGetNextSiblingMethodInfo
ResolveDropDownMethod "getOpacity" o = Gtk.Widget.WidgetGetOpacityMethodInfo
ResolveDropDownMethod "getOverflow" o = Gtk.Widget.WidgetGetOverflowMethodInfo
ResolveDropDownMethod "getPangoContext" o = Gtk.Widget.WidgetGetPangoContextMethodInfo
ResolveDropDownMethod "getParent" o = Gtk.Widget.WidgetGetParentMethodInfo
ResolveDropDownMethod "getPreferredSize" o = Gtk.Widget.WidgetGetPreferredSizeMethodInfo
ResolveDropDownMethod "getPrevSibling" o = Gtk.Widget.WidgetGetPrevSiblingMethodInfo
ResolveDropDownMethod "getPrimaryClipboard" o = Gtk.Widget.WidgetGetPrimaryClipboardMethodInfo
ResolveDropDownMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo
ResolveDropDownMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo
ResolveDropDownMethod "getRealized" o = Gtk.Widget.WidgetGetRealizedMethodInfo
ResolveDropDownMethod "getReceivesDefault" o = Gtk.Widget.WidgetGetReceivesDefaultMethodInfo
ResolveDropDownMethod "getRequestMode" o = Gtk.Widget.WidgetGetRequestModeMethodInfo
ResolveDropDownMethod "getRoot" o = Gtk.Widget.WidgetGetRootMethodInfo
ResolveDropDownMethod "getScaleFactor" o = Gtk.Widget.WidgetGetScaleFactorMethodInfo
ResolveDropDownMethod "getSelected" o = DropDownGetSelectedMethodInfo
ResolveDropDownMethod "getSelectedItem" o = DropDownGetSelectedItemMethodInfo
ResolveDropDownMethod "getSensitive" o = Gtk.Widget.WidgetGetSensitiveMethodInfo
ResolveDropDownMethod "getSettings" o = Gtk.Widget.WidgetGetSettingsMethodInfo
ResolveDropDownMethod "getShowArrow" o = DropDownGetShowArrowMethodInfo
ResolveDropDownMethod "getSize" o = Gtk.Widget.WidgetGetSizeMethodInfo
ResolveDropDownMethod "getSizeRequest" o = Gtk.Widget.WidgetGetSizeRequestMethodInfo
ResolveDropDownMethod "getStateFlags" o = Gtk.Widget.WidgetGetStateFlagsMethodInfo
ResolveDropDownMethod "getStyleContext" o = Gtk.Widget.WidgetGetStyleContextMethodInfo
ResolveDropDownMethod "getTemplateChild" o = Gtk.Widget.WidgetGetTemplateChildMethodInfo
ResolveDropDownMethod "getTooltipMarkup" o = Gtk.Widget.WidgetGetTooltipMarkupMethodInfo
ResolveDropDownMethod "getTooltipText" o = Gtk.Widget.WidgetGetTooltipTextMethodInfo
ResolveDropDownMethod "getValign" o = Gtk.Widget.WidgetGetValignMethodInfo
ResolveDropDownMethod "getVexpand" o = Gtk.Widget.WidgetGetVexpandMethodInfo
ResolveDropDownMethod "getVexpandSet" o = Gtk.Widget.WidgetGetVexpandSetMethodInfo
ResolveDropDownMethod "getVisible" o = Gtk.Widget.WidgetGetVisibleMethodInfo
ResolveDropDownMethod "getWidth" o = Gtk.Widget.WidgetGetWidthMethodInfo
ResolveDropDownMethod "setCanFocus" o = Gtk.Widget.WidgetSetCanFocusMethodInfo
ResolveDropDownMethod "setCanTarget" o = Gtk.Widget.WidgetSetCanTargetMethodInfo
ResolveDropDownMethod "setChildVisible" o = Gtk.Widget.WidgetSetChildVisibleMethodInfo
ResolveDropDownMethod "setCssClasses" o = Gtk.Widget.WidgetSetCssClassesMethodInfo
ResolveDropDownMethod "setCursor" o = Gtk.Widget.WidgetSetCursorMethodInfo
ResolveDropDownMethod "setCursorFromName" o = Gtk.Widget.WidgetSetCursorFromNameMethodInfo
ResolveDropDownMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
ResolveDropDownMethod "setDataFull" o = GObject.Object.ObjectSetDataFullMethodInfo
ResolveDropDownMethod "setDirection" o = Gtk.Widget.WidgetSetDirectionMethodInfo
ResolveDropDownMethod "setEnableSearch" o = DropDownSetEnableSearchMethodInfo
ResolveDropDownMethod "setExpression" o = DropDownSetExpressionMethodInfo
ResolveDropDownMethod "setFactory" o = DropDownSetFactoryMethodInfo
ResolveDropDownMethod "setFocusChild" o = Gtk.Widget.WidgetSetFocusChildMethodInfo
ResolveDropDownMethod "setFocusOnClick" o = Gtk.Widget.WidgetSetFocusOnClickMethodInfo
ResolveDropDownMethod "setFocusable" o = Gtk.Widget.WidgetSetFocusableMethodInfo
ResolveDropDownMethod "setFontMap" o = Gtk.Widget.WidgetSetFontMapMethodInfo
ResolveDropDownMethod "setFontOptions" o = Gtk.Widget.WidgetSetFontOptionsMethodInfo
ResolveDropDownMethod "setHalign" o = Gtk.Widget.WidgetSetHalignMethodInfo
ResolveDropDownMethod "setHasTooltip" o = Gtk.Widget.WidgetSetHasTooltipMethodInfo
ResolveDropDownMethod "setHexpand" o = Gtk.Widget.WidgetSetHexpandMethodInfo
ResolveDropDownMethod "setHexpandSet" o = Gtk.Widget.WidgetSetHexpandSetMethodInfo
ResolveDropDownMethod "setLayoutManager" o = Gtk.Widget.WidgetSetLayoutManagerMethodInfo
ResolveDropDownMethod "setListFactory" o = DropDownSetListFactoryMethodInfo
ResolveDropDownMethod "setMarginBottom" o = Gtk.Widget.WidgetSetMarginBottomMethodInfo
ResolveDropDownMethod "setMarginEnd" o = Gtk.Widget.WidgetSetMarginEndMethodInfo
ResolveDropDownMethod "setMarginStart" o = Gtk.Widget.WidgetSetMarginStartMethodInfo
ResolveDropDownMethod "setMarginTop" o = Gtk.Widget.WidgetSetMarginTopMethodInfo
ResolveDropDownMethod "setModel" o = DropDownSetModelMethodInfo
ResolveDropDownMethod "setName" o = Gtk.Widget.WidgetSetNameMethodInfo
ResolveDropDownMethod "setOpacity" o = Gtk.Widget.WidgetSetOpacityMethodInfo
ResolveDropDownMethod "setOverflow" o = Gtk.Widget.WidgetSetOverflowMethodInfo
ResolveDropDownMethod "setParent" o = Gtk.Widget.WidgetSetParentMethodInfo
ResolveDropDownMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
ResolveDropDownMethod "setReceivesDefault" o = Gtk.Widget.WidgetSetReceivesDefaultMethodInfo
ResolveDropDownMethod "setSelected" o = DropDownSetSelectedMethodInfo
ResolveDropDownMethod "setSensitive" o = Gtk.Widget.WidgetSetSensitiveMethodInfo
ResolveDropDownMethod "setShowArrow" o = DropDownSetShowArrowMethodInfo
ResolveDropDownMethod "setSizeRequest" o = Gtk.Widget.WidgetSetSizeRequestMethodInfo
ResolveDropDownMethod "setStateFlags" o = Gtk.Widget.WidgetSetStateFlagsMethodInfo
ResolveDropDownMethod "setTooltipMarkup" o = Gtk.Widget.WidgetSetTooltipMarkupMethodInfo
ResolveDropDownMethod "setTooltipText" o = Gtk.Widget.WidgetSetTooltipTextMethodInfo
ResolveDropDownMethod "setValign" o = Gtk.Widget.WidgetSetValignMethodInfo
ResolveDropDownMethod "setVexpand" o = Gtk.Widget.WidgetSetVexpandMethodInfo
ResolveDropDownMethod "setVexpandSet" o = Gtk.Widget.WidgetSetVexpandSetMethodInfo
ResolveDropDownMethod "setVisible" o = Gtk.Widget.WidgetSetVisibleMethodInfo
ResolveDropDownMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveDropDownMethod t DropDown, O.OverloadedMethod info DropDown p) => OL.IsLabel t (DropDown -> 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 ~ ResolveDropDownMethod t DropDown, O.OverloadedMethod info DropDown p, R.HasField t DropDown p) => R.HasField t DropDown p where
getField = O.overloadedMethod @info
#endif
instance (info ~ ResolveDropDownMethod t DropDown, O.OverloadedMethodInfo info DropDown) => OL.IsLabel t (O.MethodProxy info DropDown) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.MethodProxy
#else
fromLabel _ = O.MethodProxy
#endif
#endif
type DropDownActivateCallback =
IO ()
type C_DropDownActivateCallback =
Ptr DropDown ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_DropDownActivateCallback :: C_DropDownActivateCallback -> IO (FunPtr C_DropDownActivateCallback)
wrap_DropDownActivateCallback ::
GObject a => (a -> DropDownActivateCallback) ->
C_DropDownActivateCallback
wrap_DropDownActivateCallback :: forall a. GObject a => (a -> IO ()) -> C_DropDownActivateCallback
wrap_DropDownActivateCallback a -> IO ()
gi'cb Ptr DropDown
gi'selfPtr Ptr ()
_ = do
Ptr DropDown -> (DropDown -> IO ()) -> IO ()
forall a b.
(HasCallStack, ManagedPtrNewtype a) =>
Ptr a -> (a -> IO b) -> IO b
B.ManagedPtr.withTransient Ptr DropDown
gi'selfPtr ((DropDown -> IO ()) -> IO ()) -> (DropDown -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \DropDown
gi'self -> a -> IO ()
gi'cb (DropDown -> a
forall a b. Coercible a b => a -> b
Coerce.coerce DropDown
gi'self)
onDropDownActivate :: (IsDropDown a, MonadIO m) => a -> ((?self :: a) => DropDownActivateCallback) -> m SignalHandlerId
onDropDownActivate :: forall a (m :: * -> *).
(IsDropDown a, MonadIO m) =>
a -> ((?self::a) => IO ()) -> m SignalHandlerId
onDropDownActivate a
obj (?self::a) => IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> IO ()
wrapped a
self = let ?self = a
?self::a
self in IO ()
(?self::a) => IO ()
cb
let wrapped' :: C_DropDownActivateCallback
wrapped' = (a -> IO ()) -> C_DropDownActivateCallback
forall a. GObject a => (a -> IO ()) -> C_DropDownActivateCallback
wrap_DropDownActivateCallback a -> IO ()
wrapped
FunPtr C_DropDownActivateCallback
wrapped'' <- C_DropDownActivateCallback
-> IO (FunPtr C_DropDownActivateCallback)
mk_DropDownActivateCallback C_DropDownActivateCallback
wrapped'
a
-> Text
-> FunPtr C_DropDownActivateCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"activate" FunPtr C_DropDownActivateCallback
wrapped'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterDropDownActivate :: (IsDropDown a, MonadIO m) => a -> ((?self :: a) => DropDownActivateCallback) -> m SignalHandlerId
afterDropDownActivate :: forall a (m :: * -> *).
(IsDropDown a, MonadIO m) =>
a -> ((?self::a) => IO ()) -> m SignalHandlerId
afterDropDownActivate a
obj (?self::a) => IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> IO ()
wrapped a
self = let ?self = a
?self::a
self in IO ()
(?self::a) => IO ()
cb
let wrapped' :: C_DropDownActivateCallback
wrapped' = (a -> IO ()) -> C_DropDownActivateCallback
forall a. GObject a => (a -> IO ()) -> C_DropDownActivateCallback
wrap_DropDownActivateCallback a -> IO ()
wrapped
FunPtr C_DropDownActivateCallback
wrapped'' <- C_DropDownActivateCallback
-> IO (FunPtr C_DropDownActivateCallback)
mk_DropDownActivateCallback C_DropDownActivateCallback
wrapped'
a
-> Text
-> FunPtr C_DropDownActivateCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"activate" FunPtr C_DropDownActivateCallback
wrapped'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data DropDownActivateSignalInfo
instance SignalInfo DropDownActivateSignalInfo where
type HaskellCallbackType DropDownActivateSignalInfo = DropDownActivateCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_DropDownActivateCallback cb
cb'' <- mk_DropDownActivateCallback cb'
connectSignalFunPtr obj "activate" cb'' connectMode detail
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.DropDown::activate"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.6/docs/GI-Gtk-Objects-DropDown.html#g:signal:activate"})
#endif
getDropDownEnableSearch :: (MonadIO m, IsDropDown o) => o -> m Bool
getDropDownEnableSearch :: forall (m :: * -> *) o. (MonadIO m, IsDropDown o) => o -> m Bool
getDropDownEnableSearch o
obj = IO Bool -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj String
"enable-search"
setDropDownEnableSearch :: (MonadIO m, IsDropDown o) => o -> Bool -> m ()
setDropDownEnableSearch :: forall (m :: * -> *) o.
(MonadIO m, IsDropDown o) =>
o -> Bool -> m ()
setDropDownEnableSearch o
obj Bool
val = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj String
"enable-search" Bool
val
constructDropDownEnableSearch :: (IsDropDown o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructDropDownEnableSearch :: forall o (m :: * -> *).
(IsDropDown o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructDropDownEnableSearch Bool
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool String
"enable-search" Bool
val
#if defined(ENABLE_OVERLOADING)
data DropDownEnableSearchPropertyInfo
instance AttrInfo DropDownEnableSearchPropertyInfo where
type AttrAllowedOps DropDownEnableSearchPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint DropDownEnableSearchPropertyInfo = IsDropDown
type AttrSetTypeConstraint DropDownEnableSearchPropertyInfo = (~) Bool
type AttrTransferTypeConstraint DropDownEnableSearchPropertyInfo = (~) Bool
type AttrTransferType DropDownEnableSearchPropertyInfo = Bool
type AttrGetType DropDownEnableSearchPropertyInfo = Bool
type AttrLabel DropDownEnableSearchPropertyInfo = "enable-search"
type AttrOrigin DropDownEnableSearchPropertyInfo = DropDown
attrGet = getDropDownEnableSearch
attrSet = setDropDownEnableSearch
attrTransfer _ v = do
return v
attrConstruct = constructDropDownEnableSearch
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.DropDown.enableSearch"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.6/docs/GI-Gtk-Objects-DropDown.html#g:attr:enableSearch"
})
#endif
getDropDownExpression :: (MonadIO m, IsDropDown o) => o -> m (Maybe Gtk.Expression.Expression)
getDropDownExpression :: forall (m :: * -> *) o.
(MonadIO m, IsDropDown o) =>
o -> m (Maybe Expression)
getDropDownExpression o
obj = IO (Maybe Expression) -> m (Maybe Expression)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (Maybe Expression) -> m (Maybe Expression))
-> IO (Maybe Expression) -> m (Maybe Expression)
forall a b. (a -> b) -> a -> b
$ o -> String -> IO (Maybe Expression)
forall a b. (GObject a, IsGValue b) => a -> String -> IO b
B.Properties.getObjectPropertyIsGValueInstance o
obj String
"expression"
setDropDownExpression :: (MonadIO m, IsDropDown o, Gtk.Expression.IsExpression a) => o -> a -> m ()
setDropDownExpression :: forall (m :: * -> *) o a.
(MonadIO m, IsDropDown o, IsExpression a) =>
o -> a -> m ()
setDropDownExpression 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
Expression
val' <- a -> IO Expression
forall (m :: * -> *) o.
(MonadIO m, IsExpression o) =>
o -> m Expression
Gtk.Expression.toExpression a
val
o -> String -> Maybe Expression -> IO ()
forall a b. (GObject a, IsGValue b) => a -> String -> b -> IO ()
B.Properties.setObjectPropertyIsGValueInstance o
obj String
"expression" (Expression -> Maybe Expression
forall a. a -> Maybe a
Just Expression
val')
constructDropDownExpression :: (IsDropDown o, MIO.MonadIO m, Gtk.Expression.IsExpression a) => a -> m (GValueConstruct o)
constructDropDownExpression :: forall o (m :: * -> *) a.
(IsDropDown o, MonadIO m, IsExpression a) =>
a -> m (GValueConstruct o)
constructDropDownExpression 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
Expression
val' <- a -> IO Expression
forall (m :: * -> *) o.
(MonadIO m, IsExpression o) =>
o -> m Expression
Gtk.Expression.toExpression a
val
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 Expression -> IO (GValueConstruct o)
forall b o. IsGValue b => String -> b -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyIsGValueInstance String
"expression" (Expression -> Maybe Expression
forall a. a -> Maybe a
P.Just Expression
val')
clearDropDownExpression :: (MonadIO m, IsDropDown o) => o -> m ()
clearDropDownExpression :: forall (m :: * -> *) o. (MonadIO m, IsDropDown o) => o -> m ()
clearDropDownExpression 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 Expression -> IO ()
forall a b. (GObject a, IsGValue b) => a -> String -> b -> IO ()
B.Properties.setObjectPropertyIsGValueInstance o
obj String
"expression" (Maybe Expression
forall a. Maybe a
Nothing :: Maybe Gtk.Expression.Expression)
#if defined(ENABLE_OVERLOADING)
data DropDownExpressionPropertyInfo
instance AttrInfo DropDownExpressionPropertyInfo where
type AttrAllowedOps DropDownExpressionPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint DropDownExpressionPropertyInfo = IsDropDown
type AttrSetTypeConstraint DropDownExpressionPropertyInfo = (~) Gtk.Expression.Expression
type AttrTransferTypeConstraint DropDownExpressionPropertyInfo = (~) Gtk.Expression.Expression
type AttrTransferType DropDownExpressionPropertyInfo = Gtk.Expression.Expression
type AttrGetType DropDownExpressionPropertyInfo = (Maybe Gtk.Expression.Expression)
type AttrLabel DropDownExpressionPropertyInfo = "expression"
type AttrOrigin DropDownExpressionPropertyInfo = DropDown
attrGet = getDropDownExpression
attrSet = setDropDownExpression
attrTransfer _ v = do
return v
attrConstruct = constructDropDownExpression
attrClear = clearDropDownExpression
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.DropDown.expression"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.6/docs/GI-Gtk-Objects-DropDown.html#g:attr:expression"
})
#endif
getDropDownFactory :: (MonadIO m, IsDropDown o) => o -> m (Maybe Gtk.ListItemFactory.ListItemFactory)
getDropDownFactory :: forall (m :: * -> *) o.
(MonadIO m, IsDropDown o) =>
o -> m (Maybe ListItemFactory)
getDropDownFactory o
obj = IO (Maybe ListItemFactory) -> m (Maybe ListItemFactory)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (Maybe ListItemFactory) -> m (Maybe ListItemFactory))
-> IO (Maybe ListItemFactory) -> m (Maybe ListItemFactory)
forall a b. (a -> b) -> a -> b
$ o
-> String
-> (ManagedPtr ListItemFactory -> ListItemFactory)
-> IO (Maybe ListItemFactory)
forall a b.
(GObject a, GObject b) =>
a -> String -> (ManagedPtr b -> b) -> IO (Maybe b)
B.Properties.getObjectPropertyObject o
obj String
"factory" ManagedPtr ListItemFactory -> ListItemFactory
Gtk.ListItemFactory.ListItemFactory
setDropDownFactory :: (MonadIO m, IsDropDown o, Gtk.ListItemFactory.IsListItemFactory a) => o -> a -> m ()
setDropDownFactory :: forall (m :: * -> *) o a.
(MonadIO m, IsDropDown o, IsListItemFactory a) =>
o -> a -> m ()
setDropDownFactory 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
"factory" (a -> Maybe a
forall a. a -> Maybe a
Just a
val)
constructDropDownFactory :: (IsDropDown o, MIO.MonadIO m, Gtk.ListItemFactory.IsListItemFactory a) => a -> m (GValueConstruct o)
constructDropDownFactory :: forall o (m :: * -> *) a.
(IsDropDown o, MonadIO m, IsListItemFactory a) =>
a -> m (GValueConstruct o)
constructDropDownFactory 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
"factory" (a -> Maybe a
forall a. a -> Maybe a
P.Just a
val)
clearDropDownFactory :: (MonadIO m, IsDropDown o) => o -> m ()
clearDropDownFactory :: forall (m :: * -> *) o. (MonadIO m, IsDropDown o) => o -> m ()
clearDropDownFactory 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 ListItemFactory -> IO ()
forall a b.
(GObject a, GObject b) =>
a -> String -> Maybe b -> IO ()
B.Properties.setObjectPropertyObject o
obj String
"factory" (Maybe ListItemFactory
forall a. Maybe a
Nothing :: Maybe Gtk.ListItemFactory.ListItemFactory)
#if defined(ENABLE_OVERLOADING)
data DropDownFactoryPropertyInfo
instance AttrInfo DropDownFactoryPropertyInfo where
type AttrAllowedOps DropDownFactoryPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint DropDownFactoryPropertyInfo = IsDropDown
type AttrSetTypeConstraint DropDownFactoryPropertyInfo = Gtk.ListItemFactory.IsListItemFactory
type AttrTransferTypeConstraint DropDownFactoryPropertyInfo = Gtk.ListItemFactory.IsListItemFactory
type AttrTransferType DropDownFactoryPropertyInfo = Gtk.ListItemFactory.ListItemFactory
type AttrGetType DropDownFactoryPropertyInfo = (Maybe Gtk.ListItemFactory.ListItemFactory)
type AttrLabel DropDownFactoryPropertyInfo = "factory"
type AttrOrigin DropDownFactoryPropertyInfo = DropDown
attrGet = getDropDownFactory
attrSet = setDropDownFactory
attrTransfer _ v = do
unsafeCastTo Gtk.ListItemFactory.ListItemFactory v
attrConstruct = constructDropDownFactory
attrClear = clearDropDownFactory
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.DropDown.factory"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.6/docs/GI-Gtk-Objects-DropDown.html#g:attr:factory"
})
#endif
getDropDownListFactory :: (MonadIO m, IsDropDown o) => o -> m (Maybe Gtk.ListItemFactory.ListItemFactory)
getDropDownListFactory :: forall (m :: * -> *) o.
(MonadIO m, IsDropDown o) =>
o -> m (Maybe ListItemFactory)
getDropDownListFactory o
obj = IO (Maybe ListItemFactory) -> m (Maybe ListItemFactory)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (Maybe ListItemFactory) -> m (Maybe ListItemFactory))
-> IO (Maybe ListItemFactory) -> m (Maybe ListItemFactory)
forall a b. (a -> b) -> a -> b
$ o
-> String
-> (ManagedPtr ListItemFactory -> ListItemFactory)
-> IO (Maybe ListItemFactory)
forall a b.
(GObject a, GObject b) =>
a -> String -> (ManagedPtr b -> b) -> IO (Maybe b)
B.Properties.getObjectPropertyObject o
obj String
"list-factory" ManagedPtr ListItemFactory -> ListItemFactory
Gtk.ListItemFactory.ListItemFactory
setDropDownListFactory :: (MonadIO m, IsDropDown o, Gtk.ListItemFactory.IsListItemFactory a) => o -> a -> m ()
setDropDownListFactory :: forall (m :: * -> *) o a.
(MonadIO m, IsDropDown o, IsListItemFactory a) =>
o -> a -> m ()
setDropDownListFactory 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
"list-factory" (a -> Maybe a
forall a. a -> Maybe a
Just a
val)
constructDropDownListFactory :: (IsDropDown o, MIO.MonadIO m, Gtk.ListItemFactory.IsListItemFactory a) => a -> m (GValueConstruct o)
constructDropDownListFactory :: forall o (m :: * -> *) a.
(IsDropDown o, MonadIO m, IsListItemFactory a) =>
a -> m (GValueConstruct o)
constructDropDownListFactory 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
"list-factory" (a -> Maybe a
forall a. a -> Maybe a
P.Just a
val)
clearDropDownListFactory :: (MonadIO m, IsDropDown o) => o -> m ()
clearDropDownListFactory :: forall (m :: * -> *) o. (MonadIO m, IsDropDown o) => o -> m ()
clearDropDownListFactory 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 ListItemFactory -> IO ()
forall a b.
(GObject a, GObject b) =>
a -> String -> Maybe b -> IO ()
B.Properties.setObjectPropertyObject o
obj String
"list-factory" (Maybe ListItemFactory
forall a. Maybe a
Nothing :: Maybe Gtk.ListItemFactory.ListItemFactory)
#if defined(ENABLE_OVERLOADING)
data DropDownListFactoryPropertyInfo
instance AttrInfo DropDownListFactoryPropertyInfo where
type AttrAllowedOps DropDownListFactoryPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint DropDownListFactoryPropertyInfo = IsDropDown
type AttrSetTypeConstraint DropDownListFactoryPropertyInfo = Gtk.ListItemFactory.IsListItemFactory
type AttrTransferTypeConstraint DropDownListFactoryPropertyInfo = Gtk.ListItemFactory.IsListItemFactory
type AttrTransferType DropDownListFactoryPropertyInfo = Gtk.ListItemFactory.ListItemFactory
type AttrGetType DropDownListFactoryPropertyInfo = (Maybe Gtk.ListItemFactory.ListItemFactory)
type AttrLabel DropDownListFactoryPropertyInfo = "list-factory"
type AttrOrigin DropDownListFactoryPropertyInfo = DropDown
attrGet = getDropDownListFactory
attrSet = setDropDownListFactory
attrTransfer _ v = do
unsafeCastTo Gtk.ListItemFactory.ListItemFactory v
attrConstruct = constructDropDownListFactory
attrClear = clearDropDownListFactory
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.DropDown.listFactory"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.6/docs/GI-Gtk-Objects-DropDown.html#g:attr:listFactory"
})
#endif
getDropDownModel :: (MonadIO m, IsDropDown o) => o -> m (Maybe Gio.ListModel.ListModel)
getDropDownModel :: forall (m :: * -> *) o.
(MonadIO m, IsDropDown o) =>
o -> m (Maybe ListModel)
getDropDownModel o
obj = IO (Maybe ListModel) -> m (Maybe ListModel)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (Maybe ListModel) -> m (Maybe ListModel))
-> IO (Maybe ListModel) -> m (Maybe ListModel)
forall a b. (a -> b) -> a -> b
$ o
-> String
-> (ManagedPtr ListModel -> ListModel)
-> IO (Maybe ListModel)
forall a b.
(GObject a, GObject b) =>
a -> String -> (ManagedPtr b -> b) -> IO (Maybe b)
B.Properties.getObjectPropertyObject o
obj String
"model" ManagedPtr ListModel -> ListModel
Gio.ListModel.ListModel
setDropDownModel :: (MonadIO m, IsDropDown o, Gio.ListModel.IsListModel a) => o -> a -> m ()
setDropDownModel :: forall (m :: * -> *) o a.
(MonadIO m, IsDropDown o, IsListModel a) =>
o -> a -> m ()
setDropDownModel 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
"model" (a -> Maybe a
forall a. a -> Maybe a
Just a
val)
constructDropDownModel :: (IsDropDown o, MIO.MonadIO m, Gio.ListModel.IsListModel a) => a -> m (GValueConstruct o)
constructDropDownModel :: forall o (m :: * -> *) a.
(IsDropDown o, MonadIO m, IsListModel a) =>
a -> m (GValueConstruct o)
constructDropDownModel 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
"model" (a -> Maybe a
forall a. a -> Maybe a
P.Just a
val)
clearDropDownModel :: (MonadIO m, IsDropDown o) => o -> m ()
clearDropDownModel :: forall (m :: * -> *) o. (MonadIO m, IsDropDown o) => o -> m ()
clearDropDownModel 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 ListModel -> IO ()
forall a b.
(GObject a, GObject b) =>
a -> String -> Maybe b -> IO ()
B.Properties.setObjectPropertyObject o
obj String
"model" (Maybe ListModel
forall a. Maybe a
Nothing :: Maybe Gio.ListModel.ListModel)
#if defined(ENABLE_OVERLOADING)
data DropDownModelPropertyInfo
instance AttrInfo DropDownModelPropertyInfo where
type AttrAllowedOps DropDownModelPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint DropDownModelPropertyInfo = IsDropDown
type AttrSetTypeConstraint DropDownModelPropertyInfo = Gio.ListModel.IsListModel
type AttrTransferTypeConstraint DropDownModelPropertyInfo = Gio.ListModel.IsListModel
type AttrTransferType DropDownModelPropertyInfo = Gio.ListModel.ListModel
type AttrGetType DropDownModelPropertyInfo = (Maybe Gio.ListModel.ListModel)
type AttrLabel DropDownModelPropertyInfo = "model"
type AttrOrigin DropDownModelPropertyInfo = DropDown
attrGet = getDropDownModel
attrSet = setDropDownModel
attrTransfer _ v = do
unsafeCastTo Gio.ListModel.ListModel v
attrConstruct = constructDropDownModel
attrClear = clearDropDownModel
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.DropDown.model"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.6/docs/GI-Gtk-Objects-DropDown.html#g:attr:model"
})
#endif
getDropDownSelected :: (MonadIO m, IsDropDown o) => o -> m Word32
getDropDownSelected :: forall (m :: * -> *) o. (MonadIO m, IsDropDown o) => o -> m Word32
getDropDownSelected o
obj = IO Word32 -> m Word32
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Word32 -> m Word32) -> IO Word32 -> m Word32
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Word32
forall a. GObject a => a -> String -> IO Word32
B.Properties.getObjectPropertyUInt32 o
obj String
"selected"
setDropDownSelected :: (MonadIO m, IsDropDown o) => o -> Word32 -> m ()
setDropDownSelected :: forall (m :: * -> *) o.
(MonadIO m, IsDropDown o) =>
o -> Word32 -> m ()
setDropDownSelected o
obj Word32
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 -> Word32 -> IO ()
forall a. GObject a => a -> String -> Word32 -> IO ()
B.Properties.setObjectPropertyUInt32 o
obj String
"selected" Word32
val
constructDropDownSelected :: (IsDropDown o, MIO.MonadIO m) => Word32 -> m (GValueConstruct o)
constructDropDownSelected :: forall o (m :: * -> *).
(IsDropDown o, MonadIO m) =>
Word32 -> m (GValueConstruct o)
constructDropDownSelected Word32
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 -> Word32 -> IO (GValueConstruct o)
forall o. String -> Word32 -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyUInt32 String
"selected" Word32
val
#if defined(ENABLE_OVERLOADING)
data DropDownSelectedPropertyInfo
instance AttrInfo DropDownSelectedPropertyInfo where
type AttrAllowedOps DropDownSelectedPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint DropDownSelectedPropertyInfo = IsDropDown
type AttrSetTypeConstraint DropDownSelectedPropertyInfo = (~) Word32
type AttrTransferTypeConstraint DropDownSelectedPropertyInfo = (~) Word32
type AttrTransferType DropDownSelectedPropertyInfo = Word32
type AttrGetType DropDownSelectedPropertyInfo = Word32
type AttrLabel DropDownSelectedPropertyInfo = "selected"
type AttrOrigin DropDownSelectedPropertyInfo = DropDown
attrGet = getDropDownSelected
attrSet = setDropDownSelected
attrTransfer _ v = do
return v
attrConstruct = constructDropDownSelected
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.DropDown.selected"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.6/docs/GI-Gtk-Objects-DropDown.html#g:attr:selected"
})
#endif
getDropDownSelectedItem :: (MonadIO m, IsDropDown o) => o -> m (Maybe GObject.Object.Object)
getDropDownSelectedItem :: forall (m :: * -> *) o.
(MonadIO m, IsDropDown o) =>
o -> m (Maybe Object)
getDropDownSelectedItem o
obj = IO (Maybe Object) -> m (Maybe Object)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (Maybe Object) -> m (Maybe Object))
-> IO (Maybe Object) -> m (Maybe Object)
forall a b. (a -> b) -> a -> b
$ o -> String -> (ManagedPtr Object -> Object) -> IO (Maybe Object)
forall a b.
(GObject a, GObject b) =>
a -> String -> (ManagedPtr b -> b) -> IO (Maybe b)
B.Properties.getObjectPropertyObject o
obj String
"selected-item" ManagedPtr Object -> Object
GObject.Object.Object
#if defined(ENABLE_OVERLOADING)
data DropDownSelectedItemPropertyInfo
instance AttrInfo DropDownSelectedItemPropertyInfo where
type AttrAllowedOps DropDownSelectedItemPropertyInfo = '[ 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint DropDownSelectedItemPropertyInfo = IsDropDown
type AttrSetTypeConstraint DropDownSelectedItemPropertyInfo = (~) ()
type AttrTransferTypeConstraint DropDownSelectedItemPropertyInfo = (~) ()
type AttrTransferType DropDownSelectedItemPropertyInfo = ()
type AttrGetType DropDownSelectedItemPropertyInfo = (Maybe GObject.Object.Object)
type AttrLabel DropDownSelectedItemPropertyInfo = "selected-item"
type AttrOrigin DropDownSelectedItemPropertyInfo = DropDown
attrGet = getDropDownSelectedItem
attrSet = undefined
attrTransfer _ = undefined
attrConstruct = undefined
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.DropDown.selectedItem"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.6/docs/GI-Gtk-Objects-DropDown.html#g:attr:selectedItem"
})
#endif
getDropDownShowArrow :: (MonadIO m, IsDropDown o) => o -> m Bool
getDropDownShowArrow :: forall (m :: * -> *) o. (MonadIO m, IsDropDown o) => o -> m Bool
getDropDownShowArrow 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-arrow"
setDropDownShowArrow :: (MonadIO m, IsDropDown o) => o -> Bool -> m ()
setDropDownShowArrow :: forall (m :: * -> *) o.
(MonadIO m, IsDropDown o) =>
o -> Bool -> m ()
setDropDownShowArrow 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-arrow" Bool
val
constructDropDownShowArrow :: (IsDropDown o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructDropDownShowArrow :: forall o (m :: * -> *).
(IsDropDown o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructDropDownShowArrow 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-arrow" Bool
val
#if defined(ENABLE_OVERLOADING)
data DropDownShowArrowPropertyInfo
instance AttrInfo DropDownShowArrowPropertyInfo where
type AttrAllowedOps DropDownShowArrowPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint DropDownShowArrowPropertyInfo = IsDropDown
type AttrSetTypeConstraint DropDownShowArrowPropertyInfo = (~) Bool
type AttrTransferTypeConstraint DropDownShowArrowPropertyInfo = (~) Bool
type AttrTransferType DropDownShowArrowPropertyInfo = Bool
type AttrGetType DropDownShowArrowPropertyInfo = Bool
type AttrLabel DropDownShowArrowPropertyInfo = "show-arrow"
type AttrOrigin DropDownShowArrowPropertyInfo = DropDown
attrGet = getDropDownShowArrow
attrSet = setDropDownShowArrow
attrTransfer _ v = do
return v
attrConstruct = constructDropDownShowArrow
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.DropDown.showArrow"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.6/docs/GI-Gtk-Objects-DropDown.html#g:attr:showArrow"
})
#endif
#if defined(ENABLE_OVERLOADING)
instance O.HasAttributeList DropDown
type instance O.AttributeList DropDown = DropDownAttributeList
type DropDownAttributeList = ('[ '("accessibleRole", Gtk.Accessible.AccessibleAccessibleRolePropertyInfo), '("canFocus", Gtk.Widget.WidgetCanFocusPropertyInfo), '("canTarget", Gtk.Widget.WidgetCanTargetPropertyInfo), '("cssClasses", Gtk.Widget.WidgetCssClassesPropertyInfo), '("cssName", Gtk.Widget.WidgetCssNamePropertyInfo), '("cursor", Gtk.Widget.WidgetCursorPropertyInfo), '("enableSearch", DropDownEnableSearchPropertyInfo), '("expression", DropDownExpressionPropertyInfo), '("factory", DropDownFactoryPropertyInfo), '("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), '("listFactory", DropDownListFactoryPropertyInfo), '("marginBottom", Gtk.Widget.WidgetMarginBottomPropertyInfo), '("marginEnd", Gtk.Widget.WidgetMarginEndPropertyInfo), '("marginStart", Gtk.Widget.WidgetMarginStartPropertyInfo), '("marginTop", Gtk.Widget.WidgetMarginTopPropertyInfo), '("model", DropDownModelPropertyInfo), '("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), '("selected", DropDownSelectedPropertyInfo), '("selectedItem", DropDownSelectedItemPropertyInfo), '("sensitive", Gtk.Widget.WidgetSensitivePropertyInfo), '("showArrow", DropDownShowArrowPropertyInfo), '("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)
dropDownEnableSearch :: AttrLabelProxy "enableSearch"
dropDownEnableSearch = AttrLabelProxy
dropDownExpression :: AttrLabelProxy "expression"
dropDownExpression = AttrLabelProxy
dropDownFactory :: AttrLabelProxy "factory"
dropDownFactory = AttrLabelProxy
dropDownListFactory :: AttrLabelProxy "listFactory"
dropDownListFactory = AttrLabelProxy
dropDownModel :: AttrLabelProxy "model"
dropDownModel = AttrLabelProxy
dropDownSelected :: AttrLabelProxy "selected"
dropDownSelected = AttrLabelProxy
dropDownSelectedItem :: AttrLabelProxy "selectedItem"
dropDownSelectedItem = AttrLabelProxy
dropDownShowArrow :: AttrLabelProxy "showArrow"
dropDownShowArrow = AttrLabelProxy
#endif
#if defined(ENABLE_OVERLOADING)
type instance O.SignalList DropDown = DropDownSignalList
type DropDownSignalList = ('[ '("activate", DropDownActivateSignalInfo), '("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 "gtk_drop_down_new" gtk_drop_down_new ::
Ptr Gio.ListModel.ListModel ->
Ptr Gtk.Expression.Expression ->
IO (Ptr DropDown)
dropDownNew ::
(B.CallStack.HasCallStack, MonadIO m, Gio.ListModel.IsListModel a, Gtk.Expression.IsExpression b) =>
Maybe (a)
-> Maybe (b)
-> m DropDown
dropDownNew :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsListModel a, IsExpression b) =>
Maybe a -> Maybe b -> m DropDown
dropDownNew Maybe a
model Maybe b
expression = IO DropDown -> m DropDown
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO DropDown -> m DropDown) -> IO DropDown -> m DropDown
forall a b. (a -> b) -> a -> b
$ do
Ptr ListModel
maybeModel <- case Maybe a
model of
Maybe a
Nothing -> Ptr ListModel -> IO (Ptr ListModel)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr ListModel
forall a. Ptr a
nullPtr
Just a
jModel -> do
Ptr ListModel
jModel' <- a -> IO (Ptr ListModel)
forall a b. (HasCallStack, GObject a) => a -> IO (Ptr b)
B.ManagedPtr.disownObject a
jModel
Ptr ListModel -> IO (Ptr ListModel)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr ListModel
jModel'
Ptr Expression
maybeExpression <- case Maybe b
expression of
Maybe b
Nothing -> Ptr Expression -> IO (Ptr Expression)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Expression
forall a. Ptr a
nullPtr
Just b
jExpression -> do
Ptr Expression
jExpression' <- b -> IO (Ptr Expression)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
B.ManagedPtr.disownManagedPtr b
jExpression
Ptr Expression -> IO (Ptr Expression)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Expression
jExpression'
Ptr DropDown
result <- Ptr ListModel -> Ptr Expression -> IO (Ptr DropDown)
gtk_drop_down_new Ptr ListModel
maybeModel Ptr Expression
maybeExpression
Text -> Ptr DropDown -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"dropDownNew" Ptr DropDown
result
DropDown
result' <- ((ManagedPtr DropDown -> DropDown) -> Ptr DropDown -> IO DropDown
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr DropDown -> DropDown
DropDown) Ptr DropDown
result
Maybe a -> (a -> IO ()) -> IO ()
forall (m :: * -> *) a. Monad m => Maybe a -> (a -> m ()) -> m ()
whenJust Maybe a
model a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr
Maybe b -> (b -> IO ()) -> IO ()
forall (m :: * -> *) a. Monad m => Maybe a -> (a -> m ()) -> m ()
whenJust Maybe b
expression b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr
DropDown -> IO DropDown
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return DropDown
result'
#if defined(ENABLE_OVERLOADING)
#endif
foreign import ccall "gtk_drop_down_new_from_strings" gtk_drop_down_new_from_strings ::
Ptr CString ->
IO (Ptr DropDown)
dropDownNewFromStrings ::
(B.CallStack.HasCallStack, MonadIO m) =>
[T.Text]
-> m DropDown
dropDownNewFromStrings :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
[Text] -> m DropDown
dropDownNewFromStrings [Text]
strings = IO DropDown -> m DropDown
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO DropDown -> m DropDown) -> IO DropDown -> m DropDown
forall a b. (a -> b) -> a -> b
$ do
Ptr CString
strings' <- [Text] -> IO (Ptr CString)
packZeroTerminatedUTF8CArray [Text]
strings
Ptr DropDown
result <- Ptr CString -> IO (Ptr DropDown)
gtk_drop_down_new_from_strings Ptr CString
strings'
Text -> Ptr DropDown -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"dropDownNewFromStrings" Ptr DropDown
result
DropDown
result' <- ((ManagedPtr DropDown -> DropDown) -> Ptr DropDown -> IO DropDown
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr DropDown -> DropDown
DropDown) Ptr DropDown
result
(CString -> IO ()) -> Ptr CString -> IO ()
forall a b. (Ptr a -> IO b) -> Ptr (Ptr a) -> IO ()
mapZeroTerminatedCArray CString -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr CString
strings'
Ptr CString -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr CString
strings'
DropDown -> IO DropDown
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return DropDown
result'
#if defined(ENABLE_OVERLOADING)
#endif
foreign import ccall "gtk_drop_down_get_enable_search" gtk_drop_down_get_enable_search ::
Ptr DropDown ->
IO CInt
dropDownGetEnableSearch ::
(B.CallStack.HasCallStack, MonadIO m, IsDropDown a) =>
a
-> m Bool
dropDownGetEnableSearch :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDropDown a) =>
a -> m Bool
dropDownGetEnableSearch 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 DropDown
self' <- a -> IO (Ptr DropDown)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CInt
result <- Ptr DropDown -> IO CInt
gtk_drop_down_get_enable_search Ptr DropDown
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 DropDownGetEnableSearchMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsDropDown a) => O.OverloadedMethod DropDownGetEnableSearchMethodInfo a signature where
overloadedMethod = dropDownGetEnableSearch
instance O.OverloadedMethodInfo DropDownGetEnableSearchMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.DropDown.dropDownGetEnableSearch",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.6/docs/GI-Gtk-Objects-DropDown.html#v:dropDownGetEnableSearch"
})
#endif
foreign import ccall "gtk_drop_down_get_expression" gtk_drop_down_get_expression ::
Ptr DropDown ->
IO (Ptr Gtk.Expression.Expression)
dropDownGetExpression ::
(B.CallStack.HasCallStack, MonadIO m, IsDropDown a) =>
a
-> m (Maybe Gtk.Expression.Expression)
dropDownGetExpression :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDropDown a) =>
a -> m (Maybe Expression)
dropDownGetExpression a
self = IO (Maybe Expression) -> m (Maybe Expression)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe Expression) -> m (Maybe Expression))
-> IO (Maybe Expression) -> m (Maybe Expression)
forall a b. (a -> b) -> a -> b
$ do
Ptr DropDown
self' <- a -> IO (Ptr DropDown)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr Expression
result <- Ptr DropDown -> IO (Ptr Expression)
gtk_drop_down_get_expression Ptr DropDown
self'
Maybe Expression
maybeResult <- Ptr Expression
-> (Ptr Expression -> IO Expression) -> IO (Maybe Expression)
forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
convertIfNonNull Ptr Expression
result ((Ptr Expression -> IO Expression) -> IO (Maybe Expression))
-> (Ptr Expression -> IO Expression) -> IO (Maybe Expression)
forall a b. (a -> b) -> a -> b
$ \Ptr Expression
result' -> do
Expression
result'' <- ((ManagedPtr Expression -> Expression)
-> Ptr Expression -> IO Expression
forall a.
(HasCallStack, BoxedPtr a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
newPtr ManagedPtr Expression -> Expression
Gtk.Expression.Expression) Ptr Expression
result'
Expression -> IO Expression
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Expression
result''
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
Maybe Expression -> IO (Maybe Expression)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe Expression
maybeResult
#if defined(ENABLE_OVERLOADING)
data DropDownGetExpressionMethodInfo
instance (signature ~ (m (Maybe Gtk.Expression.Expression)), MonadIO m, IsDropDown a) => O.OverloadedMethod DropDownGetExpressionMethodInfo a signature where
overloadedMethod = dropDownGetExpression
instance O.OverloadedMethodInfo DropDownGetExpressionMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.DropDown.dropDownGetExpression",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.6/docs/GI-Gtk-Objects-DropDown.html#v:dropDownGetExpression"
})
#endif
foreign import ccall "gtk_drop_down_get_factory" gtk_drop_down_get_factory ::
Ptr DropDown ->
IO (Ptr Gtk.ListItemFactory.ListItemFactory)
dropDownGetFactory ::
(B.CallStack.HasCallStack, MonadIO m, IsDropDown a) =>
a
-> m (Maybe Gtk.ListItemFactory.ListItemFactory)
dropDownGetFactory :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDropDown a) =>
a -> m (Maybe ListItemFactory)
dropDownGetFactory a
self = IO (Maybe ListItemFactory) -> m (Maybe ListItemFactory)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe ListItemFactory) -> m (Maybe ListItemFactory))
-> IO (Maybe ListItemFactory) -> m (Maybe ListItemFactory)
forall a b. (a -> b) -> a -> b
$ do
Ptr DropDown
self' <- a -> IO (Ptr DropDown)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr ListItemFactory
result <- Ptr DropDown -> IO (Ptr ListItemFactory)
gtk_drop_down_get_factory Ptr DropDown
self'
Maybe ListItemFactory
maybeResult <- Ptr ListItemFactory
-> (Ptr ListItemFactory -> IO ListItemFactory)
-> IO (Maybe ListItemFactory)
forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
convertIfNonNull Ptr ListItemFactory
result ((Ptr ListItemFactory -> IO ListItemFactory)
-> IO (Maybe ListItemFactory))
-> (Ptr ListItemFactory -> IO ListItemFactory)
-> IO (Maybe ListItemFactory)
forall a b. (a -> b) -> a -> b
$ \Ptr ListItemFactory
result' -> do
ListItemFactory
result'' <- ((ManagedPtr ListItemFactory -> ListItemFactory)
-> Ptr ListItemFactory -> IO ListItemFactory
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr ListItemFactory -> ListItemFactory
Gtk.ListItemFactory.ListItemFactory) Ptr ListItemFactory
result'
ListItemFactory -> IO ListItemFactory
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ListItemFactory
result''
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
Maybe ListItemFactory -> IO (Maybe ListItemFactory)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe ListItemFactory
maybeResult
#if defined(ENABLE_OVERLOADING)
data DropDownGetFactoryMethodInfo
instance (signature ~ (m (Maybe Gtk.ListItemFactory.ListItemFactory)), MonadIO m, IsDropDown a) => O.OverloadedMethod DropDownGetFactoryMethodInfo a signature where
overloadedMethod = dropDownGetFactory
instance O.OverloadedMethodInfo DropDownGetFactoryMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.DropDown.dropDownGetFactory",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.6/docs/GI-Gtk-Objects-DropDown.html#v:dropDownGetFactory"
})
#endif
foreign import ccall "gtk_drop_down_get_list_factory" gtk_drop_down_get_list_factory ::
Ptr DropDown ->
IO (Ptr Gtk.ListItemFactory.ListItemFactory)
dropDownGetListFactory ::
(B.CallStack.HasCallStack, MonadIO m, IsDropDown a) =>
a
-> m (Maybe Gtk.ListItemFactory.ListItemFactory)
dropDownGetListFactory :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDropDown a) =>
a -> m (Maybe ListItemFactory)
dropDownGetListFactory a
self = IO (Maybe ListItemFactory) -> m (Maybe ListItemFactory)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe ListItemFactory) -> m (Maybe ListItemFactory))
-> IO (Maybe ListItemFactory) -> m (Maybe ListItemFactory)
forall a b. (a -> b) -> a -> b
$ do
Ptr DropDown
self' <- a -> IO (Ptr DropDown)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr ListItemFactory
result <- Ptr DropDown -> IO (Ptr ListItemFactory)
gtk_drop_down_get_list_factory Ptr DropDown
self'
Maybe ListItemFactory
maybeResult <- Ptr ListItemFactory
-> (Ptr ListItemFactory -> IO ListItemFactory)
-> IO (Maybe ListItemFactory)
forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
convertIfNonNull Ptr ListItemFactory
result ((Ptr ListItemFactory -> IO ListItemFactory)
-> IO (Maybe ListItemFactory))
-> (Ptr ListItemFactory -> IO ListItemFactory)
-> IO (Maybe ListItemFactory)
forall a b. (a -> b) -> a -> b
$ \Ptr ListItemFactory
result' -> do
ListItemFactory
result'' <- ((ManagedPtr ListItemFactory -> ListItemFactory)
-> Ptr ListItemFactory -> IO ListItemFactory
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr ListItemFactory -> ListItemFactory
Gtk.ListItemFactory.ListItemFactory) Ptr ListItemFactory
result'
ListItemFactory -> IO ListItemFactory
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ListItemFactory
result''
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
Maybe ListItemFactory -> IO (Maybe ListItemFactory)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe ListItemFactory
maybeResult
#if defined(ENABLE_OVERLOADING)
data DropDownGetListFactoryMethodInfo
instance (signature ~ (m (Maybe Gtk.ListItemFactory.ListItemFactory)), MonadIO m, IsDropDown a) => O.OverloadedMethod DropDownGetListFactoryMethodInfo a signature where
overloadedMethod = dropDownGetListFactory
instance O.OverloadedMethodInfo DropDownGetListFactoryMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.DropDown.dropDownGetListFactory",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.6/docs/GI-Gtk-Objects-DropDown.html#v:dropDownGetListFactory"
})
#endif
foreign import ccall "gtk_drop_down_get_model" gtk_drop_down_get_model ::
Ptr DropDown ->
IO (Ptr Gio.ListModel.ListModel)
dropDownGetModel ::
(B.CallStack.HasCallStack, MonadIO m, IsDropDown a) =>
a
-> m (Maybe Gio.ListModel.ListModel)
dropDownGetModel :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDropDown a) =>
a -> m (Maybe ListModel)
dropDownGetModel a
self = IO (Maybe ListModel) -> m (Maybe ListModel)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe ListModel) -> m (Maybe ListModel))
-> IO (Maybe ListModel) -> m (Maybe ListModel)
forall a b. (a -> b) -> a -> b
$ do
Ptr DropDown
self' <- a -> IO (Ptr DropDown)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr ListModel
result <- Ptr DropDown -> IO (Ptr ListModel)
gtk_drop_down_get_model Ptr DropDown
self'
Maybe ListModel
maybeResult <- Ptr ListModel
-> (Ptr ListModel -> IO ListModel) -> IO (Maybe ListModel)
forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
convertIfNonNull Ptr ListModel
result ((Ptr ListModel -> IO ListModel) -> IO (Maybe ListModel))
-> (Ptr ListModel -> IO ListModel) -> IO (Maybe ListModel)
forall a b. (a -> b) -> a -> b
$ \Ptr ListModel
result' -> do
ListModel
result'' <- ((ManagedPtr ListModel -> ListModel)
-> Ptr ListModel -> IO ListModel
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr ListModel -> ListModel
Gio.ListModel.ListModel) Ptr ListModel
result'
ListModel -> IO ListModel
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ListModel
result''
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
Maybe ListModel -> IO (Maybe ListModel)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe ListModel
maybeResult
#if defined(ENABLE_OVERLOADING)
data DropDownGetModelMethodInfo
instance (signature ~ (m (Maybe Gio.ListModel.ListModel)), MonadIO m, IsDropDown a) => O.OverloadedMethod DropDownGetModelMethodInfo a signature where
overloadedMethod = dropDownGetModel
instance O.OverloadedMethodInfo DropDownGetModelMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.DropDown.dropDownGetModel",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.6/docs/GI-Gtk-Objects-DropDown.html#v:dropDownGetModel"
})
#endif
foreign import ccall "gtk_drop_down_get_selected" gtk_drop_down_get_selected ::
Ptr DropDown ->
IO Word32
dropDownGetSelected ::
(B.CallStack.HasCallStack, MonadIO m, IsDropDown a) =>
a
-> m Word32
dropDownGetSelected :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDropDown a) =>
a -> m Word32
dropDownGetSelected a
self = IO Word32 -> m Word32
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Word32 -> m Word32) -> IO Word32 -> m Word32
forall a b. (a -> b) -> a -> b
$ do
Ptr DropDown
self' <- a -> IO (Ptr DropDown)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Word32
result <- Ptr DropDown -> IO Word32
gtk_drop_down_get_selected Ptr DropDown
self'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
Word32 -> IO Word32
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Word32
result
#if defined(ENABLE_OVERLOADING)
data DropDownGetSelectedMethodInfo
instance (signature ~ (m Word32), MonadIO m, IsDropDown a) => O.OverloadedMethod DropDownGetSelectedMethodInfo a signature where
overloadedMethod = dropDownGetSelected
instance O.OverloadedMethodInfo DropDownGetSelectedMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.DropDown.dropDownGetSelected",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.6/docs/GI-Gtk-Objects-DropDown.html#v:dropDownGetSelected"
})
#endif
foreign import ccall "gtk_drop_down_get_selected_item" gtk_drop_down_get_selected_item ::
Ptr DropDown ->
IO (Ptr GObject.Object.Object)
dropDownGetSelectedItem ::
(B.CallStack.HasCallStack, MonadIO m, IsDropDown a) =>
a
-> m (Maybe GObject.Object.Object)
dropDownGetSelectedItem :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDropDown a) =>
a -> m (Maybe Object)
dropDownGetSelectedItem a
self = IO (Maybe Object) -> m (Maybe Object)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe Object) -> m (Maybe Object))
-> IO (Maybe Object) -> m (Maybe Object)
forall a b. (a -> b) -> a -> b
$ do
Ptr DropDown
self' <- a -> IO (Ptr DropDown)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr Object
result <- Ptr DropDown -> IO (Ptr Object)
gtk_drop_down_get_selected_item Ptr DropDown
self'
Maybe Object
maybeResult <- Ptr Object -> (Ptr Object -> IO Object) -> IO (Maybe Object)
forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
convertIfNonNull Ptr Object
result ((Ptr Object -> IO Object) -> IO (Maybe Object))
-> (Ptr Object -> IO Object) -> IO (Maybe Object)
forall a b. (a -> b) -> a -> b
$ \Ptr Object
result' -> do
Object
result'' <- ((ManagedPtr Object -> Object) -> Ptr Object -> IO Object
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr Object -> Object
GObject.Object.Object) Ptr Object
result'
Object -> IO Object
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Object
result''
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
Maybe Object -> IO (Maybe Object)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe Object
maybeResult
#if defined(ENABLE_OVERLOADING)
data DropDownGetSelectedItemMethodInfo
instance (signature ~ (m (Maybe GObject.Object.Object)), MonadIO m, IsDropDown a) => O.OverloadedMethod DropDownGetSelectedItemMethodInfo a signature where
overloadedMethod = dropDownGetSelectedItem
instance O.OverloadedMethodInfo DropDownGetSelectedItemMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.DropDown.dropDownGetSelectedItem",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.6/docs/GI-Gtk-Objects-DropDown.html#v:dropDownGetSelectedItem"
})
#endif
foreign import ccall "gtk_drop_down_get_show_arrow" gtk_drop_down_get_show_arrow ::
Ptr DropDown ->
IO CInt
dropDownGetShowArrow ::
(B.CallStack.HasCallStack, MonadIO m, IsDropDown a) =>
a
-> m Bool
dropDownGetShowArrow :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDropDown a) =>
a -> m Bool
dropDownGetShowArrow 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 DropDown
self' <- a -> IO (Ptr DropDown)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CInt
result <- Ptr DropDown -> IO CInt
gtk_drop_down_get_show_arrow Ptr DropDown
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 DropDownGetShowArrowMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsDropDown a) => O.OverloadedMethod DropDownGetShowArrowMethodInfo a signature where
overloadedMethod = dropDownGetShowArrow
instance O.OverloadedMethodInfo DropDownGetShowArrowMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.DropDown.dropDownGetShowArrow",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.6/docs/GI-Gtk-Objects-DropDown.html#v:dropDownGetShowArrow"
})
#endif
foreign import ccall "gtk_drop_down_set_enable_search" gtk_drop_down_set_enable_search ::
Ptr DropDown ->
CInt ->
IO ()
dropDownSetEnableSearch ::
(B.CallStack.HasCallStack, MonadIO m, IsDropDown a) =>
a
-> Bool
-> m ()
dropDownSetEnableSearch :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDropDown a) =>
a -> Bool -> m ()
dropDownSetEnableSearch a
self Bool
enableSearch = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr DropDown
self' <- a -> IO (Ptr DropDown)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
let enableSearch' :: CInt
enableSearch' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
fromEnum) Bool
enableSearch
Ptr DropDown -> CInt -> IO ()
gtk_drop_down_set_enable_search Ptr DropDown
self' CInt
enableSearch'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data DropDownSetEnableSearchMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsDropDown a) => O.OverloadedMethod DropDownSetEnableSearchMethodInfo a signature where
overloadedMethod = dropDownSetEnableSearch
instance O.OverloadedMethodInfo DropDownSetEnableSearchMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.DropDown.dropDownSetEnableSearch",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.6/docs/GI-Gtk-Objects-DropDown.html#v:dropDownSetEnableSearch"
})
#endif
foreign import ccall "gtk_drop_down_set_expression" gtk_drop_down_set_expression ::
Ptr DropDown ->
Ptr Gtk.Expression.Expression ->
IO ()
dropDownSetExpression ::
(B.CallStack.HasCallStack, MonadIO m, IsDropDown a, Gtk.Expression.IsExpression b) =>
a
-> Maybe (b)
-> m ()
dropDownSetExpression :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsDropDown a, IsExpression b) =>
a -> Maybe b -> m ()
dropDownSetExpression a
self Maybe b
expression = 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 DropDown
self' <- a -> IO (Ptr DropDown)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr Expression
maybeExpression <- case Maybe b
expression of
Maybe b
Nothing -> Ptr Expression -> IO (Ptr Expression)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Expression
forall a. Ptr a
nullPtr
Just b
jExpression -> do
Ptr Expression
jExpression' <- b -> IO (Ptr Expression)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
jExpression
Ptr Expression -> IO (Ptr Expression)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Expression
jExpression'
Ptr DropDown -> Ptr Expression -> IO ()
gtk_drop_down_set_expression Ptr DropDown
self' Ptr Expression
maybeExpression
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
expression 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 DropDownSetExpressionMethodInfo
instance (signature ~ (Maybe (b) -> m ()), MonadIO m, IsDropDown a, Gtk.Expression.IsExpression b) => O.OverloadedMethod DropDownSetExpressionMethodInfo a signature where
overloadedMethod = dropDownSetExpression
instance O.OverloadedMethodInfo DropDownSetExpressionMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.DropDown.dropDownSetExpression",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.6/docs/GI-Gtk-Objects-DropDown.html#v:dropDownSetExpression"
})
#endif
foreign import ccall "gtk_drop_down_set_factory" gtk_drop_down_set_factory ::
Ptr DropDown ->
Ptr Gtk.ListItemFactory.ListItemFactory ->
IO ()
dropDownSetFactory ::
(B.CallStack.HasCallStack, MonadIO m, IsDropDown a, Gtk.ListItemFactory.IsListItemFactory b) =>
a
-> Maybe (b)
-> m ()
dropDownSetFactory :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsDropDown a, IsListItemFactory b) =>
a -> Maybe b -> m ()
dropDownSetFactory a
self Maybe b
factory = 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 DropDown
self' <- a -> IO (Ptr DropDown)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr ListItemFactory
maybeFactory <- case Maybe b
factory of
Maybe b
Nothing -> Ptr ListItemFactory -> IO (Ptr ListItemFactory)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr ListItemFactory
forall a. Ptr a
nullPtr
Just b
jFactory -> do
Ptr ListItemFactory
jFactory' <- b -> IO (Ptr ListItemFactory)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
jFactory
Ptr ListItemFactory -> IO (Ptr ListItemFactory)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr ListItemFactory
jFactory'
Ptr DropDown -> Ptr ListItemFactory -> IO ()
gtk_drop_down_set_factory Ptr DropDown
self' Ptr ListItemFactory
maybeFactory
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
factory 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 DropDownSetFactoryMethodInfo
instance (signature ~ (Maybe (b) -> m ()), MonadIO m, IsDropDown a, Gtk.ListItemFactory.IsListItemFactory b) => O.OverloadedMethod DropDownSetFactoryMethodInfo a signature where
overloadedMethod = dropDownSetFactory
instance O.OverloadedMethodInfo DropDownSetFactoryMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.DropDown.dropDownSetFactory",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.6/docs/GI-Gtk-Objects-DropDown.html#v:dropDownSetFactory"
})
#endif
foreign import ccall "gtk_drop_down_set_list_factory" gtk_drop_down_set_list_factory ::
Ptr DropDown ->
Ptr Gtk.ListItemFactory.ListItemFactory ->
IO ()
dropDownSetListFactory ::
(B.CallStack.HasCallStack, MonadIO m, IsDropDown a, Gtk.ListItemFactory.IsListItemFactory b) =>
a
-> Maybe (b)
-> m ()
dropDownSetListFactory :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsDropDown a, IsListItemFactory b) =>
a -> Maybe b -> m ()
dropDownSetListFactory a
self Maybe b
factory = 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 DropDown
self' <- a -> IO (Ptr DropDown)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr ListItemFactory
maybeFactory <- case Maybe b
factory of
Maybe b
Nothing -> Ptr ListItemFactory -> IO (Ptr ListItemFactory)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr ListItemFactory
forall a. Ptr a
nullPtr
Just b
jFactory -> do
Ptr ListItemFactory
jFactory' <- b -> IO (Ptr ListItemFactory)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
jFactory
Ptr ListItemFactory -> IO (Ptr ListItemFactory)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr ListItemFactory
jFactory'
Ptr DropDown -> Ptr ListItemFactory -> IO ()
gtk_drop_down_set_list_factory Ptr DropDown
self' Ptr ListItemFactory
maybeFactory
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
factory 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 DropDownSetListFactoryMethodInfo
instance (signature ~ (Maybe (b) -> m ()), MonadIO m, IsDropDown a, Gtk.ListItemFactory.IsListItemFactory b) => O.OverloadedMethod DropDownSetListFactoryMethodInfo a signature where
overloadedMethod = dropDownSetListFactory
instance O.OverloadedMethodInfo DropDownSetListFactoryMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.DropDown.dropDownSetListFactory",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.6/docs/GI-Gtk-Objects-DropDown.html#v:dropDownSetListFactory"
})
#endif
foreign import ccall "gtk_drop_down_set_model" gtk_drop_down_set_model ::
Ptr DropDown ->
Ptr Gio.ListModel.ListModel ->
IO ()
dropDownSetModel ::
(B.CallStack.HasCallStack, MonadIO m, IsDropDown a, Gio.ListModel.IsListModel b) =>
a
-> Maybe (b)
-> m ()
dropDownSetModel :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsDropDown a, IsListModel b) =>
a -> Maybe b -> m ()
dropDownSetModel a
self Maybe b
model = 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 DropDown
self' <- a -> IO (Ptr DropDown)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr ListModel
maybeModel <- case Maybe b
model of
Maybe b
Nothing -> Ptr ListModel -> IO (Ptr ListModel)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr ListModel
forall a. Ptr a
nullPtr
Just b
jModel -> do
Ptr ListModel
jModel' <- b -> IO (Ptr ListModel)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
jModel
Ptr ListModel -> IO (Ptr ListModel)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr ListModel
jModel'
Ptr DropDown -> Ptr ListModel -> IO ()
gtk_drop_down_set_model Ptr DropDown
self' Ptr ListModel
maybeModel
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
model 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 DropDownSetModelMethodInfo
instance (signature ~ (Maybe (b) -> m ()), MonadIO m, IsDropDown a, Gio.ListModel.IsListModel b) => O.OverloadedMethod DropDownSetModelMethodInfo a signature where
overloadedMethod = dropDownSetModel
instance O.OverloadedMethodInfo DropDownSetModelMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.DropDown.dropDownSetModel",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.6/docs/GI-Gtk-Objects-DropDown.html#v:dropDownSetModel"
})
#endif
foreign import ccall "gtk_drop_down_set_selected" gtk_drop_down_set_selected ::
Ptr DropDown ->
Word32 ->
IO ()
dropDownSetSelected ::
(B.CallStack.HasCallStack, MonadIO m, IsDropDown a) =>
a
-> Word32
-> m ()
dropDownSetSelected :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDropDown a) =>
a -> Word32 -> m ()
dropDownSetSelected a
self Word32
position = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr DropDown
self' <- a -> IO (Ptr DropDown)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr DropDown -> Word32 -> IO ()
gtk_drop_down_set_selected Ptr DropDown
self' Word32
position
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 DropDownSetSelectedMethodInfo
instance (signature ~ (Word32 -> m ()), MonadIO m, IsDropDown a) => O.OverloadedMethod DropDownSetSelectedMethodInfo a signature where
overloadedMethod = dropDownSetSelected
instance O.OverloadedMethodInfo DropDownSetSelectedMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.DropDown.dropDownSetSelected",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.6/docs/GI-Gtk-Objects-DropDown.html#v:dropDownSetSelected"
})
#endif
foreign import ccall "gtk_drop_down_set_show_arrow" gtk_drop_down_set_show_arrow ::
Ptr DropDown ->
CInt ->
IO ()
dropDownSetShowArrow ::
(B.CallStack.HasCallStack, MonadIO m, IsDropDown a) =>
a
-> Bool
-> m ()
dropDownSetShowArrow :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDropDown a) =>
a -> Bool -> m ()
dropDownSetShowArrow a
self Bool
showArrow = 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 DropDown
self' <- a -> IO (Ptr DropDown)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
let showArrow' :: CInt
showArrow' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
fromEnum) Bool
showArrow
Ptr DropDown -> CInt -> IO ()
gtk_drop_down_set_show_arrow Ptr DropDown
self' CInt
showArrow'
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 DropDownSetShowArrowMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsDropDown a) => O.OverloadedMethod DropDownSetShowArrowMethodInfo a signature where
overloadedMethod = dropDownSetShowArrow
instance O.OverloadedMethodInfo DropDownSetShowArrowMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.DropDown.dropDownSetShowArrow",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.6/docs/GI-Gtk-Objects-DropDown.html#v:dropDownSetShowArrow"
})
#endif