[Gtk2hs-commit] (main branch): Bring AboutDialog up to date.

[Axel S. <si...@co...>]

Sun Nov 15 15:14:08 EST 2009  Axel Simon <Axe...@en...>
  * Bring AboutDialog up to date.

    hunk ./gtk/Graphics/UI/Gtk/Windows/AboutDialog.chs.pp 46
    +-- Since 2.18 'AboutDialog' provides default website and email hooks that
    +-- use 'showURI'.
    +--
    +-- Note that Gtk+ sets a default title of @_(\"About %s\")@ on the dialog
    +-- window (where %s is replaced by the name of the application, but in order to
    +-- ensure proper translation of the title, applications should set the title
    +-- property explicitly when constructing a 'AboutDialog', as shown in the
    +-- following example:
    +--
    +-- Note that prior to Gtk+ 2.12, the 'aboutDialogProgramName' property was called
    +-- 'aboutDialogName'. Both names may be used in Gtk2Hs.
    hunk ./gtk/Graphics/UI/Gtk/Windows/AboutDialog.chs.pp 82
    +  aboutDialogSetEmailHook,
    +  aboutDialogSetUrlHook,
    +
    +-- * Attributes
    +  aboutDialogProgramName,
    +  aboutDialogName,
    +  aboutDialogVersion,
    +  aboutDialogCopyright,
    +  aboutDialogComments,
    +  aboutDialogLicense,
    +  aboutDialogWebsite,
    +  aboutDialogWebsiteLabel,
    +  aboutDialogAuthors,
    +  aboutDialogDocumenters,
    +  aboutDialogArtists,
    +  aboutDialogTranslatorCredits,
    +  aboutDialogLogo,
    +  aboutDialogLogoIconName,
    +#if GTK_CHECK_VERSION(2,8,0)
    +  aboutDialogWrapLicense,
    +#endif
    +
    +-- * Deprecated
    +#ifndef DISABLE_DEPRECATED
    +#if GTK_CHECK_VERSION(2,12,0)
    +  aboutDialogGetProgramName,
    +  aboutDialogSetProgramName,
    +#endif
    hunk ./gtk/Graphics/UI/Gtk/Windows/AboutDialog.chs.pp 136
    -  aboutDialogSetEmailHook,
    -  aboutDialogSetUrlHook,
    hunk ./gtk/Graphics/UI/Gtk/Windows/AboutDialog.chs.pp 140
    -
    --- * Attributes
    -  aboutDialogName,
    -  aboutDialogVersion,
    -  aboutDialogCopyright,
    -  aboutDialogComments,
    -  aboutDialogLicense,
    -  aboutDialogWebsite,
    -  aboutDialogWebsiteLabel,
    -  aboutDialogAuthors,
    -  aboutDialogDocumenters,
    -  aboutDialogArtists,
    -  aboutDialogTranslatorCredits,
    -  aboutDialogLogo,
    -  aboutDialogLogoIconName,
    hunk ./gtk/Graphics/UI/Gtk/Windows/AboutDialog.chs.pp 141
    -#if GTK_CHECK_VERSION(2,8,0)
    -  aboutDialogWrapLicense,
    hunk ./gtk/Graphics/UI/Gtk/Windows/AboutDialog.chs.pp 150
    +import System.Glib.Properties
    hunk ./gtk/Graphics/UI/Gtk/Windows/AboutDialog.chs.pp 504
    -aboutDialogName = newAttr
    -  aboutDialogGetName
    -  aboutDialogSetName
    +aboutDialogName = newAttrFromStringProperty "name"
    +
    +-- | The name of the program. If this is not set, it defaults to
    +-- 'gGetApplicationName'.
    +--
    +#if GTK_CHECK_VERSION(2,12,0)
    +aboutDialogProgramName :: AboutDialogClass self => Attr self String
    +aboutDialogProgramName = newAttrFromStringProperty "program-name"
    +#else
    +aboutDialogProgramName :: AboutDialogClass self => Attr self String
    +aboutDialogProgramName = newAttrFromStringProperty "name"
    +#endif
    hunk ./gtk/Graphics/UI/Gtk/Windows/AboutDialog.chs.pp 520
    -aboutDialogVersion = newAttr
    -  aboutDialogGetVersion
    -  aboutDialogSetVersion
    +aboutDialogVersion = newAttrFromStringProperty "version"
    hunk ./gtk/Graphics/UI/Gtk/Windows/AboutDialog.chs.pp 525
    -aboutDialogCopyright = newAttr
    -  aboutDialogGetCopyright
    -  aboutDialogSetCopyright
    +aboutDialogCopyright = newAttrFromStringProperty "copyright"
    hunk ./gtk/Graphics/UI/Gtk/Windows/AboutDialog.chs.pp 532
    -aboutDialogComments = newAttr
    -  aboutDialogGetComments
    -  aboutDialogSetComments
    +aboutDialogComments = newAttrFromStringProperty "comments"
    hunk ./gtk/Graphics/UI/Gtk/Windows/AboutDialog.chs.pp 543
    -aboutDialogLicense = newAttr
    -  aboutDialogGetLicense
    -  aboutDialogSetLicense
    +aboutDialogLicense = newAttrFromMaybeStringProperty "license"
    hunk ./gtk/Graphics/UI/Gtk/Windows/AboutDialog.chs.pp 549
    -aboutDialogWebsite = newAttr
    -  aboutDialogGetWebsite
    -  aboutDialogSetWebsite
    +aboutDialogWebsite = newAttrFromStringProperty "website"
    hunk ./gtk/Graphics/UI/Gtk/Windows/AboutDialog.chs.pp 555
    -aboutDialogWebsiteLabel = newAttr
    -  aboutDialogGetWebsiteLabel
    -  aboutDialogSetWebsiteLabel
    +aboutDialogWebsiteLabel = newAttrFromStringProperty "website-label"
    hunk ./gtk/Graphics/UI/Gtk/Windows/AboutDialog.chs.pp 589
    -aboutDialogTranslatorCredits = newAttr
    -  aboutDialogGetTranslatorCredits
    -  aboutDialogSetTranslatorCredits
    +aboutDialogTranslatorCredits = newAttrFromStringProperty "translator-credits"
    hunk ./gtk/Graphics/UI/Gtk/Windows/AboutDialog.chs.pp 616
    -aboutDialogWrapLicense = newAttr
    -  aboutDialogGetWrapLicense
    -  aboutDialogSetWrapLicense
    +aboutDialogWrapLicense = newAttrFromBoolProperty "wrap-license"