{-# LANGUAGE ImplicitParams, RankNTypes, TypeApplications #-}
#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif
module GI.Gtk.Objects.PasswordEntry
(
PasswordEntry(..) ,
IsPasswordEntry ,
toPasswordEntry ,
#if defined(ENABLE_OVERLOADING)
ResolvePasswordEntryMethod ,
#endif
#if defined(ENABLE_OVERLOADING)
PasswordEntryGetExtraMenuMethodInfo ,
#endif
passwordEntryGetExtraMenu ,
#if defined(ENABLE_OVERLOADING)
PasswordEntryGetShowPeekIconMethodInfo ,
#endif
passwordEntryGetShowPeekIcon ,
passwordEntryNew ,
#if defined(ENABLE_OVERLOADING)
PasswordEntrySetExtraMenuMethodInfo ,
#endif
passwordEntrySetExtraMenu ,
#if defined(ENABLE_OVERLOADING)
PasswordEntrySetShowPeekIconMethodInfo ,
#endif
passwordEntrySetShowPeekIcon ,
#if defined(ENABLE_OVERLOADING)
PasswordEntryActivatesDefaultPropertyInfo,
#endif
constructPasswordEntryActivatesDefault ,
getPasswordEntryActivatesDefault ,
#if defined(ENABLE_OVERLOADING)
passwordEntryActivatesDefault ,
#endif
setPasswordEntryActivatesDefault ,
#if defined(ENABLE_OVERLOADING)
PasswordEntryExtraMenuPropertyInfo ,
#endif
clearPasswordEntryExtraMenu ,
constructPasswordEntryExtraMenu ,
getPasswordEntryExtraMenu ,
#if defined(ENABLE_OVERLOADING)
passwordEntryExtraMenu ,
#endif
setPasswordEntryExtraMenu ,
#if defined(ENABLE_OVERLOADING)
PasswordEntryPlaceholderTextPropertyInfo,
#endif
clearPasswordEntryPlaceholderText ,
constructPasswordEntryPlaceholderText ,
getPasswordEntryPlaceholderText ,
#if defined(ENABLE_OVERLOADING)
passwordEntryPlaceholderText ,
#endif
setPasswordEntryPlaceholderText ,
#if defined(ENABLE_OVERLOADING)
PasswordEntryShowPeekIconPropertyInfo ,
#endif
constructPasswordEntryShowPeekIcon ,
getPasswordEntryShowPeekIcon ,
#if defined(ENABLE_OVERLOADING)
passwordEntryShowPeekIcon ,
#endif
setPasswordEntryShowPeekIcon ,
PasswordEntryActivateCallback ,
#if defined(ENABLE_OVERLOADING)
PasswordEntryActivateSignalInfo ,
#endif
afterPasswordEntryActivate ,
onPasswordEntryActivate ,
) 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 qualified GI.Gio.Objects.MenuModel as Gio.MenuModel
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 PasswordEntry = PasswordEntry (SP.ManagedPtr PasswordEntry)
deriving (PasswordEntry -> PasswordEntry -> Bool
(PasswordEntry -> PasswordEntry -> Bool)
-> (PasswordEntry -> PasswordEntry -> Bool) -> Eq PasswordEntry
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: PasswordEntry -> PasswordEntry -> Bool
== :: PasswordEntry -> PasswordEntry -> Bool
$c/= :: PasswordEntry -> PasswordEntry -> Bool
/= :: PasswordEntry -> PasswordEntry -> Bool
Eq)
instance SP.ManagedPtrNewtype PasswordEntry where
toManagedPtr :: PasswordEntry -> ManagedPtr PasswordEntry
toManagedPtr (PasswordEntry ManagedPtr PasswordEntry
p) = ManagedPtr PasswordEntry
p
foreign import ccall "gtk_password_entry_get_type"
c_gtk_password_entry_get_type :: IO B.Types.GType
instance B.Types.TypedObject PasswordEntry where
glibType :: IO GType
glibType = IO GType
c_gtk_password_entry_get_type
instance B.Types.GObject PasswordEntry
class (SP.GObject o, O.IsDescendantOf PasswordEntry o) => IsPasswordEntry o
instance (SP.GObject o, O.IsDescendantOf PasswordEntry o) => IsPasswordEntry o
instance O.HasParentTypes PasswordEntry
type instance O.ParentTypes PasswordEntry = '[Gtk.Widget.Widget, GObject.Object.Object, Gtk.Accessible.Accessible, Gtk.Buildable.Buildable, Gtk.ConstraintTarget.ConstraintTarget, Gtk.Editable.Editable]
toPasswordEntry :: (MIO.MonadIO m, IsPasswordEntry o) => o -> m PasswordEntry
toPasswordEntry :: forall (m :: * -> *) o.
(MonadIO m, IsPasswordEntry o) =>
o -> m PasswordEntry
toPasswordEntry = IO PasswordEntry -> m PasswordEntry
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO PasswordEntry -> m PasswordEntry)
-> (o -> IO PasswordEntry) -> o -> m PasswordEntry
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (ManagedPtr PasswordEntry -> PasswordEntry)
-> o -> IO PasswordEntry
forall o o'.
(HasCallStack, ManagedPtrNewtype o, TypedObject o,
ManagedPtrNewtype o', TypedObject o') =>
(ManagedPtr o' -> o') -> o -> IO o'
B.ManagedPtr.unsafeCastTo ManagedPtr PasswordEntry -> PasswordEntry
PasswordEntry
instance B.GValue.IsGValue (Maybe PasswordEntry) where
gvalueGType_ :: IO GType
gvalueGType_ = IO GType
c_gtk_password_entry_get_type
gvalueSet_ :: Ptr GValue -> Maybe PasswordEntry -> IO ()
gvalueSet_ Ptr GValue
gv Maybe PasswordEntry
P.Nothing = Ptr GValue -> Ptr PasswordEntry -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv (Ptr PasswordEntry
forall a. Ptr a
FP.nullPtr :: FP.Ptr PasswordEntry)
gvalueSet_ Ptr GValue
gv (P.Just PasswordEntry
obj) = PasswordEntry -> (Ptr PasswordEntry -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
B.ManagedPtr.withManagedPtr PasswordEntry
obj (Ptr GValue -> Ptr PasswordEntry -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv)
gvalueGet_ :: Ptr GValue -> IO (Maybe PasswordEntry)
gvalueGet_ Ptr GValue
gv = do
Ptr PasswordEntry
ptr <- Ptr GValue -> IO (Ptr PasswordEntry)
forall a. GObject a => Ptr GValue -> IO (Ptr a)
B.GValue.get_object Ptr GValue
gv :: IO (FP.Ptr PasswordEntry)
if Ptr PasswordEntry
ptr Ptr PasswordEntry -> Ptr PasswordEntry -> Bool
forall a. Eq a => a -> a -> Bool
/= Ptr PasswordEntry
forall a. Ptr a
FP.nullPtr
then PasswordEntry -> Maybe PasswordEntry
forall a. a -> Maybe a
P.Just (PasswordEntry -> Maybe PasswordEntry)
-> IO PasswordEntry -> IO (Maybe PasswordEntry)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (ManagedPtr PasswordEntry -> PasswordEntry)
-> Ptr PasswordEntry -> IO PasswordEntry
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
B.ManagedPtr.newObject ManagedPtr PasswordEntry -> PasswordEntry
PasswordEntry Ptr PasswordEntry
ptr
else Maybe PasswordEntry -> IO (Maybe PasswordEntry)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe PasswordEntry
forall a. Maybe a
P.Nothing
#if defined(ENABLE_OVERLOADING)
type family ResolvePasswordEntryMethod (t :: Symbol) (o :: DK.Type) :: DK.Type where
ResolvePasswordEntryMethod "actionSetEnabled" o = Gtk.Widget.WidgetActionSetEnabledMethodInfo
ResolvePasswordEntryMethod "activate" o = Gtk.Widget.WidgetActivateMethodInfo
ResolvePasswordEntryMethod "activateAction" o = Gtk.Widget.WidgetActivateActionMethodInfo
ResolvePasswordEntryMethod "activateDefault" o = Gtk.Widget.WidgetActivateDefaultMethodInfo
ResolvePasswordEntryMethod "addController" o = Gtk.Widget.WidgetAddControllerMethodInfo
ResolvePasswordEntryMethod "addCssClass" o = Gtk.Widget.WidgetAddCssClassMethodInfo
ResolvePasswordEntryMethod "addMnemonicLabel" o = Gtk.Widget.WidgetAddMnemonicLabelMethodInfo
ResolvePasswordEntryMethod "addTickCallback" o = Gtk.Widget.WidgetAddTickCallbackMethodInfo
ResolvePasswordEntryMethod "allocate" o = Gtk.Widget.WidgetAllocateMethodInfo
ResolvePasswordEntryMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
ResolvePasswordEntryMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
ResolvePasswordEntryMethod "childFocus" o = Gtk.Widget.WidgetChildFocusMethodInfo
ResolvePasswordEntryMethod "computeBounds" o = Gtk.Widget.WidgetComputeBoundsMethodInfo
ResolvePasswordEntryMethod "computeExpand" o = Gtk.Widget.WidgetComputeExpandMethodInfo
ResolvePasswordEntryMethod "computePoint" o = Gtk.Widget.WidgetComputePointMethodInfo
ResolvePasswordEntryMethod "computeTransform" o = Gtk.Widget.WidgetComputeTransformMethodInfo
ResolvePasswordEntryMethod "contains" o = Gtk.Widget.WidgetContainsMethodInfo
ResolvePasswordEntryMethod "createPangoContext" o = Gtk.Widget.WidgetCreatePangoContextMethodInfo
ResolvePasswordEntryMethod "createPangoLayout" o = Gtk.Widget.WidgetCreatePangoLayoutMethodInfo
ResolvePasswordEntryMethod "delegateGetAccessiblePlatformState" o = Gtk.Editable.EditableDelegateGetAccessiblePlatformStateMethodInfo
ResolvePasswordEntryMethod "deleteSelection" o = Gtk.Editable.EditableDeleteSelectionMethodInfo
ResolvePasswordEntryMethod "deleteText" o = Gtk.Editable.EditableDeleteTextMethodInfo
ResolvePasswordEntryMethod "disposeTemplate" o = Gtk.Widget.WidgetDisposeTemplateMethodInfo
ResolvePasswordEntryMethod "dragCheckThreshold" o = Gtk.Widget.WidgetDragCheckThresholdMethodInfo
ResolvePasswordEntryMethod "errorBell" o = Gtk.Widget.WidgetErrorBellMethodInfo
ResolvePasswordEntryMethod "finishDelegate" o = Gtk.Editable.EditableFinishDelegateMethodInfo
ResolvePasswordEntryMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
ResolvePasswordEntryMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
ResolvePasswordEntryMethod "getv" o = GObject.Object.ObjectGetvMethodInfo
ResolvePasswordEntryMethod "grabFocus" o = Gtk.Widget.WidgetGrabFocusMethodInfo
ResolvePasswordEntryMethod "hasCssClass" o = Gtk.Widget.WidgetHasCssClassMethodInfo
ResolvePasswordEntryMethod "hasDefault" o = Gtk.Widget.WidgetHasDefaultMethodInfo
ResolvePasswordEntryMethod "hasFocus" o = Gtk.Widget.WidgetHasFocusMethodInfo
ResolvePasswordEntryMethod "hasVisibleFocus" o = Gtk.Widget.WidgetHasVisibleFocusMethodInfo
ResolvePasswordEntryMethod "hide" o = Gtk.Widget.WidgetHideMethodInfo
ResolvePasswordEntryMethod "inDestruction" o = Gtk.Widget.WidgetInDestructionMethodInfo
ResolvePasswordEntryMethod "initDelegate" o = Gtk.Editable.EditableInitDelegateMethodInfo
ResolvePasswordEntryMethod "initTemplate" o = Gtk.Widget.WidgetInitTemplateMethodInfo
ResolvePasswordEntryMethod "insertActionGroup" o = Gtk.Widget.WidgetInsertActionGroupMethodInfo
ResolvePasswordEntryMethod "insertAfter" o = Gtk.Widget.WidgetInsertAfterMethodInfo
ResolvePasswordEntryMethod "insertBefore" o = Gtk.Widget.WidgetInsertBeforeMethodInfo
ResolvePasswordEntryMethod "insertText" o = Gtk.Editable.EditableInsertTextMethodInfo
ResolvePasswordEntryMethod "isAncestor" o = Gtk.Widget.WidgetIsAncestorMethodInfo
ResolvePasswordEntryMethod "isDrawable" o = Gtk.Widget.WidgetIsDrawableMethodInfo
ResolvePasswordEntryMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo
ResolvePasswordEntryMethod "isFocus" o = Gtk.Widget.WidgetIsFocusMethodInfo
ResolvePasswordEntryMethod "isSensitive" o = Gtk.Widget.WidgetIsSensitiveMethodInfo
ResolvePasswordEntryMethod "isVisible" o = Gtk.Widget.WidgetIsVisibleMethodInfo
ResolvePasswordEntryMethod "keynavFailed" o = Gtk.Widget.WidgetKeynavFailedMethodInfo
ResolvePasswordEntryMethod "listMnemonicLabels" o = Gtk.Widget.WidgetListMnemonicLabelsMethodInfo
ResolvePasswordEntryMethod "map" o = Gtk.Widget.WidgetMapMethodInfo
ResolvePasswordEntryMethod "measure" o = Gtk.Widget.WidgetMeasureMethodInfo
ResolvePasswordEntryMethod "mnemonicActivate" o = Gtk.Widget.WidgetMnemonicActivateMethodInfo
ResolvePasswordEntryMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
ResolvePasswordEntryMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
ResolvePasswordEntryMethod "observeChildren" o = Gtk.Widget.WidgetObserveChildrenMethodInfo
ResolvePasswordEntryMethod "observeControllers" o = Gtk.Widget.WidgetObserveControllersMethodInfo
ResolvePasswordEntryMethod "pick" o = Gtk.Widget.WidgetPickMethodInfo
ResolvePasswordEntryMethod "queueAllocate" o = Gtk.Widget.WidgetQueueAllocateMethodInfo
ResolvePasswordEntryMethod "queueDraw" o = Gtk.Widget.WidgetQueueDrawMethodInfo
ResolvePasswordEntryMethod "queueResize" o = Gtk.Widget.WidgetQueueResizeMethodInfo
ResolvePasswordEntryMethod "realize" o = Gtk.Widget.WidgetRealizeMethodInfo
ResolvePasswordEntryMethod "ref" o = GObject.Object.ObjectRefMethodInfo
ResolvePasswordEntryMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
ResolvePasswordEntryMethod "removeController" o = Gtk.Widget.WidgetRemoveControllerMethodInfo
ResolvePasswordEntryMethod "removeCssClass" o = Gtk.Widget.WidgetRemoveCssClassMethodInfo
ResolvePasswordEntryMethod "removeMnemonicLabel" o = Gtk.Widget.WidgetRemoveMnemonicLabelMethodInfo
ResolvePasswordEntryMethod "removeTickCallback" o = Gtk.Widget.WidgetRemoveTickCallbackMethodInfo
ResolvePasswordEntryMethod "resetProperty" o = Gtk.Accessible.AccessibleResetPropertyMethodInfo
ResolvePasswordEntryMethod "resetRelation" o = Gtk.Accessible.AccessibleResetRelationMethodInfo
ResolvePasswordEntryMethod "resetState" o = Gtk.Accessible.AccessibleResetStateMethodInfo
ResolvePasswordEntryMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
ResolvePasswordEntryMethod "selectRegion" o = Gtk.Editable.EditableSelectRegionMethodInfo
ResolvePasswordEntryMethod "shouldLayout" o = Gtk.Widget.WidgetShouldLayoutMethodInfo
ResolvePasswordEntryMethod "show" o = Gtk.Widget.WidgetShowMethodInfo
ResolvePasswordEntryMethod "sizeAllocate" o = Gtk.Widget.WidgetSizeAllocateMethodInfo
ResolvePasswordEntryMethod "snapshotChild" o = Gtk.Widget.WidgetSnapshotChildMethodInfo
ResolvePasswordEntryMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
ResolvePasswordEntryMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
ResolvePasswordEntryMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo
ResolvePasswordEntryMethod "translateCoordinates" o = Gtk.Widget.WidgetTranslateCoordinatesMethodInfo
ResolvePasswordEntryMethod "triggerTooltipQuery" o = Gtk.Widget.WidgetTriggerTooltipQueryMethodInfo
ResolvePasswordEntryMethod "unmap" o = Gtk.Widget.WidgetUnmapMethodInfo
ResolvePasswordEntryMethod "unparent" o = Gtk.Widget.WidgetUnparentMethodInfo
ResolvePasswordEntryMethod "unrealize" o = Gtk.Widget.WidgetUnrealizeMethodInfo
ResolvePasswordEntryMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo
ResolvePasswordEntryMethod "unsetStateFlags" o = Gtk.Widget.WidgetUnsetStateFlagsMethodInfo
ResolvePasswordEntryMethod "updateNextAccessibleSibling" o = Gtk.Accessible.AccessibleUpdateNextAccessibleSiblingMethodInfo
ResolvePasswordEntryMethod "updateProperty" o = Gtk.Accessible.AccessibleUpdatePropertyMethodInfo
ResolvePasswordEntryMethod "updateRelation" o = Gtk.Accessible.AccessibleUpdateRelationMethodInfo
ResolvePasswordEntryMethod "updateState" o = Gtk.Accessible.AccessibleUpdateStateMethodInfo
ResolvePasswordEntryMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
ResolvePasswordEntryMethod "getAccessibleParent" o = Gtk.Accessible.AccessibleGetAccessibleParentMethodInfo
ResolvePasswordEntryMethod "getAccessibleRole" o = Gtk.Accessible.AccessibleGetAccessibleRoleMethodInfo
ResolvePasswordEntryMethod "getAlignment" o = Gtk.Editable.EditableGetAlignmentMethodInfo
ResolvePasswordEntryMethod "getAllocatedBaseline" o = Gtk.Widget.WidgetGetAllocatedBaselineMethodInfo
ResolvePasswordEntryMethod "getAllocatedHeight" o = Gtk.Widget.WidgetGetAllocatedHeightMethodInfo
ResolvePasswordEntryMethod "getAllocatedWidth" o = Gtk.Widget.WidgetGetAllocatedWidthMethodInfo
ResolvePasswordEntryMethod "getAllocation" o = Gtk.Widget.WidgetGetAllocationMethodInfo
ResolvePasswordEntryMethod "getAncestor" o = Gtk.Widget.WidgetGetAncestorMethodInfo
ResolvePasswordEntryMethod "getAtContext" o = Gtk.Accessible.AccessibleGetAtContextMethodInfo
ResolvePasswordEntryMethod "getBounds" o = Gtk.Accessible.AccessibleGetBoundsMethodInfo
ResolvePasswordEntryMethod "getBuildableId" o = Gtk.Buildable.BuildableGetBuildableIdMethodInfo
ResolvePasswordEntryMethod "getCanFocus" o = Gtk.Widget.WidgetGetCanFocusMethodInfo
ResolvePasswordEntryMethod "getCanTarget" o = Gtk.Widget.WidgetGetCanTargetMethodInfo
ResolvePasswordEntryMethod "getChars" o = Gtk.Editable.EditableGetCharsMethodInfo
ResolvePasswordEntryMethod "getChildVisible" o = Gtk.Widget.WidgetGetChildVisibleMethodInfo
ResolvePasswordEntryMethod "getClipboard" o = Gtk.Widget.WidgetGetClipboardMethodInfo
ResolvePasswordEntryMethod "getColor" o = Gtk.Widget.WidgetGetColorMethodInfo
ResolvePasswordEntryMethod "getCssClasses" o = Gtk.Widget.WidgetGetCssClassesMethodInfo
ResolvePasswordEntryMethod "getCssName" o = Gtk.Widget.WidgetGetCssNameMethodInfo
ResolvePasswordEntryMethod "getCursor" o = Gtk.Widget.WidgetGetCursorMethodInfo
ResolvePasswordEntryMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
ResolvePasswordEntryMethod "getDelegate" o = Gtk.Editable.EditableGetDelegateMethodInfo
ResolvePasswordEntryMethod "getDirection" o = Gtk.Widget.WidgetGetDirectionMethodInfo
ResolvePasswordEntryMethod "getDisplay" o = Gtk.Widget.WidgetGetDisplayMethodInfo
ResolvePasswordEntryMethod "getEditable" o = Gtk.Editable.EditableGetEditableMethodInfo
ResolvePasswordEntryMethod "getEnableUndo" o = Gtk.Editable.EditableGetEnableUndoMethodInfo
ResolvePasswordEntryMethod "getExtraMenu" o = PasswordEntryGetExtraMenuMethodInfo
ResolvePasswordEntryMethod "getFirstAccessibleChild" o = Gtk.Accessible.AccessibleGetFirstAccessibleChildMethodInfo
ResolvePasswordEntryMethod "getFirstChild" o = Gtk.Widget.WidgetGetFirstChildMethodInfo
ResolvePasswordEntryMethod "getFocusChild" o = Gtk.Widget.WidgetGetFocusChildMethodInfo
ResolvePasswordEntryMethod "getFocusOnClick" o = Gtk.Widget.WidgetGetFocusOnClickMethodInfo
ResolvePasswordEntryMethod "getFocusable" o = Gtk.Widget.WidgetGetFocusableMethodInfo
ResolvePasswordEntryMethod "getFontMap" o = Gtk.Widget.WidgetGetFontMapMethodInfo
ResolvePasswordEntryMethod "getFontOptions" o = Gtk.Widget.WidgetGetFontOptionsMethodInfo
ResolvePasswordEntryMethod "getFrameClock" o = Gtk.Widget.WidgetGetFrameClockMethodInfo
ResolvePasswordEntryMethod "getHalign" o = Gtk.Widget.WidgetGetHalignMethodInfo
ResolvePasswordEntryMethod "getHasTooltip" o = Gtk.Widget.WidgetGetHasTooltipMethodInfo
ResolvePasswordEntryMethod "getHeight" o = Gtk.Widget.WidgetGetHeightMethodInfo
ResolvePasswordEntryMethod "getHexpand" o = Gtk.Widget.WidgetGetHexpandMethodInfo
ResolvePasswordEntryMethod "getHexpandSet" o = Gtk.Widget.WidgetGetHexpandSetMethodInfo
ResolvePasswordEntryMethod "getLastChild" o = Gtk.Widget.WidgetGetLastChildMethodInfo
ResolvePasswordEntryMethod "getLayoutManager" o = Gtk.Widget.WidgetGetLayoutManagerMethodInfo
ResolvePasswordEntryMethod "getMapped" o = Gtk.Widget.WidgetGetMappedMethodInfo
ResolvePasswordEntryMethod "getMarginBottom" o = Gtk.Widget.WidgetGetMarginBottomMethodInfo
ResolvePasswordEntryMethod "getMarginEnd" o = Gtk.Widget.WidgetGetMarginEndMethodInfo
ResolvePasswordEntryMethod "getMarginStart" o = Gtk.Widget.WidgetGetMarginStartMethodInfo
ResolvePasswordEntryMethod "getMarginTop" o = Gtk.Widget.WidgetGetMarginTopMethodInfo
ResolvePasswordEntryMethod "getMaxWidthChars" o = Gtk.Editable.EditableGetMaxWidthCharsMethodInfo
ResolvePasswordEntryMethod "getName" o = Gtk.Widget.WidgetGetNameMethodInfo
ResolvePasswordEntryMethod "getNative" o = Gtk.Widget.WidgetGetNativeMethodInfo
ResolvePasswordEntryMethod "getNextAccessibleSibling" o = Gtk.Accessible.AccessibleGetNextAccessibleSiblingMethodInfo
ResolvePasswordEntryMethod "getNextSibling" o = Gtk.Widget.WidgetGetNextSiblingMethodInfo
ResolvePasswordEntryMethod "getOpacity" o = Gtk.Widget.WidgetGetOpacityMethodInfo
ResolvePasswordEntryMethod "getOverflow" o = Gtk.Widget.WidgetGetOverflowMethodInfo
ResolvePasswordEntryMethod "getPangoContext" o = Gtk.Widget.WidgetGetPangoContextMethodInfo
ResolvePasswordEntryMethod "getParent" o = Gtk.Widget.WidgetGetParentMethodInfo
ResolvePasswordEntryMethod "getPlatformState" o = Gtk.Accessible.AccessibleGetPlatformStateMethodInfo
ResolvePasswordEntryMethod "getPosition" o = Gtk.Editable.EditableGetPositionMethodInfo
ResolvePasswordEntryMethod "getPreferredSize" o = Gtk.Widget.WidgetGetPreferredSizeMethodInfo
ResolvePasswordEntryMethod "getPrevSibling" o = Gtk.Widget.WidgetGetPrevSiblingMethodInfo
ResolvePasswordEntryMethod "getPrimaryClipboard" o = Gtk.Widget.WidgetGetPrimaryClipboardMethodInfo
ResolvePasswordEntryMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo
ResolvePasswordEntryMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo
ResolvePasswordEntryMethod "getRealized" o = Gtk.Widget.WidgetGetRealizedMethodInfo
ResolvePasswordEntryMethod "getReceivesDefault" o = Gtk.Widget.WidgetGetReceivesDefaultMethodInfo
ResolvePasswordEntryMethod "getRequestMode" o = Gtk.Widget.WidgetGetRequestModeMethodInfo
ResolvePasswordEntryMethod "getRoot" o = Gtk.Widget.WidgetGetRootMethodInfo
ResolvePasswordEntryMethod "getScaleFactor" o = Gtk.Widget.WidgetGetScaleFactorMethodInfo
ResolvePasswordEntryMethod "getSelectionBounds" o = Gtk.Editable.EditableGetSelectionBoundsMethodInfo
ResolvePasswordEntryMethod "getSensitive" o = Gtk.Widget.WidgetGetSensitiveMethodInfo
ResolvePasswordEntryMethod "getSettings" o = Gtk.Widget.WidgetGetSettingsMethodInfo
ResolvePasswordEntryMethod "getShowPeekIcon" o = PasswordEntryGetShowPeekIconMethodInfo
ResolvePasswordEntryMethod "getSize" o = Gtk.Widget.WidgetGetSizeMethodInfo
ResolvePasswordEntryMethod "getSizeRequest" o = Gtk.Widget.WidgetGetSizeRequestMethodInfo
ResolvePasswordEntryMethod "getStateFlags" o = Gtk.Widget.WidgetGetStateFlagsMethodInfo
ResolvePasswordEntryMethod "getStyleContext" o = Gtk.Widget.WidgetGetStyleContextMethodInfo
ResolvePasswordEntryMethod "getTemplateChild" o = Gtk.Widget.WidgetGetTemplateChildMethodInfo
ResolvePasswordEntryMethod "getText" o = Gtk.Editable.EditableGetTextMethodInfo
ResolvePasswordEntryMethod "getTooltipMarkup" o = Gtk.Widget.WidgetGetTooltipMarkupMethodInfo
ResolvePasswordEntryMethod "getTooltipText" o = Gtk.Widget.WidgetGetTooltipTextMethodInfo
ResolvePasswordEntryMethod "getValign" o = Gtk.Widget.WidgetGetValignMethodInfo
ResolvePasswordEntryMethod "getVexpand" o = Gtk.Widget.WidgetGetVexpandMethodInfo
ResolvePasswordEntryMethod "getVexpandSet" o = Gtk.Widget.WidgetGetVexpandSetMethodInfo
ResolvePasswordEntryMethod "getVisible" o = Gtk.Widget.WidgetGetVisibleMethodInfo
ResolvePasswordEntryMethod "getWidth" o = Gtk.Widget.WidgetGetWidthMethodInfo
ResolvePasswordEntryMethod "getWidthChars" o = Gtk.Editable.EditableGetWidthCharsMethodInfo
ResolvePasswordEntryMethod "setAccessibleParent" o = Gtk.Accessible.AccessibleSetAccessibleParentMethodInfo
ResolvePasswordEntryMethod "setAlignment" o = Gtk.Editable.EditableSetAlignmentMethodInfo
ResolvePasswordEntryMethod "setCanFocus" o = Gtk.Widget.WidgetSetCanFocusMethodInfo
ResolvePasswordEntryMethod "setCanTarget" o = Gtk.Widget.WidgetSetCanTargetMethodInfo
ResolvePasswordEntryMethod "setChildVisible" o = Gtk.Widget.WidgetSetChildVisibleMethodInfo
ResolvePasswordEntryMethod "setCssClasses" o = Gtk.Widget.WidgetSetCssClassesMethodInfo
ResolvePasswordEntryMethod "setCursor" o = Gtk.Widget.WidgetSetCursorMethodInfo
ResolvePasswordEntryMethod "setCursorFromName" o = Gtk.Widget.WidgetSetCursorFromNameMethodInfo
ResolvePasswordEntryMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
ResolvePasswordEntryMethod "setDataFull" o = GObject.Object.ObjectSetDataFullMethodInfo
ResolvePasswordEntryMethod "setDirection" o = Gtk.Widget.WidgetSetDirectionMethodInfo
ResolvePasswordEntryMethod "setEditable" o = Gtk.Editable.EditableSetEditableMethodInfo
ResolvePasswordEntryMethod "setEnableUndo" o = Gtk.Editable.EditableSetEnableUndoMethodInfo
ResolvePasswordEntryMethod "setExtraMenu" o = PasswordEntrySetExtraMenuMethodInfo
ResolvePasswordEntryMethod "setFocusChild" o = Gtk.Widget.WidgetSetFocusChildMethodInfo
ResolvePasswordEntryMethod "setFocusOnClick" o = Gtk.Widget.WidgetSetFocusOnClickMethodInfo
ResolvePasswordEntryMethod "setFocusable" o = Gtk.Widget.WidgetSetFocusableMethodInfo
ResolvePasswordEntryMethod "setFontMap" o = Gtk.Widget.WidgetSetFontMapMethodInfo
ResolvePasswordEntryMethod "setFontOptions" o = Gtk.Widget.WidgetSetFontOptionsMethodInfo
ResolvePasswordEntryMethod "setHalign" o = Gtk.Widget.WidgetSetHalignMethodInfo
ResolvePasswordEntryMethod "setHasTooltip" o = Gtk.Widget.WidgetSetHasTooltipMethodInfo
ResolvePasswordEntryMethod "setHexpand" o = Gtk.Widget.WidgetSetHexpandMethodInfo
ResolvePasswordEntryMethod "setHexpandSet" o = Gtk.Widget.WidgetSetHexpandSetMethodInfo
ResolvePasswordEntryMethod "setLayoutManager" o = Gtk.Widget.WidgetSetLayoutManagerMethodInfo
ResolvePasswordEntryMethod "setMarginBottom" o = Gtk.Widget.WidgetSetMarginBottomMethodInfo
ResolvePasswordEntryMethod "setMarginEnd" o = Gtk.Widget.WidgetSetMarginEndMethodInfo
ResolvePasswordEntryMethod "setMarginStart" o = Gtk.Widget.WidgetSetMarginStartMethodInfo
ResolvePasswordEntryMethod "setMarginTop" o = Gtk.Widget.WidgetSetMarginTopMethodInfo
ResolvePasswordEntryMethod "setMaxWidthChars" o = Gtk.Editable.EditableSetMaxWidthCharsMethodInfo
ResolvePasswordEntryMethod "setName" o = Gtk.Widget.WidgetSetNameMethodInfo
ResolvePasswordEntryMethod "setOpacity" o = Gtk.Widget.WidgetSetOpacityMethodInfo
ResolvePasswordEntryMethod "setOverflow" o = Gtk.Widget.WidgetSetOverflowMethodInfo
ResolvePasswordEntryMethod "setParent" o = Gtk.Widget.WidgetSetParentMethodInfo
ResolvePasswordEntryMethod "setPosition" o = Gtk.Editable.EditableSetPositionMethodInfo
ResolvePasswordEntryMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
ResolvePasswordEntryMethod "setReceivesDefault" o = Gtk.Widget.WidgetSetReceivesDefaultMethodInfo
ResolvePasswordEntryMethod "setSensitive" o = Gtk.Widget.WidgetSetSensitiveMethodInfo
ResolvePasswordEntryMethod "setShowPeekIcon" o = PasswordEntrySetShowPeekIconMethodInfo
ResolvePasswordEntryMethod "setSizeRequest" o = Gtk.Widget.WidgetSetSizeRequestMethodInfo
ResolvePasswordEntryMethod "setStateFlags" o = Gtk.Widget.WidgetSetStateFlagsMethodInfo
ResolvePasswordEntryMethod "setText" o = Gtk.Editable.EditableSetTextMethodInfo
ResolvePasswordEntryMethod "setTooltipMarkup" o = Gtk.Widget.WidgetSetTooltipMarkupMethodInfo
ResolvePasswordEntryMethod "setTooltipText" o = Gtk.Widget.WidgetSetTooltipTextMethodInfo
ResolvePasswordEntryMethod "setValign" o = Gtk.Widget.WidgetSetValignMethodInfo
ResolvePasswordEntryMethod "setVexpand" o = Gtk.Widget.WidgetSetVexpandMethodInfo
ResolvePasswordEntryMethod "setVexpandSet" o = Gtk.Widget.WidgetSetVexpandSetMethodInfo
ResolvePasswordEntryMethod "setVisible" o = Gtk.Widget.WidgetSetVisibleMethodInfo
ResolvePasswordEntryMethod "setWidthChars" o = Gtk.Editable.EditableSetWidthCharsMethodInfo
ResolvePasswordEntryMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolvePasswordEntryMethod t PasswordEntry, O.OverloadedMethod info PasswordEntry p) => OL.IsLabel t (PasswordEntry -> 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 ~ ResolvePasswordEntryMethod t PasswordEntry, O.OverloadedMethod info PasswordEntry p, R.HasField t PasswordEntry p) => R.HasField t PasswordEntry p where
getField = O.overloadedMethod @info
#endif
instance (info ~ ResolvePasswordEntryMethod t PasswordEntry, O.OverloadedMethodInfo info PasswordEntry) => OL.IsLabel t (O.MethodProxy info PasswordEntry) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.MethodProxy
#else
fromLabel _ = O.MethodProxy
#endif
#endif
type PasswordEntryActivateCallback =
IO ()
type C_PasswordEntryActivateCallback =
Ptr PasswordEntry ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_PasswordEntryActivateCallback :: C_PasswordEntryActivateCallback -> IO (FunPtr C_PasswordEntryActivateCallback)
wrap_PasswordEntryActivateCallback ::
GObject a => (a -> PasswordEntryActivateCallback) ->
C_PasswordEntryActivateCallback
wrap_PasswordEntryActivateCallback :: forall a.
GObject a =>
(a -> IO ()) -> C_PasswordEntryActivateCallback
wrap_PasswordEntryActivateCallback a -> IO ()
gi'cb Ptr PasswordEntry
gi'selfPtr Ptr ()
_ = do
Ptr PasswordEntry -> (PasswordEntry -> IO ()) -> IO ()
forall o b.
(HasCallStack, GObject o) =>
Ptr o -> (o -> IO b) -> IO b
B.ManagedPtr.withNewObject Ptr PasswordEntry
gi'selfPtr ((PasswordEntry -> IO ()) -> IO ())
-> (PasswordEntry -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \PasswordEntry
gi'self -> a -> IO ()
gi'cb (PasswordEntry -> a
forall a b. Coercible a b => a -> b
Coerce.coerce PasswordEntry
gi'self)
onPasswordEntryActivate :: (IsPasswordEntry a, MonadIO m) => a -> ((?self :: a) => PasswordEntryActivateCallback) -> m SignalHandlerId
onPasswordEntryActivate :: forall a (m :: * -> *).
(IsPasswordEntry a, MonadIO m) =>
a -> ((?self::a) => IO ()) -> m SignalHandlerId
onPasswordEntryActivate 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_PasswordEntryActivateCallback
wrapped' = (a -> IO ()) -> C_PasswordEntryActivateCallback
forall a.
GObject a =>
(a -> IO ()) -> C_PasswordEntryActivateCallback
wrap_PasswordEntryActivateCallback a -> IO ()
wrapped
FunPtr C_PasswordEntryActivateCallback
wrapped'' <- C_PasswordEntryActivateCallback
-> IO (FunPtr C_PasswordEntryActivateCallback)
mk_PasswordEntryActivateCallback C_PasswordEntryActivateCallback
wrapped'
a
-> Text
-> FunPtr C_PasswordEntryActivateCallback
-> 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_PasswordEntryActivateCallback
wrapped'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterPasswordEntryActivate :: (IsPasswordEntry a, MonadIO m) => a -> ((?self :: a) => PasswordEntryActivateCallback) -> m SignalHandlerId
afterPasswordEntryActivate :: forall a (m :: * -> *).
(IsPasswordEntry a, MonadIO m) =>
a -> ((?self::a) => IO ()) -> m SignalHandlerId
afterPasswordEntryActivate 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_PasswordEntryActivateCallback
wrapped' = (a -> IO ()) -> C_PasswordEntryActivateCallback
forall a.
GObject a =>
(a -> IO ()) -> C_PasswordEntryActivateCallback
wrap_PasswordEntryActivateCallback a -> IO ()
wrapped
FunPtr C_PasswordEntryActivateCallback
wrapped'' <- C_PasswordEntryActivateCallback
-> IO (FunPtr C_PasswordEntryActivateCallback)
mk_PasswordEntryActivateCallback C_PasswordEntryActivateCallback
wrapped'
a
-> Text
-> FunPtr C_PasswordEntryActivateCallback
-> 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_PasswordEntryActivateCallback
wrapped'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data PasswordEntryActivateSignalInfo
instance SignalInfo PasswordEntryActivateSignalInfo where
type HaskellCallbackType PasswordEntryActivateSignalInfo = PasswordEntryActivateCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_PasswordEntryActivateCallback cb
cb'' <- mk_PasswordEntryActivateCallback cb'
connectSignalFunPtr obj "activate" cb'' connectMode detail
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.PasswordEntry::activate"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.8/docs/GI-Gtk-Objects-PasswordEntry.html#g:signal:activate"})
#endif
getPasswordEntryActivatesDefault :: (MonadIO m, IsPasswordEntry o) => o -> m Bool
getPasswordEntryActivatesDefault :: forall (m :: * -> *) o.
(MonadIO m, IsPasswordEntry o) =>
o -> m Bool
getPasswordEntryActivatesDefault 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"
setPasswordEntryActivatesDefault :: (MonadIO m, IsPasswordEntry o) => o -> Bool -> m ()
setPasswordEntryActivatesDefault :: forall (m :: * -> *) o.
(MonadIO m, IsPasswordEntry o) =>
o -> Bool -> m ()
setPasswordEntryActivatesDefault 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
constructPasswordEntryActivatesDefault :: (IsPasswordEntry o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructPasswordEntryActivatesDefault :: forall o (m :: * -> *).
(IsPasswordEntry o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructPasswordEntryActivatesDefault 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 PasswordEntryActivatesDefaultPropertyInfo
instance AttrInfo PasswordEntryActivatesDefaultPropertyInfo where
type AttrAllowedOps PasswordEntryActivatesDefaultPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint PasswordEntryActivatesDefaultPropertyInfo = IsPasswordEntry
type AttrSetTypeConstraint PasswordEntryActivatesDefaultPropertyInfo = (~) Bool
type AttrTransferTypeConstraint PasswordEntryActivatesDefaultPropertyInfo = (~) Bool
type AttrTransferType PasswordEntryActivatesDefaultPropertyInfo = Bool
type AttrGetType PasswordEntryActivatesDefaultPropertyInfo = Bool
type AttrLabel PasswordEntryActivatesDefaultPropertyInfo = "activates-default"
type AttrOrigin PasswordEntryActivatesDefaultPropertyInfo = PasswordEntry
attrGet = getPasswordEntryActivatesDefault
attrSet = setPasswordEntryActivatesDefault
attrTransfer _ v = do
return v
attrConstruct = constructPasswordEntryActivatesDefault
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.PasswordEntry.activatesDefault"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.8/docs/GI-Gtk-Objects-PasswordEntry.html#g:attr:activatesDefault"
})
#endif
getPasswordEntryExtraMenu :: (MonadIO m, IsPasswordEntry o) => o -> m (Maybe Gio.MenuModel.MenuModel)
o
obj = IO (Maybe MenuModel) -> m (Maybe MenuModel)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (Maybe MenuModel) -> m (Maybe MenuModel))
-> IO (Maybe MenuModel) -> m (Maybe MenuModel)
forall a b. (a -> b) -> a -> b
$ o
-> String
-> (ManagedPtr MenuModel -> MenuModel)
-> IO (Maybe MenuModel)
forall a b.
(GObject a, GObject b) =>
a -> String -> (ManagedPtr b -> b) -> IO (Maybe b)
B.Properties.getObjectPropertyObject o
obj String
"extra-menu" ManagedPtr MenuModel -> MenuModel
Gio.MenuModel.MenuModel
setPasswordEntryExtraMenu :: (MonadIO m, IsPasswordEntry o, Gio.MenuModel.IsMenuModel a) => o -> a -> m ()
o
obj a
val = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Maybe a -> IO ()
forall a b.
(GObject a, GObject b) =>
a -> String -> Maybe b -> IO ()
B.Properties.setObjectPropertyObject o
obj String
"extra-menu" (a -> Maybe a
forall a. a -> Maybe a
Just a
val)
constructPasswordEntryExtraMenu :: (IsPasswordEntry o, MIO.MonadIO m, Gio.MenuModel.IsMenuModel a) => a -> m (GValueConstruct o)
a
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Maybe a -> IO (GValueConstruct o)
forall a o.
GObject a =>
String -> Maybe a -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyObject String
"extra-menu" (a -> Maybe a
forall a. a -> Maybe a
P.Just a
val)
clearPasswordEntryExtraMenu :: (MonadIO m, IsPasswordEntry o) => o -> m ()
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 MenuModel -> IO ()
forall a b.
(GObject a, GObject b) =>
a -> String -> Maybe b -> IO ()
B.Properties.setObjectPropertyObject o
obj String
"extra-menu" (Maybe MenuModel
forall a. Maybe a
Nothing :: Maybe Gio.MenuModel.MenuModel)
#if defined(ENABLE_OVERLOADING)
data PasswordEntryExtraMenuPropertyInfo
instance AttrInfo PasswordEntryExtraMenuPropertyInfo where
type AttrAllowedOps PasswordEntryExtraMenuPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint PasswordEntryExtraMenuPropertyInfo = IsPasswordEntry
type AttrSetTypeConstraint PasswordEntryExtraMenuPropertyInfo = Gio.MenuModel.IsMenuModel
type AttrTransferTypeConstraint PasswordEntryExtraMenuPropertyInfo = Gio.MenuModel.IsMenuModel
type AttrTransferType PasswordEntryExtraMenuPropertyInfo = Gio.MenuModel.MenuModel
type AttrGetType PasswordEntryExtraMenuPropertyInfo = (Maybe Gio.MenuModel.MenuModel)
type AttrLabel PasswordEntryExtraMenuPropertyInfo = "extra-menu"
type AttrOrigin PasswordEntryExtraMenuPropertyInfo = PasswordEntry
attrGet = getPasswordEntryExtraMenu
attrSet = setPasswordEntryExtraMenu
attrTransfer _ v = do
unsafeCastTo Gio.MenuModel.MenuModel v
attrConstruct = constructPasswordEntryExtraMenu
attrClear = clearPasswordEntryExtraMenu
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.PasswordEntry.extraMenu"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.8/docs/GI-Gtk-Objects-PasswordEntry.html#g:attr:extraMenu"
})
#endif
getPasswordEntryPlaceholderText :: (MonadIO m, IsPasswordEntry o) => o -> m (Maybe T.Text)
getPasswordEntryPlaceholderText :: forall (m :: * -> *) o.
(MonadIO m, IsPasswordEntry o) =>
o -> m (Maybe Text)
getPasswordEntryPlaceholderText 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"
setPasswordEntryPlaceholderText :: (MonadIO m, IsPasswordEntry o) => o -> T.Text -> m ()
setPasswordEntryPlaceholderText :: forall (m :: * -> *) o.
(MonadIO m, IsPasswordEntry o) =>
o -> Text -> m ()
setPasswordEntryPlaceholderText 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)
constructPasswordEntryPlaceholderText :: (IsPasswordEntry o, MIO.MonadIO m) => T.Text -> m (GValueConstruct o)
constructPasswordEntryPlaceholderText :: forall o (m :: * -> *).
(IsPasswordEntry o, MonadIO m) =>
Text -> m (GValueConstruct o)
constructPasswordEntryPlaceholderText 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)
clearPasswordEntryPlaceholderText :: (MonadIO m, IsPasswordEntry o) => o -> m ()
clearPasswordEntryPlaceholderText :: forall (m :: * -> *) o. (MonadIO m, IsPasswordEntry o) => o -> m ()
clearPasswordEntryPlaceholderText 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 PasswordEntryPlaceholderTextPropertyInfo
instance AttrInfo PasswordEntryPlaceholderTextPropertyInfo where
type AttrAllowedOps PasswordEntryPlaceholderTextPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint PasswordEntryPlaceholderTextPropertyInfo = IsPasswordEntry
type AttrSetTypeConstraint PasswordEntryPlaceholderTextPropertyInfo = (~) T.Text
type AttrTransferTypeConstraint PasswordEntryPlaceholderTextPropertyInfo = (~) T.Text
type AttrTransferType PasswordEntryPlaceholderTextPropertyInfo = T.Text
type AttrGetType PasswordEntryPlaceholderTextPropertyInfo = (Maybe T.Text)
type AttrLabel PasswordEntryPlaceholderTextPropertyInfo = "placeholder-text"
type AttrOrigin PasswordEntryPlaceholderTextPropertyInfo = PasswordEntry
attrGet = getPasswordEntryPlaceholderText
attrSet = setPasswordEntryPlaceholderText
attrTransfer _ v = do
return v
attrConstruct = constructPasswordEntryPlaceholderText
attrClear = clearPasswordEntryPlaceholderText
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.PasswordEntry.placeholderText"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.8/docs/GI-Gtk-Objects-PasswordEntry.html#g:attr:placeholderText"
})
#endif
getPasswordEntryShowPeekIcon :: (MonadIO m, IsPasswordEntry o) => o -> m Bool
getPasswordEntryShowPeekIcon :: forall (m :: * -> *) o.
(MonadIO m, IsPasswordEntry o) =>
o -> m Bool
getPasswordEntryShowPeekIcon o
obj = IO Bool -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj String
"show-peek-icon"
setPasswordEntryShowPeekIcon :: (MonadIO m, IsPasswordEntry o) => o -> Bool -> m ()
setPasswordEntryShowPeekIcon :: forall (m :: * -> *) o.
(MonadIO m, IsPasswordEntry o) =>
o -> Bool -> m ()
setPasswordEntryShowPeekIcon o
obj Bool
val = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj String
"show-peek-icon" Bool
val
constructPasswordEntryShowPeekIcon :: (IsPasswordEntry o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructPasswordEntryShowPeekIcon :: forall o (m :: * -> *).
(IsPasswordEntry o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructPasswordEntryShowPeekIcon Bool
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool String
"show-peek-icon" Bool
val
#if defined(ENABLE_OVERLOADING)
data PasswordEntryShowPeekIconPropertyInfo
instance AttrInfo PasswordEntryShowPeekIconPropertyInfo where
type AttrAllowedOps PasswordEntryShowPeekIconPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint PasswordEntryShowPeekIconPropertyInfo = IsPasswordEntry
type AttrSetTypeConstraint PasswordEntryShowPeekIconPropertyInfo = (~) Bool
type AttrTransferTypeConstraint PasswordEntryShowPeekIconPropertyInfo = (~) Bool
type AttrTransferType PasswordEntryShowPeekIconPropertyInfo = Bool
type AttrGetType PasswordEntryShowPeekIconPropertyInfo = Bool
type AttrLabel PasswordEntryShowPeekIconPropertyInfo = "show-peek-icon"
type AttrOrigin PasswordEntryShowPeekIconPropertyInfo = PasswordEntry
attrGet = getPasswordEntryShowPeekIcon
attrSet = setPasswordEntryShowPeekIcon
attrTransfer _ v = do
return v
attrConstruct = constructPasswordEntryShowPeekIcon
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.PasswordEntry.showPeekIcon"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.8/docs/GI-Gtk-Objects-PasswordEntry.html#g:attr:showPeekIcon"
})
#endif
#if defined(ENABLE_OVERLOADING)
instance O.HasAttributeList PasswordEntry
type instance O.AttributeList PasswordEntry = PasswordEntryAttributeList
type PasswordEntryAttributeList = ('[ '("accessibleRole", Gtk.Accessible.AccessibleAccessibleRolePropertyInfo), '("activatesDefault", PasswordEntryActivatesDefaultPropertyInfo), '("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), '("extraMenu", PasswordEntryExtraMenuPropertyInfo), '("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", PasswordEntryPlaceholderTextPropertyInfo), '("receivesDefault", Gtk.Widget.WidgetReceivesDefaultPropertyInfo), '("root", Gtk.Widget.WidgetRootPropertyInfo), '("scaleFactor", Gtk.Widget.WidgetScaleFactorPropertyInfo), '("selectionBound", Gtk.Editable.EditableSelectionBoundPropertyInfo), '("sensitive", Gtk.Widget.WidgetSensitivePropertyInfo), '("showPeekIcon", PasswordEntryShowPeekIconPropertyInfo), '("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)
passwordEntryActivatesDefault :: AttrLabelProxy "activatesDefault"
passwordEntryActivatesDefault = AttrLabelProxy
passwordEntryExtraMenu :: AttrLabelProxy "extraMenu"
passwordEntryExtraMenu = AttrLabelProxy
passwordEntryPlaceholderText :: AttrLabelProxy "placeholderText"
passwordEntryPlaceholderText = AttrLabelProxy
passwordEntryShowPeekIcon :: AttrLabelProxy "showPeekIcon"
passwordEntryShowPeekIcon = AttrLabelProxy
#endif
#if defined(ENABLE_OVERLOADING)
type instance O.SignalList PasswordEntry = PasswordEntrySignalList
type PasswordEntrySignalList = ('[ '("activate", PasswordEntryActivateSignalInfo), '("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), '("notify", GObject.Object.ObjectNotifySignalInfo), '("queryTooltip", Gtk.Widget.WidgetQueryTooltipSignalInfo), '("realize", Gtk.Widget.WidgetRealizeSignalInfo), '("show", Gtk.Widget.WidgetShowSignalInfo), '("stateFlagsChanged", Gtk.Widget.WidgetStateFlagsChangedSignalInfo), '("unmap", Gtk.Widget.WidgetUnmapSignalInfo), '("unrealize", Gtk.Widget.WidgetUnrealizeSignalInfo)] :: [(Symbol, DK.Type)])
#endif
foreign import ccall "gtk_password_entry_new" gtk_password_entry_new ::
IO (Ptr PasswordEntry)
passwordEntryNew ::
(B.CallStack.HasCallStack, MonadIO m) =>
m PasswordEntry
passwordEntryNew :: forall (m :: * -> *). (HasCallStack, MonadIO m) => m PasswordEntry
passwordEntryNew = IO PasswordEntry -> m PasswordEntry
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO PasswordEntry -> m PasswordEntry)
-> IO PasswordEntry -> m PasswordEntry
forall a b. (a -> b) -> a -> b
$ do
Ptr PasswordEntry
result <- IO (Ptr PasswordEntry)
gtk_password_entry_new
Text -> Ptr PasswordEntry -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"passwordEntryNew" Ptr PasswordEntry
result
PasswordEntry
result' <- ((ManagedPtr PasswordEntry -> PasswordEntry)
-> Ptr PasswordEntry -> IO PasswordEntry
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr PasswordEntry -> PasswordEntry
PasswordEntry) Ptr PasswordEntry
result
PasswordEntry -> IO PasswordEntry
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return PasswordEntry
result'
#if defined(ENABLE_OVERLOADING)
#endif
foreign import ccall "gtk_password_entry_get_extra_menu" ::
Ptr PasswordEntry ->
IO (Ptr Gio.MenuModel.MenuModel)
passwordEntryGetExtraMenu ::
(B.CallStack.HasCallStack, MonadIO m, IsPasswordEntry a) =>
a
-> m (Maybe Gio.MenuModel.MenuModel)
a
entry = IO (Maybe MenuModel) -> m (Maybe MenuModel)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe MenuModel) -> m (Maybe MenuModel))
-> IO (Maybe MenuModel) -> m (Maybe MenuModel)
forall a b. (a -> b) -> a -> b
$ do
Ptr PasswordEntry
entry' <- a -> IO (Ptr PasswordEntry)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
entry
Ptr MenuModel
result <- Ptr PasswordEntry -> IO (Ptr MenuModel)
gtk_password_entry_get_extra_menu Ptr PasswordEntry
entry'
Maybe MenuModel
maybeResult <- Ptr MenuModel
-> (Ptr MenuModel -> IO MenuModel) -> IO (Maybe MenuModel)
forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
convertIfNonNull Ptr MenuModel
result ((Ptr MenuModel -> IO MenuModel) -> IO (Maybe MenuModel))
-> (Ptr MenuModel -> IO MenuModel) -> IO (Maybe MenuModel)
forall a b. (a -> b) -> a -> b
$ \Ptr MenuModel
result' -> do
MenuModel
result'' <- ((ManagedPtr MenuModel -> MenuModel)
-> Ptr MenuModel -> IO MenuModel
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr MenuModel -> MenuModel
Gio.MenuModel.MenuModel) Ptr MenuModel
result'
MenuModel -> IO MenuModel
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return MenuModel
result''
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
entry
Maybe MenuModel -> IO (Maybe MenuModel)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe MenuModel
maybeResult
#if defined(ENABLE_OVERLOADING)
data PasswordEntryGetExtraMenuMethodInfo
instance (signature ~ (m (Maybe Gio.MenuModel.MenuModel)), MonadIO m, IsPasswordEntry a) => O.OverloadedMethod PasswordEntryGetExtraMenuMethodInfo a signature where
overloadedMethod = passwordEntryGetExtraMenu
instance O.OverloadedMethodInfo PasswordEntryGetExtraMenuMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.PasswordEntry.passwordEntryGetExtraMenu",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.8/docs/GI-Gtk-Objects-PasswordEntry.html#v:passwordEntryGetExtraMenu"
})
#endif
foreign import ccall "gtk_password_entry_get_show_peek_icon" gtk_password_entry_get_show_peek_icon ::
Ptr PasswordEntry ->
IO CInt
passwordEntryGetShowPeekIcon ::
(B.CallStack.HasCallStack, MonadIO m, IsPasswordEntry a) =>
a
-> m Bool
passwordEntryGetShowPeekIcon :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsPasswordEntry a) =>
a -> m Bool
passwordEntryGetShowPeekIcon a
entry = IO Bool -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr PasswordEntry
entry' <- a -> IO (Ptr PasswordEntry)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
entry
CInt
result <- Ptr PasswordEntry -> IO CInt
gtk_password_entry_get_show_peek_icon Ptr PasswordEntry
entry'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
entry
Bool -> IO Bool
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data PasswordEntryGetShowPeekIconMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsPasswordEntry a) => O.OverloadedMethod PasswordEntryGetShowPeekIconMethodInfo a signature where
overloadedMethod = passwordEntryGetShowPeekIcon
instance O.OverloadedMethodInfo PasswordEntryGetShowPeekIconMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.PasswordEntry.passwordEntryGetShowPeekIcon",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.8/docs/GI-Gtk-Objects-PasswordEntry.html#v:passwordEntryGetShowPeekIcon"
})
#endif
foreign import ccall "gtk_password_entry_set_extra_menu" ::
Ptr PasswordEntry ->
Ptr Gio.MenuModel.MenuModel ->
IO ()
passwordEntrySetExtraMenu ::
(B.CallStack.HasCallStack, MonadIO m, IsPasswordEntry a, Gio.MenuModel.IsMenuModel b) =>
a
-> Maybe (b)
-> m ()
a
entry Maybe b
model = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr PasswordEntry
entry' <- a -> IO (Ptr PasswordEntry)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
entry
Ptr MenuModel
maybeModel <- case Maybe b
model of
Maybe b
Nothing -> Ptr MenuModel -> IO (Ptr MenuModel)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr MenuModel
forall a. Ptr a
nullPtr
Just b
jModel -> do
Ptr MenuModel
jModel' <- b -> IO (Ptr MenuModel)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
jModel
Ptr MenuModel -> IO (Ptr MenuModel)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr MenuModel
jModel'
Ptr PasswordEntry -> Ptr MenuModel -> IO ()
gtk_password_entry_set_extra_menu Ptr PasswordEntry
entry' Ptr MenuModel
maybeModel
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
model b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data PasswordEntrySetExtraMenuMethodInfo
instance (signature ~ (Maybe (b) -> m ()), MonadIO m, IsPasswordEntry a, Gio.MenuModel.IsMenuModel b) => O.OverloadedMethod PasswordEntrySetExtraMenuMethodInfo a signature where
overloadedMethod = passwordEntrySetExtraMenu
instance O.OverloadedMethodInfo PasswordEntrySetExtraMenuMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.PasswordEntry.passwordEntrySetExtraMenu",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.8/docs/GI-Gtk-Objects-PasswordEntry.html#v:passwordEntrySetExtraMenu"
})
#endif
foreign import ccall "gtk_password_entry_set_show_peek_icon" gtk_password_entry_set_show_peek_icon ::
Ptr PasswordEntry ->
CInt ->
IO ()
passwordEntrySetShowPeekIcon ::
(B.CallStack.HasCallStack, MonadIO m, IsPasswordEntry a) =>
a
-> Bool
-> m ()
passwordEntrySetShowPeekIcon :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsPasswordEntry a) =>
a -> Bool -> m ()
passwordEntrySetShowPeekIcon a
entry Bool
showPeekIcon = 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 PasswordEntry
entry' <- a -> IO (Ptr PasswordEntry)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
entry
let showPeekIcon' :: CInt
showPeekIcon' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
P.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
P.fromEnum) Bool
showPeekIcon
Ptr PasswordEntry -> CInt -> IO ()
gtk_password_entry_set_show_peek_icon Ptr PasswordEntry
entry' CInt
showPeekIcon'
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 PasswordEntrySetShowPeekIconMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsPasswordEntry a) => O.OverloadedMethod PasswordEntrySetShowPeekIconMethodInfo a signature where
overloadedMethod = passwordEntrySetShowPeekIcon
instance O.OverloadedMethodInfo PasswordEntrySetShowPeekIconMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.PasswordEntry.passwordEntrySetShowPeekIcon",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.8/docs/GI-Gtk-Objects-PasswordEntry.html#v:passwordEntrySetShowPeekIcon"
})
#endif