[Gtk2hs-commit] (main branch): Use constructNewGObject create GdkAppLaunchContext

[Andy S. <And...@co...>]

diffing dir...
Wed Sep 22 19:43:14 EDT 2010  Andy Stewart <laz...@gm...>
  * Use constructNewGObject create GdkAppLaunchContext
  Ignore-this: 1d9d67e6665f74134326e0aa0e8dd8b
    {
    hunk ./TODO 3
    -gtk/Graphics/UI/Gtk/Gdk/Colormap.chs
    -gtk/Graphics/UI/Gtk/Gdk/Device.chs
    hunk ./gtk/Graphics/UI/Gtk/Gdk/AppLaunchContext.chs 31
    -  mkAppLaunchContext,
    +  AppLaunchContextClass,
    +  castToAppLaunchContext, [_$_]
    +  gTypeAppLaunchContext,
    +  toAppLaunchContext,
    hunk ./gtk/Graphics/UI/Gtk/Gdk/AppLaunchContext.chs 59
    -{#import System.GIO.Types#} hiding (AppLaunchContext, mkAppLaunchContext)
    +{#import System.GIO.Types#} (Icon (..), IconClass, toIcon)
    hunk ./gtk/Graphics/UI/Gtk/Gdk/AppLaunchContext.chs 65
    ---------------------
    --- Types
    -{#pointer *AppLaunchContext foreign newtype#}
    -
    hunk ./gtk/Graphics/UI/Gtk/Gdk/AppLaunchContext.chs 70
    -appLaunchContextNew = do
    -  ptr <- {# call gdk_app_launch_context_new #}
    -  mkAppLaunchContext ptr
    -
    -mkAppLaunchContext :: Ptr AppLaunchContext -> IO AppLaunchContext
    -mkAppLaunchContext rPtr = do
    -  ptr <- newForeignPtr rPtr objectUnref
    -  return (AppLaunchContext ptr)
    +appLaunchContextNew = [_$_]
    +  constructNewGObject mkAppLaunchContext $
    +  {# call gdk_app_launch_context_new #}
    hunk ./gtk/hierarchy.list 25
    +	    GdkAppLaunchContext		if gtk-2.14
    }