{-# LINE 2 "./Graphics/UI/Gtk/Abstract/Widget.chs" #-}
module Graphics.UI.Gtk.Abstract.Widget (
Widget,
WidgetClass,
castToWidget, gTypeWidget,
toWidget,
EventMask(..),
ExtensionMode(..),
GType,
KeyVal,
Region,
Bitmap,
Requisition(..),
Rectangle(..),
Color,
IconSize(..),
StateType(..),
TextDirection(..),
AccelFlags(..),
DirectionType(..),
StockId,
WidgetHelpType(..),
Allocation,
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" #-}
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,
realize,
unrealize,
mapSignal,
unmapSignal,
sizeRequest,
sizeAllocate,
showSignal,
hideSignal,
focus,
stateChanged,
parentSet,
hierarchyChanged,
styleSet,
directionChanged,
grabNotify,
popupMenuSignal,
showHelp,
accelClosuresChanged,
screenChanged,
queryTooltip,
buttonPressEvent,
buttonReleaseEvent,
configureEvent,
deleteEvent,
destroyEvent,
enterNotifyEvent,
exposeEvent,
focusInEvent,
focusOutEvent,
grabBrokenEvent,
keyPressEvent,
keyReleaseEvent,
leaveNotifyEvent,
mapEvent,
motionNotifyEvent,
noExposeEvent,
proximityInEvent,
proximityOutEvent,
scrollEvent,
unmapEvent,
visibilityNotifyEvent,
windowStateEvent,
onButtonPress,
afterButtonPress,
onButtonRelease,
afterButtonRelease,
onClient,
afterClient,
onConfigure,
afterConfigure,
onDelete,
afterDelete,
onDestroyEvent,
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" #-}
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)
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)
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)
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)
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)
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" #-}
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)
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)
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" #-}
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
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
widgetSizeAllocate :: WidgetClass self => self
-> 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" #-}
widgetAddAccelerator :: (WidgetClass self, GlibString string) => self
-> string
-> AccelGroup
-> KeyVal
-> [Modifier]
-> [AccelFlags]
-> 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)
widgetRemoveAccelerator :: WidgetClass self => self
-> AccelGroup
-> KeyVal
-> [Modifier]
-> IO Bool
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)
widgetSetAccelPath :: (WidgetClass self, GlibString string) => self
-> string
-> 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
widgetCanActivateAccel :: WidgetClass self =>
(ConnectId self)
-> IO Bool
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)
widgetActivate :: WidgetClass self => self
-> IO Bool
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)
widgetIntersect :: WidgetClass self => self
-> Rectangle
-> IO (Maybe Rectangle)
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
widgetHasIntersection :: WidgetClass self => self
-> Rectangle
-> IO Bool
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)
widgetGetIsFocus :: WidgetClass self => self
-> IO Bool
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)
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)
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)
widgetSetName :: (WidgetClass self, GlibString string) => self
-> string
-> 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
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
widgetSetSensitive :: WidgetClass self => self
-> Bool
-> 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)
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
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)
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'
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 ()
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)
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)
widgetSetEvents :: WidgetClass self => self
-> [EventMask]
-> 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)
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)
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)
widgetGetToplevel :: WidgetClass self =>
self
-> IO Widget
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)
widgetGetAncestor :: WidgetClass self => self
-> GType
-> IO (Maybe Widget)
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)
widgetGetColormap :: WidgetClass self => self
-> IO Colormap
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)
widgetSetColormap :: WidgetClass self => self
-> 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
widgetGetPointer :: WidgetClass self => self
-> IO (Int, Int)
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)
widgetIsAncestor :: (WidgetClass self, WidgetClass ancestor) =>
self
-> ancestor
-> IO Bool
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)
widgetTranslateCoordinates :: (WidgetClass self, WidgetClass destWidget) =>
self
-> destWidget
-> Int
-> Int
-> IO (Maybe (Int, Int))
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
widgetSetStyle :: WidgetClass self => self
-> Maybe 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)
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)
widgetPushColormap ::
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
widgetPopColormap :: IO ()
widgetPopColormap :: IO ()
widgetPopColormap =
IO ()
gtk_widget_pop_colormap
{-# LINE 1358 "./Graphics/UI/Gtk/Abstract/Widget.chs" #-}
widgetSetDefaultColormap ::
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
widgetGetDefaultStyle ::
IO Style
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" #-}
widgetGetDefaultColormap ::
IO 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" #-}
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)
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)
widgetSetDefaultDirection ::
TextDirection
-> 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)
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" #-}
widgetShapeCombineMask :: WidgetClass self => self
-> Maybe Bitmap
-> Int
-> Int
-> 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)
widgetInputShapeCombineMask :: WidgetClass self => self
-> Maybe Bitmap
-> Int
-> Int
-> 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" #-}
widgetGetSnapshot :: WidgetClass self => self
-> Rectangle
-> IO (Maybe Pixmap)
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)
widgetPath :: (WidgetClass self, GlibString string) => self
-> IO (Int, string, 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)
widgetClassPath :: (WidgetClass self, GlibString string) => self
-> IO (Int, string, 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)
widgetGetCompositeName :: (WidgetClass self, GlibString string) => self
-> IO (Maybe string)
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" #-}
widgetModifyStyle :: (WidgetClass self, RcStyleClass style) => self
-> style
-> 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)
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)
widgetModifyFg :: WidgetClass self => self
-> StateType
-> Color
-> 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)
widgetRestoreFg :: WidgetClass self => self
-> StateType
-> 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
widgetModifyBg :: WidgetClass self => self
-> StateType
-> Color
-> 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)
widgetRestoreBg :: WidgetClass self => self
-> StateType
-> 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
widgetModifyText :: WidgetClass self => self
-> StateType
-> Color
-> 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)
widgetRestoreText :: WidgetClass self => self
-> StateType
-> 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
widgetModifyBase :: WidgetClass self => self
-> StateType
-> Color
-> 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)
widgetRestoreBase :: WidgetClass self => self
-> StateType
-> 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
widgetModifyFont :: WidgetClass self => self
-> Maybe FontDescription
-> 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)
widgetCreatePangoContext :: WidgetClass self => self
-> IO 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)
widgetGetPangoContext :: WidgetClass self => self
-> IO PangoContext
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)
widgetCreateLayout :: (WidgetClass self, GlibString string) => self
-> string
-> 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)
widgetRenderIcon :: (WidgetClass self, GlibString string) => self
-> string
-> IconSize
-> string
-> IO (Maybe Pixbuf)
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
widgetQueueDrawArea :: WidgetClass self => self
-> Int
-> Int
-> Int
-> Int
-> 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" #-}
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)
widgetSetAppPaintable :: WidgetClass self => self
-> Bool
-> 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)
widgetSetDoubleBuffered :: WidgetClass self => self
-> Bool
-> 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)
widgetSetRedrawOnAllocate :: WidgetClass self => self
-> Bool
-> 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)
widgetSetCompositeName :: (WidgetClass self, GlibString string) => self
-> string
-> 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
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)
widgetSetScrollAdjustments :: WidgetClass self => self
-> Maybe Adjustment
-> Maybe Adjustment
-> IO Bool
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)
widgetRegionIntersect :: WidgetClass self => self
-> Region
-> IO Region
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
widgetGetAccessible :: WidgetClass self => self
-> IO Object
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)
widgetChildFocus :: WidgetClass self => self
-> DirectionType
-> IO Bool
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)
widgetGetChildVisible :: WidgetClass self => self
-> IO Bool
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)
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)
widgetGetSettings :: WidgetClass self => self
-> IO Settings
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)
widgetGetClipboard :: WidgetClass self => self
-> SelectionTag
-> IO Clipboard
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
widgetGetDisplay :: WidgetClass self => self
-> IO Display
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)
widgetGetRootWindow :: WidgetClass self => self
-> IO DrawWindow
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)
widgetGetScreen :: WidgetClass self => self
-> IO Screen
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)
widgetHasScreen :: WidgetClass self => self
-> IO Bool
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)
widgetGetSizeRequest :: WidgetClass self => self
-> IO (Int, Int)
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" #-}
widgetSetChildVisible :: WidgetClass self => self
-> Bool
-> 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)
widgetSetSizeRequest :: WidgetClass self => self
-> Int
-> Int
-> 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)
widgetSetNoShowAll :: WidgetClass self => self
-> Bool
-> 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)
widgetGetNoShowAll :: WidgetClass self => self
-> IO Bool
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)
widgetListMnemonicLabels :: WidgetClass self => self
-> IO [Widget]
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)
widgetAddMnemonicLabel :: (WidgetClass self, WidgetClass label) => self
-> label
-> 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)
widgetRemoveMnemonicLabel :: (WidgetClass self, WidgetClass label) => self
-> label
-> 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)
widgetGetAction :: WidgetClass self => self
-> IO (Maybe 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)
widgetIsComposited :: WidgetClass self => self
-> IO Bool
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)
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)
widgetKeynavFailed :: WidgetClass self => self
-> DirectionType
-> IO Bool
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)
widgetGetTooltipMarkup :: (WidgetClass self, GlibString markup) => self
-> IO (Maybe markup)
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
widgetSetTooltipMarkup :: (WidgetClass self, GlibString markup) => self
-> Maybe markup
-> 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
widgetGetTooltipText :: (WidgetClass self, GlibString text) => self
-> IO (Maybe text)
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
widgetSetTooltipText :: (WidgetClass widget, GlibString text) => widget
-> Maybe text
-> 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
widgetGetTooltipWindow :: WidgetClass self => self
-> IO Window
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)
widgetSetTooltipWindow :: (WidgetClass self, WindowClass customWindow) => self
-> Maybe customWindow
-> 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)
widgetGetHasTooltip :: WidgetClass widget => widget
-> IO Bool
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)
widgetSetHasTooltip :: WidgetClass widget => widget
-> Bool
-> 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)
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)
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" #-}
widgetReparent :: (WidgetClass self, WidgetClass newParent) => self
-> newParent
-> 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)
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"
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"
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" #-}
widgetGetAppPaintable :: WidgetClass widget => widget
-> IO Bool
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)
widgetGetCanDefault :: WidgetClass widget => widget
-> IO Bool
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)
widgetSetCanDefault :: WidgetClass widget => widget
-> Bool
-> 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)
widgetGetHasWindow :: WidgetClass widget => widget
-> IO Bool
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)
widgetSetHasWindow :: WidgetClass widget => widget
-> Bool
-> 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)
widgetGetSensitive :: WidgetClass widget => widget
-> IO Bool
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)
widgetIsSensitive :: WidgetClass widget => widget
-> IO Bool
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)
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)
widgetGetVisible :: WidgetClass widget => widget
-> IO Bool
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" #-}
widgetGetHasDefault :: WidgetClass widget => widget
-> IO Bool
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)
widgetGetHasFocus :: WidgetClass widget => widget
-> IO Bool
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" #-}
widgetHasGrab :: WidgetClass widget => widget
-> IO Bool
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)
widgetIsDrawable :: WidgetClass widget => widget
-> IO Bool
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)
widgetIsToplevel :: WidgetClass widget => widget
-> IO Bool
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)
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)
widgetSetReceivesDefault :: WidgetClass widget => widget
-> Bool
-> 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)
widgetGetReceivesDefault :: WidgetClass widget => widget
-> IO Bool
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" #-}
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)
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)
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"
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
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"
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"
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"
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"
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"
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"
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"
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"
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"
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"
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"
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"
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"
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
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
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" #-}
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
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"
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"
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"
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"
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"
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"
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
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
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
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
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"
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"
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"
widgetHasRcStyle :: WidgetClass self => self
-> IO Bool
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)
widgetGetRealized :: WidgetClass self => self
-> IO Bool
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)
widgetGetMapped :: WidgetClass self => self
-> IO Bool
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)
widgetSetRealized :: WidgetClass widget => widget
-> Bool
-> 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)
widgetSetMapped :: WidgetClass widget => widget
-> Bool
-> 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" #-}
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")
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")
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")
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")
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))
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)
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")
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")
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")
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" #-}
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")
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")
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")
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")
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")
popupMenuSignal :: WidgetClass self => Signal self (IO Bool)
= (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")
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" #-}
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")
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")
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")
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" #-}
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
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])
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])
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])
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" [])
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" [])
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" [])
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" [])
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])
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])
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])
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])
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" [])
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])
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])
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" [])
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" [])
_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])
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])
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])
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])
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" [])
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" [])
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" [])
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
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
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
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
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
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
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
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
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
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
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)
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
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
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
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
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
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
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
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
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
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)
= 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
= 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
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
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
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
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
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
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
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
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
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 ())))