diff --git a/Graphics/UI/Gtk/Abstract/Box.chs b/Graphics/UI/Gtk/Abstract/Box.chs
--- a/Graphics/UI/Gtk/Abstract/Box.chs
+++ b/Graphics/UI/Gtk/Abstract/Box.chs
@@ -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
@@ -195,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.
@@ -343,7 +343,7 @@
   where (expand, fill) = fromPacking packing
 
 #if GTK_CHECK_VERSION(3,10,0)
--- | Gets the value set by `boxSetBaselinePostion`
+-- | Gets the value set by `boxSetBaselinePosition`
 boxGetBaselinePosition :: BoxClass self => self
  -> IO BaselinePosition
 boxGetBaselinePosition self =
diff --git a/Graphics/UI/Gtk/Abstract/ButtonBox.chs b/Graphics/UI/Gtk/Abstract/ButtonBox.chs
--- a/Graphics/UI/Gtk/Abstract/ButtonBox.chs
+++ b/Graphics/UI/Gtk/Abstract/ButtonBox.chs
@@ -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
diff --git a/Graphics/UI/Gtk/Abstract/Container.chs b/Graphics/UI/Gtk/Abstract/Container.chs
--- a/Graphics/UI/Gtk/Abstract/Container.chs
+++ b/Graphics/UI/Gtk/Abstract/Container.chs
@@ -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)
 --
diff --git a/Graphics/UI/Gtk/Abstract/Object.chs b/Graphics/UI/Gtk/Abstract/Object.chs
--- a/Graphics/UI/Gtk/Abstract/Object.chs
+++ b/Graphics/UI/Gtk/Abstract/Object.chs
@@ -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 =>
diff --git a/Graphics/UI/Gtk/Abstract/Paned.chs b/Graphics/UI/Gtk/Abstract/Paned.chs
--- a/Graphics/UI/Gtk/Abstract/Paned.chs
+++ b/Graphics/UI/Gtk/Abstract/Paned.chs
@@ -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
diff --git a/Graphics/UI/Gtk/Abstract/Range.chs b/Graphics/UI/Gtk/Abstract/Range.chs
--- a/Graphics/UI/Gtk/Abstract/Range.chs
+++ b/Graphics/UI/Gtk/Abstract/Range.chs
@@ -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
diff --git a/Graphics/UI/Gtk/Abstract/Widget.chs b/Graphics/UI/Gtk/Abstract/Widget.chs
--- a/Graphics/UI/Gtk/Abstract/Widget.chs
+++ b/Graphics/UI/Gtk/Abstract/Widget.chs
@@ -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.
 
@@ -685,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
@@ -823,7 +823,7 @@
   peek reqPtr
 
 -- | This function is only for use in widget implementations. Obtains the
--- chached requisition information in the widget, unless someone has forced a
+-- 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.
 --
@@ -1096,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
 
@@ -1396,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
@@ -1516,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
@@ -1709,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.
@@ -2336,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
@@ -2375,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 $
@@ -2392,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.
 --
diff --git a/Graphics/UI/Gtk/ActionMenuToolbar/ActionGroup.chs b/Graphics/UI/Gtk/ActionMenuToolbar/ActionGroup.chs
--- a/Graphics/UI/Gtk/ActionMenuToolbar/ActionGroup.chs
+++ b/Graphics/UI/Gtk/ActionMenuToolbar/ActionGroup.chs
@@ -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.
diff --git a/Graphics/UI/Gtk/ActionMenuToolbar/RadioAction.chs b/Graphics/UI/Gtk/ActionMenuToolbar/RadioAction.chs
--- a/Graphics/UI/Gtk/ActionMenuToolbar/RadioAction.chs
+++ b/Graphics/UI/Gtk/ActionMenuToolbar/RadioAction.chs
@@ -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
diff --git a/Graphics/UI/Gtk/ActionMenuToolbar/UIManager.chs b/Graphics/UI/Gtk/ActionMenuToolbar/UIManager.chs
--- a/Graphics/UI/Gtk/ActionMenuToolbar/UIManager.chs
+++ b/Graphics/UI/Gtk/ActionMenuToolbar/UIManager.chs
@@ -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
diff --git a/Graphics/UI/Gtk/Buttons/Button.chs b/Graphics/UI/Gtk/Buttons/Button.chs
--- a/Graphics/UI/Gtk/Buttons/Button.chs
+++ b/Graphics/UI/Gtk/Buttons/Button.chs
@@ -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'.
 --
diff --git a/Graphics/UI/Gtk/Buttons/RadioButton.chs b/Graphics/UI/Gtk/Buttons/RadioButton.chs
--- a/Graphics/UI/Gtk/Buttons/RadioButton.chs
+++ b/Graphics/UI/Gtk/Buttons/RadioButton.chs
@@ -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
diff --git a/Graphics/UI/Gtk/Display/Label.chs b/Graphics/UI/Gtk/Display/Label.chs
--- a/Graphics/UI/Gtk/Display/Label.chs
+++ b/Graphics/UI/Gtk/Display/Label.chs
@@ -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
diff --git a/Graphics/UI/Gtk/Display/ProgressBar.chs b/Graphics/UI/Gtk/Display/ProgressBar.chs
--- a/Graphics/UI/Gtk/Display/ProgressBar.chs
+++ b/Graphics/UI/Gtk/Display/ProgressBar.chs
@@ -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
diff --git a/Graphics/UI/Gtk/Embedding/Plug.chs b/Graphics/UI/Gtk/Embedding/Plug.chs
--- a/Graphics/UI/Gtk/Embedding/Plug.chs
+++ b/Graphics/UI/Gtk/Embedding/Plug.chs
@@ -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.
 --
