[Gtk2hs-commit] (main branch): gstreamer: fix demo so it works again

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

Sat Jun 21 17:08:12 EDT 2008  Peter Gavin <pg...@gm...>
  * gstreamer: fix demo so it works again

    hunk ./demo/gstreamer/VorbisPlay.hs 8
    +import qualified System.Glib.Signals as G
    hunk ./demo/gstreamer/VorbisPlay.hs 34
    -       source <- mkElement $ Gst.elementFactoryMake "filesrc" "file-source"
    -       parser <- mkElement $ Gst.elementFactoryMake "oggdemux" "ogg-parser"
    -       decoder <- mkElement $ Gst.elementFactoryMake "vorbisdec" "vorbis-decoder"
    -       conv <- mkElement $ Gst.elementFactoryMake "audioconvert" "convert"
    -       sink <- mkElement $ Gst.elementFactoryMake "alsasink" "alsa-output"
    +       source <- mkElement $ Gst.elementFactoryMake "filesrc" $ Just "file-source"
    +       parser <- mkElement $ Gst.elementFactoryMake "oggdemux" $ Just "ogg-parser"
    +       decoder <- mkElement $ Gst.elementFactoryMake "vorbisdec" $ Just "vorbis-decoder"
    +       conv <- mkElement $ Gst.elementFactoryMake "audioconvert" $ Just "convert"
    +       sink <- mkElement $ Gst.elementFactoryMake "alsasink" $ Just "alsa-output"
    hunk ./demo/gstreamer/VorbisPlay.hs 64
    -       Gst.onElementPadAdded parser $ \pad ->
    -           do sinkPad <- Gst.elementGetPad decoder "sink"
    +       G.on parser Gst.elementPadAdded $ \pad ->
    +           do sinkPad <- Gst.elementGetStaticPad decoder "sink"