packages feed

gtk3 0.13.9 → 0.15.10

raw patch · 102 files changed

Files

Graphics/UI/Gtk.chs view
@@ -66,6 +66,9 @@ #endif --  module Graphics.UI.Gtk.Gdk.GC,   module Graphics.UI.Gtk.Gdk.EventM,+#if GTK_CHECK_VERSION(3,16,0)+  module Graphics.UI.Gtk.Gdk.GLContext,+#endif   module Graphics.UI.Gtk.Gdk.Pixbuf, #if GTK_MAJOR_VERSION < 3   module Graphics.UI.Gtk.Gdk.Pixmap,@@ -221,6 +224,7 @@   module Graphics.UI.Gtk.Layout.Layout,   module Graphics.UI.Gtk.Layout.Notebook, #if GTK_MAJOR_VERSION >= 3+  module Graphics.UI.Gtk.Layout.Grid,   module Graphics.UI.Gtk.Layout.Overlay, #endif   module Graphics.UI.Gtk.Layout.Expander,@@ -228,6 +232,10 @@   module Graphics.UI.Gtk.Layout.VBox,   module Graphics.UI.Gtk.Layout.VButtonBox,   module Graphics.UI.Gtk.Layout.VPaned,+#if GTK_CHECK_VERSION(3,10,0)+  module Graphics.UI.Gtk.Layout.Stack,+  module Graphics.UI.Gtk.Layout.StackSwitcher,+#endif   -- * Ornaments   module Graphics.UI.Gtk.Ornaments.Frame,   module Graphics.UI.Gtk.Ornaments.HSeparator,@@ -255,6 +263,9 @@   module Graphics.UI.Gtk.Misc.Arrow,   module Graphics.UI.Gtk.Misc.Calendar,   module Graphics.UI.Gtk.Misc.DrawingArea,+#if GTK_CHECK_VERSION(3,16,0)+  module Graphics.UI.Gtk.Misc.GLArea,+#endif   module Graphics.UI.Gtk.Misc.EventBox,   module Graphics.UI.Gtk.Misc.HandleBox,   module Graphics.UI.Gtk.Misc.IMMulticontext,@@ -265,6 +276,9 @@   module Graphics.UI.Gtk.Misc.Tooltips, #endif   module Graphics.UI.Gtk.Misc.Viewport,+#if GTK_MAJOR_VERSION >= 3+  module Graphics.UI.Gtk.Misc.Switch,+#endif   -- * Abstract base classes   module Graphics.UI.Gtk.Abstract.Box,   module Graphics.UI.Gtk.Abstract.ButtonBox,@@ -323,6 +337,9 @@ #endif --import Graphics.UI.Gtk.Gdk.GC import Graphics.UI.Gtk.Gdk.EventM+#if GTK_CHECK_VERSION(3,16,0)+import Graphics.UI.Gtk.Gdk.GLContext+#endif import Graphics.UI.Gtk.Gdk.Pixbuf #if GTK_MAJOR_VERSION < 3 import Graphics.UI.Gtk.Gdk.Pixmap@@ -486,8 +503,13 @@ import Graphics.UI.Gtk.Layout.Layout import Graphics.UI.Gtk.Layout.Notebook #if GTK_MAJOR_VERSION >= 3+import Graphics.UI.Gtk.Layout.Grid import Graphics.UI.Gtk.Layout.Overlay #endif+#if GTK_CHECK_VERSION(3,10,0)+import Graphics.UI.Gtk.Layout.Stack+import Graphics.UI.Gtk.Layout.StackSwitcher+#endif import Graphics.UI.Gtk.Layout.Expander import Graphics.UI.Gtk.Layout.Table -- ornaments@@ -517,6 +539,9 @@ import Graphics.UI.Gtk.Misc.Arrow import Graphics.UI.Gtk.Misc.Calendar import Graphics.UI.Gtk.Misc.DrawingArea+#if GTK_CHECK_VERSION(3,16,0)+import Graphics.UI.Gtk.Misc.GLArea+#endif import Graphics.UI.Gtk.Misc.EventBox import Graphics.UI.Gtk.Misc.HandleBox import Graphics.UI.Gtk.Misc.IMMulticontext@@ -527,6 +552,9 @@ import Graphics.UI.Gtk.Misc.Tooltips #endif import Graphics.UI.Gtk.Misc.Viewport+#if GTK_MAJOR_VERSION >= 3+import Graphics.UI.Gtk.Misc.Switch+#endif --import Accessible -- abstract base classes import Graphics.UI.Gtk.Abstract.Box
Graphics/UI/Gtk/Abstract/Box.chs view
@@ -54,7 +54,7 @@ -- parameter that denotes how to fill up unused space. -- -- While the right amount of padding around each widget is a matter of--- appearance, the 'Packing' paramter specifies the way the widgets in+-- appearance, the 'Packing' parameter specifies the way the widgets in -- the container behave when the window is resized and thereby affect -- the usability. Hence, once you have created a window, you should resize -- it and see if the widgets behave as expected. The 'Packing' parameter of@@ -116,10 +116,24 @@   boxReorderChild,   boxQueryChildPacking,   boxSetChildPacking,+#if GTK_CHECK_VERSION(3,10,0)+  boxGetBaselinePosition,+  boxSetBaselinePosition,+#endif+#if GTK_CHECK_VERSION(3,12,0)+  boxGetCenterWidget,+  boxSetCenterWidget,+#endif  -- * Attributes   boxSpacing,   boxHomogeneous,+#if GTK_CHECK_VERSION(3,10,0)+  boxBaselinePosition,+#endif+#if GTK_CHECK_VERSION(3,12,0)+  boxCenterWidget,+#endif  -- * Child Attributes   boxChildPacking,@@ -137,6 +151,13 @@                                         toPacking, fromPacking) import Graphics.UI.Gtk.Abstract.ContainerChildProperties +#if GTK_CHECK_VERSION(3,10,0)+import Graphics.UI.Gtk.General.Enums    (BaselinePosition)+#endif+#if GTK_CHECK_VERSION(3,12,0)+import Graphics.UI.Gtk.Abstract.Object  (makeNewObject)+#endif+ {# context lib="gtk" prefix="gtk" #}  --------------------@@ -174,7 +195,7 @@ -- -- Note that -- for 'boxPackEnd' the 'PackNatural' option will move a child to the right in--- an 'HBox' or to the bottom in an 'VBox' if there is more space availble.+-- an 'HBox' or to the bottom in an 'VBox' if there is more space available. -- boxPackEnd :: (BoxClass self, WidgetClass child) => self  -> child -- ^ @child@ - the 'Widget' to be added to the box.@@ -321,6 +342,51 @@     ((fromIntegral . fromEnum) packType)   where (expand, fill) = fromPacking packing +#if GTK_CHECK_VERSION(3,10,0)+-- | Gets the value set by `boxSetBaselinePosition`+boxGetBaselinePosition :: BoxClass self => self+ -> IO BaselinePosition+boxGetBaselinePosition self =+  liftM (toEnum . fromIntegral) $+  {# call unsafe box_get_baseline_position #}+    (toBox self)++-- | Sets the baseline position of a box. This affects only+-- horizontal boxes with at least one baseline aligned child.+-- If there is more vertical space available than requested,+-- and the baseline is not allocated by the parent then+-- `position` is used to allocate the baseline wrt the extra+-- space available.+boxSetBaselinePosition :: BoxClass self => self+ -> BaselinePosition+ -> IO ()+boxSetBaselinePosition self position =+  {# call unsafe box_set_baseline_position #}+    (toBox self)+    (fromIntegral $ fromEnum position)+#endif++#if GTK_CHECK_VERSION(3,12,0)+-- | Retrieves the center widget of the box.+boxGetCenterWidget :: BoxClass self => self+ -> IO Widget+boxGetCenterWidget self =+  makeNewObject mkWidget $+  {# call unsafe box_get_center_widget #}+    (toBox self)++-- | Sets a center widget; that is a child widget that will be+-- centered with respect to the full width of the box, even if+-- the children at either side take up different amounts of space.+boxSetCenterWidget :: (BoxClass self, WidgetClass widget) => self+ -> widget+ -> IO ()+boxSetCenterWidget self position =+  {# call unsafe box_set_center_widget #}+    (toBox self)+    (toWidget position)+#endif+ -- | Retrieves the standard spacing between widgets. -- boxGetSpacing :: BoxClass self => self@@ -352,6 +418,24 @@ boxHomogeneous = newAttr   boxGetHomogeneous   boxSetHomogeneous++#if GTK_CHECK_VERSION(3,10,0)+-- | The position of the baseline aligned widgets if extra space is available.+boxBaselinePosition :: BoxClass self => Attr self BaselinePosition+boxBaselinePosition = newAttr+  boxGetBaselinePosition+  boxSetBaselinePosition+#endif++#if GTK_CHECK_VERSION(3,12,0)+-- | A child widget that will be centered with respect to the+-- full width of the box, even if the children at either side+-- take up different amounts of space.+boxCenterWidget :: (BoxClass self, WidgetClass widget) => ReadWriteAttr self Widget widget+boxCenterWidget = newAttr+  boxGetCenterWidget+  boxSetCenterWidget+#endif  -------------------- -- Child Attributes
Graphics/UI/Gtk/Abstract/ButtonBox.chs view
@@ -142,7 +142,7 @@     (toWidget child)     (fromBool nonHomogeneous) --- | Returns whether the child is exempted from homogenous sizing.+-- | Returns whether the child is exempted from homogeneous sizing. -- buttonBoxGetChildNonHomogeneous :: (ButtonBoxClass self, WidgetClass child) => self  -> child   -- ^ @child@ - a child of the button box widget
Graphics/UI/Gtk/Abstract/Container.chs view
@@ -112,7 +112,7 @@ -- -- > set container [ attr child := value ] ----- And similarily for getting a child attribute's value:+-- And similarly for getting a child attribute's value: -- -- > value <- get container (attr child) --@@ -415,7 +415,7 @@ -- because toplevel windows can't leave space outside, they leave the space -- inside. The border is added on all sides of the container. To add space to -- only one side, one approach is to create a 'Alignment' widget, call--- 'widgetSetUsize' to give it a size, and place it on the side of the+-- 'widgetSetSizeRequest' to give it a size, and place it on the side of the -- container as a spacer. -- containerSetBorderWidth :: ContainerClass self => self
Graphics/UI/Gtk/Abstract/Object.chs view
@@ -103,7 +103,7 @@ -- This is a convenience function to generate a new widget. It adds the -- finalizer with the method described under objectSink. ----- * The constr argument is the contructor of the specific object.+-- * The constr argument is the constructor of the specific object. -- #if GTK_MAJOR_VERSION < 3 makeNewObject :: ObjectClass obj =>
Graphics/UI/Gtk/Abstract/Paned.chs view
@@ -31,7 +31,7 @@ -- | 'Paned' is the base class for widgets with two panes, arranged either -- horizontally ('HPaned') or vertically ('VPaned'). Child widgets are added to -- the panes of the widget with 'panedPack1' and 'panedPack2'. The division--- beween the two children is set by default from the size requests of the+-- between the two children is set by default from the size requests of the -- children, but it can be adjusted by the user. -- -- A paned widget draws a separator between the two child widgets and a
Graphics/UI/Gtk/Abstract/Range.chs view
@@ -267,7 +267,7 @@ -- -- * 'SensitivityAuto': the arrow is made insensitive if the thumb is at the end ----- * 'SensitivityOn': the arrow is alwasy sensitive+-- * 'SensitivityOn': the arrow is always sensitive -- -- * 'SensitivityOff': the arrow is always insensitive --@@ -340,7 +340,7 @@   {#call gtk_range_get_min_slider_size #}     (toRange range) --- | This function returns the area that contains the range's trough and its steppers, in 'DrawWindow'+-- | This function returns the area that contains the range's through and its steppers, in 'DrawWindow' -- coordinates. -- -- This function is useful mainly for 'Range' subclasses.@@ -468,7 +468,7 @@   rangeSetValue  #if GTK_CHECK_VERSION(2,20,0)--- | Wheter range's slikder has a fixed size, or a size that depends on it's adjustment's page size.+-- | Whether range's slikder has a fixed size, or a size that depends on it's adjustment's page size. rangeSliderSizeFixed :: RangeClass self => Attr self Bool rangeSliderSizeFixed = newAttr   rangeGetSliderSizeFixed
Graphics/UI/Gtk/Abstract/Widget.chs view
@@ -43,7 +43,7 @@ -- the look of applications without the need to write a theme engine in C. -- -- Widgets receive events, that is, signals that indicate some low-level--- user iteraction. The signal handlers for all these events have to+-- user interaction. The signal handlers for all these events have to -- return @True@ if the signal has been dealt with and @False@ if other -- signal handlers should be run. @@ -232,6 +232,9 @@   widgetHasScreen, #endif   widgetGetSizeRequest,+#if GTK_CHECK_VERSION(3,0,0)+  widgetGetPreferredSize,+#endif   widgetSetChildVisible,   widgetSetSizeRequest, #if GTK_CHECK_VERSION(2,4,0)@@ -682,7 +685,7 @@ -- unrealized. When a widget is destroyed, it will break any references it -- holds to other objects.If the widget is inside a container, the widget will -- be removed from the container. The widget will be garbage collected--- (finalized) time after your last reference to the widget dissapears.+-- (finalized) time after your last reference to the widget disappears. -- -- In most cases, only toplevel widgets (windows) require explicit -- destruction, because when you destroy a toplevel its children will be@@ -706,7 +709,7 @@ -- or 'Graphics.Rendering.Cairo.setMatrix' and clip region with -- 'Graphics.Rendering.Cairo.clip' prior to calling this function. Also, it -- is fine to modify the context with 'Graphics.Rendering.Cairo.save' and--- 'Graphics.Rendering.Cairo.pushGroup prior to calling this function.+-- 'Graphics.Rendering.Cairo.pushGroup' prior to calling this function. -- -- Note that special-purpose widgets may contain special code for rendering -- to the screen and might appear differently on screen and when rendered@@ -820,8 +823,8 @@   peek reqPtr  -- | This function is only for use in widget implementations. Obtains the--- chached requisition information in the widget, unless someone has forced a--- particular geometry on the widget (e.g. with 'widgetSetUsize'), in which+-- cached requisition information in the widget, unless someone has forced a+-- particular geometry on the widget (e.g. with 'widgetSetSizeRequest'), in which -- case it returns that geometry instead of the widget's requisition. -- -- This function differs from 'widgetSizeRequest' in that it retrieves the@@ -1093,7 +1096,7 @@     (toWidget self)     (fromBool sensitive) --- bad spelling backwards compatability definition+-- bad spelling backwards compatibility definition widgetSetSensitivity :: WidgetClass self => self -> Bool -> IO () widgetSetSensitivity = widgetSetSensitive @@ -1393,7 +1396,7 @@ -- set the direction is present in order so that correct localization into -- languages with right-to-left reading directions can be done. Generally, -- applications will let the default reading direction present, except for--- containers where the containers are arranged in an order that is explicitely+-- containers where the containers are arranged in an order that is explicitly -- visual rather than logical (such as buttons for text justification). -- -- If the direction is set to 'TextDirNone', then the value set by@@ -1513,7 +1516,7 @@ -- Works even if the widget is obscured. The depth and visual of the resulting pixmap is dependent on -- the widget being snapshot and likely differs from those of a target widget displaying the -- pixmap. The function 'pixbufGetFromDrawable' can be used to convert the pixmap to a visual--- independant representation.+-- independent representation. -- -- The snapshot area used by this function is the widget's allocation plus any extra space occupied by -- additional windows belonging to this widget (such as the arrows of a spin button). Thus, the@@ -1706,7 +1709,7 @@  -- | Modifies style values on the widget. Modifications made using this -- technique take precedence over style values set via an RC file, however,--- they will be overriden if a style is explicitely set on the widget using+-- they will be overridden if a style is explicitly set on the widget using -- 'widgetSetStyle'. The 'RcStyle' structure is designed so each field can -- either be set or unset, so it is possible, using this function, to modify -- some style values and leave the others unchanged.@@ -2333,7 +2336,7 @@  -- %hash c:8e4e d:252b -- | Get the root window where this widget is located. This function can only--- be called after the widget has been added to a widget heirarchy with+-- be called after the widget has been added to a widget hierarchy with -- 'Window' at the top. -- -- The root window is useful for such purposes as creating a popup@@ -2372,12 +2375,12 @@ -- %hash c:4fab d:aae2 -- | Checks whether there is a 'Screen' is associated with this widget. All -- toplevel widgets have an associated screen, and all widgets added into a--- heirarchy with a toplevel window at the top.+-- hierarchy with a toplevel window at the top. -- -- * Available since Gtk+ version 2.2 -- widgetHasScreen :: WidgetClass self => self- -> IO Bool -- ^ returns @True@ if there is a 'Screen' associcated with the+ -> IO Bool -- ^ returns @True@ if there is a 'Screen' associated with the             -- widget. widgetHasScreen self =   liftM toBool $@@ -2389,7 +2392,7 @@ -- | Gets the size request that was explicitly set for the widget using -- 'widgetSetSizeRequest'. A value of -1 for @width@ or @height@ -- indicates that that dimension has not been set explicitly and the natural--- requisition of the widget will be used intead. See 'widgetSetSizeRequest'.+-- requisition of the widget will be used instead. See 'widgetSetSizeRequest'. -- To get the size a widget will actually use, call 'widgetSizeRequest' instead -- of this function. --@@ -2405,6 +2408,37 @@   width <- peek widthPtr   height <- peek heightPtr   return (fromIntegral width, fromIntegral height)++#if GTK_CHECK_VERSION(3,0,0)+-- | Retrieves the minimum and natural size of a widget, taking into account the+-- widget’s preference for height-for-width management.+--+-- This is used to retrieve a suitable size by container widgets which do not+-- impose any restrictions on the child placement. It can be used to deduce+-- toplevel window and menu sizes as well as child widgets in free-form containers+-- such as GtkLayout.+--+-- Handle with care. Note that the natural height of a height-for-width widget+-- will generally be a smaller size than the minimum height, since the required+-- height for the natural width is generally smaller than the required height for+-- the minimum width.+--+-- Use gtk_widget_get_preferred_height_and_baseline_for_width() if you want+-- to support baseline alignment.+--+-- * Available since Gtk+ version 3.0+--++widgetGetPreferredSize :: WidgetClass self => self+ -> IO (Requisition, Requisition) -- ^ @(minimumSize, naturalSize)@+widgetGetPreferredSize self =+  alloca $ \minReqPtr ->+  alloca $ \natReqPtr -> do+  {#call gtk_widget_get_preferred_size #} (toWidget self) (castPtr minReqPtr) (castPtr natReqPtr)+  min <- peek minReqPtr+  nat <- peek natReqPtr+  return (min, nat)+#endif  -- %hash c:546d d:3c7f -- | Sets whether @widget@ should be mapped along with its when its parent is
Graphics/UI/Gtk/ActionMenuToolbar/ActionGroup.chs view
@@ -249,9 +249,9 @@     self     (toAction action) --- Note: for these next few funtions we cannot use the C version because the--- callback doesn't allow for propper memory management. So like pygtk we--- implement them natively since they are only convenience functions afterall.+-- Note: for these next few functions we cannot use the C version because the+-- callback doesn't allow for proper memory management. So like pygtk we+-- implement them natively since they are only convenience functions after all.   -- | A description of an action.
Graphics/UI/Gtk/ActionMenuToolbar/RadioAction.chs view
@@ -19,7 +19,7 @@ --  Lesser General Public License for more details. -- -- TODO---   I don't know what the elemnt type of the group GSList is for+--   I don't know what the element type of the group GSList is for --   radioActionSetGroup / radioActionGetGroup -- --   Also, the signals clash with those from other modules
Graphics/UI/Gtk/ActionMenuToolbar/UIManager.chs view
@@ -149,7 +149,7 @@ -- of menuitems and toolitems over another one, and demerge them later. -- -- Merging is done based on the names of the XML elements. Each element is--- identified by a path which consists of the names of its anchestors,+-- identified by a path which consists of the names of its ancestors, -- separated by slashes. For example, the menuitem named \"Left\" in the -- example above has the path @\/ui\/menubar\/JustifyMenu\/Left@ and the -- toolitem with the same name has path
Graphics/UI/Gtk/Buttons/Button.chs view
@@ -413,7 +413,7 @@ #endif  #if GTK_CHECK_VERSION(2,6,0)--- | Gets the widget that is currenty set as the image of the button. This may+-- | Gets the widget that is currently set as the image of the button. This may -- have been explicitly set by 'buttonSetImage' or constructed by -- 'buttonNewFromStock'. --
Graphics/UI/Gtk/Buttons/RadioButton.chs view
@@ -114,7 +114,7 @@   radioButtonNewWithLabelFromWidget,   radioButtonNewWithMnemonicFromWidget, -  -- * Compatibilty aliases+  -- * Compatibility aliases   radioButtonNewJoinGroup,   radioButtonNewJoinGroupWithLabel,   radioButtonNewJoinGroupWithMnemonic,@@ -318,7 +318,7 @@ -- | Emitted when the group of radio buttons that a radio button belongs to -- changes. This is emitted when a radio button switches from being alone to -- being part of a group of 2 or more buttons, or vice-versa, and when a--- buttton is moved from one group of 2 or more buttons to a different one, but+-- button is moved from one group of 2 or more buttons to a different one, but -- not when the composition of the group that a button belongs to changes. -- -- * Available since Gtk+ version 2.4@@ -336,7 +336,7 @@ -- | Emitted when the group of radio buttons that a radio button belongs to -- changes. This is emitted when a radio button switches from being alone to -- being part of a group of 2 or more buttons, or vice-versa, and when a--- buttton is moved from one group of 2 or more buttons to a different one, but+-- button is moved from one group of 2 or more buttons to a different one, but -- not when the composition of the group that a button belongs to changes. -- onGroupChanged, afterGroupChanged :: RadioButtonClass self => self
Graphics/UI/Gtk/Cairo.chs view
@@ -26,7 +26,7 @@ -- Portability : portable (depends on GHC) -- ----- Gtk specific functions to for redering with Cairo.+-- Gtk specific functions to for rendering with Cairo. -- -- Cairo is a graphics library that supports vector graphics and image -- compositing that can be used with Gdk.@@ -52,11 +52,11 @@   -- * Functions for the 'Render' monad. #if GTK_MAJOR_VERSION < 3   renderWithDrawable,-  region, #else   getClipRectangle,   renderWithDrawWindow, #endif+  region,   setSourceColor,   setSourcePixbuf,   rectangle,@@ -92,6 +92,7 @@ import Control.Monad.Reader import Graphics.UI.Gtk.General.Structs (Rectangle(..)) #endif+import Control.Monad (unless, liftM)  {# context lib="gdk" prefix="gdk" #} @@ -171,16 +172,12 @@       cr       (castPtr rectPtr) -#if GTK_MAJOR_VERSION < 3 -- | Adds the given region to the current path of the 'Render' context.------ Removed in Gtk3. region :: Region -> Render () region region = Render $ do   cr <- ask   liftIO $ {# call unsafe gdk_cairo_region #}     cr     region-#endif  #endif
Graphics/UI/Gtk/Display/Label.chs view
@@ -310,7 +310,7 @@ -- If you want to get the effective attributes for the label, use 'layoutGetAttributes' ('labelGetLayout' (label)). -- labelGetAttributes :: LabelClass self => self- -> IO [PangoAttribute]          -- ^ return the attribute list, or Emtpy if none was set.+ -> IO [PangoAttribute]          -- ^ return the attribute list, or Empty if none was set. labelGetAttributes self = do   (txt :: Text) <- labelGetText self   (PangoString correct _ _ ) <- makeNewPangoString txt@@ -982,7 +982,7 @@ -- control the cursor programmatically. -- -- The default bindings for this signal come in two variants, the variant with the Shift modifier--- extends the selection, the variant without the Shift modifer does not. There are too many key+-- extends the selection, the variant without the Shift modifier does not. There are too many key -- combinations to list them all here. -- --   * Arrow keys move by individual characters\/lines
Graphics/UI/Gtk/Display/LevelBar.chs view
@@ -183,7 +183,7 @@  -- | The "bar-mode" property determines the way LevelBar interprets the -- value properties to draw the level fill area. Specifically, when the value is--- LevelBarModeContinous, LevelBar will draw a single block+-- LevelBarModeContinuous, LevelBar will draw a single block -- representing the current value in that area; when the value is -- LevelBarModeDiscrete, the widget will draw a succession of separate -- blocks filling the draw area, with the number of blocks being equal to the
Graphics/UI/Gtk/Display/ProgressBar.chs view
@@ -43,7 +43,7 @@ -- When an application has no accurate way of knowing the amount of work to -- do, it can use the 'ProgressBar' in activity mode, which shows activity by a -- block moving back and forth within the progress area. In this mode, the--- application is required to call 'progressBarPulse' perodically to update the+-- application is required to call 'progressBarPulse' periodically to update the -- progress bar. -- -- There is quite a bit of flexibility provided to control the appearance of
Graphics/UI/Gtk/Display/Spinner.chs view
@@ -37,6 +37,8 @@ -- * Types    Spinner,    SpinnerClass,+   castToSpinner, gTypeSpinner,+   toSpinner,  -- * Constructors    spinnerNew,
Graphics/UI/Gtk/Display/Statusbar.chs view
@@ -234,12 +234,12 @@ -- * Available since Gtk+ version 2.22 -- statusbarRemoveAll :: StatusbarClass self => self-                   -> Int -- ^ @contextId@ a context identifier+                   -> ContextId -- ^ @contextId@ a context identifier                    -> IO () statusbarRemoveAll self contextId =   {#call gtk_statusbar_remove_all #}     (toStatusbar self)-    (fromIntegral contextId)+    contextId #endif  --------------------
Graphics/UI/Gtk/Embedding/Plug.chs view
@@ -105,7 +105,7 @@ -- plugged into a 'Socket' by 'Graphics.UI.Gtk.Embedding.Socket.socketAddId'. -- -- If a NativeWindowId is supplied the foreign application window will--- immediatly appear in this 'Plug' once it is shown. If @Nothing@ is passed+-- immediately appear in this 'Plug' once it is shown. If @Nothing@ is passed -- then a 'NativeWindowId' can be extracted from this 'Plug' using 'plugGetId' -- and be passed to the application which is to be embedded. --
Graphics/UI/Gtk/Embedding/Types.chs view
@@ -42,7 +42,8 @@  #if (defined(HAVE_PLUG_AND_SOCKET) && (!defined(WIN32) || GTK_CHECK_VERSION(2,8,0))) || defined(GDK_WINDOWING_X11) import Foreign.ForeignPtr (ForeignPtr, castForeignPtr)-#if __GLASGOW_HASKELL__ >= 707+-- TODO work around cpphs https://ghc.haskell.org/trac/ghc/ticket/13553+#if __GLASGOW_HASKELL__ >= 707 || __GLASGOW_HASKELL__ == 0 import Foreign.ForeignPtr.Unsafe (unsafeForeignPtrToPtr) #else import Foreign.ForeignPtr (unsafeForeignPtrToPtr)
Graphics/UI/Gtk/Entry/Editable.chs view
@@ -287,10 +287,10 @@ -- | The 'editableChanged' signal is emitted at the end of a single -- user-visible operation on the contents of the 'Editable'. ----- * For inctance, a paste operation that replaces the contents of the+-- * For instance, a paste operation that replaces the contents of the --   selection will cause only one signal emission (even though it is --   implemented by first deleting the selection, then inserting the new---   content, and may cause multiple 'inserText' signals to be+--   content, and may cause multiple 'insertText' signals to be --   emitted). -- editableChanged :: EditableClass ec => Signal ec (IO ())
Graphics/UI/Gtk/Entry/Entry.chs view
@@ -77,6 +77,10 @@   entrySetHasFrame,   entryGetWidthChars,   entrySetWidthChars,+#if GTK_CHECK_VERSION(3,2,0)+  entrySetPlaceholderText,+  entryGetPlaceholderText,+#endif #if GTK_CHECK_VERSION(2,4,0)   entrySetAlignment,   entryGetAlignment,@@ -110,6 +114,9 @@   entryWidthChars,   entryScrollOffset,   entryText,+#if GTK_CHECK_VERSION(3,2,0)+  entryPlaceholderText,+#endif #if GTK_CHECK_VERSION(2,4,0)   entryXalign,   entryAlignment,@@ -430,6 +437,38 @@     (toEntry self)     (fromIntegral nChars) +#if GTK_CHECK_VERSION(3,2,0)+-- | Sets text to be displayed in entry when it is empty and unfocused.+-- This can be used to give a visual hint of the expected contents of the `Entry`.+--+-- Note that since the placeholder text gets removed when the entry received+-- focus, using this feature is a bit problematic if the entry is given the+-- initial focus in a window. Sometimes this can be worked around by delaying+-- the initial focus setting until the first key event arrives.+--+-- * Available since Gtk version 3.2+--+entrySetPlaceholderText :: (EntryClass self, GlibString text) => self+ -> Maybe text -- ^ @text@ a string to be displayed when entry is empty an unfocused, or `Nothing`+ -> IO ()+entrySetPlaceholderText self text =+  maybeWith withUTFString text $ \ textPtr ->+  {# call entry_set_placeholder_text #}+    (toEntry self)+    textPtr++-- | Retrieves the text that will be displayed when entry is empty and unfocused.+--+-- * Available since Gtk version 3.2+--+entryGetPlaceholderText :: (EntryClass self, GlibString text) => self+ -> IO (Maybe text) -- ^ returns placeholder text+entryGetPlaceholderText self =+  {# call unsafe entry_get_placeholder_text #}+    (toEntry self)+  >>= maybePeek peekUTFString+#endif+ #if GTK_CHECK_VERSION(2,4,0) -- | Sets the alignment for the contents of the entry. This controls the -- horizontal positioning of the contents when the displayed text is shorter@@ -653,6 +692,17 @@   entryGetText   entrySetText +#if GTK_CHECK_VERSION(3,2,0)+-- | The text that will be displayed in the `Entry` when it is empty and unfocused.+--+-- Default value: Nothing+--+entryPlaceholderText :: (EntryClass self, GlibString text) => Attr self (Maybe text)+entryPlaceholderText = newAttr+  entryGetPlaceholderText+  entrySetPlaceholderText+#endif+ #if GTK_CHECK_VERSION(2,4,0) -- | The horizontal alignment, from 0 (left) to 1 (right). Reversed for RTL -- layouts.@@ -749,7 +799,7 @@ -- control the cursor programmatically. -- -- The default bindings for this signal come in two variants, the variant with the Shift modifier--- extends the selection, the variant without the Shift modifer does not. There are too many key+-- extends the selection, the variant without the Shift modifier does not. There are too many key -- combinations to list them all here. -- --   * Arrow keys move by individual characters\/lines
Graphics/UI/Gtk/Gdk/Cursor.chs view
@@ -122,7 +122,7 @@ -- The functions 'displaySupportsCursorAlpha' and 'displaySupportsCursorColor' can be used to determine whether RGBA cursors are supported; -- 'displayGetDefaultCursorSize' and 'displayGetMaximalCursorSize' give information about cursor sizes. ----- On the X backend, support for RGBA cursors requires a sufficently new version of the X Render extension.+-- On the X backend, support for RGBA cursors requires a sufficiently new version of the X Render extension. -- cursorNewFromPixbuf ::     Display  -- ^ @display@ the 'Display' for which the cursor will be created
Graphics/UI/Gtk/Gdk/Display.chs view
@@ -41,7 +41,7 @@ -- 'Display' objects are the GDK representation of the X Display which can -- be described as /a workstation consisting of a keyboard a pointing device -- (such as a mouse) and one or more screens/. It is used to open and keep--- track of various 'Screen' objects currently instanciated by the application.+-- track of various 'Screen' objects currently instantiated by the application. -- It is also used to grab and release the keyboard and the mouse pointer.  -- * Class Hierarchy@@ -194,7 +194,7 @@ -- | Release any pointer grab. -- displayPointerUngrab :: Display- -> TimeStamp -- ^ @time@ - a timestap (e.g. 'currentTime').+ -> TimeStamp -- ^ @time@ - a timestamp (e.g. 'currentTime').  -> IO () displayPointerUngrab self time =   {# call gdk_display_pointer_ungrab #}@@ -204,7 +204,7 @@ -- | Release any keyboard grab -- displayKeyboardUngrab :: Display- -> TimeStamp -- ^ @time@ - a timestap (e.g 'currentTime').+ -> TimeStamp -- ^ @time@ - a timestamp (e.g 'currentTime').  -> IO () displayKeyboardUngrab self time =   {# call gdk_display_keyboard_ungrab #}@@ -245,7 +245,7 @@ -- | Flushes any requests queued for the windowing system; this happens -- automatically when the main loop blocks waiting for new events, but if your -- application is drawing without returning control to the main loop, you may--- need to call this function explicitely. A common case where this function+-- need to call this function explicitly. A common case where this function -- needs to be called is when an application is executing drawing commands from -- a thread other than the thread where the main loop is running. --@@ -409,7 +409,7 @@  #if GTK_CHECK_VERSION(2,4,0) -- | Returns @True@ if multicolored cursors are supported on @display@.--- Otherwise, cursors have only a forground and a background color.+-- Otherwise, cursors have only a foreground and a background color. -- -- * Available since Gdk version 2.4 --@@ -504,14 +504,14 @@     self     selection --- | Returns whether the speicifed display supports clipboard persistance;+-- | Returns whether the speicifed display supports clipboard persistence; -- i.e. if it's possible to store the clipboard data after an application has -- quit. On X11 this checks if a clipboard daemon is running. -- -- * Available since Gdk version 2.6 -- displaySupportsClipboardPersistence :: Display- -> IO Bool -- ^ returns @True@ if the display supports clipboard persistance.+ -> IO Bool -- ^ returns @True@ if the display supports clipboard persistence. displaySupportsClipboardPersistence self =   liftM toBool $   {# call gdk_display_supports_clipboard_persistence #}
Graphics/UI/Gtk/Gdk/DrawWindow.chs view
@@ -596,7 +596,7 @@     (fromMaybe (Cursor nullForeignPtr) cursor)  #if GTK_MAJOR_VERSION < 3 && !defined(HAVE_QUARTZ_GTK) && !defined(GDK_WINDOWING_QUARTZ)--- | Get the handle to an exising window of the windowing system. The+-- | Get the handle to an existing window of the windowing system. The -- passed-in handle is a reference to a native window, that is, an Xlib XID -- for X windows and a HWND for Win32. --
Graphics/UI/Gtk/Gdk/Enums.chs view
@@ -4,7 +4,7 @@ -- --  Author : Manuel M. T. Chakravarty, Axel Simon -----  Created: 13 Januar 1999+--  Created: 13 January 1999 -- --  Copyright (C) 1999-2005 Manuel M. T. Chakravarty, Axel Simon --@@ -115,7 +115,7 @@ -- | Keyboard modifiers that are depressed when the user presses --   a key or a mouse button. ----- * This data type is used to build lists of modifers that were active+-- * This data type is used to build lists of modifiers that were active --   during an event. -- -- * The "Apple" key on Macintoshs is mapped to 'Alt2' and the 'Meta'
Graphics/UI/Gtk/Gdk/EventM.hsc view
@@ -90,7 +90,7 @@ --   print a message. Note that the return --   value of this statement must be @()@ since 'tryEvent' always --   assumes that the---   function handeled the event if no exception is thrown. A handler+--   function handled the event if no exception is thrown. A handler --   wrapped by 'tryEvent' can also indicate that it cannot handle the --   given event by calling 'stopEvent'. --@@ -98,6 +98,13 @@ --   you can (and usually have to) use @liftIO@ to execute @IO@ functions. -- +-- * Classes++  HasCoordinates,+  HasRootCoordinates,+  HasModifier,+  HasTime,+ -- * Event monad and type tags   EventM,   EAny,@@ -173,7 +180,7 @@   eventGrabWindow, #endif --- * Auxilliary Definitions+-- * Auxiliary Definitions   Modifier(..),         -- a mask of control keys   TimeStamp,   currentTime,
Graphics/UI/Gtk/Gdk/Events.hsc view
@@ -27,7 +27,7 @@ -- Stability   : deprecated -- Portability : portable (depends on GHC) ----- Definiton of a record that contains event information. Deprecated in+-- Definition of a record that contains event information. Deprecated in -- favor of 'Graphics.UI.Gtk.Gdk.EventM' and not exported by Gtk.hs. -- module Graphics.UI.Gtk.Gdk.Events (@@ -324,7 +324,7 @@     --     eventNotifyType     :: NotifyType,     eventModifier       :: [Modifier]}-  -- | Gaining or loosing input focus.+  -- | Gaining or losing input focus.   --   | Focus {     eventSent   :: Bool,@@ -354,7 +354,7 @@   --   -- * This action denotes that the content of the widget should be scrolled.   --   The event is triggered by the movement of the mouse wheel. Surrounding-  --   scroll bars are independant of this signal. Most mice do not have+  --   scroll bars are independent of this signal. Most mice do not have   --   buttons for horizontal scrolling, hence 'eventDirection' will usually not   --   contain 'ScrollLeft' and 'ScrollRight'. Mice with additional   --   buttons may not work on X since only five buttons are supported
+ Graphics/UI/Gtk/Gdk/GLContext.chs view
@@ -0,0 +1,257 @@+{-# LANGUAGE CPP #-}+-- -*-haskell-*-+--  GIMP Toolkit (GTK) GLContext+--+--  Author : Chris Mennie+--+--  Created: 23 April 2016+--+--  Copyright (C) 2016 Chis Mennie+--+--  This library is free software; you can redistribute it and/or+--  modify it under the terms of the GNU Lesser General Public+--  License as published by the Free Software Foundation; either+--  version 2.1 of the License, or (at your option) any later version.+--+--  This library is distributed in the hope that it will be useful,+--  but WITHOUT ANY WARRANTY; without even the implied warranty of+--  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU+--  Lesser General Public License for more details.+--+-- |+-- Maintainer  : gtk2hs-users@lists.sourceforge.net+-- Stability   : provisional+-- Portability : portable (depends on GHC)+--+-- OpenGL context+--+module Graphics.UI.Gtk.Gdk.GLContext (+-- * Detail+--+-- | GLContext is an object representing the platform-specific OpenGL drawing context.+--+-- GLContexts are created for a GdkWindow, and the context will match the GdkVisual of the window.+--+-- A 'GLContext' is not tied to any particular normal framebuffer. For instance, it cannot draw to+-- the Window back buffer. The GDK repaint system is in full control of the painting to that.+-- GDK will handle the integration of your rendering with that of other widgets.+--+-- Support for 'GLContext' is platform-specific, context creation can fail, returning NULL context.+--+-- A 'GLContext' has to be made "current" in order to start using it, otherwise any OpenGL call will+-- be ignored.++-- * Class Hierarchy+-- |+-- @+-- |  'GObject'+-- |   +----'GLContext'+-- @+--++-- * Types+#if GTK_CHECK_VERSION(3,16,0)+  GLContext,+  GLContextClass,+  castToGLContext, gTypeGLContext,+#endif++-- * Methods+#if GTK_CHECK_VERSION(3,16,0)+    glContextGetDisplay,+    glContextGetWindow,+    glContextGetSharedContext,+    glContextGetVersion,+    glContextSetRequiredVersion,+    glContextGetRequiredVersion,+    glContextSetDebugEnabled,+    glContextGetDebugEnabled,+    glContextSetForwardCompatible,+    glContextGetForwardCompatible,+    glContextRealize,+#endif+#if GTK_CHECK_VERSION(3,20,0)+    glContextIsLegacy,+#endif+#if GTK_CHECK_VERSION(3,16,0)+    glContextMakeCurrent,+    glContextGetCurrent,+    glContextClearCurrent+#endif+  ) where++import Control.Monad    (liftM)+import Data.Maybe       (fromMaybe)++import System.Glib.FFI+import System.Glib.Flags                (toFlags)+{#import Graphics.UI.Gtk.Types#}+{#import Graphics.UI.Gtk.Gdk.Enums#}+{#import Graphics.UI.Gtk.Gdk.Cursor#}+import Graphics.UI.Gtk.General.Structs+import System.Glib.GError       (propagateGError)+import System.Glib.Attributes++{# context lib="gdk" prefix="gdk" #}+++--------------------+-- Methods+#if GTK_CHECK_VERSION(3,16,0)++-- | Retrieves the 'Graphics.UI.Gtk.Gdk.Display.Display' the context is created for.+--+glContextGetDisplay :: GLContextClass self => self -> IO (Maybe Display)+glContextGetDisplay self = do+    maybeNull (wrapNewGObject mkDisplay) $+        {# call gdk_gl_context_get_display #} (toGLContext self)+++-- | Retrieves the 'Graphics.UI.Gtk.Gdk.DrawWindow.DrawWindow' used by the context.+--+glContextGetWindow :: GLContextClass self => self -> IO (Maybe DrawWindow)+glContextGetWindow self = do+    maybeNull (wrapNewGObject mkDrawWindow) $+        {# call gdk_gl_context_get_window #} (toGLContext self)+++-- | Retrieves the 'GLContext' that this context share data with.+--+glContextGetSharedContext :: GLContextClass self => self -> IO (Maybe GLContext)+glContextGetSharedContext self = do+    maybeNull (wrapNewGObject mkGLContext) $+        {# call gdk_gl_context_get_shared_context #} (toGLContext self)+++-- | Retrieves the OpenGL version of the context.+--+-- The context must be realized prior to calling this function.+--+glContextGetVersion :: GLContextClass self => self -> IO (Int, Int)+glContextGetVersion self = do+    alloca $ \majorPtr -> alloca $ \minorPtr -> do+        {# call gdk_gl_context_get_version #} (toGLContext self) majorPtr minorPtr+        major <- peek majorPtr+        minor <- peek minorPtr+        return (fromIntegral major, fromIntegral minor)+++-- | Sets the major and minor version of OpenGL to request.+--+-- Setting major and minor to zero will use the default values.+--+-- The 'GLContext' must not be realized or made current prior to calling this function.+--+glContextSetRequiredVersion :: GLContextClass self => self -> Int -> Int -> IO ()+glContextSetRequiredVersion self major minor =+    {# call gdk_gl_context_set_required_version #}+        (toGLContext self) (fromIntegral major) (fromIntegral minor)+++-- | Retrieves the major and minor version requested by calling 'glContextSetRequiredVersion'.+--+glContextGetRequiredVersion :: GLContextClass self => self -> IO (Int, Int)+glContextGetRequiredVersion self = do+    alloca $ \majorPtr -> alloca $ \minorPtr -> do+        {# call gdk_gl_context_get_required_version #} (toGLContext self) majorPtr minorPtr+        major <- peek majorPtr+        minor <- peek minorPtr+        return (fromIntegral major, fromIntegral minor)+++-- | Sets whether the 'GLContext' should perform extra validations and run time checking. This is+--  useful during development, but has additional overhead.+--+-- The 'GLContext' must not be realized or made current prior to calling this function.+--+glContextSetDebugEnabled :: GLContextClass self => self -> Bool -> IO ()+glContextSetDebugEnabled self enabled = do+    {# call gdk_gl_context_set_debug_enabled #} (toGLContext self) (fromBool enabled)+++-- | Retrieves the value set using glContextSetDebugEnabled.+--+glContextGetDebugEnabled :: GLContextClass self => self -> IO Bool+glContextGetDebugEnabled self = do+    liftM toBool $ {# call gdk_gl_context_get_debug_enabled #} (toGLContext self)+++-- | Sets whether the 'GLContext' should be forward compatible.+--+-- Forward compatible contexts must not support OpenGL functionality that has been marked as+-- deprecated in the requested version; non-forward compatible contexts, on the other hand, must+-- support both deprecated and non deprecated functionality.+--+-- The 'GLContext' must not be realized or made current prior to calling this function.+--+glContextSetForwardCompatible :: GLContextClass self => self -> Bool -> IO ()+glContextSetForwardCompatible self compatible = do+    {# call gdk_gl_context_set_forward_compatible #} (toGLContext self) (fromBool compatible)+++-- | Retrieves the value set using glContextSetForwardCompatible.+--+glContextGetForwardCompatible :: GLContextClass self => self -> IO Bool+glContextGetForwardCompatible self = do+    liftM toBool $ {# call gdk_gl_context_get_forward_compatible #} (toGLContext self)++#endif++#if GTK_CHECK_VERSION(3,20,0)+-- | Whether the 'GLContext' is in legacy mode or not.+--+-- The 'GLContext' must be realized before calling this function.+--+-- When realizing a GL context, GDK will try to use the OpenGL 3.2 core profile; this profile+-- removes all the OpenGL API that was deprecated prior to the 3.2 version of the specification.+-- If the realization is successful, this function will return False.+--+-- If the underlying OpenGL implementation does not support core profiles, GDK will fall back to+-- a pre-3.2 compatibility profile, and this function will return True.+--+-- You can use the value returned by this function to decide which kind of OpenGL API to use, or+-- whether to do extension discovery, or what kind of shader programs to load.+--+glContextIsLegacy :: GLContextClass self => self -> IO Bool+glContextIsLegacy self = do+    liftM toBool $ {# call gdk_gl_context_is_legacy #} (toGLContext self)+#endif+++#if GTK_CHECK_VERSION(3,16,0)+-- | Realizes the given 'GLContext'.+--+-- It is safe to call this function on a realized 'GLContext'.+--+glContextRealize :: GLContextClass self => self -> IO Bool+glContextRealize self =+    liftM toBool $+        propagateGError $ \errPtr ->+            {# call gdk_gl_context_realize #} (toGLContext self) errPtr+++-- | Makes the context the current one.+--+glContextMakeCurrent :: GLContextClass self => self -> IO ()+glContextMakeCurrent self = do+    {# call gdk_gl_context_make_current #} (toGLContext self)+++-- | Retrieves the current 'GLContext'.+--+glContextGetCurrent :: IO (Maybe GLContext)+glContextGetCurrent = do+    maybeNull (wrapNewGObject mkGLContext) $+        {# call gdk_gl_context_get_current #}+++-- | Clears the current 'GLContext'.+--+-- Any OpenGL call after this function returns will be ignored until glContextMakeCurrent+-- is called.+--+glContextClearCurrent :: IO ()+glContextClearCurrent = do+    {# call gdk_gl_context_clear_current #}++#endif
Graphics/UI/Gtk/Gdk/Gdk.chs view
@@ -180,7 +180,7 @@            -- for this application are reported as normal, but keyboard events            -- outside this application are reported with respect to @window@.            -- Both key press and key release events are always reported,-           -- independant of the event mask set by the application.+           -- independent of the event mask set by the application.   -> TimeStamp -- ^ @time@ - a timestamp from an 'Event', or 'currentTime' if                -- no timestamp is available.   -> IO GrabStatus -- ^ @Returns@ - 'GrabSuccess' if the grab was successful.
Graphics/UI/Gtk/Gdk/Keymap.chs view
@@ -317,7 +317,7 @@ #endif  #if GTK_CHECK_VERSION(2,16,0)--- | Returns whether the Caps Lock modifer is locked.+-- | Returns whether the Caps Lock modifier is locked. -- -- * Available since Gdk version 2.16 --
Graphics/UI/Gtk/Gdk/Pixbuf.chs view
@@ -81,6 +81,7 @@ #endif #if GTK_CHECK_VERSION(3,0,0)   pixbufNewFromSurface,+  pixbufNewFromWindow, #endif   pixbufNewFromInline,   InlineImage,@@ -195,7 +196,7 @@ --   'pixbufGetRowstride', indicates the number of bytes between rows. -- -- * The returned array is a flat representation of a three dimensional---   array: x-coordiante, y-coordinate and several channels for each color.+--   array: x-coordinate, y-coordinate and several channels for each color. --   The number of channels is usually 3 for plain RGB data or 4 for --   RGB data with an alpha channel. To read or write a specific pixel --   use the formula: @p = y * rowstride + x * nChannels@ for the pixel.@@ -244,13 +245,13 @@ -- | Queries the rowstride of this image. -- -- * Queries the rowstride of a pixbuf, which is the number of bytes between---   rows. Use this value to caculate the offset to a certain row.+--   rows. Use this value to calculate the offset to a certain row. -- pixbufGetRowstride :: Pixbuf -> IO Int pixbufGetRowstride pb = liftM fromIntegral $   {#call unsafe pixbuf_get_rowstride#} pb --- | Returns an attribut of an image.+-- | Returns an attribute of an image. -- -- * Looks up if some information was stored under the @key@ when --   this image was saved.@@ -370,6 +371,27 @@     (fromIntegral srcY)     (fromIntegral width)     (fromIntegral height)++-- | Creates a new pixbuf from a GDK window.+--+-- Transfers image data from a GdkWindow and converts it to an RGB(A) representation inside a GdkPixbuf. In other words, copies image data from a server-side drawable to a client-side RGB(A) buffer. This allows you to efficiently read individual pixels on the client side.+--+-- This function will create an RGB pixbuf with 8 bits per channel with the size specified by the width and height arguments scaled by the scale factor of window. The pixbuf will contain an alpha channel if the window contains one.+pixbufNewFromWindow :: DrawWindowClass self +  => self -- ^ @window@ - The source window.+  -> Int -- ^ @srcX@ - Source X coordinate within window.+  -> Int -- ^ @srcY@ - Source Y coordinate within window.+  -> Int -- ^ @width@ - Width in pixels of region to get.+  -> Int -- ^ @height@ - Height in pixels of region to get.+  -> IO Pixbuf+pixbufNewFromWindow window srcX srcY width height =+  wrapNewGObject mkPixbuf $+    {# call gdk_pixbuf_get_from_window #}+      (toDrawWindow window)+      (fromIntegral srcX)+      (fromIntegral srcY)+      (fromIntegral width)+      (fromIntegral height) #endif  -- | A string representing an image file format.@@ -485,7 +507,7 @@ --    into an object file which must be linked into your Haskell program by --   specifying @my_image.o@ and @\"-#include my_image.h\"@ on --   the command line of GHC.---   Within you application you delcare a pointer to this image:+--   Within you application you declare a pointer to this image: -- -- > foreign label "my_image" myImage :: Ptr InlineImage --@@ -705,7 +727,7 @@  -- | Copy a rectangular portion into another 'Pixbuf'. ----- The source 'Pixbuf' remains unchanged. Converion between+-- The source 'Pixbuf' remains unchanged. Conversion between -- different formats is done automatically. -- pixbufCopyArea ::
Graphics/UI/Gtk/Gdk/Screen.chs view
@@ -290,7 +290,7 @@ -- servers this value will not be correct. -- screenGetHeightMM :: Screen- -> IO Int -- ^ returns the heigth of @screen@ in millimeters.+ -> IO Int -- ^ returns the height of @screen@ in millimeters. screenGetHeightMM self =   liftM fromIntegral $   {# call gdk_screen_get_height_mm #}
Graphics/UI/Gtk/General/Drag.chs view
@@ -39,7 +39,7 @@ --  eventTime  :: TimeStamp, --  eventModifier  :: [Modifier]} ----- drag_set_icon_pixmap : colormaps are a pain, they migth be useful here+-- drag_set_icon_pixmap : colormaps are a pain, they might be useful here -- drag_set_default_icon : obsolete drag_source_set_icon : colormap problem -- -- |@@ -343,7 +343,7 @@ -- retrieval fails, GTK+ will emit a 'dragDataReceived' signal. Failure of -- the retrieval is indicated by passing @Nothing@ in the 'selectionData' signal. -- However, when 'dragGetData' is called--- implicitely because the 'DestDefaultDrop' was set, then the widget will+-- implicitly because the 'DestDefaultDrop' was set, then the widget will -- not receive notification of failed drops. -- dragGetData :: (WidgetClass widget, DragContextClass context)@@ -470,7 +470,7 @@  -- %hash c:5785 d:af3f -- | Checks to see if a mouse drag starting at @(startX, startY)@ and ending--- at @(currentX, currenty)@ has passed the GTK+ drag threshold, and thus+-- at @(currentX, currentY)@ has passed the GTK+ drag threshold, and thus -- should trigger the beginning of a drag-and-drop operation. -- dragCheckThreshold :: WidgetClass widget => widget
Graphics/UI/Gtk/General/Enums.chs view
@@ -32,6 +32,9 @@ #endif   ArrowType(..),   AttachOptions(..),+#if GTK_CHECK_VERSION(3,10,0)+  BaselinePosition(..),+#endif   MouseButton(..),   ButtonBoxStyle(..),   CalendarDisplayOptions(..),@@ -108,6 +111,9 @@ #if GTK_MAJOR_VERSION < 3   AnchorType (..), #endif+#if GTK_CHECK_VERSION(3,10,0)+  StackTransitionType (..),+#endif  module Graphics.UI.Gtk.Gdk.Enums   ) where@@ -140,6 +146,16 @@  instance Flags AttachOptions +#if GTK_CHECK_VERSION(3,10,0)+-- | Whenever a container has some form of natural row it may align children in +-- that row along a common typographical baseline. If the amount of vertical space+-- in the row is taller than the total requested height of the baseline-aligned+-- children then it can use a BaselinePosition to select where to put the+-- baseline inside the extra available space.+--+{#enum BaselinePosition {underscoreToCase} deriving (Eq,Show)#}+#endif+ -- | Mouse buttons. -- data MouseButton = LeftButton@@ -327,7 +343,7 @@ {#enum PolicyType {underscoreToCase} deriving (Eq,Show)#}  -- | Position a scale's value is drawn relative to the--- trough+-- through -- {#enum PositionType {underscoreToCase} deriving (Eq,Show)#} @@ -451,7 +467,7 @@ -- {#enum ToolbarStyle {underscoreToCase} deriving (Eq,Show)#} --- | Wether columns of a tree or list widget can be resized.+-- | Whether columns of a tree or list widget can be resized. -- {#enum TreeViewColumnSizing {underscoreToCase} deriving (Eq,Show)#} @@ -494,4 +510,8 @@ -- -- Removed in Gtk3. {#enum AnchorType {underscoreToCase} deriving (Eq,Show)#}+#endif++#if GTK_CHECK_VERSION(3,10,0)+{#enum StackTransitionType {underscoreToCase} deriving (Eq,Show)#} #endif
Graphics/UI/Gtk/General/General.chs view
@@ -101,7 +101,7 @@ {#context lib="gtk" prefix ="gtk"#}  {---- | Retreive the current language.+-- | Retrieve the current language. -- * This function returns a String which's pointer can be used later on for --   comarisions. --@@ -115,7 +115,7 @@  unsafeInitGUIForThreadedRTS = initGUI --- We compile this module using -#includ"gtk/wingtk.h" to bypass the win32 abi+-- We compile this module using -#include"gtk/wingtk.h" to bypass the win32 abi -- check however we do not compile users programs with this header so if -- initGUI was ever inlined in a users program, then that program would not -- bypass the abi check and would fail on startup. So to stop that we must
Graphics/UI/Gtk/General/IconFactory.chs view
@@ -224,7 +224,7 @@ -- -- * Each icon in an application is contained in an 'IconSet'. The --   'IconSet' contains several variants ('IconSource's) to---   accomodate for different sizes and states.+--   accommodate for different sizes and states. -- iconSetNew :: IO IconSet iconSetNew  = do@@ -260,7 +260,7 @@ -- | Check if a given IconSize is registered. -- -- * Useful if your application expects a theme to install a set with a---   specific size. You can test if this actually happend and use another size+--   specific size. You can test if this actually happens and use another size --   if not. -- iconSizeCheck :: IconSize -> IO Bool
Graphics/UI/Gtk/General/IconTheme.chs view
@@ -33,7 +33,7 @@ -- -- | 'IconTheme' provides a facility for looking up icons by name and size. The main reason for using a -- name rather than simply providing a filename is to allow different icons to be used depending on--- what icon theme is selecetd by the user. The operation of icon themes on Linux and Unix follows the+-- what icon theme is selected by the user. The operation of icon themes on Linux and Unix follows the -- Icon Theme Specification. There is a default icon theme, named hicolor where applications should -- install their icons, but more additional application themes can be installed as operating system -- vendors and users choose.
Graphics/UI/Gtk/General/RcStyle.chs view
@@ -120,7 +120,7 @@  -- ** Optimizing RC Style Matches ----- | Everytime a widget is created and added to the layout hierarchy of a+-- | Every time a widget is created and added to the layout hierarchy of a -- 'Window' (\"anchored\" to be exact), a list of matching RC styles out of all -- RC styles read in so far is composed. For this, every RC style is matched -- against the widgets class path, the widgets name path and widgets@@ -276,7 +276,7 @@ -- [@NORMAL@] A color used for a widget in its normal state. -- -- [@ACTIVE@] A variant of the @NORMAL@ color used when the widget is in the--- 'StateActive' state, and also for the trough of a ScrollBar, tabs of a+-- 'StateActive' state, and also for the through of a ScrollBar, tabs of a -- NoteBook other than the current tab and similar areas. Frequently, this -- should be a darker variant of the @NORMAL@ color. --@@ -298,7 +298,7 @@ -- g, b}@, where @r@, @g@ and @b@ are either integers in the range 0-65535 or -- floats in the range 0.0-1.0. ----- Since 2.10, colors can also be specified by refering to a symbolic color,+-- Since 2.10, colors can also be specified by referring to a symbolic color, -- as follows: @\@color-name@, or by using expressions to combine colors. The -- following expressions are currently supported: --@@ -620,7 +620,7 @@ -- gets a new style, it will both redraw and recompute any cached information -- about its appearance. As an example, it is used when the default font size -- set by the operating system changes. Note that this function doesn't affect--- widgets that have a style set explicitely on them with 'widgetSetStyle'.+-- widgets that have a style set explicitly on them with 'widgetSetStyle'. -- rcResetStyles :: Settings -> IO () rcResetStyles settings =
Graphics/UI/Gtk/General/Selection.chs view
@@ -282,7 +282,7 @@ #endif  #if GTK_MAJOR_VERSION < 3--- | Retreives the data in the 'SelectionDataM' monad. The returned array+-- | Retrieves the data in the 'SelectionDataM' monad. The returned array --   must have elements of the size that were used to set this data. If --   the size or the type tag does not match, @Nothing@ is returned. --
Graphics/UI/Gtk/General/Structs.hsc view
@@ -618,7 +618,7 @@ toResponse i = ResponseUser $ fromIntegral i  #if !defined(WIN32) || GTK_CHECK_VERSION(2,8,0)--- | The identifer of a window of the underlying windowing system.+-- | The identifier of a window of the underlying windowing system. -- #if defined(GDK_NATIVE_WINDOW_POINTER) && !defined(HAVE_QUARTZ_GTK) && !defined(GDK_WINDOWING_QUARTZ) --GDK Quartz also defined GDK_NATIVE_WINDOW_POINTER@@ -806,7 +806,7 @@  -- | Retrieves the 'DrawWindow' that the widget draws onto. ----- This function thows an error if the widget has not yet been realized, since+-- This function throws an error if the widget has not yet been realized, since -- a widget does not allocate its window resources until just before it is -- displayed on the screen. You can use the -- 'Graphics.UI.Gtk.Abstract.Widget.onRealize' signal to give you the@@ -939,7 +939,7 @@ -- | Retrieve the color for drawing anti-aliased text. -- -- * The anti-aliasing color is the color which is used when the rendering---   of a character does not make it clear if a certain pixel shoud be set+--   of a character does not make it clear if a certain pixel should be set --   or not. This color is between the text and the base color. -- -- * The parameter @state@ determines for which widget
Graphics/UI/Gtk/General/StyleProvider.chs view
@@ -34,7 +34,7 @@ -- -- @StyleProvider@ is implemented by @CssProvider@ and @Settings@. #if GTK_MAJOR_VERSION >= 3--- * Typess+-- * Types   StyleProvider,   StyleProviderClass,   castToStyleProvider, gTypeStyleProvider,
Graphics/UI/Gtk/General/hsgthread.c view
@@ -47,7 +47,7 @@ #if defined( WIN32 ) static CRITICAL_SECTION gtk2hs_finalizer_mutex; #else-static GStaticMutex gtk2hs_finalizer_mutex;+static GMutex gtk2hs_finalizer_mutex; #endif static GSource* gtk2hs_finalizer_source; static guint gtk2hs_finalizer_id;@@ -70,7 +70,7 @@ /* Initialize the default _fmode on WIN32. */ void gtk2hs_initialise (void) { #if defined( WIN32 ) && defined( GTK2HS_SET_FMODE_BINARY )-	/* Some Windows GTK binraries (current Fedora MinGW ones) do */+	/* Some Windows GTK binaries (current Fedora MinGW ones) do */ 	/* not open files in binary mode.  This is a work around.    */     HANDLE handle = LoadLibrary("MSVCRT.dll");     if(!handle) { @@ -102,7 +102,7 @@ #if defined( WIN32 )     InitializeCriticalSection(&gtk2hs_finalizer_mutex); #else-    g_static_mutex_init(&gtk2hs_finalizer_mutex);+    g_mutex_init(&gtk2hs_finalizer_mutex); #endif  #if defined( WIN32 ) && GLIB_CHECK_VERSION(2,32,0)@@ -110,7 +110,6 @@          gdk_threads_set_lock_functions(imp_rec_lock, imp_rec_unlock); #endif-    g_thread_init(NULL);     gdk_threads_init();      /* from here onwards, the Gdk lock is held */@@ -133,7 +132,7 @@ #if defined( WIN32 )     EnterCriticalSection(&gtk2hs_finalizer_mutex); #else-    g_static_mutex_lock(&gtk2hs_finalizer_mutex);+    g_mutex_lock(&gtk2hs_finalizer_mutex); #endif     mutex_locked = 1;   }@@ -178,7 +177,7 @@ #if defined( WIN32 )     LeaveCriticalSection(&gtk2hs_finalizer_mutex); #else-    g_static_mutex_unlock(&gtk2hs_finalizer_mutex);+    g_mutex_unlock(&gtk2hs_finalizer_mutex); #endif   } }@@ -198,7 +197,7 @@ #if defined( WIN32 )     EnterCriticalSection(&gtk2hs_finalizer_mutex); #else-    g_static_mutex_lock(&gtk2hs_finalizer_mutex);+    g_mutex_lock(&gtk2hs_finalizer_mutex); #endif     mutex_locked = 1;   }@@ -221,7 +220,7 @@ #if defined( WIN32 )     LeaveCriticalSection(&gtk2hs_finalizer_mutex); #else-    g_static_mutex_unlock(&gtk2hs_finalizer_mutex);+    g_mutex_unlock(&gtk2hs_finalizer_mutex); #endif   }
+ Graphics/UI/Gtk/Layout/Grid.chs view
@@ -0,0 +1,380 @@+{-# LANGUAGE CPP #-}+-- -*-haskell-*-+--  GIMP Toolkit (GTK) Widget Alignment+--+--  Author : Axel Simon+--+--  Created: 15 May 2001+--+--  Copyright (C) 1999-2005 Axel Simon+--+--  This library is free software; you can redistribute it and/or+--  modify it under the terms of the GNU Lesser General Public+--  License as published by the Free Software Foundation; either+--  version 2.1 of the License, or (at your option) any later version.+--+--  This library is distributed in the hope that it will be useful,+--  but WITHOUT ANY WARRANTY; without even the implied warranty of+--  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU+--  Lesser General Public License for more details.+--+-- |+-- Maintainer  : gtk2hs-users@lists.sourceforge.net+-- Stability   : provisional+-- Portability : portable (depends on GHC)+--+-- A widget which controls the alignment and size of its child+--+module Graphics.UI.Gtk.Layout.Grid (+-- * Detail+--+-- | 'Grid' packs widgets into rows and columns.+--+-- * Class Hierarchy+-- |+-- @+-- |   'GObject'+-- |    +----'Object'+-- |          +----'Widget'+-- |                +----'Container'+-- |                      +----Grid+-- @++-- * Types+  Grid,+  GridClass,+  castToGrid,+  gTypeGrid,+  toGrid,++-- * Constructors+  gridNew,++-- * Methods+  gridAttach,+  gridAttachNextTo,+  gridSetRowHomogeneous,+  gridGetRowHomogeneous,+  gridSetRowSpacing,+  gridGetRowSpacing,+  gridSetColumnHomogeneous,+  gridGetColumnHomogeneous,+  gridSetColumnSpacing,+  gridGetColumnSpacing,++#if GTK_CHECK_VERSION(3,2,0)+  gridGetChildAt,+  gridInsertRow,+  gridInsertColumn,+  gridInsertNextTo,+#endif++#if GTK_CHECK_VERSION(3,10,0)+  gridRemoveRow,+  gridRemoveColumn,+  gridGetBaselineRow,+  gridSetBaselineRow,+  gridGetRowBaselinePosition,+  gridSetRowBaselinePosition+#endif++ ) where++import Control.Monad    (liftM)++import System.Glib.FFI+import Graphics.UI.Gtk.Abstract.Object  (makeNewObject)+{#import Graphics.UI.Gtk.Types#}+import Graphics.UI.Gtk.General.Enums    (PositionType)++#if GTK_CHECK_VERSION(3,10,0)+import Graphics.UI.Gtk.General.Enums    (BaselinePosition)+#endif++{# context lib="gtk" prefix="gtk" #}++---------------------+-- Constructors++-- | Creates a new grid widget.+--+gridNew :: IO Grid+gridNew =+ makeNewObject mkGrid $+ liftM (castPtr :: Ptr Widget -> Ptr Grid) $+ {# call unsafe grid_new #}++---------------------+-- Methods++-- | Adds a widget to the grid. The position of child is determined by left and top.+-- the number of "cells" that child will occupy is determined by width and height.+--+gridAttach :: (GridClass self, WidgetClass child)+ => self -- ^ @self@ - the grid.+ -> child -- ^ @child@ - the widget to add.+ -> Int -- ^ @left@ - the column number of to attach the left side of child to.+ -> Int -- ^ @top@ - the row number to attach the top side of child to.+ -> Int -- ^ @width@ - the number of columns that child will span.+ -> Int -- ^ @height@ - the number of rows that child will span.+ -> IO ()+gridAttach self child left top width height =+ {# call grid_attach #}+    (toGrid self)+    (toWidget child)+    (fromIntegral left)+    (fromIntegral top)+    (fromIntegral width)+    (fromIntegral height)++-- | Adds a widget to the grid. The widget is placed next to sibling , on the side+-- determined by side . When sibling is Nothing, the widget is placed in row (for+-- left or right placement) or column 0 (for top or bottom placement), at the end+-- indicated by side.+--+-- Attaching widgets labeled [1], [2], [3] with sibling == Nothing and side == GTK_POS_LEFT+-- yields a layout of 3[1].+--+gridAttachNextTo :: (GridClass self, WidgetClass child, WidgetClass sibling)+ => self -- ^ @self@ - the grid.+ -> child -- ^ @child@ - the widget to add+ -> Maybe sibling -- ^ @sib@ - the child of grid that child will be placed next to.+ -> PositionType -- ^ @pos@ - the side of the sibling that child is positioned next to.+ -> Int -- ^ @width@ - the number of columns that child will span.+ -> Int -- ^ @height@ - the number of rows that child will span.+ -> IO()+gridAttachNextTo self child sib pos width height =+ {# call grid_attach_next_to #}+    (toGrid self)+    (toWidget child)+    (maybe (Widget nullForeignPtr) toWidget sib)+    (fromIntegral $ fromEnum pos)+    (fromIntegral width)+    (fromIntegral height)++-- | Sets whether all rows of grid will have the same height.+--+gridSetRowHomogeneous :: GridClass self+ => self -- ^ @self@ - the grid.+ -> Bool -- ^ @homogeneous@ - True to make row homogeneous.+ -> IO ()+gridSetRowHomogeneous self homogeneous =+ {# call grid_set_row_homogeneous #}+    (toGrid self)+    (fromBool homogeneous)++-- | Returns whether all rows of grid have the same height.+--+gridGetRowHomogeneous :: GridClass self+ => self -- ^ @self@ - the grid.+ -> IO Bool -- ^ returns whether all rows of grid have same height.+gridGetRowHomogeneous self =+ liftM toBool $+ {# call grid_get_row_homogeneous #}+    (toGrid self)++-- | Sets the amount of space between rows of grid.+--+gridSetRowSpacing :: GridClass self+ => self -- ^ @self@ - the grid.+ -> Int -- ^ @spacing@ - the amount of space to insert between rows.+ -> IO ()+gridSetRowSpacing self spacing =+ {# call grid_set_row_spacing #}+    (toGrid self)+    (fromIntegral spacing)++-- | Returns the amount of space between the rows of grid.+--+gridGetRowSpacing :: GridClass self+ => self -- ^ @self@ - the grid.+ -> IO Int -- ^ returns the spacing of grid.+gridGetRowSpacing self =+ liftM fromIntegral $+ {# call grid_get_row_spacing #}+    (toGrid self)++-- | Sets whether all columns of grid will have the same width.+--+gridSetColumnHomogeneous :: GridClass self+ => self -- ^ @self@ - the grid.+ -> Bool -- ^ @homogeneous@ - True to make columns homogeneous.+ -> IO ()+gridSetColumnHomogeneous self homogeneous =+ {# call grid_set_column_homogeneous #}+    (toGrid self)+    (fromBool homogeneous)++-- | Returns whether all columns of grid have the same width.+--+gridGetColumnHomogeneous :: GridClass self+ => self -- ^ @self@ - the grid.+ -> IO Bool -- ^ returns whether all columns of grid have the same width.+gridGetColumnHomogeneous self =+ liftM toBool $+ {# call grid_get_column_homogeneous #}+    (toGrid self)++-- | Sets the amount of space between columns of grid.+--+gridSetColumnSpacing :: GridClass self+ => self -- ^ @self@ - the grid.+ -> Int -- ^ @spacing@ - the amount of space to insert between columns.+ -> IO ()+gridSetColumnSpacing self spacing =+ {# call grid_set_column_spacing #}+    (toGrid self)+    (fromIntegral spacing)++-- | Returns the  amount of space between the columns of grid.+--+gridGetColumnSpacing :: GridClass self+ => self -- ^ @self@ - the grid.+ -> IO Int -- ^ returns the spacing of grid.+gridGetColumnSpacing self =+ liftM fromIntegral $+ {# call grid_get_column_spacing #}+    (toGrid self)++#if GTK_CHECK_VERSION(3,2,0)++-- | Gets the child of grid whose area covers the grid cell whose upper left corner is at+-- left , top .+--+gridGetChildAt :: GridClass self+ => self -- ^ @self@ - the grid.+ -> Int -- ^ @left@ - the left edge of the cell.+ -> Int -- ^ @top@ - the top edge of the cell.+ -> IO (Maybe Widget) -- ^ returns the child at the given position or Nothing.+gridGetChildAt self left top = do+ ptr <- {# call grid_get_child_at #}+           (toGrid self)+           (fromIntegral left)+           (fromIntegral top)+ if ptr == nullPtr+    then return Nothing+    else liftM Just $ makeNewObject mkWidget (return ptr)++-- | Inserts a row at the specified position. Children which are attached at or below this+-- position are moved one row down. Children which span across this position are grown to+-- span the new row.+--+gridInsertRow :: GridClass self+ => self -- ^ @self@ - the grid.+ -> Int -- ^ @pos@ - the position to insert the row at.+ -> IO ()+gridInsertRow self pos =+ {# call grid_insert_row #}+    (toGrid self)+    (fromIntegral pos)++-- | Inserts a column at the specified position. Children which are attached at or to the+-- right of this position are moved one column to the right. Children which span across+-- this position are grown to span the new column+--+gridInsertColumn :: GridClass self+ => self -- ^ @self@ - the grid.+ -> Int -- ^ @pos@ - the positiion to insert the column at.+ -> IO ()+gridInsertColumn self pos =+ {# call grid_insert_column #}+    (toGrid self)+    (fromIntegral pos)++-- | Inserts a row or column at the specified position. The new row or column is placed+-- next to sibling , on the side determined by side. If side is GTK_POS_TOP or+-- GTK_POS_BOTTOM, a row is inserted. If side is GTK_POS_LEFT of GTK_POS_RIGHT, a+-- column is inserted.+--+gridInsertNextTo :: (GridClass self, WidgetClass sibling)+ => self -- ^ @self@ - the grid.+ -> sibling -- ^ @sib@ - the child of grid that the new row or column will be placed next to.+ -> PositionType -- ^ @pos@ - the isde of the sibling that child is positioned next to.+ -> IO ()+gridInsertNextTo self sib pos =+ {# call grid_insert_next_to #}+    (toGrid self)+    (toWidget sib)+    (fromIntegral $ fromEnum pos)++#endif++#if GTK_CHECK_VERSION(3,10,0)++-- | Removes a row from the grid. Children that are placed in this row are removed,+-- spanning children that overlap this row have their height reduced by one, and children+-- below the row are moved up.+--+gridRemoveRow :: GridClass self+ => self -- ^ @self@ - the grid.+ -> Int -- ^ @pos@ - the position of the row to remove.+ -> IO ()+gridRemoveRow self pos =+ {# call grid_remove_row #}+    (toGrid self)+    (fromIntegral pos)++-- | Removes a column from the grid. Children that are placed in this column are removed,+-- spanning children that overlap this column have their width reduced by one, and+-- children after the column are moved to the left.+--+gridRemoveColumn :: GridClass self+ => self -- ^ @self@ - the grid.+ -> Int -- ^ @pos@ -the position of the column to remove.+ -> IO ()+gridRemoveColumn self pos =+ {# call grid_remove_column #}+    (toGrid self)+    (fromIntegral pos)++-- | Returns which row defines the global baseline of grid.+--+gridGetBaselineRow :: GridClass self+ => self -- ^ @self@ - the grid.+ -> IO Int -- ^ returns the row index defining the global baseline.+gridGetBaselineRow self =+ liftM fromIntegral $+ {# call grid_get_baseline_row #}+    (toGrid self)++-- | Sets which row defines the global baseline for the entire grid. Each row in+-- the grid can have its own local baseline, but only one of those is global,+-- meaning it will be the baseline in the parent of the grid.+--+gridSetBaselineRow :: GridClass self+ => self -- ^ @self@ - the grid.+ -> Int -- ^ @row@ - the row index.+ -> IO ()+gridSetBaselineRow self row =+ {# call grid_set_baseline_row #}+    (toGrid self)+    (fromIntegral row)++-- | Returns the baseline position of row as set by gridSetRowBaselinePosition+-- or the default value BASELINE_POSITION_CENTER+--+gridGetRowBaselinePosition :: GridClass self+ => self -- ^ @self@ - the grid.+ -> Int -- ^ @row@ - a row index.+ -> IO BaselinePosition -- ^ returns  the baseline position of row.+gridGetRowBaselinePosition self row =+ liftM (toEnum . fromIntegral) $+ {# call grid_get_row_baseline_position #}+    (toGrid self)+    (fromIntegral row)++-- | Sets how the baseline should be positioned on row of the grid, in case that row+-- is assigned more space than is requested.+--+gridSetRowBaselinePosition :: GridClass self+ => self -- ^ @self@ - the grid.+ -> Int  -- ^ @row@ - a row index.+ -> BaselinePosition -- ^ @pos@ - a BaselinePosition.+ -> IO ()+gridSetRowBaselinePosition self row pos =+ {# call grid_set_row_baseline_position #}+    (toGrid self)+    (fromIntegral row)+    (fromIntegral $ fromEnum pos)++#endif
Graphics/UI/Gtk/Layout/Overlay.chs view
@@ -24,7 +24,7 @@ -- Stability   : provisional -- Portability : portable (depends on GHC) ----- A simple container that can display overlayed widgets+-- A simple container that can display overlaid widgets -- module Graphics.UI.Gtk.Layout.Overlay ( -- * Detail
+ Graphics/UI/Gtk/Layout/Stack.chs view
@@ -0,0 +1,426 @@+{-# LANGUAGE CPP #-}+-- -*-haskell-*-+--  GIMP Toolkit (GTK) Widgets Stack+--+--  Author : Moritz Schulte+--+--  Created: 27 April 2016+--+--  Copyright (C) 2015 Moritz Schulte+--+--  This library is free software; you can redistribute it and/or+--  modify it under the terms of the GNU Lesser General Public+--  License as published by the Free Software Foundation; either+--  version 2.1 of the License, or (at your option) any later version.+--+--  This library is distributed in the hope that it will be useful,+--  but WITHOUT ANY WARRANTY; without even the implied warranty of+--  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU+--  Lesser General Public License for more details.+--+-- |+-- Maintainer  : gtk2hs-users@lists.sourceforge.net+-- Stability   : provisional+-- Portability : portable (depends on GHC)+--+-- A widget which controls the alignment and size of its child+--+module Graphics.UI.Gtk.Layout.Stack (+-- * Detail+--+-- The 'Stack' widget is a container which only shows one of its+-- children at a time. In contrast to 'Notebook', 'Stack' does not+-- provide a means for users to change the visible child. Instead, the+-- 'StackSwitcher' widget can be used with 'Stack' to provide this+-- functionality.+--+-- Transitions between pages can be animated as slides or fades. This+-- can be controlled with 'stackSetTransitionType'. These+-- animations respect the 'gtk-enable-animations' setting.+--       +-- The GtkStack widget was added in GTK+ 3.10.+--+-- * Class Hierarchy+-- |+-- @+-- |  'GObject'+-- |   +----'Object'+-- |         +----'Widget'+-- |               +----'Container'+-- |                     +----'Stack'+-- @++-- * Types+#if GTK_CHECK_VERSION(3,12,0)+         Stack+       , castToStack+       , gTypeStack+       , toStack+       , StackTransitionType(..)+-- * Constructors+       , stackNew++-- * Methods+       , stackAddNamed+       , stackAddTitled+       , stackGetTransitionType+       , stackSetTransitionType+       , stackSetTransitionDuration+       , stackGetTransitionDuration+       , stackGetChildByName+       , stackSetVisibleChild+       , stackSetVisibleChildName+       , stackGetVisibleChildName+       , stackSetVisibleChildFull+#if GTK_CHECK_VERSION(3,16,0)+       , stackSetHomogeneous+       , stackGetHomogeneous+       , stackSetHhomogeneous+       , stackGetHhomogeneous+       , stackSetVhomogeneous+       , stackGetVhomogeneous+#endif+       , stackGetTransitionRunning+#if GTK_CHECK_VERSION(3,18,0)+       , stackSetInterpolateSize+       , stackGetInterpolateSize+#endif++-- * Attributes+#if GTK_CHECK_VERSION(3,16,0)+       , stackHhomogeneous+       , stackHomogeneous+#endif+#if GTK_CHECK_VERSION(3,18,0)+       , stackInterpolateSize+#endif+       , stackTransitionDuration+       , stackTransitionRunning+       , stackTransitionType+#if GTK_CHECK_VERSION(3,16,0)+       , stackVhomogeneous+#endif+       , stackVisibleChild+       , stackVisibleChildName+#endif+) where++#if GTK_CHECK_VERSION(3,12,0)++import Control.Monad    (liftM)++import System.Glib.FFI+import System.Glib.UTFString+import System.Glib.Attributes+import System.Glib.Properties+import Graphics.UI.Gtk.Abstract.Object  (makeNewObject)+import Graphics.UI.Gtk.General.Enums    (StackTransitionType(..))+{#import Graphics.UI.Gtk.Types#}++{# context lib="gtk" prefix="gtk" #}++--------------------+-- Constructors++-- | Creates a new 'Stack' container.+--+stackNew :: IO Stack+stackNew =+  makeNewObject mkStack $+  liftM (castPtr :: Ptr Widget -> Ptr Stack) $+  {# call unsafe stack_new #}++--------------------+-- Methods++-- | Adds a child to stack . The child is identified by the name.+stackAddNamed :: (StackClass self, WidgetClass child, GlibString name) => self+ -> child+ -> name+ -> IO ()+stackAddNamed self child name =+  withUTFString name $ \namePtr ->+    {# call stack_add_named  #}+      (toStack self)+      (toWidget child)+      namePtr++-- | Adds a child to stack. The child is identified by the name. The+-- title will be used by 'StackSwitcher' to represent child in a tab+-- bar, so it should be short.+stackAddTitled :: (StackClass self, WidgetClass child,+                   GlibString name, GlibString title) => self+ -> child+ -> name+ -> title+ -> IO ()+stackAddTitled self child name title =+  withUTFString name $ \namePtr ->+    withUTFString title $ \titlePtr ->+      {# call stack_add_titled  #}+        (toStack self)+        (toWidget child)+        namePtr+        titlePtr++-- | Sets the type of animation that will be used for transitions+-- between pages in stack . Available types include various kinds of+-- fades and slides. The transition type can be changed without+-- problems at runtime, so it is possible to change the animation+-- based on the page that is about to become current.+stackSetTransitionType :: StackClass self => self+ -> StackTransitionType+ -> IO ()+stackSetTransitionType self transitionType =+  {# call unsafe stack_set_transition_type #}+    (toStack self)+    (fromIntegral $ fromEnum transitionType)++-- | Gets the type of animation that will be used for transitions+-- between pages in stack.+stackGetTransitionType :: StackClass self => self+ -> IO StackTransitionType+stackGetTransitionType self =+  liftM (toEnum . fromIntegral) $+  {# call unsafe stack_get_transition_type #}+    (toStack self)++-- | Sets the duration that transitions between pages in stack will+-- take.+stackSetTransitionDuration :: StackClass self => self+ -> Int+ -> IO ()+stackSetTransitionDuration self duration =+  {# call unsafe stack_set_transition_duration #}+    (toStack self)+    (fromIntegral duration)++-- | Returns the amount of time (in milliseconds) that transitions+-- between pages in stack will take.+stackGetTransitionDuration :: StackClass self => self+ -> IO Int+stackGetTransitionDuration self =+  liftM fromIntegral $+  {# call unsafe stack_get_transition_duration #}+    (toStack self)++-- | Finds the child of the GtkStack with the name given as the+-- argument. Returns Nothing if there is no child with this name.+stackGetChildByName :: (StackClass self, GlibString name) => self+ -> name+ -> IO Widget+stackGetChildByName self name =+  withUTFString name $ \namePtr ->+    makeNewObject mkWidget $+    {# call unsafe stack_get_child_by_name #}+      (toStack self)+      namePtr++-- | Gets Just the currently visible child of stack, or Nothing if+-- there are no visible children.+stackGetVisibleChild :: StackClass self => self+ -> IO (Maybe Widget)+stackGetVisibleChild self =+  maybeNull (makeNewObject mkWidget) $+  {# call unsafe stack_get_visible_child #}+    (toStack self)++-- | Makes child the visible child of stack. If child is different+-- from the currently visible child, the transition between the two+-- will be animated with the current transition type of stack. Note+-- that the child widget has to be visible itself (see 'widgetShow')+-- in order to become the visible child of stack.+stackSetVisibleChild :: (StackClass self, WidgetClass child) => self+ -> child+ -> IO ()+stackSetVisibleChild self child =+    {# call unsafe stack_set_visible_child #}+      (toStack self)+      (toWidget child)++-- | Makes the child with the given name visible.  If child is+-- different from the currently visible child, the transition between+-- the two will be animated with the current transition type of stack.+-- Note that the child widget has to be visible itself (see+-- `widgetShow') in order to become the visible child of stack.+stackSetVisibleChildName :: (StackClass self, GlibString name) => self+ -> name+ -> IO ()+stackSetVisibleChildName self name =+  withUTFString name $ \namePtr ->+    {# call unsafe stack_set_visible_child_name #}+      (toStack self)+      namePtr++-- | Returns the name of the currently visible child of stack, or+-- Nothing if there is no visible child.+stackGetVisibleChildName :: (StackClass self, GlibString name) => self+ -> IO (Maybe name)+stackGetVisibleChildName self =+  {# call unsafe stack_get_visible_child_name #}+      (toStack self)+  >>= maybePeekUTFString++-- | Makes the child with the given name visible.  Note that the child+-- widget has to be visible itself (see 'widgetShow') in order to+-- become the visible child of stack .+stackSetVisibleChildFull :: (StackClass self, GlibString name) => self+ -> name+ -> StackTransitionType+ -> IO ()+stackSetVisibleChildFull self name transitionType =+  withUTFString name $ \namePtr ->+    {# call unsafe stack_set_visible_child_full #}+      (toStack self)+      namePtr+      (fromIntegral $ fromEnum transitionType)++#if GTK_CHECK_VERSION(3,16,0)+-- | Sets the stack to be homogeneous or not. If it is homogeneous,+-- the stack will request the same size for all its children. If it+-- isn't, the stack may change size when a different child becomes+-- visible.+stackSetHomogeneous :: StackClass self => self -> Bool -> IO ()+stackSetHomogeneous self homogeneous =+  {# call stack_set_homogeneous #}+    (toStack self)+    (fromBool homogeneous)++-- | Gets whether stack is homogeneous. See 'stackSetHomogeneous'.+stackGetHomogeneous :: StackClass self => self -> IO Bool+stackGetHomogeneous self =+  liftM toBool $+  {# call stack_get_homogeneous #}+    (toStack self)++-- | Sets the stack to be horizontally homogeneous or not. If it is+-- homogeneous, the stack will request the same width for all its+-- children. If it isn't, the stack may change width when a different+-- child becomes visible.+stackSetHhomogeneous :: StackClass self => self -> Bool -> IO ()+stackSetHhomogeneous self hhomogeneous =+  {# call stack_set_hhomogeneous #}+    (toStack self)+    (fromBool hhomogeneous)++-- | Gets whether stack is horizontally homogeneous. See+-- 'stackSetHhomogeneous'.+stackGetHhomogeneous :: StackClass self => self -> IO Bool+stackGetHhomogeneous self =+  liftM toBool $+  {# call stack_get_hhomogeneous #}+    (toStack self)++-- | Sets the stack to be vertically homogeneous or not. If it is+-- homogeneous, the stack will request the same height for all its+-- children. If it isn't, the stack may change height when a different+-- child becomes visible.+stackSetVhomogeneous :: StackClass self => self -> Bool -> IO ()+stackSetVhomogeneous self vhomogeneous =+  {# call stack_set_vhomogeneous #}+    (toStack self)+    (fromBool vhomogeneous)++-- | Gets whether stack is vertically homogeneous. See+-- 'stackSetVhomogeneous'.+stackGetVhomogeneous :: StackClass self => self -> IO Bool+stackGetVhomogeneous self =+  liftM toBool $+  {# call stack_get_vhomogeneous #}+    (toStack self)+#endif++-- | Returns whether the stack is currently in a transition from one+-- page to another.+stackGetTransitionRunning :: StackClass self => self -> IO Bool+stackGetTransitionRunning self =+  liftM toBool $+  {# call stack_get_transition_running #}+    (toStack self)++#if GTK_CHECK_VERSION(3,18,0)+-- | Returns whether the stack is set up to interpolate between the+-- sizes of children on page switch.+stackGetInterpolateSize :: StackClass self => self -> IO Bool+stackGetInterpolateSize self =+  liftM toBool $+  {# call stack_get_interpolate_size #}+    (toStack self)++-- | Sets whether or not the stack will interpolate its size when+-- changing the visible child. If the 'interpolate-size' property is+-- set to True, stack will interpolate its size between the current+-- one and the one it'll take after changing the visible child,+-- according to the set transition duration.+stackSetInterpolateSize :: StackClass self => self -> Bool -> IO ()+stackSetInterpolateSize self interpolateSize =+  {# call stack_set_interpolate_size #}+    (toStack self)+    (fromBool interpolateSize)+#endif++--------------------+-- Attributes++#if GTK_CHECK_VERSION(3,16,0)+-- | True if the stack allocates the same width for all children.+stackHhomogeneous :: StackClass self => Attr self Bool+stackHhomogeneous = newAttr+  stackGetHhomogeneous+  stackSetHhomogeneous++-- | Homogeneous sizing.+stackHomogeneous :: StackClass self => Attr self Bool+stackHomogeneous = newAttr+  stackGetHomogeneous+  stackSetHomogeneous+#endif++#if GTK_CHECK_VERSION(3,18,0)+-- | Whether or not the size should smoothly change when changing+-- between differently sized children.+stackInterpolateSize :: StackClass self => Attr self Bool+stackInterpolateSize = newAttr+  stackGetInterpolateSize+  stackSetInterpolateSize+#endif++-- | The animation duration, in milliseconds.+stackTransitionDuration :: StackClass self => Attr self Int+stackTransitionDuration = newAttr+  stackGetTransitionDuration+  stackSetTransitionDuration++-- | Whether or not the transition is currently running.+stackTransitionRunning :: StackClass self => ReadAttr self Bool+stackTransitionRunning = readAttr+  stackGetTransitionRunning++-- | The type of animation used to transition.+stackTransitionType :: StackClass self => Attr self StackTransitionType+stackTransitionType = newAttr+  stackGetTransitionType+  stackSetTransitionType++#if GTK_CHECK_VERSION(3,16,0)+-- | True if the stack allocates the same height for all children.+stackVhomogeneous :: StackClass self => Attr self Bool+stackVhomogeneous = newAttr+  stackGetVhomogeneous+  stackSetVhomogeneous+#endif++-- | The widget currently visible in the stack.+stackVisibleChild :: StackClass self =>+  ReadWriteAttr self (Maybe Widget) Widget+stackVisibleChild = newAttr+  stackGetVisibleChild+  stackSetVisibleChild++-- | The name of the widget currently visible in the stack.+stackVisibleChildName :: StackClass self => ReadWriteAttr self (Maybe String) String+stackVisibleChildName = newAttr+  stackGetVisibleChildName+  stackSetVisibleChildName++#endif
+ Graphics/UI/Gtk/Layout/StackSwitcher.chs view
@@ -0,0 +1,124 @@+{-# LANGUAGE CPP #-}+-- -*-haskell-*-+--  GIMP Toolkit (GTK) Widgets StackSwitcher+--+--  Author : Moritz Schulte+--+--  Created: 27 April 2016+--+--  Copyright (C) 2016 Moritz Schulte+--+--  This library is free software; you can redistribute it and/or+--  modify it under the terms of the GNU Lesser General Public+--  License as published by the Free Software Foundation; either+--  version 2.1 of the License, or (at your option) any later version.+--+--  This library is distributed in the hope that it will be useful,+--  but WITHOUT ANY WARRANTY; without even the implied warranty of+--  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU+--  Lesser General Public License for more details.+--+-- |+-- Maintainer  : gtk2hs-users@lists.sourceforge.net+-- Stability   : provisional+-- Portability : portable (depends on GHC)+--+-- A widget which controls the alignment and size of its child+--+module Graphics.UI.Gtk.Layout.StackSwitcher (+-- * Detail+--+-- [...]+--+-- * Class Hierarchy+-- |+-- @+-- |  'GObject'+-- |   +----'Object'+-- |         +----'Widget'+-- |               +----'Container'+-- |                     +----'Box'+-- |                           +----'StackSwitcher'+-- @++-- * Types+#if GTK_CHECK_VERSION(3,10,0)+    StackSwitcher+  , castToStackSwitcher+  , gTypeStackSwitcher+  , toStackSwitcher++-- * Constructors+  , stackSwitcherNew++-- * Methods+  , stackSwitcherSetStack+  , stackSwitcherGetStack++-- * Attributes+  , stackSwitcherIconSize+  , stackSwitcherStack+#endif+) where++#if GTK_CHECK_VERSION(3,10,0)++import Control.Monad    (liftM)++import System.Glib.FFI+import System.Glib.Attributes+import System.Glib.Properties+import Graphics.UI.Gtk.Abstract.Object  (makeNewObject)+{#import Graphics.UI.Gtk.Types#}++{# context lib="gtk" prefix="gtk" #}++--------------------+-- Constructors++-- | Creates a new 'StackSwitcher'.+--+stackSwitcherNew :: IO StackSwitcher+stackSwitcherNew =+  makeNewObject mkStackSwitcher $+  liftM (castPtr :: Ptr Widget -> Ptr StackSwitcher) $+  {# call unsafe stack_switcher_new #}++--------------------+-- Methods++-- | Sets the stack to control.+stackSwitcherSetStack :: (StackSwitcherClass self, StackClass stack) => self+ -> stack+ -> IO ()+stackSwitcherSetStack self stack =+  {# call stack_switcher_set_stack #}+    (toStackSwitcher self)+    (toStack stack)++-- | Retrieves the stack.+stackSwitcherGetStack :: StackSwitcherClass self => self+ -> IO (Maybe Stack)+stackSwitcherGetStack self =+  maybeNull (makeNewObject mkStack) $+  {# call stack_switcher_get_stack #}+    (toStackSwitcher self)++--------------------+-- Attributes++-- | Use the "icon-size" property to change the size of the image+-- displayed when a GtkStackSwitcher is displaying icons.+--+-- Default value: @1@+--+stackSwitcherIconSize :: StackSwitcherClass self => Attr self Int+stackSwitcherIconSize = newAttrFromIntProperty "icon-size"++-- | The 'Stack' controlled by this 'StackSwitcher'.+--+stackSwitcherStack :: (StackSwitcherClass self, StackClass stack) =>+  ReadWriteAttr self (Maybe Stack) (Maybe stack)+stackSwitcherStack = newAttrFromMaybeObjectProperty "stack" gTypeContainer++#endif
Graphics/UI/Gtk/Layout/Table.chs view
@@ -309,7 +309,7 @@   {# call unsafe table_get_default_col_spacing #}     (toTable self) --- | Changes the homogenous property of table cells, ie. whether all cells are+-- | Changes the homogeneous property of table cells, ie. whether all cells are -- an equal size or not. -- tableSetHomogeneous :: TableClass self => self
Graphics/UI/Gtk/MenuComboToolbar/CheckMenuItem.chs view
@@ -173,7 +173,7 @@     (toCheckMenuItem self)     (fromBool setting) --- | Query if the menu check is drawn as inconsistent (inbetween). See+-- | Query if the menu check is drawn as inconsistent (in between). See -- 'checkMenuItemSetInconsistent'. -- checkMenuItemGetInconsistent :: CheckMenuItemClass self => self -> IO Bool
Graphics/UI/Gtk/MenuComboToolbar/ComboBox.chs view
@@ -256,7 +256,7 @@ -- widget and sets the model to the list store. The widget can contain only -- strings. The model can be retrieved with 'comboBoxGetModel'. The list -- store can be retrieved with 'comboBoxGetModelText'.--- Any exisiting model or renderers are removed before setting the new text+-- Any existing model or renderers are removed before setting the new text -- model. -- Note that the functions 'comboBoxAppendText', 'comboBoxInsertText', -- 'comboBoxPrependText', 'comboBoxRemoveText' and 'comboBoxGetActiveText'
Graphics/UI/Gtk/MenuComboToolbar/Menu.chs view
@@ -25,8 +25,8 @@ -- -- The function menuPopup at a specific position is difficult to bind: --   The callback function that determines at which position the menu is---   to be shown is keept after the call returns. Maybe we could destroy---   this function pointer with a destory event?+--   to be shown is kept after the call returns. Maybe we could destroy+--   this function pointer with a destroy event? -- -- | -- Maintainer  : gtk2hs-users@lists.sourceforge.net@@ -215,7 +215,7 @@ -- its immediate children, its menu items, can be constructed. The main purpose -- of this function is to spare the programmer the inconvenience of having to -- call 'menuItemSetAccelPath' on each menu item that should support runtime--- user changable accelerators. Instead, by just calling 'menuSetAccelPath' on+-- user changeable accelerators. Instead, by just calling 'menuSetAccelPath' on -- their parent, each menu item of this menu, that contains a label describing -- its purpose, automatically gets an accel path assigned. --
Graphics/UI/Gtk/MenuComboToolbar/MenuItem.chs view
@@ -42,11 +42,11 @@ module Graphics.UI.Gtk.MenuComboToolbar.MenuItem ( -- * Detail ----- | The 'MenuItem' widget and the derived widgets are the only valid childs+-- | The 'MenuItem' widget and the derived widgets are the only valid children -- for menus. Their function is to correctly handle highlighting, alignment, -- events and submenus. ----- As it derives from 'Bin' it can hold any valid child widget, altough only+-- As it derives from 'Bin' it can hold any valid child widget, although only -- a few are really useful.  -- * Class Hierarchy@@ -282,7 +282,7 @@  -- | Set the accelerator path on the menu item, through which runtime changes of -- the menu item's accelerator caused by the user can be identified and saved--- to persistant storage (see 'accelMapSave' on this). To setup a default+-- to persistent storage (see 'accelMapSave' on this). To setup a default -- accelerator for this menu item, call 'accelMapAddEntry' with the same accel -- path. See also 'accelMapAddEntry' on the specifics of accelerator paths, and -- 'menuSetAccelPath' for a more convenient variant of this function.
Graphics/UI/Gtk/MenuComboToolbar/MenuShell.chs view
@@ -219,7 +219,7 @@ -- to submenus whenever a submenu is popped up, so you don't have to worry -- about recursively setting it for your entire menu hierarchy. Only when -- programmatically picking a submenu and popping it up manually, the--- @takeFocus@ property of the submenu needs to be set explicitely.+-- @takeFocus@ property of the submenu needs to be set explicitly. -- -- Note that setting it to @False@ has side-effects: --
Graphics/UI/Gtk/MenuComboToolbar/RadioMenuItem.chs view
@@ -63,7 +63,7 @@   radioMenuItemNewWithLabelFromWidget,   radioMenuItemNewWithMnemonicFromWidget, -  -- * Compatibilty aliases+  -- * Compatibility aliases   radioMenuItemNewJoinGroup,   radioMenuItemNewJoinGroupWithLabel,   radioMenuItemNewJoinGroupWithMnemonic,
Graphics/UI/Gtk/MenuComboToolbar/ToolItemGroup.chs view
@@ -187,7 +187,7 @@     (toToolItem item)     (fromIntegral position) --- | Wether the group has been collapsed and items are hidden.+-- | Whether the group has been collapsed and items are hidden. -- -- Default value: 'False' --
Graphics/UI/Gtk/MenuComboToolbar/Toolbar.chs view
@@ -28,7 +28,7 @@ module Graphics.UI.Gtk.MenuComboToolbar.Toolbar ( -- * Detail ----- | This widget underwent a signficant overhaul in gtk 2.4 and the+-- | This widget underwent a significant overhaul in gtk 2.4 and the -- recommended api changed substantially. The old interface is still supported -- but it is not recommended. --@@ -52,7 +52,7 @@ #ifndef DISABLE_DEPRECATED -- | * The following information applies to the old interface only. ----- 'Button's, 'RadioButton's and 'ToggleButton's can be added by refering to+-- 'Button's, 'RadioButton's and 'ToggleButton's can be added by referring to -- stock images. Their size can be changed by calling 'toolbarSetIconSize'. In -- contrast, normal widget cannot be added. Due to the bad interface of -- "Toolbar" mnemonics of 'RadioButton's and 'ToggleButton's are not honored.@@ -221,7 +221,7 @@ -- which must be a valid entry in the 'Toolbar's Style or the -- default 'IconFactory'. ----- If you whish to have 'Tooltips' added to this button you can+-- If you wish to have 'Tooltips' added to this button you can -- specify @Just (tipText, tipPrivate)@ , otherwise specify @Nothing@. -- -- The newly created 'Button' is returned. Use this button to@@ -341,7 +341,7 @@ -- -- The @parent@ argument must be set to another -- 'RadioButton' in the group. If @Nothing@ is given,--- a new group is generated (which is the desired behavious for the+-- a new group is generated (which is the desired behaviour for the -- first button of a group). -- -- * Warning: this function is deprecated and should not be used in@@ -764,7 +764,7 @@ -- Application developers should handle this signal if they want to display -- a context menu on the toolbar. The context-menu should appear at the -- coordinates given by @x@ and @y@. The mouse button number is given by the--- @button@ parameter. If the menu was popped up using the keybaord, @button@+-- @button@ parameter. If the menu was popped up using the keyboard, @button@ -- is -1. -- onPopupContextMenu, afterPopupContextMenu :: ToolbarClass self => self
Graphics/UI/Gtk/Misc/Arrow.chs view
@@ -31,10 +31,10 @@ -- | 'Arrow' should be used to draw simple arrows that need to point in one of -- the four cardinal directions (up, down, left, or right). The style of the -- arrow can be one of shadow in, shadow out, etched in, or etched out. Note--- that these directions and style types may be ammended in versions of Gtk to+-- that these directions and style types may be amended in versions of Gtk to -- come. ----- 'Arrow' will fill any space alloted to it, but since it is inherited from+-- 'Arrow' will fill any space allotted to it, but since it is inherited from -- 'Misc', it can be padded and\/or aligned, to fill exactly the space the -- programmer desires. --
+ Graphics/UI/Gtk/Misc/GLArea.chs view
@@ -0,0 +1,393 @@+{-# LANGUAGE CPP #-}+-- -*-haskell-*-+--  GIMP Toolkit (GTK) Widget GLArea+--+--  Author : Chris Mennie+--+--  Created: 23 April 2016+--+--  Copyright (C) 2016 Chis Mennie+--+--  This library is free software; you can redistribute it and/or+--  modify it under the terms of the GNU Lesser General Public+--  License as published by the Free Software Foundation; either+--  version 2.1 of the License, or (at your option) any later version.+--+--  This library is distributed in the hope that it will be useful,+--  but WITHOUT ANY WARRANTY; without even the implied warranty of+--  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU+--  Lesser General Public License for more details.+--+-- |+-- Maintainer  : gtk2hs-users@lists.sourceforge.net+-- Stability   : provisional+-- Portability : portable (depends on GHC)+--+-- A widget for custom drawing with OpenGL+--+module Graphics.UI.Gtk.Misc.GLArea (+-- * Detail+--+-- | The 'GLArea' is a widget that allows drawing with OpenGL.+--+-- GLArea sets up its own 'Graphics.UI.Gtk.Gdk.GLContext.GLContext' for the window it creates, and creates a+-- custom GL framebuffer that the widget will do GL rendering onto. It also+-- ensures that this framebuffer is the default GL rendering target when+-- rendering.+--+-- In order to draw, you have to connect to the 'glAreaRender' signal.+--+-- The GLArea widget ensures that the 'Graphics.UI.Gtk.Gdk.GLContext.GLContext' is associated with the+-- widget's drawing area, and it is kept updated when the size and position+-- of the drawing area changes.+--+-- If you need to initialize OpenGL state, e.g. buffer objects or shaders,+-- you should use the 'Graphics.UI.Gtk.Abstract.Widget.realize' signal; you can use the 'Graphics.UI.Gtk.Abstract.Widget.unrealize' signal+-- to clean up.+--+-- To receive mouse events on a drawing area, you will need to enable them+-- with 'Graphics.UI.Gtk.Abstract.Widget.widgetAddEvents'. To receive keyboard events, you will need to set the+-- 'Graphics.UI.Gtk.Abstract.Widget.widgetCanFocus' attribute on the drawing area.++-- * Class Hierarchy+-- |+-- @+-- |  'GObject'+-- |   +----'Object'+-- |         +----'Widget'+-- |               +----GLArea+-- @++-- * Types+#if GTK_CHECK_VERSION(3,16,0)+  GLArea,+  GLAreaClass,+  castToGLArea, gTypeGLArea,+  toGLArea,+#endif++-- * Constructors+#if GTK_CHECK_VERSION(3,16,0)+  glAreaNew,+#endif++-- * Methods+#if GTK_CHECK_VERSION(3,16,0)+  glAreaGetContext,+  glAreaMakeCurrent,+  glAreaQueueRender,+  glAreaAttachBuffers,+  glAreaSetAutoRender,+  glAreaGetAutoRender,+  glAreaSetHasAlpha,+  glAreaGetHasAlpha,+  glAreaSetHasDepthBuffer,+  glAreaGetHasDepthBuffer,+  glAreaSetHasStencilBuffer,+  glAreaGetHasStencilBuffer,+  glAreaGetRequiredVersion,+  glAreaSetRequiredVersion,+  glAreaGetError,+#endif++-- * Attributes+#if GTK_CHECK_VERSION(3,16,0)+  glAreaAutoRender,+  glAreaContext,+  glAreaHasAlpha,+  glAreaHasDepthBuffer,+  glAreaHasStencilBuffer,+#endif++-- * Signals+#if GTK_CHECK_VERSION(3,16,0)+  glAreaResize,+  glAreaRender+#endif++  ) where++import Control.Monad    (liftM)+import Control.Monad.Trans              ( liftIO )+import System.Glib.FFI+import System.Glib.UTFString+import System.Glib.Attributes+import System.Glib.Properties+import System.Glib.GError+import Graphics.UI.Gtk.Abstract.Object  (makeNewObject)+import Graphics.UI.Gtk.Gdk.GLContext+{#import Graphics.UI.Gtk.Types#}+{#import Graphics.UI.Gtk.Signals#}++{# context lib="gtk" prefix="gtk" #}++--------------------+-- Constructors++#if GTK_CHECK_VERSION(3,16,0)+-- | Creates a new GLArea widget.+--+glAreaNew :: IO GLArea+glAreaNew =+  makeNewObject mkGLArea $+  liftM (castPtr :: Ptr Widget -> Ptr GLArea) $+  {# call unsafe gl_area_new #}+#endif+++--------------------+-- Methods+++#if GTK_CHECK_VERSION(3,16,0)+-- | Retrieves the 'Graphics.UI.Gtk.Gdk.GLContext.GLContext' used by area.+--+glAreaGetContext :: GLAreaClass self => self+    -> IO (Maybe GLContext)+glAreaGetContext self = do+    maybeNull (wrapNewGObject mkGLContext) $+        {# call gtk_gl_area_get_context #} (toGLArea self)+++-- | Ensures that the 'Graphics.UI.Gtk.Gdk.GLContext.GLContext' used by area is associated with the GLArea.+--+-- This function is automatically called before emitting the 'glAreaRender' signal,+-- and doesn't normally need to be called by application code.+--+glAreaMakeCurrent :: GLAreaClass self => self -> IO ()+glAreaMakeCurrent self =+    {# call gtk_gl_area_make_current #} (toGLArea self)+++-- | Marks the currently rendered data (if any) as invalid, and queues a redraw+-- of the widget, ensuring that the 'glAreaRender' signal is emitted during the draw.+--+-- This is only needed when 'glAreaSetAutoRender' has been called with a False+-- value. The default behaviour is to emit 'glAreaRender' on each draw.+--+glAreaQueueRender :: GLAreaClass self => self -> IO ()+glAreaQueueRender self =+    {# call gtk_gl_area_queue_render #} (toGLArea self)+++-- | Ensures that the area framebuffer object is made the current draw and read+-- target, and that all the required buffers for the area are created and+-- bound to the framebuffer.+--+-- This function is automatically called before emitting the 'glAreaRender' signal,+-- and doesn't normally need to be called by application code.+--+glAreaAttachBuffers :: GLAreaClass self => self -> IO ()+glAreaAttachBuffers self =+    {# call gtk_gl_area_attach_buffers #} (toGLArea self)+++-- | Gets the current error set on the area.+--+glAreaGetError :: GLAreaClass self => self -> IO (Maybe GError)+glAreaGetError self = do+    err <- {# call gtk_gl_area_get_error #} (toGLArea self)+    if err == nullPtr+        then return Nothing+        else liftM Just (peek $ castPtr err)+++-- | If hasAlpha is True the buffer allocated by the widget will have an alpha channel component,+-- and when rendering to the window the result will be composited over whatever is below the+-- widget.+--+-- If hasAlpha is False there will be no alpha channel, and the buffer will fully replace anything+-- below the widget.+--+glAreaSetHasAlpha :: GLAreaClass self => self -> Bool -> IO ()+glAreaSetHasAlpha self hasAlpha =+  {# call gl_area_set_has_alpha #}+    (toGLArea self)+    (fromBool hasAlpha)+++-- | Returns whether the area has an alpha component.+--+glAreaGetHasAlpha :: GLAreaClass self => self -> IO Bool+glAreaGetHasAlpha self =+  liftM toBool $+    {# call unsafe gl_area_get_has_alpha #} (toGLArea self)+++-- | If hasDepthBuffer is True the widget will allocate and enable a depth buffer for the target+-- framebuffer. Otherwise there will be none.+--+glAreaSetHasDepthBuffer :: GLAreaClass self => self -> Bool -> IO ()+glAreaSetHasDepthBuffer self hasDepthBuffer =+  {# call gl_area_set_has_depth_buffer #}+    (toGLArea self)+    (fromBool hasDepthBuffer)+++-- | Returns whether the area has a depth buffer.+--+glAreaGetHasDepthBuffer :: GLAreaClass self => self -> IO Bool+glAreaGetHasDepthBuffer self =+  liftM toBool $+    {# call unsafe gl_area_get_has_depth_buffer #} (toGLArea self)+++-- | If hasStencilBuffer is True the widget will allocate and enable a stencil buffer for the target+-- framebuffer. Otherwise there will be none.+--+glAreaSetHasStencilBuffer :: GLAreaClass self => self -> Bool -> IO ()+glAreaSetHasStencilBuffer self hasStencilBuffer =+  {# call gl_area_set_has_stencil_buffer #}+    (toGLArea self)+    (fromBool hasStencilBuffer)+++-- | Returns whether the area has a stencil buffer.+--+glAreaGetHasStencilBuffer :: GLAreaClass self => self -> IO Bool+glAreaGetHasStencilBuffer self =+  liftM toBool $+    {# call unsafe gl_area_get_has_stencil_buffer #} (toGLArea self)+++-- | If autoRender is True the 'glAreaRender' signal will be emitted every time the widget draws. This is+-- the default and is useful if drawing the widget is faster.+--+-- If autoRender is False the data from previous rendering is kept around and will be used for+-- drawing the widget the next time, unless the window is resized. In order to force a rendering+-- 'glAreaQueueRender' must be called. This mode is useful when the scene changes seldomly, but takes+-- a long time to redraw.+--+glAreaSetAutoRender :: GLAreaClass self => self -> Bool -> IO ()+glAreaSetAutoRender self autoRender =+  {# call gl_area_set_auto_render #}+    (toGLArea self)+    (fromBool autoRender)++-- | Returns whether the area is in auto render mode or not.+--+glAreaGetAutoRender :: GLAreaClass self => self -> IO Bool+glAreaGetAutoRender self =+  liftM toBool $+  {# call unsafe gl_area_get_auto_render #}+    (toGLArea self)+++-- | Retrieves the required version of OpenGL set using 'glAreaSetRequiredVersion'.+--+glAreaGetRequiredVersion :: GLAreaClass self => self -> IO (Int, Int)+glAreaGetRequiredVersion self = do+    alloca $ \majorPtr -> alloca $ \minorPtr -> do+        {# call gtk_gl_area_get_required_version #} (toGLArea self) majorPtr minorPtr+        major <- peek majorPtr+        minor <- peek minorPtr+        return (fromIntegral major, fromIntegral minor)+++-- | Sets the required version of OpenGL to be used when creating the context for the widget.+--+-- This function must be called before the area has been realized.+--+glAreaSetRequiredVersion :: GLAreaClass self => self -> Int -> Int -> IO ()+glAreaSetRequiredVersion self major minor =+    {# call gtk_gl_area_set_required_version #}+        (toGLArea self) (fromIntegral major) (fromIntegral minor)++#endif++--------------------+-- Attributes+++#if GTK_CHECK_VERSION(3,16,0)+-- | If set to True the 'glAreaRender' signal will be emitted every time the widget draws. This is the+-- default and is useful if drawing the widget is faster.+--+-- If set to False the data from previous rendering is kept around and will be used for drawing the+-- widget the next time, unless the window is resized. In order to force a rendering+-- 'glAreaQueueRender' must be called. This mode is useful when the scene changes seldomly, but+-- takes a long time to redraw.+--+-- Default value: True+--+glAreaAutoRender :: GLAreaClass self => Attr self Bool+glAreaAutoRender = newAttr+  glAreaGetAutoRender+  glAreaSetAutoRender+++-- | The 'Graphics.UI.Gtk.Gdk.GLContext.GLContext' used by the GLArea widget.+--+-- The GLArea widget is responsible for creating the 'Graphics.UI.Gtk.Gdk.GLContext.GLContext' instance. If you need to render with+-- other kinds of buffers (stencil, depth, etc), use render buffers.+--+glAreaContext :: GLAreaClass self => ReadAttr self (Maybe GLContext)+glAreaContext = readAttr glAreaGetContext+++-- | If set to True the buffer allocated by the widget will have an alpha channel component, and+-- when rendering to the window the result will be composited over whatever is below the widget.+--+-- If set to False there will be no alpha channel, and the buffer will fully replace anything below+-- the widget.+--+-- Default value: False+--+glAreaHasAlpha :: GLAreaClass self => Attr self Bool+glAreaHasAlpha = newAttr+  glAreaGetHasAlpha+  glAreaSetHasAlpha+++-- | If set to True the widget will allocate and enable a depth buffer for the target framebuffer.+--+-- Default value: False+--+glAreaHasDepthBuffer :: GLAreaClass self => Attr self Bool+glAreaHasDepthBuffer = newAttr+  glAreaGetHasDepthBuffer+  glAreaSetHasDepthBuffer+++-- | If set to True the widget will allocate and enable a stencil buffer for the target framebuffer.+--+-- Default value: False+--+glAreaHasStencilBuffer :: GLAreaClass self => Attr self Bool+glAreaHasStencilBuffer = newAttr+  glAreaGetHasStencilBuffer+  glAreaSetHasStencilBuffer++#endif++--------------------+-- Signals++#if GTK_CHECK_VERSION(3,16,0)++-- | The glAreaResize signal is emitted once when the widget is realized, and then each time the widget+-- is changed while realized. This is useful in order to keep GL state up to date with the widget+-- size, like for instance camera properties which may depend on the width/height ratio.+--+-- The GL context for the area is guaranteed to be current when this signal is emitted.+--+-- The default handler sets up the GL viewport.+--+glAreaResize :: GLAreaClass glac => Signal glac (Int -> Int -> IO ())+glAreaResize = Signal (connect_INT_INT__NONE "resize")+++-- | The glAreaRender signal is emitted every time the contents of the GLArea should be redrawn.+--+-- The context is bound to the area prior to emitting this function, and the buffers are painted+-- to the window once the emission terminates.+--+glAreaRender :: GLAreaClass glac => Signal glac (Maybe GLContext -> IO (Bool))+glAreaRender = Signal (connect_BOXED__BOOL "render" unwrapGLContextPtr)+++unwrapGLContextPtr :: Ptr GLContext -> IO (Maybe GLContext)+unwrapGLContextPtr ptr = do+    maybeNull (makeNewGObject mkGLContext) (return ptr)++#endif
Graphics/UI/Gtk/Misc/HandleBox.chs view
@@ -37,12 +37,12 @@ -- -- When reattaching, the ghost and float window, must be aligned along one -- of the edges, the snap edge. This either can be specified by the application--- programmer explicitely, or Gtk+ will pick a reasonable default based on the+-- programmer explicitly, or Gtk+ will pick a reasonable default based on the -- handle position. -- -- To make detaching and reattaching the handlebox as minimally confusing as -- possible to the user, it is important to set the snap edge so that the snap--- edge does not move when the handlebox is deattached. For instance, if the+-- edge does not move when the handlebox is detached. For instance, if the -- handlebox is packed at the bottom of a VBox, then when the handlebox is -- detached, the bottom edge of the handlebox's allocation will remain fixed as -- the height of the handlebox shrinks, so the snap edge should be set to@@ -227,7 +227,7 @@ -------------------- -- Signals --- Note: for these two signales we ignore the given Widget in the handler.+-- Note: for these two signals we ignore the given Widget in the handler.  -- | This signal is emitted when the contents of the handlebox are reattached -- to the main window.
+ Graphics/UI/Gtk/Misc/Switch.chs view
@@ -0,0 +1,195 @@+{-# LANGUAGE CPP #-}+-- -*-haskell-*-+--  GIMP Toolkit (GTK) Widgets Switch+--+--  Author : Warlock <internalmike@gmail.com>+--+--  Created: 10 November 2017+--+--  Copyright (C) 2017 Warlock+--+--  This library is free software; you can redistribute it and/or+--  modify it under the terms of the GNU Lesser General Public+--  License as published by the Free Software Foundation; either+--  version 2.1 of the License, or (at your option) any later version.+--+--  This library is distributed in the hope that it will be useful,+--  but WITHOUT ANY WARRANTY; without even the implied warranty of+--  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU+--  Lesser General Public License for more details.+--+-- |+-- Maintainer  : gtk2hs-users@lists.sourceforge.net+-- Stability   : provisional+-- Portability : portable (depends on GHC)+--+-- A "light switch" style toggle+--+module Graphics.UI.Gtk.Misc.Switch (+-- * Detail+--+-- [...]+--+-- * Class Hierarchy+-- |+-- @+-- |  'GObject'+-- |   +----'Object'+-- |         +----'Widget'+-- |               +----'Switch'+-- @++-- * Types+#if GTK_MAJOR_VERSION >= 3+    Switch+  , castToSwitch+  , gTypeSwitch+  , toSwitch++-- * Constructors+  , switchNew++-- * Methods+  , switchSetActive+  , switchGetActive+#if GTK_CHECK_VERSION(3,14,0)+  , switchSetState+  , switchGetState+#endif++-- * Attributes+  , switchActive+#if GTK_CHECK_VERSION(3,14,0)+  , switchState+#endif++-- * Signals+  , switchActivate+#if GTK_CHECK_VERSION(3,14,0)+  , stateSet+#endif+#endif+) where++#if GTK_MAJOR_VERSION >= 3++import Control.Monad    (liftM)++import System.Glib.FFI+import System.Glib.Attributes+import System.Glib.Properties+import Graphics.UI.Gtk.Abstract.Object  (makeNewObject)+{#import Graphics.UI.Gtk.Types#}+{#import Graphics.UI.Gtk.Signals#}++{# context lib="gtk" prefix="gtk" #}++--------------------+-- Constructors++-- | Creates a new 'Switch'.+--+switchNew :: IO Switch+switchNew =+  makeNewObject mkSwitch $+  liftM (castPtr :: Ptr Widget -> Ptr Switch) $+  {# call unsafe switch_new #}++--------------------+-- Methods++-- | Changes the state of control to the desired one.+-- See 'switchGetActive'.+switchSetActive :: SwitchClass self => self+ -> Bool+ -> IO ()+switchSetActive self is_active =+  {# call switch_set_active #}+    (toSwitch self)+    (fromBool is_active)++-- | Gets whether the GtkSwitch is in its on or off state.+switchGetActive :: SwitchClass self => self+ -> IO Bool+switchGetActive self =+  liftM toBool $+  {# call switch_get_active #}+    (toSwitch self)++#if GTK_CHECK_VERSION(3,14,0)+-- | Sets the underlying state of the GtkSwitch.+-- Normally, this is the same as 'switchActive', unless the switch is set up for+-- delayed state changes. This function is typically called+-- from a 'stateSet' signal handler.+--+-- See 'stateSet' for details.+switchSetState :: SwitchClass self => self+ -> Bool+ -> IO ()+switchSetState self state =+  {# call switch_set_state #}+    (toSwitch self)+    (fromBool state)++-- | Gets the underlying state of the GtkSwitch.+-- Set 'switchSetState'.+switchGetState :: SwitchClass self => self+ -> IO Bool+switchGetState self =+  liftM toBool $+  {# call switch_get_state #}+    (toSwitch self)+#endif++--------------------+-- Attributes++-- | Whether the switch is in its on or off state.+--+-- Default value: @False@+--+switchActive :: SwitchClass self => Attr self Bool+switchActive = newAttr+  switchGetActive+  switchSetActive++#if GTK_CHECK_VERSION(3,14,0)+-- | The backend state that is controlled by the switch. See 'stateSet' for details.+--+-- Default value: @False@+--+switchState :: SwitchClass self => Attr self Bool+switchState = newAttr+  switchGetState+  switchSetState+#endif++--------------------+-- Signals+++-- | This signal on GtkSwitch is an action signal and emitting it causes+-- the switch to animate. Applications should never connect to this signal,+-- but use the notify::active signal.+--+switchActivate :: SwitchClass self => Signal self (IO ())+switchActivate = Signal (connect_NONE__NONE "activate")++#if GTK_CHECK_VERSION(3,14,0)+-- | This signal on GtkSwitch is emitted to change the underlying state.+-- It is emitted when the user changes the switch position.+-- The default handler keeps the state in sync with the 'switchActive' property.+--+-- To implement delayed state change, applications can connect to this signal,+-- initiate the change of the underlying state, and call 'switchSetState'+-- when the underlying state change is complete.+-- The signal handler should return @True@ to prevent the default handler from running.+--+-- Visually, the underlying state is represented by the through color of the switch,+-- while the 'switchActive' property is represented by the position of the switch.+--+stateSet :: SwitchClass self => Signal self (Bool -> IO Bool)+stateSet = Signal (connect_BOOL__BOOL "state-set")+#endif++#endif
Graphics/UI/Gtk/Misc/Viewport.chs view
@@ -82,6 +82,7 @@   ) where  import Control.Monad    (liftM)+import Data.Maybe (fromMaybe)  import System.Glib.FFI import System.Glib.Attributes@@ -97,15 +98,15 @@ -- | Creates a new 'Viewport' with the given adjustments. -- viewportNew ::-    Adjustment  -- ^ @hadjustment@ - horizontal adjustment.- -> Adjustment  -- ^ @vadjustment@ - vertical adjustment.+    Maybe Adjustment  -- ^ @hadjustment@ - horizontal adjustment.+ -> Maybe Adjustment  -- ^ @vadjustment@ - vertical adjustment.  -> IO Viewport viewportNew hadjustment vadjustment =   makeNewObject mkViewport $   liftM (castPtr :: Ptr Widget -> Ptr Viewport) $   {# call unsafe viewport_new #}-    hadjustment-    vadjustment+    (fromMaybe (Adjustment nullForeignPtr) hadjustment)+    (fromMaybe (Adjustment nullForeignPtr) vadjustment)  -------------------- -- Methods
Graphics/UI/Gtk/ModelView/CellRenderer.chs view
@@ -306,7 +306,7 @@  #if GTK_CHECK_VERSION(2,6,0) -- %hash c:41f0 d:49f--- | This signal gets emitted when a cell starts to be edited. The indended+-- | This signal gets emitted when a cell starts to be edited. The intended -- use of this signal is to do special setup on @editable@, e.g. adding a -- 'EntryCompletion' or setting up additional columns in a 'ComboBox'. --
Graphics/UI/Gtk/ModelView/CellRendererText.chs view
@@ -154,7 +154,7 @@ -- 'cellTextFont' and 'Graphics.UI.Gtk.ModelView.CellRenderer.cellYPad' -- attribute set on it. Further changes in these properties do not affect the -- height, so they must be accompanied by a subsequent call to this function.--- Using this function is unflexible, and should really only be used if+-- Using this function is inflexible, and should really only be used if -- calculating the size of a cell is too slow (ie, a massive number of cells -- displayed). If @numberOfRows@ is -1, then the fixed height is unset, and -- the height is determined by the properties again.
Graphics/UI/Gtk/ModelView/CustomStore.chs view
@@ -45,7 +45,7 @@   customStoreGetPrivate,   customStoreGetStamp,   customStoreInvalidateIters,-  -- for backwards compatability, not documented+  -- for backwards compatibility, not documented   treeModelGetRow,   treeModelSetColumn,   ) where@@ -129,7 +129,7 @@          let (beg,_:end) = splitAt colId cols          writeIORef cMap (beg++setter acc:end) --- this is a backwards compatability definition+-- this is a backwards compatibility definition treeModelSetColumn :: TypedTreeModelClass model         => model row -- ^ the store in which to allocate a new column         -> (ColumnId row ty) -- ^ the column that should be set@@ -153,7 +153,7 @@     --   Return @Nothing@ if the path does not exit.     treeModelIfaceGetIter       :: TreePath -> IO (Maybe TreeIter),              -- convert a path to an iterator     -- | Convert an iterator to a path. The iterator will always be valid.-    treeModelIfaceGetPath       :: TreeIter -> IO TreePath,                      -- convert an interator to a path+    treeModelIfaceGetPath       :: TreeIter -> IO TreePath,                      -- convert an iterator to a path     -- | Retrieve a row at the given iterator.     treeModelIfaceGetRow        :: TreeIter -> IO row,                           -- get the row at an iter     -- | Advance the given iterator to the next node at the same level.@@ -252,7 +252,7 @@       impl <- withForeignPtr model gtk2hs_store_get_impl >>= deRefStablePtr       treeModelIfaceGetRow (customStoreIface impl) iter --- this is a backwards compatability definition+-- this is a backwards compatibility definition treeModelGetRow :: TypedTreeModelClass model => model row -> TreeIter -> IO row treeModelGetRow = customStoreGetRow
Graphics/UI/Gtk/ModelView/Gtk2HsStore.c view
@@ -274,7 +274,7 @@  /**  *- *  gtk2hs_store_init: this is called everytime a new custom list object+ *  gtk2hs_store_init: this is called every time a new custom list object  *                     instance is created (we do that in gtk2hs_store_new).  *                     Initialise the list structure's fields here.  *
Graphics/UI/Gtk/ModelView/IconView.chs view
@@ -304,7 +304,7 @@ -- cannot be modified from within this function. -- iconViewSelectedForeach :: IconViewClass self => self- -> (TreePath -> IO ()) -- ^ @(\path -> ...)@ - The funcion to call for each+ -> (TreePath -> IO ()) -- ^ @(\path -> ...)@ - The function to call for each                         -- selected icon.  -> IO () iconViewSelectedForeach self func = do@@ -700,7 +700,7 @@  -- %hash c:8354 d:f7f3 -- | Retrieve the first and last visible path.--- Note that there may be invisible paths inbetween.+-- Note that there may be invisible paths in between. -- -- * Available since Gtk+ version 2.8 --
Graphics/UI/Gtk/ModelView/ListStore.hs view
@@ -4,7 +4,7 @@ -- --  Author : Duncan Coutts, Axel Simon -----  Created: 11 Feburary 2006+--  Created: 11 February 2006 -- --  Copyright (C) 2005 Duncan Coutts, Axel Simon --@@ -98,8 +98,9 @@   customStoreNew rows ListStore TreeModelIface {       treeModelIfaceGetFlags      = return [TreeModelListOnly],       treeModelIfaceGetIter       = \[n] -> readIORef rows >>= \rows ->-                                     return (if Seq.null rows then Nothing else-                                             Just (TreeIter 0 (fromIntegral n) 0 0)),+                                     return (if inRange (0, Seq.length rows - 1) n+                                                 then Just (TreeIter 0 (fromIntegral n) 0 0)+                                                 else Nothing),       treeModelIfaceGetPath       = \(TreeIter _ n _ _) -> return [fromIntegral n],       treeModelIfaceGetRow        = \(TreeIter _ n _ _) ->                                  readIORef rows >>= \rows ->@@ -112,7 +113,11 @@                                  if inRange (0, Seq.length rows - 1) (fromIntegral (n+1))                                    then return (Just (TreeIter 0 (n+1) 0 0))                                    else return Nothing,-      treeModelIfaceIterChildren  = \_ -> return Nothing,+      treeModelIfaceIterChildren  = \index -> readIORef rows >>= \rows ->+                                         case index of+                                             Nothing | not (Seq.null rows) ->+                                                        return (Just (TreeIter 0 0 0 0))+                                             _       -> return Nothing,       treeModelIfaceIterHasChild  = \_ -> return False,       treeModelIfaceIterNChildren = \index -> readIORef rows >>= \rows ->                                            case index of@@ -279,9 +284,9 @@ listStoreClear (ListStore model) =    -- Since deleting rows can cause callbacks (eg due to selection changes)-  -- we have to make sure the model is consitent with the view at each+  -- we have to make sure the model is consistent with the view at each   -- intermediate step of clearing the store. Otherwise at some intermediate-  -- stage when the view has only been informed about some delections, the+  -- stage when the view has only been informed about some deletions, the   -- user might query the model expecting to find the remaining rows are there   -- but find them deleted. That'd be bad.   --
Graphics/UI/Gtk/ModelView/Sequence.hs view
@@ -74,7 +74,7 @@         ) where  import Prelude hiding (-        null, length, take, drop, splitAt, foldl, foldl1, foldr, foldr1,+        null, length, take, drop, splitAt, foldl, foldl', foldl1, foldr, foldr1,         reverse) import qualified Prelude (foldr) import Data.List (intersperse)
Graphics/UI/Gtk/ModelView/TreeSelection.chs view
@@ -160,7 +160,7 @@     (castFunPtrToPtr fPtr)     destroyFunPtr --- | Callback type for a function that is called everytime the selection+-- | Callback type for a function that is called every time the selection -- changes. This function is set with 'treeSelectionSetSelectFunction'. -- type TreeSelectionCB = TreePath -> IO Bool
Graphics/UI/Gtk/ModelView/TreeStore.hs view
@@ -4,7 +4,7 @@ -- --  Author : Duncan Coutts, Axel Simon -----  Created: 11 Feburary 2006+--  Created: 11 February 2006 -- --  Copyright (C) 2005 Duncan Coutts, Axel Simon --@@ -126,7 +126,7 @@ -- * In addition to 'treeStoreNew', this function takes an two interfaces --   to implement user-defined drag-and-drop functionality. ---treeStoreNewDND :: Forest a -- ^ the inital tree stored in this model+treeStoreNewDND :: Forest a -- ^ the initial tree stored in this model   -> Maybe (DragSourceIface TreeStore a) -- ^ an optional interface for drags   -> Maybe (DragDestIface TreeStore a) -- ^ an optional interface to handle drops   -> IO (TreeStore a)@@ -691,7 +691,7 @@     _ -> fail ("treeStoreGetTree: path does not exist " ++ show path)  -- | Extract a subtree from the current model. Like 'treeStoreGetTree'---   but returns @Nothing@ if the path refers to a non-existant node.+--   but returns @Nothing@ if the path refers to a non-existent node. -- treeStoreLookup :: TreeStore a -> TreePath -> IO (Maybe (Tree a)) treeStoreLookup (TreeStore model) path = do
Graphics/UI/Gtk/ModelView/TreeView.chs view
@@ -318,12 +318,12 @@ -- | Set the 'TreeModel' for the current View. -- treeViewSetModel :: (TreeViewClass self, TreeModelClass model) => self- -> model+ -> Maybe model  -> IO () treeViewSetModel self model =   {# call tree_view_set_model #}     (toTreeView self)-    (toTreeModel model)+    (maybe (TreeModel nullForeignPtr) toTreeModel model)  -- | Retrieve a 'TreeSelection' that -- holds the current selected nodes of the View.@@ -393,7 +393,7 @@   {# call tree_view_columns_autosize #}     (toTreeView self) --- | Set wether the columns headers are sensitive to mouse clicks.+-- | Set whether the columns headers are sensitive to mouse clicks. -- treeViewSetHeadersClickable :: TreeViewClass self => self -> Bool -> IO () treeViewSetHeadersClickable self setting =@@ -683,7 +683,7 @@ -- | Selects a cell in a specific row. -- -- * Similar to 'treeViewSetCursor' but allows a column to---   containt several 'CellRenderer's.+--   contain several 'CellRenderer's. -- -- * Only available in Gtk 2.2 and higher. --@@ -793,7 +793,7 @@     (toTreeView self)     path --- | Call function for every expaned row.+-- | Call function for every expanded row. -- treeViewMapExpandedRows :: TreeViewClass self => self  -> (TreePath -> IO ())@@ -975,7 +975,7 @@ #ifndef DISABLE_DEPRECATED #if GTK_MAJOR_VERSION < 3 -- | 'treeViewTreeToWidgetCoords' has been deprecated since version 2.12 and should not be used in--- newly-written code. Due to historial reasons the name of this function is incorrect. For converting+-- newly-written code. Due to historical reasons the name of this function is incorrect. For converting -- bin window coordinates to coordinates relative to bin window, please see -- 'treeViewConvertBinWindowToWidgetCoords'. --@@ -1000,7 +1000,7 @@   return (fromIntegral wx, fromIntegral wy)  -- | 'treeViewWidgetToTreeCoords' has been deprecated since version 2.12 and should not be used in--- newly-written code. Due to historial reasons the name of this function is incorrect. For converting+-- newly-written code. Due to historical reasons the name of this function is incorrect. For converting -- coordinates relative to the widget to bin window coordinates, please see -- 'treeViewConvertWidgetToBinWindowCoords'. --@@ -1302,7 +1302,7 @@     (toTreeView self)  -- | Enables of disables the hover expansion mode of the tree view. Hover--- expansion makes rows expand or collaps if the pointer moves over them.+-- expansion makes rows expand or collapse if the pointer moves over them. -- -- * Available since Gtk+ version 2.6 --@@ -1631,7 +1631,7 @@  -- | The model for the tree view. ---treeViewModel :: (TreeViewClass self, TreeModelClass model) => ReadWriteAttr self (Maybe TreeModel) model+treeViewModel :: TreeViewClass self => Attr self (Maybe TreeModel) treeViewModel = newAttr   treeViewGetModel   treeViewSetModel@@ -1742,7 +1742,7 @@  -- %hash c:c694 d:3f15 -- | Enables of disables the hover expansion mode of @treeView@. Hover--- expansion makes rows expand or collaps if the pointer moves over them.+-- expansion makes rows expand or collapse if the pointer moves over them. -- -- This mode is primarily intended for 'TreeView's in popups, e.g. in -- 'ComboBox' or 'EntryCompletion'.@@ -1978,7 +1978,7 @@ -- | Determine if this row should be collapsed. -- -- * If the application connects to this function and returns @False@,---   the specifc row will not be altered.+--   the specific row will not be altered. -- onTestCollapseRow, afterTestCollapseRow :: TreeViewClass self => self  -> (TreeIter -> TreePath -> IO Bool)@@ -1991,7 +1991,7 @@ -- | Determine if this row should be expanded. -- -- * If the application connects to this function and returns @False@,---   the specifc row will not be altered.+--   the specific row will not be altered. -- onTestExpandRow, afterTestExpandRow :: TreeViewClass self => self  -> (TreeIter -> TreePath -> IO Bool)
Graphics/UI/Gtk/ModelView/TreeViewColumn.chs view
@@ -258,7 +258,7 @@   {# call unsafe tree_view_column_get_resizable #}     self --- | Set wether the column can be resized.+-- | Set whether the column can be resized. -- treeViewColumnSetSizing :: TreeViewColumn  -> TreeViewColumnSizing
Graphics/UI/Gtk/Multiline/TextIter.chs view
@@ -200,7 +200,7 @@ -- If the element at this iterator is a non-character -- element, such as an image embedded in the buffer, the Unicode \"unknown\" -- character 0xFFFC is returned. If invoked on the end iterator,--- @Nothigng@ is returned.+-- @Nothing@ is returned. -- textIterGetChar :: TextIter -> IO (Maybe Char) textIterGetChar ti = do@@ -499,7 +499,7 @@  -- | Move 'TextIter' forwards. ----- * Retuns True if the iterator is pointing to a character.+-- * Returns True if the iterator is pointing to a character. -- textIterForwardChar :: TextIter -> IO Bool textIterForwardChar ti = liftM toBool $@@ -507,7 +507,7 @@  -- | Move 'TextIter' backwards. ----- * Retuns True if the movement was possible.+-- * Returns True if the movement was possible. -- textIterBackwardChar :: TextIter -> IO Bool textIterBackwardChar ti = liftM toBool $@@ -516,7 +516,7 @@ -- | Move 'TextIter' forwards by -- @n@ characters. ----- * Retuns @True@ if the iterator is pointing to a new character (and @False@ if+-- * Returns @True@ if the iterator is pointing to a new character (and @False@ if --   the iterator points to a picture or has not moved). -- -- *  Note that images embedded@@ -530,7 +530,7 @@ -- | Move 'TextIter' backwards by -- @n@ characters. ----- * Retuns @True@ if the iterator is pointing to a new character (and @False@ if+-- * Returns @True@ if the iterator is pointing to a new character (and @False@ if --   the iterator points to a picture or has not moved). -- textIterBackwardChars :: TextIter -> Int -> IO Bool@@ -540,7 +540,7 @@  -- | Move 'TextIter' forwards. ----- * Retuns True if the iterator is pointing to a new line (and False if the+-- * Returns True if the iterator is pointing to a new line (and False if the --   iterator points to a picture or has not moved). -- -- * If 'TextIter' is on the first line, it will be moved to the@@ -552,7 +552,7 @@  -- | Move 'TextIter' backwards. ----- * Retuns True if the iterator is pointing to a new line (and False if the+-- * Returns True if the iterator is pointing to a new line (and False if the --   iterator points to a picture or has not moved). -- -- * If 'TextIter' is on the first line, it will be moved to the end@@ -566,7 +566,7 @@ -- | Move 'TextIter' forwards by -- @n@ lines. ----- * Retuns True if the iterator is pointing to a new line (and False if the+-- * Returns True if the iterator is pointing to a new line (and False if the --   iterator points to a picture or has not moved). -- -- * If 'TextIter' is on the first line, it will be moved to the@@ -581,7 +581,7 @@ -- | Move 'TextIter' backwards by -- @n@ lines. ----- * Retuns True if the iterator is pointing to a new line (and False if the+-- * Returns True if the iterator is pointing to a new line (and False if the --   iterator points to a picture or has not moved). -- -- * If 'TextIter' is on the first line, it will be moved to the end@@ -596,7 +596,7 @@ -- | Move 'TextIter' forwards by -- @n@ word ends. ----- * Retuns True if the iterator is pointing to a new word end.+-- * Returns True if the iterator is pointing to a new word end. -- textIterForwardWordEnds :: TextIter -> Int -> IO Bool textIterForwardWordEnds ti n = liftM toBool $@@ -605,7 +605,7 @@ -- | Move 'TextIter' backwards by -- @n@ word beginnings. ----- * Retuns True if the iterator is pointing to a new word start.+-- * Returns True if the iterator is pointing to a new word start. -- textIterBackwardWordStarts :: TextIter -> Int -> IO Bool textIterBackwardWordStarts ti n = liftM toBool $@@ -614,7 +614,7 @@ -- | Move 'TextIter' forwards to the -- next word end. ----- * Retuns True if the iterator has moved to a new word end.+-- * Returns True if the iterator has moved to a new word end. -- textIterForwardWordEnd :: TextIter -> IO Bool textIterForwardWordEnd ti = liftM toBool $@@ -623,7 +623,7 @@ -- | Move 'TextIter' backwards to -- the next word beginning. ----- * Retuns True if the iterator has moved to a new word beginning.+-- * Returns True if the iterator has moved to a new word beginning. -- textIterBackwardWordStart :: TextIter -> IO Bool textIterBackwardWordStart ti = liftM toBool $@@ -633,7 +633,7 @@ -- the next cursor position. -- -- * Some characters are composed of two Unicode codes. This function ensures---   that 'TextIter' does not point inbetween such double characters.+--   that 'TextIter' does not point in between such double characters. -- -- * Returns True if 'TextIter' moved and points to a character (not --   to an object).@@ -646,7 +646,7 @@ -- to the next cursor position. -- -- * Some characters are composed of two Unicode codes. This function ensures---   that 'TextIter' does not point inbetween such double characters.+--   that 'TextIter' does not point in between such double characters. -- -- * Returns True if 'TextIter' moved and points to a character (not --   to an object).@@ -679,7 +679,7 @@ -- | Move 'TextIter' forwards by -- @n@ sentence ends. ----- * Retuns True if the iterator is pointing to a new sentence end.+-- * Returns True if the iterator is pointing to a new sentence end. -- textIterForwardSentenceEnds :: TextIter -> Int -> IO Bool textIterForwardSentenceEnds ti n = liftM toBool $@@ -688,7 +688,7 @@ -- | Move 'TextIter' backwards -- by @n@ sentence beginnings. ----- * Retuns True if the iterator is pointing to a new sentence start.+-- * Returns True if the iterator is pointing to a new sentence start. -- textIterBackwardSentenceStarts :: TextIter -> Int -> IO Bool textIterBackwardSentenceStarts ti n = liftM toBool $@@ -697,7 +697,7 @@ -- | Move 'TextIter' forwards to -- the next sentence end. ----- * Retuns True if the iterator has moved to a new sentence end.+-- * Returns True if the iterator has moved to a new sentence end. -- textIterForwardSentenceEnd :: TextIter -> IO Bool textIterForwardSentenceEnd ti = liftM toBool $@@ -706,7 +706,7 @@ -- | Move 'TextIter' backwards -- to the next sentence beginning. ----- * Retuns True if the iterator has moved to a new sentence beginning.+-- * Returns True if the iterator has moved to a new sentence beginning. -- textIterBackwardSentenceStart :: TextIter -> IO Bool textIterBackwardSentenceStart ti = liftM toBool $@@ -942,7 +942,7 @@ -- | Calls 'textIterForwardVisibleWordEnd' up to count times. -- textIterForwardVisibleWordEnds :: TextIter- -> Int   -- ^ @couter@ - number of times to move+ -> Int   -- ^ @counter@ - number of times to move  -> IO Bool -- ^ return @True@ if iter moved and is not the end iterator textIterForwardVisibleWordEnds self count =   liftM toBool $@@ -953,7 +953,7 @@ -- | Calls 'textIterBackwardVisibleWordStart' up to count times. -- textIterBackwardVisibleWordStarts :: TextIter- -> Int   -- ^ @couter@ - number of times to move+ -> Int   -- ^ @counter@ - number of times to move  -> IO Bool -- ^ return @True@ if iter moved and is not the end iterator textIterBackwardVisibleWordStarts self count =   liftM toBool $@@ -1008,7 +1008,7 @@ -- | Moves up to count visible cursor positions. -- See 'textIterForwardCursorPosition' for details. textIterForwardVisibleCursorPositions :: TextIter- -> Int   -- ^ @couter@ - number of times to move+ -> Int   -- ^ @counter@ - number of times to move  -> IO Bool -- ^ return @True@ if iter moved and is not the end iterator textIterForwardVisibleCursorPositions self count =   liftM toBool $@@ -1020,7 +1020,7 @@ -- See 'textIterBackwardCursorPosition' for details. -- textIterBackwardVisibleCursorPositions :: TextIter- -> Int   -- ^ @couter@ - number of times to move+ -> Int   -- ^ @counter@ - number of times to move  -> IO Bool -- ^ return @True@ if iter moved and is not the end iterator textIterBackwardVisibleCursorPositions self count =   liftM toBool $
Graphics/UI/Gtk/Multiline/TextMark.chs view
@@ -189,7 +189,7 @@ -------------------- -- Attributes --- | Retreives the name of a mark.+-- | Retrieves the name of a mark. -- textMarkName :: TextMarkClass self => ReadAttr self (Maybe MarkName) textMarkName = readAttrFromMaybeStringProperty "name"
Graphics/UI/Gtk/Multiline/TextTag.chs view
@@ -253,7 +253,7 @@   {# call text_attributes_copy_values #} src dest  -- | This function is use internal for transform TextAttributes.--- Don't expoert this function.+-- Don't export this function. makeNewTextAttributes :: Ptr TextAttributes -> IO TextAttributes makeNewTextAttributes ptr =   liftM TextAttributes $ newForeignPtr ptr text_attributes_unref
Graphics/UI/Gtk/Multiline/TextView.chs view
@@ -21,13 +21,13 @@ -- TODO -- -- If PangoTabArray is bound:---    Fucntions: textViewSetTabs and textViewGetTabs+--    Functions: textViewSetTabs and textViewGetTabs --    Properties: textViewTabs ----- All on... and after... signales had incorrect names (underscore instead of hypens). Thus+-- All on... and after... signals had incorrect names (underscore instead of hyphens). Thus -- they could not have been used in applications and removing them can't break anything.--- Thus, I've removed them. Also, all key-binding singals are now removed as there is--- no way to add additional key bindings programatically in a type-safe way, let alone+-- Thus, I've removed them. Also, all key-binding signals are now removed as there is+-- no way to add additional key bindings programmatically in a type-safe way, let alone -- use these signals. -- -- |@@ -717,7 +717,7 @@     (fromIntegral xpos)     (fromIntegral ypos) --- | Move a child widget within the 'TextView'. This is really only apprpriate+-- | Move a child widget within the 'TextView'. This is really only appropriate -- for \"floating\" child widgets added using 'textViewAddChildInWindow'. -- textViewMoveChild :: (TextViewClass self, WidgetClass child) => self
Graphics/UI/Gtk/Multiline/Types.chs view
@@ -50,7 +50,7 @@       copyBytes iterPtr' iterPtr textIterSize   return (TextIter iter') --- | Interal marshaling util+-- | Internal marshaling util -- mkTextIterCopy :: Ptr TextIter -> IO TextIter mkTextIterCopy iterPtr = do
Graphics/UI/Gtk/Ornaments/Frame.chs view
@@ -187,7 +187,7 @@ -- frameGetLabel :: (FrameClass self, GlibString string) => self  -> IO string -- ^ returns the text in the label, or if there was no label-              -- widget or the lable widget was not a 'Label' then an+              -- widget or the label widget was not a 'Label' then an               -- exception is thrown frameGetLabel self =   throwIfNull "frameGetLabel: the title of the frame was not a Label widget."
Graphics/UI/Gtk/Printing/PrintOperation.chs view
@@ -249,7 +249,7 @@ -- | Sets the number of pages in the document. -- -- This /must/ be set to a positive number before the rendering starts. It--- may be set in a 'beginPrint' signal hander.+-- may be set in a 'beginPrint' signal handler. -- -- Note that the page numbers passed to the 'requestPageSetup' -- and 'drawPage' signals@@ -327,7 +327,7 @@     ((fromIntegral . fromEnum) unit)  -- | Sets up the 'PrintOperation' to generate a file instead of showing the--- print dialog. The indended use of this function is for implementing \"Export+-- print dialog. The intended use of this function is for implementing \"Export -- to PDF\" actions. Currently, PDF is the only supported format. -- -- \"Print to PDF\" support is independent of this and is done by letting@@ -615,7 +615,7 @@ -- | The number of pages in the document. -- -- This must be set to a positive number before the rendering starts. It may be set in a 'beginPrint'--- signal hander.+-- signal handler. -- -- Note that the page numbers passed to the 'requestPageSetup' and 'drawPage' signals are 0-based, -- i.e. if the user chooses to print all pages, the last 'drawPage' signal will be for page @nPages@ -
Graphics/UI/Gtk/Recent/RecentChooser.chs view
@@ -111,7 +111,7 @@ -- | These identify the various errors that can occur while calling 'RecentChooser' functions. {#enum RecentChooserError {underscoreToCase} deriving (Bounded,Eq,Show)#} --- | Used to specify the sorting method to be applyed to the recently used resource list.+-- | Used to specify the sorting method to be applied to the recently used resource list. {#enum RecentSortType {underscoreToCase} deriving (Bounded,Eq,Show)#}  --------------------@@ -421,7 +421,7 @@  -- | This signal is emitted when there is a change in the set of selected -- recently used resources. This can happen when a user modifies the selection--- with the mouse or the keyboard, or when explicitely calling functions to+-- with the mouse or the keyboard, or when explicitly calling functions to -- change the selection. -- --
Graphics/UI/Gtk/Recent/RecentManager.chs view
@@ -44,7 +44,7 @@ -- -- The 'RecentManager' acts like a database of all the recently used files. -- You can create new 'RecentManager' objects, but it is more efficient to use--- the standard recent manager for the 'Screen' so that informations about the+-- the standard recent manager for the 'Screen' so that information about the -- recently used files is shared with other people using them. In case the -- default screen is being used, adding a new recently used file is as simple -- as:@@ -178,7 +178,7 @@                   (\_ -> return False)  -- | Searches for a URI inside the recently used resources list, and returns a--- structure containing informations about the resource like its MIME type, or+-- structure containing information about the resource like its MIME type, or -- its display name. -- --
Graphics/UI/Gtk/Scrolling/ScrolledWindow.chs view
@@ -189,7 +189,7 @@ -- 'PolicyType' enumeration. If 'PolicyAlways', the scrollbar is always -- present; if 'PolicyNever', the scrollbar is never present; if -- 'PolicyAutomatic', the scrollbar is present only if needed (that is, if the--- slider part of the bar would be smaller than the trough - the display is+-- slider part of the bar would be smaller than the through - the display is -- larger than the page size). -- scrolledWindowSetPolicy :: ScrolledWindowClass self => self
Graphics/UI/Gtk/Selectors/ColorSelection.chs view
@@ -146,7 +146,7 @@ -- colorSelectionGetHasOpacityControl :: ColorSelectionClass self => self  -> IO Bool -- ^ returns @True@ if the color selector has an opacity control.-            -- @False@ if it does't.+            -- @False@ if it doesn't. colorSelectionGetHasOpacityControl self =   liftM toBool $   {# call unsafe color_selection_get_has_opacity_control #}
Graphics/UI/Gtk/Selectors/FileChooser.chs view
@@ -40,7 +40,7 @@ -- -- 'FileChooser' allows for shortcuts to various places in the filesystem. -- In the default implementation these are displayed in the left pane. It may--- be a bit confusing at first taht these shortcuts come from various sources+-- be a bit confusing at first that these shortcuts come from various sources -- and in various flavours, so lets explain the terminology here:  -- ** File Names and Encodings
Graphics/UI/Gtk/Selectors/FileChooserButton.chs view
@@ -75,6 +75,9 @@   fileChooserButtonDialog,   fileChooserButtonTitle,   fileChooserButtonWidthChars,++-- * Signals+  fileChooserButtonFileSet  #endif   ) where @@ -86,6 +89,7 @@ import System.Glib.Properties import Graphics.UI.Gtk.Abstract.Object  (makeNewObject) {#import Graphics.UI.Gtk.Types#}+{#import Graphics.UI.Gtk.Signals#}  #if GTK_CHECK_VERSION(2,6,0) {#import Graphics.UI.Gtk.Selectors.FileChooser#} (FileChooserAction)@@ -216,4 +220,14 @@ fileChooserButtonWidthChars = newAttr   fileChooserButtonGetWidthChars   fileChooserButtonSetWidthChars++--------------------+-- Signals++-- %hash c:b660 d:ab72+-- | Emitted when the user selects a file.+--+fileChooserButtonFileSet :: FileChooserButtonClass self => Signal self (IO ())+fileChooserButtonFileSet = Signal (connect_NONE__NONE "file-set")+ #endif
− Graphics/UI/Gtk/Signals.chs 
@@ -1,954 +0,0 @@-{-# OPTIONS_HADDOCK hide #-}-{-# OPTIONS_GHC -fno-warn-unused-imports #-}--- -*-haskell-*---- -------------------- automatically generated file - do not edit ---------------  Callback installers for the GIMP Toolkit (GTK) Binding for Haskell------  Author : Axel Simon------  Created: 1 July 2000------  Copyright (C) 2000-2005 Axel Simon------  This library is free software; you can redistribute it and/or---  modify it under the terms of the GNU Lesser General Public---  License as published by the Free Software Foundation; either---  version 2.1 of the License, or (at your option) any later version.------  This library is distributed in the hope that it will be useful,---  but WITHOUT ANY WARRANTY; without even the implied warranty of---  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU---  Lesser General Public License for more details.------ #hide---- These functions are used to connect signals to widgets. They are auto---- matically created through HookGenerator.hs which takes a list of possible--- function signatures that are included in the GTK sources (gtkmarshal.list).------ The object system in the second version of GTK is based on GObject from--- GLIB. This base class is rather primitive in that it only implements--- ref and unref methods (and others that are not interesting to us). If--- the marshall list mentions OBJECT it refers to an instance of this--- GObject which is automatically wrapped with a ref and unref call.--- Structures which are not derived from GObject have to be passed as--- BOXED which gives the signal connect function a possibility to do the--- conversion into a proper ForeignPtr type. In special cases the signal--- connect function use a PTR type which will then be mangled in the--- user function directly. The latter is needed if a signal delivers a--- pointer to a string and its length in a separate integer.----module Graphics.UI.Gtk.Signals (-  module System.Glib.Signals,--  connect_BOXED__BOOL,-  connect_PTR__BOOL,-  connect_BOXED_BOXED__BOOL,-  connect_ENUM__BOOL,-  connect_ENUM_DOUBLE__BOOL,-  connect_INT__BOOL,-  connect_OBJECT_BOXED__BOOL,-  connect_INT_INT__BOOL,-  connect_INT_INT_INT__BOOL,-  connect_WORD__BOOL,-  connect_NONE__BOOL,-  connect_BOOL__BOOL,-  connect_NONE__ENUM,-  connect_ENUM__ENUM,-  connect_PTR__INT,-  connect_BOOL__NONE,-  connect_INT__NONE,-  connect_INT_INT__NONE,-  connect_NONE__NONE,-  connect_DOUBLE__NONE,-  connect_BOXED__NONE,-  connect_BOXED_BOXED__NONE,-  connect_BOXED_BOXED_PTR__NONE,-  connect_BOXED_OBJECT__NONE,-  connect_BOXED_WORD__NONE,-  connect_ENUM__NONE,-  connect_ENUM_INT__NONE,-  connect_ENUM_INT_BOOL__NONE,-  connect_OBJECT__NONE,-  connect_MOBJECT__NONE,-  connect_OBJECT_BOXED_BOXED__NONE,-  connect_OBJECT_OBJECT__NONE,-  connect_PTR__NONE,-  connect_PTR_WORD__NONE,-  connect_GLIBSTRING__NONE,-  connect_GLIBSTRING_GLIBSTRING__NONE,-  connect_WORD_WORD__NONE,-  connect_WORD_GLIBSTRING__NONE,-  connect_BOXED_PTR_INT__NONE,-  connect_INT_BOOL__NONE,-  connect_OBJECT_GLIBSTRING__NONE,-  connect_GLIBSTRING__BOOL,-  connect_OBJECT_PTR_BOXED__BOOL,-  connect_PTR_BOXED_BOXED__BOOL,-  connect_PTR_INT_PTR__NONE,-  connect_PTR_WORD_WORD__NONE,-  connect_OBJECT_PTR_WORD_WORD__NONE,-  connect_OBJECT_INT_INT_PTR_WORD_WORD__NONE,-  connect_OBJECT_INT_INT_WORD__BOOL,-  connect_OBJECT_WORD__NONE,-  connect_OBJECT_ENUM__BOOL,-  connect_BOXED_GLIBSTRING__NONE,-  connect_OBJECT_INT__NONE,-  connect_ENUM_BOOL__BOOL,-  connect_BOXED_INT__NONE,-  connect_OBJECT_INT_INT_BOOL_OBJECT__BOOL,-  connect_INT_GLIBSTRING_INT__NONE,-  connect_GLIBSTRING_INT_ENUM_INT__NONE,-  connect_OBJECT__BOOL,-  connect_OBJECT_INT_OBJECT__NONE,-  connect_OBJECT_OBJECT_OBJECT__NONE,-  connect_OBJECT_OBJECT_OBJECT__BOOL,-  connect_ENUM_PTR__NONE,-  -  ) where--import Control.Monad    (liftM)--import System.Glib.FFI-import System.Glib.UTFString   (peekUTFString,maybePeekUTFString,newUTFString)-import qualified System.Glib.UTFString as Glib-import System.Glib.GError      (failOnGError)-{#import System.Glib.Signals#}-{#import System.Glib.GObject#}-import Graphics.UI.Gtk.General.Threading---{#context lib="gtk" prefix="gtk" #}----- Here are the generators that turn a Haskell function into--- a C function pointer. The fist Argument is always the widget,--- the last one is the user g_pointer. Both are ignored.---connect_BOXED__BOOL :: -  GObjectClass obj => SignalName ->-  (Ptr a' -> IO a) -> -  ConnectAfter -> obj ->-  (a -> IO Bool) ->-  IO (ConnectId obj)-connect_BOXED__BOOL signal boxedPre1 after obj user =-  connectGeneric signal after obj action-  where action :: Ptr GObject -> Ptr () -> IO Bool-        action _ box1 =-          failOnGError $-          boxedPre1 (castPtr box1) >>= \box1' ->-          user box1'--connect_PTR__BOOL :: -  GObjectClass obj => SignalName ->-  ConnectAfter -> obj ->-  (Ptr a -> IO Bool) ->-  IO (ConnectId obj)-connect_PTR__BOOL signal after obj user =-  connectGeneric signal after obj action-  where action :: Ptr GObject -> Ptr () -> IO Bool-        action _ ptr1 =-          failOnGError $-          user (castPtr ptr1)--connect_BOXED_BOXED__BOOL :: -  GObjectClass obj => SignalName ->-  (Ptr a' -> IO a) -> (Ptr b' -> IO b) -> -  ConnectAfter -> obj ->-  (a -> b -> IO Bool) ->-  IO (ConnectId obj)-connect_BOXED_BOXED__BOOL signal boxedPre1 boxedPre2 after obj user =-  connectGeneric signal after obj action-  where action :: Ptr GObject -> Ptr () -> Ptr () -> IO Bool-        action _ box1 box2 =-          failOnGError $-          boxedPre2 (castPtr box2) >>= \box2' ->-          boxedPre1 (castPtr box1) >>= \box1' ->-          user box1' box2'--connect_ENUM__BOOL :: -  (Enum a, GObjectClass obj) => SignalName ->-  ConnectAfter -> obj ->-  (a -> IO Bool) ->-  IO (ConnectId obj)-connect_ENUM__BOOL signal after obj user =-  connectGeneric signal after obj action-  where action :: Ptr GObject -> Int -> IO Bool-        action _ enum1 =-          failOnGError $-          user (toEnum enum1)--connect_ENUM_DOUBLE__BOOL :: -  (Enum a, GObjectClass obj) => SignalName ->-  ConnectAfter -> obj ->-  (a -> Double -> IO Bool) ->-  IO (ConnectId obj)-connect_ENUM_DOUBLE__BOOL signal after obj user =-  connectGeneric signal after obj action-  where action :: Ptr GObject -> Int -> Double -> IO Bool-        action _ enum1 double2 =-          failOnGError $-          user (toEnum enum1) double2--connect_INT__BOOL :: -  GObjectClass obj => SignalName ->-  ConnectAfter -> obj ->-  (Int -> IO Bool) ->-  IO (ConnectId obj)-connect_INT__BOOL signal after obj user =-  connectGeneric signal after obj action-  where action :: Ptr GObject -> Int -> IO Bool-        action _ int1 =-          failOnGError $-          user int1--connect_OBJECT_BOXED__BOOL :: -  (GObjectClass a', GObjectClass obj) => SignalName ->-  (Ptr b' -> IO b) -> -  ConnectAfter -> obj ->-  (a' -> b -> IO Bool) ->-  IO (ConnectId obj)-connect_OBJECT_BOXED__BOOL signal boxedPre2 after obj user =-  connectGeneric signal after obj action-  where action :: Ptr GObject -> Ptr GObject -> Ptr () -> IO Bool-        action _ obj1 box2 =-          failOnGError $-          boxedPre2 (castPtr box2) >>= \box2' ->-          makeNewGObject (GObject, objectUnrefFromMainloop) (return obj1) >>= \obj1' ->-          user (unsafeCastGObject obj1') box2'--connect_INT_INT__BOOL :: -  GObjectClass obj => SignalName ->-  ConnectAfter -> obj ->-  (Int -> Int -> IO Bool) ->-  IO (ConnectId obj)-connect_INT_INT__BOOL signal after obj user =-  connectGeneric signal after obj action-  where action :: Ptr GObject -> Int -> Int -> IO Bool-        action _ int1 int2 =-          failOnGError $-          user int1 int2--connect_INT_INT_INT__BOOL :: -  GObjectClass obj => SignalName ->-  ConnectAfter -> obj ->-  (Int -> Int -> Int -> IO Bool) ->-  IO (ConnectId obj)-connect_INT_INT_INT__BOOL signal after obj user =-  connectGeneric signal after obj action-  where action :: Ptr GObject -> Int -> Int -> Int -> IO Bool-        action _ int1 int2 int3 =-          failOnGError $-          user int1 int2 int3--connect_WORD__BOOL :: -  GObjectClass obj => SignalName ->-  ConnectAfter -> obj ->-  (Word -> IO Bool) ->-  IO (ConnectId obj)-connect_WORD__BOOL signal after obj user =-  connectGeneric signal after obj action-  where action :: Ptr GObject -> Word -> IO Bool-        action _ int1 =-          failOnGError $-          user int1--connect_NONE__BOOL :: -  GObjectClass obj => SignalName ->-  ConnectAfter -> obj ->-  (IO Bool) ->-  IO (ConnectId obj)-connect_NONE__BOOL signal after obj user =-  connectGeneric signal after obj action-  where action :: Ptr GObject -> IO Bool-        action _ =-          failOnGError $-          user--connect_BOOL__BOOL :: -  GObjectClass obj => SignalName ->-  ConnectAfter -> obj ->-  (Bool -> IO Bool) ->-  IO (ConnectId obj)-connect_BOOL__BOOL signal after obj user =-  connectGeneric signal after obj action-  where action :: Ptr GObject -> Bool -> IO Bool-        action _ bool1 =-          failOnGError $-          user bool1--connect_NONE__ENUM :: -  (Enum a, GObjectClass obj) => SignalName ->-  ConnectAfter -> obj ->-  (IO a) ->-  IO (ConnectId obj)-connect_NONE__ENUM signal after obj user =-  connectGeneric signal after obj action-  where action :: Ptr GObject -> IO Int-        action _ =-          failOnGError $-          liftM fromEnum $ -          user--connect_ENUM__ENUM :: -  (Enum a, Enum b, GObjectClass obj) => SignalName ->-  ConnectAfter -> obj ->-  (a -> IO b) ->-  IO (ConnectId obj)-connect_ENUM__ENUM signal after obj user =-  connectGeneric signal after obj action-  where action :: Ptr GObject -> Int -> IO Int-        action _ enum1 =-          failOnGError $-          liftM fromEnum $ -          user (toEnum enum1)--connect_PTR__INT :: -  GObjectClass obj => SignalName ->-  ConnectAfter -> obj ->-  (Ptr a -> IO Int) ->-  IO (ConnectId obj)-connect_PTR__INT signal after obj user =-  connectGeneric signal after obj action-  where action :: Ptr GObject -> Ptr () -> IO Int-        action _ ptr1 =-          failOnGError $-          user (castPtr ptr1)--connect_BOOL__NONE :: -  GObjectClass obj => SignalName ->-  ConnectAfter -> obj ->-  (Bool -> IO ()) ->-  IO (ConnectId obj)-connect_BOOL__NONE signal after obj user =-  connectGeneric signal after obj action-  where action :: Ptr GObject -> Bool -> IO ()-        action _ bool1 =-          failOnGError $-          user bool1--connect_INT__NONE :: -  GObjectClass obj => SignalName ->-  ConnectAfter -> obj ->-  (Int -> IO ()) ->-  IO (ConnectId obj)-connect_INT__NONE signal after obj user =-  connectGeneric signal after obj action-  where action :: Ptr GObject -> Int -> IO ()-        action _ int1 =-          failOnGError $-          user int1--connect_INT_INT__NONE :: -  GObjectClass obj => SignalName ->-  ConnectAfter -> obj ->-  (Int -> Int -> IO ()) ->-  IO (ConnectId obj)-connect_INT_INT__NONE signal after obj user =-  connectGeneric signal after obj action-  where action :: Ptr GObject -> Int -> Int -> IO ()-        action _ int1 int2 =-          failOnGError $-          user int1 int2--connect_NONE__NONE :: -  GObjectClass obj => SignalName ->-  ConnectAfter -> obj ->-  (IO ()) ->-  IO (ConnectId obj)-connect_NONE__NONE signal after obj user =-  connectGeneric signal after obj action-  where action :: Ptr GObject -> IO ()-        action _ =-          failOnGError $-          user--connect_DOUBLE__NONE :: -  GObjectClass obj => SignalName ->-  ConnectAfter -> obj ->-  (Double -> IO ()) ->-  IO (ConnectId obj)-connect_DOUBLE__NONE signal after obj user =-  connectGeneric signal after obj action-  where action :: Ptr GObject -> Double -> IO ()-        action _ double1 =-          failOnGError $-          user double1--connect_BOXED__NONE :: -  GObjectClass obj => SignalName ->-  (Ptr a' -> IO a) -> -  ConnectAfter -> obj ->-  (a -> IO ()) ->-  IO (ConnectId obj)-connect_BOXED__NONE signal boxedPre1 after obj user =-  connectGeneric signal after obj action-  where action :: Ptr GObject -> Ptr () -> IO ()-        action _ box1 =-          failOnGError $-          boxedPre1 (castPtr box1) >>= \box1' ->-          user box1'--connect_BOXED_BOXED__NONE :: -  GObjectClass obj => SignalName ->-  (Ptr a' -> IO a) -> (Ptr b' -> IO b) -> -  ConnectAfter -> obj ->-  (a -> b -> IO ()) ->-  IO (ConnectId obj)-connect_BOXED_BOXED__NONE signal boxedPre1 boxedPre2 after obj user =-  connectGeneric signal after obj action-  where action :: Ptr GObject -> Ptr () -> Ptr () -> IO ()-        action _ box1 box2 =-          failOnGError $-          boxedPre2 (castPtr box2) >>= \box2' ->-          boxedPre1 (castPtr box1) >>= \box1' ->-          user box1' box2'--connect_BOXED_BOXED_PTR__NONE :: -  GObjectClass obj => SignalName ->-  (Ptr a' -> IO a) -> (Ptr b' -> IO b) -> -  ConnectAfter -> obj ->-  (a -> b -> Ptr c -> IO ()) ->-  IO (ConnectId obj)-connect_BOXED_BOXED_PTR__NONE signal boxedPre1 boxedPre2 after obj user =-  connectGeneric signal after obj action-  where action :: Ptr GObject -> Ptr () -> Ptr () -> Ptr () -> IO ()-        action _ box1 box2 ptr3 =-          failOnGError $-          boxedPre2 (castPtr box2) >>= \box2' ->-          boxedPre1 (castPtr box1) >>= \box1' ->-          user box1' box2' (castPtr ptr3)--connect_BOXED_OBJECT__NONE :: -  (GObjectClass b', GObjectClass obj) => SignalName ->-  (Ptr a' -> IO a) -> -  ConnectAfter -> obj ->-  (a -> b' -> IO ()) ->-  IO (ConnectId obj)-connect_BOXED_OBJECT__NONE signal boxedPre1 after obj user =-  connectGeneric signal after obj action-  where action :: Ptr GObject -> Ptr () -> Ptr GObject -> IO ()-        action _ box1 obj2 =-          failOnGError $-          makeNewGObject (GObject, objectUnrefFromMainloop) (return obj2) >>= \obj2' ->-          boxedPre1 (castPtr box1) >>= \box1' ->-          user box1' (unsafeCastGObject obj2')--connect_BOXED_WORD__NONE :: -  GObjectClass obj => SignalName ->-  (Ptr a' -> IO a) -> -  ConnectAfter -> obj ->-  (a -> Word -> IO ()) ->-  IO (ConnectId obj)-connect_BOXED_WORD__NONE signal boxedPre1 after obj user =-  connectGeneric signal after obj action-  where action :: Ptr GObject -> Ptr () -> Word -> IO ()-        action _ box1 int2 =-          failOnGError $-          boxedPre1 (castPtr box1) >>= \box1' ->-          user box1' int2--connect_ENUM__NONE :: -  (Enum a, GObjectClass obj) => SignalName ->-  ConnectAfter -> obj ->-  (a -> IO ()) ->-  IO (ConnectId obj)-connect_ENUM__NONE signal after obj user =-  connectGeneric signal after obj action-  where action :: Ptr GObject -> Int -> IO ()-        action _ enum1 =-          failOnGError $-          user (toEnum enum1)--connect_ENUM_INT__NONE :: -  (Enum a, GObjectClass obj) => SignalName ->-  ConnectAfter -> obj ->-  (a -> Int -> IO ()) ->-  IO (ConnectId obj)-connect_ENUM_INT__NONE signal after obj user =-  connectGeneric signal after obj action-  where action :: Ptr GObject -> Int -> Int -> IO ()-        action _ enum1 int2 =-          failOnGError $-          user (toEnum enum1) int2--connect_ENUM_INT_BOOL__NONE :: -  (Enum a, GObjectClass obj) => SignalName ->-  ConnectAfter -> obj ->-  (a -> Int -> Bool -> IO ()) ->-  IO (ConnectId obj)-connect_ENUM_INT_BOOL__NONE signal after obj user =-  connectGeneric signal after obj action-  where action :: Ptr GObject -> Int -> Int -> Bool -> IO ()-        action _ enum1 int2 bool3 =-          failOnGError $-          user (toEnum enum1) int2 bool3--connect_OBJECT__NONE :: -  (GObjectClass a', GObjectClass obj) => SignalName ->-  ConnectAfter -> obj ->-  (a' -> IO ()) ->-  IO (ConnectId obj)-connect_OBJECT__NONE signal after obj user =-  connectGeneric signal after obj action-  where action :: Ptr GObject -> Ptr GObject -> IO ()-        action _ obj1 =-          failOnGError $-          makeNewGObject (GObject, objectUnrefFromMainloop) (return obj1) >>= \obj1' ->-          user (unsafeCastGObject obj1')--connect_MOBJECT__NONE :: -  (GObjectClass a', GObjectClass obj) => SignalName ->-  ConnectAfter -> obj ->-  (Maybe a' -> IO ()) ->-  IO (ConnectId obj)-connect_MOBJECT__NONE signal after obj user =-  connectGeneric signal after obj action-  where action :: Ptr GObject -> Ptr GObject -> IO ()-        action _ obj1 =-          failOnGError $-          maybeNull (makeNewGObject (GObject, objectUnrefFromMainloop)) (return obj1) >>= \obj1' ->-          user (liftM unsafeCastGObject obj1')--connect_OBJECT_BOXED_BOXED__NONE :: -  (GObjectClass a', GObjectClass obj) => SignalName ->-  (Ptr b' -> IO b) -> (Ptr c' -> IO c) -> -  ConnectAfter -> obj ->-  (a' -> b -> c -> IO ()) ->-  IO (ConnectId obj)-connect_OBJECT_BOXED_BOXED__NONE signal boxedPre2 boxedPre3 after obj user =-  connectGeneric signal after obj action-  where action :: Ptr GObject -> Ptr GObject -> Ptr () -> Ptr () -> IO ()-        action _ obj1 box2 box3 =-          failOnGError $-          boxedPre3 (castPtr box3) >>= \box3' ->-          boxedPre2 (castPtr box2) >>= \box2' ->-          makeNewGObject (GObject, objectUnrefFromMainloop) (return obj1) >>= \obj1' ->-          user (unsafeCastGObject obj1') box2' box3'--connect_OBJECT_OBJECT__NONE :: -  (GObjectClass a', GObjectClass b', GObjectClass obj) => SignalName ->-  ConnectAfter -> obj ->-  (a' -> b' -> IO ()) ->-  IO (ConnectId obj)-connect_OBJECT_OBJECT__NONE signal after obj user =-  connectGeneric signal after obj action-  where action :: Ptr GObject -> Ptr GObject -> Ptr GObject -> IO ()-        action _ obj1 obj2 =-          failOnGError $-          makeNewGObject (GObject, objectUnrefFromMainloop) (return obj2) >>= \obj2' ->-          makeNewGObject (GObject, objectUnrefFromMainloop) (return obj1) >>= \obj1' ->-          user (unsafeCastGObject obj1') (unsafeCastGObject obj2')--connect_PTR__NONE :: -  GObjectClass obj => SignalName ->-  ConnectAfter -> obj ->-  (Ptr a -> IO ()) ->-  IO (ConnectId obj)-connect_PTR__NONE signal after obj user =-  connectGeneric signal after obj action-  where action :: Ptr GObject -> Ptr () -> IO ()-        action _ ptr1 =-          failOnGError $-          user (castPtr ptr1)--connect_PTR_WORD__NONE :: -  GObjectClass obj => SignalName ->-  ConnectAfter -> obj ->-  (Ptr a -> Word -> IO ()) ->-  IO (ConnectId obj)-connect_PTR_WORD__NONE signal after obj user =-  connectGeneric signal after obj action-  where action :: Ptr GObject -> Ptr () -> Word -> IO ()-        action _ ptr1 int2 =-          failOnGError $-          user (castPtr ptr1) int2--connect_GLIBSTRING__NONE :: -  (Glib.GlibString a', GObjectClass obj) => SignalName ->-  ConnectAfter -> obj ->-  (a' -> IO ()) ->-  IO (ConnectId obj)-connect_GLIBSTRING__NONE signal after obj user =-  connectGeneric signal after obj action-  where action :: Ptr GObject -> CString -> IO ()-        action _ str1 =-          failOnGError $-          peekUTFString str1 >>= \str1' ->-          user str1'--connect_GLIBSTRING_GLIBSTRING__NONE :: -  (Glib.GlibString a', Glib.GlibString b', GObjectClass obj) => SignalName ->-  ConnectAfter -> obj ->-  (a' -> b' -> IO ()) ->-  IO (ConnectId obj)-connect_GLIBSTRING_GLIBSTRING__NONE signal after obj user =-  connectGeneric signal after obj action-  where action :: Ptr GObject -> CString -> CString -> IO ()-        action _ str1 str2 =-          failOnGError $-          peekUTFString str2 >>= \str2' ->-          peekUTFString str1 >>= \str1' ->-          user str1' str2'--connect_WORD_WORD__NONE :: -  GObjectClass obj => SignalName ->-  ConnectAfter -> obj ->-  (Word -> Word -> IO ()) ->-  IO (ConnectId obj)-connect_WORD_WORD__NONE signal after obj user =-  connectGeneric signal after obj action-  where action :: Ptr GObject -> Word -> Word -> IO ()-        action _ int1 int2 =-          failOnGError $-          user int1 int2--connect_WORD_GLIBSTRING__NONE :: -  (Glib.GlibString b', GObjectClass obj) => SignalName ->-  ConnectAfter -> obj ->-  (Word -> b' -> IO ()) ->-  IO (ConnectId obj)-connect_WORD_GLIBSTRING__NONE signal after obj user =-  connectGeneric signal after obj action-  where action :: Ptr GObject -> Word -> CString -> IO ()-        action _ int1 str2 =-          failOnGError $-          peekUTFString str2 >>= \str2' ->-          user int1 str2'--connect_BOXED_PTR_INT__NONE :: -  GObjectClass obj => SignalName ->-  (Ptr a' -> IO a) -> -  ConnectAfter -> obj ->-  (a -> Ptr b -> Int -> IO ()) ->-  IO (ConnectId obj)-connect_BOXED_PTR_INT__NONE signal boxedPre1 after obj user =-  connectGeneric signal after obj action-  where action :: Ptr GObject -> Ptr () -> Ptr () -> Int -> IO ()-        action _ box1 ptr2 int3 =-          failOnGError $-          boxedPre1 (castPtr box1) >>= \box1' ->-          user box1' (castPtr ptr2) int3--connect_INT_BOOL__NONE :: -  GObjectClass obj => SignalName ->-  ConnectAfter -> obj ->-  (Int -> Bool -> IO ()) ->-  IO (ConnectId obj)-connect_INT_BOOL__NONE signal after obj user =-  connectGeneric signal after obj action-  where action :: Ptr GObject -> Int -> Bool -> IO ()-        action _ int1 bool2 =-          failOnGError $-          user int1 bool2--connect_OBJECT_GLIBSTRING__NONE :: -  (GObjectClass a', Glib.GlibString b', GObjectClass obj) => SignalName ->-  ConnectAfter -> obj ->-  (a' -> b' -> IO ()) ->-  IO (ConnectId obj)-connect_OBJECT_GLIBSTRING__NONE signal after obj user =-  connectGeneric signal after obj action-  where action :: Ptr GObject -> Ptr GObject -> CString -> IO ()-        action _ obj1 str2 =-          failOnGError $-          peekUTFString str2 >>= \str2' ->-          makeNewGObject (GObject, objectUnrefFromMainloop) (return obj1) >>= \obj1' ->-          user (unsafeCastGObject obj1') str2'--connect_GLIBSTRING__BOOL :: -  (Glib.GlibString a', GObjectClass obj) => SignalName ->-  ConnectAfter -> obj ->-  (a' -> IO Bool) ->-  IO (ConnectId obj)-connect_GLIBSTRING__BOOL signal after obj user =-  connectGeneric signal after obj action-  where action :: Ptr GObject -> CString -> IO Bool-        action _ str1 =-          failOnGError $-          peekUTFString str1 >>= \str1' ->-          user str1'--connect_OBJECT_PTR_BOXED__BOOL :: -  (GObjectClass a', GObjectClass obj) => SignalName ->-  (Ptr c' -> IO c) -> -  ConnectAfter -> obj ->-  (a' -> Ptr b -> c -> IO Bool) ->-  IO (ConnectId obj)-connect_OBJECT_PTR_BOXED__BOOL signal boxedPre3 after obj user =-  connectGeneric signal after obj action-  where action :: Ptr GObject -> Ptr GObject -> Ptr () -> Ptr () -> IO Bool-        action _ obj1 ptr2 box3 =-          failOnGError $-          boxedPre3 (castPtr box3) >>= \box3' ->-          makeNewGObject (GObject, objectUnrefFromMainloop) (return obj1) >>= \obj1' ->-          user (unsafeCastGObject obj1') (castPtr ptr2) box3'--connect_PTR_BOXED_BOXED__BOOL :: -  GObjectClass obj => SignalName ->-  (Ptr b' -> IO b) -> (Ptr c' -> IO c) -> -  ConnectAfter -> obj ->-  (Ptr a -> b -> c -> IO Bool) ->-  IO (ConnectId obj)-connect_PTR_BOXED_BOXED__BOOL signal boxedPre2 boxedPre3 after obj user =-  connectGeneric signal after obj action-  where action :: Ptr GObject -> Ptr () -> Ptr () -> Ptr () -> IO Bool-        action _ ptr1 box2 box3 =-          failOnGError $-          boxedPre3 (castPtr box3) >>= \box3' ->-          boxedPre2 (castPtr box2) >>= \box2' ->-          user (castPtr ptr1) box2' box3'--connect_PTR_INT_PTR__NONE :: -  GObjectClass obj => SignalName ->-  ConnectAfter -> obj ->-  (Ptr a -> Int -> Ptr c -> IO ()) ->-  IO (ConnectId obj)-connect_PTR_INT_PTR__NONE signal after obj user =-  connectGeneric signal after obj action-  where action :: Ptr GObject -> Ptr () -> Int -> Ptr () -> IO ()-        action _ ptr1 int2 ptr3 =-          failOnGError $-          user (castPtr ptr1) int2 (castPtr ptr3)--connect_PTR_WORD_WORD__NONE :: -  GObjectClass obj => SignalName ->-  ConnectAfter -> obj ->-  (Ptr a -> Word -> Word -> IO ()) ->-  IO (ConnectId obj)-connect_PTR_WORD_WORD__NONE signal after obj user =-  connectGeneric signal after obj action-  where action :: Ptr GObject -> Ptr () -> Word -> Word -> IO ()-        action _ ptr1 int2 int3 =-          failOnGError $-          user (castPtr ptr1) int2 int3--connect_OBJECT_PTR_WORD_WORD__NONE :: -  (GObjectClass a', GObjectClass obj) => SignalName ->-  ConnectAfter -> obj ->-  (a' -> Ptr b -> Word -> Word -> IO ()) ->-  IO (ConnectId obj)-connect_OBJECT_PTR_WORD_WORD__NONE signal after obj user =-  connectGeneric signal after obj action-  where action :: Ptr GObject -> Ptr GObject -> Ptr () -> Word -> Word -> IO ()-        action _ obj1 ptr2 int3 int4 =-          failOnGError $-          makeNewGObject (GObject, objectUnrefFromMainloop) (return obj1) >>= \obj1' ->-          user (unsafeCastGObject obj1') (castPtr ptr2) int3 int4--connect_OBJECT_INT_INT_PTR_WORD_WORD__NONE :: -  (GObjectClass a', GObjectClass obj) => SignalName ->-  ConnectAfter -> obj ->-  (a' -> Int -> Int -> Ptr d -> Word -> Word -> IO ()) ->-  IO (ConnectId obj)-connect_OBJECT_INT_INT_PTR_WORD_WORD__NONE signal after obj user =-  connectGeneric signal after obj action-  where action :: Ptr GObject -> Ptr GObject -> Int -> Int -> Ptr () -> Word -> Word -> IO ()-        action _ obj1 int2 int3 ptr4 int5 int6 =-          failOnGError $-          makeNewGObject (GObject, objectUnrefFromMainloop) (return obj1) >>= \obj1' ->-          user (unsafeCastGObject obj1') int2 int3 (castPtr ptr4) int5 int6--connect_OBJECT_INT_INT_WORD__BOOL :: -  (GObjectClass a', GObjectClass obj) => SignalName ->-  ConnectAfter -> obj ->-  (a' -> Int -> Int -> Word -> IO Bool) ->-  IO (ConnectId obj)-connect_OBJECT_INT_INT_WORD__BOOL signal after obj user =-  connectGeneric signal after obj action-  where action :: Ptr GObject -> Ptr GObject -> Int -> Int -> Word -> IO Bool-        action _ obj1 int2 int3 int4 =-          failOnGError $-          makeNewGObject (GObject, objectUnrefFromMainloop) (return obj1) >>= \obj1' ->-          user (unsafeCastGObject obj1') int2 int3 int4--connect_OBJECT_WORD__NONE :: -  (GObjectClass a', GObjectClass obj) => SignalName ->-  ConnectAfter -> obj ->-  (a' -> Word -> IO ()) ->-  IO (ConnectId obj)-connect_OBJECT_WORD__NONE signal after obj user =-  connectGeneric signal after obj action-  where action :: Ptr GObject -> Ptr GObject -> Word -> IO ()-        action _ obj1 int2 =-          failOnGError $-          makeNewGObject (GObject, objectUnrefFromMainloop) (return obj1) >>= \obj1' ->-          user (unsafeCastGObject obj1') int2--connect_OBJECT_ENUM__BOOL :: -  (GObjectClass a', Enum b, GObjectClass obj) => SignalName ->-  ConnectAfter -> obj ->-  (a' -> b -> IO Bool) ->-  IO (ConnectId obj)-connect_OBJECT_ENUM__BOOL signal after obj user =-  connectGeneric signal after obj action-  where action :: Ptr GObject -> Ptr GObject -> Int -> IO Bool-        action _ obj1 enum2 =-          failOnGError $-          makeNewGObject (GObject, objectUnrefFromMainloop) (return obj1) >>= \obj1' ->-          user (unsafeCastGObject obj1') (toEnum enum2)--connect_BOXED_GLIBSTRING__NONE :: -  (Glib.GlibString b', GObjectClass obj) => SignalName ->-  (Ptr a' -> IO a) -> -  ConnectAfter -> obj ->-  (a -> b' -> IO ()) ->-  IO (ConnectId obj)-connect_BOXED_GLIBSTRING__NONE signal boxedPre1 after obj user =-  connectGeneric signal after obj action-  where action :: Ptr GObject -> Ptr () -> CString -> IO ()-        action _ box1 str2 =-          failOnGError $-          peekUTFString str2 >>= \str2' ->-          boxedPre1 (castPtr box1) >>= \box1' ->-          user box1' str2'--connect_OBJECT_INT__NONE :: -  (GObjectClass a', GObjectClass obj) => SignalName ->-  ConnectAfter -> obj ->-  (a' -> Int -> IO ()) ->-  IO (ConnectId obj)-connect_OBJECT_INT__NONE signal after obj user =-  connectGeneric signal after obj action-  where action :: Ptr GObject -> Ptr GObject -> Int -> IO ()-        action _ obj1 int2 =-          failOnGError $-          makeNewGObject (GObject, objectUnrefFromMainloop) (return obj1) >>= \obj1' ->-          user (unsafeCastGObject obj1') int2--connect_ENUM_BOOL__BOOL :: -  (Enum a, GObjectClass obj) => SignalName ->-  ConnectAfter -> obj ->-  (a -> Bool -> IO Bool) ->-  IO (ConnectId obj)-connect_ENUM_BOOL__BOOL signal after obj user =-  connectGeneric signal after obj action-  where action :: Ptr GObject -> Int -> Bool -> IO Bool-        action _ enum1 bool2 =-          failOnGError $-          user (toEnum enum1) bool2--connect_BOXED_INT__NONE :: -  GObjectClass obj => SignalName ->-  (Ptr a' -> IO a) -> -  ConnectAfter -> obj ->-  (a -> Int -> IO ()) ->-  IO (ConnectId obj)-connect_BOXED_INT__NONE signal boxedPre1 after obj user =-  connectGeneric signal after obj action-  where action :: Ptr GObject -> Ptr () -> Int -> IO ()-        action _ box1 int2 =-          failOnGError $-          boxedPre1 (castPtr box1) >>= \box1' ->-          user box1' int2--connect_OBJECT_INT_INT_BOOL_OBJECT__BOOL :: -  (GObjectClass a', GObjectClass e', GObjectClass obj) => SignalName ->-  ConnectAfter -> obj ->-  (a' -> Int -> Int -> Bool -> e' -> IO Bool) ->-  IO (ConnectId obj)-connect_OBJECT_INT_INT_BOOL_OBJECT__BOOL signal after obj user =-  connectGeneric signal after obj action-  where action :: Ptr GObject -> Ptr GObject -> Int -> Int -> Bool -> Ptr GObject -> IO Bool-        action _ obj1 int2 int3 bool4 obj5 =-          failOnGError $-          makeNewGObject (GObject, objectUnrefFromMainloop) (return obj5) >>= \obj5' ->-          makeNewGObject (GObject, objectUnrefFromMainloop) (return obj1) >>= \obj1' ->-          user (unsafeCastGObject obj1') int2 int3 bool4 (unsafeCastGObject obj5')--connect_INT_GLIBSTRING_INT__NONE :: -  (Glib.GlibString b', GObjectClass obj) => SignalName ->-  ConnectAfter -> obj ->-  (Int -> b' -> Int -> IO ()) ->-  IO (ConnectId obj)-connect_INT_GLIBSTRING_INT__NONE signal after obj user =-  connectGeneric signal after obj action-  where action :: Ptr GObject -> Int -> CString -> Int -> IO ()-        action _ int1 str2 int3 =-          failOnGError $-          peekUTFString str2 >>= \str2' ->-          user int1 str2' int3--connect_GLIBSTRING_INT_ENUM_INT__NONE :: -  (Glib.GlibString a', Enum c, GObjectClass obj) => SignalName ->-  ConnectAfter -> obj ->-  (a' -> Int -> c -> Int -> IO ()) ->-  IO (ConnectId obj)-connect_GLIBSTRING_INT_ENUM_INT__NONE signal after obj user =-  connectGeneric signal after obj action-  where action :: Ptr GObject -> CString -> Int -> Int -> Int -> IO ()-        action _ str1 int2 enum3 int4 =-          failOnGError $-          peekUTFString str1 >>= \str1' ->-          user str1' int2 (toEnum enum3) int4--connect_OBJECT__BOOL :: -  (GObjectClass a', GObjectClass obj) => SignalName ->-  ConnectAfter -> obj ->-  (a' -> IO Bool) ->-  IO (ConnectId obj)-connect_OBJECT__BOOL signal after obj user =-  connectGeneric signal after obj action-  where action :: Ptr GObject -> Ptr GObject -> IO Bool-        action _ obj1 =-          failOnGError $-          makeNewGObject (GObject, objectUnref) (return obj1) >>= \obj1' ->-          user (unsafeCastGObject obj1')--connect_OBJECT_INT_OBJECT__NONE :: -  (GObjectClass a', GObjectClass c', GObjectClass obj) => SignalName ->-  ConnectAfter -> obj ->-  (a' -> Int -> c' -> IO ()) ->-  IO (ConnectId obj)-connect_OBJECT_INT_OBJECT__NONE signal after obj user =-  connectGeneric signal after obj action-  where action :: Ptr GObject -> Ptr GObject -> Int -> Ptr GObject -> IO ()-        action _ obj1 int2 obj3 =-          failOnGError $-          makeNewGObject (GObject, objectUnref) (return obj3) >>= \obj3' ->-          makeNewGObject (GObject, objectUnref) (return obj1) >>= \obj1' ->-          user (unsafeCastGObject obj1') int2 (unsafeCastGObject obj3')--connect_OBJECT_OBJECT_OBJECT__NONE :: -  (GObjectClass a', GObjectClass b', GObjectClass c', GObjectClass obj) => SignalName ->-  ConnectAfter -> obj ->-  (a' -> b' -> c' -> IO ()) ->-  IO (ConnectId obj)-connect_OBJECT_OBJECT_OBJECT__NONE signal after obj user =-  connectGeneric signal after obj action-  where action :: Ptr GObject -> Ptr GObject -> Ptr GObject -> Ptr GObject -> IO ()-        action _ obj1 obj2 obj3 =-          failOnGError $-          makeNewGObject (GObject, objectUnref) (return obj3) >>= \obj3' ->-          makeNewGObject (GObject, objectUnref) (return obj2) >>= \obj2' ->-          makeNewGObject (GObject, objectUnref) (return obj1) >>= \obj1' ->-          user (unsafeCastGObject obj1') (unsafeCastGObject obj2') (unsafeCastGObject obj3')--connect_OBJECT_OBJECT_OBJECT__BOOL :: -  (GObjectClass a', GObjectClass b', GObjectClass c', GObjectClass obj) => SignalName ->-  ConnectAfter -> obj ->-  (a' -> b' -> c' -> IO Bool) ->-  IO (ConnectId obj)-connect_OBJECT_OBJECT_OBJECT__BOOL signal after obj user =-  connectGeneric signal after obj action-  where action :: Ptr GObject -> Ptr GObject -> Ptr GObject -> Ptr GObject -> IO Bool-        action _ obj1 obj2 obj3 =-          failOnGError $-          makeNewGObject (GObject, objectUnref) (return obj3) >>= \obj3' ->-          makeNewGObject (GObject, objectUnref) (return obj2) >>= \obj2' ->-          makeNewGObject (GObject, objectUnref) (return obj1) >>= \obj1' ->-          user (unsafeCastGObject obj1') (unsafeCastGObject obj2') (unsafeCastGObject obj3')--connect_ENUM_PTR__NONE :: -  (Enum a, GObjectClass obj) => SignalName ->-  ConnectAfter -> obj ->-  (a -> Ptr b -> IO ()) ->-  IO (ConnectId obj)-connect_ENUM_PTR__NONE signal after obj user =-  connectGeneric signal after obj action-  where action :: Ptr GObject -> Int -> Ptr () -> IO ()-        action _ enum1 ptr2 =-          failOnGError $-          user (toEnum enum1) (castPtr ptr2)-
− Graphics/UI/Gtk/Types.chs 
@@ -1,5164 +0,0 @@-{-# LANGUAGE CPP #-}-{-# OPTIONS_HADDOCK hide #-}-{-# OPTIONS_GHC -fno-warn-unused-imports #-}--- -*-haskell-*---- -------------------- automatically generated file - do not edit -------------  Object hierarchy for the GIMP Toolkit (GTK) Binding for Haskell------  Author : Axel Simon------  Copyright (C) 2001-2005 Axel Simon------  This library is free software; you can redistribute it and/or---  modify it under the terms of the GNU Lesser General Public---  License as published by the Free Software Foundation; either---  version 2.1 of the License, or (at your option) any later version.------  This library is distributed in the hope that it will be useful,---  but WITHOUT ANY WARRANTY; without even the implied warranty of---  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU---  Lesser General Public License for more details.------ #hide---- |--- Maintainer  : gtk2hs-users@lists.sourceforge.net--- Stability   : provisional--- Portability : portable (depends on GHC)------ This file reflects the Gtk+ object hierarchy in terms of Haskell classes.------ Note: the mk... functions were originally meant to simply be an alias--- for the constructor. However, in order to communicate the destructor--- of an object to objectNew, the mk... functions are now a tuple containing--- Haskell constructor and the destructor function pointer. This hack avoids--- changing all modules that simply pass mk... to objectNew.----module Graphics.UI.Gtk.Types (--  module System.Glib.GObject,-  module Graphics.UI.Gtk.General.Threading,-  AtkObject(AtkObject), AtkObjectClass,-  toAtkObject, -  mkAtkObject, unAtkObject,-  castToAtkObject, gTypeAtkObject,-  Accessible(Accessible), AccessibleClass,-  toAccessible, -  mkAccessible, unAccessible,-  castToAccessible, gTypeAccessible,-  Keymap(Keymap), KeymapClass,-  toKeymap, -  mkKeymap, unKeymap,-  castToKeymap, gTypeKeymap,-  DisplayManager(DisplayManager), DisplayManagerClass,-  toDisplayManager, -  mkDisplayManager, unDisplayManager,-  castToDisplayManager, gTypeDisplayManager,-  AppLaunchContext(AppLaunchContext), AppLaunchContextClass,-  toAppLaunchContext, -  mkAppLaunchContext, unAppLaunchContext,-  castToAppLaunchContext, gTypeAppLaunchContext,-  PrintSettings(PrintSettings), PrintSettingsClass,-  toPrintSettings, -  mkPrintSettings, unPrintSettings,-  castToPrintSettings, gTypePrintSettings,-  PrintOperation(PrintOperation), PrintOperationClass,-  toPrintOperation, -  mkPrintOperation, unPrintOperation,-  castToPrintOperation, gTypePrintOperation,-  PrintOperationPreview(PrintOperationPreview), PrintOperationPreviewClass,-  toPrintOperationPreview, -  mkPrintOperationPreview, unPrintOperationPreview,-  castToPrintOperationPreview, gTypePrintOperationPreview,-  PageSetup(PageSetup), PageSetupClass,-  toPageSetup, -  mkPageSetup, unPageSetup,-  castToPageSetup, gTypePageSetup,-  PrintContext(PrintContext), PrintContextClass,-  toPrintContext, -  mkPrintContext, unPrintContext,-  castToPrintContext, gTypePrintContext,-  RecentChooser(RecentChooser), RecentChooserClass,-  toRecentChooser, -  mkRecentChooser, unRecentChooser,-  castToRecentChooser, gTypeRecentChooser,-  RecentManager(RecentManager), RecentManagerClass,-  toRecentManager, -  mkRecentManager, unRecentManager,-  castToRecentManager, gTypeRecentManager,-  DrawWindow(DrawWindow), DrawWindowClass,-  toDrawWindow, -  mkDrawWindow, unDrawWindow,-  castToDrawWindow, gTypeDrawWindow,-  Screen(Screen), ScreenClass,-  toScreen, -  mkScreen, unScreen,-  castToScreen, gTypeScreen,-  Display(Display), DisplayClass,-  toDisplay, -  mkDisplay, unDisplay,-  castToDisplay, gTypeDisplay,-  Visual(Visual), VisualClass,-  toVisual, -  mkVisual, unVisual,-  castToVisual, gTypeVisual,-  Device(Device), DeviceClass,-  toDevice, -  mkDevice, unDevice,-  castToDevice, gTypeDevice,-  FrameClock(FrameClock), FrameClockClass,-  toFrameClock, -  mkFrameClock, unFrameClock,-  castToFrameClock, gTypeFrameClock,-  Settings(Settings), SettingsClass,-  toSettings, -  mkSettings, unSettings,-  castToSettings, gTypeSettings,-  TextBuffer(TextBuffer), TextBufferClass,-  toTextBuffer, -  mkTextBuffer, unTextBuffer,-  castToTextBuffer, gTypeTextBuffer,-  TextTag(TextTag), TextTagClass,-  toTextTag, -  mkTextTag, unTextTag,-  castToTextTag, gTypeTextTag,-  TextTagTable(TextTagTable), TextTagTableClass,-  toTextTagTable, -  mkTextTagTable, unTextTagTable,-  castToTextTagTable, gTypeTextTagTable,-  Style(Style), StyleClass,-  toStyle, -  mkStyle, unStyle,-  castToStyle, gTypeStyle,-  RcStyle(RcStyle), RcStyleClass,-  toRcStyle, -  mkRcStyle, unRcStyle,-  castToRcStyle, gTypeRcStyle,-  DragContext(DragContext), DragContextClass,-  toDragContext, -  mkDragContext, unDragContext,-  castToDragContext, gTypeDragContext,-  Pixbuf(Pixbuf), PixbufClass,-  toPixbuf, -  mkPixbuf, unPixbuf,-  castToPixbuf, gTypePixbuf,-  PixbufAnimation(PixbufAnimation), PixbufAnimationClass,-  toPixbufAnimation, -  mkPixbufAnimation, unPixbufAnimation,-  castToPixbufAnimation, gTypePixbufAnimation,-  PixbufSimpleAnim(PixbufSimpleAnim), PixbufSimpleAnimClass,-  toPixbufSimpleAnim, -  mkPixbufSimpleAnim, unPixbufSimpleAnim,-  castToPixbufSimpleAnim, gTypePixbufSimpleAnim,-  PixbufAnimationIter(PixbufAnimationIter), PixbufAnimationIterClass,-  toPixbufAnimationIter, -  mkPixbufAnimationIter, unPixbufAnimationIter,-  castToPixbufAnimationIter, gTypePixbufAnimationIter,-  TextChildAnchor(TextChildAnchor), TextChildAnchorClass,-  toTextChildAnchor, -  mkTextChildAnchor, unTextChildAnchor,-  castToTextChildAnchor, gTypeTextChildAnchor,-  TextMark(TextMark), TextMarkClass,-  toTextMark, -  mkTextMark, unTextMark,-  castToTextMark, gTypeTextMark,-  RecentFilter(RecentFilter), RecentFilterClass,-  toRecentFilter, -  mkRecentFilter, unRecentFilter,-  castToRecentFilter, gTypeRecentFilter,-  Widget(Widget), WidgetClass,-  toWidget, -  mkWidget, unWidget,-  castToWidget, gTypeWidget,-  HSV(HSV), HSVClass,-  toHSV, -  mkHSV, unHSV,-  castToHSV, gTypeHSV,-  Misc(Misc), MiscClass,-  toMisc, -  mkMisc, unMisc,-  castToMisc, gTypeMisc,-  Label(Label), LabelClass,-  toLabel, -  mkLabel, unLabel,-  castToLabel, gTypeLabel,-  AccelLabel(AccelLabel), AccelLabelClass,-  toAccelLabel, -  mkAccelLabel, unAccelLabel,-  castToAccelLabel, gTypeAccelLabel,-  Arrow(Arrow), ArrowClass,-  toArrow, -  mkArrow, unArrow,-  castToArrow, gTypeArrow,-  Image(Image), ImageClass,-  toImage, -  mkImage, unImage,-  castToImage, gTypeImage,-  Container(Container), ContainerClass,-  toContainer, -  mkContainer, unContainer,-  castToContainer, gTypeContainer,-  ToolPalette(ToolPalette), ToolPaletteClass,-  toToolPalette, -  mkToolPalette, unToolPalette,-  castToToolPalette, gTypeToolPalette,-  ToolItemGroup(ToolItemGroup), ToolItemGroupClass,-  toToolItemGroup, -  mkToolItemGroup, unToolItemGroup,-  castToToolItemGroup, gTypeToolItemGroup,-  Bin(Bin), BinClass,-  toBin, -  mkBin, unBin,-  castToBin, gTypeBin,-  Alignment(Alignment), AlignmentClass,-  toAlignment, -  mkAlignment, unAlignment,-  castToAlignment, gTypeAlignment,-  Frame(Frame), FrameClass,-  toFrame, -  mkFrame, unFrame,-  castToFrame, gTypeFrame,-  AspectFrame(AspectFrame), AspectFrameClass,-  toAspectFrame, -  mkAspectFrame, unAspectFrame,-  castToAspectFrame, gTypeAspectFrame,-  Button(Button), ButtonClass,-  toButton, -  mkButton, unButton,-  castToButton, gTypeButton,-  ScaleButton(ScaleButton), ScaleButtonClass,-  toScaleButton, -  mkScaleButton, unScaleButton,-  castToScaleButton, gTypeScaleButton,-  VolumeButton(VolumeButton), VolumeButtonClass,-  toVolumeButton, -  mkVolumeButton, unVolumeButton,-  castToVolumeButton, gTypeVolumeButton,-  LinkButton(LinkButton), LinkButtonClass,-  toLinkButton, -  mkLinkButton, unLinkButton,-  castToLinkButton, gTypeLinkButton,-  ToggleButton(ToggleButton), ToggleButtonClass,-  toToggleButton, -  mkToggleButton, unToggleButton,-  castToToggleButton, gTypeToggleButton,-  CheckButton(CheckButton), CheckButtonClass,-  toCheckButton, -  mkCheckButton, unCheckButton,-  castToCheckButton, gTypeCheckButton,-  RadioButton(RadioButton), RadioButtonClass,-  toRadioButton, -  mkRadioButton, unRadioButton,-  castToRadioButton, gTypeRadioButton,-  ColorButton(ColorButton), ColorButtonClass,-  toColorButton, -  mkColorButton, unColorButton,-  castToColorButton, gTypeColorButton,-  FontButton(FontButton), FontButtonClass,-  toFontButton, -  mkFontButton, unFontButton,-  castToFontButton, gTypeFontButton,-  MenuItem(MenuItem), MenuItemClass,-  toMenuItem, -  mkMenuItem, unMenuItem,-  castToMenuItem, gTypeMenuItem,-  CheckMenuItem(CheckMenuItem), CheckMenuItemClass,-  toCheckMenuItem, -  mkCheckMenuItem, unCheckMenuItem,-  castToCheckMenuItem, gTypeCheckMenuItem,-  RadioMenuItem(RadioMenuItem), RadioMenuItemClass,-  toRadioMenuItem, -  mkRadioMenuItem, unRadioMenuItem,-  castToRadioMenuItem, gTypeRadioMenuItem,-  TearoffMenuItem(TearoffMenuItem), TearoffMenuItemClass,-  toTearoffMenuItem, -  mkTearoffMenuItem, unTearoffMenuItem,-  castToTearoffMenuItem, gTypeTearoffMenuItem,-  ImageMenuItem(ImageMenuItem), ImageMenuItemClass,-  toImageMenuItem, -  mkImageMenuItem, unImageMenuItem,-  castToImageMenuItem, gTypeImageMenuItem,-  SeparatorMenuItem(SeparatorMenuItem), SeparatorMenuItemClass,-  toSeparatorMenuItem, -  mkSeparatorMenuItem, unSeparatorMenuItem,-  castToSeparatorMenuItem, gTypeSeparatorMenuItem,-  Overlay(Overlay), OverlayClass,-  toOverlay, -  mkOverlay, unOverlay,-  castToOverlay, gTypeOverlay,-  Window(Window), WindowClass,-  toWindow, -  mkWindow, unWindow,-  castToWindow, gTypeWindow,-  Assistant(Assistant), AssistantClass,-  toAssistant, -  mkAssistant, unAssistant,-  castToAssistant, gTypeAssistant,-  OffscreenWindow(OffscreenWindow), OffscreenWindowClass,-  toOffscreenWindow, -  mkOffscreenWindow, unOffscreenWindow,-  castToOffscreenWindow, gTypeOffscreenWindow,-  Dialog(Dialog), DialogClass,-  toDialog, -  mkDialog, unDialog,-  castToDialog, gTypeDialog,-  AboutDialog(AboutDialog), AboutDialogClass,-  toAboutDialog, -  mkAboutDialog, unAboutDialog,-  castToAboutDialog, gTypeAboutDialog,-  ColorSelectionDialog(ColorSelectionDialog), ColorSelectionDialogClass,-  toColorSelectionDialog, -  mkColorSelectionDialog, unColorSelectionDialog,-  castToColorSelectionDialog, gTypeColorSelectionDialog,-  FileChooserDialog(FileChooserDialog), FileChooserDialogClass,-  toFileChooserDialog, -  mkFileChooserDialog, unFileChooserDialog,-  castToFileChooserDialog, gTypeFileChooserDialog,-  FontSelectionDialog(FontSelectionDialog), FontSelectionDialogClass,-  toFontSelectionDialog, -  mkFontSelectionDialog, unFontSelectionDialog,-  castToFontSelectionDialog, gTypeFontSelectionDialog,-  MessageDialog(MessageDialog), MessageDialogClass,-  toMessageDialog, -  mkMessageDialog, unMessageDialog,-  castToMessageDialog, gTypeMessageDialog,-  EventBox(EventBox), EventBoxClass,-  toEventBox, -  mkEventBox, unEventBox,-  castToEventBox, gTypeEventBox,-  HandleBox(HandleBox), HandleBoxClass,-  toHandleBox, -  mkHandleBox, unHandleBox,-  castToHandleBox, gTypeHandleBox,-  ScrolledWindow(ScrolledWindow), ScrolledWindowClass,-  toScrolledWindow, -  mkScrolledWindow, unScrolledWindow,-  castToScrolledWindow, gTypeScrolledWindow,-  Viewport(Viewport), ViewportClass,-  toViewport, -  mkViewport, unViewport,-  castToViewport, gTypeViewport,-  Expander(Expander), ExpanderClass,-  toExpander, -  mkExpander, unExpander,-  castToExpander, gTypeExpander,-  ComboBox(ComboBox), ComboBoxClass,-  toComboBox, -  mkComboBox, unComboBox,-  castToComboBox, gTypeComboBox,-  ToolItem(ToolItem), ToolItemClass,-  toToolItem, -  mkToolItem, unToolItem,-  castToToolItem, gTypeToolItem,-  ToolButton(ToolButton), ToolButtonClass,-  toToolButton, -  mkToolButton, unToolButton,-  castToToolButton, gTypeToolButton,-  MenuToolButton(MenuToolButton), MenuToolButtonClass,-  toMenuToolButton, -  mkMenuToolButton, unMenuToolButton,-  castToMenuToolButton, gTypeMenuToolButton,-  ToggleToolButton(ToggleToolButton), ToggleToolButtonClass,-  toToggleToolButton, -  mkToggleToolButton, unToggleToolButton,-  castToToggleToolButton, gTypeToggleToolButton,-  RadioToolButton(RadioToolButton), RadioToolButtonClass,-  toRadioToolButton, -  mkRadioToolButton, unRadioToolButton,-  castToRadioToolButton, gTypeRadioToolButton,-  SeparatorToolItem(SeparatorToolItem), SeparatorToolItemClass,-  toSeparatorToolItem, -  mkSeparatorToolItem, unSeparatorToolItem,-  castToSeparatorToolItem, gTypeSeparatorToolItem,-  Box(Box), BoxClass,-  toBox, -  mkBox, unBox,-  castToBox, gTypeBox,-  ButtonBox(ButtonBox), ButtonBoxClass,-  toButtonBox, -  mkButtonBox, unButtonBox,-  castToButtonBox, gTypeButtonBox,-  HButtonBox(HButtonBox), HButtonBoxClass,-  toHButtonBox, -  mkHButtonBox, unHButtonBox,-  castToHButtonBox, gTypeHButtonBox,-  VButtonBox(VButtonBox), VButtonBoxClass,-  toVButtonBox, -  mkVButtonBox, unVButtonBox,-  castToVButtonBox, gTypeVButtonBox,-  VBox(VBox), VBoxClass,-  toVBox, -  mkVBox, unVBox,-  castToVBox, gTypeVBox,-  RecentChooserWidget(RecentChooserWidget), RecentChooserWidgetClass,-  toRecentChooserWidget, -  mkRecentChooserWidget, unRecentChooserWidget,-  castToRecentChooserWidget, gTypeRecentChooserWidget,-  ColorSelection(ColorSelection), ColorSelectionClass,-  toColorSelection, -  mkColorSelection, unColorSelection,-  castToColorSelection, gTypeColorSelection,-  FontSelection(FontSelection), FontSelectionClass,-  toFontSelection, -  mkFontSelection, unFontSelection,-  castToFontSelection, gTypeFontSelection,-  FileChooserWidget(FileChooserWidget), FileChooserWidgetClass,-  toFileChooserWidget, -  mkFileChooserWidget, unFileChooserWidget,-  castToFileChooserWidget, gTypeFileChooserWidget,-  HBox(HBox), HBoxClass,-  toHBox, -  mkHBox, unHBox,-  castToHBox, gTypeHBox,-  InfoBar(InfoBar), InfoBarClass,-  toInfoBar, -  mkInfoBar, unInfoBar,-  castToInfoBar, gTypeInfoBar,-  FileChooserButton(FileChooserButton), FileChooserButtonClass,-  toFileChooserButton, -  mkFileChooserButton, unFileChooserButton,-  castToFileChooserButton, gTypeFileChooserButton,-  Statusbar(Statusbar), StatusbarClass,-  toStatusbar, -  mkStatusbar, unStatusbar,-  castToStatusbar, gTypeStatusbar,-  Fixed(Fixed), FixedClass,-  toFixed, -  mkFixed, unFixed,-  castToFixed, gTypeFixed,-  Paned(Paned), PanedClass,-  toPaned, -  mkPaned, unPaned,-  castToPaned, gTypePaned,-  HPaned(HPaned), HPanedClass,-  toHPaned, -  mkHPaned, unHPaned,-  castToHPaned, gTypeHPaned,-  VPaned(VPaned), VPanedClass,-  toVPaned, -  mkVPaned, unVPaned,-  castToVPaned, gTypeVPaned,-  IconView(IconView), IconViewClass,-  toIconView, -  mkIconView, unIconView,-  castToIconView, gTypeIconView,-  Layout(Layout), LayoutClass,-  toLayout, -  mkLayout, unLayout,-  castToLayout, gTypeLayout,-  MenuShell(MenuShell), MenuShellClass,-  toMenuShell, -  mkMenuShell, unMenuShell,-  castToMenuShell, gTypeMenuShell,-  Menu(Menu), MenuClass,-  toMenu, -  mkMenu, unMenu,-  castToMenu, gTypeMenu,-  RecentChooserMenu(RecentChooserMenu), RecentChooserMenuClass,-  toRecentChooserMenu, -  mkRecentChooserMenu, unRecentChooserMenu,-  castToRecentChooserMenu, gTypeRecentChooserMenu,-  MenuBar(MenuBar), MenuBarClass,-  toMenuBar, -  mkMenuBar, unMenuBar,-  castToMenuBar, gTypeMenuBar,-  Notebook(Notebook), NotebookClass,-  toNotebook, -  mkNotebook, unNotebook,-  castToNotebook, gTypeNotebook,-  Table(Table), TableClass,-  toTable, -  mkTable, unTable,-  castToTable, gTypeTable,-  TextView(TextView), TextViewClass,-  toTextView, -  mkTextView, unTextView,-  castToTextView, gTypeTextView,-  Toolbar(Toolbar), ToolbarClass,-  toToolbar, -  mkToolbar, unToolbar,-  castToToolbar, gTypeToolbar,-  TreeView(TreeView), TreeViewClass,-  toTreeView, -  mkTreeView, unTreeView,-  castToTreeView, gTypeTreeView,-  Calendar(Calendar), CalendarClass,-  toCalendar, -  mkCalendar, unCalendar,-  castToCalendar, gTypeCalendar,-  CellView(CellView), CellViewClass,-  toCellView, -  mkCellView, unCellView,-  castToCellView, gTypeCellView,-  DrawingArea(DrawingArea), DrawingAreaClass,-  toDrawingArea, -  mkDrawingArea, unDrawingArea,-  castToDrawingArea, gTypeDrawingArea,-  Spinner(Spinner), SpinnerClass,-  toSpinner, -  mkSpinner, unSpinner,-  castToSpinner, gTypeSpinner,-  Entry(Entry), EntryClass,-  toEntry, -  mkEntry, unEntry,-  castToEntry, gTypeEntry,-  SpinButton(SpinButton), SpinButtonClass,-  toSpinButton, -  mkSpinButton, unSpinButton,-  castToSpinButton, gTypeSpinButton,-  Range(Range), RangeClass,-  toRange, -  mkRange, unRange,-  castToRange, gTypeRange,-  Scale(Scale), ScaleClass,-  toScale, -  mkScale, unScale,-  castToScale, gTypeScale,-  HScale(HScale), HScaleClass,-  toHScale, -  mkHScale, unHScale,-  castToHScale, gTypeHScale,-  VScale(VScale), VScaleClass,-  toVScale, -  mkVScale, unVScale,-  castToVScale, gTypeVScale,-  Scrollbar(Scrollbar), ScrollbarClass,-  toScrollbar, -  mkScrollbar, unScrollbar,-  castToScrollbar, gTypeScrollbar,-  HScrollbar(HScrollbar), HScrollbarClass,-  toHScrollbar, -  mkHScrollbar, unHScrollbar,-  castToHScrollbar, gTypeHScrollbar,-  VScrollbar(VScrollbar), VScrollbarClass,-  toVScrollbar, -  mkVScrollbar, unVScrollbar,-  castToVScrollbar, gTypeVScrollbar,-  Separator(Separator), SeparatorClass,-  toSeparator, -  mkSeparator, unSeparator,-  castToSeparator, gTypeSeparator,-  HSeparator(HSeparator), HSeparatorClass,-  toHSeparator, -  mkHSeparator, unHSeparator,-  castToHSeparator, gTypeHSeparator,-  VSeparator(VSeparator), VSeparatorClass,-  toVSeparator, -  mkVSeparator, unVSeparator,-  castToVSeparator, gTypeVSeparator,-  Invisible(Invisible), InvisibleClass,-  toInvisible, -  mkInvisible, unInvisible,-  castToInvisible, gTypeInvisible,-  ProgressBar(ProgressBar), ProgressBarClass,-  toProgressBar, -  mkProgressBar, unProgressBar,-  castToProgressBar, gTypeProgressBar,-  LevelBar(LevelBar), LevelBarClass,-  toLevelBar, -  mkLevelBar, unLevelBar,-  castToLevelBar, gTypeLevelBar,-  Adjustment(Adjustment), AdjustmentClass,-  toAdjustment, -  mkAdjustment, unAdjustment,-  castToAdjustment, gTypeAdjustment,-  IMContext(IMContext), IMContextClass,-  toIMContext, -  mkIMContext, unIMContext,-  castToIMContext, gTypeIMContext,-  IMMulticontext(IMMulticontext), IMMulticontextClass,-  toIMMulticontext, -  mkIMMulticontext, unIMMulticontext,-  castToIMMulticontext, gTypeIMMulticontext,-  IMContextSimple(IMContextSimple), IMContextSimpleClass,-  toIMContextSimple, -  mkIMContextSimple, unIMContextSimple,-  castToIMContextSimple, gTypeIMContextSimple,-  TreeViewColumn(TreeViewColumn), TreeViewColumnClass,-  toTreeViewColumn, -  mkTreeViewColumn, unTreeViewColumn,-  castToTreeViewColumn, gTypeTreeViewColumn,-  CellRenderer(CellRenderer), CellRendererClass,-  toCellRenderer, -  mkCellRenderer, unCellRenderer,-  castToCellRenderer, gTypeCellRenderer,-  CellRendererSpinner(CellRendererSpinner), CellRendererSpinnerClass,-  toCellRendererSpinner, -  mkCellRendererSpinner, unCellRendererSpinner,-  castToCellRendererSpinner, gTypeCellRendererSpinner,-  CellRendererPixbuf(CellRendererPixbuf), CellRendererPixbufClass,-  toCellRendererPixbuf, -  mkCellRendererPixbuf, unCellRendererPixbuf,-  castToCellRendererPixbuf, gTypeCellRendererPixbuf,-  CellRendererText(CellRendererText), CellRendererTextClass,-  toCellRendererText, -  mkCellRendererText, unCellRendererText,-  castToCellRendererText, gTypeCellRendererText,-  CellRendererAccel(CellRendererAccel), CellRendererAccelClass,-  toCellRendererAccel, -  mkCellRendererAccel, unCellRendererAccel,-  castToCellRendererAccel, gTypeCellRendererAccel,-  CellRendererSpin(CellRendererSpin), CellRendererSpinClass,-  toCellRendererSpin, -  mkCellRendererSpin, unCellRendererSpin,-  castToCellRendererSpin, gTypeCellRendererSpin,-  CellRendererCombo(CellRendererCombo), CellRendererComboClass,-  toCellRendererCombo, -  mkCellRendererCombo, unCellRendererCombo,-  castToCellRendererCombo, gTypeCellRendererCombo,-  CellRendererToggle(CellRendererToggle), CellRendererToggleClass,-  toCellRendererToggle, -  mkCellRendererToggle, unCellRendererToggle,-  castToCellRendererToggle, gTypeCellRendererToggle,-  CellRendererProgress(CellRendererProgress), CellRendererProgressClass,-  toCellRendererProgress, -  mkCellRendererProgress, unCellRendererProgress,-  castToCellRendererProgress, gTypeCellRendererProgress,-  FileFilter(FileFilter), FileFilterClass,-  toFileFilter, -  mkFileFilter, unFileFilter,-  castToFileFilter, gTypeFileFilter,-  Builder(Builder), BuilderClass,-  toBuilder, -  mkBuilder, unBuilder,-  castToBuilder, gTypeBuilder,-  StyleContext(StyleContext), StyleContextClass,-  toStyleContext, -  mkStyleContext, unStyleContext,-  castToStyleContext, gTypeStyleContext,-  StyleProvider(StyleProvider), StyleProviderClass,-  toStyleProvider, -  mkStyleProvider, unStyleProvider,-  castToStyleProvider, gTypeStyleProvider,-  CssProvider(CssProvider), CssProviderClass,-  toCssProvider, -  mkCssProvider, unCssProvider,-  castToCssProvider, gTypeCssProvider,-  CellLayout(CellLayout), CellLayoutClass,-  toCellLayout, -  mkCellLayout, unCellLayout,-  castToCellLayout, gTypeCellLayout,-  TreeSortable(TreeSortable), TreeSortableClass,-  toTreeSortable, -  mkTreeSortable, unTreeSortable,-  castToTreeSortable, gTypeTreeSortable,-  Tooltip(Tooltip), TooltipClass,-  toTooltip, -  mkTooltip, unTooltip,-  castToTooltip, gTypeTooltip,-  StatusIcon(StatusIcon), StatusIconClass,-  toStatusIcon, -  mkStatusIcon, unStatusIcon,-  castToStatusIcon, gTypeStatusIcon,-  TreeSelection(TreeSelection), TreeSelectionClass,-  toTreeSelection, -  mkTreeSelection, unTreeSelection,-  castToTreeSelection, gTypeTreeSelection,-  TreeModel(TreeModel), TreeModelClass,-  toTreeModel, -  mkTreeModel, unTreeModel,-  castToTreeModel, gTypeTreeModel,-  TreeStore(TreeStore), TreeStoreClass,-  toTreeStore, -  mkTreeStore, unTreeStore,-  castToTreeStore, gTypeTreeStore,-  ListStore(ListStore), ListStoreClass,-  toListStore, -  mkListStore, unListStore,-  castToListStore, gTypeListStore,-  TreeModelSort(TreeModelSort), TreeModelSortClass,-  toTreeModelSort, -  mkTreeModelSort, unTreeModelSort,-  castToTreeModelSort, gTypeTreeModelSort,-  TreeModelFilter(TreeModelFilter), TreeModelFilterClass,-  toTreeModelFilter, -  mkTreeModelFilter, unTreeModelFilter,-  castToTreeModelFilter, gTypeTreeModelFilter,-  IconFactory(IconFactory), IconFactoryClass,-  toIconFactory, -  mkIconFactory, unIconFactory,-  castToIconFactory, gTypeIconFactory,-  IconTheme(IconTheme), IconThemeClass,-  toIconTheme, -  mkIconTheme, unIconTheme,-  castToIconTheme, gTypeIconTheme,-  SizeGroup(SizeGroup), SizeGroupClass,-  toSizeGroup, -  mkSizeGroup, unSizeGroup,-  castToSizeGroup, gTypeSizeGroup,-  Clipboard(Clipboard), ClipboardClass,-  toClipboard, -  mkClipboard, unClipboard,-  castToClipboard, gTypeClipboard,-  AccelGroup(AccelGroup), AccelGroupClass,-  toAccelGroup, -  mkAccelGroup, unAccelGroup,-  castToAccelGroup, gTypeAccelGroup,-  AccelMap(AccelMap), AccelMapClass,-  toAccelMap, -  mkAccelMap, unAccelMap,-  castToAccelMap, gTypeAccelMap,-  EntryCompletion(EntryCompletion), EntryCompletionClass,-  toEntryCompletion, -  mkEntryCompletion, unEntryCompletion,-  castToEntryCompletion, gTypeEntryCompletion,-  EntryBuffer(EntryBuffer), EntryBufferClass,-  toEntryBuffer, -  mkEntryBuffer, unEntryBuffer,-  castToEntryBuffer, gTypeEntryBuffer,-  Action(Action), ActionClass,-  toAction, -  mkAction, unAction,-  castToAction, gTypeAction,-  RecentAction(RecentAction), RecentActionClass,-  toRecentAction, -  mkRecentAction, unRecentAction,-  castToRecentAction, gTypeRecentAction,-  ToggleAction(ToggleAction), ToggleActionClass,-  toToggleAction, -  mkToggleAction, unToggleAction,-  castToToggleAction, gTypeToggleAction,-  RadioAction(RadioAction), RadioActionClass,-  toRadioAction, -  mkRadioAction, unRadioAction,-  castToRadioAction, gTypeRadioAction,-  ActionGroup(ActionGroup), ActionGroupClass,-  toActionGroup, -  mkActionGroup, unActionGroup,-  castToActionGroup, gTypeActionGroup,-  UIManager(UIManager), UIManagerClass,-  toUIManager, -  mkUIManager, unUIManager,-  castToUIManager, gTypeUIManager,-  WindowGroup(WindowGroup), WindowGroupClass,-  toWindowGroup, -  mkWindowGroup, unWindowGroup,-  castToWindowGroup, gTypeWindowGroup,-  CellEditable(CellEditable), CellEditableClass,-  toCellEditable, -  mkCellEditable, unCellEditable,-  castToCellEditable, gTypeCellEditable,-  Editable(Editable), EditableClass,-  toEditable, -  mkEditable, unEditable,-  castToEditable, gTypeEditable,-  FileChooser(FileChooser), FileChooserClass,-  toFileChooser, -  mkFileChooser, unFileChooser,-  castToFileChooser, gTypeFileChooser-  ) where--import Foreign.ForeignPtr (ForeignPtr, castForeignPtr)-#if __GLASGOW_HASKELL__ >= 707-import Foreign.ForeignPtr.Unsafe (unsafeForeignPtrToPtr)-#else-import Foreign.ForeignPtr (unsafeForeignPtrToPtr)-#endif-import Foreign.C.Types    (CULong(..), CUInt(..), CULLong(..))-import System.Glib.GType  (GType, typeInstanceIsA)-{#import System.Glib.GObject#}-import Graphics.UI.Gtk.General.Threading--{# context lib="gtk" prefix="gtk" #}---- The usage of foreignPtrToPtr should be safe as the evaluation will only be--- forced if the object is used afterwards----castTo :: (GObjectClass obj, GObjectClass obj') => GType -> String-                                                -> (obj -> obj')-castTo gtype objTypeName obj =-  case toGObject obj of-    gobj@(GObject objFPtr)-      | typeInstanceIsA ((unsafeForeignPtrToPtr.castForeignPtr) objFPtr) gtype-                  -> unsafeCastGObject gobj-      | otherwise -> error $ "Cannot cast object to " ++ objTypeName----- ****************************************************************** AtkObject--{#pointer *AtkObject as AtkObject foreign newtype #} deriving (Eq,Ord)--mkAtkObject = (AtkObject, objectUnrefFromMainloop)-unAtkObject (AtkObject o) = o--class GObjectClass o => AtkObjectClass o-toAtkObject :: AtkObjectClass o => o -> AtkObject-toAtkObject = unsafeCastGObject . toGObject--instance AtkObjectClass AtkObject-instance GObjectClass AtkObject where-  toGObject = GObject . castForeignPtr . unAtkObject-  unsafeCastGObject = AtkObject . castForeignPtr . unGObject--castToAtkObject :: GObjectClass obj => obj -> AtkObject-castToAtkObject = castTo gTypeAtkObject "AtkObject"--gTypeAtkObject :: GType-gTypeAtkObject =-  {# call fun unsafe atk_object_get_type #}---- ***************************************************************** Accessible--{#pointer *GtkAccessible as Accessible foreign newtype #} deriving (Eq,Ord)--mkAccessible = (Accessible, objectUnrefFromMainloop)-unAccessible (Accessible o) = o--class AtkObjectClass o => AccessibleClass o-toAccessible :: AccessibleClass o => o -> Accessible-toAccessible = unsafeCastGObject . toGObject--instance AccessibleClass Accessible-instance AtkObjectClass Accessible-instance GObjectClass Accessible where-  toGObject = GObject . castForeignPtr . unAccessible-  unsafeCastGObject = Accessible . castForeignPtr . unGObject--castToAccessible :: GObjectClass obj => obj -> Accessible-castToAccessible = castTo gTypeAccessible "Accessible"--gTypeAccessible :: GType-gTypeAccessible =-  {# call fun unsafe gtk_accessible_get_type #}---- ********************************************************************* Keymap--{#pointer *GdkKeymap as Keymap foreign newtype #} deriving (Eq,Ord)--mkKeymap = (Keymap, objectUnrefFromMainloop)-unKeymap (Keymap o) = o--class GObjectClass o => KeymapClass o-toKeymap :: KeymapClass o => o -> Keymap-toKeymap = unsafeCastGObject . toGObject--instance KeymapClass Keymap-instance GObjectClass Keymap where-  toGObject = GObject . castForeignPtr . unKeymap-  unsafeCastGObject = Keymap . castForeignPtr . unGObject--castToKeymap :: GObjectClass obj => obj -> Keymap-castToKeymap = castTo gTypeKeymap "Keymap"--gTypeKeymap :: GType-gTypeKeymap =-  {# call fun unsafe gdk_keymap_get_type #}---- ************************************************************* DisplayManager--{#pointer *GdkDisplayManager as DisplayManager foreign newtype #} deriving (Eq,Ord)--mkDisplayManager = (DisplayManager, objectUnrefFromMainloop)-unDisplayManager (DisplayManager o) = o--class GObjectClass o => DisplayManagerClass o-toDisplayManager :: DisplayManagerClass o => o -> DisplayManager-toDisplayManager = unsafeCastGObject . toGObject--instance DisplayManagerClass DisplayManager-instance GObjectClass DisplayManager where-  toGObject = GObject . castForeignPtr . unDisplayManager-  unsafeCastGObject = DisplayManager . castForeignPtr . unGObject--castToDisplayManager :: GObjectClass obj => obj -> DisplayManager-castToDisplayManager = castTo gTypeDisplayManager "DisplayManager"--gTypeDisplayManager :: GType-gTypeDisplayManager =-  {# call fun unsafe gdk_display_manager_get_type #}---- *********************************************************** AppLaunchContext--{#pointer *GdkAppLaunchContext as AppLaunchContext foreign newtype #} deriving (Eq,Ord)--mkAppLaunchContext = (AppLaunchContext, objectUnrefFromMainloop)-unAppLaunchContext (AppLaunchContext o) = o--class GObjectClass o => AppLaunchContextClass o-toAppLaunchContext :: AppLaunchContextClass o => o -> AppLaunchContext-toAppLaunchContext = unsafeCastGObject . toGObject--instance AppLaunchContextClass AppLaunchContext-instance GObjectClass AppLaunchContext where-  toGObject = GObject . castForeignPtr . unAppLaunchContext-  unsafeCastGObject = AppLaunchContext . castForeignPtr . unGObject--castToAppLaunchContext :: GObjectClass obj => obj -> AppLaunchContext-castToAppLaunchContext = castTo gTypeAppLaunchContext "AppLaunchContext"--gTypeAppLaunchContext :: GType-gTypeAppLaunchContext =-  {# call fun unsafe gdk_app_launch_context_get_type #}---- ************************************************************** PrintSettings--{#pointer *GtkPrintSettings as PrintSettings foreign newtype #} deriving (Eq,Ord)--mkPrintSettings = (PrintSettings, objectUnrefFromMainloop)-unPrintSettings (PrintSettings o) = o--class GObjectClass o => PrintSettingsClass o-toPrintSettings :: PrintSettingsClass o => o -> PrintSettings-toPrintSettings = unsafeCastGObject . toGObject--instance PrintSettingsClass PrintSettings-instance GObjectClass PrintSettings where-  toGObject = GObject . castForeignPtr . unPrintSettings-  unsafeCastGObject = PrintSettings . castForeignPtr . unGObject--castToPrintSettings :: GObjectClass obj => obj -> PrintSettings-castToPrintSettings = castTo gTypePrintSettings "PrintSettings"--gTypePrintSettings :: GType-gTypePrintSettings =-  {# call fun unsafe gtk_print_settings_get_type #}---- ************************************************************* PrintOperation--{#pointer *GtkPrintOperation as PrintOperation foreign newtype #} deriving (Eq,Ord)--mkPrintOperation = (PrintOperation, objectUnrefFromMainloop)-unPrintOperation (PrintOperation o) = o--class GObjectClass o => PrintOperationClass o-toPrintOperation :: PrintOperationClass o => o -> PrintOperation-toPrintOperation = unsafeCastGObject . toGObject--instance PrintOperationClass PrintOperation-instance GObjectClass PrintOperation where-  toGObject = GObject . castForeignPtr . unPrintOperation-  unsafeCastGObject = PrintOperation . castForeignPtr . unGObject--castToPrintOperation :: GObjectClass obj => obj -> PrintOperation-castToPrintOperation = castTo gTypePrintOperation "PrintOperation"--gTypePrintOperation :: GType-gTypePrintOperation =-  {# call fun unsafe gtk_print_operation_get_type #}---- ****************************************************** PrintOperationPreview--{#pointer *GtkPrintOperationPreview as PrintOperationPreview foreign newtype #} deriving (Eq,Ord)--mkPrintOperationPreview = (PrintOperationPreview, objectUnrefFromMainloop)-unPrintOperationPreview (PrintOperationPreview o) = o--class GObjectClass o => PrintOperationPreviewClass o-toPrintOperationPreview :: PrintOperationPreviewClass o => o -> PrintOperationPreview-toPrintOperationPreview = unsafeCastGObject . toGObject--instance PrintOperationPreviewClass PrintOperationPreview-instance GObjectClass PrintOperationPreview where-  toGObject = GObject . castForeignPtr . unPrintOperationPreview-  unsafeCastGObject = PrintOperationPreview . castForeignPtr . unGObject--castToPrintOperationPreview :: GObjectClass obj => obj -> PrintOperationPreview-castToPrintOperationPreview = castTo gTypePrintOperationPreview "PrintOperationPreview"--gTypePrintOperationPreview :: GType-gTypePrintOperationPreview =-  {# call fun unsafe gtk_print_operation_preview_get_type #}---- ****************************************************************** PageSetup--{#pointer *GtkPageSetup as PageSetup foreign newtype #} deriving (Eq,Ord)--mkPageSetup = (PageSetup, objectUnrefFromMainloop)-unPageSetup (PageSetup o) = o--class GObjectClass o => PageSetupClass o-toPageSetup :: PageSetupClass o => o -> PageSetup-toPageSetup = unsafeCastGObject . toGObject--instance PageSetupClass PageSetup-instance GObjectClass PageSetup where-  toGObject = GObject . castForeignPtr . unPageSetup-  unsafeCastGObject = PageSetup . castForeignPtr . unGObject--castToPageSetup :: GObjectClass obj => obj -> PageSetup-castToPageSetup = castTo gTypePageSetup "PageSetup"--gTypePageSetup :: GType-gTypePageSetup =-  {# call fun unsafe gtk_page_setup_get_type #}---- *************************************************************** PrintContext--{#pointer *GtkPrintContext as PrintContext foreign newtype #} deriving (Eq,Ord)--mkPrintContext = (PrintContext, objectUnrefFromMainloop)-unPrintContext (PrintContext o) = o--class GObjectClass o => PrintContextClass o-toPrintContext :: PrintContextClass o => o -> PrintContext-toPrintContext = unsafeCastGObject . toGObject--instance PrintContextClass PrintContext-instance GObjectClass PrintContext where-  toGObject = GObject . castForeignPtr . unPrintContext-  unsafeCastGObject = PrintContext . castForeignPtr . unGObject--castToPrintContext :: GObjectClass obj => obj -> PrintContext-castToPrintContext = castTo gTypePrintContext "PrintContext"--gTypePrintContext :: GType-gTypePrintContext =-  {# call fun unsafe gtk_print_context_get_type #}---- ************************************************************** RecentChooser--{#pointer *GtkRecentChooser as RecentChooser foreign newtype #} deriving (Eq,Ord)--mkRecentChooser = (RecentChooser, objectUnrefFromMainloop)-unRecentChooser (RecentChooser o) = o--class GObjectClass o => RecentChooserClass o-toRecentChooser :: RecentChooserClass o => o -> RecentChooser-toRecentChooser = unsafeCastGObject . toGObject--instance RecentChooserClass RecentChooser-instance GObjectClass RecentChooser where-  toGObject = GObject . castForeignPtr . unRecentChooser-  unsafeCastGObject = RecentChooser . castForeignPtr . unGObject--castToRecentChooser :: GObjectClass obj => obj -> RecentChooser-castToRecentChooser = castTo gTypeRecentChooser "RecentChooser"--gTypeRecentChooser :: GType-gTypeRecentChooser =-  {# call fun unsafe gtk_recent_chooser_get_type #}---- ************************************************************** RecentManager--{#pointer *GtkRecentManager as RecentManager foreign newtype #} deriving (Eq,Ord)--mkRecentManager = (RecentManager, objectUnrefFromMainloop)-unRecentManager (RecentManager o) = o--class GObjectClass o => RecentManagerClass o-toRecentManager :: RecentManagerClass o => o -> RecentManager-toRecentManager = unsafeCastGObject . toGObject--instance RecentManagerClass RecentManager-instance GObjectClass RecentManager where-  toGObject = GObject . castForeignPtr . unRecentManager-  unsafeCastGObject = RecentManager . castForeignPtr . unGObject--castToRecentManager :: GObjectClass obj => obj -> RecentManager-castToRecentManager = castTo gTypeRecentManager "RecentManager"--gTypeRecentManager :: GType-gTypeRecentManager =-  {# call fun unsafe gtk_recent_manager_get_type #}---- ***************************************************************** DrawWindow--{#pointer *GdkWindow as DrawWindow foreign newtype #} deriving (Eq,Ord)--mkDrawWindow = (DrawWindow, objectUnrefFromMainloop)-unDrawWindow (DrawWindow o) = o--class GObjectClass o => DrawWindowClass o-toDrawWindow :: DrawWindowClass o => o -> DrawWindow-toDrawWindow = unsafeCastGObject . toGObject--instance DrawWindowClass DrawWindow-instance GObjectClass DrawWindow where-  toGObject = GObject . castForeignPtr . unDrawWindow-  unsafeCastGObject = DrawWindow . castForeignPtr . unGObject--castToDrawWindow :: GObjectClass obj => obj -> DrawWindow-castToDrawWindow = castTo gTypeDrawWindow "DrawWindow"--gTypeDrawWindow :: GType-gTypeDrawWindow =-  {# call fun unsafe gdk_window_get_type #}---- ********************************************************************* Screen--{#pointer *GdkScreen as Screen foreign newtype #} deriving (Eq,Ord)--mkScreen = (Screen, objectUnrefFromMainloop)-unScreen (Screen o) = o--class GObjectClass o => ScreenClass o-toScreen :: ScreenClass o => o -> Screen-toScreen = unsafeCastGObject . toGObject--instance ScreenClass Screen-instance GObjectClass Screen where-  toGObject = GObject . castForeignPtr . unScreen-  unsafeCastGObject = Screen . castForeignPtr . unGObject--castToScreen :: GObjectClass obj => obj -> Screen-castToScreen = castTo gTypeScreen "Screen"--gTypeScreen :: GType-gTypeScreen =-  {# call fun unsafe gdk_screen_get_type #}---- ******************************************************************** Display--{#pointer *GdkDisplay as Display foreign newtype #} deriving (Eq,Ord)--mkDisplay = (Display, objectUnrefFromMainloop)-unDisplay (Display o) = o--class GObjectClass o => DisplayClass o-toDisplay :: DisplayClass o => o -> Display-toDisplay = unsafeCastGObject . toGObject--instance DisplayClass Display-instance GObjectClass Display where-  toGObject = GObject . castForeignPtr . unDisplay-  unsafeCastGObject = Display . castForeignPtr . unGObject--castToDisplay :: GObjectClass obj => obj -> Display-castToDisplay = castTo gTypeDisplay "Display"--gTypeDisplay :: GType-gTypeDisplay =-  {# call fun unsafe gdk_display_get_type #}---- ********************************************************************* Visual--{#pointer *GdkVisual as Visual foreign newtype #} deriving (Eq,Ord)--mkVisual = (Visual, objectUnrefFromMainloop)-unVisual (Visual o) = o--class GObjectClass o => VisualClass o-toVisual :: VisualClass o => o -> Visual-toVisual = unsafeCastGObject . toGObject--instance VisualClass Visual-instance GObjectClass Visual where-  toGObject = GObject . castForeignPtr . unVisual-  unsafeCastGObject = Visual . castForeignPtr . unGObject--castToVisual :: GObjectClass obj => obj -> Visual-castToVisual = castTo gTypeVisual "Visual"--gTypeVisual :: GType-gTypeVisual =-  {# call fun unsafe gdk_visual_get_type #}---- ********************************************************************* Device--{#pointer *GdkDevice as Device foreign newtype #} deriving (Eq,Ord)--mkDevice = (Device, objectUnrefFromMainloop)-unDevice (Device o) = o--class GObjectClass o => DeviceClass o-toDevice :: DeviceClass o => o -> Device-toDevice = unsafeCastGObject . toGObject--instance DeviceClass Device-instance GObjectClass Device where-  toGObject = GObject . castForeignPtr . unDevice-  unsafeCastGObject = Device . castForeignPtr . unGObject--castToDevice :: GObjectClass obj => obj -> Device-castToDevice = castTo gTypeDevice "Device"--gTypeDevice :: GType-gTypeDevice =-  {# call fun unsafe gdk_device_get_type #}---- ***************************************************************** FrameClock--{#pointer *GdkFrameClock as FrameClock foreign newtype #} deriving (Eq,Ord)--mkFrameClock = (FrameClock, objectUnrefFromMainloop)-unFrameClock (FrameClock o) = o--class GObjectClass o => FrameClockClass o-toFrameClock :: FrameClockClass o => o -> FrameClock-toFrameClock = unsafeCastGObject . toGObject--instance FrameClockClass FrameClock-instance GObjectClass FrameClock where-  toGObject = GObject . castForeignPtr . unFrameClock-  unsafeCastGObject = FrameClock . castForeignPtr . unGObject--castToFrameClock :: GObjectClass obj => obj -> FrameClock-castToFrameClock = castTo gTypeFrameClock "FrameClock"--gTypeFrameClock :: GType-gTypeFrameClock =-  {# call fun unsafe gdk_frame_clock_get_type #}---- ******************************************************************* Settings--{#pointer *GtkSettings as Settings foreign newtype #} deriving (Eq,Ord)--mkSettings = (Settings, objectUnrefFromMainloop)-unSettings (Settings o) = o--class GObjectClass o => SettingsClass o-toSettings :: SettingsClass o => o -> Settings-toSettings = unsafeCastGObject . toGObject--instance SettingsClass Settings-instance GObjectClass Settings where-  toGObject = GObject . castForeignPtr . unSettings-  unsafeCastGObject = Settings . castForeignPtr . unGObject--castToSettings :: GObjectClass obj => obj -> Settings-castToSettings = castTo gTypeSettings "Settings"--gTypeSettings :: GType-gTypeSettings =-  {# call fun unsafe gtk_settings_get_type #}---- ***************************************************************** TextBuffer--{#pointer *GtkTextBuffer as TextBuffer foreign newtype #} deriving (Eq,Ord)--mkTextBuffer = (TextBuffer, objectUnrefFromMainloop)-unTextBuffer (TextBuffer o) = o--class GObjectClass o => TextBufferClass o-toTextBuffer :: TextBufferClass o => o -> TextBuffer-toTextBuffer = unsafeCastGObject . toGObject--instance TextBufferClass TextBuffer-instance GObjectClass TextBuffer where-  toGObject = GObject . castForeignPtr . unTextBuffer-  unsafeCastGObject = TextBuffer . castForeignPtr . unGObject--castToTextBuffer :: GObjectClass obj => obj -> TextBuffer-castToTextBuffer = castTo gTypeTextBuffer "TextBuffer"--gTypeTextBuffer :: GType-gTypeTextBuffer =-  {# call fun unsafe gtk_text_buffer_get_type #}---- ******************************************************************** TextTag--{#pointer *GtkTextTag as TextTag foreign newtype #} deriving (Eq,Ord)--mkTextTag = (TextTag, objectUnrefFromMainloop)-unTextTag (TextTag o) = o--class GObjectClass o => TextTagClass o-toTextTag :: TextTagClass o => o -> TextTag-toTextTag = unsafeCastGObject . toGObject--instance TextTagClass TextTag-instance GObjectClass TextTag where-  toGObject = GObject . castForeignPtr . unTextTag-  unsafeCastGObject = TextTag . castForeignPtr . unGObject--castToTextTag :: GObjectClass obj => obj -> TextTag-castToTextTag = castTo gTypeTextTag "TextTag"--gTypeTextTag :: GType-gTypeTextTag =-  {# call fun unsafe gtk_text_tag_get_type #}---- *************************************************************** TextTagTable--{#pointer *GtkTextTagTable as TextTagTable foreign newtype #} deriving (Eq,Ord)--mkTextTagTable = (TextTagTable, objectUnrefFromMainloop)-unTextTagTable (TextTagTable o) = o--class GObjectClass o => TextTagTableClass o-toTextTagTable :: TextTagTableClass o => o -> TextTagTable-toTextTagTable = unsafeCastGObject . toGObject--instance TextTagTableClass TextTagTable-instance GObjectClass TextTagTable where-  toGObject = GObject . castForeignPtr . unTextTagTable-  unsafeCastGObject = TextTagTable . castForeignPtr . unGObject--castToTextTagTable :: GObjectClass obj => obj -> TextTagTable-castToTextTagTable = castTo gTypeTextTagTable "TextTagTable"--gTypeTextTagTable :: GType-gTypeTextTagTable =-  {# call fun unsafe gtk_text_tag_table_get_type #}---- ********************************************************************** Style--{#pointer *GtkStyle as Style foreign newtype #} deriving (Eq,Ord)--mkStyle = (Style, objectUnrefFromMainloop)-unStyle (Style o) = o--class GObjectClass o => StyleClass o-toStyle :: StyleClass o => o -> Style-toStyle = unsafeCastGObject . toGObject--instance StyleClass Style-instance GObjectClass Style where-  toGObject = GObject . castForeignPtr . unStyle-  unsafeCastGObject = Style . castForeignPtr . unGObject--castToStyle :: GObjectClass obj => obj -> Style-castToStyle = castTo gTypeStyle "Style"--gTypeStyle :: GType-gTypeStyle =-  {# call fun unsafe gtk_style_get_type #}---- ******************************************************************** RcStyle--{#pointer *GtkRcStyle as RcStyle foreign newtype #} deriving (Eq,Ord)--mkRcStyle = (RcStyle, objectUnrefFromMainloop)-unRcStyle (RcStyle o) = o--class GObjectClass o => RcStyleClass o-toRcStyle :: RcStyleClass o => o -> RcStyle-toRcStyle = unsafeCastGObject . toGObject--instance RcStyleClass RcStyle-instance GObjectClass RcStyle where-  toGObject = GObject . castForeignPtr . unRcStyle-  unsafeCastGObject = RcStyle . castForeignPtr . unGObject--castToRcStyle :: GObjectClass obj => obj -> RcStyle-castToRcStyle = castTo gTypeRcStyle "RcStyle"--gTypeRcStyle :: GType-gTypeRcStyle =-  {# call fun unsafe gtk_rc_style_get_type #}---- **************************************************************** DragContext--{#pointer *GdkDragContext as DragContext foreign newtype #} deriving (Eq,Ord)--mkDragContext = (DragContext, objectUnrefFromMainloop)-unDragContext (DragContext o) = o--class GObjectClass o => DragContextClass o-toDragContext :: DragContextClass o => o -> DragContext-toDragContext = unsafeCastGObject . toGObject--instance DragContextClass DragContext-instance GObjectClass DragContext where-  toGObject = GObject . castForeignPtr . unDragContext-  unsafeCastGObject = DragContext . castForeignPtr . unGObject--castToDragContext :: GObjectClass obj => obj -> DragContext-castToDragContext = castTo gTypeDragContext "DragContext"--gTypeDragContext :: GType-gTypeDragContext =-  {# call fun unsafe gdk_drag_context_get_type #}---- ********************************************************************* Pixbuf--{#pointer *GdkPixbuf as Pixbuf foreign newtype #} deriving (Eq,Ord)--mkPixbuf = (Pixbuf, objectUnref)-unPixbuf (Pixbuf o) = o--class GObjectClass o => PixbufClass o-toPixbuf :: PixbufClass o => o -> Pixbuf-toPixbuf = unsafeCastGObject . toGObject--instance PixbufClass Pixbuf-instance GObjectClass Pixbuf where-  toGObject = GObject . castForeignPtr . unPixbuf-  unsafeCastGObject = Pixbuf . castForeignPtr . unGObject--castToPixbuf :: GObjectClass obj => obj -> Pixbuf-castToPixbuf = castTo gTypePixbuf "Pixbuf"--gTypePixbuf :: GType-gTypePixbuf =-  {# call fun unsafe gdk_pixbuf_get_type #}---- ************************************************************ PixbufAnimation--{#pointer *GdkPixbufAnimation as PixbufAnimation foreign newtype #} deriving (Eq,Ord)--mkPixbufAnimation = (PixbufAnimation, objectUnref)-unPixbufAnimation (PixbufAnimation o) = o--class GObjectClass o => PixbufAnimationClass o-toPixbufAnimation :: PixbufAnimationClass o => o -> PixbufAnimation-toPixbufAnimation = unsafeCastGObject . toGObject--instance PixbufAnimationClass PixbufAnimation-instance GObjectClass PixbufAnimation where-  toGObject = GObject . castForeignPtr . unPixbufAnimation-  unsafeCastGObject = PixbufAnimation . castForeignPtr . unGObject--castToPixbufAnimation :: GObjectClass obj => obj -> PixbufAnimation-castToPixbufAnimation = castTo gTypePixbufAnimation "PixbufAnimation"--gTypePixbufAnimation :: GType-gTypePixbufAnimation =-  {# call fun unsafe gdk_pixbuf_animation_get_type #}---- *********************************************************** PixbufSimpleAnim--{#pointer *GdkPixbufSimpleAnim as PixbufSimpleAnim foreign newtype #} deriving (Eq,Ord)--mkPixbufSimpleAnim = (PixbufSimpleAnim, objectUnref)-unPixbufSimpleAnim (PixbufSimpleAnim o) = o--class PixbufAnimationClass o => PixbufSimpleAnimClass o-toPixbufSimpleAnim :: PixbufSimpleAnimClass o => o -> PixbufSimpleAnim-toPixbufSimpleAnim = unsafeCastGObject . toGObject--instance PixbufSimpleAnimClass PixbufSimpleAnim-instance PixbufAnimationClass PixbufSimpleAnim-instance GObjectClass PixbufSimpleAnim where-  toGObject = GObject . castForeignPtr . unPixbufSimpleAnim-  unsafeCastGObject = PixbufSimpleAnim . castForeignPtr . unGObject--castToPixbufSimpleAnim :: GObjectClass obj => obj -> PixbufSimpleAnim-castToPixbufSimpleAnim = castTo gTypePixbufSimpleAnim "PixbufSimpleAnim"--gTypePixbufSimpleAnim :: GType-gTypePixbufSimpleAnim =-  {# call fun unsafe gdk_pixbuf_simple_anim_get_type #}---- ******************************************************** PixbufAnimationIter--{#pointer *GdkPixbufAnimationIter as PixbufAnimationIter foreign newtype #} deriving (Eq,Ord)--mkPixbufAnimationIter = (PixbufAnimationIter, objectUnref)-unPixbufAnimationIter (PixbufAnimationIter o) = o--class GObjectClass o => PixbufAnimationIterClass o-toPixbufAnimationIter :: PixbufAnimationIterClass o => o -> PixbufAnimationIter-toPixbufAnimationIter = unsafeCastGObject . toGObject--instance PixbufAnimationIterClass PixbufAnimationIter-instance GObjectClass PixbufAnimationIter where-  toGObject = GObject . castForeignPtr . unPixbufAnimationIter-  unsafeCastGObject = PixbufAnimationIter . castForeignPtr . unGObject--castToPixbufAnimationIter :: GObjectClass obj => obj -> PixbufAnimationIter-castToPixbufAnimationIter = castTo gTypePixbufAnimationIter "PixbufAnimationIter"--gTypePixbufAnimationIter :: GType-gTypePixbufAnimationIter =-  {# call fun unsafe gdk_pixbuf_animation_iter_get_type #}---- ************************************************************ TextChildAnchor--{#pointer *GtkTextChildAnchor as TextChildAnchor foreign newtype #} deriving (Eq,Ord)--mkTextChildAnchor = (TextChildAnchor, objectUnrefFromMainloop)-unTextChildAnchor (TextChildAnchor o) = o--class GObjectClass o => TextChildAnchorClass o-toTextChildAnchor :: TextChildAnchorClass o => o -> TextChildAnchor-toTextChildAnchor = unsafeCastGObject . toGObject--instance TextChildAnchorClass TextChildAnchor-instance GObjectClass TextChildAnchor where-  toGObject = GObject . castForeignPtr . unTextChildAnchor-  unsafeCastGObject = TextChildAnchor . castForeignPtr . unGObject--castToTextChildAnchor :: GObjectClass obj => obj -> TextChildAnchor-castToTextChildAnchor = castTo gTypeTextChildAnchor "TextChildAnchor"--gTypeTextChildAnchor :: GType-gTypeTextChildAnchor =-  {# call fun unsafe gtk_text_child_anchor_get_type #}---- ******************************************************************* TextMark--{#pointer *GtkTextMark as TextMark foreign newtype #} deriving (Eq,Ord)--mkTextMark = (TextMark, objectUnrefFromMainloop)-unTextMark (TextMark o) = o--class GObjectClass o => TextMarkClass o-toTextMark :: TextMarkClass o => o -> TextMark-toTextMark = unsafeCastGObject . toGObject--instance TextMarkClass TextMark-instance GObjectClass TextMark where-  toGObject = GObject . castForeignPtr . unTextMark-  unsafeCastGObject = TextMark . castForeignPtr . unGObject--castToTextMark :: GObjectClass obj => obj -> TextMark-castToTextMark = castTo gTypeTextMark "TextMark"--gTypeTextMark :: GType-gTypeTextMark =-  {# call fun unsafe gtk_text_mark_get_type #}---- *************************************************************** RecentFilter--{#pointer *GtkRecentFilter as RecentFilter foreign newtype #} deriving (Eq,Ord)--mkRecentFilter = (RecentFilter, objectUnrefFromMainloop)-unRecentFilter (RecentFilter o) = o--class GObjectClass o => RecentFilterClass o-toRecentFilter :: RecentFilterClass o => o -> RecentFilter-toRecentFilter = unsafeCastGObject . toGObject--instance RecentFilterClass RecentFilter-instance GObjectClass RecentFilter where-  toGObject = GObject . castForeignPtr . unRecentFilter-  unsafeCastGObject = RecentFilter . castForeignPtr . unGObject--castToRecentFilter :: GObjectClass obj => obj -> RecentFilter-castToRecentFilter = castTo gTypeRecentFilter "RecentFilter"--gTypeRecentFilter :: GType-gTypeRecentFilter =-  {# call fun unsafe gtk_recent_filter_get_type #}---- ********************************************************************* Widget--{#pointer *GtkWidget as Widget foreign newtype #} deriving (Eq,Ord)--mkWidget = (Widget, objectUnrefFromMainloop)-unWidget (Widget o) = o--class GObjectClass o => WidgetClass o-toWidget :: WidgetClass o => o -> Widget-toWidget = unsafeCastGObject . toGObject--instance WidgetClass Widget-instance GObjectClass Widget where-  toGObject = GObject . castForeignPtr . unWidget-  unsafeCastGObject = Widget . castForeignPtr . unGObject--castToWidget :: GObjectClass obj => obj -> Widget-castToWidget = castTo gTypeWidget "Widget"--gTypeWidget :: GType-gTypeWidget =-  {# call fun unsafe gtk_widget_get_type #}---- ************************************************************************ HSV--{#pointer *GtkHSV as HSV foreign newtype #} deriving (Eq,Ord)--mkHSV = (HSV, objectUnrefFromMainloop)-unHSV (HSV o) = o--class WidgetClass o => HSVClass o-toHSV :: HSVClass o => o -> HSV-toHSV = unsafeCastGObject . toGObject--instance HSVClass HSV-instance WidgetClass HSV-instance GObjectClass HSV where-  toGObject = GObject . castForeignPtr . unHSV-  unsafeCastGObject = HSV . castForeignPtr . unGObject--castToHSV :: GObjectClass obj => obj -> HSV-castToHSV = castTo gTypeHSV "HSV"--gTypeHSV :: GType-gTypeHSV =-  {# call fun unsafe gtk_hsv_get_type #}---- *********************************************************************** Misc--{#pointer *GtkMisc as Misc foreign newtype #} deriving (Eq,Ord)--mkMisc = (Misc, objectUnrefFromMainloop)-unMisc (Misc o) = o--class WidgetClass o => MiscClass o-toMisc :: MiscClass o => o -> Misc-toMisc = unsafeCastGObject . toGObject--instance MiscClass Misc-instance WidgetClass Misc-instance GObjectClass Misc where-  toGObject = GObject . castForeignPtr . unMisc-  unsafeCastGObject = Misc . castForeignPtr . unGObject--castToMisc :: GObjectClass obj => obj -> Misc-castToMisc = castTo gTypeMisc "Misc"--gTypeMisc :: GType-gTypeMisc =-  {# call fun unsafe gtk_misc_get_type #}---- ********************************************************************** Label--{#pointer *GtkLabel as Label foreign newtype #} deriving (Eq,Ord)--mkLabel = (Label, objectUnrefFromMainloop)-unLabel (Label o) = o--class MiscClass o => LabelClass o-toLabel :: LabelClass o => o -> Label-toLabel = unsafeCastGObject . toGObject--instance LabelClass Label-instance MiscClass Label-instance WidgetClass Label-instance GObjectClass Label where-  toGObject = GObject . castForeignPtr . unLabel-  unsafeCastGObject = Label . castForeignPtr . unGObject--castToLabel :: GObjectClass obj => obj -> Label-castToLabel = castTo gTypeLabel "Label"--gTypeLabel :: GType-gTypeLabel =-  {# call fun unsafe gtk_label_get_type #}---- ***************************************************************** AccelLabel--{#pointer *GtkAccelLabel as AccelLabel foreign newtype #} deriving (Eq,Ord)--mkAccelLabel = (AccelLabel, objectUnrefFromMainloop)-unAccelLabel (AccelLabel o) = o--class LabelClass o => AccelLabelClass o-toAccelLabel :: AccelLabelClass o => o -> AccelLabel-toAccelLabel = unsafeCastGObject . toGObject--instance AccelLabelClass AccelLabel-instance LabelClass AccelLabel-instance MiscClass AccelLabel-instance WidgetClass AccelLabel-instance GObjectClass AccelLabel where-  toGObject = GObject . castForeignPtr . unAccelLabel-  unsafeCastGObject = AccelLabel . castForeignPtr . unGObject--castToAccelLabel :: GObjectClass obj => obj -> AccelLabel-castToAccelLabel = castTo gTypeAccelLabel "AccelLabel"--gTypeAccelLabel :: GType-gTypeAccelLabel =-  {# call fun unsafe gtk_accel_label_get_type #}---- ********************************************************************** Arrow--{#pointer *GtkArrow as Arrow foreign newtype #} deriving (Eq,Ord)--mkArrow = (Arrow, objectUnrefFromMainloop)-unArrow (Arrow o) = o--class MiscClass o => ArrowClass o-toArrow :: ArrowClass o => o -> Arrow-toArrow = unsafeCastGObject . toGObject--instance ArrowClass Arrow-instance MiscClass Arrow-instance WidgetClass Arrow-instance GObjectClass Arrow where-  toGObject = GObject . castForeignPtr . unArrow-  unsafeCastGObject = Arrow . castForeignPtr . unGObject--castToArrow :: GObjectClass obj => obj -> Arrow-castToArrow = castTo gTypeArrow "Arrow"--gTypeArrow :: GType-gTypeArrow =-  {# call fun unsafe gtk_arrow_get_type #}---- ********************************************************************** Image--{#pointer *GtkImage as Image foreign newtype #} deriving (Eq,Ord)--mkImage = (Image, objectUnrefFromMainloop)-unImage (Image o) = o--class MiscClass o => ImageClass o-toImage :: ImageClass o => o -> Image-toImage = unsafeCastGObject . toGObject--instance ImageClass Image-instance MiscClass Image-instance WidgetClass Image-instance GObjectClass Image where-  toGObject = GObject . castForeignPtr . unImage-  unsafeCastGObject = Image . castForeignPtr . unGObject--castToImage :: GObjectClass obj => obj -> Image-castToImage = castTo gTypeImage "Image"--gTypeImage :: GType-gTypeImage =-  {# call fun unsafe gtk_image_get_type #}---- ****************************************************************** Container--{#pointer *GtkContainer as Container foreign newtype #} deriving (Eq,Ord)--mkContainer = (Container, objectUnrefFromMainloop)-unContainer (Container o) = o--class WidgetClass o => ContainerClass o-toContainer :: ContainerClass o => o -> Container-toContainer = unsafeCastGObject . toGObject--instance ContainerClass Container-instance WidgetClass Container-instance GObjectClass Container where-  toGObject = GObject . castForeignPtr . unContainer-  unsafeCastGObject = Container . castForeignPtr . unGObject--castToContainer :: GObjectClass obj => obj -> Container-castToContainer = castTo gTypeContainer "Container"--gTypeContainer :: GType-gTypeContainer =-  {# call fun unsafe gtk_container_get_type #}---- **************************************************************** ToolPalette--{#pointer *GtkToolPalette as ToolPalette foreign newtype #} deriving (Eq,Ord)--mkToolPalette = (ToolPalette, objectUnrefFromMainloop)-unToolPalette (ToolPalette o) = o--class ContainerClass o => ToolPaletteClass o-toToolPalette :: ToolPaletteClass o => o -> ToolPalette-toToolPalette = unsafeCastGObject . toGObject--instance ToolPaletteClass ToolPalette-instance ContainerClass ToolPalette-instance WidgetClass ToolPalette-instance GObjectClass ToolPalette where-  toGObject = GObject . castForeignPtr . unToolPalette-  unsafeCastGObject = ToolPalette . castForeignPtr . unGObject--castToToolPalette :: GObjectClass obj => obj -> ToolPalette-castToToolPalette = castTo gTypeToolPalette "ToolPalette"--gTypeToolPalette :: GType-gTypeToolPalette =-  {# call fun unsafe gtk_tool_palette_get_type #}---- ************************************************************** ToolItemGroup--{#pointer *GtkToolItemGroup as ToolItemGroup foreign newtype #} deriving (Eq,Ord)--mkToolItemGroup = (ToolItemGroup, objectUnrefFromMainloop)-unToolItemGroup (ToolItemGroup o) = o--class ContainerClass o => ToolItemGroupClass o-toToolItemGroup :: ToolItemGroupClass o => o -> ToolItemGroup-toToolItemGroup = unsafeCastGObject . toGObject--instance ToolItemGroupClass ToolItemGroup-instance ContainerClass ToolItemGroup-instance WidgetClass ToolItemGroup-instance GObjectClass ToolItemGroup where-  toGObject = GObject . castForeignPtr . unToolItemGroup-  unsafeCastGObject = ToolItemGroup . castForeignPtr . unGObject--castToToolItemGroup :: GObjectClass obj => obj -> ToolItemGroup-castToToolItemGroup = castTo gTypeToolItemGroup "ToolItemGroup"--gTypeToolItemGroup :: GType-gTypeToolItemGroup =-  {# call fun unsafe gtk_tool_item_group_get_type #}---- ************************************************************************ Bin--{#pointer *GtkBin as Bin foreign newtype #} deriving (Eq,Ord)--mkBin = (Bin, objectUnrefFromMainloop)-unBin (Bin o) = o--class ContainerClass o => BinClass o-toBin :: BinClass o => o -> Bin-toBin = unsafeCastGObject . toGObject--instance BinClass Bin-instance ContainerClass Bin-instance WidgetClass Bin-instance GObjectClass Bin where-  toGObject = GObject . castForeignPtr . unBin-  unsafeCastGObject = Bin . castForeignPtr . unGObject--castToBin :: GObjectClass obj => obj -> Bin-castToBin = castTo gTypeBin "Bin"--gTypeBin :: GType-gTypeBin =-  {# call fun unsafe gtk_bin_get_type #}---- ****************************************************************** Alignment--{#pointer *GtkAlignment as Alignment foreign newtype #} deriving (Eq,Ord)--mkAlignment = (Alignment, objectUnrefFromMainloop)-unAlignment (Alignment o) = o--class BinClass o => AlignmentClass o-toAlignment :: AlignmentClass o => o -> Alignment-toAlignment = unsafeCastGObject . toGObject--instance AlignmentClass Alignment-instance BinClass Alignment-instance ContainerClass Alignment-instance WidgetClass Alignment-instance GObjectClass Alignment where-  toGObject = GObject . castForeignPtr . unAlignment-  unsafeCastGObject = Alignment . castForeignPtr . unGObject--castToAlignment :: GObjectClass obj => obj -> Alignment-castToAlignment = castTo gTypeAlignment "Alignment"--gTypeAlignment :: GType-gTypeAlignment =-  {# call fun unsafe gtk_alignment_get_type #}---- ********************************************************************** Frame--{#pointer *GtkFrame as Frame foreign newtype #} deriving (Eq,Ord)--mkFrame = (Frame, objectUnrefFromMainloop)-unFrame (Frame o) = o--class BinClass o => FrameClass o-toFrame :: FrameClass o => o -> Frame-toFrame = unsafeCastGObject . toGObject--instance FrameClass Frame-instance BinClass Frame-instance ContainerClass Frame-instance WidgetClass Frame-instance GObjectClass Frame where-  toGObject = GObject . castForeignPtr . unFrame-  unsafeCastGObject = Frame . castForeignPtr . unGObject--castToFrame :: GObjectClass obj => obj -> Frame-castToFrame = castTo gTypeFrame "Frame"--gTypeFrame :: GType-gTypeFrame =-  {# call fun unsafe gtk_frame_get_type #}---- **************************************************************** AspectFrame--{#pointer *GtkAspectFrame as AspectFrame foreign newtype #} deriving (Eq,Ord)--mkAspectFrame = (AspectFrame, objectUnrefFromMainloop)-unAspectFrame (AspectFrame o) = o--class FrameClass o => AspectFrameClass o-toAspectFrame :: AspectFrameClass o => o -> AspectFrame-toAspectFrame = unsafeCastGObject . toGObject--instance AspectFrameClass AspectFrame-instance FrameClass AspectFrame-instance BinClass AspectFrame-instance ContainerClass AspectFrame-instance WidgetClass AspectFrame-instance GObjectClass AspectFrame where-  toGObject = GObject . castForeignPtr . unAspectFrame-  unsafeCastGObject = AspectFrame . castForeignPtr . unGObject--castToAspectFrame :: GObjectClass obj => obj -> AspectFrame-castToAspectFrame = castTo gTypeAspectFrame "AspectFrame"--gTypeAspectFrame :: GType-gTypeAspectFrame =-  {# call fun unsafe gtk_aspect_frame_get_type #}---- ********************************************************************* Button--{#pointer *GtkButton as Button foreign newtype #} deriving (Eq,Ord)--mkButton = (Button, objectUnrefFromMainloop)-unButton (Button o) = o--class BinClass o => ButtonClass o-toButton :: ButtonClass o => o -> Button-toButton = unsafeCastGObject . toGObject--instance ButtonClass Button-instance BinClass Button-instance ContainerClass Button-instance WidgetClass Button-instance GObjectClass Button where-  toGObject = GObject . castForeignPtr . unButton-  unsafeCastGObject = Button . castForeignPtr . unGObject--castToButton :: GObjectClass obj => obj -> Button-castToButton = castTo gTypeButton "Button"--gTypeButton :: GType-gTypeButton =-  {# call fun unsafe gtk_button_get_type #}---- **************************************************************** ScaleButton--{#pointer *GtkScaleButton as ScaleButton foreign newtype #} deriving (Eq,Ord)--mkScaleButton = (ScaleButton, objectUnrefFromMainloop)-unScaleButton (ScaleButton o) = o--class ButtonClass o => ScaleButtonClass o-toScaleButton :: ScaleButtonClass o => o -> ScaleButton-toScaleButton = unsafeCastGObject . toGObject--instance ScaleButtonClass ScaleButton-instance ButtonClass ScaleButton-instance BinClass ScaleButton-instance ContainerClass ScaleButton-instance WidgetClass ScaleButton-instance GObjectClass ScaleButton where-  toGObject = GObject . castForeignPtr . unScaleButton-  unsafeCastGObject = ScaleButton . castForeignPtr . unGObject--castToScaleButton :: GObjectClass obj => obj -> ScaleButton-castToScaleButton = castTo gTypeScaleButton "ScaleButton"--gTypeScaleButton :: GType-gTypeScaleButton =-  {# call fun unsafe gtk_scale_button_get_type #}---- *************************************************************** VolumeButton--{#pointer *GtkVolumeButton as VolumeButton foreign newtype #} deriving (Eq,Ord)--mkVolumeButton = (VolumeButton, objectUnrefFromMainloop)-unVolumeButton (VolumeButton o) = o--class ScaleButtonClass o => VolumeButtonClass o-toVolumeButton :: VolumeButtonClass o => o -> VolumeButton-toVolumeButton = unsafeCastGObject . toGObject--instance VolumeButtonClass VolumeButton-instance ScaleButtonClass VolumeButton-instance ButtonClass VolumeButton-instance BinClass VolumeButton-instance ContainerClass VolumeButton-instance WidgetClass VolumeButton-instance GObjectClass VolumeButton where-  toGObject = GObject . castForeignPtr . unVolumeButton-  unsafeCastGObject = VolumeButton . castForeignPtr . unGObject--castToVolumeButton :: GObjectClass obj => obj -> VolumeButton-castToVolumeButton = castTo gTypeVolumeButton "VolumeButton"--gTypeVolumeButton :: GType-gTypeVolumeButton =-  {# call fun unsafe gtk_volume_button_get_type #}---- ***************************************************************** LinkButton--{#pointer *GtkLinkButton as LinkButton foreign newtype #} deriving (Eq,Ord)--mkLinkButton = (LinkButton, objectUnrefFromMainloop)-unLinkButton (LinkButton o) = o--class ButtonClass o => LinkButtonClass o-toLinkButton :: LinkButtonClass o => o -> LinkButton-toLinkButton = unsafeCastGObject . toGObject--instance LinkButtonClass LinkButton-instance ButtonClass LinkButton-instance BinClass LinkButton-instance ContainerClass LinkButton-instance WidgetClass LinkButton-instance GObjectClass LinkButton where-  toGObject = GObject . castForeignPtr . unLinkButton-  unsafeCastGObject = LinkButton . castForeignPtr . unGObject--castToLinkButton :: GObjectClass obj => obj -> LinkButton-castToLinkButton = castTo gTypeLinkButton "LinkButton"--gTypeLinkButton :: GType-gTypeLinkButton =-  {# call fun unsafe gtk_link_button_get_type #}---- *************************************************************** ToggleButton--{#pointer *GtkToggleButton as ToggleButton foreign newtype #} deriving (Eq,Ord)--mkToggleButton = (ToggleButton, objectUnrefFromMainloop)-unToggleButton (ToggleButton o) = o--class ButtonClass o => ToggleButtonClass o-toToggleButton :: ToggleButtonClass o => o -> ToggleButton-toToggleButton = unsafeCastGObject . toGObject--instance ToggleButtonClass ToggleButton-instance ButtonClass ToggleButton-instance BinClass ToggleButton-instance ContainerClass ToggleButton-instance WidgetClass ToggleButton-instance GObjectClass ToggleButton where-  toGObject = GObject . castForeignPtr . unToggleButton-  unsafeCastGObject = ToggleButton . castForeignPtr . unGObject--castToToggleButton :: GObjectClass obj => obj -> ToggleButton-castToToggleButton = castTo gTypeToggleButton "ToggleButton"--gTypeToggleButton :: GType-gTypeToggleButton =-  {# call fun unsafe gtk_toggle_button_get_type #}---- **************************************************************** CheckButton--{#pointer *GtkCheckButton as CheckButton foreign newtype #} deriving (Eq,Ord)--mkCheckButton = (CheckButton, objectUnrefFromMainloop)-unCheckButton (CheckButton o) = o--class ToggleButtonClass o => CheckButtonClass o-toCheckButton :: CheckButtonClass o => o -> CheckButton-toCheckButton = unsafeCastGObject . toGObject--instance CheckButtonClass CheckButton-instance ToggleButtonClass CheckButton-instance ButtonClass CheckButton-instance BinClass CheckButton-instance ContainerClass CheckButton-instance WidgetClass CheckButton-instance GObjectClass CheckButton where-  toGObject = GObject . castForeignPtr . unCheckButton-  unsafeCastGObject = CheckButton . castForeignPtr . unGObject--castToCheckButton :: GObjectClass obj => obj -> CheckButton-castToCheckButton = castTo gTypeCheckButton "CheckButton"--gTypeCheckButton :: GType-gTypeCheckButton =-  {# call fun unsafe gtk_check_button_get_type #}---- **************************************************************** RadioButton--{#pointer *GtkRadioButton as RadioButton foreign newtype #} deriving (Eq,Ord)--mkRadioButton = (RadioButton, objectUnrefFromMainloop)-unRadioButton (RadioButton o) = o--class CheckButtonClass o => RadioButtonClass o-toRadioButton :: RadioButtonClass o => o -> RadioButton-toRadioButton = unsafeCastGObject . toGObject--instance RadioButtonClass RadioButton-instance CheckButtonClass RadioButton-instance ToggleButtonClass RadioButton-instance ButtonClass RadioButton-instance BinClass RadioButton-instance ContainerClass RadioButton-instance WidgetClass RadioButton-instance GObjectClass RadioButton where-  toGObject = GObject . castForeignPtr . unRadioButton-  unsafeCastGObject = RadioButton . castForeignPtr . unGObject--castToRadioButton :: GObjectClass obj => obj -> RadioButton-castToRadioButton = castTo gTypeRadioButton "RadioButton"--gTypeRadioButton :: GType-gTypeRadioButton =-  {# call fun unsafe gtk_radio_button_get_type #}---- **************************************************************** ColorButton--{#pointer *GtkColorButton as ColorButton foreign newtype #} deriving (Eq,Ord)--mkColorButton = (ColorButton, objectUnrefFromMainloop)-unColorButton (ColorButton o) = o--class ButtonClass o => ColorButtonClass o-toColorButton :: ColorButtonClass o => o -> ColorButton-toColorButton = unsafeCastGObject . toGObject--instance ColorButtonClass ColorButton-instance ButtonClass ColorButton-instance BinClass ColorButton-instance ContainerClass ColorButton-instance WidgetClass ColorButton-instance GObjectClass ColorButton where-  toGObject = GObject . castForeignPtr . unColorButton-  unsafeCastGObject = ColorButton . castForeignPtr . unGObject--castToColorButton :: GObjectClass obj => obj -> ColorButton-castToColorButton = castTo gTypeColorButton "ColorButton"--gTypeColorButton :: GType-gTypeColorButton =-  {# call fun unsafe gtk_color_button_get_type #}---- ***************************************************************** FontButton--{#pointer *GtkFontButton as FontButton foreign newtype #} deriving (Eq,Ord)--mkFontButton = (FontButton, objectUnrefFromMainloop)-unFontButton (FontButton o) = o--class ButtonClass o => FontButtonClass o-toFontButton :: FontButtonClass o => o -> FontButton-toFontButton = unsafeCastGObject . toGObject--instance FontButtonClass FontButton-instance ButtonClass FontButton-instance BinClass FontButton-instance ContainerClass FontButton-instance WidgetClass FontButton-instance GObjectClass FontButton where-  toGObject = GObject . castForeignPtr . unFontButton-  unsafeCastGObject = FontButton . castForeignPtr . unGObject--castToFontButton :: GObjectClass obj => obj -> FontButton-castToFontButton = castTo gTypeFontButton "FontButton"--gTypeFontButton :: GType-gTypeFontButton =-  {# call fun unsafe gtk_font_button_get_type #}---- ******************************************************************* MenuItem--{#pointer *GtkMenuItem as MenuItem foreign newtype #} deriving (Eq,Ord)--mkMenuItem = (MenuItem, objectUnrefFromMainloop)-unMenuItem (MenuItem o) = o--class BinClass o => MenuItemClass o-toMenuItem :: MenuItemClass o => o -> MenuItem-toMenuItem = unsafeCastGObject . toGObject--instance MenuItemClass MenuItem-instance BinClass MenuItem-instance ContainerClass MenuItem-instance WidgetClass MenuItem-instance GObjectClass MenuItem where-  toGObject = GObject . castForeignPtr . unMenuItem-  unsafeCastGObject = MenuItem . castForeignPtr . unGObject--castToMenuItem :: GObjectClass obj => obj -> MenuItem-castToMenuItem = castTo gTypeMenuItem "MenuItem"--gTypeMenuItem :: GType-gTypeMenuItem =-  {# call fun unsafe gtk_menu_item_get_type #}---- ************************************************************** CheckMenuItem--{#pointer *GtkCheckMenuItem as CheckMenuItem foreign newtype #} deriving (Eq,Ord)--mkCheckMenuItem = (CheckMenuItem, objectUnrefFromMainloop)-unCheckMenuItem (CheckMenuItem o) = o--class MenuItemClass o => CheckMenuItemClass o-toCheckMenuItem :: CheckMenuItemClass o => o -> CheckMenuItem-toCheckMenuItem = unsafeCastGObject . toGObject--instance CheckMenuItemClass CheckMenuItem-instance MenuItemClass CheckMenuItem-instance BinClass CheckMenuItem-instance ContainerClass CheckMenuItem-instance WidgetClass CheckMenuItem-instance GObjectClass CheckMenuItem where-  toGObject = GObject . castForeignPtr . unCheckMenuItem-  unsafeCastGObject = CheckMenuItem . castForeignPtr . unGObject--castToCheckMenuItem :: GObjectClass obj => obj -> CheckMenuItem-castToCheckMenuItem = castTo gTypeCheckMenuItem "CheckMenuItem"--gTypeCheckMenuItem :: GType-gTypeCheckMenuItem =-  {# call fun unsafe gtk_check_menu_item_get_type #}---- ************************************************************** RadioMenuItem--{#pointer *GtkRadioMenuItem as RadioMenuItem foreign newtype #} deriving (Eq,Ord)--mkRadioMenuItem = (RadioMenuItem, objectUnrefFromMainloop)-unRadioMenuItem (RadioMenuItem o) = o--class CheckMenuItemClass o => RadioMenuItemClass o-toRadioMenuItem :: RadioMenuItemClass o => o -> RadioMenuItem-toRadioMenuItem = unsafeCastGObject . toGObject--instance RadioMenuItemClass RadioMenuItem-instance CheckMenuItemClass RadioMenuItem-instance MenuItemClass RadioMenuItem-instance BinClass RadioMenuItem-instance ContainerClass RadioMenuItem-instance WidgetClass RadioMenuItem-instance GObjectClass RadioMenuItem where-  toGObject = GObject . castForeignPtr . unRadioMenuItem-  unsafeCastGObject = RadioMenuItem . castForeignPtr . unGObject--castToRadioMenuItem :: GObjectClass obj => obj -> RadioMenuItem-castToRadioMenuItem = castTo gTypeRadioMenuItem "RadioMenuItem"--gTypeRadioMenuItem :: GType-gTypeRadioMenuItem =-  {# call fun unsafe gtk_radio_menu_item_get_type #}---- ************************************************************ TearoffMenuItem--{#pointer *GtkTearoffMenuItem as TearoffMenuItem foreign newtype #} deriving (Eq,Ord)--mkTearoffMenuItem = (TearoffMenuItem, objectUnrefFromMainloop)-unTearoffMenuItem (TearoffMenuItem o) = o--class MenuItemClass o => TearoffMenuItemClass o-toTearoffMenuItem :: TearoffMenuItemClass o => o -> TearoffMenuItem-toTearoffMenuItem = unsafeCastGObject . toGObject--instance TearoffMenuItemClass TearoffMenuItem-instance MenuItemClass TearoffMenuItem-instance BinClass TearoffMenuItem-instance ContainerClass TearoffMenuItem-instance WidgetClass TearoffMenuItem-instance GObjectClass TearoffMenuItem where-  toGObject = GObject . castForeignPtr . unTearoffMenuItem-  unsafeCastGObject = TearoffMenuItem . castForeignPtr . unGObject--castToTearoffMenuItem :: GObjectClass obj => obj -> TearoffMenuItem-castToTearoffMenuItem = castTo gTypeTearoffMenuItem "TearoffMenuItem"--gTypeTearoffMenuItem :: GType-gTypeTearoffMenuItem =-  {# call fun unsafe gtk_tearoff_menu_item_get_type #}---- ************************************************************** ImageMenuItem--{#pointer *GtkImageMenuItem as ImageMenuItem foreign newtype #} deriving (Eq,Ord)--mkImageMenuItem = (ImageMenuItem, objectUnrefFromMainloop)-unImageMenuItem (ImageMenuItem o) = o--class MenuItemClass o => ImageMenuItemClass o-toImageMenuItem :: ImageMenuItemClass o => o -> ImageMenuItem-toImageMenuItem = unsafeCastGObject . toGObject--instance ImageMenuItemClass ImageMenuItem-instance MenuItemClass ImageMenuItem-instance BinClass ImageMenuItem-instance ContainerClass ImageMenuItem-instance WidgetClass ImageMenuItem-instance GObjectClass ImageMenuItem where-  toGObject = GObject . castForeignPtr . unImageMenuItem-  unsafeCastGObject = ImageMenuItem . castForeignPtr . unGObject--castToImageMenuItem :: GObjectClass obj => obj -> ImageMenuItem-castToImageMenuItem = castTo gTypeImageMenuItem "ImageMenuItem"--gTypeImageMenuItem :: GType-gTypeImageMenuItem =-  {# call fun unsafe gtk_image_menu_item_get_type #}---- ********************************************************** SeparatorMenuItem--{#pointer *GtkSeparatorMenuItem as SeparatorMenuItem foreign newtype #} deriving (Eq,Ord)--mkSeparatorMenuItem = (SeparatorMenuItem, objectUnrefFromMainloop)-unSeparatorMenuItem (SeparatorMenuItem o) = o--class MenuItemClass o => SeparatorMenuItemClass o-toSeparatorMenuItem :: SeparatorMenuItemClass o => o -> SeparatorMenuItem-toSeparatorMenuItem = unsafeCastGObject . toGObject--instance SeparatorMenuItemClass SeparatorMenuItem-instance MenuItemClass SeparatorMenuItem-instance BinClass SeparatorMenuItem-instance ContainerClass SeparatorMenuItem-instance WidgetClass SeparatorMenuItem-instance GObjectClass SeparatorMenuItem where-  toGObject = GObject . castForeignPtr . unSeparatorMenuItem-  unsafeCastGObject = SeparatorMenuItem . castForeignPtr . unGObject--castToSeparatorMenuItem :: GObjectClass obj => obj -> SeparatorMenuItem-castToSeparatorMenuItem = castTo gTypeSeparatorMenuItem "SeparatorMenuItem"--gTypeSeparatorMenuItem :: GType-gTypeSeparatorMenuItem =-  {# call fun unsafe gtk_separator_menu_item_get_type #}---- ******************************************************************** Overlay--{#pointer *GtkOverlay as Overlay foreign newtype #} deriving (Eq,Ord)--mkOverlay = (Overlay, objectUnrefFromMainloop)-unOverlay (Overlay o) = o--class BinClass o => OverlayClass o-toOverlay :: OverlayClass o => o -> Overlay-toOverlay = unsafeCastGObject . toGObject--instance OverlayClass Overlay-instance BinClass Overlay-instance ContainerClass Overlay-instance WidgetClass Overlay-instance GObjectClass Overlay where-  toGObject = GObject . castForeignPtr . unOverlay-  unsafeCastGObject = Overlay . castForeignPtr . unGObject--castToOverlay :: GObjectClass obj => obj -> Overlay-castToOverlay = castTo gTypeOverlay "Overlay"--gTypeOverlay :: GType-gTypeOverlay =-  {# call fun unsafe gtk_overlay_get_type #}---- ********************************************************************* Window--{#pointer *GtkWindow as Window foreign newtype #} deriving (Eq,Ord)--mkWindow = (Window, objectUnrefFromMainloop)-unWindow (Window o) = o--class BinClass o => WindowClass o-toWindow :: WindowClass o => o -> Window-toWindow = unsafeCastGObject . toGObject--instance WindowClass Window-instance BinClass Window-instance ContainerClass Window-instance WidgetClass Window-instance GObjectClass Window where-  toGObject = GObject . castForeignPtr . unWindow-  unsafeCastGObject = Window . castForeignPtr . unGObject--castToWindow :: GObjectClass obj => obj -> Window-castToWindow = castTo gTypeWindow "Window"--gTypeWindow :: GType-gTypeWindow =-  {# call fun unsafe gtk_window_get_type #}---- ****************************************************************** Assistant--{#pointer *GtkAssistant as Assistant foreign newtype #} deriving (Eq,Ord)--mkAssistant = (Assistant, objectUnrefFromMainloop)-unAssistant (Assistant o) = o--class WindowClass o => AssistantClass o-toAssistant :: AssistantClass o => o -> Assistant-toAssistant = unsafeCastGObject . toGObject--instance AssistantClass Assistant-instance WindowClass Assistant-instance BinClass Assistant-instance ContainerClass Assistant-instance WidgetClass Assistant-instance GObjectClass Assistant where-  toGObject = GObject . castForeignPtr . unAssistant-  unsafeCastGObject = Assistant . castForeignPtr . unGObject--castToAssistant :: GObjectClass obj => obj -> Assistant-castToAssistant = castTo gTypeAssistant "Assistant"--gTypeAssistant :: GType-gTypeAssistant =-  {# call fun unsafe gtk_assistant_get_type #}---- ************************************************************ OffscreenWindow--{#pointer *GtkOffscreenWindow as OffscreenWindow foreign newtype #} deriving (Eq,Ord)--mkOffscreenWindow = (OffscreenWindow, objectUnrefFromMainloop)-unOffscreenWindow (OffscreenWindow o) = o--class WindowClass o => OffscreenWindowClass o-toOffscreenWindow :: OffscreenWindowClass o => o -> OffscreenWindow-toOffscreenWindow = unsafeCastGObject . toGObject--instance OffscreenWindowClass OffscreenWindow-instance WindowClass OffscreenWindow-instance BinClass OffscreenWindow-instance ContainerClass OffscreenWindow-instance WidgetClass OffscreenWindow-instance GObjectClass OffscreenWindow where-  toGObject = GObject . castForeignPtr . unOffscreenWindow-  unsafeCastGObject = OffscreenWindow . castForeignPtr . unGObject--castToOffscreenWindow :: GObjectClass obj => obj -> OffscreenWindow-castToOffscreenWindow = castTo gTypeOffscreenWindow "OffscreenWindow"--gTypeOffscreenWindow :: GType-gTypeOffscreenWindow =-  {# call fun unsafe gtk_offscreen_window_get_type #}---- ********************************************************************* Dialog--{#pointer *GtkDialog as Dialog foreign newtype #} deriving (Eq,Ord)--mkDialog = (Dialog, objectUnrefFromMainloop)-unDialog (Dialog o) = o--class WindowClass o => DialogClass o-toDialog :: DialogClass o => o -> Dialog-toDialog = unsafeCastGObject . toGObject--instance DialogClass Dialog-instance WindowClass Dialog-instance BinClass Dialog-instance ContainerClass Dialog-instance WidgetClass Dialog-instance GObjectClass Dialog where-  toGObject = GObject . castForeignPtr . unDialog-  unsafeCastGObject = Dialog . castForeignPtr . unGObject--castToDialog :: GObjectClass obj => obj -> Dialog-castToDialog = castTo gTypeDialog "Dialog"--gTypeDialog :: GType-gTypeDialog =-  {# call fun unsafe gtk_dialog_get_type #}---- **************************************************************** AboutDialog--{#pointer *GtkAboutDialog as AboutDialog foreign newtype #} deriving (Eq,Ord)--mkAboutDialog = (AboutDialog, objectUnrefFromMainloop)-unAboutDialog (AboutDialog o) = o--class DialogClass o => AboutDialogClass o-toAboutDialog :: AboutDialogClass o => o -> AboutDialog-toAboutDialog = unsafeCastGObject . toGObject--instance AboutDialogClass AboutDialog-instance DialogClass AboutDialog-instance WindowClass AboutDialog-instance BinClass AboutDialog-instance ContainerClass AboutDialog-instance WidgetClass AboutDialog-instance GObjectClass AboutDialog where-  toGObject = GObject . castForeignPtr . unAboutDialog-  unsafeCastGObject = AboutDialog . castForeignPtr . unGObject--castToAboutDialog :: GObjectClass obj => obj -> AboutDialog-castToAboutDialog = castTo gTypeAboutDialog "AboutDialog"--gTypeAboutDialog :: GType-gTypeAboutDialog =-  {# call fun unsafe gtk_about_dialog_get_type #}---- ******************************************************* ColorSelectionDialog--{#pointer *GtkColorSelectionDialog as ColorSelectionDialog foreign newtype #} deriving (Eq,Ord)--mkColorSelectionDialog = (ColorSelectionDialog, objectUnrefFromMainloop)-unColorSelectionDialog (ColorSelectionDialog o) = o--class DialogClass o => ColorSelectionDialogClass o-toColorSelectionDialog :: ColorSelectionDialogClass o => o -> ColorSelectionDialog-toColorSelectionDialog = unsafeCastGObject . toGObject--instance ColorSelectionDialogClass ColorSelectionDialog-instance DialogClass ColorSelectionDialog-instance WindowClass ColorSelectionDialog-instance BinClass ColorSelectionDialog-instance ContainerClass ColorSelectionDialog-instance WidgetClass ColorSelectionDialog-instance GObjectClass ColorSelectionDialog where-  toGObject = GObject . castForeignPtr . unColorSelectionDialog-  unsafeCastGObject = ColorSelectionDialog . castForeignPtr . unGObject--castToColorSelectionDialog :: GObjectClass obj => obj -> ColorSelectionDialog-castToColorSelectionDialog = castTo gTypeColorSelectionDialog "ColorSelectionDialog"--gTypeColorSelectionDialog :: GType-gTypeColorSelectionDialog =-  {# call fun unsafe gtk_color_selection_dialog_get_type #}---- ********************************************************** FileChooserDialog--{#pointer *GtkFileChooserDialog as FileChooserDialog foreign newtype #} deriving (Eq,Ord)--mkFileChooserDialog = (FileChooserDialog, objectUnrefFromMainloop)-unFileChooserDialog (FileChooserDialog o) = o--class DialogClass o => FileChooserDialogClass o-toFileChooserDialog :: FileChooserDialogClass o => o -> FileChooserDialog-toFileChooserDialog = unsafeCastGObject . toGObject--instance FileChooserDialogClass FileChooserDialog-instance DialogClass FileChooserDialog-instance WindowClass FileChooserDialog-instance BinClass FileChooserDialog-instance ContainerClass FileChooserDialog-instance WidgetClass FileChooserDialog-instance GObjectClass FileChooserDialog where-  toGObject = GObject . castForeignPtr . unFileChooserDialog-  unsafeCastGObject = FileChooserDialog . castForeignPtr . unGObject--castToFileChooserDialog :: GObjectClass obj => obj -> FileChooserDialog-castToFileChooserDialog = castTo gTypeFileChooserDialog "FileChooserDialog"--gTypeFileChooserDialog :: GType-gTypeFileChooserDialog =-  {# call fun unsafe gtk_file_chooser_dialog_get_type #}---- ******************************************************** FontSelectionDialog--{#pointer *GtkFontSelectionDialog as FontSelectionDialog foreign newtype #} deriving (Eq,Ord)--mkFontSelectionDialog = (FontSelectionDialog, objectUnrefFromMainloop)-unFontSelectionDialog (FontSelectionDialog o) = o--class DialogClass o => FontSelectionDialogClass o-toFontSelectionDialog :: FontSelectionDialogClass o => o -> FontSelectionDialog-toFontSelectionDialog = unsafeCastGObject . toGObject--instance FontSelectionDialogClass FontSelectionDialog-instance DialogClass FontSelectionDialog-instance WindowClass FontSelectionDialog-instance BinClass FontSelectionDialog-instance ContainerClass FontSelectionDialog-instance WidgetClass FontSelectionDialog-instance GObjectClass FontSelectionDialog where-  toGObject = GObject . castForeignPtr . unFontSelectionDialog-  unsafeCastGObject = FontSelectionDialog . castForeignPtr . unGObject--castToFontSelectionDialog :: GObjectClass obj => obj -> FontSelectionDialog-castToFontSelectionDialog = castTo gTypeFontSelectionDialog "FontSelectionDialog"--gTypeFontSelectionDialog :: GType-gTypeFontSelectionDialog =-  {# call fun unsafe gtk_font_selection_dialog_get_type #}---- ************************************************************** MessageDialog--{#pointer *GtkMessageDialog as MessageDialog foreign newtype #} deriving (Eq,Ord)--mkMessageDialog = (MessageDialog, objectUnrefFromMainloop)-unMessageDialog (MessageDialog o) = o--class DialogClass o => MessageDialogClass o-toMessageDialog :: MessageDialogClass o => o -> MessageDialog-toMessageDialog = unsafeCastGObject . toGObject--instance MessageDialogClass MessageDialog-instance DialogClass MessageDialog-instance WindowClass MessageDialog-instance BinClass MessageDialog-instance ContainerClass MessageDialog-instance WidgetClass MessageDialog-instance GObjectClass MessageDialog where-  toGObject = GObject . castForeignPtr . unMessageDialog-  unsafeCastGObject = MessageDialog . castForeignPtr . unGObject--castToMessageDialog :: GObjectClass obj => obj -> MessageDialog-castToMessageDialog = castTo gTypeMessageDialog "MessageDialog"--gTypeMessageDialog :: GType-gTypeMessageDialog =-  {# call fun unsafe gtk_message_dialog_get_type #}---- ******************************************************************* EventBox--{#pointer *GtkEventBox as EventBox foreign newtype #} deriving (Eq,Ord)--mkEventBox = (EventBox, objectUnrefFromMainloop)-unEventBox (EventBox o) = o--class BinClass o => EventBoxClass o-toEventBox :: EventBoxClass o => o -> EventBox-toEventBox = unsafeCastGObject . toGObject--instance EventBoxClass EventBox-instance BinClass EventBox-instance ContainerClass EventBox-instance WidgetClass EventBox-instance GObjectClass EventBox where-  toGObject = GObject . castForeignPtr . unEventBox-  unsafeCastGObject = EventBox . castForeignPtr . unGObject--castToEventBox :: GObjectClass obj => obj -> EventBox-castToEventBox = castTo gTypeEventBox "EventBox"--gTypeEventBox :: GType-gTypeEventBox =-  {# call fun unsafe gtk_event_box_get_type #}---- ****************************************************************** HandleBox--{#pointer *GtkHandleBox as HandleBox foreign newtype #} deriving (Eq,Ord)--mkHandleBox = (HandleBox, objectUnrefFromMainloop)-unHandleBox (HandleBox o) = o--class BinClass o => HandleBoxClass o-toHandleBox :: HandleBoxClass o => o -> HandleBox-toHandleBox = unsafeCastGObject . toGObject--instance HandleBoxClass HandleBox-instance BinClass HandleBox-instance ContainerClass HandleBox-instance WidgetClass HandleBox-instance GObjectClass HandleBox where-  toGObject = GObject . castForeignPtr . unHandleBox-  unsafeCastGObject = HandleBox . castForeignPtr . unGObject--castToHandleBox :: GObjectClass obj => obj -> HandleBox-castToHandleBox = castTo gTypeHandleBox "HandleBox"--gTypeHandleBox :: GType-gTypeHandleBox =-  {# call fun unsafe gtk_handle_box_get_type #}---- ************************************************************* ScrolledWindow--{#pointer *GtkScrolledWindow as ScrolledWindow foreign newtype #} deriving (Eq,Ord)--mkScrolledWindow = (ScrolledWindow, objectUnrefFromMainloop)-unScrolledWindow (ScrolledWindow o) = o--class BinClass o => ScrolledWindowClass o-toScrolledWindow :: ScrolledWindowClass o => o -> ScrolledWindow-toScrolledWindow = unsafeCastGObject . toGObject--instance ScrolledWindowClass ScrolledWindow-instance BinClass ScrolledWindow-instance ContainerClass ScrolledWindow-instance WidgetClass ScrolledWindow-instance GObjectClass ScrolledWindow where-  toGObject = GObject . castForeignPtr . unScrolledWindow-  unsafeCastGObject = ScrolledWindow . castForeignPtr . unGObject--castToScrolledWindow :: GObjectClass obj => obj -> ScrolledWindow-castToScrolledWindow = castTo gTypeScrolledWindow "ScrolledWindow"--gTypeScrolledWindow :: GType-gTypeScrolledWindow =-  {# call fun unsafe gtk_scrolled_window_get_type #}---- ******************************************************************* Viewport--{#pointer *GtkViewport as Viewport foreign newtype #} deriving (Eq,Ord)--mkViewport = (Viewport, objectUnrefFromMainloop)-unViewport (Viewport o) = o--class BinClass o => ViewportClass o-toViewport :: ViewportClass o => o -> Viewport-toViewport = unsafeCastGObject . toGObject--instance ViewportClass Viewport-instance BinClass Viewport-instance ContainerClass Viewport-instance WidgetClass Viewport-instance GObjectClass Viewport where-  toGObject = GObject . castForeignPtr . unViewport-  unsafeCastGObject = Viewport . castForeignPtr . unGObject--castToViewport :: GObjectClass obj => obj -> Viewport-castToViewport = castTo gTypeViewport "Viewport"--gTypeViewport :: GType-gTypeViewport =-  {# call fun unsafe gtk_viewport_get_type #}---- ******************************************************************* Expander--{#pointer *GtkExpander as Expander foreign newtype #} deriving (Eq,Ord)--mkExpander = (Expander, objectUnrefFromMainloop)-unExpander (Expander o) = o--class BinClass o => ExpanderClass o-toExpander :: ExpanderClass o => o -> Expander-toExpander = unsafeCastGObject . toGObject--instance ExpanderClass Expander-instance BinClass Expander-instance ContainerClass Expander-instance WidgetClass Expander-instance GObjectClass Expander where-  toGObject = GObject . castForeignPtr . unExpander-  unsafeCastGObject = Expander . castForeignPtr . unGObject--castToExpander :: GObjectClass obj => obj -> Expander-castToExpander = castTo gTypeExpander "Expander"--gTypeExpander :: GType-gTypeExpander =-  {# call fun unsafe gtk_expander_get_type #}---- ******************************************************************* ComboBox--{#pointer *GtkComboBox as ComboBox foreign newtype #} deriving (Eq,Ord)--mkComboBox = (ComboBox, objectUnrefFromMainloop)-unComboBox (ComboBox o) = o--class BinClass o => ComboBoxClass o-toComboBox :: ComboBoxClass o => o -> ComboBox-toComboBox = unsafeCastGObject . toGObject--instance ComboBoxClass ComboBox-instance BinClass ComboBox-instance ContainerClass ComboBox-instance WidgetClass ComboBox-instance GObjectClass ComboBox where-  toGObject = GObject . castForeignPtr . unComboBox-  unsafeCastGObject = ComboBox . castForeignPtr . unGObject--castToComboBox :: GObjectClass obj => obj -> ComboBox-castToComboBox = castTo gTypeComboBox "ComboBox"--gTypeComboBox :: GType-gTypeComboBox =-  {# call fun unsafe gtk_combo_box_get_type #}---- ******************************************************************* ToolItem--{#pointer *GtkToolItem as ToolItem foreign newtype #} deriving (Eq,Ord)--mkToolItem = (ToolItem, objectUnrefFromMainloop)-unToolItem (ToolItem o) = o--class BinClass o => ToolItemClass o-toToolItem :: ToolItemClass o => o -> ToolItem-toToolItem = unsafeCastGObject . toGObject--instance ToolItemClass ToolItem-instance BinClass ToolItem-instance ContainerClass ToolItem-instance WidgetClass ToolItem-instance GObjectClass ToolItem where-  toGObject = GObject . castForeignPtr . unToolItem-  unsafeCastGObject = ToolItem . castForeignPtr . unGObject--castToToolItem :: GObjectClass obj => obj -> ToolItem-castToToolItem = castTo gTypeToolItem "ToolItem"--gTypeToolItem :: GType-gTypeToolItem =-  {# call fun unsafe gtk_tool_item_get_type #}---- ***************************************************************** ToolButton--{#pointer *GtkToolButton as ToolButton foreign newtype #} deriving (Eq,Ord)--mkToolButton = (ToolButton, objectUnrefFromMainloop)-unToolButton (ToolButton o) = o--class ToolItemClass o => ToolButtonClass o-toToolButton :: ToolButtonClass o => o -> ToolButton-toToolButton = unsafeCastGObject . toGObject--instance ToolButtonClass ToolButton-instance ToolItemClass ToolButton-instance BinClass ToolButton-instance ContainerClass ToolButton-instance WidgetClass ToolButton-instance GObjectClass ToolButton where-  toGObject = GObject . castForeignPtr . unToolButton-  unsafeCastGObject = ToolButton . castForeignPtr . unGObject--castToToolButton :: GObjectClass obj => obj -> ToolButton-castToToolButton = castTo gTypeToolButton "ToolButton"--gTypeToolButton :: GType-gTypeToolButton =-  {# call fun unsafe gtk_tool_button_get_type #}---- ************************************************************* MenuToolButton--{#pointer *GtkMenuToolButton as MenuToolButton foreign newtype #} deriving (Eq,Ord)--mkMenuToolButton = (MenuToolButton, objectUnrefFromMainloop)-unMenuToolButton (MenuToolButton o) = o--class ToolButtonClass o => MenuToolButtonClass o-toMenuToolButton :: MenuToolButtonClass o => o -> MenuToolButton-toMenuToolButton = unsafeCastGObject . toGObject--instance MenuToolButtonClass MenuToolButton-instance ToolButtonClass MenuToolButton-instance ToolItemClass MenuToolButton-instance BinClass MenuToolButton-instance ContainerClass MenuToolButton-instance WidgetClass MenuToolButton-instance GObjectClass MenuToolButton where-  toGObject = GObject . castForeignPtr . unMenuToolButton-  unsafeCastGObject = MenuToolButton . castForeignPtr . unGObject--castToMenuToolButton :: GObjectClass obj => obj -> MenuToolButton-castToMenuToolButton = castTo gTypeMenuToolButton "MenuToolButton"--gTypeMenuToolButton :: GType-gTypeMenuToolButton =-  {# call fun unsafe gtk_menu_tool_button_get_type #}---- *********************************************************** ToggleToolButton--{#pointer *GtkToggleToolButton as ToggleToolButton foreign newtype #} deriving (Eq,Ord)--mkToggleToolButton = (ToggleToolButton, objectUnrefFromMainloop)-unToggleToolButton (ToggleToolButton o) = o--class ToolButtonClass o => ToggleToolButtonClass o-toToggleToolButton :: ToggleToolButtonClass o => o -> ToggleToolButton-toToggleToolButton = unsafeCastGObject . toGObject--instance ToggleToolButtonClass ToggleToolButton-instance ToolButtonClass ToggleToolButton-instance ToolItemClass ToggleToolButton-instance BinClass ToggleToolButton-instance ContainerClass ToggleToolButton-instance WidgetClass ToggleToolButton-instance GObjectClass ToggleToolButton where-  toGObject = GObject . castForeignPtr . unToggleToolButton-  unsafeCastGObject = ToggleToolButton . castForeignPtr . unGObject--castToToggleToolButton :: GObjectClass obj => obj -> ToggleToolButton-castToToggleToolButton = castTo gTypeToggleToolButton "ToggleToolButton"--gTypeToggleToolButton :: GType-gTypeToggleToolButton =-  {# call fun unsafe gtk_toggle_tool_button_get_type #}---- ************************************************************ RadioToolButton--{#pointer *GtkRadioToolButton as RadioToolButton foreign newtype #} deriving (Eq,Ord)--mkRadioToolButton = (RadioToolButton, objectUnrefFromMainloop)-unRadioToolButton (RadioToolButton o) = o--class ToggleToolButtonClass o => RadioToolButtonClass o-toRadioToolButton :: RadioToolButtonClass o => o -> RadioToolButton-toRadioToolButton = unsafeCastGObject . toGObject--instance RadioToolButtonClass RadioToolButton-instance ToggleToolButtonClass RadioToolButton-instance ToolButtonClass RadioToolButton-instance ToolItemClass RadioToolButton-instance BinClass RadioToolButton-instance ContainerClass RadioToolButton-instance WidgetClass RadioToolButton-instance GObjectClass RadioToolButton where-  toGObject = GObject . castForeignPtr . unRadioToolButton-  unsafeCastGObject = RadioToolButton . castForeignPtr . unGObject--castToRadioToolButton :: GObjectClass obj => obj -> RadioToolButton-castToRadioToolButton = castTo gTypeRadioToolButton "RadioToolButton"--gTypeRadioToolButton :: GType-gTypeRadioToolButton =-  {# call fun unsafe gtk_radio_tool_button_get_type #}---- ********************************************************** SeparatorToolItem--{#pointer *GtkSeparatorToolItem as SeparatorToolItem foreign newtype #} deriving (Eq,Ord)--mkSeparatorToolItem = (SeparatorToolItem, objectUnrefFromMainloop)-unSeparatorToolItem (SeparatorToolItem o) = o--class ToolItemClass o => SeparatorToolItemClass o-toSeparatorToolItem :: SeparatorToolItemClass o => o -> SeparatorToolItem-toSeparatorToolItem = unsafeCastGObject . toGObject--instance SeparatorToolItemClass SeparatorToolItem-instance ToolItemClass SeparatorToolItem-instance BinClass SeparatorToolItem-instance ContainerClass SeparatorToolItem-instance WidgetClass SeparatorToolItem-instance GObjectClass SeparatorToolItem where-  toGObject = GObject . castForeignPtr . unSeparatorToolItem-  unsafeCastGObject = SeparatorToolItem . castForeignPtr . unGObject--castToSeparatorToolItem :: GObjectClass obj => obj -> SeparatorToolItem-castToSeparatorToolItem = castTo gTypeSeparatorToolItem "SeparatorToolItem"--gTypeSeparatorToolItem :: GType-gTypeSeparatorToolItem =-  {# call fun unsafe gtk_separator_tool_item_get_type #}---- ************************************************************************ Box--{#pointer *GtkBox as Box foreign newtype #} deriving (Eq,Ord)--mkBox = (Box, objectUnrefFromMainloop)-unBox (Box o) = o--class ContainerClass o => BoxClass o-toBox :: BoxClass o => o -> Box-toBox = unsafeCastGObject . toGObject--instance BoxClass Box-instance ContainerClass Box-instance WidgetClass Box-instance GObjectClass Box where-  toGObject = GObject . castForeignPtr . unBox-  unsafeCastGObject = Box . castForeignPtr . unGObject--castToBox :: GObjectClass obj => obj -> Box-castToBox = castTo gTypeBox "Box"--gTypeBox :: GType-gTypeBox =-  {# call fun unsafe gtk_box_get_type #}---- ****************************************************************** ButtonBox--{#pointer *GtkButtonBox as ButtonBox foreign newtype #} deriving (Eq,Ord)--mkButtonBox = (ButtonBox, objectUnrefFromMainloop)-unButtonBox (ButtonBox o) = o--class BoxClass o => ButtonBoxClass o-toButtonBox :: ButtonBoxClass o => o -> ButtonBox-toButtonBox = unsafeCastGObject . toGObject--instance ButtonBoxClass ButtonBox-instance BoxClass ButtonBox-instance ContainerClass ButtonBox-instance WidgetClass ButtonBox-instance GObjectClass ButtonBox where-  toGObject = GObject . castForeignPtr . unButtonBox-  unsafeCastGObject = ButtonBox . castForeignPtr . unGObject--castToButtonBox :: GObjectClass obj => obj -> ButtonBox-castToButtonBox = castTo gTypeButtonBox "ButtonBox"--gTypeButtonBox :: GType-gTypeButtonBox =-  {# call fun unsafe gtk_button_box_get_type #}---- ***************************************************************** HButtonBox--{#pointer *GtkHButtonBox as HButtonBox foreign newtype #} deriving (Eq,Ord)--mkHButtonBox = (HButtonBox, objectUnrefFromMainloop)-unHButtonBox (HButtonBox o) = o--class ButtonBoxClass o => HButtonBoxClass o-toHButtonBox :: HButtonBoxClass o => o -> HButtonBox-toHButtonBox = unsafeCastGObject . toGObject--instance HButtonBoxClass HButtonBox-instance ButtonBoxClass HButtonBox-instance BoxClass HButtonBox-instance ContainerClass HButtonBox-instance WidgetClass HButtonBox-instance GObjectClass HButtonBox where-  toGObject = GObject . castForeignPtr . unHButtonBox-  unsafeCastGObject = HButtonBox . castForeignPtr . unGObject--castToHButtonBox :: GObjectClass obj => obj -> HButtonBox-castToHButtonBox = castTo gTypeHButtonBox "HButtonBox"--gTypeHButtonBox :: GType-gTypeHButtonBox =-  {# call fun unsafe gtk_hbutton_box_get_type #}---- ***************************************************************** VButtonBox--{#pointer *GtkVButtonBox as VButtonBox foreign newtype #} deriving (Eq,Ord)--mkVButtonBox = (VButtonBox, objectUnrefFromMainloop)-unVButtonBox (VButtonBox o) = o--class ButtonBoxClass o => VButtonBoxClass o-toVButtonBox :: VButtonBoxClass o => o -> VButtonBox-toVButtonBox = unsafeCastGObject . toGObject--instance VButtonBoxClass VButtonBox-instance ButtonBoxClass VButtonBox-instance BoxClass VButtonBox-instance ContainerClass VButtonBox-instance WidgetClass VButtonBox-instance GObjectClass VButtonBox where-  toGObject = GObject . castForeignPtr . unVButtonBox-  unsafeCastGObject = VButtonBox . castForeignPtr . unGObject--castToVButtonBox :: GObjectClass obj => obj -> VButtonBox-castToVButtonBox = castTo gTypeVButtonBox "VButtonBox"--gTypeVButtonBox :: GType-gTypeVButtonBox =-  {# call fun unsafe gtk_vbutton_box_get_type #}---- *********************************************************************** VBox--{#pointer *GtkVBox as VBox foreign newtype #} deriving (Eq,Ord)--mkVBox = (VBox, objectUnrefFromMainloop)-unVBox (VBox o) = o--class BoxClass o => VBoxClass o-toVBox :: VBoxClass o => o -> VBox-toVBox = unsafeCastGObject . toGObject--instance VBoxClass VBox-instance BoxClass VBox-instance ContainerClass VBox-instance WidgetClass VBox-instance GObjectClass VBox where-  toGObject = GObject . castForeignPtr . unVBox-  unsafeCastGObject = VBox . castForeignPtr . unGObject--castToVBox :: GObjectClass obj => obj -> VBox-castToVBox = castTo gTypeVBox "VBox"--gTypeVBox :: GType-gTypeVBox =-  {# call fun unsafe gtk_vbox_get_type #}---- ******************************************************** RecentChooserWidget--{#pointer *GtkRecentChooserWidget as RecentChooserWidget foreign newtype #} deriving (Eq,Ord)--mkRecentChooserWidget = (RecentChooserWidget, objectUnrefFromMainloop)-unRecentChooserWidget (RecentChooserWidget o) = o--class VBoxClass o => RecentChooserWidgetClass o-toRecentChooserWidget :: RecentChooserWidgetClass o => o -> RecentChooserWidget-toRecentChooserWidget = unsafeCastGObject . toGObject--instance RecentChooserWidgetClass RecentChooserWidget-instance VBoxClass RecentChooserWidget-instance BoxClass RecentChooserWidget-instance ContainerClass RecentChooserWidget-instance WidgetClass RecentChooserWidget-instance GObjectClass RecentChooserWidget where-  toGObject = GObject . castForeignPtr . unRecentChooserWidget-  unsafeCastGObject = RecentChooserWidget . castForeignPtr . unGObject--castToRecentChooserWidget :: GObjectClass obj => obj -> RecentChooserWidget-castToRecentChooserWidget = castTo gTypeRecentChooserWidget "RecentChooserWidget"--gTypeRecentChooserWidget :: GType-gTypeRecentChooserWidget =-  {# call fun unsafe gtk_recent_chooser_widget_get_type #}---- ************************************************************* ColorSelection--{#pointer *GtkColorSelection as ColorSelection foreign newtype #} deriving (Eq,Ord)--mkColorSelection = (ColorSelection, objectUnrefFromMainloop)-unColorSelection (ColorSelection o) = o--class VBoxClass o => ColorSelectionClass o-toColorSelection :: ColorSelectionClass o => o -> ColorSelection-toColorSelection = unsafeCastGObject . toGObject--instance ColorSelectionClass ColorSelection-instance VBoxClass ColorSelection-instance BoxClass ColorSelection-instance ContainerClass ColorSelection-instance WidgetClass ColorSelection-instance GObjectClass ColorSelection where-  toGObject = GObject . castForeignPtr . unColorSelection-  unsafeCastGObject = ColorSelection . castForeignPtr . unGObject--castToColorSelection :: GObjectClass obj => obj -> ColorSelection-castToColorSelection = castTo gTypeColorSelection "ColorSelection"--gTypeColorSelection :: GType-gTypeColorSelection =-  {# call fun unsafe gtk_color_selection_get_type #}---- ************************************************************** FontSelection--{#pointer *GtkFontSelection as FontSelection foreign newtype #} deriving (Eq,Ord)--mkFontSelection = (FontSelection, objectUnrefFromMainloop)-unFontSelection (FontSelection o) = o--class VBoxClass o => FontSelectionClass o-toFontSelection :: FontSelectionClass o => o -> FontSelection-toFontSelection = unsafeCastGObject . toGObject--instance FontSelectionClass FontSelection-instance VBoxClass FontSelection-instance BoxClass FontSelection-instance ContainerClass FontSelection-instance WidgetClass FontSelection-instance GObjectClass FontSelection where-  toGObject = GObject . castForeignPtr . unFontSelection-  unsafeCastGObject = FontSelection . castForeignPtr . unGObject--castToFontSelection :: GObjectClass obj => obj -> FontSelection-castToFontSelection = castTo gTypeFontSelection "FontSelection"--gTypeFontSelection :: GType-gTypeFontSelection =-  {# call fun unsafe gtk_font_selection_get_type #}---- ********************************************************** FileChooserWidget--{#pointer *GtkFileChooserWidget as FileChooserWidget foreign newtype #} deriving (Eq,Ord)--mkFileChooserWidget = (FileChooserWidget, objectUnrefFromMainloop)-unFileChooserWidget (FileChooserWidget o) = o--class VBoxClass o => FileChooserWidgetClass o-toFileChooserWidget :: FileChooserWidgetClass o => o -> FileChooserWidget-toFileChooserWidget = unsafeCastGObject . toGObject--instance FileChooserWidgetClass FileChooserWidget-instance VBoxClass FileChooserWidget-instance BoxClass FileChooserWidget-instance ContainerClass FileChooserWidget-instance WidgetClass FileChooserWidget-instance GObjectClass FileChooserWidget where-  toGObject = GObject . castForeignPtr . unFileChooserWidget-  unsafeCastGObject = FileChooserWidget . castForeignPtr . unGObject--castToFileChooserWidget :: GObjectClass obj => obj -> FileChooserWidget-castToFileChooserWidget = castTo gTypeFileChooserWidget "FileChooserWidget"--gTypeFileChooserWidget :: GType-gTypeFileChooserWidget =-  {# call fun unsafe gtk_file_chooser_widget_get_type #}---- *********************************************************************** HBox--{#pointer *GtkHBox as HBox foreign newtype #} deriving (Eq,Ord)--mkHBox = (HBox, objectUnrefFromMainloop)-unHBox (HBox o) = o--class BoxClass o => HBoxClass o-toHBox :: HBoxClass o => o -> HBox-toHBox = unsafeCastGObject . toGObject--instance HBoxClass HBox-instance BoxClass HBox-instance ContainerClass HBox-instance WidgetClass HBox-instance GObjectClass HBox where-  toGObject = GObject . castForeignPtr . unHBox-  unsafeCastGObject = HBox . castForeignPtr . unGObject--castToHBox :: GObjectClass obj => obj -> HBox-castToHBox = castTo gTypeHBox "HBox"--gTypeHBox :: GType-gTypeHBox =-  {# call fun unsafe gtk_hbox_get_type #}---- ******************************************************************** InfoBar--{#pointer *GtkInfoBar as InfoBar foreign newtype #} deriving (Eq,Ord)--mkInfoBar = (InfoBar, objectUnrefFromMainloop)-unInfoBar (InfoBar o) = o--class HBoxClass o => InfoBarClass o-toInfoBar :: InfoBarClass o => o -> InfoBar-toInfoBar = unsafeCastGObject . toGObject--instance InfoBarClass InfoBar-instance HBoxClass InfoBar-instance BoxClass InfoBar-instance ContainerClass InfoBar-instance WidgetClass InfoBar-instance GObjectClass InfoBar where-  toGObject = GObject . castForeignPtr . unInfoBar-  unsafeCastGObject = InfoBar . castForeignPtr . unGObject--castToInfoBar :: GObjectClass obj => obj -> InfoBar-castToInfoBar = castTo gTypeInfoBar "InfoBar"--gTypeInfoBar :: GType-gTypeInfoBar =-  {# call fun unsafe gtk_info_bar_get_type #}---- ********************************************************** FileChooserButton--{#pointer *GtkFileChooserButton as FileChooserButton foreign newtype #} deriving (Eq,Ord)--mkFileChooserButton = (FileChooserButton, objectUnrefFromMainloop)-unFileChooserButton (FileChooserButton o) = o--class HBoxClass o => FileChooserButtonClass o-toFileChooserButton :: FileChooserButtonClass o => o -> FileChooserButton-toFileChooserButton = unsafeCastGObject . toGObject--instance FileChooserButtonClass FileChooserButton-instance HBoxClass FileChooserButton-instance BoxClass FileChooserButton-instance ContainerClass FileChooserButton-instance WidgetClass FileChooserButton-instance GObjectClass FileChooserButton where-  toGObject = GObject . castForeignPtr . unFileChooserButton-  unsafeCastGObject = FileChooserButton . castForeignPtr . unGObject--castToFileChooserButton :: GObjectClass obj => obj -> FileChooserButton-castToFileChooserButton = castTo gTypeFileChooserButton "FileChooserButton"--gTypeFileChooserButton :: GType-gTypeFileChooserButton =-  {# call fun unsafe gtk_file_chooser_button_get_type #}---- ****************************************************************** Statusbar--{#pointer *GtkStatusbar as Statusbar foreign newtype #} deriving (Eq,Ord)--mkStatusbar = (Statusbar, objectUnrefFromMainloop)-unStatusbar (Statusbar o) = o--class HBoxClass o => StatusbarClass o-toStatusbar :: StatusbarClass o => o -> Statusbar-toStatusbar = unsafeCastGObject . toGObject--instance StatusbarClass Statusbar-instance HBoxClass Statusbar-instance BoxClass Statusbar-instance ContainerClass Statusbar-instance WidgetClass Statusbar-instance GObjectClass Statusbar where-  toGObject = GObject . castForeignPtr . unStatusbar-  unsafeCastGObject = Statusbar . castForeignPtr . unGObject--castToStatusbar :: GObjectClass obj => obj -> Statusbar-castToStatusbar = castTo gTypeStatusbar "Statusbar"--gTypeStatusbar :: GType-gTypeStatusbar =-  {# call fun unsafe gtk_statusbar_get_type #}---- ********************************************************************** Fixed--{#pointer *GtkFixed as Fixed foreign newtype #} deriving (Eq,Ord)--mkFixed = (Fixed, objectUnrefFromMainloop)-unFixed (Fixed o) = o--class ContainerClass o => FixedClass o-toFixed :: FixedClass o => o -> Fixed-toFixed = unsafeCastGObject . toGObject--instance FixedClass Fixed-instance ContainerClass Fixed-instance WidgetClass Fixed-instance GObjectClass Fixed where-  toGObject = GObject . castForeignPtr . unFixed-  unsafeCastGObject = Fixed . castForeignPtr . unGObject--castToFixed :: GObjectClass obj => obj -> Fixed-castToFixed = castTo gTypeFixed "Fixed"--gTypeFixed :: GType-gTypeFixed =-  {# call fun unsafe gtk_fixed_get_type #}---- ********************************************************************** Paned--{#pointer *GtkPaned as Paned foreign newtype #} deriving (Eq,Ord)--mkPaned = (Paned, objectUnrefFromMainloop)-unPaned (Paned o) = o--class ContainerClass o => PanedClass o-toPaned :: PanedClass o => o -> Paned-toPaned = unsafeCastGObject . toGObject--instance PanedClass Paned-instance ContainerClass Paned-instance WidgetClass Paned-instance GObjectClass Paned where-  toGObject = GObject . castForeignPtr . unPaned-  unsafeCastGObject = Paned . castForeignPtr . unGObject--castToPaned :: GObjectClass obj => obj -> Paned-castToPaned = castTo gTypePaned "Paned"--gTypePaned :: GType-gTypePaned =-  {# call fun unsafe gtk_paned_get_type #}---- ********************************************************************* HPaned--{#pointer *GtkHPaned as HPaned foreign newtype #} deriving (Eq,Ord)--mkHPaned = (HPaned, objectUnrefFromMainloop)-unHPaned (HPaned o) = o--class PanedClass o => HPanedClass o-toHPaned :: HPanedClass o => o -> HPaned-toHPaned = unsafeCastGObject . toGObject--instance HPanedClass HPaned-instance PanedClass HPaned-instance ContainerClass HPaned-instance WidgetClass HPaned-instance GObjectClass HPaned where-  toGObject = GObject . castForeignPtr . unHPaned-  unsafeCastGObject = HPaned . castForeignPtr . unGObject--castToHPaned :: GObjectClass obj => obj -> HPaned-castToHPaned = castTo gTypeHPaned "HPaned"--gTypeHPaned :: GType-gTypeHPaned =-  {# call fun unsafe gtk_hpaned_get_type #}---- ********************************************************************* VPaned--{#pointer *GtkVPaned as VPaned foreign newtype #} deriving (Eq,Ord)--mkVPaned = (VPaned, objectUnrefFromMainloop)-unVPaned (VPaned o) = o--class PanedClass o => VPanedClass o-toVPaned :: VPanedClass o => o -> VPaned-toVPaned = unsafeCastGObject . toGObject--instance VPanedClass VPaned-instance PanedClass VPaned-instance ContainerClass VPaned-instance WidgetClass VPaned-instance GObjectClass VPaned where-  toGObject = GObject . castForeignPtr . unVPaned-  unsafeCastGObject = VPaned . castForeignPtr . unGObject--castToVPaned :: GObjectClass obj => obj -> VPaned-castToVPaned = castTo gTypeVPaned "VPaned"--gTypeVPaned :: GType-gTypeVPaned =-  {# call fun unsafe gtk_vpaned_get_type #}---- ******************************************************************* IconView--{#pointer *GtkIconView as IconView foreign newtype #} deriving (Eq,Ord)--mkIconView = (IconView, objectUnrefFromMainloop)-unIconView (IconView o) = o--class ContainerClass o => IconViewClass o-toIconView :: IconViewClass o => o -> IconView-toIconView = unsafeCastGObject . toGObject--instance IconViewClass IconView-instance ContainerClass IconView-instance WidgetClass IconView-instance GObjectClass IconView where-  toGObject = GObject . castForeignPtr . unIconView-  unsafeCastGObject = IconView . castForeignPtr . unGObject--castToIconView :: GObjectClass obj => obj -> IconView-castToIconView = castTo gTypeIconView "IconView"--gTypeIconView :: GType-gTypeIconView =-  {# call fun unsafe gtk_icon_view_get_type #}---- ********************************************************************* Layout--{#pointer *GtkLayout as Layout foreign newtype #} deriving (Eq,Ord)--mkLayout = (Layout, objectUnrefFromMainloop)-unLayout (Layout o) = o--class ContainerClass o => LayoutClass o-toLayout :: LayoutClass o => o -> Layout-toLayout = unsafeCastGObject . toGObject--instance LayoutClass Layout-instance ContainerClass Layout-instance WidgetClass Layout-instance GObjectClass Layout where-  toGObject = GObject . castForeignPtr . unLayout-  unsafeCastGObject = Layout . castForeignPtr . unGObject--castToLayout :: GObjectClass obj => obj -> Layout-castToLayout = castTo gTypeLayout "Layout"--gTypeLayout :: GType-gTypeLayout =-  {# call fun unsafe gtk_layout_get_type #}---- ****************************************************************** MenuShell--{#pointer *GtkMenuShell as MenuShell foreign newtype #} deriving (Eq,Ord)--mkMenuShell = (MenuShell, objectUnrefFromMainloop)-unMenuShell (MenuShell o) = o--class ContainerClass o => MenuShellClass o-toMenuShell :: MenuShellClass o => o -> MenuShell-toMenuShell = unsafeCastGObject . toGObject--instance MenuShellClass MenuShell-instance ContainerClass MenuShell-instance WidgetClass MenuShell-instance GObjectClass MenuShell where-  toGObject = GObject . castForeignPtr . unMenuShell-  unsafeCastGObject = MenuShell . castForeignPtr . unGObject--castToMenuShell :: GObjectClass obj => obj -> MenuShell-castToMenuShell = castTo gTypeMenuShell "MenuShell"--gTypeMenuShell :: GType-gTypeMenuShell =-  {# call fun unsafe gtk_menu_shell_get_type #}---- *********************************************************************** Menu--{#pointer *GtkMenu as Menu foreign newtype #} deriving (Eq,Ord)--mkMenu = (Menu, objectUnrefFromMainloop)-unMenu (Menu o) = o--class MenuShellClass o => MenuClass o-toMenu :: MenuClass o => o -> Menu-toMenu = unsafeCastGObject . toGObject--instance MenuClass Menu-instance MenuShellClass Menu-instance ContainerClass Menu-instance WidgetClass Menu-instance GObjectClass Menu where-  toGObject = GObject . castForeignPtr . unMenu-  unsafeCastGObject = Menu . castForeignPtr . unGObject--castToMenu :: GObjectClass obj => obj -> Menu-castToMenu = castTo gTypeMenu "Menu"--gTypeMenu :: GType-gTypeMenu =-  {# call fun unsafe gtk_menu_get_type #}---- ********************************************************** RecentChooserMenu--{#pointer *GtkRecentChooserMenu as RecentChooserMenu foreign newtype #} deriving (Eq,Ord)--mkRecentChooserMenu = (RecentChooserMenu, objectUnrefFromMainloop)-unRecentChooserMenu (RecentChooserMenu o) = o--class MenuClass o => RecentChooserMenuClass o-toRecentChooserMenu :: RecentChooserMenuClass o => o -> RecentChooserMenu-toRecentChooserMenu = unsafeCastGObject . toGObject--instance RecentChooserMenuClass RecentChooserMenu-instance MenuClass RecentChooserMenu-instance MenuShellClass RecentChooserMenu-instance ContainerClass RecentChooserMenu-instance WidgetClass RecentChooserMenu-instance GObjectClass RecentChooserMenu where-  toGObject = GObject . castForeignPtr . unRecentChooserMenu-  unsafeCastGObject = RecentChooserMenu . castForeignPtr . unGObject--castToRecentChooserMenu :: GObjectClass obj => obj -> RecentChooserMenu-castToRecentChooserMenu = castTo gTypeRecentChooserMenu "RecentChooserMenu"--gTypeRecentChooserMenu :: GType-gTypeRecentChooserMenu =-  {# call fun unsafe gtk_recent_chooser_menu_get_type #}---- ******************************************************************** MenuBar--{#pointer *GtkMenuBar as MenuBar foreign newtype #} deriving (Eq,Ord)--mkMenuBar = (MenuBar, objectUnrefFromMainloop)-unMenuBar (MenuBar o) = o--class MenuShellClass o => MenuBarClass o-toMenuBar :: MenuBarClass o => o -> MenuBar-toMenuBar = unsafeCastGObject . toGObject--instance MenuBarClass MenuBar-instance MenuShellClass MenuBar-instance ContainerClass MenuBar-instance WidgetClass MenuBar-instance GObjectClass MenuBar where-  toGObject = GObject . castForeignPtr . unMenuBar-  unsafeCastGObject = MenuBar . castForeignPtr . unGObject--castToMenuBar :: GObjectClass obj => obj -> MenuBar-castToMenuBar = castTo gTypeMenuBar "MenuBar"--gTypeMenuBar :: GType-gTypeMenuBar =-  {# call fun unsafe gtk_menu_bar_get_type #}---- ******************************************************************* Notebook--{#pointer *GtkNotebook as Notebook foreign newtype #} deriving (Eq,Ord)--mkNotebook = (Notebook, objectUnrefFromMainloop)-unNotebook (Notebook o) = o--class ContainerClass o => NotebookClass o-toNotebook :: NotebookClass o => o -> Notebook-toNotebook = unsafeCastGObject . toGObject--instance NotebookClass Notebook-instance ContainerClass Notebook-instance WidgetClass Notebook-instance GObjectClass Notebook where-  toGObject = GObject . castForeignPtr . unNotebook-  unsafeCastGObject = Notebook . castForeignPtr . unGObject--castToNotebook :: GObjectClass obj => obj -> Notebook-castToNotebook = castTo gTypeNotebook "Notebook"--gTypeNotebook :: GType-gTypeNotebook =-  {# call fun unsafe gtk_notebook_get_type #}---- ********************************************************************** Table--{#pointer *GtkTable as Table foreign newtype #} deriving (Eq,Ord)--mkTable = (Table, objectUnrefFromMainloop)-unTable (Table o) = o--class ContainerClass o => TableClass o-toTable :: TableClass o => o -> Table-toTable = unsafeCastGObject . toGObject--instance TableClass Table-instance ContainerClass Table-instance WidgetClass Table-instance GObjectClass Table where-  toGObject = GObject . castForeignPtr . unTable-  unsafeCastGObject = Table . castForeignPtr . unGObject--castToTable :: GObjectClass obj => obj -> Table-castToTable = castTo gTypeTable "Table"--gTypeTable :: GType-gTypeTable =-  {# call fun unsafe gtk_table_get_type #}---- ******************************************************************* TextView--{#pointer *GtkTextView as TextView foreign newtype #} deriving (Eq,Ord)--mkTextView = (TextView, objectUnrefFromMainloop)-unTextView (TextView o) = o--class ContainerClass o => TextViewClass o-toTextView :: TextViewClass o => o -> TextView-toTextView = unsafeCastGObject . toGObject--instance TextViewClass TextView-instance ContainerClass TextView-instance WidgetClass TextView-instance GObjectClass TextView where-  toGObject = GObject . castForeignPtr . unTextView-  unsafeCastGObject = TextView . castForeignPtr . unGObject--castToTextView :: GObjectClass obj => obj -> TextView-castToTextView = castTo gTypeTextView "TextView"--gTypeTextView :: GType-gTypeTextView =-  {# call fun unsafe gtk_text_view_get_type #}---- ******************************************************************** Toolbar--{#pointer *GtkToolbar as Toolbar foreign newtype #} deriving (Eq,Ord)--mkToolbar = (Toolbar, objectUnrefFromMainloop)-unToolbar (Toolbar o) = o--class ContainerClass o => ToolbarClass o-toToolbar :: ToolbarClass o => o -> Toolbar-toToolbar = unsafeCastGObject . toGObject--instance ToolbarClass Toolbar-instance ContainerClass Toolbar-instance WidgetClass Toolbar-instance GObjectClass Toolbar where-  toGObject = GObject . castForeignPtr . unToolbar-  unsafeCastGObject = Toolbar . castForeignPtr . unGObject--castToToolbar :: GObjectClass obj => obj -> Toolbar-castToToolbar = castTo gTypeToolbar "Toolbar"--gTypeToolbar :: GType-gTypeToolbar =-  {# call fun unsafe gtk_toolbar_get_type #}---- ******************************************************************* TreeView--{#pointer *GtkTreeView as TreeView foreign newtype #} deriving (Eq,Ord)--mkTreeView = (TreeView, objectUnrefFromMainloop)-unTreeView (TreeView o) = o--class ContainerClass o => TreeViewClass o-toTreeView :: TreeViewClass o => o -> TreeView-toTreeView = unsafeCastGObject . toGObject--instance TreeViewClass TreeView-instance ContainerClass TreeView-instance WidgetClass TreeView-instance GObjectClass TreeView where-  toGObject = GObject . castForeignPtr . unTreeView-  unsafeCastGObject = TreeView . castForeignPtr . unGObject--castToTreeView :: GObjectClass obj => obj -> TreeView-castToTreeView = castTo gTypeTreeView "TreeView"--gTypeTreeView :: GType-gTypeTreeView =-  {# call fun unsafe gtk_tree_view_get_type #}---- ******************************************************************* Calendar--{#pointer *GtkCalendar as Calendar foreign newtype #} deriving (Eq,Ord)--mkCalendar = (Calendar, objectUnrefFromMainloop)-unCalendar (Calendar o) = o--class WidgetClass o => CalendarClass o-toCalendar :: CalendarClass o => o -> Calendar-toCalendar = unsafeCastGObject . toGObject--instance CalendarClass Calendar-instance WidgetClass Calendar-instance GObjectClass Calendar where-  toGObject = GObject . castForeignPtr . unCalendar-  unsafeCastGObject = Calendar . castForeignPtr . unGObject--castToCalendar :: GObjectClass obj => obj -> Calendar-castToCalendar = castTo gTypeCalendar "Calendar"--gTypeCalendar :: GType-gTypeCalendar =-  {# call fun unsafe gtk_calendar_get_type #}---- ******************************************************************* CellView--{#pointer *GtkCellView as CellView foreign newtype #} deriving (Eq,Ord)--mkCellView = (CellView, objectUnrefFromMainloop)-unCellView (CellView o) = o--class WidgetClass o => CellViewClass o-toCellView :: CellViewClass o => o -> CellView-toCellView = unsafeCastGObject . toGObject--instance CellViewClass CellView-instance WidgetClass CellView-instance GObjectClass CellView where-  toGObject = GObject . castForeignPtr . unCellView-  unsafeCastGObject = CellView . castForeignPtr . unGObject--castToCellView :: GObjectClass obj => obj -> CellView-castToCellView = castTo gTypeCellView "CellView"--gTypeCellView :: GType-gTypeCellView =-  {# call fun unsafe gtk_cell_view_get_type #}---- **************************************************************** DrawingArea--{#pointer *GtkDrawingArea as DrawingArea foreign newtype #} deriving (Eq,Ord)--mkDrawingArea = (DrawingArea, objectUnrefFromMainloop)-unDrawingArea (DrawingArea o) = o--class WidgetClass o => DrawingAreaClass o-toDrawingArea :: DrawingAreaClass o => o -> DrawingArea-toDrawingArea = unsafeCastGObject . toGObject--instance DrawingAreaClass DrawingArea-instance WidgetClass DrawingArea-instance GObjectClass DrawingArea where-  toGObject = GObject . castForeignPtr . unDrawingArea-  unsafeCastGObject = DrawingArea . castForeignPtr . unGObject--castToDrawingArea :: GObjectClass obj => obj -> DrawingArea-castToDrawingArea = castTo gTypeDrawingArea "DrawingArea"--gTypeDrawingArea :: GType-gTypeDrawingArea =-  {# call fun unsafe gtk_drawing_area_get_type #}---- ******************************************************************** Spinner--{#pointer *GtkSpinner as Spinner foreign newtype #} deriving (Eq,Ord)--mkSpinner = (Spinner, objectUnrefFromMainloop)-unSpinner (Spinner o) = o--class DrawingAreaClass o => SpinnerClass o-toSpinner :: SpinnerClass o => o -> Spinner-toSpinner = unsafeCastGObject . toGObject--instance SpinnerClass Spinner-instance DrawingAreaClass Spinner-instance WidgetClass Spinner-instance GObjectClass Spinner where-  toGObject = GObject . castForeignPtr . unSpinner-  unsafeCastGObject = Spinner . castForeignPtr . unGObject--castToSpinner :: GObjectClass obj => obj -> Spinner-castToSpinner = castTo gTypeSpinner "Spinner"--gTypeSpinner :: GType-gTypeSpinner =-  {# call fun unsafe gtk_spinner_get_type #}---- ********************************************************************** Entry--{#pointer *GtkEntry as Entry foreign newtype #} deriving (Eq,Ord)--mkEntry = (Entry, objectUnrefFromMainloop)-unEntry (Entry o) = o--class WidgetClass o => EntryClass o-toEntry :: EntryClass o => o -> Entry-toEntry = unsafeCastGObject . toGObject--instance EntryClass Entry-instance WidgetClass Entry-instance GObjectClass Entry where-  toGObject = GObject . castForeignPtr . unEntry-  unsafeCastGObject = Entry . castForeignPtr . unGObject--castToEntry :: GObjectClass obj => obj -> Entry-castToEntry = castTo gTypeEntry "Entry"--gTypeEntry :: GType-gTypeEntry =-  {# call fun unsafe gtk_entry_get_type #}---- ***************************************************************** SpinButton--{#pointer *GtkSpinButton as SpinButton foreign newtype #} deriving (Eq,Ord)--mkSpinButton = (SpinButton, objectUnrefFromMainloop)-unSpinButton (SpinButton o) = o--class EntryClass o => SpinButtonClass o-toSpinButton :: SpinButtonClass o => o -> SpinButton-toSpinButton = unsafeCastGObject . toGObject--instance SpinButtonClass SpinButton-instance EntryClass SpinButton-instance WidgetClass SpinButton-instance GObjectClass SpinButton where-  toGObject = GObject . castForeignPtr . unSpinButton-  unsafeCastGObject = SpinButton . castForeignPtr . unGObject--castToSpinButton :: GObjectClass obj => obj -> SpinButton-castToSpinButton = castTo gTypeSpinButton "SpinButton"--gTypeSpinButton :: GType-gTypeSpinButton =-  {# call fun unsafe gtk_spin_button_get_type #}---- ********************************************************************** Range--{#pointer *GtkRange as Range foreign newtype #} deriving (Eq,Ord)--mkRange = (Range, objectUnrefFromMainloop)-unRange (Range o) = o--class WidgetClass o => RangeClass o-toRange :: RangeClass o => o -> Range-toRange = unsafeCastGObject . toGObject--instance RangeClass Range-instance WidgetClass Range-instance GObjectClass Range where-  toGObject = GObject . castForeignPtr . unRange-  unsafeCastGObject = Range . castForeignPtr . unGObject--castToRange :: GObjectClass obj => obj -> Range-castToRange = castTo gTypeRange "Range"--gTypeRange :: GType-gTypeRange =-  {# call fun unsafe gtk_range_get_type #}---- ********************************************************************** Scale--{#pointer *GtkScale as Scale foreign newtype #} deriving (Eq,Ord)--mkScale = (Scale, objectUnrefFromMainloop)-unScale (Scale o) = o--class RangeClass o => ScaleClass o-toScale :: ScaleClass o => o -> Scale-toScale = unsafeCastGObject . toGObject--instance ScaleClass Scale-instance RangeClass Scale-instance WidgetClass Scale-instance GObjectClass Scale where-  toGObject = GObject . castForeignPtr . unScale-  unsafeCastGObject = Scale . castForeignPtr . unGObject--castToScale :: GObjectClass obj => obj -> Scale-castToScale = castTo gTypeScale "Scale"--gTypeScale :: GType-gTypeScale =-  {# call fun unsafe gtk_scale_get_type #}---- ********************************************************************* HScale--{#pointer *GtkHScale as HScale foreign newtype #} deriving (Eq,Ord)--mkHScale = (HScale, objectUnrefFromMainloop)-unHScale (HScale o) = o--class ScaleClass o => HScaleClass o-toHScale :: HScaleClass o => o -> HScale-toHScale = unsafeCastGObject . toGObject--instance HScaleClass HScale-instance ScaleClass HScale-instance RangeClass HScale-instance WidgetClass HScale-instance GObjectClass HScale where-  toGObject = GObject . castForeignPtr . unHScale-  unsafeCastGObject = HScale . castForeignPtr . unGObject--castToHScale :: GObjectClass obj => obj -> HScale-castToHScale = castTo gTypeHScale "HScale"--gTypeHScale :: GType-gTypeHScale =-  {# call fun unsafe gtk_hscale_get_type #}---- ********************************************************************* VScale--{#pointer *GtkVScale as VScale foreign newtype #} deriving (Eq,Ord)--mkVScale = (VScale, objectUnrefFromMainloop)-unVScale (VScale o) = o--class ScaleClass o => VScaleClass o-toVScale :: VScaleClass o => o -> VScale-toVScale = unsafeCastGObject . toGObject--instance VScaleClass VScale-instance ScaleClass VScale-instance RangeClass VScale-instance WidgetClass VScale-instance GObjectClass VScale where-  toGObject = GObject . castForeignPtr . unVScale-  unsafeCastGObject = VScale . castForeignPtr . unGObject--castToVScale :: GObjectClass obj => obj -> VScale-castToVScale = castTo gTypeVScale "VScale"--gTypeVScale :: GType-gTypeVScale =-  {# call fun unsafe gtk_vscale_get_type #}---- ****************************************************************** Scrollbar--{#pointer *GtkScrollbar as Scrollbar foreign newtype #} deriving (Eq,Ord)--mkScrollbar = (Scrollbar, objectUnrefFromMainloop)-unScrollbar (Scrollbar o) = o--class RangeClass o => ScrollbarClass o-toScrollbar :: ScrollbarClass o => o -> Scrollbar-toScrollbar = unsafeCastGObject . toGObject--instance ScrollbarClass Scrollbar-instance RangeClass Scrollbar-instance WidgetClass Scrollbar-instance GObjectClass Scrollbar where-  toGObject = GObject . castForeignPtr . unScrollbar-  unsafeCastGObject = Scrollbar . castForeignPtr . unGObject--castToScrollbar :: GObjectClass obj => obj -> Scrollbar-castToScrollbar = castTo gTypeScrollbar "Scrollbar"--gTypeScrollbar :: GType-gTypeScrollbar =-  {# call fun unsafe gtk_scrollbar_get_type #}---- ***************************************************************** HScrollbar--{#pointer *GtkHScrollbar as HScrollbar foreign newtype #} deriving (Eq,Ord)--mkHScrollbar = (HScrollbar, objectUnrefFromMainloop)-unHScrollbar (HScrollbar o) = o--class ScrollbarClass o => HScrollbarClass o-toHScrollbar :: HScrollbarClass o => o -> HScrollbar-toHScrollbar = unsafeCastGObject . toGObject--instance HScrollbarClass HScrollbar-instance ScrollbarClass HScrollbar-instance RangeClass HScrollbar-instance WidgetClass HScrollbar-instance GObjectClass HScrollbar where-  toGObject = GObject . castForeignPtr . unHScrollbar-  unsafeCastGObject = HScrollbar . castForeignPtr . unGObject--castToHScrollbar :: GObjectClass obj => obj -> HScrollbar-castToHScrollbar = castTo gTypeHScrollbar "HScrollbar"--gTypeHScrollbar :: GType-gTypeHScrollbar =-  {# call fun unsafe gtk_hscrollbar_get_type #}---- ***************************************************************** VScrollbar--{#pointer *GtkVScrollbar as VScrollbar foreign newtype #} deriving (Eq,Ord)--mkVScrollbar = (VScrollbar, objectUnrefFromMainloop)-unVScrollbar (VScrollbar o) = o--class ScrollbarClass o => VScrollbarClass o-toVScrollbar :: VScrollbarClass o => o -> VScrollbar-toVScrollbar = unsafeCastGObject . toGObject--instance VScrollbarClass VScrollbar-instance ScrollbarClass VScrollbar-instance RangeClass VScrollbar-instance WidgetClass VScrollbar-instance GObjectClass VScrollbar where-  toGObject = GObject . castForeignPtr . unVScrollbar-  unsafeCastGObject = VScrollbar . castForeignPtr . unGObject--castToVScrollbar :: GObjectClass obj => obj -> VScrollbar-castToVScrollbar = castTo gTypeVScrollbar "VScrollbar"--gTypeVScrollbar :: GType-gTypeVScrollbar =-  {# call fun unsafe gtk_vscrollbar_get_type #}---- ****************************************************************** Separator--{#pointer *GtkSeparator as Separator foreign newtype #} deriving (Eq,Ord)--mkSeparator = (Separator, objectUnrefFromMainloop)-unSeparator (Separator o) = o--class WidgetClass o => SeparatorClass o-toSeparator :: SeparatorClass o => o -> Separator-toSeparator = unsafeCastGObject . toGObject--instance SeparatorClass Separator-instance WidgetClass Separator-instance GObjectClass Separator where-  toGObject = GObject . castForeignPtr . unSeparator-  unsafeCastGObject = Separator . castForeignPtr . unGObject--castToSeparator :: GObjectClass obj => obj -> Separator-castToSeparator = castTo gTypeSeparator "Separator"--gTypeSeparator :: GType-gTypeSeparator =-  {# call fun unsafe gtk_separator_get_type #}---- ***************************************************************** HSeparator--{#pointer *GtkHSeparator as HSeparator foreign newtype #} deriving (Eq,Ord)--mkHSeparator = (HSeparator, objectUnrefFromMainloop)-unHSeparator (HSeparator o) = o--class SeparatorClass o => HSeparatorClass o-toHSeparator :: HSeparatorClass o => o -> HSeparator-toHSeparator = unsafeCastGObject . toGObject--instance HSeparatorClass HSeparator-instance SeparatorClass HSeparator-instance WidgetClass HSeparator-instance GObjectClass HSeparator where-  toGObject = GObject . castForeignPtr . unHSeparator-  unsafeCastGObject = HSeparator . castForeignPtr . unGObject--castToHSeparator :: GObjectClass obj => obj -> HSeparator-castToHSeparator = castTo gTypeHSeparator "HSeparator"--gTypeHSeparator :: GType-gTypeHSeparator =-  {# call fun unsafe gtk_hseparator_get_type #}---- ***************************************************************** VSeparator--{#pointer *GtkVSeparator as VSeparator foreign newtype #} deriving (Eq,Ord)--mkVSeparator = (VSeparator, objectUnrefFromMainloop)-unVSeparator (VSeparator o) = o--class SeparatorClass o => VSeparatorClass o-toVSeparator :: VSeparatorClass o => o -> VSeparator-toVSeparator = unsafeCastGObject . toGObject--instance VSeparatorClass VSeparator-instance SeparatorClass VSeparator-instance WidgetClass VSeparator-instance GObjectClass VSeparator where-  toGObject = GObject . castForeignPtr . unVSeparator-  unsafeCastGObject = VSeparator . castForeignPtr . unGObject--castToVSeparator :: GObjectClass obj => obj -> VSeparator-castToVSeparator = castTo gTypeVSeparator "VSeparator"--gTypeVSeparator :: GType-gTypeVSeparator =-  {# call fun unsafe gtk_vseparator_get_type #}---- ****************************************************************** Invisible--{#pointer *GtkInvisible as Invisible foreign newtype #} deriving (Eq,Ord)--mkInvisible = (Invisible, objectUnrefFromMainloop)-unInvisible (Invisible o) = o--class WidgetClass o => InvisibleClass o-toInvisible :: InvisibleClass o => o -> Invisible-toInvisible = unsafeCastGObject . toGObject--instance InvisibleClass Invisible-instance WidgetClass Invisible-instance GObjectClass Invisible where-  toGObject = GObject . castForeignPtr . unInvisible-  unsafeCastGObject = Invisible . castForeignPtr . unGObject--castToInvisible :: GObjectClass obj => obj -> Invisible-castToInvisible = castTo gTypeInvisible "Invisible"--gTypeInvisible :: GType-gTypeInvisible =-  {# call fun unsafe gtk_invisible_get_type #}---- **************************************************************** ProgressBar--{#pointer *GtkProgressBar as ProgressBar foreign newtype #} deriving (Eq,Ord)--mkProgressBar = (ProgressBar, objectUnrefFromMainloop)-unProgressBar (ProgressBar o) = o--class WidgetClass o => ProgressBarClass o-toProgressBar :: ProgressBarClass o => o -> ProgressBar-toProgressBar = unsafeCastGObject . toGObject--instance ProgressBarClass ProgressBar-instance WidgetClass ProgressBar-instance GObjectClass ProgressBar where-  toGObject = GObject . castForeignPtr . unProgressBar-  unsafeCastGObject = ProgressBar . castForeignPtr . unGObject--castToProgressBar :: GObjectClass obj => obj -> ProgressBar-castToProgressBar = castTo gTypeProgressBar "ProgressBar"--gTypeProgressBar :: GType-gTypeProgressBar =-  {# call fun unsafe gtk_progress_bar_get_type #}---- ******************************************************************* LevelBar--{#pointer *GtkLevelBar as LevelBar foreign newtype #} deriving (Eq,Ord)--mkLevelBar = (LevelBar, objectUnrefFromMainloop)-unLevelBar (LevelBar o) = o--class WidgetClass o => LevelBarClass o-toLevelBar :: LevelBarClass o => o -> LevelBar-toLevelBar = unsafeCastGObject . toGObject--instance LevelBarClass LevelBar-instance WidgetClass LevelBar-instance GObjectClass LevelBar where-  toGObject = GObject . castForeignPtr . unLevelBar-  unsafeCastGObject = LevelBar . castForeignPtr . unGObject--castToLevelBar :: GObjectClass obj => obj -> LevelBar-castToLevelBar = castTo gTypeLevelBar "LevelBar"--gTypeLevelBar :: GType-gTypeLevelBar =-  {# call fun unsafe gtk_level_bar_get_type #}---- ***************************************************************** Adjustment--{#pointer *GtkAdjustment as Adjustment foreign newtype #} deriving (Eq,Ord)--mkAdjustment = (Adjustment, objectUnrefFromMainloop)-unAdjustment (Adjustment o) = o--class GObjectClass o => AdjustmentClass o-toAdjustment :: AdjustmentClass o => o -> Adjustment-toAdjustment = unsafeCastGObject . toGObject--instance AdjustmentClass Adjustment-instance GObjectClass Adjustment where-  toGObject = GObject . castForeignPtr . unAdjustment-  unsafeCastGObject = Adjustment . castForeignPtr . unGObject--castToAdjustment :: GObjectClass obj => obj -> Adjustment-castToAdjustment = castTo gTypeAdjustment "Adjustment"--gTypeAdjustment :: GType-gTypeAdjustment =-  {# call fun unsafe gtk_adjustment_get_type #}---- ****************************************************************** IMContext--{#pointer *GtkIMContext as IMContext foreign newtype #} deriving (Eq,Ord)--mkIMContext = (IMContext, objectUnrefFromMainloop)-unIMContext (IMContext o) = o--class GObjectClass o => IMContextClass o-toIMContext :: IMContextClass o => o -> IMContext-toIMContext = unsafeCastGObject . toGObject--instance IMContextClass IMContext-instance GObjectClass IMContext where-  toGObject = GObject . castForeignPtr . unIMContext-  unsafeCastGObject = IMContext . castForeignPtr . unGObject--castToIMContext :: GObjectClass obj => obj -> IMContext-castToIMContext = castTo gTypeIMContext "IMContext"--gTypeIMContext :: GType-gTypeIMContext =-  {# call fun unsafe gtk_im_context_get_type #}---- ************************************************************* IMMulticontext--{#pointer *GtkIMMulticontext as IMMulticontext foreign newtype #} deriving (Eq,Ord)--mkIMMulticontext = (IMMulticontext, objectUnrefFromMainloop)-unIMMulticontext (IMMulticontext o) = o--class IMContextClass o => IMMulticontextClass o-toIMMulticontext :: IMMulticontextClass o => o -> IMMulticontext-toIMMulticontext = unsafeCastGObject . toGObject--instance IMMulticontextClass IMMulticontext-instance IMContextClass IMMulticontext-instance GObjectClass IMMulticontext where-  toGObject = GObject . castForeignPtr . unIMMulticontext-  unsafeCastGObject = IMMulticontext . castForeignPtr . unGObject--castToIMMulticontext :: GObjectClass obj => obj -> IMMulticontext-castToIMMulticontext = castTo gTypeIMMulticontext "IMMulticontext"--gTypeIMMulticontext :: GType-gTypeIMMulticontext =-  {# call fun unsafe gtk_im_multicontext_get_type #}---- ************************************************************ IMContextSimple--{#pointer *GtkIMContextSimple as IMContextSimple foreign newtype #} deriving (Eq,Ord)--mkIMContextSimple = (IMContextSimple, objectUnrefFromMainloop)-unIMContextSimple (IMContextSimple o) = o--class IMContextClass o => IMContextSimpleClass o-toIMContextSimple :: IMContextSimpleClass o => o -> IMContextSimple-toIMContextSimple = unsafeCastGObject . toGObject--instance IMContextSimpleClass IMContextSimple-instance IMContextClass IMContextSimple-instance GObjectClass IMContextSimple where-  toGObject = GObject . castForeignPtr . unIMContextSimple-  unsafeCastGObject = IMContextSimple . castForeignPtr . unGObject--castToIMContextSimple :: GObjectClass obj => obj -> IMContextSimple-castToIMContextSimple = castTo gTypeIMContextSimple "IMContextSimple"--gTypeIMContextSimple :: GType-gTypeIMContextSimple =-  {# call fun unsafe gtk_im_context_simple_get_type #}---- ************************************************************* TreeViewColumn--{#pointer *GtkTreeViewColumn as TreeViewColumn foreign newtype #} deriving (Eq,Ord)--mkTreeViewColumn = (TreeViewColumn, objectUnrefFromMainloop)-unTreeViewColumn (TreeViewColumn o) = o--class GObjectClass o => TreeViewColumnClass o-toTreeViewColumn :: TreeViewColumnClass o => o -> TreeViewColumn-toTreeViewColumn = unsafeCastGObject . toGObject--instance TreeViewColumnClass TreeViewColumn-instance GObjectClass TreeViewColumn where-  toGObject = GObject . castForeignPtr . unTreeViewColumn-  unsafeCastGObject = TreeViewColumn . castForeignPtr . unGObject--castToTreeViewColumn :: GObjectClass obj => obj -> TreeViewColumn-castToTreeViewColumn = castTo gTypeTreeViewColumn "TreeViewColumn"--gTypeTreeViewColumn :: GType-gTypeTreeViewColumn =-  {# call fun unsafe gtk_tree_view_column_get_type #}---- *************************************************************** CellRenderer--{#pointer *GtkCellRenderer as CellRenderer foreign newtype #} deriving (Eq,Ord)--mkCellRenderer = (CellRenderer, objectUnrefFromMainloop)-unCellRenderer (CellRenderer o) = o--class GObjectClass o => CellRendererClass o-toCellRenderer :: CellRendererClass o => o -> CellRenderer-toCellRenderer = unsafeCastGObject . toGObject--instance CellRendererClass CellRenderer-instance GObjectClass CellRenderer where-  toGObject = GObject . castForeignPtr . unCellRenderer-  unsafeCastGObject = CellRenderer . castForeignPtr . unGObject--castToCellRenderer :: GObjectClass obj => obj -> CellRenderer-castToCellRenderer = castTo gTypeCellRenderer "CellRenderer"--gTypeCellRenderer :: GType-gTypeCellRenderer =-  {# call fun unsafe gtk_cell_renderer_get_type #}---- ******************************************************** CellRendererSpinner--{#pointer *GtkCellRendererSpinner as CellRendererSpinner foreign newtype #} deriving (Eq,Ord)--mkCellRendererSpinner = (CellRendererSpinner, objectUnrefFromMainloop)-unCellRendererSpinner (CellRendererSpinner o) = o--class CellRendererClass o => CellRendererSpinnerClass o-toCellRendererSpinner :: CellRendererSpinnerClass o => o -> CellRendererSpinner-toCellRendererSpinner = unsafeCastGObject . toGObject--instance CellRendererSpinnerClass CellRendererSpinner-instance CellRendererClass CellRendererSpinner-instance GObjectClass CellRendererSpinner where-  toGObject = GObject . castForeignPtr . unCellRendererSpinner-  unsafeCastGObject = CellRendererSpinner . castForeignPtr . unGObject--castToCellRendererSpinner :: GObjectClass obj => obj -> CellRendererSpinner-castToCellRendererSpinner = castTo gTypeCellRendererSpinner "CellRendererSpinner"--gTypeCellRendererSpinner :: GType-gTypeCellRendererSpinner =-  {# call fun unsafe gtk_cell_renderer_spinner_get_type #}---- ********************************************************* CellRendererPixbuf--{#pointer *GtkCellRendererPixbuf as CellRendererPixbuf foreign newtype #} deriving (Eq,Ord)--mkCellRendererPixbuf = (CellRendererPixbuf, objectUnrefFromMainloop)-unCellRendererPixbuf (CellRendererPixbuf o) = o--class CellRendererClass o => CellRendererPixbufClass o-toCellRendererPixbuf :: CellRendererPixbufClass o => o -> CellRendererPixbuf-toCellRendererPixbuf = unsafeCastGObject . toGObject--instance CellRendererPixbufClass CellRendererPixbuf-instance CellRendererClass CellRendererPixbuf-instance GObjectClass CellRendererPixbuf where-  toGObject = GObject . castForeignPtr . unCellRendererPixbuf-  unsafeCastGObject = CellRendererPixbuf . castForeignPtr . unGObject--castToCellRendererPixbuf :: GObjectClass obj => obj -> CellRendererPixbuf-castToCellRendererPixbuf = castTo gTypeCellRendererPixbuf "CellRendererPixbuf"--gTypeCellRendererPixbuf :: GType-gTypeCellRendererPixbuf =-  {# call fun unsafe gtk_cell_renderer_pixbuf_get_type #}---- *********************************************************** CellRendererText--{#pointer *GtkCellRendererText as CellRendererText foreign newtype #} deriving (Eq,Ord)--mkCellRendererText = (CellRendererText, objectUnrefFromMainloop)-unCellRendererText (CellRendererText o) = o--class CellRendererClass o => CellRendererTextClass o-toCellRendererText :: CellRendererTextClass o => o -> CellRendererText-toCellRendererText = unsafeCastGObject . toGObject--instance CellRendererTextClass CellRendererText-instance CellRendererClass CellRendererText-instance GObjectClass CellRendererText where-  toGObject = GObject . castForeignPtr . unCellRendererText-  unsafeCastGObject = CellRendererText . castForeignPtr . unGObject--castToCellRendererText :: GObjectClass obj => obj -> CellRendererText-castToCellRendererText = castTo gTypeCellRendererText "CellRendererText"--gTypeCellRendererText :: GType-gTypeCellRendererText =-  {# call fun unsafe gtk_cell_renderer_text_get_type #}---- ********************************************************** CellRendererAccel--{#pointer *GtkCellRendererAccel as CellRendererAccel foreign newtype #} deriving (Eq,Ord)--mkCellRendererAccel = (CellRendererAccel, objectUnrefFromMainloop)-unCellRendererAccel (CellRendererAccel o) = o--class CellRendererTextClass o => CellRendererAccelClass o-toCellRendererAccel :: CellRendererAccelClass o => o -> CellRendererAccel-toCellRendererAccel = unsafeCastGObject . toGObject--instance CellRendererAccelClass CellRendererAccel-instance CellRendererTextClass CellRendererAccel-instance CellRendererClass CellRendererAccel-instance GObjectClass CellRendererAccel where-  toGObject = GObject . castForeignPtr . unCellRendererAccel-  unsafeCastGObject = CellRendererAccel . castForeignPtr . unGObject--castToCellRendererAccel :: GObjectClass obj => obj -> CellRendererAccel-castToCellRendererAccel = castTo gTypeCellRendererAccel "CellRendererAccel"--gTypeCellRendererAccel :: GType-gTypeCellRendererAccel =-  {# call fun unsafe gtk_cell_renderer_accel_get_type #}---- *********************************************************** CellRendererSpin--{#pointer *GtkCellRendererSpin as CellRendererSpin foreign newtype #} deriving (Eq,Ord)--mkCellRendererSpin = (CellRendererSpin, objectUnrefFromMainloop)-unCellRendererSpin (CellRendererSpin o) = o--class CellRendererTextClass o => CellRendererSpinClass o-toCellRendererSpin :: CellRendererSpinClass o => o -> CellRendererSpin-toCellRendererSpin = unsafeCastGObject . toGObject--instance CellRendererSpinClass CellRendererSpin-instance CellRendererTextClass CellRendererSpin-instance CellRendererClass CellRendererSpin-instance GObjectClass CellRendererSpin where-  toGObject = GObject . castForeignPtr . unCellRendererSpin-  unsafeCastGObject = CellRendererSpin . castForeignPtr . unGObject--castToCellRendererSpin :: GObjectClass obj => obj -> CellRendererSpin-castToCellRendererSpin = castTo gTypeCellRendererSpin "CellRendererSpin"--gTypeCellRendererSpin :: GType-gTypeCellRendererSpin =-  {# call fun unsafe gtk_cell_renderer_spin_get_type #}---- ********************************************************** CellRendererCombo--{#pointer *GtkCellRendererCombo as CellRendererCombo foreign newtype #} deriving (Eq,Ord)--mkCellRendererCombo = (CellRendererCombo, objectUnrefFromMainloop)-unCellRendererCombo (CellRendererCombo o) = o--class CellRendererTextClass o => CellRendererComboClass o-toCellRendererCombo :: CellRendererComboClass o => o -> CellRendererCombo-toCellRendererCombo = unsafeCastGObject . toGObject--instance CellRendererComboClass CellRendererCombo-instance CellRendererTextClass CellRendererCombo-instance CellRendererClass CellRendererCombo-instance GObjectClass CellRendererCombo where-  toGObject = GObject . castForeignPtr . unCellRendererCombo-  unsafeCastGObject = CellRendererCombo . castForeignPtr . unGObject--castToCellRendererCombo :: GObjectClass obj => obj -> CellRendererCombo-castToCellRendererCombo = castTo gTypeCellRendererCombo "CellRendererCombo"--gTypeCellRendererCombo :: GType-gTypeCellRendererCombo =-  {# call fun unsafe gtk_cell_renderer_combo_get_type #}---- ********************************************************* CellRendererToggle--{#pointer *GtkCellRendererToggle as CellRendererToggle foreign newtype #} deriving (Eq,Ord)--mkCellRendererToggle = (CellRendererToggle, objectUnrefFromMainloop)-unCellRendererToggle (CellRendererToggle o) = o--class CellRendererClass o => CellRendererToggleClass o-toCellRendererToggle :: CellRendererToggleClass o => o -> CellRendererToggle-toCellRendererToggle = unsafeCastGObject . toGObject--instance CellRendererToggleClass CellRendererToggle-instance CellRendererClass CellRendererToggle-instance GObjectClass CellRendererToggle where-  toGObject = GObject . castForeignPtr . unCellRendererToggle-  unsafeCastGObject = CellRendererToggle . castForeignPtr . unGObject--castToCellRendererToggle :: GObjectClass obj => obj -> CellRendererToggle-castToCellRendererToggle = castTo gTypeCellRendererToggle "CellRendererToggle"--gTypeCellRendererToggle :: GType-gTypeCellRendererToggle =-  {# call fun unsafe gtk_cell_renderer_toggle_get_type #}---- ******************************************************* CellRendererProgress--{#pointer *GtkCellRendererProgress as CellRendererProgress foreign newtype #} deriving (Eq,Ord)--mkCellRendererProgress = (CellRendererProgress, objectUnrefFromMainloop)-unCellRendererProgress (CellRendererProgress o) = o--class CellRendererClass o => CellRendererProgressClass o-toCellRendererProgress :: CellRendererProgressClass o => o -> CellRendererProgress-toCellRendererProgress = unsafeCastGObject . toGObject--instance CellRendererProgressClass CellRendererProgress-instance CellRendererClass CellRendererProgress-instance GObjectClass CellRendererProgress where-  toGObject = GObject . castForeignPtr . unCellRendererProgress-  unsafeCastGObject = CellRendererProgress . castForeignPtr . unGObject--castToCellRendererProgress :: GObjectClass obj => obj -> CellRendererProgress-castToCellRendererProgress = castTo gTypeCellRendererProgress "CellRendererProgress"--gTypeCellRendererProgress :: GType-gTypeCellRendererProgress =-  {# call fun unsafe gtk_cell_renderer_progress_get_type #}---- ***************************************************************** FileFilter--{#pointer *GtkFileFilter as FileFilter foreign newtype #} deriving (Eq,Ord)--mkFileFilter = (FileFilter, objectUnrefFromMainloop)-unFileFilter (FileFilter o) = o--class GObjectClass o => FileFilterClass o-toFileFilter :: FileFilterClass o => o -> FileFilter-toFileFilter = unsafeCastGObject . toGObject--instance FileFilterClass FileFilter-instance GObjectClass FileFilter where-  toGObject = GObject . castForeignPtr . unFileFilter-  unsafeCastGObject = FileFilter . castForeignPtr . unGObject--castToFileFilter :: GObjectClass obj => obj -> FileFilter-castToFileFilter = castTo gTypeFileFilter "FileFilter"--gTypeFileFilter :: GType-gTypeFileFilter =-  {# call fun unsafe gtk_file_filter_get_type #}---- ******************************************************************** Builder--{#pointer *GtkBuilder as Builder foreign newtype #} deriving (Eq,Ord)--mkBuilder = (Builder, objectUnrefFromMainloop)-unBuilder (Builder o) = o--class GObjectClass o => BuilderClass o-toBuilder :: BuilderClass o => o -> Builder-toBuilder = unsafeCastGObject . toGObject--instance BuilderClass Builder-instance GObjectClass Builder where-  toGObject = GObject . castForeignPtr . unBuilder-  unsafeCastGObject = Builder . castForeignPtr . unGObject--castToBuilder :: GObjectClass obj => obj -> Builder-castToBuilder = castTo gTypeBuilder "Builder"--gTypeBuilder :: GType-gTypeBuilder =-  {# call fun unsafe gtk_builder_get_type #}---- *************************************************************** StyleContext--{#pointer *GtkStyleContext as StyleContext foreign newtype #} deriving (Eq,Ord)--mkStyleContext = (StyleContext, objectUnrefFromMainloop)-unStyleContext (StyleContext o) = o--class GObjectClass o => StyleContextClass o-toStyleContext :: StyleContextClass o => o -> StyleContext-toStyleContext = unsafeCastGObject . toGObject--instance StyleContextClass StyleContext-instance GObjectClass StyleContext where-  toGObject = GObject . castForeignPtr . unStyleContext-  unsafeCastGObject = StyleContext . castForeignPtr . unGObject--castToStyleContext :: GObjectClass obj => obj -> StyleContext-castToStyleContext = castTo gTypeStyleContext "StyleContext"--gTypeStyleContext :: GType-gTypeStyleContext =-  {# call fun unsafe gtk_style_context_get_type #}---- ************************************************************** StyleProvider--{#pointer *GtkStyleProvider as StyleProvider foreign newtype #} deriving (Eq,Ord)--mkStyleProvider = (StyleProvider, objectUnrefFromMainloop)-unStyleProvider (StyleProvider o) = o--class GObjectClass o => StyleProviderClass o-toStyleProvider :: StyleProviderClass o => o -> StyleProvider-toStyleProvider = unsafeCastGObject . toGObject--instance StyleProviderClass StyleProvider-instance GObjectClass StyleProvider where-  toGObject = GObject . castForeignPtr . unStyleProvider-  unsafeCastGObject = StyleProvider . castForeignPtr . unGObject--castToStyleProvider :: GObjectClass obj => obj -> StyleProvider-castToStyleProvider = castTo gTypeStyleProvider "StyleProvider"--gTypeStyleProvider :: GType-gTypeStyleProvider =-  {# call fun unsafe gtk_style_provider_get_type #}---- **************************************************************** CssProvider--{#pointer *GtkCssProvider as CssProvider foreign newtype #} deriving (Eq,Ord)--mkCssProvider = (CssProvider, objectUnrefFromMainloop)-unCssProvider (CssProvider o) = o--class GObjectClass o => CssProviderClass o-toCssProvider :: CssProviderClass o => o -> CssProvider-toCssProvider = unsafeCastGObject . toGObject--instance CssProviderClass CssProvider-instance GObjectClass CssProvider where-  toGObject = GObject . castForeignPtr . unCssProvider-  unsafeCastGObject = CssProvider . castForeignPtr . unGObject--castToCssProvider :: GObjectClass obj => obj -> CssProvider-castToCssProvider = castTo gTypeCssProvider "CssProvider"--gTypeCssProvider :: GType-gTypeCssProvider =-  {# call fun unsafe gtk_css_provider_get_type #}---- ***************************************************************** CellLayout--{#pointer *GtkCellLayout as CellLayout foreign newtype #} deriving (Eq,Ord)--mkCellLayout = (CellLayout, objectUnrefFromMainloop)-unCellLayout (CellLayout o) = o--class GObjectClass o => CellLayoutClass o-toCellLayout :: CellLayoutClass o => o -> CellLayout-toCellLayout = unsafeCastGObject . toGObject--instance CellLayoutClass CellLayout-instance GObjectClass CellLayout where-  toGObject = GObject . castForeignPtr . unCellLayout-  unsafeCastGObject = CellLayout . castForeignPtr . unGObject--castToCellLayout :: GObjectClass obj => obj -> CellLayout-castToCellLayout = castTo gTypeCellLayout "CellLayout"--gTypeCellLayout :: GType-gTypeCellLayout =-  {# call fun unsafe gtk_cell_layout_get_type #}---- *************************************************************** TreeSortable--{#pointer *GtkTreeSortable as TreeSortable foreign newtype #} deriving (Eq,Ord)--mkTreeSortable = (TreeSortable, objectUnrefFromMainloop)-unTreeSortable (TreeSortable o) = o--class GObjectClass o => TreeSortableClass o-toTreeSortable :: TreeSortableClass o => o -> TreeSortable-toTreeSortable = unsafeCastGObject . toGObject--instance TreeSortableClass TreeSortable-instance GObjectClass TreeSortable where-  toGObject = GObject . castForeignPtr . unTreeSortable-  unsafeCastGObject = TreeSortable . castForeignPtr . unGObject--castToTreeSortable :: GObjectClass obj => obj -> TreeSortable-castToTreeSortable = castTo gTypeTreeSortable "TreeSortable"--gTypeTreeSortable :: GType-gTypeTreeSortable =-  {# call fun unsafe gtk_tree_sortable_get_type #}---- ******************************************************************** Tooltip--{#pointer *GtkTooltip as Tooltip foreign newtype #} deriving (Eq,Ord)--mkTooltip = (Tooltip, objectUnrefFromMainloop)-unTooltip (Tooltip o) = o--class GObjectClass o => TooltipClass o-toTooltip :: TooltipClass o => o -> Tooltip-toTooltip = unsafeCastGObject . toGObject--instance TooltipClass Tooltip-instance GObjectClass Tooltip where-  toGObject = GObject . castForeignPtr . unTooltip-  unsafeCastGObject = Tooltip . castForeignPtr . unGObject--castToTooltip :: GObjectClass obj => obj -> Tooltip-castToTooltip = castTo gTypeTooltip "Tooltip"--gTypeTooltip :: GType-gTypeTooltip =-  {# call fun unsafe gtk_tooltip_get_type #}---- ***************************************************************** StatusIcon--{#pointer *GtkStatusIcon as StatusIcon foreign newtype #} deriving (Eq,Ord)--mkStatusIcon = (StatusIcon, objectUnrefFromMainloop)-unStatusIcon (StatusIcon o) = o--class TooltipClass o => StatusIconClass o-toStatusIcon :: StatusIconClass o => o -> StatusIcon-toStatusIcon = unsafeCastGObject . toGObject--instance StatusIconClass StatusIcon-instance TooltipClass StatusIcon-instance GObjectClass StatusIcon where-  toGObject = GObject . castForeignPtr . unStatusIcon-  unsafeCastGObject = StatusIcon . castForeignPtr . unGObject--castToStatusIcon :: GObjectClass obj => obj -> StatusIcon-castToStatusIcon = castTo gTypeStatusIcon "StatusIcon"--gTypeStatusIcon :: GType-gTypeStatusIcon =-  {# call fun unsafe gtk_status_icon_get_type #}---- ************************************************************** TreeSelection--{#pointer *GtkTreeSelection as TreeSelection foreign newtype #} deriving (Eq,Ord)--mkTreeSelection = (TreeSelection, objectUnrefFromMainloop)-unTreeSelection (TreeSelection o) = o--class GObjectClass o => TreeSelectionClass o-toTreeSelection :: TreeSelectionClass o => o -> TreeSelection-toTreeSelection = unsafeCastGObject . toGObject--instance TreeSelectionClass TreeSelection-instance GObjectClass TreeSelection where-  toGObject = GObject . castForeignPtr . unTreeSelection-  unsafeCastGObject = TreeSelection . castForeignPtr . unGObject--castToTreeSelection :: GObjectClass obj => obj -> TreeSelection-castToTreeSelection = castTo gTypeTreeSelection "TreeSelection"--gTypeTreeSelection :: GType-gTypeTreeSelection =-  {# call fun unsafe gtk_tree_selection_get_type #}---- ****************************************************************** TreeModel--{#pointer *GtkTreeModel as TreeModel foreign newtype #} deriving (Eq,Ord)--mkTreeModel = (TreeModel, objectUnrefFromMainloop)-unTreeModel (TreeModel o) = o--class GObjectClass o => TreeModelClass o-toTreeModel :: TreeModelClass o => o -> TreeModel-toTreeModel = unsafeCastGObject . toGObject--instance TreeModelClass TreeModel-instance GObjectClass TreeModel where-  toGObject = GObject . castForeignPtr . unTreeModel-  unsafeCastGObject = TreeModel . castForeignPtr . unGObject--castToTreeModel :: GObjectClass obj => obj -> TreeModel-castToTreeModel = castTo gTypeTreeModel "TreeModel"--gTypeTreeModel :: GType-gTypeTreeModel =-  {# call fun unsafe gtk_tree_model_get_type #}---- ****************************************************************** TreeStore--{#pointer *GtkTreeStore as TreeStore foreign newtype #} deriving (Eq,Ord)--mkTreeStore = (TreeStore, objectUnrefFromMainloop)-unTreeStore (TreeStore o) = o--class TreeModelClass o => TreeStoreClass o-toTreeStore :: TreeStoreClass o => o -> TreeStore-toTreeStore = unsafeCastGObject . toGObject--instance TreeStoreClass TreeStore-instance TreeModelClass TreeStore-instance GObjectClass TreeStore where-  toGObject = GObject . castForeignPtr . unTreeStore-  unsafeCastGObject = TreeStore . castForeignPtr . unGObject--castToTreeStore :: GObjectClass obj => obj -> TreeStore-castToTreeStore = castTo gTypeTreeStore "TreeStore"--gTypeTreeStore :: GType-gTypeTreeStore =-  {# call fun unsafe gtk_tree_store_get_type #}---- ****************************************************************** ListStore--{#pointer *GtkListStore as ListStore foreign newtype #} deriving (Eq,Ord)--mkListStore = (ListStore, objectUnrefFromMainloop)-unListStore (ListStore o) = o--class TreeModelClass o => ListStoreClass o-toListStore :: ListStoreClass o => o -> ListStore-toListStore = unsafeCastGObject . toGObject--instance ListStoreClass ListStore-instance TreeModelClass ListStore-instance GObjectClass ListStore where-  toGObject = GObject . castForeignPtr . unListStore-  unsafeCastGObject = ListStore . castForeignPtr . unGObject--castToListStore :: GObjectClass obj => obj -> ListStore-castToListStore = castTo gTypeListStore "ListStore"--gTypeListStore :: GType-gTypeListStore =-  {# call fun unsafe gtk_list_store_get_type #}---- ************************************************************** TreeModelSort--{#pointer *GtkTreeModelSort as TreeModelSort foreign newtype #} deriving (Eq,Ord)--mkTreeModelSort = (TreeModelSort, objectUnrefFromMainloop)-unTreeModelSort (TreeModelSort o) = o--class GObjectClass o => TreeModelSortClass o-toTreeModelSort :: TreeModelSortClass o => o -> TreeModelSort-toTreeModelSort = unsafeCastGObject . toGObject--instance TreeModelSortClass TreeModelSort-instance GObjectClass TreeModelSort where-  toGObject = GObject . castForeignPtr . unTreeModelSort-  unsafeCastGObject = TreeModelSort . castForeignPtr . unGObject--castToTreeModelSort :: GObjectClass obj => obj -> TreeModelSort-castToTreeModelSort = castTo gTypeTreeModelSort "TreeModelSort"--gTypeTreeModelSort :: GType-gTypeTreeModelSort =-  {# call fun unsafe gtk_tree_model_sort_get_type #}---- ************************************************************ TreeModelFilter--{#pointer *GtkTreeModelFilter as TreeModelFilter foreign newtype #} deriving (Eq,Ord)--mkTreeModelFilter = (TreeModelFilter, objectUnrefFromMainloop)-unTreeModelFilter (TreeModelFilter o) = o--class GObjectClass o => TreeModelFilterClass o-toTreeModelFilter :: TreeModelFilterClass o => o -> TreeModelFilter-toTreeModelFilter = unsafeCastGObject . toGObject--instance TreeModelFilterClass TreeModelFilter-instance GObjectClass TreeModelFilter where-  toGObject = GObject . castForeignPtr . unTreeModelFilter-  unsafeCastGObject = TreeModelFilter . castForeignPtr . unGObject--castToTreeModelFilter :: GObjectClass obj => obj -> TreeModelFilter-castToTreeModelFilter = castTo gTypeTreeModelFilter "TreeModelFilter"--gTypeTreeModelFilter :: GType-gTypeTreeModelFilter =-  {# call fun unsafe gtk_tree_model_filter_get_type #}---- **************************************************************** IconFactory--{#pointer *GtkIconFactory as IconFactory foreign newtype #} deriving (Eq,Ord)--mkIconFactory = (IconFactory, objectUnrefFromMainloop)-unIconFactory (IconFactory o) = o--class GObjectClass o => IconFactoryClass o-toIconFactory :: IconFactoryClass o => o -> IconFactory-toIconFactory = unsafeCastGObject . toGObject--instance IconFactoryClass IconFactory-instance GObjectClass IconFactory where-  toGObject = GObject . castForeignPtr . unIconFactory-  unsafeCastGObject = IconFactory . castForeignPtr . unGObject--castToIconFactory :: GObjectClass obj => obj -> IconFactory-castToIconFactory = castTo gTypeIconFactory "IconFactory"--gTypeIconFactory :: GType-gTypeIconFactory =-  {# call fun unsafe gtk_icon_factory_get_type #}---- ****************************************************************** IconTheme--{#pointer *GtkIconTheme as IconTheme foreign newtype #} deriving (Eq,Ord)--mkIconTheme = (IconTheme, objectUnrefFromMainloop)-unIconTheme (IconTheme o) = o--class GObjectClass o => IconThemeClass o-toIconTheme :: IconThemeClass o => o -> IconTheme-toIconTheme = unsafeCastGObject . toGObject--instance IconThemeClass IconTheme-instance GObjectClass IconTheme where-  toGObject = GObject . castForeignPtr . unIconTheme-  unsafeCastGObject = IconTheme . castForeignPtr . unGObject--castToIconTheme :: GObjectClass obj => obj -> IconTheme-castToIconTheme = castTo gTypeIconTheme "IconTheme"--gTypeIconTheme :: GType-gTypeIconTheme =-  {# call fun unsafe gtk_icon_theme_get_type #}---- ****************************************************************** SizeGroup--{#pointer *GtkSizeGroup as SizeGroup foreign newtype #} deriving (Eq,Ord)--mkSizeGroup = (SizeGroup, objectUnrefFromMainloop)-unSizeGroup (SizeGroup o) = o--class GObjectClass o => SizeGroupClass o-toSizeGroup :: SizeGroupClass o => o -> SizeGroup-toSizeGroup = unsafeCastGObject . toGObject--instance SizeGroupClass SizeGroup-instance GObjectClass SizeGroup where-  toGObject = GObject . castForeignPtr . unSizeGroup-  unsafeCastGObject = SizeGroup . castForeignPtr . unGObject--castToSizeGroup :: GObjectClass obj => obj -> SizeGroup-castToSizeGroup = castTo gTypeSizeGroup "SizeGroup"--gTypeSizeGroup :: GType-gTypeSizeGroup =-  {# call fun unsafe gtk_size_group_get_type #}---- ****************************************************************** Clipboard--{#pointer *GtkClipboard as Clipboard foreign newtype #} deriving (Eq,Ord)--mkClipboard = (Clipboard, objectUnrefFromMainloop)-unClipboard (Clipboard o) = o--class GObjectClass o => ClipboardClass o-toClipboard :: ClipboardClass o => o -> Clipboard-toClipboard = unsafeCastGObject . toGObject--instance ClipboardClass Clipboard-instance GObjectClass Clipboard where-  toGObject = GObject . castForeignPtr . unClipboard-  unsafeCastGObject = Clipboard . castForeignPtr . unGObject--castToClipboard :: GObjectClass obj => obj -> Clipboard-castToClipboard = castTo gTypeClipboard "Clipboard"--gTypeClipboard :: GType-gTypeClipboard =-  {# call fun unsafe gtk_clipboard_get_type #}---- ***************************************************************** AccelGroup--{#pointer *GtkAccelGroup as AccelGroup foreign newtype #} deriving (Eq,Ord)--mkAccelGroup = (AccelGroup, objectUnrefFromMainloop)-unAccelGroup (AccelGroup o) = o--class GObjectClass o => AccelGroupClass o-toAccelGroup :: AccelGroupClass o => o -> AccelGroup-toAccelGroup = unsafeCastGObject . toGObject--instance AccelGroupClass AccelGroup-instance GObjectClass AccelGroup where-  toGObject = GObject . castForeignPtr . unAccelGroup-  unsafeCastGObject = AccelGroup . castForeignPtr . unGObject--castToAccelGroup :: GObjectClass obj => obj -> AccelGroup-castToAccelGroup = castTo gTypeAccelGroup "AccelGroup"--gTypeAccelGroup :: GType-gTypeAccelGroup =-  {# call fun unsafe gtk_accel_group_get_type #}---- ******************************************************************* AccelMap--{#pointer *GtkAccelMap as AccelMap foreign newtype #} deriving (Eq,Ord)--mkAccelMap = (AccelMap, objectUnrefFromMainloop)-unAccelMap (AccelMap o) = o--class GObjectClass o => AccelMapClass o-toAccelMap :: AccelMapClass o => o -> AccelMap-toAccelMap = unsafeCastGObject . toGObject--instance AccelMapClass AccelMap-instance GObjectClass AccelMap where-  toGObject = GObject . castForeignPtr . unAccelMap-  unsafeCastGObject = AccelMap . castForeignPtr . unGObject--castToAccelMap :: GObjectClass obj => obj -> AccelMap-castToAccelMap = castTo gTypeAccelMap "AccelMap"--gTypeAccelMap :: GType-gTypeAccelMap =-  {# call fun unsafe gtk_accel_map_get_type #}---- ************************************************************ EntryCompletion--{#pointer *GtkEntryCompletion as EntryCompletion foreign newtype #} deriving (Eq,Ord)--mkEntryCompletion = (EntryCompletion, objectUnrefFromMainloop)-unEntryCompletion (EntryCompletion o) = o--class GObjectClass o => EntryCompletionClass o-toEntryCompletion :: EntryCompletionClass o => o -> EntryCompletion-toEntryCompletion = unsafeCastGObject . toGObject--instance EntryCompletionClass EntryCompletion-instance GObjectClass EntryCompletion where-  toGObject = GObject . castForeignPtr . unEntryCompletion-  unsafeCastGObject = EntryCompletion . castForeignPtr . unGObject--castToEntryCompletion :: GObjectClass obj => obj -> EntryCompletion-castToEntryCompletion = castTo gTypeEntryCompletion "EntryCompletion"--gTypeEntryCompletion :: GType-gTypeEntryCompletion =-  {# call fun unsafe gtk_entry_completion_get_type #}---- **************************************************************** EntryBuffer--{#pointer *GtkEntryBuffer as EntryBuffer foreign newtype #} deriving (Eq,Ord)--mkEntryBuffer = (EntryBuffer, objectUnrefFromMainloop)-unEntryBuffer (EntryBuffer o) = o--class GObjectClass o => EntryBufferClass o-toEntryBuffer :: EntryBufferClass o => o -> EntryBuffer-toEntryBuffer = unsafeCastGObject . toGObject--instance EntryBufferClass EntryBuffer-instance GObjectClass EntryBuffer where-  toGObject = GObject . castForeignPtr . unEntryBuffer-  unsafeCastGObject = EntryBuffer . castForeignPtr . unGObject--castToEntryBuffer :: GObjectClass obj => obj -> EntryBuffer-castToEntryBuffer = castTo gTypeEntryBuffer "EntryBuffer"--gTypeEntryBuffer :: GType-gTypeEntryBuffer =-  {# call fun unsafe gtk_entry_buffer_get_type #}---- ********************************************************************* Action--{#pointer *GtkAction as Action foreign newtype #} deriving (Eq,Ord)--mkAction = (Action, objectUnrefFromMainloop)-unAction (Action o) = o--class GObjectClass o => ActionClass o-toAction :: ActionClass o => o -> Action-toAction = unsafeCastGObject . toGObject--instance ActionClass Action-instance GObjectClass Action where-  toGObject = GObject . castForeignPtr . unAction-  unsafeCastGObject = Action . castForeignPtr . unGObject--castToAction :: GObjectClass obj => obj -> Action-castToAction = castTo gTypeAction "Action"--gTypeAction :: GType-gTypeAction =-  {# call fun unsafe gtk_action_get_type #}---- *************************************************************** RecentAction--{#pointer *GtkRecentAction as RecentAction foreign newtype #} deriving (Eq,Ord)--mkRecentAction = (RecentAction, objectUnrefFromMainloop)-unRecentAction (RecentAction o) = o--class ActionClass o => RecentActionClass o-toRecentAction :: RecentActionClass o => o -> RecentAction-toRecentAction = unsafeCastGObject . toGObject--instance RecentActionClass RecentAction-instance ActionClass RecentAction-instance GObjectClass RecentAction where-  toGObject = GObject . castForeignPtr . unRecentAction-  unsafeCastGObject = RecentAction . castForeignPtr . unGObject--castToRecentAction :: GObjectClass obj => obj -> RecentAction-castToRecentAction = castTo gTypeRecentAction "RecentAction"--gTypeRecentAction :: GType-gTypeRecentAction =-  {# call fun unsafe gtk_recent_action_get_type #}---- *************************************************************** ToggleAction--{#pointer *GtkToggleAction as ToggleAction foreign newtype #} deriving (Eq,Ord)--mkToggleAction = (ToggleAction, objectUnrefFromMainloop)-unToggleAction (ToggleAction o) = o--class ActionClass o => ToggleActionClass o-toToggleAction :: ToggleActionClass o => o -> ToggleAction-toToggleAction = unsafeCastGObject . toGObject--instance ToggleActionClass ToggleAction-instance ActionClass ToggleAction-instance GObjectClass ToggleAction where-  toGObject = GObject . castForeignPtr . unToggleAction-  unsafeCastGObject = ToggleAction . castForeignPtr . unGObject--castToToggleAction :: GObjectClass obj => obj -> ToggleAction-castToToggleAction = castTo gTypeToggleAction "ToggleAction"--gTypeToggleAction :: GType-gTypeToggleAction =-  {# call fun unsafe gtk_toggle_action_get_type #}---- **************************************************************** RadioAction--{#pointer *GtkRadioAction as RadioAction foreign newtype #} deriving (Eq,Ord)--mkRadioAction = (RadioAction, objectUnrefFromMainloop)-unRadioAction (RadioAction o) = o--class ToggleActionClass o => RadioActionClass o-toRadioAction :: RadioActionClass o => o -> RadioAction-toRadioAction = unsafeCastGObject . toGObject--instance RadioActionClass RadioAction-instance ToggleActionClass RadioAction-instance ActionClass RadioAction-instance GObjectClass RadioAction where-  toGObject = GObject . castForeignPtr . unRadioAction-  unsafeCastGObject = RadioAction . castForeignPtr . unGObject--castToRadioAction :: GObjectClass obj => obj -> RadioAction-castToRadioAction = castTo gTypeRadioAction "RadioAction"--gTypeRadioAction :: GType-gTypeRadioAction =-  {# call fun unsafe gtk_radio_action_get_type #}---- **************************************************************** ActionGroup--{#pointer *GtkActionGroup as ActionGroup foreign newtype #} deriving (Eq,Ord)--mkActionGroup = (ActionGroup, objectUnrefFromMainloop)-unActionGroup (ActionGroup o) = o--class GObjectClass o => ActionGroupClass o-toActionGroup :: ActionGroupClass o => o -> ActionGroup-toActionGroup = unsafeCastGObject . toGObject--instance ActionGroupClass ActionGroup-instance GObjectClass ActionGroup where-  toGObject = GObject . castForeignPtr . unActionGroup-  unsafeCastGObject = ActionGroup . castForeignPtr . unGObject--castToActionGroup :: GObjectClass obj => obj -> ActionGroup-castToActionGroup = castTo gTypeActionGroup "ActionGroup"--gTypeActionGroup :: GType-gTypeActionGroup =-  {# call fun unsafe gtk_action_group_get_type #}---- ****************************************************************** UIManager--{#pointer *GtkUIManager as UIManager foreign newtype #} deriving (Eq,Ord)--mkUIManager = (UIManager, objectUnrefFromMainloop)-unUIManager (UIManager o) = o--class GObjectClass o => UIManagerClass o-toUIManager :: UIManagerClass o => o -> UIManager-toUIManager = unsafeCastGObject . toGObject--instance UIManagerClass UIManager-instance GObjectClass UIManager where-  toGObject = GObject . castForeignPtr . unUIManager-  unsafeCastGObject = UIManager . castForeignPtr . unGObject--castToUIManager :: GObjectClass obj => obj -> UIManager-castToUIManager = castTo gTypeUIManager "UIManager"--gTypeUIManager :: GType-gTypeUIManager =-  {# call fun unsafe gtk_ui_manager_get_type #}---- **************************************************************** WindowGroup--{#pointer *GtkWindowGroup as WindowGroup foreign newtype #} deriving (Eq,Ord)--mkWindowGroup = (WindowGroup, objectUnrefFromMainloop)-unWindowGroup (WindowGroup o) = o--class GObjectClass o => WindowGroupClass o-toWindowGroup :: WindowGroupClass o => o -> WindowGroup-toWindowGroup = unsafeCastGObject . toGObject--instance WindowGroupClass WindowGroup-instance GObjectClass WindowGroup where-  toGObject = GObject . castForeignPtr . unWindowGroup-  unsafeCastGObject = WindowGroup . castForeignPtr . unGObject--castToWindowGroup :: GObjectClass obj => obj -> WindowGroup-castToWindowGroup = castTo gTypeWindowGroup "WindowGroup"--gTypeWindowGroup :: GType-gTypeWindowGroup =-  {# call fun unsafe gtk_window_group_get_type #}---- *************************************************************** CellEditable--{#pointer *GtkCellEditable as CellEditable foreign newtype #} deriving (Eq,Ord)--mkCellEditable = (CellEditable, objectUnrefFromMainloop)-unCellEditable (CellEditable o) = o--class GObjectClass o => CellEditableClass o-toCellEditable :: CellEditableClass o => o -> CellEditable-toCellEditable = unsafeCastGObject . toGObject--instance CellEditableClass CellEditable-instance GObjectClass CellEditable where-  toGObject = GObject . castForeignPtr . unCellEditable-  unsafeCastGObject = CellEditable . castForeignPtr . unGObject--castToCellEditable :: GObjectClass obj => obj -> CellEditable-castToCellEditable = castTo gTypeCellEditable "CellEditable"--gTypeCellEditable :: GType-gTypeCellEditable =-  {# call fun unsafe gtk_cell_editable_get_type #}---- ******************************************************************* Editable--{#pointer *GtkEditable as Editable foreign newtype #} deriving (Eq,Ord)--mkEditable = (Editable, objectUnrefFromMainloop)-unEditable (Editable o) = o--class GObjectClass o => EditableClass o-toEditable :: EditableClass o => o -> Editable-toEditable = unsafeCastGObject . toGObject--instance EditableClass Editable-instance GObjectClass Editable where-  toGObject = GObject . castForeignPtr . unEditable-  unsafeCastGObject = Editable . castForeignPtr . unGObject--castToEditable :: GObjectClass obj => obj -> Editable-castToEditable = castTo gTypeEditable "Editable"--gTypeEditable :: GType-gTypeEditable =-  {# call fun unsafe gtk_editable_get_type #}---- **************************************************************** FileChooser--{#pointer *GtkFileChooser as FileChooser foreign newtype #} deriving (Eq,Ord)--mkFileChooser = (FileChooser, objectUnrefFromMainloop)-unFileChooser (FileChooser o) = o--class GObjectClass o => FileChooserClass o-toFileChooser :: FileChooserClass o => o -> FileChooser-toFileChooser = unsafeCastGObject . toGObject--instance FileChooserClass FileChooser-instance GObjectClass FileChooser where-  toGObject = GObject . castForeignPtr . unFileChooser-  unsafeCastGObject = FileChooser . castForeignPtr . unGObject--castToFileChooser :: GObjectClass obj => obj -> FileChooser-castToFileChooser = castTo gTypeFileChooser "FileChooser"--gTypeFileChooser :: GType-gTypeFileChooser =-  {# call fun unsafe gtk_file_chooser_get_type #}-
Graphics/UI/Gtk/Windows/Assistant.chs view
@@ -32,7 +32,7 @@ -- * Detail -- -- | A 'Assistant' is a widget used to represent a generally complex operation--- splitted in several steps, guiding the user through its pages and+-- split in several steps, guiding the user through its pages and -- controlling the page flow to collect the necessary data.  -- ** GtkAssistant as GtkBuildable
Graphics/UI/Gtk/Windows/Window.chs view
@@ -1879,7 +1879,7 @@ -- windowSetGeometryHints :: (WindowClass self, WidgetClass widget) =>     self             -- ^ @window@ - the top level window- -> Maybe widget     -- ^ @geometryWidget@ - optionall a widget the geometry+ -> Maybe widget     -- ^ @geometryWidget@ - optional a widget the geometry                      -- hints will be applied to rather than directly to the                      -- top level window  -> Maybe (Int, Int) -- ^ @(minWidth, minHeight)@ - minimum width and height@@ -2011,7 +2011,7 @@ windowType = readAttrFromEnumProperty "type"   {# call pure unsafe gtk_window_type_get_type #} --- | If @True@, the window has no mimimum size. Setting this to @True@ is 99%+-- | If @True@, the window has no minimum size. Setting this to @True@ is 99% -- of the time a bad idea. -- -- Default value: @False@@@ -2312,7 +2312,7 @@ -- | Whether the input focus is within this GtkWindow. -- -- Note: If add `window` before `HasToplevelFocus` (has-toplevel-focus attribute)--- will conflicts with fucntion `windowHasToplevelFocus`, so we named this attribute+-- will conflicts with function `windowHasToplevelFocus`, so we named this attribute -- to `windowToplevelFocus`. -- -- Default values: @False@
− Gtk2HsSetup.hs 
@@ -1,500 +0,0 @@-{-# LANGUAGE CPP, ViewPatterns #-}--#ifndef CABAL_VERSION_CHECK-#error This module has to be compiled via the Setup.hs program which generates the gtk2hs-macros.h file-#endif---- | Build a Gtk2hs package.----module Gtk2HsSetup (-  gtk2hsUserHooks,-  getPkgConfigPackages,-  checkGtk2hsBuildtools,-  typeGenProgram,-  signalGenProgram,-  c2hsLocal-  ) where--import Distribution.Simple-import Distribution.Simple.PreProcess-import Distribution.InstalledPackageInfo ( importDirs,-                                           showInstalledPackageInfo,-                                           libraryDirs,-                                           extraLibraries,-                                           extraGHCiLibraries )-import Distribution.Simple.PackageIndex ( lookupInstalledPackageId )-import Distribution.PackageDescription as PD ( PackageDescription(..),-                                               updatePackageDescription,-                                               BuildInfo(..),-                                               emptyBuildInfo, allBuildInfo,-                                               Library(..),-                                               libModules, hasLibs)-import Distribution.Simple.LocalBuildInfo (LocalBuildInfo(withPackageDB, buildDir, localPkgDescr, installedPkgs, withPrograms),-                                           InstallDirs(..),-                                           componentPackageDeps,-                                           absoluteInstallDirs)-import Distribution.Simple.Compiler  ( Compiler(..) )-import Distribution.Simple.Program (-  Program(..), ConfiguredProgram(..),-  rawSystemProgramConf, rawSystemProgramStdoutConf, programName, programPath,-  c2hsProgram, pkgConfigProgram, gccProgram, requireProgram, ghcPkgProgram,-  simpleProgram, lookupProgram, rawSystemProgramStdout, ProgArg)-import Distribution.ModuleName ( ModuleName, components, toFilePath )-import Distribution.Simple.Utils-import Distribution.Simple.Setup (CopyFlags(..), InstallFlags(..), CopyDest(..),-                                  defaultCopyFlags, ConfigFlags(configVerbosity),-                                  fromFlag, toFlag, RegisterFlags(..), flagToMaybe,-                                  fromFlagOrDefault, defaultRegisterFlags)-import Distribution.Simple.BuildPaths ( autogenModulesDir )-import Distribution.Simple.Install ( install )-import Distribution.Simple.Register ( generateRegistrationInfo, registerPackage )-import Distribution.Text ( simpleParse, display )-import System.FilePath-import System.Exit (exitFailure)-import System.Directory ( doesFileExist, getDirectoryContents, doesDirectoryExist )-import Distribution.Version (Version(..))-import Distribution.Verbosity-import Control.Monad (when, unless, filterM, liftM, forM, forM_)-import Data.Maybe ( isJust, isNothing, fromMaybe, maybeToList, catMaybes )-import Data.List (isPrefixOf, isSuffixOf, nub, minimumBy, stripPrefix, tails )-import Data.Ord as Ord (comparing)-import Data.Char (isAlpha, isNumber)-import qualified Data.Map as M-import qualified Data.Set as S-import qualified Distribution.Simple.LocalBuildInfo as LBI-import Distribution.Simple.Compiler (compilerVersion)--import Control.Applicative ((<$>))--#if CABAL_VERSION_CHECK(1,17,0)-import Distribution.Simple.Program.Find ( defaultProgramSearchPath )-onDefaultSearchPath f a b = f a b defaultProgramSearchPath-libraryConfig lbi = case [clbi | (LBI.CLibName, clbi, _) <- LBI.componentsConfigs lbi] of-  [clbi] -> Just clbi-  _ -> Nothing-#else-onDefaultSearchPath = id-libraryConfig = LBI.libraryConfig-#endif---- the name of the c2hs pre-compiled header file-precompFile = "precompchs.bin"--gtk2hsUserHooks = simpleUserHooks {-    hookedPrograms = [typeGenProgram, signalGenProgram, c2hsLocal],-    hookedPreProcessors = [("chs", ourC2hs)],-    confHook = \pd cf ->-      (fmap adjustLocalBuildInfo (confHook simpleUserHooks pd cf)),-    postConf = \args cf pd lbi -> do-      genSynthezisedFiles (fromFlag (configVerbosity cf)) pd lbi-      postConf simpleUserHooks args cf pd lbi,-    buildHook = \pd lbi uh bf -> fixDeps pd >>= \pd ->-                                 buildHook simpleUserHooks pd lbi uh bf,-    copyHook = \pd lbi uh flags -> copyHook simpleUserHooks pd lbi uh flags >>-      installCHI pd lbi (fromFlag (copyVerbosity flags)) (fromFlag (copyDest flags)),-    instHook = \pd lbi uh flags ->-#if defined(mingw32_HOST_OS) || defined(__MINGW32__)-      installHook pd lbi uh flags >>-      installCHI pd lbi (fromFlag (installVerbosity flags)) NoCopyDest,-    regHook = registerHook-#else-      instHook simpleUserHooks pd lbi uh flags >>-      installCHI pd lbi (fromFlag (installVerbosity flags)) NoCopyDest-#endif-  }----------------------------------------------------------------------------------- Lots of stuff for windows ghci support---------------------------------------------------------------------------------getDlls :: [FilePath] -> IO [FilePath]-getDlls dirs = filter ((== ".dll") . takeExtension) . concat <$>-    mapM getDirectoryContents dirs--fixLibs :: [FilePath] -> [String] -> [String]-fixLibs dlls = concatMap $ \ lib ->-    case filter (isLib lib) dlls of-                dlls@(_:_) -> [dropExtension (pickDll dlls)]-                _          -> if lib == "z" then [] else [lib]-  where-    -- If there are several .dll files matching the one we're after then we-    -- just have to guess. For example for recent Windows cairo builds we get-    -- libcairo-2.dll libcairo-gobject-2.dll libcairo-script-interpreter-2.dll-    -- Our heuristic is to pick the one with the shortest name.-    -- Yes this is a hack but the proper solution is hard: we would need to-    -- parse the .a file and see which .dll file(s) it needed to link to.-    pickDll = minimumBy (Ord.comparing length)-    isLib lib dll =-        case stripPrefix ("lib"++lib) dll of-            Just ('.':_)                -> True-            Just ('-':n:_) | isNumber n -> True-            _                           -> False---- The following code is a big copy-and-paste job from the sources of--- Cabal 1.8 just to be able to fix a field in the package file. Yuck.--installHook :: PackageDescription -> LocalBuildInfo-                   -> UserHooks -> InstallFlags -> IO ()-installHook pkg_descr localbuildinfo _ flags = do-  let copyFlags = defaultCopyFlags {-                      copyDistPref   = installDistPref flags,-                      copyDest       = toFlag NoCopyDest,-                      copyVerbosity  = installVerbosity flags-                  }-  install pkg_descr localbuildinfo copyFlags-  let registerFlags = defaultRegisterFlags {-                          regDistPref  = installDistPref flags,-                          regInPlace   = installInPlace flags,-                          regPackageDB = installPackageDB flags,-                          regVerbosity = installVerbosity flags-                      }-  when (hasLibs pkg_descr) $ register pkg_descr localbuildinfo registerFlags--registerHook :: PackageDescription -> LocalBuildInfo-        -> UserHooks -> RegisterFlags -> IO ()-registerHook pkg_descr localbuildinfo _ flags =-    if hasLibs pkg_descr-    then register pkg_descr localbuildinfo flags-    else setupMessage verbosity-           "Package contains no library to register:" (packageId pkg_descr)-  where verbosity = fromFlag (regVerbosity flags)--register :: PackageDescription -> LocalBuildInfo-         -> RegisterFlags -- ^Install in the user's database?; verbose-         -> IO ()-register pkg@PackageDescription { library       = Just lib  } lbi regFlags-  = do-    let clbi = LBI.getComponentLocalBuildInfo lbi LBI.CLibName--    installedPkgInfoRaw <- generateRegistrationInfo-#if CABAL_VERSION_CHECK(1,22,0)-                           verbosity pkg lib lbi clbi inplace False distPref packageDb-#else-                           verbosity pkg lib lbi clbi inplace distPref-#endif--    dllsInScope <- getSearchPath >>= (filterM doesDirectoryExist) >>= getDlls-    let libs = fixLibs dllsInScope (extraLibraries installedPkgInfoRaw)-        installedPkgInfo = installedPkgInfoRaw {-                                extraGHCiLibraries = libs }--     -- Three different modes:-    case () of-     _ | modeGenerateRegFile   -> writeRegistrationFile installedPkgInfo-       | modeGenerateRegScript -> die "Generate Reg Script not supported"-       | otherwise             -> registerPackage verbosity-                                    installedPkgInfo pkg lbi inplace-#if CABAL_VERSION_CHECK(1,10,0)-                                    packageDbs-#else-                                    packageDb-#endif--  where-    modeGenerateRegFile = isJust (flagToMaybe (regGenPkgConf regFlags))-    regFile             = fromMaybe (display (packageId pkg) <.> "conf")-                                    (fromFlag (regGenPkgConf regFlags))-    modeGenerateRegScript = fromFlag (regGenScript regFlags)-    inplace   = fromFlag (regInPlace regFlags)-    packageDbs = nub $ withPackageDB lbi-                    ++ maybeToList (flagToMaybe  (regPackageDB regFlags))-    packageDb = registrationPackageDB packageDbs-    distPref  = fromFlag (regDistPref regFlags)-    verbosity = fromFlag (regVerbosity regFlags)--    writeRegistrationFile installedPkgInfo = do-      notice verbosity ("Creating package registration file: " ++ regFile)-      writeUTF8File regFile (showInstalledPackageInfo installedPkgInfo)--register _ _ regFlags = notice verbosity "No package to register"-  where-    verbosity = fromFlag (regVerbosity regFlags)------------------------------------------------------------------------------------ This is a hack for Cabal-1.8, It is not needed in Cabal-1.9.1 or later---------------------------------------------------------------------------------adjustLocalBuildInfo :: LocalBuildInfo -> LocalBuildInfo-adjustLocalBuildInfo lbi =-  let extra = (Just libBi, [])-      libBi = emptyBuildInfo { includeDirs = [ autogenModulesDir lbi-                                             , buildDir lbi ] }-   in lbi { localPkgDescr = updatePackageDescription extra (localPkgDescr lbi) }----------------------------------------------------------------------------------- Processing .chs files with our local c2hs.---------------------------------------------------------------------------------ourC2hs :: BuildInfo -> LocalBuildInfo -> PreProcessor-ourC2hs bi lbi = PreProcessor {-  platformIndependent = False,-  runPreProcessor = runC2HS bi lbi-}--runC2HS :: BuildInfo -> LocalBuildInfo ->-           (FilePath, FilePath) -> (FilePath, FilePath) -> Verbosity -> IO ()-runC2HS bi lbi (inDir, inFile)  (outDir, outFile) verbosity = do-  -- have the header file name if we don't have the precompiled header yet-  header <- case lookup "x-c2hs-header" (customFieldsBI bi) of-    Just h -> return h-    Nothing -> die ("Need x-c2hs-Header definition in the .cabal Library section "++-                    "that sets the C header file to process .chs.pp files.")--  -- c2hs will output files in out dir, removing any leading path of the input file.-  -- Thus, append the dir of the input file to the output dir.-  let (outFileDir, newOutFile) = splitFileName outFile-  let newOutDir = outDir </> outFileDir-  -- additional .chi files might be needed that other packages have installed;-  -- we assume that these are installed in the same place as .hi files-  let chiDirs = [ dir |-                  ipi <- maybe [] (map fst . componentPackageDeps) (libraryConfig lbi),-                  dir <- maybe [] importDirs (lookupInstalledPackageId (installedPkgs lbi) ipi) ]-  (gccProg, _) <- requireProgram verbosity gccProgram (withPrograms lbi)-  rawSystemProgramConf verbosity c2hsLocal (withPrograms lbi) $-       map ("--include=" ++) (outDir:chiDirs)-    ++ [ "--cpp=" ++ programPath gccProg, "--cppopts=-E" ]-    ++ ["--cppopts=" ++ opt | opt <- getCppOptions bi lbi]-    ++ ["--output-dir=" ++ newOutDir,-        "--output=" ++ newOutFile,-        "--precomp=" ++ buildDir lbi </> precompFile,-        header, inDir </> inFile]--getCppOptions :: BuildInfo -> LocalBuildInfo -> [String]-getCppOptions bi lbi-    = nub $-      ["-I" ++ dir | dir <- PD.includeDirs bi]-   ++ [opt | opt@('-':c:_) <- PD.cppOptions bi ++ PD.ccOptions bi, c `elem` "DIU"]-   ++ ["-D__GLASGOW_HASKELL__="++show (ghcDefine . ghcVersion . compilerId $ LBI.compiler lbi)]- where-  ghcDefine (v1:v2:_) = v1 * 100 + v2-  ghcDefine _ = __GLASGOW_HASKELL__--  ghcVersion :: CompilerId -> [Int]--- This version is nicer, but we need to know the Cabal version that includes the new CompilerId--- #if CABAL_VERSION_CHECK(1,19,2)---   ghcVersion (CompilerId GHC v _) = versionBranch v---   ghcVersion (CompilerId _ _ (Just c)) = ghcVersion c--- #else---   ghcVersion (CompilerId GHC v) = versionBranch v--- #endif---   ghcVersion _ = []--- This version should work fine for now-  ghcVersion = concat . take 1 . map (read . (++"]") . takeWhile (/=']')) . catMaybes-               . map (stripPrefix "CompilerId GHC (Version {versionBranch = ") . tails . show--installCHI :: PackageDescription -- ^information from the .cabal file-        -> LocalBuildInfo -- ^information from the configure step-        -> Verbosity -> CopyDest -- ^flags sent to copy or install-        -> IO ()-installCHI pkg@PD.PackageDescription { library = Just lib } lbi verbosity copydest = do-  let InstallDirs { libdir = libPref } = absoluteInstallDirs pkg lbi copydest-  -- cannot use the recommended 'findModuleFiles' since it fails if there exists-  -- a modules that does not have a .chi file-  mFiles <- mapM (findFileWithExtension' ["chi"] [buildDir lbi] . toFilePath)-                   (PD.libModules lib)--  let files = [ f | Just f <- mFiles ]-  installOrdinaryFiles verbosity libPref files---installCHI _ _ _ _ = return ()----------------------------------------------------------------------------------- Generating the type hierarchy and signal callback .hs files.---------------------------------------------------------------------------------typeGenProgram :: Program-typeGenProgram = simpleProgram "gtk2hsTypeGen"--signalGenProgram :: Program-signalGenProgram = simpleProgram "gtk2hsHookGenerator"--c2hsLocal :: Program-c2hsLocal = (simpleProgram "gtk2hsC2hs") {-    programFindVersion = findProgramVersion "--version" $ \str ->-      -- Invoking "gtk2hsC2hs --version" gives a string like:-      -- C->Haskell Compiler, version 0.13.4 (gtk2hs branch) "Bin IO", 13 Nov 2004-      case words str of-        (_:_:_:ver:_) -> ver-        _             -> ""-  }---genSynthezisedFiles :: Verbosity -> PackageDescription -> LocalBuildInfo -> IO ()-genSynthezisedFiles verb pd lbi = do-  cPkgs <- getPkgConfigPackages verb lbi pd--  let xList = maybe [] (customFieldsBI . libBuildInfo) (library pd)-              ++customFieldsPD pd-      typeOpts :: String -> [ProgArg]-      typeOpts tag = concat [ map (\val -> '-':'-':drop (length tag) field ++ '=':val) (words content)-                            | (field,content) <- xList,-                              tag `isPrefixOf` field,-                              field /= (tag++"file")]-              ++ [ "--tag=" ++ tag-                 | PackageIdentifier name (Version (major:minor:_) _) <- cPkgs-                 , let name' = filter isAlpha (display name)-                 , tag <- name'-                        :[ name' ++ "-" ++ show maj ++ "." ++ show d2-                          | (maj, d2) <- [(maj,   d2) | maj <- [0..(major-1)], d2 <- [0,2..20]]-                                      ++ [(major, d2) | d2 <- [0,2..minor]] ]-                 ]--      signalsOpts :: [ProgArg]-      signalsOpts = concat [ map (\val -> '-':'-':drop 10 field++'=':val) (words content)-                        | (field,content) <- xList,-                          "x-signals-" `isPrefixOf` field,-                          field /= "x-signals-file"]--      genFile :: Program -> [ProgArg] -> FilePath -> IO ()-      genFile prog args outFile = do-         res <- rawSystemProgramStdoutConf verb prog (withPrograms lbi) args-         rewriteFile outFile res--  forM_ (filter (\(tag,_) -> "x-types-" `isPrefixOf` tag && "file" `isSuffixOf` tag) xList) $-    \(fileTag, f) -> do-      let tag = reverse (drop 4 (reverse fileTag))-      info verb ("Ensuring that class hierarchy in "++f++" is up-to-date.")-      genFile typeGenProgram (typeOpts tag) f--  case lookup "x-signals-file" xList of-    Nothing -> return ()-    Just f -> do-      info verb ("Ensuring that callback hooks in "++f++" are up-to-date.")-      genFile signalGenProgram signalsOpts f--  writeFile "gtk2hs_macros.h" $ generateMacros cPkgs---- Based on Cabal/Distribution/Simple/Build/Macros.hs-generateMacros :: [PackageId] -> String-generateMacros cPkgs = concat $-  "/* DO NOT EDIT: This file is automatically generated by Gtk2HsSetup.hs */\n\n" :-  [ concat-    ["/* package ",display pkgid," */\n"-    ,"#define VERSION_",pkgname," ",show (display version),"\n"-    ,"#define MIN_VERSION_",pkgname,"(major1,major2,minor) (\\\n"-    ,"  (major1) <  ",major1," || \\\n"-    ,"  (major1) == ",major1," && (major2) <  ",major2," || \\\n"-    ,"  (major1) == ",major1," && (major2) == ",major2," && (minor) <= ",minor,")"-    ,"\n\n"-    ]-  | pkgid@(PackageIdentifier name version) <- cPkgs-  , let (major1:major2:minor:_) = map show (versionBranch version ++ repeat 0)-        pkgname = map fixchar (display name)-  ]-  where fixchar '-' = '_'-        fixchar '.' = '_'-        fixchar c   = c----FIXME: Cabal should tell us the selected pkg-config package versions in the---       LocalBuildInfo or equivalent.---       In the mean time, ask pkg-config again.--getPkgConfigPackages :: Verbosity -> LocalBuildInfo -> PackageDescription -> IO [PackageId]-getPkgConfigPackages verbosity lbi pkg =-  sequence-    [ do version <- pkgconfig ["--modversion", display pkgname]-         case simpleParse version of-           Nothing -> die "parsing output of pkg-config --modversion failed"-           Just v  -> return (PackageIdentifier pkgname v)-    | Dependency pkgname _ <- concatMap pkgconfigDepends (allBuildInfo pkg) ]-  where-    pkgconfig = rawSystemProgramStdoutConf verbosity-                  pkgConfigProgram (withPrograms lbi)----------------------------------------------------------------------------------- Dependency calculation amongst .chs files.----------------------------------------------------------------------------------- Given all files of the package, find those that end in .chs and extract the--- .chs files they depend upon. Then return the PackageDescription with these--- files rearranged so that they are built in a sequence that files that are--- needed by other files are built first.-fixDeps :: PackageDescription -> IO PackageDescription-fixDeps pd@PD.PackageDescription {-          PD.library = Just lib@PD.Library {-            PD.exposedModules = expMods,-            PD.libBuildInfo = bi@PD.BuildInfo {-              PD.hsSourceDirs = srcDirs,-              PD.otherModules = othMods-            }}} = do-  let findModule m = findFileWithExtension [".chs.pp",".chs"] srcDirs-                       (joinPath (components m))-  mExpFiles <- mapM findModule expMods-  mOthFiles <- mapM findModule othMods--  -- tag all exposed files with True so we throw an error if we need to build-  -- an exposed module before an internal modules (we cannot express this)-  let modDeps = zipWith (ModDep True []) expMods mExpFiles++-                zipWith (ModDep False []) othMods mOthFiles-  modDeps <- mapM extractDeps modDeps-  let (othMods, expMods) = span (not . mdExposed) $ reverse $ sortTopological modDeps-  return pd { PD.library = Just lib {-    PD.exposedModules = map mdOriginal (reverse expMods),-    PD.libBuildInfo = bi { PD.otherModules = map mdOriginal (reverse othMods) }-  }}--data ModDep = ModDep {-  mdExposed :: Bool,-  mdRequires :: [ModuleName],-  mdOriginal :: ModuleName,-  mdLocation :: Maybe FilePath-}--instance Show ModDep where-  show x = show (mdLocation x)--instance Eq ModDep where-  ModDep { mdOriginal = m1 } == ModDep { mdOriginal = m2 } = m1==m2-instance Ord ModDep where-  compare ModDep { mdOriginal = m1 } ModDep { mdOriginal = m2 } = compare m1 m2---- Extract the dependencies of this file. This is intentionally rather naive as it--- ignores CPP conditionals. We just require everything which means that the--- existance of a .chs module may not depend on some CPP condition.-extractDeps :: ModDep -> IO ModDep-extractDeps md@ModDep { mdLocation = Nothing } = return md-extractDeps md@ModDep { mdLocation = Just f } = withUTF8FileContents f $ \con -> do-  let findImports acc (('{':'#':xs):xxs) = case (dropWhile (' ' ==) xs) of-        ('i':'m':'p':'o':'r':'t':' ':ys) ->-          case simpleParse (takeWhile ('#' /=) ys) of-            Just m -> findImports (m:acc) xxs-            Nothing -> die ("cannot parse chs import in "++f++":\n"++-                            "offending line is {#"++xs)-         -- no more imports after the first non-import hook-        _ -> return acc-      findImports acc (_:xxs) = findImports acc xxs-      findImports acc [] = return acc-  mods <- findImports [] (lines con)-  return md { mdRequires = mods }---- Find a total order of the set of modules that are partially sorted by their--- dependencies on each other. The function returns the sorted list of modules--- together with a list of modules that are required but not supplied by this--- in the input set of modules.-sortTopological :: [ModDep] -> [ModDep]-sortTopological ms = reverse $ fst $ foldl visit ([], S.empty) (map mdOriginal ms)-  where-  set = M.fromList (map (\m -> (mdOriginal m, m)) ms)-  visit (out,visited) m-    | m `S.member` visited = (out,visited)-    | otherwise = case m `M.lookup` set of-        Nothing -> (out, m `S.insert` visited)-        Just md -> (md:out', visited')-          where-            (out',visited') = foldl visit (out, m `S.insert` visited) (mdRequires md)---- Check user whether install gtk2hs-buildtools correctly.-checkGtk2hsBuildtools :: [Program] -> IO ()-checkGtk2hsBuildtools programs = do-  programInfos <- mapM (\ prog -> do-                         location <- onDefaultSearchPath programFindLocation prog normal-                         return (programName prog, location)-                      ) programs-  let printError name = do-        putStrLn $ "Cannot find " ++ name ++ "\n"-                 ++ "Please install `gtk2hs-buildtools` first and check that the install directory is in your PATH (e.g. HOME/.cabal/bin)."-        exitFailure-  forM_ programInfos $ \ (name, location) ->-    when (isNothing location) (printError name)
Setup.hs view
@@ -1,10 +1,8 @@--- Standard setup file for a Gtk2Hs module.+-- Adjustments specific to this package,+-- all Gtk2Hs-specific boilerplate is kept in+-- gtk2hs-buildtools:Gtk2HsSetup ----- See also:---  * SetupMain.hs    : the real Setup script for this package---  * Gtk2HsSetup.hs  : Gtk2Hs-specific boilerplate---  * SetupWrapper.hs : wrapper for compat with various ghc/cabal versions--import SetupWrapper ( setupWrapper )+import Gtk2HsSetup ( gtk2hsUserHooks )+import Distribution.Simple ( defaultMainWithHooks ) -main = setupWrapper "SetupMain.hs"+main = defaultMainWithHooks gtk2hsUserHooks
− SetupMain.hs 
@@ -1,13 +0,0 @@--- The real Setup file for a Gtk2Hs package (invoked via the SetupWrapper).--- It contains only adjustments specific to this package,--- all Gtk2Hs-specific boilerplate is kept in Gtk2HsSetup.hs--- which should be kept identical across all packages.----import Gtk2HsSetup ( gtk2hsUserHooks, checkGtk2hsBuildtools,-                     typeGenProgram, signalGenProgram, c2hsLocal)-import Distribution.Simple ( defaultMainWithHooks )--main = do-  checkGtk2hsBuildtools [typeGenProgram, signalGenProgram, c2hsLocal]-  defaultMainWithHooks gtk2hsUserHooks-
− SetupWrapper.hs 
@@ -1,164 +0,0 @@--- A wrapper script for Cabal Setup.hs scripts. Allows compiling the real Setup--- conditionally depending on the Cabal version.--module SetupWrapper (setupWrapper) where--import Distribution.Package-import Distribution.Compiler-import Distribution.Simple.Utils-import Distribution.Simple.Program-import Distribution.Simple.Compiler-import Distribution.Simple.BuildPaths (exeExtension)-import Distribution.Simple.Configure (configCompilerEx)-import Distribution.Simple.GHC (getInstalledPackages)-import qualified Distribution.Simple.PackageIndex as PackageIndex-import Distribution.Version-import Distribution.Verbosity-import Distribution.Text--import System.Environment-import System.Process-import System.Exit (ExitCode(..), exitWith)-import System.FilePath-import System.Directory-import qualified Control.Exception as Exception-import System.IO.Error (isDoesNotExistError)--import Data.List-import Data.Char-import Control.Monad----- moreRecentFile is implemented in Distribution.Simple.Utils, but only in--- Cabal >= 1.18. For backwards-compatibility, we implement a copy with a new--- name here. Some desirable alternate strategies don't work:--- * We can't use CPP to check which version of Cabal we're up against because---   this is the file that's generating the macros for doing that.--- * We can't use the name moreRecentFiles and use---   import D.S.U hiding (moreRecentFiles)---   because on old GHC's (and according to the Report) hiding a name that---   doesn't exist is an error.-moreRecentFile' :: FilePath -> FilePath -> IO Bool-moreRecentFile' a b = do-  exists <- doesFileExist b-  if not exists-    then return True-    else do tb <- getModificationTime b-            ta <- getModificationTime a-            return (ta > tb)--setupWrapper :: FilePath -> IO ()-setupWrapper setupHsFile = do-  args <- getArgs-  createDirectoryIfMissingVerbose verbosity True setupDir-  compileSetupExecutable-  invokeSetupScript args--  where-    setupDir         = "dist/setup-wrapper"-    setupVersionFile = setupDir </> "setup" <.> "version"-    setupProgFile    = setupDir </> "setup" <.> exeExtension-    setupMacroFile   = setupDir </> "wrapper-macros.h"--    useCabalVersion  = Version [1,8] []-    usePackageDB     = [GlobalPackageDB, UserPackageDB]-    verbosity        = normal--    cabalLibVersionToUse comp conf = do-      savedVersion <- savedCabalVersion-      case savedVersion of-        Just version-          -> return version-        _ -> do version <- installedCabalVersion comp conf-                writeFile setupVersionFile (show version ++ "\n")-                return version--    savedCabalVersion = do-      versionString <- readFile setupVersionFile-                         `Exception.catch` \e -> if isDoesNotExistError e-                                                   then return ""-                                                   else Exception.throwIO e-      case reads versionString of-        [(version,s)] | all isSpace s -> return (Just version)-        _                             -> return Nothing--    installedCabalVersion comp conf = do-      index <- getInstalledPackages verbosity usePackageDB conf--      let cabalDep = Dependency (PackageName "Cabal")-                                (orLaterVersion useCabalVersion)-      case PackageIndex.lookupDependency index cabalDep of-        []   -> die $ "The package requires Cabal library version "-                   ++ display useCabalVersion-                   ++ " but no suitable version is installed."-        pkgs -> return $ bestVersion (map fst pkgs)-      where-        bestVersion          = maximumBy (comparing preference)-        preference version   = (sameVersion, sameMajorVersion-                               ,stableVersion, latestVersion)-          where-            sameVersion      = version == cabalVersion-            sameMajorVersion = majorVersion version == majorVersion cabalVersion-            majorVersion     = take 2 . versionBranch-            stableVersion    = case versionBranch version of-                                 (_:x:_) -> even x-                                 _       -> False-            latestVersion    = version--    -- | If the Setup.hs is out of date wrt the executable then recompile it.-    -- Currently this is GHC only. It should really be generalised.-    ---    compileSetupExecutable = do-      setupHsNewer      <- setupHsFile      `moreRecentFile'` setupProgFile-      cabalVersionNewer <- setupVersionFile `moreRecentFile'` setupProgFile-      let outOfDate = setupHsNewer || cabalVersionNewer-      when outOfDate $ do-        debug verbosity "Setup script is out of date, compiling..."--        (comp, _, conf) <- configCompilerEx (Just GHC) Nothing Nothing-                             defaultProgramConfiguration verbosity-        cabalLibVersion <- cabalLibVersionToUse comp conf-        let cabalPkgid = PackageIdentifier (PackageName "Cabal") cabalLibVersion-        debug verbosity $ "Using Cabal library version " ++ display cabalLibVersion--        writeFile setupMacroFile (generateVersionMacro cabalLibVersion)--        rawSystemProgramConf verbosity ghcProgram conf $-            ["--make", setupHsFile, "-o", setupProgFile]-         ++ ghcPackageDbOptions usePackageDB-         ++ ["-package", display cabalPkgid-            ,"-cpp", "-optP-include", "-optP" ++ setupMacroFile-            ,"-odir", setupDir, "-hidir", setupDir]-      where--        ghcPackageDbOptions dbstack = case dbstack of-          (GlobalPackageDB:UserPackageDB:dbs) -> concatMap specific dbs-          (GlobalPackageDB:dbs)               -> "-no-user-package-conf"-                                               : concatMap specific dbs-          _                                   -> ierror-          where-            specific (SpecificPackageDB db) = [ "-package-conf", db ]-            specific _ = ierror-            ierror     = error "internal error: unexpected package db stack"--        generateVersionMacro :: Version -> String-        generateVersionMacro version =-          concat-            ["/* DO NOT EDIT: This file is automatically generated by Cabal */\n\n"-            ,"#define CABAL_VERSION_CHECK(major1,major2,minor) (\\\n"-            ,"  (major1) <  ",major1," || \\\n"-            ,"  (major1) == ",major1," && (major2) <  ",major2," || \\\n"-            ,"  (major1) == ",major1," && (major2) == ",major2," && (minor) <= ",minor,")"-            ,"\n\n"-            ]-          where-            (major1:major2:minor:_) = map show (versionBranch version ++ repeat 0)--    invokeSetupScript :: [String] -> IO ()-    invokeSetupScript args = do-      info verbosity $ unwords (setupProgFile : args)-      process <- runProcess (currentDir </> setupProgFile) args-                   Nothing Nothing-                   Nothing Nothing Nothing-      exitCode <- waitForProcess process-      unless (exitCode == ExitSuccess) $ exitWith exitCode
demo/buttonbox/ButtonBox.hs view
@@ -28,8 +28,8 @@                  | button <- [button1, button2, button3] ]    -- This sets button3 to be a so called 'secondary child'. When the layout-  -- stlye is ButtonboxStart or ButtonboxEnd, the secondary children are-  -- grouped seperately from the others. Resize the window to see the effect.+  -- style is ButtonboxStart or ButtonboxEnd, the secondary children are+  -- grouped separately from the others. Resize the window to see the effect.   --   -- This is not interesting in itself but shows how to set child attributes.   -- Note that the child attribute 'buttonBoxChildSecondary' takes the
demo/carsim/CarSim.hs view
@@ -136,7 +136,7 @@      -- If 'resume' is called, 'step' will be called at small     -- timesteps to update car data. If 'pause' is called, 'step'-    -- calls are stoped.  'resume' is called at program startup,+    -- calls are stopped.  'resume' is called at program startup,     -- and then the pause button alternates 'resume' and 'pause'.      let step = do
demo/concurrent/ProgressThreadedRTS.hs view
@@ -17,7 +17,7 @@ main :: IO () main = do -  -- It is marked unsafe becuase it is your obligation to ensure you+  -- It is marked unsafe because it is your obligation to ensure you   -- only call Gtk+ from one OS thread, or 'bad things' will happen.   unsafeInitGUIForThreadedRTS
demo/gtkbuilder/GtkBuilderTest.hs view
@@ -13,7 +13,7 @@         window <- builderGetObject builder castToWindow "window1"         button <- builderGetObject builder castToButton "button1" -        -- Basic user interation+        -- Basic user interaction         on button buttonActivated $ putStrLn "button pressed!"         on window objectDestroy mainQuit
demo/overlay/Overlay.hs view
@@ -20,7 +20,7 @@   set window [ containerChild := overlay ]    vbox <- vBoxNew True 3-  label1 <- labelNew (Just "This is an overlayed label")+  label1 <- labelNew (Just "This is an overlaid label")   button <- buttonNewWithLabel ("another one")   label3 <- labelNew (Just "and a final one")   boxPackStart vbox label1 PackNatural 3@@ -44,8 +44,8 @@                  | button <- [button1, button2, button3] ]    -- This sets button3 to be a so called 'secondary child'. When the layout-  -- stlye is ButtonboxStart or ButtonboxEnd, the secondary children are-  -- grouped seperately from the others. Resize the window to see the effect.+  -- style is ButtonboxStart or ButtonboxEnd, the secondary children are+  -- grouped separately from the others. Resize the window to see the effect.   --   -- This is not interesting in itself but shows how to set child attributes.   -- Note that the child attribute 'buttonBoxChildSecondary' takes the
gtk3.cabal view
@@ -1,26 +1,25 @@+cabal-version:  2.2 Name:           gtk3-Version:        0.13.9-License:        LGPL-2.1+Version:        0.15.10+License:        LGPL-2.1-only License-file:   COPYING Copyright:      (c) 2001-2010 The Gtk2Hs Team Author:         Axel Simon, Duncan Coutts and many others Maintainer:     gtk2hs-users@lists.sourceforge.net Build-Type:     Custom-Cabal-Version:  >= 1.18 Stability:      provisional homepage:       http://projects.haskell.org/gtk2hs/ bug-reports:    https://github.com/gtk2hs/gtk2hs/issues-Synopsis:       Binding to the Gtk+ graphical user interface library.+Synopsis:       Binding to the Gtk+ 3 graphical user interface library Description: This is the core library of the Gtk2Hs suite of libraries for Haskell              based on Gtk+. Gtk+ is an extensive and mature multi-platform toolkit              for creating graphical user interfaces. Category:       Graphics-Tested-With:    GHC == 7.0.4, GHC == 7.2.2, GHC == 7.4.1+Tested-With:    GHC == 9.12.2, GHC == 9.10.1, GHC == 9.8.4, GHC == 9.6.6, GHC == 9.4.8, GHC == 9.2.8, GHC==9.0.2, GHC==8.10.7 Extra-Source-Files: hsgtk.h                     Graphics/UI/Gtk/ModelView/Gtk2HsStore.h                     Graphics/UI/Gtk/General/hsgthread.h                     template-hsc-gtk2hs.h-                    SetupWrapper.hs SetupMain.hs Gtk2HsSetup.hs                     marshal.list                     hierarchy3.list @@ -124,15 +123,23 @@  Flag fmode-binary   Description: Set the default file translation mode for file I/O operations to _O_BINARY.-               Some GTK libraries open image files without specifing binary mode.+               Some GTK libraries open image files without specifying binary mode.                If you have trouble loading gtk in ghci, then it may help to turn this                option off.   Default: True +custom-setup+  setup-depends: base >= 4.6 && < 5,+                 Cabal >= 3.0 && < 3.15,+                 gtk2hs-buildtools >= 0.13.2.0 && < 0.14+ Library         build-depends:  base >= 4 && < 5,-                        array, containers, mtl, bytestring,-                        text >= 0.11.0.6 && < 1.3,+                        array < 0.6,+                        bytestring < 0.13,+                        containers < 0.8,+                        mtl < 2.4,+                        text >= 0.11.0.6 && < 2.2,                         glib  >= 0.13.0.0 && < 0.14,                         pango >= 0.13.0.0 && < 0.14,                         cairo >= 0.13.0.0 && < 0.14@@ -140,9 +147,6 @@           build-depends: gio >= 0.13.0 && < 0.14           cpp-options:    -DHAVE_GIO -        build-tools:    gtk2hsC2hs >= 0.13.13,-                        gtk2hsHookGenerator, gtk2hsTypeGen-         exposed-modules:           Graphics.UI.Gtk           Graphics.UI.GtkInternals@@ -202,6 +206,7 @@           Graphics.UI.Gtk.Gdk.EventM           Graphics.UI.Gtk.Gdk.Events           Graphics.UI.Gtk.Gdk.Gdk+          Graphics.UI.Gtk.Gdk.GLContext           Graphics.UI.Gtk.Gdk.Keys           Graphics.UI.Gtk.Gdk.Pixbuf           Graphics.UI.Gtk.Gdk.PixbufAnimation@@ -223,6 +228,7 @@           Graphics.UI.Gtk.Layout.AspectFrame           Graphics.UI.Gtk.Layout.Expander           Graphics.UI.Gtk.Layout.Fixed+          Graphics.UI.Gtk.Layout.Grid           Graphics.UI.Gtk.Layout.HBox           Graphics.UI.Gtk.Layout.HButtonBox           Graphics.UI.Gtk.Layout.HPaned@@ -233,6 +239,8 @@           Graphics.UI.Gtk.Layout.VBox           Graphics.UI.Gtk.Layout.VButtonBox           Graphics.UI.Gtk.Layout.VPaned+          Graphics.UI.Gtk.Layout.Stack+          Graphics.UI.Gtk.Layout.StackSwitcher           Graphics.UI.Gtk.MenuComboToolbar.CheckMenuItem           Graphics.UI.Gtk.MenuComboToolbar.ComboBox           Graphics.UI.Gtk.MenuComboToolbar.ImageMenuItem@@ -257,11 +265,13 @@           Graphics.UI.Gtk.Misc.Arrow           Graphics.UI.Gtk.Misc.Calendar           Graphics.UI.Gtk.Misc.DrawingArea+          Graphics.UI.Gtk.Misc.GLArea           Graphics.UI.Gtk.Misc.EventBox           Graphics.UI.Gtk.Misc.HandleBox           Graphics.UI.Gtk.Misc.IMMulticontext           Graphics.UI.Gtk.Misc.IMContextSimple           Graphics.UI.Gtk.Misc.SizeGroup+          Graphics.UI.Gtk.Misc.Switch           Graphics.UI.Gtk.Misc.Tooltip           Graphics.UI.Gtk.Misc.Viewport           Graphics.UI.Gtk.ModelView@@ -334,6 +344,7 @@           Graphics.UI.Gtk.Windows.OffscreenWindow           Graphics.UI.Gtk.Windows.WindowGroup           Graphics.UI.Gtk.General.Enums+          Graphics.UI.Gtk.Types         other-modules:           Graphics.UI.Gtk.Gdk.Enums           Graphics.UI.Gtk.Gdk.PixbufData@@ -344,8 +355,10 @@           Graphics.UI.Gtk.Abstract.ContainerChildProperties           Graphics.UI.Gtk.General.DNDTypes           Graphics.UI.Gtk.General.Threading-          Graphics.UI.Gtk.Types           Graphics.UI.Gtk.Signals+        autogen-modules:+          Graphics.UI.Gtk.Signals+          Graphics.UI.Gtk.Types          default-language:   Haskell98         default-extensions: ForeignFunctionInterface@@ -365,12 +378,17 @@         -- needs to be imported from this module:         x-Signals-Import: Graphics.UI.Gtk.General.Threading         include-dirs:   .-        cpp-options: -DDISABLE_DEPRECATED -U__BLOCKS__ -D__attribute__(A)=+        cpp-options: -DDISABLE_DEPRECATED -U__BLOCKS__ -DGLIB_DISABLE_DEPRECATION_WARNINGS+        if os(darwin) || os(freebsd)+          cpp-options: -D_Nullable= -D_Nonnull= -D_Noreturn= -D__attribute__(x)=         if os(windows)-          cpp-options:    -DWIN32 -fno-exceptions+          cpp-options:    -DWIN32           cc-options:     -fno-exceptions           extra-libraries: kernel32 +        if os(windows)+          cpp-options: -D__USE_MINGW_ANSI_STDIO=1+         x-c2hs-Header:  hsgtk.h         x-Types-Hierarchy:  hierarchy3.list @@ -387,7 +405,7 @@     main-is: ActionMenu.hs     if !flag(build-demos)       buildable: False-    build-depends: gtk3==0.13.9, base, transformers, text+    build-depends: gtk3, base, transformers, text  Executable gtk2hs-demo-buttonBox     default-language: Haskell98@@ -395,7 +413,7 @@     main-is: ButtonBox.hs     if !flag(build-demos)       buildable: False-    build-depends: gtk3==0.13.9, base, transformers+    build-depends: gtk3, base, transformers  Executable gtk2hs-demo-carsim     default-language: Haskell98@@ -403,7 +421,7 @@     main-is: CarSim.hs     if !flag(build-demos)       buildable: False-    build-depends: gtk3==0.13.9, base, transformers, time, cairo+    build-depends: gtk3, base, transformers, time, cairo  Executable gtk2hs-demo-progress     default-language: Haskell98@@ -411,7 +429,7 @@     main-is: Progress.hs     if !flag(build-demos)       buildable: False-    build-depends: gtk3==0.13.9, base, transformers+    build-depends: gtk3, base, transformers  Executable gtk2hs-demo-progressThreadedRTS     default-language: Haskell98@@ -419,7 +437,7 @@     main-is: ProgressThreadedRTS.hs     if !flag(build-demos)       buildable: False-    build-depends: gtk3==0.13.9, base, transformers+    build-depends: gtk3, base, transformers     ghc-options: -threaded  Executable gtk2hs-demo-fastDraw@@ -428,7 +446,7 @@     main-is: FastDraw.hs     if !flag(build-demos)       buildable: False-    build-depends: gtk3==0.13.9, base, transformers, array, cairo+    build-depends: gtk3, base, transformers, array, cairo  Executable gtk2hs-demo-fonts     default-language: Haskell98@@ -436,7 +454,7 @@     main-is: Fonts.hs     if !flag(build-demos)       buildable: False-    build-depends: gtk3==0.13.9, base+    build-depends: gtk3, base  Executable gtk2hs-demo-builder     default-language: Haskell98@@ -444,7 +462,7 @@     main-is: GtkBuilderTest.hs     if !flag(build-demos)       buildable: False-    build-depends: gtk3==0.13.9, base, transformers+    build-depends: gtk3, base, transformers  Executable gtk2hs-demo-helloworld     default-language: Haskell98@@ -452,7 +470,7 @@     main-is: World.hs     if !flag(build-demos)       buildable: False-    build-depends: gtk3==0.13.9, base, transformers+    build-depends: gtk3, base, transformers  Executable gtk2hs-demo-layout     default-language: Haskell98@@ -460,7 +478,7 @@     main-is: Layout.hs     if !flag(build-demos)       buildable: False-    build-depends: gtk3==0.13.9, base, transformers, cairo, text+    build-depends: gtk3, base, transformers, cairo, text  Executable gtk2hs-demo-menudemo     default-language: Haskell98@@ -468,7 +486,7 @@     main-is: MenuDemo.hs     if !flag(build-demos)       buildable: False-    build-depends: gtk3==0.13.9, base, transformers, text+    build-depends: gtk3, base, transformers, text  Executable gtk2hs-demo-combodemo     default-language: Haskell98@@ -476,7 +494,7 @@     main-is: ComboDemo.hs     if !flag(build-demos)       buildable: False-    build-depends: gtk3==0.13.9, text, base, transformers+    build-depends: gtk3, text, base, transformers  Executable gtk2hs-demo-notebook     default-language: Haskell98@@ -484,7 +502,7 @@     main-is: Notebook.hs     if !flag(build-demos)       buildable: False-    build-depends: gtk3==0.13.9, base, transformers, text+    build-depends: gtk3, base, transformers, text  Executable gtk2hs-demo-statusIcon     default-language: Haskell98@@ -492,7 +510,7 @@     main-is: StatusIcon.hs     if !flag(build-demos)       buildable: False-    build-depends: gtk3==0.13.9, base, transformers+    build-depends: gtk3, base, transformers  Executable gtk2hs-demo-arabic     default-language: Haskell98@@ -500,7 +518,7 @@     main-is: Arabic.hs     if !flag(build-demos)       buildable: False-    build-depends: gtk3==0.13.9, base, transformers, text+    build-depends: gtk3, base, transformers, text  Executable gtk2hs-demo-overlay     default-language: Haskell98@@ -508,4 +526,4 @@     main-is: Overlay.hs     if !flag(build-demos)       buildable: False-    build-depends: gtk3==0.13.9, base, transformers+    build-depends: gtk3, base, transformers
hierarchy3.list view
@@ -10,7 +10,7 @@ # function is not specified, the <name> is converted to # gtk_<name'>_get_type where <name'> is <name> where each upperscore # letter is converted to an underscore and lowerletter. The underscore-# is omitted if an upperscore letter preceeded: GtkHButtonBox ->+# is omitted if an upperscore letter preceded: GtkHButtonBox -> # gtk_hbutton_box_get_type. The generation of a type can be # conditional by appending 'if <tag>'. Such types are only produces if # --tag=<tag> is given on the command line of TypeGenerator.@@ -37,6 +37,7 @@         GdkWindow as DrawWindow, gdk_window_get_type         GdkGLPixmap		if gtkglext         GdkGLWindow		if gtkglext+        GdkGLContext    if gtk-3.16 	GdkScreen		 	GdkDisplay		 	GdkVisual@@ -69,9 +70,11 @@                         GtkAccelLabel                     GtkArrow                     GtkImage+                GtkSwitch                 GtkContainer 				    GtkToolPalette		 				    GtkToolItemGroup	+                    GtkStack                            if gtk-3.10                     WebKitWebView as WebView, webkit_web_view_get_type            if webkit                     GtkBin                         GtkAlignment@@ -116,6 +119,7 @@ 			    GtkSeparatorToolItem	 			GtkMozEmbed		if mozembed 			VteTerminal as Terminal if vte+                        GtkStackSwitcher        if gtk-3.10                     GtkBox                         GtkButtonBox                             GtkHButtonBox@@ -129,6 +133,7 @@ 						    GtkInfoBar                             GtkFileChooserButton	                             GtkStatusbar+                    GtkGrid                     GtkFixed                     GtkPaned                         GtkHPaned@@ -148,6 +153,7 @@                     GtkTreeView                 GtkCalendar                 GtkCellView		+		GtkGLArea if gtk-3.16 		GtkDrawingArea 				GtkSpinner		                 GtkEntry@@ -222,7 +228,7 @@         GtkSourceLanguageManager	if gtksourceview2 	GladeXML			as GladeXML, glade_xml_get_type if libglade 	GConfClient			as GConf if gconf-# These ones are actualy interfaces, but interface implementations are GObjects+# These ones are actually interfaces, but interface implementations are GObjects 	GtkCellEditable 	GtkEditable 	GtkSourceStyle			as SourceStyleObject if gtksourceview2
hsgtk.h view
@@ -1,5 +1,5 @@ #include <gtk/gtk.h>-/* these are necessary on Win32 to circumvent the strcuture size check */+/* these are necessary on Win32 to circumvent the structure size check */ #undef gtk_init_check #undef gtk_init