diff --git a/Graphics/UI/Gtk/Entry/Editable.chs b/Graphics/UI/Gtk/Entry/Editable.chs
--- a/Graphics/UI/Gtk/Entry/Editable.chs
+++ b/Graphics/UI/Gtk/Entry/Editable.chs
@@ -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 ())
diff --git a/Graphics/UI/Gtk/Entry/Entry.chs b/Graphics/UI/Gtk/Entry/Entry.chs
--- a/Graphics/UI/Gtk/Entry/Entry.chs
+++ b/Graphics/UI/Gtk/Entry/Entry.chs
@@ -799,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
diff --git a/Graphics/UI/Gtk/Gdk/Cursor.chs b/Graphics/UI/Gtk/Gdk/Cursor.chs
--- a/Graphics/UI/Gtk/Gdk/Cursor.chs
+++ b/Graphics/UI/Gtk/Gdk/Cursor.chs
@@ -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
diff --git a/Graphics/UI/Gtk/Gdk/Display.chs b/Graphics/UI/Gtk/Gdk/Display.chs
--- a/Graphics/UI/Gtk/Gdk/Display.chs
+++ b/Graphics/UI/Gtk/Gdk/Display.chs
@@ -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 #}
diff --git a/Graphics/UI/Gtk/Gdk/DrawWindow.chs b/Graphics/UI/Gtk/Gdk/DrawWindow.chs
--- a/Graphics/UI/Gtk/Gdk/DrawWindow.chs
+++ b/Graphics/UI/Gtk/Gdk/DrawWindow.chs
@@ -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.
 --
diff --git a/Graphics/UI/Gtk/Gdk/Drawable.chs b/Graphics/UI/Gtk/Gdk/Drawable.chs
--- a/Graphics/UI/Gtk/Gdk/Drawable.chs
+++ b/Graphics/UI/Gtk/Gdk/Drawable.chs
@@ -271,7 +271,7 @@
 
 -- | Draw a segment of text.
 --
--- * This function draws a segment of text. These segements are the result
+-- * This function draws a segment of text. These segments are the result
 --   of itemizing a string into segments with the same characteristics
 --   (font, text direction, etc.) using
 --   'Graphics.Rendering.Pango.Rendering.itemize'. Each item is then turned
diff --git a/Graphics/UI/Gtk/Gdk/Enums.chs b/Graphics/UI/Gtk/Gdk/Enums.chs
--- a/Graphics/UI/Gtk/Gdk/Enums.chs
+++ b/Graphics/UI/Gtk/Gdk/Enums.chs
@@ -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'
diff --git a/Graphics/UI/Gtk/Gdk/EventM.hsc b/Graphics/UI/Gtk/Gdk/EventM.hsc
--- a/Graphics/UI/Gtk/Gdk/EventM.hsc
+++ b/Graphics/UI/Gtk/Gdk/EventM.hsc
@@ -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'.
 --
@@ -180,7 +180,7 @@
   eventGrabWindow,
 #endif
 
--- * Auxilliary Definitions
+-- * Auxiliary Definitions
   Modifier(..),         -- a mask of control keys
   TimeStamp,
   currentTime,
diff --git a/Graphics/UI/Gtk/Gdk/Events.hsc b/Graphics/UI/Gtk/Gdk/Events.hsc
--- a/Graphics/UI/Gtk/Gdk/Events.hsc
+++ b/Graphics/UI/Gtk/Gdk/Events.hsc
@@ -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
diff --git a/Graphics/UI/Gtk/Gdk/GC.chs b/Graphics/UI/Gtk/Gdk/GC.chs
--- a/Graphics/UI/Gtk/Gdk/GC.chs
+++ b/Graphics/UI/Gtk/Gdk/GC.chs
@@ -163,7 +163,7 @@
 --
 -- *  Every tuple in the list contains an even and an odd segment. Even
 --    segments are drawn normally, whereby the 'lineStyle'
---    member of the graphics context defines if odd segements are drawn
+--    member of the graphics context defines if odd segments are drawn
 --    or not. A @phase@ argument greater than 0 will drop
 --    @phase@ pixels before starting to draw.
 --
diff --git a/Graphics/UI/Gtk/Gdk/Gdk.chs b/Graphics/UI/Gtk/Gdk/Gdk.chs
--- a/Graphics/UI/Gtk/Gdk/Gdk.chs
+++ b/Graphics/UI/Gtk/Gdk/Gdk.chs
@@ -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.
diff --git a/Graphics/UI/Gtk/Gdk/Keymap.chs b/Graphics/UI/Gtk/Gdk/Keymap.chs
--- a/Graphics/UI/Gtk/Gdk/Keymap.chs
+++ b/Graphics/UI/Gtk/Gdk/Keymap.chs
@@ -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
 --
