From: Axel S. <as...@us...> - 2005-11-26 16:00:32
|
Update of /cvsroot/gtk2hs/gtk2hs/gtk/Graphics/UI/Gtk/Misc In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv29345/gtk/Graphics/UI/Gtk/Misc Modified Files: SizeGroup.chs.pp Log Message: Replaced occurrences of makeNewGObject with constructNewGObject if the function does pass the reference count to the caller. Index: SizeGroup.chs.pp =================================================================== RCS file: /cvsroot/gtk2hs/gtk2hs/gtk/Graphics/UI/Gtk/Misc/SizeGroup.chs.pp,v retrieving revision 1.3 retrieving revision 1.4 diff -u -d -r1.3 -r1.4 --- SizeGroup.chs.pp 19 Oct 2005 12:57:37 -0000 1.3 +++ SizeGroup.chs.pp 26 Nov 2005 16:00:22 -0000 1.4 @@ -92,7 +92,7 @@ import System.Glib.FFI import System.Glib.Attributes -import System.Glib.GObject (makeNewGObject) +import System.Glib.GObject (constructNewGObject) {#import Graphics.UI.Gtk.Types#} {#import Graphics.UI.Gtk.Signals#} @@ -109,7 +109,7 @@ SizeGroupMode -- ^ @mode@ - the mode for the new size group. -> IO SizeGroup sizeGroupNew mode = - makeNewGObject mkSizeGroup $ + constructNewGObject mkSizeGroup $ {# call unsafe size_group_new #} ((fromIntegral . fromEnum) mode) |