gi-gtk-3.0.28: GI/Gtk/Objects/Button.hs
{- |
Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte
License : LGPL-2.1
Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc)
The 'GI.Gtk.Objects.Button.Button' widget is generally used to trigger a callback function that is
called when the button is pressed. The various signals and how to use them
are outlined below.
The 'GI.Gtk.Objects.Button.Button' widget can hold any valid child widget. That is, it can hold
almost any other standard 'GI.Gtk.Objects.Widget.Widget'. The most commonly used child is the
'GI.Gtk.Objects.Label.Label'.
= CSS nodes
GtkButton has a single CSS node with name button. The node will get the
style classes .image-button or .text-button, if the content is just an
image or label, respectively. It may also receive the .flat style class.
Other style classes that are commonly used with GtkButton include
.suggested-action and .destructive-action. In special cases, buttons
can be made round by adding the .circular style class.
Button-like widgets like 'GI.Gtk.Objects.ToggleButton.ToggleButton', 'GI.Gtk.Objects.MenuButton.MenuButton', 'GI.Gtk.Objects.VolumeButton.VolumeButton',
'GI.Gtk.Objects.LockButton.LockButton', 'GI.Gtk.Objects.ColorButton.ColorButton', 'GI.Gtk.Objects.FontButton.FontButton' or 'GI.Gtk.Objects.FileChooserButton.FileChooserButton' use
style classes such as .toggle, .popup, .scale, .lock, .color, .font, .file
to differentiate themselves from a plain GtkButton.
-}
#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \
&& !defined(__HADDOCK_VERSION__))
module GI.Gtk.Objects.Button
(
-- * Exported types
Button(..) ,
IsButton ,
toButton ,
noButton ,
-- * Methods
-- ** clicked #method:clicked#
#if ENABLE_OVERLOADING
ButtonClickedMethodInfo ,
#endif
buttonClicked ,
-- ** enter #method:enter#
#if ENABLE_OVERLOADING
ButtonEnterMethodInfo ,
#endif
buttonEnter ,
-- ** getAlignment #method:getAlignment#
#if ENABLE_OVERLOADING
ButtonGetAlignmentMethodInfo ,
#endif
buttonGetAlignment ,
-- ** getAlwaysShowImage #method:getAlwaysShowImage#
#if ENABLE_OVERLOADING
ButtonGetAlwaysShowImageMethodInfo ,
#endif
buttonGetAlwaysShowImage ,
-- ** getEventWindow #method:getEventWindow#
#if ENABLE_OVERLOADING
ButtonGetEventWindowMethodInfo ,
#endif
buttonGetEventWindow ,
-- ** getFocusOnClick #method:getFocusOnClick#
#if ENABLE_OVERLOADING
ButtonGetFocusOnClickMethodInfo ,
#endif
buttonGetFocusOnClick ,
-- ** getImage #method:getImage#
#if ENABLE_OVERLOADING
ButtonGetImageMethodInfo ,
#endif
buttonGetImage ,
-- ** getImagePosition #method:getImagePosition#
#if ENABLE_OVERLOADING
ButtonGetImagePositionMethodInfo ,
#endif
buttonGetImagePosition ,
-- ** getLabel #method:getLabel#
#if ENABLE_OVERLOADING
ButtonGetLabelMethodInfo ,
#endif
buttonGetLabel ,
-- ** getRelief #method:getRelief#
#if ENABLE_OVERLOADING
ButtonGetReliefMethodInfo ,
#endif
buttonGetRelief ,
-- ** getUseStock #method:getUseStock#
#if ENABLE_OVERLOADING
ButtonGetUseStockMethodInfo ,
#endif
buttonGetUseStock ,
-- ** getUseUnderline #method:getUseUnderline#
#if ENABLE_OVERLOADING
ButtonGetUseUnderlineMethodInfo ,
#endif
buttonGetUseUnderline ,
-- ** leave #method:leave#
#if ENABLE_OVERLOADING
ButtonLeaveMethodInfo ,
#endif
buttonLeave ,
-- ** new #method:new#
buttonNew ,
-- ** newFromIconName #method:newFromIconName#
buttonNewFromIconName ,
-- ** newFromStock #method:newFromStock#
buttonNewFromStock ,
-- ** newWithLabel #method:newWithLabel#
buttonNewWithLabel ,
-- ** newWithMnemonic #method:newWithMnemonic#
buttonNewWithMnemonic ,
-- ** pressed #method:pressed#
#if ENABLE_OVERLOADING
ButtonPressedMethodInfo ,
#endif
buttonPressed ,
-- ** released #method:released#
#if ENABLE_OVERLOADING
ButtonReleasedMethodInfo ,
#endif
buttonReleased ,
-- ** setAlignment #method:setAlignment#
#if ENABLE_OVERLOADING
ButtonSetAlignmentMethodInfo ,
#endif
buttonSetAlignment ,
-- ** setAlwaysShowImage #method:setAlwaysShowImage#
#if ENABLE_OVERLOADING
ButtonSetAlwaysShowImageMethodInfo ,
#endif
buttonSetAlwaysShowImage ,
-- ** setFocusOnClick #method:setFocusOnClick#
#if ENABLE_OVERLOADING
ButtonSetFocusOnClickMethodInfo ,
#endif
buttonSetFocusOnClick ,
-- ** setImage #method:setImage#
#if ENABLE_OVERLOADING
ButtonSetImageMethodInfo ,
#endif
buttonSetImage ,
-- ** setImagePosition #method:setImagePosition#
#if ENABLE_OVERLOADING
ButtonSetImagePositionMethodInfo ,
#endif
buttonSetImagePosition ,
-- ** setLabel #method:setLabel#
#if ENABLE_OVERLOADING
ButtonSetLabelMethodInfo ,
#endif
buttonSetLabel ,
-- ** setRelief #method:setRelief#
#if ENABLE_OVERLOADING
ButtonSetReliefMethodInfo ,
#endif
buttonSetRelief ,
-- ** setUseStock #method:setUseStock#
#if ENABLE_OVERLOADING
ButtonSetUseStockMethodInfo ,
#endif
buttonSetUseStock ,
-- ** setUseUnderline #method:setUseUnderline#
#if ENABLE_OVERLOADING
ButtonSetUseUnderlineMethodInfo ,
#endif
buttonSetUseUnderline ,
-- * Properties
-- ** alwaysShowImage #attr:alwaysShowImage#
{- | If 'True', the button will ignore the 'GI.Gtk.Objects.Settings.Settings':@/gtk-button-images/@
setting and always show the image, if available.
Use this property if the button would be useless or hard to use
without the image.
/Since: 3.6/
-}
#if ENABLE_OVERLOADING
ButtonAlwaysShowImagePropertyInfo ,
#endif
#if ENABLE_OVERLOADING
buttonAlwaysShowImage ,
#endif
constructButtonAlwaysShowImage ,
getButtonAlwaysShowImage ,
setButtonAlwaysShowImage ,
-- ** image #attr:image#
{- | The child widget to appear next to the button text.
/Since: 2.6/
-}
#if ENABLE_OVERLOADING
ButtonImagePropertyInfo ,
#endif
#if ENABLE_OVERLOADING
buttonImage ,
#endif
clearButtonImage ,
constructButtonImage ,
getButtonImage ,
setButtonImage ,
-- ** imagePosition #attr:imagePosition#
{- | The position of the image relative to the text inside the button.
/Since: 2.10/
-}
#if ENABLE_OVERLOADING
ButtonImagePositionPropertyInfo ,
#endif
#if ENABLE_OVERLOADING
buttonImagePosition ,
#endif
constructButtonImagePosition ,
getButtonImagePosition ,
setButtonImagePosition ,
-- ** label #attr:label#
{- | /No description available in the introspection data./
-}
#if ENABLE_OVERLOADING
ButtonLabelPropertyInfo ,
#endif
#if ENABLE_OVERLOADING
buttonLabel ,
#endif
constructButtonLabel ,
getButtonLabel ,
setButtonLabel ,
-- ** relief #attr:relief#
{- | /No description available in the introspection data./
-}
#if ENABLE_OVERLOADING
ButtonReliefPropertyInfo ,
#endif
#if ENABLE_OVERLOADING
buttonRelief ,
#endif
constructButtonRelief ,
getButtonRelief ,
setButtonRelief ,
-- ** useStock #attr:useStock#
{- | /No description available in the introspection data./
-}
#if ENABLE_OVERLOADING
ButtonUseStockPropertyInfo ,
#endif
#if ENABLE_OVERLOADING
buttonUseStock ,
#endif
constructButtonUseStock ,
getButtonUseStock ,
setButtonUseStock ,
-- ** useUnderline #attr:useUnderline#
{- | /No description available in the introspection data./
-}
#if ENABLE_OVERLOADING
ButtonUseUnderlinePropertyInfo ,
#endif
#if ENABLE_OVERLOADING
buttonUseUnderline ,
#endif
constructButtonUseUnderline ,
getButtonUseUnderline ,
setButtonUseUnderline ,
-- ** xalign #attr:xalign#
{- | If the child of the button is a 'GI.Gtk.Objects.Misc.Misc' or 'GI.Gtk.Objects.Alignment.Alignment', this property
can be used to control its horizontal alignment. 0.0 is left aligned,
1.0 is right aligned.
/Since: 2.4/
-}
#if ENABLE_OVERLOADING
ButtonXalignPropertyInfo ,
#endif
#if ENABLE_OVERLOADING
buttonXalign ,
#endif
constructButtonXalign ,
getButtonXalign ,
setButtonXalign ,
-- ** yalign #attr:yalign#
{- | If the child of the button is a 'GI.Gtk.Objects.Misc.Misc' or 'GI.Gtk.Objects.Alignment.Alignment', this property
can be used to control its vertical alignment. 0.0 is top aligned,
1.0 is bottom aligned.
/Since: 2.4/
-}
#if ENABLE_OVERLOADING
ButtonYalignPropertyInfo ,
#endif
#if ENABLE_OVERLOADING
buttonYalign ,
#endif
constructButtonYalign ,
getButtonYalign ,
setButtonYalign ,
-- * Signals
-- ** activate #signal:activate#
ButtonActivateCallback ,
#if ENABLE_OVERLOADING
ButtonActivateSignalInfo ,
#endif
C_ButtonActivateCallback ,
afterButtonActivate ,
genClosure_ButtonActivate ,
mk_ButtonActivateCallback ,
noButtonActivateCallback ,
onButtonActivate ,
wrap_ButtonActivateCallback ,
-- ** clicked #signal:clicked#
ButtonClickedCallback ,
#if ENABLE_OVERLOADING
ButtonClickedSignalInfo ,
#endif
C_ButtonClickedCallback ,
afterButtonClicked ,
genClosure_ButtonClicked ,
mk_ButtonClickedCallback ,
noButtonClickedCallback ,
onButtonClicked ,
wrap_ButtonClickedCallback ,
-- ** enter #signal:enter#
ButtonEnterCallback ,
#if ENABLE_OVERLOADING
ButtonEnterSignalInfo ,
#endif
C_ButtonEnterCallback ,
afterButtonEnter ,
genClosure_ButtonEnter ,
mk_ButtonEnterCallback ,
noButtonEnterCallback ,
onButtonEnter ,
wrap_ButtonEnterCallback ,
-- ** leave #signal:leave#
ButtonLeaveCallback ,
#if ENABLE_OVERLOADING
ButtonLeaveSignalInfo ,
#endif
C_ButtonLeaveCallback ,
afterButtonLeave ,
genClosure_ButtonLeave ,
mk_ButtonLeaveCallback ,
noButtonLeaveCallback ,
onButtonLeave ,
wrap_ButtonLeaveCallback ,
-- ** pressed #signal:pressed#
ButtonPressedCallback ,
#if ENABLE_OVERLOADING
ButtonPressedSignalInfo ,
#endif
C_ButtonPressedCallback ,
afterButtonPressed ,
genClosure_ButtonPressed ,
mk_ButtonPressedCallback ,
noButtonPressedCallback ,
onButtonPressed ,
wrap_ButtonPressedCallback ,
-- ** released #signal:released#
ButtonReleasedCallback ,
#if ENABLE_OVERLOADING
ButtonReleasedSignalInfo ,
#endif
C_ButtonReleasedCallback ,
afterButtonReleased ,
genClosure_ButtonReleased ,
mk_ButtonReleasedCallback ,
noButtonReleasedCallback ,
onButtonReleased ,
wrap_ButtonReleasedCallback ,
) 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.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.Gdk.Objects.Window as Gdk.Window
import {-# SOURCE #-} qualified GI.Gtk.Enums as Gtk.Enums
import {-# SOURCE #-} qualified GI.Gtk.Interfaces.Actionable as Gtk.Actionable
import {-# SOURCE #-} qualified GI.Gtk.Interfaces.Activatable as Gtk.Activatable
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.Container as Gtk.Container
import {-# SOURCE #-} qualified GI.Gtk.Objects.Widget as Gtk.Widget
-- | Memory-managed wrapper type.
newtype Button = Button (ManagedPtr Button)
foreign import ccall "gtk_button_get_type"
c_gtk_button_get_type :: IO GType
instance GObject Button where
gobjectType = c_gtk_button_get_type
-- | Type class for types which can be safely cast to `Button`, for instance with `toButton`.
class (GObject o, O.IsDescendantOf Button o) => IsButton o
instance (GObject o, O.IsDescendantOf Button o) => IsButton o
instance O.HasParentTypes Button
type instance O.ParentTypes Button = '[Gtk.Bin.Bin, Gtk.Container.Container, Gtk.Widget.Widget, GObject.Object.Object, Atk.ImplementorIface.ImplementorIface, Gtk.Actionable.Actionable, Gtk.Activatable.Activatable, Gtk.Buildable.Buildable]
-- | Cast to `Button`, for types for which this is known to be safe. For general casts, use `Data.GI.Base.ManagedPtr.castTo`.
toButton :: (MonadIO m, IsButton o) => o -> m Button
toButton = liftIO . unsafeCastTo Button
-- | A convenience alias for `Nothing` :: `Maybe` `Button`.
noButton :: Maybe Button
noButton = Nothing
#if ENABLE_OVERLOADING
type family ResolveButtonMethod (t :: Symbol) (o :: *) :: * where
ResolveButtonMethod "activate" o = Gtk.Widget.WidgetActivateMethodInfo
ResolveButtonMethod "add" o = Gtk.Container.ContainerAddMethodInfo
ResolveButtonMethod "addAccelerator" o = Gtk.Widget.WidgetAddAcceleratorMethodInfo
ResolveButtonMethod "addChild" o = Gtk.Buildable.BuildableAddChildMethodInfo
ResolveButtonMethod "addDeviceEvents" o = Gtk.Widget.WidgetAddDeviceEventsMethodInfo
ResolveButtonMethod "addEvents" o = Gtk.Widget.WidgetAddEventsMethodInfo
ResolveButtonMethod "addMnemonicLabel" o = Gtk.Widget.WidgetAddMnemonicLabelMethodInfo
ResolveButtonMethod "addTickCallback" o = Gtk.Widget.WidgetAddTickCallbackMethodInfo
ResolveButtonMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
ResolveButtonMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
ResolveButtonMethod "canActivateAccel" o = Gtk.Widget.WidgetCanActivateAccelMethodInfo
ResolveButtonMethod "checkResize" o = Gtk.Container.ContainerCheckResizeMethodInfo
ResolveButtonMethod "childFocus" o = Gtk.Widget.WidgetChildFocusMethodInfo
ResolveButtonMethod "childGetProperty" o = Gtk.Container.ContainerChildGetPropertyMethodInfo
ResolveButtonMethod "childNotify" o = Gtk.Container.ContainerChildNotifyMethodInfo
ResolveButtonMethod "childNotifyByPspec" o = Gtk.Container.ContainerChildNotifyByPspecMethodInfo
ResolveButtonMethod "childSetProperty" o = Gtk.Container.ContainerChildSetPropertyMethodInfo
ResolveButtonMethod "childType" o = Gtk.Container.ContainerChildTypeMethodInfo
ResolveButtonMethod "classPath" o = Gtk.Widget.WidgetClassPathMethodInfo
ResolveButtonMethod "clicked" o = ButtonClickedMethodInfo
ResolveButtonMethod "computeExpand" o = Gtk.Widget.WidgetComputeExpandMethodInfo
ResolveButtonMethod "constructChild" o = Gtk.Buildable.BuildableConstructChildMethodInfo
ResolveButtonMethod "createPangoContext" o = Gtk.Widget.WidgetCreatePangoContextMethodInfo
ResolveButtonMethod "createPangoLayout" o = Gtk.Widget.WidgetCreatePangoLayoutMethodInfo
ResolveButtonMethod "customFinished" o = Gtk.Buildable.BuildableCustomFinishedMethodInfo
ResolveButtonMethod "customTagEnd" o = Gtk.Buildable.BuildableCustomTagEndMethodInfo
ResolveButtonMethod "customTagStart" o = Gtk.Buildable.BuildableCustomTagStartMethodInfo
ResolveButtonMethod "destroy" o = Gtk.Widget.WidgetDestroyMethodInfo
ResolveButtonMethod "destroyed" o = Gtk.Widget.WidgetDestroyedMethodInfo
ResolveButtonMethod "deviceIsShadowed" o = Gtk.Widget.WidgetDeviceIsShadowedMethodInfo
ResolveButtonMethod "doSetRelatedAction" o = Gtk.Activatable.ActivatableDoSetRelatedActionMethodInfo
ResolveButtonMethod "dragBegin" o = Gtk.Widget.WidgetDragBeginMethodInfo
ResolveButtonMethod "dragBeginWithCoordinates" o = Gtk.Widget.WidgetDragBeginWithCoordinatesMethodInfo
ResolveButtonMethod "dragCheckThreshold" o = Gtk.Widget.WidgetDragCheckThresholdMethodInfo
ResolveButtonMethod "dragDestAddImageTargets" o = Gtk.Widget.WidgetDragDestAddImageTargetsMethodInfo
ResolveButtonMethod "dragDestAddTextTargets" o = Gtk.Widget.WidgetDragDestAddTextTargetsMethodInfo
ResolveButtonMethod "dragDestAddUriTargets" o = Gtk.Widget.WidgetDragDestAddUriTargetsMethodInfo
ResolveButtonMethod "dragDestFindTarget" o = Gtk.Widget.WidgetDragDestFindTargetMethodInfo
ResolveButtonMethod "dragDestGetTargetList" o = Gtk.Widget.WidgetDragDestGetTargetListMethodInfo
ResolveButtonMethod "dragDestGetTrackMotion" o = Gtk.Widget.WidgetDragDestGetTrackMotionMethodInfo
ResolveButtonMethod "dragDestSet" o = Gtk.Widget.WidgetDragDestSetMethodInfo
ResolveButtonMethod "dragDestSetProxy" o = Gtk.Widget.WidgetDragDestSetProxyMethodInfo
ResolveButtonMethod "dragDestSetTargetList" o = Gtk.Widget.WidgetDragDestSetTargetListMethodInfo
ResolveButtonMethod "dragDestSetTrackMotion" o = Gtk.Widget.WidgetDragDestSetTrackMotionMethodInfo
ResolveButtonMethod "dragDestUnset" o = Gtk.Widget.WidgetDragDestUnsetMethodInfo
ResolveButtonMethod "dragGetData" o = Gtk.Widget.WidgetDragGetDataMethodInfo
ResolveButtonMethod "dragHighlight" o = Gtk.Widget.WidgetDragHighlightMethodInfo
ResolveButtonMethod "dragSourceAddImageTargets" o = Gtk.Widget.WidgetDragSourceAddImageTargetsMethodInfo
ResolveButtonMethod "dragSourceAddTextTargets" o = Gtk.Widget.WidgetDragSourceAddTextTargetsMethodInfo
ResolveButtonMethod "dragSourceAddUriTargets" o = Gtk.Widget.WidgetDragSourceAddUriTargetsMethodInfo
ResolveButtonMethod "dragSourceGetTargetList" o = Gtk.Widget.WidgetDragSourceGetTargetListMethodInfo
ResolveButtonMethod "dragSourceSet" o = Gtk.Widget.WidgetDragSourceSetMethodInfo
ResolveButtonMethod "dragSourceSetIconGicon" o = Gtk.Widget.WidgetDragSourceSetIconGiconMethodInfo
ResolveButtonMethod "dragSourceSetIconName" o = Gtk.Widget.WidgetDragSourceSetIconNameMethodInfo
ResolveButtonMethod "dragSourceSetIconPixbuf" o = Gtk.Widget.WidgetDragSourceSetIconPixbufMethodInfo
ResolveButtonMethod "dragSourceSetIconStock" o = Gtk.Widget.WidgetDragSourceSetIconStockMethodInfo
ResolveButtonMethod "dragSourceSetTargetList" o = Gtk.Widget.WidgetDragSourceSetTargetListMethodInfo
ResolveButtonMethod "dragSourceUnset" o = Gtk.Widget.WidgetDragSourceUnsetMethodInfo
ResolveButtonMethod "dragUnhighlight" o = Gtk.Widget.WidgetDragUnhighlightMethodInfo
ResolveButtonMethod "draw" o = Gtk.Widget.WidgetDrawMethodInfo
ResolveButtonMethod "ensureStyle" o = Gtk.Widget.WidgetEnsureStyleMethodInfo
ResolveButtonMethod "enter" o = ButtonEnterMethodInfo
ResolveButtonMethod "errorBell" o = Gtk.Widget.WidgetErrorBellMethodInfo
ResolveButtonMethod "event" o = Gtk.Widget.WidgetEventMethodInfo
ResolveButtonMethod "forall" o = Gtk.Container.ContainerForallMethodInfo
ResolveButtonMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
ResolveButtonMethod "foreach" o = Gtk.Container.ContainerForeachMethodInfo
ResolveButtonMethod "freezeChildNotify" o = Gtk.Widget.WidgetFreezeChildNotifyMethodInfo
ResolveButtonMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
ResolveButtonMethod "getv" o = GObject.Object.ObjectGetvMethodInfo
ResolveButtonMethod "grabAdd" o = Gtk.Widget.WidgetGrabAddMethodInfo
ResolveButtonMethod "grabDefault" o = Gtk.Widget.WidgetGrabDefaultMethodInfo
ResolveButtonMethod "grabFocus" o = Gtk.Widget.WidgetGrabFocusMethodInfo
ResolveButtonMethod "grabRemove" o = Gtk.Widget.WidgetGrabRemoveMethodInfo
ResolveButtonMethod "hasDefault" o = Gtk.Widget.WidgetHasDefaultMethodInfo
ResolveButtonMethod "hasFocus" o = Gtk.Widget.WidgetHasFocusMethodInfo
ResolveButtonMethod "hasGrab" o = Gtk.Widget.WidgetHasGrabMethodInfo
ResolveButtonMethod "hasRcStyle" o = Gtk.Widget.WidgetHasRcStyleMethodInfo
ResolveButtonMethod "hasScreen" o = Gtk.Widget.WidgetHasScreenMethodInfo
ResolveButtonMethod "hasVisibleFocus" o = Gtk.Widget.WidgetHasVisibleFocusMethodInfo
ResolveButtonMethod "hide" o = Gtk.Widget.WidgetHideMethodInfo
ResolveButtonMethod "hideOnDelete" o = Gtk.Widget.WidgetHideOnDeleteMethodInfo
ResolveButtonMethod "inDestruction" o = Gtk.Widget.WidgetInDestructionMethodInfo
ResolveButtonMethod "initTemplate" o = Gtk.Widget.WidgetInitTemplateMethodInfo
ResolveButtonMethod "inputShapeCombineRegion" o = Gtk.Widget.WidgetInputShapeCombineRegionMethodInfo
ResolveButtonMethod "insertActionGroup" o = Gtk.Widget.WidgetInsertActionGroupMethodInfo
ResolveButtonMethod "intersect" o = Gtk.Widget.WidgetIntersectMethodInfo
ResolveButtonMethod "isAncestor" o = Gtk.Widget.WidgetIsAncestorMethodInfo
ResolveButtonMethod "isComposited" o = Gtk.Widget.WidgetIsCompositedMethodInfo
ResolveButtonMethod "isDrawable" o = Gtk.Widget.WidgetIsDrawableMethodInfo
ResolveButtonMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo
ResolveButtonMethod "isFocus" o = Gtk.Widget.WidgetIsFocusMethodInfo
ResolveButtonMethod "isSensitive" o = Gtk.Widget.WidgetIsSensitiveMethodInfo
ResolveButtonMethod "isToplevel" o = Gtk.Widget.WidgetIsToplevelMethodInfo
ResolveButtonMethod "isVisible" o = Gtk.Widget.WidgetIsVisibleMethodInfo
ResolveButtonMethod "keynavFailed" o = Gtk.Widget.WidgetKeynavFailedMethodInfo
ResolveButtonMethod "leave" o = ButtonLeaveMethodInfo
ResolveButtonMethod "listAccelClosures" o = Gtk.Widget.WidgetListAccelClosuresMethodInfo
ResolveButtonMethod "listActionPrefixes" o = Gtk.Widget.WidgetListActionPrefixesMethodInfo
ResolveButtonMethod "listMnemonicLabels" o = Gtk.Widget.WidgetListMnemonicLabelsMethodInfo
ResolveButtonMethod "map" o = Gtk.Widget.WidgetMapMethodInfo
ResolveButtonMethod "mnemonicActivate" o = Gtk.Widget.WidgetMnemonicActivateMethodInfo
ResolveButtonMethod "modifyBase" o = Gtk.Widget.WidgetModifyBaseMethodInfo
ResolveButtonMethod "modifyBg" o = Gtk.Widget.WidgetModifyBgMethodInfo
ResolveButtonMethod "modifyCursor" o = Gtk.Widget.WidgetModifyCursorMethodInfo
ResolveButtonMethod "modifyFg" o = Gtk.Widget.WidgetModifyFgMethodInfo
ResolveButtonMethod "modifyFont" o = Gtk.Widget.WidgetModifyFontMethodInfo
ResolveButtonMethod "modifyStyle" o = Gtk.Widget.WidgetModifyStyleMethodInfo
ResolveButtonMethod "modifyText" o = Gtk.Widget.WidgetModifyTextMethodInfo
ResolveButtonMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
ResolveButtonMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
ResolveButtonMethod "overrideBackgroundColor" o = Gtk.Widget.WidgetOverrideBackgroundColorMethodInfo
ResolveButtonMethod "overrideColor" o = Gtk.Widget.WidgetOverrideColorMethodInfo
ResolveButtonMethod "overrideCursor" o = Gtk.Widget.WidgetOverrideCursorMethodInfo
ResolveButtonMethod "overrideFont" o = Gtk.Widget.WidgetOverrideFontMethodInfo
ResolveButtonMethod "overrideSymbolicColor" o = Gtk.Widget.WidgetOverrideSymbolicColorMethodInfo
ResolveButtonMethod "parserFinished" o = Gtk.Buildable.BuildableParserFinishedMethodInfo
ResolveButtonMethod "path" o = Gtk.Widget.WidgetPathMethodInfo
ResolveButtonMethod "pressed" o = ButtonPressedMethodInfo
ResolveButtonMethod "propagateDraw" o = Gtk.Container.ContainerPropagateDrawMethodInfo
ResolveButtonMethod "queueAllocate" o = Gtk.Widget.WidgetQueueAllocateMethodInfo
ResolveButtonMethod "queueComputeExpand" o = Gtk.Widget.WidgetQueueComputeExpandMethodInfo
ResolveButtonMethod "queueDraw" o = Gtk.Widget.WidgetQueueDrawMethodInfo
ResolveButtonMethod "queueDrawArea" o = Gtk.Widget.WidgetQueueDrawAreaMethodInfo
ResolveButtonMethod "queueDrawRegion" o = Gtk.Widget.WidgetQueueDrawRegionMethodInfo
ResolveButtonMethod "queueResize" o = Gtk.Widget.WidgetQueueResizeMethodInfo
ResolveButtonMethod "queueResizeNoRedraw" o = Gtk.Widget.WidgetQueueResizeNoRedrawMethodInfo
ResolveButtonMethod "realize" o = Gtk.Widget.WidgetRealizeMethodInfo
ResolveButtonMethod "ref" o = GObject.Object.ObjectRefMethodInfo
ResolveButtonMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
ResolveButtonMethod "regionIntersect" o = Gtk.Widget.WidgetRegionIntersectMethodInfo
ResolveButtonMethod "registerWindow" o = Gtk.Widget.WidgetRegisterWindowMethodInfo
ResolveButtonMethod "released" o = ButtonReleasedMethodInfo
ResolveButtonMethod "remove" o = Gtk.Container.ContainerRemoveMethodInfo
ResolveButtonMethod "removeAccelerator" o = Gtk.Widget.WidgetRemoveAcceleratorMethodInfo
ResolveButtonMethod "removeMnemonicLabel" o = Gtk.Widget.WidgetRemoveMnemonicLabelMethodInfo
ResolveButtonMethod "removeTickCallback" o = Gtk.Widget.WidgetRemoveTickCallbackMethodInfo
ResolveButtonMethod "renderIcon" o = Gtk.Widget.WidgetRenderIconMethodInfo
ResolveButtonMethod "renderIconPixbuf" o = Gtk.Widget.WidgetRenderIconPixbufMethodInfo
ResolveButtonMethod "reparent" o = Gtk.Widget.WidgetReparentMethodInfo
ResolveButtonMethod "resetRcStyles" o = Gtk.Widget.WidgetResetRcStylesMethodInfo
ResolveButtonMethod "resetStyle" o = Gtk.Widget.WidgetResetStyleMethodInfo
ResolveButtonMethod "resizeChildren" o = Gtk.Container.ContainerResizeChildrenMethodInfo
ResolveButtonMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
ResolveButtonMethod "sendExpose" o = Gtk.Widget.WidgetSendExposeMethodInfo
ResolveButtonMethod "sendFocusChange" o = Gtk.Widget.WidgetSendFocusChangeMethodInfo
ResolveButtonMethod "shapeCombineRegion" o = Gtk.Widget.WidgetShapeCombineRegionMethodInfo
ResolveButtonMethod "show" o = Gtk.Widget.WidgetShowMethodInfo
ResolveButtonMethod "showAll" o = Gtk.Widget.WidgetShowAllMethodInfo
ResolveButtonMethod "showNow" o = Gtk.Widget.WidgetShowNowMethodInfo
ResolveButtonMethod "sizeAllocate" o = Gtk.Widget.WidgetSizeAllocateMethodInfo
ResolveButtonMethod "sizeAllocateWithBaseline" o = Gtk.Widget.WidgetSizeAllocateWithBaselineMethodInfo
ResolveButtonMethod "sizeRequest" o = Gtk.Widget.WidgetSizeRequestMethodInfo
ResolveButtonMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
ResolveButtonMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
ResolveButtonMethod "styleAttach" o = Gtk.Widget.WidgetStyleAttachMethodInfo
ResolveButtonMethod "styleGetProperty" o = Gtk.Widget.WidgetStyleGetPropertyMethodInfo
ResolveButtonMethod "syncActionProperties" o = Gtk.Activatable.ActivatableSyncActionPropertiesMethodInfo
ResolveButtonMethod "thawChildNotify" o = Gtk.Widget.WidgetThawChildNotifyMethodInfo
ResolveButtonMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo
ResolveButtonMethod "translateCoordinates" o = Gtk.Widget.WidgetTranslateCoordinatesMethodInfo
ResolveButtonMethod "triggerTooltipQuery" o = Gtk.Widget.WidgetTriggerTooltipQueryMethodInfo
ResolveButtonMethod "unmap" o = Gtk.Widget.WidgetUnmapMethodInfo
ResolveButtonMethod "unparent" o = Gtk.Widget.WidgetUnparentMethodInfo
ResolveButtonMethod "unrealize" o = Gtk.Widget.WidgetUnrealizeMethodInfo
ResolveButtonMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo
ResolveButtonMethod "unregisterWindow" o = Gtk.Widget.WidgetUnregisterWindowMethodInfo
ResolveButtonMethod "unsetFocusChain" o = Gtk.Container.ContainerUnsetFocusChainMethodInfo
ResolveButtonMethod "unsetStateFlags" o = Gtk.Widget.WidgetUnsetStateFlagsMethodInfo
ResolveButtonMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
ResolveButtonMethod "getAccessible" o = Gtk.Widget.WidgetGetAccessibleMethodInfo
ResolveButtonMethod "getActionGroup" o = Gtk.Widget.WidgetGetActionGroupMethodInfo
ResolveButtonMethod "getActionName" o = Gtk.Actionable.ActionableGetActionNameMethodInfo
ResolveButtonMethod "getActionTargetValue" o = Gtk.Actionable.ActionableGetActionTargetValueMethodInfo
ResolveButtonMethod "getAlignment" o = ButtonGetAlignmentMethodInfo
ResolveButtonMethod "getAllocatedBaseline" o = Gtk.Widget.WidgetGetAllocatedBaselineMethodInfo
ResolveButtonMethod "getAllocatedHeight" o = Gtk.Widget.WidgetGetAllocatedHeightMethodInfo
ResolveButtonMethod "getAllocatedSize" o = Gtk.Widget.WidgetGetAllocatedSizeMethodInfo
ResolveButtonMethod "getAllocatedWidth" o = Gtk.Widget.WidgetGetAllocatedWidthMethodInfo
ResolveButtonMethod "getAllocation" o = Gtk.Widget.WidgetGetAllocationMethodInfo
ResolveButtonMethod "getAlwaysShowImage" o = ButtonGetAlwaysShowImageMethodInfo
ResolveButtonMethod "getAncestor" o = Gtk.Widget.WidgetGetAncestorMethodInfo
ResolveButtonMethod "getAppPaintable" o = Gtk.Widget.WidgetGetAppPaintableMethodInfo
ResolveButtonMethod "getBorderWidth" o = Gtk.Container.ContainerGetBorderWidthMethodInfo
ResolveButtonMethod "getCanDefault" o = Gtk.Widget.WidgetGetCanDefaultMethodInfo
ResolveButtonMethod "getCanFocus" o = Gtk.Widget.WidgetGetCanFocusMethodInfo
ResolveButtonMethod "getChild" o = Gtk.Bin.BinGetChildMethodInfo
ResolveButtonMethod "getChildRequisition" o = Gtk.Widget.WidgetGetChildRequisitionMethodInfo
ResolveButtonMethod "getChildVisible" o = Gtk.Widget.WidgetGetChildVisibleMethodInfo
ResolveButtonMethod "getChildren" o = Gtk.Container.ContainerGetChildrenMethodInfo
ResolveButtonMethod "getClip" o = Gtk.Widget.WidgetGetClipMethodInfo
ResolveButtonMethod "getClipboard" o = Gtk.Widget.WidgetGetClipboardMethodInfo
ResolveButtonMethod "getCompositeName" o = Gtk.Widget.WidgetGetCompositeNameMethodInfo
ResolveButtonMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
ResolveButtonMethod "getDeviceEnabled" o = Gtk.Widget.WidgetGetDeviceEnabledMethodInfo
ResolveButtonMethod "getDeviceEvents" o = Gtk.Widget.WidgetGetDeviceEventsMethodInfo
ResolveButtonMethod "getDirection" o = Gtk.Widget.WidgetGetDirectionMethodInfo
ResolveButtonMethod "getDisplay" o = Gtk.Widget.WidgetGetDisplayMethodInfo
ResolveButtonMethod "getDoubleBuffered" o = Gtk.Widget.WidgetGetDoubleBufferedMethodInfo
ResolveButtonMethod "getEventWindow" o = ButtonGetEventWindowMethodInfo
ResolveButtonMethod "getEvents" o = Gtk.Widget.WidgetGetEventsMethodInfo
ResolveButtonMethod "getFocusChain" o = Gtk.Container.ContainerGetFocusChainMethodInfo
ResolveButtonMethod "getFocusChild" o = Gtk.Container.ContainerGetFocusChildMethodInfo
ResolveButtonMethod "getFocusHadjustment" o = Gtk.Container.ContainerGetFocusHadjustmentMethodInfo
ResolveButtonMethod "getFocusOnClick" o = ButtonGetFocusOnClickMethodInfo
ResolveButtonMethod "getFocusVadjustment" o = Gtk.Container.ContainerGetFocusVadjustmentMethodInfo
ResolveButtonMethod "getFontMap" o = Gtk.Widget.WidgetGetFontMapMethodInfo
ResolveButtonMethod "getFontOptions" o = Gtk.Widget.WidgetGetFontOptionsMethodInfo
ResolveButtonMethod "getFrameClock" o = Gtk.Widget.WidgetGetFrameClockMethodInfo
ResolveButtonMethod "getHalign" o = Gtk.Widget.WidgetGetHalignMethodInfo
ResolveButtonMethod "getHasTooltip" o = Gtk.Widget.WidgetGetHasTooltipMethodInfo
ResolveButtonMethod "getHasWindow" o = Gtk.Widget.WidgetGetHasWindowMethodInfo
ResolveButtonMethod "getHexpand" o = Gtk.Widget.WidgetGetHexpandMethodInfo
ResolveButtonMethod "getHexpandSet" o = Gtk.Widget.WidgetGetHexpandSetMethodInfo
ResolveButtonMethod "getImage" o = ButtonGetImageMethodInfo
ResolveButtonMethod "getImagePosition" o = ButtonGetImagePositionMethodInfo
ResolveButtonMethod "getInternalChild" o = Gtk.Buildable.BuildableGetInternalChildMethodInfo
ResolveButtonMethod "getLabel" o = ButtonGetLabelMethodInfo
ResolveButtonMethod "getMapped" o = Gtk.Widget.WidgetGetMappedMethodInfo
ResolveButtonMethod "getMarginBottom" o = Gtk.Widget.WidgetGetMarginBottomMethodInfo
ResolveButtonMethod "getMarginEnd" o = Gtk.Widget.WidgetGetMarginEndMethodInfo
ResolveButtonMethod "getMarginLeft" o = Gtk.Widget.WidgetGetMarginLeftMethodInfo
ResolveButtonMethod "getMarginRight" o = Gtk.Widget.WidgetGetMarginRightMethodInfo
ResolveButtonMethod "getMarginStart" o = Gtk.Widget.WidgetGetMarginStartMethodInfo
ResolveButtonMethod "getMarginTop" o = Gtk.Widget.WidgetGetMarginTopMethodInfo
ResolveButtonMethod "getModifierMask" o = Gtk.Widget.WidgetGetModifierMaskMethodInfo
ResolveButtonMethod "getModifierStyle" o = Gtk.Widget.WidgetGetModifierStyleMethodInfo
ResolveButtonMethod "getName" o = Gtk.Widget.WidgetGetNameMethodInfo
ResolveButtonMethod "getNoShowAll" o = Gtk.Widget.WidgetGetNoShowAllMethodInfo
ResolveButtonMethod "getOpacity" o = Gtk.Widget.WidgetGetOpacityMethodInfo
ResolveButtonMethod "getPangoContext" o = Gtk.Widget.WidgetGetPangoContextMethodInfo
ResolveButtonMethod "getParent" o = Gtk.Widget.WidgetGetParentMethodInfo
ResolveButtonMethod "getParentWindow" o = Gtk.Widget.WidgetGetParentWindowMethodInfo
ResolveButtonMethod "getPath" o = Gtk.Widget.WidgetGetPathMethodInfo
ResolveButtonMethod "getPathForChild" o = Gtk.Container.ContainerGetPathForChildMethodInfo
ResolveButtonMethod "getPointer" o = Gtk.Widget.WidgetGetPointerMethodInfo
ResolveButtonMethod "getPreferredHeight" o = Gtk.Widget.WidgetGetPreferredHeightMethodInfo
ResolveButtonMethod "getPreferredHeightAndBaselineForWidth" o = Gtk.Widget.WidgetGetPreferredHeightAndBaselineForWidthMethodInfo
ResolveButtonMethod "getPreferredHeightForWidth" o = Gtk.Widget.WidgetGetPreferredHeightForWidthMethodInfo
ResolveButtonMethod "getPreferredSize" o = Gtk.Widget.WidgetGetPreferredSizeMethodInfo
ResolveButtonMethod "getPreferredWidth" o = Gtk.Widget.WidgetGetPreferredWidthMethodInfo
ResolveButtonMethod "getPreferredWidthForHeight" o = Gtk.Widget.WidgetGetPreferredWidthForHeightMethodInfo
ResolveButtonMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo
ResolveButtonMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo
ResolveButtonMethod "getRealized" o = Gtk.Widget.WidgetGetRealizedMethodInfo
ResolveButtonMethod "getReceivesDefault" o = Gtk.Widget.WidgetGetReceivesDefaultMethodInfo
ResolveButtonMethod "getRelatedAction" o = Gtk.Activatable.ActivatableGetRelatedActionMethodInfo
ResolveButtonMethod "getRelief" o = ButtonGetReliefMethodInfo
ResolveButtonMethod "getRequestMode" o = Gtk.Widget.WidgetGetRequestModeMethodInfo
ResolveButtonMethod "getRequisition" o = Gtk.Widget.WidgetGetRequisitionMethodInfo
ResolveButtonMethod "getResizeMode" o = Gtk.Container.ContainerGetResizeModeMethodInfo
ResolveButtonMethod "getRootWindow" o = Gtk.Widget.WidgetGetRootWindowMethodInfo
ResolveButtonMethod "getScaleFactor" o = Gtk.Widget.WidgetGetScaleFactorMethodInfo
ResolveButtonMethod "getScreen" o = Gtk.Widget.WidgetGetScreenMethodInfo
ResolveButtonMethod "getSensitive" o = Gtk.Widget.WidgetGetSensitiveMethodInfo
ResolveButtonMethod "getSettings" o = Gtk.Widget.WidgetGetSettingsMethodInfo
ResolveButtonMethod "getSizeRequest" o = Gtk.Widget.WidgetGetSizeRequestMethodInfo
ResolveButtonMethod "getState" o = Gtk.Widget.WidgetGetStateMethodInfo
ResolveButtonMethod "getStateFlags" o = Gtk.Widget.WidgetGetStateFlagsMethodInfo
ResolveButtonMethod "getStyle" o = Gtk.Widget.WidgetGetStyleMethodInfo
ResolveButtonMethod "getStyleContext" o = Gtk.Widget.WidgetGetStyleContextMethodInfo
ResolveButtonMethod "getSupportMultidevice" o = Gtk.Widget.WidgetGetSupportMultideviceMethodInfo
ResolveButtonMethod "getTemplateChild" o = Gtk.Widget.WidgetGetTemplateChildMethodInfo
ResolveButtonMethod "getTooltipMarkup" o = Gtk.Widget.WidgetGetTooltipMarkupMethodInfo
ResolveButtonMethod "getTooltipText" o = Gtk.Widget.WidgetGetTooltipTextMethodInfo
ResolveButtonMethod "getTooltipWindow" o = Gtk.Widget.WidgetGetTooltipWindowMethodInfo
ResolveButtonMethod "getToplevel" o = Gtk.Widget.WidgetGetToplevelMethodInfo
ResolveButtonMethod "getUseActionAppearance" o = Gtk.Activatable.ActivatableGetUseActionAppearanceMethodInfo
ResolveButtonMethod "getUseStock" o = ButtonGetUseStockMethodInfo
ResolveButtonMethod "getUseUnderline" o = ButtonGetUseUnderlineMethodInfo
ResolveButtonMethod "getValign" o = Gtk.Widget.WidgetGetValignMethodInfo
ResolveButtonMethod "getValignWithBaseline" o = Gtk.Widget.WidgetGetValignWithBaselineMethodInfo
ResolveButtonMethod "getVexpand" o = Gtk.Widget.WidgetGetVexpandMethodInfo
ResolveButtonMethod "getVexpandSet" o = Gtk.Widget.WidgetGetVexpandSetMethodInfo
ResolveButtonMethod "getVisible" o = Gtk.Widget.WidgetGetVisibleMethodInfo
ResolveButtonMethod "getVisual" o = Gtk.Widget.WidgetGetVisualMethodInfo
ResolveButtonMethod "getWindow" o = Gtk.Widget.WidgetGetWindowMethodInfo
ResolveButtonMethod "setAccelPath" o = Gtk.Widget.WidgetSetAccelPathMethodInfo
ResolveButtonMethod "setActionName" o = Gtk.Actionable.ActionableSetActionNameMethodInfo
ResolveButtonMethod "setActionTargetValue" o = Gtk.Actionable.ActionableSetActionTargetValueMethodInfo
ResolveButtonMethod "setAlignment" o = ButtonSetAlignmentMethodInfo
ResolveButtonMethod "setAllocation" o = Gtk.Widget.WidgetSetAllocationMethodInfo
ResolveButtonMethod "setAlwaysShowImage" o = ButtonSetAlwaysShowImageMethodInfo
ResolveButtonMethod "setAppPaintable" o = Gtk.Widget.WidgetSetAppPaintableMethodInfo
ResolveButtonMethod "setBorderWidth" o = Gtk.Container.ContainerSetBorderWidthMethodInfo
ResolveButtonMethod "setBuildableProperty" o = Gtk.Buildable.BuildableSetBuildablePropertyMethodInfo
ResolveButtonMethod "setCanDefault" o = Gtk.Widget.WidgetSetCanDefaultMethodInfo
ResolveButtonMethod "setCanFocus" o = Gtk.Widget.WidgetSetCanFocusMethodInfo
ResolveButtonMethod "setChildVisible" o = Gtk.Widget.WidgetSetChildVisibleMethodInfo
ResolveButtonMethod "setClip" o = Gtk.Widget.WidgetSetClipMethodInfo
ResolveButtonMethod "setCompositeName" o = Gtk.Widget.WidgetSetCompositeNameMethodInfo
ResolveButtonMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
ResolveButtonMethod "setDetailedActionName" o = Gtk.Actionable.ActionableSetDetailedActionNameMethodInfo
ResolveButtonMethod "setDeviceEnabled" o = Gtk.Widget.WidgetSetDeviceEnabledMethodInfo
ResolveButtonMethod "setDeviceEvents" o = Gtk.Widget.WidgetSetDeviceEventsMethodInfo
ResolveButtonMethod "setDirection" o = Gtk.Widget.WidgetSetDirectionMethodInfo
ResolveButtonMethod "setDoubleBuffered" o = Gtk.Widget.WidgetSetDoubleBufferedMethodInfo
ResolveButtonMethod "setEvents" o = Gtk.Widget.WidgetSetEventsMethodInfo
ResolveButtonMethod "setFocusChain" o = Gtk.Container.ContainerSetFocusChainMethodInfo
ResolveButtonMethod "setFocusChild" o = Gtk.Container.ContainerSetFocusChildMethodInfo
ResolveButtonMethod "setFocusHadjustment" o = Gtk.Container.ContainerSetFocusHadjustmentMethodInfo
ResolveButtonMethod "setFocusOnClick" o = ButtonSetFocusOnClickMethodInfo
ResolveButtonMethod "setFocusVadjustment" o = Gtk.Container.ContainerSetFocusVadjustmentMethodInfo
ResolveButtonMethod "setFontMap" o = Gtk.Widget.WidgetSetFontMapMethodInfo
ResolveButtonMethod "setFontOptions" o = Gtk.Widget.WidgetSetFontOptionsMethodInfo
ResolveButtonMethod "setHalign" o = Gtk.Widget.WidgetSetHalignMethodInfo
ResolveButtonMethod "setHasTooltip" o = Gtk.Widget.WidgetSetHasTooltipMethodInfo
ResolveButtonMethod "setHasWindow" o = Gtk.Widget.WidgetSetHasWindowMethodInfo
ResolveButtonMethod "setHexpand" o = Gtk.Widget.WidgetSetHexpandMethodInfo
ResolveButtonMethod "setHexpandSet" o = Gtk.Widget.WidgetSetHexpandSetMethodInfo
ResolveButtonMethod "setImage" o = ButtonSetImageMethodInfo
ResolveButtonMethod "setImagePosition" o = ButtonSetImagePositionMethodInfo
ResolveButtonMethod "setLabel" o = ButtonSetLabelMethodInfo
ResolveButtonMethod "setMapped" o = Gtk.Widget.WidgetSetMappedMethodInfo
ResolveButtonMethod "setMarginBottom" o = Gtk.Widget.WidgetSetMarginBottomMethodInfo
ResolveButtonMethod "setMarginEnd" o = Gtk.Widget.WidgetSetMarginEndMethodInfo
ResolveButtonMethod "setMarginLeft" o = Gtk.Widget.WidgetSetMarginLeftMethodInfo
ResolveButtonMethod "setMarginRight" o = Gtk.Widget.WidgetSetMarginRightMethodInfo
ResolveButtonMethod "setMarginStart" o = Gtk.Widget.WidgetSetMarginStartMethodInfo
ResolveButtonMethod "setMarginTop" o = Gtk.Widget.WidgetSetMarginTopMethodInfo
ResolveButtonMethod "setName" o = Gtk.Widget.WidgetSetNameMethodInfo
ResolveButtonMethod "setNoShowAll" o = Gtk.Widget.WidgetSetNoShowAllMethodInfo
ResolveButtonMethod "setOpacity" o = Gtk.Widget.WidgetSetOpacityMethodInfo
ResolveButtonMethod "setParent" o = Gtk.Widget.WidgetSetParentMethodInfo
ResolveButtonMethod "setParentWindow" o = Gtk.Widget.WidgetSetParentWindowMethodInfo
ResolveButtonMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
ResolveButtonMethod "setRealized" o = Gtk.Widget.WidgetSetRealizedMethodInfo
ResolveButtonMethod "setReallocateRedraws" o = Gtk.Container.ContainerSetReallocateRedrawsMethodInfo
ResolveButtonMethod "setReceivesDefault" o = Gtk.Widget.WidgetSetReceivesDefaultMethodInfo
ResolveButtonMethod "setRedrawOnAllocate" o = Gtk.Widget.WidgetSetRedrawOnAllocateMethodInfo
ResolveButtonMethod "setRelatedAction" o = Gtk.Activatable.ActivatableSetRelatedActionMethodInfo
ResolveButtonMethod "setRelief" o = ButtonSetReliefMethodInfo
ResolveButtonMethod "setResizeMode" o = Gtk.Container.ContainerSetResizeModeMethodInfo
ResolveButtonMethod "setSensitive" o = Gtk.Widget.WidgetSetSensitiveMethodInfo
ResolveButtonMethod "setSizeRequest" o = Gtk.Widget.WidgetSetSizeRequestMethodInfo
ResolveButtonMethod "setState" o = Gtk.Widget.WidgetSetStateMethodInfo
ResolveButtonMethod "setStateFlags" o = Gtk.Widget.WidgetSetStateFlagsMethodInfo
ResolveButtonMethod "setStyle" o = Gtk.Widget.WidgetSetStyleMethodInfo
ResolveButtonMethod "setSupportMultidevice" o = Gtk.Widget.WidgetSetSupportMultideviceMethodInfo
ResolveButtonMethod "setTooltipMarkup" o = Gtk.Widget.WidgetSetTooltipMarkupMethodInfo
ResolveButtonMethod "setTooltipText" o = Gtk.Widget.WidgetSetTooltipTextMethodInfo
ResolveButtonMethod "setTooltipWindow" o = Gtk.Widget.WidgetSetTooltipWindowMethodInfo
ResolveButtonMethod "setUseActionAppearance" o = Gtk.Activatable.ActivatableSetUseActionAppearanceMethodInfo
ResolveButtonMethod "setUseStock" o = ButtonSetUseStockMethodInfo
ResolveButtonMethod "setUseUnderline" o = ButtonSetUseUnderlineMethodInfo
ResolveButtonMethod "setValign" o = Gtk.Widget.WidgetSetValignMethodInfo
ResolveButtonMethod "setVexpand" o = Gtk.Widget.WidgetSetVexpandMethodInfo
ResolveButtonMethod "setVexpandSet" o = Gtk.Widget.WidgetSetVexpandSetMethodInfo
ResolveButtonMethod "setVisible" o = Gtk.Widget.WidgetSetVisibleMethodInfo
ResolveButtonMethod "setVisual" o = Gtk.Widget.WidgetSetVisualMethodInfo
ResolveButtonMethod "setWindow" o = Gtk.Widget.WidgetSetWindowMethodInfo
ResolveButtonMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveButtonMethod t Button, O.MethodInfo info Button p) => OL.IsLabel t (Button -> p) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)
#else
fromLabel _ = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)
#endif
#endif
-- signal Button::activate
{- |
The ::activate signal on GtkButton is an action signal and
emitting it causes the button to animate press then release.
Applications should never connect to this signal, but use the
'GI.Gtk.Objects.Button.Button'::@/clicked/@ signal.
-}
type ButtonActivateCallback =
IO ()
-- | A convenience synonym for @`Nothing` :: `Maybe` `ButtonActivateCallback`@.
noButtonActivateCallback :: Maybe ButtonActivateCallback
noButtonActivateCallback = Nothing
-- | Type for the callback on the (unwrapped) C side.
type C_ButtonActivateCallback =
Ptr () -> -- object
Ptr () -> -- user_data
IO ()
-- | Generate a function pointer callable from C code, from a `C_ButtonActivateCallback`.
foreign import ccall "wrapper"
mk_ButtonActivateCallback :: C_ButtonActivateCallback -> IO (FunPtr C_ButtonActivateCallback)
-- | Wrap the callback into a `GClosure`.
genClosure_ButtonActivate :: MonadIO m => ButtonActivateCallback -> m (GClosure C_ButtonActivateCallback)
genClosure_ButtonActivate cb = liftIO $ do
let cb' = wrap_ButtonActivateCallback cb
mk_ButtonActivateCallback cb' >>= B.GClosure.newGClosure
-- | Wrap a `ButtonActivateCallback` into a `C_ButtonActivateCallback`.
wrap_ButtonActivateCallback ::
ButtonActivateCallback ->
C_ButtonActivateCallback
wrap_ButtonActivateCallback _cb _ _ = do
_cb
{- |
Connect a signal handler for the “@activate@” signal, to be run before the default handler.
When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to
@
'Data.GI.Base.Signals.on' button #activate callback
@
-}
onButtonActivate :: (IsButton a, MonadIO m) => a -> ButtonActivateCallback -> m SignalHandlerId
onButtonActivate obj cb = liftIO $ do
let cb' = wrap_ButtonActivateCallback cb
cb'' <- mk_ButtonActivateCallback cb'
connectSignalFunPtr obj "activate" cb'' SignalConnectBefore
{- |
Connect a signal handler for the “@activate@” signal, to be run after the default handler.
When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to
@
'Data.GI.Base.Signals.after' button #activate callback
@
-}
afterButtonActivate :: (IsButton a, MonadIO m) => a -> ButtonActivateCallback -> m SignalHandlerId
afterButtonActivate obj cb = liftIO $ do
let cb' = wrap_ButtonActivateCallback cb
cb'' <- mk_ButtonActivateCallback cb'
connectSignalFunPtr obj "activate" cb'' SignalConnectAfter
-- signal Button::clicked
{- |
Emitted when the button has been activated (pressed and released).
-}
type ButtonClickedCallback =
IO ()
-- | A convenience synonym for @`Nothing` :: `Maybe` `ButtonClickedCallback`@.
noButtonClickedCallback :: Maybe ButtonClickedCallback
noButtonClickedCallback = Nothing
-- | Type for the callback on the (unwrapped) C side.
type C_ButtonClickedCallback =
Ptr () -> -- object
Ptr () -> -- user_data
IO ()
-- | Generate a function pointer callable from C code, from a `C_ButtonClickedCallback`.
foreign import ccall "wrapper"
mk_ButtonClickedCallback :: C_ButtonClickedCallback -> IO (FunPtr C_ButtonClickedCallback)
-- | Wrap the callback into a `GClosure`.
genClosure_ButtonClicked :: MonadIO m => ButtonClickedCallback -> m (GClosure C_ButtonClickedCallback)
genClosure_ButtonClicked cb = liftIO $ do
let cb' = wrap_ButtonClickedCallback cb
mk_ButtonClickedCallback cb' >>= B.GClosure.newGClosure
-- | Wrap a `ButtonClickedCallback` into a `C_ButtonClickedCallback`.
wrap_ButtonClickedCallback ::
ButtonClickedCallback ->
C_ButtonClickedCallback
wrap_ButtonClickedCallback _cb _ _ = do
_cb
{- |
Connect a signal handler for the “@clicked@” signal, to be run before the default handler.
When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to
@
'Data.GI.Base.Signals.on' button #clicked callback
@
-}
onButtonClicked :: (IsButton a, MonadIO m) => a -> ButtonClickedCallback -> m SignalHandlerId
onButtonClicked obj cb = liftIO $ do
let cb' = wrap_ButtonClickedCallback cb
cb'' <- mk_ButtonClickedCallback cb'
connectSignalFunPtr obj "clicked" cb'' SignalConnectBefore
{- |
Connect a signal handler for the “@clicked@” signal, to be run after the default handler.
When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to
@
'Data.GI.Base.Signals.after' button #clicked callback
@
-}
afterButtonClicked :: (IsButton a, MonadIO m) => a -> ButtonClickedCallback -> m SignalHandlerId
afterButtonClicked obj cb = liftIO $ do
let cb' = wrap_ButtonClickedCallback cb
cb'' <- mk_ButtonClickedCallback cb'
connectSignalFunPtr obj "clicked" cb'' SignalConnectAfter
-- signal Button::enter
{-# DEPRECATED ButtonEnterCallback ["(Since version 2.8)","Use the 'GI.Gtk.Objects.Widget.Widget'::@/enter-notify-event/@ signal."] #-}
{- |
Emitted when the pointer enters the button.
-}
type ButtonEnterCallback =
IO ()
-- | A convenience synonym for @`Nothing` :: `Maybe` `ButtonEnterCallback`@.
noButtonEnterCallback :: Maybe ButtonEnterCallback
noButtonEnterCallback = Nothing
-- | Type for the callback on the (unwrapped) C side.
type C_ButtonEnterCallback =
Ptr () -> -- object
Ptr () -> -- user_data
IO ()
-- | Generate a function pointer callable from C code, from a `C_ButtonEnterCallback`.
foreign import ccall "wrapper"
mk_ButtonEnterCallback :: C_ButtonEnterCallback -> IO (FunPtr C_ButtonEnterCallback)
-- | Wrap the callback into a `GClosure`.
genClosure_ButtonEnter :: MonadIO m => ButtonEnterCallback -> m (GClosure C_ButtonEnterCallback)
genClosure_ButtonEnter cb = liftIO $ do
let cb' = wrap_ButtonEnterCallback cb
mk_ButtonEnterCallback cb' >>= B.GClosure.newGClosure
-- | Wrap a `ButtonEnterCallback` into a `C_ButtonEnterCallback`.
wrap_ButtonEnterCallback ::
ButtonEnterCallback ->
C_ButtonEnterCallback
wrap_ButtonEnterCallback _cb _ _ = do
_cb
{- |
Connect a signal handler for the “@enter@” signal, to be run before the default handler.
When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to
@
'Data.GI.Base.Signals.on' button #enter callback
@
-}
onButtonEnter :: (IsButton a, MonadIO m) => a -> ButtonEnterCallback -> m SignalHandlerId
onButtonEnter obj cb = liftIO $ do
let cb' = wrap_ButtonEnterCallback cb
cb'' <- mk_ButtonEnterCallback cb'
connectSignalFunPtr obj "enter" cb'' SignalConnectBefore
{- |
Connect a signal handler for the “@enter@” signal, to be run after the default handler.
When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to
@
'Data.GI.Base.Signals.after' button #enter callback
@
-}
afterButtonEnter :: (IsButton a, MonadIO m) => a -> ButtonEnterCallback -> m SignalHandlerId
afterButtonEnter obj cb = liftIO $ do
let cb' = wrap_ButtonEnterCallback cb
cb'' <- mk_ButtonEnterCallback cb'
connectSignalFunPtr obj "enter" cb'' SignalConnectAfter
-- signal Button::leave
{-# DEPRECATED ButtonLeaveCallback ["(Since version 2.8)","Use the 'GI.Gtk.Objects.Widget.Widget'::@/leave-notify-event/@ signal."] #-}
{- |
Emitted when the pointer leaves the button.
-}
type ButtonLeaveCallback =
IO ()
-- | A convenience synonym for @`Nothing` :: `Maybe` `ButtonLeaveCallback`@.
noButtonLeaveCallback :: Maybe ButtonLeaveCallback
noButtonLeaveCallback = Nothing
-- | Type for the callback on the (unwrapped) C side.
type C_ButtonLeaveCallback =
Ptr () -> -- object
Ptr () -> -- user_data
IO ()
-- | Generate a function pointer callable from C code, from a `C_ButtonLeaveCallback`.
foreign import ccall "wrapper"
mk_ButtonLeaveCallback :: C_ButtonLeaveCallback -> IO (FunPtr C_ButtonLeaveCallback)
-- | Wrap the callback into a `GClosure`.
genClosure_ButtonLeave :: MonadIO m => ButtonLeaveCallback -> m (GClosure C_ButtonLeaveCallback)
genClosure_ButtonLeave cb = liftIO $ do
let cb' = wrap_ButtonLeaveCallback cb
mk_ButtonLeaveCallback cb' >>= B.GClosure.newGClosure
-- | Wrap a `ButtonLeaveCallback` into a `C_ButtonLeaveCallback`.
wrap_ButtonLeaveCallback ::
ButtonLeaveCallback ->
C_ButtonLeaveCallback
wrap_ButtonLeaveCallback _cb _ _ = do
_cb
{- |
Connect a signal handler for the “@leave@” signal, to be run before the default handler.
When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to
@
'Data.GI.Base.Signals.on' button #leave callback
@
-}
onButtonLeave :: (IsButton a, MonadIO m) => a -> ButtonLeaveCallback -> m SignalHandlerId
onButtonLeave obj cb = liftIO $ do
let cb' = wrap_ButtonLeaveCallback cb
cb'' <- mk_ButtonLeaveCallback cb'
connectSignalFunPtr obj "leave" cb'' SignalConnectBefore
{- |
Connect a signal handler for the “@leave@” signal, to be run after the default handler.
When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to
@
'Data.GI.Base.Signals.after' button #leave callback
@
-}
afterButtonLeave :: (IsButton a, MonadIO m) => a -> ButtonLeaveCallback -> m SignalHandlerId
afterButtonLeave obj cb = liftIO $ do
let cb' = wrap_ButtonLeaveCallback cb
cb'' <- mk_ButtonLeaveCallback cb'
connectSignalFunPtr obj "leave" cb'' SignalConnectAfter
-- signal Button::pressed
{-# DEPRECATED ButtonPressedCallback ["(Since version 2.8)","Use the 'GI.Gtk.Objects.Widget.Widget'::@/button-press-event/@ signal."] #-}
{- |
Emitted when the button is pressed.
-}
type ButtonPressedCallback =
IO ()
-- | A convenience synonym for @`Nothing` :: `Maybe` `ButtonPressedCallback`@.
noButtonPressedCallback :: Maybe ButtonPressedCallback
noButtonPressedCallback = Nothing
-- | Type for the callback on the (unwrapped) C side.
type C_ButtonPressedCallback =
Ptr () -> -- object
Ptr () -> -- user_data
IO ()
-- | Generate a function pointer callable from C code, from a `C_ButtonPressedCallback`.
foreign import ccall "wrapper"
mk_ButtonPressedCallback :: C_ButtonPressedCallback -> IO (FunPtr C_ButtonPressedCallback)
-- | Wrap the callback into a `GClosure`.
genClosure_ButtonPressed :: MonadIO m => ButtonPressedCallback -> m (GClosure C_ButtonPressedCallback)
genClosure_ButtonPressed cb = liftIO $ do
let cb' = wrap_ButtonPressedCallback cb
mk_ButtonPressedCallback cb' >>= B.GClosure.newGClosure
-- | Wrap a `ButtonPressedCallback` into a `C_ButtonPressedCallback`.
wrap_ButtonPressedCallback ::
ButtonPressedCallback ->
C_ButtonPressedCallback
wrap_ButtonPressedCallback _cb _ _ = do
_cb
{- |
Connect a signal handler for the “@pressed@” signal, to be run before the default handler.
When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to
@
'Data.GI.Base.Signals.on' button #pressed callback
@
-}
onButtonPressed :: (IsButton a, MonadIO m) => a -> ButtonPressedCallback -> m SignalHandlerId
onButtonPressed obj cb = liftIO $ do
let cb' = wrap_ButtonPressedCallback cb
cb'' <- mk_ButtonPressedCallback cb'
connectSignalFunPtr obj "pressed" cb'' SignalConnectBefore
{- |
Connect a signal handler for the “@pressed@” signal, to be run after the default handler.
When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to
@
'Data.GI.Base.Signals.after' button #pressed callback
@
-}
afterButtonPressed :: (IsButton a, MonadIO m) => a -> ButtonPressedCallback -> m SignalHandlerId
afterButtonPressed obj cb = liftIO $ do
let cb' = wrap_ButtonPressedCallback cb
cb'' <- mk_ButtonPressedCallback cb'
connectSignalFunPtr obj "pressed" cb'' SignalConnectAfter
-- signal Button::released
{-# DEPRECATED ButtonReleasedCallback ["(Since version 2.8)","Use the 'GI.Gtk.Objects.Widget.Widget'::@/button-release-event/@ signal."] #-}
{- |
Emitted when the button is released.
-}
type ButtonReleasedCallback =
IO ()
-- | A convenience synonym for @`Nothing` :: `Maybe` `ButtonReleasedCallback`@.
noButtonReleasedCallback :: Maybe ButtonReleasedCallback
noButtonReleasedCallback = Nothing
-- | Type for the callback on the (unwrapped) C side.
type C_ButtonReleasedCallback =
Ptr () -> -- object
Ptr () -> -- user_data
IO ()
-- | Generate a function pointer callable from C code, from a `C_ButtonReleasedCallback`.
foreign import ccall "wrapper"
mk_ButtonReleasedCallback :: C_ButtonReleasedCallback -> IO (FunPtr C_ButtonReleasedCallback)
-- | Wrap the callback into a `GClosure`.
genClosure_ButtonReleased :: MonadIO m => ButtonReleasedCallback -> m (GClosure C_ButtonReleasedCallback)
genClosure_ButtonReleased cb = liftIO $ do
let cb' = wrap_ButtonReleasedCallback cb
mk_ButtonReleasedCallback cb' >>= B.GClosure.newGClosure
-- | Wrap a `ButtonReleasedCallback` into a `C_ButtonReleasedCallback`.
wrap_ButtonReleasedCallback ::
ButtonReleasedCallback ->
C_ButtonReleasedCallback
wrap_ButtonReleasedCallback _cb _ _ = do
_cb
{- |
Connect a signal handler for the “@released@” signal, to be run before the default handler.
When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to
@
'Data.GI.Base.Signals.on' button #released callback
@
-}
onButtonReleased :: (IsButton a, MonadIO m) => a -> ButtonReleasedCallback -> m SignalHandlerId
onButtonReleased obj cb = liftIO $ do
let cb' = wrap_ButtonReleasedCallback cb
cb'' <- mk_ButtonReleasedCallback cb'
connectSignalFunPtr obj "released" cb'' SignalConnectBefore
{- |
Connect a signal handler for the “@released@” signal, to be run after the default handler.
When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to
@
'Data.GI.Base.Signals.after' button #released callback
@
-}
afterButtonReleased :: (IsButton a, MonadIO m) => a -> ButtonReleasedCallback -> m SignalHandlerId
afterButtonReleased obj cb = liftIO $ do
let cb' = wrap_ButtonReleasedCallback cb
cb'' <- mk_ButtonReleasedCallback cb'
connectSignalFunPtr obj "released" cb'' SignalConnectAfter
-- VVV Prop "always-show-image"
-- Type: TBasicType TBoolean
-- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct]
-- Nullable: (Just False,Just False)
{- |
Get the value of the “@always-show-image@” property.
When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to
@
'Data.GI.Base.Attributes.get' button #alwaysShowImage
@
-}
getButtonAlwaysShowImage :: (MonadIO m, IsButton o) => o -> m Bool
getButtonAlwaysShowImage obj = liftIO $ B.Properties.getObjectPropertyBool obj "always-show-image"
{- |
Set the value of the “@always-show-image@” property.
When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to
@
'Data.GI.Base.Attributes.set' button [ #alwaysShowImage 'Data.GI.Base.Attributes.:=' value ]
@
-}
setButtonAlwaysShowImage :: (MonadIO m, IsButton o) => o -> Bool -> m ()
setButtonAlwaysShowImage obj val = liftIO $ B.Properties.setObjectPropertyBool obj "always-show-image" val
{- |
Construct a `GValueConstruct` with valid value for the “@always-show-image@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.
-}
constructButtonAlwaysShowImage :: (IsButton o) => Bool -> IO (GValueConstruct o)
constructButtonAlwaysShowImage val = B.Properties.constructObjectPropertyBool "always-show-image" val
#if ENABLE_OVERLOADING
data ButtonAlwaysShowImagePropertyInfo
instance AttrInfo ButtonAlwaysShowImagePropertyInfo where
type AttrAllowedOps ButtonAlwaysShowImagePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint ButtonAlwaysShowImagePropertyInfo = (~) Bool
type AttrBaseTypeConstraint ButtonAlwaysShowImagePropertyInfo = IsButton
type AttrGetType ButtonAlwaysShowImagePropertyInfo = Bool
type AttrLabel ButtonAlwaysShowImagePropertyInfo = "always-show-image"
type AttrOrigin ButtonAlwaysShowImagePropertyInfo = Button
attrGet _ = getButtonAlwaysShowImage
attrSet _ = setButtonAlwaysShowImage
attrConstruct _ = constructButtonAlwaysShowImage
attrClear _ = undefined
#endif
-- VVV Prop "image"
-- Type: TInterface (Name {namespace = "Gtk", name = "Widget"})
-- Flags: [PropertyReadable,PropertyWritable]
-- Nullable: (Just True,Just True)
{- |
Get the value of the “@image@” property.
When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to
@
'Data.GI.Base.Attributes.get' button #image
@
-}
getButtonImage :: (MonadIO m, IsButton o) => o -> m (Maybe Gtk.Widget.Widget)
getButtonImage obj = liftIO $ B.Properties.getObjectPropertyObject obj "image" Gtk.Widget.Widget
{- |
Set the value of the “@image@” property.
When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to
@
'Data.GI.Base.Attributes.set' button [ #image 'Data.GI.Base.Attributes.:=' value ]
@
-}
setButtonImage :: (MonadIO m, IsButton o, Gtk.Widget.IsWidget a) => o -> a -> m ()
setButtonImage obj val = liftIO $ B.Properties.setObjectPropertyObject obj "image" (Just val)
{- |
Construct a `GValueConstruct` with valid value for the “@image@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.
-}
constructButtonImage :: (IsButton o, Gtk.Widget.IsWidget a) => a -> IO (GValueConstruct o)
constructButtonImage val = B.Properties.constructObjectPropertyObject "image" (Just val)
{- |
Set the value of the “@image@” property to `Nothing`.
When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to
@
'Data.GI.Base.Attributes.clear' #image
@
-}
clearButtonImage :: (MonadIO m, IsButton o) => o -> m ()
clearButtonImage obj = liftIO $ B.Properties.setObjectPropertyObject obj "image" (Nothing :: Maybe Gtk.Widget.Widget)
#if ENABLE_OVERLOADING
data ButtonImagePropertyInfo
instance AttrInfo ButtonImagePropertyInfo where
type AttrAllowedOps ButtonImagePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrSetTypeConstraint ButtonImagePropertyInfo = Gtk.Widget.IsWidget
type AttrBaseTypeConstraint ButtonImagePropertyInfo = IsButton
type AttrGetType ButtonImagePropertyInfo = (Maybe Gtk.Widget.Widget)
type AttrLabel ButtonImagePropertyInfo = "image"
type AttrOrigin ButtonImagePropertyInfo = Button
attrGet _ = getButtonImage
attrSet _ = setButtonImage
attrConstruct _ = constructButtonImage
attrClear _ = clearButtonImage
#endif
-- VVV Prop "image-position"
-- Type: TInterface (Name {namespace = "Gtk", name = "PositionType"})
-- Flags: [PropertyReadable,PropertyWritable]
-- Nullable: (Just False,Just False)
{- |
Get the value of the “@image-position@” property.
When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to
@
'Data.GI.Base.Attributes.get' button #imagePosition
@
-}
getButtonImagePosition :: (MonadIO m, IsButton o) => o -> m Gtk.Enums.PositionType
getButtonImagePosition obj = liftIO $ B.Properties.getObjectPropertyEnum obj "image-position"
{- |
Set the value of the “@image-position@” property.
When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to
@
'Data.GI.Base.Attributes.set' button [ #imagePosition 'Data.GI.Base.Attributes.:=' value ]
@
-}
setButtonImagePosition :: (MonadIO m, IsButton o) => o -> Gtk.Enums.PositionType -> m ()
setButtonImagePosition obj val = liftIO $ B.Properties.setObjectPropertyEnum obj "image-position" val
{- |
Construct a `GValueConstruct` with valid value for the “@image-position@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.
-}
constructButtonImagePosition :: (IsButton o) => Gtk.Enums.PositionType -> IO (GValueConstruct o)
constructButtonImagePosition val = B.Properties.constructObjectPropertyEnum "image-position" val
#if ENABLE_OVERLOADING
data ButtonImagePositionPropertyInfo
instance AttrInfo ButtonImagePositionPropertyInfo where
type AttrAllowedOps ButtonImagePositionPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint ButtonImagePositionPropertyInfo = (~) Gtk.Enums.PositionType
type AttrBaseTypeConstraint ButtonImagePositionPropertyInfo = IsButton
type AttrGetType ButtonImagePositionPropertyInfo = Gtk.Enums.PositionType
type AttrLabel ButtonImagePositionPropertyInfo = "image-position"
type AttrOrigin ButtonImagePositionPropertyInfo = Button
attrGet _ = getButtonImagePosition
attrSet _ = setButtonImagePosition
attrConstruct _ = constructButtonImagePosition
attrClear _ = undefined
#endif
-- VVV Prop "label"
-- Type: TBasicType TUTF8
-- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct]
-- Nullable: (Just False,Just False)
{- |
Get the value of the “@label@” property.
When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to
@
'Data.GI.Base.Attributes.get' button #label
@
-}
getButtonLabel :: (MonadIO m, IsButton o) => o -> m T.Text
getButtonLabel obj = liftIO $ checkUnexpectedNothing "getButtonLabel" $ B.Properties.getObjectPropertyString obj "label"
{- |
Set the value of the “@label@” property.
When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to
@
'Data.GI.Base.Attributes.set' button [ #label 'Data.GI.Base.Attributes.:=' value ]
@
-}
setButtonLabel :: (MonadIO m, IsButton o) => o -> T.Text -> m ()
setButtonLabel obj val = liftIO $ B.Properties.setObjectPropertyString obj "label" (Just val)
{- |
Construct a `GValueConstruct` with valid value for the “@label@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.
-}
constructButtonLabel :: (IsButton o) => T.Text -> IO (GValueConstruct o)
constructButtonLabel val = B.Properties.constructObjectPropertyString "label" (Just val)
#if ENABLE_OVERLOADING
data ButtonLabelPropertyInfo
instance AttrInfo ButtonLabelPropertyInfo where
type AttrAllowedOps ButtonLabelPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint ButtonLabelPropertyInfo = (~) T.Text
type AttrBaseTypeConstraint ButtonLabelPropertyInfo = IsButton
type AttrGetType ButtonLabelPropertyInfo = T.Text
type AttrLabel ButtonLabelPropertyInfo = "label"
type AttrOrigin ButtonLabelPropertyInfo = Button
attrGet _ = getButtonLabel
attrSet _ = setButtonLabel
attrConstruct _ = constructButtonLabel
attrClear _ = undefined
#endif
-- VVV Prop "relief"
-- Type: TInterface (Name {namespace = "Gtk", name = "ReliefStyle"})
-- Flags: [PropertyReadable,PropertyWritable]
-- Nullable: (Just False,Just False)
{- |
Get the value of the “@relief@” property.
When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to
@
'Data.GI.Base.Attributes.get' button #relief
@
-}
getButtonRelief :: (MonadIO m, IsButton o) => o -> m Gtk.Enums.ReliefStyle
getButtonRelief obj = liftIO $ B.Properties.getObjectPropertyEnum obj "relief"
{- |
Set the value of the “@relief@” property.
When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to
@
'Data.GI.Base.Attributes.set' button [ #relief 'Data.GI.Base.Attributes.:=' value ]
@
-}
setButtonRelief :: (MonadIO m, IsButton o) => o -> Gtk.Enums.ReliefStyle -> m ()
setButtonRelief obj val = liftIO $ B.Properties.setObjectPropertyEnum obj "relief" val
{- |
Construct a `GValueConstruct` with valid value for the “@relief@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.
-}
constructButtonRelief :: (IsButton o) => Gtk.Enums.ReliefStyle -> IO (GValueConstruct o)
constructButtonRelief val = B.Properties.constructObjectPropertyEnum "relief" val
#if ENABLE_OVERLOADING
data ButtonReliefPropertyInfo
instance AttrInfo ButtonReliefPropertyInfo where
type AttrAllowedOps ButtonReliefPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint ButtonReliefPropertyInfo = (~) Gtk.Enums.ReliefStyle
type AttrBaseTypeConstraint ButtonReliefPropertyInfo = IsButton
type AttrGetType ButtonReliefPropertyInfo = Gtk.Enums.ReliefStyle
type AttrLabel ButtonReliefPropertyInfo = "relief"
type AttrOrigin ButtonReliefPropertyInfo = Button
attrGet _ = getButtonRelief
attrSet _ = setButtonRelief
attrConstruct _ = constructButtonRelief
attrClear _ = undefined
#endif
-- VVV Prop "use-stock"
-- Type: TBasicType TBoolean
-- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct]
-- Nullable: (Just False,Just False)
{- |
Get the value of the “@use-stock@” property.
When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to
@
'Data.GI.Base.Attributes.get' button #useStock
@
-}
getButtonUseStock :: (MonadIO m, IsButton o) => o -> m Bool
getButtonUseStock obj = liftIO $ B.Properties.getObjectPropertyBool obj "use-stock"
{- |
Set the value of the “@use-stock@” property.
When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to
@
'Data.GI.Base.Attributes.set' button [ #useStock 'Data.GI.Base.Attributes.:=' value ]
@
-}
setButtonUseStock :: (MonadIO m, IsButton o) => o -> Bool -> m ()
setButtonUseStock obj val = liftIO $ B.Properties.setObjectPropertyBool obj "use-stock" val
{- |
Construct a `GValueConstruct` with valid value for the “@use-stock@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.
-}
constructButtonUseStock :: (IsButton o) => Bool -> IO (GValueConstruct o)
constructButtonUseStock val = B.Properties.constructObjectPropertyBool "use-stock" val
#if ENABLE_OVERLOADING
data ButtonUseStockPropertyInfo
instance AttrInfo ButtonUseStockPropertyInfo where
type AttrAllowedOps ButtonUseStockPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint ButtonUseStockPropertyInfo = (~) Bool
type AttrBaseTypeConstraint ButtonUseStockPropertyInfo = IsButton
type AttrGetType ButtonUseStockPropertyInfo = Bool
type AttrLabel ButtonUseStockPropertyInfo = "use-stock"
type AttrOrigin ButtonUseStockPropertyInfo = Button
attrGet _ = getButtonUseStock
attrSet _ = setButtonUseStock
attrConstruct _ = constructButtonUseStock
attrClear _ = undefined
#endif
-- VVV Prop "use-underline"
-- Type: TBasicType TBoolean
-- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct]
-- Nullable: (Just False,Just False)
{- |
Get the value of the “@use-underline@” property.
When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to
@
'Data.GI.Base.Attributes.get' button #useUnderline
@
-}
getButtonUseUnderline :: (MonadIO m, IsButton o) => o -> m Bool
getButtonUseUnderline obj = liftIO $ B.Properties.getObjectPropertyBool obj "use-underline"
{- |
Set the value of the “@use-underline@” property.
When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to
@
'Data.GI.Base.Attributes.set' button [ #useUnderline 'Data.GI.Base.Attributes.:=' value ]
@
-}
setButtonUseUnderline :: (MonadIO m, IsButton o) => o -> Bool -> m ()
setButtonUseUnderline obj val = liftIO $ B.Properties.setObjectPropertyBool obj "use-underline" val
{- |
Construct a `GValueConstruct` with valid value for the “@use-underline@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.
-}
constructButtonUseUnderline :: (IsButton o) => Bool -> IO (GValueConstruct o)
constructButtonUseUnderline val = B.Properties.constructObjectPropertyBool "use-underline" val
#if ENABLE_OVERLOADING
data ButtonUseUnderlinePropertyInfo
instance AttrInfo ButtonUseUnderlinePropertyInfo where
type AttrAllowedOps ButtonUseUnderlinePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint ButtonUseUnderlinePropertyInfo = (~) Bool
type AttrBaseTypeConstraint ButtonUseUnderlinePropertyInfo = IsButton
type AttrGetType ButtonUseUnderlinePropertyInfo = Bool
type AttrLabel ButtonUseUnderlinePropertyInfo = "use-underline"
type AttrOrigin ButtonUseUnderlinePropertyInfo = Button
attrGet _ = getButtonUseUnderline
attrSet _ = setButtonUseUnderline
attrConstruct _ = constructButtonUseUnderline
attrClear _ = undefined
#endif
-- VVV Prop "xalign"
-- Type: TBasicType TFloat
-- Flags: [PropertyReadable,PropertyWritable]
-- Nullable: (Nothing,Nothing)
{- |
Get the value of the “@xalign@” property.
When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to
@
'Data.GI.Base.Attributes.get' button #xalign
@
-}
getButtonXalign :: (MonadIO m, IsButton o) => o -> m Float
getButtonXalign obj = liftIO $ B.Properties.getObjectPropertyFloat obj "xalign"
{- |
Set the value of the “@xalign@” property.
When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to
@
'Data.GI.Base.Attributes.set' button [ #xalign 'Data.GI.Base.Attributes.:=' value ]
@
-}
setButtonXalign :: (MonadIO m, IsButton o) => o -> Float -> m ()
setButtonXalign obj val = liftIO $ B.Properties.setObjectPropertyFloat obj "xalign" val
{- |
Construct a `GValueConstruct` with valid value for the “@xalign@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.
-}
constructButtonXalign :: (IsButton o) => Float -> IO (GValueConstruct o)
constructButtonXalign val = B.Properties.constructObjectPropertyFloat "xalign" val
#if ENABLE_OVERLOADING
data ButtonXalignPropertyInfo
instance AttrInfo ButtonXalignPropertyInfo where
type AttrAllowedOps ButtonXalignPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint ButtonXalignPropertyInfo = (~) Float
type AttrBaseTypeConstraint ButtonXalignPropertyInfo = IsButton
type AttrGetType ButtonXalignPropertyInfo = Float
type AttrLabel ButtonXalignPropertyInfo = "xalign"
type AttrOrigin ButtonXalignPropertyInfo = Button
attrGet _ = getButtonXalign
attrSet _ = setButtonXalign
attrConstruct _ = constructButtonXalign
attrClear _ = undefined
#endif
-- VVV Prop "yalign"
-- Type: TBasicType TFloat
-- Flags: [PropertyReadable,PropertyWritable]
-- Nullable: (Nothing,Nothing)
{- |
Get the value of the “@yalign@” property.
When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to
@
'Data.GI.Base.Attributes.get' button #yalign
@
-}
getButtonYalign :: (MonadIO m, IsButton o) => o -> m Float
getButtonYalign obj = liftIO $ B.Properties.getObjectPropertyFloat obj "yalign"
{- |
Set the value of the “@yalign@” property.
When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to
@
'Data.GI.Base.Attributes.set' button [ #yalign 'Data.GI.Base.Attributes.:=' value ]
@
-}
setButtonYalign :: (MonadIO m, IsButton o) => o -> Float -> m ()
setButtonYalign obj val = liftIO $ B.Properties.setObjectPropertyFloat obj "yalign" val
{- |
Construct a `GValueConstruct` with valid value for the “@yalign@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.
-}
constructButtonYalign :: (IsButton o) => Float -> IO (GValueConstruct o)
constructButtonYalign val = B.Properties.constructObjectPropertyFloat "yalign" val
#if ENABLE_OVERLOADING
data ButtonYalignPropertyInfo
instance AttrInfo ButtonYalignPropertyInfo where
type AttrAllowedOps ButtonYalignPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint ButtonYalignPropertyInfo = (~) Float
type AttrBaseTypeConstraint ButtonYalignPropertyInfo = IsButton
type AttrGetType ButtonYalignPropertyInfo = Float
type AttrLabel ButtonYalignPropertyInfo = "yalign"
type AttrOrigin ButtonYalignPropertyInfo = Button
attrGet _ = getButtonYalign
attrSet _ = setButtonYalign
attrConstruct _ = constructButtonYalign
attrClear _ = undefined
#endif
#if ENABLE_OVERLOADING
instance O.HasAttributeList Button
type instance O.AttributeList Button = ButtonAttributeList
type ButtonAttributeList = ('[ '("actionName", Gtk.Actionable.ActionableActionNamePropertyInfo), '("actionTarget", Gtk.Actionable.ActionableActionTargetPropertyInfo), '("alwaysShowImage", ButtonAlwaysShowImagePropertyInfo), '("appPaintable", Gtk.Widget.WidgetAppPaintablePropertyInfo), '("borderWidth", Gtk.Container.ContainerBorderWidthPropertyInfo), '("canDefault", Gtk.Widget.WidgetCanDefaultPropertyInfo), '("canFocus", Gtk.Widget.WidgetCanFocusPropertyInfo), '("child", Gtk.Container.ContainerChildPropertyInfo), '("compositeChild", Gtk.Widget.WidgetCompositeChildPropertyInfo), '("doubleBuffered", Gtk.Widget.WidgetDoubleBufferedPropertyInfo), '("events", Gtk.Widget.WidgetEventsPropertyInfo), '("expand", Gtk.Widget.WidgetExpandPropertyInfo), '("focusOnClick", Gtk.Widget.WidgetFocusOnClickPropertyInfo), '("halign", Gtk.Widget.WidgetHalignPropertyInfo), '("hasDefault", Gtk.Widget.WidgetHasDefaultPropertyInfo), '("hasFocus", Gtk.Widget.WidgetHasFocusPropertyInfo), '("hasTooltip", Gtk.Widget.WidgetHasTooltipPropertyInfo), '("heightRequest", Gtk.Widget.WidgetHeightRequestPropertyInfo), '("hexpand", Gtk.Widget.WidgetHexpandPropertyInfo), '("hexpandSet", Gtk.Widget.WidgetHexpandSetPropertyInfo), '("image", ButtonImagePropertyInfo), '("imagePosition", ButtonImagePositionPropertyInfo), '("isFocus", Gtk.Widget.WidgetIsFocusPropertyInfo), '("label", ButtonLabelPropertyInfo), '("margin", Gtk.Widget.WidgetMarginPropertyInfo), '("marginBottom", Gtk.Widget.WidgetMarginBottomPropertyInfo), '("marginEnd", Gtk.Widget.WidgetMarginEndPropertyInfo), '("marginLeft", Gtk.Widget.WidgetMarginLeftPropertyInfo), '("marginRight", Gtk.Widget.WidgetMarginRightPropertyInfo), '("marginStart", Gtk.Widget.WidgetMarginStartPropertyInfo), '("marginTop", Gtk.Widget.WidgetMarginTopPropertyInfo), '("name", Gtk.Widget.WidgetNamePropertyInfo), '("noShowAll", Gtk.Widget.WidgetNoShowAllPropertyInfo), '("opacity", Gtk.Widget.WidgetOpacityPropertyInfo), '("parent", Gtk.Widget.WidgetParentPropertyInfo), '("receivesDefault", Gtk.Widget.WidgetReceivesDefaultPropertyInfo), '("relatedAction", Gtk.Activatable.ActivatableRelatedActionPropertyInfo), '("relief", ButtonReliefPropertyInfo), '("resizeMode", Gtk.Container.ContainerResizeModePropertyInfo), '("scaleFactor", Gtk.Widget.WidgetScaleFactorPropertyInfo), '("sensitive", Gtk.Widget.WidgetSensitivePropertyInfo), '("style", Gtk.Widget.WidgetStylePropertyInfo), '("tooltipMarkup", Gtk.Widget.WidgetTooltipMarkupPropertyInfo), '("tooltipText", Gtk.Widget.WidgetTooltipTextPropertyInfo), '("useActionAppearance", Gtk.Activatable.ActivatableUseActionAppearancePropertyInfo), '("useStock", ButtonUseStockPropertyInfo), '("useUnderline", ButtonUseUnderlinePropertyInfo), '("valign", Gtk.Widget.WidgetValignPropertyInfo), '("vexpand", Gtk.Widget.WidgetVexpandPropertyInfo), '("vexpandSet", Gtk.Widget.WidgetVexpandSetPropertyInfo), '("visible", Gtk.Widget.WidgetVisiblePropertyInfo), '("widthRequest", Gtk.Widget.WidgetWidthRequestPropertyInfo), '("window", Gtk.Widget.WidgetWindowPropertyInfo), '("xalign", ButtonXalignPropertyInfo), '("yalign", ButtonYalignPropertyInfo)] :: [(Symbol, *)])
#endif
#if ENABLE_OVERLOADING
buttonAlwaysShowImage :: AttrLabelProxy "alwaysShowImage"
buttonAlwaysShowImage = AttrLabelProxy
buttonImage :: AttrLabelProxy "image"
buttonImage = AttrLabelProxy
buttonImagePosition :: AttrLabelProxy "imagePosition"
buttonImagePosition = AttrLabelProxy
buttonLabel :: AttrLabelProxy "label"
buttonLabel = AttrLabelProxy
buttonRelief :: AttrLabelProxy "relief"
buttonRelief = AttrLabelProxy
buttonUseStock :: AttrLabelProxy "useStock"
buttonUseStock = AttrLabelProxy
buttonUseUnderline :: AttrLabelProxy "useUnderline"
buttonUseUnderline = AttrLabelProxy
buttonXalign :: AttrLabelProxy "xalign"
buttonXalign = AttrLabelProxy
buttonYalign :: AttrLabelProxy "yalign"
buttonYalign = AttrLabelProxy
#endif
#if ENABLE_OVERLOADING
data ButtonActivateSignalInfo
instance SignalInfo ButtonActivateSignalInfo where
type HaskellCallbackType ButtonActivateSignalInfo = ButtonActivateCallback
connectSignal _ obj cb connectMode = do
let cb' = wrap_ButtonActivateCallback cb
cb'' <- mk_ButtonActivateCallback cb'
connectSignalFunPtr obj "activate" cb'' connectMode
data ButtonClickedSignalInfo
instance SignalInfo ButtonClickedSignalInfo where
type HaskellCallbackType ButtonClickedSignalInfo = ButtonClickedCallback
connectSignal _ obj cb connectMode = do
let cb' = wrap_ButtonClickedCallback cb
cb'' <- mk_ButtonClickedCallback cb'
connectSignalFunPtr obj "clicked" cb'' connectMode
data ButtonEnterSignalInfo
instance SignalInfo ButtonEnterSignalInfo where
type HaskellCallbackType ButtonEnterSignalInfo = ButtonEnterCallback
connectSignal _ obj cb connectMode = do
let cb' = wrap_ButtonEnterCallback cb
cb'' <- mk_ButtonEnterCallback cb'
connectSignalFunPtr obj "enter" cb'' connectMode
data ButtonLeaveSignalInfo
instance SignalInfo ButtonLeaveSignalInfo where
type HaskellCallbackType ButtonLeaveSignalInfo = ButtonLeaveCallback
connectSignal _ obj cb connectMode = do
let cb' = wrap_ButtonLeaveCallback cb
cb'' <- mk_ButtonLeaveCallback cb'
connectSignalFunPtr obj "leave" cb'' connectMode
data ButtonPressedSignalInfo
instance SignalInfo ButtonPressedSignalInfo where
type HaskellCallbackType ButtonPressedSignalInfo = ButtonPressedCallback
connectSignal _ obj cb connectMode = do
let cb' = wrap_ButtonPressedCallback cb
cb'' <- mk_ButtonPressedCallback cb'
connectSignalFunPtr obj "pressed" cb'' connectMode
data ButtonReleasedSignalInfo
instance SignalInfo ButtonReleasedSignalInfo where
type HaskellCallbackType ButtonReleasedSignalInfo = ButtonReleasedCallback
connectSignal _ obj cb connectMode = do
let cb' = wrap_ButtonReleasedCallback cb
cb'' <- mk_ButtonReleasedCallback cb'
connectSignalFunPtr obj "released" cb'' connectMode
type instance O.SignalList Button = ButtonSignalList
type ButtonSignalList = ('[ '("accelClosuresChanged", Gtk.Widget.WidgetAccelClosuresChangedSignalInfo), '("activate", ButtonActivateSignalInfo), '("add", Gtk.Container.ContainerAddSignalInfo), '("buttonPressEvent", Gtk.Widget.WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", Gtk.Widget.WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", Gtk.Widget.WidgetCanActivateAccelSignalInfo), '("checkResize", Gtk.Container.ContainerCheckResizeSignalInfo), '("childNotify", Gtk.Widget.WidgetChildNotifySignalInfo), '("clicked", ButtonClickedSignalInfo), '("compositedChanged", Gtk.Widget.WidgetCompositedChangedSignalInfo), '("configureEvent", Gtk.Widget.WidgetConfigureEventSignalInfo), '("damageEvent", Gtk.Widget.WidgetDamageEventSignalInfo), '("deleteEvent", Gtk.Widget.WidgetDeleteEventSignalInfo), '("destroy", Gtk.Widget.WidgetDestroySignalInfo), '("destroyEvent", Gtk.Widget.WidgetDestroyEventSignalInfo), '("directionChanged", Gtk.Widget.WidgetDirectionChangedSignalInfo), '("dragBegin", Gtk.Widget.WidgetDragBeginSignalInfo), '("dragDataDelete", Gtk.Widget.WidgetDragDataDeleteSignalInfo), '("dragDataGet", Gtk.Widget.WidgetDragDataGetSignalInfo), '("dragDataReceived", Gtk.Widget.WidgetDragDataReceivedSignalInfo), '("dragDrop", Gtk.Widget.WidgetDragDropSignalInfo), '("dragEnd", Gtk.Widget.WidgetDragEndSignalInfo), '("dragFailed", Gtk.Widget.WidgetDragFailedSignalInfo), '("dragLeave", Gtk.Widget.WidgetDragLeaveSignalInfo), '("dragMotion", Gtk.Widget.WidgetDragMotionSignalInfo), '("draw", Gtk.Widget.WidgetDrawSignalInfo), '("enter", ButtonEnterSignalInfo), '("enterNotifyEvent", Gtk.Widget.WidgetEnterNotifyEventSignalInfo), '("event", Gtk.Widget.WidgetEventSignalInfo), '("eventAfter", Gtk.Widget.WidgetEventAfterSignalInfo), '("focus", Gtk.Widget.WidgetFocusSignalInfo), '("focusInEvent", Gtk.Widget.WidgetFocusInEventSignalInfo), '("focusOutEvent", Gtk.Widget.WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", Gtk.Widget.WidgetGrabBrokenEventSignalInfo), '("grabFocus", Gtk.Widget.WidgetGrabFocusSignalInfo), '("grabNotify", Gtk.Widget.WidgetGrabNotifySignalInfo), '("hide", Gtk.Widget.WidgetHideSignalInfo), '("hierarchyChanged", Gtk.Widget.WidgetHierarchyChangedSignalInfo), '("keyPressEvent", Gtk.Widget.WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", Gtk.Widget.WidgetKeyReleaseEventSignalInfo), '("keynavFailed", Gtk.Widget.WidgetKeynavFailedSignalInfo), '("leave", ButtonLeaveSignalInfo), '("leaveNotifyEvent", Gtk.Widget.WidgetLeaveNotifyEventSignalInfo), '("map", Gtk.Widget.WidgetMapSignalInfo), '("mapEvent", Gtk.Widget.WidgetMapEventSignalInfo), '("mnemonicActivate", Gtk.Widget.WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", Gtk.Widget.WidgetMotionNotifyEventSignalInfo), '("moveFocus", Gtk.Widget.WidgetMoveFocusSignalInfo), '("notify", GObject.Object.ObjectNotifySignalInfo), '("parentSet", Gtk.Widget.WidgetParentSetSignalInfo), '("popupMenu", Gtk.Widget.WidgetPopupMenuSignalInfo), '("pressed", ButtonPressedSignalInfo), '("propertyNotifyEvent", Gtk.Widget.WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", Gtk.Widget.WidgetProximityInEventSignalInfo), '("proximityOutEvent", Gtk.Widget.WidgetProximityOutEventSignalInfo), '("queryTooltip", Gtk.Widget.WidgetQueryTooltipSignalInfo), '("realize", Gtk.Widget.WidgetRealizeSignalInfo), '("released", ButtonReleasedSignalInfo), '("remove", Gtk.Container.ContainerRemoveSignalInfo), '("screenChanged", Gtk.Widget.WidgetScreenChangedSignalInfo), '("scrollEvent", Gtk.Widget.WidgetScrollEventSignalInfo), '("selectionClearEvent", Gtk.Widget.WidgetSelectionClearEventSignalInfo), '("selectionGet", Gtk.Widget.WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", Gtk.Widget.WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", Gtk.Widget.WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", Gtk.Widget.WidgetSelectionRequestEventSignalInfo), '("setFocusChild", Gtk.Container.ContainerSetFocusChildSignalInfo), '("show", Gtk.Widget.WidgetShowSignalInfo), '("showHelp", Gtk.Widget.WidgetShowHelpSignalInfo), '("sizeAllocate", Gtk.Widget.WidgetSizeAllocateSignalInfo), '("stateChanged", Gtk.Widget.WidgetStateChangedSignalInfo), '("stateFlagsChanged", Gtk.Widget.WidgetStateFlagsChangedSignalInfo), '("styleSet", Gtk.Widget.WidgetStyleSetSignalInfo), '("styleUpdated", Gtk.Widget.WidgetStyleUpdatedSignalInfo), '("touchEvent", Gtk.Widget.WidgetTouchEventSignalInfo), '("unmap", Gtk.Widget.WidgetUnmapSignalInfo), '("unmapEvent", Gtk.Widget.WidgetUnmapEventSignalInfo), '("unrealize", Gtk.Widget.WidgetUnrealizeSignalInfo), '("visibilityNotifyEvent", Gtk.Widget.WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", Gtk.Widget.WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)])
#endif
-- method Button::new
-- method type : Constructor
-- Args : []
-- Lengths : []
-- returnType : Just (TInterface (Name {namespace = "Gtk", name = "Button"}))
-- throws : False
-- Skip return : False
foreign import ccall "gtk_button_new" gtk_button_new ::
IO (Ptr Button)
{- |
Creates a new 'GI.Gtk.Objects.Button.Button' widget. To add a child widget to the button,
use 'GI.Gtk.Objects.Container.containerAdd'.
-}
buttonNew ::
(B.CallStack.HasCallStack, MonadIO m) =>
m Button
{- ^ __Returns:__ The newly created 'GI.Gtk.Objects.Button.Button' widget. -}
buttonNew = liftIO $ do
result <- gtk_button_new
checkUnexpectedReturnNULL "buttonNew" result
result' <- (newObject Button) result
return result'
#if ENABLE_OVERLOADING
#endif
-- method Button::new_from_icon_name
-- method type : Constructor
-- Args : [Arg {argCName = "icon_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "an icon name or %NULL", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "size", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "an icon size (#GtkIconSize)", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : Just (TInterface (Name {namespace = "Gtk", name = "Button"}))
-- throws : False
-- Skip return : False
foreign import ccall "gtk_button_new_from_icon_name" gtk_button_new_from_icon_name ::
CString -> -- icon_name : TBasicType TUTF8
Int32 -> -- size : TBasicType TInt
IO (Ptr Button)
{- |
Creates a new button containing an icon from the current icon theme.
If the icon name isn’t known, a “broken image” icon will be
displayed instead. If the current icon theme is changed, the icon
will be updated appropriately.
This function is a convenience wrapper around 'GI.Gtk.Objects.Button.buttonNew' and
'GI.Gtk.Objects.Button.buttonSetImage'.
/Since: 3.10/
-}
buttonNewFromIconName ::
(B.CallStack.HasCallStack, MonadIO m) =>
Maybe (T.Text)
{- ^ /@iconName@/: an icon name or 'Nothing' -}
-> Int32
{- ^ /@size@/: an icon size ('GI.Gtk.Enums.IconSize') -}
-> m Button
{- ^ __Returns:__ a new 'GI.Gtk.Objects.Button.Button' displaying the themed icon -}
buttonNewFromIconName iconName size = liftIO $ do
maybeIconName <- case iconName of
Nothing -> return nullPtr
Just jIconName -> do
jIconName' <- textToCString jIconName
return jIconName'
result <- gtk_button_new_from_icon_name maybeIconName size
checkUnexpectedReturnNULL "buttonNewFromIconName" result
result' <- (newObject Button) result
freeMem maybeIconName
return result'
#if ENABLE_OVERLOADING
#endif
-- method Button::new_from_stock
-- method type : Constructor
-- Args : [Arg {argCName = "stock_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the name of the stock item", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : Just (TInterface (Name {namespace = "Gtk", name = "Button"}))
-- throws : False
-- Skip return : False
foreign import ccall "gtk_button_new_from_stock" gtk_button_new_from_stock ::
CString -> -- stock_id : TBasicType TUTF8
IO (Ptr Button)
{-# DEPRECATED buttonNewFromStock ["(Since version 3.10)","Stock items are deprecated. Use 'GI.Gtk.Objects.Button.buttonNewWithLabel'","instead."] #-}
{- |
Creates a new 'GI.Gtk.Objects.Button.Button' containing the image and text from a
[stock item][gtkstock].
Some stock ids have preprocessor macros like 'GI.Gtk.Constants.STOCK_OK' and
'GI.Gtk.Constants.STOCK_APPLY'.
If /@stockId@/ is unknown, then it will be treated as a mnemonic
label (as for 'GI.Gtk.Objects.Button.buttonNewWithMnemonic').
-}
buttonNewFromStock ::
(B.CallStack.HasCallStack, MonadIO m) =>
T.Text
{- ^ /@stockId@/: the name of the stock item -}
-> m Button
{- ^ __Returns:__ a new 'GI.Gtk.Objects.Button.Button' -}
buttonNewFromStock stockId = liftIO $ do
stockId' <- textToCString stockId
result <- gtk_button_new_from_stock stockId'
checkUnexpectedReturnNULL "buttonNewFromStock" result
result' <- (newObject Button) result
freeMem stockId'
return result'
#if ENABLE_OVERLOADING
#endif
-- method Button::new_with_label
-- method type : Constructor
-- Args : [Arg {argCName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "The text you want the #GtkLabel to hold.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : Just (TInterface (Name {namespace = "Gtk", name = "Button"}))
-- throws : False
-- Skip return : False
foreign import ccall "gtk_button_new_with_label" gtk_button_new_with_label ::
CString -> -- label : TBasicType TUTF8
IO (Ptr Button)
{- |
Creates a 'GI.Gtk.Objects.Button.Button' widget with a 'GI.Gtk.Objects.Label.Label' child containing the given
text.
-}
buttonNewWithLabel ::
(B.CallStack.HasCallStack, MonadIO m) =>
T.Text
{- ^ /@label@/: The text you want the 'GI.Gtk.Objects.Label.Label' to hold. -}
-> m Button
{- ^ __Returns:__ The newly created 'GI.Gtk.Objects.Button.Button' widget. -}
buttonNewWithLabel label = liftIO $ do
label' <- textToCString label
result <- gtk_button_new_with_label label'
checkUnexpectedReturnNULL "buttonNewWithLabel" result
result' <- (newObject Button) result
freeMem label'
return result'
#if ENABLE_OVERLOADING
#endif
-- method Button::new_with_mnemonic
-- method type : Constructor
-- Args : [Arg {argCName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "The text of the button, with an underscore in front of the\n mnemonic character", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : Just (TInterface (Name {namespace = "Gtk", name = "Button"}))
-- throws : False
-- Skip return : False
foreign import ccall "gtk_button_new_with_mnemonic" gtk_button_new_with_mnemonic ::
CString -> -- label : TBasicType TUTF8
IO (Ptr Button)
{- |
Creates a new 'GI.Gtk.Objects.Button.Button' containing a label.
If characters in /@label@/ are preceded by an underscore, they are underlined.
If you need a literal underscore character in a label, use “__” (two
underscores). The first underlined character represents a keyboard
accelerator called a mnemonic.
Pressing Alt and that key activates the button.
-}
buttonNewWithMnemonic ::
(B.CallStack.HasCallStack, MonadIO m) =>
T.Text
{- ^ /@label@/: The text of the button, with an underscore in front of the
mnemonic character -}
-> m Button
{- ^ __Returns:__ a new 'GI.Gtk.Objects.Button.Button' -}
buttonNewWithMnemonic label = liftIO $ do
label' <- textToCString label
result <- gtk_button_new_with_mnemonic label'
checkUnexpectedReturnNULL "buttonNewWithMnemonic" result
result' <- (newObject Button) result
freeMem label'
return result'
#if ENABLE_OVERLOADING
#endif
-- method Button::clicked
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "button", argType = TInterface (Name {namespace = "Gtk", name = "Button"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "The #GtkButton you want to send the signal to.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : Nothing
-- throws : False
-- Skip return : False
foreign import ccall "gtk_button_clicked" gtk_button_clicked ::
Ptr Button -> -- button : TInterface (Name {namespace = "Gtk", name = "Button"})
IO ()
{- |
Emits a 'GI.Gtk.Objects.Button.Button'::@/clicked/@ signal to the given 'GI.Gtk.Objects.Button.Button'.
-}
buttonClicked ::
(B.CallStack.HasCallStack, MonadIO m, IsButton a) =>
a
{- ^ /@button@/: The 'GI.Gtk.Objects.Button.Button' you want to send the signal to. -}
-> m ()
buttonClicked button = liftIO $ do
button' <- unsafeManagedPtrCastPtr button
gtk_button_clicked button'
touchManagedPtr button
return ()
#if ENABLE_OVERLOADING
data ButtonClickedMethodInfo
instance (signature ~ (m ()), MonadIO m, IsButton a) => O.MethodInfo ButtonClickedMethodInfo a signature where
overloadedMethod _ = buttonClicked
#endif
-- method Button::enter
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "button", argType = TInterface (Name {namespace = "Gtk", name = "Button"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "The #GtkButton you want to send the signal to.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : Nothing
-- throws : False
-- Skip return : False
foreign import ccall "gtk_button_enter" gtk_button_enter ::
Ptr Button -> -- button : TInterface (Name {namespace = "Gtk", name = "Button"})
IO ()
{-# DEPRECATED buttonEnter ["(Since version 2.20)","Use the 'GI.Gtk.Objects.Widget.Widget'::@/enter-notify-event/@ signal."] #-}
{- |
Emits a 'GI.Gtk.Objects.Button.Button'::@/enter/@ signal to the given 'GI.Gtk.Objects.Button.Button'.
-}
buttonEnter ::
(B.CallStack.HasCallStack, MonadIO m, IsButton a) =>
a
{- ^ /@button@/: The 'GI.Gtk.Objects.Button.Button' you want to send the signal to. -}
-> m ()
buttonEnter button = liftIO $ do
button' <- unsafeManagedPtrCastPtr button
gtk_button_enter button'
touchManagedPtr button
return ()
#if ENABLE_OVERLOADING
data ButtonEnterMethodInfo
instance (signature ~ (m ()), MonadIO m, IsButton a) => O.MethodInfo ButtonEnterMethodInfo a signature where
overloadedMethod _ = buttonEnter
#endif
-- method Button::get_alignment
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "button", argType = TInterface (Name {namespace = "Gtk", name = "Button"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkButton", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "xalign", argType = TBasicType TFloat, direction = DirectionOut, mayBeNull = False, argDoc = Documentation {rawDocText = Just "return location for horizontal alignment", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "yalign", argType = TBasicType TFloat, direction = DirectionOut, mayBeNull = False, argDoc = Documentation {rawDocText = Just "return location for vertical alignment", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]
-- Lengths : []
-- returnType : Nothing
-- throws : False
-- Skip return : False
foreign import ccall "gtk_button_get_alignment" gtk_button_get_alignment ::
Ptr Button -> -- button : TInterface (Name {namespace = "Gtk", name = "Button"})
Ptr CFloat -> -- xalign : TBasicType TFloat
Ptr CFloat -> -- yalign : TBasicType TFloat
IO ()
{-# DEPRECATED buttonGetAlignment ["(Since version 3.14)","Access the child widget directly if you need to control","its alignment."] #-}
{- |
Gets the alignment of the child in the button.
/Since: 2.4/
-}
buttonGetAlignment ::
(B.CallStack.HasCallStack, MonadIO m, IsButton a) =>
a
{- ^ /@button@/: a 'GI.Gtk.Objects.Button.Button' -}
-> m ((Float, Float))
buttonGetAlignment button = liftIO $ do
button' <- unsafeManagedPtrCastPtr button
xalign <- allocMem :: IO (Ptr CFloat)
yalign <- allocMem :: IO (Ptr CFloat)
gtk_button_get_alignment button' xalign yalign
xalign' <- peek xalign
let xalign'' = realToFrac xalign'
yalign' <- peek yalign
let yalign'' = realToFrac yalign'
touchManagedPtr button
freeMem xalign
freeMem yalign
return (xalign'', yalign'')
#if ENABLE_OVERLOADING
data ButtonGetAlignmentMethodInfo
instance (signature ~ (m ((Float, Float))), MonadIO m, IsButton a) => O.MethodInfo ButtonGetAlignmentMethodInfo a signature where
overloadedMethod _ = buttonGetAlignment
#endif
-- method Button::get_always_show_image
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "button", argType = TInterface (Name {namespace = "Gtk", name = "Button"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkButton", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : Just (TBasicType TBoolean)
-- throws : False
-- Skip return : False
foreign import ccall "gtk_button_get_always_show_image" gtk_button_get_always_show_image ::
Ptr Button -> -- button : TInterface (Name {namespace = "Gtk", name = "Button"})
IO CInt
{- |
Returns whether the button will ignore the 'GI.Gtk.Objects.Settings.Settings':@/gtk-button-images/@
setting and always show the image, if available.
/Since: 3.6/
-}
buttonGetAlwaysShowImage ::
(B.CallStack.HasCallStack, MonadIO m, IsButton a) =>
a
{- ^ /@button@/: a 'GI.Gtk.Objects.Button.Button' -}
-> m Bool
{- ^ __Returns:__ 'True' if the button will always show the image -}
buttonGetAlwaysShowImage button = liftIO $ do
button' <- unsafeManagedPtrCastPtr button
result <- gtk_button_get_always_show_image button'
let result' = (/= 0) result
touchManagedPtr button
return result'
#if ENABLE_OVERLOADING
data ButtonGetAlwaysShowImageMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsButton a) => O.MethodInfo ButtonGetAlwaysShowImageMethodInfo a signature where
overloadedMethod _ = buttonGetAlwaysShowImage
#endif
-- method Button::get_event_window
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "button", argType = TInterface (Name {namespace = "Gtk", name = "Button"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkButton", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : Just (TInterface (Name {namespace = "Gdk", name = "Window"}))
-- throws : False
-- Skip return : False
foreign import ccall "gtk_button_get_event_window" gtk_button_get_event_window ::
Ptr Button -> -- button : TInterface (Name {namespace = "Gtk", name = "Button"})
IO (Ptr Gdk.Window.Window)
{- |
Returns the button’s event window if it is realized, 'Nothing' otherwise.
This function should be rarely needed.
/Since: 2.22/
-}
buttonGetEventWindow ::
(B.CallStack.HasCallStack, MonadIO m, IsButton a) =>
a
{- ^ /@button@/: a 'GI.Gtk.Objects.Button.Button' -}
-> m Gdk.Window.Window
{- ^ __Returns:__ /@button@/’s event window. -}
buttonGetEventWindow button = liftIO $ do
button' <- unsafeManagedPtrCastPtr button
result <- gtk_button_get_event_window button'
checkUnexpectedReturnNULL "buttonGetEventWindow" result
result' <- (newObject Gdk.Window.Window) result
touchManagedPtr button
return result'
#if ENABLE_OVERLOADING
data ButtonGetEventWindowMethodInfo
instance (signature ~ (m Gdk.Window.Window), MonadIO m, IsButton a) => O.MethodInfo ButtonGetEventWindowMethodInfo a signature where
overloadedMethod _ = buttonGetEventWindow
#endif
-- method Button::get_focus_on_click
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "button", argType = TInterface (Name {namespace = "Gtk", name = "Button"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkButton", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : Just (TBasicType TBoolean)
-- throws : False
-- Skip return : False
foreign import ccall "gtk_button_get_focus_on_click" gtk_button_get_focus_on_click ::
Ptr Button -> -- button : TInterface (Name {namespace = "Gtk", name = "Button"})
IO CInt
{-# DEPRECATED buttonGetFocusOnClick ["(Since version 3.20)","Use 'GI.Gtk.Objects.Widget.widgetGetFocusOnClick' instead"] #-}
{- |
Returns whether the button grabs focus when it is clicked with the mouse.
See 'GI.Gtk.Objects.Button.buttonSetFocusOnClick'.
/Since: 2.4/
-}
buttonGetFocusOnClick ::
(B.CallStack.HasCallStack, MonadIO m, IsButton a) =>
a
{- ^ /@button@/: a 'GI.Gtk.Objects.Button.Button' -}
-> m Bool
{- ^ __Returns:__ 'True' if the button grabs focus when it is clicked with
the mouse. -}
buttonGetFocusOnClick button = liftIO $ do
button' <- unsafeManagedPtrCastPtr button
result <- gtk_button_get_focus_on_click button'
let result' = (/= 0) result
touchManagedPtr button
return result'
#if ENABLE_OVERLOADING
data ButtonGetFocusOnClickMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsButton a) => O.MethodInfo ButtonGetFocusOnClickMethodInfo a signature where
overloadedMethod _ = buttonGetFocusOnClick
#endif
-- method Button::get_image
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "button", argType = TInterface (Name {namespace = "Gtk", name = "Button"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkButton", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : Just (TInterface (Name {namespace = "Gtk", name = "Widget"}))
-- throws : False
-- Skip return : False
foreign import ccall "gtk_button_get_image" gtk_button_get_image ::
Ptr Button -> -- button : TInterface (Name {namespace = "Gtk", name = "Button"})
IO (Ptr Gtk.Widget.Widget)
{- |
Gets the widget that is currenty set as the image of /@button@/.
This may have been explicitly set by 'GI.Gtk.Objects.Button.buttonSetImage'
or constructed by 'GI.Gtk.Objects.Button.buttonNewFromStock'.
/Since: 2.6/
-}
buttonGetImage ::
(B.CallStack.HasCallStack, MonadIO m, IsButton a) =>
a
{- ^ /@button@/: a 'GI.Gtk.Objects.Button.Button' -}
-> m (Maybe Gtk.Widget.Widget)
{- ^ __Returns:__ a 'GI.Gtk.Objects.Widget.Widget' or 'Nothing' in case
there is no image -}
buttonGetImage button = liftIO $ do
button' <- unsafeManagedPtrCastPtr button
result <- gtk_button_get_image button'
maybeResult <- convertIfNonNull result $ \result' -> do
result'' <- (newObject Gtk.Widget.Widget) result'
return result''
touchManagedPtr button
return maybeResult
#if ENABLE_OVERLOADING
data ButtonGetImageMethodInfo
instance (signature ~ (m (Maybe Gtk.Widget.Widget)), MonadIO m, IsButton a) => O.MethodInfo ButtonGetImageMethodInfo a signature where
overloadedMethod _ = buttonGetImage
#endif
-- method Button::get_image_position
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "button", argType = TInterface (Name {namespace = "Gtk", name = "Button"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkButton", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : Just (TInterface (Name {namespace = "Gtk", name = "PositionType"}))
-- throws : False
-- Skip return : False
foreign import ccall "gtk_button_get_image_position" gtk_button_get_image_position ::
Ptr Button -> -- button : TInterface (Name {namespace = "Gtk", name = "Button"})
IO CUInt
{- |
Gets the position of the image relative to the text
inside the button.
/Since: 2.10/
-}
buttonGetImagePosition ::
(B.CallStack.HasCallStack, MonadIO m, IsButton a) =>
a
{- ^ /@button@/: a 'GI.Gtk.Objects.Button.Button' -}
-> m Gtk.Enums.PositionType
{- ^ __Returns:__ the position -}
buttonGetImagePosition button = liftIO $ do
button' <- unsafeManagedPtrCastPtr button
result <- gtk_button_get_image_position button'
let result' = (toEnum . fromIntegral) result
touchManagedPtr button
return result'
#if ENABLE_OVERLOADING
data ButtonGetImagePositionMethodInfo
instance (signature ~ (m Gtk.Enums.PositionType), MonadIO m, IsButton a) => O.MethodInfo ButtonGetImagePositionMethodInfo a signature where
overloadedMethod _ = buttonGetImagePosition
#endif
-- method Button::get_label
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "button", argType = TInterface (Name {namespace = "Gtk", name = "Button"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkButton", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : Just (TBasicType TUTF8)
-- throws : False
-- Skip return : False
foreign import ccall "gtk_button_get_label" gtk_button_get_label ::
Ptr Button -> -- button : TInterface (Name {namespace = "Gtk", name = "Button"})
IO CString
{- |
Fetches the text from the label of the button, as set by
'GI.Gtk.Objects.Button.buttonSetLabel'. If the label text has not
been set the return value will be 'Nothing'. This will be the
case if you create an empty button with 'GI.Gtk.Objects.Button.buttonNew' to
use as a container.
-}
buttonGetLabel ::
(B.CallStack.HasCallStack, MonadIO m, IsButton a) =>
a
{- ^ /@button@/: a 'GI.Gtk.Objects.Button.Button' -}
-> m T.Text
{- ^ __Returns:__ The text of the label widget. This string is owned
by the widget and must not be modified or freed. -}
buttonGetLabel button = liftIO $ do
button' <- unsafeManagedPtrCastPtr button
result <- gtk_button_get_label button'
checkUnexpectedReturnNULL "buttonGetLabel" result
result' <- cstringToText result
touchManagedPtr button
return result'
#if ENABLE_OVERLOADING
data ButtonGetLabelMethodInfo
instance (signature ~ (m T.Text), MonadIO m, IsButton a) => O.MethodInfo ButtonGetLabelMethodInfo a signature where
overloadedMethod _ = buttonGetLabel
#endif
-- method Button::get_relief
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "button", argType = TInterface (Name {namespace = "Gtk", name = "Button"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "The #GtkButton you want the #GtkReliefStyle from.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : Just (TInterface (Name {namespace = "Gtk", name = "ReliefStyle"}))
-- throws : False
-- Skip return : False
foreign import ccall "gtk_button_get_relief" gtk_button_get_relief ::
Ptr Button -> -- button : TInterface (Name {namespace = "Gtk", name = "Button"})
IO CUInt
{- |
Returns the current relief style of the given 'GI.Gtk.Objects.Button.Button'.
-}
buttonGetRelief ::
(B.CallStack.HasCallStack, MonadIO m, IsButton a) =>
a
{- ^ /@button@/: The 'GI.Gtk.Objects.Button.Button' you want the 'GI.Gtk.Enums.ReliefStyle' from. -}
-> m Gtk.Enums.ReliefStyle
{- ^ __Returns:__ The current 'GI.Gtk.Enums.ReliefStyle' -}
buttonGetRelief button = liftIO $ do
button' <- unsafeManagedPtrCastPtr button
result <- gtk_button_get_relief button'
let result' = (toEnum . fromIntegral) result
touchManagedPtr button
return result'
#if ENABLE_OVERLOADING
data ButtonGetReliefMethodInfo
instance (signature ~ (m Gtk.Enums.ReliefStyle), MonadIO m, IsButton a) => O.MethodInfo ButtonGetReliefMethodInfo a signature where
overloadedMethod _ = buttonGetRelief
#endif
-- method Button::get_use_stock
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "button", argType = TInterface (Name {namespace = "Gtk", name = "Button"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkButton", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : Just (TBasicType TBoolean)
-- throws : False
-- Skip return : False
foreign import ccall "gtk_button_get_use_stock" gtk_button_get_use_stock ::
Ptr Button -> -- button : TInterface (Name {namespace = "Gtk", name = "Button"})
IO CInt
{-# DEPRECATED buttonGetUseStock ["(Since version 3.10)"] #-}
{- |
Returns whether the button label is a stock item.
-}
buttonGetUseStock ::
(B.CallStack.HasCallStack, MonadIO m, IsButton a) =>
a
{- ^ /@button@/: a 'GI.Gtk.Objects.Button.Button' -}
-> m Bool
{- ^ __Returns:__ 'True' if the button label is used to
select a stock item instead of being
used directly as the label text. -}
buttonGetUseStock button = liftIO $ do
button' <- unsafeManagedPtrCastPtr button
result <- gtk_button_get_use_stock button'
let result' = (/= 0) result
touchManagedPtr button
return result'
#if ENABLE_OVERLOADING
data ButtonGetUseStockMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsButton a) => O.MethodInfo ButtonGetUseStockMethodInfo a signature where
overloadedMethod _ = buttonGetUseStock
#endif
-- method Button::get_use_underline
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "button", argType = TInterface (Name {namespace = "Gtk", name = "Button"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkButton", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : Just (TBasicType TBoolean)
-- throws : False
-- Skip return : False
foreign import ccall "gtk_button_get_use_underline" gtk_button_get_use_underline ::
Ptr Button -> -- button : TInterface (Name {namespace = "Gtk", name = "Button"})
IO CInt
{- |
Returns whether an embedded underline in the button label indicates a
mnemonic. See gtk_button_set_use_underline ().
-}
buttonGetUseUnderline ::
(B.CallStack.HasCallStack, MonadIO m, IsButton a) =>
a
{- ^ /@button@/: a 'GI.Gtk.Objects.Button.Button' -}
-> m Bool
{- ^ __Returns:__ 'True' if an embedded underline in the button label
indicates the mnemonic accelerator keys. -}
buttonGetUseUnderline button = liftIO $ do
button' <- unsafeManagedPtrCastPtr button
result <- gtk_button_get_use_underline button'
let result' = (/= 0) result
touchManagedPtr button
return result'
#if ENABLE_OVERLOADING
data ButtonGetUseUnderlineMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsButton a) => O.MethodInfo ButtonGetUseUnderlineMethodInfo a signature where
overloadedMethod _ = buttonGetUseUnderline
#endif
-- method Button::leave
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "button", argType = TInterface (Name {namespace = "Gtk", name = "Button"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "The #GtkButton you want to send the signal to.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : Nothing
-- throws : False
-- Skip return : False
foreign import ccall "gtk_button_leave" gtk_button_leave ::
Ptr Button -> -- button : TInterface (Name {namespace = "Gtk", name = "Button"})
IO ()
{-# DEPRECATED buttonLeave ["(Since version 2.20)","Use the 'GI.Gtk.Objects.Widget.Widget'::@/leave-notify-event/@ signal."] #-}
{- |
Emits a 'GI.Gtk.Objects.Button.Button'::@/leave/@ signal to the given 'GI.Gtk.Objects.Button.Button'.
-}
buttonLeave ::
(B.CallStack.HasCallStack, MonadIO m, IsButton a) =>
a
{- ^ /@button@/: The 'GI.Gtk.Objects.Button.Button' you want to send the signal to. -}
-> m ()
buttonLeave button = liftIO $ do
button' <- unsafeManagedPtrCastPtr button
gtk_button_leave button'
touchManagedPtr button
return ()
#if ENABLE_OVERLOADING
data ButtonLeaveMethodInfo
instance (signature ~ (m ()), MonadIO m, IsButton a) => O.MethodInfo ButtonLeaveMethodInfo a signature where
overloadedMethod _ = buttonLeave
#endif
-- method Button::pressed
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "button", argType = TInterface (Name {namespace = "Gtk", name = "Button"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "The #GtkButton you want to send the signal to.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : Nothing
-- throws : False
-- Skip return : False
foreign import ccall "gtk_button_pressed" gtk_button_pressed ::
Ptr Button -> -- button : TInterface (Name {namespace = "Gtk", name = "Button"})
IO ()
{-# DEPRECATED buttonPressed ["(Since version 2.20)","Use the 'GI.Gtk.Objects.Widget.Widget'::@/button-press-event/@ signal."] #-}
{- |
Emits a 'GI.Gtk.Objects.Button.Button'::@/pressed/@ signal to the given 'GI.Gtk.Objects.Button.Button'.
-}
buttonPressed ::
(B.CallStack.HasCallStack, MonadIO m, IsButton a) =>
a
{- ^ /@button@/: The 'GI.Gtk.Objects.Button.Button' you want to send the signal to. -}
-> m ()
buttonPressed button = liftIO $ do
button' <- unsafeManagedPtrCastPtr button
gtk_button_pressed button'
touchManagedPtr button
return ()
#if ENABLE_OVERLOADING
data ButtonPressedMethodInfo
instance (signature ~ (m ()), MonadIO m, IsButton a) => O.MethodInfo ButtonPressedMethodInfo a signature where
overloadedMethod _ = buttonPressed
#endif
-- method Button::released
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "button", argType = TInterface (Name {namespace = "Gtk", name = "Button"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "The #GtkButton you want to send the signal to.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : Nothing
-- throws : False
-- Skip return : False
foreign import ccall "gtk_button_released" gtk_button_released ::
Ptr Button -> -- button : TInterface (Name {namespace = "Gtk", name = "Button"})
IO ()
{-# DEPRECATED buttonReleased ["(Since version 2.20)","Use the 'GI.Gtk.Objects.Widget.Widget'::@/button-release-event/@ signal."] #-}
{- |
Emits a 'GI.Gtk.Objects.Button.Button'::@/released/@ signal to the given 'GI.Gtk.Objects.Button.Button'.
-}
buttonReleased ::
(B.CallStack.HasCallStack, MonadIO m, IsButton a) =>
a
{- ^ /@button@/: The 'GI.Gtk.Objects.Button.Button' you want to send the signal to. -}
-> m ()
buttonReleased button = liftIO $ do
button' <- unsafeManagedPtrCastPtr button
gtk_button_released button'
touchManagedPtr button
return ()
#if ENABLE_OVERLOADING
data ButtonReleasedMethodInfo
instance (signature ~ (m ()), MonadIO m, IsButton a) => O.MethodInfo ButtonReleasedMethodInfo a signature where
overloadedMethod _ = buttonReleased
#endif
-- method Button::set_alignment
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "button", argType = TInterface (Name {namespace = "Gtk", name = "Button"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkButton", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "xalign", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the horizontal position of the child, 0.0 is left aligned,\n 1.0 is right aligned", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "yalign", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the vertical position of the child, 0.0 is top aligned,\n 1.0 is bottom aligned", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : Nothing
-- throws : False
-- Skip return : False
foreign import ccall "gtk_button_set_alignment" gtk_button_set_alignment ::
Ptr Button -> -- button : TInterface (Name {namespace = "Gtk", name = "Button"})
CFloat -> -- xalign : TBasicType TFloat
CFloat -> -- yalign : TBasicType TFloat
IO ()
{-# DEPRECATED buttonSetAlignment ["(Since version 3.14)","Access the child widget directly if you need to control","its alignment."] #-}
{- |
Sets the alignment of the child. This property has no effect unless
the child is a 'GI.Gtk.Objects.Misc.Misc' or a 'GI.Gtk.Objects.Alignment.Alignment'.
/Since: 2.4/
-}
buttonSetAlignment ::
(B.CallStack.HasCallStack, MonadIO m, IsButton a) =>
a
{- ^ /@button@/: a 'GI.Gtk.Objects.Button.Button' -}
-> Float
{- ^ /@xalign@/: the horizontal position of the child, 0.0 is left aligned,
1.0 is right aligned -}
-> Float
{- ^ /@yalign@/: the vertical position of the child, 0.0 is top aligned,
1.0 is bottom aligned -}
-> m ()
buttonSetAlignment button xalign yalign = liftIO $ do
button' <- unsafeManagedPtrCastPtr button
let xalign' = realToFrac xalign
let yalign' = realToFrac yalign
gtk_button_set_alignment button' xalign' yalign'
touchManagedPtr button
return ()
#if ENABLE_OVERLOADING
data ButtonSetAlignmentMethodInfo
instance (signature ~ (Float -> Float -> m ()), MonadIO m, IsButton a) => O.MethodInfo ButtonSetAlignmentMethodInfo a signature where
overloadedMethod _ = buttonSetAlignment
#endif
-- method Button::set_always_show_image
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "button", argType = TInterface (Name {namespace = "Gtk", name = "Button"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkButton", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "always_show", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "%TRUE if the menuitem should always show the image", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : Nothing
-- throws : False
-- Skip return : False
foreign import ccall "gtk_button_set_always_show_image" gtk_button_set_always_show_image ::
Ptr Button -> -- button : TInterface (Name {namespace = "Gtk", name = "Button"})
CInt -> -- always_show : TBasicType TBoolean
IO ()
{- |
If 'True', the button will ignore the 'GI.Gtk.Objects.Settings.Settings':@/gtk-button-images/@
setting and always show the image, if available.
Use this property if the button would be useless or hard to use
without the image.
/Since: 3.6/
-}
buttonSetAlwaysShowImage ::
(B.CallStack.HasCallStack, MonadIO m, IsButton a) =>
a
{- ^ /@button@/: a 'GI.Gtk.Objects.Button.Button' -}
-> Bool
{- ^ /@alwaysShow@/: 'True' if the menuitem should always show the image -}
-> m ()
buttonSetAlwaysShowImage button alwaysShow = liftIO $ do
button' <- unsafeManagedPtrCastPtr button
let alwaysShow' = (fromIntegral . fromEnum) alwaysShow
gtk_button_set_always_show_image button' alwaysShow'
touchManagedPtr button
return ()
#if ENABLE_OVERLOADING
data ButtonSetAlwaysShowImageMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsButton a) => O.MethodInfo ButtonSetAlwaysShowImageMethodInfo a signature where
overloadedMethod _ = buttonSetAlwaysShowImage
#endif
-- method Button::set_focus_on_click
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "button", argType = TInterface (Name {namespace = "Gtk", name = "Button"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkButton", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "focus_on_click", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "whether the button grabs focus when clicked with the mouse", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : Nothing
-- throws : False
-- Skip return : False
foreign import ccall "gtk_button_set_focus_on_click" gtk_button_set_focus_on_click ::
Ptr Button -> -- button : TInterface (Name {namespace = "Gtk", name = "Button"})
CInt -> -- focus_on_click : TBasicType TBoolean
IO ()
{-# DEPRECATED buttonSetFocusOnClick ["(Since version 3.20)","Use 'GI.Gtk.Objects.Widget.widgetSetFocusOnClick' instead"] #-}
{- |
Sets whether the button will grab focus when it is clicked with the mouse.
Making mouse clicks not grab focus is useful in places like toolbars where
you don’t want the keyboard focus removed from the main area of the
application.
/Since: 2.4/
-}
buttonSetFocusOnClick ::
(B.CallStack.HasCallStack, MonadIO m, IsButton a) =>
a
{- ^ /@button@/: a 'GI.Gtk.Objects.Button.Button' -}
-> Bool
{- ^ /@focusOnClick@/: whether the button grabs focus when clicked with the mouse -}
-> m ()
buttonSetFocusOnClick button focusOnClick = liftIO $ do
button' <- unsafeManagedPtrCastPtr button
let focusOnClick' = (fromIntegral . fromEnum) focusOnClick
gtk_button_set_focus_on_click button' focusOnClick'
touchManagedPtr button
return ()
#if ENABLE_OVERLOADING
data ButtonSetFocusOnClickMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsButton a) => O.MethodInfo ButtonSetFocusOnClickMethodInfo a signature where
overloadedMethod _ = buttonSetFocusOnClick
#endif
-- method Button::set_image
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "button", argType = TInterface (Name {namespace = "Gtk", name = "Button"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkButton", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "image", argType = TInterface (Name {namespace = "Gtk", name = "Widget"}), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "a widget to set as the image for the button, or %NULL to unset", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : Nothing
-- throws : False
-- Skip return : False
foreign import ccall "gtk_button_set_image" gtk_button_set_image ::
Ptr Button -> -- button : TInterface (Name {namespace = "Gtk", name = "Button"})
Ptr Gtk.Widget.Widget -> -- image : TInterface (Name {namespace = "Gtk", name = "Widget"})
IO ()
{- |
Set the image of /@button@/ to the given widget. The image will be
displayed if the label text is 'Nothing' or if
'GI.Gtk.Objects.Button.Button':@/always-show-image/@ is 'True'. You don’t have to call
'GI.Gtk.Objects.Widget.widgetShow' on /@image@/ yourself.
/Since: 2.6/
-}
buttonSetImage ::
(B.CallStack.HasCallStack, MonadIO m, IsButton a, Gtk.Widget.IsWidget b) =>
a
{- ^ /@button@/: a 'GI.Gtk.Objects.Button.Button' -}
-> Maybe (b)
{- ^ /@image@/: a widget to set as the image for the button, or 'Nothing' to unset -}
-> m ()
buttonSetImage button image = liftIO $ do
button' <- unsafeManagedPtrCastPtr button
maybeImage <- case image of
Nothing -> return nullPtr
Just jImage -> do
jImage' <- unsafeManagedPtrCastPtr jImage
return jImage'
gtk_button_set_image button' maybeImage
touchManagedPtr button
whenJust image touchManagedPtr
return ()
#if ENABLE_OVERLOADING
data ButtonSetImageMethodInfo
instance (signature ~ (Maybe (b) -> m ()), MonadIO m, IsButton a, Gtk.Widget.IsWidget b) => O.MethodInfo ButtonSetImageMethodInfo a signature where
overloadedMethod _ = buttonSetImage
#endif
-- method Button::set_image_position
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "button", argType = TInterface (Name {namespace = "Gtk", name = "Button"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkButton", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "position", argType = TInterface (Name {namespace = "Gtk", name = "PositionType"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the position", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : Nothing
-- throws : False
-- Skip return : False
foreign import ccall "gtk_button_set_image_position" gtk_button_set_image_position ::
Ptr Button -> -- button : TInterface (Name {namespace = "Gtk", name = "Button"})
CUInt -> -- position : TInterface (Name {namespace = "Gtk", name = "PositionType"})
IO ()
{- |
Sets the position of the image relative to the text
inside the button.
/Since: 2.10/
-}
buttonSetImagePosition ::
(B.CallStack.HasCallStack, MonadIO m, IsButton a) =>
a
{- ^ /@button@/: a 'GI.Gtk.Objects.Button.Button' -}
-> Gtk.Enums.PositionType
{- ^ /@position@/: the position -}
-> m ()
buttonSetImagePosition button position = liftIO $ do
button' <- unsafeManagedPtrCastPtr button
let position' = (fromIntegral . fromEnum) position
gtk_button_set_image_position button' position'
touchManagedPtr button
return ()
#if ENABLE_OVERLOADING
data ButtonSetImagePositionMethodInfo
instance (signature ~ (Gtk.Enums.PositionType -> m ()), MonadIO m, IsButton a) => O.MethodInfo ButtonSetImagePositionMethodInfo a signature where
overloadedMethod _ = buttonSetImagePosition
#endif
-- method Button::set_label
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "button", argType = TInterface (Name {namespace = "Gtk", name = "Button"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkButton", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a string", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : Nothing
-- throws : False
-- Skip return : False
foreign import ccall "gtk_button_set_label" gtk_button_set_label ::
Ptr Button -> -- button : TInterface (Name {namespace = "Gtk", name = "Button"})
CString -> -- label : TBasicType TUTF8
IO ()
{- |
Sets the text of the label of the button to /@str@/. This text is
also used to select the stock item if 'GI.Gtk.Objects.Button.buttonSetUseStock'
is used.
This will also clear any previously set labels.
-}
buttonSetLabel ::
(B.CallStack.HasCallStack, MonadIO m, IsButton a) =>
a
{- ^ /@button@/: a 'GI.Gtk.Objects.Button.Button' -}
-> T.Text
{- ^ /@label@/: a string -}
-> m ()
buttonSetLabel button label = liftIO $ do
button' <- unsafeManagedPtrCastPtr button
label' <- textToCString label
gtk_button_set_label button' label'
touchManagedPtr button
freeMem label'
return ()
#if ENABLE_OVERLOADING
data ButtonSetLabelMethodInfo
instance (signature ~ (T.Text -> m ()), MonadIO m, IsButton a) => O.MethodInfo ButtonSetLabelMethodInfo a signature where
overloadedMethod _ = buttonSetLabel
#endif
-- method Button::set_relief
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "button", argType = TInterface (Name {namespace = "Gtk", name = "Button"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "The #GtkButton you want to set relief styles of", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "relief", argType = TInterface (Name {namespace = "Gtk", name = "ReliefStyle"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "The GtkReliefStyle as described above", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : Nothing
-- throws : False
-- Skip return : False
foreign import ccall "gtk_button_set_relief" gtk_button_set_relief ::
Ptr Button -> -- button : TInterface (Name {namespace = "Gtk", name = "Button"})
CUInt -> -- relief : TInterface (Name {namespace = "Gtk", name = "ReliefStyle"})
IO ()
{- |
Sets the relief style of the edges of the given 'GI.Gtk.Objects.Button.Button' widget.
Two styles exist, 'GI.Gtk.Enums.ReliefStyleNormal' and 'GI.Gtk.Enums.ReliefStyleNone'.
The default style is, as one can guess, 'GI.Gtk.Enums.ReliefStyleNormal'.
The deprecated value 'GI.Gtk.Enums.ReliefStyleHalf' behaves the same as
'GI.Gtk.Enums.ReliefStyleNormal'.
-}
buttonSetRelief ::
(B.CallStack.HasCallStack, MonadIO m, IsButton a) =>
a
{- ^ /@button@/: The 'GI.Gtk.Objects.Button.Button' you want to set relief styles of -}
-> Gtk.Enums.ReliefStyle
{- ^ /@relief@/: The GtkReliefStyle as described above -}
-> m ()
buttonSetRelief button relief = liftIO $ do
button' <- unsafeManagedPtrCastPtr button
let relief' = (fromIntegral . fromEnum) relief
gtk_button_set_relief button' relief'
touchManagedPtr button
return ()
#if ENABLE_OVERLOADING
data ButtonSetReliefMethodInfo
instance (signature ~ (Gtk.Enums.ReliefStyle -> m ()), MonadIO m, IsButton a) => O.MethodInfo ButtonSetReliefMethodInfo a signature where
overloadedMethod _ = buttonSetRelief
#endif
-- method Button::set_use_stock
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "button", argType = TInterface (Name {namespace = "Gtk", name = "Button"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkButton", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "use_stock", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "%TRUE if the button should use a stock item", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : Nothing
-- throws : False
-- Skip return : False
foreign import ccall "gtk_button_set_use_stock" gtk_button_set_use_stock ::
Ptr Button -> -- button : TInterface (Name {namespace = "Gtk", name = "Button"})
CInt -> -- use_stock : TBasicType TBoolean
IO ()
{-# DEPRECATED buttonSetUseStock ["(Since version 3.10)"] #-}
{- |
If 'True', the label set on the button is used as a
stock id to select the stock item for the button.
-}
buttonSetUseStock ::
(B.CallStack.HasCallStack, MonadIO m, IsButton a) =>
a
{- ^ /@button@/: a 'GI.Gtk.Objects.Button.Button' -}
-> Bool
{- ^ /@useStock@/: 'True' if the button should use a stock item -}
-> m ()
buttonSetUseStock button useStock = liftIO $ do
button' <- unsafeManagedPtrCastPtr button
let useStock' = (fromIntegral . fromEnum) useStock
gtk_button_set_use_stock button' useStock'
touchManagedPtr button
return ()
#if ENABLE_OVERLOADING
data ButtonSetUseStockMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsButton a) => O.MethodInfo ButtonSetUseStockMethodInfo a signature where
overloadedMethod _ = buttonSetUseStock
#endif
-- method Button::set_use_underline
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "button", argType = TInterface (Name {namespace = "Gtk", name = "Button"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkButton", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "use_underline", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "%TRUE if underlines in the text indicate mnemonics", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : Nothing
-- throws : False
-- Skip return : False
foreign import ccall "gtk_button_set_use_underline" gtk_button_set_use_underline ::
Ptr Button -> -- button : TInterface (Name {namespace = "Gtk", name = "Button"})
CInt -> -- use_underline : TBasicType TBoolean
IO ()
{- |
If true, an underline in the text of the button label indicates
the next character should be used for the mnemonic accelerator key.
-}
buttonSetUseUnderline ::
(B.CallStack.HasCallStack, MonadIO m, IsButton a) =>
a
{- ^ /@button@/: a 'GI.Gtk.Objects.Button.Button' -}
-> Bool
{- ^ /@useUnderline@/: 'True' if underlines in the text indicate mnemonics -}
-> m ()
buttonSetUseUnderline button useUnderline = liftIO $ do
button' <- unsafeManagedPtrCastPtr button
let useUnderline' = (fromIntegral . fromEnum) useUnderline
gtk_button_set_use_underline button' useUnderline'
touchManagedPtr button
return ()
#if ENABLE_OVERLOADING
data ButtonSetUseUnderlineMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsButton a) => O.MethodInfo ButtonSetUseUnderlineMethodInfo a signature where
overloadedMethod _ = buttonSetUseUnderline
#endif