diff --git a/Graphics/UI/Gtk/Gdk/Pixbuf.chs b/Graphics/UI/Gtk/Gdk/Pixbuf.chs
--- a/Graphics/UI/Gtk/Gdk/Pixbuf.chs
+++ b/Graphics/UI/Gtk/Gdk/Pixbuf.chs
@@ -196,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.
@@ -245,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.
@@ -507,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
 --
@@ -727,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 ::
diff --git a/Graphics/UI/Gtk/Gdk/Pixmap.chs b/Graphics/UI/Gtk/Gdk/Pixmap.chs
--- a/Graphics/UI/Gtk/Gdk/Pixmap.chs
+++ b/Graphics/UI/Gtk/Gdk/Pixmap.chs
@@ -75,7 +75,7 @@
 -- and @depth@ must not be @Nothing@.
 --
 -- * Note that in Gtk+ 2.0 the @drawable@ can only be a 'DrawWindow', not an
--- arbitary 'Drawable'.
+-- arbitrary 'Drawable'.
 --
 #if GTK_CHECK_VERSION(2,2,0)
 pixmapNew :: DrawableClass drawable
diff --git a/Graphics/UI/Gtk/Gdk/Screen.chs b/Graphics/UI/Gtk/Gdk/Screen.chs
--- a/Graphics/UI/Gtk/Gdk/Screen.chs
+++ b/Graphics/UI/Gtk/Gdk/Screen.chs
@@ -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 #}
diff --git a/Graphics/UI/Gtk/General/Drag.chs b/Graphics/UI/Gtk/General/Drag.chs
--- a/Graphics/UI/Gtk/General/Drag.chs
+++ b/Graphics/UI/Gtk/General/Drag.chs
@@ -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
diff --git a/Graphics/UI/Gtk/General/Enums.chs b/Graphics/UI/Gtk/General/Enums.chs
--- a/Graphics/UI/Gtk/General/Enums.chs
+++ b/Graphics/UI/Gtk/General/Enums.chs
@@ -148,10 +148,10 @@
 
 #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 verical space
+-- 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 availible space.
+-- baseline inside the extra available space.
 --
 {#enum BaselinePosition {underscoreToCase} deriving (Eq,Show)#}
 #endif
@@ -343,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)#}
 
@@ -467,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)#}
 
diff --git a/Graphics/UI/Gtk/General/General.chs b/Graphics/UI/Gtk/General/General.chs
--- a/Graphics/UI/Gtk/General/General.chs
+++ b/Graphics/UI/Gtk/General/General.chs
@@ -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
diff --git a/Graphics/UI/Gtk/General/IconFactory.chs b/Graphics/UI/Gtk/General/IconFactory.chs
--- a/Graphics/UI/Gtk/General/IconFactory.chs
+++ b/Graphics/UI/Gtk/General/IconFactory.chs
@@ -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
diff --git a/Graphics/UI/Gtk/General/IconTheme.chs b/Graphics/UI/Gtk/General/IconTheme.chs
--- a/Graphics/UI/Gtk/General/IconTheme.chs
+++ b/Graphics/UI/Gtk/General/IconTheme.chs
@@ -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.
diff --git a/Graphics/UI/Gtk/General/RcStyle.chs b/Graphics/UI/Gtk/General/RcStyle.chs
--- a/Graphics/UI/Gtk/General/RcStyle.chs
+++ b/Graphics/UI/Gtk/General/RcStyle.chs
@@ -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 =
diff --git a/Graphics/UI/Gtk/General/Selection.chs b/Graphics/UI/Gtk/General/Selection.chs
--- a/Graphics/UI/Gtk/General/Selection.chs
+++ b/Graphics/UI/Gtk/General/Selection.chs
@@ -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.
 --
