[Gtk2hs-commit] (main branch): gstreamer: fix marshaling on Structure where GValues weren't initialized properly

[Peter g. <pg...@co...>]

Sun Jan 11 23:40:35 EST 2009  Peter Gavin <pg...@gm...>
  * gstreamer: fix marshaling on Structure where GValues weren't initialized properly
  reported/fixed by Oleg Belozeorov <up...@gm...>

    hunk ./gstreamer/Media/Streaming/GStreamer/Core/Structure.chs 71
    +import System.Glib.GTypeConstants
    hunk ./gstreamer/Media/Streaming/GStreamer/Core/Structure.chs 73
    +{#import System.Glib.GType#}
    hunk ./gstreamer/Media/Streaming/GStreamer/Core/Structure.chs 238
    -marshalStructureSetM :: (GValue -> a -> IO ())
    +marshalStructureSetM :: GType
    +                     -> (GValue -> a -> IO ())
    hunk ./gstreamer/Media/Streaming/GStreamer/Core/Structure.chs 243
    -marshalStructureSetM setGValue fieldname value =
    +marshalStructureSetM valueType setGValue fieldname value =
    hunk ./gstreamer/Media/Streaming/GStreamer/Core/Structure.chs 247
    -            do setGValue gValue value
    +            do valueInit gValue valueType
    +               setGValue gValue value
    hunk ./gstreamer/Media/Streaming/GStreamer/Core/Structure.chs 255
    -    marshalStructureSetM valueSetBool
    +    marshalStructureSetM bool valueSetBool
    hunk ./gstreamer/Media/Streaming/GStreamer/Core/Structure.chs 261
    -    marshalStructureSetM valueSetInt
    +    marshalStructureSetM int valueSetInt
    hunk ./gstreamer/Media/Streaming/GStreamer/Core/Structure.chs 267
    -    marshalStructureSetM $ \gValue fourcc ->
    +    marshalStructureSetM fourcc $ \gValue fourcc ->
    hunk ./gstreamer/Media/Streaming/GStreamer/Core/Structure.chs 274
    -    marshalStructureSetM valueSetDouble
    +    marshalStructureSetM double valueSetDouble
    hunk ./gstreamer/Media/Streaming/GStreamer/Core/Structure.chs 280
    -    marshalStructureSetM valueSetString
    +    marshalStructureSetM string valueSetString
    hunk ./gstreamer/Media/Streaming/GStreamer/Core/Structure.chs 286
    -    marshalStructureSetM $ \gValue date ->
    +    marshalStructureSetM date $ \gValue date ->
    hunk ./gstreamer/Media/Streaming/GStreamer/Core/Structure.chs 293
    -    marshalStructureSetM $ \gValue clockTime ->
    +    marshalStructureSetM uint64 $ \gValue clockTime ->
    hunk ./gstreamer/Media/Streaming/GStreamer/Core/Structure.chs 300
    -    marshalStructureSetM $ \gValue fraction ->
    +    marshalStructureSetM fraction $ \gValue fraction ->
    hunk ./gstreamer/Media/Streaming/GStreamer/Core/Structure.chs 355
    +
    +
    +fourcc = {# call fun fourcc_get_type #}
    +date = {# call fun date_get_type #}         [_$_]
    +fraction = {# call fun fraction_get_type #}         [_$_]