[Gtk2hs-commit] (main branch): begin a split into gtk and gtk3 packages

[Daniel W. <dm...@lu...>]

diffing dir...
Mon May 13 21:58:20 BST 2013  Daniel Wagner <da...@wa...>
  * begin a split into gtk and gtk3 packages
  Ignore-this: bf5d2649d1e4145c194fc97e300b37d7
  
  The whole business of toggling gtk3 support with a flag was dangerous and kind
  of a bad idea:
  * the interfaces for these libraries are significantly different
  * it is not possible to have two versions of a library that differ only in
    build flag installed at the same time
  * there are entire modules that are empty in one or the other version
  
  So, now there are just two packages: gtk will be bindings to gtk2, and gtk3
  will be bindings to gtk3. I've specialized them somewhat in this patch:
  
  1. used unifdef to specialize #if's
  2. wrote a quick haskell-src-exts program to find and eliminate empty modules
  3. specialized to particular values of the flags in the .cabal file
  4. manually did a little cleanup: don't mention Gtk3 in the haddocks for gtk,
     and don't include any deprecated definitions in gtk3
  
  I'm sure there's dozens of places where the documentation isn't right any more,
  but this is a first step, and at the very least they both build.
  
    hunk ./gtk/Graphics/UI/Gtk.chs 293
    -#if GTK_MAJOR_VERSION < 3
    hunk ./gtk/Graphics/UI/Gtk.chs 294
    -#else
    -import Graphics.UI.Gtk.Gdk.Region
    -#endif
    hunk ./gtk/Graphics/UI/Gtk.chs 489
    -#if GTK_MAJOR_VERSION < 3
    hunk ./gtk/Graphics/UI/Gtk.chs 494
    -#endif
    hunk ./gtk/Graphics/UI/Gtk/Abstract/Box.chs 108
    -#if GTK_MAJOR_VERSION < 3
    hunk ./gtk/Graphics/UI/Gtk/Abstract/Box.chs 110
    -#endif
    hunk ./gtk/Graphics/UI/Gtk/Abstract/Box.chs 196
    -#if GTK_MAJOR_VERSION < 3
    hunk ./gtk/Graphics/UI/Gtk/Abstract/Box.chs 198
    ---
    --- Removed in Gtk3
    hunk ./gtk/Graphics/UI/Gtk/Abstract/Box.chs 208
    ---
    --- Removed in Gtk3
    hunk ./gtk/Graphics/UI/Gtk/Abstract/Box.chs 215
    -#endif
    hunk ./gtk/Graphics/UI/Gtk/Abstract/Object.chs 56
    -#if GTK_MAJOR_VERSION < 3
    hunk ./gtk/Graphics/UI/Gtk/Abstract/Object.chs 61
    -#endif
    hunk ./gtk/Graphics/UI/Gtk/Abstract/Object.chs 112
    -#if GTK_MAJOR_VERSION < 3
    hunk ./gtk/Graphics/UI/Gtk/Abstract/Object.chs 113
    -#else
    -makeNewObject :: GObjectClass obj => [_$_]
    -#endif
    hunk ./gtk/Graphics/UI/Gtk/Abstract/Object.chs 134
    -#if GTK_MAJOR_VERSION < 3
    hunk ./gtk/Graphics/UI/Gtk/Abstract/Object.chs 135
    -#else
    -objectWeakref :: GObjectClass o => o -> IO () -> IO GWeakNotify
    -#endif
    hunk ./gtk/Graphics/UI/Gtk/Abstract/Object.chs 147
    -#if GTK_MAJOR_VERSION < 3
    hunk ./gtk/Graphics/UI/Gtk/Abstract/Object.chs 148
    -#else
    -objectWeakunref :: GObjectClass o => o -> GWeakNotify -> IO ()
    -#endif
    hunk ./gtk/Graphics/UI/Gtk/Abstract/Object.chs 159
    -#if GTK_MAJOR_VERSION < 3
    hunk ./gtk/Graphics/UI/Gtk/Abstract/Object.chs 160
    -#else
    -objectDestroy :: WidgetClass self => Signal self (IO ())
    -#endif
    hunk ./gtk/Graphics/UI/Gtk/Abstract/Object.chs 171
    -#if GTK_MAJOR_VERSION < 3
    hunk ./gtk/Graphics/UI/Gtk/Abstract/Object.chs 172
    -#else
    -notifyProperty :: GObjectClass self => ReadWriteAttr self a b -> Signal self (IO ())
    -#endif
    hunk ./gtk/Graphics/UI/Gtk/Abstract/Range.chs 54
    -#if GTK_MAJOR_VERSION < 3
    hunk ./gtk/Graphics/UI/Gtk/Abstract/Range.chs 56
    -#endif
    hunk ./gtk/Graphics/UI/Gtk/Abstract/Range.chs 80
    -#if GTK_MAJOR_VERSION < 3
    hunk ./gtk/Graphics/UI/Gtk/Abstract/Range.chs 81
    -#endif
    hunk ./gtk/Graphics/UI/Gtk/Abstract/Range.chs 124
    -#if GTK_MAJOR_VERSION < 3
    hunk ./gtk/Graphics/UI/Gtk/Abstract/Range.chs 125
    -#endif
    hunk ./gtk/Graphics/UI/Gtk/Abstract/Range.chs 158
    -#if GTK_MAJOR_VERSION < 3
    hunk ./gtk/Graphics/UI/Gtk/Abstract/Range.chs 159
    ---
    --- Removed in Gtk3.
    hunk ./gtk/Graphics/UI/Gtk/Abstract/Range.chs 174
    ---
    --- Removed in Gtk3.
    hunk ./gtk/Graphics/UI/Gtk/Abstract/Range.chs 181
    -#endif
    hunk ./gtk/Graphics/UI/Gtk/Abstract/Range.chs 400
    -#if GTK_MAJOR_VERSION < 3
    hunk ./gtk/Graphics/UI/Gtk/Abstract/Range.chs 403
    --- [_$_]
    --- Removed in Gtk3.
    hunk ./gtk/Graphics/UI/Gtk/Abstract/Range.chs 407
    -#endif
    hunk ./gtk/Graphics/UI/Gtk/Abstract/Widget.chs 66
    -#if GTK_MAJOR_VERSION < 3
    hunk ./gtk/Graphics/UI/Gtk/Abstract/Widget.chs 67
    -#endif
    hunk ./gtk/Graphics/UI/Gtk/Abstract/Widget.chs 69
    -#if GTK_MAJOR_VERSION < 3
    hunk ./gtk/Graphics/UI/Gtk/Abstract/Widget.chs 71
    -#endif
    hunk ./gtk/Graphics/UI/Gtk/Abstract/Widget.chs 87
    -#if GTK_MAJOR_VERSION < 3
    hunk ./gtk/Graphics/UI/Gtk/Abstract/Widget.chs 88
    -#endif
    hunk ./gtk/Graphics/UI/Gtk/Abstract/Widget.chs 114
    -#if GTK_MAJOR_VERSION < 3
    hunk ./gtk/Graphics/UI/Gtk/Abstract/Widget.chs 115
    -#endif
    hunk ./gtk/Graphics/UI/Gtk/Abstract/Widget.chs 120
    -#if GTK_MAJOR_VERSION < 3
    hunk ./gtk/Graphics/UI/Gtk/Abstract/Widget.chs 122
    -#endif
    hunk ./gtk/Graphics/UI/Gtk/Abstract/Widget.chs 124
    -#if GTK_MAJOR_VERSION < 3
    hunk ./gtk/Graphics/UI/Gtk/Abstract/Widget.chs 126
    -#endif
    hunk ./gtk/Graphics/UI/Gtk/Abstract/Widget.chs 131
    -#if GTK_MAJOR_VERSION < 3
    hunk ./gtk/Graphics/UI/Gtk/Abstract/Widget.chs 135
    -#endif
    hunk ./gtk/Graphics/UI/Gtk/Abstract/Widget.chs 140
    -#if GTK_MAJOR_VERSION < 3
    hunk ./gtk/Graphics/UI/Gtk/Abstract/Widget.chs 144
    -#endif
    hunk ./gtk/Graphics/UI/Gtk/Abstract/Widget.chs 149
    -#if GTK_MAJOR_VERSION < 3
    hunk ./gtk/Graphics/UI/Gtk/Abstract/Widget.chs 152
    -#endif
    hunk ./gtk/Graphics/UI/Gtk/Abstract/Widget.chs 171
    -#if GTK_MAJOR_VERSION < 3
    hunk ./gtk/Graphics/UI/Gtk/Abstract/Widget.chs 172
    -#endif
    hunk ./gtk/Graphics/UI/Gtk/Abstract/Widget.chs 176
    -#if GTK_MAJOR_VERSION < 3
    hunk ./gtk/Graphics/UI/Gtk/Abstract/Widget.chs 178
    -#endif
    hunk ./gtk/Graphics/UI/Gtk/Abstract/Widget.chs 200
    -#if GTK_MAJOR_VERSION < 3
    hunk ./gtk/Graphics/UI/Gtk/Abstract/Widget.chs 201
    -#endif
    hunk ./gtk/Graphics/UI/Gtk/Abstract/Widget.chs 210
    -#if GTK_CHECK_VERSION(3,0,0)
    -  widgetGetAllocatedWidth,
    -  widgetGetAllocatedHeight,
    -#endif
    hunk ./gtk/Graphics/UI/Gtk/Abstract/Widget.chs 212
    -#if GTK_MAJOR_VERSION < 3
    hunk ./gtk/Graphics/UI/Gtk/Abstract/Widget.chs 214
    -#endif
    hunk ./gtk/Graphics/UI/Gtk/Abstract/Widget.chs 234
    -#if GTK_MAJOR_VERSION < 3
    hunk ./gtk/Graphics/UI/Gtk/Abstract/Widget.chs 235
    -#endif
    hunk ./gtk/Graphics/UI/Gtk/Abstract/Widget.chs 237
    -#if GTK_MAJOR_VERSION < 3
    hunk ./gtk/Graphics/UI/Gtk/Abstract/Widget.chs 238
    -#endif
    hunk ./gtk/Graphics/UI/Gtk/Abstract/Widget.chs 248
    -#if GTK_MAJOR_VERSION >= 3
    -  widgetGetStyleContext,
    -#endif
    hunk ./gtk/Graphics/UI/Gtk/Abstract/Widget.chs 270
    -#if GTK_CHECK_VERSION(3,0,0)
    -  draw,
    -#endif
    hunk ./gtk/Graphics/UI/Gtk/Abstract/Widget.chs 393
    -#if GTK_MAJOR_VERSION < 3
    hunk ./gtk/Graphics/UI/Gtk/Abstract/Widget.chs 394
    -#endif
    hunk ./gtk/Graphics/UI/Gtk/Abstract/Widget.chs 397
    -#if GTK_MAJOR_VERSION < 3
    hunk ./gtk/Graphics/UI/Gtk/Abstract/Widget.chs 398
    -#endif
    hunk ./gtk/Graphics/UI/Gtk/Abstract/Widget.chs 400
    -#if GTK_MAJOR_VERSION < 3
    hunk ./gtk/Graphics/UI/Gtk/Abstract/Widget.chs 401
    -#endif
    hunk ./gtk/Graphics/UI/Gtk/Abstract/Widget.chs 408
    -#if GTK_MAJOR_VERSION < 3
    hunk ./gtk/Graphics/UI/Gtk/Abstract/Widget.chs 410
    -#endif
    hunk ./gtk/Graphics/UI/Gtk/Abstract/Widget.chs 456
    -#if GTK_CHECK_VERSION(3,0,0)
    -import Graphics.Rendering.Cairo.Types (Cairo(..))
    -import Graphics.Rendering.Cairo.Internal (Render(..))
    -#endif
    hunk ./gtk/Graphics/UI/Gtk/Abstract/Widget.chs 506
    -#if GTK_MAJOR_VERSION < 3
    hunk ./gtk/Graphics/UI/Gtk/Abstract/Widget.chs 507
    ---
    --- Removed in Gtk3.
    hunk ./gtk/Graphics/UI/Gtk/Abstract/Widget.chs 511
    -#endif
    hunk ./gtk/Graphics/UI/Gtk/Abstract/Widget.chs 903
    -#if GTK_MAJOR_VERSION < 3
    hunk ./gtk/Graphics/UI/Gtk/Abstract/Widget.chs 925
    -#endif
    hunk ./gtk/Graphics/UI/Gtk/Abstract/Widget.chs 959
    -#if GTK_MAJOR_VERSION < 3
    hunk ./gtk/Graphics/UI/Gtk/Abstract/Widget.chs 981
    -#endif
    hunk ./gtk/Graphics/UI/Gtk/Abstract/Widget.chs 1069
    -#if GTK_MAJOR_VERSION < 3
    hunk ./gtk/Graphics/UI/Gtk/Abstract/Widget.chs 1099
    -#endif
    hunk ./gtk/Graphics/UI/Gtk/Abstract/Widget.chs 1110
    -#if GTK_MAJOR_VERSION < 3
    hunk ./gtk/Graphics/UI/Gtk/Abstract/Widget.chs 1118
    -#endif
    hunk ./gtk/Graphics/UI/Gtk/Abstract/Widget.chs 1166
    -#if GTK_MAJOR_VERSION < 3
    hunk ./gtk/Graphics/UI/Gtk/Abstract/Widget.chs 1184
    -#endif
    hunk ./gtk/Graphics/UI/Gtk/Abstract/Widget.chs 1185
    -#if GTK_MAJOR_VERSION < 3
    hunk ./gtk/Graphics/UI/Gtk/Abstract/Widget.chs 1208
    -#endif
    hunk ./gtk/Graphics/UI/Gtk/Abstract/Widget.chs 1262
    -#if GTK_MAJOR_VERSION < 3
    hunk ./gtk/Graphics/UI/Gtk/Abstract/Widget.chs 1293
    -#endif
    hunk ./gtk/Graphics/UI/Gtk/Abstract/Widget.chs 1678
    -#if GTK_MAJOR_VERSION < 3
    hunk ./gtk/Graphics/UI/Gtk/Abstract/Widget.chs 1685
    -#endif
    hunk ./gtk/Graphics/UI/Gtk/Abstract/Widget.chs 1773
    -#if GTK_MAJOR_VERSION < 3
    hunk ./gtk/Graphics/UI/Gtk/Abstract/Widget.chs 1778
    ---
    --- Removed in Gtk3. [_$_]
    hunk ./gtk/Graphics/UI/Gtk/Abstract/Widget.chs 1790
    -#endif
    hunk ./gtk/Graphics/UI/Gtk/Abstract/Widget.chs 1792
    -#if GTK_MAJOR_VERSION < 3
    hunk ./gtk/Graphics/UI/Gtk/Abstract/Widget.chs 1811
    -#endif
    hunk ./gtk/Graphics/UI/Gtk/Abstract/Widget.chs 1825
    ---
    --- Returns a GObject in Gtk3.
    hunk ./gtk/Graphics/UI/Gtk/Abstract/Widget.chs 1826
    -#if GTK_MAJOR_VERSION < 3
    hunk ./gtk/Graphics/UI/Gtk/Abstract/Widget.chs 1827
    -#else
    - -> IO GObject -- ^ returns the 'GObject' associated with @widget@
    -#endif
    hunk ./gtk/Graphics/UI/Gtk/Abstract/Widget.chs 1828
    -#if GTK_MAJOR_VERSION < 3
    hunk ./gtk/Graphics/UI/Gtk/Abstract/Widget.chs 1829
    -#else
    -  makeNewGObject mkGObject $
    -#endif
    hunk ./gtk/Graphics/UI/Gtk/Abstract/Widget.chs 2156
    -#if GTK_MAJOR_VERSION < 3
    hunk ./gtk/Graphics/UI/Gtk/Abstract/Widget.chs 2161
    ---
    --- Removed in Gtk3.
    hunk ./gtk/Graphics/UI/Gtk/Abstract/Widget.chs 2169
    -#endif
    hunk ./gtk/Graphics/UI/Gtk/Abstract/Widget.chs 2223
    -#if GTK_CHECK_VERSION(3,0,0)
    --- | Returns the width that has currently been allocated to widget. This function is intended
    --- | to be used when implementing handlers for the "draw" function.
    -widgetGetAllocatedWidth :: WidgetClass self => self -> IO Int
    -widgetGetAllocatedWidth widget =
    -     liftM fromIntegral $ {#call widget_get_allocated_width#} (toWidget widget)
    -
    --- | Returns the height that has currently been allocated to widget. This function is intended
    --- | to be used when implementing handlers for the "draw" function.
    -widgetGetAllocatedHeight :: WidgetClass self => self -> IO Int
    -widgetGetAllocatedHeight widget =
    -     liftM fromIntegral $ {#call widget_get_allocated_height#} (toWidget widget)
    -#endif
    -
    hunk ./gtk/Graphics/UI/Gtk/Abstract/Widget.chs 2399
    -#if GTK_MAJOR_VERSION < 3
    hunk ./gtk/Graphics/UI/Gtk/Abstract/Widget.chs 2403
    ---
    --- Removed in Gtk3.
    hunk ./gtk/Graphics/UI/Gtk/Abstract/Widget.chs 2407
    -#endif
    hunk ./gtk/Graphics/UI/Gtk/Abstract/Widget.chs 2425
    -#if GTK_MAJOR_VERSION < 3
    hunk ./gtk/Graphics/UI/Gtk/Abstract/Widget.chs 2427
    ---
    --- Removed in Gtk3.
    hunk ./gtk/Graphics/UI/Gtk/Abstract/Widget.chs 2431
    -#endif
    hunk ./gtk/Graphics/UI/Gtk/Abstract/Widget.chs 2520
    -#if GTK_MAJOR_VERSION >= 3
    --- | Returns the style context associated to @widget@.
    -widgetGetStyleContext :: WidgetClass widget
    -                      => widget          -- ^ @widget@ : a @Widget@
    -                      -> IO StyleContext -- ^ a @StyleContext@
    -widgetGetStyleContext widget =
    -  makeNewGObject mkStyleContext $
    -  {# call gtk_widget_get_style_context #}
    -  (toWidget widget)
    -#endif
    -
    hunk ./gtk/Graphics/UI/Gtk/Abstract/Widget.chs 2690
    -#if GTK_CHECK_VERSION(3,0,0)
    -draw :: WidgetClass self => Signal self (Render ())
    -draw =
    -  Signal (\after model (Render user) ->
    -           connect_PTR__NONE "draw" after model (\ptr -> runReaderT user (Cairo ptr)))
    -#endif
    -
    hunk ./gtk/Graphics/UI/Gtk/ActionMenuToolbar/Action.chs 103
    -#if GTK_MAJOR_VERSION < 3
    hunk ./gtk/Graphics/UI/Gtk/ActionMenuToolbar/Action.chs 105
    -#endif
    hunk ./gtk/Graphics/UI/Gtk/ActionMenuToolbar/Action.chs 303
    -#if GTK_MAJOR_VERSION < 3
    hunk ./gtk/Graphics/UI/Gtk/ActionMenuToolbar/Action.chs 310
    ---
    --- Removed in Gtk3.
    hunk ./gtk/Graphics/UI/Gtk/ActionMenuToolbar/Action.chs 319
    ---
    --- Removed in Gtk3.
    hunk ./gtk/Graphics/UI/Gtk/ActionMenuToolbar/Action.chs 326
    -#endif
    hunk ./gtk/Graphics/UI/Gtk/ActionMenuToolbar/UIManager.chs 452
    -#if defined (WIN32) && GTK_CHECK_VERSION(2,6,0) && GTK_MAJOR_VERSION < 3
    +#if defined (WIN32) && GTK_CHECK_VERSION(2,6,0)
    hunk ./gtk/Graphics/UI/Gtk/Buttons/LinkButton.chs 75
    -#if GTK_MAJOR_VERSION < 3
    hunk ./gtk/Graphics/UI/Gtk/Buttons/LinkButton.chs 76
    -#endif
    hunk ./gtk/Graphics/UI/Gtk/Buttons/LinkButton.chs 131
    -#if GTK_MAJOR_VERSION < 3
    hunk ./gtk/Graphics/UI/Gtk/Buttons/LinkButton.chs 136
    ---
    --- Removed in Gtk3.
    hunk ./gtk/Graphics/UI/Gtk/Buttons/LinkButton.chs 149
    -#endif
    hunk ./gtk/Graphics/UI/Gtk/Cairo.chs 53
    -#if GTK_MAJOR_VERSION < 3
    hunk ./gtk/Graphics/UI/Gtk/Cairo.chs 55
    -#else
    -  renderWithDrawWindow,
    -#endif
    hunk ./gtk/Graphics/UI/Gtk/Cairo.chs 73
    -#if GTK_MAJOR_VERSION < 3
    hunk ./gtk/Graphics/UI/Gtk/Cairo.chs 74
    -#else
    -{#import Graphics.UI.Gtk.Gdk.Region#} ()
    -#endif
    hunk ./gtk/Graphics/UI/Gtk/Cairo.chs 91
    -#if GTK_MAJOR_VERSION < 3
    hunk ./gtk/Graphics/UI/Gtk/Cairo.chs 92
    ---
    --- Removed in Gtk3.
    hunk ./gtk/Graphics/UI/Gtk/Cairo.chs 103
    -#endif
    -
    -#if GTK_MAJOR_VERSION >= 3
    --- | Creates a Cairo context for drawing to a 'DrawWindow'.
    -renderWithDrawWindow :: DrawWindowClass drawWindow =>
    -    drawWindow -- ^ @drawWindow@ - a 'DrawWindow'
    - -> Render a -- ^ A newly created Cairo context.
    - -> IO a
    -renderWithDrawWindow drawWindow m =
    -  bracket (liftM Cairo.Cairo $ {#call unsafe gdk_cairo_create#} (toDrawWindow drawWindow))
    -          (\context -> do status <- Cairo.Internal.status context
    -                          Cairo.Internal.destroy context
    -                          unless (status == Cairo.StatusSuccess) $
    -                            fail =<< Cairo.Internal.statusToString status)
    -          (\context -> runReaderT (Cairo.Internal.runRender m) context)
    -#endif
    hunk ./gtk/Graphics/UI/Gtk/Cairo.chs 130
    -#if GTK_MAJOR_VERSION < 3
    hunk ./gtk/Graphics/UI/Gtk/Cairo.chs 131
    ---
    --- Removed in Gtk3.
    hunk ./gtk/Graphics/UI/Gtk/Cairo.chs 137
    -#endif
    hunk ./gtk/Graphics/UI/Gtk/Display/Image.chs 126
    -#if GTK_MAJOR_VERSION < 3
    hunk ./gtk/Graphics/UI/Gtk/Display/Image.chs 128
    -#endif
    hunk ./gtk/Graphics/UI/Gtk/Display/Image.chs 191
    -#if defined (WIN32) && GTK_CHECK_VERSION(2,6,0) && GTK_MAJOR_VERSION < 3
    +#if defined (WIN32) && GTK_CHECK_VERSION(2,6,0)
    hunk ./gtk/Graphics/UI/Gtk/Display/Image.chs 294
    -#if defined (WIN32) && GTK_CHECK_VERSION(2,6,0) && GTK_MAJOR_VERSION < 3
    +#if defined (WIN32) && GTK_CHECK_VERSION(2,6,0)
    hunk ./gtk/Graphics/UI/Gtk/Display/Image.chs 381
    -#if GTK_MAJOR_VERSION < 3
    hunk ./gtk/Graphics/UI/Gtk/Display/Image.chs 392
    -#endif
    hunk ./gtk/Graphics/UI/Gtk/Display/ProgressBar.chs 80
    -#if GTK_MAJOR_VERSION < 3
    hunk ./gtk/Graphics/UI/Gtk/Display/ProgressBar.chs 83
    -#endif
    hunk ./gtk/Graphics/UI/Gtk/Display/ProgressBar.chs 89
    -#if GTK_MAJOR_VERSION < 3
    hunk ./gtk/Graphics/UI/Gtk/Display/ProgressBar.chs 90
    -#endif
    hunk ./gtk/Graphics/UI/Gtk/Display/ProgressBar.chs 107
    -#if GTK_MAJOR_VERSION < 3
    hunk ./gtk/Graphics/UI/Gtk/Display/ProgressBar.chs 108
    -#endif
    hunk ./gtk/Graphics/UI/Gtk/Display/ProgressBar.chs 198
    -#if GTK_MAJOR_VERSION < 3
    hunk ./gtk/Graphics/UI/Gtk/Display/ProgressBar.chs 214
    -#endif
    hunk ./gtk/Graphics/UI/Gtk/Display/ProgressBar.chs 241
    -#if GTK_MAJOR_VERSION < 3
    hunk ./gtk/Graphics/UI/Gtk/Display/ProgressBar.chs 244
    ---
    --- Removed in Gtk3.
    hunk ./gtk/Graphics/UI/Gtk/Display/ProgressBar.chs 248
    -#endif
    hunk ./gtk/Graphics/UI/Gtk/Display/StatusIcon.chs 89
    -#if GTK_MAJOR_VERSION < 3
    hunk ./gtk/Graphics/UI/Gtk/Display/StatusIcon.chs 90
    -#endif
    hunk ./gtk/Graphics/UI/Gtk/Display/StatusIcon.chs 92
    -#if GTK_MAJOR_VERSION < 3
    hunk ./gtk/Graphics/UI/Gtk/Display/StatusIcon.chs 94
    -#endif
    hunk ./gtk/Graphics/UI/Gtk/Display/StatusIcon.chs 108
    -#if GTK_MAJOR_VERSION < 3
    hunk ./gtk/Graphics/UI/Gtk/Display/StatusIcon.chs 109
    -#endif
    hunk ./gtk/Graphics/UI/Gtk/Display/StatusIcon.chs 341
    -#if GTK_MAJOR_VERSION < 3
    hunk ./gtk/Graphics/UI/Gtk/Display/StatusIcon.chs 343
    ---
    --- Removed in Gtk3.
    hunk ./gtk/Graphics/UI/Gtk/Display/StatusIcon.chs 351
    -#endif
    hunk ./gtk/Graphics/UI/Gtk/Display/StatusIcon.chs 375
    -#if GTK_MAJOR_VERSION < 3
    hunk ./gtk/Graphics/UI/Gtk/Display/StatusIcon.chs 379
    ---
    --- Removed in Gtk3.
    hunk ./gtk/Graphics/UI/Gtk/Display/StatusIcon.chs 389
    ---
    --- Removed in Gtk3.
    hunk ./gtk/Graphics/UI/Gtk/Display/StatusIcon.chs 395
    -#endif
    hunk ./gtk/Graphics/UI/Gtk/Display/StatusIcon.chs 523
    -#if GTK_MAJOR_VERSION < 3
    hunk ./gtk/Graphics/UI/Gtk/Display/StatusIcon.chs 527
    ---
    --- Removed in Gtk3.
    hunk ./gtk/Graphics/UI/Gtk/Display/StatusIcon.chs 529
    -#endif
    hunk ./gtk/Graphics/UI/Gtk/Display/Statusbar.chs 86
    -#if GTK_MAJOR_VERSION < 3
    hunk ./gtk/Graphics/UI/Gtk/Display/Statusbar.chs 88
    -#endif
    hunk ./gtk/Graphics/UI/Gtk/Display/Statusbar.chs 96
    -#if GTK_MAJOR_VERSION < 3
    hunk ./gtk/Graphics/UI/Gtk/Display/Statusbar.chs 97
    -#endif
    hunk ./gtk/Graphics/UI/Gtk/Display/Statusbar.chs 196
    -#if GTK_MAJOR_VERSION < 3
    hunk ./gtk/Graphics/UI/Gtk/Display/Statusbar.chs 211
    -#endif
    hunk ./gtk/Graphics/UI/Gtk/Display/Statusbar.chs 240
    -#if GTK_MAJOR_VERSION < 3
    hunk ./gtk/Graphics/UI/Gtk/Display/Statusbar.chs 243
    ---
    --- Removed in Gtk3.
    hunk ./gtk/Graphics/UI/Gtk/Display/Statusbar.chs 247
    -#endif
    hunk ./gtk/Graphics/UI/Gtk/Embedding/Embedding.hsc 30
    -#if defined(HAVE_PLUG_AND_SOCKET) && (!defined(WIN32) || GTK_CHECK_VERSION(2,8,0)) && GTK_MAJOR_VERSION < 3
    +#if defined(HAVE_PLUG_AND_SOCKET) && (!defined(WIN32) || GTK_CHECK_VERSION(2,8,0))
    hunk ./gtk/Graphics/UI/Gtk/Embedding/Embedding.hsc 38
    -#if defined(HAVE_PLUG_AND_SOCKET) && (!defined(WIN32) || GTK_CHECK_VERSION(2,8,0)) && GTK_MAJOR_VERSION < 3
    +#if defined(HAVE_PLUG_AND_SOCKET) && (!defined(WIN32) || GTK_CHECK_VERSION(2,8,0))
    hunk ./gtk/Graphics/UI/Gtk/Embedding/Plug.chs 193
    -#if GTK_MAJOR_VERSION < 3
    hunk ./gtk/Graphics/UI/Gtk/Embedding/Plug.chs 194
    -#else
    -                       {# call pure unsafe gdk_window_get_type #}
    -#endif
    hunk ./gtk/Graphics/UI/Gtk/Embedding/Socket.chs 201
    -#if GTK_MAJOR_VERSION >= 3
    -socketHasPlug :: SocketClass s => s -> IO Bool
    -socketHasPlug = liftM isJust . socketGetPlugWindow
    -#endif
    -
    hunk ./gtk/Graphics/UI/Gtk/Entry/Entry.chs 62
    -#if GTK_MAJOR_VERSION < 3
    hunk ./gtk/Graphics/UI/Gtk/Entry/Entry.chs 66
    -#endif
    hunk ./gtk/Graphics/UI/Gtk/Entry/Entry.chs 88
    -#if GTK_MAJOR_VERSION < 3
    hunk ./gtk/Graphics/UI/Gtk/Entry/Entry.chs 92
    -#endif
    hunk ./gtk/Graphics/UI/Gtk/Entry/Entry.chs 248
    -#if GTK_MAJOR_VERSION < 3
    hunk ./gtk/Graphics/UI/Gtk/Entry/Entry.chs 253
    ---
    --- Removed in Gtk3.
    hunk ./gtk/Graphics/UI/Gtk/Entry/Entry.chs 264
    ---
    --- Removed in Gtk3.
    hunk ./gtk/Graphics/UI/Gtk/Entry/Entry.chs 271
    -#endif
    hunk ./gtk/Graphics/UI/Gtk/Entry/Entry.chs 475
    -#if GTK_MAJOR_VERSION < 3
    hunk ./gtk/Graphics/UI/Gtk/Entry/Entry.chs 481
    --- Removed in Gtk3.
    hunk ./gtk/Graphics/UI/Gtk/Entry/Entry.chs 495
    --- Removed in Gtk3.
    hunk ./gtk/Graphics/UI/Gtk/Entry/Entry.chs 502
    -#endif
    hunk ./gtk/Graphics/UI/Gtk/Gdk/Cursor.chs 41
    -#if GTK_MAJOR_VERSION < 3
    hunk ./gtk/Graphics/UI/Gtk/Gdk/Cursor.chs 42
    -#endif
    hunk ./gtk/Graphics/UI/Gtk/Gdk/Cursor.chs 93
    -#if GTK_MAJOR_VERSION < 3
    hunk ./gtk/Graphics/UI/Gtk/Gdk/Cursor.chs 96
    ---
    --- Removed in Gtk3.
    hunk ./gtk/Graphics/UI/Gtk/Gdk/Cursor.chs 112
    -#endif
    hunk ./gtk/Graphics/UI/Gtk/Gdk/DrawWindow.chs 57
    -#if GTK_MAJOR_VERSION < 3
    hunk ./gtk/Graphics/UI/Gtk/Gdk/DrawWindow.chs 60
    -#endif
    hunk ./gtk/Graphics/UI/Gtk/Gdk/DrawWindow.chs 63
    -#if GTK_MAJOR_VERSION < 3
    hunk ./gtk/Graphics/UI/Gtk/Gdk/DrawWindow.chs 64
    -#endif
    hunk ./gtk/Graphics/UI/Gtk/Gdk/DrawWindow.chs 66
    -#if GTK_MAJOR_VERSION < 3
    hunk ./gtk/Graphics/UI/Gtk/Gdk/DrawWindow.chs 68
    -#endif
    hunk ./gtk/Graphics/UI/Gtk/Gdk/DrawWindow.chs 74
    -#if GTK_MAJOR_VERSION < 3
    hunk ./gtk/Graphics/UI/Gtk/Gdk/DrawWindow.chs 76
    -#endif
    hunk ./gtk/Graphics/UI/Gtk/Gdk/DrawWindow.chs 82
    -#if GTK_MAJOR_VERSION < 3
    hunk ./gtk/Graphics/UI/Gtk/Gdk/DrawWindow.chs 83
    -#endif
    hunk ./gtk/Graphics/UI/Gtk/Gdk/DrawWindow.chs 97
    -#if GTK_MAJOR_VERSION < 3
    hunk ./gtk/Graphics/UI/Gtk/Gdk/DrawWindow.chs 98
    -#endif
    hunk ./gtk/Graphics/UI/Gtk/Gdk/DrawWindow.chs 135
    -#if GTK_MAJOR_VERSION < 3
    hunk ./gtk/Graphics/UI/Gtk/Gdk/DrawWindow.chs 136
    --- [_$_]
    --- Removed in Gtk3.
    hunk ./gtk/Graphics/UI/Gtk/Gdk/DrawWindow.chs 142
    --- [_$_]
    --- Removed in Gtk3. [_$_]
    hunk ./gtk/Graphics/UI/Gtk/Gdk/DrawWindow.chs 158
    --- [_$_]
    --- Removed in Gtk3.
    hunk ./gtk/Graphics/UI/Gtk/Gdk/DrawWindow.chs 171
    -#endif
    hunk ./gtk/Graphics/UI/Gtk/Gdk/DrawWindow.chs 221
    -#if GTK_MAJOR_VERSION < 3
    hunk ./gtk/Graphics/UI/Gtk/Gdk/DrawWindow.chs 257
    --- [_$_]
    --- Removed in Gtk3.
    hunk ./gtk/Graphics/UI/Gtk/Gdk/DrawWindow.chs 264
    -#endif
    hunk ./gtk/Graphics/UI/Gtk/Gdk/DrawWindow.chs 293
    -#if GTK_MAJOR_VERSION < 3
    hunk ./gtk/Graphics/UI/Gtk/Gdk/DrawWindow.chs 313
    -#endif
    hunk ./gtk/Graphics/UI/Gtk/Gdk/DrawWindow.chs 314
    -#if GTK_MAJOR_VERSION < 3
    hunk ./gtk/Graphics/UI/Gtk/Gdk/DrawWindow.chs 320
    --- [_$_]
    --- Removed in Gtk3.
    hunk ./gtk/Graphics/UI/Gtk/Gdk/DrawWindow.chs 325
    -#endif
    hunk ./gtk/Graphics/UI/Gtk/Gdk/DrawWindow.chs 383
    -#if GTK_MAJOR_VERSION < 3
    hunk ./gtk/Graphics/UI/Gtk/Gdk/DrawWindow.chs 420
    -#endif
    hunk ./gtk/Graphics/UI/Gtk/Gdk/DrawWindow.chs 421
    -#if GTK_MAJOR_VERSION < 3
    hunk ./gtk/Graphics/UI/Gtk/Gdk/DrawWindow.chs 456
    -#endif
    hunk ./gtk/Graphics/UI/Gtk/Gdk/DrawWindow.chs 564
    -#if GTK_MAJOR_VERSION < 3
    hunk ./gtk/Graphics/UI/Gtk/Gdk/DrawWindow.chs 567
    ---
    --- Removed in Gtk3.
    hunk ./gtk/Graphics/UI/Gtk/Gdk/DrawWindow.chs 570
    -#endif
    hunk ./gtk/Graphics/UI/Gtk/Gdk/Drawable.chs 36
    ---
    --- This module is empty when built with Gtk3 because GTKDrawable has been
    --- removed.
    hunk ./gtk/Graphics/UI/Gtk/Gdk/Drawable.chs 37
    -#if GTK_MAJOR_VERSION < 3
    hunk ./gtk/Graphics/UI/Gtk/Gdk/Drawable.chs 65
    -#endif
    hunk ./gtk/Graphics/UI/Gtk/Gdk/Drawable.chs 67
    -#if GTK_MAJOR_VERSION < 3
    hunk ./gtk/Graphics/UI/Gtk/Gdk/Drawable.chs 380
    -#endif /* GTK_MAJOR_VERSION < 3 */
    hunk ./gtk/Graphics/UI/Gtk/Gdk/Enums.chs 45
    -#if GTK_MAJOR_VERSION < 3
    hunk ./gtk/Graphics/UI/Gtk/Gdk/Enums.chs 54
    -#endif
    hunk ./gtk/Graphics/UI/Gtk/Gdk/Enums.chs 60
    -#if GTK_MAJOR_VERSION < 3
    hunk ./gtk/Graphics/UI/Gtk/Gdk/Enums.chs 61
    ---
    --- Removed in Gtk3.
    hunk ./gtk/Graphics/UI/Gtk/Gdk/Enums.chs 62
    -#endif
    hunk ./gtk/Graphics/UI/Gtk/Gdk/Enums.chs 93
    -#if GTK_MAJOR_VERSION < 3
    hunk ./gtk/Graphics/UI/Gtk/Gdk/Enums.chs 94
    ---
    --- Removed in Gtk3.
    hunk ./gtk/Graphics/UI/Gtk/Gdk/Enums.chs 95
    -#endif
    hunk ./gtk/Graphics/UI/Gtk/Gdk/Enums.chs 159
    -#if GTK_MAJOR_VERSION < 3
    hunk ./gtk/Graphics/UI/Gtk/Gdk/Enums.chs 166
    ---
    --- Removed in Gtk3.
    hunk ./gtk/Graphics/UI/Gtk/Gdk/Enums.chs 169
    ---
    --- Removed in Gtk3.
    hunk ./gtk/Graphics/UI/Gtk/Gdk/Enums.chs 173
    ---
    --- Removed in Gtk3.
    hunk ./gtk/Graphics/UI/Gtk/Gdk/Enums.chs 178
    ---
    --- Removed in Gtk3.
    hunk ./gtk/Graphics/UI/Gtk/Gdk/Enums.chs 181
    ---
    --- Removed in Gtk3.
    hunk ./gtk/Graphics/UI/Gtk/Gdk/Enums.chs 182
    -#endif
    hunk ./gtk/Graphics/UI/Gtk/Gdk/Enums.chs 211
    -#if GTK_MAJOR_VERSION < 3
    hunk ./gtk/Graphics/UI/Gtk/Gdk/Enums.chs 212
    ---
    --- Removed in Gtk3.
    hunk ./gtk/Graphics/UI/Gtk/Gdk/Enums.chs 213
    -#endif
    hunk ./gtk/Graphics/UI/Gtk/Gdk/EventM.hsc 142
    -#if GTK_MAJOR_VERSION < 3
    hunk ./gtk/Graphics/UI/Gtk/Gdk/EventM.hsc 143
    -#endif
    hunk ./gtk/Graphics/UI/Gtk/Gdk/EventM.hsc 182
    -#if GTK_MAJOR_VERSION < 3
    hunk ./gtk/Graphics/UI/Gtk/Gdk/EventM.hsc 183
    -#endif
    hunk ./gtk/Graphics/UI/Gtk/Gdk/EventM.hsc 540
    -#if GTK_MAJOR_VERSION < 3
    hunk ./gtk/Graphics/UI/Gtk/Gdk/EventM.hsc 541
    --- Removed in Gtk3.
    hunk ./gtk/Graphics/UI/Gtk/Gdk/EventM.hsc 549
    -#endif
    hunk ./gtk/Graphics/UI/Gtk/Gdk/Events.hsc 74
    -#if GTK_MAJOR_VERSION < 3
    hunk ./gtk/Graphics/UI/Gtk/Gdk/Events.hsc 75
    -#endif
    hunk ./gtk/Graphics/UI/Gtk/Gdk/Events.hsc 203
    -#if GTK_MAJOR_VERSION < 3
    hunk ./gtk/Graphics/UI/Gtk/Gdk/Events.hsc 205
    -#endif
    hunk ./gtk/Graphics/UI/Gtk/Gdk/Events.hsc 430
    -#if GTK_MAJOR_VERSION < 3
    hunk ./gtk/Graphics/UI/Gtk/Gdk/Events.hsc 433
    -#endif
    hunk ./gtk/Graphics/UI/Gtk/Gdk/Events.hsc 437
    -#if GTK_MAJOR_VERSION < 3
    hunk ./gtk/Graphics/UI/Gtk/Gdk/Events.hsc 438
    -#endif
    hunk ./gtk/Graphics/UI/Gtk/Gdk/Events.hsc 440
    -#if GTK_MAJOR_VERSION < 3
    hunk ./gtk/Graphics/UI/Gtk/Gdk/Events.hsc 442
    -#endif
    hunk ./gtk/Graphics/UI/Gtk/Gdk/GC.chs 41
    ---
    --- Graphics Contexts are removed in Gtk3, so this module is empty.
    hunk ./gtk/Graphics/UI/Gtk/Gdk/GC.chs 42
    -#if GTK_MAJOR_VERSION < 3
    hunk ./gtk/Graphics/UI/Gtk/Gdk/GC.chs 78
    -#endif
    hunk ./gtk/Graphics/UI/Gtk/Gdk/GC.chs 80
    -#if GTK_MAJOR_VERSION < 3
    hunk ./gtk/Graphics/UI/Gtk/Gdk/GC.chs 172
    -#endif
    hunk ./gtk/Graphics/UI/Gtk/Gdk/Pixbuf.chs 114
    -#if GTK_MAJOR_VERSION < 3
    hunk ./gtk/Graphics/UI/Gtk/Gdk/Pixbuf.chs 118
    -#endif
    hunk ./gtk/Graphics/UI/Gtk/Gdk/Pixbuf.chs 131
    -#if GTK_MAJOR_VERSION < 3
    hunk ./gtk/Graphics/UI/Gtk/Gdk/Pixbuf.chs 132
    -#endif
    hunk ./gtk/Graphics/UI/Gtk/Gdk/Pixbuf.chs 712
    -#if GTK_MAJOR_VERSION < 3
    hunk ./gtk/Graphics/UI/Gtk/Gdk/Pixbuf.chs 723
    ---
    --- Removed in Gtk3.
    hunk ./gtk/Graphics/UI/Gtk/Gdk/Pixbuf.chs 735
    ---
    --- Removed in Gtk3.
    hunk ./gtk/Graphics/UI/Gtk/Gdk/Pixbuf.chs 775
    ---
    --- Removed in Gtk3.
    hunk ./gtk/Graphics/UI/Gtk/Gdk/Pixbuf.chs 791
    -#endif
    hunk ./gtk/Graphics/UI/Gtk/Gdk/Pixmap.chs 31
    ---
    --- This module is empty when built with Gtk3 because Pixmap has been
    --- removed.
    hunk ./gtk/Graphics/UI/Gtk/Gdk/Pixmap.chs 44
    -#if GTK_MAJOR_VERSION < 3
    hunk ./gtk/Graphics/UI/Gtk/Gdk/Pixmap.chs 50
    -#endif
    hunk ./gtk/Graphics/UI/Gtk/Gdk/Pixmap.chs 52
    -#if GTK_MAJOR_VERSION < 3
    -
    hunk ./gtk/Graphics/UI/Gtk/Gdk/Pixmap.chs 105
    -#endif /* GTK_MAJOR_VERSION < 3 */
    hunk ./gtk/Graphics/UI/Gtk/Gdk/Region.chs 35
    ---
    --- This module is empty when built with Gtk3 because Pixmap has been
    --- removed.
    hunk ./gtk/Graphics/UI/Gtk/Gdk/Region.chs 36
    -#if GTK_MAJOR_VERSION < 3
    hunk ./gtk/Graphics/UI/Gtk/Gdk/Region.chs 57
    -#endif
    hunk ./gtk/Graphics/UI/Gtk/Gdk/Region.chs 59
    -#if GTK_MAJOR_VERSION < 3
    -
    hunk ./gtk/Graphics/UI/Gtk/Gdk/Region.chs 220
    -#endif
    hunk ./gtk/Graphics/UI/Gtk/Gdk/Screen.chs 60
    -#if GTK_MAJOR_VERSION <3
    hunk ./gtk/Graphics/UI/Gtk/Gdk/Screen.chs 68
    -#endif
    hunk ./gtk/Graphics/UI/Gtk/Gdk/Screen.chs 103
    -#if GTK_MAJOR_VERSION < 3
    hunk ./gtk/Graphics/UI/Gtk/Gdk/Screen.chs 104
    -#endif
    hunk ./gtk/Graphics/UI/Gtk/Gdk/Screen.chs 147
    -#if GTK_MAJOR_VERSION < 3
    hunk ./gtk/Graphics/UI/Gtk/Gdk/Screen.chs 165
    ---
    --- Removed in Gtk3.
    hunk ./gtk/Graphics/UI/Gtk/Gdk/Screen.chs 182
    ---
    --- Removed in Gtk3.
    hunk ./gtk/Graphics/UI/Gtk/Gdk/Screen.chs 191
    -#endif
    hunk ./gtk/Graphics/UI/Gtk/Gdk/Screen.chs 524
    -#if GTK_MAJOR_VERSION < 3
    hunk ./gtk/Graphics/UI/Gtk/Gdk/Screen.chs 527
    ---
    --- Removed in Gtk3.
    hunk ./gtk/Graphics/UI/Gtk/Gdk/Screen.chs 531
    -#endif
    hunk ./gtk/Graphics/UI/Gtk/General/CssProvider.chs 1
    -{-# LANGUAGE CPP #-}
    --- -*-haskell-*-
    ---  GIMP Toolkit (GTK) Styles
    ---
    ---  Author : Axel Simon
    ---
    ---  Created: 13 February 2003
    ---
    ---  Copyright (C) 1999-2005 Axel Simon
    ---
    ---  This library is free software; you can redistribute it and/or
    ---  modify it under the terms of the GNU Lesser General Public
    ---  License as published by the Free Software Foundation; either
    ---  version 2.1 of the License, or (at your option) any later version.
    ---
    ---  This library is distributed in the hope that it will be useful,
    ---  but WITHOUT ANY WARRANTY; without even the implied warranty of
    ---  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
    ---  Lesser General Public License for more details.
    ---
    --- |
    --- Maintainer  : gtk...@li...
    --- Stability   : provisional
    --- Portability : portable (depends on GHC)
    ---
    --- CSS-like styling for widgets.
    ---
    -module Graphics.UI.Gtk.General.CssProvider (
    --- * Description
    ---
    --- | @CssProvider@ is an object implementing the @StyleProvider@ interface.
    --- It is able to parse CSS-like input in order to style widgets.
    ---
    -
    -#if GTK_MAJOR_VERSION >= 3
    --- * Types
    -  CssProvider,
    -  CssProviderClass,
    -  castToCssProvider, gTypeCssProvider,
    -  toCssProvider,
    -
    --- * Enums
    -  CssProviderError(..),
    -
    --- * Constructors
    -  cssProviderNew,
    -
    --- * Methods
    -  cssProviderGetDefault,
    -  cssProviderGetNamed,
    -  cssProviderLoadFromData,
    -  cssProviderLoadFromString,
    -  cssProviderLoadFromPath,
    -#if GTK_CHECK_VERSION(3,2,0)
    -  cssProviderToString,
    -#endif
    -#endif
    -
    -  ) where
    -
    -{# context prefix ="gtk" #}
    -
    -import Control.Monad (liftM)
    -
    -import System.Glib.FFI
    -import System.Glib.UTFString
    -{#import Graphics.UI.Gtk.Types#}
    -import System.Glib.GError (GError(..), GErrorClass(..), GErrorDomain,
    -                           propagateGError)
    -
    -#if GTK_MAJOR_VERSION >= 3
    -{#enum CssProviderError {underscoreToCase} deriving (Bounded,Eq,Show)#}
    -
    ---------------------
    --- Interfaces
    -
    -instance StyleProviderClass CssProvider
    -
    ---------------------
    --- Constructors
    -
    --- | Returns a newly created CssProvider
    -cssProviderNew :: IO CssProvider -- ^ A new CssProvider
    -cssProviderNew =
    -  wrapNewGObject mkCssProvider {# call gtk_css_provider_new #}
    -
    ---------------------
    --- Methods
    -
    --- | Returns the provider containing the style settings used as a fallback for all widgets.
    -cssProviderGetDefault :: IO CssProvider -- ^ The provider used for fallback styling
    -cssProviderGetDefault =
    -  makeNewGObject mkCssProvider {# call gtk_css_provider_get_default #}
    -
    --- | Loads a theme from the usual theme paths
    -cssProviderGetNamed :: String                 -- ^ @name@ : A theme name
    -                    -> Maybe String           -- ^ @variant@ to load, for example, "dark"
    -                    -> IO (Maybe CssProvider) -- ^ a @CssProvider@ with the theme loaded
    -cssProviderGetNamed name variant =
    -  maybeNull (makeNewGObject mkCssProvider) $
    -  withUTFString name $ \namePtr ->
    -  maybeWith withUTFString variant $ \variantPtr ->
    -  {# call gtk_css_provider_get_named #} namePtr variantPtr
    -
    --- | Loads @_data@ into @cssProvider@, making it clear any previously loaded information.
    -cssProviderLoadFromData :: CssProviderClass cssProvider
    -                      => cssProvider -- ^ @cssProvider@ : a @CssProvider@
    -                      -> Ptr CChar   -- ^ @_data@ : CSS data loaded in memory. [array length=length][element-type guint8]
    -                      -> Int         -- ^ @length@ : the length of @_data@ in bytes, or -1 for NUL terminated
    -                                     -- strings. If @length@ is not -1, the code will assume it is
    -                                     -- not NUL terminated and will potentially do a copy.
    -                      -> IO ()
    -cssProviderLoadFromData cssProvider _data length =
    -  propagateGError $ \errPtrPtr ->
    -  {# call gtk_css_provider_load_from_data #}
    -  (toCssProvider cssProvider)
    -  _data
    -  (fromIntegral length)
    -  errPtrPtr >> return ()
    -
    --- | Loads @css@ into @cssProvider@, making it clear any previously loaded information.
    -cssProviderLoadFromString :: CssProviderClass cssProvider
    -                          => cssProvider -- ^ @cssProvider@ : a @CssProvider@
    -                          -> String      -- ^ @css@ : CSS data loaded in memory.
    -                          -> IO ()
    -cssProviderLoadFromString cssProvider css =
    -  withUTFStringLen css $ \(cssPtr, len) ->
    -  cssProviderLoadFromData cssProvider cssPtr len
    -
    --- |Loads the data contained in @path@ into @cssProvider@, making it clear any previously
    --- loaded information
    -cssProviderLoadFromPath :: CssProviderClass cssProvider
    -                        => cssProvider -- ^ @cssProvider@ a @CssProvider@
    -                        -> FilePath    -- ^ the path of a filename to load
    -                        -> IO ()
    -cssProviderLoadFromPath cssProvider path =
    -  propagateGError $ \errPtrPtr ->
    -  withUTFString path $ \pathPtr ->
    -  {# call gtk_css_provider_load_from_path #}
    -  (toCssProvider cssProvider)
    -  pathPtr
    -  errPtrPtr >> return ()
    -
    -#if GTK_CHECK_VERSION(3,2,0)
    --- | Convertes the @provider@ into a string representation in CSS format.
    ---
    --- Using @cssProviderLoadFromString@ with the return value from this function
    --- on a new provider created with @cssProviderNew@ will basically create a
    --- duplicate of this @provider@.
    -cssProviderToString :: CssProviderClass cssProvider
    -                    => cssProvider -- ^ @provider@ a @CssProvider@
    -                    -> IO String
    -cssProviderToString provider =
    -  {# call gtk_css_provider_to_string #}
    -  (toCssProvider provider) >>= peekUTFString
    -#endif
    -
    -#endif
    rmfile ./gtk/Graphics/UI/Gtk/General/CssProvider.chs
    hunk ./gtk/Graphics/UI/Gtk/General/Drag.chs 73
    -#if GTK_MAJOR_VERSION < 3
    hunk ./gtk/Graphics/UI/Gtk/General/Drag.chs 76
    -#endif
    hunk ./gtk/Graphics/UI/Gtk/General/Drag.chs 153
    -#if GTK_MAJOR_VERSION < 3
    hunk ./gtk/Graphics/UI/Gtk/General/Drag.chs 156
    -#endif
    hunk ./gtk/Graphics/UI/Gtk/General/Drag.chs 166
    -#if GTK_MAJOR_VERSION < 3
    hunk ./gtk/Graphics/UI/Gtk/General/Drag.chs 168
    ---
    --- Removed in Gtk3.
    hunk ./gtk/Graphics/UI/Gtk/General/Drag.chs 181
    -#endif
    hunk ./gtk/Graphics/UI/Gtk/General/Enums.chs 44
    -#if GTK_MAJOR_VERSION < 3
    hunk ./gtk/Graphics/UI/Gtk/General/Enums.chs 47
    -#endif
    hunk ./gtk/Graphics/UI/Gtk/General/Enums.chs 48
    -#if GTK_MAJOR_VERSION < 3
    hunk ./gtk/Graphics/UI/Gtk/General/Enums.chs 51
    -#endif
    hunk ./gtk/Graphics/UI/Gtk/General/Enums.chs 59
    -#if GTK_MAJOR_VERSION < 3
    hunk ./gtk/Graphics/UI/Gtk/General/Enums.chs 60
    -#endif
    hunk ./gtk/Graphics/UI/Gtk/General/Enums.chs 68
    -#if GTK_MAJOR_VERSION < 3
    hunk ./gtk/Graphics/UI/Gtk/General/Enums.chs 72
    -#endif
    hunk ./gtk/Graphics/UI/Gtk/General/Enums.chs 81
    -#if GTK_MAJOR_VERSION < 3
    hunk ./gtk/Graphics/UI/Gtk/General/Enums.chs 83
    -#endif
    hunk ./gtk/Graphics/UI/Gtk/General/Enums.chs 89
    -#if GTK_MAJOR_VERSION < 3
    hunk ./gtk/Graphics/UI/Gtk/General/Enums.chs 90
    -#endif
    hunk ./gtk/Graphics/UI/Gtk/General/Enums.chs 215
    -#if GTK_MAJOR_VERSION < 3
    hunk ./gtk/Graphics/UI/Gtk/General/Enums.chs 217
    ---
    --- Removed in Gtk3.
    hunk ./gtk/Graphics/UI/Gtk/General/Enums.chs 219
    -#endif
    hunk ./gtk/Graphics/UI/Gtk/General/Enums.chs 224
    -#if GTK_MAJOR_VERSION < 3
    hunk ./gtk/Graphics/UI/Gtk/General/Enums.chs 225
    ---
    --- Removed in Gtk3.
    hunk ./gtk/Graphics/UI/Gtk/General/Enums.chs 226
    -#endif
    hunk ./gtk/Graphics/UI/Gtk/General/Enums.chs 295
    -#if GTK_MAJOR_VERSION < 3
    hunk ./gtk/Graphics/UI/Gtk/General/Enums.chs 297
    ---
    --- Removed in Gtk3.
    hunk ./gtk/Graphics/UI/Gtk/General/Enums.chs 298
    -#endif
    hunk ./gtk/Graphics/UI/Gtk/General/Enums.chs 346
    -#if GTK_MAJOR_VERSION < 3
    hunk ./gtk/Graphics/UI/Gtk/General/Enums.chs 348
    ---
    --- Removed in Gtk3.
    hunk ./gtk/Graphics/UI/Gtk/General/Enums.chs 351
    ---
    --- Removed in Gtk3.
    hunk ./gtk/Graphics/UI/Gtk/General/Enums.chs 353
    -#endif
    hunk ./gtk/Graphics/UI/Gtk/General/Enums.chs 402
    -#if GTK_MAJOR_VERSION < 3
    hunk ./gtk/Graphics/UI/Gtk/General/Enums.chs 404
    ---
    --- Removed in Gtk3.
    hunk ./gtk/Graphics/UI/Gtk/General/Enums.chs 407
    ---
    --- Removed in Gtk3.
    hunk ./gtk/Graphics/UI/Gtk/General/Enums.chs 408
    -#endif
    hunk ./gtk/Graphics/UI/Gtk/General/Enums.chs 427
    -#if GTK_MAJOR_VERSION < 3
    --- |
    ---
    --- Removed in Gtk3.
    hunk ./gtk/Graphics/UI/Gtk/General/Enums.chs 428
    -#endif
    hunk ./gtk/Graphics/UI/Gtk/General/General.chs 52
    -#if GTK_MAJOR_VERSION < 3
    hunk ./gtk/Graphics/UI/Gtk/General/General.chs 55
    -#endif
    hunk ./gtk/Graphics/UI/Gtk/General/General.chs 299
    -#if GTK_MAJOR_VERSION < 3
    hunk ./gtk/Graphics/UI/Gtk/General/General.chs 300
    ---
    --- Removed in Gtk3.
    hunk ./gtk/Graphics/UI/Gtk/General/General.chs 310
    ---
    --- Removed in Gtk3.
    hunk ./gtk/Graphics/UI/Gtk/General/General.chs 328
    ---
    --- Removed in Gtk3.
    hunk ./gtk/Graphics/UI/Gtk/General/General.chs 332
    -#endif
    hunk ./gtk/Graphics/UI/Gtk/General/IconFactory.chs 322
    -#if defined (WIN32) && GTK_CHECK_VERSION(2,6,0) && GTK_MAJOR_VERSION < 3
    +#if defined (WIN32) && GTK_CHECK_VERSION(2,6,0)
    hunk ./gtk/Graphics/UI/Gtk/General/IconFactory.chs 386
    -#if defined (WIN32) && GTK_CHECK_VERSION(2,6,0) && GTK_MAJOR_VERSION < 3
    +#if defined (WIN32) && GTK_CHECK_VERSION(2,6,0)
    hunk ./gtk/Graphics/UI/Gtk/General/Selection.chs 73
    -#if GTK_MAJOR_VERSION < 3
    hunk ./gtk/Graphics/UI/Gtk/General/Selection.chs 74
    -#endif
    hunk ./gtk/Graphics/UI/Gtk/General/Selection.chs 85
    -#if GTK_MAJOR_VERSION < 3
    hunk ./gtk/Graphics/UI/Gtk/General/Selection.chs 86
    -#endif
    hunk ./gtk/Graphics/UI/Gtk/General/Selection.chs 112
    -#if GTK_MAJOR_VERSION < 3
    hunk ./gtk/Graphics/UI/Gtk/General/Selection.chs 113
    -#endif
    hunk ./gtk/Graphics/UI/Gtk/General/Selection.chs 262
    --- The GtkSelectionData struct was made opaque in Gtk3, but the accessor routines
    --- where introduced in 2.14.
    hunk ./gtk/Graphics/UI/Gtk/General/Selection.chs 274
    -#if GTK_MAJOR_VERSION < 3
    hunk ./gtk/Graphics/UI/Gtk/General/Selection.chs 277
    ---
    --- Removed in Gtk3.
    hunk ./gtk/Graphics/UI/Gtk/General/Selection.chs 291
    -#endif
    hunk ./gtk/Graphics/UI/Gtk/General/Selection.chs 393
    -#if GTK_MAJOR_VERSION < 3
    hunk ./gtk/Graphics/UI/Gtk/General/Selection.chs 394
    ---
    --- Removed in Gtk3.
    hunk ./gtk/Graphics/UI/Gtk/General/Selection.chs 398
    -#endif
    hunk ./gtk/Graphics/UI/Gtk/General/Structs.hsc 8
    -#if GTK_MAJOR_VERSION >= 3
    -#include <gtk/gtkx.h>
    -#endif
    hunk ./gtk/Graphics/UI/Gtk/General/Structs.hsc 37
    -#if GTK_MAJOR_VERSION < 3
    hunk ./gtk/Graphics/UI/Gtk/General/Structs.hsc 42
    -#endif
    hunk ./gtk/Graphics/UI/Gtk/General/Structs.hsc 47
    -#if GTK_MAJOR_VERSION < 3
    hunk ./gtk/Graphics/UI/Gtk/General/Structs.hsc 50
    -#endif
    hunk ./gtk/Graphics/UI/Gtk/General/Structs.hsc 60
    -#if GTK_MAJOR_VERSION < 3
    hunk ./gtk/Graphics/UI/Gtk/General/Structs.hsc 65
    -#endif
    hunk ./gtk/Graphics/UI/Gtk/General/Structs.hsc 66
    -#if GTK_MAJOR_VERSION < 3
    hunk ./gtk/Graphics/UI/Gtk/General/Structs.hsc 73
    -#endif
    hunk ./gtk/Graphics/UI/Gtk/General/Structs.hsc 81
    -#if GTK_MAJOR_VERSION < 3
    hunk ./gtk/Graphics/UI/Gtk/General/Structs.hsc 91
    -#endif
    hunk ./gtk/Graphics/UI/Gtk/General/Structs.hsc 101
    -#if GTK_MAJOR_VERSION < 3
    hunk ./gtk/Graphics/UI/Gtk/General/Structs.hsc 102
    -#endif
    hunk ./gtk/Graphics/UI/Gtk/General/Structs.hsc 115
    -#if GTK_MAJOR_VERSION < 3
    hunk ./gtk/Graphics/UI/Gtk/General/Structs.hsc 117
    -#endif
    hunk ./gtk/Graphics/UI/Gtk/General/Structs.hsc 169
    -#if GTK_MAJOR_VERSION < 3
    hunk ./gtk/Graphics/UI/Gtk/General/Structs.hsc 171
    -#endif
    hunk ./gtk/Graphics/UI/Gtk/General/Structs.hsc 173
    -#if GTK_MAJOR_VERSION < 3
    hunk ./gtk/Graphics/UI/Gtk/General/Structs.hsc 190
    ---
    --- Removed in Gtk3.
    hunk ./gtk/Graphics/UI/Gtk/General/Structs.hsc 369
    ---
    --- Removed in Gtk3.
    hunk ./gtk/Graphics/UI/Gtk/General/Structs.hsc 389
    -#endif
    hunk ./gtk/Graphics/UI/Gtk/General/Structs.hsc 391
    -#if GTK_MAJOR_VERSION < 3
    hunk ./gtk/Graphics/UI/Gtk/General/Structs.hsc 395
    ---
    --- Removed in Gtk3.
    hunk ./gtk/Graphics/UI/Gtk/General/Structs.hsc 404
    ---
    --- Removed in Gtk3.
    hunk ./gtk/Graphics/UI/Gtk/General/Structs.hsc 408
    -#endif
    hunk ./gtk/Graphics/UI/Gtk/General/Structs.hsc 458
    -#if GTK_MAJOR_VERSION < 3
    hunk ./gtk/Graphics/UI/Gtk/General/Structs.hsc 476
    -#endif
    hunk ./gtk/Graphics/UI/Gtk/General/Structs.hsc 587
    -#if GTK_MAJOR_VERSION < 3
    hunk ./gtk/Graphics/UI/Gtk/General/Structs.hsc 588
    -#else
    -newtype NativeWindowId = NativeWindowId #{gtk2hs_type Window} deriving (Eq, Show)
    -#endif
    hunk ./gtk/Graphics/UI/Gtk/General/Structs.hsc 599
    -#if GTK_MAJOR_VERSION < 3
    hunk ./gtk/Graphics/UI/Gtk/General/Structs.hsc 606
    -#else
    -#if !defined(HAVE_QUARTZ_GTK) && !defined(WIN32)
    -foreign import ccall unsafe "gdk_x11_window_get_xid" [_$_]
    -  gdk_x11_drawable_get_xid :: (Ptr DrawWindow) -> IO CInt
    -#endif
    -#endif
    hunk ./gtk/Graphics/UI/Gtk/General/Structs.hsc 608
    -#if GTK_MAJOR_VERSION < 3
    hunk ./gtk/Graphics/UI/Gtk/General/Structs.hsc 609
    -#else
    -drawableGetID :: DrawWindowClass d => d -> IO NativeWindowId
    -#endif
    hunk ./gtk/Graphics/UI/Gtk/General/Structs.hsc 611
    -#if GTK_MAJOR_VERSION < 3
    hunk ./gtk/Graphics/UI/Gtk/General/Structs.hsc 612
    -#else
    -  (\(DrawWindow drawable) ->
    -#endif
    -#if defined(WIN32) && GTK_MAJOR_VERSION < 3
    +#if defined(WIN32)
    hunk ./gtk/Graphics/UI/Gtk/General/Structs.hsc 625
    -#if GTK_MAJOR_VERSION < 3
    hunk ./gtk/Graphics/UI/Gtk/General/Structs.hsc 626
    -#else
    -  ) (toDrawWindow d)
    -#endif
    hunk ./gtk/Graphics/UI/Gtk/General/Structs.hsc 628
    -#if GTK_MAJOR_VERSION < 3
    hunk ./gtk/Graphics/UI/Gtk/General/Structs.hsc 632
    ---
    --- Removed in Gtk3.
    hunk ./gtk/Graphics/UI/Gtk/General/Structs.hsc 638
    -#endif
    hunk ./gtk/Graphics/UI/Gtk/General/Structs.hsc 692
    -#if GTK_MAJOR_VERSION < 3
    hunk ./gtk/Graphics/UI/Gtk/General/Structs.hsc 694
    ---
    --- Removed in Gtk3.
    hunk ./gtk/Graphics/UI/Gtk/General/Structs.hsc 698
    -#endif
    hunk ./gtk/Graphics/UI/Gtk/General/Structs.hsc 700
    -#if GTK_MAJOR_VERSION < 3
    hunk ./gtk/Graphics/UI/Gtk/General/Structs.hsc 712
    -#endif
    hunk ./gtk/Graphics/UI/Gtk/General/Structs.hsc 713
    -#if GTK_MAJOR_VERSION < 3
    hunk ./gtk/Graphics/UI/Gtk/General/Structs.hsc 723
    ---
    --- Removed in Gtk3.
    hunk ./gtk/Graphics/UI/Gtk/General/Structs.hsc 734
    ---
    --- Removed in Gtk3.
    hunk ./gtk/Graphics/UI/Gtk/General/Structs.hsc 745
    ---
    --- Removed in Gtk3.
    hunk ./gtk/Graphics/UI/Gtk/General/Structs.hsc 753
    ---
    --- Removed in Gtk3.
    hunk ./gtk/Graphics/UI/Gtk/General/Structs.hsc 760
    -#endif
    hunk ./gtk/Graphics/UI/Gtk/General/Structs.hsc 864
    -#if GTK_MAJOR_VERSION < 3
    hunk ./gtk/Graphics/UI/Gtk/General/Structs.hsc 865
    ---
    --- Removed in Gtk3.
    hunk ./gtk/Graphics/UI/Gtk/General/Structs.hsc 872
    ---
    --- Removed in Gtk3.
    hunk ./gtk/Graphics/UI/Gtk/General/Structs.hsc 879
    ---
    --- Removed in Gtk3.
    hunk ./gtk/Graphics/UI/Gtk/General/Structs.hsc 886
    ---
    --- Removed in Gtk3.
    hunk ./gtk/Graphics/UI/Gtk/General/Structs.hsc 915
    -#endif
    hunk ./gtk/Graphics/UI/Gtk/General/Structs.hsc 967
    -#if GTK_MAJOR_VERSION < 3
    hunk ./gtk/Graphics/UI/Gtk/General/Structs.hsc 972
    -#endif
    hunk ./gtk/Graphics/UI/Gtk/General/Style.chs 64
    -#if GTK_MAJOR_VERSION < 3
    hunk ./gtk/Graphics/UI/Gtk/General/Style.chs 66
    -#endif
    hunk ./gtk/Graphics/UI/Gtk/General/Style.chs 87
    -#if GTK_MAJOR_VERSION < 3
    hunk ./gtk/Graphics/UI/Gtk/General/Style.chs 137
    -#endif
    hunk ./gtk/Graphics/UI/Gtk/General/StyleContext.chs 1
    -{-# LANGUAGE CPP #-}
    --- -*-haskell-*-
    ---  GIMP Toolkit (GTK) Styles
    ---
    ---  Author : Axel Simon
    ---
    ---  Created: 13 February 2003
    ---
    ---  Copyright (C) 1999-2005 Axel Simon
    ---
    ---  This library is free software; you can redistribute it and/or
    ---  modify it under the terms of the GNU Lesser General Public
    ---  License as published by the Free Software Foundation; either
    ---  version 2.1 of the License, or (at your option) any later version.
    ---
    ---  This library is distributed in the hope that it will be useful,
    ---  but WITHOUT ANY WARRANTY; without even the implied warranty of
    ---  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
    ---  Lesser General Public License for more details.
    ---
    --- |
    --- Maintainer  : gtk...@li...
    --- Stability   : provisional
    --- Portability : portable (depends on GHC)
    ---
    --- Rendering UI elements
    ---
    -module Graphics.UI.Gtk.General.StyleContext (
    --- * Description
    ---
    --- | GtkStyleContext is an object that stores styling information
    --- affecting a widget defined by @WidgetPath@.
    ---
    --- In order to construct the final style information, @StyleContext@
    --- queries information from all attached @StyleProviders@. Style
    --- providers can be either attached explicitly to the context through
    --- @styleContextAddProvider@, or to the screen through @styleContextAddProviderForScreen.
    --- The resulting style is a combination of all providers' information
    --- in priority order.
    ---
    --- For GTK+ widgets, any @StyleContext@ returned by widgetGetStyleContext
    --- will already have a @WidgetPath@, a @Screen@ and RTL/LTR information set.
    --- The style context will be also updated automatically if any of these
    --- settings change on the widget.
    ---
    --- If you are using the theming layer standalone, you will need to set a
    --- widget path and a screen yourself to the created style context through
    --- @styleContextSetPath@ and @styleContextSetScreen@, as well as updating
    --- the context yourself using @styleContextInvalidate@ whenever any of the
    --- conditions change, such as a change in the "gtk-theme-name" setting or
    --- a hierarchy change in the rendered widget.
    ---
    -
    -#if GTK_MAJOR_VERSION >= 3
    --- * Types
    -  StyleContext,
    -  StyleContextClass,
    -  castToStyleContext, gTypeStyleContext,
    -  toStyleContext,
    -
    --- * Constructors
    -  styleContextNew,
    -
    --- * Methods
    -  styleContextAddProvider,
    -  styleContextAddProviderForScreen,
    -#endif
    -
    -  ) where
    -
    -{# context prefix ="gtk" #}
    -
    -import Control.Monad (liftM)
    -
    -import System.Glib.FFI
    -import System.Glib.UTFString
    -{#import Graphics.UI.Gtk.Types#}
    -import System.Glib.GError (GError(..), GErrorClass(..), GErrorDomain,
    -                           propagateGError)
    -
    -#if GTK_MAJOR_VERSION >= 3
    --- | Creates a standalone @StyleContext@, this style context won't be attached
    --- to any widget, so you may want to call @styleContextSetPath@ yourself.
    ---
    --- Note : This function is only useful when using the theming layer separated
    --- from GTK+, if you are using @StyleContext@ to theme @Widgets@, use
    --- @widgetGetStyleContext@ in order to get a style context ready to theme
    --- the widget.
    -styleContextNew :: IO StyleContext -- ^ A newly created StyleContext
    -styleContextNew =
    -  wrapNewGObject mkStyleContext {# call gtk_style_context_new #}
    -
    --- | Adds a style provider to @context@, to be used in style construction.
    --- Note that a style provider added by this function only affects the
    --- style of the widget to which @context@ belongs. If you want to affect
    --- the style of all widgets, use @styleContextAddProviderForScreen@.
    ---
    --- Note : If both priorities are the same, A @StyleProvider@ added through
    --- this function takes precedence over another added through
    --- @styleContextAddProviderForScreen.
    -styleContextAddProvider :: (StyleContextClass context, StyleProviderClass provider)
    -                        => context  -- ^ @context@ a @StyleContext@
    -                        -> provider -- ^ @provider@ a @StyleProvider@
    -                        -> Int      -- ^ @priority@ : the priority of the style provider.
    -                                    -- The lower it is, the earlier it will be used in the
    -                                    -- style construction. Typically this will be in the
    -                                    -- range between GTK_STYLE_PROVIDER_PRIORITY_FALLBACK
    -                                    -- and GTK_STYLE_PROVIDER_PRIORITY_USER
    -                        -> IO ()
    -styleContextAddProvider context provider priority =
    -  {# call gtk_style_context_add_provider #}
    -  (toStyleContext context)
    -  (toStyleProvider provider)
    -  (fromIntegral priority)
    -
    --- | Adds a global style provider to @screen@, which will be used in style
    --- construction for all @StyleContexts@ under @screen@.
    ---
    --- GTK+ uses this to make styling information from @Settings@ available.
    ---
    --- Note : If both priorities are the same, A @StyleProvider@ added through
    --- @styleContextAddProvider@ takes precedence over another added through
    --- this function.
    -styleContextAddProviderForScreen :: (ScreenClass screen, StyleProviderClass provider)
    -                        => screen   -- ^ @screen@ a @Screen@
    -                        -> provider -- ^ @provider@ a @StyleProvider@
    -                        -> Int      -- ^ @priority@ : the priority of the style provider.
    -                                    -- The lower it is, the earlier it will be used in the
    -                                    -- style construction. Typically this will be in the
    -                                    -- range between GTK_STYLE_PROVIDER_PRIORITY_FALLBACK
    -                                    -- and GTK_STYLE_PROVIDER_PRIORITY_USER
    -                        -> IO ()
    -styleContextAddProviderForScreen screen provider priority =
    -  {# call gtk_style_context_add_provider_for_screen #}
    -  (toScreen screen)
    -  (toStyleProvider provider)
    -  (fromIntegral priority)
    -
    -#endif
    rmfile ./gtk/Graphics/UI/Gtk/General/StyleContext.chs
    hunk ./gtk/Graphics/UI/Gtk/General/StyleProvider.chs 1
    -{-# LANGUAGE CPP #-}
    --- -*-haskell-*-
    ---  GIMP Toolkit (GTK) Styles
    ---
    ---  Author : Axel Simon
    ---
    ---  Created: 13 February 2003
    ---
    ---  Copyright (C) 1999-2005 Axel Simon
    ---
    ---  This library is free software; you can redistribute it and/or
    ---  modify it under the terms of the GNU Lesser General Public
    ---  License as published by the Free Software Foundation; either
    ---  version 2.1 of the License, or (at your option) any later version.
    ---
    ---  This library is distributed in the hope that it will be useful,
    ---  but WITHOUT ANY WARRANTY; without even the implied warranty of
    ---  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
    ---  Lesser General Public License for more details.
    ---
    --- |
    --- Maintainer  : gtk...@li...
    --- Stability   : provisional
    --- Portability : portable (depends on GHC)
    ---
    --- Interface to provide style information to @StyleContext@
    ---
    -module Graphics.UI.Gtk.General.StyleProvider (
    --- * Description
    ---
    --- | @StyleProvider@ is an interface used to provide style information
    --- to a @StyleContext@. See @styleContextAddProvider@ and
    --- @styleContextAddProviderForScreen@.
    ---
    --- @StyleProvider@ is implemented by @CssProvider@ and @Settings@.
    -#if GTK_MAJOR_VERSION >= 3
    --- * Typess
    -  StyleProvider,
    -  StyleProviderClass,
    -  castToStyleProvider, gTypeStyleProvider,
    -  toStyleProvider,
    -#endif
    -
    -  ) where
    -
    -{# context prefix ="gtk" #}
    -
    -import Control.Monad (liftM)
    -
    -import System.Glib.FFI
    -import System.Glib.UTFString
    -{#import Graphics.UI.Gtk.Types#}
    -import System.Glib.GError (GError(..), GErrorClass(..), GErrorDomain,
    -                           propagateGError)
    -
    -#if GTK_MAJOR_VERSION >= 3
    -#endif
    rmfile ./gtk/Graphics/UI/Gtk/General/StyleProvider.chs
    hunk ./gtk/Graphics/UI/Gtk/Layout/Fixed.chs 87
    -#if GTK_MAJOR_VERSION < 3
    hunk ./gtk/Graphics/UI/Gtk/Layout/Fixed.chs 92
    -#endif
    hunk ./gtk/Graphics/UI/Gtk/Layout/Fixed.chs 149
    -#if GTK_MAJOR_VERSION < 3
    hunk ./gtk/Graphics/UI/Gtk/Layout/Fixed.chs 156
    ---
    --- Removed in Gtk3. Use the Widget version.
    hunk ./gtk/Graphics/UI/Gtk/Layout/Fixed.chs 164
    ---
    --- Removed in Gtk3. Use the Widget version.
    hunk ./gtk/Graphics/UI/Gtk/Layout/Fixed.chs 174
    ---
    --- Removed in Gtk3. Use the Widget version.
    hunk ./gtk/Graphics/UI/Gtk/Layout/Fixed.chs 178
    -#endif
    hunk ./gtk/Graphics/UI/Gtk/Layout/Layout.chs 66
    -#if GTK_MAJOR_VERSION < 3
    hunk ./gtk/Graphics/UI/Gtk/Layout/Layout.chs 67
    -#endif
    hunk ./gtk/Graphics/UI/Gtk/Layout/Layout.chs 92
    -#if GTK_MAJOR_VERSION < 3
    hunk ./gtk/Graphics/UI/Gtk/Layout/Layout.chs 93
    -#endif
    hunk ./gtk/Graphics/UI/Gtk/Layout/Notebook.chs 70
    -#if GTK_MAJOR_VERSION < 3
    hunk ./gtk/Graphics/UI/Gtk/Layout/Notebook.chs 71
    -#endif
    hunk ./gtk/Graphics/UI/Gtk/Layout/Notebook.chs 99
    -#if GTK_MAJOR_VERSION < 3
    hunk ./gtk/Graphics/UI/Gtk/Layout/Notebook.chs 104
    -#endif
    hunk ./gtk/Graphics/UI/Gtk/Layout/Notebook.chs 117
    -#if GTK_MAJOR_VERSION < 3
    hunk ./gtk/Graphics/UI/Gtk/Layout/Notebook.chs 122
    -#endif
    hunk ./gtk/Graphics/UI/Gtk/Layout/Notebook.chs 202
    -#if GTK_MAJOR_VERSION < 3
    hunk ./gtk/Graphics/UI/Gtk/Layout/Notebook.chs 203
    -#endif
    hunk ./gtk/Graphics/UI/Gtk/Layout/Notebook.chs 675
    -#if GTK_MAJOR_VERSION < 3
    hunk ./gtk/Graphics/UI/Gtk/Layout/Notebook.chs 682
    ---
    --- Removed in Gtk3.
    hunk ./gtk/Graphics/UI/Gtk/Layout/Notebook.chs 694
    ---
    --- Removed in Gtk3.
    hunk ./gtk/Graphics/UI/Gtk/Layout/Notebook.chs 706
    ---
    --- Removed in Gtk3.
    hunk ./gtk/Graphics/UI/Gtk/Layout/Notebook.chs 714
    -#endif
    hunk ./gtk/Graphics/UI/Gtk/Layout/Notebook.chs 841
    -#if GTK_MAJOR_VERSION < 3
    hunk ./gtk/Graphics/UI/Gtk/Layout/Notebook.chs 843
    ---
    --- Removed in Gtk3.
    hunk ./gtk/Graphics/UI/Gtk/Layout/Notebook.chs 864
    ---
    --- Removed in Gtk3.
    hunk ./gtk/Graphics/UI/Gtk/Layout/Notebook.chs 883
    ---
    --- Removed in Gtk3.
    hunk ./gtk/Graphics/UI/Gtk/Layout/Notebook.chs 891
    -#endif
    hunk ./gtk/Graphics/UI/Gtk/MenuComboToolbar/Combo.chs 35
    ---
    --- This module is empty in Gtk3 as Combo has been removed.
    hunk ./gtk/Graphics/UI/Gtk/MenuComboToolbar/Combo.chs 65
    -#if GTK_MAJOR_VERSION < 3
    hunk ./gtk/Graphics/UI/Gtk/MenuComboToolbar/Combo.chs 90
    -#endif
    hunk ./gtk/Graphics/UI/Gtk/MenuComboToolbar/Combo.chs 92
    -#if GTK_MAJOR_VERSION < 3
    hunk ./gtk/Graphics/UI/Gtk/MenuComboToolbar/Combo.chs 234
    -#endif
    hunk ./gtk/Graphics/UI/Gtk/MenuComboToolbar/ComboBoxEntry.chs 51
    ---
    --- * This module is deprecated and the functionality removed in Gtk3. It is
    ---   therefore empty in Gtk3.
    hunk ./gtk/Graphics/UI/Gtk/MenuComboToolbar/ComboBoxEntry.chs 64
    -#if GTK_MAJOR_VERSION < 3
    hunk ./gtk/Graphics/UI/Gtk/MenuComboToolbar/ComboBoxEntry.chs 88
    -#endif
    hunk ./gtk/Graphics/UI/Gtk/MenuComboToolbar/ComboBoxEntry.chs 90
    -#if GTK_MAJOR_VERSION < 3
    hunk ./gtk/Graphics/UI/Gtk/MenuComboToolbar/ComboBoxEntry.chs 228
    -#endif
    hunk ./gtk/Graphics/UI/Gtk/MenuComboToolbar/MenuItem.chs 112
    -#if GTK_MAJOR_VERSION < 3
    hunk ./gtk/Graphics/UI/Gtk/MenuComboToolbar/MenuItem.chs 125
    -#endif
    hunk ./gtk/Graphics/UI/Gtk/MenuComboToolbar/MenuItem.chs 381
    -#if GTK_MAJOR_VERSION < 3
    hunk ./gtk/Graphics/UI/Gtk/MenuComboToolbar/MenuItem.chs 415
    -#endif
    hunk ./gtk/Graphics/UI/Gtk/MenuComboToolbar/MenuToolButton.chs 68
    -#if GTK_MAJOR_VERSION < 3
    hunk ./gtk/Graphics/UI/Gtk/MenuComboToolbar/MenuToolButton.chs 69
    -#endif
    hunk ./gtk/Graphics/UI/Gtk/MenuComboToolbar/MenuToolButton.chs 153
    -#if GTK_MAJOR_VERSION < 3
    hunk ./gtk/Graphics/UI/Gtk/MenuComboToolbar/MenuToolButton.chs 170
    -#endif
    hunk ./gtk/Graphics/UI/Gtk/MenuComboToolbar/OptionMenu.chs 27
    ---
    --- * Warning: this module is deprecated and should not be used in
    --- newly-written code. It is empty in Gtk3.
    ---
    hunk ./gtk/Graphics/UI/Gtk/MenuComboToolbar/OptionMenu.chs 57
    -#if GTK_MAJOR_VERSION < 3
    hunk ./gtk/Graphics/UI/Gtk/MenuComboToolbar/OptionMenu.chs 81
    -#endif
    hunk ./gtk/Graphics/UI/Gtk/MenuComboToolbar/OptionMenu.chs 94
    -#if GTK_MAJOR_VERSION < 3
    hunk ./gtk/Graphics/UI/Gtk/MenuComboToolbar/OptionMenu.chs 179
    -#endif
    hunk ./gtk/Graphics/UI/Gtk/MenuComboToolbar/ToolItem.chs 68
    -#if GTK_MAJOR_VERSION < 3
    hunk ./gtk/Graphics/UI/Gtk/MenuComboToolbar/ToolItem.chs 69
    -#endif
    hunk ./gtk/Graphics/UI/Gtk/MenuComboToolbar/ToolItem.chs 176
    -#if GTK_MAJOR_VERSION < 3
    hunk ./gtk/Graphics/UI/Gtk/MenuComboToolbar/ToolItem.chs 179
    ---
    --- Removed in Gtk3.
    hunk ./gtk/Graphics/UI/Gtk/MenuComboToolbar/ToolItem.chs 192
    -#endif
    hunk ./gtk/Graphics/UI/Gtk/MenuComboToolbar/Toolbar.chs 94
    -#if GTK_MAJOR_VERSION < 3
    hunk ./gtk/Graphics/UI/Gtk/MenuComboToolbar/Toolbar.chs 110
    -#endif
    hunk ./gtk/Graphics/UI/Gtk/MenuComboToolbar/Toolbar.chs 113
    -#if GTK_MAJOR_VERSION < 3
    hunk ./gtk/Graphics/UI/Gtk/MenuComboToolbar/Toolbar.chs 115
    -#endif
    hunk ./gtk/Graphics/UI/Gtk/MenuComboToolbar/Toolbar.chs 134
    -#if GTK_MAJOR_VERSION < 3
    hunk ./gtk/Graphics/UI/Gtk/MenuComboToolbar/Toolbar.chs 135
    -#endif
    hunk ....
 
[truncated message content]