diff --git a/Graphics/UI/Gtk/General/Structs.hsc b/Graphics/UI/Gtk/General/Structs.hsc
--- a/Graphics/UI/Gtk/General/Structs.hsc
+++ b/Graphics/UI/Gtk/General/Structs.hsc
@@ -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
diff --git a/Graphics/UI/Gtk/General/hsgthread.c b/Graphics/UI/Gtk/General/hsgthread.c
--- a/Graphics/UI/Gtk/General/hsgthread.c
+++ b/Graphics/UI/Gtk/General/hsgthread.c
@@ -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) { 
diff --git a/Graphics/UI/Gtk/Layout/Table.chs b/Graphics/UI/Gtk/Layout/Table.chs
--- a/Graphics/UI/Gtk/Layout/Table.chs
+++ b/Graphics/UI/Gtk/Layout/Table.chs
@@ -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
diff --git a/Graphics/UI/Gtk/MenuComboToolbar/CheckMenuItem.chs b/Graphics/UI/Gtk/MenuComboToolbar/CheckMenuItem.chs
--- a/Graphics/UI/Gtk/MenuComboToolbar/CheckMenuItem.chs
+++ b/Graphics/UI/Gtk/MenuComboToolbar/CheckMenuItem.chs
@@ -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
diff --git a/Graphics/UI/Gtk/MenuComboToolbar/ComboBox.chs b/Graphics/UI/Gtk/MenuComboToolbar/ComboBox.chs
--- a/Graphics/UI/Gtk/MenuComboToolbar/ComboBox.chs
+++ b/Graphics/UI/Gtk/MenuComboToolbar/ComboBox.chs
@@ -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'
diff --git a/Graphics/UI/Gtk/MenuComboToolbar/ComboBoxEntry.chs b/Graphics/UI/Gtk/MenuComboToolbar/ComboBoxEntry.chs
--- a/Graphics/UI/Gtk/MenuComboToolbar/ComboBoxEntry.chs
+++ b/Graphics/UI/Gtk/MenuComboToolbar/ComboBoxEntry.chs
@@ -153,7 +153,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.
 -- In order to respond to new texts that the user enters, it is necessary to
 -- connect to the 'Graphics.UI.Gtk.Entry.Entry.entryActivated' signal of the
@@ -203,7 +203,7 @@
 --
 -- * Returns @Nothing@ if no text is selected or entered.
 --
--- * Availabe in Gtk 2.6 or higher.
+-- * Available in Gtk 2.6 or higher.
 --
 comboBoxEntryGetActiveText :: (ComboBoxEntryClass self, GlibString string) => self
   -> IO (Maybe string)
diff --git a/Graphics/UI/Gtk/MenuComboToolbar/Menu.chs b/Graphics/UI/Gtk/MenuComboToolbar/Menu.chs
--- a/Graphics/UI/Gtk/MenuComboToolbar/Menu.chs
+++ b/Graphics/UI/Gtk/MenuComboToolbar/Menu.chs
@@ -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.
 --
diff --git a/Graphics/UI/Gtk/MenuComboToolbar/MenuItem.chs b/Graphics/UI/Gtk/MenuComboToolbar/MenuItem.chs
--- a/Graphics/UI/Gtk/MenuComboToolbar/MenuItem.chs
+++ b/Graphics/UI/Gtk/MenuComboToolbar/MenuItem.chs
@@ -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.
diff --git a/Graphics/UI/Gtk/MenuComboToolbar/MenuShell.chs b/Graphics/UI/Gtk/MenuComboToolbar/MenuShell.chs
--- a/Graphics/UI/Gtk/MenuComboToolbar/MenuShell.chs
+++ b/Graphics/UI/Gtk/MenuComboToolbar/MenuShell.chs
@@ -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:
 --
diff --git a/Graphics/UI/Gtk/MenuComboToolbar/RadioMenuItem.chs b/Graphics/UI/Gtk/MenuComboToolbar/RadioMenuItem.chs
--- a/Graphics/UI/Gtk/MenuComboToolbar/RadioMenuItem.chs
+++ b/Graphics/UI/Gtk/MenuComboToolbar/RadioMenuItem.chs
@@ -63,7 +63,7 @@
   radioMenuItemNewWithLabelFromWidget,
   radioMenuItemNewWithMnemonicFromWidget,
 
-  -- * Compatibilty aliases
+  -- * Compatibility aliases
   radioMenuItemNewJoinGroup,
   radioMenuItemNewJoinGroupWithLabel,
   radioMenuItemNewJoinGroupWithMnemonic,
diff --git a/Graphics/UI/Gtk/MenuComboToolbar/ToolItemGroup.chs b/Graphics/UI/Gtk/MenuComboToolbar/ToolItemGroup.chs
--- a/Graphics/UI/Gtk/MenuComboToolbar/ToolItemGroup.chs
+++ b/Graphics/UI/Gtk/MenuComboToolbar/ToolItemGroup.chs
@@ -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'
 --
diff --git a/Graphics/UI/Gtk/MenuComboToolbar/Toolbar.chs b/Graphics/UI/Gtk/MenuComboToolbar/Toolbar.chs
--- a/Graphics/UI/Gtk/MenuComboToolbar/Toolbar.chs
+++ b/Graphics/UI/Gtk/MenuComboToolbar/Toolbar.chs
@@ -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
diff --git a/Graphics/UI/Gtk/Misc/Arrow.chs b/Graphics/UI/Gtk/Misc/Arrow.chs
--- a/Graphics/UI/Gtk/Misc/Arrow.chs
+++ b/Graphics/UI/Gtk/Misc/Arrow.chs
@@ -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.
 --
diff --git a/Graphics/UI/Gtk/Misc/HandleBox.chs b/Graphics/UI/Gtk/Misc/HandleBox.chs
--- a/Graphics/UI/Gtk/Misc/HandleBox.chs
+++ b/Graphics/UI/Gtk/Misc/HandleBox.chs
@@ -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.
diff --git a/Graphics/UI/Gtk/Misc/Tooltips.chs b/Graphics/UI/Gtk/Misc/Tooltips.chs
--- a/Graphics/UI/Gtk/Misc/Tooltips.chs
+++ b/Graphics/UI/Gtk/Misc/Tooltips.chs
@@ -95,7 +95,7 @@
 --------------------
 -- Constructors
 
--- | Create a new goup of 'Tooltips'.
+-- | Create a new group of 'Tooltips'.
 --
 tooltipsNew :: IO Tooltips
 tooltipsNew =
diff --git a/Graphics/UI/Gtk/ModelView/CellRenderer.chs b/Graphics/UI/Gtk/ModelView/CellRenderer.chs
--- a/Graphics/UI/Gtk/ModelView/CellRenderer.chs
+++ b/Graphics/UI/Gtk/ModelView/CellRenderer.chs
@@ -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'.
 --
diff --git a/Graphics/UI/Gtk/ModelView/CellRendererText.chs b/Graphics/UI/Gtk/ModelView/CellRendererText.chs
--- a/Graphics/UI/Gtk/ModelView/CellRendererText.chs
+++ b/Graphics/UI/Gtk/ModelView/CellRendererText.chs
@@ -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.
diff --git a/Graphics/UI/Gtk/ModelView/CustomStore.chs b/Graphics/UI/Gtk/ModelView/CustomStore.chs
--- a/Graphics/UI/Gtk/ModelView/CustomStore.chs
+++ b/Graphics/UI/Gtk/ModelView/CustomStore.chs
@@ -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
 
diff --git a/Graphics/UI/Gtk/ModelView/Gtk2HsStore.c b/Graphics/UI/Gtk/ModelView/Gtk2HsStore.c
--- a/Graphics/UI/Gtk/ModelView/Gtk2HsStore.c
+++ b/Graphics/UI/Gtk/ModelView/Gtk2HsStore.c
@@ -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.
  *
diff --git a/Graphics/UI/Gtk/ModelView/IconView.chs b/Graphics/UI/Gtk/ModelView/IconView.chs
--- a/Graphics/UI/Gtk/ModelView/IconView.chs
+++ b/Graphics/UI/Gtk/ModelView/IconView.chs
@@ -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
 --
diff --git a/Graphics/UI/Gtk/ModelView/ListStore.hs b/Graphics/UI/Gtk/ModelView/ListStore.hs
--- a/Graphics/UI/Gtk/ModelView/ListStore.hs
+++ b/Graphics/UI/Gtk/ModelView/ListStore.hs
@@ -4,7 +4,7 @@
 --
 --  Author : Duncan Coutts, Axel Simon
 --
---  Created: 11 Feburary 2006
+--  Created: 11 February 2006
 --
 --  Copyright (C) 2005 Duncan Coutts, Axel Simon
 --
@@ -284,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.
   --
diff --git a/Graphics/UI/Gtk/ModelView/Sequence.hs b/Graphics/UI/Gtk/ModelView/Sequence.hs
--- a/Graphics/UI/Gtk/ModelView/Sequence.hs
+++ b/Graphics/UI/Gtk/ModelView/Sequence.hs
@@ -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)
diff --git a/Graphics/UI/Gtk/ModelView/TreeSelection.chs b/Graphics/UI/Gtk/ModelView/TreeSelection.chs
--- a/Graphics/UI/Gtk/ModelView/TreeSelection.chs
+++ b/Graphics/UI/Gtk/ModelView/TreeSelection.chs
@@ -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
diff --git a/Graphics/UI/Gtk/ModelView/TreeStore.hs b/Graphics/UI/Gtk/ModelView/TreeStore.hs
--- a/Graphics/UI/Gtk/ModelView/TreeStore.hs
+++ b/Graphics/UI/Gtk/ModelView/TreeStore.hs
@@ -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
diff --git a/Graphics/UI/Gtk/ModelView/TreeView.chs b/Graphics/UI/Gtk/ModelView/TreeView.chs
--- a/Graphics/UI/Gtk/ModelView/TreeView.chs
+++ b/Graphics/UI/Gtk/ModelView/TreeView.chs
@@ -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
 --
