{-# LINE 2 "./Media/Streaming/GStreamer/Core/PadTemplate.chs" #-}-- GIMP Toolkit (GTK) Binding for Haskell: binding to gstreamer -*-haskell-*----- Author : Peter Gavin-- Created: 1-Apr-2007---- Copyright (c) 2007 Peter Gavin---- This library is free software: you can redistribute it and/or-- modify it under the terms of the GNU Lesser General Public License-- as published by the Free Software Foundation, either version 3 of-- the License, or (at your option) any later version.---- This library is distributed in the hope that it will be useful,-- but WITHOUT ANY WARRANTY; without even the implied warranty of-- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU-- Lesser General Public License for more details.---- You should have received a copy of the GNU Lesser General Public-- License along with this program. If not, see-- <http:---- GStreamer, the C library which this Haskell library depends on, is-- available under LGPL Version 2. The documentation included with-- this library is based on the original GStreamer documentation.---- | Maintainer : gtk2hs-devel@lists.sourceforge.net-- Stability : alpha-- Portability : portable (depends on GHC)moduleMedia.Streaming.GStreamer.Core.PadTemplate(PadTemplate,PadTemplateClass,castToPadTemplate,gTypePadTemplate,PadPresence(..),padTemplateNew,padTemplateGetCaps,padTemplateGetNameTemplate,padTemplateGetDirection,padTemplateGetPresence,onPadTemplatePadCreated,afterPadTemplatePadCreated)whereimportControl.Monad(liftM)importMedia.Streaming.GStreamer.Core.Types{-# LINE 52 "./Media/Streaming/GStreamer/Core/PadTemplate.chs" #-}importMedia.Streaming.GStreamer.Core.Signals{-# LINE 53 "./Media/Streaming/GStreamer/Core/PadTemplate.chs" #-}importSystem.Glib.FFIimportSystem.Glib.UTFStringimportSystem.Glib.Signals{-# LINE 58 "./Media/Streaming/GStreamer/Core/PadTemplate.chs" #-}padTemplateNew::String->PadDirection->PadPresence->Caps->IOPadTemplatepadTemplateNewnameTemplatedirectionpresencecaps=withUTFStringnameTemplate$\cNameTemplate->giveCapscaps$\caps'->(\arg1arg2arg3(Capsarg4)->withForeignPtrarg4$\argPtr4->gst_pad_template_newarg1arg2arg3argPtr4)cNameTemplate(fromIntegral$fromEnumdirection)(fromIntegral$fromEnumpresence)caps'>>=takeObjectpadTemplateGetCaps::PadTemplateClasspadTemplate=>padTemplate->IOCapspadTemplateGetCapspadTemplate=(\(PadTemplatearg1)->withForeignPtrarg1$\argPtr1->gst_pad_template_get_capsargPtr1)(toPadTemplatepadTemplate)>>=peekCapspadTemplateGetNameTemplate::PadTemplateClasspadTemplate=>padTemplate->IOStringpadTemplateGetNameTemplatepadTemplate=withObject(toPadTemplatepadTemplate)(\ptr->do{peekByteOffptr40::IO(PtrCChar)})>>=peekUTFStringpadTemplateGetDirection::PadTemplateClasspadTemplate=>padTemplate->IOPadDirectionpadTemplateGetDirectionpadTemplate=liftM(toEnum.fromIntegral)$withObject(toPadTemplatepadTemplate)(\ptr->do{peekByteOffptr44::IOCInt}){-# LINE 93 "./Media/Streaming/GStreamer/Core/PadTemplate.chs" #-}padTemplateGetPresence::PadTemplateClasspadTemplate=>padTemplate->IOPadPresencepadTemplateGetPresencepadTemplate=liftM(toEnum.fromIntegral)$withObject(toPadTemplatepadTemplate)(\ptr->do{peekByteOffptr48::IOCInt}){-# LINE 100 "./Media/Streaming/GStreamer/Core/PadTemplate.chs" #-}onPadTemplatePadCreated,afterPadTemplatePadCreated::PadTemplateClasspadTemplateT=>padTemplateT->(Pad->IO())->IO(ConnectIdpadTemplateT)onPadTemplatePadCreated=connect_OBJECT__NONE"pad-created"FalseafterPadTemplatePadCreated=connect_OBJECT__NONE"pad-created"Trueforeignimportccallsafe"gst_pad_template_new"gst_pad_template_new::((PtrCChar)->(CInt->(CInt->((PtrCaps)->(IO(PtrPadTemplate))))))foreignimportccallsafe"gst_pad_template_get_caps"gst_pad_template_get_caps::((PtrPadTemplate)->(IO(PtrCaps)))