[Gtk2hs-commit] (main branch): gstreamer: small fixes in M.S.G.Core.Event

[<du...@co...>]

Sun May 18 20:48:59 EDT 2008  Peter Gavin <pg...@gm...>
  * gstreamer: small fixes in M.S.G.Core.Event

    hunk ./gstreamer/Media/Streaming/GStreamer/Core/Event.chs 26
    --- | Maintainer  : gtk2hs-devel\@lists.sourceforge.net
    ---   Stability   : alpha
    ---   Portability : portable (depends on GHC)
    +--  |
    +--  Maintainer  : gtk2hs-devel\@lists.sourceforge.net
    +--  Stability   : alpha
    +--  Portability : portable (depends on GHC)
    +--  [_$_]
    +--  An object describing events that are passed up and down a pipeline.
    hunk ./gstreamer/Media/Streaming/GStreamer/Core/Event.chs 33
    +
    +-- * Detail
    +
    +  -- | An 'Event' is a message that is passed up and down a pipeline.
    +  --   [_$_]
    +  --   There are a number of predefined events and functions returning
    +  --   events. To send an event an application will usually use
    +  --   'Media.Streaming.GStreamer.Core.Element.elementSendEvent', and
    +  --   elements will use
    +  --   'Media.Streaming.GStreamer.Core.Pad.padSendEvent' or
    +  --   'Media.Streaming.GStreamer.Core.padPushEvent'.
    +  --   [_$_]
    +  --   [_$_]
    +
    +-- * Types
    +  Event,
    +  EventClass,
    +  EventType(..),
    +
    +-- * Event Operations
    +  eventType,
    +  eventNewCustom,
    +  eventNewEOS,
    +  eventNewFlushStart,
    +  eventNewFlushStop,
    +  eventNewLatency,
    +  eventNewNavigation,
    +  eventNewNewSegment,
    +  eventNewNewSegmentFull,
    +  eventNewQOS,
    +  eventNewSeek,
    +  eventNewTag,
    +  eventParseBufferSize,
    +  eventParseLatency,
    +  eventParseNewSegment,
    +  eventParseNewSegmentFull,
    +  eventParseQOS,
    +  eventParseSeek,
    +  eventParseTag,
    +  eventTypeGetName,
    +  eventTypeGetFlags,
    hunk ./gstreamer/Media/Streaming/GStreamer/Core/Event.chs 76
    +
    hunk ./gstreamer/Media/Streaming/GStreamer/Core/Event.chs 86
    -eventType :: Event
    +eventType :: EventClass event
    +          => event
    hunk ./gstreamer/Media/Streaming/GStreamer/Core/Event.chs 90
    -    cToEnum $ unsafePerformIO $ withMiniObject event cEventType
    +    cToEnum $ unsafePerformIO $ withMiniObject (toEvent event) cEventType
    hunk ./gstreamer/Media/Streaming/GStreamer/Core/Event.chs 188
    -eventParseBufferSize :: Event
    +eventParseBufferSize :: EventClass event
    +                     => event
    hunk ./gstreamer/Media/Streaming/GStreamer/Core/Event.chs 194
    -            do {# call event_parse_buffer_size #} event
    +            do {# call event_parse_buffer_size #} (toEvent event)
    hunk ./gstreamer/Media/Streaming/GStreamer/Core/Event.chs 206
    -eventParseLatency :: Event
    +eventParseLatency :: EventClass event
    +                  => event
    hunk ./gstreamer/Media/Streaming/GStreamer/Core/Event.chs 211
    -        do {# call event_parse_latency #} event
    +        do {# call event_parse_latency #} (toEvent event)
    hunk ./gstreamer/Media/Streaming/GStreamer/Core/Event.chs 216
    -eventParseNewSegment :: Event
    +eventParseNewSegment :: EventClass event
    +                     => event
    hunk ./gstreamer/Media/Streaming/GStreamer/Core/Event.chs 224
    -                    do {# call event_parse_new_segment #} event
    +                    do {# call event_parse_new_segment #} (toEvent event)
    hunk ./gstreamer/Media/Streaming/GStreamer/Core/Event.chs 240
    -eventParseNewSegmentFull :: Event
    +eventParseNewSegmentFull :: EventClass event
    +                         => event
    hunk ./gstreamer/Media/Streaming/GStreamer/Core/Event.chs 248
    -                    do {# call event_parse_new_segment_full #} event
    +                    do {# call event_parse_new_segment_full #} (toEvent event)
    hunk ./gstreamer/Media/Streaming/GStreamer/Core/Event.chs 266
    -eventParseQOS :: Event
    +eventParseQOS :: EventClass event
    +              => event
    hunk ./gstreamer/Media/Streaming/GStreamer/Core/Event.chs 272
    -            do {# call event_parse_qos #} event
    +            do {# call event_parse_qos #} (toEvent event)
    hunk ./gstreamer/Media/Streaming/GStreamer/Core/Event.chs 282
    -eventParseSeek :: Event
    +eventParseSeek :: EventClass event
    +               => event
    hunk ./gstreamer/Media/Streaming/GStreamer/Core/Event.chs 290
    -                    do {# call event_parse_seek #} event
    +                    do {# call event_parse_seek #} (toEvent event)
    hunk ./gstreamer/Media/Streaming/GStreamer/Core/Event.chs 308
    -eventParseTag :: Event
    +eventParseTag :: EventClass event
    +              => event
    hunk ./gstreamer/Media/Streaming/GStreamer/Core/Event.chs 313
    -        do {# call event_parse_tag #} event (castPtr tagListPtr)
    +        do {# call event_parse_tag #} (toEvent event) (castPtr tagListPtr)
    hunk ./gstreamer/Media/Streaming/GStreamer/Core/Event.chs 315
    +                    | otherwise = Nothing