From: Andy S. <And...@co...> - 2010-08-17 03:25:10
|
diffing dir... Mon Aug 16 23:21:15 EDT 2010 Andy Stewart <laz...@gm...> * Add function statusbarGetMessageArea Ignore-this: 76836112f3b4e2fed9b1c4c7dadad9c3 { hunk ./gtk/Graphics/UI/Gtk/Display/Statusbar.chs 5 --- Author : Axel Simon +-- Author : Axel Simon, Andy Stewart hunk ./gtk/Graphics/UI/Gtk/Display/Statusbar.chs 10 +-- Copyright (C) 2010 Andy Stewart hunk ./gtk/Graphics/UI/Gtk/Display/Statusbar.chs 88 +#if GTK_CHECK_VERSION(2,20,0) + statusbarGetMessageArea, +#endif hunk ./gtk/Graphics/UI/Gtk/Display/Statusbar.chs 209 +#if GTK_CHECK_VERSION(2,20,0) +-- | Retrieves the box containing the label widget. +statusbarGetMessageArea :: StatusbarClass self => self -> IO Box +statusbarGetMessageArea self = + makeNewObject mkBox $ + liftM (castPtr :: Ptr Widget -> Ptr Box) $ + {# call unsafe gtk_statusbar_get_message_area #} + (toStatusbar self) + +#endif + } |