module Graphics.UI.Gtk.WebKit.DOM.HTMLObjectElement(
checkValidity,
setCustomValidity,
getForm,
setCode,
getCode,
setAlign,
getAlign,
setArchive,
getArchive,
setBorder,
getBorder,
setCodeBase,
getCodeBase,
setCodeType,
getCodeType,
setData,
getData,
setDeclare,
getDeclare,
setHeight,
getHeight,
setHspace,
getHspace,
setName,
getName,
setStandby,
getStandby,
setUseMap,
getUseMap,
setVspace,
getVspace,
setWidth,
getWidth,
getWillValidate,
getValidity,
getValidationMessage,
getContentDocument,
HTMLObjectElement,
castToHTMLObjectElement,
gTypeHTMLObjectElement,
HTMLObjectElementClass,
toHTMLObjectElement,
) where
import Prelude hiding (drop, error, print)
import Data.Typeable (Typeable)
import Foreign.Marshal (maybePeek, maybeWith)
import System.Glib.FFI (maybeNull, withForeignPtr, nullForeignPtr, Ptr, nullPtr, castPtr, Word, Int64, Word64, CChar(..), CInt(..), CUInt(..), CLong(..), CULong(..), CLLong(..), CULLong(..), CShort(..), CUShort(..), CFloat(..), CDouble(..), toBool, fromBool)
import System.Glib.UTFString (GlibString(..), readUTFString)
import Control.Applicative ((<$>))
import Control.Monad (void)
import Control.Monad.IO.Class (MonadIO(..))
import System.Glib.GError
import Graphics.UI.Gtk.WebKit.DOM.EventTargetClosures
import Graphics.UI.Gtk.WebKit.DOM.EventM
import Graphics.UI.Gtk.WebKit.Types
import Graphics.UI.Gtk.WebKit.DOM.Enums
checkValidity ::
(MonadIO m, HTMLObjectElementClass self) => self -> m Bool
checkValidity self
= liftIO
(toBool <$>
((\(HTMLObjectElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_object_element_check_validity argPtr1)
(toHTMLObjectElement self)))
setCustomValidity ::
(MonadIO m, HTMLObjectElementClass self, GlibString string) =>
self -> (Maybe string) -> m ()
setCustomValidity self error
= liftIO
(maybeWith withUTFString error $
\ errorPtr ->
(\(HTMLObjectElement arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_object_element_set_custom_validity argPtr1 arg2)
(toHTMLObjectElement self)
errorPtr)
getForm ::
(MonadIO m, HTMLObjectElementClass self) =>
self -> m (Maybe HTMLFormElement)
getForm self
= liftIO
(maybeNull (makeNewGObject mkHTMLFormElement)
((\(HTMLObjectElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_object_element_get_form argPtr1)
(toHTMLObjectElement self)))
setCode ::
(MonadIO m, HTMLObjectElementClass self, GlibString string) =>
self -> string -> m ()
setCode self val
= liftIO
(withUTFString val $
\ valPtr ->
(\(HTMLObjectElement arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_object_element_set_code argPtr1 arg2)
(toHTMLObjectElement self)
valPtr)
getCode ::
(MonadIO m, HTMLObjectElementClass self, GlibString string) =>
self -> m string
getCode self
= liftIO
(((\(HTMLObjectElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_object_element_get_code argPtr1)
(toHTMLObjectElement self))
>>=
readUTFString)
setAlign ::
(MonadIO m, HTMLObjectElementClass self, GlibString string) =>
self -> string -> m ()
setAlign self val
= liftIO
(withUTFString val $
\ valPtr ->
(\(HTMLObjectElement arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_object_element_set_align argPtr1 arg2)
(toHTMLObjectElement self)
valPtr)
getAlign ::
(MonadIO m, HTMLObjectElementClass self, GlibString string) =>
self -> m string
getAlign self
= liftIO
(((\(HTMLObjectElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_object_element_get_align argPtr1)
(toHTMLObjectElement self))
>>=
readUTFString)
setArchive ::
(MonadIO m, HTMLObjectElementClass self, GlibString string) =>
self -> string -> m ()
setArchive self val
= liftIO
(withUTFString val $
\ valPtr ->
(\(HTMLObjectElement arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_object_element_set_archive argPtr1 arg2)
(toHTMLObjectElement self)
valPtr)
getArchive ::
(MonadIO m, HTMLObjectElementClass self, GlibString string) =>
self -> m string
getArchive self
= liftIO
(((\(HTMLObjectElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_object_element_get_archive argPtr1)
(toHTMLObjectElement self))
>>=
readUTFString)
setBorder ::
(MonadIO m, HTMLObjectElementClass self, GlibString string) =>
self -> string -> m ()
setBorder self val
= liftIO
(withUTFString val $
\ valPtr ->
(\(HTMLObjectElement arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_object_element_set_border argPtr1 arg2)
(toHTMLObjectElement self)
valPtr)
getBorder ::
(MonadIO m, HTMLObjectElementClass self, GlibString string) =>
self -> m string
getBorder self
= liftIO
(((\(HTMLObjectElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_object_element_get_border argPtr1)
(toHTMLObjectElement self))
>>=
readUTFString)
setCodeBase ::
(MonadIO m, HTMLObjectElementClass self, GlibString string) =>
self -> string -> m ()
setCodeBase self val
= liftIO
(withUTFString val $
\ valPtr ->
(\(HTMLObjectElement arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_object_element_set_code_base argPtr1 arg2)
(toHTMLObjectElement self)
valPtr)
getCodeBase ::
(MonadIO m, HTMLObjectElementClass self, GlibString string) =>
self -> m string
getCodeBase self
= liftIO
(((\(HTMLObjectElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_object_element_get_code_base argPtr1)
(toHTMLObjectElement self))
>>=
readUTFString)
setCodeType ::
(MonadIO m, HTMLObjectElementClass self, GlibString string) =>
self -> string -> m ()
setCodeType self val
= liftIO
(withUTFString val $
\ valPtr ->
(\(HTMLObjectElement arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_object_element_set_code_type argPtr1 arg2)
(toHTMLObjectElement self)
valPtr)
getCodeType ::
(MonadIO m, HTMLObjectElementClass self, GlibString string) =>
self -> m string
getCodeType self
= liftIO
(((\(HTMLObjectElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_object_element_get_code_type argPtr1)
(toHTMLObjectElement self))
>>=
readUTFString)
setData ::
(MonadIO m, HTMLObjectElementClass self, GlibString string) =>
self -> string -> m ()
setData self val
= liftIO
(withUTFString val $
\ valPtr ->
(\(HTMLObjectElement arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_object_element_set_data argPtr1 arg2)
(toHTMLObjectElement self)
valPtr)
getData ::
(MonadIO m, HTMLObjectElementClass self, GlibString string) =>
self -> m string
getData self
= liftIO
(((\(HTMLObjectElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_object_element_get_data argPtr1)
(toHTMLObjectElement self))
>>=
readUTFString)
setDeclare ::
(MonadIO m, HTMLObjectElementClass self) => self -> Bool -> m ()
setDeclare self val
= liftIO
((\(HTMLObjectElement arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_object_element_set_declare argPtr1 arg2)
(toHTMLObjectElement self)
(fromBool val))
getDeclare ::
(MonadIO m, HTMLObjectElementClass self) => self -> m Bool
getDeclare self
= liftIO
(toBool <$>
((\(HTMLObjectElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_object_element_get_declare argPtr1)
(toHTMLObjectElement self)))
setHeight ::
(MonadIO m, HTMLObjectElementClass self, GlibString string) =>
self -> string -> m ()
setHeight self val
= liftIO
(withUTFString val $
\ valPtr ->
(\(HTMLObjectElement arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_object_element_set_height argPtr1 arg2)
(toHTMLObjectElement self)
valPtr)
getHeight ::
(MonadIO m, HTMLObjectElementClass self, GlibString string) =>
self -> m string
getHeight self
= liftIO
(((\(HTMLObjectElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_object_element_get_height argPtr1)
(toHTMLObjectElement self))
>>=
readUTFString)
setHspace ::
(MonadIO m, HTMLObjectElementClass self) => self -> Int -> m ()
setHspace self val
= liftIO
((\(HTMLObjectElement arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_object_element_set_hspace argPtr1 arg2)
(toHTMLObjectElement self)
(fromIntegral val))
getHspace ::
(MonadIO m, HTMLObjectElementClass self) => self -> m Int
getHspace self
= liftIO
(fromIntegral <$>
((\(HTMLObjectElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_object_element_get_hspace argPtr1)
(toHTMLObjectElement self)))
setName ::
(MonadIO m, HTMLObjectElementClass self, GlibString string) =>
self -> string -> m ()
setName self val
= liftIO
(withUTFString val $
\ valPtr ->
(\(HTMLObjectElement arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_object_element_set_name argPtr1 arg2)
(toHTMLObjectElement self)
valPtr)
getName ::
(MonadIO m, HTMLObjectElementClass self, GlibString string) =>
self -> m string
getName self
= liftIO
(((\(HTMLObjectElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_object_element_get_name argPtr1)
(toHTMLObjectElement self))
>>=
readUTFString)
setStandby ::
(MonadIO m, HTMLObjectElementClass self, GlibString string) =>
self -> string -> m ()
setStandby self val
= liftIO
(withUTFString val $
\ valPtr ->
(\(HTMLObjectElement arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_object_element_set_standby argPtr1 arg2)
(toHTMLObjectElement self)
valPtr)
getStandby ::
(MonadIO m, HTMLObjectElementClass self, GlibString string) =>
self -> m string
getStandby self
= liftIO
(((\(HTMLObjectElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_object_element_get_standby argPtr1)
(toHTMLObjectElement self))
>>=
readUTFString)
setUseMap ::
(MonadIO m, HTMLObjectElementClass self, GlibString string) =>
self -> string -> m ()
setUseMap self val
= liftIO
(withUTFString val $
\ valPtr ->
(\(HTMLObjectElement arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_object_element_set_use_map argPtr1 arg2)
(toHTMLObjectElement self)
valPtr)
getUseMap ::
(MonadIO m, HTMLObjectElementClass self, GlibString string) =>
self -> m string
getUseMap self
= liftIO
(((\(HTMLObjectElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_object_element_get_use_map argPtr1)
(toHTMLObjectElement self))
>>=
readUTFString)
setVspace ::
(MonadIO m, HTMLObjectElementClass self) => self -> Int -> m ()
setVspace self val
= liftIO
((\(HTMLObjectElement arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_object_element_set_vspace argPtr1 arg2)
(toHTMLObjectElement self)
(fromIntegral val))
getVspace ::
(MonadIO m, HTMLObjectElementClass self) => self -> m Int
getVspace self
= liftIO
(fromIntegral <$>
((\(HTMLObjectElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_object_element_get_vspace argPtr1)
(toHTMLObjectElement self)))
setWidth ::
(MonadIO m, HTMLObjectElementClass self, GlibString string) =>
self -> string -> m ()
setWidth self val
= liftIO
(withUTFString val $
\ valPtr ->
(\(HTMLObjectElement arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_object_element_set_width argPtr1 arg2)
(toHTMLObjectElement self)
valPtr)
getWidth ::
(MonadIO m, HTMLObjectElementClass self, GlibString string) =>
self -> m string
getWidth self
= liftIO
(((\(HTMLObjectElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_object_element_get_width argPtr1)
(toHTMLObjectElement self))
>>=
readUTFString)
getWillValidate ::
(MonadIO m, HTMLObjectElementClass self) => self -> m Bool
getWillValidate self
= liftIO
(toBool <$>
((\(HTMLObjectElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_object_element_get_will_validate argPtr1)
(toHTMLObjectElement self)))
getValidity ::
(MonadIO m, HTMLObjectElementClass self) =>
self -> m (Maybe ValidityState)
getValidity self
= liftIO
(maybeNull (makeNewGObject mkValidityState)
((\(HTMLObjectElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_object_element_get_validity argPtr1)
(toHTMLObjectElement self)))
getValidationMessage ::
(MonadIO m, HTMLObjectElementClass self, GlibString string) =>
self -> m string
getValidationMessage self
= liftIO
(((\(HTMLObjectElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_object_element_get_validation_message argPtr1)
(toHTMLObjectElement self))
>>=
readUTFString)
getContentDocument ::
(MonadIO m, HTMLObjectElementClass self) =>
self -> m (Maybe Document)
getContentDocument self
= liftIO
(maybeNull (makeNewGObject mkDocument)
((\(HTMLObjectElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_object_element_get_content_document argPtr1)
(toHTMLObjectElement self)))
foreign import ccall safe "webkit_dom_html_object_element_check_validity"
webkit_dom_html_object_element_check_validity :: ((Ptr HTMLObjectElement) -> (IO CInt))
foreign import ccall safe "webkit_dom_html_object_element_set_custom_validity"
webkit_dom_html_object_element_set_custom_validity :: ((Ptr HTMLObjectElement) -> ((Ptr CChar) -> (IO ())))
foreign import ccall safe "webkit_dom_html_object_element_get_form"
webkit_dom_html_object_element_get_form :: ((Ptr HTMLObjectElement) -> (IO (Ptr HTMLFormElement)))
foreign import ccall safe "webkit_dom_html_object_element_set_code"
webkit_dom_html_object_element_set_code :: ((Ptr HTMLObjectElement) -> ((Ptr CChar) -> (IO ())))
foreign import ccall safe "webkit_dom_html_object_element_get_code"
webkit_dom_html_object_element_get_code :: ((Ptr HTMLObjectElement) -> (IO (Ptr CChar)))
foreign import ccall safe "webkit_dom_html_object_element_set_align"
webkit_dom_html_object_element_set_align :: ((Ptr HTMLObjectElement) -> ((Ptr CChar) -> (IO ())))
foreign import ccall safe "webkit_dom_html_object_element_get_align"
webkit_dom_html_object_element_get_align :: ((Ptr HTMLObjectElement) -> (IO (Ptr CChar)))
foreign import ccall safe "webkit_dom_html_object_element_set_archive"
webkit_dom_html_object_element_set_archive :: ((Ptr HTMLObjectElement) -> ((Ptr CChar) -> (IO ())))
foreign import ccall safe "webkit_dom_html_object_element_get_archive"
webkit_dom_html_object_element_get_archive :: ((Ptr HTMLObjectElement) -> (IO (Ptr CChar)))
foreign import ccall safe "webkit_dom_html_object_element_set_border"
webkit_dom_html_object_element_set_border :: ((Ptr HTMLObjectElement) -> ((Ptr CChar) -> (IO ())))
foreign import ccall safe "webkit_dom_html_object_element_get_border"
webkit_dom_html_object_element_get_border :: ((Ptr HTMLObjectElement) -> (IO (Ptr CChar)))
foreign import ccall safe "webkit_dom_html_object_element_set_code_base"
webkit_dom_html_object_element_set_code_base :: ((Ptr HTMLObjectElement) -> ((Ptr CChar) -> (IO ())))
foreign import ccall safe "webkit_dom_html_object_element_get_code_base"
webkit_dom_html_object_element_get_code_base :: ((Ptr HTMLObjectElement) -> (IO (Ptr CChar)))
foreign import ccall safe "webkit_dom_html_object_element_set_code_type"
webkit_dom_html_object_element_set_code_type :: ((Ptr HTMLObjectElement) -> ((Ptr CChar) -> (IO ())))
foreign import ccall safe "webkit_dom_html_object_element_get_code_type"
webkit_dom_html_object_element_get_code_type :: ((Ptr HTMLObjectElement) -> (IO (Ptr CChar)))
foreign import ccall safe "webkit_dom_html_object_element_set_data"
webkit_dom_html_object_element_set_data :: ((Ptr HTMLObjectElement) -> ((Ptr CChar) -> (IO ())))
foreign import ccall safe "webkit_dom_html_object_element_get_data"
webkit_dom_html_object_element_get_data :: ((Ptr HTMLObjectElement) -> (IO (Ptr CChar)))
foreign import ccall safe "webkit_dom_html_object_element_set_declare"
webkit_dom_html_object_element_set_declare :: ((Ptr HTMLObjectElement) -> (CInt -> (IO ())))
foreign import ccall safe "webkit_dom_html_object_element_get_declare"
webkit_dom_html_object_element_get_declare :: ((Ptr HTMLObjectElement) -> (IO CInt))
foreign import ccall safe "webkit_dom_html_object_element_set_height"
webkit_dom_html_object_element_set_height :: ((Ptr HTMLObjectElement) -> ((Ptr CChar) -> (IO ())))
foreign import ccall safe "webkit_dom_html_object_element_get_height"
webkit_dom_html_object_element_get_height :: ((Ptr HTMLObjectElement) -> (IO (Ptr CChar)))
foreign import ccall safe "webkit_dom_html_object_element_set_hspace"
webkit_dom_html_object_element_set_hspace :: ((Ptr HTMLObjectElement) -> (CLong -> (IO ())))
foreign import ccall safe "webkit_dom_html_object_element_get_hspace"
webkit_dom_html_object_element_get_hspace :: ((Ptr HTMLObjectElement) -> (IO CLong))
foreign import ccall safe "webkit_dom_html_object_element_set_name"
webkit_dom_html_object_element_set_name :: ((Ptr HTMLObjectElement) -> ((Ptr CChar) -> (IO ())))
foreign import ccall safe "webkit_dom_html_object_element_get_name"
webkit_dom_html_object_element_get_name :: ((Ptr HTMLObjectElement) -> (IO (Ptr CChar)))
foreign import ccall safe "webkit_dom_html_object_element_set_standby"
webkit_dom_html_object_element_set_standby :: ((Ptr HTMLObjectElement) -> ((Ptr CChar) -> (IO ())))
foreign import ccall safe "webkit_dom_html_object_element_get_standby"
webkit_dom_html_object_element_get_standby :: ((Ptr HTMLObjectElement) -> (IO (Ptr CChar)))
foreign import ccall safe "webkit_dom_html_object_element_set_use_map"
webkit_dom_html_object_element_set_use_map :: ((Ptr HTMLObjectElement) -> ((Ptr CChar) -> (IO ())))
foreign import ccall safe "webkit_dom_html_object_element_get_use_map"
webkit_dom_html_object_element_get_use_map :: ((Ptr HTMLObjectElement) -> (IO (Ptr CChar)))
foreign import ccall safe "webkit_dom_html_object_element_set_vspace"
webkit_dom_html_object_element_set_vspace :: ((Ptr HTMLObjectElement) -> (CLong -> (IO ())))
foreign import ccall safe "webkit_dom_html_object_element_get_vspace"
webkit_dom_html_object_element_get_vspace :: ((Ptr HTMLObjectElement) -> (IO CLong))
foreign import ccall safe "webkit_dom_html_object_element_set_width"
webkit_dom_html_object_element_set_width :: ((Ptr HTMLObjectElement) -> ((Ptr CChar) -> (IO ())))
foreign import ccall safe "webkit_dom_html_object_element_get_width"
webkit_dom_html_object_element_get_width :: ((Ptr HTMLObjectElement) -> (IO (Ptr CChar)))
foreign import ccall safe "webkit_dom_html_object_element_get_will_validate"
webkit_dom_html_object_element_get_will_validate :: ((Ptr HTMLObjectElement) -> (IO CInt))
foreign import ccall safe "webkit_dom_html_object_element_get_validity"
webkit_dom_html_object_element_get_validity :: ((Ptr HTMLObjectElement) -> (IO (Ptr ValidityState)))
foreign import ccall safe "webkit_dom_html_object_element_get_validation_message"
webkit_dom_html_object_element_get_validation_message :: ((Ptr HTMLObjectElement) -> (IO (Ptr CChar)))
foreign import ccall safe "webkit_dom_html_object_element_get_content_document"
webkit_dom_html_object_element_get_content_document :: ((Ptr HTMLObjectElement) -> (IO (Ptr Document)))