[Gtk2hs-commit] (main branch): Add a few functions to MessageDialog.

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

Mon Sep 15 17:24:55 EDT 2008  A....@ke...
  * Add a few functions to MessageDialog.

    hunk ./gtk/Graphics/UI/Gtk/Windows/MessageDialog.chs.pp 74
    -  --todo: messageDialogSetImage,
    +  messageDialogSetImage,
    hunk ./gtk/Graphics/UI/Gtk/Windows/MessageDialog.chs.pp 83
    +#if GTK_CHECK_VERSION(2,10,0)
    +  messageDialogText,
    +  messageDialogUseMarkup,
    +  messageDialogSecondaryText,
    +  messageDialogSecondaryUseMarkup,
    +  messageDialogImage,
    +#endif
    hunk ./gtk/Graphics/UI/Gtk/Windows/MessageDialog.chs.pp 117
    -{#enum MessageType {underscoreToCase} deriving(Eq)#}
    +{#enum MessageType {underscoreToCase} deriving(Show,Eq)#}
    hunk ./gtk/Graphics/UI/Gtk/Windows/MessageDialog.chs.pp 124
    -{#enum ButtonsType {underscoreToCase} deriving(Eq)#}
    +{#enum ButtonsType {underscoreToCase} deriving(Show,Eq)#}
    hunk ./gtk/Graphics/UI/Gtk/Windows/MessageDialog.chs.pp 136
    -{#enum DialogFlags {underscoreToCase} deriving (Eq,Bounded)#}
    +{#enum DialogFlags {underscoreToCase} deriving (Show,Eq,Bounded)#}
    hunk ./gtk/Graphics/UI/Gtk/Windows/MessageDialog.chs.pp 249
    +
    +#if GTK_CHECK_VERSION(2,10,0)
    +-- %hash c:6cb7 d:ebdd
    +-- | Sets the dialog's image to @image@.
    +--
    +-- * Available since Gtk+ version 2.10
    +--
    +messageDialogSetImage :: (MessageDialogClass self, WidgetClass image) => self
    + -> image -- ^ @image@ - the image
    + -> IO ()
    +messageDialogSetImage self image =
    +  {# call gtk_message_dialog_set_image #}
    +    (toMessageDialog self)
    +    (toWidget image)
    +#endif
    hunk ./gtk/Graphics/UI/Gtk/Windows/MessageDialog.chs.pp 278
    +#if GTK_CHECK_VERSION(2,10,0)
    +-- %hash c:a2fe d:e4a2
    +-- | The primary text of the message dialog. If the dialog has a secondary
    +-- text, this will appear as the title.
    +--
    +-- Default value: @Nothing@
    +--
    +-- * Available since Gtk+ version 2.10
    +--
    +messageDialogText :: MessageDialogClass self => Attr self (Maybe String)
    +messageDialogText = newAttrFromMaybeStringProperty "text"
    +
    +-- %hash c:e1dd d:ca3
    +-- | Interpret the string 'messageDialogText' as markup.
    +--
    +-- Default value: @False@
    +--
    +-- * Available since Gtk+ version 2.10
    +--
    +messageDialogUseMarkup :: MessageDialogClass self => Attr self Bool
    +messageDialogUseMarkup = newAttrFromBoolProperty "use-markup"
    +
    +-- %hash c:9623 d:1fbe
    +-- | The secondary text of the message dialog.
    +--
    +-- Default value: @Nothing@
    +--
    +-- * Available since Gtk+ version 2.10
    +--
    +messageDialogSecondaryText :: MessageDialogClass self => Attr self (Maybe String)
    +messageDialogSecondaryText = newAttrFromMaybeStringProperty "secondary-text"
    +
    +-- %hash c:1ce2 d:ca3
    +-- | Default value: @False@
    +--
    +-- * Available since Gtk+ version 2.10
    +--
    +messageDialogSecondaryUseMarkup :: MessageDialogClass self => Attr self Bool
    +messageDialogSecondaryUseMarkup = newAttrFromBoolProperty "secondary-use-markup"
    +
    +-- %hash c:da36 d:b7dd
    +-- | The image for this dialog.
    +--
    +-- * Available since Gtk+ version 2.10
    +--
    +messageDialogImage :: (MessageDialogClass self, WidgetClass widget) => ReadWriteAttr self Widget widget
    +messageDialogImage = newAttrFromObjectProperty "image"
    +                       {# call pure unsafe gtk_widget_get_type #}
    +#endif
    +