{-# LANGUAGE TypeApplications #-}
#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif
module GI.Gtk.Objects.LinkButton
(
LinkButton(..) ,
IsLinkButton ,
toLinkButton ,
#if defined(ENABLE_OVERLOADING)
ResolveLinkButtonMethod ,
#endif
#if defined(ENABLE_OVERLOADING)
LinkButtonGetUriMethodInfo ,
#endif
linkButtonGetUri ,
#if defined(ENABLE_OVERLOADING)
LinkButtonGetVisitedMethodInfo ,
#endif
linkButtonGetVisited ,
linkButtonNew ,
linkButtonNewWithLabel ,
#if defined(ENABLE_OVERLOADING)
LinkButtonSetUriMethodInfo ,
#endif
linkButtonSetUri ,
#if defined(ENABLE_OVERLOADING)
LinkButtonSetVisitedMethodInfo ,
#endif
linkButtonSetVisited ,
#if defined(ENABLE_OVERLOADING)
LinkButtonUriPropertyInfo ,
#endif
constructLinkButtonUri ,
getLinkButtonUri ,
#if defined(ENABLE_OVERLOADING)
linkButtonUri ,
#endif
setLinkButtonUri ,
#if defined(ENABLE_OVERLOADING)
LinkButtonVisitedPropertyInfo ,
#endif
constructLinkButtonVisited ,
getLinkButtonVisited ,
#if defined(ENABLE_OVERLOADING)
linkButtonVisited ,
#endif
setLinkButtonVisited ,
C_LinkButtonActivateLinkCallback ,
LinkButtonActivateLinkCallback ,
#if defined(ENABLE_OVERLOADING)
LinkButtonActivateLinkSignalInfo ,
#endif
afterLinkButtonActivateLink ,
genClosure_LinkButtonActivateLink ,
mk_LinkButtonActivateLinkCallback ,
noLinkButtonActivateLinkCallback ,
onLinkButtonActivateLink ,
wrap_LinkButtonActivateLinkCallback ,
) where
import Data.GI.Base.ShortPrelude
import qualified Data.GI.Base.ShortPrelude as SP
import qualified Data.GI.Base.Overloading as O
import qualified Prelude as P
import qualified Data.GI.Base.Attributes as GI.Attributes
import qualified Data.GI.Base.BasicTypes as B.Types
import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr
import qualified Data.GI.Base.GClosure as B.GClosure
import qualified Data.GI.Base.GError as B.GError
import qualified Data.GI.Base.GVariant as B.GVariant
import qualified Data.GI.Base.GValue as B.GValue
import qualified Data.GI.Base.GParamSpec as B.GParamSpec
import qualified Data.GI.Base.CallStack as B.CallStack
import qualified Data.GI.Base.Properties as B.Properties
import qualified Data.GI.Base.Signals as B.Signals
import qualified Control.Monad.IO.Class as MIO
import qualified Data.Text as T
import qualified Data.ByteString.Char8 as B
import qualified Data.Map as Map
import qualified Foreign.Ptr as FP
import qualified GHC.OverloadedLabels as OL
import qualified GI.Atk.Interfaces.ImplementorIface as Atk.ImplementorIface
import qualified GI.GObject.Objects.Object as GObject.Object
import {-# SOURCE #-} qualified GI.Gtk.Interfaces.Actionable as Gtk.Actionable
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.Objects.Button as Gtk.Button
import {-# SOURCE #-} qualified GI.Gtk.Objects.Widget as Gtk.Widget
newtype LinkButton = LinkButton (SP.ManagedPtr LinkButton)
deriving (LinkButton -> LinkButton -> Bool
(LinkButton -> LinkButton -> Bool)
-> (LinkButton -> LinkButton -> Bool) -> Eq LinkButton
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: LinkButton -> LinkButton -> Bool
$c/= :: LinkButton -> LinkButton -> Bool
== :: LinkButton -> LinkButton -> Bool
$c== :: LinkButton -> LinkButton -> Bool
Eq)
instance SP.ManagedPtrNewtype LinkButton where
toManagedPtr :: LinkButton -> ManagedPtr LinkButton
toManagedPtr (LinkButton ManagedPtr LinkButton
p) = ManagedPtr LinkButton
p
foreign import ccall "gtk_link_button_get_type"
c_gtk_link_button_get_type :: IO B.Types.GType
instance B.Types.TypedObject LinkButton where
glibType :: IO GType
glibType = IO GType
c_gtk_link_button_get_type
instance B.Types.GObject LinkButton
instance B.GValue.IsGValue LinkButton where
toGValue :: LinkButton -> IO GValue
toGValue LinkButton
o = do
GType
gtype <- IO GType
c_gtk_link_button_get_type
LinkButton -> (Ptr LinkButton -> IO GValue) -> IO GValue
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
B.ManagedPtr.withManagedPtr LinkButton
o (GType
-> (GValue -> Ptr LinkButton -> IO ())
-> Ptr LinkButton
-> IO GValue
forall a. GType -> (GValue -> a -> IO ()) -> a -> IO GValue
B.GValue.buildGValue GType
gtype GValue -> Ptr LinkButton -> IO ()
forall a. GObject a => GValue -> Ptr a -> IO ()
B.GValue.set_object)
fromGValue :: GValue -> IO LinkButton
fromGValue GValue
gv = do
Ptr LinkButton
ptr <- GValue -> IO (Ptr LinkButton)
forall b. GObject b => GValue -> IO (Ptr b)
B.GValue.get_object GValue
gv :: IO (Ptr LinkButton)
(ManagedPtr LinkButton -> LinkButton)
-> Ptr LinkButton -> IO LinkButton
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
B.ManagedPtr.newObject ManagedPtr LinkButton -> LinkButton
LinkButton Ptr LinkButton
ptr
class (SP.GObject o, O.IsDescendantOf LinkButton o) => IsLinkButton o
instance (SP.GObject o, O.IsDescendantOf LinkButton o) => IsLinkButton o
instance O.HasParentTypes LinkButton
type instance O.ParentTypes LinkButton = '[Gtk.Button.Button, Gtk.Widget.Widget, GObject.Object.Object, Atk.ImplementorIface.ImplementorIface, Gtk.Actionable.Actionable, Gtk.Buildable.Buildable, Gtk.ConstraintTarget.ConstraintTarget]
toLinkButton :: (MonadIO m, IsLinkButton o) => o -> m LinkButton
toLinkButton :: o -> m LinkButton
toLinkButton = IO LinkButton -> m LinkButton
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO LinkButton -> m LinkButton)
-> (o -> IO LinkButton) -> o -> m LinkButton
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (ManagedPtr LinkButton -> LinkButton) -> o -> IO LinkButton
forall o o'.
(HasCallStack, ManagedPtrNewtype o, TypedObject o,
ManagedPtrNewtype o', TypedObject o') =>
(ManagedPtr o' -> o') -> o -> IO o'
unsafeCastTo ManagedPtr LinkButton -> LinkButton
LinkButton
#if defined(ENABLE_OVERLOADING)
type family ResolveLinkButtonMethod (t :: Symbol) (o :: *) :: * where
ResolveLinkButtonMethod "actionSetEnabled" o = Gtk.Widget.WidgetActionSetEnabledMethodInfo
ResolveLinkButtonMethod "activate" o = Gtk.Widget.WidgetActivateMethodInfo
ResolveLinkButtonMethod "activateAction" o = Gtk.Widget.WidgetActivateActionMethodInfo
ResolveLinkButtonMethod "activateDefault" o = Gtk.Widget.WidgetActivateDefaultMethodInfo
ResolveLinkButtonMethod "addChild" o = Gtk.Buildable.BuildableAddChildMethodInfo
ResolveLinkButtonMethod "addController" o = Gtk.Widget.WidgetAddControllerMethodInfo
ResolveLinkButtonMethod "addCssClass" o = Gtk.Widget.WidgetAddCssClassMethodInfo
ResolveLinkButtonMethod "addMnemonicLabel" o = Gtk.Widget.WidgetAddMnemonicLabelMethodInfo
ResolveLinkButtonMethod "addTickCallback" o = Gtk.Widget.WidgetAddTickCallbackMethodInfo
ResolveLinkButtonMethod "allocate" o = Gtk.Widget.WidgetAllocateMethodInfo
ResolveLinkButtonMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
ResolveLinkButtonMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
ResolveLinkButtonMethod "childFocus" o = Gtk.Widget.WidgetChildFocusMethodInfo
ResolveLinkButtonMethod "computeBounds" o = Gtk.Widget.WidgetComputeBoundsMethodInfo
ResolveLinkButtonMethod "computeExpand" o = Gtk.Widget.WidgetComputeExpandMethodInfo
ResolveLinkButtonMethod "computePoint" o = Gtk.Widget.WidgetComputePointMethodInfo
ResolveLinkButtonMethod "computeTransform" o = Gtk.Widget.WidgetComputeTransformMethodInfo
ResolveLinkButtonMethod "constructChild" o = Gtk.Buildable.BuildableConstructChildMethodInfo
ResolveLinkButtonMethod "contains" o = Gtk.Widget.WidgetContainsMethodInfo
ResolveLinkButtonMethod "createPangoContext" o = Gtk.Widget.WidgetCreatePangoContextMethodInfo
ResolveLinkButtonMethod "createPangoLayout" o = Gtk.Widget.WidgetCreatePangoLayoutMethodInfo
ResolveLinkButtonMethod "customFinished" o = Gtk.Buildable.BuildableCustomFinishedMethodInfo
ResolveLinkButtonMethod "customTagEnd" o = Gtk.Buildable.BuildableCustomTagEndMethodInfo
ResolveLinkButtonMethod "customTagStart" o = Gtk.Buildable.BuildableCustomTagStartMethodInfo
ResolveLinkButtonMethod "deviceIsShadowed" o = Gtk.Widget.WidgetDeviceIsShadowedMethodInfo
ResolveLinkButtonMethod "dragCheckThreshold" o = Gtk.Widget.WidgetDragCheckThresholdMethodInfo
ResolveLinkButtonMethod "errorBell" o = Gtk.Widget.WidgetErrorBellMethodInfo
ResolveLinkButtonMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
ResolveLinkButtonMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
ResolveLinkButtonMethod "getv" o = GObject.Object.ObjectGetvMethodInfo
ResolveLinkButtonMethod "grabFocus" o = Gtk.Widget.WidgetGrabFocusMethodInfo
ResolveLinkButtonMethod "hasCssClass" o = Gtk.Widget.WidgetHasCssClassMethodInfo
ResolveLinkButtonMethod "hasDefault" o = Gtk.Widget.WidgetHasDefaultMethodInfo
ResolveLinkButtonMethod "hasFocus" o = Gtk.Widget.WidgetHasFocusMethodInfo
ResolveLinkButtonMethod "hasVisibleFocus" o = Gtk.Widget.WidgetHasVisibleFocusMethodInfo
ResolveLinkButtonMethod "hide" o = Gtk.Widget.WidgetHideMethodInfo
ResolveLinkButtonMethod "inDestruction" o = Gtk.Widget.WidgetInDestructionMethodInfo
ResolveLinkButtonMethod "initTemplate" o = Gtk.Widget.WidgetInitTemplateMethodInfo
ResolveLinkButtonMethod "insertActionGroup" o = Gtk.Widget.WidgetInsertActionGroupMethodInfo
ResolveLinkButtonMethod "insertAfter" o = Gtk.Widget.WidgetInsertAfterMethodInfo
ResolveLinkButtonMethod "insertBefore" o = Gtk.Widget.WidgetInsertBeforeMethodInfo
ResolveLinkButtonMethod "isAncestor" o = Gtk.Widget.WidgetIsAncestorMethodInfo
ResolveLinkButtonMethod "isDrawable" o = Gtk.Widget.WidgetIsDrawableMethodInfo
ResolveLinkButtonMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo
ResolveLinkButtonMethod "isFocus" o = Gtk.Widget.WidgetIsFocusMethodInfo
ResolveLinkButtonMethod "isSensitive" o = Gtk.Widget.WidgetIsSensitiveMethodInfo
ResolveLinkButtonMethod "isVisible" o = Gtk.Widget.WidgetIsVisibleMethodInfo
ResolveLinkButtonMethod "keynavFailed" o = Gtk.Widget.WidgetKeynavFailedMethodInfo
ResolveLinkButtonMethod "listMnemonicLabels" o = Gtk.Widget.WidgetListMnemonicLabelsMethodInfo
ResolveLinkButtonMethod "map" o = Gtk.Widget.WidgetMapMethodInfo
ResolveLinkButtonMethod "measure" o = Gtk.Widget.WidgetMeasureMethodInfo
ResolveLinkButtonMethod "mnemonicActivate" o = Gtk.Widget.WidgetMnemonicActivateMethodInfo
ResolveLinkButtonMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
ResolveLinkButtonMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
ResolveLinkButtonMethod "observeChildren" o = Gtk.Widget.WidgetObserveChildrenMethodInfo
ResolveLinkButtonMethod "observeControllers" o = Gtk.Widget.WidgetObserveControllersMethodInfo
ResolveLinkButtonMethod "parserFinished" o = Gtk.Buildable.BuildableParserFinishedMethodInfo
ResolveLinkButtonMethod "pick" o = Gtk.Widget.WidgetPickMethodInfo
ResolveLinkButtonMethod "queueAllocate" o = Gtk.Widget.WidgetQueueAllocateMethodInfo
ResolveLinkButtonMethod "queueDraw" o = Gtk.Widget.WidgetQueueDrawMethodInfo
ResolveLinkButtonMethod "queueResize" o = Gtk.Widget.WidgetQueueResizeMethodInfo
ResolveLinkButtonMethod "realize" o = Gtk.Widget.WidgetRealizeMethodInfo
ResolveLinkButtonMethod "ref" o = GObject.Object.ObjectRefMethodInfo
ResolveLinkButtonMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
ResolveLinkButtonMethod "removeController" o = Gtk.Widget.WidgetRemoveControllerMethodInfo
ResolveLinkButtonMethod "removeCssClass" o = Gtk.Widget.WidgetRemoveCssClassMethodInfo
ResolveLinkButtonMethod "removeMnemonicLabel" o = Gtk.Widget.WidgetRemoveMnemonicLabelMethodInfo
ResolveLinkButtonMethod "removeTickCallback" o = Gtk.Widget.WidgetRemoveTickCallbackMethodInfo
ResolveLinkButtonMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
ResolveLinkButtonMethod "shouldLayout" o = Gtk.Widget.WidgetShouldLayoutMethodInfo
ResolveLinkButtonMethod "show" o = Gtk.Widget.WidgetShowMethodInfo
ResolveLinkButtonMethod "sizeAllocate" o = Gtk.Widget.WidgetSizeAllocateMethodInfo
ResolveLinkButtonMethod "snapshotChild" o = Gtk.Widget.WidgetSnapshotChildMethodInfo
ResolveLinkButtonMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
ResolveLinkButtonMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
ResolveLinkButtonMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo
ResolveLinkButtonMethod "translateCoordinates" o = Gtk.Widget.WidgetTranslateCoordinatesMethodInfo
ResolveLinkButtonMethod "triggerTooltipQuery" o = Gtk.Widget.WidgetTriggerTooltipQueryMethodInfo
ResolveLinkButtonMethod "unmap" o = Gtk.Widget.WidgetUnmapMethodInfo
ResolveLinkButtonMethod "unparent" o = Gtk.Widget.WidgetUnparentMethodInfo
ResolveLinkButtonMethod "unrealize" o = Gtk.Widget.WidgetUnrealizeMethodInfo
ResolveLinkButtonMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo
ResolveLinkButtonMethod "unsetStateFlags" o = Gtk.Widget.WidgetUnsetStateFlagsMethodInfo
ResolveLinkButtonMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
ResolveLinkButtonMethod "getAccessible" o = Gtk.Widget.WidgetGetAccessibleMethodInfo
ResolveLinkButtonMethod "getActionName" o = Gtk.Actionable.ActionableGetActionNameMethodInfo
ResolveLinkButtonMethod "getActionTargetValue" o = Gtk.Actionable.ActionableGetActionTargetValueMethodInfo
ResolveLinkButtonMethod "getAllocatedBaseline" o = Gtk.Widget.WidgetGetAllocatedBaselineMethodInfo
ResolveLinkButtonMethod "getAllocatedHeight" o = Gtk.Widget.WidgetGetAllocatedHeightMethodInfo
ResolveLinkButtonMethod "getAllocatedWidth" o = Gtk.Widget.WidgetGetAllocatedWidthMethodInfo
ResolveLinkButtonMethod "getAllocation" o = Gtk.Widget.WidgetGetAllocationMethodInfo
ResolveLinkButtonMethod "getAncestor" o = Gtk.Widget.WidgetGetAncestorMethodInfo
ResolveLinkButtonMethod "getCanFocus" o = Gtk.Widget.WidgetGetCanFocusMethodInfo
ResolveLinkButtonMethod "getCanTarget" o = Gtk.Widget.WidgetGetCanTargetMethodInfo
ResolveLinkButtonMethod "getChild" o = Gtk.Button.ButtonGetChildMethodInfo
ResolveLinkButtonMethod "getChildVisible" o = Gtk.Widget.WidgetGetChildVisibleMethodInfo
ResolveLinkButtonMethod "getClipboard" o = Gtk.Widget.WidgetGetClipboardMethodInfo
ResolveLinkButtonMethod "getCssClasses" o = Gtk.Widget.WidgetGetCssClassesMethodInfo
ResolveLinkButtonMethod "getCssName" o = Gtk.Widget.WidgetGetCssNameMethodInfo
ResolveLinkButtonMethod "getCursor" o = Gtk.Widget.WidgetGetCursorMethodInfo
ResolveLinkButtonMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
ResolveLinkButtonMethod "getDirection" o = Gtk.Widget.WidgetGetDirectionMethodInfo
ResolveLinkButtonMethod "getDisplay" o = Gtk.Widget.WidgetGetDisplayMethodInfo
ResolveLinkButtonMethod "getFirstChild" o = Gtk.Widget.WidgetGetFirstChildMethodInfo
ResolveLinkButtonMethod "getFocusChild" o = Gtk.Widget.WidgetGetFocusChildMethodInfo
ResolveLinkButtonMethod "getFocusOnClick" o = Gtk.Widget.WidgetGetFocusOnClickMethodInfo
ResolveLinkButtonMethod "getFocusable" o = Gtk.Widget.WidgetGetFocusableMethodInfo
ResolveLinkButtonMethod "getFontMap" o = Gtk.Widget.WidgetGetFontMapMethodInfo
ResolveLinkButtonMethod "getFontOptions" o = Gtk.Widget.WidgetGetFontOptionsMethodInfo
ResolveLinkButtonMethod "getFrameClock" o = Gtk.Widget.WidgetGetFrameClockMethodInfo
ResolveLinkButtonMethod "getHalign" o = Gtk.Widget.WidgetGetHalignMethodInfo
ResolveLinkButtonMethod "getHasFrame" o = Gtk.Button.ButtonGetHasFrameMethodInfo
ResolveLinkButtonMethod "getHasTooltip" o = Gtk.Widget.WidgetGetHasTooltipMethodInfo
ResolveLinkButtonMethod "getHeight" o = Gtk.Widget.WidgetGetHeightMethodInfo
ResolveLinkButtonMethod "getHexpand" o = Gtk.Widget.WidgetGetHexpandMethodInfo
ResolveLinkButtonMethod "getHexpandSet" o = Gtk.Widget.WidgetGetHexpandSetMethodInfo
ResolveLinkButtonMethod "getIconName" o = Gtk.Button.ButtonGetIconNameMethodInfo
ResolveLinkButtonMethod "getInternalChild" o = Gtk.Buildable.BuildableGetInternalChildMethodInfo
ResolveLinkButtonMethod "getLabel" o = Gtk.Button.ButtonGetLabelMethodInfo
ResolveLinkButtonMethod "getLastChild" o = Gtk.Widget.WidgetGetLastChildMethodInfo
ResolveLinkButtonMethod "getLayoutManager" o = Gtk.Widget.WidgetGetLayoutManagerMethodInfo
ResolveLinkButtonMethod "getMapped" o = Gtk.Widget.WidgetGetMappedMethodInfo
ResolveLinkButtonMethod "getMarginBottom" o = Gtk.Widget.WidgetGetMarginBottomMethodInfo
ResolveLinkButtonMethod "getMarginEnd" o = Gtk.Widget.WidgetGetMarginEndMethodInfo
ResolveLinkButtonMethod "getMarginStart" o = Gtk.Widget.WidgetGetMarginStartMethodInfo
ResolveLinkButtonMethod "getMarginTop" o = Gtk.Widget.WidgetGetMarginTopMethodInfo
ResolveLinkButtonMethod "getName" o = Gtk.Widget.WidgetGetNameMethodInfo
ResolveLinkButtonMethod "getNative" o = Gtk.Widget.WidgetGetNativeMethodInfo
ResolveLinkButtonMethod "getNextSibling" o = Gtk.Widget.WidgetGetNextSiblingMethodInfo
ResolveLinkButtonMethod "getOpacity" o = Gtk.Widget.WidgetGetOpacityMethodInfo
ResolveLinkButtonMethod "getOverflow" o = Gtk.Widget.WidgetGetOverflowMethodInfo
ResolveLinkButtonMethod "getPangoContext" o = Gtk.Widget.WidgetGetPangoContextMethodInfo
ResolveLinkButtonMethod "getParent" o = Gtk.Widget.WidgetGetParentMethodInfo
ResolveLinkButtonMethod "getPreferredSize" o = Gtk.Widget.WidgetGetPreferredSizeMethodInfo
ResolveLinkButtonMethod "getPrevSibling" o = Gtk.Widget.WidgetGetPrevSiblingMethodInfo
ResolveLinkButtonMethod "getPrimaryClipboard" o = Gtk.Widget.WidgetGetPrimaryClipboardMethodInfo
ResolveLinkButtonMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo
ResolveLinkButtonMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo
ResolveLinkButtonMethod "getRealized" o = Gtk.Widget.WidgetGetRealizedMethodInfo
ResolveLinkButtonMethod "getReceivesDefault" o = Gtk.Widget.WidgetGetReceivesDefaultMethodInfo
ResolveLinkButtonMethod "getRequestMode" o = Gtk.Widget.WidgetGetRequestModeMethodInfo
ResolveLinkButtonMethod "getRoot" o = Gtk.Widget.WidgetGetRootMethodInfo
ResolveLinkButtonMethod "getScaleFactor" o = Gtk.Widget.WidgetGetScaleFactorMethodInfo
ResolveLinkButtonMethod "getSensitive" o = Gtk.Widget.WidgetGetSensitiveMethodInfo
ResolveLinkButtonMethod "getSettings" o = Gtk.Widget.WidgetGetSettingsMethodInfo
ResolveLinkButtonMethod "getSizeRequest" o = Gtk.Widget.WidgetGetSizeRequestMethodInfo
ResolveLinkButtonMethod "getStateFlags" o = Gtk.Widget.WidgetGetStateFlagsMethodInfo
ResolveLinkButtonMethod "getStyleContext" o = Gtk.Widget.WidgetGetStyleContextMethodInfo
ResolveLinkButtonMethod "getSupportMultidevice" o = Gtk.Widget.WidgetGetSupportMultideviceMethodInfo
ResolveLinkButtonMethod "getTemplateChild" o = Gtk.Widget.WidgetGetTemplateChildMethodInfo
ResolveLinkButtonMethod "getTooltipMarkup" o = Gtk.Widget.WidgetGetTooltipMarkupMethodInfo
ResolveLinkButtonMethod "getTooltipText" o = Gtk.Widget.WidgetGetTooltipTextMethodInfo
ResolveLinkButtonMethod "getUri" o = LinkButtonGetUriMethodInfo
ResolveLinkButtonMethod "getUseUnderline" o = Gtk.Button.ButtonGetUseUnderlineMethodInfo
ResolveLinkButtonMethod "getValign" o = Gtk.Widget.WidgetGetValignMethodInfo
ResolveLinkButtonMethod "getVexpand" o = Gtk.Widget.WidgetGetVexpandMethodInfo
ResolveLinkButtonMethod "getVexpandSet" o = Gtk.Widget.WidgetGetVexpandSetMethodInfo
ResolveLinkButtonMethod "getVisible" o = Gtk.Widget.WidgetGetVisibleMethodInfo
ResolveLinkButtonMethod "getVisited" o = LinkButtonGetVisitedMethodInfo
ResolveLinkButtonMethod "getWidth" o = Gtk.Widget.WidgetGetWidthMethodInfo
ResolveLinkButtonMethod "setActionName" o = Gtk.Actionable.ActionableSetActionNameMethodInfo
ResolveLinkButtonMethod "setActionTargetValue" o = Gtk.Actionable.ActionableSetActionTargetValueMethodInfo
ResolveLinkButtonMethod "setBuildableProperty" o = Gtk.Buildable.BuildableSetBuildablePropertyMethodInfo
ResolveLinkButtonMethod "setCanFocus" o = Gtk.Widget.WidgetSetCanFocusMethodInfo
ResolveLinkButtonMethod "setCanTarget" o = Gtk.Widget.WidgetSetCanTargetMethodInfo
ResolveLinkButtonMethod "setChild" o = Gtk.Button.ButtonSetChildMethodInfo
ResolveLinkButtonMethod "setChildVisible" o = Gtk.Widget.WidgetSetChildVisibleMethodInfo
ResolveLinkButtonMethod "setCssClasses" o = Gtk.Widget.WidgetSetCssClassesMethodInfo
ResolveLinkButtonMethod "setCursor" o = Gtk.Widget.WidgetSetCursorMethodInfo
ResolveLinkButtonMethod "setCursorFromName" o = Gtk.Widget.WidgetSetCursorFromNameMethodInfo
ResolveLinkButtonMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
ResolveLinkButtonMethod "setDataFull" o = GObject.Object.ObjectSetDataFullMethodInfo
ResolveLinkButtonMethod "setDetailedActionName" o = Gtk.Actionable.ActionableSetDetailedActionNameMethodInfo
ResolveLinkButtonMethod "setDirection" o = Gtk.Widget.WidgetSetDirectionMethodInfo
ResolveLinkButtonMethod "setFocusChild" o = Gtk.Widget.WidgetSetFocusChildMethodInfo
ResolveLinkButtonMethod "setFocusOnClick" o = Gtk.Widget.WidgetSetFocusOnClickMethodInfo
ResolveLinkButtonMethod "setFocusable" o = Gtk.Widget.WidgetSetFocusableMethodInfo
ResolveLinkButtonMethod "setFontMap" o = Gtk.Widget.WidgetSetFontMapMethodInfo
ResolveLinkButtonMethod "setFontOptions" o = Gtk.Widget.WidgetSetFontOptionsMethodInfo
ResolveLinkButtonMethod "setHalign" o = Gtk.Widget.WidgetSetHalignMethodInfo
ResolveLinkButtonMethod "setHasFrame" o = Gtk.Button.ButtonSetHasFrameMethodInfo
ResolveLinkButtonMethod "setHasTooltip" o = Gtk.Widget.WidgetSetHasTooltipMethodInfo
ResolveLinkButtonMethod "setHexpand" o = Gtk.Widget.WidgetSetHexpandMethodInfo
ResolveLinkButtonMethod "setHexpandSet" o = Gtk.Widget.WidgetSetHexpandSetMethodInfo
ResolveLinkButtonMethod "setIconName" o = Gtk.Button.ButtonSetIconNameMethodInfo
ResolveLinkButtonMethod "setLabel" o = Gtk.Button.ButtonSetLabelMethodInfo
ResolveLinkButtonMethod "setLayoutManager" o = Gtk.Widget.WidgetSetLayoutManagerMethodInfo
ResolveLinkButtonMethod "setMarginBottom" o = Gtk.Widget.WidgetSetMarginBottomMethodInfo
ResolveLinkButtonMethod "setMarginEnd" o = Gtk.Widget.WidgetSetMarginEndMethodInfo
ResolveLinkButtonMethod "setMarginStart" o = Gtk.Widget.WidgetSetMarginStartMethodInfo
ResolveLinkButtonMethod "setMarginTop" o = Gtk.Widget.WidgetSetMarginTopMethodInfo
ResolveLinkButtonMethod "setName" o = Gtk.Widget.WidgetSetNameMethodInfo
ResolveLinkButtonMethod "setOpacity" o = Gtk.Widget.WidgetSetOpacityMethodInfo
ResolveLinkButtonMethod "setOverflow" o = Gtk.Widget.WidgetSetOverflowMethodInfo
ResolveLinkButtonMethod "setParent" o = Gtk.Widget.WidgetSetParentMethodInfo
ResolveLinkButtonMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
ResolveLinkButtonMethod "setReceivesDefault" o = Gtk.Widget.WidgetSetReceivesDefaultMethodInfo
ResolveLinkButtonMethod "setSensitive" o = Gtk.Widget.WidgetSetSensitiveMethodInfo
ResolveLinkButtonMethod "setSizeRequest" o = Gtk.Widget.WidgetSetSizeRequestMethodInfo
ResolveLinkButtonMethod "setStateFlags" o = Gtk.Widget.WidgetSetStateFlagsMethodInfo
ResolveLinkButtonMethod "setSupportMultidevice" o = Gtk.Widget.WidgetSetSupportMultideviceMethodInfo
ResolveLinkButtonMethod "setTooltipMarkup" o = Gtk.Widget.WidgetSetTooltipMarkupMethodInfo
ResolveLinkButtonMethod "setTooltipText" o = Gtk.Widget.WidgetSetTooltipTextMethodInfo
ResolveLinkButtonMethod "setUri" o = LinkButtonSetUriMethodInfo
ResolveLinkButtonMethod "setUseUnderline" o = Gtk.Button.ButtonSetUseUnderlineMethodInfo
ResolveLinkButtonMethod "setValign" o = Gtk.Widget.WidgetSetValignMethodInfo
ResolveLinkButtonMethod "setVexpand" o = Gtk.Widget.WidgetSetVexpandMethodInfo
ResolveLinkButtonMethod "setVexpandSet" o = Gtk.Widget.WidgetSetVexpandSetMethodInfo
ResolveLinkButtonMethod "setVisible" o = Gtk.Widget.WidgetSetVisibleMethodInfo
ResolveLinkButtonMethod "setVisited" o = LinkButtonSetVisitedMethodInfo
ResolveLinkButtonMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveLinkButtonMethod t LinkButton, O.MethodInfo info LinkButton p) => OL.IsLabel t (LinkButton -> p) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.overloadedMethod @info
#else
fromLabel _ = O.overloadedMethod @info
#endif
#endif
type LinkButtonActivateLinkCallback =
IO Bool
noLinkButtonActivateLinkCallback :: Maybe LinkButtonActivateLinkCallback
noLinkButtonActivateLinkCallback :: Maybe LinkButtonActivateLinkCallback
noLinkButtonActivateLinkCallback = Maybe LinkButtonActivateLinkCallback
forall a. Maybe a
Nothing
type C_LinkButtonActivateLinkCallback =
Ptr () ->
Ptr () ->
IO CInt
foreign import ccall "wrapper"
mk_LinkButtonActivateLinkCallback :: C_LinkButtonActivateLinkCallback -> IO (FunPtr C_LinkButtonActivateLinkCallback)
genClosure_LinkButtonActivateLink :: MonadIO m => LinkButtonActivateLinkCallback -> m (GClosure C_LinkButtonActivateLinkCallback)
genClosure_LinkButtonActivateLink :: LinkButtonActivateLinkCallback
-> m (GClosure C_LinkButtonActivateLinkCallback)
genClosure_LinkButtonActivateLink LinkButtonActivateLinkCallback
cb = IO (GClosure C_LinkButtonActivateLinkCallback)
-> m (GClosure C_LinkButtonActivateLinkCallback)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_LinkButtonActivateLinkCallback)
-> m (GClosure C_LinkButtonActivateLinkCallback))
-> IO (GClosure C_LinkButtonActivateLinkCallback)
-> m (GClosure C_LinkButtonActivateLinkCallback)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_LinkButtonActivateLinkCallback
cb' = LinkButtonActivateLinkCallback -> C_LinkButtonActivateLinkCallback
wrap_LinkButtonActivateLinkCallback LinkButtonActivateLinkCallback
cb
C_LinkButtonActivateLinkCallback
-> IO (FunPtr C_LinkButtonActivateLinkCallback)
mk_LinkButtonActivateLinkCallback C_LinkButtonActivateLinkCallback
cb' IO (FunPtr C_LinkButtonActivateLinkCallback)
-> (FunPtr C_LinkButtonActivateLinkCallback
-> IO (GClosure C_LinkButtonActivateLinkCallback))
-> IO (GClosure C_LinkButtonActivateLinkCallback)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_LinkButtonActivateLinkCallback
-> IO (GClosure C_LinkButtonActivateLinkCallback)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_LinkButtonActivateLinkCallback ::
LinkButtonActivateLinkCallback ->
C_LinkButtonActivateLinkCallback
wrap_LinkButtonActivateLinkCallback :: LinkButtonActivateLinkCallback -> C_LinkButtonActivateLinkCallback
wrap_LinkButtonActivateLinkCallback LinkButtonActivateLinkCallback
_cb Ptr ()
_ Ptr ()
_ = do
Bool
result <- LinkButtonActivateLinkCallback
_cb
let result' :: CInt
result' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
fromEnum) Bool
result
CInt -> IO CInt
forall (m :: * -> *) a. Monad m => a -> m a
return CInt
result'
onLinkButtonActivateLink :: (IsLinkButton a, MonadIO m) => a -> LinkButtonActivateLinkCallback -> m SignalHandlerId
onLinkButtonActivateLink :: a -> LinkButtonActivateLinkCallback -> m SignalHandlerId
onLinkButtonActivateLink a
obj LinkButtonActivateLinkCallback
cb = IO SignalHandlerId -> m SignalHandlerId
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 cb' :: C_LinkButtonActivateLinkCallback
cb' = LinkButtonActivateLinkCallback -> C_LinkButtonActivateLinkCallback
wrap_LinkButtonActivateLinkCallback LinkButtonActivateLinkCallback
cb
FunPtr C_LinkButtonActivateLinkCallback
cb'' <- C_LinkButtonActivateLinkCallback
-> IO (FunPtr C_LinkButtonActivateLinkCallback)
mk_LinkButtonActivateLinkCallback C_LinkButtonActivateLinkCallback
cb'
a
-> Text
-> FunPtr C_LinkButtonActivateLinkCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"activate-link" FunPtr C_LinkButtonActivateLinkCallback
cb'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterLinkButtonActivateLink :: (IsLinkButton a, MonadIO m) => a -> LinkButtonActivateLinkCallback -> m SignalHandlerId
afterLinkButtonActivateLink :: a -> LinkButtonActivateLinkCallback -> m SignalHandlerId
afterLinkButtonActivateLink a
obj LinkButtonActivateLinkCallback
cb = IO SignalHandlerId -> m SignalHandlerId
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 cb' :: C_LinkButtonActivateLinkCallback
cb' = LinkButtonActivateLinkCallback -> C_LinkButtonActivateLinkCallback
wrap_LinkButtonActivateLinkCallback LinkButtonActivateLinkCallback
cb
FunPtr C_LinkButtonActivateLinkCallback
cb'' <- C_LinkButtonActivateLinkCallback
-> IO (FunPtr C_LinkButtonActivateLinkCallback)
mk_LinkButtonActivateLinkCallback C_LinkButtonActivateLinkCallback
cb'
a
-> Text
-> FunPtr C_LinkButtonActivateLinkCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"activate-link" FunPtr C_LinkButtonActivateLinkCallback
cb'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data LinkButtonActivateLinkSignalInfo
instance SignalInfo LinkButtonActivateLinkSignalInfo where
type HaskellCallbackType LinkButtonActivateLinkSignalInfo = LinkButtonActivateLinkCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_LinkButtonActivateLinkCallback cb
cb'' <- mk_LinkButtonActivateLinkCallback cb'
connectSignalFunPtr obj "activate-link" cb'' connectMode detail
#endif
getLinkButtonUri :: (MonadIO m, IsLinkButton o) => o -> m T.Text
getLinkButtonUri :: o -> m Text
getLinkButtonUri o
obj = IO Text -> m Text
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Text -> m Text) -> IO Text -> m Text
forall a b. (a -> b) -> a -> b
$ Text -> IO (Maybe Text) -> IO Text
forall a. HasCallStack => Text -> IO (Maybe a) -> IO a
checkUnexpectedNothing Text
"getLinkButtonUri" (IO (Maybe Text) -> IO Text) -> IO (Maybe Text) -> IO 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
"uri"
setLinkButtonUri :: (MonadIO m, IsLinkButton o) => o -> T.Text -> m ()
setLinkButtonUri :: o -> Text -> m ()
setLinkButtonUri o
obj 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 String
"uri" (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
val)
constructLinkButtonUri :: (IsLinkButton o, MIO.MonadIO m) => T.Text -> m (GValueConstruct o)
constructLinkButtonUri :: Text -> m (GValueConstruct o)
constructLinkButtonUri Text
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Maybe Text -> IO (GValueConstruct o)
forall o. String -> Maybe Text -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyString String
"uri" (Text -> Maybe Text
forall a. a -> Maybe a
P.Just Text
val)
#if defined(ENABLE_OVERLOADING)
data LinkButtonUriPropertyInfo
instance AttrInfo LinkButtonUriPropertyInfo where
type AttrAllowedOps LinkButtonUriPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint LinkButtonUriPropertyInfo = IsLinkButton
type AttrSetTypeConstraint LinkButtonUriPropertyInfo = (~) T.Text
type AttrTransferTypeConstraint LinkButtonUriPropertyInfo = (~) T.Text
type AttrTransferType LinkButtonUriPropertyInfo = T.Text
type AttrGetType LinkButtonUriPropertyInfo = T.Text
type AttrLabel LinkButtonUriPropertyInfo = "uri"
type AttrOrigin LinkButtonUriPropertyInfo = LinkButton
attrGet = getLinkButtonUri
attrSet = setLinkButtonUri
attrTransfer _ v = do
return v
attrConstruct = constructLinkButtonUri
attrClear = undefined
#endif
getLinkButtonVisited :: (MonadIO m, IsLinkButton o) => o -> m Bool
getLinkButtonVisited :: o -> m Bool
getLinkButtonVisited o
obj = LinkButtonActivateLinkCallback -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (LinkButtonActivateLinkCallback -> m Bool)
-> LinkButtonActivateLinkCallback -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> LinkButtonActivateLinkCallback
forall a.
GObject a =>
a -> String -> LinkButtonActivateLinkCallback
B.Properties.getObjectPropertyBool o
obj String
"visited"
setLinkButtonVisited :: (MonadIO m, IsLinkButton o) => o -> Bool -> m ()
setLinkButtonVisited :: o -> Bool -> m ()
setLinkButtonVisited o
obj Bool
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj String
"visited" Bool
val
constructLinkButtonVisited :: (IsLinkButton o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructLinkButtonVisited :: Bool -> m (GValueConstruct o)
constructLinkButtonVisited Bool
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool String
"visited" Bool
val
#if defined(ENABLE_OVERLOADING)
data LinkButtonVisitedPropertyInfo
instance AttrInfo LinkButtonVisitedPropertyInfo where
type AttrAllowedOps LinkButtonVisitedPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint LinkButtonVisitedPropertyInfo = IsLinkButton
type AttrSetTypeConstraint LinkButtonVisitedPropertyInfo = (~) Bool
type AttrTransferTypeConstraint LinkButtonVisitedPropertyInfo = (~) Bool
type AttrTransferType LinkButtonVisitedPropertyInfo = Bool
type AttrGetType LinkButtonVisitedPropertyInfo = Bool
type AttrLabel LinkButtonVisitedPropertyInfo = "visited"
type AttrOrigin LinkButtonVisitedPropertyInfo = LinkButton
attrGet = getLinkButtonVisited
attrSet = setLinkButtonVisited
attrTransfer _ v = do
return v
attrConstruct = constructLinkButtonVisited
attrClear = undefined
#endif
#if defined(ENABLE_OVERLOADING)
instance O.HasAttributeList LinkButton
type instance O.AttributeList LinkButton = LinkButtonAttributeList
type LinkButtonAttributeList = ('[ '("actionName", Gtk.Actionable.ActionableActionNamePropertyInfo), '("actionTarget", Gtk.Actionable.ActionableActionTargetPropertyInfo), '("canFocus", Gtk.Widget.WidgetCanFocusPropertyInfo), '("canTarget", Gtk.Widget.WidgetCanTargetPropertyInfo), '("child", Gtk.Button.ButtonChildPropertyInfo), '("cssClasses", Gtk.Widget.WidgetCssClassesPropertyInfo), '("cssName", Gtk.Widget.WidgetCssNamePropertyInfo), '("cursor", Gtk.Widget.WidgetCursorPropertyInfo), '("focusOnClick", Gtk.Widget.WidgetFocusOnClickPropertyInfo), '("focusable", Gtk.Widget.WidgetFocusablePropertyInfo), '("halign", Gtk.Widget.WidgetHalignPropertyInfo), '("hasDefault", Gtk.Widget.WidgetHasDefaultPropertyInfo), '("hasFocus", Gtk.Widget.WidgetHasFocusPropertyInfo), '("hasFrame", Gtk.Button.ButtonHasFramePropertyInfo), '("hasTooltip", Gtk.Widget.WidgetHasTooltipPropertyInfo), '("heightRequest", Gtk.Widget.WidgetHeightRequestPropertyInfo), '("hexpand", Gtk.Widget.WidgetHexpandPropertyInfo), '("hexpandSet", Gtk.Widget.WidgetHexpandSetPropertyInfo), '("iconName", Gtk.Button.ButtonIconNamePropertyInfo), '("label", Gtk.Button.ButtonLabelPropertyInfo), '("layoutManager", Gtk.Widget.WidgetLayoutManagerPropertyInfo), '("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), '("receivesDefault", Gtk.Widget.WidgetReceivesDefaultPropertyInfo), '("root", Gtk.Widget.WidgetRootPropertyInfo), '("scaleFactor", Gtk.Widget.WidgetScaleFactorPropertyInfo), '("sensitive", Gtk.Widget.WidgetSensitivePropertyInfo), '("tooltipMarkup", Gtk.Widget.WidgetTooltipMarkupPropertyInfo), '("tooltipText", Gtk.Widget.WidgetTooltipTextPropertyInfo), '("uri", LinkButtonUriPropertyInfo), '("useUnderline", Gtk.Button.ButtonUseUnderlinePropertyInfo), '("valign", Gtk.Widget.WidgetValignPropertyInfo), '("vexpand", Gtk.Widget.WidgetVexpandPropertyInfo), '("vexpandSet", Gtk.Widget.WidgetVexpandSetPropertyInfo), '("visible", Gtk.Widget.WidgetVisiblePropertyInfo), '("visited", LinkButtonVisitedPropertyInfo), '("widthRequest", Gtk.Widget.WidgetWidthRequestPropertyInfo)] :: [(Symbol, *)])
#endif
#if defined(ENABLE_OVERLOADING)
linkButtonUri :: AttrLabelProxy "uri"
linkButtonUri = AttrLabelProxy
linkButtonVisited :: AttrLabelProxy "visited"
linkButtonVisited = AttrLabelProxy
#endif
#if defined(ENABLE_OVERLOADING)
type instance O.SignalList LinkButton = LinkButtonSignalList
type LinkButtonSignalList = ('[ '("activate", Gtk.Button.ButtonActivateSignalInfo), '("activateLink", LinkButtonActivateLinkSignalInfo), '("clicked", Gtk.Button.ButtonClickedSignalInfo), '("destroy", Gtk.Widget.WidgetDestroySignalInfo), '("directionChanged", Gtk.Widget.WidgetDirectionChangedSignalInfo), '("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), '("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, *)])
#endif
foreign import ccall "gtk_link_button_new" gtk_link_button_new ::
CString ->
IO (Ptr LinkButton)
linkButtonNew ::
(B.CallStack.HasCallStack, MonadIO m) =>
T.Text
-> m LinkButton
linkButtonNew :: Text -> m LinkButton
linkButtonNew Text
uri = IO LinkButton -> m LinkButton
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO LinkButton -> m LinkButton) -> IO LinkButton -> m LinkButton
forall a b. (a -> b) -> a -> b
$ do
CString
uri' <- Text -> IO CString
textToCString Text
uri
Ptr LinkButton
result <- CString -> IO (Ptr LinkButton)
gtk_link_button_new CString
uri'
Text -> Ptr LinkButton -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"linkButtonNew" Ptr LinkButton
result
LinkButton
result' <- ((ManagedPtr LinkButton -> LinkButton)
-> Ptr LinkButton -> IO LinkButton
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr LinkButton -> LinkButton
LinkButton) Ptr LinkButton
result
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
uri'
LinkButton -> IO LinkButton
forall (m :: * -> *) a. Monad m => a -> m a
return LinkButton
result'
#if defined(ENABLE_OVERLOADING)
#endif
foreign import ccall "gtk_link_button_new_with_label" gtk_link_button_new_with_label ::
CString ->
CString ->
IO (Ptr LinkButton)
linkButtonNewWithLabel ::
(B.CallStack.HasCallStack, MonadIO m) =>
T.Text
-> Maybe (T.Text)
-> m LinkButton
linkButtonNewWithLabel :: Text -> Maybe Text -> m LinkButton
linkButtonNewWithLabel Text
uri Maybe Text
label = IO LinkButton -> m LinkButton
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO LinkButton -> m LinkButton) -> IO LinkButton -> m LinkButton
forall a b. (a -> b) -> a -> b
$ do
CString
uri' <- Text -> IO CString
textToCString Text
uri
CString
maybeLabel <- case Maybe Text
label of
Maybe Text
Nothing -> CString -> IO CString
forall (m :: * -> *) a. Monad m => a -> m a
return CString
forall a. Ptr a
nullPtr
Just Text
jLabel -> do
CString
jLabel' <- Text -> IO CString
textToCString Text
jLabel
CString -> IO CString
forall (m :: * -> *) a. Monad m => a -> m a
return CString
jLabel'
Ptr LinkButton
result <- CString -> CString -> IO (Ptr LinkButton)
gtk_link_button_new_with_label CString
uri' CString
maybeLabel
Text -> Ptr LinkButton -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"linkButtonNewWithLabel" Ptr LinkButton
result
LinkButton
result' <- ((ManagedPtr LinkButton -> LinkButton)
-> Ptr LinkButton -> IO LinkButton
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr LinkButton -> LinkButton
LinkButton) Ptr LinkButton
result
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
uri'
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
maybeLabel
LinkButton -> IO LinkButton
forall (m :: * -> *) a. Monad m => a -> m a
return LinkButton
result'
#if defined(ENABLE_OVERLOADING)
#endif
foreign import ccall "gtk_link_button_get_uri" gtk_link_button_get_uri ::
Ptr LinkButton ->
IO CString
linkButtonGetUri ::
(B.CallStack.HasCallStack, MonadIO m, IsLinkButton a) =>
a
-> m T.Text
linkButtonGetUri :: a -> m Text
linkButtonGetUri a
linkButton = IO Text -> m Text
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Text -> m Text) -> IO Text -> m Text
forall a b. (a -> b) -> a -> b
$ do
Ptr LinkButton
linkButton' <- a -> IO (Ptr LinkButton)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
linkButton
CString
result <- Ptr LinkButton -> IO CString
gtk_link_button_get_uri Ptr LinkButton
linkButton'
Text -> CString -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"linkButtonGetUri" CString
result
Text
result' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
linkButton
Text -> IO Text
forall (m :: * -> *) a. Monad m => a -> m a
return Text
result'
#if defined(ENABLE_OVERLOADING)
data LinkButtonGetUriMethodInfo
instance (signature ~ (m T.Text), MonadIO m, IsLinkButton a) => O.MethodInfo LinkButtonGetUriMethodInfo a signature where
overloadedMethod = linkButtonGetUri
#endif
foreign import ccall "gtk_link_button_get_visited" gtk_link_button_get_visited ::
Ptr LinkButton ->
IO CInt
linkButtonGetVisited ::
(B.CallStack.HasCallStack, MonadIO m, IsLinkButton a) =>
a
-> m Bool
linkButtonGetVisited :: a -> m Bool
linkButtonGetVisited a
linkButton = LinkButtonActivateLinkCallback -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (LinkButtonActivateLinkCallback -> m Bool)
-> LinkButtonActivateLinkCallback -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr LinkButton
linkButton' <- a -> IO (Ptr LinkButton)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
linkButton
CInt
result <- Ptr LinkButton -> IO CInt
gtk_link_button_get_visited Ptr LinkButton
linkButton'
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
linkButton
Bool -> LinkButtonActivateLinkCallback
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data LinkButtonGetVisitedMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsLinkButton a) => O.MethodInfo LinkButtonGetVisitedMethodInfo a signature where
overloadedMethod = linkButtonGetVisited
#endif
foreign import ccall "gtk_link_button_set_uri" gtk_link_button_set_uri ::
Ptr LinkButton ->
CString ->
IO ()
linkButtonSetUri ::
(B.CallStack.HasCallStack, MonadIO m, IsLinkButton a) =>
a
-> T.Text
-> m ()
linkButtonSetUri :: a -> Text -> m ()
linkButtonSetUri a
linkButton Text
uri = 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 LinkButton
linkButton' <- a -> IO (Ptr LinkButton)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
linkButton
CString
uri' <- Text -> IO CString
textToCString Text
uri
Ptr LinkButton -> CString -> IO ()
gtk_link_button_set_uri Ptr LinkButton
linkButton' CString
uri'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
linkButton
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
uri'
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data LinkButtonSetUriMethodInfo
instance (signature ~ (T.Text -> m ()), MonadIO m, IsLinkButton a) => O.MethodInfo LinkButtonSetUriMethodInfo a signature where
overloadedMethod = linkButtonSetUri
#endif
foreign import ccall "gtk_link_button_set_visited" gtk_link_button_set_visited ::
Ptr LinkButton ->
CInt ->
IO ()
linkButtonSetVisited ::
(B.CallStack.HasCallStack, MonadIO m, IsLinkButton a) =>
a
-> Bool
-> m ()
linkButtonSetVisited :: a -> Bool -> m ()
linkButtonSetVisited a
linkButton Bool
visited = 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 LinkButton
linkButton' <- a -> IO (Ptr LinkButton)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
linkButton
let visited' :: CInt
visited' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
fromEnum) Bool
visited
Ptr LinkButton -> CInt -> IO ()
gtk_link_button_set_visited Ptr LinkButton
linkButton' CInt
visited'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
linkButton
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data LinkButtonSetVisitedMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsLinkButton a) => O.MethodInfo LinkButtonSetVisitedMethodInfo a signature where
overloadedMethod = linkButtonSetVisited
#endif