{-# LANGUAGE TypeApplications #-}
#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif
module GI.Gtk.Objects.LockButton
(
LockButton(..) ,
IsLockButton ,
toLockButton ,
noLockButton ,
#if defined(ENABLE_OVERLOADING)
ResolveLockButtonMethod ,
#endif
#if defined(ENABLE_OVERLOADING)
LockButtonGetPermissionMethodInfo ,
#endif
lockButtonGetPermission ,
lockButtonNew ,
#if defined(ENABLE_OVERLOADING)
LockButtonSetPermissionMethodInfo ,
#endif
lockButtonSetPermission ,
#if defined(ENABLE_OVERLOADING)
LockButtonPermissionPropertyInfo ,
#endif
clearLockButtonPermission ,
constructLockButtonPermission ,
getLockButtonPermission ,
#if defined(ENABLE_OVERLOADING)
lockButtonPermission ,
#endif
setLockButtonPermission ,
#if defined(ENABLE_OVERLOADING)
LockButtonTextLockPropertyInfo ,
#endif
clearLockButtonTextLock ,
constructLockButtonTextLock ,
getLockButtonTextLock ,
#if defined(ENABLE_OVERLOADING)
lockButtonTextLock ,
#endif
setLockButtonTextLock ,
#if defined(ENABLE_OVERLOADING)
LockButtonTextUnlockPropertyInfo ,
#endif
clearLockButtonTextUnlock ,
constructLockButtonTextUnlock ,
getLockButtonTextUnlock ,
#if defined(ENABLE_OVERLOADING)
lockButtonTextUnlock ,
#endif
setLockButtonTextUnlock ,
#if defined(ENABLE_OVERLOADING)
LockButtonTooltipLockPropertyInfo ,
#endif
clearLockButtonTooltipLock ,
constructLockButtonTooltipLock ,
getLockButtonTooltipLock ,
#if defined(ENABLE_OVERLOADING)
lockButtonTooltipLock ,
#endif
setLockButtonTooltipLock ,
#if defined(ENABLE_OVERLOADING)
LockButtonTooltipNotAuthorizedPropertyInfo,
#endif
clearLockButtonTooltipNotAuthorized ,
constructLockButtonTooltipNotAuthorized ,
getLockButtonTooltipNotAuthorized ,
#if defined(ENABLE_OVERLOADING)
lockButtonTooltipNotAuthorized ,
#endif
setLockButtonTooltipNotAuthorized ,
#if defined(ENABLE_OVERLOADING)
LockButtonTooltipUnlockPropertyInfo ,
#endif
clearLockButtonTooltipUnlock ,
constructLockButtonTooltipUnlock ,
getLockButtonTooltipUnlock ,
#if defined(ENABLE_OVERLOADING)
lockButtonTooltipUnlock ,
#endif
setLockButtonTooltipUnlock ,
) 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.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 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.Gio.Objects.Permission as Gio.Permission
import {-# SOURCE #-} qualified GI.Gtk.Interfaces.Actionable as Gtk.Actionable
import {-# SOURCE #-} qualified GI.Gtk.Interfaces.Buildable as Gtk.Buildable
import {-# SOURCE #-} qualified GI.Gtk.Objects.Bin as Gtk.Bin
import {-# SOURCE #-} qualified GI.Gtk.Objects.Button as Gtk.Button
import {-# SOURCE #-} qualified GI.Gtk.Objects.Container as Gtk.Container
import {-# SOURCE #-} qualified GI.Gtk.Objects.Widget as Gtk.Widget
newtype LockButton = LockButton (ManagedPtr LockButton)
deriving (LockButton -> LockButton -> Bool
(LockButton -> LockButton -> Bool)
-> (LockButton -> LockButton -> Bool) -> Eq LockButton
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: LockButton -> LockButton -> Bool
$c/= :: LockButton -> LockButton -> Bool
== :: LockButton -> LockButton -> Bool
$c== :: LockButton -> LockButton -> Bool
Eq)
foreign import ccall "gtk_lock_button_get_type"
c_gtk_lock_button_get_type :: IO GType
instance GObject LockButton where
gobjectType :: IO GType
gobjectType = IO GType
c_gtk_lock_button_get_type
instance B.GValue.IsGValue LockButton where
toGValue :: LockButton -> IO GValue
toGValue o :: LockButton
o = do
GType
gtype <- IO GType
c_gtk_lock_button_get_type
LockButton -> (Ptr LockButton -> IO GValue) -> IO GValue
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
B.ManagedPtr.withManagedPtr LockButton
o (GType
-> (GValue -> Ptr LockButton -> IO ())
-> Ptr LockButton
-> IO GValue
forall a. GType -> (GValue -> a -> IO ()) -> a -> IO GValue
B.GValue.buildGValue GType
gtype GValue -> Ptr LockButton -> IO ()
forall a. GObject a => GValue -> Ptr a -> IO ()
B.GValue.set_object)
fromGValue :: GValue -> IO LockButton
fromGValue gv :: GValue
gv = do
Ptr LockButton
ptr <- GValue -> IO (Ptr LockButton)
forall b. GObject b => GValue -> IO (Ptr b)
B.GValue.get_object GValue
gv :: IO (Ptr LockButton)
(ManagedPtr LockButton -> LockButton)
-> Ptr LockButton -> IO LockButton
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
B.ManagedPtr.newObject ManagedPtr LockButton -> LockButton
LockButton Ptr LockButton
ptr
class (GObject o, O.IsDescendantOf LockButton o) => IsLockButton o
instance (GObject o, O.IsDescendantOf LockButton o) => IsLockButton o
instance O.HasParentTypes LockButton
type instance O.ParentTypes LockButton = '[Gtk.Button.Button, Gtk.Bin.Bin, Gtk.Container.Container, Gtk.Widget.Widget, GObject.Object.Object, Atk.ImplementorIface.ImplementorIface, Gtk.Actionable.Actionable, Gtk.Buildable.Buildable]
toLockButton :: (MonadIO m, IsLockButton o) => o -> m LockButton
toLockButton :: o -> m LockButton
toLockButton = IO LockButton -> m LockButton
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO LockButton -> m LockButton)
-> (o -> IO LockButton) -> o -> m LockButton
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (ManagedPtr LockButton -> LockButton) -> o -> IO LockButton
forall o o'.
(HasCallStack, GObject o, GObject o') =>
(ManagedPtr o' -> o') -> o -> IO o'
unsafeCastTo ManagedPtr LockButton -> LockButton
LockButton
noLockButton :: Maybe LockButton
noLockButton :: Maybe LockButton
noLockButton = Maybe LockButton
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
type family ResolveLockButtonMethod (t :: Symbol) (o :: *) :: * where
ResolveLockButtonMethod "activate" o = Gtk.Widget.WidgetActivateMethodInfo
ResolveLockButtonMethod "activateAction" o = Gtk.Widget.WidgetActivateActionMethodInfo
ResolveLockButtonMethod "activateDefault" o = Gtk.Widget.WidgetActivateDefaultMethodInfo
ResolveLockButtonMethod "add" o = Gtk.Container.ContainerAddMethodInfo
ResolveLockButtonMethod "addAccelerator" o = Gtk.Widget.WidgetAddAcceleratorMethodInfo
ResolveLockButtonMethod "addChild" o = Gtk.Buildable.BuildableAddChildMethodInfo
ResolveLockButtonMethod "addController" o = Gtk.Widget.WidgetAddControllerMethodInfo
ResolveLockButtonMethod "addMnemonicLabel" o = Gtk.Widget.WidgetAddMnemonicLabelMethodInfo
ResolveLockButtonMethod "addTickCallback" o = Gtk.Widget.WidgetAddTickCallbackMethodInfo
ResolveLockButtonMethod "allocate" o = Gtk.Widget.WidgetAllocateMethodInfo
ResolveLockButtonMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
ResolveLockButtonMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
ResolveLockButtonMethod "canActivateAccel" o = Gtk.Widget.WidgetCanActivateAccelMethodInfo
ResolveLockButtonMethod "childFocus" o = Gtk.Widget.WidgetChildFocusMethodInfo
ResolveLockButtonMethod "childType" o = Gtk.Container.ContainerChildTypeMethodInfo
ResolveLockButtonMethod "clicked" o = Gtk.Button.ButtonClickedMethodInfo
ResolveLockButtonMethod "computeBounds" o = Gtk.Widget.WidgetComputeBoundsMethodInfo
ResolveLockButtonMethod "computeExpand" o = Gtk.Widget.WidgetComputeExpandMethodInfo
ResolveLockButtonMethod "computePoint" o = Gtk.Widget.WidgetComputePointMethodInfo
ResolveLockButtonMethod "computeTransform" o = Gtk.Widget.WidgetComputeTransformMethodInfo
ResolveLockButtonMethod "constructChild" o = Gtk.Buildable.BuildableConstructChildMethodInfo
ResolveLockButtonMethod "contains" o = Gtk.Widget.WidgetContainsMethodInfo
ResolveLockButtonMethod "createPangoContext" o = Gtk.Widget.WidgetCreatePangoContextMethodInfo
ResolveLockButtonMethod "createPangoLayout" o = Gtk.Widget.WidgetCreatePangoLayoutMethodInfo
ResolveLockButtonMethod "customFinished" o = Gtk.Buildable.BuildableCustomFinishedMethodInfo
ResolveLockButtonMethod "customTagEnd" o = Gtk.Buildable.BuildableCustomTagEndMethodInfo
ResolveLockButtonMethod "customTagStart" o = Gtk.Buildable.BuildableCustomTagStartMethodInfo
ResolveLockButtonMethod "destroy" o = Gtk.Widget.WidgetDestroyMethodInfo
ResolveLockButtonMethod "destroyed" o = Gtk.Widget.WidgetDestroyedMethodInfo
ResolveLockButtonMethod "deviceIsShadowed" o = Gtk.Widget.WidgetDeviceIsShadowedMethodInfo
ResolveLockButtonMethod "dragBegin" o = Gtk.Widget.WidgetDragBeginMethodInfo
ResolveLockButtonMethod "dragCheckThreshold" o = Gtk.Widget.WidgetDragCheckThresholdMethodInfo
ResolveLockButtonMethod "dragDestAddImageTargets" o = Gtk.Widget.WidgetDragDestAddImageTargetsMethodInfo
ResolveLockButtonMethod "dragDestAddTextTargets" o = Gtk.Widget.WidgetDragDestAddTextTargetsMethodInfo
ResolveLockButtonMethod "dragDestAddUriTargets" o = Gtk.Widget.WidgetDragDestAddUriTargetsMethodInfo
ResolveLockButtonMethod "dragDestFindTarget" o = Gtk.Widget.WidgetDragDestFindTargetMethodInfo
ResolveLockButtonMethod "dragDestGetTargetList" o = Gtk.Widget.WidgetDragDestGetTargetListMethodInfo
ResolveLockButtonMethod "dragDestGetTrackMotion" o = Gtk.Widget.WidgetDragDestGetTrackMotionMethodInfo
ResolveLockButtonMethod "dragDestSet" o = Gtk.Widget.WidgetDragDestSetMethodInfo
ResolveLockButtonMethod "dragDestSetTargetList" o = Gtk.Widget.WidgetDragDestSetTargetListMethodInfo
ResolveLockButtonMethod "dragDestSetTrackMotion" o = Gtk.Widget.WidgetDragDestSetTrackMotionMethodInfo
ResolveLockButtonMethod "dragDestUnset" o = Gtk.Widget.WidgetDragDestUnsetMethodInfo
ResolveLockButtonMethod "dragGetData" o = Gtk.Widget.WidgetDragGetDataMethodInfo
ResolveLockButtonMethod "dragHighlight" o = Gtk.Widget.WidgetDragHighlightMethodInfo
ResolveLockButtonMethod "dragSourceAddImageTargets" o = Gtk.Widget.WidgetDragSourceAddImageTargetsMethodInfo
ResolveLockButtonMethod "dragSourceAddTextTargets" o = Gtk.Widget.WidgetDragSourceAddTextTargetsMethodInfo
ResolveLockButtonMethod "dragSourceAddUriTargets" o = Gtk.Widget.WidgetDragSourceAddUriTargetsMethodInfo
ResolveLockButtonMethod "dragSourceGetTargetList" o = Gtk.Widget.WidgetDragSourceGetTargetListMethodInfo
ResolveLockButtonMethod "dragSourceSet" o = Gtk.Widget.WidgetDragSourceSetMethodInfo
ResolveLockButtonMethod "dragSourceSetIconGicon" o = Gtk.Widget.WidgetDragSourceSetIconGiconMethodInfo
ResolveLockButtonMethod "dragSourceSetIconName" o = Gtk.Widget.WidgetDragSourceSetIconNameMethodInfo
ResolveLockButtonMethod "dragSourceSetIconPaintable" o = Gtk.Widget.WidgetDragSourceSetIconPaintableMethodInfo
ResolveLockButtonMethod "dragSourceSetTargetList" o = Gtk.Widget.WidgetDragSourceSetTargetListMethodInfo
ResolveLockButtonMethod "dragSourceUnset" o = Gtk.Widget.WidgetDragSourceUnsetMethodInfo
ResolveLockButtonMethod "dragUnhighlight" o = Gtk.Widget.WidgetDragUnhighlightMethodInfo
ResolveLockButtonMethod "errorBell" o = Gtk.Widget.WidgetErrorBellMethodInfo
ResolveLockButtonMethod "event" o = Gtk.Widget.WidgetEventMethodInfo
ResolveLockButtonMethod "forall" o = Gtk.Container.ContainerForallMethodInfo
ResolveLockButtonMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
ResolveLockButtonMethod "foreach" o = Gtk.Container.ContainerForeachMethodInfo
ResolveLockButtonMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
ResolveLockButtonMethod "getv" o = GObject.Object.ObjectGetvMethodInfo
ResolveLockButtonMethod "grabAdd" o = Gtk.Widget.WidgetGrabAddMethodInfo
ResolveLockButtonMethod "grabFocus" o = Gtk.Widget.WidgetGrabFocusMethodInfo
ResolveLockButtonMethod "grabRemove" o = Gtk.Widget.WidgetGrabRemoveMethodInfo
ResolveLockButtonMethod "hasDefault" o = Gtk.Widget.WidgetHasDefaultMethodInfo
ResolveLockButtonMethod "hasFocus" o = Gtk.Widget.WidgetHasFocusMethodInfo
ResolveLockButtonMethod "hasGrab" o = Gtk.Widget.WidgetHasGrabMethodInfo
ResolveLockButtonMethod "hasVisibleFocus" o = Gtk.Widget.WidgetHasVisibleFocusMethodInfo
ResolveLockButtonMethod "hide" o = Gtk.Widget.WidgetHideMethodInfo
ResolveLockButtonMethod "inDestruction" o = Gtk.Widget.WidgetInDestructionMethodInfo
ResolveLockButtonMethod "initTemplate" o = Gtk.Widget.WidgetInitTemplateMethodInfo
ResolveLockButtonMethod "inputShapeCombineRegion" o = Gtk.Widget.WidgetInputShapeCombineRegionMethodInfo
ResolveLockButtonMethod "insertActionGroup" o = Gtk.Widget.WidgetInsertActionGroupMethodInfo
ResolveLockButtonMethod "insertAfter" o = Gtk.Widget.WidgetInsertAfterMethodInfo
ResolveLockButtonMethod "insertBefore" o = Gtk.Widget.WidgetInsertBeforeMethodInfo
ResolveLockButtonMethod "isAncestor" o = Gtk.Widget.WidgetIsAncestorMethodInfo
ResolveLockButtonMethod "isDrawable" o = Gtk.Widget.WidgetIsDrawableMethodInfo
ResolveLockButtonMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo
ResolveLockButtonMethod "isFocus" o = Gtk.Widget.WidgetIsFocusMethodInfo
ResolveLockButtonMethod "isSensitive" o = Gtk.Widget.WidgetIsSensitiveMethodInfo
ResolveLockButtonMethod "isToplevel" o = Gtk.Widget.WidgetIsToplevelMethodInfo
ResolveLockButtonMethod "isVisible" o = Gtk.Widget.WidgetIsVisibleMethodInfo
ResolveLockButtonMethod "keynavFailed" o = Gtk.Widget.WidgetKeynavFailedMethodInfo
ResolveLockButtonMethod "listAccelClosures" o = Gtk.Widget.WidgetListAccelClosuresMethodInfo
ResolveLockButtonMethod "listActionPrefixes" o = Gtk.Widget.WidgetListActionPrefixesMethodInfo
ResolveLockButtonMethod "listMnemonicLabels" o = Gtk.Widget.WidgetListMnemonicLabelsMethodInfo
ResolveLockButtonMethod "map" o = Gtk.Widget.WidgetMapMethodInfo
ResolveLockButtonMethod "measure" o = Gtk.Widget.WidgetMeasureMethodInfo
ResolveLockButtonMethod "mnemonicActivate" o = Gtk.Widget.WidgetMnemonicActivateMethodInfo
ResolveLockButtonMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
ResolveLockButtonMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
ResolveLockButtonMethod "observeChildren" o = Gtk.Widget.WidgetObserveChildrenMethodInfo
ResolveLockButtonMethod "observeControllers" o = Gtk.Widget.WidgetObserveControllersMethodInfo
ResolveLockButtonMethod "parserFinished" o = Gtk.Buildable.BuildableParserFinishedMethodInfo
ResolveLockButtonMethod "pick" o = Gtk.Widget.WidgetPickMethodInfo
ResolveLockButtonMethod "queueAllocate" o = Gtk.Widget.WidgetQueueAllocateMethodInfo
ResolveLockButtonMethod "queueComputeExpand" o = Gtk.Widget.WidgetQueueComputeExpandMethodInfo
ResolveLockButtonMethod "queueDraw" o = Gtk.Widget.WidgetQueueDrawMethodInfo
ResolveLockButtonMethod "queueResize" o = Gtk.Widget.WidgetQueueResizeMethodInfo
ResolveLockButtonMethod "queueResizeNoRedraw" o = Gtk.Widget.WidgetQueueResizeNoRedrawMethodInfo
ResolveLockButtonMethod "realize" o = Gtk.Widget.WidgetRealizeMethodInfo
ResolveLockButtonMethod "ref" o = GObject.Object.ObjectRefMethodInfo
ResolveLockButtonMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
ResolveLockButtonMethod "registerSurface" o = Gtk.Widget.WidgetRegisterSurfaceMethodInfo
ResolveLockButtonMethod "remove" o = Gtk.Container.ContainerRemoveMethodInfo
ResolveLockButtonMethod "removeAccelerator" o = Gtk.Widget.WidgetRemoveAcceleratorMethodInfo
ResolveLockButtonMethod "removeController" o = Gtk.Widget.WidgetRemoveControllerMethodInfo
ResolveLockButtonMethod "removeMnemonicLabel" o = Gtk.Widget.WidgetRemoveMnemonicLabelMethodInfo
ResolveLockButtonMethod "removeTickCallback" o = Gtk.Widget.WidgetRemoveTickCallbackMethodInfo
ResolveLockButtonMethod "resetStyle" o = Gtk.Widget.WidgetResetStyleMethodInfo
ResolveLockButtonMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
ResolveLockButtonMethod "show" o = Gtk.Widget.WidgetShowMethodInfo
ResolveLockButtonMethod "sizeAllocate" o = Gtk.Widget.WidgetSizeAllocateMethodInfo
ResolveLockButtonMethod "snapshotChild" o = Gtk.Widget.WidgetSnapshotChildMethodInfo
ResolveLockButtonMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
ResolveLockButtonMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
ResolveLockButtonMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo
ResolveLockButtonMethod "translateCoordinates" o = Gtk.Widget.WidgetTranslateCoordinatesMethodInfo
ResolveLockButtonMethod "triggerTooltipQuery" o = Gtk.Widget.WidgetTriggerTooltipQueryMethodInfo
ResolveLockButtonMethod "unmap" o = Gtk.Widget.WidgetUnmapMethodInfo
ResolveLockButtonMethod "unparent" o = Gtk.Widget.WidgetUnparentMethodInfo
ResolveLockButtonMethod "unrealize" o = Gtk.Widget.WidgetUnrealizeMethodInfo
ResolveLockButtonMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo
ResolveLockButtonMethod "unregisterSurface" o = Gtk.Widget.WidgetUnregisterSurfaceMethodInfo
ResolveLockButtonMethod "unsetStateFlags" o = Gtk.Widget.WidgetUnsetStateFlagsMethodInfo
ResolveLockButtonMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
ResolveLockButtonMethod "getAccessible" o = Gtk.Widget.WidgetGetAccessibleMethodInfo
ResolveLockButtonMethod "getActionGroup" o = Gtk.Widget.WidgetGetActionGroupMethodInfo
ResolveLockButtonMethod "getActionName" o = Gtk.Actionable.ActionableGetActionNameMethodInfo
ResolveLockButtonMethod "getActionTargetValue" o = Gtk.Actionable.ActionableGetActionTargetValueMethodInfo
ResolveLockButtonMethod "getAllocatedBaseline" o = Gtk.Widget.WidgetGetAllocatedBaselineMethodInfo
ResolveLockButtonMethod "getAllocatedHeight" o = Gtk.Widget.WidgetGetAllocatedHeightMethodInfo
ResolveLockButtonMethod "getAllocatedWidth" o = Gtk.Widget.WidgetGetAllocatedWidthMethodInfo
ResolveLockButtonMethod "getAllocation" o = Gtk.Widget.WidgetGetAllocationMethodInfo
ResolveLockButtonMethod "getAncestor" o = Gtk.Widget.WidgetGetAncestorMethodInfo
ResolveLockButtonMethod "getCanFocus" o = Gtk.Widget.WidgetGetCanFocusMethodInfo
ResolveLockButtonMethod "getCanTarget" o = Gtk.Widget.WidgetGetCanTargetMethodInfo
ResolveLockButtonMethod "getChild" o = Gtk.Bin.BinGetChildMethodInfo
ResolveLockButtonMethod "getChildVisible" o = Gtk.Widget.WidgetGetChildVisibleMethodInfo
ResolveLockButtonMethod "getChildren" o = Gtk.Container.ContainerGetChildrenMethodInfo
ResolveLockButtonMethod "getClipboard" o = Gtk.Widget.WidgetGetClipboardMethodInfo
ResolveLockButtonMethod "getCursor" o = Gtk.Widget.WidgetGetCursorMethodInfo
ResolveLockButtonMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
ResolveLockButtonMethod "getDirection" o = Gtk.Widget.WidgetGetDirectionMethodInfo
ResolveLockButtonMethod "getDisplay" o = Gtk.Widget.WidgetGetDisplayMethodInfo
ResolveLockButtonMethod "getFirstChild" o = Gtk.Widget.WidgetGetFirstChildMethodInfo
ResolveLockButtonMethod "getFocusChild" o = Gtk.Widget.WidgetGetFocusChildMethodInfo
ResolveLockButtonMethod "getFocusHadjustment" o = Gtk.Container.ContainerGetFocusHadjustmentMethodInfo
ResolveLockButtonMethod "getFocusOnClick" o = Gtk.Widget.WidgetGetFocusOnClickMethodInfo
ResolveLockButtonMethod "getFocusVadjustment" o = Gtk.Container.ContainerGetFocusVadjustmentMethodInfo
ResolveLockButtonMethod "getFontMap" o = Gtk.Widget.WidgetGetFontMapMethodInfo
ResolveLockButtonMethod "getFontOptions" o = Gtk.Widget.WidgetGetFontOptionsMethodInfo
ResolveLockButtonMethod "getFrameClock" o = Gtk.Widget.WidgetGetFrameClockMethodInfo
ResolveLockButtonMethod "getHalign" o = Gtk.Widget.WidgetGetHalignMethodInfo
ResolveLockButtonMethod "getHasSurface" o = Gtk.Widget.WidgetGetHasSurfaceMethodInfo
ResolveLockButtonMethod "getHasTooltip" o = Gtk.Widget.WidgetGetHasTooltipMethodInfo
ResolveLockButtonMethod "getHeight" o = Gtk.Widget.WidgetGetHeightMethodInfo
ResolveLockButtonMethod "getHexpand" o = Gtk.Widget.WidgetGetHexpandMethodInfo
ResolveLockButtonMethod "getHexpandSet" o = Gtk.Widget.WidgetGetHexpandSetMethodInfo
ResolveLockButtonMethod "getIconName" o = Gtk.Button.ButtonGetIconNameMethodInfo
ResolveLockButtonMethod "getInternalChild" o = Gtk.Buildable.BuildableGetInternalChildMethodInfo
ResolveLockButtonMethod "getLabel" o = Gtk.Button.ButtonGetLabelMethodInfo
ResolveLockButtonMethod "getLastChild" o = Gtk.Widget.WidgetGetLastChildMethodInfo
ResolveLockButtonMethod "getLayoutManager" o = Gtk.Widget.WidgetGetLayoutManagerMethodInfo
ResolveLockButtonMethod "getMapped" o = Gtk.Widget.WidgetGetMappedMethodInfo
ResolveLockButtonMethod "getMarginBottom" o = Gtk.Widget.WidgetGetMarginBottomMethodInfo
ResolveLockButtonMethod "getMarginEnd" o = Gtk.Widget.WidgetGetMarginEndMethodInfo
ResolveLockButtonMethod "getMarginStart" o = Gtk.Widget.WidgetGetMarginStartMethodInfo
ResolveLockButtonMethod "getMarginTop" o = Gtk.Widget.WidgetGetMarginTopMethodInfo
ResolveLockButtonMethod "getModifierMask" o = Gtk.Widget.WidgetGetModifierMaskMethodInfo
ResolveLockButtonMethod "getName" o = Gtk.Widget.WidgetGetNameMethodInfo
ResolveLockButtonMethod "getNextSibling" o = Gtk.Widget.WidgetGetNextSiblingMethodInfo
ResolveLockButtonMethod "getOpacity" o = Gtk.Widget.WidgetGetOpacityMethodInfo
ResolveLockButtonMethod "getOverflow" o = Gtk.Widget.WidgetGetOverflowMethodInfo
ResolveLockButtonMethod "getPangoContext" o = Gtk.Widget.WidgetGetPangoContextMethodInfo
ResolveLockButtonMethod "getParent" o = Gtk.Widget.WidgetGetParentMethodInfo
ResolveLockButtonMethod "getPath" o = Gtk.Widget.WidgetGetPathMethodInfo
ResolveLockButtonMethod "getPathForChild" o = Gtk.Container.ContainerGetPathForChildMethodInfo
ResolveLockButtonMethod "getPermission" o = LockButtonGetPermissionMethodInfo
ResolveLockButtonMethod "getPreferredSize" o = Gtk.Widget.WidgetGetPreferredSizeMethodInfo
ResolveLockButtonMethod "getPrevSibling" o = Gtk.Widget.WidgetGetPrevSiblingMethodInfo
ResolveLockButtonMethod "getPrimaryClipboard" o = Gtk.Widget.WidgetGetPrimaryClipboardMethodInfo
ResolveLockButtonMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo
ResolveLockButtonMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo
ResolveLockButtonMethod "getRealized" o = Gtk.Widget.WidgetGetRealizedMethodInfo
ResolveLockButtonMethod "getReceivesDefault" o = Gtk.Widget.WidgetGetReceivesDefaultMethodInfo
ResolveLockButtonMethod "getRelief" o = Gtk.Button.ButtonGetReliefMethodInfo
ResolveLockButtonMethod "getRequestMode" o = Gtk.Widget.WidgetGetRequestModeMethodInfo
ResolveLockButtonMethod "getRoot" o = Gtk.Widget.WidgetGetRootMethodInfo
ResolveLockButtonMethod "getScaleFactor" o = Gtk.Widget.WidgetGetScaleFactorMethodInfo
ResolveLockButtonMethod "getSensitive" o = Gtk.Widget.WidgetGetSensitiveMethodInfo
ResolveLockButtonMethod "getSettings" o = Gtk.Widget.WidgetGetSettingsMethodInfo
ResolveLockButtonMethod "getSizeRequest" o = Gtk.Widget.WidgetGetSizeRequestMethodInfo
ResolveLockButtonMethod "getStateFlags" o = Gtk.Widget.WidgetGetStateFlagsMethodInfo
ResolveLockButtonMethod "getStyleContext" o = Gtk.Widget.WidgetGetStyleContextMethodInfo
ResolveLockButtonMethod "getSupportMultidevice" o = Gtk.Widget.WidgetGetSupportMultideviceMethodInfo
ResolveLockButtonMethod "getSurface" o = Gtk.Widget.WidgetGetSurfaceMethodInfo
ResolveLockButtonMethod "getTemplateChild" o = Gtk.Widget.WidgetGetTemplateChildMethodInfo
ResolveLockButtonMethod "getTooltipMarkup" o = Gtk.Widget.WidgetGetTooltipMarkupMethodInfo
ResolveLockButtonMethod "getTooltipText" o = Gtk.Widget.WidgetGetTooltipTextMethodInfo
ResolveLockButtonMethod "getTooltipWindow" o = Gtk.Widget.WidgetGetTooltipWindowMethodInfo
ResolveLockButtonMethod "getToplevel" o = Gtk.Widget.WidgetGetToplevelMethodInfo
ResolveLockButtonMethod "getUseUnderline" o = Gtk.Button.ButtonGetUseUnderlineMethodInfo
ResolveLockButtonMethod "getValign" o = Gtk.Widget.WidgetGetValignMethodInfo
ResolveLockButtonMethod "getVexpand" o = Gtk.Widget.WidgetGetVexpandMethodInfo
ResolveLockButtonMethod "getVexpandSet" o = Gtk.Widget.WidgetGetVexpandSetMethodInfo
ResolveLockButtonMethod "getVisible" o = Gtk.Widget.WidgetGetVisibleMethodInfo
ResolveLockButtonMethod "getWidth" o = Gtk.Widget.WidgetGetWidthMethodInfo
ResolveLockButtonMethod "setAccelPath" o = Gtk.Widget.WidgetSetAccelPathMethodInfo
ResolveLockButtonMethod "setActionName" o = Gtk.Actionable.ActionableSetActionNameMethodInfo
ResolveLockButtonMethod "setActionTargetValue" o = Gtk.Actionable.ActionableSetActionTargetValueMethodInfo
ResolveLockButtonMethod "setBuildableProperty" o = Gtk.Buildable.BuildableSetBuildablePropertyMethodInfo
ResolveLockButtonMethod "setCanFocus" o = Gtk.Widget.WidgetSetCanFocusMethodInfo
ResolveLockButtonMethod "setCanTarget" o = Gtk.Widget.WidgetSetCanTargetMethodInfo
ResolveLockButtonMethod "setChildVisible" o = Gtk.Widget.WidgetSetChildVisibleMethodInfo
ResolveLockButtonMethod "setCursor" o = Gtk.Widget.WidgetSetCursorMethodInfo
ResolveLockButtonMethod "setCursorFromName" o = Gtk.Widget.WidgetSetCursorFromNameMethodInfo
ResolveLockButtonMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
ResolveLockButtonMethod "setDataFull" o = GObject.Object.ObjectSetDataFullMethodInfo
ResolveLockButtonMethod "setDetailedActionName" o = Gtk.Actionable.ActionableSetDetailedActionNameMethodInfo
ResolveLockButtonMethod "setDirection" o = Gtk.Widget.WidgetSetDirectionMethodInfo
ResolveLockButtonMethod "setFocusChild" o = Gtk.Widget.WidgetSetFocusChildMethodInfo
ResolveLockButtonMethod "setFocusHadjustment" o = Gtk.Container.ContainerSetFocusHadjustmentMethodInfo
ResolveLockButtonMethod "setFocusOnClick" o = Gtk.Widget.WidgetSetFocusOnClickMethodInfo
ResolveLockButtonMethod "setFocusVadjustment" o = Gtk.Container.ContainerSetFocusVadjustmentMethodInfo
ResolveLockButtonMethod "setFontMap" o = Gtk.Widget.WidgetSetFontMapMethodInfo
ResolveLockButtonMethod "setFontOptions" o = Gtk.Widget.WidgetSetFontOptionsMethodInfo
ResolveLockButtonMethod "setHalign" o = Gtk.Widget.WidgetSetHalignMethodInfo
ResolveLockButtonMethod "setHasSurface" o = Gtk.Widget.WidgetSetHasSurfaceMethodInfo
ResolveLockButtonMethod "setHasTooltip" o = Gtk.Widget.WidgetSetHasTooltipMethodInfo
ResolveLockButtonMethod "setHexpand" o = Gtk.Widget.WidgetSetHexpandMethodInfo
ResolveLockButtonMethod "setHexpandSet" o = Gtk.Widget.WidgetSetHexpandSetMethodInfo
ResolveLockButtonMethod "setIconName" o = Gtk.Button.ButtonSetIconNameMethodInfo
ResolveLockButtonMethod "setLabel" o = Gtk.Button.ButtonSetLabelMethodInfo
ResolveLockButtonMethod "setLayoutManager" o = Gtk.Widget.WidgetSetLayoutManagerMethodInfo
ResolveLockButtonMethod "setMarginBottom" o = Gtk.Widget.WidgetSetMarginBottomMethodInfo
ResolveLockButtonMethod "setMarginEnd" o = Gtk.Widget.WidgetSetMarginEndMethodInfo
ResolveLockButtonMethod "setMarginStart" o = Gtk.Widget.WidgetSetMarginStartMethodInfo
ResolveLockButtonMethod "setMarginTop" o = Gtk.Widget.WidgetSetMarginTopMethodInfo
ResolveLockButtonMethod "setName" o = Gtk.Widget.WidgetSetNameMethodInfo
ResolveLockButtonMethod "setOpacity" o = Gtk.Widget.WidgetSetOpacityMethodInfo
ResolveLockButtonMethod "setOverflow" o = Gtk.Widget.WidgetSetOverflowMethodInfo
ResolveLockButtonMethod "setParent" o = Gtk.Widget.WidgetSetParentMethodInfo
ResolveLockButtonMethod "setPermission" o = LockButtonSetPermissionMethodInfo
ResolveLockButtonMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
ResolveLockButtonMethod "setReceivesDefault" o = Gtk.Widget.WidgetSetReceivesDefaultMethodInfo
ResolveLockButtonMethod "setRelief" o = Gtk.Button.ButtonSetReliefMethodInfo
ResolveLockButtonMethod "setSensitive" o = Gtk.Widget.WidgetSetSensitiveMethodInfo
ResolveLockButtonMethod "setSizeRequest" o = Gtk.Widget.WidgetSetSizeRequestMethodInfo
ResolveLockButtonMethod "setStateFlags" o = Gtk.Widget.WidgetSetStateFlagsMethodInfo
ResolveLockButtonMethod "setSupportMultidevice" o = Gtk.Widget.WidgetSetSupportMultideviceMethodInfo
ResolveLockButtonMethod "setSurface" o = Gtk.Widget.WidgetSetSurfaceMethodInfo
ResolveLockButtonMethod "setTooltipMarkup" o = Gtk.Widget.WidgetSetTooltipMarkupMethodInfo
ResolveLockButtonMethod "setTooltipText" o = Gtk.Widget.WidgetSetTooltipTextMethodInfo
ResolveLockButtonMethod "setTooltipWindow" o = Gtk.Widget.WidgetSetTooltipWindowMethodInfo
ResolveLockButtonMethod "setUseUnderline" o = Gtk.Button.ButtonSetUseUnderlineMethodInfo
ResolveLockButtonMethod "setValign" o = Gtk.Widget.WidgetSetValignMethodInfo
ResolveLockButtonMethod "setVexpand" o = Gtk.Widget.WidgetSetVexpandMethodInfo
ResolveLockButtonMethod "setVexpandSet" o = Gtk.Widget.WidgetSetVexpandSetMethodInfo
ResolveLockButtonMethod "setVisible" o = Gtk.Widget.WidgetSetVisibleMethodInfo
ResolveLockButtonMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveLockButtonMethod t LockButton, O.MethodInfo info LockButton p) => OL.IsLabel t (LockButton -> p) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.overloadedMethod @info
#else
fromLabel _ = O.overloadedMethod @info
#endif
#endif
getLockButtonPermission :: (MonadIO m, IsLockButton o) => o -> m Gio.Permission.Permission
getLockButtonPermission :: o -> m Permission
getLockButtonPermission obj :: o
obj = IO Permission -> m Permission
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Permission -> m Permission) -> IO Permission -> m Permission
forall a b. (a -> b) -> a -> b
$ Text -> IO (Maybe Permission) -> IO Permission
forall a. HasCallStack => Text -> IO (Maybe a) -> IO a
checkUnexpectedNothing "getLockButtonPermission" (IO (Maybe Permission) -> IO Permission)
-> IO (Maybe Permission) -> IO Permission
forall a b. (a -> b) -> a -> b
$ o
-> String
-> (ManagedPtr Permission -> Permission)
-> IO (Maybe Permission)
forall a b.
(GObject a, GObject b) =>
a -> String -> (ManagedPtr b -> b) -> IO (Maybe b)
B.Properties.getObjectPropertyObject o
obj "permission" ManagedPtr Permission -> Permission
Gio.Permission.Permission
setLockButtonPermission :: (MonadIO m, IsLockButton o, Gio.Permission.IsPermission a) => o -> a -> m ()
setLockButtonPermission :: o -> a -> m ()
setLockButtonPermission obj :: o
obj val :: 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 "permission" (a -> Maybe a
forall a. a -> Maybe a
Just a
val)
constructLockButtonPermission :: (IsLockButton o, Gio.Permission.IsPermission a) => a -> IO (GValueConstruct o)
constructLockButtonPermission :: a -> IO (GValueConstruct o)
constructLockButtonPermission val :: a
val = String -> Maybe a -> IO (GValueConstruct o)
forall a o.
GObject a =>
String -> Maybe a -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyObject "permission" (a -> Maybe a
forall a. a -> Maybe a
Just a
val)
clearLockButtonPermission :: (MonadIO m, IsLockButton o) => o -> m ()
clearLockButtonPermission :: o -> m ()
clearLockButtonPermission obj :: 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 Permission -> IO ()
forall a b.
(GObject a, GObject b) =>
a -> String -> Maybe b -> IO ()
B.Properties.setObjectPropertyObject o
obj "permission" (Maybe Permission
forall a. Maybe a
Nothing :: Maybe Gio.Permission.Permission)
#if defined(ENABLE_OVERLOADING)
data LockButtonPermissionPropertyInfo
instance AttrInfo LockButtonPermissionPropertyInfo where
type AttrAllowedOps LockButtonPermissionPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint LockButtonPermissionPropertyInfo = IsLockButton
type AttrSetTypeConstraint LockButtonPermissionPropertyInfo = Gio.Permission.IsPermission
type AttrTransferTypeConstraint LockButtonPermissionPropertyInfo = Gio.Permission.IsPermission
type AttrTransferType LockButtonPermissionPropertyInfo = Gio.Permission.Permission
type AttrGetType LockButtonPermissionPropertyInfo = Gio.Permission.Permission
type AttrLabel LockButtonPermissionPropertyInfo = "permission"
type AttrOrigin LockButtonPermissionPropertyInfo = LockButton
attrGet = getLockButtonPermission
attrSet = setLockButtonPermission
attrTransfer _ v = do
unsafeCastTo Gio.Permission.Permission v
attrConstruct = constructLockButtonPermission
attrClear = clearLockButtonPermission
#endif
getLockButtonTextLock :: (MonadIO m, IsLockButton o) => o -> m (Maybe T.Text)
getLockButtonTextLock :: o -> m (Maybe Text)
getLockButtonTextLock obj :: o
obj = IO (Maybe Text) -> m (Maybe Text)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe Text) -> m (Maybe Text))
-> IO (Maybe Text) -> m (Maybe Text)
forall a b. (a -> b) -> a -> b
$ o -> String -> IO (Maybe Text)
forall a. GObject a => a -> String -> IO (Maybe Text)
B.Properties.getObjectPropertyString o
obj "text-lock"
setLockButtonTextLock :: (MonadIO m, IsLockButton o) => o -> T.Text -> m ()
setLockButtonTextLock :: o -> Text -> m ()
setLockButtonTextLock obj :: o
obj val :: Text
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 Text -> IO ()
forall a. GObject a => a -> String -> Maybe Text -> IO ()
B.Properties.setObjectPropertyString o
obj "text-lock" (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
val)
constructLockButtonTextLock :: (IsLockButton o) => T.Text -> IO (GValueConstruct o)
constructLockButtonTextLock :: Text -> IO (GValueConstruct o)
constructLockButtonTextLock val :: Text
val = String -> Maybe Text -> IO (GValueConstruct o)
forall o. String -> Maybe Text -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyString "text-lock" (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
val)
clearLockButtonTextLock :: (MonadIO m, IsLockButton o) => o -> m ()
clearLockButtonTextLock :: o -> m ()
clearLockButtonTextLock obj :: o
obj = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Maybe Text -> IO ()
forall a. GObject a => a -> String -> Maybe Text -> IO ()
B.Properties.setObjectPropertyString o
obj "text-lock" (Maybe Text
forall a. Maybe a
Nothing :: Maybe T.Text)
#if defined(ENABLE_OVERLOADING)
data LockButtonTextLockPropertyInfo
instance AttrInfo LockButtonTextLockPropertyInfo where
type AttrAllowedOps LockButtonTextLockPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint LockButtonTextLockPropertyInfo = IsLockButton
type AttrSetTypeConstraint LockButtonTextLockPropertyInfo = (~) T.Text
type AttrTransferTypeConstraint LockButtonTextLockPropertyInfo = (~) T.Text
type AttrTransferType LockButtonTextLockPropertyInfo = T.Text
type AttrGetType LockButtonTextLockPropertyInfo = (Maybe T.Text)
type AttrLabel LockButtonTextLockPropertyInfo = "text-lock"
type AttrOrigin LockButtonTextLockPropertyInfo = LockButton
attrGet = getLockButtonTextLock
attrSet = setLockButtonTextLock
attrTransfer _ v = do
return v
attrConstruct = constructLockButtonTextLock
attrClear = clearLockButtonTextLock
#endif
getLockButtonTextUnlock :: (MonadIO m, IsLockButton o) => o -> m (Maybe T.Text)
getLockButtonTextUnlock :: o -> m (Maybe Text)
getLockButtonTextUnlock obj :: o
obj = IO (Maybe Text) -> m (Maybe Text)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe Text) -> m (Maybe Text))
-> IO (Maybe Text) -> m (Maybe Text)
forall a b. (a -> b) -> a -> b
$ o -> String -> IO (Maybe Text)
forall a. GObject a => a -> String -> IO (Maybe Text)
B.Properties.getObjectPropertyString o
obj "text-unlock"
setLockButtonTextUnlock :: (MonadIO m, IsLockButton o) => o -> T.Text -> m ()
setLockButtonTextUnlock :: o -> Text -> m ()
setLockButtonTextUnlock obj :: o
obj val :: Text
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 Text -> IO ()
forall a. GObject a => a -> String -> Maybe Text -> IO ()
B.Properties.setObjectPropertyString o
obj "text-unlock" (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
val)
constructLockButtonTextUnlock :: (IsLockButton o) => T.Text -> IO (GValueConstruct o)
constructLockButtonTextUnlock :: Text -> IO (GValueConstruct o)
constructLockButtonTextUnlock val :: Text
val = String -> Maybe Text -> IO (GValueConstruct o)
forall o. String -> Maybe Text -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyString "text-unlock" (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
val)
clearLockButtonTextUnlock :: (MonadIO m, IsLockButton o) => o -> m ()
clearLockButtonTextUnlock :: o -> m ()
clearLockButtonTextUnlock obj :: o
obj = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Maybe Text -> IO ()
forall a. GObject a => a -> String -> Maybe Text -> IO ()
B.Properties.setObjectPropertyString o
obj "text-unlock" (Maybe Text
forall a. Maybe a
Nothing :: Maybe T.Text)
#if defined(ENABLE_OVERLOADING)
data LockButtonTextUnlockPropertyInfo
instance AttrInfo LockButtonTextUnlockPropertyInfo where
type AttrAllowedOps LockButtonTextUnlockPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint LockButtonTextUnlockPropertyInfo = IsLockButton
type AttrSetTypeConstraint LockButtonTextUnlockPropertyInfo = (~) T.Text
type AttrTransferTypeConstraint LockButtonTextUnlockPropertyInfo = (~) T.Text
type AttrTransferType LockButtonTextUnlockPropertyInfo = T.Text
type AttrGetType LockButtonTextUnlockPropertyInfo = (Maybe T.Text)
type AttrLabel LockButtonTextUnlockPropertyInfo = "text-unlock"
type AttrOrigin LockButtonTextUnlockPropertyInfo = LockButton
attrGet = getLockButtonTextUnlock
attrSet = setLockButtonTextUnlock
attrTransfer _ v = do
return v
attrConstruct = constructLockButtonTextUnlock
attrClear = clearLockButtonTextUnlock
#endif
getLockButtonTooltipLock :: (MonadIO m, IsLockButton o) => o -> m (Maybe T.Text)
getLockButtonTooltipLock :: o -> m (Maybe Text)
getLockButtonTooltipLock obj :: o
obj = IO (Maybe Text) -> m (Maybe Text)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe Text) -> m (Maybe Text))
-> IO (Maybe Text) -> m (Maybe Text)
forall a b. (a -> b) -> a -> b
$ o -> String -> IO (Maybe Text)
forall a. GObject a => a -> String -> IO (Maybe Text)
B.Properties.getObjectPropertyString o
obj "tooltip-lock"
setLockButtonTooltipLock :: (MonadIO m, IsLockButton o) => o -> T.Text -> m ()
setLockButtonTooltipLock :: o -> Text -> m ()
setLockButtonTooltipLock obj :: o
obj val :: Text
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 Text -> IO ()
forall a. GObject a => a -> String -> Maybe Text -> IO ()
B.Properties.setObjectPropertyString o
obj "tooltip-lock" (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
val)
constructLockButtonTooltipLock :: (IsLockButton o) => T.Text -> IO (GValueConstruct o)
constructLockButtonTooltipLock :: Text -> IO (GValueConstruct o)
constructLockButtonTooltipLock val :: Text
val = String -> Maybe Text -> IO (GValueConstruct o)
forall o. String -> Maybe Text -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyString "tooltip-lock" (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
val)
clearLockButtonTooltipLock :: (MonadIO m, IsLockButton o) => o -> m ()
clearLockButtonTooltipLock :: o -> m ()
clearLockButtonTooltipLock obj :: o
obj = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Maybe Text -> IO ()
forall a. GObject a => a -> String -> Maybe Text -> IO ()
B.Properties.setObjectPropertyString o
obj "tooltip-lock" (Maybe Text
forall a. Maybe a
Nothing :: Maybe T.Text)
#if defined(ENABLE_OVERLOADING)
data LockButtonTooltipLockPropertyInfo
instance AttrInfo LockButtonTooltipLockPropertyInfo where
type AttrAllowedOps LockButtonTooltipLockPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint LockButtonTooltipLockPropertyInfo = IsLockButton
type AttrSetTypeConstraint LockButtonTooltipLockPropertyInfo = (~) T.Text
type AttrTransferTypeConstraint LockButtonTooltipLockPropertyInfo = (~) T.Text
type AttrTransferType LockButtonTooltipLockPropertyInfo = T.Text
type AttrGetType LockButtonTooltipLockPropertyInfo = (Maybe T.Text)
type AttrLabel LockButtonTooltipLockPropertyInfo = "tooltip-lock"
type AttrOrigin LockButtonTooltipLockPropertyInfo = LockButton
attrGet = getLockButtonTooltipLock
attrSet = setLockButtonTooltipLock
attrTransfer _ v = do
return v
attrConstruct = constructLockButtonTooltipLock
attrClear = clearLockButtonTooltipLock
#endif
getLockButtonTooltipNotAuthorized :: (MonadIO m, IsLockButton o) => o -> m (Maybe T.Text)
getLockButtonTooltipNotAuthorized :: o -> m (Maybe Text)
getLockButtonTooltipNotAuthorized obj :: o
obj = IO (Maybe Text) -> m (Maybe Text)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe Text) -> m (Maybe Text))
-> IO (Maybe Text) -> m (Maybe Text)
forall a b. (a -> b) -> a -> b
$ o -> String -> IO (Maybe Text)
forall a. GObject a => a -> String -> IO (Maybe Text)
B.Properties.getObjectPropertyString o
obj "tooltip-not-authorized"
setLockButtonTooltipNotAuthorized :: (MonadIO m, IsLockButton o) => o -> T.Text -> m ()
setLockButtonTooltipNotAuthorized :: o -> Text -> m ()
setLockButtonTooltipNotAuthorized obj :: o
obj val :: Text
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 Text -> IO ()
forall a. GObject a => a -> String -> Maybe Text -> IO ()
B.Properties.setObjectPropertyString o
obj "tooltip-not-authorized" (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
val)
constructLockButtonTooltipNotAuthorized :: (IsLockButton o) => T.Text -> IO (GValueConstruct o)
constructLockButtonTooltipNotAuthorized :: Text -> IO (GValueConstruct o)
constructLockButtonTooltipNotAuthorized val :: Text
val = String -> Maybe Text -> IO (GValueConstruct o)
forall o. String -> Maybe Text -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyString "tooltip-not-authorized" (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
val)
clearLockButtonTooltipNotAuthorized :: (MonadIO m, IsLockButton o) => o -> m ()
clearLockButtonTooltipNotAuthorized :: o -> m ()
clearLockButtonTooltipNotAuthorized obj :: o
obj = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Maybe Text -> IO ()
forall a. GObject a => a -> String -> Maybe Text -> IO ()
B.Properties.setObjectPropertyString o
obj "tooltip-not-authorized" (Maybe Text
forall a. Maybe a
Nothing :: Maybe T.Text)
#if defined(ENABLE_OVERLOADING)
data LockButtonTooltipNotAuthorizedPropertyInfo
instance AttrInfo LockButtonTooltipNotAuthorizedPropertyInfo where
type AttrAllowedOps LockButtonTooltipNotAuthorizedPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint LockButtonTooltipNotAuthorizedPropertyInfo = IsLockButton
type AttrSetTypeConstraint LockButtonTooltipNotAuthorizedPropertyInfo = (~) T.Text
type AttrTransferTypeConstraint LockButtonTooltipNotAuthorizedPropertyInfo = (~) T.Text
type AttrTransferType LockButtonTooltipNotAuthorizedPropertyInfo = T.Text
type AttrGetType LockButtonTooltipNotAuthorizedPropertyInfo = (Maybe T.Text)
type AttrLabel LockButtonTooltipNotAuthorizedPropertyInfo = "tooltip-not-authorized"
type AttrOrigin LockButtonTooltipNotAuthorizedPropertyInfo = LockButton
attrGet = getLockButtonTooltipNotAuthorized
attrSet = setLockButtonTooltipNotAuthorized
attrTransfer _ v = do
return v
attrConstruct = constructLockButtonTooltipNotAuthorized
attrClear = clearLockButtonTooltipNotAuthorized
#endif
getLockButtonTooltipUnlock :: (MonadIO m, IsLockButton o) => o -> m (Maybe T.Text)
getLockButtonTooltipUnlock :: o -> m (Maybe Text)
getLockButtonTooltipUnlock obj :: o
obj = IO (Maybe Text) -> m (Maybe Text)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe Text) -> m (Maybe Text))
-> IO (Maybe Text) -> m (Maybe Text)
forall a b. (a -> b) -> a -> b
$ o -> String -> IO (Maybe Text)
forall a. GObject a => a -> String -> IO (Maybe Text)
B.Properties.getObjectPropertyString o
obj "tooltip-unlock"
setLockButtonTooltipUnlock :: (MonadIO m, IsLockButton o) => o -> T.Text -> m ()
setLockButtonTooltipUnlock :: o -> Text -> m ()
setLockButtonTooltipUnlock obj :: o
obj val :: Text
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 Text -> IO ()
forall a. GObject a => a -> String -> Maybe Text -> IO ()
B.Properties.setObjectPropertyString o
obj "tooltip-unlock" (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
val)
constructLockButtonTooltipUnlock :: (IsLockButton o) => T.Text -> IO (GValueConstruct o)
constructLockButtonTooltipUnlock :: Text -> IO (GValueConstruct o)
constructLockButtonTooltipUnlock val :: Text
val = String -> Maybe Text -> IO (GValueConstruct o)
forall o. String -> Maybe Text -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyString "tooltip-unlock" (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
val)
clearLockButtonTooltipUnlock :: (MonadIO m, IsLockButton o) => o -> m ()
clearLockButtonTooltipUnlock :: o -> m ()
clearLockButtonTooltipUnlock obj :: o
obj = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Maybe Text -> IO ()
forall a. GObject a => a -> String -> Maybe Text -> IO ()
B.Properties.setObjectPropertyString o
obj "tooltip-unlock" (Maybe Text
forall a. Maybe a
Nothing :: Maybe T.Text)
#if defined(ENABLE_OVERLOADING)
data LockButtonTooltipUnlockPropertyInfo
instance AttrInfo LockButtonTooltipUnlockPropertyInfo where
type AttrAllowedOps LockButtonTooltipUnlockPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint LockButtonTooltipUnlockPropertyInfo = IsLockButton
type AttrSetTypeConstraint LockButtonTooltipUnlockPropertyInfo = (~) T.Text
type AttrTransferTypeConstraint LockButtonTooltipUnlockPropertyInfo = (~) T.Text
type AttrTransferType LockButtonTooltipUnlockPropertyInfo = T.Text
type AttrGetType LockButtonTooltipUnlockPropertyInfo = (Maybe T.Text)
type AttrLabel LockButtonTooltipUnlockPropertyInfo = "tooltip-unlock"
type AttrOrigin LockButtonTooltipUnlockPropertyInfo = LockButton
attrGet = getLockButtonTooltipUnlock
attrSet = setLockButtonTooltipUnlock
attrTransfer _ v = do
return v
attrConstruct = constructLockButtonTooltipUnlock
attrClear = clearLockButtonTooltipUnlock
#endif
#if defined(ENABLE_OVERLOADING)
instance O.HasAttributeList LockButton
type instance O.AttributeList LockButton = LockButtonAttributeList
type LockButtonAttributeList = ('[ '("actionName", Gtk.Actionable.ActionableActionNamePropertyInfo), '("actionTarget", Gtk.Actionable.ActionableActionTargetPropertyInfo), '("canFocus", Gtk.Widget.WidgetCanFocusPropertyInfo), '("canTarget", Gtk.Widget.WidgetCanTargetPropertyInfo), '("cssName", Gtk.Widget.WidgetCssNamePropertyInfo), '("cursor", Gtk.Widget.WidgetCursorPropertyInfo), '("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), '("iconName", Gtk.Button.ButtonIconNamePropertyInfo), '("isFocus", Gtk.Widget.WidgetIsFocusPropertyInfo), '("label", Gtk.Button.ButtonLabelPropertyInfo), '("layoutManager", Gtk.Widget.WidgetLayoutManagerPropertyInfo), '("margin", Gtk.Widget.WidgetMarginPropertyInfo), '("marginBottom", Gtk.Widget.WidgetMarginBottomPropertyInfo), '("marginEnd", Gtk.Widget.WidgetMarginEndPropertyInfo), '("marginStart", Gtk.Widget.WidgetMarginStartPropertyInfo), '("marginTop", Gtk.Widget.WidgetMarginTopPropertyInfo), '("name", Gtk.Widget.WidgetNamePropertyInfo), '("opacity", Gtk.Widget.WidgetOpacityPropertyInfo), '("overflow", Gtk.Widget.WidgetOverflowPropertyInfo), '("parent", Gtk.Widget.WidgetParentPropertyInfo), '("permission", LockButtonPermissionPropertyInfo), '("receivesDefault", Gtk.Widget.WidgetReceivesDefaultPropertyInfo), '("relief", Gtk.Button.ButtonReliefPropertyInfo), '("root", Gtk.Widget.WidgetRootPropertyInfo), '("scaleFactor", Gtk.Widget.WidgetScaleFactorPropertyInfo), '("sensitive", Gtk.Widget.WidgetSensitivePropertyInfo), '("surface", Gtk.Widget.WidgetSurfacePropertyInfo), '("textLock", LockButtonTextLockPropertyInfo), '("textUnlock", LockButtonTextUnlockPropertyInfo), '("tooltipLock", LockButtonTooltipLockPropertyInfo), '("tooltipMarkup", Gtk.Widget.WidgetTooltipMarkupPropertyInfo), '("tooltipNotAuthorized", LockButtonTooltipNotAuthorizedPropertyInfo), '("tooltipText", Gtk.Widget.WidgetTooltipTextPropertyInfo), '("tooltipUnlock", LockButtonTooltipUnlockPropertyInfo), '("useUnderline", Gtk.Button.ButtonUseUnderlinePropertyInfo), '("valign", Gtk.Widget.WidgetValignPropertyInfo), '("vexpand", Gtk.Widget.WidgetVexpandPropertyInfo), '("vexpandSet", Gtk.Widget.WidgetVexpandSetPropertyInfo), '("visible", Gtk.Widget.WidgetVisiblePropertyInfo), '("widthRequest", Gtk.Widget.WidgetWidthRequestPropertyInfo)] :: [(Symbol, *)])
#endif
#if defined(ENABLE_OVERLOADING)
lockButtonPermission :: AttrLabelProxy "permission"
lockButtonPermission = AttrLabelProxy
lockButtonTextLock :: AttrLabelProxy "textLock"
lockButtonTextLock = AttrLabelProxy
lockButtonTextUnlock :: AttrLabelProxy "textUnlock"
lockButtonTextUnlock = AttrLabelProxy
lockButtonTooltipLock :: AttrLabelProxy "tooltipLock"
lockButtonTooltipLock = AttrLabelProxy
lockButtonTooltipNotAuthorized :: AttrLabelProxy "tooltipNotAuthorized"
lockButtonTooltipNotAuthorized = AttrLabelProxy
lockButtonTooltipUnlock :: AttrLabelProxy "tooltipUnlock"
lockButtonTooltipUnlock = AttrLabelProxy
#endif
#if defined(ENABLE_OVERLOADING)
type instance O.SignalList LockButton = LockButtonSignalList
type LockButtonSignalList = ('[ '("accelClosuresChanged", Gtk.Widget.WidgetAccelClosuresChangedSignalInfo), '("activate", Gtk.Button.ButtonActivateSignalInfo), '("add", Gtk.Container.ContainerAddSignalInfo), '("canActivateAccel", Gtk.Widget.WidgetCanActivateAccelSignalInfo), '("clicked", Gtk.Button.ButtonClickedSignalInfo), '("destroy", Gtk.Widget.WidgetDestroySignalInfo), '("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), '("grabNotify", Gtk.Widget.WidgetGrabNotifySignalInfo), '("hide", Gtk.Widget.WidgetHideSignalInfo), '("keynavFailed", Gtk.Widget.WidgetKeynavFailedSignalInfo), '("map", Gtk.Widget.WidgetMapSignalInfo), '("mnemonicActivate", Gtk.Widget.WidgetMnemonicActivateSignalInfo), '("moveFocus", Gtk.Widget.WidgetMoveFocusSignalInfo), '("notify", GObject.Object.ObjectNotifySignalInfo), '("popupMenu", Gtk.Widget.WidgetPopupMenuSignalInfo), '("queryTooltip", Gtk.Widget.WidgetQueryTooltipSignalInfo), '("realize", Gtk.Widget.WidgetRealizeSignalInfo), '("remove", Gtk.Container.ContainerRemoveSignalInfo), '("show", Gtk.Widget.WidgetShowSignalInfo), '("sizeAllocate", Gtk.Widget.WidgetSizeAllocateSignalInfo), '("stateFlagsChanged", Gtk.Widget.WidgetStateFlagsChangedSignalInfo), '("styleUpdated", Gtk.Widget.WidgetStyleUpdatedSignalInfo), '("unmap", Gtk.Widget.WidgetUnmapSignalInfo), '("unrealize", Gtk.Widget.WidgetUnrealizeSignalInfo)] :: [(Symbol, *)])
#endif
foreign import ccall "gtk_lock_button_new" gtk_lock_button_new ::
Ptr Gio.Permission.Permission ->
IO (Ptr LockButton)
lockButtonNew ::
(B.CallStack.HasCallStack, MonadIO m, Gio.Permission.IsPermission a) =>
Maybe (a)
-> m LockButton
lockButtonNew :: Maybe a -> m LockButton
lockButtonNew permission :: Maybe a
permission = IO LockButton -> m LockButton
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO LockButton -> m LockButton) -> IO LockButton -> m LockButton
forall a b. (a -> b) -> a -> b
$ do
Ptr Permission
maybePermission <- case Maybe a
permission of
Nothing -> Ptr Permission -> IO (Ptr Permission)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Permission
forall a. Ptr a
nullPtr
Just jPermission :: a
jPermission -> do
Ptr Permission
jPermission' <- a -> IO (Ptr Permission)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
jPermission
Ptr Permission -> IO (Ptr Permission)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Permission
jPermission'
Ptr LockButton
result <- Ptr Permission -> IO (Ptr LockButton)
gtk_lock_button_new Ptr Permission
maybePermission
Text -> Ptr LockButton -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL "lockButtonNew" Ptr LockButton
result
LockButton
result' <- ((ManagedPtr LockButton -> LockButton)
-> Ptr LockButton -> IO LockButton
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr LockButton -> LockButton
LockButton) Ptr LockButton
result
Maybe a -> (a -> IO ()) -> IO ()
forall (m :: * -> *) a. Monad m => Maybe a -> (a -> m ()) -> m ()
whenJust Maybe a
permission a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr
LockButton -> IO LockButton
forall (m :: * -> *) a. Monad m => a -> m a
return LockButton
result'
#if defined(ENABLE_OVERLOADING)
#endif
foreign import ccall "gtk_lock_button_get_permission" gtk_lock_button_get_permission ::
Ptr LockButton ->
IO (Ptr Gio.Permission.Permission)
lockButtonGetPermission ::
(B.CallStack.HasCallStack, MonadIO m, IsLockButton a) =>
a
-> m Gio.Permission.Permission
lockButtonGetPermission :: a -> m Permission
lockButtonGetPermission button :: a
button = IO Permission -> m Permission
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Permission -> m Permission) -> IO Permission -> m Permission
forall a b. (a -> b) -> a -> b
$ do
Ptr LockButton
button' <- a -> IO (Ptr LockButton)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
button
Ptr Permission
result <- Ptr LockButton -> IO (Ptr Permission)
gtk_lock_button_get_permission Ptr LockButton
button'
Text -> Ptr Permission -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL "lockButtonGetPermission" Ptr Permission
result
Permission
result' <- ((ManagedPtr Permission -> Permission)
-> Ptr Permission -> IO Permission
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr Permission -> Permission
Gio.Permission.Permission) Ptr Permission
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
button
Permission -> IO Permission
forall (m :: * -> *) a. Monad m => a -> m a
return Permission
result'
#if defined(ENABLE_OVERLOADING)
data LockButtonGetPermissionMethodInfo
instance (signature ~ (m Gio.Permission.Permission), MonadIO m, IsLockButton a) => O.MethodInfo LockButtonGetPermissionMethodInfo a signature where
overloadedMethod = lockButtonGetPermission
#endif
foreign import ccall "gtk_lock_button_set_permission" gtk_lock_button_set_permission ::
Ptr LockButton ->
Ptr Gio.Permission.Permission ->
IO ()
lockButtonSetPermission ::
(B.CallStack.HasCallStack, MonadIO m, IsLockButton a, Gio.Permission.IsPermission b) =>
a
-> Maybe (b)
-> m ()
lockButtonSetPermission :: a -> Maybe b -> m ()
lockButtonSetPermission button :: a
button permission :: Maybe b
permission = 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 LockButton
button' <- a -> IO (Ptr LockButton)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
button
Ptr Permission
maybePermission <- case Maybe b
permission of
Nothing -> Ptr Permission -> IO (Ptr Permission)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Permission
forall a. Ptr a
nullPtr
Just jPermission :: b
jPermission -> do
Ptr Permission
jPermission' <- b -> IO (Ptr Permission)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
jPermission
Ptr Permission -> IO (Ptr Permission)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Permission
jPermission'
Ptr LockButton -> Ptr Permission -> IO ()
gtk_lock_button_set_permission Ptr LockButton
button' Ptr Permission
maybePermission
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
button
Maybe b -> (b -> IO ()) -> IO ()
forall (m :: * -> *) a. Monad m => Maybe a -> (a -> m ()) -> m ()
whenJust Maybe b
permission b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data LockButtonSetPermissionMethodInfo
instance (signature ~ (Maybe (b) -> m ()), MonadIO m, IsLockButton a, Gio.Permission.IsPermission b) => O.MethodInfo LockButtonSetPermissionMethodInfo a signature where
overloadedMethod = lockButtonSetPermission
#endif