{-# LANGUAGE TypeApplications #-}
#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif
module GI.Handy.Objects.Keypad
(
Keypad(..) ,
IsKeypad ,
toKeypad ,
#if defined(ENABLE_OVERLOADING)
ResolveKeypadMethod ,
#endif
#if defined(ENABLE_OVERLOADING)
KeypadGetEntryMethodInfo ,
#endif
keypadGetEntry ,
keypadNew ,
#if defined(ENABLE_OVERLOADING)
KeypadSetEntryMethodInfo ,
#endif
keypadSetEntry ,
#if defined(ENABLE_OVERLOADING)
KeypadSetLeftActionMethodInfo ,
#endif
keypadSetLeftAction ,
#if defined(ENABLE_OVERLOADING)
KeypadSetRightActionMethodInfo ,
#endif
keypadSetRightAction ,
#if defined(ENABLE_OVERLOADING)
KeypadShowSymbolsMethodInfo ,
#endif
keypadShowSymbols ,
#if defined(ENABLE_OVERLOADING)
KeypadEntryPropertyInfo ,
#endif
clearKeypadEntry ,
constructKeypadEntry ,
getKeypadEntry ,
#if defined(ENABLE_OVERLOADING)
keypadEntry ,
#endif
setKeypadEntry ,
#if defined(ENABLE_OVERLOADING)
KeypadLeftActionPropertyInfo ,
#endif
constructKeypadLeftAction ,
#if defined(ENABLE_OVERLOADING)
keypadLeftAction ,
#endif
setKeypadLeftAction ,
#if defined(ENABLE_OVERLOADING)
KeypadOnlyDigitsPropertyInfo ,
#endif
constructKeypadOnlyDigits ,
getKeypadOnlyDigits ,
#if defined(ENABLE_OVERLOADING)
keypadOnlyDigits ,
#endif
setKeypadOnlyDigits ,
#if defined(ENABLE_OVERLOADING)
KeypadRightActionPropertyInfo ,
#endif
constructKeypadRightAction ,
#if defined(ENABLE_OVERLOADING)
keypadRightAction ,
#endif
setKeypadRightAction ,
#if defined(ENABLE_OVERLOADING)
KeypadShowSymbolsPropertyInfo ,
#endif
constructKeypadShowSymbols ,
getKeypadShowSymbols ,
setKeypadShowSymbols ,
) 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.GClosure as B.GClosure
import qualified Data.GI.Base.GError as B.GError
import qualified Data.GI.Base.GVariant as B.GVariant
import qualified Data.GI.Base.GValue as B.GValue
import qualified Data.GI.Base.GParamSpec as B.GParamSpec
import qualified Data.GI.Base.CallStack as B.CallStack
import qualified Data.GI.Base.Properties as B.Properties
import qualified Data.GI.Base.Signals as B.Signals
import qualified Control.Monad.IO.Class as MIO
import qualified Data.Text as T
import qualified Data.ByteString.Char8 as B
import qualified Data.Map as Map
import qualified Foreign.Ptr as FP
import qualified GHC.OverloadedLabels as OL
import qualified GI.Atk.Interfaces.ImplementorIface as Atk.ImplementorIface
import qualified GI.GObject.Objects.Object as GObject.Object
import qualified GI.Gtk.Interfaces.Buildable as Gtk.Buildable
import qualified GI.Gtk.Interfaces.Orientable as Gtk.Orientable
import qualified GI.Gtk.Objects.Container as Gtk.Container
import qualified GI.Gtk.Objects.Entry as Gtk.Entry
import qualified GI.Gtk.Objects.Grid as Gtk.Grid
import qualified GI.Gtk.Objects.Widget as Gtk.Widget
newtype Keypad = Keypad (SP.ManagedPtr Keypad)
deriving (Keypad -> Keypad -> Bool
(Keypad -> Keypad -> Bool)
-> (Keypad -> Keypad -> Bool) -> Eq Keypad
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: Keypad -> Keypad -> Bool
$c/= :: Keypad -> Keypad -> Bool
== :: Keypad -> Keypad -> Bool
$c== :: Keypad -> Keypad -> Bool
Eq)
instance SP.ManagedPtrNewtype Keypad where
toManagedPtr :: Keypad -> ManagedPtr Keypad
toManagedPtr (Keypad ManagedPtr Keypad
p) = ManagedPtr Keypad
p
foreign import ccall "hdy_keypad_get_type"
c_hdy_keypad_get_type :: IO B.Types.GType
instance B.Types.TypedObject Keypad where
glibType :: IO GType
glibType = IO GType
c_hdy_keypad_get_type
instance B.Types.GObject Keypad
instance B.GValue.IsGValue Keypad where
toGValue :: Keypad -> IO GValue
toGValue Keypad
o = do
GType
gtype <- IO GType
c_hdy_keypad_get_type
Keypad -> (Ptr Keypad -> IO GValue) -> IO GValue
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
B.ManagedPtr.withManagedPtr Keypad
o (GType -> (GValue -> Ptr Keypad -> IO ()) -> Ptr Keypad -> IO GValue
forall a. GType -> (GValue -> a -> IO ()) -> a -> IO GValue
B.GValue.buildGValue GType
gtype GValue -> Ptr Keypad -> IO ()
forall a. GObject a => GValue -> Ptr a -> IO ()
B.GValue.set_object)
fromGValue :: GValue -> IO Keypad
fromGValue GValue
gv = do
Ptr Keypad
ptr <- GValue -> IO (Ptr Keypad)
forall b. GObject b => GValue -> IO (Ptr b)
B.GValue.get_object GValue
gv :: IO (Ptr Keypad)
(ManagedPtr Keypad -> Keypad) -> Ptr Keypad -> IO Keypad
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
B.ManagedPtr.newObject ManagedPtr Keypad -> Keypad
Keypad Ptr Keypad
ptr
class (SP.GObject o, O.IsDescendantOf Keypad o) => IsKeypad o
instance (SP.GObject o, O.IsDescendantOf Keypad o) => IsKeypad o
instance O.HasParentTypes Keypad
type instance O.ParentTypes Keypad = '[Gtk.Grid.Grid, Gtk.Container.Container, Gtk.Widget.Widget, GObject.Object.Object, Atk.ImplementorIface.ImplementorIface, Gtk.Buildable.Buildable, Gtk.Orientable.Orientable]
toKeypad :: (MonadIO m, IsKeypad o) => o -> m Keypad
toKeypad :: o -> m Keypad
toKeypad = IO Keypad -> m Keypad
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Keypad -> m Keypad) -> (o -> IO Keypad) -> o -> m Keypad
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (ManagedPtr Keypad -> Keypad) -> o -> IO Keypad
forall o o'.
(HasCallStack, ManagedPtrNewtype o, TypedObject o,
ManagedPtrNewtype o', TypedObject o') =>
(ManagedPtr o' -> o') -> o -> IO o'
unsafeCastTo ManagedPtr Keypad -> Keypad
Keypad
#if defined(ENABLE_OVERLOADING)
type family ResolveKeypadMethod (t :: Symbol) (o :: *) :: * where
ResolveKeypadMethod "activate" o = Gtk.Widget.WidgetActivateMethodInfo
ResolveKeypadMethod "add" o = Gtk.Container.ContainerAddMethodInfo
ResolveKeypadMethod "addAccelerator" o = Gtk.Widget.WidgetAddAcceleratorMethodInfo
ResolveKeypadMethod "addChild" o = Gtk.Buildable.BuildableAddChildMethodInfo
ResolveKeypadMethod "addDeviceEvents" o = Gtk.Widget.WidgetAddDeviceEventsMethodInfo
ResolveKeypadMethod "addEvents" o = Gtk.Widget.WidgetAddEventsMethodInfo
ResolveKeypadMethod "addMnemonicLabel" o = Gtk.Widget.WidgetAddMnemonicLabelMethodInfo
ResolveKeypadMethod "addTickCallback" o = Gtk.Widget.WidgetAddTickCallbackMethodInfo
ResolveKeypadMethod "attach" o = Gtk.Grid.GridAttachMethodInfo
ResolveKeypadMethod "attachNextTo" o = Gtk.Grid.GridAttachNextToMethodInfo
ResolveKeypadMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
ResolveKeypadMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
ResolveKeypadMethod "canActivateAccel" o = Gtk.Widget.WidgetCanActivateAccelMethodInfo
ResolveKeypadMethod "checkResize" o = Gtk.Container.ContainerCheckResizeMethodInfo
ResolveKeypadMethod "childFocus" o = Gtk.Widget.WidgetChildFocusMethodInfo
ResolveKeypadMethod "childGetProperty" o = Gtk.Container.ContainerChildGetPropertyMethodInfo
ResolveKeypadMethod "childNotify" o = Gtk.Container.ContainerChildNotifyMethodInfo
ResolveKeypadMethod "childNotifyByPspec" o = Gtk.Container.ContainerChildNotifyByPspecMethodInfo
ResolveKeypadMethod "childSetProperty" o = Gtk.Container.ContainerChildSetPropertyMethodInfo
ResolveKeypadMethod "childType" o = Gtk.Container.ContainerChildTypeMethodInfo
ResolveKeypadMethod "classPath" o = Gtk.Widget.WidgetClassPathMethodInfo
ResolveKeypadMethod "computeExpand" o = Gtk.Widget.WidgetComputeExpandMethodInfo
ResolveKeypadMethod "constructChild" o = Gtk.Buildable.BuildableConstructChildMethodInfo
ResolveKeypadMethod "createPangoContext" o = Gtk.Widget.WidgetCreatePangoContextMethodInfo
ResolveKeypadMethod "createPangoLayout" o = Gtk.Widget.WidgetCreatePangoLayoutMethodInfo
ResolveKeypadMethod "customFinished" o = Gtk.Buildable.BuildableCustomFinishedMethodInfo
ResolveKeypadMethod "customTagEnd" o = Gtk.Buildable.BuildableCustomTagEndMethodInfo
ResolveKeypadMethod "customTagStart" o = Gtk.Buildable.BuildableCustomTagStartMethodInfo
ResolveKeypadMethod "destroy" o = Gtk.Widget.WidgetDestroyMethodInfo
ResolveKeypadMethod "destroyed" o = Gtk.Widget.WidgetDestroyedMethodInfo
ResolveKeypadMethod "deviceIsShadowed" o = Gtk.Widget.WidgetDeviceIsShadowedMethodInfo
ResolveKeypadMethod "dragBegin" o = Gtk.Widget.WidgetDragBeginMethodInfo
ResolveKeypadMethod "dragBeginWithCoordinates" o = Gtk.Widget.WidgetDragBeginWithCoordinatesMethodInfo
ResolveKeypadMethod "dragCheckThreshold" o = Gtk.Widget.WidgetDragCheckThresholdMethodInfo
ResolveKeypadMethod "dragDestAddImageTargets" o = Gtk.Widget.WidgetDragDestAddImageTargetsMethodInfo
ResolveKeypadMethod "dragDestAddTextTargets" o = Gtk.Widget.WidgetDragDestAddTextTargetsMethodInfo
ResolveKeypadMethod "dragDestAddUriTargets" o = Gtk.Widget.WidgetDragDestAddUriTargetsMethodInfo
ResolveKeypadMethod "dragDestFindTarget" o = Gtk.Widget.WidgetDragDestFindTargetMethodInfo
ResolveKeypadMethod "dragDestGetTargetList" o = Gtk.Widget.WidgetDragDestGetTargetListMethodInfo
ResolveKeypadMethod "dragDestGetTrackMotion" o = Gtk.Widget.WidgetDragDestGetTrackMotionMethodInfo
ResolveKeypadMethod "dragDestSet" o = Gtk.Widget.WidgetDragDestSetMethodInfo
ResolveKeypadMethod "dragDestSetProxy" o = Gtk.Widget.WidgetDragDestSetProxyMethodInfo
ResolveKeypadMethod "dragDestSetTargetList" o = Gtk.Widget.WidgetDragDestSetTargetListMethodInfo
ResolveKeypadMethod "dragDestSetTrackMotion" o = Gtk.Widget.WidgetDragDestSetTrackMotionMethodInfo
ResolveKeypadMethod "dragDestUnset" o = Gtk.Widget.WidgetDragDestUnsetMethodInfo
ResolveKeypadMethod "dragGetData" o = Gtk.Widget.WidgetDragGetDataMethodInfo
ResolveKeypadMethod "dragHighlight" o = Gtk.Widget.WidgetDragHighlightMethodInfo
ResolveKeypadMethod "dragSourceAddImageTargets" o = Gtk.Widget.WidgetDragSourceAddImageTargetsMethodInfo
ResolveKeypadMethod "dragSourceAddTextTargets" o = Gtk.Widget.WidgetDragSourceAddTextTargetsMethodInfo
ResolveKeypadMethod "dragSourceAddUriTargets" o = Gtk.Widget.WidgetDragSourceAddUriTargetsMethodInfo
ResolveKeypadMethod "dragSourceGetTargetList" o = Gtk.Widget.WidgetDragSourceGetTargetListMethodInfo
ResolveKeypadMethod "dragSourceSet" o = Gtk.Widget.WidgetDragSourceSetMethodInfo
ResolveKeypadMethod "dragSourceSetIconGicon" o = Gtk.Widget.WidgetDragSourceSetIconGiconMethodInfo
ResolveKeypadMethod "dragSourceSetIconName" o = Gtk.Widget.WidgetDragSourceSetIconNameMethodInfo
ResolveKeypadMethod "dragSourceSetIconPixbuf" o = Gtk.Widget.WidgetDragSourceSetIconPixbufMethodInfo
ResolveKeypadMethod "dragSourceSetIconStock" o = Gtk.Widget.WidgetDragSourceSetIconStockMethodInfo
ResolveKeypadMethod "dragSourceSetTargetList" o = Gtk.Widget.WidgetDragSourceSetTargetListMethodInfo
ResolveKeypadMethod "dragSourceUnset" o = Gtk.Widget.WidgetDragSourceUnsetMethodInfo
ResolveKeypadMethod "dragUnhighlight" o = Gtk.Widget.WidgetDragUnhighlightMethodInfo
ResolveKeypadMethod "draw" o = Gtk.Widget.WidgetDrawMethodInfo
ResolveKeypadMethod "ensureStyle" o = Gtk.Widget.WidgetEnsureStyleMethodInfo
ResolveKeypadMethod "errorBell" o = Gtk.Widget.WidgetErrorBellMethodInfo
ResolveKeypadMethod "event" o = Gtk.Widget.WidgetEventMethodInfo
ResolveKeypadMethod "forall" o = Gtk.Container.ContainerForallMethodInfo
ResolveKeypadMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
ResolveKeypadMethod "foreach" o = Gtk.Container.ContainerForeachMethodInfo
ResolveKeypadMethod "freezeChildNotify" o = Gtk.Widget.WidgetFreezeChildNotifyMethodInfo
ResolveKeypadMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
ResolveKeypadMethod "getv" o = GObject.Object.ObjectGetvMethodInfo
ResolveKeypadMethod "grabAdd" o = Gtk.Widget.WidgetGrabAddMethodInfo
ResolveKeypadMethod "grabDefault" o = Gtk.Widget.WidgetGrabDefaultMethodInfo
ResolveKeypadMethod "grabFocus" o = Gtk.Widget.WidgetGrabFocusMethodInfo
ResolveKeypadMethod "grabRemove" o = Gtk.Widget.WidgetGrabRemoveMethodInfo
ResolveKeypadMethod "hasDefault" o = Gtk.Widget.WidgetHasDefaultMethodInfo
ResolveKeypadMethod "hasFocus" o = Gtk.Widget.WidgetHasFocusMethodInfo
ResolveKeypadMethod "hasGrab" o = Gtk.Widget.WidgetHasGrabMethodInfo
ResolveKeypadMethod "hasRcStyle" o = Gtk.Widget.WidgetHasRcStyleMethodInfo
ResolveKeypadMethod "hasScreen" o = Gtk.Widget.WidgetHasScreenMethodInfo
ResolveKeypadMethod "hasVisibleFocus" o = Gtk.Widget.WidgetHasVisibleFocusMethodInfo
ResolveKeypadMethod "hide" o = Gtk.Widget.WidgetHideMethodInfo
ResolveKeypadMethod "hideOnDelete" o = Gtk.Widget.WidgetHideOnDeleteMethodInfo
ResolveKeypadMethod "inDestruction" o = Gtk.Widget.WidgetInDestructionMethodInfo
ResolveKeypadMethod "initTemplate" o = Gtk.Widget.WidgetInitTemplateMethodInfo
ResolveKeypadMethod "inputShapeCombineRegion" o = Gtk.Widget.WidgetInputShapeCombineRegionMethodInfo
ResolveKeypadMethod "insertActionGroup" o = Gtk.Widget.WidgetInsertActionGroupMethodInfo
ResolveKeypadMethod "insertColumn" o = Gtk.Grid.GridInsertColumnMethodInfo
ResolveKeypadMethod "insertNextTo" o = Gtk.Grid.GridInsertNextToMethodInfo
ResolveKeypadMethod "insertRow" o = Gtk.Grid.GridInsertRowMethodInfo
ResolveKeypadMethod "intersect" o = Gtk.Widget.WidgetIntersectMethodInfo
ResolveKeypadMethod "isAncestor" o = Gtk.Widget.WidgetIsAncestorMethodInfo
ResolveKeypadMethod "isComposited" o = Gtk.Widget.WidgetIsCompositedMethodInfo
ResolveKeypadMethod "isDrawable" o = Gtk.Widget.WidgetIsDrawableMethodInfo
ResolveKeypadMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo
ResolveKeypadMethod "isFocus" o = Gtk.Widget.WidgetIsFocusMethodInfo
ResolveKeypadMethod "isSensitive" o = Gtk.Widget.WidgetIsSensitiveMethodInfo
ResolveKeypadMethod "isToplevel" o = Gtk.Widget.WidgetIsToplevelMethodInfo
ResolveKeypadMethod "isVisible" o = Gtk.Widget.WidgetIsVisibleMethodInfo
ResolveKeypadMethod "keynavFailed" o = Gtk.Widget.WidgetKeynavFailedMethodInfo
ResolveKeypadMethod "listAccelClosures" o = Gtk.Widget.WidgetListAccelClosuresMethodInfo
ResolveKeypadMethod "listActionPrefixes" o = Gtk.Widget.WidgetListActionPrefixesMethodInfo
ResolveKeypadMethod "listMnemonicLabels" o = Gtk.Widget.WidgetListMnemonicLabelsMethodInfo
ResolveKeypadMethod "map" o = Gtk.Widget.WidgetMapMethodInfo
ResolveKeypadMethod "mnemonicActivate" o = Gtk.Widget.WidgetMnemonicActivateMethodInfo
ResolveKeypadMethod "modifyBase" o = Gtk.Widget.WidgetModifyBaseMethodInfo
ResolveKeypadMethod "modifyBg" o = Gtk.Widget.WidgetModifyBgMethodInfo
ResolveKeypadMethod "modifyCursor" o = Gtk.Widget.WidgetModifyCursorMethodInfo
ResolveKeypadMethod "modifyFg" o = Gtk.Widget.WidgetModifyFgMethodInfo
ResolveKeypadMethod "modifyFont" o = Gtk.Widget.WidgetModifyFontMethodInfo
ResolveKeypadMethod "modifyStyle" o = Gtk.Widget.WidgetModifyStyleMethodInfo
ResolveKeypadMethod "modifyText" o = Gtk.Widget.WidgetModifyTextMethodInfo
ResolveKeypadMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
ResolveKeypadMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
ResolveKeypadMethod "overrideBackgroundColor" o = Gtk.Widget.WidgetOverrideBackgroundColorMethodInfo
ResolveKeypadMethod "overrideColor" o = Gtk.Widget.WidgetOverrideColorMethodInfo
ResolveKeypadMethod "overrideCursor" o = Gtk.Widget.WidgetOverrideCursorMethodInfo
ResolveKeypadMethod "overrideFont" o = Gtk.Widget.WidgetOverrideFontMethodInfo
ResolveKeypadMethod "overrideSymbolicColor" o = Gtk.Widget.WidgetOverrideSymbolicColorMethodInfo
ResolveKeypadMethod "parserFinished" o = Gtk.Buildable.BuildableParserFinishedMethodInfo
ResolveKeypadMethod "path" o = Gtk.Widget.WidgetPathMethodInfo
ResolveKeypadMethod "propagateDraw" o = Gtk.Container.ContainerPropagateDrawMethodInfo
ResolveKeypadMethod "queueAllocate" o = Gtk.Widget.WidgetQueueAllocateMethodInfo
ResolveKeypadMethod "queueComputeExpand" o = Gtk.Widget.WidgetQueueComputeExpandMethodInfo
ResolveKeypadMethod "queueDraw" o = Gtk.Widget.WidgetQueueDrawMethodInfo
ResolveKeypadMethod "queueDrawArea" o = Gtk.Widget.WidgetQueueDrawAreaMethodInfo
ResolveKeypadMethod "queueDrawRegion" o = Gtk.Widget.WidgetQueueDrawRegionMethodInfo
ResolveKeypadMethod "queueResize" o = Gtk.Widget.WidgetQueueResizeMethodInfo
ResolveKeypadMethod "queueResizeNoRedraw" o = Gtk.Widget.WidgetQueueResizeNoRedrawMethodInfo
ResolveKeypadMethod "realize" o = Gtk.Widget.WidgetRealizeMethodInfo
ResolveKeypadMethod "ref" o = GObject.Object.ObjectRefMethodInfo
ResolveKeypadMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
ResolveKeypadMethod "regionIntersect" o = Gtk.Widget.WidgetRegionIntersectMethodInfo
ResolveKeypadMethod "registerWindow" o = Gtk.Widget.WidgetRegisterWindowMethodInfo
ResolveKeypadMethod "remove" o = Gtk.Container.ContainerRemoveMethodInfo
ResolveKeypadMethod "removeAccelerator" o = Gtk.Widget.WidgetRemoveAcceleratorMethodInfo
ResolveKeypadMethod "removeColumn" o = Gtk.Grid.GridRemoveColumnMethodInfo
ResolveKeypadMethod "removeMnemonicLabel" o = Gtk.Widget.WidgetRemoveMnemonicLabelMethodInfo
ResolveKeypadMethod "removeRow" o = Gtk.Grid.GridRemoveRowMethodInfo
ResolveKeypadMethod "removeTickCallback" o = Gtk.Widget.WidgetRemoveTickCallbackMethodInfo
ResolveKeypadMethod "renderIcon" o = Gtk.Widget.WidgetRenderIconMethodInfo
ResolveKeypadMethod "renderIconPixbuf" o = Gtk.Widget.WidgetRenderIconPixbufMethodInfo
ResolveKeypadMethod "reparent" o = Gtk.Widget.WidgetReparentMethodInfo
ResolveKeypadMethod "resetRcStyles" o = Gtk.Widget.WidgetResetRcStylesMethodInfo
ResolveKeypadMethod "resetStyle" o = Gtk.Widget.WidgetResetStyleMethodInfo
ResolveKeypadMethod "resizeChildren" o = Gtk.Container.ContainerResizeChildrenMethodInfo
ResolveKeypadMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
ResolveKeypadMethod "sendExpose" o = Gtk.Widget.WidgetSendExposeMethodInfo
ResolveKeypadMethod "sendFocusChange" o = Gtk.Widget.WidgetSendFocusChangeMethodInfo
ResolveKeypadMethod "shapeCombineRegion" o = Gtk.Widget.WidgetShapeCombineRegionMethodInfo
ResolveKeypadMethod "show" o = Gtk.Widget.WidgetShowMethodInfo
ResolveKeypadMethod "showAll" o = Gtk.Widget.WidgetShowAllMethodInfo
ResolveKeypadMethod "showNow" o = Gtk.Widget.WidgetShowNowMethodInfo
ResolveKeypadMethod "showSymbols" o = KeypadShowSymbolsMethodInfo
ResolveKeypadMethod "sizeAllocate" o = Gtk.Widget.WidgetSizeAllocateMethodInfo
ResolveKeypadMethod "sizeAllocateWithBaseline" o = Gtk.Widget.WidgetSizeAllocateWithBaselineMethodInfo
ResolveKeypadMethod "sizeRequest" o = Gtk.Widget.WidgetSizeRequestMethodInfo
ResolveKeypadMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
ResolveKeypadMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
ResolveKeypadMethod "styleAttach" o = Gtk.Widget.WidgetStyleAttachMethodInfo
ResolveKeypadMethod "styleGetProperty" o = Gtk.Widget.WidgetStyleGetPropertyMethodInfo
ResolveKeypadMethod "thawChildNotify" o = Gtk.Widget.WidgetThawChildNotifyMethodInfo
ResolveKeypadMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo
ResolveKeypadMethod "translateCoordinates" o = Gtk.Widget.WidgetTranslateCoordinatesMethodInfo
ResolveKeypadMethod "triggerTooltipQuery" o = Gtk.Widget.WidgetTriggerTooltipQueryMethodInfo
ResolveKeypadMethod "unmap" o = Gtk.Widget.WidgetUnmapMethodInfo
ResolveKeypadMethod "unparent" o = Gtk.Widget.WidgetUnparentMethodInfo
ResolveKeypadMethod "unrealize" o = Gtk.Widget.WidgetUnrealizeMethodInfo
ResolveKeypadMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo
ResolveKeypadMethod "unregisterWindow" o = Gtk.Widget.WidgetUnregisterWindowMethodInfo
ResolveKeypadMethod "unsetFocusChain" o = Gtk.Container.ContainerUnsetFocusChainMethodInfo
ResolveKeypadMethod "unsetStateFlags" o = Gtk.Widget.WidgetUnsetStateFlagsMethodInfo
ResolveKeypadMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
ResolveKeypadMethod "getAccessible" o = Gtk.Widget.WidgetGetAccessibleMethodInfo
ResolveKeypadMethod "getActionGroup" o = Gtk.Widget.WidgetGetActionGroupMethodInfo
ResolveKeypadMethod "getAllocatedBaseline" o = Gtk.Widget.WidgetGetAllocatedBaselineMethodInfo
ResolveKeypadMethod "getAllocatedHeight" o = Gtk.Widget.WidgetGetAllocatedHeightMethodInfo
ResolveKeypadMethod "getAllocatedSize" o = Gtk.Widget.WidgetGetAllocatedSizeMethodInfo
ResolveKeypadMethod "getAllocatedWidth" o = Gtk.Widget.WidgetGetAllocatedWidthMethodInfo
ResolveKeypadMethod "getAllocation" o = Gtk.Widget.WidgetGetAllocationMethodInfo
ResolveKeypadMethod "getAncestor" o = Gtk.Widget.WidgetGetAncestorMethodInfo
ResolveKeypadMethod "getAppPaintable" o = Gtk.Widget.WidgetGetAppPaintableMethodInfo
ResolveKeypadMethod "getBaselineRow" o = Gtk.Grid.GridGetBaselineRowMethodInfo
ResolveKeypadMethod "getBorderWidth" o = Gtk.Container.ContainerGetBorderWidthMethodInfo
ResolveKeypadMethod "getCanDefault" o = Gtk.Widget.WidgetGetCanDefaultMethodInfo
ResolveKeypadMethod "getCanFocus" o = Gtk.Widget.WidgetGetCanFocusMethodInfo
ResolveKeypadMethod "getChildAt" o = Gtk.Grid.GridGetChildAtMethodInfo
ResolveKeypadMethod "getChildRequisition" o = Gtk.Widget.WidgetGetChildRequisitionMethodInfo
ResolveKeypadMethod "getChildVisible" o = Gtk.Widget.WidgetGetChildVisibleMethodInfo
ResolveKeypadMethod "getChildren" o = Gtk.Container.ContainerGetChildrenMethodInfo
ResolveKeypadMethod "getClip" o = Gtk.Widget.WidgetGetClipMethodInfo
ResolveKeypadMethod "getClipboard" o = Gtk.Widget.WidgetGetClipboardMethodInfo
ResolveKeypadMethod "getColumnHomogeneous" o = Gtk.Grid.GridGetColumnHomogeneousMethodInfo
ResolveKeypadMethod "getColumnSpacing" o = Gtk.Grid.GridGetColumnSpacingMethodInfo
ResolveKeypadMethod "getCompositeName" o = Gtk.Widget.WidgetGetCompositeNameMethodInfo
ResolveKeypadMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
ResolveKeypadMethod "getDeviceEnabled" o = Gtk.Widget.WidgetGetDeviceEnabledMethodInfo
ResolveKeypadMethod "getDeviceEvents" o = Gtk.Widget.WidgetGetDeviceEventsMethodInfo
ResolveKeypadMethod "getDirection" o = Gtk.Widget.WidgetGetDirectionMethodInfo
ResolveKeypadMethod "getDisplay" o = Gtk.Widget.WidgetGetDisplayMethodInfo
ResolveKeypadMethod "getDoubleBuffered" o = Gtk.Widget.WidgetGetDoubleBufferedMethodInfo
ResolveKeypadMethod "getEntry" o = KeypadGetEntryMethodInfo
ResolveKeypadMethod "getEvents" o = Gtk.Widget.WidgetGetEventsMethodInfo
ResolveKeypadMethod "getFocusChain" o = Gtk.Container.ContainerGetFocusChainMethodInfo
ResolveKeypadMethod "getFocusChild" o = Gtk.Container.ContainerGetFocusChildMethodInfo
ResolveKeypadMethod "getFocusHadjustment" o = Gtk.Container.ContainerGetFocusHadjustmentMethodInfo
ResolveKeypadMethod "getFocusOnClick" o = Gtk.Widget.WidgetGetFocusOnClickMethodInfo
ResolveKeypadMethod "getFocusVadjustment" o = Gtk.Container.ContainerGetFocusVadjustmentMethodInfo
ResolveKeypadMethod "getFontMap" o = Gtk.Widget.WidgetGetFontMapMethodInfo
ResolveKeypadMethod "getFontOptions" o = Gtk.Widget.WidgetGetFontOptionsMethodInfo
ResolveKeypadMethod "getFrameClock" o = Gtk.Widget.WidgetGetFrameClockMethodInfo
ResolveKeypadMethod "getHalign" o = Gtk.Widget.WidgetGetHalignMethodInfo
ResolveKeypadMethod "getHasTooltip" o = Gtk.Widget.WidgetGetHasTooltipMethodInfo
ResolveKeypadMethod "getHasWindow" o = Gtk.Widget.WidgetGetHasWindowMethodInfo
ResolveKeypadMethod "getHexpand" o = Gtk.Widget.WidgetGetHexpandMethodInfo
ResolveKeypadMethod "getHexpandSet" o = Gtk.Widget.WidgetGetHexpandSetMethodInfo
ResolveKeypadMethod "getInternalChild" o = Gtk.Buildable.BuildableGetInternalChildMethodInfo
ResolveKeypadMethod "getMapped" o = Gtk.Widget.WidgetGetMappedMethodInfo
ResolveKeypadMethod "getMarginBottom" o = Gtk.Widget.WidgetGetMarginBottomMethodInfo
ResolveKeypadMethod "getMarginEnd" o = Gtk.Widget.WidgetGetMarginEndMethodInfo
ResolveKeypadMethod "getMarginLeft" o = Gtk.Widget.WidgetGetMarginLeftMethodInfo
ResolveKeypadMethod "getMarginRight" o = Gtk.Widget.WidgetGetMarginRightMethodInfo
ResolveKeypadMethod "getMarginStart" o = Gtk.Widget.WidgetGetMarginStartMethodInfo
ResolveKeypadMethod "getMarginTop" o = Gtk.Widget.WidgetGetMarginTopMethodInfo
ResolveKeypadMethod "getModifierMask" o = Gtk.Widget.WidgetGetModifierMaskMethodInfo
ResolveKeypadMethod "getModifierStyle" o = Gtk.Widget.WidgetGetModifierStyleMethodInfo
ResolveKeypadMethod "getName" o = Gtk.Widget.WidgetGetNameMethodInfo
ResolveKeypadMethod "getNoShowAll" o = Gtk.Widget.WidgetGetNoShowAllMethodInfo
ResolveKeypadMethod "getOpacity" o = Gtk.Widget.WidgetGetOpacityMethodInfo
ResolveKeypadMethod "getOrientation" o = Gtk.Orientable.OrientableGetOrientationMethodInfo
ResolveKeypadMethod "getPangoContext" o = Gtk.Widget.WidgetGetPangoContextMethodInfo
ResolveKeypadMethod "getParent" o = Gtk.Widget.WidgetGetParentMethodInfo
ResolveKeypadMethod "getParentWindow" o = Gtk.Widget.WidgetGetParentWindowMethodInfo
ResolveKeypadMethod "getPath" o = Gtk.Widget.WidgetGetPathMethodInfo
ResolveKeypadMethod "getPathForChild" o = Gtk.Container.ContainerGetPathForChildMethodInfo
ResolveKeypadMethod "getPointer" o = Gtk.Widget.WidgetGetPointerMethodInfo
ResolveKeypadMethod "getPreferredHeight" o = Gtk.Widget.WidgetGetPreferredHeightMethodInfo
ResolveKeypadMethod "getPreferredHeightAndBaselineForWidth" o = Gtk.Widget.WidgetGetPreferredHeightAndBaselineForWidthMethodInfo
ResolveKeypadMethod "getPreferredHeightForWidth" o = Gtk.Widget.WidgetGetPreferredHeightForWidthMethodInfo
ResolveKeypadMethod "getPreferredSize" o = Gtk.Widget.WidgetGetPreferredSizeMethodInfo
ResolveKeypadMethod "getPreferredWidth" o = Gtk.Widget.WidgetGetPreferredWidthMethodInfo
ResolveKeypadMethod "getPreferredWidthForHeight" o = Gtk.Widget.WidgetGetPreferredWidthForHeightMethodInfo
ResolveKeypadMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo
ResolveKeypadMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo
ResolveKeypadMethod "getRealized" o = Gtk.Widget.WidgetGetRealizedMethodInfo
ResolveKeypadMethod "getReceivesDefault" o = Gtk.Widget.WidgetGetReceivesDefaultMethodInfo
ResolveKeypadMethod "getRequestMode" o = Gtk.Widget.WidgetGetRequestModeMethodInfo
ResolveKeypadMethod "getRequisition" o = Gtk.Widget.WidgetGetRequisitionMethodInfo
ResolveKeypadMethod "getResizeMode" o = Gtk.Container.ContainerGetResizeModeMethodInfo
ResolveKeypadMethod "getRootWindow" o = Gtk.Widget.WidgetGetRootWindowMethodInfo
ResolveKeypadMethod "getRowBaselinePosition" o = Gtk.Grid.GridGetRowBaselinePositionMethodInfo
ResolveKeypadMethod "getRowHomogeneous" o = Gtk.Grid.GridGetRowHomogeneousMethodInfo
ResolveKeypadMethod "getRowSpacing" o = Gtk.Grid.GridGetRowSpacingMethodInfo
ResolveKeypadMethod "getScaleFactor" o = Gtk.Widget.WidgetGetScaleFactorMethodInfo
ResolveKeypadMethod "getScreen" o = Gtk.Widget.WidgetGetScreenMethodInfo
ResolveKeypadMethod "getSensitive" o = Gtk.Widget.WidgetGetSensitiveMethodInfo
ResolveKeypadMethod "getSettings" o = Gtk.Widget.WidgetGetSettingsMethodInfo
ResolveKeypadMethod "getSizeRequest" o = Gtk.Widget.WidgetGetSizeRequestMethodInfo
ResolveKeypadMethod "getState" o = Gtk.Widget.WidgetGetStateMethodInfo
ResolveKeypadMethod "getStateFlags" o = Gtk.Widget.WidgetGetStateFlagsMethodInfo
ResolveKeypadMethod "getStyle" o = Gtk.Widget.WidgetGetStyleMethodInfo
ResolveKeypadMethod "getStyleContext" o = Gtk.Widget.WidgetGetStyleContextMethodInfo
ResolveKeypadMethod "getSupportMultidevice" o = Gtk.Widget.WidgetGetSupportMultideviceMethodInfo
ResolveKeypadMethod "getTemplateChild" o = Gtk.Widget.WidgetGetTemplateChildMethodInfo
ResolveKeypadMethod "getTooltipMarkup" o = Gtk.Widget.WidgetGetTooltipMarkupMethodInfo
ResolveKeypadMethod "getTooltipText" o = Gtk.Widget.WidgetGetTooltipTextMethodInfo
ResolveKeypadMethod "getTooltipWindow" o = Gtk.Widget.WidgetGetTooltipWindowMethodInfo
ResolveKeypadMethod "getToplevel" o = Gtk.Widget.WidgetGetToplevelMethodInfo
ResolveKeypadMethod "getValign" o = Gtk.Widget.WidgetGetValignMethodInfo
ResolveKeypadMethod "getValignWithBaseline" o = Gtk.Widget.WidgetGetValignWithBaselineMethodInfo
ResolveKeypadMethod "getVexpand" o = Gtk.Widget.WidgetGetVexpandMethodInfo
ResolveKeypadMethod "getVexpandSet" o = Gtk.Widget.WidgetGetVexpandSetMethodInfo
ResolveKeypadMethod "getVisible" o = Gtk.Widget.WidgetGetVisibleMethodInfo
ResolveKeypadMethod "getVisual" o = Gtk.Widget.WidgetGetVisualMethodInfo
ResolveKeypadMethod "getWindow" o = Gtk.Widget.WidgetGetWindowMethodInfo
ResolveKeypadMethod "setAccelPath" o = Gtk.Widget.WidgetSetAccelPathMethodInfo
ResolveKeypadMethod "setAllocation" o = Gtk.Widget.WidgetSetAllocationMethodInfo
ResolveKeypadMethod "setAppPaintable" o = Gtk.Widget.WidgetSetAppPaintableMethodInfo
ResolveKeypadMethod "setBaselineRow" o = Gtk.Grid.GridSetBaselineRowMethodInfo
ResolveKeypadMethod "setBorderWidth" o = Gtk.Container.ContainerSetBorderWidthMethodInfo
ResolveKeypadMethod "setBuildableProperty" o = Gtk.Buildable.BuildableSetBuildablePropertyMethodInfo
ResolveKeypadMethod "setCanDefault" o = Gtk.Widget.WidgetSetCanDefaultMethodInfo
ResolveKeypadMethod "setCanFocus" o = Gtk.Widget.WidgetSetCanFocusMethodInfo
ResolveKeypadMethod "setChildVisible" o = Gtk.Widget.WidgetSetChildVisibleMethodInfo
ResolveKeypadMethod "setClip" o = Gtk.Widget.WidgetSetClipMethodInfo
ResolveKeypadMethod "setColumnHomogeneous" o = Gtk.Grid.GridSetColumnHomogeneousMethodInfo
ResolveKeypadMethod "setColumnSpacing" o = Gtk.Grid.GridSetColumnSpacingMethodInfo
ResolveKeypadMethod "setCompositeName" o = Gtk.Widget.WidgetSetCompositeNameMethodInfo
ResolveKeypadMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
ResolveKeypadMethod "setDataFull" o = GObject.Object.ObjectSetDataFullMethodInfo
ResolveKeypadMethod "setDeviceEnabled" o = Gtk.Widget.WidgetSetDeviceEnabledMethodInfo
ResolveKeypadMethod "setDeviceEvents" o = Gtk.Widget.WidgetSetDeviceEventsMethodInfo
ResolveKeypadMethod "setDirection" o = Gtk.Widget.WidgetSetDirectionMethodInfo
ResolveKeypadMethod "setDoubleBuffered" o = Gtk.Widget.WidgetSetDoubleBufferedMethodInfo
ResolveKeypadMethod "setEntry" o = KeypadSetEntryMethodInfo
ResolveKeypadMethod "setEvents" o = Gtk.Widget.WidgetSetEventsMethodInfo
ResolveKeypadMethod "setFocusChain" o = Gtk.Container.ContainerSetFocusChainMethodInfo
ResolveKeypadMethod "setFocusChild" o = Gtk.Container.ContainerSetFocusChildMethodInfo
ResolveKeypadMethod "setFocusHadjustment" o = Gtk.Container.ContainerSetFocusHadjustmentMethodInfo
ResolveKeypadMethod "setFocusOnClick" o = Gtk.Widget.WidgetSetFocusOnClickMethodInfo
ResolveKeypadMethod "setFocusVadjustment" o = Gtk.Container.ContainerSetFocusVadjustmentMethodInfo
ResolveKeypadMethod "setFontMap" o = Gtk.Widget.WidgetSetFontMapMethodInfo
ResolveKeypadMethod "setFontOptions" o = Gtk.Widget.WidgetSetFontOptionsMethodInfo
ResolveKeypadMethod "setHalign" o = Gtk.Widget.WidgetSetHalignMethodInfo
ResolveKeypadMethod "setHasTooltip" o = Gtk.Widget.WidgetSetHasTooltipMethodInfo
ResolveKeypadMethod "setHasWindow" o = Gtk.Widget.WidgetSetHasWindowMethodInfo
ResolveKeypadMethod "setHexpand" o = Gtk.Widget.WidgetSetHexpandMethodInfo
ResolveKeypadMethod "setHexpandSet" o = Gtk.Widget.WidgetSetHexpandSetMethodInfo
ResolveKeypadMethod "setLeftAction" o = KeypadSetLeftActionMethodInfo
ResolveKeypadMethod "setMapped" o = Gtk.Widget.WidgetSetMappedMethodInfo
ResolveKeypadMethod "setMarginBottom" o = Gtk.Widget.WidgetSetMarginBottomMethodInfo
ResolveKeypadMethod "setMarginEnd" o = Gtk.Widget.WidgetSetMarginEndMethodInfo
ResolveKeypadMethod "setMarginLeft" o = Gtk.Widget.WidgetSetMarginLeftMethodInfo
ResolveKeypadMethod "setMarginRight" o = Gtk.Widget.WidgetSetMarginRightMethodInfo
ResolveKeypadMethod "setMarginStart" o = Gtk.Widget.WidgetSetMarginStartMethodInfo
ResolveKeypadMethod "setMarginTop" o = Gtk.Widget.WidgetSetMarginTopMethodInfo
ResolveKeypadMethod "setName" o = Gtk.Widget.WidgetSetNameMethodInfo
ResolveKeypadMethod "setNoShowAll" o = Gtk.Widget.WidgetSetNoShowAllMethodInfo
ResolveKeypadMethod "setOpacity" o = Gtk.Widget.WidgetSetOpacityMethodInfo
ResolveKeypadMethod "setOrientation" o = Gtk.Orientable.OrientableSetOrientationMethodInfo
ResolveKeypadMethod "setParent" o = Gtk.Widget.WidgetSetParentMethodInfo
ResolveKeypadMethod "setParentWindow" o = Gtk.Widget.WidgetSetParentWindowMethodInfo
ResolveKeypadMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
ResolveKeypadMethod "setRealized" o = Gtk.Widget.WidgetSetRealizedMethodInfo
ResolveKeypadMethod "setReallocateRedraws" o = Gtk.Container.ContainerSetReallocateRedrawsMethodInfo
ResolveKeypadMethod "setReceivesDefault" o = Gtk.Widget.WidgetSetReceivesDefaultMethodInfo
ResolveKeypadMethod "setRedrawOnAllocate" o = Gtk.Widget.WidgetSetRedrawOnAllocateMethodInfo
ResolveKeypadMethod "setResizeMode" o = Gtk.Container.ContainerSetResizeModeMethodInfo
ResolveKeypadMethod "setRightAction" o = KeypadSetRightActionMethodInfo
ResolveKeypadMethod "setRowBaselinePosition" o = Gtk.Grid.GridSetRowBaselinePositionMethodInfo
ResolveKeypadMethod "setRowHomogeneous" o = Gtk.Grid.GridSetRowHomogeneousMethodInfo
ResolveKeypadMethod "setRowSpacing" o = Gtk.Grid.GridSetRowSpacingMethodInfo
ResolveKeypadMethod "setSensitive" o = Gtk.Widget.WidgetSetSensitiveMethodInfo
ResolveKeypadMethod "setSizeRequest" o = Gtk.Widget.WidgetSetSizeRequestMethodInfo
ResolveKeypadMethod "setState" o = Gtk.Widget.WidgetSetStateMethodInfo
ResolveKeypadMethod "setStateFlags" o = Gtk.Widget.WidgetSetStateFlagsMethodInfo
ResolveKeypadMethod "setStyle" o = Gtk.Widget.WidgetSetStyleMethodInfo
ResolveKeypadMethod "setSupportMultidevice" o = Gtk.Widget.WidgetSetSupportMultideviceMethodInfo
ResolveKeypadMethod "setTooltipMarkup" o = Gtk.Widget.WidgetSetTooltipMarkupMethodInfo
ResolveKeypadMethod "setTooltipText" o = Gtk.Widget.WidgetSetTooltipTextMethodInfo
ResolveKeypadMethod "setTooltipWindow" o = Gtk.Widget.WidgetSetTooltipWindowMethodInfo
ResolveKeypadMethod "setValign" o = Gtk.Widget.WidgetSetValignMethodInfo
ResolveKeypadMethod "setVexpand" o = Gtk.Widget.WidgetSetVexpandMethodInfo
ResolveKeypadMethod "setVexpandSet" o = Gtk.Widget.WidgetSetVexpandSetMethodInfo
ResolveKeypadMethod "setVisible" o = Gtk.Widget.WidgetSetVisibleMethodInfo
ResolveKeypadMethod "setVisual" o = Gtk.Widget.WidgetSetVisualMethodInfo
ResolveKeypadMethod "setWindow" o = Gtk.Widget.WidgetSetWindowMethodInfo
ResolveKeypadMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveKeypadMethod t Keypad, O.MethodInfo info Keypad p) => OL.IsLabel t (Keypad -> p) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.overloadedMethod @info
#else
fromLabel _ = O.overloadedMethod @info
#endif
#endif
getKeypadEntry :: (MonadIO m, IsKeypad o) => o -> m Gtk.Widget.Widget
getKeypadEntry :: o -> m Widget
getKeypadEntry o
obj = IO Widget -> m Widget
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Widget -> m Widget) -> IO Widget -> m Widget
forall a b. (a -> b) -> a -> b
$ Text -> IO (Maybe Widget) -> IO Widget
forall a. HasCallStack => Text -> IO (Maybe a) -> IO a
checkUnexpectedNothing Text
"getKeypadEntry" (IO (Maybe Widget) -> IO Widget) -> IO (Maybe Widget) -> IO Widget
forall a b. (a -> b) -> a -> b
$ o -> String -> (ManagedPtr Widget -> Widget) -> IO (Maybe Widget)
forall a b.
(GObject a, GObject b) =>
a -> String -> (ManagedPtr b -> b) -> IO (Maybe b)
B.Properties.getObjectPropertyObject o
obj String
"entry" ManagedPtr Widget -> Widget
Gtk.Widget.Widget
setKeypadEntry :: (MonadIO m, IsKeypad o, Gtk.Widget.IsWidget a) => o -> a -> m ()
setKeypadEntry :: o -> a -> m ()
setKeypadEntry o
obj a
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Maybe a -> IO ()
forall a b.
(GObject a, GObject b) =>
a -> String -> Maybe b -> IO ()
B.Properties.setObjectPropertyObject o
obj String
"entry" (a -> Maybe a
forall a. a -> Maybe a
Just a
val)
constructKeypadEntry :: (IsKeypad o, MIO.MonadIO m, Gtk.Widget.IsWidget a) => a -> m (GValueConstruct o)
constructKeypadEntry :: a -> m (GValueConstruct o)
constructKeypadEntry a
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Maybe a -> IO (GValueConstruct o)
forall a o.
GObject a =>
String -> Maybe a -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyObject String
"entry" (a -> Maybe a
forall a. a -> Maybe a
P.Just a
val)
clearKeypadEntry :: (MonadIO m, IsKeypad o) => o -> m ()
clearKeypadEntry :: o -> m ()
clearKeypadEntry o
obj = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Maybe Widget -> IO ()
forall a b.
(GObject a, GObject b) =>
a -> String -> Maybe b -> IO ()
B.Properties.setObjectPropertyObject o
obj String
"entry" (Maybe Widget
forall a. Maybe a
Nothing :: Maybe Gtk.Widget.Widget)
#if defined(ENABLE_OVERLOADING)
data KeypadEntryPropertyInfo
instance AttrInfo KeypadEntryPropertyInfo where
type AttrAllowedOps KeypadEntryPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint KeypadEntryPropertyInfo = IsKeypad
type AttrSetTypeConstraint KeypadEntryPropertyInfo = Gtk.Widget.IsWidget
type AttrTransferTypeConstraint KeypadEntryPropertyInfo = Gtk.Widget.IsWidget
type AttrTransferType KeypadEntryPropertyInfo = Gtk.Widget.Widget
type AttrGetType KeypadEntryPropertyInfo = Gtk.Widget.Widget
type AttrLabel KeypadEntryPropertyInfo = "entry"
type AttrOrigin KeypadEntryPropertyInfo = Keypad
attrGet = getKeypadEntry
attrSet = setKeypadEntry
attrTransfer _ v = do
unsafeCastTo Gtk.Widget.Widget v
attrConstruct = constructKeypadEntry
attrClear = clearKeypadEntry
#endif
setKeypadLeftAction :: (MonadIO m, IsKeypad o, Gtk.Widget.IsWidget a) => o -> a -> m ()
setKeypadLeftAction :: o -> a -> m ()
setKeypadLeftAction o
obj a
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Maybe a -> IO ()
forall a b.
(GObject a, GObject b) =>
a -> String -> Maybe b -> IO ()
B.Properties.setObjectPropertyObject o
obj String
"left-action" (a -> Maybe a
forall a. a -> Maybe a
Just a
val)
constructKeypadLeftAction :: (IsKeypad o, MIO.MonadIO m, Gtk.Widget.IsWidget a) => a -> m (GValueConstruct o)
constructKeypadLeftAction :: a -> m (GValueConstruct o)
constructKeypadLeftAction a
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Maybe a -> IO (GValueConstruct o)
forall a o.
GObject a =>
String -> Maybe a -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyObject String
"left-action" (a -> Maybe a
forall a. a -> Maybe a
P.Just a
val)
#if defined(ENABLE_OVERLOADING)
data KeypadLeftActionPropertyInfo
instance AttrInfo KeypadLeftActionPropertyInfo where
type AttrAllowedOps KeypadLeftActionPropertyInfo = '[ 'AttrSet, 'AttrConstruct]
type AttrBaseTypeConstraint KeypadLeftActionPropertyInfo = IsKeypad
type AttrSetTypeConstraint KeypadLeftActionPropertyInfo = Gtk.Widget.IsWidget
type AttrTransferTypeConstraint KeypadLeftActionPropertyInfo = Gtk.Widget.IsWidget
type AttrTransferType KeypadLeftActionPropertyInfo = Gtk.Widget.Widget
type AttrGetType KeypadLeftActionPropertyInfo = ()
type AttrLabel KeypadLeftActionPropertyInfo = "left-action"
type AttrOrigin KeypadLeftActionPropertyInfo = Keypad
attrGet = undefined
attrSet = setKeypadLeftAction
attrTransfer _ v = do
unsafeCastTo Gtk.Widget.Widget v
attrConstruct = constructKeypadLeftAction
attrClear = undefined
#endif
getKeypadOnlyDigits :: (MonadIO m, IsKeypad o) => o -> m Bool
getKeypadOnlyDigits :: o -> m Bool
getKeypadOnlyDigits o
obj = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj String
"only-digits"
setKeypadOnlyDigits :: (MonadIO m, IsKeypad o) => o -> Bool -> m ()
setKeypadOnlyDigits :: o -> Bool -> m ()
setKeypadOnlyDigits o
obj Bool
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj String
"only-digits" Bool
val
constructKeypadOnlyDigits :: (IsKeypad o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructKeypadOnlyDigits :: Bool -> m (GValueConstruct o)
constructKeypadOnlyDigits Bool
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool String
"only-digits" Bool
val
#if defined(ENABLE_OVERLOADING)
data KeypadOnlyDigitsPropertyInfo
instance AttrInfo KeypadOnlyDigitsPropertyInfo where
type AttrAllowedOps KeypadOnlyDigitsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint KeypadOnlyDigitsPropertyInfo = IsKeypad
type AttrSetTypeConstraint KeypadOnlyDigitsPropertyInfo = (~) Bool
type AttrTransferTypeConstraint KeypadOnlyDigitsPropertyInfo = (~) Bool
type AttrTransferType KeypadOnlyDigitsPropertyInfo = Bool
type AttrGetType KeypadOnlyDigitsPropertyInfo = Bool
type AttrLabel KeypadOnlyDigitsPropertyInfo = "only-digits"
type AttrOrigin KeypadOnlyDigitsPropertyInfo = Keypad
attrGet = getKeypadOnlyDigits
attrSet = setKeypadOnlyDigits
attrTransfer _ v = do
return v
attrConstruct = constructKeypadOnlyDigits
attrClear = undefined
#endif
setKeypadRightAction :: (MonadIO m, IsKeypad o, Gtk.Widget.IsWidget a) => o -> a -> m ()
setKeypadRightAction :: o -> a -> m ()
setKeypadRightAction o
obj a
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Maybe a -> IO ()
forall a b.
(GObject a, GObject b) =>
a -> String -> Maybe b -> IO ()
B.Properties.setObjectPropertyObject o
obj String
"right-action" (a -> Maybe a
forall a. a -> Maybe a
Just a
val)
constructKeypadRightAction :: (IsKeypad o, MIO.MonadIO m, Gtk.Widget.IsWidget a) => a -> m (GValueConstruct o)
constructKeypadRightAction :: a -> m (GValueConstruct o)
constructKeypadRightAction a
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Maybe a -> IO (GValueConstruct o)
forall a o.
GObject a =>
String -> Maybe a -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyObject String
"right-action" (a -> Maybe a
forall a. a -> Maybe a
P.Just a
val)
#if defined(ENABLE_OVERLOADING)
data KeypadRightActionPropertyInfo
instance AttrInfo KeypadRightActionPropertyInfo where
type AttrAllowedOps KeypadRightActionPropertyInfo = '[ 'AttrSet, 'AttrConstruct]
type AttrBaseTypeConstraint KeypadRightActionPropertyInfo = IsKeypad
type AttrSetTypeConstraint KeypadRightActionPropertyInfo = Gtk.Widget.IsWidget
type AttrTransferTypeConstraint KeypadRightActionPropertyInfo = Gtk.Widget.IsWidget
type AttrTransferType KeypadRightActionPropertyInfo = Gtk.Widget.Widget
type AttrGetType KeypadRightActionPropertyInfo = ()
type AttrLabel KeypadRightActionPropertyInfo = "right-action"
type AttrOrigin KeypadRightActionPropertyInfo = Keypad
attrGet = undefined
attrSet = setKeypadRightAction
attrTransfer _ v = do
unsafeCastTo Gtk.Widget.Widget v
attrConstruct = constructKeypadRightAction
attrClear = undefined
#endif
getKeypadShowSymbols :: (MonadIO m, IsKeypad o) => o -> m Bool
getKeypadShowSymbols :: o -> m Bool
getKeypadShowSymbols o
obj = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj String
"show-symbols"
setKeypadShowSymbols :: (MonadIO m, IsKeypad o) => o -> Bool -> m ()
setKeypadShowSymbols :: o -> Bool -> m ()
setKeypadShowSymbols o
obj Bool
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj String
"show-symbols" Bool
val
constructKeypadShowSymbols :: (IsKeypad o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructKeypadShowSymbols :: Bool -> m (GValueConstruct o)
constructKeypadShowSymbols Bool
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool String
"show-symbols" Bool
val
#if defined(ENABLE_OVERLOADING)
data KeypadShowSymbolsPropertyInfo
instance AttrInfo KeypadShowSymbolsPropertyInfo where
type AttrAllowedOps KeypadShowSymbolsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint KeypadShowSymbolsPropertyInfo = IsKeypad
type AttrSetTypeConstraint KeypadShowSymbolsPropertyInfo = (~) Bool
type AttrTransferTypeConstraint KeypadShowSymbolsPropertyInfo = (~) Bool
type AttrTransferType KeypadShowSymbolsPropertyInfo = Bool
type AttrGetType KeypadShowSymbolsPropertyInfo = Bool
type AttrLabel KeypadShowSymbolsPropertyInfo = "show-symbols"
type AttrOrigin KeypadShowSymbolsPropertyInfo = Keypad
attrGet = getKeypadShowSymbols
attrSet = setKeypadShowSymbols
attrTransfer _ v = do
return v
attrConstruct = constructKeypadShowSymbols
attrClear = undefined
#endif
#if defined(ENABLE_OVERLOADING)
instance O.HasAttributeList Keypad
type instance O.AttributeList Keypad = KeypadAttributeList
type KeypadAttributeList = ('[ '("appPaintable", Gtk.Widget.WidgetAppPaintablePropertyInfo), '("baselineRow", Gtk.Grid.GridBaselineRowPropertyInfo), '("borderWidth", Gtk.Container.ContainerBorderWidthPropertyInfo), '("canDefault", Gtk.Widget.WidgetCanDefaultPropertyInfo), '("canFocus", Gtk.Widget.WidgetCanFocusPropertyInfo), '("child", Gtk.Container.ContainerChildPropertyInfo), '("columnHomogeneous", Gtk.Grid.GridColumnHomogeneousPropertyInfo), '("columnSpacing", Gtk.Grid.GridColumnSpacingPropertyInfo), '("compositeChild", Gtk.Widget.WidgetCompositeChildPropertyInfo), '("doubleBuffered", Gtk.Widget.WidgetDoubleBufferedPropertyInfo), '("entry", KeypadEntryPropertyInfo), '("events", Gtk.Widget.WidgetEventsPropertyInfo), '("expand", Gtk.Widget.WidgetExpandPropertyInfo), '("focusOnClick", Gtk.Widget.WidgetFocusOnClickPropertyInfo), '("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), '("isFocus", Gtk.Widget.WidgetIsFocusPropertyInfo), '("leftAction", KeypadLeftActionPropertyInfo), '("margin", Gtk.Widget.WidgetMarginPropertyInfo), '("marginBottom", Gtk.Widget.WidgetMarginBottomPropertyInfo), '("marginEnd", Gtk.Widget.WidgetMarginEndPropertyInfo), '("marginLeft", Gtk.Widget.WidgetMarginLeftPropertyInfo), '("marginRight", Gtk.Widget.WidgetMarginRightPropertyInfo), '("marginStart", Gtk.Widget.WidgetMarginStartPropertyInfo), '("marginTop", Gtk.Widget.WidgetMarginTopPropertyInfo), '("name", Gtk.Widget.WidgetNamePropertyInfo), '("noShowAll", Gtk.Widget.WidgetNoShowAllPropertyInfo), '("onlyDigits", KeypadOnlyDigitsPropertyInfo), '("opacity", Gtk.Widget.WidgetOpacityPropertyInfo), '("orientation", Gtk.Orientable.OrientableOrientationPropertyInfo), '("parent", Gtk.Widget.WidgetParentPropertyInfo), '("receivesDefault", Gtk.Widget.WidgetReceivesDefaultPropertyInfo), '("resizeMode", Gtk.Container.ContainerResizeModePropertyInfo), '("rightAction", KeypadRightActionPropertyInfo), '("rowHomogeneous", Gtk.Grid.GridRowHomogeneousPropertyInfo), '("rowSpacing", Gtk.Grid.GridRowSpacingPropertyInfo), '("scaleFactor", Gtk.Widget.WidgetScaleFactorPropertyInfo), '("sensitive", Gtk.Widget.WidgetSensitivePropertyInfo), '("showSymbols", KeypadShowSymbolsPropertyInfo), '("style", Gtk.Widget.WidgetStylePropertyInfo), '("tooltipMarkup", Gtk.Widget.WidgetTooltipMarkupPropertyInfo), '("tooltipText", Gtk.Widget.WidgetTooltipTextPropertyInfo), '("valign", Gtk.Widget.WidgetValignPropertyInfo), '("vexpand", Gtk.Widget.WidgetVexpandPropertyInfo), '("vexpandSet", Gtk.Widget.WidgetVexpandSetPropertyInfo), '("visible", Gtk.Widget.WidgetVisiblePropertyInfo), '("widthRequest", Gtk.Widget.WidgetWidthRequestPropertyInfo), '("window", Gtk.Widget.WidgetWindowPropertyInfo)] :: [(Symbol, *)])
#endif
#if defined(ENABLE_OVERLOADING)
keypadEntry :: AttrLabelProxy "entry"
keypadEntry = AttrLabelProxy
keypadLeftAction :: AttrLabelProxy "leftAction"
keypadLeftAction = AttrLabelProxy
keypadOnlyDigits :: AttrLabelProxy "onlyDigits"
keypadOnlyDigits = AttrLabelProxy
keypadRightAction :: AttrLabelProxy "rightAction"
keypadRightAction = AttrLabelProxy
#endif
#if defined(ENABLE_OVERLOADING)
type instance O.SignalList Keypad = KeypadSignalList
type KeypadSignalList = ('[ '("accelClosuresChanged", Gtk.Widget.WidgetAccelClosuresChangedSignalInfo), '("add", Gtk.Container.ContainerAddSignalInfo), '("buttonPressEvent", Gtk.Widget.WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", Gtk.Widget.WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", Gtk.Widget.WidgetCanActivateAccelSignalInfo), '("checkResize", Gtk.Container.ContainerCheckResizeSignalInfo), '("childNotify", Gtk.Widget.WidgetChildNotifySignalInfo), '("compositedChanged", Gtk.Widget.WidgetCompositedChangedSignalInfo), '("configureEvent", Gtk.Widget.WidgetConfigureEventSignalInfo), '("damageEvent", Gtk.Widget.WidgetDamageEventSignalInfo), '("deleteEvent", Gtk.Widget.WidgetDeleteEventSignalInfo), '("destroy", Gtk.Widget.WidgetDestroySignalInfo), '("destroyEvent", Gtk.Widget.WidgetDestroyEventSignalInfo), '("directionChanged", Gtk.Widget.WidgetDirectionChangedSignalInfo), '("dragBegin", Gtk.Widget.WidgetDragBeginSignalInfo), '("dragDataDelete", Gtk.Widget.WidgetDragDataDeleteSignalInfo), '("dragDataGet", Gtk.Widget.WidgetDragDataGetSignalInfo), '("dragDataReceived", Gtk.Widget.WidgetDragDataReceivedSignalInfo), '("dragDrop", Gtk.Widget.WidgetDragDropSignalInfo), '("dragEnd", Gtk.Widget.WidgetDragEndSignalInfo), '("dragFailed", Gtk.Widget.WidgetDragFailedSignalInfo), '("dragLeave", Gtk.Widget.WidgetDragLeaveSignalInfo), '("dragMotion", Gtk.Widget.WidgetDragMotionSignalInfo), '("draw", Gtk.Widget.WidgetDrawSignalInfo), '("enterNotifyEvent", Gtk.Widget.WidgetEnterNotifyEventSignalInfo), '("event", Gtk.Widget.WidgetEventSignalInfo), '("eventAfter", Gtk.Widget.WidgetEventAfterSignalInfo), '("focus", Gtk.Widget.WidgetFocusSignalInfo), '("focusInEvent", Gtk.Widget.WidgetFocusInEventSignalInfo), '("focusOutEvent", Gtk.Widget.WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", Gtk.Widget.WidgetGrabBrokenEventSignalInfo), '("grabFocus", Gtk.Widget.WidgetGrabFocusSignalInfo), '("grabNotify", Gtk.Widget.WidgetGrabNotifySignalInfo), '("hide", Gtk.Widget.WidgetHideSignalInfo), '("hierarchyChanged", Gtk.Widget.WidgetHierarchyChangedSignalInfo), '("keyPressEvent", Gtk.Widget.WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", Gtk.Widget.WidgetKeyReleaseEventSignalInfo), '("keynavFailed", Gtk.Widget.WidgetKeynavFailedSignalInfo), '("leaveNotifyEvent", Gtk.Widget.WidgetLeaveNotifyEventSignalInfo), '("map", Gtk.Widget.WidgetMapSignalInfo), '("mapEvent", Gtk.Widget.WidgetMapEventSignalInfo), '("mnemonicActivate", Gtk.Widget.WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", Gtk.Widget.WidgetMotionNotifyEventSignalInfo), '("moveFocus", Gtk.Widget.WidgetMoveFocusSignalInfo), '("notify", GObject.Object.ObjectNotifySignalInfo), '("parentSet", Gtk.Widget.WidgetParentSetSignalInfo), '("popupMenu", Gtk.Widget.WidgetPopupMenuSignalInfo), '("propertyNotifyEvent", Gtk.Widget.WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", Gtk.Widget.WidgetProximityInEventSignalInfo), '("proximityOutEvent", Gtk.Widget.WidgetProximityOutEventSignalInfo), '("queryTooltip", Gtk.Widget.WidgetQueryTooltipSignalInfo), '("realize", Gtk.Widget.WidgetRealizeSignalInfo), '("remove", Gtk.Container.ContainerRemoveSignalInfo), '("screenChanged", Gtk.Widget.WidgetScreenChangedSignalInfo), '("scrollEvent", Gtk.Widget.WidgetScrollEventSignalInfo), '("selectionClearEvent", Gtk.Widget.WidgetSelectionClearEventSignalInfo), '("selectionGet", Gtk.Widget.WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", Gtk.Widget.WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", Gtk.Widget.WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", Gtk.Widget.WidgetSelectionRequestEventSignalInfo), '("setFocusChild", Gtk.Container.ContainerSetFocusChildSignalInfo), '("show", Gtk.Widget.WidgetShowSignalInfo), '("showHelp", Gtk.Widget.WidgetShowHelpSignalInfo), '("sizeAllocate", Gtk.Widget.WidgetSizeAllocateSignalInfo), '("stateChanged", Gtk.Widget.WidgetStateChangedSignalInfo), '("stateFlagsChanged", Gtk.Widget.WidgetStateFlagsChangedSignalInfo), '("styleSet", Gtk.Widget.WidgetStyleSetSignalInfo), '("styleUpdated", Gtk.Widget.WidgetStyleUpdatedSignalInfo), '("touchEvent", Gtk.Widget.WidgetTouchEventSignalInfo), '("unmap", Gtk.Widget.WidgetUnmapSignalInfo), '("unmapEvent", Gtk.Widget.WidgetUnmapEventSignalInfo), '("unrealize", Gtk.Widget.WidgetUnrealizeSignalInfo), '("visibilityNotifyEvent", Gtk.Widget.WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", Gtk.Widget.WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)])
#endif
foreign import ccall "hdy_keypad_new" hdy_keypad_new ::
CInt ->
CInt ->
IO (Ptr Keypad)
keypadNew ::
(B.CallStack.HasCallStack, MonadIO m) =>
Bool
-> Bool
-> m Keypad
keypadNew :: Bool -> Bool -> m Keypad
keypadNew Bool
onlyDigits Bool
showSymbols = IO Keypad -> m Keypad
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Keypad -> m Keypad) -> IO Keypad -> m Keypad
forall a b. (a -> b) -> a -> b
$ do
let onlyDigits' :: CInt
onlyDigits' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
fromEnum) Bool
onlyDigits
let showSymbols' :: CInt
showSymbols' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
fromEnum) Bool
showSymbols
Ptr Keypad
result <- CInt -> CInt -> IO (Ptr Keypad)
hdy_keypad_new CInt
onlyDigits' CInt
showSymbols'
Text -> Ptr Keypad -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"keypadNew" Ptr Keypad
result
Keypad
result' <- ((ManagedPtr Keypad -> Keypad) -> Ptr Keypad -> IO Keypad
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr Keypad -> Keypad
Keypad) Ptr Keypad
result
Keypad -> IO Keypad
forall (m :: * -> *) a. Monad m => a -> m a
return Keypad
result'
#if defined(ENABLE_OVERLOADING)
#endif
foreign import ccall "hdy_keypad_get_entry" hdy_keypad_get_entry ::
Ptr Keypad ->
IO (Ptr Gtk.Widget.Widget)
keypadGetEntry ::
(B.CallStack.HasCallStack, MonadIO m, IsKeypad a) =>
a
-> m Gtk.Widget.Widget
keypadGetEntry :: a -> m Widget
keypadGetEntry a
self = IO Widget -> m Widget
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Widget -> m Widget) -> IO Widget -> m Widget
forall a b. (a -> b) -> a -> b
$ do
Ptr Keypad
self' <- a -> IO (Ptr Keypad)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr Widget
result <- Ptr Keypad -> IO (Ptr Widget)
hdy_keypad_get_entry Ptr Keypad
self'
Text -> Ptr Widget -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"keypadGetEntry" Ptr Widget
result
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
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
Widget -> IO Widget
forall (m :: * -> *) a. Monad m => a -> m a
return Widget
result'
#if defined(ENABLE_OVERLOADING)
data KeypadGetEntryMethodInfo
instance (signature ~ (m Gtk.Widget.Widget), MonadIO m, IsKeypad a) => O.MethodInfo KeypadGetEntryMethodInfo a signature where
overloadedMethod = keypadGetEntry
#endif
foreign import ccall "hdy_keypad_set_entry" hdy_keypad_set_entry ::
Ptr Keypad ->
Ptr Gtk.Entry.Entry ->
IO ()
keypadSetEntry ::
(B.CallStack.HasCallStack, MonadIO m, IsKeypad a, Gtk.Entry.IsEntry b) =>
a
-> b
-> m ()
keypadSetEntry :: a -> b -> m ()
keypadSetEntry a
self b
entry = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Keypad
self' <- a -> IO (Ptr Keypad)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr Entry
entry' <- b -> IO (Ptr Entry)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
entry
Ptr Keypad -> Ptr Entry -> IO ()
hdy_keypad_set_entry Ptr Keypad
self' Ptr Entry
entry'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
entry
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data KeypadSetEntryMethodInfo
instance (signature ~ (b -> m ()), MonadIO m, IsKeypad a, Gtk.Entry.IsEntry b) => O.MethodInfo KeypadSetEntryMethodInfo a signature where
overloadedMethod = keypadSetEntry
#endif
foreign import ccall "hdy_keypad_set_left_action" hdy_keypad_set_left_action ::
Ptr Keypad ->
Ptr Gtk.Widget.Widget ->
IO ()
keypadSetLeftAction ::
(B.CallStack.HasCallStack, MonadIO m, IsKeypad a, Gtk.Widget.IsWidget b) =>
a
-> b
-> m ()
keypadSetLeftAction :: a -> b -> m ()
keypadSetLeftAction a
self b
widget = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Keypad
self' <- a -> IO (Ptr Keypad)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr Widget
widget' <- b -> IO (Ptr Widget)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
widget
Ptr Keypad -> Ptr Widget -> IO ()
hdy_keypad_set_left_action Ptr Keypad
self' Ptr Widget
widget'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
widget
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data KeypadSetLeftActionMethodInfo
instance (signature ~ (b -> m ()), MonadIO m, IsKeypad a, Gtk.Widget.IsWidget b) => O.MethodInfo KeypadSetLeftActionMethodInfo a signature where
overloadedMethod = keypadSetLeftAction
#endif
foreign import ccall "hdy_keypad_set_right_action" hdy_keypad_set_right_action ::
Ptr Keypad ->
Ptr Gtk.Widget.Widget ->
IO ()
keypadSetRightAction ::
(B.CallStack.HasCallStack, MonadIO m, IsKeypad a, Gtk.Widget.IsWidget b) =>
a
-> b
-> m ()
keypadSetRightAction :: a -> b -> m ()
keypadSetRightAction a
self b
widget = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Keypad
self' <- a -> IO (Ptr Keypad)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr Widget
widget' <- b -> IO (Ptr Widget)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
widget
Ptr Keypad -> Ptr Widget -> IO ()
hdy_keypad_set_right_action Ptr Keypad
self' Ptr Widget
widget'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
widget
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data KeypadSetRightActionMethodInfo
instance (signature ~ (b -> m ()), MonadIO m, IsKeypad a, Gtk.Widget.IsWidget b) => O.MethodInfo KeypadSetRightActionMethodInfo a signature where
overloadedMethod = keypadSetRightAction
#endif
foreign import ccall "hdy_keypad_show_symbols" hdy_keypad_show_symbols ::
Ptr Keypad ->
CInt ->
IO ()
keypadShowSymbols ::
(B.CallStack.HasCallStack, MonadIO m, IsKeypad a) =>
a
-> Bool
-> m ()
keypadShowSymbols :: a -> Bool -> m ()
keypadShowSymbols a
self Bool
visible = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Keypad
self' <- a -> IO (Ptr Keypad)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
let visible' :: CInt
visible' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
fromEnum) Bool
visible
Ptr Keypad -> CInt -> IO ()
hdy_keypad_show_symbols Ptr Keypad
self' CInt
visible'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data KeypadShowSymbolsMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsKeypad a) => O.MethodInfo KeypadShowSymbolsMethodInfo a signature where
overloadedMethod = keypadShowSymbols
#endif