{-# 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)
SearchEntryGetKeyCaptureWidgetMethodInfo,
#endif
searchEntryGetKeyCaptureWidget ,
#if defined(ENABLE_OVERLOADING)
SearchEntryGetPlaceholderTextMethodInfo ,
#endif
searchEntryGetPlaceholderText ,
#if defined(ENABLE_OVERLOADING)
SearchEntryGetSearchDelayMethodInfo ,
#endif
searchEntryGetSearchDelay ,
searchEntryNew ,
#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)
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 GI.GObject.Objects.Object as GObject.Object
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
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 "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 "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 "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 "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.8/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.8/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.8/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.8/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.8/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.8/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.8/docs/GI-Gtk-Objects-SearchEntry.html#g:attr:activatesDefault"
})
#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.8/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.8/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), '("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
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_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.8/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.8/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.8/docs/GI-Gtk-Objects-SearchEntry.html#v:searchEntryGetSearchDelay"
})
#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.8/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.8/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.8/docs/GI-Gtk-Objects-SearchEntry.html#v:searchEntrySetSearchDelay"
})
#endif