@@ -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)
diff --git a/Graphics/UI/Gtk/ModelView/TreeViewColumn.chs b/Graphics/UI/Gtk/ModelView/TreeViewColumn.chs
--- a/Graphics/UI/Gtk/ModelView/TreeViewColumn.chs
+++ b/Graphics/UI/Gtk/ModelView/TreeViewColumn.chs
@@ -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
diff --git a/Graphics/UI/Gtk/Multiline/TextIter.chs b/Graphics/UI/Gtk/Multiline/TextIter.chs
--- a/Graphics/UI/Gtk/Multiline/TextIter.chs
+++ b/Graphics/UI/Gtk/Multiline/TextIter.chs
@@ -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 $
diff --git a/Graphics/UI/Gtk/Multiline/TextMark.chs b/Graphics/UI/Gtk/Multiline/TextMark.chs
--- a/Graphics/UI/Gtk/Multiline/TextMark.chs
+++ b/Graphics/UI/Gtk/Multiline/TextMark.chs
@@ -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"
diff --git a/Graphics/UI/Gtk/Multiline/TextTag.chs b/Graphics/UI/Gtk/Multiline/TextTag.chs
--- a/Graphics/UI/Gtk/Multiline/TextTag.chs
+++ b/Graphics/UI/Gtk/Multiline/TextTag.chs
@@ -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
diff --git a/Graphics/UI/Gtk/Multiline/TextView.chs b/Graphics/UI/Gtk/Multiline/TextView.chs
--- a/Graphics/UI/Gtk/Multiline/TextView.chs
+++ b/Graphics/UI/Gtk/Multiline/TextView.chs
@@ -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
diff --git a/Graphics/UI/Gtk/Multiline/Types.chs b/Graphics/UI/Gtk/Multiline/Types.chs
--- a/Graphics/UI/Gtk/Multiline/Types.chs
+++ b/Graphics/UI/Gtk/Multiline/Types.chs
@@ -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
diff --git a/Graphics/UI/Gtk/Ornaments/Frame.chs b/Graphics/UI/Gtk/Ornaments/Frame.chs
--- a/Graphics/UI/Gtk/Ornaments/Frame.chs
+++ b/Graphics/UI/Gtk/Ornaments/Frame.chs
@@ -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."
diff --git a/Graphics/UI/Gtk/Printing/PrintOperation.chs b/Graphics/UI/Gtk/Printing/PrintOperation.chs
--- a/Graphics/UI/Gtk/Printing/PrintOperation.chs
+++ b/Graphics/UI/Gtk/Printing/PrintOperation.chs
@@ -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@ -
diff --git a/Graphics/UI/Gtk/Recent/RecentChooser.chs b/Graphics/UI/Gtk/Recent/RecentChooser.chs
--- a/Graphics/UI/Gtk/Recent/RecentChooser.chs
+++ b/Graphics/UI/Gtk/Recent/RecentChooser.chs
@@ -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.
 --
 --
