{-# LANGUAGE ImplicitParams, RankNTypes, TypeApplications #-}
#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif
module GI.Gtk.Objects.SearchEntry
(
SearchEntry(..) ,
IsSearchEntry ,
toSearchEntry ,
#if defined(ENABLE_OVERLOADING)
ResolveSearchEntryMethod ,
#endif
#if defined(ENABLE_OVERLOADING)
SearchEntryGetInputHintsMethodInfo ,
#endif
searchEntryGetInputHints ,
#if defined(ENABLE_OVERLOADING)
SearchEntryGetInputPurposeMethodInfo ,
#endif
searchEntryGetInputPurpose ,
#if defined(ENABLE_OVERLOADING)
SearchEntryGetKeyCaptureWidgetMethodInfo,
#endif
searchEntryGetKeyCaptureWidget ,
#if defined(ENABLE_OVERLOADING)
SearchEntryGetPlaceholderTextMethodInfo ,
#endif
searchEntryGetPlaceholderText ,
#if defined(ENABLE_OVERLOADING)
SearchEntryGetSearchDelayMethodInfo ,
#endif
searchEntryGetSearchDelay ,
searchEntryNew ,
#if defined(ENABLE_OVERLOADING)
SearchEntrySetInputHintsMethodInfo ,
#endif
searchEntrySetInputHints ,
#if defined(ENABLE_OVERLOADING)
SearchEntrySetInputPurposeMethodInfo ,
#endif
searchEntrySetInputPurpose ,
#if defined(ENABLE_OVERLOADING)
SearchEntrySetKeyCaptureWidgetMethodInfo,
#endif
searchEntrySetKeyCaptureWidget ,
#if defined(ENABLE_OVERLOADING)
SearchEntrySetPlaceholderTextMethodInfo ,
#endif
searchEntrySetPlaceholderText ,
#if defined(ENABLE_OVERLOADING)
SearchEntrySetSearchDelayMethodInfo ,
#endif
searchEntrySetSearchDelay ,
#if defined(ENABLE_OVERLOADING)
SearchEntryActivatesDefaultPropertyInfo ,
#endif
constructSearchEntryActivatesDefault ,
getSearchEntryActivatesDefault ,
#if defined(ENABLE_OVERLOADING)
searchEntryActivatesDefault ,
#endif
setSearchEntryActivatesDefault ,
#if defined(ENABLE_OVERLOADING)
SearchEntryInputHintsPropertyInfo ,
#endif
constructSearchEntryInputHints ,
getSearchEntryInputHints ,
#if defined(ENABLE_OVERLOADING)
searchEntryInputHints ,
#endif
setSearchEntryInputHints ,
#if defined(ENABLE_OVERLOADING)
SearchEntryInputPurposePropertyInfo ,
#endif
constructSearchEntryInputPurpose ,
getSearchEntryInputPurpose ,
#if defined(ENABLE_OVERLOADING)
searchEntryInputPurpose ,
#endif
setSearchEntryInputPurpose ,
#if defined(ENABLE_OVERLOADING)
SearchEntryPlaceholderTextPropertyInfo ,
#endif
clearSearchEntryPlaceholderText ,
constructSearchEntryPlaceholderText ,
getSearchEntryPlaceholderText ,
#if defined(ENABLE_OVERLOADING)
searchEntryPlaceholderText ,
#endif
setSearchEntryPlaceholderText ,
#if defined(ENABLE_OVERLOADING)
SearchEntrySearchDelayPropertyInfo ,
#endif
constructSearchEntrySearchDelay ,
getSearchEntrySearchDelay ,
#if defined(ENABLE_OVERLOADING)
searchEntrySearchDelay ,
#endif
setSearchEntrySearchDelay ,
SearchEntryActivateCallback ,
#if defined(ENABLE_OVERLOADING)
SearchEntryActivateSignalInfo ,
#endif
afterSearchEntryActivate ,
onSearchEntryActivate ,
SearchEntryNextMatchCallback ,
#if defined(ENABLE_OVERLOADING)
SearchEntryNextMatchSignalInfo ,
#endif
afterSearchEntryNextMatch ,
onSearchEntryNextMatch ,
SearchEntryPreviousMatchCallback ,
#if defined(ENABLE_OVERLOADING)
SearchEntryPreviousMatchSignalInfo ,
#endif
afterSearchEntryPreviousMatch ,
onSearchEntryPreviousMatch ,
SearchEntrySearchChangedCallback ,
#if defined(ENABLE_OVERLOADING)
SearchEntrySearchChangedSignalInfo ,
#endif
afterSearchEntrySearchChanged ,
onSearchEntrySearchChanged ,
SearchEntrySearchStartedCallback ,
#if defined(ENABLE_OVERLOADING)
SearchEntrySearchStartedSignalInfo ,
#endif
afterSearchEntrySearchStarted ,
onSearchEntrySearchStarted ,
SearchEntryStopSearchCallback ,
#if defined(ENABLE_OVERLOADING)
SearchEntryStopSearchSignalInfo ,
#endif
afterSearchEntryStopSearch ,
onSearchEntryStopSearch ,
) where
import Data.GI.Base.ShortPrelude
import qualified Data.GI.Base.ShortPrelude as SP
import qualified Data.GI.Base.Overloading as O
import qualified Prelude as P
import qualified Data.GI.Base.Attributes as GI.Attributes
import qualified Data.GI.Base.BasicTypes as B.Types
import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr
import qualified Data.GI.Base.GArray as B.GArray
import qualified Data.GI.Base.GClosure as B.GClosure
import qualified Data.GI.Base.GError as B.GError
import qualified Data.GI.Base.GHashTable as B.GHT
import qualified Data.GI.Base.GVariant as B.GVariant
import qualified Data.GI.Base.GValue as B.GValue
import qualified Data.GI.Base.GParamSpec as B.GParamSpec
import qualified Data.GI.Base.CallStack as B.CallStack
import qualified Data.GI.Base.Properties as B.Properties
import qualified Data.GI.Base.Signals as B.Signals
import qualified Control.Monad.IO.Class as MIO
import qualified Data.Coerce as Coerce
import qualified Data.Text as T
import qualified Data.Kind as DK
import qualified Data.ByteString.Char8 as B
import qualified Data.Map as Map
import qualified Foreign.Ptr as FP
import qualified GHC.OverloadedLabels as OL
import qualified GHC.Records as R
import qualified Data.Word as DW
import qualified Data.Int as DI
import qualified System.Posix.Types as SPT
import qualified Foreign.C.Types as FCT
#if MIN_VERSION_base(4,18,0)
import qualified GI.Cairo.Structs.Context as Cairo.Context
import qualified GI.Cairo.Structs.FontOptions as Cairo.FontOptions
import qualified GI.GLib.Callbacks as GLib.Callbacks
import qualified GI.GLib.Structs.Bytes as GLib.Bytes
import qualified GI.GObject.Objects.Object as GObject.Object
import qualified GI.GObject.Structs.ObjectClass as GObject.ObjectClass
import qualified GI.Gdk.Flags as Gdk.Flags
import qualified GI.Gdk.Interfaces.Paintable as Gdk.Paintable
import qualified GI.Gdk.Objects.Clipboard as Gdk.Clipboard
import qualified GI.Gdk.Objects.Cursor as Gdk.Cursor
import qualified GI.Gdk.Objects.Device as Gdk.Device
import qualified GI.Gdk.Objects.Display as Gdk.Display
import qualified GI.Gdk.Objects.Event as Gdk.Event
import qualified GI.Gdk.Objects.FrameClock as Gdk.FrameClock
import qualified GI.Gdk.Objects.Snapshot as Gdk.Snapshot
import qualified GI.Gdk.Objects.Surface as Gdk.Surface
import qualified GI.Gdk.Objects.Texture as Gdk.Texture
import qualified GI.Gdk.Structs.RGBA as Gdk.RGBA
import qualified GI.Gdk.Structs.Rectangle as Gdk.Rectangle
import qualified GI.Gio.Interfaces.ActionGroup as Gio.ActionGroup
import qualified GI.Gio.Interfaces.Icon as Gio.Icon
import qualified GI.Gio.Interfaces.ListModel as Gio.ListModel
import qualified GI.Graphene.Structs.Matrix as Graphene.Matrix
import qualified GI.Graphene.Structs.Point as Graphene.Point
import qualified GI.Graphene.Structs.Point3D as Graphene.Point3D
import qualified GI.Graphene.Structs.Rect as Graphene.Rect
import qualified GI.Graphene.Structs.Size as Graphene.Size
import qualified GI.Graphene.Structs.Vec3 as Graphene.Vec3
import qualified GI.Graphene.Structs.Vec4 as Graphene.Vec4
import qualified GI.Gsk.Enums as Gsk.Enums
import qualified GI.Gsk.Objects.GLShader as Gsk.GLShader
import qualified GI.Gsk.Objects.RenderNode as Gsk.RenderNode
import qualified GI.Gsk.Objects.Renderer as Gsk.Renderer
import qualified GI.Gsk.Structs.ColorStop as Gsk.ColorStop
import qualified GI.Gsk.Structs.Path as Gsk.Path
import qualified GI.Gsk.Structs.RoundedRect as Gsk.RoundedRect
import qualified GI.Gsk.Structs.Shadow as Gsk.Shadow
import qualified GI.Gsk.Structs.Stroke as Gsk.Stroke
import qualified GI.Gsk.Structs.Transform as Gsk.Transform
import qualified GI.Gtk.Callbacks as Gtk.Callbacks
import {-# SOURCE #-} qualified GI.Gtk.Enums as Gtk.Enums
import {-# SOURCE #-} qualified GI.Gtk.Flags as Gtk.Flags
import {-# SOURCE #-} qualified GI.Gtk.Interfaces.Accessible as Gtk.Accessible
import {-# SOURCE #-} qualified GI.Gtk.Interfaces.Buildable as Gtk.Buildable
import {-# SOURCE #-} qualified GI.Gtk.Interfaces.ConstraintTarget as Gtk.ConstraintTarget
import {-# SOURCE #-} qualified GI.Gtk.Interfaces.Editable as Gtk.Editable
import {-# SOURCE #-} qualified GI.Gtk.Interfaces.Native as Gtk.Native
import {-# SOURCE #-} qualified GI.Gtk.Interfaces.Root as Gtk.Root
import {-# SOURCE #-} qualified GI.Gtk.Interfaces.StyleProvider as Gtk.StyleProvider
import {-# SOURCE #-} qualified GI.Gtk.Objects.ATContext as Gtk.ATContext
import {-# SOURCE #-} qualified GI.Gtk.Objects.EventController as Gtk.EventController
import {-# SOURCE #-} qualified GI.Gtk.Objects.LayoutChild as Gtk.LayoutChild
import {-# SOURCE #-} qualified GI.Gtk.Objects.LayoutManager as Gtk.LayoutManager
import {-# SOURCE #-} qualified GI.Gtk.Objects.Settings as Gtk.Settings
import {-# SOURCE #-} qualified GI.Gtk.Objects.Snapshot as Gtk.Snapshot
import {-# SOURCE #-} qualified GI.Gtk.Objects.StyleContext as Gtk.StyleContext
import {-# SOURCE #-} qualified GI.Gtk.Objects.Tooltip as Gtk.Tooltip
import {-# SOURCE #-} qualified GI.Gtk.Objects.Widget as Gtk.Widget
import {-# SOURCE #-} qualified GI.Gtk.Structs.Border as Gtk.Border
import {-# SOURCE #-} qualified GI.Gtk.Structs.Requisition as Gtk.Requisition
import qualified GI.Pango.Enums as Pango.Enums
import qualified GI.Pango.Objects.Context as Pango.Context
import qualified GI.Pango.Objects.FontMap as Pango.FontMap
import qualified GI.Pango.Objects.Layout as Pango.Layout
#else
import qualified GI.GObject.Objects.Object as GObject.Object
import {-# SOURCE #-} qualified GI.Gtk.Enums as Gtk.Enums
import {-# SOURCE #-} qualified GI.Gtk.Flags as Gtk.Flags
import {-# SOURCE #-} qualified GI.Gtk.Interfaces.Accessible as Gtk.Accessible
import {-# SOURCE #-} qualified GI.Gtk.Interfaces.Buildable as Gtk.Buildable
import {-# SOURCE #-} qualified GI.Gtk.Interfaces.ConstraintTarget as Gtk.ConstraintTarget
import {-# SOURCE #-} qualified GI.Gtk.Interfaces.Editable as Gtk.Editable
import {-# SOURCE #-} qualified GI.Gtk.Objects.Widget as Gtk.Widget
#endif
newtype SearchEntry = SearchEntry (SP.ManagedPtr SearchEntry)
deriving (SearchEntry -> SearchEntry -> Bool
(SearchEntry -> SearchEntry -> Bool)
-> (SearchEntry -> SearchEntry -> Bool) -> Eq SearchEntry
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: SearchEntry -> SearchEntry -> Bool
== :: SearchEntry -> SearchEntry -> Bool
$c/= :: SearchEntry -> SearchEntry -> Bool
/= :: SearchEntry -> SearchEntry -> Bool
Eq)
instance SP.ManagedPtrNewtype SearchEntry where
toManagedPtr :: SearchEntry -> ManagedPtr SearchEntry
toManagedPtr (SearchEntry ManagedPtr SearchEntry
p) = ManagedPtr SearchEntry
p
foreign import ccall "gtk_search_entry_get_type"
c_gtk_search_entry_get_type :: IO B.Types.GType
instance B.Types.TypedObject SearchEntry where
glibType :: IO GType
glibType = IO GType
c_gtk_search_entry_get_type
instance B.Types.GObject SearchEntry
class (SP.GObject o, O.IsDescendantOf SearchEntry o) => IsSearchEntry o
instance (SP.GObject o, O.IsDescendantOf SearchEntry o) => IsSearchEntry o
instance O.HasParentTypes SearchEntry
type instance O.ParentTypes SearchEntry = '[Gtk.Widget.Widget, GObject.Object.Object, Gtk.Accessible.Accessible, Gtk.Buildable.Buildable, Gtk.ConstraintTarget.ConstraintTarget, Gtk.Editable.Editable]
toSearchEntry :: (MIO.MonadIO m, IsSearchEntry o) => o -> m SearchEntry
toSearchEntry :: forall (m :: * -> *) o.
(MonadIO m, IsSearchEntry o) =>
o -> m SearchEntry
toSearchEntry = IO SearchEntry -> m SearchEntry
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO SearchEntry -> m SearchEntry)
-> (o -> IO SearchEntry) -> o -> m SearchEntry
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (ManagedPtr SearchEntry -> SearchEntry) -> o -> IO SearchEntry
forall o o'.
(HasCallStack, ManagedPtrNewtype o, TypedObject o,
ManagedPtrNewtype o', TypedObject o') =>
(ManagedPtr o' -> o') -> o -> IO o'
B.ManagedPtr.unsafeCastTo ManagedPtr SearchEntry -> SearchEntry
SearchEntry
instance B.GValue.IsGValue (Maybe SearchEntry) where
gvalueGType_ :: IO GType
gvalueGType_ = IO GType
c_gtk_search_entry_get_type
gvalueSet_ :: Ptr GValue -> Maybe SearchEntry -> IO ()
gvalueSet_ Ptr GValue
gv Maybe SearchEntry
P.Nothing = Ptr GValue -> Ptr SearchEntry -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv (Ptr SearchEntry
forall a. Ptr a
FP.nullPtr :: FP.Ptr SearchEntry)
gvalueSet_ Ptr GValue
gv (P.Just SearchEntry
obj) = SearchEntry -> (Ptr SearchEntry -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
B.ManagedPtr.withManagedPtr SearchEntry
obj (Ptr GValue -> Ptr SearchEntry -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv)
gvalueGet_ :: Ptr GValue -> IO (Maybe SearchEntry)
gvalueGet_ Ptr GValue
gv = do
Ptr SearchEntry
ptr <- Ptr GValue -> IO (Ptr SearchEntry)
forall a. GObject a => Ptr GValue -> IO (Ptr a)
B.GValue.get_object Ptr GValue
gv :: IO (FP.Ptr SearchEntry)
if Ptr SearchEntry
ptr Ptr SearchEntry -> Ptr SearchEntry -> Bool
forall a. Eq a => a -> a -> Bool
/= Ptr SearchEntry
forall a. Ptr a
FP.nullPtr
then SearchEntry -> Maybe SearchEntry
forall a. a -> Maybe a
P.Just (SearchEntry -> Maybe SearchEntry)
-> IO SearchEntry -> IO (Maybe SearchEntry)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (ManagedPtr SearchEntry -> SearchEntry)
-> Ptr SearchEntry -> IO SearchEntry
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
B.ManagedPtr.newObject ManagedPtr SearchEntry -> SearchEntry
SearchEntry Ptr SearchEntry
ptr
else Maybe SearchEntry -> IO (Maybe SearchEntry)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe SearchEntry
forall a. Maybe a
P.Nothing
#if defined(ENABLE_OVERLOADING)
type family ResolveSearchEntryMethod (t :: Symbol) (o :: DK.Type) :: DK.Type where
ResolveSearchEntryMethod "actionSetEnabled" o = Gtk.Widget.WidgetActionSetEnabledMethodInfo
ResolveSearchEntryMethod "activate" o = Gtk.Widget.WidgetActivateMethodInfo
ResolveSearchEntryMethod "activateAction" o = Gtk.Widget.WidgetActivateActionMethodInfo
ResolveSearchEntryMethod "activateDefault" o = Gtk.Widget.WidgetActivateDefaultMethodInfo
ResolveSearchEntryMethod "addController" o = Gtk.Widget.WidgetAddControllerMethodInfo
ResolveSearchEntryMethod "addCssClass" o = Gtk.Widget.WidgetAddCssClassMethodInfo
ResolveSearchEntryMethod "addMnemonicLabel" o = Gtk.Widget.WidgetAddMnemonicLabelMethodInfo
ResolveSearchEntryMethod "addTickCallback" o = Gtk.Widget.WidgetAddTickCallbackMethodInfo
ResolveSearchEntryMethod "allocate" o = Gtk.Widget.WidgetAllocateMethodInfo
ResolveSearchEntryMethod "announce" o = Gtk.Accessible.AccessibleAnnounceMethodInfo
ResolveSearchEntryMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
ResolveSearchEntryMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
ResolveSearchEntryMethod "childFocus" o = Gtk.Widget.WidgetChildFocusMethodInfo
ResolveSearchEntryMethod "computeBounds" o = Gtk.Widget.WidgetComputeBoundsMethodInfo
ResolveSearchEntryMethod "computeExpand" o = Gtk.Widget.WidgetComputeExpandMethodInfo
ResolveSearchEntryMethod "computePoint" o = Gtk.Widget.WidgetComputePointMethodInfo
ResolveSearchEntryMethod "computeTransform" o = Gtk.Widget.WidgetComputeTransformMethodInfo
ResolveSearchEntryMethod "contains" o = Gtk.Widget.WidgetContainsMethodInfo
ResolveSearchEntryMethod "createPangoContext" o = Gtk.Widget.WidgetCreatePangoContextMethodInfo
ResolveSearchEntryMethod "createPangoLayout" o = Gtk.Widget.WidgetCreatePangoLayoutMethodInfo
ResolveSearchEntryMethod "delegateGetAccessiblePlatformState" o = Gtk.Editable.EditableDelegateGetAccessiblePlatformStateMethodInfo
ResolveSearchEntryMethod "deleteSelection" o = Gtk.Editable.EditableDeleteSelectionMethodInfo
ResolveSearchEntryMethod "deleteText" o = Gtk.Editable.EditableDeleteTextMethodInfo
ResolveSearchEntryMethod "disposeTemplate" o = Gtk.Widget.WidgetDisposeTemplateMethodInfo
ResolveSearchEntryMethod "dragCheckThreshold" o = Gtk.Widget.WidgetDragCheckThresholdMethodInfo
ResolveSearchEntryMethod "errorBell" o = Gtk.Widget.WidgetErrorBellMethodInfo
ResolveSearchEntryMethod "finishDelegate" o = Gtk.Editable.EditableFinishDelegateMethodInfo
ResolveSearchEntryMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
ResolveSearchEntryMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
ResolveSearchEntryMethod "getv" o = GObject.Object.ObjectGetvMethodInfo
ResolveSearchEntryMethod "grabFocus" o = Gtk.Widget.WidgetGrabFocusMethodInfo
ResolveSearchEntryMethod "hasCssClass" o = Gtk.Widget.WidgetHasCssClassMethodInfo
ResolveSearchEntryMethod "hasDefault" o = Gtk.Widget.WidgetHasDefaultMethodInfo
ResolveSearchEntryMethod "hasFocus" o = Gtk.Widget.WidgetHasFocusMethodInfo
ResolveSearchEntryMethod "hasVisibleFocus" o = Gtk.Widget.WidgetHasVisibleFocusMethodInfo
ResolveSearchEntryMethod "hide" o = Gtk.Widget.WidgetHideMethodInfo
ResolveSearchEntryMethod "inDestruction" o = Gtk.Widget.WidgetInDestructionMethodInfo
ResolveSearchEntryMethod "initDelegate" o = Gtk.Editable.EditableInitDelegateMethodInfo
ResolveSearchEntryMethod "initTemplate" o = Gtk.Widget.WidgetInitTemplateMethodInfo
ResolveSearchEntryMethod "insertActionGroup" o = Gtk.Widget.WidgetInsertActionGroupMethodInfo
ResolveSearchEntryMethod "insertAfter" o = Gtk.Widget.WidgetInsertAfterMethodInfo
ResolveSearchEntryMethod "insertBefore" o = Gtk.Widget.WidgetInsertBeforeMethodInfo
ResolveSearchEntryMethod "insertText" o = Gtk.Editable.EditableInsertTextMethodInfo
ResolveSearchEntryMethod "isAncestor" o = Gtk.Widget.WidgetIsAncestorMethodInfo
ResolveSearchEntryMethod "isDrawable" o = Gtk.Widget.WidgetIsDrawableMethodInfo
ResolveSearchEntryMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo
ResolveSearchEntryMethod "isFocus" o = Gtk.Widget.WidgetIsFocusMethodInfo
ResolveSearchEntryMethod "isSensitive" o = Gtk.Widget.WidgetIsSensitiveMethodInfo
ResolveSearchEntryMethod "isVisible" o = Gtk.Widget.WidgetIsVisibleMethodInfo
ResolveSearchEntryMethod "keynavFailed" o = Gtk.Widget.WidgetKeynavFailedMethodInfo
ResolveSearchEntryMethod "listMnemonicLabels" o = Gtk.Widget.WidgetListMnemonicLabelsMethodInfo
ResolveSearchEntryMethod "map" o = Gtk.Widget.WidgetMapMethodInfo
ResolveSearchEntryMethod "measure" o = Gtk.Widget.WidgetMeasureMethodInfo
ResolveSearchEntryMethod "mnemonicActivate" o = Gtk.Widget.WidgetMnemonicActivateMethodInfo
ResolveSearchEntryMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
ResolveSearchEntryMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
ResolveSearchEntryMethod "observeChildren" o = Gtk.Widget.WidgetObserveChildrenMethodInfo
ResolveSearchEntryMethod "observeControllers" o = Gtk.Widget.WidgetObserveControllersMethodInfo
ResolveSearchEntryMethod "pick" o = Gtk.Widget.WidgetPickMethodInfo
ResolveSearchEntryMethod "queueAllocate" o = Gtk.Widget.WidgetQueueAllocateMethodInfo
ResolveSearchEntryMethod "queueDraw" o = Gtk.Widget.WidgetQueueDrawMethodInfo
ResolveSearchEntryMethod "queueResize" o = Gtk.Widget.WidgetQueueResizeMethodInfo
ResolveSearchEntryMethod "realize" o = Gtk.Widget.WidgetRealizeMethodInfo
ResolveSearchEntryMethod "ref" o = GObject.Object.ObjectRefMethodInfo
ResolveSearchEntryMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
ResolveSearchEntryMethod "removeController" o = Gtk.Widget.WidgetRemoveControllerMethodInfo
ResolveSearchEntryMethod "removeCssClass" o = Gtk.Widget.WidgetRemoveCssClassMethodInfo
ResolveSearchEntryMethod "removeMnemonicLabel" o = Gtk.Widget.WidgetRemoveMnemonicLabelMethodInfo
ResolveSearchEntryMethod "removeTickCallback" o = Gtk.Widget.WidgetRemoveTickCallbackMethodInfo
ResolveSearchEntryMethod "resetProperty" o = Gtk.Accessible.AccessibleResetPropertyMethodInfo
ResolveSearchEntryMethod "resetRelation" o = Gtk.Accessible.AccessibleResetRelationMethodInfo
ResolveSearchEntryMethod "resetState" o = Gtk.Accessible.AccessibleResetStateMethodInfo
ResolveSearchEntryMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
ResolveSearchEntryMethod "selectRegion" o = Gtk.Editable.EditableSelectRegionMethodInfo
ResolveSearchEntryMethod "shouldLayout" o = Gtk.Widget.WidgetShouldLayoutMethodInfo
ResolveSearchEntryMethod "show" o = Gtk.Widget.WidgetShowMethodInfo
ResolveSearchEntryMethod "sizeAllocate" o = Gtk.Widget.WidgetSizeAllocateMethodInfo
ResolveSearchEntryMethod "snapshotChild" o = Gtk.Widget.WidgetSnapshotChildMethodInfo
ResolveSearchEntryMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
ResolveSearchEntryMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
ResolveSearchEntryMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo
ResolveSearchEntryMethod "translateCoordinates" o = Gtk.Widget.WidgetTranslateCoordinatesMethodInfo
ResolveSearchEntryMethod "triggerTooltipQuery" o = Gtk.Widget.WidgetTriggerTooltipQueryMethodInfo
ResolveSearchEntryMethod "unmap" o = Gtk.Widget.WidgetUnmapMethodInfo
ResolveSearchEntryMethod "unparent" o = Gtk.Widget.WidgetUnparentMethodInfo
ResolveSearchEntryMethod "unrealize" o = Gtk.Widget.WidgetUnrealizeMethodInfo
ResolveSearchEntryMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo
ResolveSearchEntryMethod "unsetStateFlags" o = Gtk.Widget.WidgetUnsetStateFlagsMethodInfo
ResolveSearchEntryMethod "updateNextAccessibleSibling" o = Gtk.Accessible.AccessibleUpdateNextAccessibleSiblingMethodInfo
ResolveSearchEntryMethod "updateProperty" o = Gtk.Accessible.AccessibleUpdatePropertyMethodInfo
ResolveSearchEntryMethod "updateRelation" o = Gtk.Accessible.AccessibleUpdateRelationMethodInfo
ResolveSearchEntryMethod "updateState" o = Gtk.Accessible.AccessibleUpdateStateMethodInfo
ResolveSearchEntryMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
ResolveSearchEntryMethod "getAccessibleParent" o = Gtk.Accessible.AccessibleGetAccessibleParentMethodInfo
ResolveSearchEntryMethod "getAccessibleRole" o = Gtk.Accessible.AccessibleGetAccessibleRoleMethodInfo
ResolveSearchEntryMethod "getAlignment" o = Gtk.Editable.EditableGetAlignmentMethodInfo
ResolveSearchEntryMethod "getAllocatedBaseline" o = Gtk.Widget.WidgetGetAllocatedBaselineMethodInfo
ResolveSearchEntryMethod "getAllocatedHeight" o = Gtk.Widget.WidgetGetAllocatedHeightMethodInfo
ResolveSearchEntryMethod "getAllocatedWidth" o = Gtk.Widget.WidgetGetAllocatedWidthMethodInfo
ResolveSearchEntryMethod "getAllocation" o = Gtk.Widget.WidgetGetAllocationMethodInfo
ResolveSearchEntryMethod "getAncestor" o = Gtk.Widget.WidgetGetAncestorMethodInfo
ResolveSearchEntryMethod "getAtContext" o = Gtk.Accessible.AccessibleGetAtContextMethodInfo
ResolveSearchEntryMethod "getBaseline" o = Gtk.Widget.WidgetGetBaselineMethodInfo
ResolveSearchEntryMethod "getBounds" o = Gtk.Accessible.AccessibleGetBoundsMethodInfo
ResolveSearchEntryMethod "getBuildableId" o = Gtk.Buildable.BuildableGetBuildableIdMethodInfo
ResolveSearchEntryMethod "getCanFocus" o = Gtk.Widget.WidgetGetCanFocusMethodInfo
ResolveSearchEntryMethod "getCanTarget" o = Gtk.Widget.WidgetGetCanTargetMethodInfo
ResolveSearchEntryMethod "getChars" o = Gtk.Editable.EditableGetCharsMethodInfo
ResolveSearchEntryMethod "getChildVisible" o = Gtk.Widget.WidgetGetChildVisibleMethodInfo
ResolveSearchEntryMethod "getClipboard" o = Gtk.Widget.WidgetGetClipboardMethodInfo
ResolveSearchEntryMethod "getColor" o = Gtk.Widget.WidgetGetColorMethodInfo
ResolveSearchEntryMethod "getCssClasses" o = Gtk.Widget.WidgetGetCssClassesMethodInfo
ResolveSearchEntryMethod "getCssName" o = Gtk.Widget.WidgetGetCssNameMethodInfo
ResolveSearchEntryMethod "getCursor" o = Gtk.Widget.WidgetGetCursorMethodInfo
ResolveSearchEntryMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
ResolveSearchEntryMethod "getDelegate" o = Gtk.Editable.EditableGetDelegateMethodInfo
ResolveSearchEntryMethod "getDirection" o = Gtk.Widget.WidgetGetDirectionMethodInfo
ResolveSearchEntryMethod "getDisplay" o = Gtk.Widget.WidgetGetDisplayMethodInfo
ResolveSearchEntryMethod "getEditable" o = Gtk.Editable.EditableGetEditableMethodInfo
ResolveSearchEntryMethod "getEnableUndo" o = Gtk.Editable.EditableGetEnableUndoMethodInfo
ResolveSearchEntryMethod "getFirstAccessibleChild" o = Gtk.Accessible.AccessibleGetFirstAccessibleChildMethodInfo
ResolveSearchEntryMethod "getFirstChild" o = Gtk.Widget.WidgetGetFirstChildMethodInfo
ResolveSearchEntryMethod "getFocusChild" o = Gtk.Widget.WidgetGetFocusChildMethodInfo
ResolveSearchEntryMethod "getFocusOnClick" o = Gtk.Widget.WidgetGetFocusOnClickMethodInfo
ResolveSearchEntryMethod "getFocusable" o = Gtk.Widget.WidgetGetFocusableMethodInfo
ResolveSearchEntryMethod "getFontMap" o = Gtk.Widget.WidgetGetFontMapMethodInfo
ResolveSearchEntryMethod "getFontOptions" o = Gtk.Widget.WidgetGetFontOptionsMethodInfo
ResolveSearchEntryMethod "getFrameClock" o = Gtk.Widget.WidgetGetFrameClockMethodInfo
ResolveSearchEntryMethod "getHalign" o = Gtk.Widget.WidgetGetHalignMethodInfo
ResolveSearchEntryMethod "getHasTooltip" o = Gtk.Widget.WidgetGetHasTooltipMethodInfo
ResolveSearchEntryMethod "getHeight" o = Gtk.Widget.WidgetGetHeightMethodInfo
ResolveSearchEntryMethod "getHexpand" o = Gtk.Widget.WidgetGetHexpandMethodInfo
ResolveSearchEntryMethod "getHexpandSet" o = Gtk.Widget.WidgetGetHexpandSetMethodInfo
ResolveSearchEntryMethod "getInputHints" o = SearchEntryGetInputHintsMethodInfo
ResolveSearchEntryMethod "getInputPurpose" o = SearchEntryGetInputPurposeMethodInfo
ResolveSearchEntryMethod "getKeyCaptureWidget" o = SearchEntryGetKeyCaptureWidgetMethodInfo
ResolveSearchEntryMethod "getLastChild" o = Gtk.Widget.WidgetGetLastChildMethodInfo
ResolveSearchEntryMethod "getLayoutManager" o = Gtk.Widget.WidgetGetLayoutManagerMethodInfo
ResolveSearchEntryMethod "getMapped" o = Gtk.Widget.WidgetGetMappedMethodInfo
ResolveSearchEntryMethod "getMarginBottom" o = Gtk.Widget.WidgetGetMarginBottomMethodInfo
ResolveSearchEntryMethod "getMarginEnd" o = Gtk.Widget.WidgetGetMarginEndMethodInfo
ResolveSearchEntryMethod "getMarginStart" o = Gtk.Widget.WidgetGetMarginStartMethodInfo
ResolveSearchEntryMethod "getMarginTop" o = Gtk.Widget.WidgetGetMarginTopMethodInfo
ResolveSearchEntryMethod "getMaxWidthChars" o = Gtk.Editable.EditableGetMaxWidthCharsMethodInfo
ResolveSearchEntryMethod "getName" o = Gtk.Widget.WidgetGetNameMethodInfo
ResolveSearchEntryMethod "getNative" o = Gtk.Widget.WidgetGetNativeMethodInfo
ResolveSearchEntryMethod "getNextAccessibleSibling" o = Gtk.Accessible.AccessibleGetNextAccessibleSiblingMethodInfo
ResolveSearchEntryMethod "getNextSibling" o = Gtk.Widget.WidgetGetNextSiblingMethodInfo
ResolveSearchEntryMethod "getOpacity" o = Gtk.Widget.WidgetGetOpacityMethodInfo
ResolveSearchEntryMethod "getOverflow" o = Gtk.Widget.WidgetGetOverflowMethodInfo
ResolveSearchEntryMethod "getPangoContext" o = Gtk.Widget.WidgetGetPangoContextMethodInfo
ResolveSearchEntryMethod "getParent" o = Gtk.Widget.WidgetGetParentMethodInfo
ResolveSearchEntryMethod "getPlaceholderText" o = SearchEntryGetPlaceholderTextMethodInfo
ResolveSearchEntryMethod "getPlatformState" o = Gtk.Accessible.AccessibleGetPlatformStateMethodInfo
ResolveSearchEntryMethod "getPosition" o = Gtk.Editable.EditableGetPositionMethodInfo
ResolveSearchEntryMethod "getPreferredSize" o = Gtk.Widget.WidgetGetPreferredSizeMethodInfo
ResolveSearchEntryMethod "getPrevSibling" o = Gtk.Widget.WidgetGetPrevSiblingMethodInfo
ResolveSearchEntryMethod "getPrimaryClipboard" o = Gtk.Widget.WidgetGetPrimaryClipboardMethodInfo
ResolveSearchEntryMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo
ResolveSearchEntryMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo
ResolveSearchEntryMethod "getRealized" o = Gtk.Widget.WidgetGetRealizedMethodInfo
ResolveSearchEntryMethod "getReceivesDefault" o = Gtk.Widget.WidgetGetReceivesDefaultMethodInfo
ResolveSearchEntryMethod "getRequestMode" o = Gtk.Widget.WidgetGetRequestModeMethodInfo
ResolveSearchEntryMethod "getRoot" o = Gtk.Widget.WidgetGetRootMethodInfo
ResolveSearchEntryMethod "getScaleFactor" o = Gtk.Widget.WidgetGetScaleFactorMethodInfo
ResolveSearchEntryMethod "getSearchDelay" o = SearchEntryGetSearchDelayMethodInfo
ResolveSearchEntryMethod "getSelectionBounds" o = Gtk.Editable.EditableGetSelectionBoundsMethodInfo
ResolveSearchEntryMethod "getSensitive" o = Gtk.Widget.WidgetGetSensitiveMethodInfo
ResolveSearchEntryMethod "getSettings" o = Gtk.Widget.WidgetGetSettingsMethodInfo
ResolveSearchEntryMethod "getSize" o = Gtk.Widget.WidgetGetSizeMethodInfo
ResolveSearchEntryMethod "getSizeRequest" o = Gtk.Widget.WidgetGetSizeRequestMethodInfo
ResolveSearchEntryMethod "getStateFlags" o = Gtk.Widget.WidgetGetStateFlagsMethodInfo
ResolveSearchEntryMethod "getStyleContext" o = Gtk.Widget.WidgetGetStyleContextMethodInfo
ResolveSearchEntryMethod "getTemplateChild" o = Gtk.Widget.WidgetGetTemplateChildMethodInfo
ResolveSearchEntryMethod "getText" o = Gtk.Editable.EditableGetTextMethodInfo
ResolveSearchEntryMethod "getTooltipMarkup" o = Gtk.Widget.WidgetGetTooltipMarkupMethodInfo
ResolveSearchEntryMethod "getTooltipText" o = Gtk.Widget.WidgetGetTooltipTextMethodInfo
ResolveSearchEntryMethod "getValign" o = Gtk.Widget.WidgetGetValignMethodInfo
ResolveSearchEntryMethod "getVexpand" o = Gtk.Widget.WidgetGetVexpandMethodInfo
ResolveSearchEntryMethod "getVexpandSet" o = Gtk.Widget.WidgetGetVexpandSetMethodInfo
ResolveSearchEntryMethod "getVisible" o = Gtk.Widget.WidgetGetVisibleMethodInfo
ResolveSearchEntryMethod "getWidth" o = Gtk.Widget.WidgetGetWidthMethodInfo
ResolveSearchEntryMethod "getWidthChars" o = Gtk.Editable.EditableGetWidthCharsMethodInfo
ResolveSearchEntryMethod "setAccessibleParent" o = Gtk.Accessible.AccessibleSetAccessibleParentMethodInfo
ResolveSearchEntryMethod "setAlignment" o = Gtk.Editable.EditableSetAlignmentMethodInfo
ResolveSearchEntryMethod "setCanFocus" o = Gtk.Widget.WidgetSetCanFocusMethodInfo
ResolveSearchEntryMethod "setCanTarget" o = Gtk.Widget.WidgetSetCanTargetMethodInfo
ResolveSearchEntryMethod "setChildVisible" o = Gtk.Widget.WidgetSetChildVisibleMethodInfo
ResolveSearchEntryMethod "setCssClasses" o = Gtk.Widget.WidgetSetCssClassesMethodInfo
ResolveSearchEntryMethod "setCursor" o = Gtk.Widget.WidgetSetCursorMethodInfo
ResolveSearchEntryMethod "setCursorFromName" o = Gtk.Widget.WidgetSetCursorFromNameMethodInfo
ResolveSearchEntryMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
ResolveSearchEntryMethod "setDataFull" o = GObject.Object.ObjectSetDataFullMethodInfo
ResolveSearchEntryMethod "setDirection" o = Gtk.Widget.WidgetSetDirectionMethodInfo
ResolveSearchEntryMethod "setEditable" o = Gtk.Editable.EditableSetEditableMethodInfo
ResolveSearchEntryMethod "setEnableUndo" o = Gtk.Editable.EditableSetEnableUndoMethodInfo
ResolveSearchEntryMethod "setFocusChild" o = Gtk.Widget.WidgetSetFocusChildMethodInfo
ResolveSearchEntryMethod "setFocusOnClick" o = Gtk.Widget.WidgetSetFocusOnClickMethodInfo
ResolveSearchEntryMethod "setFocusable" o = Gtk.Widget.WidgetSetFocusableMethodInfo
ResolveSearchEntryMethod "setFontMap" o = Gtk.Widget.WidgetSetFontMapMethodInfo
ResolveSearchEntryMethod "setFontOptions" o = Gtk.Widget.WidgetSetFontOptionsMethodInfo
ResolveSearchEntryMethod "setHalign" o = Gtk.Widget.WidgetSetHalignMethodInfo
ResolveSearchEntryMethod "setHasTooltip" o = Gtk.Widget.WidgetSetHasTooltipMethodInfo
ResolveSearchEntryMethod "setHexpand" o = Gtk.Widget.WidgetSetHexpandMethodInfo
ResolveSearchEntryMethod "setHexpandSet" o = Gtk.Widget.WidgetSetHexpandSetMethodInfo
ResolveSearchEntryMethod "setInputHints" o = SearchEntrySetInputHintsMethodInfo
ResolveSearchEntryMethod "setInputPurpose" o = SearchEntrySetInputPurposeMethodInfo
ResolveSearchEntryMethod "setKeyCaptureWidget" o = SearchEntrySetKeyCaptureWidgetMethodInfo
ResolveSearchEntryMethod "setLayoutManager" o = Gtk.Widget.WidgetSetLayoutManagerMethodInfo
ResolveSearchEntryMethod "setMarginBottom" o = Gtk.Widget.WidgetSetMarginBottomMethodInfo
ResolveSearchEntryMethod "setMarginEnd" o = Gtk.Widget.WidgetSetMarginEndMethodInfo
ResolveSearchEntryMethod "setMarginStart" o = Gtk.Widget.WidgetSetMarginStartMethodInfo
ResolveSearchEntryMethod "setMarginTop" o = Gtk.Widget.WidgetSetMarginTopMethodInfo
ResolveSearchEntryMethod "setMaxWidthChars" o = Gtk.Editable.EditableSetMaxWidthCharsMethodInfo
ResolveSearchEntryMethod "setName" o = Gtk.Widget.WidgetSetNameMethodInfo
ResolveSearchEntryMethod "setOpacity" o = Gtk.Widget.WidgetSetOpacityMethodInfo
ResolveSearchEntryMethod "setOverflow" o = Gtk.Widget.WidgetSetOverflowMethodInfo
ResolveSearchEntryMethod "setParent" o = Gtk.Widget.WidgetSetParentMethodInfo
ResolveSearchEntryMethod "setPlaceholderText" o = SearchEntrySetPlaceholderTextMethodInfo
ResolveSearchEntryMethod "setPosition" o = Gtk.Editable.EditableSetPositionMethodInfo
ResolveSearchEntryMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
ResolveSearchEntryMethod "setReceivesDefault" o = Gtk.Widget.WidgetSetReceivesDefaultMethodInfo
ResolveSearchEntryMethod "setSearchDelay" o = SearchEntrySetSearchDelayMethodInfo
ResolveSearchEntryMethod "setSensitive" o = Gtk.Widget.WidgetSetSensitiveMethodInfo
ResolveSearchEntryMethod "setSizeRequest" o = Gtk.Widget.WidgetSetSizeRequestMethodInfo
ResolveSearchEntryMethod "setStateFlags" o = Gtk.Widget.WidgetSetStateFlagsMethodInfo
ResolveSearchEntryMethod "setText" o = Gtk.Editable.EditableSetTextMethodInfo
ResolveSearchEntryMethod "setTooltipMarkup" o = Gtk.Widget.WidgetSetTooltipMarkupMethodInfo
ResolveSearchEntryMethod "setTooltipText" o = Gtk.Widget.WidgetSetTooltipTextMethodInfo
ResolveSearchEntryMethod "setValign" o = Gtk.Widget.WidgetSetValignMethodInfo
ResolveSearchEntryMethod "setVexpand" o = Gtk.Widget.WidgetSetVexpandMethodInfo
ResolveSearchEntryMethod "setVexpandSet" o = Gtk.Widget.WidgetSetVexpandSetMethodInfo
ResolveSearchEntryMethod "setVisible" o = Gtk.Widget.WidgetSetVisibleMethodInfo
ResolveSearchEntryMethod "setWidthChars" o = Gtk.Editable.EditableSetWidthCharsMethodInfo
ResolveSearchEntryMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveSearchEntryMethod t SearchEntry, O.OverloadedMethod info SearchEntry p) => OL.IsLabel t (SearchEntry -> 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 ~ ResolveSearchEntryMethod t SearchEntry, O.OverloadedMethod info SearchEntry p, R.HasField t SearchEntry p) => R.HasField t SearchEntry p where
getField = O.overloadedMethod @info
#endif
instance (info ~ ResolveSearchEntryMethod t SearchEntry, O.OverloadedMethodInfo info SearchEntry) => OL.IsLabel t (O.MethodProxy info SearchEntry) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.MethodProxy
#else
fromLabel _ = O.MethodProxy
#endif
#endif
type SearchEntryActivateCallback =
IO ()
type C_SearchEntryActivateCallback =
Ptr SearchEntry ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_SearchEntryActivateCallback :: C_SearchEntryActivateCallback -> IO (FunPtr C_SearchEntryActivateCallback)
wrap_SearchEntryActivateCallback ::
GObject a => (a -> SearchEntryActivateCallback) ->
C_SearchEntryActivateCallback
wrap_SearchEntryActivateCallback :: forall a.
GObject a =>
(a -> IO ()) -> C_SearchEntryActivateCallback
wrap_SearchEntryActivateCallback a -> IO ()
gi'cb Ptr SearchEntry
gi'selfPtr Ptr ()
_ = do
Ptr SearchEntry -> (SearchEntry -> IO ()) -> IO ()
forall o b.
(HasCallStack, GObject o) =>
Ptr o -> (o -> IO b) -> IO b
B.ManagedPtr.withNewObject Ptr SearchEntry
gi'selfPtr ((SearchEntry -> IO ()) -> IO ())
-> (SearchEntry -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \SearchEntry
gi'self -> a -> IO ()
gi'cb (SearchEntry -> a
forall a b. Coercible a b => a -> b
Coerce.coerce SearchEntry
gi'self)
onSearchEntryActivate :: (IsSearchEntry a, MonadIO m) => a -> ((?self :: a) => SearchEntryActivateCallback) -> m SignalHandlerId
onSearchEntryActivate :: forall a (m :: * -> *).
(IsSearchEntry a, MonadIO m) =>
a -> ((?self::a) => IO ()) -> m SignalHandlerId
onSearchEntryActivate a
obj (?self::a) => IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> IO ()
wrapped a
self = let ?self = a
?self::a
self in IO ()
(?self::a) => IO ()
cb
let wrapped' :: C_SearchEntryActivateCallback
wrapped' = (a -> IO ()) -> C_SearchEntryActivateCallback
forall a.
GObject a =>
(a -> IO ()) -> C_SearchEntryActivateCallback
wrap_SearchEntryActivateCallback a -> IO ()
wrapped
FunPtr C_SearchEntryActivateCallback
wrapped'' <- C_SearchEntryActivateCallback
-> IO (FunPtr C_SearchEntryActivateCallback)
mk_SearchEntryActivateCallback C_SearchEntryActivateCallback
wrapped'
a
-> Text
-> FunPtr C_SearchEntryActivateCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"activate" FunPtr C_SearchEntryActivateCallback
wrapped'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterSearchEntryActivate :: (IsSearchEntry a, MonadIO m) => a -> ((?self :: a) => SearchEntryActivateCallback) -> m SignalHandlerId
afterSearchEntryActivate :: forall a (m :: * -> *).
(IsSearchEntry a, MonadIO m) =>
a -> ((?self::a) => IO ()) -> m SignalHandlerId
afterSearchEntryActivate a
obj (?self::a) => IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> IO ()
wrapped a
self = let ?self = a
?self::a
self in IO ()
(?self::a) => IO ()
cb
let wrapped' :: C_SearchEntryActivateCallback
wrapped' = (a -> IO ()) -> C_SearchEntryActivateCallback
forall a.
GObject a =>
(a -> IO ()) -> C_SearchEntryActivateCallback
wrap_SearchEntryActivateCallback a -> IO ()
wrapped
FunPtr C_SearchEntryActivateCallback
wrapped'' <- C_SearchEntryActivateCallback
-> IO (FunPtr C_SearchEntryActivateCallback)
mk_SearchEntryActivateCallback C_SearchEntryActivateCallback
wrapped'
a
-> Text
-> FunPtr C_SearchEntryActivateCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"activate" FunPtr C_SearchEntryActivateCallback
wrapped'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data SearchEntryActivateSignalInfo
instance SignalInfo SearchEntryActivateSignalInfo where
type HaskellCallbackType SearchEntryActivateSignalInfo = SearchEntryActivateCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_SearchEntryActivateCallback cb
cb'' <- mk_SearchEntryActivateCallback cb'
connectSignalFunPtr obj "activate" cb'' connectMode detail
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.SearchEntry::activate"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.9/docs/GI-Gtk-Objects-SearchEntry.html#g:signal:activate"})
#endif
type SearchEntryNextMatchCallback =
IO ()
type C_SearchEntryNextMatchCallback =
Ptr SearchEntry ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_SearchEntryNextMatchCallback :: C_SearchEntryNextMatchCallback -> IO (FunPtr C_SearchEntryNextMatchCallback)
wrap_SearchEntryNextMatchCallback ::
GObject a => (a -> SearchEntryNextMatchCallback) ->
C_SearchEntryNextMatchCallback
wrap_SearchEntryNextMatchCallback :: forall a.
GObject a =>
(a -> IO ()) -> C_SearchEntryActivateCallback
wrap_SearchEntryNextMatchCallback a -> IO ()
gi'cb Ptr SearchEntry
gi'selfPtr Ptr ()
_ = do
Ptr SearchEntry -> (SearchEntry -> IO ()) -> IO ()
forall o b.
(HasCallStack, GObject o) =>
Ptr o -> (o -> IO b) -> IO b
B.ManagedPtr.withNewObject Ptr SearchEntry
gi'selfPtr ((SearchEntry -> IO ()) -> IO ())
-> (SearchEntry -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \SearchEntry
gi'self -> a -> IO ()
gi'cb (SearchEntry -> a
forall a b. Coercible a b => a -> b
Coerce.coerce SearchEntry
gi'self)
onSearchEntryNextMatch :: (IsSearchEntry a, MonadIO m) => a -> ((?self :: a) => SearchEntryNextMatchCallback) -> m SignalHandlerId
onSearchEntryNextMatch :: forall a (m :: * -> *).
(IsSearchEntry a, MonadIO m) =>
a -> ((?self::a) => IO ()) -> m SignalHandlerId
onSearchEntryNextMatch a
obj (?self::a) => IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> IO ()
wrapped a
self = let ?self = a
?self::a
self in IO ()
(?self::a) => IO ()
cb
let wrapped' :: C_SearchEntryActivateCallback
wrapped' = (a -> IO ()) -> C_SearchEntryActivateCallback
forall a.
GObject a =>
(a -> IO ()) -> C_SearchEntryActivateCallback
wrap_SearchEntryNextMatchCallback a -> IO ()
wrapped
FunPtr C_SearchEntryActivateCallback
wrapped'' <- C_SearchEntryActivateCallback
-> IO (FunPtr C_SearchEntryActivateCallback)
mk_SearchEntryNextMatchCallback C_SearchEntryActivateCallback
wrapped'
a
-> Text
-> FunPtr C_SearchEntryActivateCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"next-match" FunPtr C_SearchEntryActivateCallback
wrapped'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterSearchEntryNextMatch :: (IsSearchEntry a, MonadIO m) => a -> ((?self :: a) => SearchEntryNextMatchCallback) -> m SignalHandlerId
afterSearchEntryNextMatch :: forall a (m :: * -> *).
(IsSearchEntry a, MonadIO m) =>
a -> ((?self::a) => IO ()) -> m SignalHandlerId
afterSearchEntryNextMatch a
obj (?self::a) => IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> IO ()
wrapped a
self = let ?self = a
?self::a
self in IO ()
(?self::a) => IO ()
cb
let wrapped' :: C_SearchEntryActivateCallback
wrapped' = (a -> IO ()) -> C_SearchEntryActivateCallback
forall a.
GObject a =>
(a -> IO ()) -> C_SearchEntryActivateCallback
wrap_SearchEntryNextMatchCallback a -> IO ()
wrapped
FunPtr C_SearchEntryActivateCallback
wrapped'' <- C_SearchEntryActivateCallback
-> IO (FunPtr C_SearchEntryActivateCallback)
mk_SearchEntryNextMatchCallback C_SearchEntryActivateCallback
wrapped'
a
-> Text
-> FunPtr C_SearchEntryActivateCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"next-match" FunPtr C_SearchEntryActivateCallback
wrapped'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data SearchEntryNextMatchSignalInfo
instance SignalInfo SearchEntryNextMatchSignalInfo where
type HaskellCallbackType SearchEntryNextMatchSignalInfo = SearchEntryNextMatchCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_SearchEntryNextMatchCallback cb
cb'' <- mk_SearchEntryNextMatchCallback cb'
connectSignalFunPtr obj "next-match" cb'' connectMode detail
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.SearchEntry::next-match"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.9/docs/GI-Gtk-Objects-SearchEntry.html#g:signal:nextMatch"})
#endif
type SearchEntryPreviousMatchCallback =
IO ()
type C_SearchEntryPreviousMatchCallback =
Ptr SearchEntry ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_SearchEntryPreviousMatchCallback :: C_SearchEntryPreviousMatchCallback -> IO (FunPtr C_SearchEntryPreviousMatchCallback)
wrap_SearchEntryPreviousMatchCallback ::
GObject a => (a -> SearchEntryPreviousMatchCallback) ->
C_SearchEntryPreviousMatchCallback
wrap_SearchEntryPreviousMatchCallback :: forall a.
GObject a =>
(a -> IO ()) -> C_SearchEntryActivateCallback
wrap_SearchEntryPreviousMatchCallback a -> IO ()
gi'cb Ptr SearchEntry
gi'selfPtr Ptr ()
_ = do
Ptr SearchEntry -> (SearchEntry -> IO ()) -> IO ()
forall o b.
(HasCallStack, GObject o) =>
Ptr o -> (o -> IO b) -> IO b
B.ManagedPtr.withNewObject Ptr SearchEntry
gi'selfPtr ((SearchEntry -> IO ()) -> IO ())
-> (SearchEntry -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \SearchEntry
gi'self -> a -> IO ()
gi'cb (SearchEntry -> a
forall a b. Coercible a b => a -> b
Coerce.coerce SearchEntry
gi'self)
onSearchEntryPreviousMatch :: (IsSearchEntry a, MonadIO m) => a -> ((?self :: a) => SearchEntryPreviousMatchCallback) -> m SignalHandlerId
onSearchEntryPreviousMatch :: forall a (m :: * -> *).
(IsSearchEntry a, MonadIO m) =>
a -> ((?self::a) => IO ()) -> m SignalHandlerId
onSearchEntryPreviousMatch a
obj (?self::a) => IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> IO ()
wrapped a
self = let ?self = a
?self::a
self in IO ()
(?self::a) => IO ()
cb
let wrapped' :: C_SearchEntryActivateCallback
wrapped' = (a -> IO ()) -> C_SearchEntryActivateCallback
forall a.
GObject a =>
(a -> IO ()) -> C_SearchEntryActivateCallback
wrap_SearchEntryPreviousMatchCallback a -> IO ()
wrapped
FunPtr C_SearchEntryActivateCallback
wrapped'' <- C_SearchEntryActivateCallback
-> IO (FunPtr C_SearchEntryActivateCallback)
mk_SearchEntryPreviousMatchCallback C_SearchEntryActivateCallback
wrapped'
a
-> Text
-> FunPtr C_SearchEntryActivateCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"previous-match" FunPtr C_SearchEntryActivateCallback
wrapped'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterSearchEntryPreviousMatch :: (IsSearchEntry a, MonadIO m) => a -> ((?self :: a) => SearchEntryPreviousMatchCallback) -> m SignalHandlerId
afterSearchEntryPreviousMatch :: forall a (m :: * -> *).
(IsSearchEntry a, MonadIO m) =>
a -> ((?self::a) => IO ()) -> m SignalHandlerId
afterSearchEntryPreviousMatch a
obj (?self::a) => IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> IO ()
wrapped a
self = let ?self = a
?self::a
self in IO ()
(?self::a) => IO ()
cb
let wrapped' :: C_SearchEntryActivateCallback
wrapped' = (a -> IO ()) -> C_SearchEntryActivateCallback
forall a.
GObject a =>
(a -> IO ()) -> C_SearchEntryActivateCallback
wrap_SearchEntryPreviousMatchCallback a -> IO ()
wrapped
FunPtr C_SearchEntryActivateCallback
wrapped'' <- C_SearchEntryActivateCallback
-> IO (FunPtr C_SearchEntryActivateCallback)
mk_SearchEntryPreviousMatchCallback C_SearchEntryActivateCallback
wrapped'
a
-> Text
-> FunPtr C_SearchEntryActivateCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"previous-match" FunPtr C_SearchEntryActivateCallback
wrapped'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data SearchEntryPreviousMatchSignalInfo
instance SignalInfo SearchEntryPreviousMatchSignalInfo where
type HaskellCallbackType SearchEntryPreviousMatchSignalInfo = SearchEntryPreviousMatchCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_SearchEntryPreviousMatchCallback cb
cb'' <- mk_SearchEntryPreviousMatchCallback cb'
connectSignalFunPtr obj "previous-match" cb'' connectMode detail
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.SearchEntry::previous-match"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.9/docs/GI-Gtk-Objects-SearchEntry.html#g:signal:previousMatch"})
#endif
type SearchEntrySearchChangedCallback =
IO ()
type C_SearchEntrySearchChangedCallback =
Ptr SearchEntry ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_SearchEntrySearchChangedCallback :: C_SearchEntrySearchChangedCallback -> IO (FunPtr C_SearchEntrySearchChangedCallback)
wrap_SearchEntrySearchChangedCallback ::
GObject a => (a -> SearchEntrySearchChangedCallback) ->
C_SearchEntrySearchChangedCallback
wrap_SearchEntrySearchChangedCallback :: forall a.
GObject a =>
(a -> IO ()) -> C_SearchEntryActivateCallback
wrap_SearchEntrySearchChangedCallback a -> IO ()
gi'cb Ptr SearchEntry
gi'selfPtr Ptr ()
_ = do
Ptr SearchEntry -> (SearchEntry -> IO ()) -> IO ()
forall o b.
(HasCallStack, GObject o) =>
Ptr o -> (o -> IO b) -> IO b
B.ManagedPtr.withNewObject Ptr SearchEntry
gi'selfPtr ((SearchEntry -> IO ()) -> IO ())
-> (SearchEntry -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \SearchEntry
gi'self -> a -> IO ()
gi'cb (SearchEntry -> a
forall a b. Coercible a b => a -> b
Coerce.coerce SearchEntry
gi'self)
onSearchEntrySearchChanged :: (IsSearchEntry a, MonadIO m) => a -> ((?self :: a) => SearchEntrySearchChangedCallback) -> m SignalHandlerId
onSearchEntrySearchChanged :: forall a (m :: * -> *).
(IsSearchEntry a, MonadIO m) =>
a -> ((?self::a) => IO ()) -> m SignalHandlerId
onSearchEntrySearchChanged a
obj (?self::a) => IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> IO ()
wrapped a
self = let ?self = a
?self::a
self in IO ()
(?self::a) => IO ()
cb
let wrapped' :: C_SearchEntryActivateCallback
wrapped' = (a -> IO ()) -> C_SearchEntryActivateCallback
forall a.
GObject a =>
(a -> IO ()) -> C_SearchEntryActivateCallback
wrap_SearchEntrySearchChangedCallback a -> IO ()
wrapped
FunPtr C_SearchEntryActivateCallback
wrapped'' <- C_SearchEntryActivateCallback
-> IO (FunPtr C_SearchEntryActivateCallback)
mk_SearchEntrySearchChangedCallback C_SearchEntryActivateCallback
wrapped'
a
-> Text
-> FunPtr C_SearchEntryActivateCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"search-changed" FunPtr C_SearchEntryActivateCallback
wrapped'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterSearchEntrySearchChanged :: (IsSearchEntry a, MonadIO m) => a -> ((?self :: a) => SearchEntrySearchChangedCallback) -> m SignalHandlerId
afterSearchEntrySearchChanged :: forall a (m :: * -> *).
(IsSearchEntry a, MonadIO m) =>
a -> ((?self::a) => IO ()) -> m SignalHandlerId
afterSearchEntrySearchChanged a
obj (?self::a) => IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> IO ()
wrapped a
self = let ?self = a
?self::a
self in IO ()
(?self::a) => IO ()
cb
let wrapped' :: C_SearchEntryActivateCallback
wrapped' = (a -> IO ()) -> C_SearchEntryActivateCallback
forall a.
GObject a =>
(a -> IO ()) -> C_SearchEntryActivateCallback
wrap_SearchEntrySearchChangedCallback a -> IO ()
wrapped
FunPtr C_SearchEntryActivateCallback
wrapped'' <- C_SearchEntryActivateCallback
-> IO (FunPtr C_SearchEntryActivateCallback)
mk_SearchEntrySearchChangedCallback C_SearchEntryActivateCallback
wrapped'
a
-> Text
-> FunPtr C_SearchEntryActivateCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"search-changed" FunPtr C_SearchEntryActivateCallback
wrapped'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data SearchEntrySearchChangedSignalInfo
instance SignalInfo SearchEntrySearchChangedSignalInfo where
type HaskellCallbackType SearchEntrySearchChangedSignalInfo = SearchEntrySearchChangedCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_SearchEntrySearchChangedCallback cb
cb'' <- mk_SearchEntrySearchChangedCallback cb'
connectSignalFunPtr obj "search-changed" cb'' connectMode detail
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.SearchEntry::search-changed"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.9/docs/GI-Gtk-Objects-SearchEntry.html#g:signal:searchChanged"})
#endif
type SearchEntrySearchStartedCallback =
IO ()
type C_SearchEntrySearchStartedCallback =
Ptr SearchEntry ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_SearchEntrySearchStartedCallback :: C_SearchEntrySearchStartedCallback -> IO (FunPtr C_SearchEntrySearchStartedCallback)
wrap_SearchEntrySearchStartedCallback ::
GObject a => (a -> SearchEntrySearchStartedCallback) ->
C_SearchEntrySearchStartedCallback
wrap_SearchEntrySearchStartedCallback :: forall a.
GObject a =>
(a -> IO ()) -> C_SearchEntryActivateCallback
wrap_SearchEntrySearchStartedCallback a -> IO ()
gi'cb Ptr SearchEntry
gi'selfPtr Ptr ()
_ = do
Ptr SearchEntry -> (SearchEntry -> IO ()) -> IO ()
forall o b.
(HasCallStack, GObject o) =>
Ptr o -> (o -> IO b) -> IO b
B.ManagedPtr.withNewObject Ptr SearchEntry
gi'selfPtr ((SearchEntry -> IO ()) -> IO ())
-> (SearchEntry -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \SearchEntry
gi'self -> a -> IO ()
gi'cb (SearchEntry -> a
forall a b. Coercible a b => a -> b
Coerce.coerce SearchEntry
gi'self)
onSearchEntrySearchStarted :: (IsSearchEntry a, MonadIO m) => a -> ((?self :: a) => SearchEntrySearchStartedCallback) -> m SignalHandlerId
onSearchEntrySearchStarted :: forall a (m :: * -> *).
(IsSearchEntry a, MonadIO m) =>
a -> ((?self::a) => IO ()) -> m SignalHandlerId
onSearchEntrySearchStarted a
obj (?self::a) => IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> IO ()
wrapped a
self = let ?self = a
?self::a
self in IO ()
(?self::a) => IO ()
cb
let wrapped' :: C_SearchEntryActivateCallback
wrapped' = (a -> IO ()) -> C_SearchEntryActivateCallback
forall a.
GObject a =>
(a -> IO ()) -> C_SearchEntryActivateCallback
wrap_SearchEntrySearchStartedCallback a -> IO ()
wrapped
FunPtr C_SearchEntryActivateCallback
wrapped'' <- C_SearchEntryActivateCallback
-> IO (FunPtr C_SearchEntryActivateCallback)
mk_SearchEntrySearchStartedCallback C_SearchEntryActivateCallback
wrapped'
a
-> Text
-> FunPtr C_SearchEntryActivateCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"search-started" FunPtr C_SearchEntryActivateCallback
wrapped'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterSearchEntrySearchStarted :: (IsSearchEntry a, MonadIO m) => a -> ((?self :: a) => SearchEntrySearchStartedCallback) -> m SignalHandlerId
afterSearchEntrySearchStarted :: forall a (m :: * -> *).
(IsSearchEntry a, MonadIO m) =>
a -> ((?self::a) => IO ()) -> m SignalHandlerId
afterSearchEntrySearchStarted a
obj (?self::a) => IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> IO ()
wrapped a
self = let ?self = a
?self::a
self in IO ()
(?self::a) => IO ()
cb
let wrapped' :: C_SearchEntryActivateCallback
wrapped' = (a -> IO ()) -> C_SearchEntryActivateCallback
forall a.
GObject a =>
(a -> IO ()) -> C_SearchEntryActivateCallback
wrap_SearchEntrySearchStartedCallback a -> IO ()
wrapped
FunPtr C_SearchEntryActivateCallback
wrapped'' <- C_SearchEntryActivateCallback
-> IO (FunPtr C_SearchEntryActivateCallback)
mk_SearchEntrySearchStartedCallback C_SearchEntryActivateCallback
wrapped'
a
-> Text
-> FunPtr C_SearchEntryActivateCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"search-started" FunPtr C_SearchEntryActivateCallback
wrapped'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data SearchEntrySearchStartedSignalInfo
instance SignalInfo SearchEntrySearchStartedSignalInfo where
type HaskellCallbackType SearchEntrySearchStartedSignalInfo = SearchEntrySearchStartedCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_SearchEntrySearchStartedCallback cb
cb'' <- mk_SearchEntrySearchStartedCallback cb'
connectSignalFunPtr obj "search-started" cb'' connectMode detail
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.SearchEntry::search-started"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.9/docs/GI-Gtk-Objects-SearchEntry.html#g:signal:searchStarted"})
#endif
type SearchEntryStopSearchCallback =
IO ()
type C_SearchEntryStopSearchCallback =
Ptr SearchEntry ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_SearchEntryStopSearchCallback :: C_SearchEntryStopSearchCallback -> IO (FunPtr C_SearchEntryStopSearchCallback)
wrap_SearchEntryStopSearchCallback ::
GObject a => (a -> SearchEntryStopSearchCallback) ->
C_SearchEntryStopSearchCallback
wrap_SearchEntryStopSearchCallback :: forall a.
GObject a =>
(a -> IO ()) -> C_SearchEntryActivateCallback
wrap_SearchEntryStopSearchCallback a -> IO ()
gi'cb Ptr SearchEntry
gi'selfPtr Ptr ()
_ = do
Ptr SearchEntry -> (SearchEntry -> IO ()) -> IO ()
forall o b.
(HasCallStack, GObject o) =>
Ptr o -> (o -> IO b) -> IO b
B.ManagedPtr.withNewObject Ptr SearchEntry
gi'selfPtr ((SearchEntry -> IO ()) -> IO ())
-> (SearchEntry -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \SearchEntry
gi'self -> a -> IO ()
gi'cb (SearchEntry -> a
forall a b. Coercible a b => a -> b
Coerce.coerce SearchEntry
gi'self)
onSearchEntryStopSearch :: (IsSearchEntry a, MonadIO m) => a -> ((?self :: a) => SearchEntryStopSearchCallback) -> m SignalHandlerId
onSearchEntryStopSearch :: forall a (m :: * -> *).
(IsSearchEntry a, MonadIO m) =>
a -> ((?self::a) => IO ()) -> m SignalHandlerId
onSearchEntryStopSearch a
obj (?self::a) => IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> IO ()
wrapped a
self = let ?self = a
?self::a
self in IO ()
(?self::a) => IO ()
cb
let wrapped' :: C_SearchEntryActivateCallback
wrapped' = (a -> IO ()) -> C_SearchEntryActivateCallback
forall a.
GObject a =>
(a -> IO ()) -> C_SearchEntryActivateCallback
wrap_SearchEntryStopSearchCallback a -> IO ()
wrapped
FunPtr C_SearchEntryActivateCallback
wrapped'' <- C_SearchEntryActivateCallback
-> IO (FunPtr C_SearchEntryActivateCallback)
mk_SearchEntryStopSearchCallback C_SearchEntryActivateCallback
wrapped'
a
-> Text
-> FunPtr C_SearchEntryActivateCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"stop-search" FunPtr C_SearchEntryActivateCallback
wrapped'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterSearchEntryStopSearch :: (IsSearchEntry a, MonadIO m) => a -> ((?self :: a) => SearchEntryStopSearchCallback) -> m SignalHandlerId
afterSearchEntryStopSearch :: forall a (m :: * -> *).
(IsSearchEntry a, MonadIO m) =>
a -> ((?self::a) => IO ()) -> m SignalHandlerId
afterSearchEntryStopSearch a
obj (?self::a) => IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> IO ()
wrapped a
self = let ?self = a
?self::a
self in IO ()
(?self::a) => IO ()
cb
let wrapped' :: C_SearchEntryActivateCallback
wrapped' = (a -> IO ()) -> C_SearchEntryActivateCallback
forall a.
GObject a =>
(a -> IO ()) -> C_SearchEntryActivateCallback
wrap_SearchEntryStopSearchCallback a -> IO ()
wrapped
FunPtr C_SearchEntryActivateCallback
wrapped'' <- C_SearchEntryActivateCallback
-> IO (FunPtr C_SearchEntryActivateCallback)
mk_SearchEntryStopSearchCallback C_SearchEntryActivateCallback
wrapped'
a
-> Text
-> FunPtr C_SearchEntryActivateCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"stop-search" FunPtr C_SearchEntryActivateCallback
wrapped'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data SearchEntryStopSearchSignalInfo
instance SignalInfo SearchEntryStopSearchSignalInfo where
type HaskellCallbackType SearchEntryStopSearchSignalInfo = SearchEntryStopSearchCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_SearchEntryStopSearchCallback cb
cb'' <- mk_SearchEntryStopSearchCallback cb'
connectSignalFunPtr obj "stop-search" cb'' connectMode detail
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.SearchEntry::stop-search"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.9/docs/GI-Gtk-Objects-SearchEntry.html#g:signal:stopSearch"})
#endif
getSearchEntryActivatesDefault :: (MonadIO m, IsSearchEntry o) => o -> m Bool
getSearchEntryActivatesDefault :: forall (m :: * -> *) o. (MonadIO m, IsSearchEntry o) => o -> m Bool
getSearchEntryActivatesDefault o
obj = IO Bool -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj String
"activates-default"
setSearchEntryActivatesDefault :: (MonadIO m, IsSearchEntry o) => o -> Bool -> m ()
setSearchEntryActivatesDefault :: forall (m :: * -> *) o.
(MonadIO m, IsSearchEntry o) =>
o -> Bool -> m ()
setSearchEntryActivatesDefault o
obj Bool
val = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj String
"activates-default" Bool
val
constructSearchEntryActivatesDefault :: (IsSearchEntry o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructSearchEntryActivatesDefault :: forall o (m :: * -> *).
(IsSearchEntry o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructSearchEntryActivatesDefault Bool
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool String
"activates-default" Bool
val
#if defined(ENABLE_OVERLOADING)
data SearchEntryActivatesDefaultPropertyInfo
instance AttrInfo SearchEntryActivatesDefaultPropertyInfo where
type AttrAllowedOps SearchEntryActivatesDefaultPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint SearchEntryActivatesDefaultPropertyInfo = IsSearchEntry
type AttrSetTypeConstraint SearchEntryActivatesDefaultPropertyInfo = (~) Bool
type AttrTransferTypeConstraint SearchEntryActivatesDefaultPropertyInfo = (~) Bool
type AttrTransferType SearchEntryActivatesDefaultPropertyInfo = Bool
type AttrGetType SearchEntryActivatesDefaultPropertyInfo = Bool
type AttrLabel SearchEntryActivatesDefaultPropertyInfo = "activates-default"
type AttrOrigin SearchEntryActivatesDefaultPropertyInfo = SearchEntry
attrGet = getSearchEntryActivatesDefault
attrSet = setSearchEntryActivatesDefault
attrTransfer _ v = do
return v
attrConstruct = constructSearchEntryActivatesDefault
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.SearchEntry.activatesDefault"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.9/docs/GI-Gtk-Objects-SearchEntry.html#g:attr:activatesDefault"
})
#endif
getSearchEntryInputHints :: (MonadIO m, IsSearchEntry o) => o -> m [Gtk.Flags.InputHints]
getSearchEntryInputHints :: forall (m :: * -> *) o.
(MonadIO m, IsSearchEntry o) =>
o -> m [InputHints]
getSearchEntryInputHints o
obj = IO [InputHints] -> m [InputHints]
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO [InputHints] -> m [InputHints])
-> IO [InputHints] -> m [InputHints]
forall a b. (a -> b) -> a -> b
$ o -> String -> IO [InputHints]
forall a b.
(GObject a, IsGFlag b, BoxedFlags b) =>
a -> String -> IO [b]
B.Properties.getObjectPropertyFlags o
obj String
"input-hints"
setSearchEntryInputHints :: (MonadIO m, IsSearchEntry o) => o -> [Gtk.Flags.InputHints] -> m ()
setSearchEntryInputHints :: forall (m :: * -> *) o.
(MonadIO m, IsSearchEntry o) =>
o -> [InputHints] -> m ()
setSearchEntryInputHints o
obj [InputHints]
val = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> [InputHints] -> IO ()
forall a b.
(IsGFlag b, BoxedFlags b, GObject a) =>
a -> String -> [b] -> IO ()
B.Properties.setObjectPropertyFlags o
obj String
"input-hints" [InputHints]
val
constructSearchEntryInputHints :: (IsSearchEntry o, MIO.MonadIO m) => [Gtk.Flags.InputHints] -> m (GValueConstruct o)
constructSearchEntryInputHints :: forall o (m :: * -> *).
(IsSearchEntry o, MonadIO m) =>
[InputHints] -> m (GValueConstruct o)
constructSearchEntryInputHints [InputHints]
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> [InputHints] -> IO (GValueConstruct o)
forall a o.
(IsGFlag a, BoxedFlags a) =>
String -> [a] -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyFlags String
"input-hints" [InputHints]
val
#if defined(ENABLE_OVERLOADING)
data SearchEntryInputHintsPropertyInfo
instance AttrInfo SearchEntryInputHintsPropertyInfo where
type AttrAllowedOps SearchEntryInputHintsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint SearchEntryInputHintsPropertyInfo = IsSearchEntry
type AttrSetTypeConstraint SearchEntryInputHintsPropertyInfo = (~) [Gtk.Flags.InputHints]
type AttrTransferTypeConstraint SearchEntryInputHintsPropertyInfo = (~) [Gtk.Flags.InputHints]
type AttrTransferType SearchEntryInputHintsPropertyInfo = [Gtk.Flags.InputHints]
type AttrGetType SearchEntryInputHintsPropertyInfo = [Gtk.Flags.InputHints]
type AttrLabel SearchEntryInputHintsPropertyInfo = "input-hints"
type AttrOrigin SearchEntryInputHintsPropertyInfo = SearchEntry
attrGet = getSearchEntryInputHints
attrSet = setSearchEntryInputHints
attrTransfer _ v = do
return v
attrConstruct = constructSearchEntryInputHints
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.SearchEntry.inputHints"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.9/docs/GI-Gtk-Objects-SearchEntry.html#g:attr:inputHints"
})
#endif
getSearchEntryInputPurpose :: (MonadIO m, IsSearchEntry o) => o -> m Gtk.Enums.InputPurpose
getSearchEntryInputPurpose :: forall (m :: * -> *) o.
(MonadIO m, IsSearchEntry o) =>
o -> m InputPurpose
getSearchEntryInputPurpose o
obj = IO InputPurpose -> m InputPurpose
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO InputPurpose -> m InputPurpose)
-> IO InputPurpose -> m InputPurpose
forall a b. (a -> b) -> a -> b
$ o -> String -> IO InputPurpose
forall a b. (GObject a, Enum b, BoxedEnum b) => a -> String -> IO b
B.Properties.getObjectPropertyEnum o
obj String
"input-purpose"
setSearchEntryInputPurpose :: (MonadIO m, IsSearchEntry o) => o -> Gtk.Enums.InputPurpose -> m ()
setSearchEntryInputPurpose :: forall (m :: * -> *) o.
(MonadIO m, IsSearchEntry o) =>
o -> InputPurpose -> m ()
setSearchEntryInputPurpose o
obj InputPurpose
val = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> InputPurpose -> IO ()
forall a b.
(GObject a, Enum b, BoxedEnum b) =>
a -> String -> b -> IO ()
B.Properties.setObjectPropertyEnum o
obj String
"input-purpose" InputPurpose
val
constructSearchEntryInputPurpose :: (IsSearchEntry o, MIO.MonadIO m) => Gtk.Enums.InputPurpose -> m (GValueConstruct o)
constructSearchEntryInputPurpose :: forall o (m :: * -> *).
(IsSearchEntry o, MonadIO m) =>
InputPurpose -> m (GValueConstruct o)
constructSearchEntryInputPurpose InputPurpose
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> InputPurpose -> IO (GValueConstruct o)
forall a o.
(Enum a, BoxedEnum a) =>
String -> a -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyEnum String
"input-purpose" InputPurpose
val
#if defined(ENABLE_OVERLOADING)
data SearchEntryInputPurposePropertyInfo
instance AttrInfo SearchEntryInputPurposePropertyInfo where
type AttrAllowedOps SearchEntryInputPurposePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint SearchEntryInputPurposePropertyInfo = IsSearchEntry
type AttrSetTypeConstraint SearchEntryInputPurposePropertyInfo = (~) Gtk.Enums.InputPurpose
type AttrTransferTypeConstraint SearchEntryInputPurposePropertyInfo = (~) Gtk.Enums.InputPurpose
type AttrTransferType SearchEntryInputPurposePropertyInfo = Gtk.Enums.InputPurpose
type AttrGetType SearchEntryInputPurposePropertyInfo = Gtk.Enums.InputPurpose
type AttrLabel SearchEntryInputPurposePropertyInfo = "input-purpose"
type AttrOrigin SearchEntryInputPurposePropertyInfo = SearchEntry
attrGet = getSearchEntryInputPurpose
attrSet = setSearchEntryInputPurpose
attrTransfer _ v = do
return v
attrConstruct = constructSearchEntryInputPurpose
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.SearchEntry.inputPurpose"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.9/docs/GI-Gtk-Objects-SearchEntry.html#g:attr:inputPurpose"
})
#endif
getSearchEntryPlaceholderText :: (MonadIO m, IsSearchEntry o) => o -> m (Maybe T.Text)
getSearchEntryPlaceholderText :: forall (m :: * -> *) o.
(MonadIO m, IsSearchEntry o) =>
o -> m (Maybe Text)
getSearchEntryPlaceholderText o
obj = IO (Maybe Text) -> m (Maybe Text)
forall a. IO a -> m a
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
"placeholder-text"
setSearchEntryPlaceholderText :: (MonadIO m, IsSearchEntry o) => o -> T.Text -> m ()
setSearchEntryPlaceholderText :: forall (m :: * -> *) o.
(MonadIO m, IsSearchEntry o) =>
o -> Text -> m ()
setSearchEntryPlaceholderText o
obj Text
val = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Maybe Text -> IO ()
forall a. GObject a => a -> String -> Maybe Text -> IO ()
B.Properties.setObjectPropertyString o
obj String
"placeholder-text" (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
val)
constructSearchEntryPlaceholderText :: (IsSearchEntry o, MIO.MonadIO m) => T.Text -> m (GValueConstruct o)
constructSearchEntryPlaceholderText :: forall o (m :: * -> *).
(IsSearchEntry o, MonadIO m) =>
Text -> m (GValueConstruct o)
constructSearchEntryPlaceholderText Text
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Maybe Text -> IO (GValueConstruct o)
forall o. String -> Maybe Text -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyString String
"placeholder-text" (Text -> Maybe Text
forall a. a -> Maybe a
P.Just Text
val)
clearSearchEntryPlaceholderText :: (MonadIO m, IsSearchEntry o) => o -> m ()
clearSearchEntryPlaceholderText :: forall (m :: * -> *) o. (MonadIO m, IsSearchEntry o) => o -> m ()
clearSearchEntryPlaceholderText o
obj = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Maybe Text -> IO ()
forall a. GObject a => a -> String -> Maybe Text -> IO ()
B.Properties.setObjectPropertyString o
obj String
"placeholder-text" (Maybe Text
forall a. Maybe a
Nothing :: Maybe T.Text)
#if defined(ENABLE_OVERLOADING)
data SearchEntryPlaceholderTextPropertyInfo
instance AttrInfo SearchEntryPlaceholderTextPropertyInfo where
type AttrAllowedOps SearchEntryPlaceholderTextPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint SearchEntryPlaceholderTextPropertyInfo = IsSearchEntry
type AttrSetTypeConstraint SearchEntryPlaceholderTextPropertyInfo = (~) T.Text
type AttrTransferTypeConstraint SearchEntryPlaceholderTextPropertyInfo = (~) T.Text
type AttrTransferType SearchEntryPlaceholderTextPropertyInfo = T.Text
type AttrGetType SearchEntryPlaceholderTextPropertyInfo = (Maybe T.Text)
type AttrLabel SearchEntryPlaceholderTextPropertyInfo = "placeholder-text"
type AttrOrigin SearchEntryPlaceholderTextPropertyInfo = SearchEntry
attrGet = getSearchEntryPlaceholderText
attrSet = setSearchEntryPlaceholderText
attrTransfer _ v = do
return v
attrConstruct = constructSearchEntryPlaceholderText
attrClear = clearSearchEntryPlaceholderText
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.SearchEntry.placeholderText"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.9/docs/GI-Gtk-Objects-SearchEntry.html#g:attr:placeholderText"
})
#endif
getSearchEntrySearchDelay :: (MonadIO m, IsSearchEntry o) => o -> m Word32
getSearchEntrySearchDelay :: forall (m :: * -> *) o.
(MonadIO m, IsSearchEntry o) =>
o -> m Word32
getSearchEntrySearchDelay o
obj = IO Word32 -> m Word32
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Word32 -> m Word32) -> IO Word32 -> m Word32
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Word32
forall a. GObject a => a -> String -> IO Word32
B.Properties.getObjectPropertyUInt32 o
obj String
"search-delay"
setSearchEntrySearchDelay :: (MonadIO m, IsSearchEntry o) => o -> Word32 -> m ()
setSearchEntrySearchDelay :: forall (m :: * -> *) o.
(MonadIO m, IsSearchEntry o) =>
o -> Word32 -> m ()
setSearchEntrySearchDelay o
obj Word32
val = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Word32 -> IO ()
forall a. GObject a => a -> String -> Word32 -> IO ()
B.Properties.setObjectPropertyUInt32 o
obj String
"search-delay" Word32
val
constructSearchEntrySearchDelay :: (IsSearchEntry o, MIO.MonadIO m) => Word32 -> m (GValueConstruct o)
constructSearchEntrySearchDelay :: forall o (m :: * -> *).
(IsSearchEntry o, MonadIO m) =>
Word32 -> m (GValueConstruct o)
constructSearchEntrySearchDelay Word32
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Word32 -> IO (GValueConstruct o)
forall o. String -> Word32 -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyUInt32 String
"search-delay" Word32
val
#if defined(ENABLE_OVERLOADING)
data SearchEntrySearchDelayPropertyInfo
instance AttrInfo SearchEntrySearchDelayPropertyInfo where
type AttrAllowedOps SearchEntrySearchDelayPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint SearchEntrySearchDelayPropertyInfo = IsSearchEntry
type AttrSetTypeConstraint SearchEntrySearchDelayPropertyInfo = (~) Word32
type AttrTransferTypeConstraint SearchEntrySearchDelayPropertyInfo = (~) Word32
type AttrTransferType SearchEntrySearchDelayPropertyInfo = Word32
type AttrGetType SearchEntrySearchDelayPropertyInfo = Word32
type AttrLabel SearchEntrySearchDelayPropertyInfo = "search-delay"
type AttrOrigin SearchEntrySearchDelayPropertyInfo = SearchEntry
attrGet = getSearchEntrySearchDelay
attrSet = setSearchEntrySearchDelay
attrTransfer _ v = do
return v
attrConstruct = constructSearchEntrySearchDelay
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.SearchEntry.searchDelay"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.9/docs/GI-Gtk-Objects-SearchEntry.html#g:attr:searchDelay"
})
#endif
#if defined(ENABLE_OVERLOADING)
instance O.HasAttributeList SearchEntry
type instance O.AttributeList SearchEntry = SearchEntryAttributeList
type SearchEntryAttributeList = ('[ '("accessibleRole", Gtk.Accessible.AccessibleAccessibleRolePropertyInfo), '("activatesDefault", SearchEntryActivatesDefaultPropertyInfo), '("canFocus", Gtk.Widget.WidgetCanFocusPropertyInfo), '("canTarget", Gtk.Widget.WidgetCanTargetPropertyInfo), '("cssClasses", Gtk.Widget.WidgetCssClassesPropertyInfo), '("cssName", Gtk.Widget.WidgetCssNamePropertyInfo), '("cursor", Gtk.Widget.WidgetCursorPropertyInfo), '("cursorPosition", Gtk.Editable.EditableCursorPositionPropertyInfo), '("editable", Gtk.Editable.EditableEditablePropertyInfo), '("enableUndo", Gtk.Editable.EditableEnableUndoPropertyInfo), '("focusOnClick", Gtk.Widget.WidgetFocusOnClickPropertyInfo), '("focusable", Gtk.Widget.WidgetFocusablePropertyInfo), '("halign", Gtk.Widget.WidgetHalignPropertyInfo), '("hasDefault", Gtk.Widget.WidgetHasDefaultPropertyInfo), '("hasFocus", Gtk.Widget.WidgetHasFocusPropertyInfo), '("hasTooltip", Gtk.Widget.WidgetHasTooltipPropertyInfo), '("heightRequest", Gtk.Widget.WidgetHeightRequestPropertyInfo), '("hexpand", Gtk.Widget.WidgetHexpandPropertyInfo), '("hexpandSet", Gtk.Widget.WidgetHexpandSetPropertyInfo), '("inputHints", SearchEntryInputHintsPropertyInfo), '("inputPurpose", SearchEntryInputPurposePropertyInfo), '("layoutManager", Gtk.Widget.WidgetLayoutManagerPropertyInfo), '("marginBottom", Gtk.Widget.WidgetMarginBottomPropertyInfo), '("marginEnd", Gtk.Widget.WidgetMarginEndPropertyInfo), '("marginStart", Gtk.Widget.WidgetMarginStartPropertyInfo), '("marginTop", Gtk.Widget.WidgetMarginTopPropertyInfo), '("maxWidthChars", Gtk.Editable.EditableMaxWidthCharsPropertyInfo), '("name", Gtk.Widget.WidgetNamePropertyInfo), '("opacity", Gtk.Widget.WidgetOpacityPropertyInfo), '("overflow", Gtk.Widget.WidgetOverflowPropertyInfo), '("parent", Gtk.Widget.WidgetParentPropertyInfo), '("placeholderText", SearchEntryPlaceholderTextPropertyInfo), '("receivesDefault", Gtk.Widget.WidgetReceivesDefaultPropertyInfo), '("root", Gtk.Widget.WidgetRootPropertyInfo), '("scaleFactor", Gtk.Widget.WidgetScaleFactorPropertyInfo), '("searchDelay", SearchEntrySearchDelayPropertyInfo), '("selectionBound", Gtk.Editable.EditableSelectionBoundPropertyInfo), '("sensitive", Gtk.Widget.WidgetSensitivePropertyInfo), '("text", Gtk.Editable.EditableTextPropertyInfo), '("tooltipMarkup", Gtk.Widget.WidgetTooltipMarkupPropertyInfo), '("tooltipText", Gtk.Widget.WidgetTooltipTextPropertyInfo), '("valign", Gtk.Widget.WidgetValignPropertyInfo), '("vexpand", Gtk.Widget.WidgetVexpandPropertyInfo), '("vexpandSet", Gtk.Widget.WidgetVexpandSetPropertyInfo), '("visible", Gtk.Widget.WidgetVisiblePropertyInfo), '("widthChars", Gtk.Editable.EditableWidthCharsPropertyInfo), '("widthRequest", Gtk.Widget.WidgetWidthRequestPropertyInfo), '("xalign", Gtk.Editable.EditableXalignPropertyInfo)] :: [(Symbol, DK.Type)])
#endif
#if defined(ENABLE_OVERLOADING)
searchEntryActivatesDefault :: AttrLabelProxy "activatesDefault"
searchEntryActivatesDefault = AttrLabelProxy
searchEntryInputHints :: AttrLabelProxy "inputHints"
searchEntryInputHints = AttrLabelProxy
searchEntryInputPurpose :: AttrLabelProxy "inputPurpose"
searchEntryInputPurpose = AttrLabelProxy
searchEntryPlaceholderText :: AttrLabelProxy "placeholderText"
searchEntryPlaceholderText = AttrLabelProxy
searchEntrySearchDelay :: AttrLabelProxy "searchDelay"
searchEntrySearchDelay = AttrLabelProxy
#endif
#if defined(ENABLE_OVERLOADING)
type instance O.SignalList SearchEntry = SearchEntrySignalList
type SearchEntrySignalList = ('[ '("activate", SearchEntryActivateSignalInfo), '("changed", Gtk.Editable.EditableChangedSignalInfo), '("deleteText", Gtk.Editable.EditableDeleteTextSignalInfo), '("destroy", Gtk.Widget.WidgetDestroySignalInfo), '("directionChanged", Gtk.Widget.WidgetDirectionChangedSignalInfo), '("hide", Gtk.Widget.WidgetHideSignalInfo), '("insertText", Gtk.Editable.EditableInsertTextSignalInfo), '("keynavFailed", Gtk.Widget.WidgetKeynavFailedSignalInfo), '("map", Gtk.Widget.WidgetMapSignalInfo), '("mnemonicActivate", Gtk.Widget.WidgetMnemonicActivateSignalInfo), '("moveFocus", Gtk.Widget.WidgetMoveFocusSignalInfo), '("nextMatch", SearchEntryNextMatchSignalInfo), '("notify", GObject.Object.ObjectNotifySignalInfo), '("previousMatch", SearchEntryPreviousMatchSignalInfo), '("queryTooltip", Gtk.Widget.WidgetQueryTooltipSignalInfo), '("realize", Gtk.Widget.WidgetRealizeSignalInfo), '("searchChanged", SearchEntrySearchChangedSignalInfo), '("searchStarted", SearchEntrySearchStartedSignalInfo), '("show", Gtk.Widget.WidgetShowSignalInfo), '("stateFlagsChanged", Gtk.Widget.WidgetStateFlagsChangedSignalInfo), '("stopSearch", SearchEntryStopSearchSignalInfo), '("unmap", Gtk.Widget.WidgetUnmapSignalInfo), '("unrealize", Gtk.Widget.WidgetUnrealizeSignalInfo)] :: [(Symbol, DK.Type)])
#endif
foreign import ccall "gtk_search_entry_new" gtk_search_entry_new ::
IO (Ptr SearchEntry)
searchEntryNew ::
(B.CallStack.HasCallStack, MonadIO m) =>
m SearchEntry
searchEntryNew :: forall (m :: * -> *). (HasCallStack, MonadIO m) => m SearchEntry
searchEntryNew = IO SearchEntry -> m SearchEntry
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SearchEntry -> m SearchEntry)
-> IO SearchEntry -> m SearchEntry
forall a b. (a -> b) -> a -> b
$ do
Ptr SearchEntry
result <- IO (Ptr SearchEntry)
gtk_search_entry_new
Text -> Ptr SearchEntry -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"searchEntryNew" Ptr SearchEntry
result
SearchEntry
result' <- ((ManagedPtr SearchEntry -> SearchEntry)
-> Ptr SearchEntry -> IO SearchEntry
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr SearchEntry -> SearchEntry
SearchEntry) Ptr SearchEntry
result
SearchEntry -> IO SearchEntry
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return SearchEntry
result'
#if defined(ENABLE_OVERLOADING)
#endif
foreign import ccall "gtk_search_entry_get_input_hints" gtk_search_entry_get_input_hints ::
Ptr SearchEntry ->
IO CUInt
searchEntryGetInputHints ::
(B.CallStack.HasCallStack, MonadIO m, IsSearchEntry a) =>
a
-> m [Gtk.Flags.InputHints]
searchEntryGetInputHints :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsSearchEntry a) =>
a -> m [InputHints]
searchEntryGetInputHints a
entry = IO [InputHints] -> m [InputHints]
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO [InputHints] -> m [InputHints])
-> IO [InputHints] -> m [InputHints]
forall a b. (a -> b) -> a -> b
$ do
Ptr SearchEntry
entry' <- a -> IO (Ptr SearchEntry)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
entry
CUInt
result <- Ptr SearchEntry -> IO CUInt
gtk_search_entry_get_input_hints Ptr SearchEntry
entry'
let result' :: [InputHints]
result' = CUInt -> [InputHints]
forall a b. (Storable a, Integral a, Bits a, IsGFlag b) => a -> [b]
wordToGFlags CUInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
entry
[InputHints] -> IO [InputHints]
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return [InputHints]
result'
#if defined(ENABLE_OVERLOADING)
data SearchEntryGetInputHintsMethodInfo
instance (signature ~ (m [Gtk.Flags.InputHints]), MonadIO m, IsSearchEntry a) => O.OverloadedMethod SearchEntryGetInputHintsMethodInfo a signature where
overloadedMethod = searchEntryGetInputHints
instance O.OverloadedMethodInfo SearchEntryGetInputHintsMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.SearchEntry.searchEntryGetInputHints",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.9/docs/GI-Gtk-Objects-SearchEntry.html#v:searchEntryGetInputHints"
})
#endif
foreign import ccall "gtk_search_entry_get_input_purpose" gtk_search_entry_get_input_purpose ::
Ptr SearchEntry ->
IO CUInt
searchEntryGetInputPurpose ::
(B.CallStack.HasCallStack, MonadIO m, IsSearchEntry a) =>
a
-> m Gtk.Enums.InputPurpose
searchEntryGetInputPurpose :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsSearchEntry a) =>
a -> m InputPurpose
searchEntryGetInputPurpose a
entry = IO InputPurpose -> m InputPurpose
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO InputPurpose -> m InputPurpose)
-> IO InputPurpose -> m InputPurpose
forall a b. (a -> b) -> a -> b
$ do
Ptr SearchEntry
entry' <- a -> IO (Ptr SearchEntry)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
entry
CUInt
result <- Ptr SearchEntry -> IO CUInt
gtk_search_entry_get_input_purpose Ptr SearchEntry
entry'
let result' :: InputPurpose
result' = (Int -> InputPurpose
forall a. Enum a => Int -> a
toEnum (Int -> InputPurpose) -> (CUInt -> Int) -> CUInt -> InputPurpose
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
entry
InputPurpose -> IO InputPurpose
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return InputPurpose
result'
#if defined(ENABLE_OVERLOADING)
data SearchEntryGetInputPurposeMethodInfo
instance (signature ~ (m Gtk.Enums.InputPurpose), MonadIO m, IsSearchEntry a) => O.OverloadedMethod SearchEntryGetInputPurposeMethodInfo a signature where
overloadedMethod = searchEntryGetInputPurpose
instance O.OverloadedMethodInfo SearchEntryGetInputPurposeMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.SearchEntry.searchEntryGetInputPurpose",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.9/docs/GI-Gtk-Objects-SearchEntry.html#v:searchEntryGetInputPurpose"
})
#endif
foreign import ccall "gtk_search_entry_get_key_capture_widget" gtk_search_entry_get_key_capture_widget ::
Ptr SearchEntry ->
IO (Ptr Gtk.Widget.Widget)
searchEntryGetKeyCaptureWidget ::
(B.CallStack.HasCallStack, MonadIO m, IsSearchEntry a) =>
a
-> m (Maybe Gtk.Widget.Widget)
searchEntryGetKeyCaptureWidget :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsSearchEntry a) =>
a -> m (Maybe Widget)
searchEntryGetKeyCaptureWidget a
entry = IO (Maybe Widget) -> m (Maybe Widget)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe Widget) -> m (Maybe Widget))
-> IO (Maybe Widget) -> m (Maybe Widget)
forall a b. (a -> b) -> a -> b
$ do
Ptr SearchEntry
entry' <- a -> IO (Ptr SearchEntry)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
entry
Ptr Widget
result <- Ptr SearchEntry -> IO (Ptr Widget)
gtk_search_entry_get_key_capture_widget Ptr SearchEntry
entry'
Maybe Widget
maybeResult <- Ptr Widget -> (Ptr Widget -> IO Widget) -> IO (Maybe Widget)
forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
convertIfNonNull Ptr Widget
result ((Ptr Widget -> IO Widget) -> IO (Maybe Widget))
-> (Ptr Widget -> IO Widget) -> IO (Maybe Widget)
forall a b. (a -> b) -> a -> b
$ \Ptr Widget
result' -> do
Widget
result'' <- ((ManagedPtr Widget -> Widget) -> Ptr Widget -> IO Widget
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr Widget -> Widget
Gtk.Widget.Widget) Ptr Widget
result'
Widget -> IO Widget
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Widget
result''
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
entry
Maybe Widget -> IO (Maybe Widget)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe Widget
maybeResult
#if defined(ENABLE_OVERLOADING)
data SearchEntryGetKeyCaptureWidgetMethodInfo
instance (signature ~ (m (Maybe Gtk.Widget.Widget)), MonadIO m, IsSearchEntry a) => O.OverloadedMethod SearchEntryGetKeyCaptureWidgetMethodInfo a signature where
overloadedMethod = searchEntryGetKeyCaptureWidget
instance O.OverloadedMethodInfo SearchEntryGetKeyCaptureWidgetMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.SearchEntry.searchEntryGetKeyCaptureWidget",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.9/docs/GI-Gtk-Objects-SearchEntry.html#v:searchEntryGetKeyCaptureWidget"
})
#endif
foreign import ccall "gtk_search_entry_get_placeholder_text" gtk_search_entry_get_placeholder_text ::
Ptr SearchEntry ->
IO CString
searchEntryGetPlaceholderText ::
(B.CallStack.HasCallStack, MonadIO m, IsSearchEntry a) =>
a
-> m (Maybe T.Text)
searchEntryGetPlaceholderText :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsSearchEntry a) =>
a -> m (Maybe Text)
searchEntryGetPlaceholderText a
entry = IO (Maybe Text) -> m (Maybe Text)
forall a. IO a -> m a
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 SearchEntry
entry' <- a -> IO (Ptr SearchEntry)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
entry
CString
result <- Ptr SearchEntry -> IO CString
gtk_search_entry_get_placeholder_text Ptr SearchEntry
entry'
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'
Text -> IO Text
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Text
result''
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
entry
Maybe Text -> IO (Maybe Text)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe Text
maybeResult
#if defined(ENABLE_OVERLOADING)
data SearchEntryGetPlaceholderTextMethodInfo
instance (signature ~ (m (Maybe T.Text)), MonadIO m, IsSearchEntry a) => O.OverloadedMethod SearchEntryGetPlaceholderTextMethodInfo a signature where
overloadedMethod = searchEntryGetPlaceholderText
instance O.OverloadedMethodInfo SearchEntryGetPlaceholderTextMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.SearchEntry.searchEntryGetPlaceholderText",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.9/docs/GI-Gtk-Objects-SearchEntry.html#v:searchEntryGetPlaceholderText"
})
#endif
foreign import ccall "gtk_search_entry_get_search_delay" gtk_search_entry_get_search_delay ::
Ptr SearchEntry ->
IO Word32
searchEntryGetSearchDelay ::
(B.CallStack.HasCallStack, MonadIO m, IsSearchEntry a) =>
a
-> m Word32
searchEntryGetSearchDelay :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsSearchEntry a) =>
a -> m Word32
searchEntryGetSearchDelay a
entry = IO Word32 -> m Word32
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Word32 -> m Word32) -> IO Word32 -> m Word32
forall a b. (a -> b) -> a -> b
$ do
Ptr SearchEntry
entry' <- a -> IO (Ptr SearchEntry)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
entry
Word32
result <- Ptr SearchEntry -> IO Word32
gtk_search_entry_get_search_delay Ptr SearchEntry
entry'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
entry
Word32 -> IO Word32
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Word32
result
#if defined(ENABLE_OVERLOADING)
data SearchEntryGetSearchDelayMethodInfo
instance (signature ~ (m Word32), MonadIO m, IsSearchEntry a) => O.OverloadedMethod SearchEntryGetSearchDelayMethodInfo a signature where
overloadedMethod = searchEntryGetSearchDelay
instance O.OverloadedMethodInfo SearchEntryGetSearchDelayMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.SearchEntry.searchEntryGetSearchDelay",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.9/docs/GI-Gtk-Objects-SearchEntry.html#v:searchEntryGetSearchDelay"
})
#endif
foreign import ccall "gtk_search_entry_set_input_hints" gtk_search_entry_set_input_hints ::
Ptr SearchEntry ->
CUInt ->
IO ()
searchEntrySetInputHints ::
(B.CallStack.HasCallStack, MonadIO m, IsSearchEntry a) =>
a
-> [Gtk.Flags.InputHints]
-> m ()
searchEntrySetInputHints :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsSearchEntry a) =>
a -> [InputHints] -> m ()
searchEntrySetInputHints a
entry [InputHints]
hints = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr SearchEntry
entry' <- a -> IO (Ptr SearchEntry)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
entry
let hints' :: CUInt
hints' = [InputHints] -> CUInt
forall b a. (Num b, IsGFlag a) => [a] -> b
gflagsToWord [InputHints]
hints
Ptr SearchEntry -> CUInt -> IO ()
gtk_search_entry_set_input_hints Ptr SearchEntry
entry' CUInt
hints'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
entry
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data SearchEntrySetInputHintsMethodInfo
instance (signature ~ ([Gtk.Flags.InputHints] -> m ()), MonadIO m, IsSearchEntry a) => O.OverloadedMethod SearchEntrySetInputHintsMethodInfo a signature where
overloadedMethod = searchEntrySetInputHints
instance O.OverloadedMethodInfo SearchEntrySetInputHintsMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.SearchEntry.searchEntrySetInputHints",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.9/docs/GI-Gtk-Objects-SearchEntry.html#v:searchEntrySetInputHints"
})
#endif
foreign import ccall "gtk_search_entry_set_input_purpose" gtk_search_entry_set_input_purpose ::
Ptr SearchEntry ->
CUInt ->
IO ()
searchEntrySetInputPurpose ::
(B.CallStack.HasCallStack, MonadIO m, IsSearchEntry a) =>
a
-> Gtk.Enums.InputPurpose
-> m ()
searchEntrySetInputPurpose :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsSearchEntry a) =>
a -> InputPurpose -> m ()
searchEntrySetInputPurpose a
entry InputPurpose
purpose = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr SearchEntry
entry' <- a -> IO (Ptr SearchEntry)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
entry
let purpose' :: CUInt
purpose' = (Int -> CUInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CUInt) -> (InputPurpose -> Int) -> InputPurpose -> CUInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. InputPurpose -> Int
forall a. Enum a => a -> Int
fromEnum) InputPurpose
purpose
Ptr SearchEntry -> CUInt -> IO ()
gtk_search_entry_set_input_purpose Ptr SearchEntry
entry' CUInt
purpose'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
entry
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data SearchEntrySetInputPurposeMethodInfo
instance (signature ~ (Gtk.Enums.InputPurpose -> m ()), MonadIO m, IsSearchEntry a) => O.OverloadedMethod SearchEntrySetInputPurposeMethodInfo a signature where
overloadedMethod = searchEntrySetInputPurpose
instance O.OverloadedMethodInfo SearchEntrySetInputPurposeMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.SearchEntry.searchEntrySetInputPurpose",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.9/docs/GI-Gtk-Objects-SearchEntry.html#v:searchEntrySetInputPurpose"
})
#endif
foreign import ccall "gtk_search_entry_set_key_capture_widget" gtk_search_entry_set_key_capture_widget ::
Ptr SearchEntry ->
Ptr Gtk.Widget.Widget ->
IO ()
searchEntrySetKeyCaptureWidget ::
(B.CallStack.HasCallStack, MonadIO m, IsSearchEntry a, Gtk.Widget.IsWidget b) =>
a
-> Maybe (b)
-> m ()
searchEntrySetKeyCaptureWidget :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsSearchEntry a, IsWidget b) =>
a -> Maybe b -> m ()
searchEntrySetKeyCaptureWidget a
entry Maybe b
widget = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr SearchEntry
entry' <- a -> IO (Ptr SearchEntry)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
entry
Ptr Widget
maybeWidget <- case Maybe b
widget of
Maybe b
Nothing -> Ptr Widget -> IO (Ptr Widget)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Widget
forall a. Ptr a
nullPtr
Just b
jWidget -> do
Ptr Widget
jWidget' <- b -> IO (Ptr Widget)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
jWidget
Ptr Widget -> IO (Ptr Widget)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Widget
jWidget'
Ptr SearchEntry -> Ptr Widget -> IO ()
gtk_search_entry_set_key_capture_widget Ptr SearchEntry
entry' Ptr Widget
maybeWidget
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
entry
Maybe b -> (b -> IO ()) -> IO ()
forall (m :: * -> *) a. Monad m => Maybe a -> (a -> m ()) -> m ()
whenJust Maybe b
widget b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data SearchEntrySetKeyCaptureWidgetMethodInfo
instance (signature ~ (Maybe (b) -> m ()), MonadIO m, IsSearchEntry a, Gtk.Widget.IsWidget b) => O.OverloadedMethod SearchEntrySetKeyCaptureWidgetMethodInfo a signature where
overloadedMethod = searchEntrySetKeyCaptureWidget
instance O.OverloadedMethodInfo SearchEntrySetKeyCaptureWidgetMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.SearchEntry.searchEntrySetKeyCaptureWidget",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.9/docs/GI-Gtk-Objects-SearchEntry.html#v:searchEntrySetKeyCaptureWidget"
})
#endif
foreign import ccall "gtk_search_entry_set_placeholder_text" gtk_search_entry_set_placeholder_text ::
Ptr SearchEntry ->
CString ->
IO ()
searchEntrySetPlaceholderText ::
(B.CallStack.HasCallStack, MonadIO m, IsSearchEntry a) =>
a
-> Maybe (T.Text)
-> m ()
searchEntrySetPlaceholderText :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsSearchEntry a) =>
a -> Maybe Text -> m ()
searchEntrySetPlaceholderText a
entry Maybe Text
text = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr SearchEntry
entry' <- a -> IO (Ptr SearchEntry)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
entry
CString
maybeText <- case Maybe Text
text of
Maybe Text
Nothing -> CString -> IO CString
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return CString
forall a. Ptr a
nullPtr
Just Text
jText -> do
CString
jText' <- Text -> IO CString
textToCString Text
jText
CString -> IO CString
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return CString
jText'
Ptr SearchEntry -> CString -> IO ()
gtk_search_entry_set_placeholder_text Ptr SearchEntry
entry' CString
maybeText
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
entry
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
maybeText
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data SearchEntrySetPlaceholderTextMethodInfo
instance (signature ~ (Maybe (T.Text) -> m ()), MonadIO m, IsSearchEntry a) => O.OverloadedMethod SearchEntrySetPlaceholderTextMethodInfo a signature where
overloadedMethod = searchEntrySetPlaceholderText
instance O.OverloadedMethodInfo SearchEntrySetPlaceholderTextMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.SearchEntry.searchEntrySetPlaceholderText",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.9/docs/GI-Gtk-Objects-SearchEntry.html#v:searchEntrySetPlaceholderText"
})
#endif
foreign import ccall "gtk_search_entry_set_search_delay" gtk_search_entry_set_search_delay ::
Ptr SearchEntry ->
Word32 ->
IO ()
searchEntrySetSearchDelay ::
(B.CallStack.HasCallStack, MonadIO m, IsSearchEntry a) =>
a
-> Word32
-> m ()
searchEntrySetSearchDelay :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsSearchEntry a) =>
a -> Word32 -> m ()
searchEntrySetSearchDelay a
entry Word32
delay = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr SearchEntry
entry' <- a -> IO (Ptr SearchEntry)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
entry
Ptr SearchEntry -> Word32 -> IO ()
gtk_search_entry_set_search_delay Ptr SearchEntry
entry' Word32
delay
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
entry
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data SearchEntrySetSearchDelayMethodInfo
instance (signature ~ (Word32 -> m ()), MonadIO m, IsSearchEntry a) => O.OverloadedMethod SearchEntrySetSearchDelayMethodInfo a signature where
overloadedMethod = searchEntrySetSearchDelay
instance O.OverloadedMethodInfo SearchEntrySetSearchDelayMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.SearchEntry.searchEntrySetSearchDelay",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.9/docs/GI-Gtk-Objects-SearchEntry.html#v:searchEntrySetSearchDelay"
})
#endif