{-# LINE 2 "./Graphics/UI/Gtk/Abstract/Widget.chs" #-}
-- -*-haskell-*-
-- GIMP Toolkit (GTK) Widget Widget
--
-- Author : Axel Simon
--
-- Created: 27 April 2001
--
-- Copyright (C) 2001-2008 Axel Simon
--
-- This library is free software; you can redistribute it and/or
-- modify it under the terms of the GNU Lesser General Public
-- License as published by the Free Software Foundation; either
-- version 2.1 of the License, or (at your option) any later version.
--
-- This library is distributed in the hope that it will be useful,
-- but WITHOUT ANY WARRANTY; without even the implied warranty of
-- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
-- Lesser General Public License for more details.
--
--
-- |
-- Maintainer : gtk2hs-users@lists.sourceforge.net
-- Stability : provisional
-- Portability : portable (depends on GHC)
--
-- The base class for all widgets.
--
module Graphics.UI.Gtk.Abstract.Widget (

-- * Detail
--
-- | The base class for all widgets. While a widget cannot be created directly,
-- this module contains many useful methods common to all widgets. In
-- particular, these functions are needed to add functionality to
-- blank widgets such as 'DrawingArea' or 'Layout'.
--
-- 'Widget' introduces style properties - these are basically object
-- properties that are stored not on the object, but in the style object
-- associated to the widget. Style properties are set in resource files. This
-- mechanism is used for configuring such things as the location of the
-- scrollbar arrows through the theme, giving theme authors more control over
-- the look of applications without the need to write a theme engine in C.
--
-- Widgets receive events, that is, signals that indicate some low-level
-- user interaction. The signal handlers for all these events have to
-- return @True@ if the signal has been dealt with and @False@ if other
-- signal handlers should be run.

-- * Class Hierarchy
--
-- |
-- @
-- | 'GObject'
-- | +----'Object'
-- | +----Widget
-- | +----/too many to list/
-- @

-- * Types
  Widget,
  WidgetClass,
  castToWidget, gTypeWidget,
  toWidget,
  EventMask(..),

  ExtensionMode(..),

  GType,
  KeyVal,

  Region,
  Bitmap,

  Requisition(..),
  Rectangle(..),
  Color,
  IconSize(..),
  StateType(..),
  TextDirection(..),
  AccelFlags(..),
  DirectionType(..),
  StockId,
  WidgetHelpType(..),
  Allocation,

-- * Methods
  widgetShow,
  widgetShowNow,
  widgetHide,
  widgetShowAll,

  widgetHideAll,

  widgetDestroy,



  widgetQueueDraw,
  widgetQueueResize,

  widgetQueueResizeNoRedraw,







  widgetSizeRequest,
  widgetGetChildRequisition,
  widgetSizeAllocate,



  widgetAddAccelerator,
  widgetRemoveAccelerator,
  widgetSetAccelPath,

  widgetCanActivateAccel,

  widgetActivate,
  widgetIntersect,
  widgetHasIntersection,
  widgetGetIsFocus,
  widgetGrabFocus,
  widgetGrabDefault,
  widgetSetName,
  widgetGetName,
  widgetSetSensitive,
  widgetSetSensitivity,
  widgetGetParentWindow,

  widgetGetDrawWindow,

  widgetDelEvents,
  widgetAddEvents,
  widgetGetEvents,
  widgetSetEvents,

  widgetSetExtensionEvents,
  widgetGetExtensionEvents,

  widgetGetToplevel,
  widgetGetAncestor,

  widgetGetColormap,
  widgetSetColormap,

  widgetGetPointer,
  widgetIsAncestor,
  widgetTranslateCoordinates,
  widgetSetStyle,
  widgetGetStyle,

  widgetPushColormap,
  widgetPopColormap,
  widgetSetDefaultColormap,
  widgetGetDefaultColormap,

  widgetGetDefaultStyle,
  widgetSetDirection,
  widgetGetDirection,
  widgetSetDefaultDirection,
  widgetGetDefaultDirection,

  widgetShapeCombineMask,

  widgetInputShapeCombineMask,
{-# LINE 178 "./Graphics/UI/Gtk/Abstract/Widget.chs" #-}
  widgetGetSnapshot,


  widgetPath,
  widgetClassPath,
  widgetGetCompositeName,







  widgetModifyStyle,
  widgetGetModifierStyle,
  widgetModifyFg,
  widgetModifyBg,
  widgetModifyText,
  widgetModifyBase,
  widgetModifyFont,
  widgetRestoreFg,
  widgetRestoreBg,
  widgetRestoreText,
  widgetRestoreBase,
  widgetCreatePangoContext,
  widgetGetPangoContext,
  widgetCreateLayout,
  widgetRenderIcon,
  widgetQueueDrawArea,




  widgetResetShapes,

  widgetSetAppPaintable,
  widgetSetDoubleBuffered,
  widgetSetRedrawOnAllocate,
  widgetSetCompositeName,
  widgetMnemonicActivate,

  widgetSetScrollAdjustments,
  widgetRegionIntersect,

  widgetGetAccessible,
  widgetChildFocus,
  widgetGetChildVisible,
  widgetGetParent,
  widgetGetSettings,

  widgetGetClipboard,
  widgetGetDisplay,
  widgetGetRootWindow,
  widgetGetScreen,
  widgetHasScreen,

  widgetGetSizeRequest,



  widgetSetChildVisible,
  widgetSetSizeRequest,

  widgetSetNoShowAll,
  widgetGetNoShowAll,
  widgetListMnemonicLabels,
  widgetAddMnemonicLabel,
  widgetRemoveMnemonicLabel,


  widgetGetAction,

  widgetIsComposited,



  widgetErrorBell,
  widgetKeynavFailed,
  widgetGetTooltipMarkup,
  widgetSetTooltipMarkup,
  widgetGetTooltipText,
  widgetSetTooltipText,
  widgetGetTooltipWindow,
  widgetSetTooltipWindow,
  widgetGetHasTooltip,
  widgetSetHasTooltip,
  widgetTriggerTooltipQuery,


  widgetGetWindow,
{-# LINE 277 "./Graphics/UI/Gtk/Abstract/Widget.chs" #-}
  widgetReparent,

  widgetGetCanFocus,
  widgetSetCanFocus,
  widgetGetAllocation,
{-# LINE 295 "./Graphics/UI/Gtk/Abstract/Widget.chs" #-}
  widgetGetAppPaintable,
  widgetGetCanDefault,
  widgetSetCanDefault,
  widgetGetHasWindow,
  widgetSetHasWindow,
  widgetGetSensitive,
  widgetIsSensitive,
  widgetGetState,
  widgetGetVisible,
{-# LINE 314 "./Graphics/UI/Gtk/Abstract/Widget.chs" #-}
  widgetGetHasDefault,
  widgetGetHasFocus,





  widgetHasGrab,
  widgetIsDrawable,
  widgetIsToplevel,
  widgetSetWindow,
  widgetSetReceivesDefault,
  widgetGetReceivesDefault,
{-# LINE 338 "./Graphics/UI/Gtk/Abstract/Widget.chs" #-}
  widgetSetState,

  widgetGetSavedState,
  widgetGetSize,

  widgetEvent,
{-# LINE 354 "./Graphics/UI/Gtk/Abstract/Widget.chs" #-}
-- * Attributes
  widgetName,
  widgetParent,
  widgetWidthRequest,
  widgetHeightRequest,
  widgetMarginLeft,
  widgetMarginRight,




  widgetMarginTop,
  widgetMarginBottom,
  widgetVisible,
  widgetOpacity,
  widgetSensitive,
  widgetAppPaintable,
  widgetCanFocus,
  widgetHasFocus,
  widgetIsFocus,
  widgetCanDefault,
  widgetHasDefault,
  widgetReceivesDefault,
  widgetCompositeChild,
  widgetStyle,
  widgetState,
  widgetEvents,

  widgetExtensionEvents,

  widgetExpand,
  widgetHExpand,
  widgetHExpandSet,
  widgetVExpand,
  widgetVExpandSet,
  widgetNoShowAll,
  widgetChildVisible,

  widgetColormap,

  widgetCompositeName,
  widgetDirection,
  widgetTooltipMarkup,
  widgetTooltipText,
  widgetHasTooltip,

  widgetHasRcStyle,
  widgetGetRealized,
  widgetGetMapped,
  widgetSetRealized,
  widgetSetMapped,





-- * Signals
  realize,
  unrealize,
  mapSignal,
  unmapSignal,
  sizeRequest,
  sizeAllocate,
  showSignal,
  hideSignal,
  focus,
  stateChanged,



  parentSet,
  hierarchyChanged,
  styleSet,
  directionChanged,
  grabNotify,
  popupMenuSignal,
  showHelp,
  accelClosuresChanged,
  screenChanged,
  queryTooltip,




-- * Events
  buttonPressEvent,
  buttonReleaseEvent,
  configureEvent,
  deleteEvent,
  destroyEvent,
  enterNotifyEvent,
  exposeEvent,
  focusInEvent,
  focusOutEvent,

  grabBrokenEvent,

  keyPressEvent,
  keyReleaseEvent,
  leaveNotifyEvent,
  mapEvent,
  motionNotifyEvent,
  noExposeEvent,
  proximityInEvent,
  proximityOutEvent,
  scrollEvent,
  unmapEvent,
  visibilityNotifyEvent,
  windowStateEvent,

-- * Deprecated

  onButtonPress,
  afterButtonPress,
  onButtonRelease,
  afterButtonRelease,
  onClient,
  afterClient,
  onConfigure,
  afterConfigure,
  onDelete,
  afterDelete,
  onDestroyEvent, -- you probably want onDestroy
  afterDestroyEvent,
  onDirectionChanged,
  afterDirectionChanged,
  onEnterNotify,
  afterEnterNotify,
  onLeaveNotify,
  afterLeaveNotify,
  onExpose,
  afterExpose,
  onExposeRect,
  afterExposeRect,
  onFocus,
  afterFocus,
  onFocusIn,
  afterFocusIn,
  onFocusOut,
  afterFocusOut,
  onGrabFocus,
  afterGrabFocus,
  onDestroy,
  afterDestroy,
  onHide,
  afterHide,
  onHierarchyChanged,
  afterHierarchyChanged,
  onKeyPress,
  afterKeyPress,
  onKeyRelease,
  afterKeyRelease,
  onMnemonicActivate,
  afterMnemonicActivate,
  onMotionNotify,
  afterMotionNotify,
  onParentSet,
  afterParentSet,
  onPopupMenu,
  afterPopupMenu,
  onProximityIn,
  afterProximityIn,
  onProximityOut,
  afterProximityOut,
  onRealize,
  afterRealize,
  onScroll,
  afterScroll,
  onShow,
  afterShow,
  onSizeAllocate,
  afterSizeAllocate,
  onSizeRequest,
  afterSizeRequest,
  onStateChanged,
  afterStateChanged,
  onUnmap,
  afterUnmap,
  onUnrealize,
  afterUnrealize,
  onVisibilityNotify,
  afterVisibilityNotify,
  onWindowState,
  afterWindowState

  ) where

import Control.Monad (liftM, unless)
import Data.Maybe (fromMaybe)
import Control.Monad.Reader (ask)
import Control.Monad.Trans (liftIO)
import System.Glib.FFI
import System.Glib.Flags (fromFlags, toFlags)




import System.Glib.UTFString
import System.Glib.Attributes
import System.Glib.Properties
import System.Glib.GType (GType)
import System.Glib.GList (fromGList)
import Graphics.UI.Gtk.Abstract.Object (makeNewObject)
import Graphics.UI.Gtk.General.DNDTypes (Atom (Atom), SelectionTag)
import Graphics.UI.Gtk.Types
{-# LINE 559 "./Graphics/UI/Gtk/Abstract/Widget.chs" #-}
import Graphics.UI.Gtk.Signals
{-# LINE 560 "./Graphics/UI/Gtk/Abstract/Widget.chs" #-}
import Graphics.UI.Gtk.Gdk.Enums (EventMask(..)

    , ExtensionMode(..)

    )
import Graphics.UI.Gtk.Gdk.Keys (KeyVal)

import Graphics.UI.Gtk.Gdk.Region (Region(..), makeNewRegion)
import Graphics.UI.Gtk.Gdk.Pixmap (Bitmap)

import Graphics.UI.Gtk.General.Structs (Allocation, Rectangle(..)
                                        ,Requisition(..), Color, IconSize(..)
                                        ,Point




                                        ,widgetGetSavedState
                                        ,widgetGetDrawWindow, widgetGetSize

                                        )

import Graphics.UI.Gtk.Gdk.Events (Event(..), marshalEvent, marshExposeRect)

import Graphics.UI.Gtk.Gdk.EventM (EventM,
  EventM,
  EAny,
  EKey,
  EButton,
  EScroll,
  EMotion,
  EExpose,
  EVisibility,
  ECrossing,
  EFocus,
  EConfigure,
  EProperty,
  EProximity,
  EWindowState,

  EGrabBroken,

  )
import Graphics.UI.Gtk.General.Enums (StateType(..), TextDirection(..),
                                         AccelFlags(..), DirectionType(..), Modifier






                                        )
import Graphics.Rendering.Pango.Types
{-# LINE 613 "./Graphics/UI/Gtk/Abstract/Widget.chs" #-}
import Graphics.Rendering.Pango.BasicTypes (FontDescription(FontDescription),
                                         PangoLayout(PangoLayout), makeNewPangoString )
import Graphics.UI.Gtk.General.StockItems (StockId)
import Data.IORef ( newIORef )
import Control.Monad.Reader ( runReaderT )






{-# LINE 624 "./Graphics/UI/Gtk/Abstract/Widget.chs" #-}

--------------------
-- Methods

-- | Flags a widget to be displayed. Any widget that isn't shown will not
-- appear on the screen. If you want to show all the widgets in a container,
-- it's easier to call 'widgetShowAll' on the container, instead of
-- individually showing the widgets.
--
-- Remember that you have to show the containers containing a widget, in
-- addition to the widget itself, before it will appear onscreen.
--
-- When a toplevel container is shown, it is immediately realized and
-- mapped; other shown widgets are realized and mapped when their toplevel
-- container is realized and mapped.
--
widgetShow :: WidgetClass self => self -> IO ()
widgetShow :: forall self. WidgetClass self => self -> IO ()
widgetShow self
self =
  (\(Widget ForeignPtr Widget
arg1) -> ForeignPtr Widget -> (Ptr Widget -> IO ()) -> IO ()
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr Widget
arg1 ((Ptr Widget -> IO ()) -> IO ()) -> (Ptr Widget -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Ptr Widget
argPtr1 ->Ptr Widget -> IO ()
gtk_widget_show Ptr Widget
argPtr1)
{-# LINE 643 "./Graphics/UI/Gtk/Abstract/Widget.chs" #-}
    (toWidget self)

-- | Shows a widget. If the widget is an unmapped toplevel widget (i.e. a
-- 'Window' that has not yet been shown), enter the main loop and wait for the
-- window to actually be mapped. Be careful; because the main loop is running,
-- anything can happen during this function.
--
widgetShowNow :: WidgetClass self => self -> IO ()
widgetShowNow :: forall self. WidgetClass self => self -> IO ()
widgetShowNow self
self =
  (\(Widget ForeignPtr Widget
arg1) -> ForeignPtr Widget -> (Ptr Widget -> IO ()) -> IO ()
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr Widget
arg1 ((Ptr Widget -> IO ()) -> IO ()) -> (Ptr Widget -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Ptr Widget
argPtr1 ->Ptr Widget -> IO ()
gtk_widget_show_now Ptr Widget
argPtr1)
{-# LINE 653 "./Graphics/UI/Gtk/Abstract/Widget.chs" #-}
    (toWidget self)

-- | Reverses the effects of 'widgetShow', causing the widget to be hidden
-- (invisible to the user).
--
widgetHide :: WidgetClass self => self -> IO ()
widgetHide :: forall self. WidgetClass self => self -> IO ()
widgetHide self
self =
  (\(Widget ForeignPtr Widget
arg1) -> ForeignPtr Widget -> (Ptr Widget -> IO ()) -> IO ()
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr Widget
arg1 ((Ptr Widget -> IO ()) -> IO ()) -> (Ptr Widget -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Ptr Widget
argPtr1 ->Ptr Widget -> IO ()
gtk_widget_hide Ptr Widget
argPtr1)
{-# LINE 661 "./Graphics/UI/Gtk/Abstract/Widget.chs" #-}
    (toWidget self)

-- | Recursively shows a widget, and any child widgets (if the widget is a
-- container).
--
widgetShowAll :: WidgetClass self => self -> IO ()
widgetShowAll :: forall self. WidgetClass self => self -> IO ()
widgetShowAll self
self =
  (\(Widget ForeignPtr Widget
arg1) -> ForeignPtr Widget -> (Ptr Widget -> IO ()) -> IO ()
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr Widget
arg1 ((Ptr Widget -> IO ()) -> IO ()) -> (Ptr Widget -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Ptr Widget
argPtr1 ->Ptr Widget -> IO ()
gtk_widget_show_all Ptr Widget
argPtr1)
{-# LINE 669 "./Graphics/UI/Gtk/Abstract/Widget.chs" #-}
    (toWidget self)


-- | Recursively hides a widget and any child widgets.
--
-- Removed in Gtk3.
widgetHideAll :: WidgetClass self => self -> IO ()
widgetHideAll :: forall self. WidgetClass self => self -> IO ()
widgetHideAll self
self =
  (\(Widget ForeignPtr Widget
arg1) -> ForeignPtr Widget -> (Ptr Widget -> IO ()) -> IO ()
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr Widget
arg1 ((Ptr Widget -> IO ()) -> IO ()) -> (Ptr Widget -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Ptr Widget
argPtr1 ->Ptr Widget -> IO ()
gtk_widget_hide_all Ptr Widget
argPtr1)
{-# LINE 678 "./Graphics/UI/Gtk/Abstract/Widget.chs" #-}
    (toWidget self)


-- | Destroys a widget. Equivalent to
-- 'Graphics.UI.Gtk.Abstract.Object.objectDestroy'.
--
-- When a widget is destroyed it will be removed from the screen and
-- unrealized. When a widget is destroyed, it will break any references it
-- holds to other objects.If the widget is inside a container, the widget will
-- be removed from the container. The widget will be garbage collected
-- (finalized) time after your last reference to the widget disappears.
--
-- In most cases, only toplevel widgets (windows) require explicit
-- destruction, because when you destroy a toplevel its children will be
-- destroyed as well.
--
widgetDestroy :: WidgetClass self => self -> IO ()
widgetDestroy :: forall self. WidgetClass self => self -> IO ()
widgetDestroy self
self =
  (\(Widget ForeignPtr Widget
arg1) -> ForeignPtr Widget -> (Ptr Widget -> IO ()) -> IO ()
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr Widget
arg1 ((Ptr Widget -> IO ()) -> IO ()) -> (Ptr Widget -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Ptr Widget
argPtr1 ->Ptr Widget -> IO ()
gtk_widget_destroy Ptr Widget
argPtr1)
{-# LINE 697 "./Graphics/UI/Gtk/Abstract/Widget.chs" #-}
    (toWidget self)
{-# LINE 729 "./Graphics/UI/Gtk/Abstract/Widget.chs" #-}
-- * Functions to be used with 'Graphics.UI.Gtk.Misc.DrawingArea' or
-- container implementations.

-- | Send a redraw request to a widget. Equivalent to calling
-- 'widgetQueueDrawArea' for the entire area of a widget.
--
widgetQueueDraw :: WidgetClass self => self -> IO ()
widgetQueueDraw :: forall self. WidgetClass self => self -> IO ()
widgetQueueDraw self
self =
  (\(Widget ForeignPtr Widget
arg1) -> ForeignPtr Widget -> (Ptr Widget -> IO ()) -> IO ()
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr Widget
arg1 ((Ptr Widget -> IO ()) -> IO ()) -> (Ptr Widget -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Ptr Widget
argPtr1 ->Ptr Widget -> IO ()
gtk_widget_queue_draw Ptr Widget
argPtr1)
{-# LINE 738 "./Graphics/UI/Gtk/Abstract/Widget.chs" #-}
    (toWidget self)

-- | This function is only for use in widget implementations. Flags a widget
-- to have its size renegotiated; should be called when a widget for some
-- reason has a new size request. For example, when you change the text in a
-- 'Graphics.UI.Gtk.Display.Label.Label',
-- 'Graphics.UI.Gtk.Display.Label.Label' queues a resize to ensure there's
-- enough space for the new text.
--
widgetQueueResize :: WidgetClass self => self -> IO ()
widgetQueueResize :: forall self. WidgetClass self => self -> IO ()
widgetQueueResize self
self =
  (\(Widget ForeignPtr Widget
arg1) -> ForeignPtr Widget -> (Ptr Widget -> IO ()) -> IO ()
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr Widget
arg1 ((Ptr Widget -> IO ()) -> IO ()) -> (Ptr Widget -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Ptr Widget
argPtr1 ->Ptr Widget -> IO ()
gtk_widget_queue_resize Ptr Widget
argPtr1)
{-# LINE 750 "./Graphics/UI/Gtk/Abstract/Widget.chs" #-}
    (toWidget self)


-- | This function works like 'widgetQueueResize', except that the widget is
-- not invalidated.
--
-- * Available since Gtk+ version 2.4
--
widgetQueueResizeNoRedraw :: WidgetClass self => self -> IO ()
widgetQueueResizeNoRedraw :: forall self. WidgetClass self => self -> IO ()
widgetQueueResizeNoRedraw self
self =
  (\(Widget ForeignPtr Widget
arg1) -> ForeignPtr Widget -> (Ptr Widget -> IO ()) -> IO ()
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr Widget
arg1 ((Ptr Widget -> IO ()) -> IO ()) -> (Ptr Widget -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Ptr Widget
argPtr1 ->Ptr Widget -> IO ()
gtk_widget_queue_resize_no_redraw Ptr Widget
argPtr1)
{-# LINE 761 "./Graphics/UI/Gtk/Abstract/Widget.chs" #-}
    (toWidget self)
{-# LINE 806 "./Graphics/UI/Gtk/Abstract/Widget.chs" #-}
-- | This function is typically used when implementing a
-- 'Graphics.UI.Gtk.Abstract.Container.Container' subclass. Obtains the preferred size
-- of a widget. The container uses this information to arrange its child
-- widgets and decide what size allocations to give them with
-- 'widgetSizeAllocate'.
--
-- You can also call this function from an application, with some caveats.
-- Most notably, getting a size request requires the widget to be associated
-- with a screen, because font information may be needed. Multihead-aware
-- applications should keep this in mind.
--
-- Also remember that the size request is not necessarily the size a widget
-- will actually be allocated.
--
widgetSizeRequest :: WidgetClass self => self -> IO Requisition
widgetSizeRequest :: forall self. WidgetClass self => self -> IO Requisition
widgetSizeRequest self
self = (Ptr Requisition -> IO Requisition) -> IO Requisition
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr Requisition -> IO Requisition) -> IO Requisition)
-> (Ptr Requisition -> IO Requisition) -> IO Requisition
forall a b. (a -> b) -> a -> b
$ \Ptr Requisition
reqPtr -> do
  (\(Widget ForeignPtr Widget
arg1) Ptr ()
arg2 -> ForeignPtr Widget -> (Ptr Widget -> IO ()) -> IO ()
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr Widget
arg1 ((Ptr Widget -> IO ()) -> IO ()) -> (Ptr Widget -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Ptr Widget
argPtr1 ->Ptr Widget -> Ptr () -> IO ()
gtk_widget_size_request Ptr Widget
argPtr1 Ptr ()
arg2) (self -> Widget
forall o. WidgetClass o => o -> Widget
toWidget self
self) (Ptr Requisition -> Ptr ()
forall a b. Ptr a -> Ptr b
castPtr Ptr Requisition
reqPtr)
  Ptr Requisition -> IO Requisition
forall a. Storable a => Ptr a -> IO a
peek Ptr Requisition
reqPtr

-- | This function is only for use in widget implementations. Obtains the
-- cached requisition information in the widget, unless someone has forced a
-- particular geometry on the widget (e.g. with 'widgetSetSizeRequest'), in which
-- case it returns that geometry instead of the widget's requisition.
--
-- This function differs from 'widgetSizeRequest' in that it retrieves the
-- last size request value stored in the widget, while 'widgetSizeRequest'
-- actually emits the 'sizeRequest' signal on the widget to compute the size
-- request (which updates the widget's requisition information).
--
-- Since this function does not emit the 'sizeRequest' signal, it can only be
-- used when you know that the widget's requisition is up-to-date, that is,
-- 'widgetSizeRequest' has been called since the last time a resize was
-- queued. In general, only container implementations have this information;
-- applications should use 'widgetSizeRequest'.
--
widgetGetChildRequisition :: WidgetClass self => self -> IO Requisition
widgetGetChildRequisition :: forall self. WidgetClass self => self -> IO Requisition
widgetGetChildRequisition self
self = (Ptr Requisition -> IO Requisition) -> IO Requisition
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr Requisition -> IO Requisition) -> IO Requisition)
-> (Ptr Requisition -> IO Requisition) -> IO Requisition
forall a b. (a -> b) -> a -> b
$ \Ptr Requisition
reqPtr -> do
  (\(Widget ForeignPtr Widget
arg1) Ptr ()
arg2 -> ForeignPtr Widget -> (Ptr Widget -> IO ()) -> IO ()
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr Widget
arg1 ((Ptr Widget -> IO ()) -> IO ()) -> (Ptr Widget -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Ptr Widget
argPtr1 ->Ptr Widget -> Ptr () -> IO ()
gtk_widget_get_child_requisition Ptr Widget
argPtr1 Ptr ()
arg2) (self -> Widget
forall o. WidgetClass o => o -> Widget
toWidget self
self) (Ptr Requisition -> Ptr ()
forall a b. Ptr a -> Ptr b
castPtr Ptr Requisition
reqPtr)
  Ptr Requisition -> IO Requisition
forall a. Storable a => Ptr a -> IO a
peek Ptr Requisition
reqPtr

-- | This function is only used by
-- 'Graphics.UI.Gtk.Abstract.Container.Container' subclasses, to assign a
-- size and position to their child widgets.
--
widgetSizeAllocate :: WidgetClass self => self
  -> Allocation -- ^ The @x@ and @y@ values of the rectangle determine the
                -- the position of the widget's area relative to its parent
                -- allocation.
  -> IO ()
widgetSizeAllocate :: forall self. WidgetClass self => self -> Allocation -> IO ()
widgetSizeAllocate self
self Allocation
rect = Allocation -> (Ptr Allocation -> IO ()) -> IO ()
forall a b. Storable a => a -> (Ptr a -> IO b) -> IO b
with Allocation
rect ((Ptr Allocation -> IO ()) -> IO ())
-> (Ptr Allocation -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Ptr Allocation
rectPtr ->
  (\(Widget ForeignPtr Widget
arg1) Ptr ()
arg2 -> ForeignPtr Widget -> (Ptr Widget -> IO ()) -> IO ()
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr Widget
arg1 ((Ptr Widget -> IO ()) -> IO ()) -> (Ptr Widget -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Ptr Widget
argPtr1 ->Ptr Widget -> Ptr () -> IO ()
gtk_widget_size_allocate Ptr Widget
argPtr1 Ptr ()
arg2) (self -> Widget
forall o. WidgetClass o => o -> Widget
toWidget self
self) (Ptr Allocation -> Ptr ()
forall a b. Ptr a -> Ptr b
castPtr Ptr Allocation
rectPtr)
{-# LINE 883 "./Graphics/UI/Gtk/Abstract/Widget.chs" #-}
-- %hash c:1e14 d:53c5
-- | Installs an accelerator for this @widget@ in @accelGroup@ that causes
-- @accelSignal@ to be emitted if the accelerator is activated. The
-- @accelGroup@ needs to be added to the widget's toplevel via
-- 'windowAddAccelGroup', and the signal must be of type @G_RUN_ACTION@.
-- Accelerators added through this function are not user changeable during
-- runtime. If you want to support accelerators that can be changed by the
-- user, use 'accelMapAddEntry' and 'widgetSetAccelPath' or
-- 'menuItemSetAccelPath' instead.
--
widgetAddAccelerator :: (WidgetClass self, GlibString string) => self
 -> string -- ^ @accelSignal@ - widget signal to emit on accelerator
                   -- activation
 -> AccelGroup -- ^ @accelGroup@ - accel group for this widget, added to
                   -- its toplevel
 -> KeyVal -- ^ @accelKey@ - the key of the accelerator
 -> [Modifier] -- ^ @accelMods@ - modifier key combination of the
                   -- accelerator
 -> [AccelFlags] -- ^ @accelFlags@ - flag accelerators, e.g. 'AccelVisible'
 -> IO ()
widgetAddAccelerator :: forall self string.
(WidgetClass self, GlibString string) =>
self
-> string
-> AccelGroup
-> KeyVal
-> [Modifier]
-> [AccelFlags]
-> IO ()
widgetAddAccelerator self
self string
accelSignal AccelGroup
accelGroup KeyVal
accelKey [Modifier]
accelMods [AccelFlags]
accelFlags =
  string -> (CString -> IO ()) -> IO ()
forall a. string -> (CString -> IO a) -> IO a
forall s a. GlibString s => s -> (CString -> IO a) -> IO a
withUTFString string
accelSignal ((CString -> IO ()) -> IO ()) -> (CString -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \CString
accelSignalPtr ->
  (\(Widget ForeignPtr Widget
arg1) CString
arg2 (AccelGroup ForeignPtr AccelGroup
arg3) CUInt
arg4 CInt
arg5 CInt
arg6 -> ForeignPtr Widget -> (Ptr Widget -> IO ()) -> IO ()
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr Widget
arg1 ((Ptr Widget -> IO ()) -> IO ()) -> (Ptr Widget -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Ptr Widget
argPtr1 ->ForeignPtr AccelGroup -> (Ptr AccelGroup -> IO ()) -> IO ()
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr AccelGroup
arg3 ((Ptr AccelGroup -> IO ()) -> IO ())
-> (Ptr AccelGroup -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Ptr AccelGroup
argPtr3 ->Ptr Widget
-> CString -> Ptr AccelGroup -> CUInt -> CInt -> CInt -> IO ()
gtk_widget_add_accelerator Ptr Widget
argPtr1 CString
arg2 Ptr AccelGroup
argPtr3 CUInt
arg4 CInt
arg5 CInt
arg6)
{-# LINE 906 "./Graphics/UI/Gtk/Abstract/Widget.chs" #-}
    (toWidget self)
    CString
accelSignalPtr
    AccelGroup
accelGroup
    (KeyVal -> CUInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral KeyVal
accelKey)
    ((Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CInt) -> ([Modifier] -> Int) -> [Modifier] -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. [Modifier] -> Int
forall a. Flags a => [a] -> Int
fromFlags) [Modifier]
accelMods)
    ((Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CInt) -> ([AccelFlags] -> Int) -> [AccelFlags] -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. [AccelFlags] -> Int
forall a. Flags a => [a] -> Int
fromFlags) [AccelFlags]
accelFlags)

-- %hash c:3442 d:dfe8
-- | Removes an accelerator from @widget@, previously installed with
-- 'widgetAddAccelerator'.
--
widgetRemoveAccelerator :: WidgetClass self => self
 -> AccelGroup -- ^ @accelGroup@ - accel group for this widget
 -> KeyVal -- ^ @accelKey@ - the key of the accelerator
 -> [Modifier] -- ^ @accelMods@ - modifier key combination of the
                   -- accelerator
 -> IO Bool -- ^ returns whether an accelerator was installed and could
                   -- be removed
widgetRemoveAccelerator :: forall self.
WidgetClass self =>
self -> AccelGroup -> KeyVal -> [Modifier] -> IO Bool
widgetRemoveAccelerator self
self AccelGroup
accelGroup KeyVal
accelKey [Modifier]
accelMods =
  (CInt -> Bool) -> IO CInt -> IO Bool
forall (m :: * -> *) a1 r. Monad m => (a1 -> r) -> m a1 -> m r
liftM CInt -> Bool
forall a. (Eq a, Num a) => a -> Bool
toBool (IO CInt -> IO Bool) -> IO CInt -> IO Bool
forall a b. (a -> b) -> a -> b
$
  (\(Widget ForeignPtr Widget
arg1) (AccelGroup ForeignPtr AccelGroup
arg2) CUInt
arg3 CInt
arg4 -> ForeignPtr Widget -> (Ptr Widget -> IO CInt) -> IO CInt
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr Widget
arg1 ((Ptr Widget -> IO CInt) -> IO CInt)
-> (Ptr Widget -> IO CInt) -> IO CInt
forall a b. (a -> b) -> a -> b
$ \Ptr Widget
argPtr1 ->ForeignPtr AccelGroup -> (Ptr AccelGroup -> IO CInt) -> IO CInt
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr AccelGroup
arg2 ((Ptr AccelGroup -> IO CInt) -> IO CInt)
-> (Ptr AccelGroup -> IO CInt) -> IO CInt
forall a b. (a -> b) -> a -> b
$ \Ptr AccelGroup
argPtr2 ->Ptr Widget -> Ptr AccelGroup -> CUInt -> CInt -> IO CInt
gtk_widget_remove_accelerator Ptr Widget
argPtr1 Ptr AccelGroup
argPtr2 CUInt
arg3 CInt
arg4)
{-# LINE 927 "./Graphics/UI/Gtk/Abstract/Widget.chs" #-}
    (toWidget self)
    AccelGroup
accelGroup
    (KeyVal -> CUInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral KeyVal
accelKey)
    ((Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CInt) -> ([Modifier] -> Int) -> [Modifier] -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. [Modifier] -> Int
forall a. Flags a => [a] -> Int
fromFlags) [Modifier]
accelMods)

-- %hash c:f8d4 d:bd7f
-- | Given an accelerator group, @accelGroup@, and an accelerator path,
-- @accelPath@, sets up an accelerator in @accelGroup@ so whenever the key
-- binding that is defined for @accelPath@ is pressed, @widget@ will be
-- activated. This removes any accelerators (for any accelerator group)
-- installed by previous calls to 'widgetSetAccelPath'. Associating
-- accelerators with paths allows them to be modified by the user and the
-- modifications to be saved for future use. (See 'accelMapSave'.)
--
-- This function is a low level function that would most likely be used by a
-- menu creation system like 'ItemFactory'. If you use 'ItemFactory', setting
-- up accelerator paths will be done automatically.
--
-- Even when you you aren't using 'ItemFactory', if you only want to set up
-- accelerators on menu items 'menuItemSetAccelPath' provides a somewhat more
-- convenient interface.
--
widgetSetAccelPath :: (WidgetClass self, GlibString string) => self
 -> string -- ^ @accelPath@ - path used to look up the accelerator
 -> AccelGroup -- ^ @accelGroup@ - a 'AccelGroup'.
 -> IO ()
widgetSetAccelPath :: forall self string.
(WidgetClass self, GlibString string) =>
self -> string -> AccelGroup -> IO ()
widgetSetAccelPath self
self string
accelPath AccelGroup
accelGroup =
  string -> (CString -> IO ()) -> IO ()
forall a. string -> (CString -> IO a) -> IO a
forall s a. GlibString s => s -> (CString -> IO a) -> IO a
withUTFString string
accelPath ((CString -> IO ()) -> IO ()) -> (CString -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \CString
accelPathPtr ->
  (\(Widget ForeignPtr Widget
arg1) CString
arg2 (AccelGroup ForeignPtr AccelGroup
arg3) -> ForeignPtr Widget -> (Ptr Widget -> IO ()) -> IO ()
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr Widget
arg1 ((Ptr Widget -> IO ()) -> IO ()) -> (Ptr Widget -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Ptr Widget
argPtr1 ->ForeignPtr AccelGroup -> (Ptr AccelGroup -> IO ()) -> IO ()
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr AccelGroup
arg3 ((Ptr AccelGroup -> IO ()) -> IO ())
-> (Ptr AccelGroup -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Ptr AccelGroup
argPtr3 ->Ptr Widget -> CString -> Ptr AccelGroup -> IO ()
gtk_widget_set_accel_path Ptr Widget
argPtr1 CString
arg2 Ptr AccelGroup
argPtr3)
{-# LINE 956 "./Graphics/UI/Gtk/Abstract/Widget.chs" #-}
    (toWidget self)
    CString
accelPathPtr
    AccelGroup
accelGroup


-- %hash c:157e d:82ae
-- | Determines whether an accelerator that activates the signal identified by
-- @signalId@ can currently be activated. This is done by emitting the
-- 'canActivateAccel' signal on the widget the signal is attached to; if the
-- signal isn't overridden by a handler or in a derived widget, then the
-- default check is that the widget must be sensitive, and the widget and all
-- its ancestors mapped.
--
-- * Available since Gtk+ version 2.4
--
widgetCanActivateAccel :: WidgetClass self =>
 (ConnectId self) -- ^ @signalId@ - the ID of a signal installed on @widget@
 -> IO Bool -- ^ returns @True@ if the accelerator can be activated.
widgetCanActivateAccel :: forall self. WidgetClass self => ConnectId self -> IO Bool
widgetCanActivateAccel (ConnectId CULong
signalId self
self) =
  (CInt -> Bool) -> IO CInt -> IO Bool
forall (m :: * -> *) a1 r. Monad m => (a1 -> r) -> m a1 -> m r
liftM CInt -> Bool
forall a. (Eq a, Num a) => a -> Bool
toBool (IO CInt -> IO Bool) -> IO CInt -> IO Bool
forall a b. (a -> b) -> a -> b
$
  (\(Widget ForeignPtr Widget
arg1) CUInt
arg2 -> ForeignPtr Widget -> (Ptr Widget -> IO CInt) -> IO CInt
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr Widget
arg1 ((Ptr Widget -> IO CInt) -> IO CInt)
-> (Ptr Widget -> IO CInt) -> IO CInt
forall a b. (a -> b) -> a -> b
$ \Ptr Widget
argPtr1 ->Ptr Widget -> CUInt -> IO CInt
gtk_widget_can_activate_accel Ptr Widget
argPtr1 CUInt
arg2)
{-# LINE 977 "./Graphics/UI/Gtk/Abstract/Widget.chs" #-}
    (toWidget self)
    (CULong -> CUInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral CULong
signalId)


-- | For widgets that can be \"activated\" (buttons, menu items, etc.) this
-- function activates them. Activation is what happens when you press Enter on
-- a widget during key navigation. If @widget@ isn't activatable, the function
-- returns @False@.
--
widgetActivate :: WidgetClass self => self
 -> IO Bool -- ^ returns @True@ if the widget was activatable
widgetActivate :: forall self. WidgetClass self => self -> IO Bool
widgetActivate self
self =
  (CInt -> Bool) -> IO CInt -> IO Bool
forall (m :: * -> *) a1 r. Monad m => (a1 -> r) -> m a1 -> m r
liftM CInt -> Bool
forall a. (Eq a, Num a) => a -> Bool
toBool (IO CInt -> IO Bool) -> IO CInt -> IO Bool
forall a b. (a -> b) -> a -> b
$
  (\(Widget ForeignPtr Widget
arg1) -> ForeignPtr Widget -> (Ptr Widget -> IO CInt) -> IO CInt
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr Widget
arg1 ((Ptr Widget -> IO CInt) -> IO CInt)
-> (Ptr Widget -> IO CInt) -> IO CInt
forall a b. (a -> b) -> a -> b
$ \Ptr Widget
argPtr1 ->Ptr Widget -> IO CInt
gtk_widget_activate Ptr Widget
argPtr1)
{-# LINE 991 "./Graphics/UI/Gtk/Abstract/Widget.chs" #-}
    (toWidget self)

-- | Computes the intersection of a widget's area and @area@, returning the
-- intersection, and returns @Nothing@ if there was no intersection.
--
widgetIntersect :: WidgetClass self => self
 -> Rectangle -- ^ @area@ - a rectangle
 -> IO (Maybe Rectangle) -- ^ returns the intersection or @Nothing@
widgetIntersect :: forall self.
WidgetClass self =>
self -> Allocation -> IO (Maybe Allocation)
widgetIntersect self
self Allocation
area =
  Allocation
-> (Ptr Allocation -> IO (Maybe Allocation))
-> IO (Maybe Allocation)
forall a b. Storable a => a -> (Ptr a -> IO b) -> IO b
with Allocation
area ((Ptr Allocation -> IO (Maybe Allocation))
 -> IO (Maybe Allocation))
-> (Ptr Allocation -> IO (Maybe Allocation))
-> IO (Maybe Allocation)
forall a b. (a -> b) -> a -> b
$ \Ptr Allocation
areaPtr ->
  (Ptr Allocation -> IO (Maybe Allocation)) -> IO (Maybe Allocation)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr Allocation -> IO (Maybe Allocation))
 -> IO (Maybe Allocation))
-> (Ptr Allocation -> IO (Maybe Allocation))
-> IO (Maybe Allocation)
forall a b. (a -> b) -> a -> b
$ \Ptr Allocation
intersectionPtr -> do
  CInt
hasIntersection <- (\(Widget ForeignPtr Widget
arg1) Ptr ()
arg2 Ptr ()
arg3 -> ForeignPtr Widget -> (Ptr Widget -> IO CInt) -> IO CInt
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr Widget
arg1 ((Ptr Widget -> IO CInt) -> IO CInt)
-> (Ptr Widget -> IO CInt) -> IO CInt
forall a b. (a -> b) -> a -> b
$ \Ptr Widget
argPtr1 ->Ptr Widget -> Ptr () -> Ptr () -> IO CInt
gtk_widget_intersect Ptr Widget
argPtr1 Ptr ()
arg2 Ptr ()
arg3)
{-# LINE 1003 "./Graphics/UI/Gtk/Abstract/Widget.chs" #-}
    (toWidget self)
    (Ptr Allocation -> Ptr ()
forall a b. Ptr a -> Ptr b
castPtr Ptr Allocation
areaPtr)
    (Ptr Allocation -> Ptr ()
forall a b. Ptr a -> Ptr b
castPtr Ptr Allocation
intersectionPtr)
  if (CInt -> Bool
forall a. (Eq a, Num a) => a -> Bool
toBool CInt
hasIntersection)
    then (Allocation -> Maybe Allocation)
-> IO Allocation -> IO (Maybe Allocation)
forall (m :: * -> *) a1 r. Monad m => (a1 -> r) -> m a1 -> m r
liftM Allocation -> Maybe Allocation
forall a. a -> Maybe a
Just (IO Allocation -> IO (Maybe Allocation))
-> IO Allocation -> IO (Maybe Allocation)
forall a b. (a -> b) -> a -> b
$ Ptr Allocation -> IO Allocation
forall a. Storable a => Ptr a -> IO a
peek Ptr Allocation
intersectionPtr
    else Maybe Allocation -> IO (Maybe Allocation)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe Allocation
forall a. Maybe a
Nothing

-- | Check if the widget intersects with a given area.
--
widgetHasIntersection :: WidgetClass self => self
 -> Rectangle -- ^ @area@ - a rectangle
 -> IO Bool -- ^ returns @True@ if there was an intersection
widgetHasIntersection :: forall self. WidgetClass self => self -> Allocation -> IO Bool
widgetHasIntersection self
self Allocation
area =
  (CInt -> Bool) -> IO CInt -> IO Bool
forall (m :: * -> *) a1 r. Monad m => (a1 -> r) -> m a1 -> m r
liftM CInt -> Bool
forall a. (Eq a, Num a) => a -> Bool
toBool (IO CInt -> IO Bool) -> IO CInt -> IO Bool
forall a b. (a -> b) -> a -> b
$
  Allocation -> (Ptr Allocation -> IO CInt) -> IO CInt
forall a b. Storable a => a -> (Ptr a -> IO b) -> IO b
with Allocation
area ((Ptr Allocation -> IO CInt) -> IO CInt)
-> (Ptr Allocation -> IO CInt) -> IO CInt
forall a b. (a -> b) -> a -> b
$ \Ptr Allocation
areaPtr ->
  (\(Widget ForeignPtr Widget
arg1) Ptr ()
arg2 Ptr ()
arg3 -> ForeignPtr Widget -> (Ptr Widget -> IO CInt) -> IO CInt
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr Widget
arg1 ((Ptr Widget -> IO CInt) -> IO CInt)
-> (Ptr Widget -> IO CInt) -> IO CInt
forall a b. (a -> b) -> a -> b
$ \Ptr Widget
argPtr1 ->Ptr Widget -> Ptr () -> Ptr () -> IO CInt
gtk_widget_intersect Ptr Widget
argPtr1 Ptr ()
arg2 Ptr ()
arg3)
{-# LINE 1019 "./Graphics/UI/Gtk/Abstract/Widget.chs" #-}
    (toWidget self)
    (Ptr Allocation -> Ptr ()
forall a b. Ptr a -> Ptr b
castPtr Ptr Allocation
areaPtr)
    (Ptr Any -> Ptr ()
forall a b. Ptr a -> Ptr b
castPtr Ptr Any
forall a. Ptr a
nullPtr)

-- %hash d:1cab
-- | Determines if the widget is the focus widget within its toplevel. (This
-- does not mean that the 'widgetHasFocus' attribute is necessarily set;
-- 'widgetHasFocus' will only be set if the toplevel widget additionally has
-- the global input focus.)
--
widgetGetIsFocus :: WidgetClass self => self
 -> IO Bool -- ^ returns @True@ if the widget is the focus widget.
widgetGetIsFocus :: forall self. WidgetClass self => self -> IO Bool
widgetGetIsFocus self
self =
  (CInt -> Bool) -> IO CInt -> IO Bool
forall (m :: * -> *) a1 r. Monad m => (a1 -> r) -> m a1 -> m r
liftM CInt -> Bool
forall a. (Eq a, Num a) => a -> Bool
toBool (IO CInt -> IO Bool) -> IO CInt -> IO Bool
forall a b. (a -> b) -> a -> b
$
  (\(Widget ForeignPtr Widget
arg1) -> ForeignPtr Widget -> (Ptr Widget -> IO CInt) -> IO CInt
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr Widget
arg1 ((Ptr Widget -> IO CInt) -> IO CInt)
-> (Ptr Widget -> IO CInt) -> IO CInt
forall a b. (a -> b) -> a -> b
$ \Ptr Widget
argPtr1 ->Ptr Widget -> IO CInt
gtk_widget_is_focus Ptr Widget
argPtr1)
{-# LINE 1034 "./Graphics/UI/Gtk/Abstract/Widget.chs" #-}
    (toWidget self)

-- %hash d:e1e
-- | Causes @widget@ to have the keyboard focus for the 'Window' it's inside.
-- @widget@ must be a focusable widget, such as a
-- 'Graphics.UI.Gtk.Entry.Entry'; something like
-- 'Graphics.UI.Gtk.Ornaments.Frame' won't work. (More precisely, it must have
-- the 'widgetCanFocus' flag set.)
--
widgetGrabFocus :: WidgetClass self => self -> IO ()
widgetGrabFocus :: forall self. WidgetClass self => self -> IO ()
widgetGrabFocus self
self =
  (\(Widget ForeignPtr Widget
arg1) -> ForeignPtr Widget -> (Ptr Widget -> IO ()) -> IO ()
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr Widget
arg1 ((Ptr Widget -> IO ()) -> IO ()) -> (Ptr Widget -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Ptr Widget
argPtr1 ->Ptr Widget -> IO ()
gtk_widget_grab_focus Ptr Widget
argPtr1)
{-# LINE 1046 "./Graphics/UI/Gtk/Abstract/Widget.chs" #-}
    (toWidget self)

-- %hash c:e5e9 d:412a
-- | Causes @widget@ to become the default widget. @widget@ must have the
-- 'canDefault' flag set. The default widget is
-- activated when the user presses Enter in a window. Default widgets must be
-- activatable, that is, 'widgetActivate' should affect them.
--
widgetGrabDefault :: WidgetClass self => self -> IO ()
widgetGrabDefault :: forall self. WidgetClass self => self -> IO ()
widgetGrabDefault self
self =
  (\(Widget ForeignPtr Widget
arg1) -> ForeignPtr Widget -> (Ptr Widget -> IO ()) -> IO ()
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr Widget
arg1 ((Ptr Widget -> IO ()) -> IO ()) -> (Ptr Widget -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Ptr Widget
argPtr1 ->Ptr Widget -> IO ()
gtk_widget_grab_default Ptr Widget
argPtr1)
{-# LINE 1057 "./Graphics/UI/Gtk/Abstract/Widget.chs" #-}
    (toWidget self)

-- %hash c:4f62 d:d05a
-- | Widgets can be named, which allows you to refer to them from a gtkrc
-- file. You can apply a style to widgets with a particular name in the gtkrc
-- file. See the documentation for gtkrc files.
--
-- Note that widget names are separated by periods in paths (see
-- 'widgetPath'), so names with embedded periods may cause confusion.
--
widgetSetName :: (WidgetClass self, GlibString string) => self
 -> string -- ^ @name@ - name for the widget
 -> IO ()
widgetSetName :: forall self string.
(WidgetClass self, GlibString string) =>
self -> string -> IO ()
widgetSetName self
self string
name =
  string -> (CString -> IO ()) -> IO ()
forall a. string -> (CString -> IO a) -> IO a
forall s a. GlibString s => s -> (CString -> IO a) -> IO a
withUTFString string
name ((CString -> IO ()) -> IO ()) -> (CString -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \CString
namePtr ->
  (\(Widget ForeignPtr Widget
arg1) CString
arg2 -> ForeignPtr Widget -> (Ptr Widget -> IO ()) -> IO ()
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr Widget
arg1 ((Ptr Widget -> IO ()) -> IO ()) -> (Ptr Widget -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Ptr Widget
argPtr1 ->Ptr Widget -> CString -> IO ()
gtk_widget_set_name Ptr Widget
argPtr1 CString
arg2)
{-# LINE 1073 "./Graphics/UI/Gtk/Abstract/Widget.chs" #-}
    (toWidget self)
    CString
namePtr

-- | Retrieves the name of a widget. See 'widgetSetName' for the significance
-- of widget names.
--
widgetGetName :: (WidgetClass self, GlibString string) => self -> IO string
widgetGetName :: forall self string.
(WidgetClass self, GlibString string) =>
self -> IO string
widgetGetName self
self =
  (\(Widget ForeignPtr Widget
arg1) -> ForeignPtr Widget -> (Ptr Widget -> IO CString) -> IO CString
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr Widget
arg1 ((Ptr Widget -> IO CString) -> IO CString)
-> (Ptr Widget -> IO CString) -> IO CString
forall a b. (a -> b) -> a -> b
$ \Ptr Widget
argPtr1 ->Ptr Widget -> IO CString
gtk_widget_get_name Ptr Widget
argPtr1)
{-# LINE 1082 "./Graphics/UI/Gtk/Abstract/Widget.chs" #-}
    (toWidget self)
  IO CString -> (CString -> IO string) -> IO string
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= CString -> IO string
forall s. GlibString s => CString -> IO s
peekUTFString

-- %hash c:25b1 d:f898
-- | Sets the sensitivity of a widget. A widget is sensitive if the user can
-- interact with it. Insensitive widgets are \"grayed out\" and the user can't
-- interact with them. Insensitive widgets are known as \"inactive\",
-- \"disabled\", or \"ghosted\" in some other toolkits.
--
widgetSetSensitive :: WidgetClass self => self
 -> Bool -- ^ @sensitive@ - @True@ to make the widget sensitive
 -> IO ()
widgetSetSensitive :: forall self. WidgetClass self => self -> Bool -> IO ()
widgetSetSensitive self
self Bool
sensitive =
  (\(Widget ForeignPtr Widget
arg1) CInt
arg2 -> ForeignPtr Widget -> (Ptr Widget -> IO ()) -> IO ()
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr Widget
arg1 ((Ptr Widget -> IO ()) -> IO ()) -> (Ptr Widget -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Ptr Widget
argPtr1 ->Ptr Widget -> CInt -> IO ()
gtk_widget_set_sensitive Ptr Widget
argPtr1 CInt
arg2)
{-# LINE 1096 "./Graphics/UI/Gtk/Abstract/Widget.chs" #-}
    (toWidget self)
    (Bool -> CInt
forall a. Num a => Bool -> a
fromBool Bool
sensitive)

-- bad spelling backwards compatibility definition
widgetSetSensitivity :: WidgetClass self => self -> Bool -> IO ()
widgetSetSensitivity :: forall self. WidgetClass self => self -> Bool -> IO ()
widgetSetSensitivity = self -> Bool -> IO ()
forall self. WidgetClass self => self -> Bool -> IO ()
widgetSetSensitive

-- | Gets the widget's parent window.
--
widgetGetParentWindow :: WidgetClass self => self -> IO DrawWindow
widgetGetParentWindow :: forall self. WidgetClass self => self -> IO DrawWindow
widgetGetParentWindow self
self =
  (ForeignPtr DrawWindow -> DrawWindow, FinalizerPtr DrawWindow)
-> IO (Ptr DrawWindow) -> IO DrawWindow
forall obj.
GObjectClass obj =>
(ForeignPtr obj -> obj, FinalizerPtr obj) -> IO (Ptr obj) -> IO obj
makeNewGObject (ForeignPtr DrawWindow -> DrawWindow, FinalizerPtr DrawWindow)
forall {a}. (ForeignPtr DrawWindow -> DrawWindow, FinalizerPtr a)
mkDrawWindow (IO (Ptr DrawWindow) -> IO DrawWindow)
-> IO (Ptr DrawWindow) -> IO DrawWindow
forall a b. (a -> b) -> a -> b
$
  (\(Widget ForeignPtr Widget
arg1) -> ForeignPtr Widget
-> (Ptr Widget -> IO (Ptr DrawWindow)) -> IO (Ptr DrawWindow)
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr Widget
arg1 ((Ptr Widget -> IO (Ptr DrawWindow)) -> IO (Ptr DrawWindow))
-> (Ptr Widget -> IO (Ptr DrawWindow)) -> IO (Ptr DrawWindow)
forall a b. (a -> b) -> a -> b
$ \Ptr Widget
argPtr1 ->Ptr Widget -> IO (Ptr DrawWindow)
gtk_widget_get_parent_window Ptr Widget
argPtr1)
{-# LINE 1109 "./Graphics/UI/Gtk/Abstract/Widget.chs" #-}
    (toWidget self)

-- | Disable event signals.
--
-- * Remove events from the 'EventMask' of this widget. The event mask
-- determines which events a widget will receive. Events are signals
-- that return an 'Event' data type. On connecting to a such a signal,
-- the event mask is automatically adjusted so that he signal is emitted.
-- This function is useful to disable the reception of the signal. It
-- should be called whenever all signals receiving an 'Event'
-- have been disconnected.
--
widgetDelEvents :: WidgetClass self => self -> [EventMask] -> IO ()
widgetDelEvents :: forall self. WidgetClass self => self -> [EventMask] -> IO ()
widgetDelEvents self
self [EventMask]
events = do
  CInt
mask <- (\(Widget ForeignPtr Widget
arg1) -> ForeignPtr Widget -> (Ptr Widget -> IO CInt) -> IO CInt
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr Widget
arg1 ((Ptr Widget -> IO CInt) -> IO CInt)
-> (Ptr Widget -> IO CInt) -> IO CInt
forall a b. (a -> b) -> a -> b
$ \Ptr Widget
argPtr1 ->Ptr Widget -> IO CInt
gtk_widget_get_events Ptr Widget
argPtr1) (self -> Widget
forall o. WidgetClass o => o -> Widget
toWidget self
self)
  let mask' :: CInt
mask' = CInt
mask CInt -> CInt -> CInt
forall a. Bits a => a -> a -> a
.&. (CInt -> CInt
forall a. Bits a => a -> a
complement (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CInt) -> Int -> CInt
forall a b. (a -> b) -> a -> b
$ [EventMask] -> Int
forall a. Flags a => [a] -> Int
fromFlags [EventMask]
events))
  (\(Widget ForeignPtr Widget
arg1) CInt
arg2 -> ForeignPtr Widget -> (Ptr Widget -> IO ()) -> IO ()
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr Widget
arg1 ((Ptr Widget -> IO ()) -> IO ()) -> (Ptr Widget -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Ptr Widget
argPtr1 ->Ptr Widget -> CInt -> IO ()
gtk_widget_set_events Ptr Widget
argPtr1 CInt
arg2) (self -> Widget
forall o. WidgetClass o => o -> Widget
toWidget self
self) CInt
mask'

-- | Enable event signals.
--
-- * See 'widgetDelEvents'.
--
widgetAddEvents :: WidgetClass self => self -> [EventMask] -> IO ()
widgetAddEvents :: forall self. WidgetClass self => self -> [EventMask] -> IO ()
widgetAddEvents self
self [] = () -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
 -- special [] case to work around a GTK+ bug, see:
 -- http:
widgetAddEvents self
self [EventMask]
events =
  (\(Widget ForeignPtr Widget
arg1) CInt
arg2 -> ForeignPtr Widget -> (Ptr Widget -> IO ()) -> IO ()
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr Widget
arg1 ((Ptr Widget -> IO ()) -> IO ()) -> (Ptr Widget -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Ptr Widget
argPtr1 ->Ptr Widget -> CInt -> IO ()
gtk_widget_add_events Ptr Widget
argPtr1 CInt
arg2)
{-# LINE 1137 "./Graphics/UI/Gtk/Abstract/Widget.chs" #-}
    (toWidget self)
    (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CInt) -> Int -> CInt
forall a b. (a -> b) -> a -> b
$ [EventMask] -> Int
forall a. Flags a => [a] -> Int
fromFlags [EventMask]
events)

-- | Get enabled event signals.
--
-- * See 'widgetDelEvents'.
--
widgetGetEvents :: WidgetClass self => self -> IO [EventMask]
widgetGetEvents :: forall self. WidgetClass self => self -> IO [EventMask]
widgetGetEvents self
self =
  (CInt -> [EventMask]) -> IO CInt -> IO [EventMask]
forall (m :: * -> *) a1 r. Monad m => (a1 -> r) -> m a1 -> m r
liftM (Int -> [EventMask]
forall a. Flags a => Int -> [a]
toFlags (Int -> [EventMask]) -> (CInt -> Int) -> CInt -> [EventMask]
forall b c a. (b -> c) -> (a -> b) -> a -> c
. CInt -> Int
forall a b. (Integral a, Num b) => a -> b
fromIntegral) (IO CInt -> IO [EventMask]) -> IO CInt -> IO [EventMask]
forall a b. (a -> b) -> a -> b
$
  (\(Widget ForeignPtr Widget
arg1) -> ForeignPtr Widget -> (Ptr Widget -> IO CInt) -> IO CInt
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr Widget
arg1 ((Ptr Widget -> IO CInt) -> IO CInt)
-> (Ptr Widget -> IO CInt) -> IO CInt
forall a b. (a -> b) -> a -> b
$ \Ptr Widget
argPtr1 ->Ptr Widget -> IO CInt
gtk_widget_get_events Ptr Widget
argPtr1)
{-# LINE 1148 "./Graphics/UI/Gtk/Abstract/Widget.chs" #-}
    (toWidget self)

-- %hash c:468a d:49a0
-- | Sets the event mask (see 'EventMask') for a widget. The event mask
-- determines which events a widget will receive. Keep in mind that different
-- widgets have different default event masks, and by changing the event mask
-- you may disrupt a widget's functionality, so be careful. This function must
-- be called while a widget is unrealized. Consider 'widgetAddEvents' for
-- widgets that are already realized, or if you want to preserve the existing
-- event mask. This function can't be used with 'NoWindow' widgets; to get
-- events on those widgets, place them inside a
-- 'Graphics.UI.Gtk.Misc.EventBox' and receive events on the event box.
--
widgetSetEvents :: WidgetClass self => self
 -> [EventMask] -- ^ @events@ - event mask
 -> IO ()
widgetSetEvents :: forall self. WidgetClass self => self -> [EventMask] -> IO ()
widgetSetEvents self
self [EventMask]
events =
  (\(Widget ForeignPtr Widget
arg1) CInt
arg2 -> ForeignPtr Widget -> (Ptr Widget -> IO ()) -> IO ()
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr Widget
arg1 ((Ptr Widget -> IO ()) -> IO ()) -> (Ptr Widget -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Ptr Widget
argPtr1 ->Ptr Widget -> CInt -> IO ()
gtk_widget_set_events Ptr Widget
argPtr1 CInt
arg2)
{-# LINE 1166 "./Graphics/UI/Gtk/Abstract/Widget.chs" #-}
    (toWidget self)
    (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CInt) -> Int -> CInt
forall a b. (a -> b) -> a -> b
$ [EventMask] -> Int
forall a. Flags a => [a] -> Int
fromFlags [EventMask]
events)


-- %hash c:4f2c d:781
-- | Sets the extension events mask to @mode@. See 'ExtensionMode' and
-- 'inputSetExtensionEvents'.
--
widgetSetExtensionEvents :: WidgetClass self => self
 -> [ExtensionMode]
 -> IO ()
widgetSetExtensionEvents :: forall self. WidgetClass self => self -> [ExtensionMode] -> IO ()
widgetSetExtensionEvents self
self [ExtensionMode]
mode =
  (\(Widget ForeignPtr Widget
arg1) CInt
arg2 -> ForeignPtr Widget -> (Ptr Widget -> IO ()) -> IO ()
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr Widget
arg1 ((Ptr Widget -> IO ()) -> IO ()) -> (Ptr Widget -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Ptr Widget
argPtr1 ->Ptr Widget -> CInt -> IO ()
gtk_widget_set_extension_events Ptr Widget
argPtr1 CInt
arg2)
{-# LINE 1179 "./Graphics/UI/Gtk/Abstract/Widget.chs" #-}
    (toWidget self)
    ((Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CInt)
-> ([ExtensionMode] -> Int) -> [ExtensionMode] -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. [ExtensionMode] -> Int
forall a. Flags a => [a] -> Int
fromFlags) [ExtensionMode]
mode)

-- %hash c:c824 d:e611
-- | Retrieves the extension events the widget will receive; see
-- 'widgetSetExtensionEvents'.
--
widgetGetExtensionEvents :: WidgetClass self => self
 -> IO [ExtensionMode]
widgetGetExtensionEvents :: forall self. WidgetClass self => self -> IO [ExtensionMode]
widgetGetExtensionEvents self
self =
  (CInt -> [ExtensionMode]) -> IO CInt -> IO [ExtensionMode]
forall (m :: * -> *) a1 r. Monad m => (a1 -> r) -> m a1 -> m r
liftM (Int -> [ExtensionMode]
forall a. Flags a => Int -> [a]
toFlags (Int -> [ExtensionMode])
-> (CInt -> Int) -> CInt -> [ExtensionMode]
forall b c a. (b -> c) -> (a -> b) -> a -> c
. CInt -> Int
forall a b. (Integral a, Num b) => a -> b
fromIntegral) (IO CInt -> IO [ExtensionMode]) -> IO CInt -> IO [ExtensionMode]
forall a b. (a -> b) -> a -> b
$
  (\(Widget ForeignPtr Widget
arg1) -> ForeignPtr Widget -> (Ptr Widget -> IO CInt) -> IO CInt
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr Widget
arg1 ((Ptr Widget -> IO CInt) -> IO CInt)
-> (Ptr Widget -> IO CInt) -> IO CInt
forall a b. (a -> b) -> a -> b
$ \Ptr Widget
argPtr1 ->Ptr Widget -> IO CInt
gtk_widget_get_extension_events Ptr Widget
argPtr1)
{-# LINE 1191 "./Graphics/UI/Gtk/Abstract/Widget.chs" #-}
    (toWidget self)


-- %hash c:270b d:8877
-- | This function returns the topmost widget in the container hierarchy
-- @widget@ is a part of. If @widget@ has no parent widgets, it will be
-- returned as the topmost widget.
--
widgetGetToplevel :: WidgetClass self =>
    self -- ^ @widget@ - the widget in question
 -> IO Widget -- ^ returns the topmost ancestor of @widget@, or @widget@
              -- itself if there's no ancestor.
widgetGetToplevel :: forall self. WidgetClass self => self -> IO Widget
widgetGetToplevel self
self =
  (ForeignPtr Widget -> Widget, FinalizerPtr Widget)
-> IO (Ptr Widget) -> IO Widget
forall obj.
ObjectClass obj =>
(ForeignPtr obj -> obj, FinalizerPtr obj) -> IO (Ptr obj) -> IO obj
makeNewObject (ForeignPtr Widget -> Widget, FinalizerPtr Widget)
forall {a}. (ForeignPtr Widget -> Widget, FinalizerPtr a)
mkWidget (IO (Ptr Widget) -> IO Widget) -> IO (Ptr Widget) -> IO Widget
forall a b. (a -> b) -> a -> b
$
  (\(Widget ForeignPtr Widget
arg1) -> ForeignPtr Widget
-> (Ptr Widget -> IO (Ptr Widget)) -> IO (Ptr Widget)
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr Widget
arg1 ((Ptr Widget -> IO (Ptr Widget)) -> IO (Ptr Widget))
-> (Ptr Widget -> IO (Ptr Widget)) -> IO (Ptr Widget)
forall a b. (a -> b) -> a -> b
$ \Ptr Widget
argPtr1 ->Ptr Widget -> IO (Ptr Widget)
gtk_widget_get_toplevel Ptr Widget
argPtr1)
{-# LINE 1206 "./Graphics/UI/Gtk/Abstract/Widget.chs" #-}
    (toWidget self)

-- %hash c:17bc d:f8f9
-- | Gets the first ancestor of @widget@ with type @widgetType@. For example,
-- @widgetGetAncestor widget gTypeBox@ gets the first 'Box' that's
-- an ancestor of @widget@. See note about checking for a toplevel
-- 'Window' in the docs for 'widgetGetToplevel'.
--
-- Note that unlike 'widgetIsAncestor', 'widgetGetAncestor' considers
-- @widget@ to be an ancestor of itself.
--
widgetGetAncestor :: WidgetClass self => self
 -> GType -- ^ @widgetType@ - ancestor type
 -> IO (Maybe Widget) -- ^ returns the ancestor widget, or @Nothing@ if not found
widgetGetAncestor :: forall self.
WidgetClass self =>
self -> CULong -> IO (Maybe Widget)
widgetGetAncestor self
self CULong
widgetType = do
  Ptr Widget
ptr <- (\(Widget ForeignPtr Widget
arg1) CULong
arg2 -> ForeignPtr Widget
-> (Ptr Widget -> IO (Ptr Widget)) -> IO (Ptr Widget)
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr Widget
arg1 ((Ptr Widget -> IO (Ptr Widget)) -> IO (Ptr Widget))
-> (Ptr Widget -> IO (Ptr Widget)) -> IO (Ptr Widget)
forall a b. (a -> b) -> a -> b
$ \Ptr Widget
argPtr1 ->Ptr Widget -> CULong -> IO (Ptr Widget)
gtk_widget_get_ancestor Ptr Widget
argPtr1 CULong
arg2)
{-# LINE 1222 "./Graphics/UI/Gtk/Abstract/Widget.chs" #-}
    (toWidget self)
    CULong
widgetType
  if Ptr Widget
ptrPtr Widget -> Ptr Widget -> Bool
forall a. Eq a => a -> a -> Bool
==Ptr Widget
forall a. Ptr a
nullPtr then Maybe Widget -> IO (Maybe Widget)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe Widget
forall a. Maybe a
Nothing else
    (Widget -> Maybe Widget) -> IO Widget -> IO (Maybe Widget)
forall (m :: * -> *) a1 r. Monad m => (a1 -> r) -> m a1 -> m r
liftM Widget -> Maybe Widget
forall a. a -> Maybe a
Just (IO Widget -> IO (Maybe Widget)) -> IO Widget -> IO (Maybe Widget)
forall a b. (a -> b) -> a -> b
$ (ForeignPtr Widget -> Widget, FinalizerPtr Widget)
-> IO (Ptr Widget) -> IO Widget
forall obj.
ObjectClass obj =>
(ForeignPtr obj -> obj, FinalizerPtr obj) -> IO (Ptr obj) -> IO obj
makeNewObject (ForeignPtr Widget -> Widget, FinalizerPtr Widget)
forall {a}. (ForeignPtr Widget -> Widget, FinalizerPtr a)
mkWidget (Ptr Widget -> IO (Ptr Widget)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Widget
ptr)


-- %hash c:bd95 d:eb94
-- | Gets the colormap that will be used to render @widget@.
--
widgetGetColormap :: WidgetClass self => self
 -> IO Colormap -- ^ returns the colormap used by @widget@
widgetGetColormap :: forall self. WidgetClass self => self -> IO Colormap
widgetGetColormap self
self =
  (ForeignPtr Colormap -> Colormap, FinalizerPtr Colormap)
-> IO (Ptr Colormap) -> IO Colormap
forall obj.
GObjectClass obj =>
(ForeignPtr obj -> obj, FinalizerPtr obj) -> IO (Ptr obj) -> IO obj
makeNewGObject (ForeignPtr Colormap -> Colormap, FinalizerPtr Colormap)
forall {a}. (ForeignPtr Colormap -> Colormap, FinalizerPtr a)
mkColormap (IO (Ptr Colormap) -> IO Colormap)
-> IO (Ptr Colormap) -> IO Colormap
forall a b. (a -> b) -> a -> b
$
  (\(Widget ForeignPtr Widget
arg1) -> ForeignPtr Widget
-> (Ptr Widget -> IO (Ptr Colormap)) -> IO (Ptr Colormap)
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr Widget
arg1 ((Ptr Widget -> IO (Ptr Colormap)) -> IO (Ptr Colormap))
-> (Ptr Widget -> IO (Ptr Colormap)) -> IO (Ptr Colormap)
forall a b. (a -> b) -> a -> b
$ \Ptr Widget
argPtr1 ->Ptr Widget -> IO (Ptr Colormap)
gtk_widget_get_colormap Ptr Widget
argPtr1)
{-# LINE 1236 "./Graphics/UI/Gtk/Abstract/Widget.chs" #-}
    (toWidget self)

-- %hash c:cba1 d:ffeb
-- | Sets the colormap for the widget to the given value. Widget must not have
-- been previously realized. This probably should only be used from an 'init'
-- function (i.e. from the constructor for the widget).
--
widgetSetColormap :: WidgetClass self => self
 -> Colormap -- ^ @colormap@ - a colormap
 -> IO ()
widgetSetColormap :: forall self. WidgetClass self => self -> Colormap -> IO ()
widgetSetColormap self
self Colormap
colormap =
  (\(Widget ForeignPtr Widget
arg1) (Colormap ForeignPtr Colormap
arg2) -> ForeignPtr Widget -> (Ptr Widget -> IO ()) -> IO ()
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr Widget
arg1 ((Ptr Widget -> IO ()) -> IO ()) -> (Ptr Widget -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Ptr Widget
argPtr1 ->ForeignPtr Colormap -> (Ptr Colormap -> IO ()) -> IO ()
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr Colormap
arg2 ((Ptr Colormap -> IO ()) -> IO ())
-> (Ptr Colormap -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Ptr Colormap
argPtr2 ->Ptr Widget -> Ptr Colormap -> IO ()
gtk_widget_set_colormap Ptr Widget
argPtr1 Ptr Colormap
argPtr2)
{-# LINE 1248 "./Graphics/UI/Gtk/Abstract/Widget.chs" #-}
    (toWidget self)
    Colormap
colormap


-- %hash c:3522 d:5637
-- | Obtains the location of the mouse pointer in widget coordinates. Widget
-- coordinates are a bit odd; for historical reasons, they are defined as
-- 'widgetGetParentWindow' coordinates for widgets that are not 'NoWindow' widgets,
-- and are relative to the widget's allocation's (x,y) for
-- widgets that are 'NoWindow' widgets.
--
widgetGetPointer :: WidgetClass self => self
 -> IO (Int, Int) -- ^ @(x, y)@ - X Y coordinate
widgetGetPointer :: forall self. WidgetClass self => self -> IO (Int, Int)
widgetGetPointer self
self =
  (Ptr CInt -> IO (Int, Int)) -> IO (Int, Int)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr CInt -> IO (Int, Int)) -> IO (Int, Int))
-> (Ptr CInt -> IO (Int, Int)) -> IO (Int, Int)
forall a b. (a -> b) -> a -> b
$ \Ptr CInt
xPtr ->
  (Ptr CInt -> IO (Int, Int)) -> IO (Int, Int)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr CInt -> IO (Int, Int)) -> IO (Int, Int))
-> (Ptr CInt -> IO (Int, Int)) -> IO (Int, Int)
forall a b. (a -> b) -> a -> b
$ \Ptr CInt
yPtr ->
  (\(Widget ForeignPtr Widget
arg1) Ptr CInt
arg2 Ptr CInt
arg3 -> ForeignPtr Widget -> (Ptr Widget -> IO ()) -> IO ()
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr Widget
arg1 ((Ptr Widget -> IO ()) -> IO ()) -> (Ptr Widget -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Ptr Widget
argPtr1 ->Ptr Widget -> Ptr CInt -> Ptr CInt -> IO ()
gtk_widget_get_pointer Ptr Widget
argPtr1 Ptr CInt
arg2 Ptr CInt
arg3)
{-# LINE 1265 "./Graphics/UI/Gtk/Abstract/Widget.chs" #-}
    (toWidget self)
    Ptr CInt
xPtr
    Ptr CInt
yPtr
  IO () -> IO CInt -> IO CInt
forall a b. IO a -> IO b -> IO b
forall (m :: * -> *) a b. Monad m => m a -> m b -> m b
>>
  Ptr CInt -> IO CInt
forall a. Storable a => Ptr a -> IO a
peek Ptr CInt
xPtr IO CInt -> (CInt -> IO (Int, Int)) -> IO (Int, Int)
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= \CInt
x ->
  Ptr CInt -> IO CInt
forall a. Storable a => Ptr a -> IO a
peek Ptr CInt
yPtr IO CInt -> (CInt -> IO (Int, Int)) -> IO (Int, Int)
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= \CInt
y ->
  (Int, Int) -> IO (Int, Int)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return (CInt -> Int
forall a b. (Integral a, Num b) => a -> b
fromIntegral CInt
x, CInt -> Int
forall a b. (Integral a, Num b) => a -> b
fromIntegral CInt
y)

-- %hash c:499d
-- | Determines whether @widget@ is somewhere inside @ancestor@, possibly with
-- intermediate containers.
--
widgetIsAncestor :: (WidgetClass self, WidgetClass ancestor) =>
    self -- ^ @widget@ - the widget in question
 -> ancestor -- ^ @ancestor@ - another 'Widget'
 -> IO Bool -- ^ returns @True@ if @ancestor@ contains @widget@ as a child,
             -- grandchild, great grandchild, etc.
widgetIsAncestor :: forall self ancestor.
(WidgetClass self, WidgetClass ancestor) =>
self -> ancestor -> IO Bool
widgetIsAncestor self
self ancestor
ancestor =
  (CInt -> Bool) -> IO CInt -> IO Bool
forall (m :: * -> *) a1 r. Monad m => (a1 -> r) -> m a1 -> m r
liftM CInt -> Bool
forall a. (Eq a, Num a) => a -> Bool
toBool (IO CInt -> IO Bool) -> IO CInt -> IO Bool
forall a b. (a -> b) -> a -> b
$
  (\(Widget ForeignPtr Widget
arg1) (Widget ForeignPtr Widget
arg2) -> ForeignPtr Widget -> (Ptr Widget -> IO CInt) -> IO CInt
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr Widget
arg1 ((Ptr Widget -> IO CInt) -> IO CInt)
-> (Ptr Widget -> IO CInt) -> IO CInt
forall a b. (a -> b) -> a -> b
$ \Ptr Widget
argPtr1 ->ForeignPtr Widget -> (Ptr Widget -> IO CInt) -> IO CInt
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr Widget
arg2 ((Ptr Widget -> IO CInt) -> IO CInt)
-> (Ptr Widget -> IO CInt) -> IO CInt
forall a b. (a -> b) -> a -> b
$ \Ptr Widget
argPtr2 ->Ptr Widget -> Ptr Widget -> IO CInt
gtk_widget_is_ancestor Ptr Widget
argPtr1 Ptr Widget
argPtr2)
{-# LINE 1285 "./Graphics/UI/Gtk/Abstract/Widget.chs" #-}
    (toWidget self)
    (ancestor -> Widget
forall o. WidgetClass o => o -> Widget
toWidget ancestor
ancestor)

-- %hash c:8661
-- | Translate coordinates relative to @srcWidget@'s allocation to coordinates
-- relative to @destWidget@'s allocations. In order to perform this operation,
-- both widgets must be realized, and must share a common toplevel.
--
widgetTranslateCoordinates :: (WidgetClass self, WidgetClass destWidget) =>
    self -- ^ @srcWidget@ - a 'Widget'
 -> destWidget -- ^ @destWidget@ - a 'Widget'
 -> Int -- ^ @srcX@ - X position relative to @srcWidget@
 -> Int -- ^ @srcY@ - Y position relative to @srcWidget@
 -> IO (Maybe (Int, Int)) -- ^ @Just (destX, destY)@ - X and Y position
                        -- relative to @destWidget@. Returns @Nothing@ if
                        -- either widget was not realized, or there was no
                        -- common ancestor.
widgetTranslateCoordinates :: forall self destWidget.
(WidgetClass self, WidgetClass destWidget) =>
self -> destWidget -> Int -> Int -> IO (Maybe (Int, Int))
widgetTranslateCoordinates self
self destWidget
destWidget Int
srcX Int
srcY =
  (Ptr CInt -> IO (Maybe (Int, Int))) -> IO (Maybe (Int, Int))
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr CInt -> IO (Maybe (Int, Int))) -> IO (Maybe (Int, Int)))
-> (Ptr CInt -> IO (Maybe (Int, Int))) -> IO (Maybe (Int, Int))
forall a b. (a -> b) -> a -> b
$ \Ptr CInt
destXPtr ->
  (Ptr CInt -> IO (Maybe (Int, Int))) -> IO (Maybe (Int, Int))
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr CInt -> IO (Maybe (Int, Int))) -> IO (Maybe (Int, Int)))
-> (Ptr CInt -> IO (Maybe (Int, Int))) -> IO (Maybe (Int, Int))
forall a b. (a -> b) -> a -> b
$ \Ptr CInt
destYPtr -> do
  CInt
worked <- (\(Widget ForeignPtr Widget
arg1) (Widget ForeignPtr Widget
arg2) CInt
arg3 CInt
arg4 Ptr CInt
arg5 Ptr CInt
arg6 -> ForeignPtr Widget -> (Ptr Widget -> IO CInt) -> IO CInt
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr Widget
arg1 ((Ptr Widget -> IO CInt) -> IO CInt)
-> (Ptr Widget -> IO CInt) -> IO CInt
forall a b. (a -> b) -> a -> b
$ \Ptr Widget
argPtr1 ->ForeignPtr Widget -> (Ptr Widget -> IO CInt) -> IO CInt
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr Widget
arg2 ((Ptr Widget -> IO CInt) -> IO CInt)
-> (Ptr Widget -> IO CInt) -> IO CInt
forall a b. (a -> b) -> a -> b
$ \Ptr Widget
argPtr2 ->Ptr Widget
-> Ptr Widget -> CInt -> CInt -> Ptr CInt -> Ptr CInt -> IO CInt
gtk_widget_translate_coordinates Ptr Widget
argPtr1 Ptr Widget
argPtr2 CInt
arg3 CInt
arg4 Ptr CInt
arg5 Ptr CInt
arg6)
{-# LINE 1306 "./Graphics/UI/Gtk/Abstract/Widget.chs" #-}
    (toWidget self)
    (destWidget -> Widget
forall o. WidgetClass o => o -> Widget
toWidget destWidget
destWidget)
    (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral Int
srcX)
    (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral Int
srcY)
    Ptr CInt
destXPtr
    Ptr CInt
destYPtr
  if (CInt -> Bool
forall a. (Eq a, Num a) => a -> Bool
toBool CInt
worked)
    then do CInt
destX <- Ptr CInt -> IO CInt
forall a. Storable a => Ptr a -> IO a
peek Ptr CInt
destXPtr
            CInt
destY <- Ptr CInt -> IO CInt
forall a. Storable a => Ptr a -> IO a
peek Ptr CInt
destYPtr
            Maybe (Int, Int) -> IO (Maybe (Int, Int))
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ((Int, Int) -> Maybe (Int, Int)
forall a. a -> Maybe a
Just (CInt -> Int
forall a b. (Integral a, Num b) => a -> b
fromIntegral CInt
destX, CInt -> Int
forall a b. (Integral a, Num b) => a -> b
fromIntegral CInt
destY))
    else Maybe (Int, Int) -> IO (Maybe (Int, Int))
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe (Int, Int)
forall a. Maybe a
Nothing

-- %hash c:596c d:b7e5
-- | Sets the 'Style' for a widget. You probably don't want
-- to use this function; it interacts badly with themes, because themes work by
-- replacing the 'Style'. Instead, use 'widgetModifyStyle'.
--
widgetSetStyle :: WidgetClass self => self
 -> Maybe Style -- ^ @style@ - a 'Style', or @Nothing@ to remove the effect of a previous
           -- 'widgetSetStyle' and go back to the default style
 -> IO ()
widgetSetStyle :: forall self. WidgetClass self => self -> Maybe Style -> IO ()
widgetSetStyle self
self Maybe Style
style =
  (\(Widget ForeignPtr Widget
arg1) (Style ForeignPtr Style
arg2) -> ForeignPtr Widget -> (Ptr Widget -> IO ()) -> IO ()
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr Widget
arg1 ((Ptr Widget -> IO ()) -> IO ()) -> (Ptr Widget -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Ptr Widget
argPtr1 ->ForeignPtr Style -> (Ptr Style -> IO ()) -> IO ()
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr Style
arg2 ((Ptr Style -> IO ()) -> IO ()) -> (Ptr Style -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Ptr Style
argPtr2 ->Ptr Widget -> Ptr Style -> IO ()
gtk_widget_set_style Ptr Widget
argPtr1 Ptr Style
argPtr2)
{-# LINE 1329 "./Graphics/UI/Gtk/Abstract/Widget.chs" #-}
    (toWidget self)
    (Style -> Maybe Style -> Style
forall a. a -> Maybe a -> a
fromMaybe (ForeignPtr Style -> Style
Style ForeignPtr Style
forall a. ForeignPtr a
nullForeignPtr) Maybe Style
style)

-- | Retrieve the 'Style' associated with the widget.
--
widgetGetStyle :: WidgetClass widget => widget -> IO Style
widgetGetStyle :: forall widget. WidgetClass widget => widget -> IO Style
widgetGetStyle widget
widget = do
  (\(Widget ForeignPtr Widget
arg1) -> ForeignPtr Widget -> (Ptr Widget -> IO ()) -> IO ()
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr Widget
arg1 ((Ptr Widget -> IO ()) -> IO ()) -> (Ptr Widget -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Ptr Widget
argPtr1 ->Ptr Widget -> IO ()
gtk_widget_ensure_style Ptr Widget
argPtr1) (widget -> Widget
forall o. WidgetClass o => o -> Widget
toWidget widget
widget)
  (ForeignPtr Style -> Style, FinalizerPtr Style)
-> IO (Ptr Style) -> IO Style
forall obj.
GObjectClass obj =>
(ForeignPtr obj -> obj, FinalizerPtr obj) -> IO (Ptr obj) -> IO obj
makeNewGObject (ForeignPtr Style -> Style, FinalizerPtr Style)
forall {a}. (ForeignPtr Style -> Style, FinalizerPtr a)
mkStyle (IO (Ptr Style) -> IO Style) -> IO (Ptr Style) -> IO Style
forall a b. (a -> b) -> a -> b
$ (\(Widget ForeignPtr Widget
arg1) -> ForeignPtr Widget
-> (Ptr Widget -> IO (Ptr Style)) -> IO (Ptr Style)
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr Widget
arg1 ((Ptr Widget -> IO (Ptr Style)) -> IO (Ptr Style))
-> (Ptr Widget -> IO (Ptr Style)) -> IO (Ptr Style)
forall a b. (a -> b) -> a -> b
$ \Ptr Widget
argPtr1 ->Ptr Widget -> IO (Ptr Style)
gtk_widget_get_style Ptr Widget
argPtr1) (widget -> Widget
forall o. WidgetClass o => o -> Widget
toWidget widget
widget)


-- %hash c:d5ed d:dc10
-- | Pushes @cmap@ onto a global stack of colormaps; the topmost colormap on
-- the stack will be used to create all widgets. Remove @cmap@ with
-- 'widgetPopColormap'. There's little reason to use this function.
--
widgetPushColormap ::
    Colormap -- ^ @cmap@ - a 'Colormap'
 -> IO ()
widgetPushColormap :: Colormap -> IO ()
widgetPushColormap Colormap
cmap =
  (\(Colormap ForeignPtr Colormap
arg1) -> ForeignPtr Colormap -> (Ptr Colormap -> IO ()) -> IO ()
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr Colormap
arg1 ((Ptr Colormap -> IO ()) -> IO ())
-> (Ptr Colormap -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Ptr Colormap
argPtr1 ->Ptr Colormap -> IO ()
gtk_widget_push_colormap Ptr Colormap
argPtr1)
{-# LINE 1350 "./Graphics/UI/Gtk/Abstract/Widget.chs" #-}
    cmap

-- %hash c:7300 d:2920
-- | Removes a colormap pushed with 'widgetPushColormap'.
--
widgetPopColormap :: IO ()
widgetPopColormap :: IO ()
widgetPopColormap =
  IO ()
gtk_widget_pop_colormap
{-# LINE 1358 "./Graphics/UI/Gtk/Abstract/Widget.chs" #-}

-- %hash c:1f73 d:590e
-- | Sets the default colormap to use when creating widgets.
-- 'widgetPushColormap' is a better function to use if you only want to affect
-- a few widgets, rather than all widgets.
--
widgetSetDefaultColormap ::
    Colormap -- ^ @colormap@ - a 'Colormap'
 -> IO ()
widgetSetDefaultColormap :: Colormap -> IO ()
widgetSetDefaultColormap Colormap
colormap =
  (\(Colormap ForeignPtr Colormap
arg1) -> ForeignPtr Colormap -> (Ptr Colormap -> IO ()) -> IO ()
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr Colormap
arg1 ((Ptr Colormap -> IO ()) -> IO ())
-> (Ptr Colormap -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Ptr Colormap
argPtr1 ->Ptr Colormap -> IO ()
gtk_widget_set_default_colormap Ptr Colormap
argPtr1)
{-# LINE 1369 "./Graphics/UI/Gtk/Abstract/Widget.chs" #-}
    colormap


-- %hash c:e71b d:72c2
-- | Returns the default style used by all widgets initially.
--
widgetGetDefaultStyle ::
    IO Style -- ^ returns the default style. This 'Style' object is owned by
             -- Gtk and should not be modified.
widgetGetDefaultStyle :: IO Style
widgetGetDefaultStyle =
  (ForeignPtr Style -> Style, FinalizerPtr Style)
-> IO (Ptr Style) -> IO Style
forall obj.
GObjectClass obj =>
(ForeignPtr obj -> obj, FinalizerPtr obj) -> IO (Ptr obj) -> IO obj
makeNewGObject (ForeignPtr Style -> Style, FinalizerPtr Style)
forall {a}. (ForeignPtr Style -> Style, FinalizerPtr a)
mkStyle (IO (Ptr Style) -> IO Style) -> IO (Ptr Style) -> IO Style
forall a b. (a -> b) -> a -> b
$
  IO (Ptr Style)
gtk_widget_get_default_style
{-# LINE 1381 "./Graphics/UI/Gtk/Abstract/Widget.chs" #-}


-- %hash c:d731 d:52bf
-- | Obtains the default colormap used to create widgets.
--
widgetGetDefaultColormap ::
    IO Colormap -- ^ returns default widget colormap
widgetGetDefaultColormap :: IO Colormap
widgetGetDefaultColormap =
  (ForeignPtr Colormap -> Colormap, FinalizerPtr Colormap)
-> IO (Ptr Colormap) -> IO Colormap
forall obj.
GObjectClass obj =>
(ForeignPtr obj -> obj, FinalizerPtr obj) -> IO (Ptr obj) -> IO obj
makeNewGObject (ForeignPtr Colormap -> Colormap, FinalizerPtr Colormap)
forall {a}. (ForeignPtr Colormap -> Colormap, FinalizerPtr a)
mkColormap (IO (Ptr Colormap) -> IO Colormap)
-> IO (Ptr Colormap) -> IO Colormap
forall a b. (a -> b) -> a -> b
$
  IO (Ptr Colormap)
gtk_widget_get_default_colormap
{-# LINE 1391 "./Graphics/UI/Gtk/Abstract/Widget.chs" #-}


-- | Sets the reading direction on a particular widget. This direction
-- controls the primary direction for widgets containing text, and also the
-- direction in which the children of a container are packed. The ability to
-- set the direction is present in order so that correct localization into
-- languages with right-to-left reading directions can be done. Generally,
-- applications will let the default reading direction present, except for
-- containers where the containers are arranged in an order that is explicitly
-- visual rather than logical (such as buttons for text justification).
--
-- If the direction is set to 'TextDirNone', then the value set by
-- 'widgetSetDefaultDirection' will be used.
--
widgetSetDirection :: WidgetClass self => self -> TextDirection -> IO ()
widgetSetDirection :: forall self. WidgetClass self => self -> TextDirection -> IO ()
widgetSetDirection self
self TextDirection
dir =
  (\(Widget ForeignPtr Widget
arg1) CInt
arg2 -> ForeignPtr Widget -> (Ptr Widget -> IO ()) -> IO ()
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr Widget
arg1 ((Ptr Widget -> IO ()) -> IO ()) -> (Ptr Widget -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Ptr Widget
argPtr1 ->Ptr Widget -> CInt -> IO ()
gtk_widget_set_direction Ptr Widget
argPtr1 CInt
arg2)
{-# LINE 1408 "./Graphics/UI/Gtk/Abstract/Widget.chs" #-}
    (toWidget self)
    ((Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CInt) -> (TextDirection -> Int) -> TextDirection -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. TextDirection -> Int
forall a. Enum a => a -> Int
fromEnum) TextDirection
dir)

-- | Gets the reading direction for a particular widget. See
-- 'widgetSetDirection'.
--
widgetGetDirection :: WidgetClass self => self -> IO TextDirection
widgetGetDirection :: forall self. WidgetClass self => self -> IO TextDirection
widgetGetDirection self
self =
  (CInt -> TextDirection) -> IO CInt -> IO TextDirection
forall (m :: * -> *) a1 r. Monad m => (a1 -> r) -> m a1 -> m r
liftM (Int -> TextDirection
forall a. Enum a => Int -> a
toEnum (Int -> TextDirection) -> (CInt -> Int) -> CInt -> TextDirection
forall b c a. (b -> c) -> (a -> b) -> a -> c
. CInt -> Int
forall a b. (Integral a, Num b) => a -> b
fromIntegral) (IO CInt -> IO TextDirection) -> IO CInt -> IO TextDirection
forall a b. (a -> b) -> a -> b
$
  (\(Widget ForeignPtr Widget
arg1) -> ForeignPtr Widget -> (Ptr Widget -> IO CInt) -> IO CInt
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr Widget
arg1 ((Ptr Widget -> IO CInt) -> IO CInt)
-> (Ptr Widget -> IO CInt) -> IO CInt
forall a b. (a -> b) -> a -> b
$ \Ptr Widget
argPtr1 ->Ptr Widget -> IO CInt
gtk_widget_get_direction Ptr Widget
argPtr1)
{-# LINE 1418 "./Graphics/UI/Gtk/Abstract/Widget.chs" #-}
    (toWidget self)

-- %hash c:ff9a
-- | Sets the default reading direction for widgets where the direction has
-- not been explicitly set by 'widgetSetDirection'.
--
widgetSetDefaultDirection ::
    TextDirection -- ^ @dir@ - the new default direction. This cannot be
                  -- 'TextDirNone'.
 -> IO ()
widgetSetDefaultDirection :: TextDirection -> IO ()
widgetSetDefaultDirection TextDirection
dir =
  CInt -> IO ()
gtk_widget_set_default_direction
{-# LINE 1430 "./Graphics/UI/Gtk/Abstract/Widget.chs" #-}
    ((fromIntegral . fromEnum) dir)

-- | Obtains the current default reading direction. See
-- 'widgetSetDefaultDirection'.
--
widgetGetDefaultDirection :: IO TextDirection
widgetGetDefaultDirection :: IO TextDirection
widgetGetDefaultDirection =
  (CInt -> TextDirection) -> IO CInt -> IO TextDirection
forall (m :: * -> *) a1 r. Monad m => (a1 -> r) -> m a1 -> m r
liftM (Int -> TextDirection
forall a. Enum a => Int -> a
toEnum (Int -> TextDirection) -> (CInt -> Int) -> CInt -> TextDirection
forall b c a. (b -> c) -> (a -> b) -> a -> c
. CInt -> Int
forall a b. (Integral a, Num b) => a -> b
fromIntegral) (IO CInt -> IO TextDirection) -> IO CInt -> IO TextDirection
forall a b. (a -> b) -> a -> b
$
  IO CInt
gtk_widget_get_default_direction
{-# LINE 1439 "./Graphics/UI/Gtk/Abstract/Widget.chs" #-}


-- %hash c:c7ba d:3a9c
-- | Sets a shape for this widget's 'DrawWindow'. This allows for transparent
-- windows etc., see 'windowShapeCombineMask' for more information.
--
widgetShapeCombineMask :: WidgetClass self => self
 -> Maybe Bitmap -- ^ @shapeMask@ - shape to be added, or @Nothint@ to remove an
            -- existing shape.
 -> Int -- ^ @offsetX@ - X position of shape mask with respect to @window@.
 -> Int -- ^ @offsetY@ - Y position of shape mask with respect to @window@.
 -> IO ()
widgetShapeCombineMask :: forall self.
WidgetClass self =>
self -> Maybe Bitmap -> Int -> Int -> IO ()
widgetShapeCombineMask self
self Maybe Bitmap
shapeMask Int
offsetX Int
offsetY =
  case (Bitmap -> Maybe Bitmap -> Bitmap
forall a. a -> Maybe a -> a
fromMaybe (ForeignPtr Bitmap -> Bitmap
Pixmap ForeignPtr Bitmap
forall a. ForeignPtr a
nullForeignPtr) Maybe Bitmap
shapeMask) of
    Pixmap ForeignPtr Bitmap
fPtr -> ForeignPtr Bitmap -> (Ptr Bitmap -> IO ()) -> IO ()
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr Bitmap
fPtr ((Ptr Bitmap -> IO ()) -> IO ()) -> (Ptr Bitmap -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Ptr Bitmap
bitmapPtr ->
      (\(Widget ForeignPtr Widget
arg1) Ptr ()
arg2 CInt
arg3 CInt
arg4 -> ForeignPtr Widget -> (Ptr Widget -> IO ()) -> IO ()
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr Widget
arg1 ((Ptr Widget -> IO ()) -> IO ()) -> (Ptr Widget -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Ptr Widget
argPtr1 ->Ptr Widget -> Ptr () -> CInt -> CInt -> IO ()
gtk_widget_shape_combine_mask Ptr Widget
argPtr1 Ptr ()
arg2 CInt
arg3 CInt
arg4)
{-# LINE 1455 "./Graphics/UI/Gtk/Abstract/Widget.chs" #-}
        (self -> Widget
forall o. WidgetClass o => o -> Widget
toWidget self
self)
        (Ptr Bitmap -> Ptr ()
forall a b. Ptr a -> Ptr b
castPtr Ptr Bitmap
bitmapPtr)
        (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral Int
offsetX)
        (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral Int
offsetY)




-- %hash c:3c29 d:68e2
-- | Sets an input shape for this widget's GDK window. This allows for windows
-- which react to mouse click in a nonrectangular region, see
-- 'windowInputShapeCombineMask' for more information.
--
-- * Available since Gtk+ version 2.10
--
widgetInputShapeCombineMask :: WidgetClass self => self
 -> Maybe Bitmap -- ^ @shapeMask@ - shape to be added, or @Nothint@ to remove an
            -- existing shape.
 -> Int -- ^ @offsetX@ - X position of shape mask with respect to @window@.
 -> Int -- ^ @offsetY@ - Y position of shape mask with respect to @window@.
 -> IO ()
widgetInputShapeCombineMask :: forall self.
WidgetClass self =>
self -> Maybe Bitmap -> Int -> Int -> IO ()
widgetInputShapeCombineMask self
self Maybe Bitmap
shapeMask Int
offsetX Int
offsetY =
  case (Bitmap -> Maybe Bitmap -> Bitmap
forall a. a -> Maybe a -> a
fromMaybe (ForeignPtr Bitmap -> Bitmap
Pixmap ForeignPtr Bitmap
forall a. ForeignPtr a
nullForeignPtr) Maybe Bitmap
shapeMask) of
    Pixmap ForeignPtr Bitmap
fPtr -> ForeignPtr Bitmap -> (Ptr Bitmap -> IO ()) -> IO ()
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr Bitmap
fPtr ((Ptr Bitmap -> IO ()) -> IO ()) -> (Ptr Bitmap -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Ptr Bitmap
bitmapPtr ->
      (\(Widget ForeignPtr Widget
arg1) Ptr ()
arg2 CInt
arg3 CInt
arg4 -> ForeignPtr Widget -> (Ptr Widget -> IO ()) -> IO ()
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr Widget
arg1 ((Ptr Widget -> IO ()) -> IO ()) -> (Ptr Widget -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Ptr Widget
argPtr1 ->Ptr Widget -> Ptr () -> CInt -> CInt -> IO ()
gtk_widget_input_shape_combine_mask Ptr Widget
argPtr1 Ptr ()
arg2 CInt
arg3 CInt
arg4)
{-# LINE 1480 "./Graphics/UI/Gtk/Abstract/Widget.chs" #-}
        (self -> Widget
forall o. WidgetClass o => o -> Widget
toWidget self
self)
        (Ptr Bitmap -> Ptr ()
forall a b. Ptr a -> Ptr b
castPtr Ptr Bitmap
bitmapPtr)
        (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral Int
offsetX)
        (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral Int
offsetY)
{-# LINE 1514 "./Graphics/UI/Gtk/Abstract/Widget.chs" #-}
-- | Create a 'Pixmap' of the contents of the widget and its children.
--
-- Works even if the widget is obscured. The depth and visual of the resulting pixmap is dependent on
-- the widget being snapshot and likely differs from those of a target widget displaying the
-- pixmap. The function 'pixbufGetFromDrawable' can be used to convert the pixmap to a visual
-- independent representation.
--
-- The snapshot area used by this function is the widget's allocation plus any extra space occupied by
-- additional windows belonging to this widget (such as the arrows of a spin button). Thus, the
-- resulting snapshot pixmap is possibly larger than the allocation.
--
-- The resulting pixmap is shrunken to match the specified @clipRect@. The
-- (x,y) coordinates of @clipRect@ are interpreted widget relative. If width or height of @clipRect@ are
-- 0 or negative, the width or height of the resulting pixmap will be shrunken by the respective
-- amount. For instance a @clipRect@ { +5, +5, -10, -10 } will chop off 5 pixels at each side of the
-- snapshot pixmap. @clipRect@ will contain the exact widget-relative snapshot coordinates
-- upon return. A @clipRect@ of { -1, -1, 0, 0 } can be used to preserve the auto-grown snapshot area
-- and use @clipRect@ as a pure output parameter.
--
-- The returned pixmap can be 'Nothing', if the resulting @clipArea@ was empty.
widgetGetSnapshot :: WidgetClass self => self
                  -> Rectangle
                  -> IO (Maybe Pixmap) -- ^ returns 'Pixmap' snapshot of the widget
widgetGetSnapshot :: forall self.
WidgetClass self =>
self -> Allocation -> IO (Maybe Bitmap)
widgetGetSnapshot self
widget Allocation
clipRect =
  (IO (Ptr Bitmap) -> IO Bitmap)
-> IO (Ptr Bitmap) -> IO (Maybe Bitmap)
forall a. (IO (Ptr a) -> IO a) -> IO (Ptr a) -> IO (Maybe a)
maybeNull ((ForeignPtr Bitmap -> Bitmap, FinalizerPtr Bitmap)
-> IO (Ptr Bitmap) -> IO Bitmap
forall obj.
GObjectClass obj =>
(ForeignPtr obj -> obj, FinalizerPtr obj) -> IO (Ptr obj) -> IO obj
wrapNewGObject (ForeignPtr Bitmap -> Bitmap, FinalizerPtr Bitmap)
forall {a}. (ForeignPtr Bitmap -> Bitmap, FinalizerPtr a)
mkPixmap) (IO (Ptr Bitmap) -> IO (Maybe Bitmap))
-> IO (Ptr Bitmap) -> IO (Maybe Bitmap)
forall a b. (a -> b) -> a -> b
$
  Allocation
-> (Ptr Allocation -> IO (Ptr Bitmap)) -> IO (Ptr Bitmap)
forall a b. Storable a => a -> (Ptr a -> IO b) -> IO b
with Allocation
clipRect ((Ptr Allocation -> IO (Ptr Bitmap)) -> IO (Ptr Bitmap))
-> (Ptr Allocation -> IO (Ptr Bitmap)) -> IO (Ptr Bitmap)
forall a b. (a -> b) -> a -> b
$ \ Ptr Allocation
clipRectPtr ->
  (\(Widget ForeignPtr Widget
arg1) Ptr ()
arg2 -> ForeignPtr Widget
-> (Ptr Widget -> IO (Ptr Bitmap)) -> IO (Ptr Bitmap)
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr Widget
arg1 ((Ptr Widget -> IO (Ptr Bitmap)) -> IO (Ptr Bitmap))
-> (Ptr Widget -> IO (Ptr Bitmap)) -> IO (Ptr Bitmap)
forall a b. (a -> b) -> a -> b
$ \Ptr Widget
argPtr1 ->Ptr Widget -> Ptr () -> IO (Ptr Bitmap)
gtk_widget_get_snapshot Ptr Widget
argPtr1 Ptr ()
arg2)
{-# LINE 1541 "./Graphics/UI/Gtk/Abstract/Widget.chs" #-}
     (toWidget widget)
     (Ptr Allocation -> Ptr ()
forall a b. Ptr a -> Ptr b
castPtr Ptr Allocation
clipRectPtr)



-- %hash c:7e36 d:616f
-- | Obtains the full path to @widget@. The path is simply the name of a
-- widget and all its parents in the container hierarchy, separated by periods.
-- The name of a widget comes from 'widgetGetName'. Paths are used to apply
-- styles to a widget in gtkrc configuration files. Widget names are the type
-- of the widget by default (e.g. \"GtkButton\") or can be set to an
-- application-specific value with 'widgetSetName'. By setting the name of a
-- widget, you allow users or theme authors to apply styles to that specific
-- widget in their gtkrc file. Also returns the path in reverse
-- order, i.e. starting with the widget's name instead of starting with the
-- name of the widget's outermost ancestor.
--
widgetPath :: (WidgetClass self, GlibString string) => self
 -> IO (Int, string, string) -- ^ @(pathLength, path, pathReversed)@ - length
                             -- of the path, path string and reverse path
                             -- string
widgetPath :: forall self string.
(WidgetClass self, GlibString string) =>
self -> IO (Int, string, string)
widgetPath self
self =
  (Ptr CUInt -> IO (Int, string, string)) -> IO (Int, string, string)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr CUInt -> IO (Int, string, string))
 -> IO (Int, string, string))
-> (Ptr CUInt -> IO (Int, string, string))
-> IO (Int, string, string)
forall a b. (a -> b) -> a -> b
$ \Ptr CUInt
pathLengthPtr ->
  (Ptr CString -> IO (Int, string, string))
-> IO (Int, string, string)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr CString -> IO (Int, string, string))
 -> IO (Int, string, string))
-> (Ptr CString -> IO (Int, string, string))
-> IO (Int, string, string)
forall a b. (a -> b) -> a -> b
$ \Ptr CString
pathPtr ->
  (Ptr CString -> IO (Int, string, string))
-> IO (Int, string, string)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr CString -> IO (Int, string, string))
 -> IO (Int, string, string))
-> (Ptr CString -> IO (Int, string, string))
-> IO (Int, string, string)
forall a b. (a -> b) -> a -> b
$ \Ptr CString
pathReversedPtr ->
  (\(Widget ForeignPtr Widget
arg1) Ptr CUInt
arg2 Ptr CString
arg3 Ptr CString
arg4 -> ForeignPtr Widget -> (Ptr Widget -> IO ()) -> IO ()
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr Widget
arg1 ((Ptr Widget -> IO ()) -> IO ()) -> (Ptr Widget -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Ptr Widget
argPtr1 ->Ptr Widget -> Ptr CUInt -> Ptr CString -> Ptr CString -> IO ()
gtk_widget_path Ptr Widget
argPtr1 Ptr CUInt
arg2 Ptr CString
arg3 Ptr CString
arg4)
{-# LINE 1567 "./Graphics/UI/Gtk/Abstract/Widget.chs" #-}
    (toWidget self)
    Ptr CUInt
pathLengthPtr
    Ptr CString
pathPtr
    Ptr CString
pathReversedPtr
  IO () -> IO CUInt -> IO CUInt
forall a b. IO a -> IO b -> IO b
forall (m :: * -> *) a b. Monad m => m a -> m b -> m b
>>
  Ptr CUInt -> IO CUInt
forall a. Storable a => Ptr a -> IO a
peek Ptr CUInt
pathLengthPtr IO CUInt
-> (CUInt -> IO (Int, string, string)) -> IO (Int, string, string)
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= \CUInt
pathLength ->
  Ptr CString -> IO CString
forall a. Storable a => Ptr a -> IO a
peek Ptr CString
pathPtr IO CString -> (CString -> IO string) -> IO string
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= CString -> IO string
forall s. GlibString s => CString -> IO s
readUTFString IO string
-> (string -> IO (Int, string, string)) -> IO (Int, string, string)
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= \string
path ->
  Ptr CString -> IO CString
forall a. Storable a => Ptr a -> IO a
peek Ptr CString
pathReversedPtr IO CString -> (CString -> IO string) -> IO string
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= CString -> IO string
forall s. GlibString s => CString -> IO s
readUTFString IO string
-> (string -> IO (Int, string, string)) -> IO (Int, string, string)
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= \string
pathReversed ->
  (Int, string, string) -> IO (Int, string, string)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return (CUInt -> Int
forall a b. (Integral a, Num b) => a -> b
fromIntegral CUInt
pathLength, string
path, string
pathReversed)

-- %hash c:d4a6
-- | Same as 'widgetPath', but always uses the name of a widget's type, never
-- uses a custom name set with 'widgetSetName'.
--
widgetClassPath :: (WidgetClass self, GlibString string) => self
 -> IO (Int, string, string) -- ^ @(pathLength, path, pathReversed)@ - length
                             -- of the path, path string and reverse path
                             -- string
widgetClassPath :: forall self string.
(WidgetClass self, GlibString string) =>
self -> IO (Int, string, string)
widgetClassPath self
self =
  (Ptr CUInt -> IO (Int, string, string)) -> IO (Int, string, string)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr CUInt -> IO (Int, string, string))
 -> IO (Int, string, string))
-> (Ptr CUInt -> IO (Int, string, string))
-> IO (Int, string, string)
forall a b. (a -> b) -> a -> b
$ \Ptr CUInt
pathLengthPtr ->
  (Ptr CString -> IO (Int, string, string))
-> IO (Int, string, string)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr CString -> IO (Int, string, string))
 -> IO (Int, string, string))
-> (Ptr CString -> IO (Int, string, string))
-> IO (Int, string, string)
forall a b. (a -> b) -> a -> b
$ \Ptr CString
pathPtr ->
  (Ptr CString -> IO (Int, string, string))
-> IO (Int, string, string)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr CString -> IO (Int, string, string))
 -> IO (Int, string, string))
-> (Ptr CString -> IO (Int, string, string))
-> IO (Int, string, string)
forall a b. (a -> b) -> a -> b
$ \Ptr CString
pathReversedPtr ->
  (\(Widget ForeignPtr Widget
arg1) Ptr CUInt
arg2 Ptr CString
arg3 Ptr CString
arg4 -> ForeignPtr Widget -> (Ptr Widget -> IO ()) -> IO ()
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr Widget
arg1 ((Ptr Widget -> IO ()) -> IO ()) -> (Ptr Widget -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Ptr Widget
argPtr1 ->Ptr Widget -> Ptr CUInt -> Ptr CString -> Ptr CString -> IO ()
gtk_widget_class_path Ptr Widget
argPtr1 Ptr CUInt
arg2 Ptr CString
arg3 Ptr CString
arg4)
{-# LINE 1590 "./Graphics/UI/Gtk/Abstract/Widget.chs" #-}
    (toWidget self)
    Ptr CUInt
pathLengthPtr
    Ptr CString
pathPtr
    Ptr CString
pathReversedPtr
  IO () -> IO CUInt -> IO CUInt
forall a b. IO a -> IO b -> IO b
forall (m :: * -> *) a b. Monad m => m a -> m b -> m b
>>
  Ptr CUInt -> IO CUInt
forall a. Storable a => Ptr a -> IO a
peek Ptr CUInt
pathLengthPtr IO CUInt
-> (CUInt -> IO (Int, string, string)) -> IO (Int, string, string)
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= \CUInt
pathLength ->
  Ptr CString -> IO CString
forall a. Storable a => Ptr a -> IO a
peek Ptr CString
pathPtr IO CString -> (CString -> IO string) -> IO string
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= CString -> IO string
forall s. GlibString s => CString -> IO s
readUTFString IO string
-> (string -> IO (Int, string, string)) -> IO (Int, string, string)
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= \string
path ->
  Ptr CString -> IO CString
forall a. Storable a => Ptr a -> IO a
peek Ptr CString
pathReversedPtr IO CString -> (CString -> IO string) -> IO string
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= CString -> IO string
forall s. GlibString s => CString -> IO s
readUTFString IO string
-> (string -> IO (Int, string, string)) -> IO (Int, string, string)
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= \string
pathReversed ->
  (Int, string, string) -> IO (Int, string, string)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return (CUInt -> Int
forall a b. (Integral a, Num b) => a -> b
fromIntegral CUInt
pathLength, string
path, string
pathReversed)

-- %hash c:769e
-- | Obtains the composite name of a widget.
--
widgetGetCompositeName :: (WidgetClass self, GlibString string) => self
 -> IO (Maybe string) -- ^ returns the composite name of @widget@, or
                      -- @Nothing@ if @widget@ is not a composite child.
widgetGetCompositeName :: forall self string.
(WidgetClass self, GlibString string) =>
self -> IO (Maybe string)
widgetGetCompositeName self
self =
  (\(Widget ForeignPtr Widget
arg1) -> ForeignPtr Widget -> (Ptr Widget -> IO CString) -> IO CString
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr Widget
arg1 ((Ptr Widget -> IO CString) -> IO CString)
-> (Ptr Widget -> IO CString) -> IO CString
forall a b. (a -> b) -> a -> b
$ \Ptr Widget
argPtr1 ->Ptr Widget -> IO CString
gtk_widget_get_composite_name Ptr Widget
argPtr1)
{-# LINE 1608 "./Graphics/UI/Gtk/Abstract/Widget.chs" #-}
    (toWidget self)
  IO CString -> (CString -> IO (Maybe string)) -> IO (Maybe string)
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (CString -> IO string) -> CString -> IO (Maybe string)
forall a b. (Ptr a -> IO b) -> Ptr a -> IO (Maybe b)
maybePeek CString -> IO string
forall s. GlibString s => CString -> IO s
peekUTFString
{-# LINE 1710 "./Graphics/UI/Gtk/Abstract/Widget.chs" #-}
-- | Modifies style values on the widget. Modifications made using this
-- technique take precedence over style values set via an RC file, however,
-- they will be overridden if a style is explicitly set on the widget using
-- 'widgetSetStyle'. The 'RcStyle' structure is designed so each field can
-- either be set or unset, so it is possible, using this function, to modify
-- some style values and leave the others unchanged.
--
-- Note that modifications made with this function are not cumulative with
-- previous calls to 'widgetModifyStyle' or with such functions as
-- 'widgetModifyFg'. If you wish to retain previous values, you must first call
-- 'widgetGetModifierStyle', make your modifications to the returned style,
-- then call 'widgetModifyStyle' with that style. On the other hand, if you
-- first call 'widgetModifyStyle', subsequent calls to such functions
-- 'widgetModifyFg' will have a cumulative effect with the initial
-- modifications.
--
widgetModifyStyle :: (WidgetClass self, RcStyleClass style) => self
 -> style -- ^ @style@ - the 'RcStyle' holding the style modifications
 -> IO ()
widgetModifyStyle :: forall self style.
(WidgetClass self, RcStyleClass style) =>
self -> style -> IO ()
widgetModifyStyle self
self style
style =
  (\(Widget ForeignPtr Widget
arg1) (RcStyle ForeignPtr RcStyle
arg2) -> ForeignPtr Widget -> (Ptr Widget -> IO ()) -> IO ()
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr Widget
arg1 ((Ptr Widget -> IO ()) -> IO ()) -> (Ptr Widget -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Ptr Widget
argPtr1 ->ForeignPtr RcStyle -> (Ptr RcStyle -> IO ()) -> IO ()
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr RcStyle
arg2 ((Ptr RcStyle -> IO ()) -> IO ())
-> (Ptr RcStyle -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Ptr RcStyle
argPtr2 ->Ptr Widget -> Ptr RcStyle -> IO ()
gtk_widget_modify_style Ptr Widget
argPtr1 Ptr RcStyle
argPtr2)
{-# LINE 1731 "./Graphics/UI/Gtk/Abstract/Widget.chs" #-}
    (toWidget self)
    (style -> RcStyle
forall o. RcStyleClass o => o -> RcStyle
toRcStyle style
style)

-- | Returns the current modifier style for the widget. (As set by
-- 'widgetModifyStyle'.) If no style has previously set, a new 'RcStyle' will
-- be created with all values unset, and set as the modifier style for the
-- widget. If you make changes to this rc style, you must call
-- 'widgetModifyStyle', passing in the returned rc style, to make sure that
-- your changes take effect.
--
-- Caution: passing the style back to 'widgetModifyStyle' will normally end
-- up destroying it, because 'widgetModifyStyle' copies the passed-in style and
-- sets the copy as the new modifier style, thus dropping any reference to the
-- old modifier styl e. Add a reference to the modifier style if you want to
-- keep it alive.
--
widgetGetModifierStyle :: WidgetClass self => self -> IO RcStyle
widgetGetModifierStyle :: forall self. WidgetClass self => self -> IO RcStyle
widgetGetModifierStyle self
self =
  (ForeignPtr RcStyle -> RcStyle, FinalizerPtr RcStyle)
-> IO (Ptr RcStyle) -> IO RcStyle
forall obj.
GObjectClass obj =>
(ForeignPtr obj -> obj, FinalizerPtr obj) -> IO (Ptr obj) -> IO obj
makeNewGObject (ForeignPtr RcStyle -> RcStyle, FinalizerPtr RcStyle)
forall {a}. (ForeignPtr RcStyle -> RcStyle, FinalizerPtr a)
mkRcStyle (IO (Ptr RcStyle) -> IO RcStyle) -> IO (Ptr RcStyle) -> IO RcStyle
forall a b. (a -> b) -> a -> b
$
  (\(Widget ForeignPtr Widget
arg1) -> ForeignPtr Widget
-> (Ptr Widget -> IO (Ptr RcStyle)) -> IO (Ptr RcStyle)
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr Widget
arg1 ((Ptr Widget -> IO (Ptr RcStyle)) -> IO (Ptr RcStyle))
-> (Ptr Widget -> IO (Ptr RcStyle)) -> IO (Ptr RcStyle)
forall a b. (a -> b) -> a -> b
$ \Ptr Widget
argPtr1 ->Ptr Widget -> IO (Ptr RcStyle)
gtk_widget_get_modifier_style Ptr Widget
argPtr1)
{-# LINE 1751 "./Graphics/UI/Gtk/Abstract/Widget.chs" #-}
    (toWidget self)

-- %hash c:5550
-- | Sets the foreground color for a widget in a particular state. All other
-- style values are left untouched. See also 'widgetModifyStyle'.
--
widgetModifyFg :: WidgetClass self => self
 -> StateType -- ^ @state@ - the state for which to set the foreground color.
 -> Color -- ^ @color@ - the color to assign (does not need to be
              -- allocated)
 -> IO ()
widgetModifyFg :: forall self.
WidgetClass self =>
self -> StateType -> Color -> IO ()
widgetModifyFg self
self StateType
state Color
color =
  Color -> (Ptr Color -> IO ()) -> IO ()
forall a b. Storable a => a -> (Ptr a -> IO b) -> IO b
with Color
color ((Ptr Color -> IO ()) -> IO ()) -> (Ptr Color -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Ptr Color
colorPtr ->
  (\(Widget ForeignPtr Widget
arg1) CInt
arg2 Ptr ()
arg3 -> ForeignPtr Widget -> (Ptr Widget -> IO ()) -> IO ()
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr Widget
arg1 ((Ptr Widget -> IO ()) -> IO ()) -> (Ptr Widget -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Ptr Widget
argPtr1 ->Ptr Widget -> CInt -> Ptr () -> IO ()
gtk_widget_modify_fg Ptr Widget
argPtr1 CInt
arg2 Ptr ()
arg3)
{-# LINE 1765 "./Graphics/UI/Gtk/Abstract/Widget.chs" #-}
    (toWidget self)
    ((Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CInt) -> (StateType -> Int) -> StateType -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. StateType -> Int
forall a. Enum a => a -> Int
fromEnum) StateType
state)
    (Ptr Color -> Ptr ()
forall a b. Ptr a -> Ptr b
castPtr Ptr Color
colorPtr)

-- | Restores the foreground color for a widget in a particular state. This
-- undoes the effects of previous calls to `widgetModifyFg'.
--
widgetRestoreFg :: WidgetClass self => self
 -> StateType -- ^ @state@ - the state for which to restore the foreground color.
 -> IO ()
widgetRestoreFg :: forall self. WidgetClass self => self -> StateType -> IO ()
widgetRestoreFg self
self StateType
state =
  (\(Widget ForeignPtr Widget
arg1) CInt
arg2 Ptr ()
arg3 -> ForeignPtr Widget -> (Ptr Widget -> IO ()) -> IO ()
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr Widget
arg1 ((Ptr Widget -> IO ()) -> IO ()) -> (Ptr Widget -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Ptr Widget
argPtr1 ->Ptr Widget -> CInt -> Ptr () -> IO ()
gtk_widget_modify_fg Ptr Widget
argPtr1 CInt
arg2 Ptr ()
arg3)
{-# LINE 1777 "./Graphics/UI/Gtk/Abstract/Widget.chs" #-}
    (toWidget self)
    ((Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CInt) -> (StateType -> Int) -> StateType -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. StateType -> Int
forall a. Enum a => a -> Int
fromEnum) StateType
state)
    Ptr ()
forall a. Ptr a
nullPtr

-- %hash c:2c5
-- | Sets the background color for a widget in a particular state. All other
-- style values are left untouched. See also 'widgetModifyStyle'.
--
-- Note that \"no window\" widgets (which have the 'NoWindow' flag set) draw
-- on their parent container's window and thus may not draw any background
-- themselves. This is the case for e.g. 'Label'. To modify the background of
-- such widgets, you have to set the background color on their parent; if you
-- want to set the background of a rectangular area around a label, try placing
-- the label in a 'EventBox' widget and setting the background color on that.
--
widgetModifyBg :: WidgetClass self => self
 -> StateType -- ^ @state@ - the state for which to set the background color.
 -> Color -- ^ @color@ - the color to assign (does not need to be
              -- allocated).
 -> IO ()
widgetModifyBg :: forall self.
WidgetClass self =>
self -> StateType -> Color -> IO ()
widgetModifyBg self
self StateType
state Color
color =
  Color -> (Ptr Color -> IO ()) -> IO ()
forall a b. Storable a => a -> (Ptr a -> IO b) -> IO b
with Color
color ((Ptr Color -> IO ()) -> IO ()) -> (Ptr Color -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Ptr Color
colorPtr ->
  (\(Widget ForeignPtr Widget
arg1) CInt
arg2 Ptr ()
arg3 -> ForeignPtr Widget -> (Ptr Widget -> IO ()) -> IO ()
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr Widget
arg1 ((Ptr Widget -> IO ()) -> IO ()) -> (Ptr Widget -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Ptr Widget
argPtr1 ->Ptr Widget -> CInt -> Ptr () -> IO ()
gtk_widget_modify_bg Ptr Widget
argPtr1 CInt
arg2 Ptr ()
arg3)
{-# LINE 1800 "./Graphics/UI/Gtk/Abstract/Widget.chs" #-}
    (toWidget self)
    ((Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CInt) -> (StateType -> Int) -> StateType -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. StateType -> Int
forall a. Enum a => a -> Int
fromEnum) StateType
state)
    (Ptr Color -> Ptr ()
forall a b. Ptr a -> Ptr b
castPtr Ptr Color
colorPtr)

-- | Restores the background color for a widget in a particular state. This
-- undoes the effects of previous calls to `widgetModifyBg'.
--
widgetRestoreBg :: WidgetClass self => self
 -> StateType -- ^ @state@ - the state for which to restore the background color.
 -> IO ()
widgetRestoreBg :: forall self. WidgetClass self => self -> StateType -> IO ()
widgetRestoreBg self
self StateType
state =
  (\(Widget ForeignPtr Widget
arg1) CInt
arg2 Ptr ()
arg3 -> ForeignPtr Widget -> (Ptr Widget -> IO ()) -> IO ()
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr Widget
arg1 ((Ptr Widget -> IO ()) -> IO ()) -> (Ptr Widget -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Ptr Widget
argPtr1 ->Ptr Widget -> CInt -> Ptr () -> IO ()
gtk_widget_modify_bg Ptr Widget
argPtr1 CInt
arg2 Ptr ()
arg3)
{-# LINE 1812 "./Graphics/UI/Gtk/Abstract/Widget.chs" #-}
    (toWidget self)
    ((Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CInt) -> (StateType -> Int) -> StateType -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. StateType -> Int
forall a. Enum a => a -> Int
fromEnum) StateType
state)
    Ptr ()
forall a. Ptr a
nullPtr

-- %hash c:d2ba
-- | Sets the text color for a widget in a particular state. All other style
-- values are left untouched. The text color is the foreground color used along
-- with the base color (see 'widgetModifyBase') for widgets such as 'Entry' and
-- 'TextView'. See also 'widgetModifyStyle'.
--
widgetModifyText :: WidgetClass self => self
 -> StateType -- ^ @state@ - the state for which to set the text color.
 -> Color -- ^ @color@ - the color to assign (does not need to be
              -- allocated).
 -> IO ()
widgetModifyText :: forall self.
WidgetClass self =>
self -> StateType -> Color -> IO ()
widgetModifyText self
self StateType
state Color
color =
  Color -> (Ptr Color -> IO ()) -> IO ()
forall a b. Storable a => a -> (Ptr a -> IO b) -> IO b
with Color
color ((Ptr Color -> IO ()) -> IO ()) -> (Ptr Color -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Ptr Color
colorPtr ->
  (\(Widget ForeignPtr Widget
arg1) CInt
arg2 Ptr ()
arg3 -> ForeignPtr Widget -> (Ptr Widget -> IO ()) -> IO ()
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr Widget
arg1 ((Ptr Widget -> IO ()) -> IO ()) -> (Ptr Widget -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Ptr Widget
argPtr1 ->Ptr Widget -> CInt -> Ptr () -> IO ()
gtk_widget_modify_text Ptr Widget
argPtr1 CInt
arg2 Ptr ()
arg3)
{-# LINE 1830 "./Graphics/UI/Gtk/Abstract/Widget.chs" #-}
    (toWidget self)
    ((Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CInt) -> (StateType -> Int) -> StateType -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. StateType -> Int
forall a. Enum a => a -> Int
fromEnum) StateType
state)
    (Ptr Color -> Ptr ()
forall a b. Ptr a -> Ptr b
castPtr Ptr Color
colorPtr)

-- | Restores the text color for a widget in a particular state. This
-- undoes the effects of previous calls to `widgetModifyText'.
--
widgetRestoreText :: WidgetClass self => self
 -> StateType -- ^ @state@ - the state for which to restore the text color.
 -> IO ()
widgetRestoreText :: forall self. WidgetClass self => self -> StateType -> IO ()
widgetRestoreText self
self StateType
state =
  (\(Widget ForeignPtr Widget
arg1) CInt
arg2 Ptr ()
arg3 -> ForeignPtr Widget -> (Ptr Widget -> IO ()) -> IO ()
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr Widget
arg1 ((Ptr Widget -> IO ()) -> IO ()) -> (Ptr Widget -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Ptr Widget
argPtr1 ->Ptr Widget -> CInt -> Ptr () -> IO ()
gtk_widget_modify_text Ptr Widget
argPtr1 CInt
arg2 Ptr ()
arg3)
{-# LINE 1842 "./Graphics/UI/Gtk/Abstract/Widget.chs" #-}
    (toWidget self)
    ((Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CInt) -> (StateType -> Int) -> StateType -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. StateType -> Int
forall a. Enum a => a -> Int
fromEnum) StateType
state)
    Ptr ()
forall a. Ptr a
nullPtr

-- %hash c:ac08
-- | Sets the base color for a widget in a particular state. All other style
-- values are left untouched. The base color is the background color used along
-- with the text color (see 'widgetModifyText') for widgets such as 'Entry' and
-- 'TextView'. See also 'widgetModifyStyle'.
--
-- Note that \"no window\" widgets (which have the 'NoWindow' flag set) draw
-- on their parent container's window and thus may not draw any background
-- themselves. This is the case for e.g. 'Label'. To modify the background of
-- such widgets, you have to set the base color on their parent; if you want to
-- set the background of a rectangular area around a label, try placing the
-- label in a 'EventBox' widget and setting the base color on that.
--
widgetModifyBase :: WidgetClass self => self
 -> StateType -- ^ @state@ - the state for which to set the base color.
 -> Color -- ^ @color@ - the color to assign (does not need to be
              -- allocated).
 -> IO ()
widgetModifyBase :: forall self.
WidgetClass self =>
self -> StateType -> Color -> IO ()
widgetModifyBase self
self StateType
state Color
color =
  Color -> (Ptr Color -> IO ()) -> IO ()
forall a b. Storable a => a -> (Ptr a -> IO b) -> IO b
with Color
color ((Ptr Color -> IO ()) -> IO ()) -> (Ptr Color -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Ptr Color
colorPtr ->
  (\(Widget ForeignPtr Widget
arg1) CInt
arg2 Ptr ()
arg3 -> ForeignPtr Widget -> (Ptr Widget -> IO ()) -> IO ()
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr Widget
arg1 ((Ptr Widget -> IO ()) -> IO ()) -> (Ptr Widget -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Ptr Widget
argPtr1 ->Ptr Widget -> CInt -> Ptr () -> IO ()
gtk_widget_modify_base Ptr Widget
argPtr1 CInt
arg2 Ptr ()
arg3)
{-# LINE 1867 "./Graphics/UI/Gtk/Abstract/Widget.chs" #-}
    (toWidget self)
    ((Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CInt) -> (StateType -> Int) -> StateType -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. StateType -> Int
forall a. Enum a => a -> Int
fromEnum) StateType
state)
    (Ptr Color -> Ptr ()
forall a b. Ptr a -> Ptr b
castPtr Ptr Color
colorPtr)

-- | Restores the base color for a widget in a particular state. This undoes
-- the effects of previous calls to widgetModifyBase.
--
widgetRestoreBase :: WidgetClass self => self
 -> StateType -- ^ @state@ - the state for which to restore the base color.
 -> IO ()
widgetRestoreBase :: forall self. WidgetClass self => self -> StateType -> IO ()
widgetRestoreBase self
self StateType
state =
  (\(Widget ForeignPtr Widget
arg1) CInt
arg2 Ptr ()
arg3 -> ForeignPtr Widget -> (Ptr Widget -> IO ()) -> IO ()
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr Widget
arg1 ((Ptr Widget -> IO ()) -> IO ()) -> (Ptr Widget -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Ptr Widget
argPtr1 ->Ptr Widget -> CInt -> Ptr () -> IO ()
gtk_widget_modify_base Ptr Widget
argPtr1 CInt
arg2 Ptr ()
arg3)
{-# LINE 1879 "./Graphics/UI/Gtk/Abstract/Widget.chs" #-}
    (toWidget self)
    ((Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CInt) -> (StateType -> Int) -> StateType -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. StateType -> Int
forall a. Enum a => a -> Int
fromEnum) StateType
state)
    Ptr ()
forall a. Ptr a
nullPtr


-- %hash c:38d7
-- | Sets the font to use for a widget. All other style values are left
-- untouched. See also 'widgetModifyStyle'.
--
widgetModifyFont :: WidgetClass self => self
 -> Maybe FontDescription -- ^ @fontDesc@ - the font description to use, or
                          -- @Nothing@ to undo the effect of previous calls to
                          -- 'widgetModifyFont'.
 -> IO ()
widgetModifyFont :: forall self.
WidgetClass self =>
self -> Maybe FontDescription -> IO ()
widgetModifyFont self
self Maybe FontDescription
fontDesc =
  (\(Widget ForeignPtr Widget
arg1) (FontDescription ForeignPtr FontDescription
arg2) -> ForeignPtr Widget -> (Ptr Widget -> IO ()) -> IO ()
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr Widget
arg1 ((Ptr Widget -> IO ()) -> IO ()) -> (Ptr Widget -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Ptr Widget
argPtr1 ->ForeignPtr FontDescription
-> (Ptr FontDescription -> IO ()) -> IO ()
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr FontDescription
arg2 ((Ptr FontDescription -> IO ()) -> IO ())
-> (Ptr FontDescription -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Ptr FontDescription
argPtr2 ->Ptr Widget -> Ptr FontDescription -> IO ()
gtk_widget_modify_font Ptr Widget
argPtr1 Ptr FontDescription
argPtr2)
{-# LINE 1895 "./Graphics/UI/Gtk/Abstract/Widget.chs" #-}
    (toWidget self)
    (FontDescription -> Maybe FontDescription -> FontDescription
forall a. a -> Maybe a -> a
fromMaybe (ForeignPtr FontDescription -> FontDescription
FontDescription ForeignPtr FontDescription
forall a. ForeignPtr a
nullForeignPtr) Maybe FontDescription
fontDesc)

-- | Creates a new 'PangoContext' with the appropriate colormap, font description,
-- and base direction for drawing text for this widget. See also
-- 'widgetGetPangoContext'.
--
widgetCreatePangoContext :: WidgetClass self => self
 -> IO PangoContext -- ^ returns the new 'PangoContext'
widgetCreatePangoContext :: forall self. WidgetClass self => self -> IO PangoContext
widgetCreatePangoContext self
self =
  (ForeignPtr PangoContext -> PangoContext,
 FinalizerPtr PangoContext)
-> IO (Ptr PangoContext) -> IO PangoContext
forall obj.
GObjectClass obj =>
(ForeignPtr obj -> obj, FinalizerPtr obj) -> IO (Ptr obj) -> IO obj
wrapNewGObject (ForeignPtr PangoContext -> PangoContext,
 FinalizerPtr PangoContext)
forall {a}.
(ForeignPtr PangoContext -> PangoContext, FinalizerPtr a)
mkPangoContext (IO (Ptr PangoContext) -> IO PangoContext)
-> IO (Ptr PangoContext) -> IO PangoContext
forall a b. (a -> b) -> a -> b
$
  (\(Widget ForeignPtr Widget
arg1) -> ForeignPtr Widget
-> (Ptr Widget -> IO (Ptr PangoContext)) -> IO (Ptr PangoContext)
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr Widget
arg1 ((Ptr Widget -> IO (Ptr PangoContext)) -> IO (Ptr PangoContext))
-> (Ptr Widget -> IO (Ptr PangoContext)) -> IO (Ptr PangoContext)
forall a b. (a -> b) -> a -> b
$ \Ptr Widget
argPtr1 ->Ptr Widget -> IO (Ptr PangoContext)
gtk_widget_create_pango_context Ptr Widget
argPtr1)
{-# LINE 1907 "./Graphics/UI/Gtk/Abstract/Widget.chs" #-}
    (toWidget self)

-- | Gets a 'PangoContext' with the appropriate font description and base
-- direction for this widget. Unlike the context returned by
-- 'widgetCreatePangoContext', this context is owned by the widget (it can be
-- used until the screen for the widget changes or the widget is removed from
-- its toplevel), and will be updated to match any changes to the widget's
-- attributes.
--
-- If you create and keep a 'PangoLayout' using this context, you must deal
-- with changes to the context by calling
-- 'layoutContextChanged' on the layout
-- in response to the 'onStyleChanged' and 'onDirectionChanged' signals for the
-- widget.
--
widgetGetPangoContext :: WidgetClass self => self
 -> IO PangoContext -- ^ returns the 'PangoContext' for the widget.
widgetGetPangoContext :: forall self. WidgetClass self => self -> IO PangoContext
widgetGetPangoContext self
self =
  (ForeignPtr PangoContext -> PangoContext,
 FinalizerPtr PangoContext)
-> IO (Ptr PangoContext) -> IO PangoContext
forall obj.
GObjectClass obj =>
(ForeignPtr obj -> obj, FinalizerPtr obj) -> IO (Ptr obj) -> IO obj
makeNewGObject (ForeignPtr PangoContext -> PangoContext,
 FinalizerPtr PangoContext)
forall {a}.
(ForeignPtr PangoContext -> PangoContext, FinalizerPtr a)
mkPangoContext (IO (Ptr PangoContext) -> IO PangoContext)
-> IO (Ptr PangoContext) -> IO PangoContext
forall a b. (a -> b) -> a -> b
$
  (\(Widget ForeignPtr Widget
arg1) -> ForeignPtr Widget
-> (Ptr Widget -> IO (Ptr PangoContext)) -> IO (Ptr PangoContext)
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr Widget
arg1 ((Ptr Widget -> IO (Ptr PangoContext)) -> IO (Ptr PangoContext))
-> (Ptr Widget -> IO (Ptr PangoContext)) -> IO (Ptr PangoContext)
forall a b. (a -> b) -> a -> b
$ \Ptr Widget
argPtr1 ->Ptr Widget -> IO (Ptr PangoContext)
gtk_widget_get_pango_context Ptr Widget
argPtr1)
{-# LINE 1927 "./Graphics/UI/Gtk/Abstract/Widget.chs" #-}
    (toWidget self)

-- | Prepare text for display.
--
-- The 'PangoLayout' represents the rendered text. It can be shown on screen
-- by calling 'drawLayout'.
--
-- The returned 'PangoLayout' shares the same font information ('PangoContext') as this
-- widget. If this information changes, the 'PangoLayout' should change. The
-- following code ensures that the displayed text always reflects the widget's
-- settings:
--
-- > l <- widgetCreateLayout w "My Text."
-- > let update = do
-- > layoutContextChanged l
-- > -- update the Drawables which show this layout
-- > w `onDirectionChanged` update
-- > w `onStyleChanged` update
--
widgetCreateLayout :: (WidgetClass self, GlibString string) => self
 -> string -- ^ @text@ - text to set on the layout
 -> IO PangoLayout
widgetCreateLayout :: forall self string.
(WidgetClass self, GlibString string) =>
self -> string -> IO PangoLayout
widgetCreateLayout self
self string
text = do
  PangoLayoutRaw
pl <- (ForeignPtr PangoLayoutRaw -> PangoLayoutRaw,
 FinalizerPtr PangoLayoutRaw)
-> IO (Ptr PangoLayoutRaw) -> IO PangoLayoutRaw
forall obj.
GObjectClass obj =>
(ForeignPtr obj -> obj, FinalizerPtr obj) -> IO (Ptr obj) -> IO obj
wrapNewGObject (ForeignPtr PangoLayoutRaw -> PangoLayoutRaw,
 FinalizerPtr PangoLayoutRaw)
forall {a}.
(ForeignPtr PangoLayoutRaw -> PangoLayoutRaw, FinalizerPtr a)
mkPangoLayoutRaw (IO (Ptr PangoLayoutRaw) -> IO PangoLayoutRaw)
-> IO (Ptr PangoLayoutRaw) -> IO PangoLayoutRaw
forall a b. (a -> b) -> a -> b
$
    string
-> (CString -> IO (Ptr PangoLayoutRaw)) -> IO (Ptr PangoLayoutRaw)
forall a. string -> (CString -> IO a) -> IO a
forall s a. GlibString s => s -> (CString -> IO a) -> IO a
withUTFString string
text ((CString -> IO (Ptr PangoLayoutRaw)) -> IO (Ptr PangoLayoutRaw))
-> (CString -> IO (Ptr PangoLayoutRaw)) -> IO (Ptr PangoLayoutRaw)
forall a b. (a -> b) -> a -> b
$ \CString
textPtr ->
    (\(Widget ForeignPtr Widget
arg1) CString
arg2 -> ForeignPtr Widget
-> (Ptr Widget -> IO (Ptr PangoLayoutRaw))
-> IO (Ptr PangoLayoutRaw)
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr Widget
arg1 ((Ptr Widget -> IO (Ptr PangoLayoutRaw))
 -> IO (Ptr PangoLayoutRaw))
-> (Ptr Widget -> IO (Ptr PangoLayoutRaw))
-> IO (Ptr PangoLayoutRaw)
forall a b. (a -> b) -> a -> b
$ \Ptr Widget
argPtr1 ->Ptr Widget -> CString -> IO (Ptr PangoLayoutRaw)
gtk_widget_create_pango_layout Ptr Widget
argPtr1 CString
arg2)
{-# LINE 1953 "./Graphics/UI/Gtk/Abstract/Widget.chs" #-}
      (toWidget self)
      CString
textPtr
  PangoString
ps <- string -> IO PangoString
forall string. GlibString string => string -> IO PangoString
makeNewPangoString string
text
  IORef PangoString
psRef <- PangoString -> IO (IORef PangoString)
forall a. a -> IO (IORef a)
newIORef PangoString
ps
  PangoLayout -> IO PangoLayout
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return (IORef PangoString -> PangoLayoutRaw -> PangoLayout
PangoLayout IORef PangoString
psRef PangoLayoutRaw
pl)

-- %hash c:cee d:1d29
-- | A convenience function that uses the theme engine and RC file settings
-- for @widget@ to look up the stock icon and render it to a
-- 'Graphics.UI.Gtk.Gdk.Pixbuf.Pixbuf'.
-- The icon should be one of the stock id constants such as
-- 'Graphics.UI.Gtk.General.StockItems.stockOpen'. @size@ should be a
-- size such as 'Graphics.UI.Gtk.General.IconFactory.IconSizeMenu'.
-- @detail@ should be a string that identifies the
-- widget or code doing the rendering, so that theme engines can special-case
-- rendering for that widget or code.
--
-- The pixels in the returned 'Graphics.UI.Gtk.Gdk.Pixbuf.Pixbuf' are
-- shared with the rest of the
-- application and should not be modified.
--
widgetRenderIcon :: (WidgetClass self, GlibString string) => self
 -> string -- ^ @stockId@ - a stock ID
 -> IconSize -- ^ @size@ - a stock size
 -> string -- ^ @detail@ - render detail to pass to theme engine
 -> IO (Maybe Pixbuf) -- ^ returns a new pixbuf, or @Nothing@ if the stock ID
                      -- wasn't known
widgetRenderIcon :: forall self string.
(WidgetClass self, GlibString string) =>
self -> string -> IconSize -> string -> IO (Maybe Pixbuf)
widgetRenderIcon self
self string
stockId IconSize
size string
detail =
  (IO (Ptr Pixbuf) -> IO Pixbuf)
-> IO (Ptr Pixbuf) -> IO (Maybe Pixbuf)
forall a. (IO (Ptr a) -> IO a) -> IO (Ptr a) -> IO (Maybe a)
maybeNull ((ForeignPtr Pixbuf -> Pixbuf, FinalizerPtr Pixbuf)
-> IO (Ptr Pixbuf) -> IO Pixbuf
forall obj.
GObjectClass obj =>
(ForeignPtr obj -> obj, FinalizerPtr obj) -> IO (Ptr obj) -> IO obj
wrapNewGObject (ForeignPtr Pixbuf -> Pixbuf, FinalizerPtr Pixbuf)
forall {a}. (ForeignPtr Pixbuf -> Pixbuf, FinalizerPtr a)
mkPixbuf) (IO (Ptr Pixbuf) -> IO (Maybe Pixbuf))
-> IO (Ptr Pixbuf) -> IO (Maybe Pixbuf)
forall a b. (a -> b) -> a -> b
$
  string -> (CString -> IO (Ptr Pixbuf)) -> IO (Ptr Pixbuf)
forall a. string -> (CString -> IO a) -> IO a
forall s a. GlibString s => s -> (CString -> IO a) -> IO a
withUTFString string
detail ((CString -> IO (Ptr Pixbuf)) -> IO (Ptr Pixbuf))
-> (CString -> IO (Ptr Pixbuf)) -> IO (Ptr Pixbuf)
forall a b. (a -> b) -> a -> b
$ \CString
detailPtr ->
  string -> (CString -> IO (Ptr Pixbuf)) -> IO (Ptr Pixbuf)
forall a. string -> (CString -> IO a) -> IO a
forall s a. GlibString s => s -> (CString -> IO a) -> IO a
withUTFString string
stockId ((CString -> IO (Ptr Pixbuf)) -> IO (Ptr Pixbuf))
-> (CString -> IO (Ptr Pixbuf)) -> IO (Ptr Pixbuf)
forall a b. (a -> b) -> a -> b
$ \CString
stockIdPtr ->
  (\(Widget ForeignPtr Widget
arg1) CString
arg2 CInt
arg3 CString
arg4 -> ForeignPtr Widget
-> (Ptr Widget -> IO (Ptr Pixbuf)) -> IO (Ptr Pixbuf)
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr Widget
arg1 ((Ptr Widget -> IO (Ptr Pixbuf)) -> IO (Ptr Pixbuf))
-> (Ptr Widget -> IO (Ptr Pixbuf)) -> IO (Ptr Pixbuf)
forall a b. (a -> b) -> a -> b
$ \Ptr Widget
argPtr1 ->Ptr Widget -> CString -> CInt -> CString -> IO (Ptr Pixbuf)
gtk_widget_render_icon Ptr Widget
argPtr1 CString
arg2 CInt
arg3 CString
arg4)
{-# LINE 1985 "./Graphics/UI/Gtk/Abstract/Widget.chs" #-}
    (toWidget self)
    CString
stockIdPtr
    ((Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CInt) -> (IconSize -> Int) -> IconSize -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. IconSize -> Int
forall a. Enum a => a -> Int
fromEnum) IconSize
size)
    CString
detailPtr

-- %hash c:62f d:1863
-- | Invalidates the rectangular area of @widget@ defined by @x@, @y@, @width@
-- and @height@ by calling
-- 'Graphics.UI.Gtk.Gdk.DrawWindow.drawWindowInvalidateRect' on the widget's
-- 'Graphics.UI.Gtk.Gdk.DrawWindow.DrawWindow' and all its child windows. Once
-- the main loop becomes idle (after the current batch of events has been
-- processed, roughly), the window will receive expose events for the union of
-- all regions that have been invalidated.
--
-- Normally you would only use this function in widget implementations. In
-- particular, you might use it, or
-- 'Graphics.UI.Gtk.Gdk.DrawWindow.drawWindowInvalidateRect' directly, to
-- schedule a redraw of a 'Graphics.UI.Gtk.Gdk.DrawWindow.DrawingArea' or some
-- portion thereof.
--
-- Frequently you can just call
-- 'Graphics.UI.Gtk.Gdk.DrawWindow.windowInvalidateRect' or
-- 'Graphics.UI.Gtk.Gdk.DrawWindow.windowInvalidateRegion' instead of this
-- function. Those functions will invalidate only a single window, instead of
-- the widget and all its children.
--
-- The advantage of adding to the invalidated region compared to simply
-- drawing immediately is efficiency; using an invalid region ensures that you
-- only have to redraw one time.
--
widgetQueueDrawArea :: WidgetClass self => self
 -> Int -- ^ @x@ - x coordinate of upper-left corner of rectangle to redraw
 -> Int -- ^ @y@ - y coordinate of upper-left corner of rectangle to redraw
 -> Int -- ^ @width@ - width of region to draw
 -> Int -- ^ @height@ - height of region to draw
 -> IO ()
widgetQueueDrawArea :: forall self.
WidgetClass self =>
self -> Int -> Int -> Int -> Int -> IO ()
widgetQueueDrawArea self
self Int
x Int
y Int
width Int
height =
  (\(Widget ForeignPtr Widget
arg1) CInt
arg2 CInt
arg3 CInt
arg4 CInt
arg5 -> ForeignPtr Widget -> (Ptr Widget -> IO ()) -> IO ()
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr Widget
arg1 ((Ptr Widget -> IO ()) -> IO ()) -> (Ptr Widget -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Ptr Widget
argPtr1 ->Ptr Widget -> CInt -> CInt -> CInt -> CInt -> IO ()
gtk_widget_queue_draw_area Ptr Widget
argPtr1 CInt
arg2 CInt
arg3 CInt
arg4 CInt
arg5)
{-# LINE 2023 "./Graphics/UI/Gtk/Abstract/Widget.chs" #-}
    (toWidget self)
    (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral Int
x)
    (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral Int
y)
    (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral Int
width)
    (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral Int
height)
{-# LINE 2050 "./Graphics/UI/Gtk/Abstract/Widget.chs" #-}
-- %hash c:5ffb d:3e1a
-- | Recursively resets the shape on this widget and its descendants.
--
widgetResetShapes :: WidgetClass self => self -> IO ()
widgetResetShapes :: forall self. WidgetClass self => self -> IO ()
widgetResetShapes self
self =
  (\(Widget ForeignPtr Widget
arg1) -> ForeignPtr Widget -> (Ptr Widget -> IO ()) -> IO ()
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr Widget
arg1 ((Ptr Widget -> IO ()) -> IO ()) -> (Ptr Widget -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Ptr Widget
argPtr1 ->Ptr Widget -> IO ()
gtk_widget_reset_shapes Ptr Widget
argPtr1)
{-# LINE 2056 "./Graphics/UI/Gtk/Abstract/Widget.chs" #-}
    (toWidget self)


-- | Sets whether the application intends to draw on the widget in response
-- to an 'onExpose' signal.
--
-- * This is a hint to the widget and does not affect the behavior of the
-- GTK+ core; many widgets ignore this flag entirely. For widgets that do
-- pay attention to the flag, such as 'EventBox' and 'Window', the effect
-- is to suppress default themed drawing of the widget's background.
-- (Children of the widget will still be drawn.) The application is then
-- entirely responsible for drawing the widget background.
--
widgetSetAppPaintable :: WidgetClass self => self
 -> Bool -- ^ @appPaintable@ - @True@ if the application will paint on the
          -- widget
 -> IO ()
widgetSetAppPaintable :: forall self. WidgetClass self => self -> Bool -> IO ()
widgetSetAppPaintable self
self Bool
appPaintable =
  (\(Widget ForeignPtr Widget
arg1) CInt
arg2 -> ForeignPtr Widget -> (Ptr Widget -> IO ()) -> IO ()
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr Widget
arg1 ((Ptr Widget -> IO ()) -> IO ()) -> (Ptr Widget -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Ptr Widget
argPtr1 ->Ptr Widget -> CInt -> IO ()
gtk_widget_set_app_paintable Ptr Widget
argPtr1 CInt
arg2)
{-# LINE 2075 "./Graphics/UI/Gtk/Abstract/Widget.chs" #-}
    (toWidget self)
    (Bool -> CInt
forall a. Num a => Bool -> a
fromBool Bool
appPaintable)

-- %hash c:89b2 d:e14d
-- | Widgets are double buffered by default; you can use this function to turn
-- off the buffering. \"Double buffered\" simply means that
-- 'Graphics.UI.Gtk.Gdk.DrawWindow.drawWindowBeginPaintRegion' and
-- 'Graphics.UI.Gtk.Gdk.DrawWindow.drawWindowEndPaint' are called automatically
-- around expose events sent to the widget.
-- 'Graphics.UI.Gtk.Gdk.DrawWindow.drawWindowBeginPaintRegion' diverts all
-- drawing to a widget's window to an offscreen buffer, and
-- 'Graphics.UI.Gtk.Gdk.DrawWindow.drawWindowEndPaint'
-- draws the buffer to the screen. The result is that users see the window
-- update in one smooth step, and don't see individual graphics primitives
-- being rendered.
--
-- In very simple terms, double buffered widgets don't flicker, so you would
-- only use this function to turn off double buffering if you had special needs
-- and really knew what you were doing.
--
-- Note: if you turn off double-buffering, you have to handle expose events,
-- since even the clearing to the background color or pixmap will not happen
-- automatically (as it is done in
-- 'Graphics.UI.Gtk.Gdk.DrawWindow.drawWindowBeginPaint').
--
widgetSetDoubleBuffered :: WidgetClass self => self
 -> Bool -- ^ @doubleBuffered@ - @True@ to double-buffer a widget
 -> IO ()
widgetSetDoubleBuffered :: forall self. WidgetClass self => self -> Bool -> IO ()
widgetSetDoubleBuffered self
self Bool
doubleBuffered =
  (\(Widget ForeignPtr Widget
arg1) CInt
arg2 -> ForeignPtr Widget -> (Ptr Widget -> IO ()) -> IO ()
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr Widget
arg1 ((Ptr Widget -> IO ()) -> IO ()) -> (Ptr Widget -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Ptr Widget
argPtr1 ->Ptr Widget -> CInt -> IO ()
gtk_widget_set_double_buffered Ptr Widget
argPtr1 CInt
arg2)
{-# LINE 2105 "./Graphics/UI/Gtk/Abstract/Widget.chs" #-}
    (toWidget self)
    (Bool -> CInt
forall a. Num a => Bool -> a
fromBool Bool
doubleBuffered)

-- %hash c:d61 d:ac24
-- | Sets whether the entire widget is queued for drawing when its size
-- allocation changes. By default, this setting is @True@ and the entire widget
-- is redrawn on every size change. If your widget leaves the upper left
-- unchanged when made bigger, turning this setting on will improve
-- performance.
--
-- Note that for \"no window\" widgets setting this flag to @False@ turns off
-- all allocation on resizing: the widget will not even redraw if its position
-- changes; this is to allow containers that don't draw anything to avoid
-- excess invalidations. If you set this flag on a \"no window\" widget that
-- /does/ draw its window, you are responsible for invalidating both
-- the old and new allocation of the widget when the widget is moved and
-- responsible for invalidating regions newly when the widget increases size.
--
widgetSetRedrawOnAllocate :: WidgetClass self => self
 -> Bool -- ^ @redrawOnAllocate@ - if @True@, the entire widget will be
          -- redrawn when it is allocated to a new size. Otherwise, only the
          -- new portion of the widget will be redrawn.
 -> IO ()
widgetSetRedrawOnAllocate :: forall self. WidgetClass self => self -> Bool -> IO ()
widgetSetRedrawOnAllocate self
self Bool
redrawOnAllocate =
  (\(Widget ForeignPtr Widget
arg1) CInt
arg2 -> ForeignPtr Widget -> (Ptr Widget -> IO ()) -> IO ()
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr Widget
arg1 ((Ptr Widget -> IO ()) -> IO ()) -> (Ptr Widget -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Ptr Widget
argPtr1 ->Ptr Widget -> CInt -> IO ()
gtk_widget_set_redraw_on_allocate Ptr Widget
argPtr1 CInt
arg2)
{-# LINE 2130 "./Graphics/UI/Gtk/Abstract/Widget.chs" #-}
    (toWidget self)
    (Bool -> CInt
forall a. Num a => Bool -> a
fromBool Bool
redrawOnAllocate)

-- | Sets a widgets composite name. A child widget of a container is
-- composite if it serves as an internal widget and, thus, is not
-- added by the user.
--
widgetSetCompositeName :: (WidgetClass self, GlibString string) => self
 -> string -- ^ @name@ - the name to set.
 -> IO ()
widgetSetCompositeName :: forall self string.
(WidgetClass self, GlibString string) =>
self -> string -> IO ()
widgetSetCompositeName self
self string
name =
  string -> (CString -> IO ()) -> IO ()
forall a. string -> (CString -> IO a) -> IO a
forall s a. GlibString s => s -> (CString -> IO a) -> IO a
withUTFString string
name ((CString -> IO ()) -> IO ()) -> (CString -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \CString
namePtr ->
  (\(Widget ForeignPtr Widget
arg1) CString
arg2 -> ForeignPtr Widget -> (Ptr Widget -> IO ()) -> IO ()
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr Widget
arg1 ((Ptr Widget -> IO ()) -> IO ()) -> (Ptr Widget -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Ptr Widget
argPtr1 ->Ptr Widget -> CString -> IO ()
gtk_widget_set_composite_name Ptr Widget
argPtr1 CString
arg2)
{-# LINE 2143 "./Graphics/UI/Gtk/Abstract/Widget.chs" #-}
    (toWidget self)
    CString
namePtr

-- | Emits the “mnemonic-activate” signal.
--
-- The default handler for this signal activates the widget if groupCycling
-- is @False@, and just grabs the focus if @groupCycling@ is @True@.
widgetMnemonicActivate :: WidgetClass self => self
 -> Bool
 -> IO Bool
widgetMnemonicActivate :: forall self. WidgetClass self => self -> Bool -> IO Bool
widgetMnemonicActivate self
self Bool
groupCycling =
  (CInt -> Bool) -> IO CInt -> IO Bool
forall (m :: * -> *) a1 r. Monad m => (a1 -> r) -> m a1 -> m r
liftM CInt -> Bool
forall a. (Eq a, Num a) => a -> Bool
toBool (IO CInt -> IO Bool) -> IO CInt -> IO Bool
forall a b. (a -> b) -> a -> b
$
  (\(Widget ForeignPtr Widget
arg1) CInt
arg2 -> ForeignPtr Widget -> (Ptr Widget -> IO CInt) -> IO CInt
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr Widget
arg1 ((Ptr Widget -> IO CInt) -> IO CInt)
-> (Ptr Widget -> IO CInt) -> IO CInt
forall a b. (a -> b) -> a -> b
$ \Ptr Widget
argPtr1 ->Ptr Widget -> CInt -> IO CInt
gtk_widget_mnemonic_activate Ptr Widget
argPtr1 CInt
arg2)
{-# LINE 2156 "./Graphics/UI/Gtk/Abstract/Widget.chs" #-}
    (toWidget self)
    (Bool -> CInt
forall a. Num a => Bool -> a
fromBool Bool
groupCycling)


-- %hash c:5c58 d:6895
-- | For widgets that support scrolling, sets the scroll adjustments and
-- returns @True@. For widgets that don't support scrolling, does nothing and
-- returns @False@. Widgets that don't support scrolling can be scrolled by
-- placing them in a 'Viewport', which does support scrolling.
--
-- Removed in Gtk3.
widgetSetScrollAdjustments :: WidgetClass self => self
 -> Maybe Adjustment -- ^ @hadjustment@ - an adjustment for horizontal scrolling, or
               -- @Nothing@
 -> Maybe Adjustment -- ^ @vadjustment@ - an adjustment for vertical scrolling, or
               -- @Nothing@
 -> IO Bool -- ^ returns @True@ if the widget supports scrolling
widgetSetScrollAdjustments :: forall self.
WidgetClass self =>
self -> Maybe Adjustment -> Maybe Adjustment -> IO Bool
widgetSetScrollAdjustments self
self Maybe Adjustment
hadjustment Maybe Adjustment
vadjustment =
  (CInt -> Bool) -> IO CInt -> IO Bool
forall (m :: * -> *) a1 r. Monad m => (a1 -> r) -> m a1 -> m r
liftM CInt -> Bool
forall a. (Eq a, Num a) => a -> Bool
toBool (IO CInt -> IO Bool) -> IO CInt -> IO Bool
forall a b. (a -> b) -> a -> b
$
  (\(Widget ForeignPtr Widget
arg1) (Adjustment ForeignPtr Adjustment
arg2) (Adjustment ForeignPtr Adjustment
arg3) -> ForeignPtr Widget -> (Ptr Widget -> IO CInt) -> IO CInt
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr Widget
arg1 ((Ptr Widget -> IO CInt) -> IO CInt)
-> (Ptr Widget -> IO CInt) -> IO CInt
forall a b. (a -> b) -> a -> b
$ \Ptr Widget
argPtr1 ->ForeignPtr Adjustment -> (Ptr Adjustment -> IO CInt) -> IO CInt
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr Adjustment
arg2 ((Ptr Adjustment -> IO CInt) -> IO CInt)
-> (Ptr Adjustment -> IO CInt) -> IO CInt
forall a b. (a -> b) -> a -> b
$ \Ptr Adjustment
argPtr2 ->ForeignPtr Adjustment -> (Ptr Adjustment -> IO CInt) -> IO CInt
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr Adjustment
arg3 ((Ptr Adjustment -> IO CInt) -> IO CInt)
-> (Ptr Adjustment -> IO CInt) -> IO CInt
forall a b. (a -> b) -> a -> b
$ \Ptr Adjustment
argPtr3 ->Ptr Widget -> Ptr Adjustment -> Ptr Adjustment -> IO CInt
gtk_widget_set_scroll_adjustments Ptr Widget
argPtr1 Ptr Adjustment
argPtr2 Ptr Adjustment
argPtr3)
{-# LINE 2176 "./Graphics/UI/Gtk/Abstract/Widget.chs" #-}
    (toWidget self)
    (Adjustment -> Maybe Adjustment -> Adjustment
forall a. a -> Maybe a -> a
fromMaybe (ForeignPtr Adjustment -> Adjustment
Adjustment ForeignPtr Adjustment
forall a. ForeignPtr a
nullForeignPtr) Maybe Adjustment
hadjustment)
    (Adjustment -> Maybe Adjustment -> Adjustment
forall a. a -> Maybe a -> a
fromMaybe (ForeignPtr Adjustment -> Adjustment
Adjustment ForeignPtr Adjustment
forall a. ForeignPtr a
nullForeignPtr) Maybe Adjustment
vadjustment)




-- | Computes the intersection of a widget's area and @region@, returning
-- the intersection. The result may be empty, use
-- 'Graphics.UI.Gtk.Gdk.Region.regionEmpty' to check.
--
widgetRegionIntersect :: WidgetClass self => self
 -> Region -- ^ @region@ - a 'Region' in the same coordinate system as the
              -- widget's allocation. That is, relative to the widget's
              -- 'DrawWindow' for 'NoWindow' widgets; relative to the parent
              -- 'DrawWindow' of the widget's 'DrawWindow' for widgets with
              -- their own 'DrawWindow'.
 -> IO Region -- ^ returns A region holding the intersection of the widget and
              -- @region@. The coordinates of the return value are relative to
              -- the widget's 'DrawWindow', if it has one, otherwise
              -- it is relative to the parent's 'DrawWindow'.
widgetRegionIntersect :: forall self. WidgetClass self => self -> Region -> IO Region
widgetRegionIntersect self
self Region
region = do
  Ptr Region
intersectionPtr <- (\(Widget ForeignPtr Widget
arg1) (Region ForeignPtr Region
arg2) -> ForeignPtr Widget
-> (Ptr Widget -> IO (Ptr Region)) -> IO (Ptr Region)
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr Widget
arg1 ((Ptr Widget -> IO (Ptr Region)) -> IO (Ptr Region))
-> (Ptr Widget -> IO (Ptr Region)) -> IO (Ptr Region)
forall a b. (a -> b) -> a -> b
$ \Ptr Widget
argPtr1 ->ForeignPtr Region
-> (Ptr Region -> IO (Ptr Region)) -> IO (Ptr Region)
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr Region
arg2 ((Ptr Region -> IO (Ptr Region)) -> IO (Ptr Region))
-> (Ptr Region -> IO (Ptr Region)) -> IO (Ptr Region)
forall a b. (a -> b) -> a -> b
$ \Ptr Region
argPtr2 ->Ptr Widget -> Ptr Region -> IO (Ptr Region)
gtk_widget_region_intersect Ptr Widget
argPtr1 Ptr Region
argPtr2)
{-# LINE 2199 "./Graphics/UI/Gtk/Abstract/Widget.chs" #-}
    (toWidget self)
    Region
region
  Ptr Region -> IO Region
makeNewRegion Ptr Region
intersectionPtr


-- %hash c:3c94 d:cdb6
-- | Returns the accessible object that describes the widget to an assistive
-- technology.
--
-- If no accessibility library is loaded (i.e. no ATK implementation library
-- is loaded via GTK_MODULES or via another application library, such as
-- libgnome), then this 'Object' instance may be a no-op. Likewise, if no
-- class-specific 'Object' implementation is available for the widget instance
-- in question, it will inherit an 'Object' implementation from the first
-- ancestor class for which such an implementation is defined.
--
-- The documentation of the ATK library contains more information about
-- accessible objects and their uses.
--
-- Returns a GObject in Gtk3.
widgetGetAccessible :: WidgetClass self => self

 -> IO Object -- ^ returns the 'Object' associated with @widget@



widgetGetAccessible :: forall self. WidgetClass self => self -> IO Object
widgetGetAccessible self
self =

  (ForeignPtr Object -> Object, FinalizerPtr Object)
-> IO (Ptr Object) -> IO Object
forall obj.
GObjectClass obj =>
(ForeignPtr obj -> obj, FinalizerPtr obj) -> IO (Ptr obj) -> IO obj
makeNewGObject (ForeignPtr Object -> Object, FinalizerPtr Object)
forall {a}. (ForeignPtr Object -> Object, FinalizerPtr a)
mkObject (IO (Ptr Object) -> IO Object) -> IO (Ptr Object) -> IO Object
forall a b. (a -> b) -> a -> b
$



  (Ptr AtkObject -> Ptr Object)
-> IO (Ptr AtkObject) -> IO (Ptr Object)
forall (m :: * -> *) a1 r. Monad m => (a1 -> r) -> m a1 -> m r
liftM Ptr AtkObject -> Ptr Object
forall a b. Ptr a -> Ptr b
castPtr (IO (Ptr AtkObject) -> IO (Ptr Object))
-> IO (Ptr AtkObject) -> IO (Ptr Object)
forall a b. (a -> b) -> a -> b
$
  (\(Widget ForeignPtr Widget
arg1) -> ForeignPtr Widget
-> (Ptr Widget -> IO (Ptr AtkObject)) -> IO (Ptr AtkObject)
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr Widget
arg1 ((Ptr Widget -> IO (Ptr AtkObject)) -> IO (Ptr AtkObject))
-> (Ptr Widget -> IO (Ptr AtkObject)) -> IO (Ptr AtkObject)
forall a b. (a -> b) -> a -> b
$ \Ptr Widget
argPtr1 ->Ptr Widget -> IO (Ptr AtkObject)
gtk_widget_get_accessible Ptr Widget
argPtr1)
{-# LINE 2233 "./Graphics/UI/Gtk/Abstract/Widget.chs" #-}
    (toWidget self)

-- %hash c:713d d:c4fc
-- | This function is used by custom widget implementations; if you\'re
-- writing an app, you\'d use 'widgetGrabFocus' to move the focus to a
-- particular widget, and 'containerSetFocusChain' to change the focus tab
-- order. So you may want to investigate those functions instead.
--
-- The \"focus\" default handler for a widget should return @True@ if moving
-- in @direction@ left the focus on a focusable location inside that widget,
-- and @False@ if moving in @direction@ moved the focus outside the widget. If
-- returning @True@, widgets normally call 'widgetGrabFocus' to place the focus
-- accordingly; if returning @False@, they don't modify the current focus
-- location.
--
widgetChildFocus :: WidgetClass self => self
 -> DirectionType -- ^ @direction@ - direction of focus movement
 -> IO Bool -- ^ returns @True@ if focus ended up inside @widget@
widgetChildFocus :: forall self. WidgetClass self => self -> DirectionType -> IO Bool
widgetChildFocus self
self DirectionType
direction =
  (CInt -> Bool) -> IO CInt -> IO Bool
forall (m :: * -> *) a1 r. Monad m => (a1 -> r) -> m a1 -> m r
liftM CInt -> Bool
forall a. (Eq a, Num a) => a -> Bool
toBool (IO CInt -> IO Bool) -> IO CInt -> IO Bool
forall a b. (a -> b) -> a -> b
$
  (\(Widget ForeignPtr Widget
arg1) CInt
arg2 -> ForeignPtr Widget -> (Ptr Widget -> IO CInt) -> IO CInt
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr Widget
arg1 ((Ptr Widget -> IO CInt) -> IO CInt)
-> (Ptr Widget -> IO CInt) -> IO CInt
forall a b. (a -> b) -> a -> b
$ \Ptr Widget
argPtr1 ->Ptr Widget -> CInt -> IO CInt
gtk_widget_child_focus Ptr Widget
argPtr1 CInt
arg2)
{-# LINE 2254 "./Graphics/UI/Gtk/Abstract/Widget.chs" #-}
    (toWidget self)
    ((Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CInt) -> (DirectionType -> Int) -> DirectionType -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. DirectionType -> Int
forall a. Enum a => a -> Int
fromEnum) DirectionType
direction)

-- %hash c:de20 d:5300
-- | Gets the value set with 'widgetSetChildVisible'. If you feel a need to
-- use this function, your code probably needs reorganization.
--
-- This function is only useful for container implementations and never
-- should be called by an application.
--
widgetGetChildVisible :: WidgetClass self => self
 -> IO Bool -- ^ returns @True@ if the widget is mapped with the parent.
widgetGetChildVisible :: forall self. WidgetClass self => self -> IO Bool
widgetGetChildVisible self
self =
  (CInt -> Bool) -> IO CInt -> IO Bool
forall (m :: * -> *) a1 r. Monad m => (a1 -> r) -> m a1 -> m r
liftM CInt -> Bool
forall a. (Eq a, Num a) => a -> Bool
toBool (IO CInt -> IO Bool) -> IO CInt -> IO Bool
forall a b. (a -> b) -> a -> b
$
  (\(Widget ForeignPtr Widget
arg1) -> ForeignPtr Widget -> (Ptr Widget -> IO CInt) -> IO CInt
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr Widget
arg1 ((Ptr Widget -> IO CInt) -> IO CInt)
-> (Ptr Widget -> IO CInt) -> IO CInt
forall a b. (a -> b) -> a -> b
$ \Ptr Widget
argPtr1 ->Ptr Widget -> IO CInt
gtk_widget_get_child_visible Ptr Widget
argPtr1)
{-# LINE 2269 "./Graphics/UI/Gtk/Abstract/Widget.chs" #-}
    (toWidget self)

-- %hash c:9320 d:367
-- | Returns the parent container of @widget@.
--
-- * Returns the parent container of @widget@ if it has one.
--
widgetGetParent :: WidgetClass self => self
 -> IO (Maybe Widget)
widgetGetParent :: forall self. WidgetClass self => self -> IO (Maybe Widget)
widgetGetParent self
self = do
  Ptr Widget
parentPtr <- (\(Widget ForeignPtr Widget
arg1) -> ForeignPtr Widget
-> (Ptr Widget -> IO (Ptr Widget)) -> IO (Ptr Widget)
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr Widget
arg1 ((Ptr Widget -> IO (Ptr Widget)) -> IO (Ptr Widget))
-> (Ptr Widget -> IO (Ptr Widget)) -> IO (Ptr Widget)
forall a b. (a -> b) -> a -> b
$ \Ptr Widget
argPtr1 ->Ptr Widget -> IO (Ptr Widget)
gtk_widget_get_parent Ptr Widget
argPtr1) (self -> Widget
forall o. WidgetClass o => o -> Widget
toWidget self
self)
  if Ptr Widget
parentPtrPtr Widget -> Ptr Widget -> Bool
forall a. Eq a => a -> a -> Bool
==Ptr Widget
forall a. Ptr a
nullPtr then Maybe Widget -> IO (Maybe Widget)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe Widget
forall a. Maybe a
Nothing else
    (Widget -> Maybe Widget) -> IO Widget -> IO (Maybe Widget)
forall (m :: * -> *) a1 r. Monad m => (a1 -> r) -> m a1 -> m r
liftM Widget -> Maybe Widget
forall a. a -> Maybe a
Just (IO Widget -> IO (Maybe Widget)) -> IO Widget -> IO (Maybe Widget)
forall a b. (a -> b) -> a -> b
$ (ForeignPtr Widget -> Widget, FinalizerPtr Widget)
-> IO (Ptr Widget) -> IO Widget
forall obj.
ObjectClass obj =>
(ForeignPtr obj -> obj, FinalizerPtr obj) -> IO (Ptr obj) -> IO obj
makeNewObject (ForeignPtr Widget -> Widget, FinalizerPtr Widget)
forall {a}. (ForeignPtr Widget -> Widget, FinalizerPtr a)
mkWidget (Ptr Widget -> IO (Ptr Widget)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Widget
parentPtr)

-- %hash c:85e3 d:a962
-- | Gets the settings object holding the settings (global property settings,
-- RC file information, etc) used for this widget.
--
-- Note that this function can only be called when the 'Widget' is attached
-- to a toplevel, since the settings object is specific to a particular
-- 'Screen'.
--
widgetGetSettings :: WidgetClass self => self
 -> IO Settings -- ^ returns the relevant 'Settings' object
widgetGetSettings :: forall self. WidgetClass self => self -> IO Settings
widgetGetSettings self
self =
  (ForeignPtr Settings -> Settings, FinalizerPtr Settings)
-> IO (Ptr Settings) -> IO Settings
forall obj.
GObjectClass obj =>
(ForeignPtr obj -> obj, FinalizerPtr obj) -> IO (Ptr obj) -> IO obj
makeNewGObject (ForeignPtr Settings -> Settings, FinalizerPtr Settings)
forall {a}. (ForeignPtr Settings -> Settings, FinalizerPtr a)
mkSettings (IO (Ptr Settings) -> IO Settings)
-> IO (Ptr Settings) -> IO Settings
forall a b. (a -> b) -> a -> b
$
  (\(Widget ForeignPtr Widget
arg1) -> ForeignPtr Widget
-> (Ptr Widget -> IO (Ptr Settings)) -> IO (Ptr Settings)
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr Widget
arg1 ((Ptr Widget -> IO (Ptr Settings)) -> IO (Ptr Settings))
-> (Ptr Widget -> IO (Ptr Settings)) -> IO (Ptr Settings)
forall a b. (a -> b) -> a -> b
$ \Ptr Widget
argPtr1 ->Ptr Widget -> IO (Ptr Settings)
gtk_widget_get_settings Ptr Widget
argPtr1)
{-# LINE 2296 "./Graphics/UI/Gtk/Abstract/Widget.chs" #-}
    (toWidget self)



-- | Returns the clipboard object for the given selection to
-- be used with widget. widget must have a 'Display'
-- associated with it, so must be attached to a toplevel
-- window.
widgetGetClipboard :: WidgetClass self => self
                   -> SelectionTag -- ^ @selection@ a 'Atom' which identifies the clipboard
                                       -- to use. 'selectionClipboard' gives the
                                       -- default clipboard. Another common value
                                       -- is 'selectionPrimary', which gives
                                       -- the primary X selection.
                   -> IO Clipboard -- ^ returns the appropriate clipboard object. If no
                                   -- clipboard already exists, a new one will
                                   -- be created.
widgetGetClipboard :: forall self.
WidgetClass self =>
self -> SelectionTag -> IO Clipboard
widgetGetClipboard self
self (Atom Ptr ()
tagPtr) =
  (ForeignPtr Clipboard -> Clipboard, FinalizerPtr Clipboard)
-> IO (Ptr Clipboard) -> IO Clipboard
forall obj.
GObjectClass obj =>
(ForeignPtr obj -> obj, FinalizerPtr obj) -> IO (Ptr obj) -> IO obj
makeNewGObject (ForeignPtr Clipboard -> Clipboard, FinalizerPtr Clipboard)
forall {a}. (ForeignPtr Clipboard -> Clipboard, FinalizerPtr a)
mkClipboard (IO (Ptr Clipboard) -> IO Clipboard)
-> IO (Ptr Clipboard) -> IO Clipboard
forall a b. (a -> b) -> a -> b
$
  (\(Widget ForeignPtr Widget
arg1) Ptr ()
arg2 -> ForeignPtr Widget
-> (Ptr Widget -> IO (Ptr Clipboard)) -> IO (Ptr Clipboard)
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr Widget
arg1 ((Ptr Widget -> IO (Ptr Clipboard)) -> IO (Ptr Clipboard))
-> (Ptr Widget -> IO (Ptr Clipboard)) -> IO (Ptr Clipboard)
forall a b. (a -> b) -> a -> b
$ \Ptr Widget
argPtr1 ->Ptr Widget -> Ptr () -> IO (Ptr Clipboard)
gtk_widget_get_clipboard Ptr Widget
argPtr1 Ptr ()
arg2)
{-# LINE 2316 "./Graphics/UI/Gtk/Abstract/Widget.chs" #-}
    (toWidget self)
    Ptr ()
tagPtr

-- %hash c:45ed d:52ef
-- | Get the 'Display' for the toplevel window associated with this widget.
-- This function can only be called after the widget has been added to a widget
-- hierarchy with a 'Window' at the top.
--
-- In general, you should only create display specific resources when a
-- widget has been realized, and you should free those resources when the
-- widget is unrealized.
--
-- * Available since Gtk+ version 2.2
--
widgetGetDisplay :: WidgetClass self => self
 -> IO Display -- ^ returns the 'Display' for the toplevel for this widget.
widgetGetDisplay :: forall self. WidgetClass self => self -> IO Display
widgetGetDisplay self
self =
  (ForeignPtr Display -> Display, FinalizerPtr Display)
-> IO (Ptr Display) -> IO Display
forall obj.
GObjectClass obj =>
(ForeignPtr obj -> obj, FinalizerPtr obj) -> IO (Ptr obj) -> IO obj
makeNewGObject (ForeignPtr Display -> Display, FinalizerPtr Display)
forall {a}. (ForeignPtr Display -> Display, FinalizerPtr a)
mkDisplay (IO (Ptr Display) -> IO Display) -> IO (Ptr Display) -> IO Display
forall a b. (a -> b) -> a -> b
$
  (\(Widget ForeignPtr Widget
arg1) -> ForeignPtr Widget
-> (Ptr Widget -> IO (Ptr Display)) -> IO (Ptr Display)
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr Widget
arg1 ((Ptr Widget -> IO (Ptr Display)) -> IO (Ptr Display))
-> (Ptr Widget -> IO (Ptr Display)) -> IO (Ptr Display)
forall a b. (a -> b) -> a -> b
$ \Ptr Widget
argPtr1 ->Ptr Widget -> IO (Ptr Display)
gtk_widget_get_display Ptr Widget
argPtr1)
{-# LINE 2335 "./Graphics/UI/Gtk/Abstract/Widget.chs" #-}
    (toWidget self)

-- %hash c:8e4e d:252b
-- | Get the root window where this widget is located. This function can only
-- be called after the widget has been added to a widget hierarchy with
-- 'Window' at the top.
--
-- The root window is useful for such purposes as creating a popup
-- 'DrawWindow' associated with the window. In general, you should only create
-- display specific resources when a widget has been realized, and you should
-- free those resources when the widget is unrealized.
--
-- * Available since Gtk+ version 2.2
--
widgetGetRootWindow :: WidgetClass self => self
 -> IO DrawWindow -- ^ returns the 'DrawWindow' root window for the toplevel
                  -- for this widget.
widgetGetRootWindow :: forall self. WidgetClass self => self -> IO DrawWindow
widgetGetRootWindow self
self =
  (ForeignPtr DrawWindow -> DrawWindow, FinalizerPtr DrawWindow)
-> IO (Ptr DrawWindow) -> IO DrawWindow
forall obj.
GObjectClass obj =>
(ForeignPtr obj -> obj, FinalizerPtr obj) -> IO (Ptr obj) -> IO obj
makeNewGObject (ForeignPtr DrawWindow -> DrawWindow, FinalizerPtr DrawWindow)
forall {a}. (ForeignPtr DrawWindow -> DrawWindow, FinalizerPtr a)
mkDrawWindow (IO (Ptr DrawWindow) -> IO DrawWindow)
-> IO (Ptr DrawWindow) -> IO DrawWindow
forall a b. (a -> b) -> a -> b
$
  (\(Widget ForeignPtr Widget
arg1) -> ForeignPtr Widget
-> (Ptr Widget -> IO (Ptr DrawWindow)) -> IO (Ptr DrawWindow)
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr Widget
arg1 ((Ptr Widget -> IO (Ptr DrawWindow)) -> IO (Ptr DrawWindow))
-> (Ptr Widget -> IO (Ptr DrawWindow)) -> IO (Ptr DrawWindow)
forall a b. (a -> b) -> a -> b
$ \Ptr Widget
argPtr1 ->Ptr Widget -> IO (Ptr DrawWindow)
gtk_widget_get_root_window Ptr Widget
argPtr1)
{-# LINE 2355 "./Graphics/UI/Gtk/Abstract/Widget.chs" #-}
    (toWidget self)

-- %hash c:b929 d:67f0
-- | Get the 'Screen' from the toplevel window associated with this widget.
-- This function can only be called after the widget has been added to a widget
-- hierarchy with a 'Window' at the top.
--
-- In general, you should only create screen specific resources when a
-- widget has been realized, and you should free those resources when the
-- widget is unrealized.
--
-- * Available since Gtk+ version 2.2
--
widgetGetScreen :: WidgetClass self => self
 -> IO Screen -- ^ returns the 'Screen' for the toplevel for this widget.
widgetGetScreen :: forall self. WidgetClass self => self -> IO Screen
widgetGetScreen self
self =
  (ForeignPtr Screen -> Screen, FinalizerPtr Screen)
-> IO (Ptr Screen) -> IO Screen
forall obj.
GObjectClass obj =>
(ForeignPtr obj -> obj, FinalizerPtr obj) -> IO (Ptr obj) -> IO obj
makeNewGObject (ForeignPtr Screen -> Screen, FinalizerPtr Screen)
forall {a}. (ForeignPtr Screen -> Screen, FinalizerPtr a)
mkScreen (IO (Ptr Screen) -> IO Screen) -> IO (Ptr Screen) -> IO Screen
forall a b. (a -> b) -> a -> b
$
  (\(Widget ForeignPtr Widget
arg1) -> ForeignPtr Widget
-> (Ptr Widget -> IO (Ptr Screen)) -> IO (Ptr Screen)
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr Widget
arg1 ((Ptr Widget -> IO (Ptr Screen)) -> IO (Ptr Screen))
-> (Ptr Widget -> IO (Ptr Screen)) -> IO (Ptr Screen)
forall a b. (a -> b) -> a -> b
$ \Ptr Widget
argPtr1 ->Ptr Widget -> IO (Ptr Screen)
gtk_widget_get_screen Ptr Widget
argPtr1)
{-# LINE 2373 "./Graphics/UI/Gtk/Abstract/Widget.chs" #-}
    (toWidget self)

-- %hash c:4fab d:aae2
-- | Checks whether there is a 'Screen' is associated with this widget. All
-- toplevel widgets have an associated screen, and all widgets added into a
-- hierarchy with a toplevel window at the top.
--
-- * Available since Gtk+ version 2.2
--
widgetHasScreen :: WidgetClass self => self
 -> IO Bool -- ^ returns @True@ if there is a 'Screen' associated with the
            -- widget.
widgetHasScreen :: forall self. WidgetClass self => self -> IO Bool
widgetHasScreen self
self =
  (CInt -> Bool) -> IO CInt -> IO Bool
forall (m :: * -> *) a1 r. Monad m => (a1 -> r) -> m a1 -> m r
liftM CInt -> Bool
forall a. (Eq a, Num a) => a -> Bool
toBool (IO CInt -> IO Bool) -> IO CInt -> IO Bool
forall a b. (a -> b) -> a -> b
$
  (\(Widget ForeignPtr Widget
arg1) -> ForeignPtr Widget -> (Ptr Widget -> IO CInt) -> IO CInt
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr Widget
arg1 ((Ptr Widget -> IO CInt) -> IO CInt)
-> (Ptr Widget -> IO CInt) -> IO CInt
forall a b. (a -> b) -> a -> b
$ \Ptr Widget
argPtr1 ->Ptr Widget -> IO CInt
gtk_widget_has_screen Ptr Widget
argPtr1)
{-# LINE 2388 "./Graphics/UI/Gtk/Abstract/Widget.chs" #-}
    (toWidget self)


-- %hash c:dabc d:8275
-- | Gets the size request that was explicitly set for the widget using
-- 'widgetSetSizeRequest'. A value of -1 for @width@ or @height@
-- indicates that that dimension has not been set explicitly and the natural
-- requisition of the widget will be used instead. See 'widgetSetSizeRequest'.
-- To get the size a widget will actually use, call 'widgetSizeRequest' instead
-- of this function.
--
widgetGetSizeRequest :: WidgetClass self => self
 -> IO (Int, Int) -- ^ @(width, height)@
widgetGetSizeRequest :: forall self. WidgetClass self => self -> IO (Int, Int)
widgetGetSizeRequest self
self =
  (Ptr CInt -> IO (Int, Int)) -> IO (Int, Int)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr CInt -> IO (Int, Int)) -> IO (Int, Int))
-> (Ptr CInt -> IO (Int, Int)) -> IO (Int, Int)
forall a b. (a -> b) -> a -> b
$ \Ptr CInt
widthPtr ->
  (Ptr CInt -> IO (Int, Int)) -> IO (Int, Int)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr CInt -> IO (Int, Int)) -> IO (Int, Int))
-> (Ptr CInt -> IO (Int, Int)) -> IO (Int, Int)
forall a b. (a -> b) -> a -> b
$ \Ptr CInt
heightPtr -> do
  (\(Widget ForeignPtr Widget
arg1) Ptr CInt
arg2 Ptr CInt
arg3 -> ForeignPtr Widget -> (Ptr Widget -> IO ()) -> IO ()
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr Widget
arg1 ((Ptr Widget -> IO ()) -> IO ()) -> (Ptr Widget -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Ptr Widget
argPtr1 ->Ptr Widget -> Ptr CInt -> Ptr CInt -> IO ()
gtk_widget_get_size_request Ptr Widget
argPtr1 Ptr CInt
arg2 Ptr CInt
arg3)
{-# LINE 2405 "./Graphics/UI/Gtk/Abstract/Widget.chs" #-}
    (toWidget self)
    Ptr CInt
widthPtr
    Ptr CInt
heightPtr
  CInt
width <- Ptr CInt -> IO CInt
forall a. Storable a => Ptr a -> IO a
peek Ptr CInt
widthPtr
  CInt
height <- Ptr CInt -> IO CInt
forall a. Storable a => Ptr a -> IO a
peek Ptr CInt
heightPtr
  (Int, Int) -> IO (Int, Int)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return (CInt -> Int
forall a b. (Integral a, Num b) => a -> b
fromIntegral CInt
width, CInt -> Int
forall a b. (Integral a, Num b) => a -> b
fromIntegral CInt
height)
{-# LINE 2443 "./Graphics/UI/Gtk/Abstract/Widget.chs" #-}
-- %hash c:546d d:3c7f
-- | Sets whether @widget@ should be mapped along with its when its parent is
-- mapped and @widget@ has been shown with 'widgetShow'.
--
-- The child visibility can be set for widget before it is added to a
-- container with 'widgetSetParent', to avoid mapping children unnecessary
-- before immediately unmapping them. However it will be reset to its default
-- state of @True@ when the widget is removed from a container.
--
-- Note that changing the child visibility of a widget does not queue a
-- resize on the widget. Most of the time, the size of a widget is computed
-- from all visible children, whether or not they are mapped. If this is not
-- the case, the container can queue a resize itself.
--
-- This function is only useful for container implementations and never
-- should be called by an application.
--
widgetSetChildVisible :: WidgetClass self => self
 -> Bool -- ^ @isVisible@ - if @True@, @widget@ should be mapped along with
         -- its parent.
 -> IO ()
widgetSetChildVisible :: forall self. WidgetClass self => self -> Bool -> IO ()
widgetSetChildVisible self
self Bool
isVisible =
  (\(Widget ForeignPtr Widget
arg1) CInt
arg2 -> ForeignPtr Widget -> (Ptr Widget -> IO ()) -> IO ()
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr Widget
arg1 ((Ptr Widget -> IO ()) -> IO ()) -> (Ptr Widget -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Ptr Widget
argPtr1 ->Ptr Widget -> CInt -> IO ()
gtk_widget_set_child_visible Ptr Widget
argPtr1 CInt
arg2)
{-# LINE 2466 "./Graphics/UI/Gtk/Abstract/Widget.chs" #-}
    (toWidget self)
    (Bool -> CInt
forall a. Num a => Bool -> a
fromBool Bool
isVisible)

-- | Sets the minimum size of a widget; that is, the widget's size request
-- will be @width@ by @height@. You can use this function to force a widget to
-- be either larger or smaller than it normally would be.
--
-- In most cases, 'Graphics.UI.Gtk.Windows.Window.windowSetDefaultSize'
-- is a better choice for toplevel
-- windows than this function; setting the default size will still allow users
-- to shrink the window. Setting the size request will force them to leave the
-- window at least as large as the size request. When dealing with window
-- sizes, 'Graphics.UI.Gtk.Windows.Window.windowSetGeometryHints' can be a
-- useful function as well.
--
-- Note the inherent danger of setting any fixed size - themes, translations
-- into other languages, different fonts, and user action can all change the
-- appropriate size for a given widget. So, it's basically impossible to
-- hardcode a size that will always be correct.
--
-- The size request of a widget is the smallest size a widget can accept
-- while still functioning well and drawing itself correctly. However in some
-- strange cases a widget may be allocated less than its requested size, and in
-- many cases a widget may be allocated more space than it requested.
--
-- If the size request in a given direction is -1 (unset), then the
-- \"natural\" size request of the widget will be used instead.
--
-- Widgets can't actually be allocated a size less than 1 by 1, but you can
-- pass 0,0 to this function to mean \"as small as possible.\"
--
widgetSetSizeRequest :: WidgetClass self => self
 -> Int -- ^ @width@ - width @widget@ should request, or -1 to unset
 -> Int -- ^ @height@ - height @widget@ should request, or -1 to unset
 -> IO ()
widgetSetSizeRequest :: forall self. WidgetClass self => self -> Int -> Int -> IO ()
widgetSetSizeRequest self
self Int
width Int
height =
  (\(Widget ForeignPtr Widget
arg1) CInt
arg2 CInt
arg3 -> ForeignPtr Widget -> (Ptr Widget -> IO ()) -> IO ()
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr Widget
arg1 ((Ptr Widget -> IO ()) -> IO ()) -> (Ptr Widget -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Ptr Widget
argPtr1 ->Ptr Widget -> CInt -> CInt -> IO ()
gtk_widget_set_size_request Ptr Widget
argPtr1 CInt
arg2 CInt
arg3)
{-# LINE 2503 "./Graphics/UI/Gtk/Abstract/Widget.chs" #-}
    (toWidget self)
    (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral Int
width)
    (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral Int
height)


-- %hash c:83c3 d:e6f1
-- | Sets the 'noShowAll' property, which determines whether calls to
-- 'widgetShowAll' and 'widgetHideAll' will affect this widget.
--
-- This is mostly for use in constructing widget hierarchies with externally
-- controlled visibility, see 'UIManager'.
--
-- * Available since Gtk+ version 2.4
--
widgetSetNoShowAll :: WidgetClass self => self
 -> Bool -- ^ @noShowAll@ - the new value for the 'noShowAll' property
 -> IO ()
widgetSetNoShowAll :: forall self. WidgetClass self => self -> Bool -> IO ()
widgetSetNoShowAll self
self Bool
noShowAll =
  (\(Widget ForeignPtr Widget
arg1) CInt
arg2 -> ForeignPtr Widget -> (Ptr Widget -> IO ()) -> IO ()
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr Widget
arg1 ((Ptr Widget -> IO ()) -> IO ()) -> (Ptr Widget -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Ptr Widget
argPtr1 ->Ptr Widget -> CInt -> IO ()
gtk_widget_set_no_show_all Ptr Widget
argPtr1 CInt
arg2)
{-# LINE 2522 "./Graphics/UI/Gtk/Abstract/Widget.chs" #-}
    (toWidget self)
    (Bool -> CInt
forall a. Num a => Bool -> a
fromBool Bool
noShowAll)

-- %hash c:218d d:e07e
-- | Returns the current value of the 'noShowAll' property, which
-- determines whether calls to 'widgetShowAll' and 'widgetHideAll' will affect
-- this widget.
--
-- * Available since Gtk+ version 2.4
--
widgetGetNoShowAll :: WidgetClass self => self
 -> IO Bool -- ^ returns the current value of the \"no_show_all\" property.
widgetGetNoShowAll :: forall self. WidgetClass self => self -> IO Bool
widgetGetNoShowAll self
self =
  (CInt -> Bool) -> IO CInt -> IO Bool
forall (m :: * -> *) a1 r. Monad m => (a1 -> r) -> m a1 -> m r
liftM CInt -> Bool
forall a. (Eq a, Num a) => a -> Bool
toBool (IO CInt -> IO Bool) -> IO CInt -> IO Bool
forall a b. (a -> b) -> a -> b
$
  (\(Widget ForeignPtr Widget
arg1) -> ForeignPtr Widget -> (Ptr Widget -> IO CInt) -> IO CInt
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr Widget
arg1 ((Ptr Widget -> IO CInt) -> IO CInt)
-> (Ptr Widget -> IO CInt) -> IO CInt
forall a b. (a -> b) -> a -> b
$ \Ptr Widget
argPtr1 ->Ptr Widget -> IO CInt
gtk_widget_get_no_show_all Ptr Widget
argPtr1)
{-# LINE 2537 "./Graphics/UI/Gtk/Abstract/Widget.chs" #-}
    (toWidget self)

-- %hash c:205b d:c518
-- | Returns a list of the widgets, normally labels, for which
-- this widget is a the target of a mnemonic (see for example,
-- 'labelSetMnemonicWidget').
--
-- * Available since Gtk+ version 2.4
--
widgetListMnemonicLabels :: WidgetClass self => self
 -> IO [Widget] -- ^ returns the list of mnemonic labels
widgetListMnemonicLabels :: forall self. WidgetClass self => self -> IO [Widget]
widgetListMnemonicLabels self
self =
  (\(Widget ForeignPtr Widget
arg1) -> ForeignPtr Widget -> (Ptr Widget -> IO (Ptr ())) -> IO (Ptr ())
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr Widget
arg1 ((Ptr Widget -> IO (Ptr ())) -> IO (Ptr ()))
-> (Ptr Widget -> IO (Ptr ())) -> IO (Ptr ())
forall a b. (a -> b) -> a -> b
$ \Ptr Widget
argPtr1 ->Ptr Widget -> IO (Ptr ())
gtk_widget_list_mnemonic_labels Ptr Widget
argPtr1)
{-# LINE 2550 "./Graphics/UI/Gtk/Abstract/Widget.chs" #-}
    (toWidget self)
  IO (Ptr ()) -> (Ptr () -> IO [Ptr Widget]) -> IO [Ptr Widget]
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr () -> IO [Ptr Widget]
forall a. Ptr () -> IO [Ptr a]
fromGList
  IO [Ptr Widget] -> ([Ptr Widget] -> IO [Widget]) -> IO [Widget]
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Ptr Widget -> IO Widget) -> [Ptr Widget] -> IO [Widget]
forall (t :: * -> *) (m :: * -> *) a b.
(Traversable t, Monad m) =>
(a -> m b) -> t a -> m (t b)
forall (m :: * -> *) a b. Monad m => (a -> m b) -> [a] -> m [b]
mapM ((ForeignPtr Widget -> Widget, FinalizerPtr Widget)
-> IO (Ptr Widget) -> IO Widget
forall obj.
GObjectClass obj =>
(ForeignPtr obj -> obj, FinalizerPtr obj) -> IO (Ptr obj) -> IO obj
makeNewGObject (ForeignPtr Widget -> Widget, FinalizerPtr Widget)
forall {a}. (ForeignPtr Widget -> Widget, FinalizerPtr a)
mkWidget (IO (Ptr Widget) -> IO Widget)
-> (Ptr Widget -> IO (Ptr Widget)) -> Ptr Widget -> IO Widget
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Ptr Widget -> IO (Ptr Widget)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return)

-- %hash c:eb76 d:28a2
-- | Adds a widget to the list of mnemonic labels for this widget. (See
-- 'widgetListMnemonicLabels'). Note the list of mnemonic labels for the widget
-- is cleared when the widget is destroyed, so the caller must make sure to
-- update its internal state at this point as well, by using a connection to
-- the 'destroy' signal or a weak notifier.
--
-- * Available since Gtk+ version 2.4
--
widgetAddMnemonicLabel :: (WidgetClass self, WidgetClass label) => self
 -> label -- ^ @label@ - a 'Widget' that acts as a mnemonic label for
          -- @widget@.
 -> IO ()
widgetAddMnemonicLabel :: forall self label.
(WidgetClass self, WidgetClass label) =>
self -> label -> IO ()
widgetAddMnemonicLabel self
self label
label =
  (\(Widget ForeignPtr Widget
arg1) (Widget ForeignPtr Widget
arg2) -> ForeignPtr Widget -> (Ptr Widget -> IO ()) -> IO ()
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr Widget
arg1 ((Ptr Widget -> IO ()) -> IO ()) -> (Ptr Widget -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Ptr Widget
argPtr1 ->ForeignPtr Widget -> (Ptr Widget -> IO ()) -> IO ()
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr Widget
arg2 ((Ptr Widget -> IO ()) -> IO ()) -> (Ptr Widget -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Ptr Widget
argPtr2 ->Ptr Widget -> Ptr Widget -> IO ()
gtk_widget_add_mnemonic_label Ptr Widget
argPtr1 Ptr Widget
argPtr2)
{-# LINE 2569 "./Graphics/UI/Gtk/Abstract/Widget.chs" #-}
    (toWidget self)
    (label -> Widget
forall o. WidgetClass o => o -> Widget
toWidget label
label)

-- %hash c:7831 d:d10b
-- | Removes a widget from the list of mnemonic labels for this widget. (See
-- 'widgetListMnemonicLabels'). The widget must have previously been added to
-- the list with 'widgetAddMnemonicLabel'.
--
-- * Available since Gtk+ version 2.4
--
widgetRemoveMnemonicLabel :: (WidgetClass self, WidgetClass label) => self
 -> label -- ^ @label@ - a 'Widget' that was previously set as a mnemnic label
          -- for @widget@ with 'widgetAddMnemonicLabel'.
 -> IO ()
widgetRemoveMnemonicLabel :: forall self label.
(WidgetClass self, WidgetClass label) =>
self -> label -> IO ()
widgetRemoveMnemonicLabel self
self label
label =
  (\(Widget ForeignPtr Widget
arg1) (Widget ForeignPtr Widget
arg2) -> ForeignPtr Widget -> (Ptr Widget -> IO ()) -> IO ()
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr Widget
arg1 ((Ptr Widget -> IO ()) -> IO ()) -> (Ptr Widget -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Ptr Widget
argPtr1 ->ForeignPtr Widget -> (Ptr Widget -> IO ()) -> IO ()
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr Widget
arg2 ((Ptr Widget -> IO ()) -> IO ()) -> (Ptr Widget -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Ptr Widget
argPtr2 ->Ptr Widget -> Ptr Widget -> IO ()
gtk_widget_remove_mnemonic_label Ptr Widget
argPtr1 Ptr Widget
argPtr2)
{-# LINE 2585 "./Graphics/UI/Gtk/Abstract/Widget.chs" #-}
    (toWidget self)
    (label -> Widget
forall o. WidgetClass o => o -> Widget
toWidget label
label)



-- %hash c:5c70 d:cbf9
-- | Returns the 'Action' that @widget@ is a proxy for. See also
-- 'actionGetProxies'.
--
-- * Available since Gtk+ version 2.10
--
-- Removed in Gtk3.
widgetGetAction :: WidgetClass self => self
 -> IO (Maybe Action)
   -- ^ returns the action that a widget is a proxy for, or
   -- @Nothing@, if it is not attached to an action.
widgetGetAction :: forall self. WidgetClass self => self -> IO (Maybe Action)
widgetGetAction self
self = do
  Ptr Action
ptr <- (\(Widget ForeignPtr Widget
arg1) -> ForeignPtr Widget
-> (Ptr Widget -> IO (Ptr Action)) -> IO (Ptr Action)
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr Widget
arg1 ((Ptr Widget -> IO (Ptr Action)) -> IO (Ptr Action))
-> (Ptr Widget -> IO (Ptr Action)) -> IO (Ptr Action)
forall a b. (a -> b) -> a -> b
$ \Ptr Widget
argPtr1 ->Ptr Widget -> IO (Ptr Action)
gtk_widget_get_action Ptr Widget
argPtr1) (self -> Widget
forall o. WidgetClass o => o -> Widget
toWidget self
self)
  if Ptr Action
ptrPtr Action -> Ptr Action -> Bool
forall a. Eq a => a -> a -> Bool
==Ptr Action
forall a. Ptr a
nullPtr then Maybe Action -> IO (Maybe Action)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe Action
forall a. Maybe a
Nothing else (Action -> Maybe Action) -> IO Action -> IO (Maybe Action)
forall (m :: * -> *) a1 r. Monad m => (a1 -> r) -> m a1 -> m r
liftM Action -> Maybe Action
forall a. a -> Maybe a
Just (IO Action -> IO (Maybe Action)) -> IO Action -> IO (Maybe Action)
forall a b. (a -> b) -> a -> b
$
    (ForeignPtr Action -> Action, FinalizerPtr Action)
-> IO (Ptr Action) -> IO Action
forall obj.
GObjectClass obj =>
(ForeignPtr obj -> obj, FinalizerPtr obj) -> IO (Ptr obj) -> IO obj
makeNewGObject (ForeignPtr Action -> Action, FinalizerPtr Action)
forall {a}. (ForeignPtr Action -> Action, FinalizerPtr a)
mkAction (Ptr Action -> IO (Ptr Action)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Action
ptr)


-- %hash c:7ea0 d:2560
-- | Whether @widget@ can rely on having its alpha channel drawn correctly. On
-- X11 this function returns whether a compositing manager is running for
-- @widget@'s screen
--
-- * Available since Gtk+ version 2.10
--
widgetIsComposited :: WidgetClass self => self
 -> IO Bool -- ^ returns @True@ if the widget can rely on its alpha channel
            -- being drawn correctly.
widgetIsComposited :: forall self. WidgetClass self => self -> IO Bool
widgetIsComposited self
self =
  (CInt -> Bool) -> IO CInt -> IO Bool
forall (m :: * -> *) a1 r. Monad m => (a1 -> r) -> m a1 -> m r
liftM CInt -> Bool
forall a. (Eq a, Num a) => a -> Bool
toBool (IO CInt -> IO Bool) -> IO CInt -> IO Bool
forall a b. (a -> b) -> a -> b
$
  (\(Widget ForeignPtr Widget
arg1) -> ForeignPtr Widget -> (Ptr Widget -> IO CInt) -> IO CInt
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr Widget
arg1 ((Ptr Widget -> IO CInt) -> IO CInt)
-> (Ptr Widget -> IO CInt) -> IO CInt
forall a b. (a -> b) -> a -> b
$ \Ptr Widget
argPtr1 ->Ptr Widget -> IO CInt
gtk_widget_is_composited Ptr Widget
argPtr1)
{-# LINE 2620 "./Graphics/UI/Gtk/Abstract/Widget.chs" #-}
    (toWidget self)




-- | Notifies the user about an input-related error on this widget.
-- If the "gtk-error-bell" setting is @True@, it calls 'drawWindowBeep',
-- otherwise it does nothing.
--
-- Note that the effect of 'drawWindow_beep' can be configured in many
-- ways, depending on the windowing backend and the desktop environment
-- or window manager that is used.
widgetErrorBell :: WidgetClass self => self
 -> IO ()
widgetErrorBell :: forall self. WidgetClass self => self -> IO ()
widgetErrorBell self
self =
  (\(Widget ForeignPtr Widget
arg1) -> ForeignPtr Widget -> (Ptr Widget -> IO ()) -> IO ()
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr Widget
arg1 ((Ptr Widget -> IO ()) -> IO ()) -> (Ptr Widget -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Ptr Widget
argPtr1 ->Ptr Widget -> IO ()
gtk_widget_error_bell Ptr Widget
argPtr1)
{-# LINE 2636 "./Graphics/UI/Gtk/Abstract/Widget.chs" #-}
    (toWidget self)

-- | This function should be called whenever keyboard navigation within
-- a single widget hits a boundary. The function emits the "keynav-failed"
-- signal on the widget and its return value should be interpreted in a
-- way similar to the return value of 'widgetChildFocus':
--
-- When @True@ is returned, stay in the widget, the failed keyboard
-- navigation is Ok and/or there is nowhere we can/should move the
-- focus to.
--
-- When @False@ is returned, the caller should continue with keyboard
-- navigation outside the widget, e.g. by calling 'widgetChildFocus' on
-- the widget’s toplevel.
--
-- The default ::keynav-failed handler returns @True@ for 'DirTabForward'
-- and 'DirTabBackward'. For the other values of 'DirectionType' it
-- returns @False@.
--
-- Whenever the default handler returns @True@, it also calls
-- 'widgetErrorBell' to notify the user of the failed keyboard
-- navigation.
--
-- A use case for providing an own implementation of ::keynav-failed
-- (either by connecting to it or by overriding it) would be a row of
-- 'Entry' widgets where the user should be able to navigate the entire
-- row with the cursor keys, as e.g. known from user interfaces that
-- require entering license keys.
widgetKeynavFailed :: WidgetClass self => self
 -> DirectionType -- ^ @direction@ - direction of focus movement
 -> IO Bool -- ^ returns @True@ if stopping keyboard navigation is
                  -- fine, @False@ if the emitting widget should try to handle
                  -- the keyboard navigation attempt in its parent container(s).
widgetKeynavFailed :: forall self. WidgetClass self => self -> DirectionType -> IO Bool
widgetKeynavFailed self
self DirectionType
direction =
  (CInt -> Bool) -> IO CInt -> IO Bool
forall (m :: * -> *) a1 r. Monad m => (a1 -> r) -> m a1 -> m r
liftM CInt -> Bool
forall a. (Eq a, Num a) => a -> Bool
toBool (IO CInt -> IO Bool) -> IO CInt -> IO Bool
forall a b. (a -> b) -> a -> b
$
  (\(Widget ForeignPtr Widget
arg1) CInt
arg2 -> ForeignPtr Widget -> (Ptr Widget -> IO CInt) -> IO CInt
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr Widget
arg1 ((Ptr Widget -> IO CInt) -> IO CInt)
-> (Ptr Widget -> IO CInt) -> IO CInt
forall a b. (a -> b) -> a -> b
$ \Ptr Widget
argPtr1 ->Ptr Widget -> CInt -> IO CInt
gtk_widget_keynav_failed Ptr Widget
argPtr1 CInt
arg2)
{-# LINE 2672 "./Graphics/UI/Gtk/Abstract/Widget.chs" #-}
    (toWidget self)
    ((Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CInt) -> (DirectionType -> Int) -> DirectionType -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. DirectionType -> Int
forall a. Enum a => a -> Int
fromEnum) DirectionType
direction)

-- | Gets the contents of the tooltip for widget.
widgetGetTooltipMarkup :: (WidgetClass self, GlibString markup) => self
 -> IO (Maybe markup) -- Returns the tooltip text, or Nothing.
widgetGetTooltipMarkup :: forall self string.
(WidgetClass self, GlibString string) =>
self -> IO (Maybe string)
widgetGetTooltipMarkup self
self =
  (\(Widget ForeignPtr Widget
arg1) -> ForeignPtr Widget -> (Ptr Widget -> IO CString) -> IO CString
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr Widget
arg1 ((Ptr Widget -> IO CString) -> IO CString)
-> (Ptr Widget -> IO CString) -> IO CString
forall a b. (a -> b) -> a -> b
$ \Ptr Widget
argPtr1 ->Ptr Widget -> IO CString
gtk_widget_get_tooltip_markup Ptr Widget
argPtr1)
{-# LINE 2680 "./Graphics/UI/Gtk/Abstract/Widget.chs" #-}
    (toWidget self)
  IO CString -> (CString -> IO (Maybe markup)) -> IO (Maybe markup)
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (CString -> IO markup) -> CString -> IO (Maybe markup)
forall a b. (Ptr a -> IO b) -> Ptr a -> IO (Maybe b)
maybePeek CString -> IO markup
forall s. GlibString s => CString -> IO s
peekUTFString

-- | Sets @markup@ as the contents of the tooltip, which is marked up with the
-- Pango text markup language.
--
-- This function will take care of setting "has-tooltip" to True and of the
-- default handler for the "query-tooltip" signal.
--
-- See also the "tooltip-markup" property and 'tooltipSetMarkup'.
widgetSetTooltipMarkup :: (WidgetClass self, GlibString markup) => self
  -> Maybe markup -- ^ the contents of the tooltip for widget, or @Nothing@.
  -> IO ()
widgetSetTooltipMarkup :: forall self markup.
(WidgetClass self, GlibString markup) =>
self -> Maybe markup -> IO ()
widgetSetTooltipMarkup self
self Maybe markup
markup =
  (markup -> (CString -> IO ()) -> IO ())
-> Maybe markup -> (CString -> IO ()) -> IO ()
forall a b c.
(a -> (Ptr b -> IO c) -> IO c)
-> Maybe a -> (Ptr b -> IO c) -> IO c
maybeWith markup -> (CString -> IO ()) -> IO ()
forall a. markup -> (CString -> IO a) -> IO a
forall s a. GlibString s => s -> (CString -> IO a) -> IO a
withUTFString Maybe markup
markup ((CString -> IO ()) -> IO ()) -> (CString -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \ CString
markupPtr ->
  (\(Widget ForeignPtr Widget
arg1) CString
arg2 -> ForeignPtr Widget -> (Ptr Widget -> IO ()) -> IO ()
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr Widget
arg1 ((Ptr Widget -> IO ()) -> IO ()) -> (Ptr Widget -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Ptr Widget
argPtr1 ->Ptr Widget -> CString -> IO ()
gtk_widget_set_tooltip_markup Ptr Widget
argPtr1 CString
arg2)
{-# LINE 2696 "./Graphics/UI/Gtk/Abstract/Widget.chs" #-}
    (toWidget self)
    CString
markupPtr

-- | Gets the contents of the tooltip for widget.
widgetGetTooltipText :: (WidgetClass self, GlibString text) => self
 -> IO (Maybe text) -- Returns the tooltip text, or Nothing.
widgetGetTooltipText :: forall self string.
(WidgetClass self, GlibString string) =>
self -> IO (Maybe string)
widgetGetTooltipText self
self =
  (\(Widget ForeignPtr Widget
arg1) -> ForeignPtr Widget -> (Ptr Widget -> IO CString) -> IO CString
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr Widget
arg1 ((Ptr Widget -> IO CString) -> IO CString)
-> (Ptr Widget -> IO CString) -> IO CString
forall a b. (a -> b) -> a -> b
$ \Ptr Widget
argPtr1 ->Ptr Widget -> IO CString
gtk_widget_get_tooltip_text Ptr Widget
argPtr1)
{-# LINE 2704 "./Graphics/UI/Gtk/Abstract/Widget.chs" #-}
    (toWidget self)
  IO CString -> (CString -> IO (Maybe text)) -> IO (Maybe text)
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (CString -> IO text) -> CString -> IO (Maybe text)
forall a b. (Ptr a -> IO b) -> Ptr a -> IO (Maybe b)
maybePeek CString -> IO text
forall s. GlibString s => CString -> IO s
peekUTFString

-- | Sets @text@ as the contents of the tooltip. This function will take care
-- of setting "has-tooltip" to @True@ and of the default handler for the
-- "query-tooltip" signal.
--
-- See also the "tooltip-text" property and 'tooltipSetText'.
widgetSetTooltipText :: (WidgetClass widget, GlibString text) => widget
  -> Maybe text -- ^ the contents of the tooltip for widget, or @Nothing@.
  -> IO ()
widgetSetTooltipText :: forall self markup.
(WidgetClass self, GlibString markup) =>
self -> Maybe markup -> IO ()
widgetSetTooltipText widget
widget Maybe text
text =
  (text -> (CString -> IO ()) -> IO ())
-> Maybe text -> (CString -> IO ()) -> IO ()
forall a b c.
(a -> (Ptr b -> IO c) -> IO c)
-> Maybe a -> (Ptr b -> IO c) -> IO c
maybeWith text -> (CString -> IO ()) -> IO ()
forall a. text -> (CString -> IO a) -> IO a
forall s a. GlibString s => s -> (CString -> IO a) -> IO a
withUTFString Maybe text
text ((CString -> IO ()) -> IO ()) -> (CString -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \ CString
textPtr ->
  (\(Widget ForeignPtr Widget
arg1) CString
arg2 -> ForeignPtr Widget -> (Ptr Widget -> IO ()) -> IO ()
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr Widget
arg1 ((Ptr Widget -> IO ()) -> IO ()) -> (Ptr Widget -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Ptr Widget
argPtr1 ->Ptr Widget -> CString -> IO ()
gtk_widget_set_tooltip_text Ptr Widget
argPtr1 CString
arg2)
{-# LINE 2718 "./Graphics/UI/Gtk/Abstract/Widget.chs" #-}
    (toWidget widget)
    CString
textPtr

-- | Returns the 'Window' of the current tooltip. This can be the 'Window' created by default, or the
-- custom tooltip window set using 'widgetSetTooltipWindow'.
--
-- * Available since Gtk+ version 2.12
--
widgetGetTooltipWindow :: WidgetClass self => self
 -> IO Window -- ^ returns The 'Window' of the current tooltip
widgetGetTooltipWindow :: forall self. WidgetClass self => self -> IO Window
widgetGetTooltipWindow self
self =
  (ForeignPtr Window -> Window, FinalizerPtr Window)
-> IO (Ptr Window) -> IO Window
forall obj.
ObjectClass obj =>
(ForeignPtr obj -> obj, FinalizerPtr obj) -> IO (Ptr obj) -> IO obj
makeNewObject (ForeignPtr Window -> Window, FinalizerPtr Window)
forall {a}. (ForeignPtr Window -> Window, FinalizerPtr a)
mkWindow (IO (Ptr Window) -> IO Window) -> IO (Ptr Window) -> IO Window
forall a b. (a -> b) -> a -> b
$
  (\(Widget ForeignPtr Widget
arg1) -> ForeignPtr Widget
-> (Ptr Widget -> IO (Ptr Window)) -> IO (Ptr Window)
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr Widget
arg1 ((Ptr Widget -> IO (Ptr Window)) -> IO (Ptr Window))
-> (Ptr Widget -> IO (Ptr Window)) -> IO (Ptr Window)
forall a b. (a -> b) -> a -> b
$ \Ptr Widget
argPtr1 ->Ptr Widget -> IO (Ptr Window)
gtk_widget_get_tooltip_window Ptr Widget
argPtr1)
{-# LINE 2731 "./Graphics/UI/Gtk/Abstract/Widget.chs" #-}
    (toWidget self)

-- | Replaces the default, usually yellow, window used for displaying tooltips with @customWindow@. GTK+
-- will take care of showing and hiding @customWindow@ at the right moment, to behave likewise as the
-- default tooltip window. If @customWindow@ is 'Nothing', the default tooltip window will be used.
--
-- If the custom window should have the default theming it needs to have the name 'gtk-tooltip', see
-- 'widgetSetName'.
--
-- * Available since Gtk+ version 2.12
--
widgetSetTooltipWindow :: (WidgetClass self, WindowClass customWindow) => self
 -> Maybe customWindow -- ^ @customWindow@ a 'Window', or 'Nothing'. allow-none.
 -> IO ()
widgetSetTooltipWindow :: forall self customWindow.
(WidgetClass self, WindowClass customWindow) =>
self -> Maybe customWindow -> IO ()
widgetSetTooltipWindow self
self Maybe customWindow
customWindow =
  (\(Widget ForeignPtr Widget
arg1) (Window ForeignPtr Window
arg2) -> ForeignPtr Widget -> (Ptr Widget -> IO ()) -> IO ()
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr Widget
arg1 ((Ptr Widget -> IO ()) -> IO ()) -> (Ptr Widget -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Ptr Widget
argPtr1 ->ForeignPtr Window -> (Ptr Window -> IO ()) -> IO ()
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr Window
arg2 ((Ptr Window -> IO ()) -> IO ()) -> (Ptr Window -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Ptr Window
argPtr2 ->Ptr Widget -> Ptr Window -> IO ()
gtk_widget_set_tooltip_window Ptr Widget
argPtr1 Ptr Window
argPtr2)
{-# LINE 2747 "./Graphics/UI/Gtk/Abstract/Widget.chs" #-}
    (toWidget self)
    (Window -> (customWindow -> Window) -> Maybe customWindow -> Window
forall b a. b -> (a -> b) -> Maybe a -> b
maybe (ForeignPtr Window -> Window
Window ForeignPtr Window
forall a. ForeignPtr a
nullForeignPtr) customWindow -> Window
forall o. WindowClass o => o -> Window
toWindow Maybe customWindow
customWindow)

-- | Returns the current value of the has-tooltip property.
-- See 'widgetHasTooltip' for more information.
widgetGetHasTooltip :: WidgetClass widget => widget
 -> IO Bool -- ^ current value of 'widgetHasTooltip' on @widget@.
widgetGetHasTooltip :: forall self. WidgetClass self => self -> IO Bool
widgetGetHasTooltip widget
widget =
  (CInt -> Bool) -> IO CInt -> IO Bool
forall (m :: * -> *) a1 r. Monad m => (a1 -> r) -> m a1 -> m r
liftM CInt -> Bool
forall a. (Eq a, Num a) => a -> Bool
toBool (IO CInt -> IO Bool) -> IO CInt -> IO Bool
forall a b. (a -> b) -> a -> b
$
  (\(Widget ForeignPtr Widget
arg1) -> ForeignPtr Widget -> (Ptr Widget -> IO CInt) -> IO CInt
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr Widget
arg1 ((Ptr Widget -> IO CInt) -> IO CInt)
-> (Ptr Widget -> IO CInt) -> IO CInt
forall a b. (a -> b) -> a -> b
$ \Ptr Widget
argPtr1 ->Ptr Widget -> IO CInt
gtk_widget_get_has_tooltip Ptr Widget
argPtr1)
{-# LINE 2757 "./Graphics/UI/Gtk/Abstract/Widget.chs" #-}
    (toWidget widget)

-- | Sets the has-tooltip property on @widget@ to @hasTooltip@.
-- See 'widgetHasTooltip' for more information.
widgetSetHasTooltip :: WidgetClass widget => widget
 -> Bool -- ^ @hasTooltip@ whether or not @widget@ has a tooltip.
 -> IO ()
widgetSetHasTooltip :: forall self. WidgetClass self => self -> Bool -> IO ()
widgetSetHasTooltip widget
widget Bool
hasTooltip =
  (\(Widget ForeignPtr Widget
arg1) CInt
arg2 -> ForeignPtr Widget -> (Ptr Widget -> IO ()) -> IO ()
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr Widget
arg1 ((Ptr Widget -> IO ()) -> IO ()) -> (Ptr Widget -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Ptr Widget
argPtr1 ->Ptr Widget -> CInt -> IO ()
gtk_widget_set_has_tooltip Ptr Widget
argPtr1 CInt
arg2)
{-# LINE 2766 "./Graphics/UI/Gtk/Abstract/Widget.chs" #-}
    (toWidget widget)
    (Bool -> CInt
forall a. Num a => Bool -> a
fromBool Bool
hasTooltip)

-- | Triggers a tooltip query on the display where the toplevel of @widget@ is
-- located. See 'tooltipTriggerTooltipQuery' for more information.
--
-- * Available since Gtk+ version 2.12
--
widgetTriggerTooltipQuery :: WidgetClass self => self -> IO ()
widgetTriggerTooltipQuery :: forall self. WidgetClass self => self -> IO ()
widgetTriggerTooltipQuery self
self =
  (\(Widget ForeignPtr Widget
arg1) -> ForeignPtr Widget -> (Ptr Widget -> IO ()) -> IO ()
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr Widget
arg1 ((Ptr Widget -> IO ()) -> IO ()) -> (Ptr Widget -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Ptr Widget
argPtr1 ->Ptr Widget -> IO ()
gtk_widget_trigger_tooltip_query Ptr Widget
argPtr1)
{-# LINE 2777 "./Graphics/UI/Gtk/Abstract/Widget.chs" #-}
    (toWidget self)



-- | Returns the widget's window if it is realized, Nothing otherwise
--
-- * Available since Gtk+ version 2.14
--
widgetGetWindow :: WidgetClass self => self -> IO (Maybe DrawWindow)
widgetGetWindow :: forall self. WidgetClass self => self -> IO (Maybe DrawWindow)
widgetGetWindow self
self =
  (IO (Ptr DrawWindow) -> IO DrawWindow)
-> IO (Ptr DrawWindow) -> IO (Maybe DrawWindow)
forall a. (IO (Ptr a) -> IO a) -> IO (Ptr a) -> IO (Maybe a)
maybeNull ((ForeignPtr DrawWindow -> DrawWindow, FinalizerPtr DrawWindow)
-> IO (Ptr DrawWindow) -> IO DrawWindow
forall obj.
GObjectClass obj =>
(ForeignPtr obj -> obj, FinalizerPtr obj) -> IO (Ptr obj) -> IO obj
makeNewGObject (ForeignPtr DrawWindow -> DrawWindow, FinalizerPtr DrawWindow)
forall {a}. (ForeignPtr DrawWindow -> DrawWindow, FinalizerPtr a)
mkDrawWindow) (IO (Ptr DrawWindow) -> IO (Maybe DrawWindow))
-> IO (Ptr DrawWindow) -> IO (Maybe DrawWindow)
forall a b. (a -> b) -> a -> b
$
  (\(Widget ForeignPtr Widget
arg1) -> ForeignPtr Widget
-> (Ptr Widget -> IO (Ptr DrawWindow)) -> IO (Ptr DrawWindow)
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr Widget
arg1 ((Ptr Widget -> IO (Ptr DrawWindow)) -> IO (Ptr DrawWindow))
-> (Ptr Widget -> IO (Ptr DrawWindow)) -> IO (Ptr DrawWindow)
forall a b. (a -> b) -> a -> b
$ \Ptr Widget
argPtr1 ->Ptr Widget -> IO (Ptr DrawWindow)
gtk_widget_get_window Ptr Widget
argPtr1)
{-# LINE 2789 "./Graphics/UI/Gtk/Abstract/Widget.chs" #-}
    (toWidget self)
{-# LINE 2855 "./Graphics/UI/Gtk/Abstract/Widget.chs" #-}
-- | Moves a widget from one 'Container' to another.
--
widgetReparent :: (WidgetClass self, WidgetClass newParent) => self
 -> newParent -- ^ @newParent@ - a 'Container' to move the widget into
 -> IO ()
widgetReparent :: forall self label.
(WidgetClass self, WidgetClass label) =>
self -> label -> IO ()
widgetReparent self
self newParent
newParent =
  (\(Widget ForeignPtr Widget
arg1) (Widget ForeignPtr Widget
arg2) -> ForeignPtr Widget -> (Ptr Widget -> IO ()) -> IO ()
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr Widget
arg1 ((Ptr Widget -> IO ()) -> IO ()) -> (Ptr Widget -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Ptr Widget
argPtr1 ->ForeignPtr Widget -> (Ptr Widget -> IO ()) -> IO ()
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr Widget
arg2 ((Ptr Widget -> IO ()) -> IO ()) -> (Ptr Widget -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Ptr Widget
argPtr2 ->Ptr Widget -> Ptr Widget -> IO ()
gtk_widget_reparent Ptr Widget
argPtr1 Ptr Widget
argPtr2)
{-# LINE 2862 "./Graphics/UI/Gtk/Abstract/Widget.chs" #-}
    (toWidget self)
    (newParent -> Widget
forall o. WidgetClass o => o -> Widget
toWidget newParent
newParent)


-- | Set if this widget can receive keyboard input.
--
-- * To use the 'keyPress' event, the widget must be allowed
-- to get the input focus. Once it has the input focus all keyboard
-- input is directed to this widget.
--
widgetSetCanFocus :: WidgetClass self => self -> Bool -> IO ()
widgetSetCanFocus :: forall self. WidgetClass self => self -> Bool -> IO ()
widgetSetCanFocus = String -> self -> Bool -> IO ()
forall gobj. GObjectClass gobj => String -> gobj -> Bool -> IO ()
objectSetPropertyBool String
"can_focus"

-- | Check if this widget can receive keyboard input.
--
widgetGetCanFocus :: WidgetClass self => self -> IO Bool
widgetGetCanFocus :: forall self. WidgetClass self => self -> IO Bool
widgetGetCanFocus = String -> self -> IO Bool
forall gobj. GObjectClass gobj => String -> gobj -> IO Bool
objectGetPropertyBool String
"can_focus"

-- | Retrieves the widget's allocation.
--
-- * Available since Gtk+ version 2.18
--
widgetGetAllocation :: WidgetClass self => self -> IO Allocation
widgetGetAllocation :: forall self. WidgetClass self => self -> IO Allocation
widgetGetAllocation self
widget =
  (Ptr Allocation -> IO Allocation) -> IO Allocation
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr Allocation -> IO Allocation) -> IO Allocation)
-> (Ptr Allocation -> IO Allocation) -> IO Allocation
forall a b. (a -> b) -> a -> b
$ \ Ptr Allocation
allocationPtr -> do
     (\(Widget ForeignPtr Widget
arg1) Ptr ()
arg2 -> ForeignPtr Widget -> (Ptr Widget -> IO ()) -> IO ()
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr Widget
arg1 ((Ptr Widget -> IO ()) -> IO ()) -> (Ptr Widget -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Ptr Widget
argPtr1 ->Ptr Widget -> Ptr () -> IO ()
gtk_widget_get_allocation Ptr Widget
argPtr1 Ptr ()
arg2) (self -> Widget
forall o. WidgetClass o => o -> Widget
toWidget self
widget) (Ptr Allocation -> Ptr ()
forall a b. Ptr a -> Ptr b
castPtr Ptr Allocation
allocationPtr)
     Ptr Allocation -> IO Allocation
forall a. Storable a => Ptr a -> IO a
peek Ptr Allocation
allocationPtr
{-# LINE 2950 "./Graphics/UI/Gtk/Abstract/Widget.chs" #-}
-- | Determines whether the application intends to draw on the widget in an
-- "draw" handler.
-- See 'widgetSetAppPaintable'.
widgetGetAppPaintable :: WidgetClass widget => widget
 -> IO Bool -- ^ Returns @True@ if the @widget@ is app paintable.
widgetGetAppPaintable :: forall self. WidgetClass self => self -> IO Bool
widgetGetAppPaintable widget
widget =
  (CInt -> Bool) -> IO CInt -> IO Bool
forall (m :: * -> *) a1 r. Monad m => (a1 -> r) -> m a1 -> m r
liftM CInt -> Bool
forall a. (Eq a, Num a) => a -> Bool
toBool (IO CInt -> IO Bool) -> IO CInt -> IO Bool
forall a b. (a -> b) -> a -> b
$
  (\(Widget ForeignPtr Widget
arg1) -> ForeignPtr Widget -> (Ptr Widget -> IO CInt) -> IO CInt
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr Widget
arg1 ((Ptr Widget -> IO CInt) -> IO CInt)
-> (Ptr Widget -> IO CInt) -> IO CInt
forall a b. (a -> b) -> a -> b
$ \Ptr Widget
argPtr1 ->Ptr Widget -> IO CInt
gtk_widget_get_app_paintable Ptr Widget
argPtr1)
{-# LINE 2958 "./Graphics/UI/Gtk/Abstract/Widget.chs" #-}
    (toWidget widget)

-- | Determines whether @widget@ can be a default widget.
-- See 'widgetSetCanDefault'.
widgetGetCanDefault :: WidgetClass widget => widget
 -> IO Bool -- ^ Returns @True@ if @widget@ can be a default widget, @False@ otherwise.
widgetGetCanDefault :: forall self. WidgetClass self => self -> IO Bool
widgetGetCanDefault widget
widget =
  (CInt -> Bool) -> IO CInt -> IO Bool
forall (m :: * -> *) a1 r. Monad m => (a1 -> r) -> m a1 -> m r
liftM CInt -> Bool
forall a. (Eq a, Num a) => a -> Bool
toBool (IO CInt -> IO Bool) -> IO CInt -> IO Bool
forall a b. (a -> b) -> a -> b
$
  (\(Widget ForeignPtr Widget
arg1) -> ForeignPtr Widget -> (Ptr Widget -> IO CInt) -> IO CInt
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr Widget
arg1 ((Ptr Widget -> IO CInt) -> IO CInt)
-> (Ptr Widget -> IO CInt) -> IO CInt
forall a b. (a -> b) -> a -> b
$ \Ptr Widget
argPtr1 ->Ptr Widget -> IO CInt
gtk_widget_get_can_default Ptr Widget
argPtr1)
{-# LINE 2967 "./Graphics/UI/Gtk/Abstract/Widget.chs" #-}
    (toWidget widget)

-- | Specifies whether @widget@ can be a default widget.
-- See 'widgetGrabDefault' for details about the meaning of "default".
widgetSetCanDefault :: WidgetClass widget => widget
 -> Bool -- ^ @canDefault@ whether or not @widget@ can be a default widget.
 -> IO ()
widgetSetCanDefault :: forall self. WidgetClass self => self -> Bool -> IO ()
widgetSetCanDefault widget
widget Bool
canDefault =
  (\(Widget ForeignPtr Widget
arg1) CInt
arg2 -> ForeignPtr Widget -> (Ptr Widget -> IO ()) -> IO ()
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr Widget
arg1 ((Ptr Widget -> IO ()) -> IO ()) -> (Ptr Widget -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Ptr Widget
argPtr1 ->Ptr Widget -> CInt -> IO ()
gtk_widget_set_can_default Ptr Widget
argPtr1 CInt
arg2)
{-# LINE 2976 "./Graphics/UI/Gtk/Abstract/Widget.chs" #-}
    (toWidget widget)
    (Bool -> CInt
forall a. Num a => Bool -> a
fromBool Bool
canDefault)

-- | Determines whether @widget@ has a 'DrawWindow' of its own. See 'widgetSetHasWindow'.
widgetGetHasWindow :: WidgetClass widget => widget
 -> IO Bool -- ^ Returns @True@ if @widget@ has a window, @False@ otherwise.
widgetGetHasWindow :: forall self. WidgetClass self => self -> IO Bool
widgetGetHasWindow widget
widget =
  (CInt -> Bool) -> IO CInt -> IO Bool
forall (m :: * -> *) a1 r. Monad m => (a1 -> r) -> m a1 -> m r
liftM CInt -> Bool
forall a. (Eq a, Num a) => a -> Bool
toBool (IO CInt -> IO Bool) -> IO CInt -> IO Bool
forall a b. (a -> b) -> a -> b
$
  (\(Widget ForeignPtr Widget
arg1) -> ForeignPtr Widget -> (Ptr Widget -> IO CInt) -> IO CInt
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr Widget
arg1 ((Ptr Widget -> IO CInt) -> IO CInt)
-> (Ptr Widget -> IO CInt) -> IO CInt
forall a b. (a -> b) -> a -> b
$ \Ptr Widget
argPtr1 ->Ptr Widget -> IO CInt
gtk_widget_get_has_window Ptr Widget
argPtr1)
{-# LINE 2985 "./Graphics/UI/Gtk/Abstract/Widget.chs" #-}
    (toWidget widget)

-- | Specifies whether @widget@ has a 'DrawWindow' of its own. Note that all
-- realized widgets have a non-NULL "window" pointer ('widgetGetWindow' never
-- returns a NULL window when a widget is realized), but for many of them it's
-- actually the 'DrawWindow' of one of its parent widgets. Widgets that do not
-- create a window for themselves in "realize" must announce this by calling
-- this function with @hasWindow@ = @False@.
--
-- This function should only be called by widget implementations, and they
-- should call it in their @init()@ function.
widgetSetHasWindow :: WidgetClass widget => widget
 -> Bool -- ^ @hasWindow@ whether or not @widget@ has a window.
 -> IO ()
widgetSetHasWindow :: forall self. WidgetClass self => self -> Bool -> IO ()
widgetSetHasWindow widget
widget Bool
hasWindow =
  (\(Widget ForeignPtr Widget
arg1) CInt
arg2 -> ForeignPtr Widget -> (Ptr Widget -> IO ()) -> IO ()
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr Widget
arg1 ((Ptr Widget -> IO ()) -> IO ()) -> (Ptr Widget -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Ptr Widget
argPtr1 ->Ptr Widget -> CInt -> IO ()
gtk_widget_set_has_window Ptr Widget
argPtr1 CInt
arg2)
{-# LINE 3001 "./Graphics/UI/Gtk/Abstract/Widget.chs" #-}
    (toWidget widget)
    (Bool -> CInt
forall a. Num a => Bool -> a
fromBool Bool
hasWindow)

-- | Returns the @widget@’s sensitivity (in the sense of returning the value
-- that has been set using 'widgetSetSensitive').
--
-- The effective sensitivity of a widget is however determined by both its own
-- and its parent widget’s sensitivity. See 'widgetIsSensitive'.
widgetGetSensitive :: WidgetClass widget => widget
 -> IO Bool -- ^ Returns @True@ if the widget is sensitive.
widgetGetSensitive :: forall self. WidgetClass self => self -> IO Bool
widgetGetSensitive widget
widget =
  (CInt -> Bool) -> IO CInt -> IO Bool
forall (m :: * -> *) a1 r. Monad m => (a1 -> r) -> m a1 -> m r
liftM CInt -> Bool
forall a. (Eq a, Num a) => a -> Bool
toBool (IO CInt -> IO Bool) -> IO CInt -> IO Bool
forall a b. (a -> b) -> a -> b
$
  (\(Widget ForeignPtr Widget
arg1) -> ForeignPtr Widget -> (Ptr Widget -> IO CInt) -> IO CInt
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr Widget
arg1 ((Ptr Widget -> IO CInt) -> IO CInt)
-> (Ptr Widget -> IO CInt) -> IO CInt
forall a b. (a -> b) -> a -> b
$ \Ptr Widget
argPtr1 ->Ptr Widget -> IO CInt
gtk_widget_get_sensitive Ptr Widget
argPtr1)
{-# LINE 3014 "./Graphics/UI/Gtk/Abstract/Widget.chs" #-}
    (toWidget widget)

-- | Returns the widget’s effective sensitivity, which means it is sensitive
-- itself and also its parent widget is sensitive.
widgetIsSensitive :: WidgetClass widget => widget
 -> IO Bool -- ^ Returns @True@ if the widget is effectively sensitive.
widgetIsSensitive :: forall self. WidgetClass self => self -> IO Bool
widgetIsSensitive widget
widget =
  (CInt -> Bool) -> IO CInt -> IO Bool
forall (m :: * -> *) a1 r. Monad m => (a1 -> r) -> m a1 -> m r
liftM CInt -> Bool
forall a. (Eq a, Num a) => a -> Bool
toBool (IO CInt -> IO Bool) -> IO CInt -> IO Bool
forall a b. (a -> b) -> a -> b
$
  (\(Widget ForeignPtr Widget
arg1) -> ForeignPtr Widget -> (Ptr Widget -> IO CInt) -> IO CInt
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr Widget
arg1 ((Ptr Widget -> IO CInt) -> IO CInt)
-> (Ptr Widget -> IO CInt) -> IO CInt
forall a b. (a -> b) -> a -> b
$ \Ptr Widget
argPtr1 ->Ptr Widget -> IO CInt
gtk_widget_is_sensitive Ptr Widget
argPtr1)
{-# LINE 3023 "./Graphics/UI/Gtk/Abstract/Widget.chs" #-}
    (toWidget widget)

-- | Retrieve the current state of the widget.
--
-- * The state refers to different modes of user interaction, see
-- 'StateType' for more information.
--
widgetGetState :: WidgetClass self => self -> IO StateType
widgetGetState :: forall self. WidgetClass self => self -> IO StateType
widgetGetState self
widget =
  (CInt -> StateType) -> IO CInt -> IO StateType
forall (m :: * -> *) a1 r. Monad m => (a1 -> r) -> m a1 -> m r
liftM (Int -> StateType
forall a. Enum a => Int -> a
toEnum (Int -> StateType) -> (CInt -> Int) -> CInt -> StateType
forall b c a. (b -> c) -> (a -> b) -> a -> c
. CInt -> Int
forall a b. (Integral a, Num b) => a -> b
fromIntegral) (IO CInt -> IO StateType) -> IO CInt -> IO StateType
forall a b. (a -> b) -> a -> b
$
  (\(Widget ForeignPtr Widget
arg1) -> ForeignPtr Widget -> (Ptr Widget -> IO CInt) -> IO CInt
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr Widget
arg1 ((Ptr Widget -> IO CInt) -> IO CInt)
-> (Ptr Widget -> IO CInt) -> IO CInt
forall a b. (a -> b) -> a -> b
$ \Ptr Widget
argPtr1 ->Ptr Widget -> IO CInt
gtk_widget_get_state Ptr Widget
argPtr1)
{-# LINE 3034 "./Graphics/UI/Gtk/Abstract/Widget.chs" #-}
    (toWidget widget)

-- | Determines whether the widget is visible. If you want to take into
-- account whether the widget’s parent is also marked as visible, use
-- 'widgetIsVisible' instead.
--
-- This function does not check if the widget is obscured in any way.
-- See 'widgetSetVisible'.
widgetGetVisible :: WidgetClass widget => widget
 -> IO Bool -- ^ Returns @True@ if the widget is visible.
widgetGetVisible :: forall self. WidgetClass self => self -> IO Bool
widgetGetVisible widget
widget =
  (CInt -> Bool) -> IO CInt -> IO Bool
forall (m :: * -> *) a1 r. Monad m => (a1 -> r) -> m a1 -> m r
liftM CInt -> Bool
forall a. (Eq a, Num a) => a -> Bool
toBool (IO CInt -> IO Bool) -> IO CInt -> IO Bool
forall a b. (a -> b) -> a -> b
$
  (\(Widget ForeignPtr Widget
arg1) -> ForeignPtr Widget -> (Ptr Widget -> IO CInt) -> IO CInt
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr Widget
arg1 ((Ptr Widget -> IO CInt) -> IO CInt)
-> (Ptr Widget -> IO CInt) -> IO CInt
forall a b. (a -> b) -> a -> b
$ \Ptr Widget
argPtr1 ->Ptr Widget -> IO CInt
gtk_widget_get_visible Ptr Widget
argPtr1)
{-# LINE 3047 "./Graphics/UI/Gtk/Abstract/Widget.chs" #-}
    (toWidget widget)
{-# LINE 3111 "./Graphics/UI/Gtk/Abstract/Widget.chs" #-}
-- | Determines whether @widget@ is the current default widget within its
-- toplevel. See 'widgetSetCanDefault'.
widgetGetHasDefault :: WidgetClass widget => widget
 -> IO Bool -- ^ Returns @True@ if @widget@ is the current default widget within its toplevel, @False@ otherwise.
widgetGetHasDefault :: forall self. WidgetClass self => self -> IO Bool
widgetGetHasDefault widget
widget =
  (CInt -> Bool) -> IO CInt -> IO Bool
forall (m :: * -> *) a1 r. Monad m => (a1 -> r) -> m a1 -> m r
liftM CInt -> Bool
forall a. (Eq a, Num a) => a -> Bool
toBool (IO CInt -> IO Bool) -> IO CInt -> IO Bool
forall a b. (a -> b) -> a -> b
$
  (\(Widget ForeignPtr Widget
arg1) -> ForeignPtr Widget -> (Ptr Widget -> IO CInt) -> IO CInt
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr Widget
arg1 ((Ptr Widget -> IO CInt) -> IO CInt)
-> (Ptr Widget -> IO CInt) -> IO CInt
forall a b. (a -> b) -> a -> b
$ \Ptr Widget
argPtr1 ->Ptr Widget -> IO CInt
gtk_widget_has_default Ptr Widget
argPtr1)
{-# LINE 3118 "./Graphics/UI/Gtk/Abstract/Widget.chs" #-}
    (toWidget widget)

-- | Determines if the @widget@ has the global input focus.
-- See 'widgetIsFocus' for the difference between having the global input
-- focus, and only having the focus within a toplevel.
widgetGetHasFocus :: WidgetClass widget => widget
 -> IO Bool -- ^ Returns @True@ if @widget@ has the global input focus.
widgetGetHasFocus :: forall self. WidgetClass self => self -> IO Bool
widgetGetHasFocus widget
widget =
  (CInt -> Bool) -> IO CInt -> IO Bool
forall (m :: * -> *) a1 r. Monad m => (a1 -> r) -> m a1 -> m r
liftM CInt -> Bool
forall a. (Eq a, Num a) => a -> Bool
toBool (IO CInt -> IO Bool) -> IO CInt -> IO Bool
forall a b. (a -> b) -> a -> b
$
  (\(Widget ForeignPtr Widget
arg1) -> ForeignPtr Widget -> (Ptr Widget -> IO CInt) -> IO CInt
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr Widget
arg1 ((Ptr Widget -> IO CInt) -> IO CInt)
-> (Ptr Widget -> IO CInt) -> IO CInt
forall a b. (a -> b) -> a -> b
$ \Ptr Widget
argPtr1 ->Ptr Widget -> IO CInt
gtk_widget_has_focus Ptr Widget
argPtr1)
{-# LINE 3128 "./Graphics/UI/Gtk/Abstract/Widget.chs" #-}
    (toWidget widget)
{-# LINE 3148 "./Graphics/UI/Gtk/Abstract/Widget.chs" #-}
-- | Determines whether the widget is currently grabbing events, so it is the
-- only widget receiving input events (keyboard and mouse).
--
-- See also 'grabAdd'.
widgetHasGrab :: WidgetClass widget => widget
 -> IO Bool -- ^ Returns @True@ if the widget is in the grab_widgets stack
widgetHasGrab :: forall self. WidgetClass self => self -> IO Bool
widgetHasGrab widget
widget =
  (CInt -> Bool) -> IO CInt -> IO Bool
forall (m :: * -> *) a1 r. Monad m => (a1 -> r) -> m a1 -> m r
liftM CInt -> Bool
forall a. (Eq a, Num a) => a -> Bool
toBool (IO CInt -> IO Bool) -> IO CInt -> IO Bool
forall a b. (a -> b) -> a -> b
$
  (\(Widget ForeignPtr Widget
arg1) -> ForeignPtr Widget -> (Ptr Widget -> IO CInt) -> IO CInt
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr Widget
arg1 ((Ptr Widget -> IO CInt) -> IO CInt)
-> (Ptr Widget -> IO CInt) -> IO CInt
forall a b. (a -> b) -> a -> b
$ \Ptr Widget
argPtr1 ->Ptr Widget -> IO CInt
gtk_widget_has_grab Ptr Widget
argPtr1)
{-# LINE 3157 "./Graphics/UI/Gtk/Abstract/Widget.chs" #-}
    (toWidget widget)

-- | Determines whether @widget@ can be drawn to. A widget can be drawn to if
-- it is mapped and visible.
widgetIsDrawable :: WidgetClass widget => widget
 -> IO Bool -- ^ Returns @True@ if @widget@ is drawable, @False@ otherwise
widgetIsDrawable :: forall self. WidgetClass self => self -> IO Bool
widgetIsDrawable widget
widget =
  (CInt -> Bool) -> IO CInt -> IO Bool
forall (m :: * -> *) a1 r. Monad m => (a1 -> r) -> m a1 -> m r
liftM CInt -> Bool
forall a. (Eq a, Num a) => a -> Bool
toBool (IO CInt -> IO Bool) -> IO CInt -> IO Bool
forall a b. (a -> b) -> a -> b
$
  (\(Widget ForeignPtr Widget
arg1) -> ForeignPtr Widget -> (Ptr Widget -> IO CInt) -> IO CInt
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr Widget
arg1 ((Ptr Widget -> IO CInt) -> IO CInt)
-> (Ptr Widget -> IO CInt) -> IO CInt
forall a b. (a -> b) -> a -> b
$ \Ptr Widget
argPtr1 ->Ptr Widget -> IO CInt
gtk_widget_is_drawable Ptr Widget
argPtr1)
{-# LINE 3166 "./Graphics/UI/Gtk/Abstract/Widget.chs" #-}
    (toWidget widget)

-- | Determines whether @widget@ is a toplevel widget.
--
-- Currently only 'Window' and 'Invisible' (and out-of-process 'Plugs') are
-- toplevel widgets. Toplevel widgets have no parent widget.
widgetIsToplevel :: WidgetClass widget => widget
 -> IO Bool -- ^ Returns @True@ if @widget@ is a toplevel, @False@ otherwise
widgetIsToplevel :: forall self. WidgetClass self => self -> IO Bool
widgetIsToplevel widget
widget =
  (CInt -> Bool) -> IO CInt -> IO Bool
forall (m :: * -> *) a1 r. Monad m => (a1 -> r) -> m a1 -> m r
liftM CInt -> Bool
forall a. (Eq a, Num a) => a -> Bool
toBool (IO CInt -> IO Bool) -> IO CInt -> IO Bool
forall a b. (a -> b) -> a -> b
$
  (\(Widget ForeignPtr Widget
arg1) -> ForeignPtr Widget -> (Ptr Widget -> IO CInt) -> IO CInt
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr Widget
arg1 ((Ptr Widget -> IO CInt) -> IO CInt)
-> (Ptr Widget -> IO CInt) -> IO CInt
forall a b. (a -> b) -> a -> b
$ \Ptr Widget
argPtr1 ->Ptr Widget -> IO CInt
gtk_widget_is_toplevel Ptr Widget
argPtr1)
{-# LINE 3177 "./Graphics/UI/Gtk/Abstract/Widget.chs" #-}
    (toWidget widget)

-- | Sets a widget’s window. This function should only be used in a widget’s
-- “realize” implementation. The window passed is usually either new window
-- created with 'drawWindowNew', or the window of its parent widget as
-- returned by 'widgetGetParentWindow'.
--
-- Widgets must indicate whether they will create their own 'DrawWindow' by
-- calling 'widgetSetHasWindow'. This is usually done in the widget’s init()
-- function.
--
-- Note that this function does not add any reference to window.
widgetSetWindow :: (WidgetClass widget, DrawWindowClass window) => widget
 -> window
 -> IO ()
widgetSetWindow :: forall widget window.
(WidgetClass widget, DrawWindowClass window) =>
widget -> window -> IO ()
widgetSetWindow widget
widget window
window =
  (\(Widget ForeignPtr Widget
arg1) (DrawWindow ForeignPtr DrawWindow
arg2) -> ForeignPtr Widget -> (Ptr Widget -> IO ()) -> IO ()
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr Widget
arg1 ((Ptr Widget -> IO ()) -> IO ()) -> (Ptr Widget -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Ptr Widget
argPtr1 ->ForeignPtr DrawWindow -> (Ptr DrawWindow -> IO ()) -> IO ()
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr DrawWindow
arg2 ((Ptr DrawWindow -> IO ()) -> IO ())
-> (Ptr DrawWindow -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Ptr DrawWindow
argPtr2 ->Ptr Widget -> Ptr DrawWindow -> IO ()
gtk_widget_set_window Ptr Widget
argPtr1 Ptr DrawWindow
argPtr2)
{-# LINE 3194 "./Graphics/UI/Gtk/Abstract/Widget.chs" #-}
    (toWidget widget)
    (window -> DrawWindow
forall o. DrawWindowClass o => o -> DrawWindow
toDrawWindow window
window)

-- | Specifies whether @widget@ will be treated as the default widget within
-- its toplevel when it has the focus, even if another widget is the default.
--
-- See 'widgetGrabDefault' for details about the meaning of “default”.
widgetSetReceivesDefault :: WidgetClass widget => widget
 -> Bool -- ^ @receivesDefault@ whether or not widget can be a default widget.
 -> IO ()
widgetSetReceivesDefault :: forall self. WidgetClass self => self -> Bool -> IO ()
widgetSetReceivesDefault widget
widget Bool
receivesDefault =
  (\(Widget ForeignPtr Widget
arg1) CInt
arg2 -> ForeignPtr Widget -> (Ptr Widget -> IO ()) -> IO ()
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr Widget
arg1 ((Ptr Widget -> IO ()) -> IO ()) -> (Ptr Widget -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Ptr Widget
argPtr1 ->Ptr Widget -> CInt -> IO ()
gtk_widget_set_receives_default Ptr Widget
argPtr1 CInt
arg2)
{-# LINE 3206 "./Graphics/UI/Gtk/Abstract/Widget.chs" #-}
    (toWidget widget)
    (Bool -> CInt
forall a. Num a => Bool -> a
fromBool Bool
receivesDefault)

-- | Determines whether @widget@ is always treated as the default widget
-- within its toplevel when it has the focus, even if another widget is the
-- default.
--
-- See 'widgetSetReceivesDefault'.
widgetGetReceivesDefault :: WidgetClass widget => widget
 -> IO Bool -- ^ Returns @True@ if @widget@ acts as the default widget when focussed, @False@ otherwise
widgetGetReceivesDefault :: forall self. WidgetClass self => self -> IO Bool
widgetGetReceivesDefault widget
widget =
  (CInt -> Bool) -> IO CInt -> IO Bool
forall (m :: * -> *) a1 r. Monad m => (a1 -> r) -> m a1 -> m r
liftM CInt -> Bool
forall a. (Eq a, Num a) => a -> Bool
toBool (IO CInt -> IO Bool) -> IO CInt -> IO Bool
forall a b. (a -> b) -> a -> b
$
  (\(Widget ForeignPtr Widget
arg1) -> ForeignPtr Widget -> (Ptr Widget -> IO CInt) -> IO CInt
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr Widget
arg1 ((Ptr Widget -> IO CInt) -> IO CInt)
-> (Ptr Widget -> IO CInt) -> IO CInt
forall a b. (a -> b) -> a -> b
$ \Ptr Widget
argPtr1 ->Ptr Widget -> IO CInt
gtk_widget_get_receives_default Ptr Widget
argPtr1)
{-# LINE 3219 "./Graphics/UI/Gtk/Abstract/Widget.chs" #-}
    (toWidget widget)
{-# LINE 3275 "./Graphics/UI/Gtk/Abstract/Widget.chs" #-}
-- | This function is for use in widget implementations. Sets the state of a
-- widget (insensitive, prelighted, etc.) Usually you should set the state
-- using wrapper functions such as 'widgetSetSensitive'.
--
widgetSetState :: WidgetClass self => self -> StateType -> IO ()
widgetSetState :: forall self. WidgetClass self => self -> StateType -> IO ()
widgetSetState self
widget StateType
state =
  (\(Widget ForeignPtr Widget
arg1) CInt
arg2 -> ForeignPtr Widget -> (Ptr Widget -> IO ()) -> IO ()
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr Widget
arg1 ((Ptr Widget -> IO ()) -> IO ()) -> (Ptr Widget -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Ptr Widget
argPtr1 ->Ptr Widget -> CInt -> IO ()
gtk_widget_set_state Ptr Widget
argPtr1 CInt
arg2)
{-# LINE 3282 "./Graphics/UI/Gtk/Abstract/Widget.chs" #-}
    (toWidget widget)
    ((Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CInt) -> (StateType -> Int) -> StateType -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. StateType -> Int
forall a. Enum a => a -> Int
fromEnum) StateType
state)

-- | Rarely-used function. This function is used to emit the event signals on a widget (those signals
-- should never be emitted without using this function to do so). If you want to synthesize an event
-- though, don't use this function; instead, use 'mainDoEvent' so the event will behave as if it
-- were in the event queue. Don't synthesize expose events; instead, use 'windowInvalidateRect'
-- to invalidate a region of the window.
widgetEvent :: WidgetClass self => self -> EventM t Bool
widgetEvent :: forall self t. WidgetClass self => self -> EventM t Bool
widgetEvent self
widget = do
  Ptr t
ptr <- ReaderT (Ptr t) IO (Ptr t)
forall r (m :: * -> *). MonadReader r m => m r
ask
  IO Bool -> EventM t Bool
forall a. IO a -> ReaderT (Ptr t) IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> EventM t Bool) -> IO Bool -> EventM t Bool
forall a b. (a -> b) -> a -> b
$ (CInt -> Bool) -> IO CInt -> IO Bool
forall (m :: * -> *) a1 r. Monad m => (a1 -> r) -> m a1 -> m r
liftM CInt -> Bool
forall a. (Eq a, Num a) => a -> Bool
toBool (IO CInt -> IO Bool) -> IO CInt -> IO Bool
forall a b. (a -> b) -> a -> b
$ (\(Widget ForeignPtr Widget
arg1) Ptr ()
arg2 -> ForeignPtr Widget -> (Ptr Widget -> IO CInt) -> IO CInt
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr Widget
arg1 ((Ptr Widget -> IO CInt) -> IO CInt)
-> (Ptr Widget -> IO CInt) -> IO CInt
forall a b. (a -> b) -> a -> b
$ \Ptr Widget
argPtr1 ->Ptr Widget -> Ptr () -> IO CInt
gtk_widget_event Ptr Widget
argPtr1 Ptr ()
arg2) (self -> Widget
forall o. WidgetClass o => o -> Widget
toWidget self
widget) (Ptr t -> Ptr ()
forall a b. Ptr a -> Ptr b
castPtr Ptr t
ptr)

--------------------
-- Attributes

-- %hash c:6f7f d:9384
-- | The name of the widget.
--
-- Default value: @Nothing@
--
widgetName :: (WidgetClass self, GlibString string) => Attr self (Maybe string)
widgetName :: forall self string.
(WidgetClass self, GlibString string) =>
Attr self (Maybe string)
widgetName = String -> Attr self (Maybe string)
forall gobj string.
(GObjectClass gobj, GlibString string) =>
String -> Attr gobj (Maybe string)
newAttrFromMaybeStringProperty String
"name"

widgetMarginLeft :: WidgetClass self => Attr self Int
widgetMarginLeft :: forall self. WidgetClass self => Attr self Int
widgetMarginLeft = String -> Attr self Int
forall gobj. GObjectClass gobj => String -> Attr gobj Int
newAttrFromIntProperty String
"margin-left"

widgetMarginRight :: WidgetClass self => Attr self Int
widgetMarginRight :: forall self. WidgetClass self => Attr self Int
widgetMarginRight = String -> Attr self Int
forall gobj. GObjectClass gobj => String -> Attr gobj Int
newAttrFromIntProperty String
"margin-right"
{-# LINE 3320 "./Graphics/UI/Gtk/Abstract/Widget.chs" #-}
widgetMarginTop :: WidgetClass self => Attr self Int
widgetMarginTop :: forall self. WidgetClass self => Attr self Int
widgetMarginTop = String -> Attr self Int
forall gobj. GObjectClass gobj => String -> Attr gobj Int
newAttrFromIntProperty String
"margin-top"

widgetMarginBottom :: WidgetClass self => Attr self Int
widgetMarginBottom :: forall self. WidgetClass self => Attr self Int
widgetMarginBottom = String -> Attr self Int
forall gobj. GObjectClass gobj => String -> Attr gobj Int
newAttrFromIntProperty String
"margin-bottom"

-- %hash c:1533 d:3213
-- | The parent widget of this widget. Must be a Container widget.
--
widgetParent :: (WidgetClass self, ContainerClass container) => ReadWriteAttr self (Maybe Container) (Maybe container)
widgetParent :: forall self container.
(WidgetClass self, ContainerClass container) =>
ReadWriteAttr self (Maybe Container) (Maybe container)
widgetParent = String
-> CULong -> ReadWriteAttr self (Maybe Container) (Maybe container)
forall gobj gobj' gobj''.
(GObjectClass gobj, GObjectClass gobj', GObjectClass gobj'') =>
String -> CULong -> ReadWriteAttr gobj (Maybe gobj') (Maybe gobj'')
newAttrFromMaybeObjectProperty String
"parent" CULong
gTypeContainer

-- %hash c:2b4c d:3c31
-- | Override for width request of the widget, or -1 if natural request should
-- be used.
--
-- Allowed values: >= -1
--
-- Default value: -1
--
widgetWidthRequest :: WidgetClass self => Attr self Int
widgetWidthRequest :: forall self. WidgetClass self => Attr self Int
widgetWidthRequest = String -> Attr self Int
forall gobj. GObjectClass gobj => String -> Attr gobj Int
newAttrFromIntProperty String
"width-request"

-- %hash c:fa97 d:172a
-- | Override for height request of the widget, or -1 if natural request
-- should be used.
--
-- Allowed values: >= -1
--
-- Default value: -1
--
widgetHeightRequest :: WidgetClass self => Attr self Int
widgetHeightRequest :: forall self. WidgetClass self => Attr self Int
widgetHeightRequest = String -> Attr self Int
forall gobj. GObjectClass gobj => String -> Attr gobj Int
newAttrFromIntProperty String
"height-request"

-- %hash c:70d0 d:e8e2
-- | Whether the widget is visible.
--
-- Default value: @False@
--
widgetVisible :: WidgetClass self => Attr self Bool
widgetVisible :: forall self. WidgetClass self => Attr self Bool
widgetVisible = String -> Attr self Bool
forall gobj. GObjectClass gobj => String -> Attr gobj Bool
newAttrFromBoolProperty String
"visible"

-- | The opacity of the widget
--
-- Default value: @1.0@
--
widgetOpacity :: WidgetClass self => Attr self Double
widgetOpacity :: forall self. WidgetClass self => Attr self Double
widgetOpacity = String -> Attr self Double
forall gobj. GObjectClass gobj => String -> Attr gobj Double
newAttrFromDoubleProperty String
"opacity"

-- %hash c:4dd4 d:594e
-- | Whether the widget responds to input.
--
-- Default value: @True@
--
widgetSensitive :: WidgetClass self => Attr self Bool
widgetSensitive :: forall self. WidgetClass self => Attr self Bool
widgetSensitive = String -> Attr self Bool
forall gobj. GObjectClass gobj => String -> Attr gobj Bool
newAttrFromBoolProperty String
"sensitive"

-- %hash c:7506 d:1dde
-- | Whether the application will paint directly on the widget.
--
-- Default value: @False@
--
widgetAppPaintable :: WidgetClass self => Attr self Bool
widgetAppPaintable :: forall self. WidgetClass self => Attr self Bool
widgetAppPaintable = String -> Attr self Bool
forall gobj. GObjectClass gobj => String -> Attr gobj Bool
newAttrFromBoolProperty String
"app-paintable"

-- %hash c:6289 d:72ab
-- | Whether the widget can accept the input focus.
--
-- Default value: @False@
--
widgetCanFocus :: WidgetClass self => Attr self Bool
widgetCanFocus :: forall self. WidgetClass self => Attr self Bool
widgetCanFocus = String -> Attr self Bool
forall gobj. GObjectClass gobj => String -> Attr gobj Bool
newAttrFromBoolProperty String
"can-focus"

-- %hash c:8e7 d:2645
-- | Whether the widget has the input focus.
--
-- Default value: @False@
--
widgetHasFocus :: WidgetClass self => Attr self Bool
widgetHasFocus :: forall self. WidgetClass self => Attr self Bool
widgetHasFocus = String -> Attr self Bool
forall gobj. GObjectClass gobj => String -> Attr gobj Bool
newAttrFromBoolProperty String
"has-focus"

-- %hash c:7547 d:1d78
-- | Whether the widget is the focus widget within the toplevel.
--
-- Default value: @False@
--
widgetIsFocus :: WidgetClass self => Attr self Bool
widgetIsFocus :: forall self. WidgetClass self => Attr self Bool
widgetIsFocus = String -> Attr self Bool
forall gobj. GObjectClass gobj => String -> Attr gobj Bool
newAttrFromBoolProperty String
"is-focus"

-- %hash c:f2d8 d:1cbb
-- | Whether the widget can be the default widget.
--
-- Default value: @False@
--
widgetCanDefault :: WidgetClass self => Attr self Bool
widgetCanDefault :: forall self. WidgetClass self => Attr self Bool
widgetCanDefault = String -> Attr self Bool
forall gobj. GObjectClass gobj => String -> Attr gobj Bool
newAttrFromBoolProperty String
"can-default"

-- %hash c:836 d:4cbe
-- | Whether the widget is the default widget.
--
-- Default value: @False@
--
widgetHasDefault :: WidgetClass self => Attr self Bool
widgetHasDefault :: forall self. WidgetClass self => Attr self Bool
widgetHasDefault = String -> Attr self Bool
forall gobj. GObjectClass gobj => String -> Attr gobj Bool
newAttrFromBoolProperty String
"has-default"

-- %hash c:f964 d:b62f
-- | If @True@, the widget will receive the default action when it is focused.
--
-- Default value: @False@
--
widgetReceivesDefault :: WidgetClass self => Attr self Bool
widgetReceivesDefault :: forall self. WidgetClass self => Attr self Bool
widgetReceivesDefault = String -> Attr self Bool
forall gobj. GObjectClass gobj => String -> Attr gobj Bool
newAttrFromBoolProperty String
"receives-default"

-- %hash c:2ca6 d:cad8
-- | Whether the widget is part of a composite widget.
--
-- Default value: @False@
--
widgetCompositeChild :: WidgetClass self => ReadAttr self Bool
widgetCompositeChild :: forall self. WidgetClass self => ReadAttr self Bool
widgetCompositeChild = String -> ReadAttr self Bool
forall gobj. GObjectClass gobj => String -> ReadAttr gobj Bool
readAttrFromBoolProperty String
"composite-child"

-- %hash c:4f01 d:bd3
-- | The style of the widget, which contains information about how it will
-- look (colors etc).
--
widgetStyle :: WidgetClass self => Attr self Style
widgetStyle :: forall self. WidgetClass self => Attr self Style
widgetStyle = String -> CULong -> ReadWriteAttr self Style Style
forall gobj gobj' gobj''.
(GObjectClass gobj, GObjectClass gobj', GObjectClass gobj'') =>
String -> CULong -> ReadWriteAttr gobj gobj' gobj''
newAttrFromObjectProperty String
"style" CULong
gTypeStyle

-- | The current visual user interaction state of the widget (insensitive,
-- prelighted, selected etc). See 'StateType' for more information.
--
widgetState :: WidgetClass self => Attr self StateType
widgetState :: forall self. WidgetClass self => Attr self StateType
widgetState = (self -> IO StateType)
-> (self -> StateType -> IO ())
-> ReadWriteAttr self StateType StateType
forall o a b.
(o -> IO a) -> (o -> b -> IO ()) -> ReadWriteAttr o a b
newAttr
  self -> IO StateType
forall self. WidgetClass self => self -> IO StateType
widgetGetState
  self -> StateType -> IO ()
forall self. WidgetClass self => self -> StateType -> IO ()
widgetSetState

-- %hash c:e2a4 d:9296
-- | The event mask that decides what kind of GdkEvents this widget gets.
--
-- Default value: 'StructureMask'
--
widgetEvents :: WidgetClass self => Attr self [EventMask]
widgetEvents :: forall self. WidgetClass self => Attr self [EventMask]
widgetEvents = String -> CULong -> Attr self [EventMask]
forall gobj flag.
(GObjectClass gobj, Flags flag) =>
String -> CULong -> Attr gobj [flag]
newAttrFromFlagsProperty String
"events"
                 CULong
gdk_event_mask_get_type
{-# LINE 3464 "./Graphics/UI/Gtk/Abstract/Widget.chs" #-}


-- %hash c:ba80
-- | The mask that decides what kind of extension events this widget gets.
--
-- Default value: 'ExtensionEventsNone'
--
-- Removed in Gtk3.
widgetExtensionEvents :: WidgetClass self => Attr self [ExtensionMode]
widgetExtensionEvents :: forall self. WidgetClass self => Attr self [ExtensionMode]
widgetExtensionEvents = (self -> IO [ExtensionMode])
-> (self -> [ExtensionMode] -> IO ())
-> ReadWriteAttr self [ExtensionMode] [ExtensionMode]
forall o a b.
(o -> IO a) -> (o -> b -> IO ()) -> ReadWriteAttr o a b
newAttr
  self -> IO [ExtensionMode]
forall self. WidgetClass self => self -> IO [ExtensionMode]
widgetGetExtensionEvents
  self -> [ExtensionMode] -> IO ()
forall self. WidgetClass self => self -> [ExtensionMode] -> IO ()
widgetSetExtensionEvents


-- | Whether to expand in both directions. Setting this sets both 'widgetHExpand' and 'widgetVExpand'
--
-- Default value: @False@
--
widgetExpand :: WidgetClass self => Attr self Bool
widgetExpand :: forall self. WidgetClass self => Attr self Bool
widgetExpand = String -> Attr self Bool
forall gobj. GObjectClass gobj => String -> Attr gobj Bool
newAttrFromBoolProperty String
"expand"

-- | Whether to expand horizontally. See 'widgetSetHExpand'
--
-- Default value: @False@
--
widgetHExpand :: WidgetClass self => Attr self Bool
widgetHExpand :: forall self. WidgetClass self => Attr self Bool
widgetHExpand = String -> Attr self Bool
forall gobj. GObjectClass gobj => String -> Attr gobj Bool
newAttrFromBoolProperty String
"hexpand"

-- | Whether to use the “hexpand” property. See 'widgetGetHExpandSet'.
--
-- Default value: @False@
--
widgetHExpandSet :: WidgetClass self => Attr self Bool
widgetHExpandSet :: forall self. WidgetClass self => Attr self Bool
widgetHExpandSet = String -> Attr self Bool
forall gobj. GObjectClass gobj => String -> Attr gobj Bool
newAttrFromBoolProperty String
"hexpand-set"

-- | Whether to expand vertically. See 'widgetSetVExpand'.
--
-- Default value: @False@
--
widgetVExpand :: WidgetClass self => Attr self Bool
widgetVExpand :: forall self. WidgetClass self => Attr self Bool
widgetVExpand = String -> Attr self Bool
forall gobj. GObjectClass gobj => String -> Attr gobj Bool
newAttrFromBoolProperty String
"vexpand"

-- | Whether to use the “vexpand” property. See 'widgetGetVExpandSet'.
--
-- Default value: @False@
--
widgetVExpandSet :: WidgetClass self => Attr self Bool
widgetVExpandSet :: forall self. WidgetClass self => Attr self Bool
widgetVExpandSet = String -> Attr self Bool
forall gobj. GObjectClass gobj => String -> Attr gobj Bool
newAttrFromBoolProperty String
"vexpand-set"

-- %hash c:1605 d:48ea
-- | Whether 'widgetShowAll' should not affect this widget.
--
-- Default value: @False@
--
widgetNoShowAll :: WidgetClass self => Attr self Bool
widgetNoShowAll :: forall self. WidgetClass self => Attr self Bool
widgetNoShowAll = String -> Attr self Bool
forall gobj. GObjectClass gobj => String -> Attr gobj Bool
newAttrFromBoolProperty String
"no-show-all"

-- %hash c:cd8d d:59b2
-- | \'childVisible\' property. See 'widgetGetChildVisible' and
-- 'widgetSetChildVisible'
--
widgetChildVisible :: WidgetClass self => Attr self Bool
widgetChildVisible :: forall self. WidgetClass self => Attr self Bool
widgetChildVisible = (self -> IO Bool)
-> (self -> Bool -> IO ()) -> ReadWriteAttr self Bool Bool
forall o a b.
(o -> IO a) -> (o -> b -> IO ()) -> ReadWriteAttr o a b
newAttr
  self -> IO Bool
forall self. WidgetClass self => self -> IO Bool
widgetGetChildVisible
  self -> Bool -> IO ()
forall self. WidgetClass self => self -> Bool -> IO ()
widgetSetChildVisible


-- %hash c:a20a d:646f
-- | \'colormap\' property. See 'widgetGetColormap' and 'widgetSetColormap'
--
-- Removed in Gtk3.
widgetColormap :: WidgetClass self => Attr self Colormap
widgetColormap :: forall self. WidgetClass self => Attr self Colormap
widgetColormap = (self -> IO Colormap)
-> (self -> Colormap -> IO ())
-> ReadWriteAttr self Colormap Colormap
forall o a b.
(o -> IO a) -> (o -> b -> IO ()) -> ReadWriteAttr o a b
newAttr
  self -> IO Colormap
forall self. WidgetClass self => self -> IO Colormap
widgetGetColormap
  self -> Colormap -> IO ()
forall self. WidgetClass self => self -> Colormap -> IO ()
widgetSetColormap


-- %hash c:a7fd d:55b8
-- | \'compositeName\' property. See 'widgetGetCompositeName' and
-- 'widgetSetCompositeName'
--
widgetCompositeName :: (WidgetClass self, GlibString string) => ReadWriteAttr self (Maybe string) string
widgetCompositeName :: forall self string.
(WidgetClass self, GlibString string) =>
ReadWriteAttr self (Maybe string) string
widgetCompositeName = (self -> IO (Maybe string))
-> (self -> string -> IO ())
-> ReadWriteAttr self (Maybe string) string
forall o a b.
(o -> IO a) -> (o -> b -> IO ()) -> ReadWriteAttr o a b
newAttr
  self -> IO (Maybe string)
forall self string.
(WidgetClass self, GlibString string) =>
self -> IO (Maybe string)
widgetGetCompositeName
  self -> string -> IO ()
forall self string.
(WidgetClass self, GlibString string) =>
self -> string -> IO ()
widgetSetCompositeName

-- %hash c:6c03 d:ce3b
-- | \'direction\' property. See 'widgetGetDirection' and 'widgetSetDirection'
--
widgetDirection :: WidgetClass self => Attr self TextDirection
widgetDirection :: forall self. WidgetClass self => Attr self TextDirection
widgetDirection = (self -> IO TextDirection)
-> (self -> TextDirection -> IO ())
-> ReadWriteAttr self TextDirection TextDirection
forall o a b.
(o -> IO a) -> (o -> b -> IO ()) -> ReadWriteAttr o a b
newAttr
  self -> IO TextDirection
forall self. WidgetClass self => self -> IO TextDirection
widgetGetDirection
  self -> TextDirection -> IO ()
forall self. WidgetClass self => self -> TextDirection -> IO ()
widgetSetDirection

-- | Sets the text of tooltip to be the given string, which is marked up with the Pango text markup
-- language. Also see 'tooltipSetMarkup'.
--
-- This is a convenience property which will take care of getting the tooltip shown if the given string
-- is not \"\": 'hasTooltip' will automatically be set to 'True' and there will be taken care of
-- 'queryTooltip' in the default signal handler.
--
-- Default value: \"\"
--
-- * Available since Gtk+ version 2.12
--
widgetTooltipMarkup :: (WidgetClass self, GlibString markup) => Attr self (Maybe markup)
widgetTooltipMarkup :: forall self string.
(WidgetClass self, GlibString string) =>
Attr self (Maybe string)
widgetTooltipMarkup = String -> Attr self (Maybe markup)
forall gobj string.
(GObjectClass gobj, GlibString string) =>
String -> Attr gobj (Maybe string)
newAttrFromMaybeStringProperty String
"tooltip-markup"

-- | Sets the text of tooltip to be the given string.
--
-- Also see 'tooltipSetText'.
--
-- This is a convenience property which will take care of getting the tooltip shown if the given string
-- is not \"\": 'hasTooltip' will automatically be set to 'True' and there will be taken care of
-- 'queryTooltip' in the default signal handler.
--
-- Default value: \"\"
--
-- * Available since Gtk+ version 2.12
--
widgetTooltipText :: (WidgetClass self, GlibString string) => Attr self (Maybe string)
widgetTooltipText :: forall self string.
(WidgetClass self, GlibString string) =>
Attr self (Maybe string)
widgetTooltipText = String -> Attr self (Maybe string)
forall gobj string.
(GObjectClass gobj, GlibString string) =>
String -> Attr gobj (Maybe string)
newAttrFromMaybeStringProperty String
"tooltip-text"

-- | Enables or disables the emission of 'queryTooltip' on widget. A value of 'True' indicates that widget
-- can have a tooltip, in this case the widget will be queried using 'queryTooltip' to determine
-- whether it will provide a tooltip or not.
--
-- Note that setting this property to 'True' for the first time will change the event masks of the
-- 'Windows' of this widget to include leave-notify and motion-notify events. This cannot and will not
-- be undone when the property is set to 'False' again.
--
-- Default value: 'False'
--
-- * Available since Gtk+ version 2.12
--
widgetHasTooltip :: WidgetClass self => Attr self Bool
widgetHasTooltip :: forall self. WidgetClass self => Attr self Bool
widgetHasTooltip = String -> Attr self Bool
forall gobj. GObjectClass gobj => String -> Attr gobj Bool
newAttrFromBoolProperty String
"has-tooltip"


-- | Determines if the widget style has been looked up through the rc mechanism.
widgetHasRcStyle :: WidgetClass self => self
                 -> IO Bool -- ^ returns 'True' if the widget has been looked up through the rc mechanism, 'False' otherwise.
widgetHasRcStyle :: forall self. WidgetClass self => self -> IO Bool
widgetHasRcStyle self
self =
  (CInt -> Bool) -> IO CInt -> IO Bool
forall (m :: * -> *) a1 r. Monad m => (a1 -> r) -> m a1 -> m r
liftM CInt -> Bool
forall a. (Eq a, Num a) => a -> Bool
toBool (IO CInt -> IO Bool) -> IO CInt -> IO Bool
forall a b. (a -> b) -> a -> b
$
  (\(Widget ForeignPtr Widget
arg1) -> ForeignPtr Widget -> (Ptr Widget -> IO CInt) -> IO CInt
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr Widget
arg1 ((Ptr Widget -> IO CInt) -> IO CInt)
-> (Ptr Widget -> IO CInt) -> IO CInt
forall a b. (a -> b) -> a -> b
$ \Ptr Widget
argPtr1 ->Ptr Widget -> IO CInt
gtk_widget_has_rc_style Ptr Widget
argPtr1)
{-# LINE 3609 "./Graphics/UI/Gtk/Abstract/Widget.chs" #-}
    (toWidget self)

-- | Determines whether widget is realized.
widgetGetRealized :: WidgetClass self => self
                  -> IO Bool -- ^ returns 'True' if widget is realized, 'False' otherwise
widgetGetRealized :: forall self. WidgetClass self => self -> IO Bool
widgetGetRealized self
self =
  (CInt -> Bool) -> IO CInt -> IO Bool
forall (m :: * -> *) a1 r. Monad m => (a1 -> r) -> m a1 -> m r
liftM CInt -> Bool
forall a. (Eq a, Num a) => a -> Bool
toBool (IO CInt -> IO Bool) -> IO CInt -> IO Bool
forall a b. (a -> b) -> a -> b
$
  (\(Widget ForeignPtr Widget
arg1) -> ForeignPtr Widget -> (Ptr Widget -> IO CInt) -> IO CInt
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr Widget
arg1 ((Ptr Widget -> IO CInt) -> IO CInt)
-> (Ptr Widget -> IO CInt) -> IO CInt
forall a b. (a -> b) -> a -> b
$ \Ptr Widget
argPtr1 ->Ptr Widget -> IO CInt
gtk_widget_get_realized Ptr Widget
argPtr1)
{-# LINE 3617 "./Graphics/UI/Gtk/Abstract/Widget.chs" #-}
    (toWidget self)

-- | Whether the widget is mapped.
widgetGetMapped :: WidgetClass self => self
                -> IO Bool -- ^ returns 'True' if the widget is mapped, 'False' otherwise.
widgetGetMapped :: forall self. WidgetClass self => self -> IO Bool
widgetGetMapped self
self =
  (CInt -> Bool) -> IO CInt -> IO Bool
forall (m :: * -> *) a1 r. Monad m => (a1 -> r) -> m a1 -> m r
liftM CInt -> Bool
forall a. (Eq a, Num a) => a -> Bool
toBool (IO CInt -> IO Bool) -> IO CInt -> IO Bool
forall a b. (a -> b) -> a -> b
$
  (\(Widget ForeignPtr Widget
arg1) -> ForeignPtr Widget -> (Ptr Widget -> IO CInt) -> IO CInt
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr Widget
arg1 ((Ptr Widget -> IO CInt) -> IO CInt)
-> (Ptr Widget -> IO CInt) -> IO CInt
forall a b. (a -> b) -> a -> b
$ \Ptr Widget
argPtr1 ->Ptr Widget -> IO CInt
gtk_widget_get_mapped Ptr Widget
argPtr1)
{-# LINE 3625 "./Graphics/UI/Gtk/Abstract/Widget.chs" #-}
    (toWidget self)

-- | Marks the @widget@ as being realized. This function must only be called
-- after all 'DrawWindows' for the widget have been created and registered.
--
-- This function should only ever be called in a derived widget's “realize”
-- or “unrealize” implementation.
widgetSetRealized :: WidgetClass widget => widget
 -> Bool -- ^ @realized@ @True@ to mark the widget realized.
 -> IO ()
widgetSetRealized :: forall self. WidgetClass self => self -> Bool -> IO ()
widgetSetRealized widget
widget Bool
realized =
  (\(Widget ForeignPtr Widget
arg1) CInt
arg2 -> ForeignPtr Widget -> (Ptr Widget -> IO ()) -> IO ()
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr Widget
arg1 ((Ptr Widget -> IO ()) -> IO ()) -> (Ptr Widget -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Ptr Widget
argPtr1 ->Ptr Widget -> CInt -> IO ()
gtk_widget_set_realized Ptr Widget
argPtr1 CInt
arg2)
{-# LINE 3637 "./Graphics/UI/Gtk/Abstract/Widget.chs" #-}
    (toWidget widget)
    (Bool -> CInt
forall a. Num a => Bool -> a
fromBool Bool
realized)

-- | Marks the @widget@ as being realized.
--
-- This function should only ever be called in a derived widget's “map” or
-- “unmap” implementation.
widgetSetMapped :: WidgetClass widget => widget
 -> Bool -- ^ @mapped@ @True@ to mark the widget as mapped.
 -> IO ()
widgetSetMapped :: forall self. WidgetClass self => self -> Bool -> IO ()
widgetSetMapped widget
widget Bool
mapped =
  (\(Widget ForeignPtr Widget
arg1) CInt
arg2 -> ForeignPtr Widget -> (Ptr Widget -> IO ()) -> IO ()
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr Widget
arg1 ((Ptr Widget -> IO ()) -> IO ()) -> (Ptr Widget -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Ptr Widget
argPtr1 ->Ptr Widget -> CInt -> IO ()
gtk_widget_set_mapped Ptr Widget
argPtr1 CInt
arg2)
{-# LINE 3649 "./Graphics/UI/Gtk/Abstract/Widget.chs" #-}
    (toWidget widget)
    (Bool -> CInt
forall a. Num a => Bool -> a
fromBool Bool
mapped)
{-# LINE 3712 "./Graphics/UI/Gtk/Abstract/Widget.chs" #-}
--------------------
-- Signals


-- %hash c:4cf5 d:af3f
-- | The widget appears on screen.
--
mapSignal :: WidgetClass self => Signal self (IO ())
mapSignal :: forall self. WidgetClass self => Signal self (IO ())
mapSignal = (Bool -> self -> IO () -> IO (ConnectId self))
-> Signal self (IO ())
forall object handler.
(Bool -> object -> handler -> IO (ConnectId object))
-> Signal object handler
Signal (String -> Bool -> self -> IO () -> IO (ConnectId self)
forall obj.
GObjectClass obj =>
String -> Bool -> obj -> IO () -> IO (ConnectId obj)
connect_NONE__NONE String
"map")

-- %hash c:e33e d:af3f
-- | The widget disappears from the screen.
--
unmapSignal :: WidgetClass self => Signal self (IO ())
unmapSignal :: forall self. WidgetClass self => Signal self (IO ())
unmapSignal = (Bool -> self -> IO () -> IO (ConnectId self))
-> Signal self (IO ())
forall object handler.
(Bool -> object -> handler -> IO (ConnectId object))
-> Signal object handler
Signal (String -> Bool -> self -> IO () -> IO (ConnectId self)
forall obj.
GObjectClass obj =>
String -> Bool -> obj -> IO () -> IO (ConnectId obj)
connect_NONE__NONE String
"unmap")

-- %hash c:1f7f d:af3f
-- | The widget should allocate any resources needed, in particular, the
-- widget's 'DrawWindow' is created. If you connect to this signal and
-- you rely on some of these resources to be present, you have to use
-- 'System.Glib.Signals.after'.
--
realize :: WidgetClass self => Signal self (IO ())
realize :: forall self. WidgetClass self => Signal self (IO ())
realize = (Bool -> self -> IO () -> IO (ConnectId self))
-> Signal self (IO ())
forall object handler.
(Bool -> object -> handler -> IO (ConnectId object))
-> Signal object handler
Signal (String -> Bool -> self -> IO () -> IO (ConnectId self)
forall obj.
GObjectClass obj =>
String -> Bool -> obj -> IO () -> IO (ConnectId obj)
connect_NONE__NONE String
"realize")

-- %hash c:7948 d:af3f
-- | The widget should deallocate any resources. This signal is emitted before
-- the widget is destroyed.
--
unrealize :: WidgetClass self => Signal self (IO ())
unrealize :: forall self. WidgetClass self => Signal self (IO ())
unrealize = (Bool -> self -> IO () -> IO (ConnectId self))
-> Signal self (IO ())
forall object handler.
(Bool -> object -> handler -> IO (ConnectId object))
-> Signal object handler
Signal (String -> Bool -> self -> IO () -> IO (ConnectId self)
forall obj.
GObjectClass obj =>
String -> Bool -> obj -> IO () -> IO (ConnectId obj)
connect_NONE__NONE String
"unrealize")

-- %hash c:9f6f d:af3f
-- | Query the widget for the size it likes to
-- have.
--
-- * A parent container emits this signal to its child to query the needed
-- height and width of the child. There is not guarantee that the widget
-- will actually get this area.
--
sizeRequest :: WidgetClass self => Signal self (IO Requisition)
sizeRequest :: forall self. WidgetClass self => Signal self (IO Requisition)
sizeRequest = (Bool -> self -> IO Requisition -> IO (ConnectId self))
-> Signal self (IO Requisition)
forall object handler.
(Bool -> object -> handler -> IO (ConnectId object))
-> Signal object handler
Signal (\Bool
after self
w IO Requisition
fun ->
  String
-> Bool
-> self
-> (Ptr Requisition -> IO ())
-> IO (ConnectId self)
forall obj a.
GObjectClass obj =>
String -> Bool -> obj -> (Ptr a -> IO ()) -> IO (ConnectId obj)
connect_PTR__NONE String
"size-request" Bool
after self
w
    (\Ptr Requisition
rqPtr -> IO Requisition
fun IO Requisition -> (Requisition -> IO ()) -> IO ()
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= \Requisition
req -> Bool -> IO () -> IO ()
forall (f :: * -> *). Applicative f => Bool -> f () -> f ()
unless (Ptr Requisition
rqPtrPtr Requisition -> Ptr Requisition -> Bool
forall a. Eq a => a -> a -> Bool
==Ptr Requisition
forall a. Ptr a
nullPtr) (IO () -> IO ()) -> IO () -> IO ()
forall a b. (a -> b) -> a -> b
$ Ptr Requisition -> Requisition -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke Ptr Requisition
rqPtr Requisition
req))

-- %hash c:8ec5 d:af3f
-- | Inform widget about the size it has.
--
-- * After querying a widget for the size it wants to have (through emitting
-- the @\"sizeRequest\"@ signal) a container will emit this signal to
-- inform the widget about the real size it should occupy.
--
sizeAllocate :: WidgetClass self => Signal self (Allocation -> IO ())
sizeAllocate :: forall self. WidgetClass self => Signal self (Allocation -> IO ())
sizeAllocate = (Bool -> self -> (Allocation -> IO ()) -> IO (ConnectId self))
-> Signal self (Allocation -> IO ())
forall object handler.
(Bool -> object -> handler -> IO (ConnectId object))
-> Signal object handler
Signal (String
-> (Ptr Allocation -> IO Allocation)
-> Bool
-> self
-> (Allocation -> IO ())
-> IO (ConnectId self)
forall obj a' a.
GObjectClass obj =>
String
-> (Ptr a' -> IO a)
-> Bool
-> obj
-> (a -> IO ())
-> IO (ConnectId obj)
connect_BOXED__NONE String
"size-allocate" Ptr Allocation -> IO Allocation
forall a. Storable a => Ptr a -> IO a
peek)

-- %hash c:ae3e d:af3f
-- | The widget is shown.
--
showSignal :: WidgetClass self => Signal self (IO ())
showSignal :: forall self. WidgetClass self => Signal self (IO ())
showSignal = (Bool -> self -> IO () -> IO (ConnectId self))
-> Signal self (IO ())
forall object handler.
(Bool -> object -> handler -> IO (ConnectId object))
-> Signal object handler
Signal (String -> Bool -> self -> IO () -> IO (ConnectId self)
forall obj.
GObjectClass obj =>
String -> Bool -> obj -> IO () -> IO (ConnectId obj)
connect_NONE__NONE String
"show")

-- %hash c:f589 d:af3f
-- | The widget is hidden.
--
hideSignal :: WidgetClass self => Signal self (IO ())
hideSignal :: forall self. WidgetClass self => Signal self (IO ())
hideSignal = (Bool -> self -> IO () -> IO (ConnectId self))
-> Signal self (IO ())
forall object handler.
(Bool -> object -> handler -> IO (ConnectId object))
-> Signal object handler
Signal (String -> Bool -> self -> IO () -> IO (ConnectId self)
forall obj.
GObjectClass obj =>
String -> Bool -> obj -> IO () -> IO (ConnectId obj)
connect_NONE__NONE String
"hide")

-- %hash c:a285 d:af3f
-- | The widget gains focus via the given user action.
--
focus :: WidgetClass self => Signal self (DirectionType -> IO Bool)
focus :: forall self.
WidgetClass self =>
Signal self (DirectionType -> IO Bool)
focus = (Bool -> self -> (DirectionType -> IO Bool) -> IO (ConnectId self))
-> Signal self (DirectionType -> IO Bool)
forall object handler.
(Bool -> object -> handler -> IO (ConnectId object))
-> Signal object handler
Signal (String
-> Bool
-> self
-> (DirectionType -> IO Bool)
-> IO (ConnectId self)
forall a obj.
(Enum a, GObjectClass obj) =>
String -> Bool -> obj -> (a -> IO Bool) -> IO (ConnectId obj)
connect_ENUM__BOOL String
"focus")

-- %hash c:78ae d:af3f
-- | The state of the widget (input focus, insensitive, etc.) has changed.
--
stateChanged :: WidgetClass self => Signal self (StateType -> IO ())
stateChanged :: forall self. WidgetClass self => Signal self (StateType -> IO ())
stateChanged = (Bool -> self -> (StateType -> IO ()) -> IO (ConnectId self))
-> Signal self (StateType -> IO ())
forall object handler.
(Bool -> object -> handler -> IO (ConnectId object))
-> Signal object handler
Signal (String
-> Bool -> self -> (StateType -> IO ()) -> IO (ConnectId self)
forall a obj.
(Enum a, GObjectClass obj) =>
String -> Bool -> obj -> (a -> IO ()) -> IO (ConnectId obj)
connect_ENUM__NONE String
"state-changed")
{-# LINE 3810 "./Graphics/UI/Gtk/Abstract/Widget.chs" #-}
-- %hash c:bef2 d:1d66
-- | The 'parentSet' signal is emitted when a new parent has been set on a
-- widget. The parameter is the new parent.
--
parentSet :: WidgetClass self => Signal self (Maybe Widget -> IO ())
parentSet :: forall self.
WidgetClass self =>
Signal self (Maybe Widget -> IO ())
parentSet = (Bool -> self -> (Maybe Widget -> IO ()) -> IO (ConnectId self))
-> Signal self (Maybe Widget -> IO ())
forall object handler.
(Bool -> object -> handler -> IO (ConnectId object))
-> Signal object handler
Signal (String
-> Bool -> self -> (Maybe Widget -> IO ()) -> IO (ConnectId self)
forall a' obj.
(GObjectClass a', GObjectClass obj) =>
String -> Bool -> obj -> (Maybe a' -> IO ()) -> IO (ConnectId obj)
connect_MOBJECT__NONE String
"parent-set")

-- %hash c:7e2b d:4049
-- | Emitted when there is a change in the hierarchy to which a widget belong.
-- More precisely, a widget is anchored when its toplevel ancestor is a
-- 'Window'. This signal is emitted when a widget changes from un-anchored to
-- anchored or vice-versa.
--
hierarchyChanged :: WidgetClass self => Signal self (Maybe Widget -> IO ())
hierarchyChanged :: forall self.
WidgetClass self =>
Signal self (Maybe Widget -> IO ())
hierarchyChanged = (Bool -> self -> (Maybe Widget -> IO ()) -> IO (ConnectId self))
-> Signal self (Maybe Widget -> IO ())
forall object handler.
(Bool -> object -> handler -> IO (ConnectId object))
-> Signal object handler
Signal (String
-> Bool -> self -> (Maybe Widget -> IO ()) -> IO (ConnectId self)
forall a' obj.
(GObjectClass a', GObjectClass obj) =>
String -> Bool -> obj -> (Maybe a' -> IO ()) -> IO (ConnectId obj)
connect_MOBJECT__NONE String
"hierarchy-changed")

-- %hash c:5894 d:ba10
-- | The 'styleSet' signal is emitted when a new style has been set on a
-- widget. Note that style-modifying functions like 'widgetModifyBase' also
-- cause this signal to be emitted.
--
styleSet :: WidgetClass self => Signal self (Style -> IO ())
styleSet :: forall self. WidgetClass self => Signal self (Style -> IO ())
styleSet = (Bool -> self -> (Style -> IO ()) -> IO (ConnectId self))
-> Signal self (Style -> IO ())
forall object handler.
(Bool -> object -> handler -> IO (ConnectId object))
-> Signal object handler
Signal (String -> Bool -> self -> (Style -> IO ()) -> IO (ConnectId self)
forall a' obj.
(GObjectClass a', GObjectClass obj) =>
String -> Bool -> obj -> (a' -> IO ()) -> IO (ConnectId obj)
connect_OBJECT__NONE String
"style-set")

-- %hash c:6bb1 d:af3f
-- | The default direction of text writing has changed.
--
directionChanged :: WidgetClass self => Signal self (TextDirection -> IO ())
directionChanged :: forall self.
WidgetClass self =>
Signal self (TextDirection -> IO ())
directionChanged = (Bool -> self -> (TextDirection -> IO ()) -> IO (ConnectId self))
-> Signal self (TextDirection -> IO ())
forall object handler.
(Bool -> object -> handler -> IO (ConnectId object))
-> Signal object handler
Signal (String
-> Bool -> self -> (TextDirection -> IO ()) -> IO (ConnectId self)
forall a obj.
(Enum a, GObjectClass obj) =>
String -> Bool -> obj -> (a -> IO ()) -> IO (ConnectId obj)
connect_ENUM__NONE String
"direction-changed")

-- %hash c:c28c d:d116
-- | The 'grabNotify' signal is emitted when a widget becomes shadowed by a
-- Gtk+ grab (not a pointer or keyboard grab) on another widget, or when it
-- becomes unshadowed due to a grab being removed.
--
-- A widget is shadowed by a 'grabAdd' when the topmost grab widget in the
-- grab stack of its window group is not its ancestor.
--
grabNotify :: WidgetClass self => Signal self (Bool -> IO ())
grabNotify :: forall self. WidgetClass self => Signal self (Bool -> IO ())
grabNotify = (Bool -> self -> (Bool -> IO ()) -> IO (ConnectId self))
-> Signal self (Bool -> IO ())
forall object handler.
(Bool -> object -> handler -> IO (ConnectId object))
-> Signal object handler
Signal (String -> Bool -> self -> (Bool -> IO ()) -> IO (ConnectId self)
forall obj.
GObjectClass obj =>
String -> Bool -> obj -> (Bool -> IO ()) -> IO (ConnectId obj)
connect_BOOL__NONE String
"grab-notify")

-- %hash c:e06c d:a681
-- | This signal gets emitted whenever a widget should pop up a
-- context-sensitive menu. This usually happens through the standard key
-- binding mechanism; by pressing a certain key while a widget is focused, the
-- user can cause the widget to pop up a menu. For example, the 'Entry' widget
-- creates a menu with clipboard commands.
--
popupMenuSignal :: WidgetClass self => Signal self (IO Bool)
popupMenuSignal :: forall self. WidgetClass self => Signal self (IO Bool)
popupMenuSignal = (Bool -> self -> IO Bool -> IO (ConnectId self))
-> Signal self (IO Bool)
forall object handler.
(Bool -> object -> handler -> IO (ConnectId object))
-> Signal object handler
Signal (String -> Bool -> self -> IO Bool -> IO (ConnectId self)
forall obj.
GObjectClass obj =>
String -> Bool -> obj -> IO Bool -> IO (ConnectId obj)
connect_NONE__BOOL String
"popup-menu")

-- | Specify what kind of help the user wants.
data WidgetHelpType = WidgetHelpTooltip
                    | WidgetHelpWhatsThis
                    deriving (Int -> WidgetHelpType
WidgetHelpType -> Int
WidgetHelpType -> [WidgetHelpType]
WidgetHelpType -> WidgetHelpType
WidgetHelpType -> WidgetHelpType -> [WidgetHelpType]
WidgetHelpType
-> WidgetHelpType -> WidgetHelpType -> [WidgetHelpType]
(WidgetHelpType -> WidgetHelpType)
-> (WidgetHelpType -> WidgetHelpType)
-> (Int -> WidgetHelpType)
-> (WidgetHelpType -> Int)
-> (WidgetHelpType -> [WidgetHelpType])
-> (WidgetHelpType -> WidgetHelpType -> [WidgetHelpType])
-> (WidgetHelpType -> WidgetHelpType -> [WidgetHelpType])
-> (WidgetHelpType
    -> WidgetHelpType -> WidgetHelpType -> [WidgetHelpType])
-> Enum WidgetHelpType
forall a.
(a -> a)
-> (a -> a)
-> (Int -> a)
-> (a -> Int)
-> (a -> [a])
-> (a -> a -> [a])
-> (a -> a -> [a])
-> (a -> a -> a -> [a])
-> Enum a
$csucc :: WidgetHelpType -> WidgetHelpType
succ :: WidgetHelpType -> WidgetHelpType
$cpred :: WidgetHelpType -> WidgetHelpType
pred :: WidgetHelpType -> WidgetHelpType
$ctoEnum :: Int -> WidgetHelpType
toEnum :: Int -> WidgetHelpType
$cfromEnum :: WidgetHelpType -> Int
fromEnum :: WidgetHelpType -> Int
$cenumFrom :: WidgetHelpType -> [WidgetHelpType]
enumFrom :: WidgetHelpType -> [WidgetHelpType]
$cenumFromThen :: WidgetHelpType -> WidgetHelpType -> [WidgetHelpType]
enumFromThen :: WidgetHelpType -> WidgetHelpType -> [WidgetHelpType]
$cenumFromTo :: WidgetHelpType -> WidgetHelpType -> [WidgetHelpType]
enumFromTo :: WidgetHelpType -> WidgetHelpType -> [WidgetHelpType]
$cenumFromThenTo :: WidgetHelpType
-> WidgetHelpType -> WidgetHelpType -> [WidgetHelpType]
enumFromThenTo :: WidgetHelpType
-> WidgetHelpType -> WidgetHelpType -> [WidgetHelpType]
Enum,WidgetHelpType -> WidgetHelpType -> Bool
(WidgetHelpType -> WidgetHelpType -> Bool)
-> (WidgetHelpType -> WidgetHelpType -> Bool) -> Eq WidgetHelpType
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: WidgetHelpType -> WidgetHelpType -> Bool
== :: WidgetHelpType -> WidgetHelpType -> Bool
$c/= :: WidgetHelpType -> WidgetHelpType -> Bool
/= :: WidgetHelpType -> WidgetHelpType -> Bool
Eq,Int -> WidgetHelpType -> ShowS
[WidgetHelpType] -> ShowS
WidgetHelpType -> String
(Int -> WidgetHelpType -> ShowS)
-> (WidgetHelpType -> String)
-> ([WidgetHelpType] -> ShowS)
-> Show WidgetHelpType
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> WidgetHelpType -> ShowS
showsPrec :: Int -> WidgetHelpType -> ShowS
$cshow :: WidgetHelpType -> String
show :: WidgetHelpType -> String
$cshowList :: [WidgetHelpType] -> ShowS
showList :: [WidgetHelpType] -> ShowS
Show)

{-# LINE 3863 "./Graphics/UI/Gtk/Abstract/Widget.chs" #-}

-- %hash c:b18e d:af3f
-- | Tell the widget to show an explanatory help text. Should return @True@
-- if help has been shown.
--
showHelp :: WidgetClass self => Signal self (WidgetHelpType -> IO Bool)
showHelp :: forall self.
WidgetClass self =>
Signal self (WidgetHelpType -> IO Bool)
showHelp = (Bool
 -> self -> (WidgetHelpType -> IO Bool) -> IO (ConnectId self))
-> Signal self (WidgetHelpType -> IO Bool)
forall object handler.
(Bool -> object -> handler -> IO (ConnectId object))
-> Signal object handler
Signal (String
-> Bool
-> self
-> (WidgetHelpType -> IO Bool)
-> IO (ConnectId self)
forall a obj.
(Enum a, GObjectClass obj) =>
String -> Bool -> obj -> (a -> IO Bool) -> IO (ConnectId obj)
connect_ENUM__BOOL String
"show-help")

-- %hash c:6a8f d:af3f
-- | The set of keyboard accelerators has changed.
--
accelClosuresChanged :: WidgetClass self => Signal self (IO ())
accelClosuresChanged :: forall self. WidgetClass self => Signal self (IO ())
accelClosuresChanged = (Bool -> self -> IO () -> IO (ConnectId self))
-> Signal self (IO ())
forall object handler.
(Bool -> object -> handler -> IO (ConnectId object))
-> Signal object handler
Signal (String -> Bool -> self -> IO () -> IO (ConnectId self)
forall obj.
GObjectClass obj =>
String -> Bool -> obj -> IO () -> IO (ConnectId obj)
connect_NONE__NONE String
"accel-closures-changed")

-- %hash c:5ca d:af3f
-- | The widget moved to a new screen.
--
screenChanged :: WidgetClass self => Signal self (Screen -> IO ())
screenChanged :: forall self. WidgetClass self => Signal self (Screen -> IO ())
screenChanged = (Bool -> self -> (Screen -> IO ()) -> IO (ConnectId self))
-> Signal self (Screen -> IO ())
forall object handler.
(Bool -> object -> handler -> IO (ConnectId object))
-> Signal object handler
Signal (String -> Bool -> self -> (Screen -> IO ()) -> IO (ConnectId self)
forall a' obj.
(GObjectClass a', GObjectClass obj) =>
String -> Bool -> obj -> (a' -> IO ()) -> IO (ConnectId obj)
connect_OBJECT__NONE String
"screen-changed")

-- | Emitted when 'hasTooltip' is 'True' and the 'gtkTooltipTimeout' has expired with the cursor
-- hovering "above" widget; or emitted when widget got focus in keyboard mode.
--
-- Using the given coordinates, the signal handler should determine whether a tooltip should be shown
-- for widget. If this is the case 'True' should be returned, 'False' otherwise.
-- Note if widget got focus in keyboard mode, 'Point' is 'Nothing'.
--
-- The signal handler is free to manipulate tooltip with the therefore destined function calls.
--
-- * Available since Gtk+ version 2.12
--
queryTooltip :: WidgetClass self => Signal self (Widget -> Maybe Point -> Tooltip -> IO Bool)
queryTooltip :: forall self.
WidgetClass self =>
Signal self (Widget -> Maybe (Int, Int) -> Tooltip -> IO Bool)
queryTooltip =
  (Bool
 -> self
 -> (Widget -> Maybe (Int, Int) -> Tooltip -> IO Bool)
 -> IO (ConnectId self))
-> Signal self (Widget -> Maybe (Int, Int) -> Tooltip -> IO Bool)
forall object handler.
(Bool -> object -> handler -> IO (ConnectId object))
-> Signal object handler
Signal (\Bool
after self
model Widget -> Maybe (Int, Int) -> Tooltip -> IO Bool
user ->
           String
-> Bool
-> self
-> (Widget -> Int -> Int -> Bool -> Tooltip -> IO Bool)
-> IO (ConnectId self)
forall a' e' obj.
(GObjectClass a', GObjectClass e', GObjectClass obj) =>
String
-> Bool
-> obj
-> (a' -> Int -> Int -> Bool -> e' -> IO Bool)
-> IO (ConnectId obj)
connect_OBJECT_INT_INT_BOOL_OBJECT__BOOL String
"query-tooltip"
             Bool
after self
model (\Widget
widget Int
x Int
y Bool
keyb Tooltip
tooltip ->
                              Widget -> Maybe (Int, Int) -> Tooltip -> IO Bool
user Widget
widget (if Bool
keyb then Maybe (Int, Int)
forall a. Maybe a
Nothing else (Int, Int) -> Maybe (Int, Int)
forall a. a -> Maybe a
Just (Int
x, Int
y)) Tooltip
tooltip))
{-# LINE 3908 "./Graphics/UI/Gtk/Abstract/Widget.chs" #-}
-- * Events
--
-- An event is a signal that indicates that some low-level interaction like a
-- button or key press, mouse movement, etc. has occurred. In particular,
-- events relate to operations on 'DrawWindow's which are a concept of the
-- underlying OS rather than the logical widget concept. Some widgets have no
-- window and use their parent to receive these events. Widgets normally
-- synthesize more sophistiacted signals from events. For instance, the
-- 'focusIn' and a 'focusOut' signal indicate that the widget gains or looses
-- the input focus. From these events a 'focus' signal is synthesized that
-- indicates what maneuver lead to the input focus change (i.e. a tab or
-- shift-tab key press).
--
-- For applications it is often sufficient to connect to the high-level
-- signals rather than the low-level events. Only in cases where a custom
-- widget is built based on the 'DarwingArea' skeleton, the functionality of
-- such an application-specific widget needs to be implemented using events.
--
-- Every event is passed an 'Event' structure that contains the data of the
-- event. The return value should be @True@ if the handler has dealt with the
-- event and @False@ if the event should be propagated further. For instance,
-- if a key press event that isn't meaningful in the widget, the handler can
-- return @False@ such that the key is handled by the other widgets (the main
-- menu, for instance).
--


-- Because there are so many similar signals (those that take an Event and
-- return a Bool) we will abstract out the skeleton. As some of these events
-- are emitted at a high rate often a bit has to be set to enable emission.


eventM :: WidgetClass w => SignalName -> [EventMask] ->
  ConnectAfter -> w -> (EventM t Bool) -> IO (ConnectId w)
eventM :: forall w t.
WidgetClass w =>
String
-> [EventMask] -> Bool -> w -> EventM t Bool -> IO (ConnectId w)
eventM String
name [EventMask]
eMask Bool
after w
obj EventM t Bool
fun = do
  ConnectId w
id <- String -> Bool -> w -> (Ptr t -> IO Bool) -> IO (ConnectId w)
forall obj a.
GObjectClass obj =>
String -> Bool -> obj -> (Ptr a -> IO Bool) -> IO (ConnectId obj)
connect_PTR__BOOL String
name Bool
after w
obj (EventM t Bool -> Ptr t -> IO Bool
forall r (m :: * -> *) a. ReaderT r m a -> r -> m a
runReaderT EventM t Bool
fun)
  w -> [EventMask] -> IO ()
forall self. WidgetClass self => self -> [EventMask] -> IO ()
widgetAddEvents w
obj [EventMask]
eMask
  ConnectId w -> IO (ConnectId w)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ConnectId w
id

-- %hash c:6cc d:af3f
-- | A mouse button has been depressed while the mouse pointer was within the
-- widget area. Sets the widget's 'ButtonPressMask' flag.
--
buttonPressEvent :: WidgetClass self => Signal self (EventM EButton Bool)
buttonPressEvent :: forall self. WidgetClass self => Signal self (EventM EButton Bool)
buttonPressEvent = (Bool -> self -> EventM EButton Bool -> IO (ConnectId self))
-> Signal self (EventM EButton Bool)
forall object handler.
(Bool -> object -> handler -> IO (ConnectId object))
-> Signal object handler
Signal (String
-> [EventMask]
-> Bool
-> self
-> EventM EButton Bool
-> IO (ConnectId self)
forall w t.
WidgetClass w =>
String
-> [EventMask] -> Bool -> w -> EventM t Bool -> IO (ConnectId w)
eventM String
"button_press_event" [EventMask
ButtonPressMask])

-- %hash c:62e8 d:af3f
-- | A mouse button has been released. Sets the widget's 'ButtonReleaseMask'
-- flag.
--
buttonReleaseEvent :: WidgetClass self => Signal self (EventM EButton Bool)
buttonReleaseEvent :: forall self. WidgetClass self => Signal self (EventM EButton Bool)
buttonReleaseEvent = (Bool -> self -> EventM EButton Bool -> IO (ConnectId self))
-> Signal self (EventM EButton Bool)
forall object handler.
(Bool -> object -> handler -> IO (ConnectId object))
-> Signal object handler
Signal (String
-> [EventMask]
-> Bool
-> self
-> EventM EButton Bool
-> IO (ConnectId self)
forall w t.
WidgetClass w =>
String
-> [EventMask] -> Bool -> w -> EventM t Bool -> IO (ConnectId w)
eventM String
"button_release_event" [EventMask
ButtonReleaseMask])

-- %hash c:23e5 d:af3f
-- | The scroll wheel of the mouse has been used. Sets the widget's
-- 'ScrollMask' flag.
--
scrollEvent :: WidgetClass self => Signal self (EventM EScroll Bool)
scrollEvent :: forall self. WidgetClass self => Signal self (EventM EScroll Bool)
scrollEvent = (Bool -> self -> EventM EScroll Bool -> IO (ConnectId self))
-> Signal self (EventM EScroll Bool)
forall object handler.
(Bool -> object -> handler -> IO (ConnectId object))
-> Signal object handler
Signal (String
-> [EventMask]
-> Bool
-> self
-> EventM EScroll Bool
-> IO (ConnectId self)
forall w t.
WidgetClass w =>
String
-> [EventMask] -> Bool -> w -> EventM t Bool -> IO (ConnectId w)
eventM String
"scroll_event" [EventMask
ScrollMask])

-- %hash c:ee92 d:af3f
-- | The mouse pointer has moved. Since receiving all mouse movements is
-- expensive, it is necessary to specify exactly what mouse motions are
-- required by calling 'widgetAddEvents' on this widget with one or more of
-- the following flags:
--
-- * 'PointerMotionMask': Track all movements.
--
-- * 'ButtonMotionMask': Only track movements if a button is depressed.
--
-- * 'Button1MotionMask': Only track movements if the left button is depressed.
--
-- * 'Button2MotionMask': Only track movements if the middle button is depressed.
--
-- * 'Button3MotionMask': Only track movements if the right button is depressed.
-- 'PointerMotionHintMask' is a special flag which can be used in
-- combination with any of the above and is used to reduce the number of
-- 'motionNotifyEvent's received. Normally a 'motionNotifyEvent' event is
-- received each time the mouse moves. However, if the application spends a
-- lot of time processing the event (updating the display, for example), it
-- can lag behind the position of the mouse. When using
-- 'PointerMotionHintMask', fewer 'motionNotifyEvent's will be sent, some of
-- which are marked as a hint. To receive more motion events after a motion
-- hint event, the application needs to asks for more, by calling
-- 'Graphics.UI.Gtk.Gdk.EventM.eventRequestMotions'. This effectively limits
-- the rate at which new motion events are received. (Note that you don't
-- need to check if the hint is set as
-- 'Graphics.UI.Gtk.Gdk.EventM.eventRequestMotions' does so automatically.)
--
motionNotifyEvent :: WidgetClass self => Signal self (EventM EMotion Bool)
motionNotifyEvent :: forall self. WidgetClass self => Signal self (EventM EMotion Bool)
motionNotifyEvent = (Bool -> self -> EventM EMotion Bool -> IO (ConnectId self))
-> Signal self (EventM EMotion Bool)
forall object handler.
(Bool -> object -> handler -> IO (ConnectId object))
-> Signal object handler
Signal (String
-> [EventMask]
-> Bool
-> self
-> EventM EMotion Bool
-> IO (ConnectId self)
forall w t.
WidgetClass w =>
String
-> [EventMask] -> Bool -> w -> EventM t Bool -> IO (ConnectId w)
eventM String
"motion_notify_event" [])

-- %hash c:8783 d:3e27
-- | The 'deleteEvent' signal is emitted if a user requests that a toplevel
-- window is closed. The default handler for this signal destroys the window.
-- Calling 'widgetHide' and returning @True@ on reception of this signal will
-- cause the window to be hidden instead, so that it can later be shown again
-- without reconstructing it.
--
deleteEvent :: WidgetClass self => Signal self (EventM EAny Bool)
deleteEvent :: forall self. WidgetClass self => Signal self (EventM EAny Bool)
deleteEvent = (Bool -> self -> EventM EAny Bool -> IO (ConnectId self))
-> Signal self (EventM EAny Bool)
forall object handler.
(Bool -> object -> handler -> IO (ConnectId object))
-> Signal object handler
Signal (String
-> [EventMask]
-> Bool
-> self
-> EventM EAny Bool
-> IO (ConnectId self)
forall w t.
WidgetClass w =>
String
-> [EventMask] -> Bool -> w -> EventM t Bool -> IO (ConnectId w)
eventM String
"delete_event" [])

-- %hash c:c408 d:5514
-- | The 'destroyEvent' signal is emitted when a 'DrawWindow' is destroyed.
-- You rarely get this signal, because most widgets disconnect themselves from
-- their window before they destroy it, so no widget owns the window at
-- destroy time. However, you might want to connect to the 'objectDestroy'
-- signal of 'Object'.
--
destroyEvent :: WidgetClass self => Signal self (EventM EAny Bool)
destroyEvent :: forall self. WidgetClass self => Signal self (EventM EAny Bool)
destroyEvent = (Bool -> self -> EventM EAny Bool -> IO (ConnectId self))
-> Signal self (EventM EAny Bool)
forall object handler.
(Bool -> object -> handler -> IO (ConnectId object))
-> Signal object handler
Signal (String
-> [EventMask]
-> Bool
-> self
-> EventM EAny Bool
-> IO (ConnectId self)
forall w t.
WidgetClass w =>
String
-> [EventMask] -> Bool -> w -> EventM t Bool -> IO (ConnectId w)
eventM String
"destroy_event" [])

-- %hash c:c79e d:af3f

-- | Instructs the widget to redraw.
--
-- * The 'DrawWindow' that needs to be redrawn is available via
-- 'eventWindow'.
--
-- * The part that needs to be redrawn is available via 'eventArea' and
-- 'eventRegion'. The options are, in order of efficiency: (a) redraw the
-- entire window, (b) ask for the 'eventArea' and redraw that rectangle, (c)
-- ask for the 'eventRegion' and redraw each of those rectangles.
--
-- Only the exposed region will be updated; see also
-- 'drawWindowBeginPaintRegion'.

exposeEvent :: WidgetClass self => Signal self (EventM EExpose Bool)
exposeEvent :: forall self. WidgetClass self => Signal self (EventM EExpose Bool)
exposeEvent = (Bool -> self -> EventM EExpose Bool -> IO (ConnectId self))
-> Signal self (EventM EExpose Bool)
forall object handler.
(Bool -> object -> handler -> IO (ConnectId object))
-> Signal object handler
Signal (String
-> [EventMask]
-> Bool
-> self
-> EventM EExpose Bool
-> IO (ConnectId self)
forall w t.
WidgetClass w =>
String
-> [EventMask] -> Bool -> w -> EventM t Bool -> IO (ConnectId w)
eventM String
"expose_event" [])

-- %hash c:5ccd d:af3f
-- | A key has been depressed. Sets the widget's 'KeyPressMask' flag.
--
keyPressEvent :: WidgetClass self => Signal self (EventM EKey Bool)
keyPressEvent :: forall self. WidgetClass self => Signal self (EventM EKey Bool)
keyPressEvent = (Bool -> self -> EventM EKey Bool -> IO (ConnectId self))
-> Signal self (EventM EKey Bool)
forall object handler.
(Bool -> object -> handler -> IO (ConnectId object))
-> Signal object handler
Signal (String
-> [EventMask]
-> Bool
-> self
-> EventM EKey Bool
-> IO (ConnectId self)
forall w t.
WidgetClass w =>
String
-> [EventMask] -> Bool -> w -> EventM t Bool -> IO (ConnectId w)
eventM String
"key_press_event" [EventMask
KeyPressMask])

-- %hash c:bd29 d:af3f
-- | A key has been released. Sets the widget's 'KeyReleaseMask' flag.
--
keyReleaseEvent :: WidgetClass self => Signal self (EventM EKey Bool)
keyReleaseEvent :: forall self. WidgetClass self => Signal self (EventM EKey Bool)
keyReleaseEvent = (Bool -> self -> EventM EKey Bool -> IO (ConnectId self))
-> Signal self (EventM EKey Bool)
forall object handler.
(Bool -> object -> handler -> IO (ConnectId object))
-> Signal object handler
Signal (String
-> [EventMask]
-> Bool
-> self
-> EventM EKey Bool
-> IO (ConnectId self)
forall w t.
WidgetClass w =>
String
-> [EventMask] -> Bool -> w -> EventM t Bool -> IO (ConnectId w)
eventM String
"key_release_event" [EventMask
KeyReleaseMask])

-- %hash c:602e d:af3f
-- | The mouse pointer has entered the widget. Sets the widget's
-- 'EnterNotifyMask' flag.
--
enterNotifyEvent :: WidgetClass self => Signal self (EventM ECrossing Bool)
enterNotifyEvent :: forall self.
WidgetClass self =>
Signal self (EventM ECrossing Bool)
enterNotifyEvent = (Bool -> self -> EventM ECrossing Bool -> IO (ConnectId self))
-> Signal self (EventM ECrossing Bool)
forall object handler.
(Bool -> object -> handler -> IO (ConnectId object))
-> Signal object handler
Signal (String
-> [EventMask]
-> Bool
-> self
-> EventM ECrossing Bool
-> IO (ConnectId self)
forall w t.
WidgetClass w =>
String
-> [EventMask] -> Bool -> w -> EventM t Bool -> IO (ConnectId w)
eventM String
"enter_notify_event" [EventMask
EnterNotifyMask])

-- %hash c:3bfb d:af3f
-- | The mouse pointer has left the widget. Sets the widget's
-- 'LeaveNotifyMask' flag.
--
leaveNotifyEvent :: WidgetClass self => Signal self (EventM ECrossing Bool)
leaveNotifyEvent :: forall self.
WidgetClass self =>
Signal self (EventM ECrossing Bool)
leaveNotifyEvent = (Bool -> self -> EventM ECrossing Bool -> IO (ConnectId self))
-> Signal self (EventM ECrossing Bool)
forall object handler.
(Bool -> object -> handler -> IO (ConnectId object))
-> Signal object handler
Signal (String
-> [EventMask]
-> Bool
-> self
-> EventM ECrossing Bool
-> IO (ConnectId self)
forall w t.
WidgetClass w =>
String
-> [EventMask] -> Bool -> w -> EventM t Bool -> IO (ConnectId w)
eventM String
"leave_notify_event" [EventMask
LeaveNotifyMask])

-- %hash c:2b64 d:af3f
-- | The size of the window has changed.
--
configureEvent :: WidgetClass self => Signal self (EventM EConfigure Bool)
configureEvent :: forall self.
WidgetClass self =>
Signal self (EventM EConfigure Bool)
configureEvent = (Bool -> self -> EventM EConfigure Bool -> IO (ConnectId self))
-> Signal self (EventM EConfigure Bool)
forall object handler.
(Bool -> object -> handler -> IO (ConnectId object))
-> Signal object handler
Signal (String
-> [EventMask]
-> Bool
-> self
-> EventM EConfigure Bool
-> IO (ConnectId self)
forall w t.
WidgetClass w =>
String
-> [EventMask] -> Bool -> w -> EventM t Bool -> IO (ConnectId w)
eventM String
"configure_event" [])

-- %hash c:427e d:af3f
-- | The widget gets the input focus. Sets the widget's 'FocusChangeMask' flag.
--
focusInEvent :: WidgetClass self => Signal self (EventM EFocus Bool)
focusInEvent :: forall self. WidgetClass self => Signal self (EventM EFocus Bool)
focusInEvent = (Bool -> self -> EventM EFocus Bool -> IO (ConnectId self))
-> Signal self (EventM EFocus Bool)
forall object handler.
(Bool -> object -> handler -> IO (ConnectId object))
-> Signal object handler
Signal (String
-> [EventMask]
-> Bool
-> self
-> EventM EFocus Bool
-> IO (ConnectId self)
forall w t.
WidgetClass w =>
String
-> [EventMask] -> Bool -> w -> EventM t Bool -> IO (ConnectId w)
eventM String
"focus_in_event" [EventMask
FocusChangeMask])

-- %hash c:5281 d:af3f
-- | The widget lost the input focus. Sets the widget's 'FocusChangeMask' flag.
--
focusOutEvent :: WidgetClass self => Signal self (EventM EFocus Bool)
focusOutEvent :: forall self. WidgetClass self => Signal self (EventM EFocus Bool)
focusOutEvent = (Bool -> self -> EventM EFocus Bool -> IO (ConnectId self))
-> Signal self (EventM EFocus Bool)
forall object handler.
(Bool -> object -> handler -> IO (ConnectId object))
-> Signal object handler
Signal (String
-> [EventMask]
-> Bool
-> self
-> EventM EFocus Bool
-> IO (ConnectId self)
forall w t.
WidgetClass w =>
String
-> [EventMask] -> Bool -> w -> EventM t Bool -> IO (ConnectId w)
eventM String
"focus_out_event" [EventMask
FocusChangeMask])

-- %hash c:63c4 d:af3f
-- | The window is put onto the screen.
--
mapEvent :: WidgetClass self => Signal self (EventM EAny Bool)
mapEvent :: forall self. WidgetClass self => Signal self (EventM EAny Bool)
mapEvent = (Bool -> self -> EventM EAny Bool -> IO (ConnectId self))
-> Signal self (EventM EAny Bool)
forall object handler.
(Bool -> object -> handler -> IO (ConnectId object))
-> Signal object handler
Signal (String
-> [EventMask]
-> Bool
-> self
-> EventM EAny Bool
-> IO (ConnectId self)
forall w t.
WidgetClass w =>
String
-> [EventMask] -> Bool -> w -> EventM t Bool -> IO (ConnectId w)
eventM String
"map_event" [])

-- %hash c:342d d:af3f
-- | The window is taken off the screen.
--
unmapEvent :: WidgetClass self => Signal self (EventM EAny Bool)
unmapEvent :: forall self. WidgetClass self => Signal self (EventM EAny Bool)
unmapEvent = (Bool -> self -> EventM EAny Bool -> IO (ConnectId self))
-> Signal self (EventM EAny Bool)
forall object handler.
(Bool -> object -> handler -> IO (ConnectId object))
-> Signal object handler
Signal (String
-> [EventMask]
-> Bool
-> self
-> EventM EAny Bool
-> IO (ConnectId self)
forall w t.
WidgetClass w =>
String
-> [EventMask] -> Bool -> w -> EventM t Bool -> IO (ConnectId w)
eventM String
"unmap_event" [])

-- %hash c:a1dd d:af3f
-- | A 'DrawWindow' may be associated with a set of properties that are
-- identified by a 'PropertyTag'. This event is triggered if a property is
-- changed or deleted. Sets the widget's 'PropertyChangeMask' flag.
--
_propertyNotifyEvent :: WidgetClass self => Signal self (EventM EProperty Bool)
_propertyNotifyEvent :: forall self.
WidgetClass self =>
Signal self (EventM EProperty Bool)
_propertyNotifyEvent = (Bool -> self -> EventM EProperty Bool -> IO (ConnectId self))
-> Signal self (EventM EProperty Bool)
forall object handler.
(Bool -> object -> handler -> IO (ConnectId object))
-> Signal object handler
Signal (String
-> [EventMask]
-> Bool
-> self
-> EventM EProperty Bool
-> IO (ConnectId self)
forall w t.
WidgetClass w =>
String
-> [EventMask] -> Bool -> w -> EventM t Bool -> IO (ConnectId w)
eventM String
"property_notify_event" [EventMask
PropertyChangeMask])

{- not sure if these are useful
-- %hash c:58cc d:af3f
-- |
--
selectionClearEvent :: WidgetClass self => Signal self ({-GdkEventSelection*-} Bool)
selectionClearEvent = Signal (connect_{-GdkEventSelection*-}__BOOL "selection_clear_event")

-- %hash c:4f92 d:af3f
-- |
--
selectionRequestEvent :: WidgetClass self => Signal self ({-GdkEventSelection*-} Bool)
selectionRequestEvent = Signal (connect_{-GdkEventSelection*-}__BOOL "selection_request_event")

-- %hash c:b842 d:af3f
-- |
--
selectionNotifyEvent :: WidgetClass self => Signal self ({-GdkEventSelection*-} Bool)
selectionNotifyEvent = Signal (connect_{-GdkEventSelection*-}__BOOL "selection_notify_event")
-}

-- %hash c:b027 d:af3f
-- | The pen of a graphics tablet was put down. Sets the widget's
-- 'ProximityInMask' flag.
--
proximityInEvent :: WidgetClass self => Signal self (EventM EProximity Bool)
proximityInEvent :: forall self.
WidgetClass self =>
Signal self (EventM EProximity Bool)
proximityInEvent = (Bool -> self -> EventM EProximity Bool -> IO (ConnectId self))
-> Signal self (EventM EProximity Bool)
forall object handler.
(Bool -> object -> handler -> IO (ConnectId object))
-> Signal object handler
Signal (String
-> [EventMask]
-> Bool
-> self
-> EventM EProximity Bool
-> IO (ConnectId self)
forall w t.
WidgetClass w =>
String
-> [EventMask] -> Bool -> w -> EventM t Bool -> IO (ConnectId w)
eventM String
"proximity_in_event" [EventMask
ProximityInMask])

-- %hash c:faca d:af3f
-- | The pen of a graphics tablet was lifted off the tablet. Sets the widget's
-- 'ProximityOutMask' flag.
--
proximityOutEvent :: WidgetClass self => Signal self (EventM EProximity Bool)
proximityOutEvent :: forall self.
WidgetClass self =>
Signal self (EventM EProximity Bool)
proximityOutEvent = (Bool -> self -> EventM EProximity Bool -> IO (ConnectId self))
-> Signal self (EventM EProximity Bool)
forall object handler.
(Bool -> object -> handler -> IO (ConnectId object))
-> Signal object handler
Signal (String
-> [EventMask]
-> Bool
-> self
-> EventM EProximity Bool
-> IO (ConnectId self)
forall w t.
WidgetClass w =>
String
-> [EventMask] -> Bool -> w -> EventM t Bool -> IO (ConnectId w)
eventM String
"proximity_out_event" [EventMask
ProximityOutMask])

-- %hash c:db2c d:af3f
-- | Emitted when the window visibility status has changed. Sets the widget's
-- 'VisibilityNotifyMask' flag.
--
visibilityNotifyEvent :: WidgetClass self => Signal self (EventM EVisibility Bool)
visibilityNotifyEvent :: forall self.
WidgetClass self =>
Signal self (EventM EVisibility Bool)
visibilityNotifyEvent = (Bool -> self -> EventM EVisibility Bool -> IO (ConnectId self))
-> Signal self (EventM EVisibility Bool)
forall object handler.
(Bool -> object -> handler -> IO (ConnectId object))
-> Signal object handler
Signal (String
-> [EventMask]
-> Bool
-> self
-> EventM EVisibility Bool
-> IO (ConnectId self)
forall w t.
WidgetClass w =>
String
-> [EventMask] -> Bool -> w -> EventM t Bool -> IO (ConnectId w)
eventM String
"visibility_notify_event" [EventMask
VisibilityNotifyMask])
{-
-- %hash c:3f5 d:af3f
-- |
--
clientEvent :: WidgetClass self => Signal self ({-GdkEventClient*-} Bool)
clientEvent = Signal (connect_{-GdkEventClient*-}__BOOL "client_event")
-}

-- %hash c:643c d:af3f
-- | Generated when the area of a 'Drawable' being copied using, e.g.
-- 'Graphics.UI.Gtk.Gdk.Drawable.drawDrawable', is completely available.
--
noExposeEvent :: WidgetClass self => Signal self (EventM EAny Bool)
noExposeEvent :: forall self. WidgetClass self => Signal self (EventM EAny Bool)
noExposeEvent = (Bool -> self -> EventM EAny Bool -> IO (ConnectId self))
-> Signal self (EventM EAny Bool)
forall object handler.
(Bool -> object -> handler -> IO (ConnectId object))
-> Signal object handler
Signal (String
-> [EventMask]
-> Bool
-> self
-> EventM EAny Bool
-> IO (ConnectId self)
forall w t.
WidgetClass w =>
String
-> [EventMask] -> Bool -> w -> EventM t Bool -> IO (ConnectId w)
eventM String
"no_expose_event" [])

-- %hash c:63b6 d:af3f
-- | Emitted when the state of the window changes, i.e. when it is minimized,
-- moved to the top, etc.
--
windowStateEvent :: WidgetClass self => Signal self (EventM EWindowState Bool)
windowStateEvent :: forall self.
WidgetClass self =>
Signal self (EventM EWindowState Bool)
windowStateEvent = (Bool -> self -> EventM EWindowState Bool -> IO (ConnectId self))
-> Signal self (EventM EWindowState Bool)
forall object handler.
(Bool -> object -> handler -> IO (ConnectId object))
-> Signal object handler
Signal (String
-> [EventMask]
-> Bool
-> self
-> EventM EWindowState Bool
-> IO (ConnectId self)
forall w t.
WidgetClass w =>
String
-> [EventMask] -> Bool -> w -> EventM t Bool -> IO (ConnectId w)
eventM String
"window_state_event" [])


-- %hash c:502a d:e47a
-- | Emitted when a pointer or keyboard grab on a window belonging to @widget@
-- gets broken.
--
-- On X11, this happens when the grab window becomes unviewable (i.e. it or
-- one of its ancestors is unmapped), or if the same application grabs the
-- pointer or keyboard again.
--
-- * Available since Gtk+ version 2.8
--
grabBrokenEvent :: WidgetClass self => Signal self (EventM EGrabBroken Bool)
grabBrokenEvent :: forall self.
WidgetClass self =>
Signal self (EventM EGrabBroken Bool)
grabBrokenEvent = (Bool -> self -> EventM EGrabBroken Bool -> IO (ConnectId self))
-> Signal self (EventM EGrabBroken Bool)
forall object handler.
(Bool -> object -> handler -> IO (ConnectId object))
-> Signal object handler
Signal (String
-> [EventMask]
-> Bool
-> self
-> EventM EGrabBroken Bool
-> IO (ConnectId self)
forall w t.
WidgetClass w =>
String
-> [EventMask] -> Bool -> w -> EventM t Bool -> IO (ConnectId w)
eventM String
"grab_broken_event" [])


--------------------
-- Deprecated Signals and Events



event :: WidgetClass w => SignalName -> [EventMask] ->
  ConnectAfter -> w -> (Event -> IO Bool) -> IO (ConnectId w)
event :: forall w.
WidgetClass w =>
String
-> [EventMask]
-> Bool
-> w
-> (Event -> IO Bool)
-> IO (ConnectId w)
event String
name [EventMask]
eMask Bool
after w
obj Event -> IO Bool
fun = do
  ConnectId w
id <- String
-> (Ptr Event -> IO Event)
-> Bool
-> w
-> (Event -> IO Bool)
-> IO (ConnectId w)
forall obj a' a.
GObjectClass obj =>
String
-> (Ptr a' -> IO a)
-> Bool
-> obj
-> (a -> IO Bool)
-> IO (ConnectId obj)
connect_BOXED__BOOL String
name Ptr Event -> IO Event
marshalEvent Bool
after w
obj Event -> IO Bool
fun
  w -> [EventMask] -> IO ()
forall self. WidgetClass self => self -> [EventMask] -> IO ()
widgetAddEvents w
obj [EventMask]
eMask
  ConnectId w -> IO (ConnectId w)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ConnectId w
id

-- | A Button was pressed.
--
-- * This widget is part of a button which was just pressed. The event passed
-- to the user function is a 'Graphics.UI.Gtk.Gdk.Events.Button' event.
--
onButtonPress, afterButtonPress :: WidgetClass w => w -> (Event -> IO Bool) ->
                                   IO (ConnectId w)
onButtonPress :: forall w.
WidgetClass w =>
w -> (Event -> IO Bool) -> IO (ConnectId w)
onButtonPress = String
-> [EventMask]
-> Bool
-> w
-> (Event -> IO Bool)
-> IO (ConnectId w)
forall w.
WidgetClass w =>
String
-> [EventMask]
-> Bool
-> w
-> (Event -> IO Bool)
-> IO (ConnectId w)
event String
"button_press_event" [EventMask
ButtonPressMask] Bool
False
afterButtonPress :: forall w.
WidgetClass w =>
w -> (Event -> IO Bool) -> IO (ConnectId w)
afterButtonPress = String
-> [EventMask]
-> Bool
-> w
-> (Event -> IO Bool)
-> IO (ConnectId w)
forall w.
WidgetClass w =>
String
-> [EventMask]
-> Bool
-> w
-> (Event -> IO Bool)
-> IO (ConnectId w)
event String
"button_press_event" [EventMask
ButtonPressMask] Bool
True

-- | A Button was released.
--
onButtonRelease, afterButtonRelease :: WidgetClass w => w ->
                                       (Event -> IO Bool) -> IO (ConnectId w)
onButtonRelease :: forall w.
WidgetClass w =>
w -> (Event -> IO Bool) -> IO (ConnectId w)
onButtonRelease = String
-> [EventMask]
-> Bool
-> w
-> (Event -> IO Bool)
-> IO (ConnectId w)
forall w.
WidgetClass w =>
String
-> [EventMask]
-> Bool
-> w
-> (Event -> IO Bool)
-> IO (ConnectId w)
event String
"button_release_event" [EventMask
ButtonReleaseMask] Bool
False
afterButtonRelease :: forall w.
WidgetClass w =>
w -> (Event -> IO Bool) -> IO (ConnectId w)
afterButtonRelease = String
-> [EventMask]
-> Bool
-> w
-> (Event -> IO Bool)
-> IO (ConnectId w)
forall w.
WidgetClass w =>
String
-> [EventMask]
-> Bool
-> w
-> (Event -> IO Bool)
-> IO (ConnectId w)
event String
"button_release_event" [EventMask
ButtonReleaseMask] Bool
True

-- |
--
onClient, afterClient :: WidgetClass w => w -> (Event -> IO Bool) ->
                         IO (ConnectId w)
onClient :: forall w.
WidgetClass w =>
w -> (Event -> IO Bool) -> IO (ConnectId w)
onClient = String
-> [EventMask]
-> Bool
-> w
-> (Event -> IO Bool)
-> IO (ConnectId w)
forall w.
WidgetClass w =>
String
-> [EventMask]
-> Bool
-> w
-> (Event -> IO Bool)
-> IO (ConnectId w)
event String
"client_event" [] Bool
False
afterClient :: forall w.
WidgetClass w =>
w -> (Event -> IO Bool) -> IO (ConnectId w)
afterClient = String
-> [EventMask]
-> Bool
-> w
-> (Event -> IO Bool)
-> IO (ConnectId w)
forall w.
WidgetClass w =>
String
-> [EventMask]
-> Bool
-> w
-> (Event -> IO Bool)
-> IO (ConnectId w)
event String
"client_event" [] Bool
True

-- | The widget's status has changed.
--
onConfigure, afterConfigure :: WidgetClass w => w -> (Event -> IO Bool) ->
                               IO (ConnectId w)
onConfigure :: forall w.
WidgetClass w =>
w -> (Event -> IO Bool) -> IO (ConnectId w)
onConfigure = String
-> [EventMask]
-> Bool
-> w
-> (Event -> IO Bool)
-> IO (ConnectId w)
forall w.
WidgetClass w =>
String
-> [EventMask]
-> Bool
-> w
-> (Event -> IO Bool)
-> IO (ConnectId w)
event String
"configure_event" [] Bool
False
afterConfigure :: forall w.
WidgetClass w =>
w -> (Event -> IO Bool) -> IO (ConnectId w)
afterConfigure = String
-> [EventMask]
-> Bool
-> w
-> (Event -> IO Bool)
-> IO (ConnectId w)
forall w.
WidgetClass w =>
String
-> [EventMask]
-> Bool
-> w
-> (Event -> IO Bool)
-> IO (ConnectId w)
event String
"configure_event" [] Bool
True

-- | This signal is emitted when the close icon on the
-- surrounding window is pressed. The default action is to emit the
-- @\"destroy\"@ signal.
--
onDelete, afterDelete :: WidgetClass w => w -> (Event -> IO Bool) ->
                         IO (ConnectId w)
onDelete :: forall w.
WidgetClass w =>
w -> (Event -> IO Bool) -> IO (ConnectId w)
onDelete = String
-> [EventMask]
-> Bool
-> w
-> (Event -> IO Bool)
-> IO (ConnectId w)
forall w.
WidgetClass w =>
String
-> [EventMask]
-> Bool
-> w
-> (Event -> IO Bool)
-> IO (ConnectId w)
event String
"delete_event" [] Bool
False
afterDelete :: forall w.
WidgetClass w =>
w -> (Event -> IO Bool) -> IO (ConnectId w)
afterDelete = String
-> [EventMask]
-> Bool
-> w
-> (Event -> IO Bool)
-> IO (ConnectId w)
forall w.
WidgetClass w =>
String
-> [EventMask]
-> Bool
-> w
-> (Event -> IO Bool)
-> IO (ConnectId w)
event String
"delete_event" [] Bool
True

-- | The widget will be destroyed.
--
-- * The widget received a destroy event from the window manager.
--
onDestroyEvent, afterDestroyEvent :: WidgetClass w =>
                                     w -> (Event -> IO Bool) ->
                                     IO (ConnectId w)
onDestroyEvent :: forall w.
WidgetClass w =>
w -> (Event -> IO Bool) -> IO (ConnectId w)
onDestroyEvent = String
-> [EventMask]
-> Bool
-> w
-> (Event -> IO Bool)
-> IO (ConnectId w)
forall w.
WidgetClass w =>
String
-> [EventMask]
-> Bool
-> w
-> (Event -> IO Bool)
-> IO (ConnectId w)
event String
"destroy_event" [] Bool
False
afterDestroyEvent :: forall w.
WidgetClass w =>
w -> (Event -> IO Bool) -> IO (ConnectId w)
afterDestroyEvent = String
-> [EventMask]
-> Bool
-> w
-> (Event -> IO Bool)
-> IO (ConnectId w)
forall w.
WidgetClass w =>
String
-> [EventMask]
-> Bool
-> w
-> (Event -> IO Bool)
-> IO (ConnectId w)
event String
"destroy_event" [] Bool
True

-- | The default text direction was changed.
--
onDirectionChanged, afterDirectionChanged :: WidgetClass w => w ->
                                             (Event -> IO Bool) ->
                                             IO (ConnectId w)
onDirectionChanged :: forall w.
WidgetClass w =>
w -> (Event -> IO Bool) -> IO (ConnectId w)
onDirectionChanged = String
-> [EventMask]
-> Bool
-> w
-> (Event -> IO Bool)
-> IO (ConnectId w)
forall w.
WidgetClass w =>
String
-> [EventMask]
-> Bool
-> w
-> (Event -> IO Bool)
-> IO (ConnectId w)
event String
"direction_changed" [] Bool
False
afterDirectionChanged :: forall w.
WidgetClass w =>
w -> (Event -> IO Bool) -> IO (ConnectId w)
afterDirectionChanged = String
-> [EventMask]
-> Bool
-> w
-> (Event -> IO Bool)
-> IO (ConnectId w)
forall w.
WidgetClass w =>
String
-> [EventMask]
-> Bool
-> w
-> (Event -> IO Bool)
-> IO (ConnectId w)
event String
"direction_changed" [] Bool
True

-- | Mouse cursor entered widget.
--
-- * Contains a 'Crossing' event.
--
onEnterNotify, afterEnterNotify :: WidgetClass w => w -> (Event -> IO Bool) ->
                                   IO (ConnectId w)
onEnterNotify :: forall w.
WidgetClass w =>
w -> (Event -> IO Bool) -> IO (ConnectId w)
onEnterNotify = String
-> [EventMask]
-> Bool
-> w
-> (Event -> IO Bool)
-> IO (ConnectId w)
forall w.
WidgetClass w =>
String
-> [EventMask]
-> Bool
-> w
-> (Event -> IO Bool)
-> IO (ConnectId w)
event String
"enter_notify_event" [EventMask
EnterNotifyMask] Bool
False
afterEnterNotify :: forall w.
WidgetClass w =>
w -> (Event -> IO Bool) -> IO (ConnectId w)
afterEnterNotify = String
-> [EventMask]
-> Bool
-> w
-> (Event -> IO Bool)
-> IO (ConnectId w)
forall w.
WidgetClass w =>
String
-> [EventMask]
-> Bool
-> w
-> (Event -> IO Bool)
-> IO (ConnectId w)
event String
"enter_notify_event" [EventMask
EnterNotifyMask] Bool
True

-- | Mouse cursor leaves widget.
--
-- * Contains a 'Crossing' event.
--
onLeaveNotify, afterLeaveNotify :: WidgetClass w => w -> (Event -> IO Bool) ->
                                   IO (ConnectId w)
onLeaveNotify :: forall w.
WidgetClass w =>
w -> (Event -> IO Bool) -> IO (ConnectId w)
onLeaveNotify = String
-> [EventMask]
-> Bool
-> w
-> (Event -> IO Bool)
-> IO (ConnectId w)
forall w.
WidgetClass w =>
String
-> [EventMask]
-> Bool
-> w
-> (Event -> IO Bool)
-> IO (ConnectId w)
event String
"leave_notify_event" [EventMask
LeaveNotifyMask] Bool
False
afterLeaveNotify :: forall w.
WidgetClass w =>
w -> (Event -> IO Bool) -> IO (ConnectId w)
afterLeaveNotify = String
-> [EventMask]
-> Bool
-> w
-> (Event -> IO Bool)
-> IO (ConnectId w)
forall w.
WidgetClass w =>
String
-> [EventMask]
-> Bool
-> w
-> (Event -> IO Bool)
-> IO (ConnectId w)
event String
"leave_notify_event" [EventMask
LeaveNotifyMask] Bool
True

-- | Instructs the widget to redraw.
--
-- * This event is useful for the 'DrawingArea'. On receiving this signal
-- the content of the passed Rectangle or Region needs to be redrawn.
-- The return value should be 'True' if the region was completely redrawn
-- and 'False' if other handlers in the chain should be invoked.
-- If a client will redraw the whole area and is not interested in the
-- extra information in 'Expose', it is more efficient
-- to use 'onExposeRect'.
--
-- * Widgets that are very expensive to re-render, such as an image editor,
-- may prefer to use the 'onExpose' call back which delivers a
-- 'Region' in addition to a 'Rectangle'. A 'Region' consists of several
-- rectangles that need redrawing. The simpler 'onExposeRect' event encodes
-- the area to be redrawn as a bounding rectangle which might be easier
-- to deal with in a particular application.
--
onExpose, afterExpose :: WidgetClass w => w -> (Event -> IO Bool) ->
                         IO (ConnectId w)
onExpose :: forall w.
WidgetClass w =>
w -> (Event -> IO Bool) -> IO (ConnectId w)
onExpose = String
-> [EventMask]
-> Bool
-> w
-> (Event -> IO Bool)
-> IO (ConnectId w)
forall w.
WidgetClass w =>
String
-> [EventMask]
-> Bool
-> w
-> (Event -> IO Bool)
-> IO (ConnectId w)
event String
"expose_event" [] Bool
False
afterExpose :: forall w.
WidgetClass w =>
w -> (Event -> IO Bool) -> IO (ConnectId w)
afterExpose = String
-> [EventMask]
-> Bool
-> w
-> (Event -> IO Bool)
-> IO (ConnectId w)
forall w.
WidgetClass w =>
String
-> [EventMask]
-> Bool
-> w
-> (Event -> IO Bool)
-> IO (ConnectId w)
event String
"expose_event" [] Bool
True

-- | Expose event delivering a 'Rectangle'.
--
onExposeRect, afterExposeRect ::
    WidgetClass w => w -> (Rectangle -> IO ()) -> IO (ConnectId w)
onExposeRect :: forall w.
WidgetClass w =>
w -> (Allocation -> IO ()) -> IO (ConnectId w)
onExposeRect w
w Allocation -> IO ()
act = String
-> (Ptr Event -> IO Allocation)
-> Bool
-> w
-> (Allocation -> IO Bool)
-> IO (ConnectId w)
forall obj a' a.
GObjectClass obj =>
String
-> (Ptr a' -> IO a)
-> Bool
-> obj
-> (a -> IO Bool)
-> IO (ConnectId obj)
connect_BOXED__BOOL String
"expose_event"
  Ptr Event -> IO Allocation
marshExposeRect Bool
False w
w (\Allocation
r -> Allocation -> IO ()
act Allocation
r IO () -> IO Bool -> IO Bool
forall a b. IO a -> IO b -> IO b
forall (m :: * -> *) a b. Monad m => m a -> m b -> m b
>> Bool -> IO Bool
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
True)
afterExposeRect :: forall w.
WidgetClass w =>
w -> (Allocation -> IO ()) -> IO (ConnectId w)
afterExposeRect w
w Allocation -> IO ()
act = String
-> (Ptr Event -> IO Allocation)
-> Bool
-> w
-> (Allocation -> IO Bool)
-> IO (ConnectId w)
forall obj a' a.
GObjectClass obj =>
String
-> (Ptr a' -> IO a)
-> Bool
-> obj
-> (a -> IO Bool)
-> IO (ConnectId obj)
connect_BOXED__BOOL String
"expose_event"
  Ptr Event -> IO Allocation
marshExposeRect Bool
True w
w (\Allocation
r -> Allocation -> IO ()
act Allocation
r IO () -> IO Bool -> IO Bool
forall a b. IO a -> IO b -> IO b
forall (m :: * -> *) a b. Monad m => m a -> m b -> m b
>> Bool -> IO Bool
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
True)

-- | This signal is called if the widget receives the input focus.
--
onFocus, afterFocus :: WidgetClass w => w -> (DirectionType -> IO Bool) ->
                       IO (ConnectId w)
onFocus :: forall w.
WidgetClass w =>
w -> (DirectionType -> IO Bool) -> IO (ConnectId w)
onFocus = String
-> Bool -> w -> (DirectionType -> IO Bool) -> IO (ConnectId w)
forall a obj.
(Enum a, GObjectClass obj) =>
String -> Bool -> obj -> (a -> IO Bool) -> IO (ConnectId obj)
connect_ENUM__BOOL String
"focus" Bool
False
afterFocus :: forall w.
WidgetClass w =>
w -> (DirectionType -> IO Bool) -> IO (ConnectId w)
afterFocus = String
-> Bool -> w -> (DirectionType -> IO Bool) -> IO (ConnectId w)
forall a obj.
(Enum a, GObjectClass obj) =>
String -> Bool -> obj -> (a -> IO Bool) -> IO (ConnectId obj)
connect_ENUM__BOOL String
"focus" Bool
True

-- | Widget gains input focus.
--
onFocusIn, afterFocusIn :: WidgetClass w => w -> (Event -> IO Bool) ->
                           IO (ConnectId w)
onFocusIn :: forall w.
WidgetClass w =>
w -> (Event -> IO Bool) -> IO (ConnectId w)
onFocusIn = String
-> [EventMask]
-> Bool
-> w
-> (Event -> IO Bool)
-> IO (ConnectId w)
forall w.
WidgetClass w =>
String
-> [EventMask]
-> Bool
-> w
-> (Event -> IO Bool)
-> IO (ConnectId w)
event String
"focus_in_event" [EventMask
FocusChangeMask] Bool
False
afterFocusIn :: forall w.
WidgetClass w =>
w -> (Event -> IO Bool) -> IO (ConnectId w)
afterFocusIn = String
-> [EventMask]
-> Bool
-> w
-> (Event -> IO Bool)
-> IO (ConnectId w)
forall w.
WidgetClass w =>
String
-> [EventMask]
-> Bool
-> w
-> (Event -> IO Bool)
-> IO (ConnectId w)
event String
"focus_in_event" [EventMask
FocusChangeMask] Bool
True

-- | Widget looses input focus.
--
onFocusOut, afterFocusOut :: WidgetClass w => w -> (Event -> IO Bool) ->
                             IO (ConnectId w)
onFocusOut :: forall w.
WidgetClass w =>
w -> (Event -> IO Bool) -> IO (ConnectId w)
onFocusOut = String
-> [EventMask]
-> Bool
-> w
-> (Event -> IO Bool)
-> IO (ConnectId w)
forall w.
WidgetClass w =>
String
-> [EventMask]
-> Bool
-> w
-> (Event -> IO Bool)
-> IO (ConnectId w)
event String
"focus_out_event" [EventMask
FocusChangeMask] Bool
False
afterFocusOut :: forall w.
WidgetClass w =>
w -> (Event -> IO Bool) -> IO (ConnectId w)
afterFocusOut = String
-> [EventMask]
-> Bool
-> w
-> (Event -> IO Bool)
-> IO (ConnectId w)
forall w.
WidgetClass w =>
String
-> [EventMask]
-> Bool
-> w
-> (Event -> IO Bool)
-> IO (ConnectId w)
event String
"focus_out_event" [EventMask
FocusChangeMask] Bool
True

-- | The widget is about to receive all events.
--
-- * It is possible to redirect all input events to one widget to force the
-- user to use only this widget. Such a situation is initiated by
-- 'addGrab'.
--
onGrabFocus, afterGrabFocus :: WidgetClass w => w -> IO () ->
                               IO (ConnectId w)
onGrabFocus :: forall w. WidgetClass w => w -> IO () -> IO (ConnectId w)
onGrabFocus = String -> Bool -> w -> IO () -> IO (ConnectId w)
forall obj.
GObjectClass obj =>
String -> Bool -> obj -> IO () -> IO (ConnectId obj)
connect_NONE__NONE String
"grab_focus" Bool
False
afterGrabFocus :: forall w. WidgetClass w => w -> IO () -> IO (ConnectId w)
afterGrabFocus = String -> Bool -> w -> IO () -> IO (ConnectId w)
forall obj.
GObjectClass obj =>
String -> Bool -> obj -> IO () -> IO (ConnectId obj)
connect_NONE__NONE String
"grab_focus" Bool
True

-- | The widget will be destroyed.
--
-- * This is the last signal this widget will receive.
--
onDestroy, afterDestroy :: WidgetClass w => w -> (IO ()) ->
                           IO (ConnectId w)
onDestroy :: forall w. WidgetClass w => w -> IO () -> IO (ConnectId w)
onDestroy = String -> Bool -> w -> IO () -> IO (ConnectId w)
forall obj.
GObjectClass obj =>
String -> Bool -> obj -> IO () -> IO (ConnectId obj)
connect_NONE__NONE String
"destroy" Bool
False
afterDestroy :: forall w. WidgetClass w => w -> IO () -> IO (ConnectId w)
afterDestroy = String -> Bool -> w -> IO () -> IO (ConnectId w)
forall obj.
GObjectClass obj =>
String -> Bool -> obj -> IO () -> IO (ConnectId obj)
connect_NONE__NONE String
"destroy" Bool
True

-- | The widget was asked to hide itself.
--
-- * This signal is emitted each time 'widgetHide' is called. Use
-- 'onUnmap' when your application needs to be informed
-- when the widget is actually removed from screen.
--
onHide, afterHide :: WidgetClass w => w -> IO () -> IO (ConnectId w)
onHide :: forall w. WidgetClass w => w -> IO () -> IO (ConnectId w)
onHide = String -> Bool -> w -> IO () -> IO (ConnectId w)
forall obj.
GObjectClass obj =>
String -> Bool -> obj -> IO () -> IO (ConnectId obj)
connect_NONE__NONE String
"hide" Bool
False
afterHide :: forall w. WidgetClass w => w -> IO () -> IO (ConnectId w)
afterHide = String -> Bool -> w -> IO () -> IO (ConnectId w)
forall obj.
GObjectClass obj =>
String -> Bool -> obj -> IO () -> IO (ConnectId obj)
connect_NONE__NONE String
"hide" Bool
True

-- | The toplevel window changed.
--
-- * When a subtree of widgets is removed or added from a tree with a toplevel
-- window this signal is emitted. It is emitted on each widget in the
-- detached or attached subtree.
--
onHierarchyChanged, afterHierarchyChanged :: WidgetClass w => w -> IO () ->
                                             IO (ConnectId w)
onHierarchyChanged :: forall w. WidgetClass w => w -> IO () -> IO (ConnectId w)
onHierarchyChanged = String -> Bool -> w -> IO () -> IO (ConnectId w)
forall obj.
GObjectClass obj =>
String -> Bool -> obj -> IO () -> IO (ConnectId obj)
connect_NONE__NONE String
"hierarchy_changed" Bool
False
afterHierarchyChanged :: forall w. WidgetClass w => w -> IO () -> IO (ConnectId w)
afterHierarchyChanged = String -> Bool -> w -> IO () -> IO (ConnectId w)
forall obj.
GObjectClass obj =>
String -> Bool -> obj -> IO () -> IO (ConnectId obj)
connect_NONE__NONE String
"hierarchy_changed" Bool
True

-- | A key was pressed.
--
onKeyPress, afterKeyPress :: WidgetClass w => w -> (Event -> IO Bool) ->
                             IO (ConnectId w)
onKeyPress :: forall w.
WidgetClass w =>
w -> (Event -> IO Bool) -> IO (ConnectId w)
onKeyPress = String
-> [EventMask]
-> Bool
-> w
-> (Event -> IO Bool)
-> IO (ConnectId w)
forall w.
WidgetClass w =>
String
-> [EventMask]
-> Bool
-> w
-> (Event -> IO Bool)
-> IO (ConnectId w)
event String
"key_press_event" [EventMask
KeyPressMask] Bool
False
afterKeyPress :: forall w.
WidgetClass w =>
w -> (Event -> IO Bool) -> IO (ConnectId w)
afterKeyPress = String
-> [EventMask]
-> Bool
-> w
-> (Event -> IO Bool)
-> IO (ConnectId w)
forall w.
WidgetClass w =>
String
-> [EventMask]
-> Bool
-> w
-> (Event -> IO Bool)
-> IO (ConnectId w)
event String
"key_press_event" [EventMask
KeyPressMask] Bool
True

-- | A key was released.
--
onKeyRelease, afterKeyRelease :: WidgetClass w => w -> (Event -> IO Bool) ->
                                 IO (ConnectId w)
onKeyRelease :: forall w.
WidgetClass w =>
w -> (Event -> IO Bool) -> IO (ConnectId w)
onKeyRelease = String
-> [EventMask]
-> Bool
-> w
-> (Event -> IO Bool)
-> IO (ConnectId w)
forall w.
WidgetClass w =>
String
-> [EventMask]
-> Bool
-> w
-> (Event -> IO Bool)
-> IO (ConnectId w)
event String
"key_release_event" [EventMask
KeyReleaseMask] Bool
False
afterKeyRelease :: forall w.
WidgetClass w =>
w -> (Event -> IO Bool) -> IO (ConnectId w)
afterKeyRelease = String
-> [EventMask]
-> Bool
-> w
-> (Event -> IO Bool)
-> IO (ConnectId w)
forall w.
WidgetClass w =>
String
-> [EventMask]
-> Bool
-> w
-> (Event -> IO Bool)
-> IO (ConnectId w)
event String
"key_release_event" [EventMask
KeyReleaseMask] Bool
True

-- |
--
onMnemonicActivate, afterMnemonicActivate :: WidgetClass w => w ->
                                             (Bool -> IO Bool) ->
                                             IO (ConnectId w)
onMnemonicActivate :: forall w.
WidgetClass w =>
w -> (Bool -> IO Bool) -> IO (ConnectId w)
onMnemonicActivate = String -> Bool -> w -> (Bool -> IO Bool) -> IO (ConnectId w)
forall obj.
GObjectClass obj =>
String -> Bool -> obj -> (Bool -> IO Bool) -> IO (ConnectId obj)
connect_BOOL__BOOL String
"mnemonic_activate" Bool
False
afterMnemonicActivate :: forall w.
WidgetClass w =>
w -> (Bool -> IO Bool) -> IO (ConnectId w)
afterMnemonicActivate = String -> Bool -> w -> (Bool -> IO Bool) -> IO (ConnectId w)
forall obj.
GObjectClass obj =>
String -> Bool -> obj -> (Bool -> IO Bool) -> IO (ConnectId obj)
connect_BOOL__BOOL String
"mnemonic_activate" Bool
True

-- | Track mouse movements.
--
-- * If @hint@ is False, a callback for every movement of the mouse is
-- generated. To avoid a backlog of mouse messages, it is usually sufficient
-- to sent @hint@ to True, generating only one event. The
-- application now has to state that it is ready for the next message by
-- calling 'Graphics.UI.Gtk.Gdk.DrawWindow.drawWindowGetPointer'.
--
onMotionNotify, afterMotionNotify :: WidgetClass w => w -> Bool ->
                                     (Event -> IO Bool) ->
                                     IO (ConnectId w)
onMotionNotify :: forall w.
WidgetClass w =>
w -> Bool -> (Event -> IO Bool) -> IO (ConnectId w)
onMotionNotify w
w Bool
hint = String
-> [EventMask]
-> Bool
-> w
-> (Event -> IO Bool)
-> IO (ConnectId w)
forall w.
WidgetClass w =>
String
-> [EventMask]
-> Bool
-> w
-> (Event -> IO Bool)
-> IO (ConnectId w)
event String
"motion_notify_event"
  (if Bool
hint then [EventMask
PointerMotionMask, EventMask
PointerMotionHintMask]
           else [EventMask
PointerMotionMask]) Bool
False w
w
afterMotionNotify :: forall w.
WidgetClass w =>
w -> Bool -> (Event -> IO Bool) -> IO (ConnectId w)
afterMotionNotify w
w Bool
hint = String
-> [EventMask]
-> Bool
-> w
-> (Event -> IO Bool)
-> IO (ConnectId w)
forall w.
WidgetClass w =>
String
-> [EventMask]
-> Bool
-> w
-> (Event -> IO Bool)
-> IO (ConnectId w)
event String
"motion_notify_event"
  (if Bool
hint then [EventMask
PointerMotionMask, EventMask
PointerMotionHintMask]
           else [EventMask
PointerMotionMask]) Bool
True w
w

-- |
--
onParentSet, afterParentSet :: (WidgetClass w, WidgetClass old) => w ->
                               (old -> IO ()) -> IO (ConnectId w)
onParentSet :: forall w old.
(WidgetClass w, WidgetClass old) =>
w -> (old -> IO ()) -> IO (ConnectId w)
onParentSet = String -> Bool -> w -> (old -> IO ()) -> IO (ConnectId w)
forall a' obj.
(GObjectClass a', GObjectClass obj) =>
String -> Bool -> obj -> (a' -> IO ()) -> IO (ConnectId obj)
connect_OBJECT__NONE String
"parent_set" Bool
False
afterParentSet :: forall w old.
(WidgetClass w, WidgetClass old) =>
w -> (old -> IO ()) -> IO (ConnectId w)
afterParentSet = String -> Bool -> w -> (old -> IO ()) -> IO (ConnectId w)
forall a' obj.
(GObjectClass a', GObjectClass obj) =>
String -> Bool -> obj -> (a' -> IO ()) -> IO (ConnectId obj)
connect_OBJECT__NONE String
"parent_set" Bool
True

-- |
--
onPopupMenu, afterPopupMenu :: WidgetClass w => w -> IO () -> IO (ConnectId w)
onPopupMenu :: forall w. WidgetClass w => w -> IO () -> IO (ConnectId w)
onPopupMenu = String -> Bool -> w -> IO () -> IO (ConnectId w)
forall obj.
GObjectClass obj =>
String -> Bool -> obj -> IO () -> IO (ConnectId obj)
connect_NONE__NONE String
"popup_menu" Bool
False
afterPopupMenu :: forall w. WidgetClass w => w -> IO () -> IO (ConnectId w)
afterPopupMenu = String -> Bool -> w -> IO () -> IO (ConnectId w)
forall obj.
GObjectClass obj =>
String -> Bool -> obj -> IO () -> IO (ConnectId obj)
connect_NONE__NONE String
"popup_menu" Bool
True

-- | The input device became active.
--
-- * This event indicates that a pen of a graphics tablet or similar device is
-- now touching the tablet.
--
onProximityIn, afterProximityIn :: WidgetClass w => w -> (Event -> IO Bool) ->
                                   IO (ConnectId w)
onProximityIn :: forall w.
WidgetClass w =>
w -> (Event -> IO Bool) -> IO (ConnectId w)
onProximityIn = String
-> [EventMask]
-> Bool
-> w
-> (Event -> IO Bool)
-> IO (ConnectId w)
forall w.
WidgetClass w =>
String
-> [EventMask]
-> Bool
-> w
-> (Event -> IO Bool)
-> IO (ConnectId w)
event String
"proximity_in_event" [EventMask
ProximityInMask] Bool
False
afterProximityIn :: forall w.
WidgetClass w =>
w -> (Event -> IO Bool) -> IO (ConnectId w)
afterProximityIn = String
-> [EventMask]
-> Bool
-> w
-> (Event -> IO Bool)
-> IO (ConnectId w)
forall w.
WidgetClass w =>
String
-> [EventMask]
-> Bool
-> w
-> (Event -> IO Bool)
-> IO (ConnectId w)
event String
"proximity_in_event" [EventMask
ProximityInMask] Bool
True

-- | The input device became inactive.
--
-- * The pen was removed from the graphics tablet's surface.
--
onProximityOut, afterProximityOut :: WidgetClass w => w ->
                                     (Event -> IO Bool) -> IO (ConnectId w)
onProximityOut :: forall w.
WidgetClass w =>
w -> (Event -> IO Bool) -> IO (ConnectId w)
onProximityOut = String
-> [EventMask]
-> Bool
-> w
-> (Event -> IO Bool)
-> IO (ConnectId w)
forall w.
WidgetClass w =>
String
-> [EventMask]
-> Bool
-> w
-> (Event -> IO Bool)
-> IO (ConnectId w)
event String
"proximity_out_event" [EventMask
ProximityOutMask] Bool
False
afterProximityOut :: forall w.
WidgetClass w =>
w -> (Event -> IO Bool) -> IO (ConnectId w)
afterProximityOut = String
-> [EventMask]
-> Bool
-> w
-> (Event -> IO Bool)
-> IO (ConnectId w)
forall w.
WidgetClass w =>
String
-> [EventMask]
-> Bool
-> w
-> (Event -> IO Bool)
-> IO (ConnectId w)
event String
"proximity_out_event" [EventMask
ProximityOutMask] Bool
True

-- | This widget's drawing area is about to be
-- destroyed.
--
onRealize, afterRealize :: WidgetClass w => w -> IO () -> IO (ConnectId w)
onRealize :: forall w. WidgetClass w => w -> IO () -> IO (ConnectId w)
onRealize = String -> Bool -> w -> IO () -> IO (ConnectId w)
forall obj.
GObjectClass obj =>
String -> Bool -> obj -> IO () -> IO (ConnectId obj)
connect_NONE__NONE String
"realize" Bool
False
afterRealize :: forall w. WidgetClass w => w -> IO () -> IO (ConnectId w)
afterRealize = String -> Bool -> w -> IO () -> IO (ConnectId w)
forall obj.
GObjectClass obj =>
String -> Bool -> obj -> IO () -> IO (ConnectId obj)
connect_NONE__NONE String
"realize" Bool
True

-- | The mouse wheel has turned.
--
-- * The 'Event' is always 'Scroll'.
--
onScroll, afterScroll :: WidgetClass w => w -> (Event -> IO Bool) ->
                         IO (ConnectId w)
onScroll :: forall w.
WidgetClass w =>
w -> (Event -> IO Bool) -> IO (ConnectId w)
onScroll = String
-> [EventMask]
-> Bool
-> w
-> (Event -> IO Bool)
-> IO (ConnectId w)
forall w.
WidgetClass w =>
String
-> [EventMask]
-> Bool
-> w
-> (Event -> IO Bool)
-> IO (ConnectId w)
event String
"scroll_event" [EventMask
ScrollMask] Bool
False
afterScroll :: forall w.
WidgetClass w =>
w -> (Event -> IO Bool) -> IO (ConnectId w)
afterScroll = String
-> [EventMask]
-> Bool
-> w
-> (Event -> IO Bool)
-> IO (ConnectId w)
forall w.
WidgetClass w =>
String
-> [EventMask]
-> Bool
-> w
-> (Event -> IO Bool)
-> IO (ConnectId w)
event String
"scroll_event" [EventMask
ScrollMask] Bool
True

-- | The widget was asked to show itself.
--
-- * This signal is emitted each time 'widgetShow' is called. Use
-- 'onMap' when your application needs to be informed when
-- the widget is actually shown.
--
onShow, afterShow :: WidgetClass w => w -> IO () -> IO (ConnectId w)
onShow :: forall w. WidgetClass w => w -> IO () -> IO (ConnectId w)
onShow = String -> Bool -> w -> IO () -> IO (ConnectId w)
forall obj.
GObjectClass obj =>
String -> Bool -> obj -> IO () -> IO (ConnectId obj)
connect_NONE__NONE String
"show" Bool
False
afterShow :: forall w. WidgetClass w => w -> IO () -> IO (ConnectId w)
afterShow = String -> Bool -> w -> IO () -> IO (ConnectId w)
forall obj.
GObjectClass obj =>
String -> Bool -> obj -> IO () -> IO (ConnectId obj)
connect_NONE__NONE String
"show" Bool
True

-- | Inform widget about the size it has.
--
-- * After querying a widget for the size it wants to have (through emitting
-- the @\"sizeRequest\"@ signal) a container will emit this signal to
-- inform the widget about the real size it should occupy.
--
onSizeAllocate, afterSizeAllocate :: WidgetClass w => w ->
                                     (Allocation -> IO ()) -> IO (ConnectId w)
onSizeAllocate :: forall w.
WidgetClass w =>
w -> (Allocation -> IO ()) -> IO (ConnectId w)
onSizeAllocate = String
-> (Ptr Allocation -> IO Allocation)
-> Bool
-> w
-> (Allocation -> IO ())
-> IO (ConnectId w)
forall obj a' a.
GObjectClass obj =>
String
-> (Ptr a' -> IO a)
-> Bool
-> obj
-> (a -> IO ())
-> IO (ConnectId obj)
connect_BOXED__NONE String
"size_allocate" Ptr Allocation -> IO Allocation
forall a. Storable a => Ptr a -> IO a
peek Bool
False
afterSizeAllocate :: forall w.
WidgetClass w =>
w -> (Allocation -> IO ()) -> IO (ConnectId w)
afterSizeAllocate = String
-> (Ptr Allocation -> IO Allocation)
-> Bool
-> w
-> (Allocation -> IO ())
-> IO (ConnectId w)
forall obj a' a.
GObjectClass obj =>
String
-> (Ptr a' -> IO a)
-> Bool
-> obj
-> (a -> IO ())
-> IO (ConnectId obj)
connect_BOXED__NONE String
"size_allocate" Ptr Allocation -> IO Allocation
forall a. Storable a => Ptr a -> IO a
peek Bool
True

-- | Query the widget for the size it likes to
-- have.
--
-- * A parent container emits this signal to its child to query the needed
-- height and width of the child. There is not guarantee that the widget
-- will actually get this area.
--
onSizeRequest, afterSizeRequest :: WidgetClass w => w -> (IO Requisition) ->
                                   IO (ConnectId w)
onSizeRequest :: forall w. WidgetClass w => w -> IO Requisition -> IO (ConnectId w)
onSizeRequest w
w IO Requisition
fun = String
-> Bool -> w -> (Ptr Requisition -> IO ()) -> IO (ConnectId w)
forall obj a.
GObjectClass obj =>
String -> Bool -> obj -> (Ptr a -> IO ()) -> IO (ConnectId obj)
connect_PTR__NONE String
"size_request" Bool
False w
w (\Ptr Requisition
rqPtr -> do
  Requisition
req <- IO Requisition
fun
  Bool -> IO () -> IO ()
forall (f :: * -> *). Applicative f => Bool -> f () -> f ()
unless (Ptr Requisition
rqPtrPtr Requisition -> Ptr Requisition -> Bool
forall a. Eq a => a -> a -> Bool
==Ptr Requisition
forall a. Ptr a
nullPtr) (IO () -> IO ()) -> IO () -> IO ()
forall a b. (a -> b) -> a -> b
$ Ptr Requisition -> Requisition -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke Ptr Requisition
rqPtr Requisition
req)
afterSizeRequest :: forall w. WidgetClass w => w -> IO Requisition -> IO (ConnectId w)
afterSizeRequest w
w IO Requisition
fun = String
-> Bool -> w -> (Ptr Requisition -> IO ()) -> IO (ConnectId w)
forall obj a.
GObjectClass obj =>
String -> Bool -> obj -> (Ptr a -> IO ()) -> IO (ConnectId obj)
connect_PTR__NONE String
"size_request" Bool
True w
w (\Ptr Requisition
rqPtr -> do
  Requisition
req <- IO Requisition
fun
  Bool -> IO () -> IO ()
forall (f :: * -> *). Applicative f => Bool -> f () -> f ()
unless (Ptr Requisition
rqPtrPtr Requisition -> Ptr Requisition -> Bool
forall a. Eq a => a -> a -> Bool
==Ptr Requisition
forall a. Ptr a
nullPtr) (IO () -> IO ()) -> IO () -> IO ()
forall a b. (a -> b) -> a -> b
$ Ptr Requisition -> Requisition -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke Ptr Requisition
rqPtr Requisition
req)

-- |
--
onStateChanged, afterStateChanged :: WidgetClass w => w ->
                                     (StateType -> IO ()) -> IO (ConnectId w)
onStateChanged :: forall w.
WidgetClass w =>
w -> (StateType -> IO ()) -> IO (ConnectId w)
onStateChanged = String -> Bool -> w -> (StateType -> IO ()) -> IO (ConnectId w)
forall a obj.
(Enum a, GObjectClass obj) =>
String -> Bool -> obj -> (a -> IO ()) -> IO (ConnectId obj)
connect_ENUM__NONE String
"state_changed" Bool
False
afterStateChanged :: forall w.
WidgetClass w =>
w -> (StateType -> IO ()) -> IO (ConnectId w)
afterStateChanged = String -> Bool -> w -> (StateType -> IO ()) -> IO (ConnectId w)
forall a obj.
(Enum a, GObjectClass obj) =>
String -> Bool -> obj -> (a -> IO ()) -> IO (ConnectId obj)
connect_ENUM__NONE String
"state_changed" Bool
True

-- | The widget was removed from screen.
--
onUnmap, afterUnmap :: WidgetClass w => w -> IO () -> IO (ConnectId w)
onUnmap :: forall w. WidgetClass w => w -> IO () -> IO (ConnectId w)
onUnmap = String -> Bool -> w -> IO () -> IO (ConnectId w)
forall obj.
GObjectClass obj =>
String -> Bool -> obj -> IO () -> IO (ConnectId obj)
connect_NONE__NONE String
"unmap" Bool
False
afterUnmap :: forall w. WidgetClass w => w -> IO () -> IO (ConnectId w)
afterUnmap = String -> Bool -> w -> IO () -> IO (ConnectId w)
forall obj.
GObjectClass obj =>
String -> Bool -> obj -> IO () -> IO (ConnectId obj)
connect_NONE__NONE String
"unmap" Bool
True

-- | This widget's drawing area is about to be
-- destroyed.
--
onUnrealize, afterUnrealize :: WidgetClass w => w -> IO () -> IO (ConnectId w)
onUnrealize :: forall w. WidgetClass w => w -> IO () -> IO (ConnectId w)
onUnrealize = String -> Bool -> w -> IO () -> IO (ConnectId w)
forall obj.
GObjectClass obj =>
String -> Bool -> obj -> IO () -> IO (ConnectId obj)
connect_NONE__NONE String
"unrealize" Bool
False
afterUnrealize :: forall w. WidgetClass w => w -> IO () -> IO (ConnectId w)
afterUnrealize = String -> Bool -> w -> IO () -> IO (ConnectId w)
forall obj.
GObjectClass obj =>
String -> Bool -> obj -> IO () -> IO (ConnectId obj)
connect_NONE__NONE String
"unrealize" Bool
True

-- |
--
onVisibilityNotify, afterVisibilityNotify :: WidgetClass w => w ->
                                             (Event -> IO Bool) ->
                                             IO (ConnectId w)
onVisibilityNotify :: forall w.
WidgetClass w =>
w -> (Event -> IO Bool) -> IO (ConnectId w)
onVisibilityNotify =
  String
-> [EventMask]
-> Bool
-> w
-> (Event -> IO Bool)
-> IO (ConnectId w)
forall w.
WidgetClass w =>
String
-> [EventMask]
-> Bool
-> w
-> (Event -> IO Bool)
-> IO (ConnectId w)
event String
"visibility_notify_event" [EventMask
VisibilityNotifyMask] Bool
False
afterVisibilityNotify :: forall w.
WidgetClass w =>
w -> (Event -> IO Bool) -> IO (ConnectId w)
afterVisibilityNotify =
  String
-> [EventMask]
-> Bool
-> w
-> (Event -> IO Bool)
-> IO (ConnectId w)
forall w.
WidgetClass w =>
String
-> [EventMask]
-> Bool
-> w
-> (Event -> IO Bool)
-> IO (ConnectId w)
event String
"visibility_notify_event" [EventMask
VisibilityNotifyMask] Bool
True

-- |
--
onWindowState, afterWindowState :: WidgetClass w => w -> (Event -> IO Bool) ->
                                   IO (ConnectId w)
onWindowState :: forall w.
WidgetClass w =>
w -> (Event -> IO Bool) -> IO (ConnectId w)
onWindowState = String
-> [EventMask]
-> Bool
-> w
-> (Event -> IO Bool)
-> IO (ConnectId w)
forall w.
WidgetClass w =>
String
-> [EventMask]
-> Bool
-> w
-> (Event -> IO Bool)
-> IO (ConnectId w)
event String
"window_state_event" [] Bool
False
afterWindowState :: forall w.
WidgetClass w =>
w -> (Event -> IO Bool) -> IO (ConnectId w)
afterWindowState = String
-> [EventMask]
-> Bool
-> w
-> (Event -> IO Bool)
-> IO (ConnectId w)
forall w.
WidgetClass w =>
String
-> [EventMask]
-> Bool
-> w
-> (Event -> IO Bool)
-> IO (ConnectId w)
event String
"window_state_event" [] Bool
True

foreign import ccall safe "gtk_widget_show"
  gtk_widget_show :: ((Ptr Widget) -> (IO ()))

foreign import ccall safe "gtk_widget_show_now"
  gtk_widget_show_now :: ((Ptr Widget) -> (IO ()))

foreign import ccall safe "gtk_widget_hide"
  gtk_widget_hide :: ((Ptr Widget) -> (IO ()))

foreign import ccall safe "gtk_widget_show_all"
  gtk_widget_show_all :: ((Ptr Widget) -> (IO ()))

foreign import ccall safe "gtk_widget_hide_all"
  gtk_widget_hide_all :: ((Ptr Widget) -> (IO ()))

foreign import ccall safe "gtk_widget_destroy"
  gtk_widget_destroy :: ((Ptr Widget) -> (IO ()))

foreign import ccall safe "gtk_widget_queue_draw"
  gtk_widget_queue_draw :: ((Ptr Widget) -> (IO ()))

foreign import ccall safe "gtk_widget_queue_resize"
  gtk_widget_queue_resize :: ((Ptr Widget) -> (IO ()))

foreign import ccall safe "gtk_widget_queue_resize_no_redraw"
  gtk_widget_queue_resize_no_redraw :: ((Ptr Widget) -> (IO ()))

foreign import ccall safe "gtk_widget_size_request"
  gtk_widget_size_request :: ((Ptr Widget) -> ((Ptr ()) -> (IO ())))

foreign import ccall safe "gtk_widget_get_child_requisition"
  gtk_widget_get_child_requisition :: ((Ptr Widget) -> ((Ptr ()) -> (IO ())))

foreign import ccall safe "gtk_widget_size_allocate"
  gtk_widget_size_allocate :: ((Ptr Widget) -> ((Ptr ()) -> (IO ())))

foreign import ccall safe "gtk_widget_add_accelerator"
  gtk_widget_add_accelerator :: ((Ptr Widget) -> ((Ptr CChar) -> ((Ptr AccelGroup) -> (CUInt -> (CInt -> (CInt -> (IO ())))))))

foreign import ccall safe "gtk_widget_remove_accelerator"
  gtk_widget_remove_accelerator :: ((Ptr Widget) -> ((Ptr AccelGroup) -> (CUInt -> (CInt -> (IO CInt)))))

foreign import ccall safe "gtk_widget_set_accel_path"
  gtk_widget_set_accel_path :: ((Ptr Widget) -> ((Ptr CChar) -> ((Ptr AccelGroup) -> (IO ()))))

foreign import ccall safe "gtk_widget_can_activate_accel"
  gtk_widget_can_activate_accel :: ((Ptr Widget) -> (CUInt -> (IO CInt)))

foreign import ccall safe "gtk_widget_activate"
  gtk_widget_activate :: ((Ptr Widget) -> (IO CInt))

foreign import ccall unsafe "gtk_widget_intersect"
  gtk_widget_intersect :: ((Ptr Widget) -> ((Ptr ()) -> ((Ptr ()) -> (IO CInt))))

foreign import ccall unsafe "gtk_widget_is_focus"
  gtk_widget_is_focus :: ((Ptr Widget) -> (IO CInt))

foreign import ccall safe "gtk_widget_grab_focus"
  gtk_widget_grab_focus :: ((Ptr Widget) -> (IO ()))

foreign import ccall safe "gtk_widget_grab_default"
  gtk_widget_grab_default :: ((Ptr Widget) -> (IO ()))

foreign import ccall safe "gtk_widget_set_name"
  gtk_widget_set_name :: ((Ptr Widget) -> ((Ptr CChar) -> (IO ())))

foreign import ccall unsafe "gtk_widget_get_name"
  gtk_widget_get_name :: ((Ptr Widget) -> (IO (Ptr CChar)))

foreign import ccall safe "gtk_widget_set_sensitive"
  gtk_widget_set_sensitive :: ((Ptr Widget) -> (CInt -> (IO ())))

foreign import ccall safe "gtk_widget_get_parent_window"
  gtk_widget_get_parent_window :: ((Ptr Widget) -> (IO (Ptr DrawWindow)))

foreign import ccall unsafe "gtk_widget_get_events"
  gtk_widget_get_events :: ((Ptr Widget) -> (IO CInt))

foreign import ccall unsafe "gtk_widget_set_events"
  gtk_widget_set_events :: ((Ptr Widget) -> (CInt -> (IO ())))

foreign import ccall unsafe "gtk_widget_add_events"
  gtk_widget_add_events :: ((Ptr Widget) -> (CInt -> (IO ())))

foreign import ccall safe "gtk_widget_set_extension_events"
  gtk_widget_set_extension_events :: ((Ptr Widget) -> (CInt -> (IO ())))

foreign import ccall safe "gtk_widget_get_extension_events"
  gtk_widget_get_extension_events :: ((Ptr Widget) -> (IO CInt))

foreign import ccall unsafe "gtk_widget_get_toplevel"
  gtk_widget_get_toplevel :: ((Ptr Widget) -> (IO (Ptr Widget)))

foreign import ccall safe "gtk_widget_get_ancestor"
  gtk_widget_get_ancestor :: ((Ptr Widget) -> (CULong -> (IO (Ptr Widget))))

foreign import ccall safe "gtk_widget_get_colormap"
  gtk_widget_get_colormap :: ((Ptr Widget) -> (IO (Ptr Colormap)))

foreign import ccall safe "gtk_widget_set_colormap"
  gtk_widget_set_colormap :: ((Ptr Widget) -> ((Ptr Colormap) -> (IO ())))

foreign import ccall safe "gtk_widget_get_pointer"
  gtk_widget_get_pointer :: ((Ptr Widget) -> ((Ptr CInt) -> ((Ptr CInt) -> (IO ()))))

foreign import ccall unsafe "gtk_widget_is_ancestor"
  gtk_widget_is_ancestor :: ((Ptr Widget) -> ((Ptr Widget) -> (IO CInt)))

foreign import ccall safe "gtk_widget_translate_coordinates"
  gtk_widget_translate_coordinates :: ((Ptr Widget) -> ((Ptr Widget) -> (CInt -> (CInt -> ((Ptr CInt) -> ((Ptr CInt) -> (IO CInt)))))))

foreign import ccall safe "gtk_widget_set_style"
  gtk_widget_set_style :: ((Ptr Widget) -> ((Ptr Style) -> (IO ())))

foreign import ccall safe "gtk_widget_ensure_style"
  gtk_widget_ensure_style :: ((Ptr Widget) -> (IO ()))

foreign import ccall safe "gtk_widget_get_style"
  gtk_widget_get_style :: ((Ptr Widget) -> (IO (Ptr Style)))

foreign import ccall safe "gtk_widget_push_colormap"
  gtk_widget_push_colormap :: ((Ptr Colormap) -> (IO ()))

foreign import ccall safe "gtk_widget_pop_colormap"
  gtk_widget_pop_colormap :: (IO ())

foreign import ccall safe "gtk_widget_set_default_colormap"
  gtk_widget_set_default_colormap :: ((Ptr Colormap) -> (IO ()))

foreign import ccall safe "gtk_widget_get_default_style"
  gtk_widget_get_default_style :: (IO (Ptr Style))

foreign import ccall safe "gtk_widget_get_default_colormap"
  gtk_widget_get_default_colormap :: (IO (Ptr Colormap))

foreign import ccall safe "gtk_widget_set_direction"
  gtk_widget_set_direction :: ((Ptr Widget) -> (CInt -> (IO ())))

foreign import ccall safe "gtk_widget_get_direction"
  gtk_widget_get_direction :: ((Ptr Widget) -> (IO CInt))

foreign import ccall safe "gtk_widget_set_default_direction"
  gtk_widget_set_default_direction :: (CInt -> (IO ()))

foreign import ccall safe "gtk_widget_get_default_direction"
  gtk_widget_get_default_direction :: (IO CInt)

foreign import ccall safe "gtk_widget_shape_combine_mask"
  gtk_widget_shape_combine_mask :: ((Ptr Widget) -> ((Ptr ()) -> (CInt -> (CInt -> (IO ())))))

foreign import ccall safe "gtk_widget_input_shape_combine_mask"
  gtk_widget_input_shape_combine_mask :: ((Ptr Widget) -> ((Ptr ()) -> (CInt -> (CInt -> (IO ())))))

foreign import ccall safe "gtk_widget_get_snapshot"
  gtk_widget_get_snapshot :: ((Ptr Widget) -> ((Ptr ()) -> (IO (Ptr Pixmap))))

foreign import ccall safe "gtk_widget_path"
  gtk_widget_path :: ((Ptr Widget) -> ((Ptr CUInt) -> ((Ptr (Ptr CChar)) -> ((Ptr (Ptr CChar)) -> (IO ())))))

foreign import ccall safe "gtk_widget_class_path"
  gtk_widget_class_path :: ((Ptr Widget) -> ((Ptr CUInt) -> ((Ptr (Ptr CChar)) -> ((Ptr (Ptr CChar)) -> (IO ())))))

foreign import ccall safe "gtk_widget_get_composite_name"
  gtk_widget_get_composite_name :: ((Ptr Widget) -> (IO (Ptr CChar)))

foreign import ccall safe "gtk_widget_modify_style"
  gtk_widget_modify_style :: ((Ptr Widget) -> ((Ptr RcStyle) -> (IO ())))

foreign import ccall safe "gtk_widget_get_modifier_style"
  gtk_widget_get_modifier_style :: ((Ptr Widget) -> (IO (Ptr RcStyle)))

foreign import ccall safe "gtk_widget_modify_fg"
  gtk_widget_modify_fg :: ((Ptr Widget) -> (CInt -> ((Ptr ()) -> (IO ()))))

foreign import ccall safe "gtk_widget_modify_bg"
  gtk_widget_modify_bg :: ((Ptr Widget) -> (CInt -> ((Ptr ()) -> (IO ()))))

foreign import ccall safe "gtk_widget_modify_text"
  gtk_widget_modify_text :: ((Ptr Widget) -> (CInt -> ((Ptr ()) -> (IO ()))))

foreign import ccall safe "gtk_widget_modify_base"
  gtk_widget_modify_base :: ((Ptr Widget) -> (CInt -> ((Ptr ()) -> (IO ()))))

foreign import ccall safe "gtk_widget_modify_font"
  gtk_widget_modify_font :: ((Ptr Widget) -> ((Ptr FontDescription) -> (IO ())))

foreign import ccall safe "gtk_widget_create_pango_context"
  gtk_widget_create_pango_context :: ((Ptr Widget) -> (IO (Ptr PangoContext)))

foreign import ccall safe "gtk_widget_get_pango_context"
  gtk_widget_get_pango_context :: ((Ptr Widget) -> (IO (Ptr PangoContext)))

foreign import ccall unsafe "gtk_widget_create_pango_layout"
  gtk_widget_create_pango_layout :: ((Ptr Widget) -> ((Ptr CChar) -> (IO (Ptr PangoLayoutRaw))))

foreign import ccall safe "gtk_widget_render_icon"
  gtk_widget_render_icon :: ((Ptr Widget) -> ((Ptr CChar) -> (CInt -> ((Ptr CChar) -> (IO (Ptr Pixbuf))))))

foreign import ccall safe "gtk_widget_queue_draw_area"
  gtk_widget_queue_draw_area :: ((Ptr Widget) -> (CInt -> (CInt -> (CInt -> (CInt -> (IO ()))))))

foreign import ccall safe "gtk_widget_reset_shapes"
  gtk_widget_reset_shapes :: ((Ptr Widget) -> (IO ()))

foreign import ccall safe "gtk_widget_set_app_paintable"
  gtk_widget_set_app_paintable :: ((Ptr Widget) -> (CInt -> (IO ())))

foreign import ccall safe "gtk_widget_set_double_buffered"
  gtk_widget_set_double_buffered :: ((Ptr Widget) -> (CInt -> (IO ())))

foreign import ccall safe "gtk_widget_set_redraw_on_allocate"
  gtk_widget_set_redraw_on_allocate :: ((Ptr Widget) -> (CInt -> (IO ())))

foreign import ccall safe "gtk_widget_set_composite_name"
  gtk_widget_set_composite_name :: ((Ptr Widget) -> ((Ptr CChar) -> (IO ())))

foreign import ccall safe "gtk_widget_mnemonic_activate"
  gtk_widget_mnemonic_activate :: ((Ptr Widget) -> (CInt -> (IO CInt)))

foreign import ccall safe "gtk_widget_set_scroll_adjustments"
  gtk_widget_set_scroll_adjustments :: ((Ptr Widget) -> ((Ptr Adjustment) -> ((Ptr Adjustment) -> (IO CInt))))

foreign import ccall safe "gtk_widget_region_intersect"
  gtk_widget_region_intersect :: ((Ptr Widget) -> ((Ptr Region) -> (IO (Ptr Region))))

foreign import ccall safe "gtk_widget_get_accessible"
  gtk_widget_get_accessible :: ((Ptr Widget) -> (IO (Ptr AtkObject)))

foreign import ccall safe "gtk_widget_child_focus"
  gtk_widget_child_focus :: ((Ptr Widget) -> (CInt -> (IO CInt)))

foreign import ccall safe "gtk_widget_get_child_visible"
  gtk_widget_get_child_visible :: ((Ptr Widget) -> (IO CInt))

foreign import ccall safe "gtk_widget_get_parent"
  gtk_widget_get_parent :: ((Ptr Widget) -> (IO (Ptr Widget)))

foreign import ccall safe "gtk_widget_get_settings"
  gtk_widget_get_settings :: ((Ptr Widget) -> (IO (Ptr Settings)))

foreign import ccall safe "gtk_widget_get_clipboard"
  gtk_widget_get_clipboard :: ((Ptr Widget) -> ((Ptr ()) -> (IO (Ptr Clipboard))))

foreign import ccall safe "gtk_widget_get_display"
  gtk_widget_get_display :: ((Ptr Widget) -> (IO (Ptr Display)))

foreign import ccall safe "gtk_widget_get_root_window"
  gtk_widget_get_root_window :: ((Ptr Widget) -> (IO (Ptr DrawWindow)))

foreign import ccall safe "gtk_widget_get_screen"
  gtk_widget_get_screen :: ((Ptr Widget) -> (IO (Ptr Screen)))

foreign import ccall safe "gtk_widget_has_screen"
  gtk_widget_has_screen :: ((Ptr Widget) -> (IO CInt))

foreign import ccall safe "gtk_widget_get_size_request"
  gtk_widget_get_size_request :: ((Ptr Widget) -> ((Ptr CInt) -> ((Ptr CInt) -> (IO ()))))

foreign import ccall safe "gtk_widget_set_child_visible"
  gtk_widget_set_child_visible :: ((Ptr Widget) -> (CInt -> (IO ())))

foreign import ccall safe "gtk_widget_set_size_request"
  gtk_widget_set_size_request :: ((Ptr Widget) -> (CInt -> (CInt -> (IO ()))))

foreign import ccall safe "gtk_widget_set_no_show_all"
  gtk_widget_set_no_show_all :: ((Ptr Widget) -> (CInt -> (IO ())))

foreign import ccall safe "gtk_widget_get_no_show_all"
  gtk_widget_get_no_show_all :: ((Ptr Widget) -> (IO CInt))

foreign import ccall safe "gtk_widget_list_mnemonic_labels"
  gtk_widget_list_mnemonic_labels :: ((Ptr Widget) -> (IO (Ptr ())))

foreign import ccall safe "gtk_widget_add_mnemonic_label"
  gtk_widget_add_mnemonic_label :: ((Ptr Widget) -> ((Ptr Widget) -> (IO ())))

foreign import ccall safe "gtk_widget_remove_mnemonic_label"
  gtk_widget_remove_mnemonic_label :: ((Ptr Widget) -> ((Ptr Widget) -> (IO ())))

foreign import ccall safe "gtk_widget_get_action"
  gtk_widget_get_action :: ((Ptr Widget) -> (IO (Ptr Action)))

foreign import ccall safe "gtk_widget_is_composited"
  gtk_widget_is_composited :: ((Ptr Widget) -> (IO CInt))

foreign import ccall safe "gtk_widget_error_bell"
  gtk_widget_error_bell :: ((Ptr Widget) -> (IO ()))

foreign import ccall safe "gtk_widget_keynav_failed"
  gtk_widget_keynav_failed :: ((Ptr Widget) -> (CInt -> (IO CInt)))

foreign import ccall safe "gtk_widget_get_tooltip_markup"
  gtk_widget_get_tooltip_markup :: ((Ptr Widget) -> (IO (Ptr CChar)))

foreign import ccall safe "gtk_widget_set_tooltip_markup"
  gtk_widget_set_tooltip_markup :: ((Ptr Widget) -> ((Ptr CChar) -> (IO ())))

foreign import ccall safe "gtk_widget_get_tooltip_text"
  gtk_widget_get_tooltip_text :: ((Ptr Widget) -> (IO (Ptr CChar)))

foreign import ccall safe "gtk_widget_set_tooltip_text"
  gtk_widget_set_tooltip_text :: ((Ptr Widget) -> ((Ptr CChar) -> (IO ())))

foreign import ccall safe "gtk_widget_get_tooltip_window"
  gtk_widget_get_tooltip_window :: ((Ptr Widget) -> (IO (Ptr Window)))

foreign import ccall safe "gtk_widget_set_tooltip_window"
  gtk_widget_set_tooltip_window :: ((Ptr Widget) -> ((Ptr Window) -> (IO ())))

foreign import ccall safe "gtk_widget_get_has_tooltip"
  gtk_widget_get_has_tooltip :: ((Ptr Widget) -> (IO CInt))

foreign import ccall safe "gtk_widget_set_has_tooltip"
  gtk_widget_set_has_tooltip :: ((Ptr Widget) -> (CInt -> (IO ())))

foreign import ccall safe "gtk_widget_trigger_tooltip_query"
  gtk_widget_trigger_tooltip_query :: ((Ptr Widget) -> (IO ()))

foreign import ccall safe "gtk_widget_get_window"
  gtk_widget_get_window :: ((Ptr Widget) -> (IO (Ptr DrawWindow)))

foreign import ccall safe "gtk_widget_reparent"
  gtk_widget_reparent :: ((Ptr Widget) -> ((Ptr Widget) -> (IO ())))

foreign import ccall safe "gtk_widget_get_allocation"
  gtk_widget_get_allocation :: ((Ptr Widget) -> ((Ptr ()) -> (IO ())))

foreign import ccall safe "gtk_widget_get_app_paintable"
  gtk_widget_get_app_paintable :: ((Ptr Widget) -> (IO CInt))

foreign import ccall safe "gtk_widget_get_can_default"
  gtk_widget_get_can_default :: ((Ptr Widget) -> (IO CInt))

foreign import ccall safe "gtk_widget_set_can_default"
  gtk_widget_set_can_default :: ((Ptr Widget) -> (CInt -> (IO ())))

foreign import ccall safe "gtk_widget_get_has_window"
  gtk_widget_get_has_window :: ((Ptr Widget) -> (IO CInt))

foreign import ccall safe "gtk_widget_set_has_window"
  gtk_widget_set_has_window :: ((Ptr Widget) -> (CInt -> (IO ())))

foreign import ccall safe "gtk_widget_get_sensitive"
  gtk_widget_get_sensitive :: ((Ptr Widget) -> (IO CInt))

foreign import ccall safe "gtk_widget_is_sensitive"
  gtk_widget_is_sensitive :: ((Ptr Widget) -> (IO CInt))

foreign import ccall safe "gtk_widget_get_state"
  gtk_widget_get_state :: ((Ptr Widget) -> (IO CInt))

foreign import ccall safe "gtk_widget_get_visible"
  gtk_widget_get_visible :: ((Ptr Widget) -> (IO CInt))

foreign import ccall safe "gtk_widget_has_default"
  gtk_widget_has_default :: ((Ptr Widget) -> (IO CInt))

foreign import ccall safe "gtk_widget_has_focus"
  gtk_widget_has_focus :: ((Ptr Widget) -> (IO CInt))

foreign import ccall safe "gtk_widget_has_grab"
  gtk_widget_has_grab :: ((Ptr Widget) -> (IO CInt))

foreign import ccall safe "gtk_widget_is_drawable"
  gtk_widget_is_drawable :: ((Ptr Widget) -> (IO CInt))

foreign import ccall safe "gtk_widget_is_toplevel"
  gtk_widget_is_toplevel :: ((Ptr Widget) -> (IO CInt))

foreign import ccall safe "gtk_widget_set_window"
  gtk_widget_set_window :: ((Ptr Widget) -> ((Ptr DrawWindow) -> (IO ())))

foreign import ccall safe "gtk_widget_set_receives_default"
  gtk_widget_set_receives_default :: ((Ptr Widget) -> (CInt -> (IO ())))

foreign import ccall safe "gtk_widget_get_receives_default"
  gtk_widget_get_receives_default :: ((Ptr Widget) -> (IO CInt))

foreign import ccall safe "gtk_widget_set_state"
  gtk_widget_set_state :: ((Ptr Widget) -> (CInt -> (IO ())))

foreign import ccall safe "gtk_widget_event"
  gtk_widget_event :: ((Ptr Widget) -> ((Ptr ()) -> (IO CInt)))

foreign import ccall unsafe "gdk_event_mask_get_type"
  gdk_event_mask_get_type :: CULong

foreign import ccall safe "gtk_widget_has_rc_style"
  gtk_widget_has_rc_style :: ((Ptr Widget) -> (IO CInt))

foreign import ccall safe "gtk_widget_get_realized"
  gtk_widget_get_realized :: ((Ptr Widget) -> (IO CInt))

foreign import ccall safe "gtk_widget_get_mapped"
  gtk_widget_get_mapped :: ((Ptr Widget) -> (IO CInt))

foreign import ccall safe "gtk_widget_set_realized"
  gtk_widget_set_realized :: ((Ptr Widget) -> (CInt -> (IO ())))

foreign import ccall safe "gtk_widget_set_mapped"
  gtk_widget_set_mapped :: ((Ptr Widget) -> (CInt -> (IO ())))