diff --git a/Graphics/UI/Gtk/Recent/RecentManager.chs b/Graphics/UI/Gtk/Recent/RecentManager.chs
--- a/Graphics/UI/Gtk/Recent/RecentManager.chs
+++ b/Graphics/UI/Gtk/Recent/RecentManager.chs
@@ -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.
 --
 --
diff --git a/Graphics/UI/Gtk/Scrolling/ScrolledWindow.chs b/Graphics/UI/Gtk/Scrolling/ScrolledWindow.chs
--- a/Graphics/UI/Gtk/Scrolling/ScrolledWindow.chs
+++ b/Graphics/UI/Gtk/Scrolling/ScrolledWindow.chs
@@ -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
diff --git a/Graphics/UI/Gtk/Selectors/ColorSelection.chs b/Graphics/UI/Gtk/Selectors/ColorSelection.chs
--- a/Graphics/UI/Gtk/Selectors/ColorSelection.chs
+++ b/Graphics/UI/Gtk/Selectors/ColorSelection.chs
@@ -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 #}
diff --git a/Graphics/UI/Gtk/Selectors/FileChooser.chs b/Graphics/UI/Gtk/Selectors/FileChooser.chs
--- a/Graphics/UI/Gtk/Selectors/FileChooser.chs
+++ b/Graphics/UI/Gtk/Selectors/FileChooser.chs
@@ -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
diff --git a/Graphics/UI/Gtk/Signals.chs b/Graphics/UI/Gtk/Signals.chs
deleted file mode 100644
--- a/Graphics/UI/Gtk/Signals.chs
+++ /dev/null
@@ -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)
-
diff --git a/Graphics/UI/Gtk/Types.chs b/Graphics/UI/Gtk/Types.chs
deleted file mode 100644
--- a/Graphics/UI/Gtk/Types.chs
+++ /dev/null
@@ -1,5337 +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,
-  GLContext(GLContext), GLContextClass,
-  toGLContext, 
-  mkGLContext, unGLContext,
-  castToGLContext, gTypeGLContext,
-  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,
-  Switch(Switch), SwitchClass,
-  toSwitch, 
-  mkSwitch, unSwitch,
-  castToSwitch, gTypeSwitch,
-  Container(Container), ContainerClass,
-  toContainer, 
-  mkContainer, unContainer,
-  castToContainer, gTypeContainer,
-  ToolPalette(ToolPalette), ToolPaletteClass,
-  toToolPalette, 
-  mkToolPalette, unToolPalette,
-  castToToolPalette, gTypeToolPalette,
-  ToolItemGroup(ToolItemGroup), ToolItemGroupClass,
-  toToolItemGroup, 
-  mkToolItemGroup, unToolItemGroup,
-  castToToolItemGroup, gTypeToolItemGroup,
-  Stack(Stack), StackClass,
-  toStack, 
-  mkStack, unStack,
-  castToStack, gTypeStack,
-  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,
-  StackSwitcher(StackSwitcher), StackSwitcherClass,
-  toStackSwitcher, 
-  mkStackSwitcher, unStackSwitcher,
-  castToStackSwitcher, gTypeStackSwitcher,
-  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,
-  Grid(Grid), GridClass,
-  toGrid, 
-  mkGrid, unGrid,
-  castToGrid, gTypeGrid,
-  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,
-  GLArea(GLArea), GLAreaClass,
-  toGLArea, 
-  mkGLArea, unGLArea,
-  castToGLArea, gTypeGLArea,
-  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)
--- 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)
-#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 #}
-
--- ****************************************************************** GLContext
-
-{#pointer *GdkGLContext as GLContext foreign newtype #} deriving (Eq,Ord)
-
-mkGLContext = (GLContext, objectUnrefFromMainloop)
-unGLContext (GLContext o) = o
-
-class GObjectClass o => GLContextClass o
-toGLContext :: GLContextClass o => o -> GLContext
-toGLContext = unsafeCastGObject . toGObject
-
-instance GLContextClass GLContext
-instance GObjectClass GLContext where
-  toGObject = GObject . castForeignPtr . unGLContext
-  unsafeCastGObject = GLContext . castForeignPtr . unGObject
-
-castToGLContext :: GObjectClass obj => obj -> GLContext
-castToGLContext = castTo gTypeGLContext "GLContext"
-
-gTypeGLContext :: GType
-gTypeGLContext =
-  {# call fun unsafe gdk_gl_context_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 #}
-
--- ********************************************************************* Switch
-
-{#pointer *GtkSwitch as Switch foreign newtype #} deriving (Eq,Ord)
-
-mkSwitch = (Switch, objectUnrefFromMainloop)
-unSwitch (Switch o) = o
-
-class WidgetClass o => SwitchClass o
-toSwitch :: SwitchClass o => o -> Switch
-toSwitch = unsafeCastGObject . toGObject
-
-instance SwitchClass Switch
-instance WidgetClass Switch
-instance GObjectClass Switch where
-  toGObject = GObject . castForeignPtr . unSwitch
-  unsafeCastGObject = Switch . castForeignPtr . unGObject
-
-castToSwitch :: GObjectClass obj => obj -> Switch
-castToSwitch = castTo gTypeSwitch "Switch"
-
-gTypeSwitch :: GType
-gTypeSwitch =
-  {# call fun unsafe gtk_switch_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 #}
-
--- ********************************************************************** Stack
-
-{#pointer *GtkStack as Stack foreign newtype #} deriving (Eq,Ord)
-
-mkStack = (Stack, objectUnrefFromMainloop)
-unStack (Stack o) = o
-
-class ContainerClass o => StackClass o
-toStack :: StackClass o => o -> Stack
-toStack = unsafeCastGObject . toGObject
-
-instance StackClass Stack
-instance ContainerClass Stack
-instance WidgetClass Stack
-instance GObjectClass Stack where
-  toGObject = GObject . castForeignPtr . unStack
-  unsafeCastGObject = Stack . castForeignPtr . unGObject
-
-castToStack :: GObjectClass obj => obj -> Stack
-castToStack = castTo gTypeStack "Stack"
-
-gTypeStack :: GType
-gTypeStack =
-  {# call fun unsafe gtk_stack_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 #}
-
--- ************************************************************** StackSwitcher
-
-{#pointer *GtkStackSwitcher as StackSwitcher foreign newtype #} deriving (Eq,Ord)
-
-mkStackSwitcher = (StackSwitcher, objectUnrefFromMainloop)
-unStackSwitcher (StackSwitcher o) = o
-
-class BinClass o => StackSwitcherClass o
-toStackSwitcher :: StackSwitcherClass o => o -> StackSwitcher
-toStackSwitcher = unsafeCastGObject . toGObject
-
-instance StackSwitcherClass StackSwitcher
-instance BinClass StackSwitcher
-instance ContainerClass StackSwitcher
-instance WidgetClass StackSwitcher
-instance GObjectClass StackSwitcher where
-  toGObject = GObject . castForeignPtr . unStackSwitcher
-  unsafeCastGObject = StackSwitcher . castForeignPtr . unGObject
-
-castToStackSwitcher :: GObjectClass obj => obj -> StackSwitcher
-castToStackSwitcher = castTo gTypeStackSwitcher "StackSwitcher"
-
-gTypeStackSwitcher :: GType
-gTypeStackSwitcher =
-  {# call fun unsafe gtk_stack_switcher_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 #}
-
--- *********************************************************************** Grid
-
-{#pointer *GtkGrid as Grid foreign newtype #} deriving (Eq,Ord)
-
-mkGrid = (Grid, objectUnrefFromMainloop)
-unGrid (Grid o) = o
-
-class ContainerClass o => GridClass o
-toGrid :: GridClass o => o -> Grid
-toGrid = unsafeCastGObject . toGObject
-
-instance GridClass Grid
-instance ContainerClass Grid
-instance WidgetClass Grid
-instance GObjectClass Grid where
-  toGObject = GObject . castForeignPtr . unGrid
-  unsafeCastGObject = Grid . castForeignPtr . unGObject
-
-castToGrid :: GObjectClass obj => obj -> Grid
-castToGrid = castTo gTypeGrid "Grid"
-
-gTypeGrid :: GType
-gTypeGrid =
-  {# call fun unsafe gtk_grid_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 #}
-
--- ********************************************************************* GLArea
-
-{#pointer *GtkGLArea as GLArea foreign newtype #} deriving (Eq,Ord)
-
-mkGLArea = (GLArea, objectUnrefFromMainloop)
-unGLArea (GLArea o) = o
-
-class WidgetClass o => GLAreaClass o
-toGLArea :: GLAreaClass o => o -> GLArea
-toGLArea = unsafeCastGObject . toGObject
-
-instance GLAreaClass GLArea
-instance WidgetClass GLArea
-instance GObjectClass GLArea where
-  toGObject = GObject . castForeignPtr . unGLArea
-  unsafeCastGObject = GLArea . castForeignPtr . unGObject
-
-castToGLArea :: GObjectClass obj => obj -> GLArea
-castToGLArea = castTo gTypeGLArea "GLArea"
-
-gTypeGLArea :: GType
-gTypeGLArea =
-  {# call fun unsafe gtk_gl_area_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 #}
-
diff --git a/Graphics/UI/Gtk/Windows/Assistant.chs b/Graphics/UI/Gtk/Windows/Assistant.chs
--- a/Graphics/UI/Gtk/Windows/Assistant.chs
+++ b/Graphics/UI/Gtk/Windows/Assistant.chs
@@ -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
diff --git a/Graphics/UI/Gtk/Windows/Window.chs b/Graphics/UI/Gtk/Windows/Window.chs
--- a/Graphics/UI/Gtk/Windows/Window.chs
+++ b/Graphics/UI/Gtk/Windows/Window.chs
@@ -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@
diff --git a/demo/buttonbox/ButtonBox.hs b/demo/buttonbox/ButtonBox.hs
--- a/demo/buttonbox/ButtonBox.hs
+++ b/demo/buttonbox/ButtonBox.hs
@@ -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
diff --git a/demo/carsim/CarSim.hs b/demo/carsim/CarSim.hs
--- a/demo/carsim/CarSim.hs
+++ b/demo/carsim/CarSim.hs
@@ -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
diff --git a/demo/concurrent/ProgressThreadedRTS.hs b/demo/concurrent/ProgressThreadedRTS.hs
--- a/demo/concurrent/ProgressThreadedRTS.hs
+++ b/demo/concurrent/ProgressThreadedRTS.hs
@@ -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
 
diff --git a/demo/gtkbuilder/GtkBuilderTest.hs b/demo/gtkbuilder/GtkBuilderTest.hs
--- a/demo/gtkbuilder/GtkBuilderTest.hs
+++ b/demo/gtkbuilder/GtkBuilderTest.hs
@@ -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
 
diff --git a/gtk.cabal b/gtk.cabal
--- a/gtk.cabal
+++ b/gtk.cabal
@@ -1,6 +1,6 @@
-cabal-version:  3.0
+cabal-version:  2.2
 Name:           gtk
-Version:        0.15.8
+Version:        0.15.9
 License:        LGPL-2.1-only
 License-file:   COPYING
 Copyright:      (c) 2001-2010 The Gtk2Hs Team
@@ -15,7 +15,7 @@
              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.10.1, GHC == 9.8.2, GHC == 9.6.6, GHC == 9.4.8, GHC == 9.2.8, GHC==9.0.2, GHC==8.10.7, GHC==8.8.4, GHC==8.6.5, GHC==8.4.4, GHC==8.2.2, GHC==8.0.2
 Extra-Source-Files: hsgtk.h
                     Graphics/UI/Gtk/ModelView/Gtk2HsStore.h
                     Graphics/UI/Gtk/General/hsgthread.h
@@ -128,23 +128,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 >= 2.0 && < 3.11,
+                 Cabal >= 2.2 && < 3.13,
                  gtk2hs-buildtools >= 0.13.2.0 && < 0.14
 
 Library
         build-depends:  base >= 4 && < 5,
                         array < 0.6,
-                        bytestring < 0.12,
-                        containers < 0.7,
+                        bytestring < 0.13,
+                        containers < 0.8,
                         mtl < 2.4,
-                        text >= 0.11.0.6 && < 2.1,
+                        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
@@ -365,6 +365,9 @@
           Graphics.UI.Gtk.General.Threading
           Graphics.UI.Gtk.Types
           Graphics.UI.Gtk.Signals
+        autogen-modules:
+          Graphics.UI.Gtk.Types
+          Graphics.UI.Gtk.Signals
 
         default-language:   Haskell98
         default-extensions: ForeignFunctionInterface
@@ -386,7 +389,7 @@
         include-dirs:   .
         cpp-options: -U__BLOCKS__ -DGLIB_DISABLE_DEPRECATION_WARNINGS
         if os(darwin) || os(freebsd)
-          cpp-options: -D_Nullable= -D_Nonnull= -D__attribute__(x)=
+          cpp-options: -D_Nullable= -D_Nonnull= -D_Noreturn= -D__attribute__(x)=
         if !flag(deprecated)
           cpp-options:  -DDISABLE_DEPRECATED
         else
diff --git a/hierarchy.list b/hierarchy.list
--- a/hierarchy.list
+++ b/hierarchy.list
@@ -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.
@@ -245,7 +245,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
diff --git a/hsgtk.h b/hsgtk.h
--- a/hsgtk.h
+++ b/hsgtk.h
@@ -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