{-# LANGUAGE TypeApplications #-}
#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif
module GI.Gtk.Objects.ComboBox
(
ComboBox(..) ,
IsComboBox ,
toComboBox ,
#if defined(ENABLE_OVERLOADING)
ResolveComboBoxMethod ,
#endif
#if defined(ENABLE_OVERLOADING)
ComboBoxGetActiveMethodInfo ,
#endif
comboBoxGetActive ,
#if defined(ENABLE_OVERLOADING)
ComboBoxGetActiveIdMethodInfo ,
#endif
comboBoxGetActiveId ,
#if defined(ENABLE_OVERLOADING)
ComboBoxGetActiveIterMethodInfo ,
#endif
comboBoxGetActiveIter ,
#if defined(ENABLE_OVERLOADING)
ComboBoxGetButtonSensitivityMethodInfo ,
#endif
comboBoxGetButtonSensitivity ,
#if defined(ENABLE_OVERLOADING)
ComboBoxGetChildMethodInfo ,
#endif
comboBoxGetChild ,
#if defined(ENABLE_OVERLOADING)
ComboBoxGetEntryTextColumnMethodInfo ,
#endif
comboBoxGetEntryTextColumn ,
#if defined(ENABLE_OVERLOADING)
ComboBoxGetHasEntryMethodInfo ,
#endif
comboBoxGetHasEntry ,
#if defined(ENABLE_OVERLOADING)
ComboBoxGetIdColumnMethodInfo ,
#endif
comboBoxGetIdColumn ,
#if defined(ENABLE_OVERLOADING)
ComboBoxGetModelMethodInfo ,
#endif
comboBoxGetModel ,
#if defined(ENABLE_OVERLOADING)
ComboBoxGetPopupFixedWidthMethodInfo ,
#endif
comboBoxGetPopupFixedWidth ,
comboBoxNew ,
comboBoxNewWithEntry ,
comboBoxNewWithModel ,
comboBoxNewWithModelAndEntry ,
#if defined(ENABLE_OVERLOADING)
ComboBoxPopdownMethodInfo ,
#endif
comboBoxPopdown ,
#if defined(ENABLE_OVERLOADING)
ComboBoxPopupMethodInfo ,
#endif
comboBoxPopup ,
#if defined(ENABLE_OVERLOADING)
ComboBoxPopupForDeviceMethodInfo ,
#endif
comboBoxPopupForDevice ,
#if defined(ENABLE_OVERLOADING)
ComboBoxSetActiveMethodInfo ,
#endif
comboBoxSetActive ,
#if defined(ENABLE_OVERLOADING)
ComboBoxSetActiveIdMethodInfo ,
#endif
comboBoxSetActiveId ,
#if defined(ENABLE_OVERLOADING)
ComboBoxSetActiveIterMethodInfo ,
#endif
comboBoxSetActiveIter ,
#if defined(ENABLE_OVERLOADING)
ComboBoxSetButtonSensitivityMethodInfo ,
#endif
comboBoxSetButtonSensitivity ,
#if defined(ENABLE_OVERLOADING)
ComboBoxSetChildMethodInfo ,
#endif
comboBoxSetChild ,
#if defined(ENABLE_OVERLOADING)
ComboBoxSetEntryTextColumnMethodInfo ,
#endif
comboBoxSetEntryTextColumn ,
#if defined(ENABLE_OVERLOADING)
ComboBoxSetIdColumnMethodInfo ,
#endif
comboBoxSetIdColumn ,
#if defined(ENABLE_OVERLOADING)
ComboBoxSetModelMethodInfo ,
#endif
comboBoxSetModel ,
#if defined(ENABLE_OVERLOADING)
ComboBoxSetPopupFixedWidthMethodInfo ,
#endif
comboBoxSetPopupFixedWidth ,
#if defined(ENABLE_OVERLOADING)
ComboBoxSetRowSeparatorFuncMethodInfo ,
#endif
comboBoxSetRowSeparatorFunc ,
#if defined(ENABLE_OVERLOADING)
ComboBoxActivePropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
comboBoxActive ,
#endif
constructComboBoxActive ,
getComboBoxActive ,
setComboBoxActive ,
#if defined(ENABLE_OVERLOADING)
ComboBoxActiveIdPropertyInfo ,
#endif
clearComboBoxActiveId ,
#if defined(ENABLE_OVERLOADING)
comboBoxActiveId ,
#endif
constructComboBoxActiveId ,
getComboBoxActiveId ,
setComboBoxActiveId ,
#if defined(ENABLE_OVERLOADING)
ComboBoxButtonSensitivityPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
comboBoxButtonSensitivity ,
#endif
constructComboBoxButtonSensitivity ,
getComboBoxButtonSensitivity ,
setComboBoxButtonSensitivity ,
#if defined(ENABLE_OVERLOADING)
ComboBoxChildPropertyInfo ,
#endif
clearComboBoxChild ,
#if defined(ENABLE_OVERLOADING)
comboBoxChild ,
#endif
constructComboBoxChild ,
getComboBoxChild ,
setComboBoxChild ,
#if defined(ENABLE_OVERLOADING)
ComboBoxEntryTextColumnPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
comboBoxEntryTextColumn ,
#endif
constructComboBoxEntryTextColumn ,
getComboBoxEntryTextColumn ,
setComboBoxEntryTextColumn ,
#if defined(ENABLE_OVERLOADING)
ComboBoxHasEntryPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
comboBoxHasEntry ,
#endif
constructComboBoxHasEntry ,
getComboBoxHasEntry ,
#if defined(ENABLE_OVERLOADING)
ComboBoxHasFramePropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
comboBoxHasFrame ,
#endif
constructComboBoxHasFrame ,
getComboBoxHasFrame ,
setComboBoxHasFrame ,
#if defined(ENABLE_OVERLOADING)
ComboBoxIdColumnPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
comboBoxIdColumn ,
#endif
constructComboBoxIdColumn ,
getComboBoxIdColumn ,
setComboBoxIdColumn ,
#if defined(ENABLE_OVERLOADING)
ComboBoxModelPropertyInfo ,
#endif
clearComboBoxModel ,
#if defined(ENABLE_OVERLOADING)
comboBoxModel ,
#endif
constructComboBoxModel ,
getComboBoxModel ,
setComboBoxModel ,
#if defined(ENABLE_OVERLOADING)
ComboBoxPopupFixedWidthPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
comboBoxPopupFixedWidth ,
#endif
constructComboBoxPopupFixedWidth ,
getComboBoxPopupFixedWidth ,
setComboBoxPopupFixedWidth ,
#if defined(ENABLE_OVERLOADING)
ComboBoxPopupShownPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
comboBoxPopupShown ,
#endif
getComboBoxPopupShown ,
C_ComboBoxChangedCallback ,
ComboBoxChangedCallback ,
#if defined(ENABLE_OVERLOADING)
ComboBoxChangedSignalInfo ,
#endif
afterComboBoxChanged ,
genClosure_ComboBoxChanged ,
mk_ComboBoxChangedCallback ,
noComboBoxChangedCallback ,
onComboBoxChanged ,
wrap_ComboBoxChangedCallback ,
C_ComboBoxFormatEntryTextCallback ,
ComboBoxFormatEntryTextCallback ,
#if defined(ENABLE_OVERLOADING)
ComboBoxFormatEntryTextSignalInfo ,
#endif
afterComboBoxFormatEntryText ,
genClosure_ComboBoxFormatEntryText ,
mk_ComboBoxFormatEntryTextCallback ,
noComboBoxFormatEntryTextCallback ,
onComboBoxFormatEntryText ,
wrap_ComboBoxFormatEntryTextCallback ,
C_ComboBoxMoveActiveCallback ,
ComboBoxMoveActiveCallback ,
#if defined(ENABLE_OVERLOADING)
ComboBoxMoveActiveSignalInfo ,
#endif
afterComboBoxMoveActive ,
genClosure_ComboBoxMoveActive ,
mk_ComboBoxMoveActiveCallback ,
noComboBoxMoveActiveCallback ,
onComboBoxMoveActive ,
wrap_ComboBoxMoveActiveCallback ,
C_ComboBoxPopdownCallback ,
ComboBoxPopdownCallback ,
#if defined(ENABLE_OVERLOADING)
ComboBoxPopdownSignalInfo ,
#endif
afterComboBoxPopdown ,
genClosure_ComboBoxPopdown ,
mk_ComboBoxPopdownCallback ,
noComboBoxPopdownCallback ,
onComboBoxPopdown ,
wrap_ComboBoxPopdownCallback ,
C_ComboBoxPopupCallback ,
ComboBoxPopupCallback ,
#if defined(ENABLE_OVERLOADING)
ComboBoxPopupSignalInfo ,
#endif
afterComboBoxPopup ,
genClosure_ComboBoxPopup ,
mk_ComboBoxPopupCallback ,
noComboBoxPopupCallback ,
onComboBoxPopup ,
wrap_ComboBoxPopupCallback ,
) 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.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.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.GLib.Callbacks as GLib.Callbacks
import qualified GI.GObject.Objects.Object as GObject.Object
import qualified GI.Gdk.Objects.Device as Gdk.Device
import qualified GI.Gtk.Callbacks as Gtk.Callbacks
import {-# SOURCE #-} qualified GI.Gtk.Enums as Gtk.Enums
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.CellEditable as Gtk.CellEditable
import {-# SOURCE #-} qualified GI.Gtk.Interfaces.CellLayout as Gtk.CellLayout
import {-# SOURCE #-} qualified GI.Gtk.Interfaces.ConstraintTarget as Gtk.ConstraintTarget
import {-# SOURCE #-} qualified GI.Gtk.Interfaces.TreeModel as Gtk.TreeModel
import {-# SOURCE #-} qualified GI.Gtk.Objects.Widget as Gtk.Widget
import {-# SOURCE #-} qualified GI.Gtk.Structs.TreeIter as Gtk.TreeIter
newtype ComboBox = ComboBox (SP.ManagedPtr ComboBox)
deriving (ComboBox -> ComboBox -> Bool
(ComboBox -> ComboBox -> Bool)
-> (ComboBox -> ComboBox -> Bool) -> Eq ComboBox
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: ComboBox -> ComboBox -> Bool
$c/= :: ComboBox -> ComboBox -> Bool
== :: ComboBox -> ComboBox -> Bool
$c== :: ComboBox -> ComboBox -> Bool
Eq)
instance SP.ManagedPtrNewtype ComboBox where
toManagedPtr :: ComboBox -> ManagedPtr ComboBox
toManagedPtr (ComboBox ManagedPtr ComboBox
p) = ManagedPtr ComboBox
p
foreign import ccall "gtk_combo_box_get_type"
c_gtk_combo_box_get_type :: IO B.Types.GType
instance B.Types.TypedObject ComboBox where
glibType :: IO GType
glibType = IO GType
c_gtk_combo_box_get_type
instance B.Types.GObject ComboBox
class (SP.GObject o, O.IsDescendantOf ComboBox o) => IsComboBox o
instance (SP.GObject o, O.IsDescendantOf ComboBox o) => IsComboBox o
instance O.HasParentTypes ComboBox
type instance O.ParentTypes ComboBox = '[Gtk.Widget.Widget, GObject.Object.Object, Gtk.Accessible.Accessible, Gtk.Buildable.Buildable, Gtk.CellEditable.CellEditable, Gtk.CellLayout.CellLayout, Gtk.ConstraintTarget.ConstraintTarget]
toComboBox :: (MIO.MonadIO m, IsComboBox o) => o -> m ComboBox
toComboBox :: forall (m :: * -> *) o.
(MonadIO m, IsComboBox o) =>
o -> m ComboBox
toComboBox = IO ComboBox -> m ComboBox
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO ComboBox -> m ComboBox)
-> (o -> IO ComboBox) -> o -> m ComboBox
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (ManagedPtr ComboBox -> ComboBox) -> o -> IO ComboBox
forall o o'.
(HasCallStack, ManagedPtrNewtype o, TypedObject o,
ManagedPtrNewtype o', TypedObject o') =>
(ManagedPtr o' -> o') -> o -> IO o'
B.ManagedPtr.unsafeCastTo ManagedPtr ComboBox -> ComboBox
ComboBox
instance B.GValue.IsGValue (Maybe ComboBox) where
gvalueGType_ :: IO GType
gvalueGType_ = IO GType
c_gtk_combo_box_get_type
gvalueSet_ :: Ptr GValue -> Maybe ComboBox -> IO ()
gvalueSet_ Ptr GValue
gv Maybe ComboBox
P.Nothing = Ptr GValue -> Ptr ComboBox -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv (Ptr ComboBox
forall a. Ptr a
FP.nullPtr :: FP.Ptr ComboBox)
gvalueSet_ Ptr GValue
gv (P.Just ComboBox
obj) = ComboBox -> (Ptr ComboBox -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
B.ManagedPtr.withManagedPtr ComboBox
obj (Ptr GValue -> Ptr ComboBox -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv)
gvalueGet_ :: Ptr GValue -> IO (Maybe ComboBox)
gvalueGet_ Ptr GValue
gv = do
Ptr ComboBox
ptr <- Ptr GValue -> IO (Ptr ComboBox)
forall a. GObject a => Ptr GValue -> IO (Ptr a)
B.GValue.get_object Ptr GValue
gv :: IO (FP.Ptr ComboBox)
if Ptr ComboBox
ptr Ptr ComboBox -> Ptr ComboBox -> Bool
forall a. Eq a => a -> a -> Bool
/= Ptr ComboBox
forall a. Ptr a
FP.nullPtr
then ComboBox -> Maybe ComboBox
forall a. a -> Maybe a
P.Just (ComboBox -> Maybe ComboBox) -> IO ComboBox -> IO (Maybe ComboBox)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (ManagedPtr ComboBox -> ComboBox) -> Ptr ComboBox -> IO ComboBox
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
B.ManagedPtr.newObject ManagedPtr ComboBox -> ComboBox
ComboBox Ptr ComboBox
ptr
else Maybe ComboBox -> IO (Maybe ComboBox)
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe ComboBox
forall a. Maybe a
P.Nothing
#if defined(ENABLE_OVERLOADING)
type family ResolveComboBoxMethod (t :: Symbol) (o :: *) :: * where
ResolveComboBoxMethod "actionSetEnabled" o = Gtk.Widget.WidgetActionSetEnabledMethodInfo
ResolveComboBoxMethod "activate" o = Gtk.Widget.WidgetActivateMethodInfo
ResolveComboBoxMethod "activateAction" o = Gtk.Widget.WidgetActivateActionMethodInfo
ResolveComboBoxMethod "activateDefault" o = Gtk.Widget.WidgetActivateDefaultMethodInfo
ResolveComboBoxMethod "addAttribute" o = Gtk.CellLayout.CellLayoutAddAttributeMethodInfo
ResolveComboBoxMethod "addController" o = Gtk.Widget.WidgetAddControllerMethodInfo
ResolveComboBoxMethod "addCssClass" o = Gtk.Widget.WidgetAddCssClassMethodInfo
ResolveComboBoxMethod "addMnemonicLabel" o = Gtk.Widget.WidgetAddMnemonicLabelMethodInfo
ResolveComboBoxMethod "addTickCallback" o = Gtk.Widget.WidgetAddTickCallbackMethodInfo
ResolveComboBoxMethod "allocate" o = Gtk.Widget.WidgetAllocateMethodInfo
ResolveComboBoxMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
ResolveComboBoxMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
ResolveComboBoxMethod "childFocus" o = Gtk.Widget.WidgetChildFocusMethodInfo
ResolveComboBoxMethod "clear" o = Gtk.CellLayout.CellLayoutClearMethodInfo
ResolveComboBoxMethod "clearAttributes" o = Gtk.CellLayout.CellLayoutClearAttributesMethodInfo
ResolveComboBoxMethod "computeBounds" o = Gtk.Widget.WidgetComputeBoundsMethodInfo
ResolveComboBoxMethod "computeExpand" o = Gtk.Widget.WidgetComputeExpandMethodInfo
ResolveComboBoxMethod "computePoint" o = Gtk.Widget.WidgetComputePointMethodInfo
ResolveComboBoxMethod "computeTransform" o = Gtk.Widget.WidgetComputeTransformMethodInfo
ResolveComboBoxMethod "contains" o = Gtk.Widget.WidgetContainsMethodInfo
ResolveComboBoxMethod "createPangoContext" o = Gtk.Widget.WidgetCreatePangoContextMethodInfo
ResolveComboBoxMethod "createPangoLayout" o = Gtk.Widget.WidgetCreatePangoLayoutMethodInfo
ResolveComboBoxMethod "dragCheckThreshold" o = Gtk.Widget.WidgetDragCheckThresholdMethodInfo
ResolveComboBoxMethod "editingDone" o = Gtk.CellEditable.CellEditableEditingDoneMethodInfo
ResolveComboBoxMethod "errorBell" o = Gtk.Widget.WidgetErrorBellMethodInfo
ResolveComboBoxMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
ResolveComboBoxMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
ResolveComboBoxMethod "getv" o = GObject.Object.ObjectGetvMethodInfo
ResolveComboBoxMethod "grabFocus" o = Gtk.Widget.WidgetGrabFocusMethodInfo
ResolveComboBoxMethod "hasCssClass" o = Gtk.Widget.WidgetHasCssClassMethodInfo
ResolveComboBoxMethod "hasDefault" o = Gtk.Widget.WidgetHasDefaultMethodInfo
ResolveComboBoxMethod "hasFocus" o = Gtk.Widget.WidgetHasFocusMethodInfo
ResolveComboBoxMethod "hasVisibleFocus" o = Gtk.Widget.WidgetHasVisibleFocusMethodInfo
ResolveComboBoxMethod "hide" o = Gtk.Widget.WidgetHideMethodInfo
ResolveComboBoxMethod "inDestruction" o = Gtk.Widget.WidgetInDestructionMethodInfo
ResolveComboBoxMethod "initTemplate" o = Gtk.Widget.WidgetInitTemplateMethodInfo
ResolveComboBoxMethod "insertActionGroup" o = Gtk.Widget.WidgetInsertActionGroupMethodInfo
ResolveComboBoxMethod "insertAfter" o = Gtk.Widget.WidgetInsertAfterMethodInfo
ResolveComboBoxMethod "insertBefore" o = Gtk.Widget.WidgetInsertBeforeMethodInfo
ResolveComboBoxMethod "isAncestor" o = Gtk.Widget.WidgetIsAncestorMethodInfo
ResolveComboBoxMethod "isDrawable" o = Gtk.Widget.WidgetIsDrawableMethodInfo
ResolveComboBoxMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo
ResolveComboBoxMethod "isFocus" o = Gtk.Widget.WidgetIsFocusMethodInfo
ResolveComboBoxMethod "isSensitive" o = Gtk.Widget.WidgetIsSensitiveMethodInfo
ResolveComboBoxMethod "isVisible" o = Gtk.Widget.WidgetIsVisibleMethodInfo
ResolveComboBoxMethod "keynavFailed" o = Gtk.Widget.WidgetKeynavFailedMethodInfo
ResolveComboBoxMethod "listMnemonicLabels" o = Gtk.Widget.WidgetListMnemonicLabelsMethodInfo
ResolveComboBoxMethod "map" o = Gtk.Widget.WidgetMapMethodInfo
ResolveComboBoxMethod "measure" o = Gtk.Widget.WidgetMeasureMethodInfo
ResolveComboBoxMethod "mnemonicActivate" o = Gtk.Widget.WidgetMnemonicActivateMethodInfo
ResolveComboBoxMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
ResolveComboBoxMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
ResolveComboBoxMethod "observeChildren" o = Gtk.Widget.WidgetObserveChildrenMethodInfo
ResolveComboBoxMethod "observeControllers" o = Gtk.Widget.WidgetObserveControllersMethodInfo
ResolveComboBoxMethod "packEnd" o = Gtk.CellLayout.CellLayoutPackEndMethodInfo
ResolveComboBoxMethod "packStart" o = Gtk.CellLayout.CellLayoutPackStartMethodInfo
ResolveComboBoxMethod "pick" o = Gtk.Widget.WidgetPickMethodInfo
ResolveComboBoxMethod "popdown" o = ComboBoxPopdownMethodInfo
ResolveComboBoxMethod "popup" o = ComboBoxPopupMethodInfo
ResolveComboBoxMethod "popupForDevice" o = ComboBoxPopupForDeviceMethodInfo
ResolveComboBoxMethod "queueAllocate" o = Gtk.Widget.WidgetQueueAllocateMethodInfo
ResolveComboBoxMethod "queueDraw" o = Gtk.Widget.WidgetQueueDrawMethodInfo
ResolveComboBoxMethod "queueResize" o = Gtk.Widget.WidgetQueueResizeMethodInfo
ResolveComboBoxMethod "realize" o = Gtk.Widget.WidgetRealizeMethodInfo
ResolveComboBoxMethod "ref" o = GObject.Object.ObjectRefMethodInfo
ResolveComboBoxMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
ResolveComboBoxMethod "removeController" o = Gtk.Widget.WidgetRemoveControllerMethodInfo
ResolveComboBoxMethod "removeCssClass" o = Gtk.Widget.WidgetRemoveCssClassMethodInfo
ResolveComboBoxMethod "removeMnemonicLabel" o = Gtk.Widget.WidgetRemoveMnemonicLabelMethodInfo
ResolveComboBoxMethod "removeTickCallback" o = Gtk.Widget.WidgetRemoveTickCallbackMethodInfo
ResolveComboBoxMethod "removeWidget" o = Gtk.CellEditable.CellEditableRemoveWidgetMethodInfo
ResolveComboBoxMethod "reorder" o = Gtk.CellLayout.CellLayoutReorderMethodInfo
ResolveComboBoxMethod "resetProperty" o = Gtk.Accessible.AccessibleResetPropertyMethodInfo
ResolveComboBoxMethod "resetRelation" o = Gtk.Accessible.AccessibleResetRelationMethodInfo
ResolveComboBoxMethod "resetState" o = Gtk.Accessible.AccessibleResetStateMethodInfo
ResolveComboBoxMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
ResolveComboBoxMethod "shouldLayout" o = Gtk.Widget.WidgetShouldLayoutMethodInfo
ResolveComboBoxMethod "show" o = Gtk.Widget.WidgetShowMethodInfo
ResolveComboBoxMethod "sizeAllocate" o = Gtk.Widget.WidgetSizeAllocateMethodInfo
ResolveComboBoxMethod "snapshotChild" o = Gtk.Widget.WidgetSnapshotChildMethodInfo
ResolveComboBoxMethod "startEditing" o = Gtk.CellEditable.CellEditableStartEditingMethodInfo
ResolveComboBoxMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
ResolveComboBoxMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
ResolveComboBoxMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo
ResolveComboBoxMethod "translateCoordinates" o = Gtk.Widget.WidgetTranslateCoordinatesMethodInfo
ResolveComboBoxMethod "triggerTooltipQuery" o = Gtk.Widget.WidgetTriggerTooltipQueryMethodInfo
ResolveComboBoxMethod "unmap" o = Gtk.Widget.WidgetUnmapMethodInfo
ResolveComboBoxMethod "unparent" o = Gtk.Widget.WidgetUnparentMethodInfo
ResolveComboBoxMethod "unrealize" o = Gtk.Widget.WidgetUnrealizeMethodInfo
ResolveComboBoxMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo
ResolveComboBoxMethod "unsetStateFlags" o = Gtk.Widget.WidgetUnsetStateFlagsMethodInfo
ResolveComboBoxMethod "updateProperty" o = Gtk.Accessible.AccessibleUpdatePropertyMethodInfo
ResolveComboBoxMethod "updateRelation" o = Gtk.Accessible.AccessibleUpdateRelationMethodInfo
ResolveComboBoxMethod "updateState" o = Gtk.Accessible.AccessibleUpdateStateMethodInfo
ResolveComboBoxMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
ResolveComboBoxMethod "getAccessibleRole" o = Gtk.Accessible.AccessibleGetAccessibleRoleMethodInfo
ResolveComboBoxMethod "getActive" o = ComboBoxGetActiveMethodInfo
ResolveComboBoxMethod "getActiveId" o = ComboBoxGetActiveIdMethodInfo
ResolveComboBoxMethod "getActiveIter" o = ComboBoxGetActiveIterMethodInfo
ResolveComboBoxMethod "getAllocatedBaseline" o = Gtk.Widget.WidgetGetAllocatedBaselineMethodInfo
ResolveComboBoxMethod "getAllocatedHeight" o = Gtk.Widget.WidgetGetAllocatedHeightMethodInfo
ResolveComboBoxMethod "getAllocatedWidth" o = Gtk.Widget.WidgetGetAllocatedWidthMethodInfo
ResolveComboBoxMethod "getAllocation" o = Gtk.Widget.WidgetGetAllocationMethodInfo
ResolveComboBoxMethod "getAncestor" o = Gtk.Widget.WidgetGetAncestorMethodInfo
ResolveComboBoxMethod "getArea" o = Gtk.CellLayout.CellLayoutGetAreaMethodInfo
ResolveComboBoxMethod "getBuildableId" o = Gtk.Buildable.BuildableGetBuildableIdMethodInfo
ResolveComboBoxMethod "getButtonSensitivity" o = ComboBoxGetButtonSensitivityMethodInfo
ResolveComboBoxMethod "getCanFocus" o = Gtk.Widget.WidgetGetCanFocusMethodInfo
ResolveComboBoxMethod "getCanTarget" o = Gtk.Widget.WidgetGetCanTargetMethodInfo
ResolveComboBoxMethod "getCells" o = Gtk.CellLayout.CellLayoutGetCellsMethodInfo
ResolveComboBoxMethod "getChild" o = ComboBoxGetChildMethodInfo
ResolveComboBoxMethod "getChildVisible" o = Gtk.Widget.WidgetGetChildVisibleMethodInfo
ResolveComboBoxMethod "getClipboard" o = Gtk.Widget.WidgetGetClipboardMethodInfo
ResolveComboBoxMethod "getCssClasses" o = Gtk.Widget.WidgetGetCssClassesMethodInfo
ResolveComboBoxMethod "getCssName" o = Gtk.Widget.WidgetGetCssNameMethodInfo
ResolveComboBoxMethod "getCursor" o = Gtk.Widget.WidgetGetCursorMethodInfo
ResolveComboBoxMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
ResolveComboBoxMethod "getDirection" o = Gtk.Widget.WidgetGetDirectionMethodInfo
ResolveComboBoxMethod "getDisplay" o = Gtk.Widget.WidgetGetDisplayMethodInfo
ResolveComboBoxMethod "getEntryTextColumn" o = ComboBoxGetEntryTextColumnMethodInfo
ResolveComboBoxMethod "getFirstChild" o = Gtk.Widget.WidgetGetFirstChildMethodInfo
ResolveComboBoxMethod "getFocusChild" o = Gtk.Widget.WidgetGetFocusChildMethodInfo
ResolveComboBoxMethod "getFocusOnClick" o = Gtk.Widget.WidgetGetFocusOnClickMethodInfo
ResolveComboBoxMethod "getFocusable" o = Gtk.Widget.WidgetGetFocusableMethodInfo
ResolveComboBoxMethod "getFontMap" o = Gtk.Widget.WidgetGetFontMapMethodInfo
ResolveComboBoxMethod "getFontOptions" o = Gtk.Widget.WidgetGetFontOptionsMethodInfo
ResolveComboBoxMethod "getFrameClock" o = Gtk.Widget.WidgetGetFrameClockMethodInfo
ResolveComboBoxMethod "getHalign" o = Gtk.Widget.WidgetGetHalignMethodInfo
ResolveComboBoxMethod "getHasEntry" o = ComboBoxGetHasEntryMethodInfo
ResolveComboBoxMethod "getHasTooltip" o = Gtk.Widget.WidgetGetHasTooltipMethodInfo
ResolveComboBoxMethod "getHeight" o = Gtk.Widget.WidgetGetHeightMethodInfo
ResolveComboBoxMethod "getHexpand" o = Gtk.Widget.WidgetGetHexpandMethodInfo
ResolveComboBoxMethod "getHexpandSet" o = Gtk.Widget.WidgetGetHexpandSetMethodInfo
ResolveComboBoxMethod "getIdColumn" o = ComboBoxGetIdColumnMethodInfo
ResolveComboBoxMethod "getLastChild" o = Gtk.Widget.WidgetGetLastChildMethodInfo
ResolveComboBoxMethod "getLayoutManager" o = Gtk.Widget.WidgetGetLayoutManagerMethodInfo
ResolveComboBoxMethod "getMapped" o = Gtk.Widget.WidgetGetMappedMethodInfo
ResolveComboBoxMethod "getMarginBottom" o = Gtk.Widget.WidgetGetMarginBottomMethodInfo
ResolveComboBoxMethod "getMarginEnd" o = Gtk.Widget.WidgetGetMarginEndMethodInfo
ResolveComboBoxMethod "getMarginStart" o = Gtk.Widget.WidgetGetMarginStartMethodInfo
ResolveComboBoxMethod "getMarginTop" o = Gtk.Widget.WidgetGetMarginTopMethodInfo
ResolveComboBoxMethod "getModel" o = ComboBoxGetModelMethodInfo
ResolveComboBoxMethod "getName" o = Gtk.Widget.WidgetGetNameMethodInfo
ResolveComboBoxMethod "getNative" o = Gtk.Widget.WidgetGetNativeMethodInfo
ResolveComboBoxMethod "getNextSibling" o = Gtk.Widget.WidgetGetNextSiblingMethodInfo
ResolveComboBoxMethod "getOpacity" o = Gtk.Widget.WidgetGetOpacityMethodInfo
ResolveComboBoxMethod "getOverflow" o = Gtk.Widget.WidgetGetOverflowMethodInfo
ResolveComboBoxMethod "getPangoContext" o = Gtk.Widget.WidgetGetPangoContextMethodInfo
ResolveComboBoxMethod "getParent" o = Gtk.Widget.WidgetGetParentMethodInfo
ResolveComboBoxMethod "getPopupFixedWidth" o = ComboBoxGetPopupFixedWidthMethodInfo
ResolveComboBoxMethod "getPreferredSize" o = Gtk.Widget.WidgetGetPreferredSizeMethodInfo
ResolveComboBoxMethod "getPrevSibling" o = Gtk.Widget.WidgetGetPrevSiblingMethodInfo
ResolveComboBoxMethod "getPrimaryClipboard" o = Gtk.Widget.WidgetGetPrimaryClipboardMethodInfo
ResolveComboBoxMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo
ResolveComboBoxMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo
ResolveComboBoxMethod "getRealized" o = Gtk.Widget.WidgetGetRealizedMethodInfo
ResolveComboBoxMethod "getReceivesDefault" o = Gtk.Widget.WidgetGetReceivesDefaultMethodInfo
ResolveComboBoxMethod "getRequestMode" o = Gtk.Widget.WidgetGetRequestModeMethodInfo
ResolveComboBoxMethod "getRoot" o = Gtk.Widget.WidgetGetRootMethodInfo
ResolveComboBoxMethod "getScaleFactor" o = Gtk.Widget.WidgetGetScaleFactorMethodInfo
ResolveComboBoxMethod "getSensitive" o = Gtk.Widget.WidgetGetSensitiveMethodInfo
ResolveComboBoxMethod "getSettings" o = Gtk.Widget.WidgetGetSettingsMethodInfo
ResolveComboBoxMethod "getSize" o = Gtk.Widget.WidgetGetSizeMethodInfo
ResolveComboBoxMethod "getSizeRequest" o = Gtk.Widget.WidgetGetSizeRequestMethodInfo
ResolveComboBoxMethod "getStateFlags" o = Gtk.Widget.WidgetGetStateFlagsMethodInfo
ResolveComboBoxMethod "getStyleContext" o = Gtk.Widget.WidgetGetStyleContextMethodInfo
ResolveComboBoxMethod "getTemplateChild" o = Gtk.Widget.WidgetGetTemplateChildMethodInfo
ResolveComboBoxMethod "getTooltipMarkup" o = Gtk.Widget.WidgetGetTooltipMarkupMethodInfo
ResolveComboBoxMethod "getTooltipText" o = Gtk.Widget.WidgetGetTooltipTextMethodInfo
ResolveComboBoxMethod "getValign" o = Gtk.Widget.WidgetGetValignMethodInfo
ResolveComboBoxMethod "getVexpand" o = Gtk.Widget.WidgetGetVexpandMethodInfo
ResolveComboBoxMethod "getVexpandSet" o = Gtk.Widget.WidgetGetVexpandSetMethodInfo
ResolveComboBoxMethod "getVisible" o = Gtk.Widget.WidgetGetVisibleMethodInfo
ResolveComboBoxMethod "getWidth" o = Gtk.Widget.WidgetGetWidthMethodInfo
ResolveComboBoxMethod "setActive" o = ComboBoxSetActiveMethodInfo
ResolveComboBoxMethod "setActiveId" o = ComboBoxSetActiveIdMethodInfo
ResolveComboBoxMethod "setActiveIter" o = ComboBoxSetActiveIterMethodInfo
ResolveComboBoxMethod "setButtonSensitivity" o = ComboBoxSetButtonSensitivityMethodInfo
ResolveComboBoxMethod "setCanFocus" o = Gtk.Widget.WidgetSetCanFocusMethodInfo
ResolveComboBoxMethod "setCanTarget" o = Gtk.Widget.WidgetSetCanTargetMethodInfo
ResolveComboBoxMethod "setCellDataFunc" o = Gtk.CellLayout.CellLayoutSetCellDataFuncMethodInfo
ResolveComboBoxMethod "setChild" o = ComboBoxSetChildMethodInfo
ResolveComboBoxMethod "setChildVisible" o = Gtk.Widget.WidgetSetChildVisibleMethodInfo
ResolveComboBoxMethod "setCssClasses" o = Gtk.Widget.WidgetSetCssClassesMethodInfo
ResolveComboBoxMethod "setCursor" o = Gtk.Widget.WidgetSetCursorMethodInfo
ResolveComboBoxMethod "setCursorFromName" o = Gtk.Widget.WidgetSetCursorFromNameMethodInfo
ResolveComboBoxMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
ResolveComboBoxMethod "setDataFull" o = GObject.Object.ObjectSetDataFullMethodInfo
ResolveComboBoxMethod "setDirection" o = Gtk.Widget.WidgetSetDirectionMethodInfo
ResolveComboBoxMethod "setEntryTextColumn" o = ComboBoxSetEntryTextColumnMethodInfo
ResolveComboBoxMethod "setFocusChild" o = Gtk.Widget.WidgetSetFocusChildMethodInfo
ResolveComboBoxMethod "setFocusOnClick" o = Gtk.Widget.WidgetSetFocusOnClickMethodInfo
ResolveComboBoxMethod "setFocusable" o = Gtk.Widget.WidgetSetFocusableMethodInfo
ResolveComboBoxMethod "setFontMap" o = Gtk.Widget.WidgetSetFontMapMethodInfo
ResolveComboBoxMethod "setFontOptions" o = Gtk.Widget.WidgetSetFontOptionsMethodInfo
ResolveComboBoxMethod "setHalign" o = Gtk.Widget.WidgetSetHalignMethodInfo
ResolveComboBoxMethod "setHasTooltip" o = Gtk.Widget.WidgetSetHasTooltipMethodInfo
ResolveComboBoxMethod "setHexpand" o = Gtk.Widget.WidgetSetHexpandMethodInfo
ResolveComboBoxMethod "setHexpandSet" o = Gtk.Widget.WidgetSetHexpandSetMethodInfo
ResolveComboBoxMethod "setIdColumn" o = ComboBoxSetIdColumnMethodInfo
ResolveComboBoxMethod "setLayoutManager" o = Gtk.Widget.WidgetSetLayoutManagerMethodInfo
ResolveComboBoxMethod "setMarginBottom" o = Gtk.Widget.WidgetSetMarginBottomMethodInfo
ResolveComboBoxMethod "setMarginEnd" o = Gtk.Widget.WidgetSetMarginEndMethodInfo
ResolveComboBoxMethod "setMarginStart" o = Gtk.Widget.WidgetSetMarginStartMethodInfo
ResolveComboBoxMethod "setMarginTop" o = Gtk.Widget.WidgetSetMarginTopMethodInfo
ResolveComboBoxMethod "setModel" o = ComboBoxSetModelMethodInfo
ResolveComboBoxMethod "setName" o = Gtk.Widget.WidgetSetNameMethodInfo
ResolveComboBoxMethod "setOpacity" o = Gtk.Widget.WidgetSetOpacityMethodInfo
ResolveComboBoxMethod "setOverflow" o = Gtk.Widget.WidgetSetOverflowMethodInfo
ResolveComboBoxMethod "setParent" o = Gtk.Widget.WidgetSetParentMethodInfo
ResolveComboBoxMethod "setPopupFixedWidth" o = ComboBoxSetPopupFixedWidthMethodInfo
ResolveComboBoxMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
ResolveComboBoxMethod "setReceivesDefault" o = Gtk.Widget.WidgetSetReceivesDefaultMethodInfo
ResolveComboBoxMethod "setRowSeparatorFunc" o = ComboBoxSetRowSeparatorFuncMethodInfo
ResolveComboBoxMethod "setSensitive" o = Gtk.Widget.WidgetSetSensitiveMethodInfo
ResolveComboBoxMethod "setSizeRequest" o = Gtk.Widget.WidgetSetSizeRequestMethodInfo
ResolveComboBoxMethod "setStateFlags" o = Gtk.Widget.WidgetSetStateFlagsMethodInfo
ResolveComboBoxMethod "setTooltipMarkup" o = Gtk.Widget.WidgetSetTooltipMarkupMethodInfo
ResolveComboBoxMethod "setTooltipText" o = Gtk.Widget.WidgetSetTooltipTextMethodInfo
ResolveComboBoxMethod "setValign" o = Gtk.Widget.WidgetSetValignMethodInfo
ResolveComboBoxMethod "setVexpand" o = Gtk.Widget.WidgetSetVexpandMethodInfo
ResolveComboBoxMethod "setVexpandSet" o = Gtk.Widget.WidgetSetVexpandSetMethodInfo
ResolveComboBoxMethod "setVisible" o = Gtk.Widget.WidgetSetVisibleMethodInfo
ResolveComboBoxMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveComboBoxMethod t ComboBox, O.OverloadedMethod info ComboBox p) => OL.IsLabel t (ComboBox -> 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 ~ ResolveComboBoxMethod t ComboBox, O.OverloadedMethod info ComboBox p, R.HasField t ComboBox p) => R.HasField t ComboBox p where
getField = O.overloadedMethod @info
#endif
instance (info ~ ResolveComboBoxMethod t ComboBox, O.OverloadedMethodInfo info ComboBox) => OL.IsLabel t (O.MethodProxy info ComboBox) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.MethodProxy
#else
fromLabel _ = O.MethodProxy
#endif
#endif
type ComboBoxChangedCallback =
IO ()
noComboBoxChangedCallback :: Maybe ComboBoxChangedCallback
noComboBoxChangedCallback :: Maybe (IO ())
noComboBoxChangedCallback = Maybe (IO ())
forall a. Maybe a
Nothing
type C_ComboBoxChangedCallback =
Ptr () ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_ComboBoxChangedCallback :: C_ComboBoxChangedCallback -> IO (FunPtr C_ComboBoxChangedCallback)
genClosure_ComboBoxChanged :: MonadIO m => ComboBoxChangedCallback -> m (GClosure C_ComboBoxChangedCallback)
genClosure_ComboBoxChanged :: forall (m :: * -> *).
MonadIO m =>
IO () -> m (GClosure C_ComboBoxChangedCallback)
genClosure_ComboBoxChanged IO ()
cb = IO (GClosure C_ComboBoxChangedCallback)
-> m (GClosure C_ComboBoxChangedCallback)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_ComboBoxChangedCallback)
-> m (GClosure C_ComboBoxChangedCallback))
-> IO (GClosure C_ComboBoxChangedCallback)
-> m (GClosure C_ComboBoxChangedCallback)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_ComboBoxChangedCallback
cb' = IO () -> C_ComboBoxChangedCallback
wrap_ComboBoxChangedCallback IO ()
cb
C_ComboBoxChangedCallback -> IO (FunPtr C_ComboBoxChangedCallback)
mk_ComboBoxChangedCallback C_ComboBoxChangedCallback
cb' IO (FunPtr C_ComboBoxChangedCallback)
-> (FunPtr C_ComboBoxChangedCallback
-> IO (GClosure C_ComboBoxChangedCallback))
-> IO (GClosure C_ComboBoxChangedCallback)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_ComboBoxChangedCallback
-> IO (GClosure C_ComboBoxChangedCallback)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_ComboBoxChangedCallback ::
ComboBoxChangedCallback ->
C_ComboBoxChangedCallback
wrap_ComboBoxChangedCallback :: IO () -> C_ComboBoxChangedCallback
wrap_ComboBoxChangedCallback IO ()
_cb Ptr ()
_ Ptr ()
_ = do
IO ()
_cb
onComboBoxChanged :: (IsComboBox a, MonadIO m) => a -> ComboBoxChangedCallback -> m SignalHandlerId
onComboBoxChanged :: forall a (m :: * -> *).
(IsComboBox a, MonadIO m) =>
a -> IO () -> m SignalHandlerId
onComboBoxChanged a
obj IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
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 cb' :: C_ComboBoxChangedCallback
cb' = IO () -> C_ComboBoxChangedCallback
wrap_ComboBoxChangedCallback IO ()
cb
FunPtr C_ComboBoxChangedCallback
cb'' <- C_ComboBoxChangedCallback -> IO (FunPtr C_ComboBoxChangedCallback)
mk_ComboBoxChangedCallback C_ComboBoxChangedCallback
cb'
a
-> Text
-> FunPtr C_ComboBoxChangedCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"changed" FunPtr C_ComboBoxChangedCallback
cb'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterComboBoxChanged :: (IsComboBox a, MonadIO m) => a -> ComboBoxChangedCallback -> m SignalHandlerId
afterComboBoxChanged :: forall a (m :: * -> *).
(IsComboBox a, MonadIO m) =>
a -> IO () -> m SignalHandlerId
afterComboBoxChanged a
obj IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
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 cb' :: C_ComboBoxChangedCallback
cb' = IO () -> C_ComboBoxChangedCallback
wrap_ComboBoxChangedCallback IO ()
cb
FunPtr C_ComboBoxChangedCallback
cb'' <- C_ComboBoxChangedCallback -> IO (FunPtr C_ComboBoxChangedCallback)
mk_ComboBoxChangedCallback C_ComboBoxChangedCallback
cb'
a
-> Text
-> FunPtr C_ComboBoxChangedCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"changed" FunPtr C_ComboBoxChangedCallback
cb'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data ComboBoxChangedSignalInfo
instance SignalInfo ComboBoxChangedSignalInfo where
type HaskellCallbackType ComboBoxChangedSignalInfo = ComboBoxChangedCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_ComboBoxChangedCallback cb
cb'' <- mk_ComboBoxChangedCallback cb'
connectSignalFunPtr obj "changed" cb'' connectMode detail
#endif
type ComboBoxFormatEntryTextCallback =
T.Text
-> IO T.Text
noComboBoxFormatEntryTextCallback :: Maybe ComboBoxFormatEntryTextCallback
noComboBoxFormatEntryTextCallback :: Maybe ComboBoxFormatEntryTextCallback
noComboBoxFormatEntryTextCallback = Maybe ComboBoxFormatEntryTextCallback
forall a. Maybe a
Nothing
type C_ComboBoxFormatEntryTextCallback =
Ptr () ->
CString ->
Ptr () ->
IO CString
foreign import ccall "wrapper"
mk_ComboBoxFormatEntryTextCallback :: C_ComboBoxFormatEntryTextCallback -> IO (FunPtr C_ComboBoxFormatEntryTextCallback)
genClosure_ComboBoxFormatEntryText :: MonadIO m => ComboBoxFormatEntryTextCallback -> m (GClosure C_ComboBoxFormatEntryTextCallback)
genClosure_ComboBoxFormatEntryText :: forall (m :: * -> *).
MonadIO m =>
ComboBoxFormatEntryTextCallback
-> m (GClosure C_ComboBoxFormatEntryTextCallback)
genClosure_ComboBoxFormatEntryText ComboBoxFormatEntryTextCallback
cb = IO (GClosure C_ComboBoxFormatEntryTextCallback)
-> m (GClosure C_ComboBoxFormatEntryTextCallback)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_ComboBoxFormatEntryTextCallback)
-> m (GClosure C_ComboBoxFormatEntryTextCallback))
-> IO (GClosure C_ComboBoxFormatEntryTextCallback)
-> m (GClosure C_ComboBoxFormatEntryTextCallback)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_ComboBoxFormatEntryTextCallback
cb' = ComboBoxFormatEntryTextCallback
-> C_ComboBoxFormatEntryTextCallback
wrap_ComboBoxFormatEntryTextCallback ComboBoxFormatEntryTextCallback
cb
C_ComboBoxFormatEntryTextCallback
-> IO (FunPtr C_ComboBoxFormatEntryTextCallback)
mk_ComboBoxFormatEntryTextCallback C_ComboBoxFormatEntryTextCallback
cb' IO (FunPtr C_ComboBoxFormatEntryTextCallback)
-> (FunPtr C_ComboBoxFormatEntryTextCallback
-> IO (GClosure C_ComboBoxFormatEntryTextCallback))
-> IO (GClosure C_ComboBoxFormatEntryTextCallback)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_ComboBoxFormatEntryTextCallback
-> IO (GClosure C_ComboBoxFormatEntryTextCallback)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_ComboBoxFormatEntryTextCallback ::
ComboBoxFormatEntryTextCallback ->
C_ComboBoxFormatEntryTextCallback
wrap_ComboBoxFormatEntryTextCallback :: ComboBoxFormatEntryTextCallback
-> C_ComboBoxFormatEntryTextCallback
wrap_ComboBoxFormatEntryTextCallback ComboBoxFormatEntryTextCallback
_cb Ptr ()
_ CString
path Ptr ()
_ = do
Text
path' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
path
Text
result <- ComboBoxFormatEntryTextCallback
_cb Text
path'
CString
result' <- Text -> IO CString
textToCString Text
result
CString -> IO CString
forall (m :: * -> *) a. Monad m => a -> m a
return CString
result'
onComboBoxFormatEntryText :: (IsComboBox a, MonadIO m) => a -> ComboBoxFormatEntryTextCallback -> m SignalHandlerId
onComboBoxFormatEntryText :: forall a (m :: * -> *).
(IsComboBox a, MonadIO m) =>
a -> ComboBoxFormatEntryTextCallback -> m SignalHandlerId
onComboBoxFormatEntryText a
obj ComboBoxFormatEntryTextCallback
cb = IO SignalHandlerId -> m SignalHandlerId
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 cb' :: C_ComboBoxFormatEntryTextCallback
cb' = ComboBoxFormatEntryTextCallback
-> C_ComboBoxFormatEntryTextCallback
wrap_ComboBoxFormatEntryTextCallback ComboBoxFormatEntryTextCallback
cb
FunPtr C_ComboBoxFormatEntryTextCallback
cb'' <- C_ComboBoxFormatEntryTextCallback
-> IO (FunPtr C_ComboBoxFormatEntryTextCallback)
mk_ComboBoxFormatEntryTextCallback C_ComboBoxFormatEntryTextCallback
cb'
a
-> Text
-> FunPtr C_ComboBoxFormatEntryTextCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"format-entry-text" FunPtr C_ComboBoxFormatEntryTextCallback
cb'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterComboBoxFormatEntryText :: (IsComboBox a, MonadIO m) => a -> ComboBoxFormatEntryTextCallback -> m SignalHandlerId
afterComboBoxFormatEntryText :: forall a (m :: * -> *).
(IsComboBox a, MonadIO m) =>
a -> ComboBoxFormatEntryTextCallback -> m SignalHandlerId
afterComboBoxFormatEntryText a
obj ComboBoxFormatEntryTextCallback
cb = IO SignalHandlerId -> m SignalHandlerId
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 cb' :: C_ComboBoxFormatEntryTextCallback
cb' = ComboBoxFormatEntryTextCallback
-> C_ComboBoxFormatEntryTextCallback
wrap_ComboBoxFormatEntryTextCallback ComboBoxFormatEntryTextCallback
cb
FunPtr C_ComboBoxFormatEntryTextCallback
cb'' <- C_ComboBoxFormatEntryTextCallback
-> IO (FunPtr C_ComboBoxFormatEntryTextCallback)
mk_ComboBoxFormatEntryTextCallback C_ComboBoxFormatEntryTextCallback
cb'
a
-> Text
-> FunPtr C_ComboBoxFormatEntryTextCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"format-entry-text" FunPtr C_ComboBoxFormatEntryTextCallback
cb'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data ComboBoxFormatEntryTextSignalInfo
instance SignalInfo ComboBoxFormatEntryTextSignalInfo where
type HaskellCallbackType ComboBoxFormatEntryTextSignalInfo = ComboBoxFormatEntryTextCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_ComboBoxFormatEntryTextCallback cb
cb'' <- mk_ComboBoxFormatEntryTextCallback cb'
connectSignalFunPtr obj "format-entry-text" cb'' connectMode detail
#endif
type ComboBoxMoveActiveCallback =
Gtk.Enums.ScrollType
-> IO ()
noComboBoxMoveActiveCallback :: Maybe ComboBoxMoveActiveCallback
noComboBoxMoveActiveCallback :: Maybe ComboBoxMoveActiveCallback
noComboBoxMoveActiveCallback = Maybe ComboBoxMoveActiveCallback
forall a. Maybe a
Nothing
type C_ComboBoxMoveActiveCallback =
Ptr () ->
CUInt ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_ComboBoxMoveActiveCallback :: C_ComboBoxMoveActiveCallback -> IO (FunPtr C_ComboBoxMoveActiveCallback)
genClosure_ComboBoxMoveActive :: MonadIO m => ComboBoxMoveActiveCallback -> m (GClosure C_ComboBoxMoveActiveCallback)
genClosure_ComboBoxMoveActive :: forall (m :: * -> *).
MonadIO m =>
ComboBoxMoveActiveCallback
-> m (GClosure C_ComboBoxMoveActiveCallback)
genClosure_ComboBoxMoveActive ComboBoxMoveActiveCallback
cb = IO (GClosure C_ComboBoxMoveActiveCallback)
-> m (GClosure C_ComboBoxMoveActiveCallback)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_ComboBoxMoveActiveCallback)
-> m (GClosure C_ComboBoxMoveActiveCallback))
-> IO (GClosure C_ComboBoxMoveActiveCallback)
-> m (GClosure C_ComboBoxMoveActiveCallback)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_ComboBoxMoveActiveCallback
cb' = ComboBoxMoveActiveCallback -> C_ComboBoxMoveActiveCallback
wrap_ComboBoxMoveActiveCallback ComboBoxMoveActiveCallback
cb
C_ComboBoxMoveActiveCallback
-> IO (FunPtr C_ComboBoxMoveActiveCallback)
mk_ComboBoxMoveActiveCallback C_ComboBoxMoveActiveCallback
cb' IO (FunPtr C_ComboBoxMoveActiveCallback)
-> (FunPtr C_ComboBoxMoveActiveCallback
-> IO (GClosure C_ComboBoxMoveActiveCallback))
-> IO (GClosure C_ComboBoxMoveActiveCallback)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_ComboBoxMoveActiveCallback
-> IO (GClosure C_ComboBoxMoveActiveCallback)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_ComboBoxMoveActiveCallback ::
ComboBoxMoveActiveCallback ->
C_ComboBoxMoveActiveCallback
wrap_ComboBoxMoveActiveCallback :: ComboBoxMoveActiveCallback -> C_ComboBoxMoveActiveCallback
wrap_ComboBoxMoveActiveCallback ComboBoxMoveActiveCallback
_cb Ptr ()
_ CUInt
scrollType Ptr ()
_ = do
let scrollType' :: ScrollType
scrollType' = (Int -> ScrollType
forall a. Enum a => Int -> a
toEnum (Int -> ScrollType) -> (CUInt -> Int) -> CUInt -> ScrollType
forall b c a. (b -> c) -> (a -> b) -> a -> c
. CUInt -> Int
forall a b. (Integral a, Num b) => a -> b
fromIntegral) CUInt
scrollType
ComboBoxMoveActiveCallback
_cb ScrollType
scrollType'
onComboBoxMoveActive :: (IsComboBox a, MonadIO m) => a -> ComboBoxMoveActiveCallback -> m SignalHandlerId
onComboBoxMoveActive :: forall a (m :: * -> *).
(IsComboBox a, MonadIO m) =>
a -> ComboBoxMoveActiveCallback -> m SignalHandlerId
onComboBoxMoveActive a
obj ComboBoxMoveActiveCallback
cb = IO SignalHandlerId -> m SignalHandlerId
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 cb' :: C_ComboBoxMoveActiveCallback
cb' = ComboBoxMoveActiveCallback -> C_ComboBoxMoveActiveCallback
wrap_ComboBoxMoveActiveCallback ComboBoxMoveActiveCallback
cb
FunPtr C_ComboBoxMoveActiveCallback
cb'' <- C_ComboBoxMoveActiveCallback
-> IO (FunPtr C_ComboBoxMoveActiveCallback)
mk_ComboBoxMoveActiveCallback C_ComboBoxMoveActiveCallback
cb'
a
-> Text
-> FunPtr C_ComboBoxMoveActiveCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"move-active" FunPtr C_ComboBoxMoveActiveCallback
cb'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterComboBoxMoveActive :: (IsComboBox a, MonadIO m) => a -> ComboBoxMoveActiveCallback -> m SignalHandlerId
afterComboBoxMoveActive :: forall a (m :: * -> *).
(IsComboBox a, MonadIO m) =>
a -> ComboBoxMoveActiveCallback -> m SignalHandlerId
afterComboBoxMoveActive a
obj ComboBoxMoveActiveCallback
cb = IO SignalHandlerId -> m SignalHandlerId
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 cb' :: C_ComboBoxMoveActiveCallback
cb' = ComboBoxMoveActiveCallback -> C_ComboBoxMoveActiveCallback
wrap_ComboBoxMoveActiveCallback ComboBoxMoveActiveCallback
cb
FunPtr C_ComboBoxMoveActiveCallback
cb'' <- C_ComboBoxMoveActiveCallback
-> IO (FunPtr C_ComboBoxMoveActiveCallback)
mk_ComboBoxMoveActiveCallback C_ComboBoxMoveActiveCallback
cb'
a
-> Text
-> FunPtr C_ComboBoxMoveActiveCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"move-active" FunPtr C_ComboBoxMoveActiveCallback
cb'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data ComboBoxMoveActiveSignalInfo
instance SignalInfo ComboBoxMoveActiveSignalInfo where
type HaskellCallbackType ComboBoxMoveActiveSignalInfo = ComboBoxMoveActiveCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_ComboBoxMoveActiveCallback cb
cb'' <- mk_ComboBoxMoveActiveCallback cb'
connectSignalFunPtr obj "move-active" cb'' connectMode detail
#endif
type ComboBoxPopdownCallback =
IO Bool
noComboBoxPopdownCallback :: Maybe ComboBoxPopdownCallback
noComboBoxPopdownCallback :: Maybe ComboBoxPopdownCallback
noComboBoxPopdownCallback = Maybe ComboBoxPopdownCallback
forall a. Maybe a
Nothing
type C_ComboBoxPopdownCallback =
Ptr () ->
Ptr () ->
IO CInt
foreign import ccall "wrapper"
mk_ComboBoxPopdownCallback :: C_ComboBoxPopdownCallback -> IO (FunPtr C_ComboBoxPopdownCallback)
genClosure_ComboBoxPopdown :: MonadIO m => ComboBoxPopdownCallback -> m (GClosure C_ComboBoxPopdownCallback)
genClosure_ComboBoxPopdown :: forall (m :: * -> *).
MonadIO m =>
ComboBoxPopdownCallback -> m (GClosure C_ComboBoxPopdownCallback)
genClosure_ComboBoxPopdown ComboBoxPopdownCallback
cb = IO (GClosure C_ComboBoxPopdownCallback)
-> m (GClosure C_ComboBoxPopdownCallback)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_ComboBoxPopdownCallback)
-> m (GClosure C_ComboBoxPopdownCallback))
-> IO (GClosure C_ComboBoxPopdownCallback)
-> m (GClosure C_ComboBoxPopdownCallback)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_ComboBoxPopdownCallback
cb' = ComboBoxPopdownCallback -> C_ComboBoxPopdownCallback
wrap_ComboBoxPopdownCallback ComboBoxPopdownCallback
cb
C_ComboBoxPopdownCallback -> IO (FunPtr C_ComboBoxPopdownCallback)
mk_ComboBoxPopdownCallback C_ComboBoxPopdownCallback
cb' IO (FunPtr C_ComboBoxPopdownCallback)
-> (FunPtr C_ComboBoxPopdownCallback
-> IO (GClosure C_ComboBoxPopdownCallback))
-> IO (GClosure C_ComboBoxPopdownCallback)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_ComboBoxPopdownCallback
-> IO (GClosure C_ComboBoxPopdownCallback)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_ComboBoxPopdownCallback ::
ComboBoxPopdownCallback ->
C_ComboBoxPopdownCallback
wrap_ComboBoxPopdownCallback :: ComboBoxPopdownCallback -> C_ComboBoxPopdownCallback
wrap_ComboBoxPopdownCallback ComboBoxPopdownCallback
_cb Ptr ()
_ Ptr ()
_ = do
Bool
result <- ComboBoxPopdownCallback
_cb
let result' :: CInt
result' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
fromEnum) Bool
result
CInt -> IO CInt
forall (m :: * -> *) a. Monad m => a -> m a
return CInt
result'
onComboBoxPopdown :: (IsComboBox a, MonadIO m) => a -> ComboBoxPopdownCallback -> m SignalHandlerId
onComboBoxPopdown :: forall a (m :: * -> *).
(IsComboBox a, MonadIO m) =>
a -> ComboBoxPopdownCallback -> m SignalHandlerId
onComboBoxPopdown a
obj ComboBoxPopdownCallback
cb = IO SignalHandlerId -> m SignalHandlerId
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 cb' :: C_ComboBoxPopdownCallback
cb' = ComboBoxPopdownCallback -> C_ComboBoxPopdownCallback
wrap_ComboBoxPopdownCallback ComboBoxPopdownCallback
cb
FunPtr C_ComboBoxPopdownCallback
cb'' <- C_ComboBoxPopdownCallback -> IO (FunPtr C_ComboBoxPopdownCallback)
mk_ComboBoxPopdownCallback C_ComboBoxPopdownCallback
cb'
a
-> Text
-> FunPtr C_ComboBoxPopdownCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"popdown" FunPtr C_ComboBoxPopdownCallback
cb'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterComboBoxPopdown :: (IsComboBox a, MonadIO m) => a -> ComboBoxPopdownCallback -> m SignalHandlerId
afterComboBoxPopdown :: forall a (m :: * -> *).
(IsComboBox a, MonadIO m) =>
a -> ComboBoxPopdownCallback -> m SignalHandlerId
afterComboBoxPopdown a
obj ComboBoxPopdownCallback
cb = IO SignalHandlerId -> m SignalHandlerId
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 cb' :: C_ComboBoxPopdownCallback
cb' = ComboBoxPopdownCallback -> C_ComboBoxPopdownCallback
wrap_ComboBoxPopdownCallback ComboBoxPopdownCallback
cb
FunPtr C_ComboBoxPopdownCallback
cb'' <- C_ComboBoxPopdownCallback -> IO (FunPtr C_ComboBoxPopdownCallback)
mk_ComboBoxPopdownCallback C_ComboBoxPopdownCallback
cb'
a
-> Text
-> FunPtr C_ComboBoxPopdownCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"popdown" FunPtr C_ComboBoxPopdownCallback
cb'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data ComboBoxPopdownSignalInfo
instance SignalInfo ComboBoxPopdownSignalInfo where
type HaskellCallbackType ComboBoxPopdownSignalInfo = ComboBoxPopdownCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_ComboBoxPopdownCallback cb
cb'' <- mk_ComboBoxPopdownCallback cb'
connectSignalFunPtr obj "popdown" cb'' connectMode detail
#endif
type =
IO ()
noComboBoxPopupCallback :: Maybe ComboBoxPopupCallback
= Maybe (IO ())
forall a. Maybe a
Nothing
type =
Ptr () ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
:: C_ComboBoxPopupCallback -> IO (FunPtr C_ComboBoxPopupCallback)
genClosure_ComboBoxPopup :: MonadIO m => ComboBoxPopupCallback -> m (GClosure C_ComboBoxPopupCallback)
IO ()
cb = IO (GClosure C_ComboBoxChangedCallback)
-> m (GClosure C_ComboBoxChangedCallback)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_ComboBoxChangedCallback)
-> m (GClosure C_ComboBoxChangedCallback))
-> IO (GClosure C_ComboBoxChangedCallback)
-> m (GClosure C_ComboBoxChangedCallback)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_ComboBoxChangedCallback
cb' = IO () -> C_ComboBoxChangedCallback
wrap_ComboBoxPopupCallback IO ()
cb
C_ComboBoxChangedCallback -> IO (FunPtr C_ComboBoxChangedCallback)
mk_ComboBoxPopupCallback C_ComboBoxChangedCallback
cb' IO (FunPtr C_ComboBoxChangedCallback)
-> (FunPtr C_ComboBoxChangedCallback
-> IO (GClosure C_ComboBoxChangedCallback))
-> IO (GClosure C_ComboBoxChangedCallback)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_ComboBoxChangedCallback
-> IO (GClosure C_ComboBoxChangedCallback)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_ComboBoxPopupCallback ::
ComboBoxPopupCallback ->
C_ComboBoxPopupCallback
IO ()
_cb Ptr ()
_ Ptr ()
_ = do
IO ()
_cb
onComboBoxPopup :: (IsComboBox a, MonadIO m) => a -> ComboBoxPopupCallback -> m SignalHandlerId
a
obj IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
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 cb' :: C_ComboBoxChangedCallback
cb' = IO () -> C_ComboBoxChangedCallback
wrap_ComboBoxPopupCallback IO ()
cb
FunPtr C_ComboBoxChangedCallback
cb'' <- C_ComboBoxChangedCallback -> IO (FunPtr C_ComboBoxChangedCallback)
mk_ComboBoxPopupCallback C_ComboBoxChangedCallback
cb'
a
-> Text
-> FunPtr C_ComboBoxChangedCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"popup" FunPtr C_ComboBoxChangedCallback
cb'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterComboBoxPopup :: (IsComboBox a, MonadIO m) => a -> ComboBoxPopupCallback -> m SignalHandlerId
a
obj IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
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 cb' :: C_ComboBoxChangedCallback
cb' = IO () -> C_ComboBoxChangedCallback
wrap_ComboBoxPopupCallback IO ()
cb
FunPtr C_ComboBoxChangedCallback
cb'' <- C_ComboBoxChangedCallback -> IO (FunPtr C_ComboBoxChangedCallback)
mk_ComboBoxPopupCallback C_ComboBoxChangedCallback
cb'
a
-> Text
-> FunPtr C_ComboBoxChangedCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"popup" FunPtr C_ComboBoxChangedCallback
cb'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data ComboBoxPopupSignalInfo
instance SignalInfo ComboBoxPopupSignalInfo where
type HaskellCallbackType ComboBoxPopupSignalInfo = ComboBoxPopupCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_ComboBoxPopupCallback cb
cb'' <- mk_ComboBoxPopupCallback cb'
connectSignalFunPtr obj "popup" cb'' connectMode detail
#endif
getComboBoxActive :: (MonadIO m, IsComboBox o) => o -> m Int32
getComboBoxActive :: forall (m :: * -> *) o. (MonadIO m, IsComboBox o) => o -> m Int32
getComboBoxActive o
obj = IO Int32 -> m Int32
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Int32 -> m Int32) -> IO Int32 -> m Int32
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Int32
forall a. GObject a => a -> String -> IO Int32
B.Properties.getObjectPropertyInt32 o
obj String
"active"
setComboBoxActive :: (MonadIO m, IsComboBox o) => o -> Int32 -> m ()
setComboBoxActive :: forall (m :: * -> *) o.
(MonadIO m, IsComboBox o) =>
o -> Int32 -> m ()
setComboBoxActive o
obj Int32
val = IO () -> m ()
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 -> Int32 -> IO ()
forall a. GObject a => a -> String -> Int32 -> IO ()
B.Properties.setObjectPropertyInt32 o
obj String
"active" Int32
val
constructComboBoxActive :: (IsComboBox o, MIO.MonadIO m) => Int32 -> m (GValueConstruct o)
constructComboBoxActive :: forall o (m :: * -> *).
(IsComboBox o, MonadIO m) =>
Int32 -> m (GValueConstruct o)
constructComboBoxActive Int32
val = IO (GValueConstruct o) -> m (GValueConstruct o)
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 (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 -> Int32 -> IO (GValueConstruct o)
forall o. String -> Int32 -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyInt32 String
"active" Int32
val
#if defined(ENABLE_OVERLOADING)
data ComboBoxActivePropertyInfo
instance AttrInfo ComboBoxActivePropertyInfo where
type AttrAllowedOps ComboBoxActivePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint ComboBoxActivePropertyInfo = IsComboBox
type AttrSetTypeConstraint ComboBoxActivePropertyInfo = (~) Int32
type AttrTransferTypeConstraint ComboBoxActivePropertyInfo = (~) Int32
type AttrTransferType ComboBoxActivePropertyInfo = Int32
type AttrGetType ComboBoxActivePropertyInfo = Int32
type AttrLabel ComboBoxActivePropertyInfo = "active"
type AttrOrigin ComboBoxActivePropertyInfo = ComboBox
attrGet = getComboBoxActive
attrSet = setComboBoxActive
attrTransfer _ v = do
return v
attrConstruct = constructComboBoxActive
attrClear = undefined
#endif
getComboBoxActiveId :: (MonadIO m, IsComboBox o) => o -> m (Maybe T.Text)
getComboBoxActiveId :: forall (m :: * -> *) o.
(MonadIO m, IsComboBox o) =>
o -> m (Maybe Text)
getComboBoxActiveId o
obj = IO (Maybe Text) -> m (Maybe Text)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (Maybe Text) -> m (Maybe Text))
-> IO (Maybe Text) -> m (Maybe Text)
forall a b. (a -> b) -> a -> b
$ o -> String -> IO (Maybe Text)
forall a. GObject a => a -> String -> IO (Maybe Text)
B.Properties.getObjectPropertyString o
obj String
"active-id"
setComboBoxActiveId :: (MonadIO m, IsComboBox o) => o -> T.Text -> m ()
setComboBoxActiveId :: forall (m :: * -> *) o.
(MonadIO m, IsComboBox o) =>
o -> Text -> m ()
setComboBoxActiveId o
obj Text
val = IO () -> m ()
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 Text -> IO ()
forall a. GObject a => a -> String -> Maybe Text -> IO ()
B.Properties.setObjectPropertyString o
obj String
"active-id" (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
val)
constructComboBoxActiveId :: (IsComboBox o, MIO.MonadIO m) => T.Text -> m (GValueConstruct o)
constructComboBoxActiveId :: forall o (m :: * -> *).
(IsComboBox o, MonadIO m) =>
Text -> m (GValueConstruct o)
constructComboBoxActiveId Text
val = IO (GValueConstruct o) -> m (GValueConstruct o)
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 (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 Text -> IO (GValueConstruct o)
forall o. String -> Maybe Text -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyString String
"active-id" (Text -> Maybe Text
forall a. a -> Maybe a
P.Just Text
val)
clearComboBoxActiveId :: (MonadIO m, IsComboBox o) => o -> m ()
clearComboBoxActiveId :: forall (m :: * -> *) o. (MonadIO m, IsComboBox o) => o -> m ()
clearComboBoxActiveId o
obj = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Maybe Text -> IO ()
forall a. GObject a => a -> String -> Maybe Text -> IO ()
B.Properties.setObjectPropertyString o
obj String
"active-id" (Maybe Text
forall a. Maybe a
Nothing :: Maybe T.Text)
#if defined(ENABLE_OVERLOADING)
data ComboBoxActiveIdPropertyInfo
instance AttrInfo ComboBoxActiveIdPropertyInfo where
type AttrAllowedOps ComboBoxActiveIdPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint ComboBoxActiveIdPropertyInfo = IsComboBox
type AttrSetTypeConstraint ComboBoxActiveIdPropertyInfo = (~) T.Text
type AttrTransferTypeConstraint ComboBoxActiveIdPropertyInfo = (~) T.Text
type AttrTransferType ComboBoxActiveIdPropertyInfo = T.Text
type AttrGetType ComboBoxActiveIdPropertyInfo = (Maybe T.Text)
type AttrLabel ComboBoxActiveIdPropertyInfo = "active-id"
type AttrOrigin ComboBoxActiveIdPropertyInfo = ComboBox
attrGet = getComboBoxActiveId
attrSet = setComboBoxActiveId
attrTransfer _ v = do
return v
attrConstruct = constructComboBoxActiveId
attrClear = clearComboBoxActiveId
#endif
getComboBoxButtonSensitivity :: (MonadIO m, IsComboBox o) => o -> m Gtk.Enums.SensitivityType
getComboBoxButtonSensitivity :: forall (m :: * -> *) o.
(MonadIO m, IsComboBox o) =>
o -> m SensitivityType
getComboBoxButtonSensitivity o
obj = IO SensitivityType -> m SensitivityType
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO SensitivityType -> m SensitivityType)
-> IO SensitivityType -> m SensitivityType
forall a b. (a -> b) -> a -> b
$ o -> String -> IO SensitivityType
forall a b. (GObject a, Enum b, BoxedEnum b) => a -> String -> IO b
B.Properties.getObjectPropertyEnum o
obj String
"button-sensitivity"
setComboBoxButtonSensitivity :: (MonadIO m, IsComboBox o) => o -> Gtk.Enums.SensitivityType -> m ()
setComboBoxButtonSensitivity :: forall (m :: * -> *) o.
(MonadIO m, IsComboBox o) =>
o -> SensitivityType -> m ()
setComboBoxButtonSensitivity o
obj SensitivityType
val = IO () -> m ()
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 -> SensitivityType -> IO ()
forall a b.
(GObject a, Enum b, BoxedEnum b) =>
a -> String -> b -> IO ()
B.Properties.setObjectPropertyEnum o
obj String
"button-sensitivity" SensitivityType
val
constructComboBoxButtonSensitivity :: (IsComboBox o, MIO.MonadIO m) => Gtk.Enums.SensitivityType -> m (GValueConstruct o)
constructComboBoxButtonSensitivity :: forall o (m :: * -> *).
(IsComboBox o, MonadIO m) =>
SensitivityType -> m (GValueConstruct o)
constructComboBoxButtonSensitivity SensitivityType
val = IO (GValueConstruct o) -> m (GValueConstruct o)
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 (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 -> SensitivityType -> IO (GValueConstruct o)
forall a o.
(Enum a, BoxedEnum a) =>
String -> a -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyEnum String
"button-sensitivity" SensitivityType
val
#if defined(ENABLE_OVERLOADING)
data ComboBoxButtonSensitivityPropertyInfo
instance AttrInfo ComboBoxButtonSensitivityPropertyInfo where
type AttrAllowedOps ComboBoxButtonSensitivityPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint ComboBoxButtonSensitivityPropertyInfo = IsComboBox
type AttrSetTypeConstraint ComboBoxButtonSensitivityPropertyInfo = (~) Gtk.Enums.SensitivityType
type AttrTransferTypeConstraint ComboBoxButtonSensitivityPropertyInfo = (~) Gtk.Enums.SensitivityType
type AttrTransferType ComboBoxButtonSensitivityPropertyInfo = Gtk.Enums.SensitivityType
type AttrGetType ComboBoxButtonSensitivityPropertyInfo = Gtk.Enums.SensitivityType
type AttrLabel ComboBoxButtonSensitivityPropertyInfo = "button-sensitivity"
type AttrOrigin ComboBoxButtonSensitivityPropertyInfo = ComboBox
attrGet = getComboBoxButtonSensitivity
attrSet = setComboBoxButtonSensitivity
attrTransfer _ v = do
return v
attrConstruct = constructComboBoxButtonSensitivity
attrClear = undefined
#endif
getComboBoxChild :: (MonadIO m, IsComboBox o) => o -> m (Maybe Gtk.Widget.Widget)
getComboBoxChild :: forall (m :: * -> *) o.
(MonadIO m, IsComboBox o) =>
o -> m (Maybe Widget)
getComboBoxChild o
obj = IO (Maybe Widget) -> m (Maybe Widget)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (Maybe Widget) -> m (Maybe Widget))
-> IO (Maybe Widget) -> m (Maybe Widget)
forall a b. (a -> b) -> a -> b
$ o -> String -> (ManagedPtr Widget -> Widget) -> IO (Maybe Widget)
forall a b.
(GObject a, GObject b) =>
a -> String -> (ManagedPtr b -> b) -> IO (Maybe b)
B.Properties.getObjectPropertyObject o
obj String
"child" ManagedPtr Widget -> Widget
Gtk.Widget.Widget
setComboBoxChild :: (MonadIO m, IsComboBox o, Gtk.Widget.IsWidget a) => o -> a -> m ()
setComboBoxChild :: forall (m :: * -> *) o a.
(MonadIO m, IsComboBox o, IsWidget a) =>
o -> a -> m ()
setComboBoxChild o
obj a
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Maybe a -> IO ()
forall a b.
(GObject a, GObject b) =>
a -> String -> Maybe b -> IO ()
B.Properties.setObjectPropertyObject o
obj String
"child" (a -> Maybe a
forall a. a -> Maybe a
Just a
val)
constructComboBoxChild :: (IsComboBox o, MIO.MonadIO m, Gtk.Widget.IsWidget a) => a -> m (GValueConstruct o)
constructComboBoxChild :: forall o (m :: * -> *) a.
(IsComboBox o, MonadIO m, IsWidget a) =>
a -> m (GValueConstruct o)
constructComboBoxChild a
val = IO (GValueConstruct o) -> m (GValueConstruct o)
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 (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Maybe a -> IO (GValueConstruct o)
forall a o.
GObject a =>
String -> Maybe a -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyObject String
"child" (a -> Maybe a
forall a. a -> Maybe a
P.Just a
val)
clearComboBoxChild :: (MonadIO m, IsComboBox o) => o -> m ()
clearComboBoxChild :: forall (m :: * -> *) o. (MonadIO m, IsComboBox o) => o -> m ()
clearComboBoxChild o
obj = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Maybe Widget -> IO ()
forall a b.
(GObject a, GObject b) =>
a -> String -> Maybe b -> IO ()
B.Properties.setObjectPropertyObject o
obj String
"child" (Maybe Widget
forall a. Maybe a
Nothing :: Maybe Gtk.Widget.Widget)
#if defined(ENABLE_OVERLOADING)
data ComboBoxChildPropertyInfo
instance AttrInfo ComboBoxChildPropertyInfo where
type AttrAllowedOps ComboBoxChildPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint ComboBoxChildPropertyInfo = IsComboBox
type AttrSetTypeConstraint ComboBoxChildPropertyInfo = Gtk.Widget.IsWidget
type AttrTransferTypeConstraint ComboBoxChildPropertyInfo = Gtk.Widget.IsWidget
type AttrTransferType ComboBoxChildPropertyInfo = Gtk.Widget.Widget
type AttrGetType ComboBoxChildPropertyInfo = (Maybe Gtk.Widget.Widget)
type AttrLabel ComboBoxChildPropertyInfo = "child"
type AttrOrigin ComboBoxChildPropertyInfo = ComboBox
attrGet = getComboBoxChild
attrSet = setComboBoxChild
attrTransfer _ v = do
unsafeCastTo Gtk.Widget.Widget v
attrConstruct = constructComboBoxChild
attrClear = clearComboBoxChild
#endif
getComboBoxEntryTextColumn :: (MonadIO m, IsComboBox o) => o -> m Int32
getComboBoxEntryTextColumn :: forall (m :: * -> *) o. (MonadIO m, IsComboBox o) => o -> m Int32
getComboBoxEntryTextColumn o
obj = IO Int32 -> m Int32
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Int32 -> m Int32) -> IO Int32 -> m Int32
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Int32
forall a. GObject a => a -> String -> IO Int32
B.Properties.getObjectPropertyInt32 o
obj String
"entry-text-column"
setComboBoxEntryTextColumn :: (MonadIO m, IsComboBox o) => o -> Int32 -> m ()
setComboBoxEntryTextColumn :: forall (m :: * -> *) o.
(MonadIO m, IsComboBox o) =>
o -> Int32 -> m ()
setComboBoxEntryTextColumn o
obj Int32
val = IO () -> m ()
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 -> Int32 -> IO ()
forall a. GObject a => a -> String -> Int32 -> IO ()
B.Properties.setObjectPropertyInt32 o
obj String
"entry-text-column" Int32
val
constructComboBoxEntryTextColumn :: (IsComboBox o, MIO.MonadIO m) => Int32 -> m (GValueConstruct o)
constructComboBoxEntryTextColumn :: forall o (m :: * -> *).
(IsComboBox o, MonadIO m) =>
Int32 -> m (GValueConstruct o)
constructComboBoxEntryTextColumn Int32
val = IO (GValueConstruct o) -> m (GValueConstruct o)
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 (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 -> Int32 -> IO (GValueConstruct o)
forall o. String -> Int32 -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyInt32 String
"entry-text-column" Int32
val
#if defined(ENABLE_OVERLOADING)
data ComboBoxEntryTextColumnPropertyInfo
instance AttrInfo ComboBoxEntryTextColumnPropertyInfo where
type AttrAllowedOps ComboBoxEntryTextColumnPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint ComboBoxEntryTextColumnPropertyInfo = IsComboBox
type AttrSetTypeConstraint ComboBoxEntryTextColumnPropertyInfo = (~) Int32
type AttrTransferTypeConstraint ComboBoxEntryTextColumnPropertyInfo = (~) Int32
type AttrTransferType ComboBoxEntryTextColumnPropertyInfo = Int32
type AttrGetType ComboBoxEntryTextColumnPropertyInfo = Int32
type AttrLabel ComboBoxEntryTextColumnPropertyInfo = "entry-text-column"
type AttrOrigin ComboBoxEntryTextColumnPropertyInfo = ComboBox
attrGet = getComboBoxEntryTextColumn
attrSet = setComboBoxEntryTextColumn
attrTransfer _ v = do
return v
attrConstruct = constructComboBoxEntryTextColumn
attrClear = undefined
#endif
getComboBoxHasEntry :: (MonadIO m, IsComboBox o) => o -> m Bool
getComboBoxHasEntry :: forall (m :: * -> *) o. (MonadIO m, IsComboBox o) => o -> m Bool
getComboBoxHasEntry o
obj = ComboBoxPopdownCallback -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (ComboBoxPopdownCallback -> m Bool)
-> ComboBoxPopdownCallback -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> ComboBoxPopdownCallback
forall a. GObject a => a -> String -> ComboBoxPopdownCallback
B.Properties.getObjectPropertyBool o
obj String
"has-entry"
constructComboBoxHasEntry :: (IsComboBox o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructComboBoxHasEntry :: forall o (m :: * -> *).
(IsComboBox o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructComboBoxHasEntry Bool
val = IO (GValueConstruct o) -> m (GValueConstruct o)
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 (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
"has-entry" Bool
val
#if defined(ENABLE_OVERLOADING)
data ComboBoxHasEntryPropertyInfo
instance AttrInfo ComboBoxHasEntryPropertyInfo where
type AttrAllowedOps ComboBoxHasEntryPropertyInfo = '[ 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint ComboBoxHasEntryPropertyInfo = IsComboBox
type AttrSetTypeConstraint ComboBoxHasEntryPropertyInfo = (~) Bool
type AttrTransferTypeConstraint ComboBoxHasEntryPropertyInfo = (~) Bool
type AttrTransferType ComboBoxHasEntryPropertyInfo = Bool
type AttrGetType ComboBoxHasEntryPropertyInfo = Bool
type AttrLabel ComboBoxHasEntryPropertyInfo = "has-entry"
type AttrOrigin ComboBoxHasEntryPropertyInfo = ComboBox
attrGet = getComboBoxHasEntry
attrSet = undefined
attrTransfer _ v = do
return v
attrConstruct = constructComboBoxHasEntry
attrClear = undefined
#endif
getComboBoxHasFrame :: (MonadIO m, IsComboBox o) => o -> m Bool
getComboBoxHasFrame :: forall (m :: * -> *) o. (MonadIO m, IsComboBox o) => o -> m Bool
getComboBoxHasFrame o
obj = ComboBoxPopdownCallback -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (ComboBoxPopdownCallback -> m Bool)
-> ComboBoxPopdownCallback -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> ComboBoxPopdownCallback
forall a. GObject a => a -> String -> ComboBoxPopdownCallback
B.Properties.getObjectPropertyBool o
obj String
"has-frame"
setComboBoxHasFrame :: (MonadIO m, IsComboBox o) => o -> Bool -> m ()
setComboBoxHasFrame :: forall (m :: * -> *) o.
(MonadIO m, IsComboBox o) =>
o -> Bool -> m ()
setComboBoxHasFrame o
obj Bool
val = IO () -> m ()
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
"has-frame" Bool
val
constructComboBoxHasFrame :: (IsComboBox o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructComboBoxHasFrame :: forall o (m :: * -> *).
(IsComboBox o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructComboBoxHasFrame Bool
val = IO (GValueConstruct o) -> m (GValueConstruct o)
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 (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
"has-frame" Bool
val
#if defined(ENABLE_OVERLOADING)
data ComboBoxHasFramePropertyInfo
instance AttrInfo ComboBoxHasFramePropertyInfo where
type AttrAllowedOps ComboBoxHasFramePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint ComboBoxHasFramePropertyInfo = IsComboBox
type AttrSetTypeConstraint ComboBoxHasFramePropertyInfo = (~) Bool
type AttrTransferTypeConstraint ComboBoxHasFramePropertyInfo = (~) Bool
type AttrTransferType ComboBoxHasFramePropertyInfo = Bool
type AttrGetType ComboBoxHasFramePropertyInfo = Bool
type AttrLabel ComboBoxHasFramePropertyInfo = "has-frame"
type AttrOrigin ComboBoxHasFramePropertyInfo = ComboBox
attrGet = getComboBoxHasFrame
attrSet = setComboBoxHasFrame
attrTransfer _ v = do
return v
attrConstruct = constructComboBoxHasFrame
attrClear = undefined
#endif
getComboBoxIdColumn :: (MonadIO m, IsComboBox o) => o -> m Int32
getComboBoxIdColumn :: forall (m :: * -> *) o. (MonadIO m, IsComboBox o) => o -> m Int32
getComboBoxIdColumn o
obj = IO Int32 -> m Int32
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Int32 -> m Int32) -> IO Int32 -> m Int32
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Int32
forall a. GObject a => a -> String -> IO Int32
B.Properties.getObjectPropertyInt32 o
obj String
"id-column"
setComboBoxIdColumn :: (MonadIO m, IsComboBox o) => o -> Int32 -> m ()
setComboBoxIdColumn :: forall (m :: * -> *) o.
(MonadIO m, IsComboBox o) =>
o -> Int32 -> m ()
setComboBoxIdColumn o
obj Int32
val = IO () -> m ()
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 -> Int32 -> IO ()
forall a. GObject a => a -> String -> Int32 -> IO ()
B.Properties.setObjectPropertyInt32 o
obj String
"id-column" Int32
val
constructComboBoxIdColumn :: (IsComboBox o, MIO.MonadIO m) => Int32 -> m (GValueConstruct o)
constructComboBoxIdColumn :: forall o (m :: * -> *).
(IsComboBox o, MonadIO m) =>
Int32 -> m (GValueConstruct o)
constructComboBoxIdColumn Int32
val = IO (GValueConstruct o) -> m (GValueConstruct o)
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 (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 -> Int32 -> IO (GValueConstruct o)
forall o. String -> Int32 -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyInt32 String
"id-column" Int32
val
#if defined(ENABLE_OVERLOADING)
data ComboBoxIdColumnPropertyInfo
instance AttrInfo ComboBoxIdColumnPropertyInfo where
type AttrAllowedOps ComboBoxIdColumnPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint ComboBoxIdColumnPropertyInfo = IsComboBox
type AttrSetTypeConstraint ComboBoxIdColumnPropertyInfo = (~) Int32
type AttrTransferTypeConstraint ComboBoxIdColumnPropertyInfo = (~) Int32
type AttrTransferType ComboBoxIdColumnPropertyInfo = Int32
type AttrGetType ComboBoxIdColumnPropertyInfo = Int32
type AttrLabel ComboBoxIdColumnPropertyInfo = "id-column"
type AttrOrigin ComboBoxIdColumnPropertyInfo = ComboBox
attrGet = getComboBoxIdColumn
attrSet = setComboBoxIdColumn
attrTransfer _ v = do
return v
attrConstruct = constructComboBoxIdColumn
attrClear = undefined
#endif
getComboBoxModel :: (MonadIO m, IsComboBox o) => o -> m (Maybe Gtk.TreeModel.TreeModel)
getComboBoxModel :: forall (m :: * -> *) o.
(MonadIO m, IsComboBox o) =>
o -> m (Maybe TreeModel)
getComboBoxModel o
obj = IO (Maybe TreeModel) -> m (Maybe TreeModel)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (Maybe TreeModel) -> m (Maybe TreeModel))
-> IO (Maybe TreeModel) -> m (Maybe TreeModel)
forall a b. (a -> b) -> a -> b
$ o
-> String
-> (ManagedPtr TreeModel -> TreeModel)
-> IO (Maybe TreeModel)
forall a b.
(GObject a, GObject b) =>
a -> String -> (ManagedPtr b -> b) -> IO (Maybe b)
B.Properties.getObjectPropertyObject o
obj String
"model" ManagedPtr TreeModel -> TreeModel
Gtk.TreeModel.TreeModel
setComboBoxModel :: (MonadIO m, IsComboBox o, Gtk.TreeModel.IsTreeModel a) => o -> a -> m ()
setComboBoxModel :: forall (m :: * -> *) o a.
(MonadIO m, IsComboBox o, IsTreeModel a) =>
o -> a -> m ()
setComboBoxModel o
obj a
val = IO () -> m ()
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)
constructComboBoxModel :: (IsComboBox o, MIO.MonadIO m, Gtk.TreeModel.IsTreeModel a) => a -> m (GValueConstruct o)
constructComboBoxModel :: forall o (m :: * -> *) a.
(IsComboBox o, MonadIO m, IsTreeModel a) =>
a -> m (GValueConstruct o)
constructComboBoxModel a
val = IO (GValueConstruct o) -> m (GValueConstruct o)
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 (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)
clearComboBoxModel :: (MonadIO m, IsComboBox o) => o -> m ()
clearComboBoxModel :: forall (m :: * -> *) o. (MonadIO m, IsComboBox o) => o -> m ()
clearComboBoxModel o
obj = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Maybe TreeModel -> IO ()
forall a b.
(GObject a, GObject b) =>
a -> String -> Maybe b -> IO ()
B.Properties.setObjectPropertyObject o
obj String
"model" (Maybe TreeModel
forall a. Maybe a
Nothing :: Maybe Gtk.TreeModel.TreeModel)
#if defined(ENABLE_OVERLOADING)
data ComboBoxModelPropertyInfo
instance AttrInfo ComboBoxModelPropertyInfo where
type AttrAllowedOps ComboBoxModelPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint ComboBoxModelPropertyInfo = IsComboBox
type AttrSetTypeConstraint ComboBoxModelPropertyInfo = Gtk.TreeModel.IsTreeModel
type AttrTransferTypeConstraint ComboBoxModelPropertyInfo = Gtk.TreeModel.IsTreeModel
type AttrTransferType ComboBoxModelPropertyInfo = Gtk.TreeModel.TreeModel
type AttrGetType ComboBoxModelPropertyInfo = (Maybe Gtk.TreeModel.TreeModel)
type AttrLabel ComboBoxModelPropertyInfo = "model"
type AttrOrigin ComboBoxModelPropertyInfo = ComboBox
attrGet = getComboBoxModel
attrSet = setComboBoxModel
attrTransfer _ v = do
unsafeCastTo Gtk.TreeModel.TreeModel v
attrConstruct = constructComboBoxModel
attrClear = clearComboBoxModel
#endif
getComboBoxPopupFixedWidth :: (MonadIO m, IsComboBox o) => o -> m Bool
o
obj = ComboBoxPopdownCallback -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (ComboBoxPopdownCallback -> m Bool)
-> ComboBoxPopdownCallback -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> ComboBoxPopdownCallback
forall a. GObject a => a -> String -> ComboBoxPopdownCallback
B.Properties.getObjectPropertyBool o
obj String
"popup-fixed-width"
setComboBoxPopupFixedWidth :: (MonadIO m, IsComboBox o) => o -> Bool -> m ()
o
obj Bool
val = IO () -> m ()
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
"popup-fixed-width" Bool
val
constructComboBoxPopupFixedWidth :: (IsComboBox o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
Bool
val = IO (GValueConstruct o) -> m (GValueConstruct o)
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 (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
"popup-fixed-width" Bool
val
#if defined(ENABLE_OVERLOADING)
data ComboBoxPopupFixedWidthPropertyInfo
instance AttrInfo ComboBoxPopupFixedWidthPropertyInfo where
type AttrAllowedOps ComboBoxPopupFixedWidthPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint ComboBoxPopupFixedWidthPropertyInfo = IsComboBox
type AttrSetTypeConstraint ComboBoxPopupFixedWidthPropertyInfo = (~) Bool
type AttrTransferTypeConstraint ComboBoxPopupFixedWidthPropertyInfo = (~) Bool
type AttrTransferType ComboBoxPopupFixedWidthPropertyInfo = Bool
type AttrGetType ComboBoxPopupFixedWidthPropertyInfo = Bool
type AttrLabel ComboBoxPopupFixedWidthPropertyInfo = "popup-fixed-width"
type AttrOrigin ComboBoxPopupFixedWidthPropertyInfo = ComboBox
attrGet = getComboBoxPopupFixedWidth
attrSet = setComboBoxPopupFixedWidth
attrTransfer _ v = do
return v
attrConstruct = constructComboBoxPopupFixedWidth
attrClear = undefined
#endif
getComboBoxPopupShown :: (MonadIO m, IsComboBox o) => o -> m Bool
o
obj = ComboBoxPopdownCallback -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (ComboBoxPopdownCallback -> m Bool)
-> ComboBoxPopdownCallback -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> ComboBoxPopdownCallback
forall a. GObject a => a -> String -> ComboBoxPopdownCallback
B.Properties.getObjectPropertyBool o
obj String
"popup-shown"
#if defined(ENABLE_OVERLOADING)
data ComboBoxPopupShownPropertyInfo
instance AttrInfo ComboBoxPopupShownPropertyInfo where
type AttrAllowedOps ComboBoxPopupShownPropertyInfo = '[ 'AttrGet]
type AttrBaseTypeConstraint ComboBoxPopupShownPropertyInfo = IsComboBox
type AttrSetTypeConstraint ComboBoxPopupShownPropertyInfo = (~) ()
type AttrTransferTypeConstraint ComboBoxPopupShownPropertyInfo = (~) ()
type AttrTransferType ComboBoxPopupShownPropertyInfo = ()
type AttrGetType ComboBoxPopupShownPropertyInfo = Bool
type AttrLabel ComboBoxPopupShownPropertyInfo = "popup-shown"
type AttrOrigin ComboBoxPopupShownPropertyInfo = ComboBox
attrGet = getComboBoxPopupShown
attrSet = undefined
attrTransfer _ = undefined
attrConstruct = undefined
attrClear = undefined
#endif
#if defined(ENABLE_OVERLOADING)
instance O.HasAttributeList ComboBox
type instance O.AttributeList ComboBox = ComboBoxAttributeList
type ComboBoxAttributeList = ('[ '("accessibleRole", Gtk.Accessible.AccessibleAccessibleRolePropertyInfo), '("active", ComboBoxActivePropertyInfo), '("activeId", ComboBoxActiveIdPropertyInfo), '("buttonSensitivity", ComboBoxButtonSensitivityPropertyInfo), '("canFocus", Gtk.Widget.WidgetCanFocusPropertyInfo), '("canTarget", Gtk.Widget.WidgetCanTargetPropertyInfo), '("child", ComboBoxChildPropertyInfo), '("cssClasses", Gtk.Widget.WidgetCssClassesPropertyInfo), '("cssName", Gtk.Widget.WidgetCssNamePropertyInfo), '("cursor", Gtk.Widget.WidgetCursorPropertyInfo), '("editingCanceled", Gtk.CellEditable.CellEditableEditingCanceledPropertyInfo), '("entryTextColumn", ComboBoxEntryTextColumnPropertyInfo), '("focusOnClick", Gtk.Widget.WidgetFocusOnClickPropertyInfo), '("focusable", Gtk.Widget.WidgetFocusablePropertyInfo), '("halign", Gtk.Widget.WidgetHalignPropertyInfo), '("hasDefault", Gtk.Widget.WidgetHasDefaultPropertyInfo), '("hasEntry", ComboBoxHasEntryPropertyInfo), '("hasFocus", Gtk.Widget.WidgetHasFocusPropertyInfo), '("hasFrame", ComboBoxHasFramePropertyInfo), '("hasTooltip", Gtk.Widget.WidgetHasTooltipPropertyInfo), '("heightRequest", Gtk.Widget.WidgetHeightRequestPropertyInfo), '("hexpand", Gtk.Widget.WidgetHexpandPropertyInfo), '("hexpandSet", Gtk.Widget.WidgetHexpandSetPropertyInfo), '("idColumn", ComboBoxIdColumnPropertyInfo), '("layoutManager", Gtk.Widget.WidgetLayoutManagerPropertyInfo), '("marginBottom", Gtk.Widget.WidgetMarginBottomPropertyInfo), '("marginEnd", Gtk.Widget.WidgetMarginEndPropertyInfo), '("marginStart", Gtk.Widget.WidgetMarginStartPropertyInfo), '("marginTop", Gtk.Widget.WidgetMarginTopPropertyInfo), '("model", ComboBoxModelPropertyInfo), '("name", Gtk.Widget.WidgetNamePropertyInfo), '("opacity", Gtk.Widget.WidgetOpacityPropertyInfo), '("overflow", Gtk.Widget.WidgetOverflowPropertyInfo), '("parent", Gtk.Widget.WidgetParentPropertyInfo), '("popupFixedWidth", ComboBoxPopupFixedWidthPropertyInfo), '("popupShown", ComboBoxPopupShownPropertyInfo), '("receivesDefault", Gtk.Widget.WidgetReceivesDefaultPropertyInfo), '("root", Gtk.Widget.WidgetRootPropertyInfo), '("scaleFactor", Gtk.Widget.WidgetScaleFactorPropertyInfo), '("sensitive", Gtk.Widget.WidgetSensitivePropertyInfo), '("tooltipMarkup", Gtk.Widget.WidgetTooltipMarkupPropertyInfo), '("tooltipText", Gtk.Widget.WidgetTooltipTextPropertyInfo), '("valign", Gtk.Widget.WidgetValignPropertyInfo), '("vexpand", Gtk.Widget.WidgetVexpandPropertyInfo), '("vexpandSet", Gtk.Widget.WidgetVexpandSetPropertyInfo), '("visible", Gtk.Widget.WidgetVisiblePropertyInfo), '("widthRequest", Gtk.Widget.WidgetWidthRequestPropertyInfo)] :: [(Symbol, *)])
#endif
#if defined(ENABLE_OVERLOADING)
comboBoxActive :: AttrLabelProxy "active"
comboBoxActive = AttrLabelProxy
comboBoxActiveId :: AttrLabelProxy "activeId"
comboBoxActiveId = AttrLabelProxy
comboBoxButtonSensitivity :: AttrLabelProxy "buttonSensitivity"
comboBoxButtonSensitivity = AttrLabelProxy
comboBoxChild :: AttrLabelProxy "child"
comboBoxChild = AttrLabelProxy
comboBoxEntryTextColumn :: AttrLabelProxy "entryTextColumn"
comboBoxEntryTextColumn = AttrLabelProxy
comboBoxHasEntry :: AttrLabelProxy "hasEntry"
comboBoxHasEntry = AttrLabelProxy
comboBoxHasFrame :: AttrLabelProxy "hasFrame"
comboBoxHasFrame = AttrLabelProxy
comboBoxIdColumn :: AttrLabelProxy "idColumn"
comboBoxIdColumn = AttrLabelProxy
comboBoxModel :: AttrLabelProxy "model"
comboBoxModel = AttrLabelProxy
comboBoxPopupFixedWidth :: AttrLabelProxy "popupFixedWidth"
comboBoxPopupFixedWidth = AttrLabelProxy
comboBoxPopupShown :: AttrLabelProxy "popupShown"
comboBoxPopupShown = AttrLabelProxy
#endif
#if defined(ENABLE_OVERLOADING)
type instance O.SignalList ComboBox = ComboBoxSignalList
type ComboBoxSignalList = ('[ '("changed", ComboBoxChangedSignalInfo), '("destroy", Gtk.Widget.WidgetDestroySignalInfo), '("directionChanged", Gtk.Widget.WidgetDirectionChangedSignalInfo), '("editingDone", Gtk.CellEditable.CellEditableEditingDoneSignalInfo), '("formatEntryText", ComboBoxFormatEntryTextSignalInfo), '("hide", Gtk.Widget.WidgetHideSignalInfo), '("keynavFailed", Gtk.Widget.WidgetKeynavFailedSignalInfo), '("map", Gtk.Widget.WidgetMapSignalInfo), '("mnemonicActivate", Gtk.Widget.WidgetMnemonicActivateSignalInfo), '("moveActive", ComboBoxMoveActiveSignalInfo), '("moveFocus", Gtk.Widget.WidgetMoveFocusSignalInfo), '("notify", GObject.Object.ObjectNotifySignalInfo), '("popdown", ComboBoxPopdownSignalInfo), '("popup", ComboBoxPopupSignalInfo), '("queryTooltip", Gtk.Widget.WidgetQueryTooltipSignalInfo), '("realize", Gtk.Widget.WidgetRealizeSignalInfo), '("removeWidget", Gtk.CellEditable.CellEditableRemoveWidgetSignalInfo), '("show", Gtk.Widget.WidgetShowSignalInfo), '("stateFlagsChanged", Gtk.Widget.WidgetStateFlagsChangedSignalInfo), '("unmap", Gtk.Widget.WidgetUnmapSignalInfo), '("unrealize", Gtk.Widget.WidgetUnrealizeSignalInfo)] :: [(Symbol, *)])
#endif
foreign import ccall "gtk_combo_box_new" gtk_combo_box_new ::
IO (Ptr ComboBox)
comboBoxNew ::
(B.CallStack.HasCallStack, MonadIO m) =>
m ComboBox
comboBoxNew :: forall (m :: * -> *). (HasCallStack, MonadIO m) => m ComboBox
comboBoxNew = IO ComboBox -> m ComboBox
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO ComboBox -> m ComboBox) -> IO ComboBox -> m ComboBox
forall a b. (a -> b) -> a -> b
$ do
Ptr ComboBox
result <- IO (Ptr ComboBox)
gtk_combo_box_new
Text -> Ptr ComboBox -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"comboBoxNew" Ptr ComboBox
result
ComboBox
result' <- ((ManagedPtr ComboBox -> ComboBox) -> Ptr ComboBox -> IO ComboBox
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr ComboBox -> ComboBox
ComboBox) Ptr ComboBox
result
ComboBox -> IO ComboBox
forall (m :: * -> *) a. Monad m => a -> m a
return ComboBox
result'
#if defined(ENABLE_OVERLOADING)
#endif
foreign import ccall "gtk_combo_box_new_with_entry" gtk_combo_box_new_with_entry ::
IO (Ptr ComboBox)
comboBoxNewWithEntry ::
(B.CallStack.HasCallStack, MonadIO m) =>
m ComboBox
comboBoxNewWithEntry :: forall (m :: * -> *). (HasCallStack, MonadIO m) => m ComboBox
comboBoxNewWithEntry = IO ComboBox -> m ComboBox
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO ComboBox -> m ComboBox) -> IO ComboBox -> m ComboBox
forall a b. (a -> b) -> a -> b
$ do
Ptr ComboBox
result <- IO (Ptr ComboBox)
gtk_combo_box_new_with_entry
Text -> Ptr ComboBox -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"comboBoxNewWithEntry" Ptr ComboBox
result
ComboBox
result' <- ((ManagedPtr ComboBox -> ComboBox) -> Ptr ComboBox -> IO ComboBox
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr ComboBox -> ComboBox
ComboBox) Ptr ComboBox
result
ComboBox -> IO ComboBox
forall (m :: * -> *) a. Monad m => a -> m a
return ComboBox
result'
#if defined(ENABLE_OVERLOADING)
#endif
foreign import ccall "gtk_combo_box_new_with_model" gtk_combo_box_new_with_model ::
Ptr Gtk.TreeModel.TreeModel ->
IO (Ptr ComboBox)
comboBoxNewWithModel ::
(B.CallStack.HasCallStack, MonadIO m, Gtk.TreeModel.IsTreeModel a) =>
a
-> m ComboBox
comboBoxNewWithModel :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTreeModel a) =>
a -> m ComboBox
comboBoxNewWithModel a
model = IO ComboBox -> m ComboBox
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO ComboBox -> m ComboBox) -> IO ComboBox -> m ComboBox
forall a b. (a -> b) -> a -> b
$ do
Ptr TreeModel
model' <- a -> IO (Ptr TreeModel)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
model
Ptr ComboBox
result <- Ptr TreeModel -> IO (Ptr ComboBox)
gtk_combo_box_new_with_model Ptr TreeModel
model'
Text -> Ptr ComboBox -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"comboBoxNewWithModel" Ptr ComboBox
result
ComboBox
result' <- ((ManagedPtr ComboBox -> ComboBox) -> Ptr ComboBox -> IO ComboBox
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr ComboBox -> ComboBox
ComboBox) Ptr ComboBox
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
model
ComboBox -> IO ComboBox
forall (m :: * -> *) a. Monad m => a -> m a
return ComboBox
result'
#if defined(ENABLE_OVERLOADING)
#endif
foreign import ccall "gtk_combo_box_new_with_model_and_entry" gtk_combo_box_new_with_model_and_entry ::
Ptr Gtk.TreeModel.TreeModel ->
IO (Ptr ComboBox)
comboBoxNewWithModelAndEntry ::
(B.CallStack.HasCallStack, MonadIO m, Gtk.TreeModel.IsTreeModel a) =>
a
-> m ComboBox
comboBoxNewWithModelAndEntry :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTreeModel a) =>
a -> m ComboBox
comboBoxNewWithModelAndEntry a
model = IO ComboBox -> m ComboBox
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO ComboBox -> m ComboBox) -> IO ComboBox -> m ComboBox
forall a b. (a -> b) -> a -> b
$ do
Ptr TreeModel
model' <- a -> IO (Ptr TreeModel)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
model
Ptr ComboBox
result <- Ptr TreeModel -> IO (Ptr ComboBox)
gtk_combo_box_new_with_model_and_entry Ptr TreeModel
model'
Text -> Ptr ComboBox -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"comboBoxNewWithModelAndEntry" Ptr ComboBox
result
ComboBox
result' <- ((ManagedPtr ComboBox -> ComboBox) -> Ptr ComboBox -> IO ComboBox
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr ComboBox -> ComboBox
ComboBox) Ptr ComboBox
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
model
ComboBox -> IO ComboBox
forall (m :: * -> *) a. Monad m => a -> m a
return ComboBox
result'
#if defined(ENABLE_OVERLOADING)
#endif
foreign import ccall "gtk_combo_box_get_active" gtk_combo_box_get_active ::
Ptr ComboBox ->
IO Int32
comboBoxGetActive ::
(B.CallStack.HasCallStack, MonadIO m, IsComboBox a) =>
a
-> m Int32
comboBoxGetActive :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsComboBox a) =>
a -> m Int32
comboBoxGetActive a
comboBox = IO Int32 -> m Int32
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Int32 -> m Int32) -> IO Int32 -> m Int32
forall a b. (a -> b) -> a -> b
$ do
Ptr ComboBox
comboBox' <- a -> IO (Ptr ComboBox)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
comboBox
Int32
result <- Ptr ComboBox -> IO Int32
gtk_combo_box_get_active Ptr ComboBox
comboBox'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
comboBox
Int32 -> IO Int32
forall (m :: * -> *) a. Monad m => a -> m a
return Int32
result
#if defined(ENABLE_OVERLOADING)
data ComboBoxGetActiveMethodInfo
instance (signature ~ (m Int32), MonadIO m, IsComboBox a) => O.OverloadedMethod ComboBoxGetActiveMethodInfo a signature where
overloadedMethod = comboBoxGetActive
instance O.OverloadedMethodInfo ComboBoxGetActiveMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.ComboBox.comboBoxGetActive",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-ComboBox.html#v:comboBoxGetActive"
}
#endif
foreign import ccall "gtk_combo_box_get_active_id" gtk_combo_box_get_active_id ::
Ptr ComboBox ->
IO CString
comboBoxGetActiveId ::
(B.CallStack.HasCallStack, MonadIO m, IsComboBox a) =>
a
-> m (Maybe T.Text)
comboBoxGetActiveId :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsComboBox a) =>
a -> m (Maybe Text)
comboBoxGetActiveId a
comboBox = IO (Maybe Text) -> m (Maybe Text)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe Text) -> m (Maybe Text))
-> IO (Maybe Text) -> m (Maybe Text)
forall a b. (a -> b) -> a -> b
$ do
Ptr ComboBox
comboBox' <- a -> IO (Ptr ComboBox)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
comboBox
CString
result <- Ptr ComboBox -> IO CString
gtk_combo_box_get_active_id Ptr ComboBox
comboBox'
Maybe Text
maybeResult <- CString -> (CString -> IO Text) -> IO (Maybe Text)
forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
convertIfNonNull CString
result ((CString -> IO Text) -> IO (Maybe Text))
-> (CString -> IO Text) -> IO (Maybe Text)
forall a b. (a -> b) -> a -> b
$ \CString
result' -> do
Text
result'' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
result'
ComboBoxFormatEntryTextCallback
forall (m :: * -> *) a. Monad m => a -> m a
return Text
result''
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
comboBox
Maybe Text -> IO (Maybe Text)
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe Text
maybeResult
#if defined(ENABLE_OVERLOADING)
data ComboBoxGetActiveIdMethodInfo
instance (signature ~ (m (Maybe T.Text)), MonadIO m, IsComboBox a) => O.OverloadedMethod ComboBoxGetActiveIdMethodInfo a signature where
overloadedMethod = comboBoxGetActiveId
instance O.OverloadedMethodInfo ComboBoxGetActiveIdMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.ComboBox.comboBoxGetActiveId",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-ComboBox.html#v:comboBoxGetActiveId"
}
#endif
foreign import ccall "gtk_combo_box_get_active_iter" gtk_combo_box_get_active_iter ::
Ptr ComboBox ->
Ptr Gtk.TreeIter.TreeIter ->
IO CInt
comboBoxGetActiveIter ::
(B.CallStack.HasCallStack, MonadIO m, IsComboBox a) =>
a
-> m ((Bool, Gtk.TreeIter.TreeIter))
comboBoxGetActiveIter :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsComboBox a) =>
a -> m (Bool, TreeIter)
comboBoxGetActiveIter a
comboBox = IO (Bool, TreeIter) -> m (Bool, TreeIter)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Bool, TreeIter) -> m (Bool, TreeIter))
-> IO (Bool, TreeIter) -> m (Bool, TreeIter)
forall a b. (a -> b) -> a -> b
$ do
Ptr ComboBox
comboBox' <- a -> IO (Ptr ComboBox)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
comboBox
Ptr TreeIter
iter <- Int -> IO (Ptr TreeIter)
forall a. GBoxed a => Int -> IO (Ptr a)
SP.callocBoxedBytes Int
32 :: IO (Ptr Gtk.TreeIter.TreeIter)
CInt
result <- Ptr ComboBox -> Ptr TreeIter -> IO CInt
gtk_combo_box_get_active_iter Ptr ComboBox
comboBox' Ptr TreeIter
iter
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
TreeIter
iter' <- ((ManagedPtr TreeIter -> TreeIter) -> Ptr TreeIter -> IO TreeIter
forall a.
(HasCallStack, GBoxed a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
wrapBoxed ManagedPtr TreeIter -> TreeIter
Gtk.TreeIter.TreeIter) Ptr TreeIter
iter
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
comboBox
(Bool, TreeIter) -> IO (Bool, TreeIter)
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool
result', TreeIter
iter')
#if defined(ENABLE_OVERLOADING)
data ComboBoxGetActiveIterMethodInfo
instance (signature ~ (m ((Bool, Gtk.TreeIter.TreeIter))), MonadIO m, IsComboBox a) => O.OverloadedMethod ComboBoxGetActiveIterMethodInfo a signature where
overloadedMethod = comboBoxGetActiveIter
instance O.OverloadedMethodInfo ComboBoxGetActiveIterMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.ComboBox.comboBoxGetActiveIter",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-ComboBox.html#v:comboBoxGetActiveIter"
}
#endif
foreign import ccall "gtk_combo_box_get_button_sensitivity" gtk_combo_box_get_button_sensitivity ::
Ptr ComboBox ->
IO CUInt
comboBoxGetButtonSensitivity ::
(B.CallStack.HasCallStack, MonadIO m, IsComboBox a) =>
a
-> m Gtk.Enums.SensitivityType
comboBoxGetButtonSensitivity :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsComboBox a) =>
a -> m SensitivityType
comboBoxGetButtonSensitivity a
comboBox = IO SensitivityType -> m SensitivityType
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SensitivityType -> m SensitivityType)
-> IO SensitivityType -> m SensitivityType
forall a b. (a -> b) -> a -> b
$ do
Ptr ComboBox
comboBox' <- a -> IO (Ptr ComboBox)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
comboBox
CUInt
result <- Ptr ComboBox -> IO CUInt
gtk_combo_box_get_button_sensitivity Ptr ComboBox
comboBox'
let result' :: SensitivityType
result' = (Int -> SensitivityType
forall a. Enum a => Int -> a
toEnum (Int -> SensitivityType)
-> (CUInt -> Int) -> CUInt -> SensitivityType
forall b c a. (b -> c) -> (a -> b) -> a -> c
. CUInt -> Int
forall a b. (Integral a, Num b) => a -> b
fromIntegral) CUInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
comboBox
SensitivityType -> IO SensitivityType
forall (m :: * -> *) a. Monad m => a -> m a
return SensitivityType
result'
#if defined(ENABLE_OVERLOADING)
data ComboBoxGetButtonSensitivityMethodInfo
instance (signature ~ (m Gtk.Enums.SensitivityType), MonadIO m, IsComboBox a) => O.OverloadedMethod ComboBoxGetButtonSensitivityMethodInfo a signature where
overloadedMethod = comboBoxGetButtonSensitivity
instance O.OverloadedMethodInfo ComboBoxGetButtonSensitivityMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.ComboBox.comboBoxGetButtonSensitivity",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-ComboBox.html#v:comboBoxGetButtonSensitivity"
}
#endif
foreign import ccall "gtk_combo_box_get_child" gtk_combo_box_get_child ::
Ptr ComboBox ->
IO (Ptr Gtk.Widget.Widget)
comboBoxGetChild ::
(B.CallStack.HasCallStack, MonadIO m, IsComboBox a) =>
a
-> m (Maybe Gtk.Widget.Widget)
comboBoxGetChild :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsComboBox a) =>
a -> m (Maybe Widget)
comboBoxGetChild a
comboBox = IO (Maybe Widget) -> m (Maybe Widget)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe Widget) -> m (Maybe Widget))
-> IO (Maybe Widget) -> m (Maybe Widget)
forall a b. (a -> b) -> a -> b
$ do
Ptr ComboBox
comboBox' <- a -> IO (Ptr ComboBox)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
comboBox
Ptr Widget
result <- Ptr ComboBox -> IO (Ptr Widget)
gtk_combo_box_get_child Ptr ComboBox
comboBox'
Maybe Widget
maybeResult <- Ptr Widget -> (Ptr Widget -> IO Widget) -> IO (Maybe Widget)
forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
convertIfNonNull Ptr Widget
result ((Ptr Widget -> IO Widget) -> IO (Maybe Widget))
-> (Ptr Widget -> IO Widget) -> IO (Maybe Widget)
forall a b. (a -> b) -> a -> b
$ \Ptr Widget
result' -> do
Widget
result'' <- ((ManagedPtr Widget -> Widget) -> Ptr Widget -> IO Widget
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr Widget -> Widget
Gtk.Widget.Widget) Ptr Widget
result'
Widget -> IO Widget
forall (m :: * -> *) a. Monad m => a -> m a
return Widget
result''
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
comboBox
Maybe Widget -> IO (Maybe Widget)
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe Widget
maybeResult
#if defined(ENABLE_OVERLOADING)
data ComboBoxGetChildMethodInfo
instance (signature ~ (m (Maybe Gtk.Widget.Widget)), MonadIO m, IsComboBox a) => O.OverloadedMethod ComboBoxGetChildMethodInfo a signature where
overloadedMethod = comboBoxGetChild
instance O.OverloadedMethodInfo ComboBoxGetChildMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.ComboBox.comboBoxGetChild",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-ComboBox.html#v:comboBoxGetChild"
}
#endif
foreign import ccall "gtk_combo_box_get_entry_text_column" gtk_combo_box_get_entry_text_column ::
Ptr ComboBox ->
IO Int32
comboBoxGetEntryTextColumn ::
(B.CallStack.HasCallStack, MonadIO m, IsComboBox a) =>
a
-> m Int32
comboBoxGetEntryTextColumn :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsComboBox a) =>
a -> m Int32
comboBoxGetEntryTextColumn a
comboBox = IO Int32 -> m Int32
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Int32 -> m Int32) -> IO Int32 -> m Int32
forall a b. (a -> b) -> a -> b
$ do
Ptr ComboBox
comboBox' <- a -> IO (Ptr ComboBox)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
comboBox
Int32
result <- Ptr ComboBox -> IO Int32
gtk_combo_box_get_entry_text_column Ptr ComboBox
comboBox'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
comboBox
Int32 -> IO Int32
forall (m :: * -> *) a. Monad m => a -> m a
return Int32
result
#if defined(ENABLE_OVERLOADING)
data ComboBoxGetEntryTextColumnMethodInfo
instance (signature ~ (m Int32), MonadIO m, IsComboBox a) => O.OverloadedMethod ComboBoxGetEntryTextColumnMethodInfo a signature where
overloadedMethod = comboBoxGetEntryTextColumn
instance O.OverloadedMethodInfo ComboBoxGetEntryTextColumnMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.ComboBox.comboBoxGetEntryTextColumn",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-ComboBox.html#v:comboBoxGetEntryTextColumn"
}
#endif
foreign import ccall "gtk_combo_box_get_has_entry" gtk_combo_box_get_has_entry ::
Ptr ComboBox ->
IO CInt
comboBoxGetHasEntry ::
(B.CallStack.HasCallStack, MonadIO m, IsComboBox a) =>
a
-> m Bool
comboBoxGetHasEntry :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsComboBox a) =>
a -> m Bool
comboBoxGetHasEntry a
comboBox = ComboBoxPopdownCallback -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (ComboBoxPopdownCallback -> m Bool)
-> ComboBoxPopdownCallback -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr ComboBox
comboBox' <- a -> IO (Ptr ComboBox)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
comboBox
CInt
result <- Ptr ComboBox -> IO CInt
gtk_combo_box_get_has_entry Ptr ComboBox
comboBox'
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
comboBox
Bool -> ComboBoxPopdownCallback
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data ComboBoxGetHasEntryMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsComboBox a) => O.OverloadedMethod ComboBoxGetHasEntryMethodInfo a signature where
overloadedMethod = comboBoxGetHasEntry
instance O.OverloadedMethodInfo ComboBoxGetHasEntryMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.ComboBox.comboBoxGetHasEntry",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-ComboBox.html#v:comboBoxGetHasEntry"
}
#endif
foreign import ccall "gtk_combo_box_get_id_column" gtk_combo_box_get_id_column ::
Ptr ComboBox ->
IO Int32
comboBoxGetIdColumn ::
(B.CallStack.HasCallStack, MonadIO m, IsComboBox a) =>
a
-> m Int32
comboBoxGetIdColumn :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsComboBox a) =>
a -> m Int32
comboBoxGetIdColumn a
comboBox = IO Int32 -> m Int32
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Int32 -> m Int32) -> IO Int32 -> m Int32
forall a b. (a -> b) -> a -> b
$ do
Ptr ComboBox
comboBox' <- a -> IO (Ptr ComboBox)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
comboBox
Int32
result <- Ptr ComboBox -> IO Int32
gtk_combo_box_get_id_column Ptr ComboBox
comboBox'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
comboBox
Int32 -> IO Int32
forall (m :: * -> *) a. Monad m => a -> m a
return Int32
result
#if defined(ENABLE_OVERLOADING)
data ComboBoxGetIdColumnMethodInfo
instance (signature ~ (m Int32), MonadIO m, IsComboBox a) => O.OverloadedMethod ComboBoxGetIdColumnMethodInfo a signature where
overloadedMethod = comboBoxGetIdColumn
instance O.OverloadedMethodInfo ComboBoxGetIdColumnMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.ComboBox.comboBoxGetIdColumn",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-ComboBox.html#v:comboBoxGetIdColumn"
}
#endif
foreign import ccall "gtk_combo_box_get_model" gtk_combo_box_get_model ::
Ptr ComboBox ->
IO (Ptr Gtk.TreeModel.TreeModel)
comboBoxGetModel ::
(B.CallStack.HasCallStack, MonadIO m, IsComboBox a) =>
a
-> m (Maybe Gtk.TreeModel.TreeModel)
comboBoxGetModel :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsComboBox a) =>
a -> m (Maybe TreeModel)
comboBoxGetModel a
comboBox = IO (Maybe TreeModel) -> m (Maybe TreeModel)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe TreeModel) -> m (Maybe TreeModel))
-> IO (Maybe TreeModel) -> m (Maybe TreeModel)
forall a b. (a -> b) -> a -> b
$ do
Ptr ComboBox
comboBox' <- a -> IO (Ptr ComboBox)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
comboBox
Ptr TreeModel
result <- Ptr ComboBox -> IO (Ptr TreeModel)
gtk_combo_box_get_model Ptr ComboBox
comboBox'
Maybe TreeModel
maybeResult <- Ptr TreeModel
-> (Ptr TreeModel -> IO TreeModel) -> IO (Maybe TreeModel)
forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
convertIfNonNull Ptr TreeModel
result ((Ptr TreeModel -> IO TreeModel) -> IO (Maybe TreeModel))
-> (Ptr TreeModel -> IO TreeModel) -> IO (Maybe TreeModel)
forall a b. (a -> b) -> a -> b
$ \Ptr TreeModel
result' -> do
TreeModel
result'' <- ((ManagedPtr TreeModel -> TreeModel)
-> Ptr TreeModel -> IO TreeModel
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr TreeModel -> TreeModel
Gtk.TreeModel.TreeModel) Ptr TreeModel
result'
TreeModel -> IO TreeModel
forall (m :: * -> *) a. Monad m => a -> m a
return TreeModel
result''
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
comboBox
Maybe TreeModel -> IO (Maybe TreeModel)
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe TreeModel
maybeResult
#if defined(ENABLE_OVERLOADING)
data ComboBoxGetModelMethodInfo
instance (signature ~ (m (Maybe Gtk.TreeModel.TreeModel)), MonadIO m, IsComboBox a) => O.OverloadedMethod ComboBoxGetModelMethodInfo a signature where
overloadedMethod = comboBoxGetModel
instance O.OverloadedMethodInfo ComboBoxGetModelMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.ComboBox.comboBoxGetModel",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-ComboBox.html#v:comboBoxGetModel"
}
#endif
foreign import ccall "gtk_combo_box_get_popup_fixed_width" ::
Ptr ComboBox ->
IO CInt
comboBoxGetPopupFixedWidth ::
(B.CallStack.HasCallStack, MonadIO m, IsComboBox a) =>
a
-> m Bool
a
comboBox = ComboBoxPopdownCallback -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (ComboBoxPopdownCallback -> m Bool)
-> ComboBoxPopdownCallback -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr ComboBox
comboBox' <- a -> IO (Ptr ComboBox)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
comboBox
CInt
result <- Ptr ComboBox -> IO CInt
gtk_combo_box_get_popup_fixed_width Ptr ComboBox
comboBox'
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
comboBox
Bool -> ComboBoxPopdownCallback
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data ComboBoxGetPopupFixedWidthMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsComboBox a) => O.OverloadedMethod ComboBoxGetPopupFixedWidthMethodInfo a signature where
overloadedMethod = comboBoxGetPopupFixedWidth
instance O.OverloadedMethodInfo ComboBoxGetPopupFixedWidthMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.ComboBox.comboBoxGetPopupFixedWidth",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-ComboBox.html#v:comboBoxGetPopupFixedWidth"
}
#endif
foreign import ccall "gtk_combo_box_popdown" gtk_combo_box_popdown ::
Ptr ComboBox ->
IO ()
comboBoxPopdown ::
(B.CallStack.HasCallStack, MonadIO m, IsComboBox a) =>
a
-> m ()
comboBoxPopdown :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsComboBox a) =>
a -> m ()
comboBoxPopdown a
comboBox = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr ComboBox
comboBox' <- a -> IO (Ptr ComboBox)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
comboBox
Ptr ComboBox -> IO ()
gtk_combo_box_popdown Ptr ComboBox
comboBox'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
comboBox
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data ComboBoxPopdownMethodInfo
instance (signature ~ (m ()), MonadIO m, IsComboBox a) => O.OverloadedMethod ComboBoxPopdownMethodInfo a signature where
overloadedMethod = comboBoxPopdown
instance O.OverloadedMethodInfo ComboBoxPopdownMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.ComboBox.comboBoxPopdown",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-ComboBox.html#v:comboBoxPopdown"
}
#endif
foreign import ccall "gtk_combo_box_popup" ::
Ptr ComboBox ->
IO ()
comboBoxPopup ::
(B.CallStack.HasCallStack, MonadIO m, IsComboBox a) =>
a
-> m ()
a
comboBox = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr ComboBox
comboBox' <- a -> IO (Ptr ComboBox)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
comboBox
Ptr ComboBox -> IO ()
gtk_combo_box_popup Ptr ComboBox
comboBox'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
comboBox
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data ComboBoxPopupMethodInfo
instance (signature ~ (m ()), MonadIO m, IsComboBox a) => O.OverloadedMethod ComboBoxPopupMethodInfo a signature where
overloadedMethod = comboBoxPopup
instance O.OverloadedMethodInfo ComboBoxPopupMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.ComboBox.comboBoxPopup",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-ComboBox.html#v:comboBoxPopup"
}
#endif
foreign import ccall "gtk_combo_box_popup_for_device" ::
Ptr ComboBox ->
Ptr Gdk.Device.Device ->
IO ()
comboBoxPopupForDevice ::
(B.CallStack.HasCallStack, MonadIO m, IsComboBox a, Gdk.Device.IsDevice b) =>
a
-> b
-> m ()
a
comboBox b
device = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr ComboBox
comboBox' <- a -> IO (Ptr ComboBox)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
comboBox
Ptr Device
device' <- b -> IO (Ptr Device)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
device
Ptr ComboBox -> Ptr Device -> IO ()
gtk_combo_box_popup_for_device Ptr ComboBox
comboBox' Ptr Device
device'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
comboBox
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
device
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data ComboBoxPopupForDeviceMethodInfo
instance (signature ~ (b -> m ()), MonadIO m, IsComboBox a, Gdk.Device.IsDevice b) => O.OverloadedMethod ComboBoxPopupForDeviceMethodInfo a signature where
overloadedMethod = comboBoxPopupForDevice
instance O.OverloadedMethodInfo ComboBoxPopupForDeviceMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.ComboBox.comboBoxPopupForDevice",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-ComboBox.html#v:comboBoxPopupForDevice"
}
#endif
foreign import ccall "gtk_combo_box_set_active" gtk_combo_box_set_active ::
Ptr ComboBox ->
Int32 ->
IO ()
comboBoxSetActive ::
(B.CallStack.HasCallStack, MonadIO m, IsComboBox a) =>
a
-> Int32
-> m ()
comboBoxSetActive :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsComboBox a) =>
a -> Int32 -> m ()
comboBoxSetActive a
comboBox Int32
index_ = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr ComboBox
comboBox' <- a -> IO (Ptr ComboBox)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
comboBox
Ptr ComboBox -> Int32 -> IO ()
gtk_combo_box_set_active Ptr ComboBox
comboBox' Int32
index_
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
comboBox
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data ComboBoxSetActiveMethodInfo
instance (signature ~ (Int32 -> m ()), MonadIO m, IsComboBox a) => O.OverloadedMethod ComboBoxSetActiveMethodInfo a signature where
overloadedMethod = comboBoxSetActive
instance O.OverloadedMethodInfo ComboBoxSetActiveMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.ComboBox.comboBoxSetActive",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-ComboBox.html#v:comboBoxSetActive"
}
#endif
foreign import ccall "gtk_combo_box_set_active_id" gtk_combo_box_set_active_id ::
Ptr ComboBox ->
CString ->
IO CInt
comboBoxSetActiveId ::
(B.CallStack.HasCallStack, MonadIO m, IsComboBox a) =>
a
-> Maybe (T.Text)
-> m Bool
comboBoxSetActiveId :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsComboBox a) =>
a -> Maybe Text -> m Bool
comboBoxSetActiveId a
comboBox Maybe Text
activeId = ComboBoxPopdownCallback -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (ComboBoxPopdownCallback -> m Bool)
-> ComboBoxPopdownCallback -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr ComboBox
comboBox' <- a -> IO (Ptr ComboBox)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
comboBox
CString
maybeActiveId <- case Maybe Text
activeId of
Maybe Text
Nothing -> CString -> IO CString
forall (m :: * -> *) a. Monad m => a -> m a
return CString
forall a. Ptr a
nullPtr
Just Text
jActiveId -> do
CString
jActiveId' <- Text -> IO CString
textToCString Text
jActiveId
CString -> IO CString
forall (m :: * -> *) a. Monad m => a -> m a
return CString
jActiveId'
CInt
result <- Ptr ComboBox -> CString -> IO CInt
gtk_combo_box_set_active_id Ptr ComboBox
comboBox' CString
maybeActiveId
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
comboBox
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
maybeActiveId
Bool -> ComboBoxPopdownCallback
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data ComboBoxSetActiveIdMethodInfo
instance (signature ~ (Maybe (T.Text) -> m Bool), MonadIO m, IsComboBox a) => O.OverloadedMethod ComboBoxSetActiveIdMethodInfo a signature where
overloadedMethod = comboBoxSetActiveId
instance O.OverloadedMethodInfo ComboBoxSetActiveIdMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.ComboBox.comboBoxSetActiveId",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-ComboBox.html#v:comboBoxSetActiveId"
}
#endif
foreign import ccall "gtk_combo_box_set_active_iter" gtk_combo_box_set_active_iter ::
Ptr ComboBox ->
Ptr Gtk.TreeIter.TreeIter ->
IO ()
comboBoxSetActiveIter ::
(B.CallStack.HasCallStack, MonadIO m, IsComboBox a) =>
a
-> Maybe (Gtk.TreeIter.TreeIter)
-> m ()
comboBoxSetActiveIter :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsComboBox a) =>
a -> Maybe TreeIter -> m ()
comboBoxSetActiveIter a
comboBox Maybe TreeIter
iter = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr ComboBox
comboBox' <- a -> IO (Ptr ComboBox)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
comboBox
Ptr TreeIter
maybeIter <- case Maybe TreeIter
iter of
Maybe TreeIter
Nothing -> Ptr TreeIter -> IO (Ptr TreeIter)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr TreeIter
forall a. Ptr a
nullPtr
Just TreeIter
jIter -> do
Ptr TreeIter
jIter' <- TreeIter -> IO (Ptr TreeIter)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr TreeIter
jIter
Ptr TreeIter -> IO (Ptr TreeIter)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr TreeIter
jIter'
Ptr ComboBox -> Ptr TreeIter -> IO ()
gtk_combo_box_set_active_iter Ptr ComboBox
comboBox' Ptr TreeIter
maybeIter
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
comboBox
Maybe TreeIter -> (TreeIter -> IO ()) -> IO ()
forall (m :: * -> *) a. Monad m => Maybe a -> (a -> m ()) -> m ()
whenJust Maybe TreeIter
iter TreeIter -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data ComboBoxSetActiveIterMethodInfo
instance (signature ~ (Maybe (Gtk.TreeIter.TreeIter) -> m ()), MonadIO m, IsComboBox a) => O.OverloadedMethod ComboBoxSetActiveIterMethodInfo a signature where
overloadedMethod = comboBoxSetActiveIter
instance O.OverloadedMethodInfo ComboBoxSetActiveIterMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.ComboBox.comboBoxSetActiveIter",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-ComboBox.html#v:comboBoxSetActiveIter"
}
#endif
foreign import ccall "gtk_combo_box_set_button_sensitivity" gtk_combo_box_set_button_sensitivity ::
Ptr ComboBox ->
CUInt ->
IO ()
comboBoxSetButtonSensitivity ::
(B.CallStack.HasCallStack, MonadIO m, IsComboBox a) =>
a
-> Gtk.Enums.SensitivityType
-> m ()
comboBoxSetButtonSensitivity :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsComboBox a) =>
a -> SensitivityType -> m ()
comboBoxSetButtonSensitivity a
comboBox SensitivityType
sensitivity = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr ComboBox
comboBox' <- a -> IO (Ptr ComboBox)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
comboBox
let sensitivity' :: CUInt
sensitivity' = (Int -> CUInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CUInt)
-> (SensitivityType -> Int) -> SensitivityType -> CUInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. SensitivityType -> Int
forall a. Enum a => a -> Int
fromEnum) SensitivityType
sensitivity
Ptr ComboBox -> CUInt -> IO ()
gtk_combo_box_set_button_sensitivity Ptr ComboBox
comboBox' CUInt
sensitivity'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
comboBox
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data ComboBoxSetButtonSensitivityMethodInfo
instance (signature ~ (Gtk.Enums.SensitivityType -> m ()), MonadIO m, IsComboBox a) => O.OverloadedMethod ComboBoxSetButtonSensitivityMethodInfo a signature where
overloadedMethod = comboBoxSetButtonSensitivity
instance O.OverloadedMethodInfo ComboBoxSetButtonSensitivityMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.ComboBox.comboBoxSetButtonSensitivity",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-ComboBox.html#v:comboBoxSetButtonSensitivity"
}
#endif
foreign import ccall "gtk_combo_box_set_child" gtk_combo_box_set_child ::
Ptr ComboBox ->
Ptr Gtk.Widget.Widget ->
IO ()
comboBoxSetChild ::
(B.CallStack.HasCallStack, MonadIO m, IsComboBox a, Gtk.Widget.IsWidget b) =>
a
-> Maybe (b)
-> m ()
comboBoxSetChild :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsComboBox a, IsWidget b) =>
a -> Maybe b -> m ()
comboBoxSetChild a
comboBox Maybe b
child = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr ComboBox
comboBox' <- a -> IO (Ptr ComboBox)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
comboBox
Ptr Widget
maybeChild <- case Maybe b
child of
Maybe b
Nothing -> Ptr Widget -> IO (Ptr Widget)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Widget
forall a. Ptr a
nullPtr
Just b
jChild -> do
Ptr Widget
jChild' <- b -> IO (Ptr Widget)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
jChild
Ptr Widget -> IO (Ptr Widget)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Widget
jChild'
Ptr ComboBox -> Ptr Widget -> IO ()
gtk_combo_box_set_child Ptr ComboBox
comboBox' Ptr Widget
maybeChild
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
comboBox
Maybe b -> (b -> IO ()) -> IO ()
forall (m :: * -> *) a. Monad m => Maybe a -> (a -> m ()) -> m ()
whenJust Maybe b
child b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data ComboBoxSetChildMethodInfo
instance (signature ~ (Maybe (b) -> m ()), MonadIO m, IsComboBox a, Gtk.Widget.IsWidget b) => O.OverloadedMethod ComboBoxSetChildMethodInfo a signature where
overloadedMethod = comboBoxSetChild
instance O.OverloadedMethodInfo ComboBoxSetChildMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.ComboBox.comboBoxSetChild",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-ComboBox.html#v:comboBoxSetChild"
}
#endif
foreign import ccall "gtk_combo_box_set_entry_text_column" gtk_combo_box_set_entry_text_column ::
Ptr ComboBox ->
Int32 ->
IO ()
comboBoxSetEntryTextColumn ::
(B.CallStack.HasCallStack, MonadIO m, IsComboBox a) =>
a
-> Int32
-> m ()
comboBoxSetEntryTextColumn :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsComboBox a) =>
a -> Int32 -> m ()
comboBoxSetEntryTextColumn a
comboBox Int32
textColumn = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr ComboBox
comboBox' <- a -> IO (Ptr ComboBox)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
comboBox
Ptr ComboBox -> Int32 -> IO ()
gtk_combo_box_set_entry_text_column Ptr ComboBox
comboBox' Int32
textColumn
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
comboBox
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data ComboBoxSetEntryTextColumnMethodInfo
instance (signature ~ (Int32 -> m ()), MonadIO m, IsComboBox a) => O.OverloadedMethod ComboBoxSetEntryTextColumnMethodInfo a signature where
overloadedMethod = comboBoxSetEntryTextColumn
instance O.OverloadedMethodInfo ComboBoxSetEntryTextColumnMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.ComboBox.comboBoxSetEntryTextColumn",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-ComboBox.html#v:comboBoxSetEntryTextColumn"
}
#endif
foreign import ccall "gtk_combo_box_set_id_column" gtk_combo_box_set_id_column ::
Ptr ComboBox ->
Int32 ->
IO ()
comboBoxSetIdColumn ::
(B.CallStack.HasCallStack, MonadIO m, IsComboBox a) =>
a
-> Int32
-> m ()
comboBoxSetIdColumn :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsComboBox a) =>
a -> Int32 -> m ()
comboBoxSetIdColumn a
comboBox Int32
idColumn = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr ComboBox
comboBox' <- a -> IO (Ptr ComboBox)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
comboBox
Ptr ComboBox -> Int32 -> IO ()
gtk_combo_box_set_id_column Ptr ComboBox
comboBox' Int32
idColumn
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
comboBox
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data ComboBoxSetIdColumnMethodInfo
instance (signature ~ (Int32 -> m ()), MonadIO m, IsComboBox a) => O.OverloadedMethod ComboBoxSetIdColumnMethodInfo a signature where
overloadedMethod = comboBoxSetIdColumn
instance O.OverloadedMethodInfo ComboBoxSetIdColumnMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.ComboBox.comboBoxSetIdColumn",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-ComboBox.html#v:comboBoxSetIdColumn"
}
#endif
foreign import ccall "gtk_combo_box_set_model" gtk_combo_box_set_model ::
Ptr ComboBox ->
Ptr Gtk.TreeModel.TreeModel ->
IO ()
comboBoxSetModel ::
(B.CallStack.HasCallStack, MonadIO m, IsComboBox a, Gtk.TreeModel.IsTreeModel b) =>
a
-> Maybe (b)
-> m ()
comboBoxSetModel :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsComboBox a, IsTreeModel b) =>
a -> Maybe b -> m ()
comboBoxSetModel a
comboBox Maybe b
model = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr ComboBox
comboBox' <- a -> IO (Ptr ComboBox)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
comboBox
Ptr TreeModel
maybeModel <- case Maybe b
model of
Maybe b
Nothing -> Ptr TreeModel -> IO (Ptr TreeModel)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr TreeModel
forall a. Ptr a
nullPtr
Just b
jModel -> do
Ptr TreeModel
jModel' <- b -> IO (Ptr TreeModel)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
jModel
Ptr TreeModel -> IO (Ptr TreeModel)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr TreeModel
jModel'
Ptr ComboBox -> Ptr TreeModel -> IO ()
gtk_combo_box_set_model Ptr ComboBox
comboBox' Ptr TreeModel
maybeModel
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
comboBox
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 (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data ComboBoxSetModelMethodInfo
instance (signature ~ (Maybe (b) -> m ()), MonadIO m, IsComboBox a, Gtk.TreeModel.IsTreeModel b) => O.OverloadedMethod ComboBoxSetModelMethodInfo a signature where
overloadedMethod = comboBoxSetModel
instance O.OverloadedMethodInfo ComboBoxSetModelMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.ComboBox.comboBoxSetModel",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-ComboBox.html#v:comboBoxSetModel"
}
#endif
foreign import ccall "gtk_combo_box_set_popup_fixed_width" ::
Ptr ComboBox ->
CInt ->
IO ()
comboBoxSetPopupFixedWidth ::
(B.CallStack.HasCallStack, MonadIO m, IsComboBox a) =>
a
-> Bool
-> m ()
a
comboBox Bool
fixed = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr ComboBox
comboBox' <- a -> IO (Ptr ComboBox)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
comboBox
let fixed' :: CInt
fixed' = (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
fixed
Ptr ComboBox -> CInt -> IO ()
gtk_combo_box_set_popup_fixed_width Ptr ComboBox
comboBox' CInt
fixed'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
comboBox
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data ComboBoxSetPopupFixedWidthMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsComboBox a) => O.OverloadedMethod ComboBoxSetPopupFixedWidthMethodInfo a signature where
overloadedMethod = comboBoxSetPopupFixedWidth
instance O.OverloadedMethodInfo ComboBoxSetPopupFixedWidthMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.ComboBox.comboBoxSetPopupFixedWidth",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-ComboBox.html#v:comboBoxSetPopupFixedWidth"
}
#endif
foreign import ccall "gtk_combo_box_set_row_separator_func" gtk_combo_box_set_row_separator_func ::
Ptr ComboBox ->
FunPtr Gtk.Callbacks.C_TreeViewRowSeparatorFunc ->
Ptr () ->
FunPtr GLib.Callbacks.C_DestroyNotify ->
IO ()
comboBoxSetRowSeparatorFunc ::
(B.CallStack.HasCallStack, MonadIO m, IsComboBox a) =>
a
-> Maybe (Gtk.Callbacks.TreeViewRowSeparatorFunc)
-> m ()
comboBoxSetRowSeparatorFunc :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsComboBox a) =>
a -> Maybe TreeViewRowSeparatorFunc -> m ()
comboBoxSetRowSeparatorFunc a
comboBox Maybe TreeViewRowSeparatorFunc
func = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr ComboBox
comboBox' <- a -> IO (Ptr ComboBox)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
comboBox
FunPtr C_TreeViewRowSeparatorFunc
maybeFunc <- case Maybe TreeViewRowSeparatorFunc
func of
Maybe TreeViewRowSeparatorFunc
Nothing -> FunPtr C_TreeViewRowSeparatorFunc
-> IO (FunPtr C_TreeViewRowSeparatorFunc)
forall (m :: * -> *) a. Monad m => a -> m a
return (Ptr Any -> FunPtr C_TreeViewRowSeparatorFunc
forall a b. Ptr a -> FunPtr b
castPtrToFunPtr Ptr Any
forall a. Ptr a
nullPtr)
Just TreeViewRowSeparatorFunc
jFunc -> do
FunPtr C_TreeViewRowSeparatorFunc
jFunc' <- C_TreeViewRowSeparatorFunc
-> IO (FunPtr C_TreeViewRowSeparatorFunc)
Gtk.Callbacks.mk_TreeViewRowSeparatorFunc (Maybe (Ptr (FunPtr C_TreeViewRowSeparatorFunc))
-> TreeViewRowSeparatorFunc_WithClosures
-> C_TreeViewRowSeparatorFunc
Gtk.Callbacks.wrap_TreeViewRowSeparatorFunc Maybe (Ptr (FunPtr C_TreeViewRowSeparatorFunc))
forall a. Maybe a
Nothing (TreeViewRowSeparatorFunc -> TreeViewRowSeparatorFunc_WithClosures
Gtk.Callbacks.drop_closures_TreeViewRowSeparatorFunc TreeViewRowSeparatorFunc
jFunc))
FunPtr C_TreeViewRowSeparatorFunc
-> IO (FunPtr C_TreeViewRowSeparatorFunc)
forall (m :: * -> *) a. Monad m => a -> m a
return FunPtr C_TreeViewRowSeparatorFunc
jFunc'
let data_ :: Ptr ()
data_ = FunPtr C_TreeViewRowSeparatorFunc -> Ptr ()
forall a b. FunPtr a -> Ptr b
castFunPtrToPtr FunPtr C_TreeViewRowSeparatorFunc
maybeFunc
let destroy :: FunPtr (Ptr a -> IO ())
destroy = FunPtr (Ptr a -> IO ())
forall a. FunPtr (Ptr a -> IO ())
SP.safeFreeFunPtrPtr
Ptr ComboBox
-> FunPtr C_TreeViewRowSeparatorFunc
-> Ptr ()
-> FunPtr C_DestroyNotify
-> IO ()
gtk_combo_box_set_row_separator_func Ptr ComboBox
comboBox' FunPtr C_TreeViewRowSeparatorFunc
maybeFunc Ptr ()
data_ FunPtr C_DestroyNotify
forall a. FunPtr (Ptr a -> IO ())
destroy
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
comboBox
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data ComboBoxSetRowSeparatorFuncMethodInfo
instance (signature ~ (Maybe (Gtk.Callbacks.TreeViewRowSeparatorFunc) -> m ()), MonadIO m, IsComboBox a) => O.OverloadedMethod ComboBoxSetRowSeparatorFuncMethodInfo a signature where
overloadedMethod = comboBoxSetRowSeparatorFunc
instance O.OverloadedMethodInfo ComboBoxSetRowSeparatorFuncMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.ComboBox.comboBoxSetRowSeparatorFunc",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-ComboBox.html#v:comboBoxSetRowSeparatorFunc"
}
#endif