diff --git a/GI/WebKit.hs b/GI/WebKit.hs --- a/GI/WebKit.hs +++ b/GI/WebKit.hs @@ -32,9 +32,9 @@ import GI.WebKit.Objects import GI.WebKit.Structs -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map diff --git a/GI/WebKit/Callbacks.hs b/GI/WebKit/Callbacks.hs --- a/GI/WebKit/Callbacks.hs +++ b/GI/WebKit/Callbacks.hs @@ -8,9 +8,9 @@ module GI.WebKit.Callbacks () where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map diff --git a/GI/WebKit/Constants.hs b/GI/WebKit/Constants.hs --- a/GI/WebKit/Constants.hs +++ b/GI/WebKit/Constants.hs @@ -17,9 +17,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map @@ -37,7 +37,7 @@ pattern MINOR_VERSION = 4 :: Int32 -pattern MICRO_VERSION = 9 :: Int32 +pattern MICRO_VERSION = 11 :: Int32 pattern MAJOR_VERSION = 2 :: Int32 diff --git a/GI/WebKit/Enums.hs b/GI/WebKit/Enums.hs --- a/GI/WebKit/Enums.hs +++ b/GI/WebKit/Enums.hs @@ -35,9 +35,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map diff --git a/GI/WebKit/Flags.hs b/GI/WebKit/Flags.hs --- a/GI/WebKit/Flags.hs +++ b/GI/WebKit/Flags.hs @@ -16,9 +16,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map @@ -58,8 +58,8 @@ foreign import ccall "webkit_security_policy_get_type" c_webkit_security_policy_get_type :: IO GType -instance BoxedEnum SecurityPolicy where - boxedEnumType _ = c_webkit_security_policy_get_type +instance BoxedFlags SecurityPolicy where + boxedFlagsType _ = c_webkit_security_policy_get_type instance IsGFlag SecurityPolicy @@ -95,8 +95,8 @@ foreign import ccall "webkit_hit_test_result_context_get_type" c_webkit_hit_test_result_context_get_type :: IO GType -instance BoxedEnum HitTestResultContext where - boxedEnumType _ = c_webkit_hit_test_result_context_get_type +instance BoxedFlags HitTestResultContext where + boxedFlagsType _ = c_webkit_hit_test_result_context_get_type instance IsGFlag HitTestResultContext diff --git a/GI/WebKit/Functions.hs b/GI/WebKit/Functions.hs --- a/GI/WebKit/Functions.hs +++ b/GI/WebKit/Functions.hs @@ -102,9 +102,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map @@ -118,7 +118,7 @@ -- function webkit_set_web_database_directory_path -- Args : [Arg {argCName = "path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -141,7 +141,7 @@ -- function webkit_set_text_checker -- Args : [Arg {argCName = "checker", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -164,7 +164,7 @@ -- function webkit_set_security_policy_for_uri_scheme -- Args : [Arg {argCName = "scheme", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "policy", argType = TInterface "WebKit" "SecurityPolicy", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -190,7 +190,7 @@ -- function webkit_set_default_web_database_quota -- Args : [Arg {argCName = "defaultQuota", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -211,7 +211,7 @@ -- function webkit_set_cache_model -- Args : [Arg {argCName = "cache_model", argType = TInterface "WebKit" "CacheModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -233,7 +233,7 @@ -- function webkit_remove_all_web_databases -- Args : [] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -252,7 +252,7 @@ -- function webkit_minor_version -- Args : [] -- Lengths : [] --- returnType : TBasicType TUInt32 +-- returnType : Just (TBasicType TUInt) -- throws : False -- Skip return : False @@ -271,7 +271,7 @@ -- function webkit_micro_version -- Args : [] -- Lengths : [] --- returnType : TBasicType TUInt32 +-- returnType : Just (TBasicType TUInt) -- throws : False -- Skip return : False @@ -290,7 +290,7 @@ -- function webkit_major_version -- Args : [] -- Lengths : [] --- returnType : TBasicType TUInt32 +-- returnType : Just (TBasicType TUInt) -- throws : False -- Skip return : False @@ -309,7 +309,7 @@ -- function webkit_get_web_plugin_database -- Args : [] -- Lengths : [] --- returnType : TInterface "WebKit" "WebPluginDatabase" +-- returnType : Just (TInterface "WebKit" "WebPluginDatabase") -- throws : False -- Skip return : False @@ -330,7 +330,7 @@ -- function webkit_get_web_database_directory_path -- Args : [] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -351,7 +351,7 @@ -- function webkit_get_text_checker -- Args : [] -- Lengths : [] --- returnType : TInterface "GObject" "Object" +-- returnType : Just (TInterface "GObject" "Object") -- throws : False -- Skip return : False @@ -372,7 +372,7 @@ -- function webkit_get_security_policy_for_uri_scheme -- Args : [Arg {argCName = "scheme", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit" "SecurityPolicy" +-- returnType : Just (TInterface "WebKit" "SecurityPolicy") -- throws : False -- Skip return : False @@ -396,7 +396,7 @@ -- function webkit_get_icon_database -- Args : [] -- Lengths : [] --- returnType : TInterface "WebKit" "IconDatabase" +-- returnType : Just (TInterface "WebKit" "IconDatabase") -- throws : False -- Skip return : False @@ -417,7 +417,7 @@ -- function webkit_get_favicon_database -- Args : [] -- Lengths : [] --- returnType : TInterface "WebKit" "FaviconDatabase" +-- returnType : Just (TInterface "WebKit" "FaviconDatabase") -- throws : False -- Skip return : False @@ -438,7 +438,7 @@ -- function webkit_get_default_web_database_quota -- Args : [] -- Lengths : [] --- returnType : TBasicType TUInt64 +-- returnType : Just (TBasicType TUInt64) -- throws : False -- Skip return : False @@ -457,7 +457,7 @@ -- function webkit_get_default_session -- Args : [] -- Lengths : [] --- returnType : TInterface "Soup" "Session" +-- returnType : Just (TInterface "Soup" "Session") -- throws : False -- Skip return : False @@ -478,7 +478,7 @@ -- function webkit_get_cache_model -- Args : [] -- Lengths : [] --- returnType : TInterface "WebKit" "CacheModel" +-- returnType : Just (TInterface "WebKit" "CacheModel") -- throws : False -- Skip return : False @@ -498,7 +498,7 @@ -- function webkit_geolocation_policy_deny -- Args : [Arg {argCName = "decision", argType = TInterface "WebKit" "GeolocationPolicyDecision", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -521,7 +521,7 @@ -- function webkit_geolocation_policy_allow -- Args : [Arg {argCName = "decision", argType = TInterface "WebKit" "GeolocationPolicyDecision", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -544,7 +544,7 @@ -- function webkit_context_menu_item_get_action -- Args : [Arg {argCName = "item", argType = TInterface "Gtk" "MenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit" "ContextMenuAction" +-- returnType : Just (TInterface "WebKit" "ContextMenuAction") -- throws : False -- Skip return : False @@ -568,7 +568,7 @@ -- function webkit_application_cache_get_database_directory_path -- Args : [] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False diff --git a/GI/WebKit/Interfaces.hs b/GI/WebKit/Interfaces.hs --- a/GI/WebKit/Interfaces.hs +++ b/GI/WebKit/Interfaces.hs @@ -16,9 +16,9 @@ import GI.WebKit.Interfaces.DOMEventTarget import GI.WebKit.Interfaces.SpellChecker -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map diff --git a/GI/WebKit/Interfaces/DOMEventTarget.hs b/GI/WebKit/Interfaces/DOMEventTarget.hs --- a/GI/WebKit/Interfaces/DOMEventTarget.hs +++ b/GI/WebKit/Interfaces/DOMEventTarget.hs @@ -36,9 +36,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map @@ -116,7 +116,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMEventTarget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "event_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "handler", argType = TInterface "GObject" "Closure", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "use_capture", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -155,7 +155,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMEventTarget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "event", argType = TInterface "WebKit" "DOMEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : True -- Skip return : False @@ -191,7 +191,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMEventTarget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "event_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "handler", argType = TInterface "GObject" "Closure", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "use_capture", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False diff --git a/GI/WebKit/Interfaces/DOMEventTarget.hs-boot b/GI/WebKit/Interfaces/DOMEventTarget.hs-boot --- a/GI/WebKit/Interfaces/DOMEventTarget.hs-boot +++ b/GI/WebKit/Interfaces/DOMEventTarget.hs-boot @@ -1,8 +1,8 @@ module GI.WebKit.Interfaces.DOMEventTarget where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map diff --git a/GI/WebKit/Interfaces/SpellChecker.hs b/GI/WebKit/Interfaces/SpellChecker.hs --- a/GI/WebKit/Interfaces/SpellChecker.hs +++ b/GI/WebKit/Interfaces/SpellChecker.hs @@ -51,9 +51,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map @@ -132,17 +132,17 @@ -- method SpellChecker::check_spelling_of_string -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "SpellChecker", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "misspelling_location", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "misspelling_length", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "SpellChecker", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "misspelling_location", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "misspelling_length", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "webkit_spell_checker_check_spelling_of_string" webkit_spell_checker_check_spelling_of_string :: Ptr SpellChecker -> -- _obj : TInterface "WebKit" "SpellChecker" CString -> -- string : TBasicType TUTF8 - Ptr Int32 -> -- misspelling_location : TBasicType TInt32 - Ptr Int32 -> -- misspelling_length : TBasicType TInt32 + Ptr Int32 -> -- misspelling_location : TBasicType TInt + Ptr Int32 -> -- misspelling_length : TBasicType TInt IO () @@ -173,7 +173,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "SpellChecker", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "word", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -207,7 +207,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "SpellChecker", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "word", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "context", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TCArray True (-1) (-1) (TBasicType TUTF8) +-- returnType : Just (TCArray True (-1) (-1) (TBasicType TUTF8)) -- throws : False -- Skip return : False @@ -250,7 +250,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "SpellChecker", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "word", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -281,7 +281,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "SpellChecker", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "word", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -312,7 +312,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "SpellChecker", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "languages", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False diff --git a/GI/WebKit/Interfaces/SpellChecker.hs-boot b/GI/WebKit/Interfaces/SpellChecker.hs-boot --- a/GI/WebKit/Interfaces/SpellChecker.hs-boot +++ b/GI/WebKit/Interfaces/SpellChecker.hs-boot @@ -1,8 +1,8 @@ module GI.WebKit.Interfaces.SpellChecker where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map diff --git a/GI/WebKit/Objects.hs b/GI/WebKit/Objects.hs --- a/GI/WebKit/Objects.hs +++ b/GI/WebKit/Objects.hs @@ -384,9 +384,9 @@ import GI.WebKit.Objects.WebView import GI.WebKit.Objects.WebWindowFeatures -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map diff --git a/GI/WebKit/Objects/DOMAttr.hs b/GI/WebKit/Objects/DOMAttr.hs --- a/GI/WebKit/Objects/DOMAttr.hs +++ b/GI/WebKit/Objects/DOMAttr.hs @@ -52,27 +52,33 @@ -- * Properties -- ** IsId DOMAttrIsIdPropertyInfo , + dOMAttrIsId , getDOMAttrIsId , -- ** Name DOMAttrNamePropertyInfo , + dOMAttrName , getDOMAttrName , -- ** OwnerElement DOMAttrOwnerElementPropertyInfo , + dOMAttrOwnerElement , getDOMAttrOwnerElement , -- ** Specified DOMAttrSpecifiedPropertyInfo , + dOMAttrSpecified , getDOMAttrSpecified , -- ** Value DOMAttrValuePropertyInfo , + clearDOMAttrValue , constructDOMAttrValue , + dOMAttrValue , getDOMAttrValue , setDOMAttrValue , @@ -81,9 +87,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map @@ -193,6 +199,7 @@ -- VVV Prop "is-id" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) getDOMAttrIsId :: (MonadIO m, DOMAttrK o) => o -> m Bool getDOMAttrIsId obj = liftIO $ getObjectPropertyBool obj "is-id" @@ -207,35 +214,39 @@ attrGet _ = getDOMAttrIsId attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "name" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable] + -- Nullable: (Nothing,Nothing) -getDOMAttrName :: (MonadIO m, DOMAttrK o) => o -> m T.Text +getDOMAttrName :: (MonadIO m, DOMAttrK o) => o -> m (Maybe T.Text) getDOMAttrName obj = liftIO $ getObjectPropertyString obj "name" data DOMAttrNamePropertyInfo instance AttrInfo DOMAttrNamePropertyInfo where - type AttrAllowedOps DOMAttrNamePropertyInfo = '[ 'AttrGet] + type AttrAllowedOps DOMAttrNamePropertyInfo = '[ 'AttrGet, 'AttrClear] type AttrSetTypeConstraint DOMAttrNamePropertyInfo = (~) () type AttrBaseTypeConstraint DOMAttrNamePropertyInfo = DOMAttrK - type AttrGetType DOMAttrNamePropertyInfo = T.Text + type AttrGetType DOMAttrNamePropertyInfo = (Maybe T.Text) type AttrLabel DOMAttrNamePropertyInfo = "name" attrGet _ = getDOMAttrName attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "owner-element" -- Type: TInterface "WebKit" "DOMElement" -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) getDOMAttrOwnerElement :: (MonadIO m, DOMAttrK o) => o -> m DOMElement -getDOMAttrOwnerElement obj = liftIO $ getObjectPropertyObject obj "owner-element" DOMElement +getDOMAttrOwnerElement obj = liftIO $ checkUnexpectedNothing "getDOMAttrOwnerElement" $ getObjectPropertyObject obj "owner-element" DOMElement data DOMAttrOwnerElementPropertyInfo instance AttrInfo DOMAttrOwnerElementPropertyInfo where - type AttrAllowedOps DOMAttrOwnerElementPropertyInfo = '[ 'AttrGet] + type AttrAllowedOps DOMAttrOwnerElementPropertyInfo = '[ 'AttrGet, 'AttrClear] type AttrSetTypeConstraint DOMAttrOwnerElementPropertyInfo = (~) () type AttrBaseTypeConstraint DOMAttrOwnerElementPropertyInfo = DOMAttrK type AttrGetType DOMAttrOwnerElementPropertyInfo = DOMElement @@ -243,10 +254,12 @@ attrGet _ = getDOMAttrOwnerElement attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "specified" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) getDOMAttrSpecified :: (MonadIO m, DOMAttrK o) => o -> m Bool getDOMAttrSpecified obj = liftIO $ getObjectPropertyBool obj "specified" @@ -261,34 +274,55 @@ attrGet _ = getDOMAttrSpecified attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "value" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) -getDOMAttrValue :: (MonadIO m, DOMAttrK o) => o -> m T.Text +getDOMAttrValue :: (MonadIO m, DOMAttrK o) => o -> m (Maybe T.Text) getDOMAttrValue obj = liftIO $ getObjectPropertyString obj "value" setDOMAttrValue :: (MonadIO m, DOMAttrK o) => o -> T.Text -> m () -setDOMAttrValue obj val = liftIO $ setObjectPropertyString obj "value" val +setDOMAttrValue obj val = liftIO $ setObjectPropertyString obj "value" (Just val) constructDOMAttrValue :: T.Text -> IO ([Char], GValue) -constructDOMAttrValue val = constructObjectPropertyString "value" val +constructDOMAttrValue val = constructObjectPropertyString "value" (Just val) +clearDOMAttrValue :: (MonadIO m, DOMAttrK o) => o -> m () +clearDOMAttrValue obj = liftIO $ setObjectPropertyString obj "value" (Nothing :: Maybe T.Text) + data DOMAttrValuePropertyInfo instance AttrInfo DOMAttrValuePropertyInfo where - type AttrAllowedOps DOMAttrValuePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrAllowedOps DOMAttrValuePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint DOMAttrValuePropertyInfo = (~) T.Text type AttrBaseTypeConstraint DOMAttrValuePropertyInfo = DOMAttrK - type AttrGetType DOMAttrValuePropertyInfo = T.Text + type AttrGetType DOMAttrValuePropertyInfo = (Maybe T.Text) type AttrLabel DOMAttrValuePropertyInfo = "value" attrGet _ = getDOMAttrValue attrSet _ = setDOMAttrValue attrConstruct _ = constructDOMAttrValue + attrClear _ = clearDOMAttrValue type instance AttributeList DOMAttr = DOMAttrAttributeList type DOMAttrAttributeList = ('[ '("baseUri", DOMNodeBaseUriPropertyInfo), '("childNodes", DOMNodeChildNodesPropertyInfo), '("coreObject", DOMObjectCoreObjectPropertyInfo), '("firstChild", DOMNodeFirstChildPropertyInfo), '("isId", DOMAttrIsIdPropertyInfo), '("lastChild", DOMNodeLastChildPropertyInfo), '("localName", DOMNodeLocalNamePropertyInfo), '("name", DOMAttrNamePropertyInfo), '("namespaceUri", DOMNodeNamespaceUriPropertyInfo), '("nextSibling", DOMNodeNextSiblingPropertyInfo), '("nodeName", DOMNodeNodeNamePropertyInfo), '("nodeType", DOMNodeNodeTypePropertyInfo), '("nodeValue", DOMNodeNodeValuePropertyInfo), '("ownerDocument", DOMNodeOwnerDocumentPropertyInfo), '("ownerElement", DOMAttrOwnerElementPropertyInfo), '("parentElement", DOMNodeParentElementPropertyInfo), '("parentNode", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previousSibling", DOMNodePreviousSiblingPropertyInfo), '("specified", DOMAttrSpecifiedPropertyInfo), '("textContent", DOMNodeTextContentPropertyInfo), '("value", DOMAttrValuePropertyInfo)] :: [(Symbol, *)]) +dOMAttrIsId :: AttrLabelProxy "isId" +dOMAttrIsId = AttrLabelProxy + +dOMAttrName :: AttrLabelProxy "name" +dOMAttrName = AttrLabelProxy + +dOMAttrOwnerElement :: AttrLabelProxy "ownerElement" +dOMAttrOwnerElement = AttrLabelProxy + +dOMAttrSpecified :: AttrLabelProxy "specified" +dOMAttrSpecified = AttrLabelProxy + +dOMAttrValue :: AttrLabelProxy "value" +dOMAttrValue = AttrLabelProxy + type instance SignalList DOMAttr = DOMAttrSignalList type DOMAttrSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) @@ -296,7 +330,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMAttr", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -324,7 +358,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMAttr", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -354,7 +388,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMAttr", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit" "DOMElement" +-- returnType : Just (TInterface "WebKit" "DOMElement") -- throws : False -- Skip return : False @@ -383,7 +417,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMAttr", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -411,7 +445,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMAttr", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -441,7 +475,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMAttr", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : True -- Skip return : False diff --git a/GI/WebKit/Objects/DOMAttr.hs-boot b/GI/WebKit/Objects/DOMAttr.hs-boot --- a/GI/WebKit/Objects/DOMAttr.hs-boot +++ b/GI/WebKit/Objects/DOMAttr.hs-boot @@ -1,8 +1,8 @@ module GI.WebKit.Objects.DOMAttr where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map diff --git a/GI/WebKit/Objects/DOMAudioTrack.hs b/GI/WebKit/Objects/DOMAudioTrack.hs --- a/GI/WebKit/Objects/DOMAudioTrack.hs +++ b/GI/WebKit/Objects/DOMAudioTrack.hs @@ -53,27 +53,32 @@ -- ** Enabled DOMAudioTrackEnabledPropertyInfo , constructDOMAudioTrackEnabled , + dOMAudioTrackEnabled , getDOMAudioTrackEnabled , setDOMAudioTrackEnabled , -- ** Id DOMAudioTrackIdPropertyInfo , + dOMAudioTrackId , getDOMAudioTrackId , -- ** Kind DOMAudioTrackKindPropertyInfo , + dOMAudioTrackKind , getDOMAudioTrackKind , -- ** Label DOMAudioTrackLabelPropertyInfo , + dOMAudioTrackLabel , getDOMAudioTrackLabel , -- ** Language DOMAudioTrackLanguagePropertyInfo , + dOMAudioTrackLanguage , getDOMAudioTrackLanguage , @@ -81,9 +86,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map @@ -155,6 +160,7 @@ -- VVV Prop "enabled" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getDOMAudioTrackEnabled :: (MonadIO m, DOMAudioTrackK o) => o -> m Bool getDOMAudioTrackEnabled obj = liftIO $ getObjectPropertyBool obj "enabled" @@ -175,82 +181,106 @@ attrGet _ = getDOMAudioTrackEnabled attrSet _ = setDOMAudioTrackEnabled attrConstruct _ = constructDOMAudioTrackEnabled + attrClear _ = undefined -- VVV Prop "id" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable] + -- Nullable: (Nothing,Nothing) -getDOMAudioTrackId :: (MonadIO m, DOMAudioTrackK o) => o -> m T.Text +getDOMAudioTrackId :: (MonadIO m, DOMAudioTrackK o) => o -> m (Maybe T.Text) getDOMAudioTrackId obj = liftIO $ getObjectPropertyString obj "id" data DOMAudioTrackIdPropertyInfo instance AttrInfo DOMAudioTrackIdPropertyInfo where - type AttrAllowedOps DOMAudioTrackIdPropertyInfo = '[ 'AttrGet] + type AttrAllowedOps DOMAudioTrackIdPropertyInfo = '[ 'AttrGet, 'AttrClear] type AttrSetTypeConstraint DOMAudioTrackIdPropertyInfo = (~) () type AttrBaseTypeConstraint DOMAudioTrackIdPropertyInfo = DOMAudioTrackK - type AttrGetType DOMAudioTrackIdPropertyInfo = T.Text + type AttrGetType DOMAudioTrackIdPropertyInfo = (Maybe T.Text) type AttrLabel DOMAudioTrackIdPropertyInfo = "id" attrGet _ = getDOMAudioTrackId attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "kind" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable] + -- Nullable: (Nothing,Nothing) -getDOMAudioTrackKind :: (MonadIO m, DOMAudioTrackK o) => o -> m T.Text +getDOMAudioTrackKind :: (MonadIO m, DOMAudioTrackK o) => o -> m (Maybe T.Text) getDOMAudioTrackKind obj = liftIO $ getObjectPropertyString obj "kind" data DOMAudioTrackKindPropertyInfo instance AttrInfo DOMAudioTrackKindPropertyInfo where - type AttrAllowedOps DOMAudioTrackKindPropertyInfo = '[ 'AttrGet] + type AttrAllowedOps DOMAudioTrackKindPropertyInfo = '[ 'AttrGet, 'AttrClear] type AttrSetTypeConstraint DOMAudioTrackKindPropertyInfo = (~) () type AttrBaseTypeConstraint DOMAudioTrackKindPropertyInfo = DOMAudioTrackK - type AttrGetType DOMAudioTrackKindPropertyInfo = T.Text + type AttrGetType DOMAudioTrackKindPropertyInfo = (Maybe T.Text) type AttrLabel DOMAudioTrackKindPropertyInfo = "kind" attrGet _ = getDOMAudioTrackKind attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "label" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable] + -- Nullable: (Nothing,Nothing) -getDOMAudioTrackLabel :: (MonadIO m, DOMAudioTrackK o) => o -> m T.Text +getDOMAudioTrackLabel :: (MonadIO m, DOMAudioTrackK o) => o -> m (Maybe T.Text) getDOMAudioTrackLabel obj = liftIO $ getObjectPropertyString obj "label" data DOMAudioTrackLabelPropertyInfo instance AttrInfo DOMAudioTrackLabelPropertyInfo where - type AttrAllowedOps DOMAudioTrackLabelPropertyInfo = '[ 'AttrGet] + type AttrAllowedOps DOMAudioTrackLabelPropertyInfo = '[ 'AttrGet, 'AttrClear] type AttrSetTypeConstraint DOMAudioTrackLabelPropertyInfo = (~) () type AttrBaseTypeConstraint DOMAudioTrackLabelPropertyInfo = DOMAudioTrackK - type AttrGetType DOMAudioTrackLabelPropertyInfo = T.Text + type AttrGetType DOMAudioTrackLabelPropertyInfo = (Maybe T.Text) type AttrLabel DOMAudioTrackLabelPropertyInfo = "label" attrGet _ = getDOMAudioTrackLabel attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "language" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable] + -- Nullable: (Nothing,Nothing) -getDOMAudioTrackLanguage :: (MonadIO m, DOMAudioTrackK o) => o -> m T.Text +getDOMAudioTrackLanguage :: (MonadIO m, DOMAudioTrackK o) => o -> m (Maybe T.Text) getDOMAudioTrackLanguage obj = liftIO $ getObjectPropertyString obj "language" data DOMAudioTrackLanguagePropertyInfo instance AttrInfo DOMAudioTrackLanguagePropertyInfo where - type AttrAllowedOps DOMAudioTrackLanguagePropertyInfo = '[ 'AttrGet] + type AttrAllowedOps DOMAudioTrackLanguagePropertyInfo = '[ 'AttrGet, 'AttrClear] type AttrSetTypeConstraint DOMAudioTrackLanguagePropertyInfo = (~) () type AttrBaseTypeConstraint DOMAudioTrackLanguagePropertyInfo = DOMAudioTrackK - type AttrGetType DOMAudioTrackLanguagePropertyInfo = T.Text + type AttrGetType DOMAudioTrackLanguagePropertyInfo = (Maybe T.Text) type AttrLabel DOMAudioTrackLanguagePropertyInfo = "language" attrGet _ = getDOMAudioTrackLanguage attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined type instance AttributeList DOMAudioTrack = DOMAudioTrackAttributeList type DOMAudioTrackAttributeList = ('[ '("coreObject", DOMObjectCoreObjectPropertyInfo), '("enabled", DOMAudioTrackEnabledPropertyInfo), '("id", DOMAudioTrackIdPropertyInfo), '("kind", DOMAudioTrackKindPropertyInfo), '("label", DOMAudioTrackLabelPropertyInfo), '("language", DOMAudioTrackLanguagePropertyInfo)] :: [(Symbol, *)]) +dOMAudioTrackEnabled :: AttrLabelProxy "enabled" +dOMAudioTrackEnabled = AttrLabelProxy + +dOMAudioTrackId :: AttrLabelProxy "id" +dOMAudioTrackId = AttrLabelProxy + +dOMAudioTrackKind :: AttrLabelProxy "kind" +dOMAudioTrackKind = AttrLabelProxy + +dOMAudioTrackLabel :: AttrLabelProxy "label" +dOMAudioTrackLabel = AttrLabelProxy + +dOMAudioTrackLanguage :: AttrLabelProxy "language" +dOMAudioTrackLanguage = AttrLabelProxy + type instance SignalList DOMAudioTrack = DOMAudioTrackSignalList type DOMAudioTrackSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) @@ -258,7 +288,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMAudioTrack", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -286,7 +316,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMAudioTrack", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -316,7 +346,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMAudioTrack", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -346,7 +376,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMAudioTrack", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -376,7 +406,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMAudioTrack", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -406,7 +436,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMAudioTrack", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False diff --git a/GI/WebKit/Objects/DOMAudioTrack.hs-boot b/GI/WebKit/Objects/DOMAudioTrack.hs-boot --- a/GI/WebKit/Objects/DOMAudioTrack.hs-boot +++ b/GI/WebKit/Objects/DOMAudioTrack.hs-boot @@ -1,8 +1,8 @@ module GI.WebKit.Objects.DOMAudioTrack where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map diff --git a/GI/WebKit/Objects/DOMAudioTrackList.hs b/GI/WebKit/Objects/DOMAudioTrackList.hs --- a/GI/WebKit/Objects/DOMAudioTrackList.hs +++ b/GI/WebKit/Objects/DOMAudioTrackList.hs @@ -42,6 +42,7 @@ -- * Properties -- ** Length DOMAudioTrackListLengthPropertyInfo , + dOMAudioTrackListLength , getDOMAudioTrackListLength , @@ -49,9 +50,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map @@ -120,26 +121,31 @@ #endif -- VVV Prop "length" - -- Type: TBasicType TUInt64 + -- Type: TBasicType TULong -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) -getDOMAudioTrackListLength :: (MonadIO m, DOMAudioTrackListK o) => o -> m Word64 -getDOMAudioTrackListLength obj = liftIO $ getObjectPropertyUInt64 obj "length" +getDOMAudioTrackListLength :: (MonadIO m, DOMAudioTrackListK o) => o -> m CULong +getDOMAudioTrackListLength obj = liftIO $ getObjectPropertyULong obj "length" data DOMAudioTrackListLengthPropertyInfo instance AttrInfo DOMAudioTrackListLengthPropertyInfo where type AttrAllowedOps DOMAudioTrackListLengthPropertyInfo = '[ 'AttrGet] type AttrSetTypeConstraint DOMAudioTrackListLengthPropertyInfo = (~) () type AttrBaseTypeConstraint DOMAudioTrackListLengthPropertyInfo = DOMAudioTrackListK - type AttrGetType DOMAudioTrackListLengthPropertyInfo = Word64 + type AttrGetType DOMAudioTrackListLengthPropertyInfo = CULong type AttrLabel DOMAudioTrackListLengthPropertyInfo = "length" attrGet _ = getDOMAudioTrackListLength attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined type instance AttributeList DOMAudioTrackList = DOMAudioTrackListAttributeList type DOMAudioTrackListAttributeList = ('[ '("coreObject", DOMObjectCoreObjectPropertyInfo), '("length", DOMAudioTrackListLengthPropertyInfo)] :: [(Symbol, *)]) +dOMAudioTrackListLength :: AttrLabelProxy "length" +dOMAudioTrackListLength = AttrLabelProxy + type instance SignalList DOMAudioTrackList = DOMAudioTrackListSignalList type DOMAudioTrackListSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) @@ -147,7 +153,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMAudioTrackList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "evt", argType = TInterface "WebKit" "DOMEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : True -- Skip return : False @@ -183,19 +189,19 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMAudioTrackList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUInt64 +-- returnType : Just (TBasicType TULong) -- throws : False -- Skip return : False foreign import ccall "webkit_dom_audio_track_list_get_length" webkit_dom_audio_track_list_get_length :: Ptr DOMAudioTrackList -> -- _obj : TInterface "WebKit" "DOMAudioTrackList" - IO Word64 + IO CULong dOMAudioTrackListGetLength :: (MonadIO m, DOMAudioTrackListK a) => a -- _obj - -> m Word64 -- result + -> m CULong -- result dOMAudioTrackListGetLength _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- webkit_dom_audio_track_list_get_length _obj' @@ -203,14 +209,14 @@ return result data DOMAudioTrackListGetLengthMethodInfo -instance (signature ~ (m Word64), MonadIO m, DOMAudioTrackListK a) => MethodInfo DOMAudioTrackListGetLengthMethodInfo a signature where +instance (signature ~ (m CULong), MonadIO m, DOMAudioTrackListK a) => MethodInfo DOMAudioTrackListGetLengthMethodInfo a signature where overloadedMethod _ = dOMAudioTrackListGetLength -- method DOMAudioTrackList::get_track_by_id -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMAudioTrackList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit" "DOMAudioTrack" +-- returnType : Just (TInterface "WebKit" "DOMAudioTrack") -- throws : False -- Skip return : False @@ -241,22 +247,22 @@ -- method DOMAudioTrackList::item -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMAudioTrackList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "index", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMAudioTrackList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "index", argType = TBasicType TULong, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit" "DOMAudioTrack" +-- returnType : Just (TInterface "WebKit" "DOMAudioTrack") -- throws : False -- Skip return : False foreign import ccall "webkit_dom_audio_track_list_item" webkit_dom_audio_track_list_item :: Ptr DOMAudioTrackList -> -- _obj : TInterface "WebKit" "DOMAudioTrackList" - Word64 -> -- index : TBasicType TUInt64 + CULong -> -- index : TBasicType TULong IO (Ptr DOMAudioTrack) dOMAudioTrackListItem :: (MonadIO m, DOMAudioTrackListK a) => a -- _obj - -> Word64 -- index + -> CULong -- index -> m DOMAudioTrack -- result dOMAudioTrackListItem _obj index = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj @@ -267,7 +273,7 @@ return result' data DOMAudioTrackListItemMethodInfo -instance (signature ~ (Word64 -> m DOMAudioTrack), MonadIO m, DOMAudioTrackListK a) => MethodInfo DOMAudioTrackListItemMethodInfo a signature where +instance (signature ~ (CULong -> m DOMAudioTrack), MonadIO m, DOMAudioTrackListK a) => MethodInfo DOMAudioTrackListItemMethodInfo a signature where overloadedMethod _ = dOMAudioTrackListItem diff --git a/GI/WebKit/Objects/DOMAudioTrackList.hs-boot b/GI/WebKit/Objects/DOMAudioTrackList.hs-boot --- a/GI/WebKit/Objects/DOMAudioTrackList.hs-boot +++ b/GI/WebKit/Objects/DOMAudioTrackList.hs-boot @@ -1,8 +1,8 @@ module GI.WebKit.Objects.DOMAudioTrackList where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map diff --git a/GI/WebKit/Objects/DOMBarInfo.hs b/GI/WebKit/Objects/DOMBarInfo.hs --- a/GI/WebKit/Objects/DOMBarInfo.hs +++ b/GI/WebKit/Objects/DOMBarInfo.hs @@ -26,6 +26,7 @@ -- * Properties -- ** Visible DOMBarInfoVisiblePropertyInfo , + dOMBarInfoVisible , getDOMBarInfoVisible , @@ -33,9 +34,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map @@ -101,6 +102,7 @@ -- VVV Prop "visible" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable] + -- Nullable: (Nothing,Nothing) getDOMBarInfoVisible :: (MonadIO m, DOMBarInfoK o) => o -> m Bool getDOMBarInfoVisible obj = liftIO $ getObjectPropertyBool obj "visible" @@ -115,23 +117,27 @@ attrGet _ = getDOMBarInfoVisible attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined type instance AttributeList DOMBarInfo = DOMBarInfoAttributeList type DOMBarInfoAttributeList = ('[ '("coreObject", DOMObjectCoreObjectPropertyInfo), '("visible", DOMBarInfoVisiblePropertyInfo)] :: [(Symbol, *)]) +dOMBarInfoVisible :: AttrLabelProxy "visible" +dOMBarInfoVisible = AttrLabelProxy + type instance SignalList DOMBarInfo = DOMBarInfoSignalList type DOMBarInfoSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) -- method DOMBarInfo::get_visible -- method type : MemberFunction --- Args : [Arg {argCName = "self", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "self", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False foreign import ccall "webkit_dom_bar_info_get_visible" webkit_dom_bar_info_get_visible :: - Ptr () -> -- self : TBasicType TVoid + Ptr () -> -- self : TBasicType TPtr IO CInt {-# DEPRECATED dOMBarInfoGetVisible ["(Since version 2.2)"]#-} diff --git a/GI/WebKit/Objects/DOMBarInfo.hs-boot b/GI/WebKit/Objects/DOMBarInfo.hs-boot --- a/GI/WebKit/Objects/DOMBarInfo.hs-boot +++ b/GI/WebKit/Objects/DOMBarInfo.hs-boot @@ -1,8 +1,8 @@ module GI.WebKit.Objects.DOMBarInfo where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map diff --git a/GI/WebKit/Objects/DOMBarProp.hs b/GI/WebKit/Objects/DOMBarProp.hs --- a/GI/WebKit/Objects/DOMBarProp.hs +++ b/GI/WebKit/Objects/DOMBarProp.hs @@ -27,6 +27,7 @@ -- * Properties -- ** Visible DOMBarPropVisiblePropertyInfo , + dOMBarPropVisible , getDOMBarPropVisible , @@ -34,9 +35,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map @@ -103,6 +104,7 @@ -- VVV Prop "visible" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) getDOMBarPropVisible :: (MonadIO m, DOMBarPropK o) => o -> m Bool getDOMBarPropVisible obj = liftIO $ getObjectPropertyBool obj "visible" @@ -117,10 +119,14 @@ attrGet _ = getDOMBarPropVisible attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined type instance AttributeList DOMBarProp = DOMBarPropAttributeList type DOMBarPropAttributeList = ('[ '("coreObject", DOMObjectCoreObjectPropertyInfo), '("visible", DOMBarPropVisiblePropertyInfo)] :: [(Symbol, *)]) +dOMBarPropVisible :: AttrLabelProxy "visible" +dOMBarPropVisible = AttrLabelProxy + type instance SignalList DOMBarProp = DOMBarPropSignalList type DOMBarPropSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) @@ -128,7 +134,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMBarProp", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False diff --git a/GI/WebKit/Objects/DOMBarProp.hs-boot b/GI/WebKit/Objects/DOMBarProp.hs-boot --- a/GI/WebKit/Objects/DOMBarProp.hs-boot +++ b/GI/WebKit/Objects/DOMBarProp.hs-boot @@ -1,8 +1,8 @@ module GI.WebKit.Objects.DOMBarProp where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map diff --git a/GI/WebKit/Objects/DOMBatteryManager.hs b/GI/WebKit/Objects/DOMBatteryManager.hs --- a/GI/WebKit/Objects/DOMBatteryManager.hs +++ b/GI/WebKit/Objects/DOMBatteryManager.hs @@ -47,21 +47,25 @@ -- * Properties -- ** Charging DOMBatteryManagerChargingPropertyInfo , + dOMBatteryManagerCharging , getDOMBatteryManagerCharging , -- ** ChargingTime DOMBatteryManagerChargingTimePropertyInfo, + dOMBatteryManagerChargingTime , getDOMBatteryManagerChargingTime , -- ** DischargingTime DOMBatteryManagerDischargingTimePropertyInfo, + dOMBatteryManagerDischargingTime , getDOMBatteryManagerDischargingTime , -- ** Level DOMBatteryManagerLevelPropertyInfo , + dOMBatteryManagerLevel , getDOMBatteryManagerLevel , @@ -69,9 +73,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map @@ -143,6 +147,7 @@ -- VVV Prop "charging" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) getDOMBatteryManagerCharging :: (MonadIO m, DOMBatteryManagerK o) => o -> m Bool getDOMBatteryManagerCharging obj = liftIO $ getObjectPropertyBool obj "charging" @@ -157,10 +162,12 @@ attrGet _ = getDOMBatteryManagerCharging attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "charging-time" -- Type: TBasicType TDouble -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) getDOMBatteryManagerChargingTime :: (MonadIO m, DOMBatteryManagerK o) => o -> m Double getDOMBatteryManagerChargingTime obj = liftIO $ getObjectPropertyDouble obj "charging-time" @@ -175,10 +182,12 @@ attrGet _ = getDOMBatteryManagerChargingTime attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "discharging-time" -- Type: TBasicType TDouble -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) getDOMBatteryManagerDischargingTime :: (MonadIO m, DOMBatteryManagerK o) => o -> m Double getDOMBatteryManagerDischargingTime obj = liftIO $ getObjectPropertyDouble obj "discharging-time" @@ -193,10 +202,12 @@ attrGet _ = getDOMBatteryManagerDischargingTime attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "level" -- Type: TBasicType TDouble -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) getDOMBatteryManagerLevel :: (MonadIO m, DOMBatteryManagerK o) => o -> m Double getDOMBatteryManagerLevel obj = liftIO $ getObjectPropertyDouble obj "level" @@ -211,10 +222,23 @@ attrGet _ = getDOMBatteryManagerLevel attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined type instance AttributeList DOMBatteryManager = DOMBatteryManagerAttributeList type DOMBatteryManagerAttributeList = ('[ '("charging", DOMBatteryManagerChargingPropertyInfo), '("chargingTime", DOMBatteryManagerChargingTimePropertyInfo), '("coreObject", DOMObjectCoreObjectPropertyInfo), '("dischargingTime", DOMBatteryManagerDischargingTimePropertyInfo), '("level", DOMBatteryManagerLevelPropertyInfo)] :: [(Symbol, *)]) +dOMBatteryManagerCharging :: AttrLabelProxy "charging" +dOMBatteryManagerCharging = AttrLabelProxy + +dOMBatteryManagerChargingTime :: AttrLabelProxy "chargingTime" +dOMBatteryManagerChargingTime = AttrLabelProxy + +dOMBatteryManagerDischargingTime :: AttrLabelProxy "dischargingTime" +dOMBatteryManagerDischargingTime = AttrLabelProxy + +dOMBatteryManagerLevel :: AttrLabelProxy "level" +dOMBatteryManagerLevel = AttrLabelProxy + type instance SignalList DOMBatteryManager = DOMBatteryManagerSignalList type DOMBatteryManagerSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) @@ -222,7 +246,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMBatteryManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "event", argType = TInterface "WebKit" "DOMEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : True -- Skip return : False @@ -258,7 +282,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMBatteryManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -286,7 +310,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMBatteryManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TDouble +-- returnType : Just (TBasicType TDouble) -- throws : False -- Skip return : False @@ -314,7 +338,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMBatteryManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TDouble +-- returnType : Just (TBasicType TDouble) -- throws : False -- Skip return : False @@ -342,7 +366,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMBatteryManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TDouble +-- returnType : Just (TBasicType TDouble) -- throws : False -- Skip return : False diff --git a/GI/WebKit/Objects/DOMBatteryManager.hs-boot b/GI/WebKit/Objects/DOMBatteryManager.hs-boot --- a/GI/WebKit/Objects/DOMBatteryManager.hs-boot +++ b/GI/WebKit/Objects/DOMBatteryManager.hs-boot @@ -1,8 +1,8 @@ module GI.WebKit.Objects.DOMBatteryManager where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map diff --git a/GI/WebKit/Objects/DOMBlob.hs b/GI/WebKit/Objects/DOMBlob.hs --- a/GI/WebKit/Objects/DOMBlob.hs +++ b/GI/WebKit/Objects/DOMBlob.hs @@ -37,11 +37,13 @@ -- * Properties -- ** Size DOMBlobSizePropertyInfo , + dOMBlobSize , getDOMBlobSize , -- ** Type DOMBlobTypePropertyInfo , + dOMBlobType , getDOMBlobType , @@ -49,9 +51,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map @@ -120,6 +122,7 @@ -- VVV Prop "size" -- Type: TBasicType TUInt64 -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) getDOMBlobSize :: (MonadIO m, DOMBlobK o) => o -> m Word64 getDOMBlobSize obj = liftIO $ getObjectPropertyUInt64 obj "size" @@ -134,28 +137,37 @@ attrGet _ = getDOMBlobSize attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "type" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable] + -- Nullable: (Nothing,Nothing) -getDOMBlobType :: (MonadIO m, DOMBlobK o) => o -> m T.Text +getDOMBlobType :: (MonadIO m, DOMBlobK o) => o -> m (Maybe T.Text) getDOMBlobType obj = liftIO $ getObjectPropertyString obj "type" data DOMBlobTypePropertyInfo instance AttrInfo DOMBlobTypePropertyInfo where - type AttrAllowedOps DOMBlobTypePropertyInfo = '[ 'AttrGet] + type AttrAllowedOps DOMBlobTypePropertyInfo = '[ 'AttrGet, 'AttrClear] type AttrSetTypeConstraint DOMBlobTypePropertyInfo = (~) () type AttrBaseTypeConstraint DOMBlobTypePropertyInfo = DOMBlobK - type AttrGetType DOMBlobTypePropertyInfo = T.Text + type AttrGetType DOMBlobTypePropertyInfo = (Maybe T.Text) type AttrLabel DOMBlobTypePropertyInfo = "type" attrGet _ = getDOMBlobType attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined type instance AttributeList DOMBlob = DOMBlobAttributeList type DOMBlobAttributeList = ('[ '("coreObject", DOMObjectCoreObjectPropertyInfo), '("size", DOMBlobSizePropertyInfo), '("type", DOMBlobTypePropertyInfo)] :: [(Symbol, *)]) +dOMBlobSize :: AttrLabelProxy "size" +dOMBlobSize = AttrLabelProxy + +dOMBlobType :: AttrLabelProxy "type" +dOMBlobType = AttrLabelProxy + type instance SignalList DOMBlob = DOMBlobSignalList type DOMBlobSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) @@ -163,7 +175,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMBlob", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUInt64 +-- returnType : Just (TBasicType TUInt64) -- throws : False -- Skip return : False @@ -190,7 +202,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMBlob", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "start", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "end", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "contentType", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit" "DOMBlob" +-- returnType : Just (TInterface "WebKit" "DOMBlob") -- throws : False -- Skip return : False @@ -227,7 +239,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMBlob", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "start", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "end", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "content_type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit" "DOMBlob" +-- returnType : Just (TInterface "WebKit" "DOMBlob") -- throws : False -- Skip return : False diff --git a/GI/WebKit/Objects/DOMBlob.hs-boot b/GI/WebKit/Objects/DOMBlob.hs-boot --- a/GI/WebKit/Objects/DOMBlob.hs-boot +++ b/GI/WebKit/Objects/DOMBlob.hs-boot @@ -1,8 +1,8 @@ module GI.WebKit.Objects.DOMBlob where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map diff --git a/GI/WebKit/Objects/DOMCDATASection.hs b/GI/WebKit/Objects/DOMCDATASection.hs --- a/GI/WebKit/Objects/DOMCDATASection.hs +++ b/GI/WebKit/Objects/DOMCDATASection.hs @@ -18,9 +18,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map diff --git a/GI/WebKit/Objects/DOMCDATASection.hs-boot b/GI/WebKit/Objects/DOMCDATASection.hs-boot --- a/GI/WebKit/Objects/DOMCDATASection.hs-boot +++ b/GI/WebKit/Objects/DOMCDATASection.hs-boot @@ -1,8 +1,8 @@ module GI.WebKit.Objects.DOMCDATASection where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map diff --git a/GI/WebKit/Objects/DOMCSSRule.hs b/GI/WebKit/Objects/DOMCSSRule.hs --- a/GI/WebKit/Objects/DOMCSSRule.hs +++ b/GI/WebKit/Objects/DOMCSSRule.hs @@ -42,23 +42,28 @@ -- * Properties -- ** CssText DOMCSSRuleCssTextPropertyInfo , + clearDOMCSSRuleCssText , constructDOMCSSRuleCssText , + dOMCSSRuleCssText , getDOMCSSRuleCssText , setDOMCSSRuleCssText , -- ** ParentRule DOMCSSRuleParentRulePropertyInfo , + dOMCSSRuleParentRule , getDOMCSSRuleParentRule , -- ** ParentStyleSheet DOMCSSRuleParentStyleSheetPropertyInfo , + dOMCSSRuleParentStyleSheet , getDOMCSSRuleParentStyleSheet , -- ** Type DOMCSSRuleTypePropertyInfo , + dOMCSSRuleType , getDOMCSSRuleType , @@ -66,9 +71,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map @@ -138,69 +143,79 @@ -- VVV Prop "css-text" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) -getDOMCSSRuleCssText :: (MonadIO m, DOMCSSRuleK o) => o -> m T.Text +getDOMCSSRuleCssText :: (MonadIO m, DOMCSSRuleK o) => o -> m (Maybe T.Text) getDOMCSSRuleCssText obj = liftIO $ getObjectPropertyString obj "css-text" setDOMCSSRuleCssText :: (MonadIO m, DOMCSSRuleK o) => o -> T.Text -> m () -setDOMCSSRuleCssText obj val = liftIO $ setObjectPropertyString obj "css-text" val +setDOMCSSRuleCssText obj val = liftIO $ setObjectPropertyString obj "css-text" (Just val) constructDOMCSSRuleCssText :: T.Text -> IO ([Char], GValue) -constructDOMCSSRuleCssText val = constructObjectPropertyString "css-text" val +constructDOMCSSRuleCssText val = constructObjectPropertyString "css-text" (Just val) +clearDOMCSSRuleCssText :: (MonadIO m, DOMCSSRuleK o) => o -> m () +clearDOMCSSRuleCssText obj = liftIO $ setObjectPropertyString obj "css-text" (Nothing :: Maybe T.Text) + data DOMCSSRuleCssTextPropertyInfo instance AttrInfo DOMCSSRuleCssTextPropertyInfo where - type AttrAllowedOps DOMCSSRuleCssTextPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrAllowedOps DOMCSSRuleCssTextPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint DOMCSSRuleCssTextPropertyInfo = (~) T.Text type AttrBaseTypeConstraint DOMCSSRuleCssTextPropertyInfo = DOMCSSRuleK - type AttrGetType DOMCSSRuleCssTextPropertyInfo = T.Text + type AttrGetType DOMCSSRuleCssTextPropertyInfo = (Maybe T.Text) type AttrLabel DOMCSSRuleCssTextPropertyInfo = "css-text" attrGet _ = getDOMCSSRuleCssText attrSet _ = setDOMCSSRuleCssText attrConstruct _ = constructDOMCSSRuleCssText + attrClear _ = clearDOMCSSRuleCssText -- VVV Prop "parent-rule" -- Type: TInterface "WebKit" "DOMCSSRule" -- Flags: [PropertyReadable] + -- Nullable: (Nothing,Nothing) -getDOMCSSRuleParentRule :: (MonadIO m, DOMCSSRuleK o) => o -> m DOMCSSRule +getDOMCSSRuleParentRule :: (MonadIO m, DOMCSSRuleK o) => o -> m (Maybe DOMCSSRule) getDOMCSSRuleParentRule obj = liftIO $ getObjectPropertyObject obj "parent-rule" DOMCSSRule data DOMCSSRuleParentRulePropertyInfo instance AttrInfo DOMCSSRuleParentRulePropertyInfo where - type AttrAllowedOps DOMCSSRuleParentRulePropertyInfo = '[ 'AttrGet] + type AttrAllowedOps DOMCSSRuleParentRulePropertyInfo = '[ 'AttrGet, 'AttrClear] type AttrSetTypeConstraint DOMCSSRuleParentRulePropertyInfo = (~) () type AttrBaseTypeConstraint DOMCSSRuleParentRulePropertyInfo = DOMCSSRuleK - type AttrGetType DOMCSSRuleParentRulePropertyInfo = DOMCSSRule + type AttrGetType DOMCSSRuleParentRulePropertyInfo = (Maybe DOMCSSRule) type AttrLabel DOMCSSRuleParentRulePropertyInfo = "parent-rule" attrGet _ = getDOMCSSRuleParentRule attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "parent-style-sheet" -- Type: TInterface "WebKit" "DOMCSSStyleSheet" -- Flags: [PropertyReadable] + -- Nullable: (Nothing,Nothing) -getDOMCSSRuleParentStyleSheet :: (MonadIO m, DOMCSSRuleK o) => o -> m DOMCSSStyleSheet +getDOMCSSRuleParentStyleSheet :: (MonadIO m, DOMCSSRuleK o) => o -> m (Maybe DOMCSSStyleSheet) getDOMCSSRuleParentStyleSheet obj = liftIO $ getObjectPropertyObject obj "parent-style-sheet" DOMCSSStyleSheet data DOMCSSRuleParentStyleSheetPropertyInfo instance AttrInfo DOMCSSRuleParentStyleSheetPropertyInfo where - type AttrAllowedOps DOMCSSRuleParentStyleSheetPropertyInfo = '[ 'AttrGet] + type AttrAllowedOps DOMCSSRuleParentStyleSheetPropertyInfo = '[ 'AttrGet, 'AttrClear] type AttrSetTypeConstraint DOMCSSRuleParentStyleSheetPropertyInfo = (~) () type AttrBaseTypeConstraint DOMCSSRuleParentStyleSheetPropertyInfo = DOMCSSRuleK - type AttrGetType DOMCSSRuleParentStyleSheetPropertyInfo = DOMCSSStyleSheet + type AttrGetType DOMCSSRuleParentStyleSheetPropertyInfo = (Maybe DOMCSSStyleSheet) type AttrLabel DOMCSSRuleParentStyleSheetPropertyInfo = "parent-style-sheet" attrGet _ = getDOMCSSRuleParentStyleSheet attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "type" - -- Type: TBasicType TUInt32 + -- Type: TBasicType TUInt -- Flags: [PropertyReadable] + -- Nullable: (Nothing,Nothing) getDOMCSSRuleType :: (MonadIO m, DOMCSSRuleK o) => o -> m Word32 -getDOMCSSRuleType obj = liftIO $ getObjectPropertyCUInt obj "type" +getDOMCSSRuleType obj = liftIO $ getObjectPropertyUInt32 obj "type" data DOMCSSRuleTypePropertyInfo instance AttrInfo DOMCSSRuleTypePropertyInfo where @@ -212,10 +227,23 @@ attrGet _ = getDOMCSSRuleType attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined type instance AttributeList DOMCSSRule = DOMCSSRuleAttributeList type DOMCSSRuleAttributeList = ('[ '("coreObject", DOMObjectCoreObjectPropertyInfo), '("cssText", DOMCSSRuleCssTextPropertyInfo), '("parentRule", DOMCSSRuleParentRulePropertyInfo), '("parentStyleSheet", DOMCSSRuleParentStyleSheetPropertyInfo), '("type", DOMCSSRuleTypePropertyInfo)] :: [(Symbol, *)]) +dOMCSSRuleCssText :: AttrLabelProxy "cssText" +dOMCSSRuleCssText = AttrLabelProxy + +dOMCSSRuleParentRule :: AttrLabelProxy "parentRule" +dOMCSSRuleParentRule = AttrLabelProxy + +dOMCSSRuleParentStyleSheet :: AttrLabelProxy "parentStyleSheet" +dOMCSSRuleParentStyleSheet = AttrLabelProxy + +dOMCSSRuleType :: AttrLabelProxy "type" +dOMCSSRuleType = AttrLabelProxy + type instance SignalList DOMCSSRule = DOMCSSRuleSignalList type DOMCSSRuleSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) @@ -223,7 +251,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMCSSRule", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -253,7 +281,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMCSSRule", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit" "DOMCSSRule" +-- returnType : Just (TInterface "WebKit" "DOMCSSRule") -- throws : False -- Skip return : False @@ -282,7 +310,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMCSSRule", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit" "DOMCSSStyleSheet" +-- returnType : Just (TInterface "WebKit" "DOMCSSStyleSheet") -- throws : False -- Skip return : False @@ -311,7 +339,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMCSSRule", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : True -- Skip return : False diff --git a/GI/WebKit/Objects/DOMCSSRule.hs-boot b/GI/WebKit/Objects/DOMCSSRule.hs-boot --- a/GI/WebKit/Objects/DOMCSSRule.hs-boot +++ b/GI/WebKit/Objects/DOMCSSRule.hs-boot @@ -1,8 +1,8 @@ module GI.WebKit.Objects.DOMCSSRule where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map diff --git a/GI/WebKit/Objects/DOMCSSRuleList.hs b/GI/WebKit/Objects/DOMCSSRuleList.hs --- a/GI/WebKit/Objects/DOMCSSRuleList.hs +++ b/GI/WebKit/Objects/DOMCSSRuleList.hs @@ -32,6 +32,7 @@ -- * Properties -- ** Length DOMCSSRuleListLengthPropertyInfo , + dOMCSSRuleListLength , getDOMCSSRuleListLength , @@ -39,9 +40,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map @@ -107,26 +108,31 @@ #endif -- VVV Prop "length" - -- Type: TBasicType TUInt64 + -- Type: TBasicType TULong -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) -getDOMCSSRuleListLength :: (MonadIO m, DOMCSSRuleListK o) => o -> m Word64 -getDOMCSSRuleListLength obj = liftIO $ getObjectPropertyUInt64 obj "length" +getDOMCSSRuleListLength :: (MonadIO m, DOMCSSRuleListK o) => o -> m CULong +getDOMCSSRuleListLength obj = liftIO $ getObjectPropertyULong obj "length" data DOMCSSRuleListLengthPropertyInfo instance AttrInfo DOMCSSRuleListLengthPropertyInfo where type AttrAllowedOps DOMCSSRuleListLengthPropertyInfo = '[ 'AttrGet] type AttrSetTypeConstraint DOMCSSRuleListLengthPropertyInfo = (~) () type AttrBaseTypeConstraint DOMCSSRuleListLengthPropertyInfo = DOMCSSRuleListK - type AttrGetType DOMCSSRuleListLengthPropertyInfo = Word64 + type AttrGetType DOMCSSRuleListLengthPropertyInfo = CULong type AttrLabel DOMCSSRuleListLengthPropertyInfo = "length" attrGet _ = getDOMCSSRuleListLength attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined type instance AttributeList DOMCSSRuleList = DOMCSSRuleListAttributeList type DOMCSSRuleListAttributeList = ('[ '("coreObject", DOMObjectCoreObjectPropertyInfo), '("length", DOMCSSRuleListLengthPropertyInfo)] :: [(Symbol, *)]) +dOMCSSRuleListLength :: AttrLabelProxy "length" +dOMCSSRuleListLength = AttrLabelProxy + type instance SignalList DOMCSSRuleList = DOMCSSRuleListSignalList type DOMCSSRuleListSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) @@ -134,19 +140,19 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMCSSRuleList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUInt64 +-- returnType : Just (TBasicType TULong) -- throws : False -- Skip return : False foreign import ccall "webkit_dom_css_rule_list_get_length" webkit_dom_css_rule_list_get_length :: Ptr DOMCSSRuleList -> -- _obj : TInterface "WebKit" "DOMCSSRuleList" - IO Word64 + IO CULong dOMCSSRuleListGetLength :: (MonadIO m, DOMCSSRuleListK a) => a -- _obj - -> m Word64 -- result + -> m CULong -- result dOMCSSRuleListGetLength _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- webkit_dom_css_rule_list_get_length _obj' @@ -154,27 +160,27 @@ return result data DOMCSSRuleListGetLengthMethodInfo -instance (signature ~ (m Word64), MonadIO m, DOMCSSRuleListK a) => MethodInfo DOMCSSRuleListGetLengthMethodInfo a signature where +instance (signature ~ (m CULong), MonadIO m, DOMCSSRuleListK a) => MethodInfo DOMCSSRuleListGetLengthMethodInfo a signature where overloadedMethod _ = dOMCSSRuleListGetLength -- method DOMCSSRuleList::item -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMCSSRuleList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "index", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMCSSRuleList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "index", argType = TBasicType TULong, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit" "DOMCSSRule" +-- returnType : Just (TInterface "WebKit" "DOMCSSRule") -- throws : False -- Skip return : False foreign import ccall "webkit_dom_css_rule_list_item" webkit_dom_css_rule_list_item :: Ptr DOMCSSRuleList -> -- _obj : TInterface "WebKit" "DOMCSSRuleList" - Word64 -> -- index : TBasicType TUInt64 + CULong -> -- index : TBasicType TULong IO (Ptr DOMCSSRule) dOMCSSRuleListItem :: (MonadIO m, DOMCSSRuleListK a) => a -- _obj - -> Word64 -- index + -> CULong -- index -> m DOMCSSRule -- result dOMCSSRuleListItem _obj index = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj @@ -185,7 +191,7 @@ return result' data DOMCSSRuleListItemMethodInfo -instance (signature ~ (Word64 -> m DOMCSSRule), MonadIO m, DOMCSSRuleListK a) => MethodInfo DOMCSSRuleListItemMethodInfo a signature where +instance (signature ~ (CULong -> m DOMCSSRule), MonadIO m, DOMCSSRuleListK a) => MethodInfo DOMCSSRuleListItemMethodInfo a signature where overloadedMethod _ = dOMCSSRuleListItem diff --git a/GI/WebKit/Objects/DOMCSSRuleList.hs-boot b/GI/WebKit/Objects/DOMCSSRuleList.hs-boot --- a/GI/WebKit/Objects/DOMCSSRuleList.hs-boot +++ b/GI/WebKit/Objects/DOMCSSRuleList.hs-boot @@ -1,8 +1,8 @@ module GI.WebKit.Objects.DOMCSSRuleList where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map diff --git a/GI/WebKit/Objects/DOMCSSStyleDeclaration.hs b/GI/WebKit/Objects/DOMCSSStyleDeclaration.hs --- a/GI/WebKit/Objects/DOMCSSStyleDeclaration.hs +++ b/GI/WebKit/Objects/DOMCSSStyleDeclaration.hs @@ -82,18 +82,22 @@ -- * Properties -- ** CssText DOMCSSStyleDeclarationCssTextPropertyInfo, + clearDOMCSSStyleDeclarationCssText , constructDOMCSSStyleDeclarationCssText , + dOMCSSStyleDeclarationCssText , getDOMCSSStyleDeclarationCssText , setDOMCSSStyleDeclarationCssText , -- ** Length DOMCSSStyleDeclarationLengthPropertyInfo, + dOMCSSStyleDeclarationLength , getDOMCSSStyleDeclarationLength , -- ** ParentRule DOMCSSStyleDeclarationParentRulePropertyInfo, + dOMCSSStyleDeclarationParentRule , getDOMCSSStyleDeclarationParentRule , @@ -101,9 +105,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map @@ -179,66 +183,84 @@ -- VVV Prop "css-text" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) -getDOMCSSStyleDeclarationCssText :: (MonadIO m, DOMCSSStyleDeclarationK o) => o -> m T.Text +getDOMCSSStyleDeclarationCssText :: (MonadIO m, DOMCSSStyleDeclarationK o) => o -> m (Maybe T.Text) getDOMCSSStyleDeclarationCssText obj = liftIO $ getObjectPropertyString obj "css-text" setDOMCSSStyleDeclarationCssText :: (MonadIO m, DOMCSSStyleDeclarationK o) => o -> T.Text -> m () -setDOMCSSStyleDeclarationCssText obj val = liftIO $ setObjectPropertyString obj "css-text" val +setDOMCSSStyleDeclarationCssText obj val = liftIO $ setObjectPropertyString obj "css-text" (Just val) constructDOMCSSStyleDeclarationCssText :: T.Text -> IO ([Char], GValue) -constructDOMCSSStyleDeclarationCssText val = constructObjectPropertyString "css-text" val +constructDOMCSSStyleDeclarationCssText val = constructObjectPropertyString "css-text" (Just val) +clearDOMCSSStyleDeclarationCssText :: (MonadIO m, DOMCSSStyleDeclarationK o) => o -> m () +clearDOMCSSStyleDeclarationCssText obj = liftIO $ setObjectPropertyString obj "css-text" (Nothing :: Maybe T.Text) + data DOMCSSStyleDeclarationCssTextPropertyInfo instance AttrInfo DOMCSSStyleDeclarationCssTextPropertyInfo where - type AttrAllowedOps DOMCSSStyleDeclarationCssTextPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrAllowedOps DOMCSSStyleDeclarationCssTextPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint DOMCSSStyleDeclarationCssTextPropertyInfo = (~) T.Text type AttrBaseTypeConstraint DOMCSSStyleDeclarationCssTextPropertyInfo = DOMCSSStyleDeclarationK - type AttrGetType DOMCSSStyleDeclarationCssTextPropertyInfo = T.Text + type AttrGetType DOMCSSStyleDeclarationCssTextPropertyInfo = (Maybe T.Text) type AttrLabel DOMCSSStyleDeclarationCssTextPropertyInfo = "css-text" attrGet _ = getDOMCSSStyleDeclarationCssText attrSet _ = setDOMCSSStyleDeclarationCssText attrConstruct _ = constructDOMCSSStyleDeclarationCssText + attrClear _ = clearDOMCSSStyleDeclarationCssText -- VVV Prop "length" - -- Type: TBasicType TUInt64 + -- Type: TBasicType TULong -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) -getDOMCSSStyleDeclarationLength :: (MonadIO m, DOMCSSStyleDeclarationK o) => o -> m Word64 -getDOMCSSStyleDeclarationLength obj = liftIO $ getObjectPropertyUInt64 obj "length" +getDOMCSSStyleDeclarationLength :: (MonadIO m, DOMCSSStyleDeclarationK o) => o -> m CULong +getDOMCSSStyleDeclarationLength obj = liftIO $ getObjectPropertyULong obj "length" data DOMCSSStyleDeclarationLengthPropertyInfo instance AttrInfo DOMCSSStyleDeclarationLengthPropertyInfo where type AttrAllowedOps DOMCSSStyleDeclarationLengthPropertyInfo = '[ 'AttrGet] type AttrSetTypeConstraint DOMCSSStyleDeclarationLengthPropertyInfo = (~) () type AttrBaseTypeConstraint DOMCSSStyleDeclarationLengthPropertyInfo = DOMCSSStyleDeclarationK - type AttrGetType DOMCSSStyleDeclarationLengthPropertyInfo = Word64 + type AttrGetType DOMCSSStyleDeclarationLengthPropertyInfo = CULong type AttrLabel DOMCSSStyleDeclarationLengthPropertyInfo = "length" attrGet _ = getDOMCSSStyleDeclarationLength attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "parent-rule" -- Type: TInterface "WebKit" "DOMCSSRule" -- Flags: [PropertyReadable] + -- Nullable: (Nothing,Nothing) -getDOMCSSStyleDeclarationParentRule :: (MonadIO m, DOMCSSStyleDeclarationK o) => o -> m DOMCSSRule +getDOMCSSStyleDeclarationParentRule :: (MonadIO m, DOMCSSStyleDeclarationK o) => o -> m (Maybe DOMCSSRule) getDOMCSSStyleDeclarationParentRule obj = liftIO $ getObjectPropertyObject obj "parent-rule" DOMCSSRule data DOMCSSStyleDeclarationParentRulePropertyInfo instance AttrInfo DOMCSSStyleDeclarationParentRulePropertyInfo where - type AttrAllowedOps DOMCSSStyleDeclarationParentRulePropertyInfo = '[ 'AttrGet] + type AttrAllowedOps DOMCSSStyleDeclarationParentRulePropertyInfo = '[ 'AttrGet, 'AttrClear] type AttrSetTypeConstraint DOMCSSStyleDeclarationParentRulePropertyInfo = (~) () type AttrBaseTypeConstraint DOMCSSStyleDeclarationParentRulePropertyInfo = DOMCSSStyleDeclarationK - type AttrGetType DOMCSSStyleDeclarationParentRulePropertyInfo = DOMCSSRule + type AttrGetType DOMCSSStyleDeclarationParentRulePropertyInfo = (Maybe DOMCSSRule) type AttrLabel DOMCSSStyleDeclarationParentRulePropertyInfo = "parent-rule" attrGet _ = getDOMCSSStyleDeclarationParentRule attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined type instance AttributeList DOMCSSStyleDeclaration = DOMCSSStyleDeclarationAttributeList type DOMCSSStyleDeclarationAttributeList = ('[ '("coreObject", DOMObjectCoreObjectPropertyInfo), '("cssText", DOMCSSStyleDeclarationCssTextPropertyInfo), '("length", DOMCSSStyleDeclarationLengthPropertyInfo), '("parentRule", DOMCSSStyleDeclarationParentRulePropertyInfo)] :: [(Symbol, *)]) +dOMCSSStyleDeclarationCssText :: AttrLabelProxy "cssText" +dOMCSSStyleDeclarationCssText = AttrLabelProxy + +dOMCSSStyleDeclarationLength :: AttrLabelProxy "length" +dOMCSSStyleDeclarationLength = AttrLabelProxy + +dOMCSSStyleDeclarationParentRule :: AttrLabelProxy "parentRule" +dOMCSSStyleDeclarationParentRule = AttrLabelProxy + type instance SignalList DOMCSSStyleDeclaration = DOMCSSStyleDeclarationSignalList type DOMCSSStyleDeclarationSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) @@ -246,7 +268,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMCSSStyleDeclaration", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -276,19 +298,19 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMCSSStyleDeclaration", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUInt64 +-- returnType : Just (TBasicType TULong) -- throws : False -- Skip return : False foreign import ccall "webkit_dom_css_style_declaration_get_length" webkit_dom_css_style_declaration_get_length :: Ptr DOMCSSStyleDeclaration -> -- _obj : TInterface "WebKit" "DOMCSSStyleDeclaration" - IO Word64 + IO CULong dOMCSSStyleDeclarationGetLength :: (MonadIO m, DOMCSSStyleDeclarationK a) => a -- _obj - -> m Word64 -- result + -> m CULong -- result dOMCSSStyleDeclarationGetLength _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- webkit_dom_css_style_declaration_get_length _obj' @@ -296,14 +318,14 @@ return result data DOMCSSStyleDeclarationGetLengthMethodInfo -instance (signature ~ (m Word64), MonadIO m, DOMCSSStyleDeclarationK a) => MethodInfo DOMCSSStyleDeclarationGetLengthMethodInfo a signature where +instance (signature ~ (m CULong), MonadIO m, DOMCSSStyleDeclarationK a) => MethodInfo DOMCSSStyleDeclarationGetLengthMethodInfo a signature where overloadedMethod _ = dOMCSSStyleDeclarationGetLength -- method DOMCSSStyleDeclaration::get_parent_rule -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMCSSStyleDeclaration", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit" "DOMCSSRule" +-- returnType : Just (TInterface "WebKit" "DOMCSSRule") -- throws : False -- Skip return : False @@ -332,7 +354,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMCSSStyleDeclaration", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "propertyName", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit" "DOMCSSValue" +-- returnType : Just (TInterface "WebKit" "DOMCSSValue") -- throws : False -- Skip return : False @@ -365,7 +387,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMCSSStyleDeclaration", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "propertyName", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -399,7 +421,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMCSSStyleDeclaration", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "propertyName", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -433,7 +455,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMCSSStyleDeclaration", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "propertyName", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -467,7 +489,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMCSSStyleDeclaration", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "propertyName", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -497,22 +519,22 @@ -- method DOMCSSStyleDeclaration::item -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMCSSStyleDeclaration", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "index", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMCSSStyleDeclaration", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "index", argType = TBasicType TULong, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False foreign import ccall "webkit_dom_css_style_declaration_item" webkit_dom_css_style_declaration_item :: Ptr DOMCSSStyleDeclaration -> -- _obj : TInterface "WebKit" "DOMCSSStyleDeclaration" - Word64 -> -- index : TBasicType TUInt64 + CULong -> -- index : TBasicType TULong IO CString dOMCSSStyleDeclarationItem :: (MonadIO m, DOMCSSStyleDeclarationK a) => a -- _obj - -> Word64 -- index + -> CULong -- index -> m T.Text -- result dOMCSSStyleDeclarationItem _obj index = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj @@ -524,14 +546,14 @@ return result' data DOMCSSStyleDeclarationItemMethodInfo -instance (signature ~ (Word64 -> m T.Text), MonadIO m, DOMCSSStyleDeclarationK a) => MethodInfo DOMCSSStyleDeclarationItemMethodInfo a signature where +instance (signature ~ (CULong -> m T.Text), MonadIO m, DOMCSSStyleDeclarationK a) => MethodInfo DOMCSSStyleDeclarationItemMethodInfo a signature where overloadedMethod _ = dOMCSSStyleDeclarationItem -- method DOMCSSStyleDeclaration::remove_property -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMCSSStyleDeclaration", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "propertyName", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : True -- Skip return : False @@ -570,7 +592,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMCSSStyleDeclaration", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : True -- Skip return : False @@ -606,7 +628,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMCSSStyleDeclaration", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "propertyName", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "priority", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : True -- Skip return : False diff --git a/GI/WebKit/Objects/DOMCSSStyleDeclaration.hs-boot b/GI/WebKit/Objects/DOMCSSStyleDeclaration.hs-boot --- a/GI/WebKit/Objects/DOMCSSStyleDeclaration.hs-boot +++ b/GI/WebKit/Objects/DOMCSSStyleDeclaration.hs-boot @@ -1,8 +1,8 @@ module GI.WebKit.Objects.DOMCSSStyleDeclaration where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map diff --git a/GI/WebKit/Objects/DOMCSSStyleSheet.hs b/GI/WebKit/Objects/DOMCSSStyleSheet.hs --- a/GI/WebKit/Objects/DOMCSSStyleSheet.hs +++ b/GI/WebKit/Objects/DOMCSSStyleSheet.hs @@ -57,16 +57,19 @@ -- * Properties -- ** CssRules DOMCSSStyleSheetCssRulesPropertyInfo , + dOMCSSStyleSheetCssRules , getDOMCSSStyleSheetCssRules , -- ** OwnerRule DOMCSSStyleSheetOwnerRulePropertyInfo , + dOMCSSStyleSheetOwnerRule , getDOMCSSStyleSheetOwnerRule , -- ** Rules DOMCSSStyleSheetRulesPropertyInfo , + dOMCSSStyleSheetRules , getDOMCSSStyleSheetRules , @@ -74,9 +77,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map @@ -156,68 +159,83 @@ -- VVV Prop "css-rules" -- Type: TInterface "WebKit" "DOMCSSRuleList" -- Flags: [PropertyReadable] + -- Nullable: (Nothing,Nothing) -getDOMCSSStyleSheetCssRules :: (MonadIO m, DOMCSSStyleSheetK o) => o -> m DOMCSSRuleList +getDOMCSSStyleSheetCssRules :: (MonadIO m, DOMCSSStyleSheetK o) => o -> m (Maybe DOMCSSRuleList) getDOMCSSStyleSheetCssRules obj = liftIO $ getObjectPropertyObject obj "css-rules" DOMCSSRuleList data DOMCSSStyleSheetCssRulesPropertyInfo instance AttrInfo DOMCSSStyleSheetCssRulesPropertyInfo where - type AttrAllowedOps DOMCSSStyleSheetCssRulesPropertyInfo = '[ 'AttrGet] + type AttrAllowedOps DOMCSSStyleSheetCssRulesPropertyInfo = '[ 'AttrGet, 'AttrClear] type AttrSetTypeConstraint DOMCSSStyleSheetCssRulesPropertyInfo = (~) () type AttrBaseTypeConstraint DOMCSSStyleSheetCssRulesPropertyInfo = DOMCSSStyleSheetK - type AttrGetType DOMCSSStyleSheetCssRulesPropertyInfo = DOMCSSRuleList + type AttrGetType DOMCSSStyleSheetCssRulesPropertyInfo = (Maybe DOMCSSRuleList) type AttrLabel DOMCSSStyleSheetCssRulesPropertyInfo = "css-rules" attrGet _ = getDOMCSSStyleSheetCssRules attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "owner-rule" -- Type: TInterface "WebKit" "DOMCSSRule" -- Flags: [PropertyReadable] + -- Nullable: (Nothing,Nothing) -getDOMCSSStyleSheetOwnerRule :: (MonadIO m, DOMCSSStyleSheetK o) => o -> m DOMCSSRule +getDOMCSSStyleSheetOwnerRule :: (MonadIO m, DOMCSSStyleSheetK o) => o -> m (Maybe DOMCSSRule) getDOMCSSStyleSheetOwnerRule obj = liftIO $ getObjectPropertyObject obj "owner-rule" DOMCSSRule data DOMCSSStyleSheetOwnerRulePropertyInfo instance AttrInfo DOMCSSStyleSheetOwnerRulePropertyInfo where - type AttrAllowedOps DOMCSSStyleSheetOwnerRulePropertyInfo = '[ 'AttrGet] + type AttrAllowedOps DOMCSSStyleSheetOwnerRulePropertyInfo = '[ 'AttrGet, 'AttrClear] type AttrSetTypeConstraint DOMCSSStyleSheetOwnerRulePropertyInfo = (~) () type AttrBaseTypeConstraint DOMCSSStyleSheetOwnerRulePropertyInfo = DOMCSSStyleSheetK - type AttrGetType DOMCSSStyleSheetOwnerRulePropertyInfo = DOMCSSRule + type AttrGetType DOMCSSStyleSheetOwnerRulePropertyInfo = (Maybe DOMCSSRule) type AttrLabel DOMCSSStyleSheetOwnerRulePropertyInfo = "owner-rule" attrGet _ = getDOMCSSStyleSheetOwnerRule attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "rules" -- Type: TInterface "WebKit" "DOMCSSRuleList" -- Flags: [PropertyReadable] + -- Nullable: (Nothing,Nothing) -getDOMCSSStyleSheetRules :: (MonadIO m, DOMCSSStyleSheetK o) => o -> m DOMCSSRuleList +getDOMCSSStyleSheetRules :: (MonadIO m, DOMCSSStyleSheetK o) => o -> m (Maybe DOMCSSRuleList) getDOMCSSStyleSheetRules obj = liftIO $ getObjectPropertyObject obj "rules" DOMCSSRuleList data DOMCSSStyleSheetRulesPropertyInfo instance AttrInfo DOMCSSStyleSheetRulesPropertyInfo where - type AttrAllowedOps DOMCSSStyleSheetRulesPropertyInfo = '[ 'AttrGet] + type AttrAllowedOps DOMCSSStyleSheetRulesPropertyInfo = '[ 'AttrGet, 'AttrClear] type AttrSetTypeConstraint DOMCSSStyleSheetRulesPropertyInfo = (~) () type AttrBaseTypeConstraint DOMCSSStyleSheetRulesPropertyInfo = DOMCSSStyleSheetK - type AttrGetType DOMCSSStyleSheetRulesPropertyInfo = DOMCSSRuleList + type AttrGetType DOMCSSStyleSheetRulesPropertyInfo = (Maybe DOMCSSRuleList) type AttrLabel DOMCSSStyleSheetRulesPropertyInfo = "rules" attrGet _ = getDOMCSSStyleSheetRules attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined type instance AttributeList DOMCSSStyleSheet = DOMCSSStyleSheetAttributeList type DOMCSSStyleSheetAttributeList = ('[ '("coreObject", DOMObjectCoreObjectPropertyInfo), '("cssRules", DOMCSSStyleSheetCssRulesPropertyInfo), '("disabled", DOMStyleSheetDisabledPropertyInfo), '("href", DOMStyleSheetHrefPropertyInfo), '("media", DOMStyleSheetMediaPropertyInfo), '("ownerNode", DOMStyleSheetOwnerNodePropertyInfo), '("ownerRule", DOMCSSStyleSheetOwnerRulePropertyInfo), '("parentStyleSheet", DOMStyleSheetParentStyleSheetPropertyInfo), '("rules", DOMCSSStyleSheetRulesPropertyInfo), '("title", DOMStyleSheetTitlePropertyInfo), '("type", DOMStyleSheetTypePropertyInfo)] :: [(Symbol, *)]) +dOMCSSStyleSheetCssRules :: AttrLabelProxy "cssRules" +dOMCSSStyleSheetCssRules = AttrLabelProxy + +dOMCSSStyleSheetOwnerRule :: AttrLabelProxy "ownerRule" +dOMCSSStyleSheetOwnerRule = AttrLabelProxy + +dOMCSSStyleSheetRules :: AttrLabelProxy "rules" +dOMCSSStyleSheetRules = AttrLabelProxy + type instance SignalList DOMCSSStyleSheet = DOMCSSStyleSheetSignalList type DOMCSSStyleSheetSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) -- method DOMCSSStyleSheet::add_rule -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMCSSStyleSheet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "selector", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "style", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "index", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMCSSStyleSheet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "selector", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "style", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "index", argType = TBasicType TULong, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TInt64 +-- returnType : Just (TBasicType TLong) -- throws : True -- Skip return : False @@ -225,9 +243,9 @@ Ptr DOMCSSStyleSheet -> -- _obj : TInterface "WebKit" "DOMCSSStyleSheet" CString -> -- selector : TBasicType TUTF8 CString -> -- style : TBasicType TUTF8 - Word64 -> -- index : TBasicType TUInt64 + CULong -> -- index : TBasicType TULong Ptr (Ptr GError) -> -- error - IO Int64 + IO CLong dOMCSSStyleSheetAddRule :: @@ -235,8 +253,8 @@ a -- _obj -> T.Text -- selector -> T.Text -- style - -> Word64 -- index - -> m Int64 -- result + -> CULong -- index + -> m CLong -- result dOMCSSStyleSheetAddRule _obj selector style index = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj selector' <- textToCString selector @@ -253,20 +271,20 @@ ) data DOMCSSStyleSheetAddRuleMethodInfo -instance (signature ~ (T.Text -> T.Text -> Word64 -> m Int64), MonadIO m, DOMCSSStyleSheetK a) => MethodInfo DOMCSSStyleSheetAddRuleMethodInfo a signature where +instance (signature ~ (T.Text -> T.Text -> CULong -> m CLong), MonadIO m, DOMCSSStyleSheetK a) => MethodInfo DOMCSSStyleSheetAddRuleMethodInfo a signature where overloadedMethod _ = dOMCSSStyleSheetAddRule -- method DOMCSSStyleSheet::delete_rule -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMCSSStyleSheet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "index", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMCSSStyleSheet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "index", argType = TBasicType TULong, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : True -- Skip return : False foreign import ccall "webkit_dom_css_style_sheet_delete_rule" webkit_dom_css_style_sheet_delete_rule :: Ptr DOMCSSStyleSheet -> -- _obj : TInterface "WebKit" "DOMCSSStyleSheet" - Word64 -> -- index : TBasicType TUInt64 + CULong -> -- index : TBasicType TULong Ptr (Ptr GError) -> -- error IO () @@ -274,7 +292,7 @@ dOMCSSStyleSheetDeleteRule :: (MonadIO m, DOMCSSStyleSheetK a) => a -- _obj - -> Word64 -- index + -> CULong -- index -> m () -- result dOMCSSStyleSheetDeleteRule _obj index = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj @@ -287,14 +305,14 @@ ) data DOMCSSStyleSheetDeleteRuleMethodInfo -instance (signature ~ (Word64 -> m ()), MonadIO m, DOMCSSStyleSheetK a) => MethodInfo DOMCSSStyleSheetDeleteRuleMethodInfo a signature where +instance (signature ~ (CULong -> m ()), MonadIO m, DOMCSSStyleSheetK a) => MethodInfo DOMCSSStyleSheetDeleteRuleMethodInfo a signature where overloadedMethod _ = dOMCSSStyleSheetDeleteRule -- method DOMCSSStyleSheet::get_css_rules -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMCSSStyleSheet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit" "DOMCSSRuleList" +-- returnType : Just (TInterface "WebKit" "DOMCSSRuleList") -- throws : False -- Skip return : False @@ -323,7 +341,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMCSSStyleSheet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit" "DOMCSSRule" +-- returnType : Just (TInterface "WebKit" "DOMCSSRule") -- throws : False -- Skip return : False @@ -352,7 +370,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMCSSStyleSheet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit" "DOMCSSRuleList" +-- returnType : Just (TInterface "WebKit" "DOMCSSRuleList") -- throws : False -- Skip return : False @@ -379,26 +397,26 @@ -- method DOMCSSStyleSheet::insert_rule -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMCSSStyleSheet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "rule", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "index", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMCSSStyleSheet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "rule", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "index", argType = TBasicType TULong, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUInt64 +-- returnType : Just (TBasicType TULong) -- throws : True -- Skip return : False foreign import ccall "webkit_dom_css_style_sheet_insert_rule" webkit_dom_css_style_sheet_insert_rule :: Ptr DOMCSSStyleSheet -> -- _obj : TInterface "WebKit" "DOMCSSStyleSheet" CString -> -- rule : TBasicType TUTF8 - Word64 -> -- index : TBasicType TUInt64 + CULong -> -- index : TBasicType TULong Ptr (Ptr GError) -> -- error - IO Word64 + IO CULong dOMCSSStyleSheetInsertRule :: (MonadIO m, DOMCSSStyleSheetK a) => a -- _obj -> T.Text -- rule - -> Word64 -- index - -> m Word64 -- result + -> CULong -- index + -> m CULong -- result dOMCSSStyleSheetInsertRule _obj rule index = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj rule' <- textToCString rule @@ -412,20 +430,20 @@ ) data DOMCSSStyleSheetInsertRuleMethodInfo -instance (signature ~ (T.Text -> Word64 -> m Word64), MonadIO m, DOMCSSStyleSheetK a) => MethodInfo DOMCSSStyleSheetInsertRuleMethodInfo a signature where +instance (signature ~ (T.Text -> CULong -> m CULong), MonadIO m, DOMCSSStyleSheetK a) => MethodInfo DOMCSSStyleSheetInsertRuleMethodInfo a signature where overloadedMethod _ = dOMCSSStyleSheetInsertRule -- method DOMCSSStyleSheet::remove_rule -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMCSSStyleSheet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "index", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMCSSStyleSheet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "index", argType = TBasicType TULong, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : True -- Skip return : False foreign import ccall "webkit_dom_css_style_sheet_remove_rule" webkit_dom_css_style_sheet_remove_rule :: Ptr DOMCSSStyleSheet -> -- _obj : TInterface "WebKit" "DOMCSSStyleSheet" - Word64 -> -- index : TBasicType TUInt64 + CULong -> -- index : TBasicType TULong Ptr (Ptr GError) -> -- error IO () @@ -433,7 +451,7 @@ dOMCSSStyleSheetRemoveRule :: (MonadIO m, DOMCSSStyleSheetK a) => a -- _obj - -> Word64 -- index + -> CULong -- index -> m () -- result dOMCSSStyleSheetRemoveRule _obj index = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj @@ -446,7 +464,7 @@ ) data DOMCSSStyleSheetRemoveRuleMethodInfo -instance (signature ~ (Word64 -> m ()), MonadIO m, DOMCSSStyleSheetK a) => MethodInfo DOMCSSStyleSheetRemoveRuleMethodInfo a signature where +instance (signature ~ (CULong -> m ()), MonadIO m, DOMCSSStyleSheetK a) => MethodInfo DOMCSSStyleSheetRemoveRuleMethodInfo a signature where overloadedMethod _ = dOMCSSStyleSheetRemoveRule diff --git a/GI/WebKit/Objects/DOMCSSStyleSheet.hs-boot b/GI/WebKit/Objects/DOMCSSStyleSheet.hs-boot --- a/GI/WebKit/Objects/DOMCSSStyleSheet.hs-boot +++ b/GI/WebKit/Objects/DOMCSSStyleSheet.hs-boot @@ -1,8 +1,8 @@ module GI.WebKit.Objects.DOMCSSStyleSheet where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map diff --git a/GI/WebKit/Objects/DOMCSSValue.hs b/GI/WebKit/Objects/DOMCSSValue.hs --- a/GI/WebKit/Objects/DOMCSSValue.hs +++ b/GI/WebKit/Objects/DOMCSSValue.hs @@ -37,13 +37,16 @@ -- * Properties -- ** CssText DOMCSSValueCssTextPropertyInfo , + clearDOMCSSValueCssText , constructDOMCSSValueCssText , + dOMCSSValueCssText , getDOMCSSValueCssText , setDOMCSSValueCssText , -- ** CssValueType DOMCSSValueCssValueTypePropertyInfo , + dOMCSSValueCssValueType , getDOMCSSValueCssValueType , @@ -51,9 +54,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map @@ -122,33 +125,39 @@ -- VVV Prop "css-text" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) -getDOMCSSValueCssText :: (MonadIO m, DOMCSSValueK o) => o -> m T.Text +getDOMCSSValueCssText :: (MonadIO m, DOMCSSValueK o) => o -> m (Maybe T.Text) getDOMCSSValueCssText obj = liftIO $ getObjectPropertyString obj "css-text" setDOMCSSValueCssText :: (MonadIO m, DOMCSSValueK o) => o -> T.Text -> m () -setDOMCSSValueCssText obj val = liftIO $ setObjectPropertyString obj "css-text" val +setDOMCSSValueCssText obj val = liftIO $ setObjectPropertyString obj "css-text" (Just val) constructDOMCSSValueCssText :: T.Text -> IO ([Char], GValue) -constructDOMCSSValueCssText val = constructObjectPropertyString "css-text" val +constructDOMCSSValueCssText val = constructObjectPropertyString "css-text" (Just val) +clearDOMCSSValueCssText :: (MonadIO m, DOMCSSValueK o) => o -> m () +clearDOMCSSValueCssText obj = liftIO $ setObjectPropertyString obj "css-text" (Nothing :: Maybe T.Text) + data DOMCSSValueCssTextPropertyInfo instance AttrInfo DOMCSSValueCssTextPropertyInfo where - type AttrAllowedOps DOMCSSValueCssTextPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrAllowedOps DOMCSSValueCssTextPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint DOMCSSValueCssTextPropertyInfo = (~) T.Text type AttrBaseTypeConstraint DOMCSSValueCssTextPropertyInfo = DOMCSSValueK - type AttrGetType DOMCSSValueCssTextPropertyInfo = T.Text + type AttrGetType DOMCSSValueCssTextPropertyInfo = (Maybe T.Text) type AttrLabel DOMCSSValueCssTextPropertyInfo = "css-text" attrGet _ = getDOMCSSValueCssText attrSet _ = setDOMCSSValueCssText attrConstruct _ = constructDOMCSSValueCssText + attrClear _ = clearDOMCSSValueCssText -- VVV Prop "css-value-type" - -- Type: TBasicType TUInt32 + -- Type: TBasicType TUInt -- Flags: [PropertyReadable] + -- Nullable: (Nothing,Nothing) getDOMCSSValueCssValueType :: (MonadIO m, DOMCSSValueK o) => o -> m Word32 -getDOMCSSValueCssValueType obj = liftIO $ getObjectPropertyCUInt obj "css-value-type" +getDOMCSSValueCssValueType obj = liftIO $ getObjectPropertyUInt32 obj "css-value-type" data DOMCSSValueCssValueTypePropertyInfo instance AttrInfo DOMCSSValueCssValueTypePropertyInfo where @@ -160,10 +169,17 @@ attrGet _ = getDOMCSSValueCssValueType attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined type instance AttributeList DOMCSSValue = DOMCSSValueAttributeList type DOMCSSValueAttributeList = ('[ '("coreObject", DOMObjectCoreObjectPropertyInfo), '("cssText", DOMCSSValueCssTextPropertyInfo), '("cssValueType", DOMCSSValueCssValueTypePropertyInfo)] :: [(Symbol, *)]) +dOMCSSValueCssText :: AttrLabelProxy "cssText" +dOMCSSValueCssText = AttrLabelProxy + +dOMCSSValueCssValueType :: AttrLabelProxy "cssValueType" +dOMCSSValueCssValueType = AttrLabelProxy + type instance SignalList DOMCSSValue = DOMCSSValueSignalList type DOMCSSValueSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) @@ -171,7 +187,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMCSSValue", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -201,7 +217,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMCSSValue", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUInt16 +-- returnType : Just (TBasicType TUInt16) -- throws : False -- Skip return : False @@ -228,7 +244,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMCSSValue", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : True -- Skip return : False diff --git a/GI/WebKit/Objects/DOMCSSValue.hs-boot b/GI/WebKit/Objects/DOMCSSValue.hs-boot --- a/GI/WebKit/Objects/DOMCSSValue.hs-boot +++ b/GI/WebKit/Objects/DOMCSSValue.hs-boot @@ -1,8 +1,8 @@ module GI.WebKit.Objects.DOMCSSValue where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map diff --git a/GI/WebKit/Objects/DOMCharacterData.hs b/GI/WebKit/Objects/DOMCharacterData.hs --- a/GI/WebKit/Objects/DOMCharacterData.hs +++ b/GI/WebKit/Objects/DOMCharacterData.hs @@ -67,13 +67,16 @@ -- * Properties -- ** Data DOMCharacterDataDataPropertyInfo , + clearDOMCharacterDataData , constructDOMCharacterDataData , + dOMCharacterDataData , getDOMCharacterDataData , setDOMCharacterDataData , -- ** Length DOMCharacterDataLengthPropertyInfo , + dOMCharacterDataLength , getDOMCharacterDataLength , @@ -81,9 +84,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map @@ -190,48 +193,61 @@ -- VVV Prop "data" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) -getDOMCharacterDataData :: (MonadIO m, DOMCharacterDataK o) => o -> m T.Text +getDOMCharacterDataData :: (MonadIO m, DOMCharacterDataK o) => o -> m (Maybe T.Text) getDOMCharacterDataData obj = liftIO $ getObjectPropertyString obj "data" setDOMCharacterDataData :: (MonadIO m, DOMCharacterDataK o) => o -> T.Text -> m () -setDOMCharacterDataData obj val = liftIO $ setObjectPropertyString obj "data" val +setDOMCharacterDataData obj val = liftIO $ setObjectPropertyString obj "data" (Just val) constructDOMCharacterDataData :: T.Text -> IO ([Char], GValue) -constructDOMCharacterDataData val = constructObjectPropertyString "data" val +constructDOMCharacterDataData val = constructObjectPropertyString "data" (Just val) +clearDOMCharacterDataData :: (MonadIO m, DOMCharacterDataK o) => o -> m () +clearDOMCharacterDataData obj = liftIO $ setObjectPropertyString obj "data" (Nothing :: Maybe T.Text) + data DOMCharacterDataDataPropertyInfo instance AttrInfo DOMCharacterDataDataPropertyInfo where - type AttrAllowedOps DOMCharacterDataDataPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrAllowedOps DOMCharacterDataDataPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint DOMCharacterDataDataPropertyInfo = (~) T.Text type AttrBaseTypeConstraint DOMCharacterDataDataPropertyInfo = DOMCharacterDataK - type AttrGetType DOMCharacterDataDataPropertyInfo = T.Text + type AttrGetType DOMCharacterDataDataPropertyInfo = (Maybe T.Text) type AttrLabel DOMCharacterDataDataPropertyInfo = "data" attrGet _ = getDOMCharacterDataData attrSet _ = setDOMCharacterDataData attrConstruct _ = constructDOMCharacterDataData + attrClear _ = clearDOMCharacterDataData -- VVV Prop "length" - -- Type: TBasicType TUInt64 + -- Type: TBasicType TULong -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) -getDOMCharacterDataLength :: (MonadIO m, DOMCharacterDataK o) => o -> m Word64 -getDOMCharacterDataLength obj = liftIO $ getObjectPropertyUInt64 obj "length" +getDOMCharacterDataLength :: (MonadIO m, DOMCharacterDataK o) => o -> m CULong +getDOMCharacterDataLength obj = liftIO $ getObjectPropertyULong obj "length" data DOMCharacterDataLengthPropertyInfo instance AttrInfo DOMCharacterDataLengthPropertyInfo where type AttrAllowedOps DOMCharacterDataLengthPropertyInfo = '[ 'AttrGet] type AttrSetTypeConstraint DOMCharacterDataLengthPropertyInfo = (~) () type AttrBaseTypeConstraint DOMCharacterDataLengthPropertyInfo = DOMCharacterDataK - type AttrGetType DOMCharacterDataLengthPropertyInfo = Word64 + type AttrGetType DOMCharacterDataLengthPropertyInfo = CULong type AttrLabel DOMCharacterDataLengthPropertyInfo = "length" attrGet _ = getDOMCharacterDataLength attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined type instance AttributeList DOMCharacterData = DOMCharacterDataAttributeList type DOMCharacterDataAttributeList = ('[ '("baseUri", DOMNodeBaseUriPropertyInfo), '("childNodes", DOMNodeChildNodesPropertyInfo), '("coreObject", DOMObjectCoreObjectPropertyInfo), '("data", DOMCharacterDataDataPropertyInfo), '("firstChild", DOMNodeFirstChildPropertyInfo), '("lastChild", DOMNodeLastChildPropertyInfo), '("length", DOMCharacterDataLengthPropertyInfo), '("localName", DOMNodeLocalNamePropertyInfo), '("namespaceUri", DOMNodeNamespaceUriPropertyInfo), '("nextSibling", DOMNodeNextSiblingPropertyInfo), '("nodeName", DOMNodeNodeNamePropertyInfo), '("nodeType", DOMNodeNodeTypePropertyInfo), '("nodeValue", DOMNodeNodeValuePropertyInfo), '("ownerDocument", DOMNodeOwnerDocumentPropertyInfo), '("parentElement", DOMNodeParentElementPropertyInfo), '("parentNode", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previousSibling", DOMNodePreviousSiblingPropertyInfo), '("textContent", DOMNodeTextContentPropertyInfo)] :: [(Symbol, *)]) +dOMCharacterDataData :: AttrLabelProxy "data" +dOMCharacterDataData = AttrLabelProxy + +dOMCharacterDataLength :: AttrLabelProxy "length" +dOMCharacterDataLength = AttrLabelProxy + type instance SignalList DOMCharacterData = DOMCharacterDataSignalList type DOMCharacterDataSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) @@ -239,7 +255,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMCharacterData", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "data", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : True -- Skip return : False @@ -273,16 +289,16 @@ -- method DOMCharacterData::delete_data -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMCharacterData", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "offset", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "length", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMCharacterData", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "offset", argType = TBasicType TULong, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "length", argType = TBasicType TULong, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : True -- Skip return : False foreign import ccall "webkit_dom_character_data_delete_data" webkit_dom_character_data_delete_data :: Ptr DOMCharacterData -> -- _obj : TInterface "WebKit" "DOMCharacterData" - Word64 -> -- offset : TBasicType TUInt64 - Word64 -> -- length : TBasicType TUInt64 + CULong -> -- offset : TBasicType TULong + CULong -> -- length : TBasicType TULong Ptr (Ptr GError) -> -- error IO () @@ -290,8 +306,8 @@ dOMCharacterDataDeleteData :: (MonadIO m, DOMCharacterDataK a) => a -- _obj - -> Word64 -- offset - -> Word64 -- length_ + -> CULong -- offset + -> CULong -- length_ -> m () -- result dOMCharacterDataDeleteData _obj offset length_ = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj @@ -304,14 +320,14 @@ ) data DOMCharacterDataDeleteDataMethodInfo -instance (signature ~ (Word64 -> Word64 -> m ()), MonadIO m, DOMCharacterDataK a) => MethodInfo DOMCharacterDataDeleteDataMethodInfo a signature where +instance (signature ~ (CULong -> CULong -> m ()), MonadIO m, DOMCharacterDataK a) => MethodInfo DOMCharacterDataDeleteDataMethodInfo a signature where overloadedMethod _ = dOMCharacterDataDeleteData -- method DOMCharacterData::get_data -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMCharacterData", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -341,19 +357,19 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMCharacterData", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUInt64 +-- returnType : Just (TBasicType TULong) -- throws : False -- Skip return : False foreign import ccall "webkit_dom_character_data_get_length" webkit_dom_character_data_get_length :: Ptr DOMCharacterData -> -- _obj : TInterface "WebKit" "DOMCharacterData" - IO Word64 + IO CULong dOMCharacterDataGetLength :: (MonadIO m, DOMCharacterDataK a) => a -- _obj - -> m Word64 -- result + -> m CULong -- result dOMCharacterDataGetLength _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- webkit_dom_character_data_get_length _obj' @@ -361,20 +377,20 @@ return result data DOMCharacterDataGetLengthMethodInfo -instance (signature ~ (m Word64), MonadIO m, DOMCharacterDataK a) => MethodInfo DOMCharacterDataGetLengthMethodInfo a signature where +instance (signature ~ (m CULong), MonadIO m, DOMCharacterDataK a) => MethodInfo DOMCharacterDataGetLengthMethodInfo a signature where overloadedMethod _ = dOMCharacterDataGetLength -- method DOMCharacterData::insert_data -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMCharacterData", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "offset", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "data", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMCharacterData", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "offset", argType = TBasicType TULong, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "data", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : True -- Skip return : False foreign import ccall "webkit_dom_character_data_insert_data" webkit_dom_character_data_insert_data :: Ptr DOMCharacterData -> -- _obj : TInterface "WebKit" "DOMCharacterData" - Word64 -> -- offset : TBasicType TUInt64 + CULong -> -- offset : TBasicType TULong CString -> -- data : TBasicType TUTF8 Ptr (Ptr GError) -> -- error IO () @@ -383,7 +399,7 @@ dOMCharacterDataInsertData :: (MonadIO m, DOMCharacterDataK a) => a -- _obj - -> Word64 -- offset + -> CULong -- offset -> T.Text -- data_ -> m () -- result dOMCharacterDataInsertData _obj offset data_ = liftIO $ do @@ -399,14 +415,14 @@ ) data DOMCharacterDataInsertDataMethodInfo -instance (signature ~ (Word64 -> T.Text -> m ()), MonadIO m, DOMCharacterDataK a) => MethodInfo DOMCharacterDataInsertDataMethodInfo a signature where +instance (signature ~ (CULong -> T.Text -> m ()), MonadIO m, DOMCharacterDataK a) => MethodInfo DOMCharacterDataInsertDataMethodInfo a signature where overloadedMethod _ = dOMCharacterDataInsertData -- method DOMCharacterData::remove -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMCharacterData", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : True -- Skip return : False @@ -436,16 +452,16 @@ -- method DOMCharacterData::replace_data -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMCharacterData", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "offset", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "length", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "data", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMCharacterData", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "offset", argType = TBasicType TULong, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "length", argType = TBasicType TULong, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "data", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : True -- Skip return : False foreign import ccall "webkit_dom_character_data_replace_data" webkit_dom_character_data_replace_data :: Ptr DOMCharacterData -> -- _obj : TInterface "WebKit" "DOMCharacterData" - Word64 -> -- offset : TBasicType TUInt64 - Word64 -> -- length : TBasicType TUInt64 + CULong -> -- offset : TBasicType TULong + CULong -> -- length : TBasicType TULong CString -> -- data : TBasicType TUTF8 Ptr (Ptr GError) -> -- error IO () @@ -454,8 +470,8 @@ dOMCharacterDataReplaceData :: (MonadIO m, DOMCharacterDataK a) => a -- _obj - -> Word64 -- offset - -> Word64 -- length_ + -> CULong -- offset + -> CULong -- length_ -> T.Text -- data_ -> m () -- result dOMCharacterDataReplaceData _obj offset length_ data_ = liftIO $ do @@ -471,14 +487,14 @@ ) data DOMCharacterDataReplaceDataMethodInfo -instance (signature ~ (Word64 -> Word64 -> T.Text -> m ()), MonadIO m, DOMCharacterDataK a) => MethodInfo DOMCharacterDataReplaceDataMethodInfo a signature where +instance (signature ~ (CULong -> CULong -> T.Text -> m ()), MonadIO m, DOMCharacterDataK a) => MethodInfo DOMCharacterDataReplaceDataMethodInfo a signature where overloadedMethod _ = dOMCharacterDataReplaceData -- method DOMCharacterData::set_data -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMCharacterData", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : True -- Skip return : False @@ -512,16 +528,16 @@ -- method DOMCharacterData::substring_data -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMCharacterData", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "offset", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "length", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMCharacterData", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "offset", argType = TBasicType TULong, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "length", argType = TBasicType TULong, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : True -- Skip return : False foreign import ccall "webkit_dom_character_data_substring_data" webkit_dom_character_data_substring_data :: Ptr DOMCharacterData -> -- _obj : TInterface "WebKit" "DOMCharacterData" - Word64 -> -- offset : TBasicType TUInt64 - Word64 -> -- length : TBasicType TUInt64 + CULong -> -- offset : TBasicType TULong + CULong -> -- length : TBasicType TULong Ptr (Ptr GError) -> -- error IO CString @@ -529,8 +545,8 @@ dOMCharacterDataSubstringData :: (MonadIO m, DOMCharacterDataK a) => a -- _obj - -> Word64 -- offset - -> Word64 -- length_ + -> CULong -- offset + -> CULong -- length_ -> m T.Text -- result dOMCharacterDataSubstringData _obj offset length_ = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj @@ -546,7 +562,7 @@ ) data DOMCharacterDataSubstringDataMethodInfo -instance (signature ~ (Word64 -> Word64 -> m T.Text), MonadIO m, DOMCharacterDataK a) => MethodInfo DOMCharacterDataSubstringDataMethodInfo a signature where +instance (signature ~ (CULong -> CULong -> m T.Text), MonadIO m, DOMCharacterDataK a) => MethodInfo DOMCharacterDataSubstringDataMethodInfo a signature where overloadedMethod _ = dOMCharacterDataSubstringData diff --git a/GI/WebKit/Objects/DOMCharacterData.hs-boot b/GI/WebKit/Objects/DOMCharacterData.hs-boot --- a/GI/WebKit/Objects/DOMCharacterData.hs-boot +++ b/GI/WebKit/Objects/DOMCharacterData.hs-boot @@ -1,8 +1,8 @@ module GI.WebKit.Objects.DOMCharacterData where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map diff --git a/GI/WebKit/Objects/DOMComment.hs b/GI/WebKit/Objects/DOMComment.hs --- a/GI/WebKit/Objects/DOMComment.hs +++ b/GI/WebKit/Objects/DOMComment.hs @@ -18,9 +18,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map diff --git a/GI/WebKit/Objects/DOMComment.hs-boot b/GI/WebKit/Objects/DOMComment.hs-boot --- a/GI/WebKit/Objects/DOMComment.hs-boot +++ b/GI/WebKit/Objects/DOMComment.hs-boot @@ -1,8 +1,8 @@ module GI.WebKit.Objects.DOMComment where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map diff --git a/GI/WebKit/Objects/DOMConsole.hs b/GI/WebKit/Objects/DOMConsole.hs --- a/GI/WebKit/Objects/DOMConsole.hs +++ b/GI/WebKit/Objects/DOMConsole.hs @@ -36,9 +36,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map @@ -114,34 +114,34 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMConsole", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Just (TBasicType TPtr) -- throws : False -- Skip return : False foreign import ccall "webkit_dom_console_get_memory" webkit_dom_console_get_memory :: Ptr DOMConsole -> -- _obj : TInterface "WebKit" "DOMConsole" - IO () + IO (Ptr ()) {-# DEPRECATED dOMConsoleGetMemory ["(Since version 2.2)"]#-} dOMConsoleGetMemory :: (MonadIO m, DOMConsoleK a) => a -- _obj - -> m () -- result + -> m (Ptr ()) -- result dOMConsoleGetMemory _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - webkit_dom_console_get_memory _obj' + result <- webkit_dom_console_get_memory _obj' touchManagedPtr _obj - return () + return result data DOMConsoleGetMemoryMethodInfo -instance (signature ~ (m ()), MonadIO m, DOMConsoleK a) => MethodInfo DOMConsoleGetMemoryMethodInfo a signature where +instance (signature ~ (m (Ptr ())), MonadIO m, DOMConsoleK a) => MethodInfo DOMConsoleGetMemoryMethodInfo a signature where overloadedMethod _ = dOMConsoleGetMemory -- method DOMConsole::group_end -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMConsole", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -168,7 +168,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMConsole", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "title", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False diff --git a/GI/WebKit/Objects/DOMConsole.hs-boot b/GI/WebKit/Objects/DOMConsole.hs-boot --- a/GI/WebKit/Objects/DOMConsole.hs-boot +++ b/GI/WebKit/Objects/DOMConsole.hs-boot @@ -1,8 +1,8 @@ module GI.WebKit.Objects.DOMConsole where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map diff --git a/GI/WebKit/Objects/DOMDOMApplicationCache.hs b/GI/WebKit/Objects/DOMDOMApplicationCache.hs --- a/GI/WebKit/Objects/DOMDOMApplicationCache.hs +++ b/GI/WebKit/Objects/DOMDOMApplicationCache.hs @@ -47,6 +47,7 @@ -- * Properties -- ** Status DOMDOMApplicationCacheStatusPropertyInfo, + dOMDOMApplicationCacheStatus , getDOMDOMApplicationCacheStatus , @@ -54,9 +55,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map @@ -126,11 +127,12 @@ #endif -- VVV Prop "status" - -- Type: TBasicType TUInt32 + -- Type: TBasicType TUInt -- Flags: [PropertyReadable] + -- Nullable: (Nothing,Nothing) getDOMDOMApplicationCacheStatus :: (MonadIO m, DOMDOMApplicationCacheK o) => o -> m Word32 -getDOMDOMApplicationCacheStatus obj = liftIO $ getObjectPropertyCUInt obj "status" +getDOMDOMApplicationCacheStatus obj = liftIO $ getObjectPropertyUInt32 obj "status" data DOMDOMApplicationCacheStatusPropertyInfo instance AttrInfo DOMDOMApplicationCacheStatusPropertyInfo where @@ -142,10 +144,14 @@ attrGet _ = getDOMDOMApplicationCacheStatus attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined type instance AttributeList DOMDOMApplicationCache = DOMDOMApplicationCacheAttributeList type DOMDOMApplicationCacheAttributeList = ('[ '("coreObject", DOMObjectCoreObjectPropertyInfo), '("status", DOMDOMApplicationCacheStatusPropertyInfo)] :: [(Symbol, *)]) +dOMDOMApplicationCacheStatus :: AttrLabelProxy "status" +dOMDOMApplicationCacheStatus = AttrLabelProxy + type instance SignalList DOMDOMApplicationCache = DOMDOMApplicationCacheSignalList type DOMDOMApplicationCacheSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) @@ -153,7 +159,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMDOMApplicationCache", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -180,7 +186,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMDOMApplicationCache", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "evt", argType = TInterface "WebKit" "DOMEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : True -- Skip return : False @@ -216,7 +222,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMDOMApplicationCache", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUInt16 +-- returnType : Just (TBasicType TUInt16) -- throws : False -- Skip return : False @@ -243,7 +249,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMDOMApplicationCache", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : True -- Skip return : False @@ -275,7 +281,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMDOMApplicationCache", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : True -- Skip return : False diff --git a/GI/WebKit/Objects/DOMDOMApplicationCache.hs-boot b/GI/WebKit/Objects/DOMDOMApplicationCache.hs-boot --- a/GI/WebKit/Objects/DOMDOMApplicationCache.hs-boot +++ b/GI/WebKit/Objects/DOMDOMApplicationCache.hs-boot @@ -1,8 +1,8 @@ module GI.WebKit.Objects.DOMDOMApplicationCache where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map diff --git a/GI/WebKit/Objects/DOMDOMImplementation.hs b/GI/WebKit/Objects/DOMDOMImplementation.hs --- a/GI/WebKit/Objects/DOMDOMImplementation.hs +++ b/GI/WebKit/Objects/DOMDOMImplementation.hs @@ -46,9 +46,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map @@ -126,7 +126,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMDOMImplementation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "title", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "media", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit" "DOMCSSStyleSheet" +-- returnType : Just (TInterface "WebKit" "DOMCSSStyleSheet") -- throws : True -- Skip return : False @@ -169,7 +169,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMDOMImplementation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "namespaceURI", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "qualifiedName", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "doctype", argType = TInterface "WebKit" "DOMDocumentType", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit" "DOMDocument" +-- returnType : Just (TInterface "WebKit" "DOMDocument") -- throws : True -- Skip return : False @@ -224,7 +224,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMDOMImplementation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "qualifiedName", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "publicId", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "systemId", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit" "DOMDocumentType" +-- returnType : Just (TInterface "WebKit" "DOMDocumentType") -- throws : True -- Skip return : False @@ -272,7 +272,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMDOMImplementation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "title", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit" "DOMHTMLDocument" +-- returnType : Just (TInterface "WebKit" "DOMHTMLDocument") -- throws : False -- Skip return : False @@ -305,7 +305,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMDOMImplementation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "feature", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "version", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False diff --git a/GI/WebKit/Objects/DOMDOMImplementation.hs-boot b/GI/WebKit/Objects/DOMDOMImplementation.hs-boot --- a/GI/WebKit/Objects/DOMDOMImplementation.hs-boot +++ b/GI/WebKit/Objects/DOMDOMImplementation.hs-boot @@ -1,8 +1,8 @@ module GI.WebKit.Objects.DOMDOMImplementation where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map diff --git a/GI/WebKit/Objects/DOMDOMMimeType.hs b/GI/WebKit/Objects/DOMDOMMimeType.hs --- a/GI/WebKit/Objects/DOMDOMMimeType.hs +++ b/GI/WebKit/Objects/DOMDOMMimeType.hs @@ -37,21 +37,25 @@ -- * Properties -- ** Description DOMDOMMimeTypeDescriptionPropertyInfo , + dOMDOMMimeTypeDescription , getDOMDOMMimeTypeDescription , -- ** EnabledPlugin DOMDOMMimeTypeEnabledPluginPropertyInfo , + dOMDOMMimeTypeEnabledPlugin , getDOMDOMMimeTypeEnabledPlugin , -- ** Suffixes DOMDOMMimeTypeSuffixesPropertyInfo , + dOMDOMMimeTypeSuffixes , getDOMDOMMimeTypeSuffixes , -- ** Type DOMDOMMimeTypeTypePropertyInfo , + dOMDOMMimeTypeType , getDOMDOMMimeTypeType , @@ -59,9 +63,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map @@ -130,78 +134,98 @@ -- VVV Prop "description" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable] + -- Nullable: (Nothing,Nothing) -getDOMDOMMimeTypeDescription :: (MonadIO m, DOMDOMMimeTypeK o) => o -> m T.Text +getDOMDOMMimeTypeDescription :: (MonadIO m, DOMDOMMimeTypeK o) => o -> m (Maybe T.Text) getDOMDOMMimeTypeDescription obj = liftIO $ getObjectPropertyString obj "description" data DOMDOMMimeTypeDescriptionPropertyInfo instance AttrInfo DOMDOMMimeTypeDescriptionPropertyInfo where - type AttrAllowedOps DOMDOMMimeTypeDescriptionPropertyInfo = '[ 'AttrGet] + type AttrAllowedOps DOMDOMMimeTypeDescriptionPropertyInfo = '[ 'AttrGet, 'AttrClear] type AttrSetTypeConstraint DOMDOMMimeTypeDescriptionPropertyInfo = (~) () type AttrBaseTypeConstraint DOMDOMMimeTypeDescriptionPropertyInfo = DOMDOMMimeTypeK - type AttrGetType DOMDOMMimeTypeDescriptionPropertyInfo = T.Text + type AttrGetType DOMDOMMimeTypeDescriptionPropertyInfo = (Maybe T.Text) type AttrLabel DOMDOMMimeTypeDescriptionPropertyInfo = "description" attrGet _ = getDOMDOMMimeTypeDescription attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "enabled-plugin" -- Type: TInterface "WebKit" "DOMDOMPlugin" -- Flags: [PropertyReadable] + -- Nullable: (Nothing,Nothing) -getDOMDOMMimeTypeEnabledPlugin :: (MonadIO m, DOMDOMMimeTypeK o) => o -> m DOMDOMPlugin +getDOMDOMMimeTypeEnabledPlugin :: (MonadIO m, DOMDOMMimeTypeK o) => o -> m (Maybe DOMDOMPlugin) getDOMDOMMimeTypeEnabledPlugin obj = liftIO $ getObjectPropertyObject obj "enabled-plugin" DOMDOMPlugin data DOMDOMMimeTypeEnabledPluginPropertyInfo instance AttrInfo DOMDOMMimeTypeEnabledPluginPropertyInfo where - type AttrAllowedOps DOMDOMMimeTypeEnabledPluginPropertyInfo = '[ 'AttrGet] + type AttrAllowedOps DOMDOMMimeTypeEnabledPluginPropertyInfo = '[ 'AttrGet, 'AttrClear] type AttrSetTypeConstraint DOMDOMMimeTypeEnabledPluginPropertyInfo = (~) () type AttrBaseTypeConstraint DOMDOMMimeTypeEnabledPluginPropertyInfo = DOMDOMMimeTypeK - type AttrGetType DOMDOMMimeTypeEnabledPluginPropertyInfo = DOMDOMPlugin + type AttrGetType DOMDOMMimeTypeEnabledPluginPropertyInfo = (Maybe DOMDOMPlugin) type AttrLabel DOMDOMMimeTypeEnabledPluginPropertyInfo = "enabled-plugin" attrGet _ = getDOMDOMMimeTypeEnabledPlugin attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "suffixes" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable] + -- Nullable: (Nothing,Nothing) -getDOMDOMMimeTypeSuffixes :: (MonadIO m, DOMDOMMimeTypeK o) => o -> m T.Text +getDOMDOMMimeTypeSuffixes :: (MonadIO m, DOMDOMMimeTypeK o) => o -> m (Maybe T.Text) getDOMDOMMimeTypeSuffixes obj = liftIO $ getObjectPropertyString obj "suffixes" data DOMDOMMimeTypeSuffixesPropertyInfo instance AttrInfo DOMDOMMimeTypeSuffixesPropertyInfo where - type AttrAllowedOps DOMDOMMimeTypeSuffixesPropertyInfo = '[ 'AttrGet] + type AttrAllowedOps DOMDOMMimeTypeSuffixesPropertyInfo = '[ 'AttrGet, 'AttrClear] type AttrSetTypeConstraint DOMDOMMimeTypeSuffixesPropertyInfo = (~) () type AttrBaseTypeConstraint DOMDOMMimeTypeSuffixesPropertyInfo = DOMDOMMimeTypeK - type AttrGetType DOMDOMMimeTypeSuffixesPropertyInfo = T.Text + type AttrGetType DOMDOMMimeTypeSuffixesPropertyInfo = (Maybe T.Text) type AttrLabel DOMDOMMimeTypeSuffixesPropertyInfo = "suffixes" attrGet _ = getDOMDOMMimeTypeSuffixes attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "type" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable] + -- Nullable: (Nothing,Nothing) -getDOMDOMMimeTypeType :: (MonadIO m, DOMDOMMimeTypeK o) => o -> m T.Text +getDOMDOMMimeTypeType :: (MonadIO m, DOMDOMMimeTypeK o) => o -> m (Maybe T.Text) getDOMDOMMimeTypeType obj = liftIO $ getObjectPropertyString obj "type" data DOMDOMMimeTypeTypePropertyInfo instance AttrInfo DOMDOMMimeTypeTypePropertyInfo where - type AttrAllowedOps DOMDOMMimeTypeTypePropertyInfo = '[ 'AttrGet] + type AttrAllowedOps DOMDOMMimeTypeTypePropertyInfo = '[ 'AttrGet, 'AttrClear] type AttrSetTypeConstraint DOMDOMMimeTypeTypePropertyInfo = (~) () type AttrBaseTypeConstraint DOMDOMMimeTypeTypePropertyInfo = DOMDOMMimeTypeK - type AttrGetType DOMDOMMimeTypeTypePropertyInfo = T.Text + type AttrGetType DOMDOMMimeTypeTypePropertyInfo = (Maybe T.Text) type AttrLabel DOMDOMMimeTypeTypePropertyInfo = "type" attrGet _ = getDOMDOMMimeTypeType attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined type instance AttributeList DOMDOMMimeType = DOMDOMMimeTypeAttributeList type DOMDOMMimeTypeAttributeList = ('[ '("coreObject", DOMObjectCoreObjectPropertyInfo), '("description", DOMDOMMimeTypeDescriptionPropertyInfo), '("enabledPlugin", DOMDOMMimeTypeEnabledPluginPropertyInfo), '("suffixes", DOMDOMMimeTypeSuffixesPropertyInfo), '("type", DOMDOMMimeTypeTypePropertyInfo)] :: [(Symbol, *)]) +dOMDOMMimeTypeDescription :: AttrLabelProxy "description" +dOMDOMMimeTypeDescription = AttrLabelProxy + +dOMDOMMimeTypeEnabledPlugin :: AttrLabelProxy "enabledPlugin" +dOMDOMMimeTypeEnabledPlugin = AttrLabelProxy + +dOMDOMMimeTypeSuffixes :: AttrLabelProxy "suffixes" +dOMDOMMimeTypeSuffixes = AttrLabelProxy + +dOMDOMMimeTypeType :: AttrLabelProxy "type" +dOMDOMMimeTypeType = AttrLabelProxy + type instance SignalList DOMDOMMimeType = DOMDOMMimeTypeSignalList type DOMDOMMimeTypeSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) @@ -209,7 +233,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMDOMMimeType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -239,7 +263,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMDOMMimeType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit" "DOMDOMPlugin" +-- returnType : Just (TInterface "WebKit" "DOMDOMPlugin") -- throws : False -- Skip return : False @@ -268,7 +292,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMDOMMimeType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False diff --git a/GI/WebKit/Objects/DOMDOMMimeType.hs-boot b/GI/WebKit/Objects/DOMDOMMimeType.hs-boot --- a/GI/WebKit/Objects/DOMDOMMimeType.hs-boot +++ b/GI/WebKit/Objects/DOMDOMMimeType.hs-boot @@ -1,8 +1,8 @@ module GI.WebKit.Objects.DOMDOMMimeType where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map diff --git a/GI/WebKit/Objects/DOMDOMMimeTypeArray.hs b/GI/WebKit/Objects/DOMDOMMimeTypeArray.hs --- a/GI/WebKit/Objects/DOMDOMMimeTypeArray.hs +++ b/GI/WebKit/Objects/DOMDOMMimeTypeArray.hs @@ -37,6 +37,7 @@ -- * Properties -- ** Length DOMDOMMimeTypeArrayLengthPropertyInfo , + dOMDOMMimeTypeArrayLength , getDOMDOMMimeTypeArrayLength , @@ -44,9 +45,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map @@ -113,26 +114,31 @@ #endif -- VVV Prop "length" - -- Type: TBasicType TUInt64 + -- Type: TBasicType TULong -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) -getDOMDOMMimeTypeArrayLength :: (MonadIO m, DOMDOMMimeTypeArrayK o) => o -> m Word64 -getDOMDOMMimeTypeArrayLength obj = liftIO $ getObjectPropertyUInt64 obj "length" +getDOMDOMMimeTypeArrayLength :: (MonadIO m, DOMDOMMimeTypeArrayK o) => o -> m CULong +getDOMDOMMimeTypeArrayLength obj = liftIO $ getObjectPropertyULong obj "length" data DOMDOMMimeTypeArrayLengthPropertyInfo instance AttrInfo DOMDOMMimeTypeArrayLengthPropertyInfo where type AttrAllowedOps DOMDOMMimeTypeArrayLengthPropertyInfo = '[ 'AttrGet] type AttrSetTypeConstraint DOMDOMMimeTypeArrayLengthPropertyInfo = (~) () type AttrBaseTypeConstraint DOMDOMMimeTypeArrayLengthPropertyInfo = DOMDOMMimeTypeArrayK - type AttrGetType DOMDOMMimeTypeArrayLengthPropertyInfo = Word64 + type AttrGetType DOMDOMMimeTypeArrayLengthPropertyInfo = CULong type AttrLabel DOMDOMMimeTypeArrayLengthPropertyInfo = "length" attrGet _ = getDOMDOMMimeTypeArrayLength attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined type instance AttributeList DOMDOMMimeTypeArray = DOMDOMMimeTypeArrayAttributeList type DOMDOMMimeTypeArrayAttributeList = ('[ '("coreObject", DOMObjectCoreObjectPropertyInfo), '("length", DOMDOMMimeTypeArrayLengthPropertyInfo)] :: [(Symbol, *)]) +dOMDOMMimeTypeArrayLength :: AttrLabelProxy "length" +dOMDOMMimeTypeArrayLength = AttrLabelProxy + type instance SignalList DOMDOMMimeTypeArray = DOMDOMMimeTypeArraySignalList type DOMDOMMimeTypeArraySignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) @@ -140,19 +146,19 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMDOMMimeTypeArray", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUInt64 +-- returnType : Just (TBasicType TULong) -- throws : False -- Skip return : False foreign import ccall "webkit_dom_dom_mime_type_array_get_length" webkit_dom_dom_mime_type_array_get_length :: Ptr DOMDOMMimeTypeArray -> -- _obj : TInterface "WebKit" "DOMDOMMimeTypeArray" - IO Word64 + IO CULong dOMDOMMimeTypeArrayGetLength :: (MonadIO m, DOMDOMMimeTypeArrayK a) => a -- _obj - -> m Word64 -- result + -> m CULong -- result dOMDOMMimeTypeArrayGetLength _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- webkit_dom_dom_mime_type_array_get_length _obj' @@ -160,27 +166,27 @@ return result data DOMDOMMimeTypeArrayGetLengthMethodInfo -instance (signature ~ (m Word64), MonadIO m, DOMDOMMimeTypeArrayK a) => MethodInfo DOMDOMMimeTypeArrayGetLengthMethodInfo a signature where +instance (signature ~ (m CULong), MonadIO m, DOMDOMMimeTypeArrayK a) => MethodInfo DOMDOMMimeTypeArrayGetLengthMethodInfo a signature where overloadedMethod _ = dOMDOMMimeTypeArrayGetLength -- method DOMDOMMimeTypeArray::item -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMDOMMimeTypeArray", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "index", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMDOMMimeTypeArray", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "index", argType = TBasicType TULong, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit" "DOMDOMMimeType" +-- returnType : Just (TInterface "WebKit" "DOMDOMMimeType") -- throws : False -- Skip return : False foreign import ccall "webkit_dom_dom_mime_type_array_item" webkit_dom_dom_mime_type_array_item :: Ptr DOMDOMMimeTypeArray -> -- _obj : TInterface "WebKit" "DOMDOMMimeTypeArray" - Word64 -> -- index : TBasicType TUInt64 + CULong -> -- index : TBasicType TULong IO (Ptr DOMDOMMimeType) dOMDOMMimeTypeArrayItem :: (MonadIO m, DOMDOMMimeTypeArrayK a) => a -- _obj - -> Word64 -- index + -> CULong -- index -> m DOMDOMMimeType -- result dOMDOMMimeTypeArrayItem _obj index = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj @@ -191,14 +197,14 @@ return result' data DOMDOMMimeTypeArrayItemMethodInfo -instance (signature ~ (Word64 -> m DOMDOMMimeType), MonadIO m, DOMDOMMimeTypeArrayK a) => MethodInfo DOMDOMMimeTypeArrayItemMethodInfo a signature where +instance (signature ~ (CULong -> m DOMDOMMimeType), MonadIO m, DOMDOMMimeTypeArrayK a) => MethodInfo DOMDOMMimeTypeArrayItemMethodInfo a signature where overloadedMethod _ = dOMDOMMimeTypeArrayItem -- method DOMDOMMimeTypeArray::named_item -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMDOMMimeTypeArray", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit" "DOMDOMMimeType" +-- returnType : Just (TInterface "WebKit" "DOMDOMMimeType") -- throws : False -- Skip return : False diff --git a/GI/WebKit/Objects/DOMDOMMimeTypeArray.hs-boot b/GI/WebKit/Objects/DOMDOMMimeTypeArray.hs-boot --- a/GI/WebKit/Objects/DOMDOMMimeTypeArray.hs-boot +++ b/GI/WebKit/Objects/DOMDOMMimeTypeArray.hs-boot @@ -1,8 +1,8 @@ module GI.WebKit.Objects.DOMDOMMimeTypeArray where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map diff --git a/GI/WebKit/Objects/DOMDOMNamedFlowCollection.hs b/GI/WebKit/Objects/DOMDOMNamedFlowCollection.hs --- a/GI/WebKit/Objects/DOMDOMNamedFlowCollection.hs +++ b/GI/WebKit/Objects/DOMDOMNamedFlowCollection.hs @@ -37,6 +37,7 @@ -- * Properties -- ** Length DOMDOMNamedFlowCollectionLengthPropertyInfo, + dOMDOMNamedFlowCollectionLength , getDOMDOMNamedFlowCollectionLength , @@ -44,9 +45,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map @@ -113,26 +114,31 @@ #endif -- VVV Prop "length" - -- Type: TBasicType TUInt64 + -- Type: TBasicType TULong -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) -getDOMDOMNamedFlowCollectionLength :: (MonadIO m, DOMDOMNamedFlowCollectionK o) => o -> m Word64 -getDOMDOMNamedFlowCollectionLength obj = liftIO $ getObjectPropertyUInt64 obj "length" +getDOMDOMNamedFlowCollectionLength :: (MonadIO m, DOMDOMNamedFlowCollectionK o) => o -> m CULong +getDOMDOMNamedFlowCollectionLength obj = liftIO $ getObjectPropertyULong obj "length" data DOMDOMNamedFlowCollectionLengthPropertyInfo instance AttrInfo DOMDOMNamedFlowCollectionLengthPropertyInfo where type AttrAllowedOps DOMDOMNamedFlowCollectionLengthPropertyInfo = '[ 'AttrGet] type AttrSetTypeConstraint DOMDOMNamedFlowCollectionLengthPropertyInfo = (~) () type AttrBaseTypeConstraint DOMDOMNamedFlowCollectionLengthPropertyInfo = DOMDOMNamedFlowCollectionK - type AttrGetType DOMDOMNamedFlowCollectionLengthPropertyInfo = Word64 + type AttrGetType DOMDOMNamedFlowCollectionLengthPropertyInfo = CULong type AttrLabel DOMDOMNamedFlowCollectionLengthPropertyInfo = "length" attrGet _ = getDOMDOMNamedFlowCollectionLength attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined type instance AttributeList DOMDOMNamedFlowCollection = DOMDOMNamedFlowCollectionAttributeList type DOMDOMNamedFlowCollectionAttributeList = ('[ '("coreObject", DOMObjectCoreObjectPropertyInfo), '("length", DOMDOMNamedFlowCollectionLengthPropertyInfo)] :: [(Symbol, *)]) +dOMDOMNamedFlowCollectionLength :: AttrLabelProxy "length" +dOMDOMNamedFlowCollectionLength = AttrLabelProxy + type instance SignalList DOMDOMNamedFlowCollection = DOMDOMNamedFlowCollectionSignalList type DOMDOMNamedFlowCollectionSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) @@ -140,19 +146,19 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMDOMNamedFlowCollection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUInt64 +-- returnType : Just (TBasicType TULong) -- throws : False -- Skip return : False foreign import ccall "webkit_dom_dom_named_flow_collection_get_length" webkit_dom_dom_named_flow_collection_get_length :: Ptr DOMDOMNamedFlowCollection -> -- _obj : TInterface "WebKit" "DOMDOMNamedFlowCollection" - IO Word64 + IO CULong dOMDOMNamedFlowCollectionGetLength :: (MonadIO m, DOMDOMNamedFlowCollectionK a) => a -- _obj - -> m Word64 -- result + -> m CULong -- result dOMDOMNamedFlowCollectionGetLength _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- webkit_dom_dom_named_flow_collection_get_length _obj' @@ -160,27 +166,27 @@ return result data DOMDOMNamedFlowCollectionGetLengthMethodInfo -instance (signature ~ (m Word64), MonadIO m, DOMDOMNamedFlowCollectionK a) => MethodInfo DOMDOMNamedFlowCollectionGetLengthMethodInfo a signature where +instance (signature ~ (m CULong), MonadIO m, DOMDOMNamedFlowCollectionK a) => MethodInfo DOMDOMNamedFlowCollectionGetLengthMethodInfo a signature where overloadedMethod _ = dOMDOMNamedFlowCollectionGetLength -- method DOMDOMNamedFlowCollection::item -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMDOMNamedFlowCollection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "index", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMDOMNamedFlowCollection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "index", argType = TBasicType TULong, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit" "DOMWebKitNamedFlow" +-- returnType : Just (TInterface "WebKit" "DOMWebKitNamedFlow") -- throws : False -- Skip return : False foreign import ccall "webkit_dom_dom_named_flow_collection_item" webkit_dom_dom_named_flow_collection_item :: Ptr DOMDOMNamedFlowCollection -> -- _obj : TInterface "WebKit" "DOMDOMNamedFlowCollection" - Word64 -> -- index : TBasicType TUInt64 + CULong -> -- index : TBasicType TULong IO (Ptr DOMWebKitNamedFlow) dOMDOMNamedFlowCollectionItem :: (MonadIO m, DOMDOMNamedFlowCollectionK a) => a -- _obj - -> Word64 -- index + -> CULong -- index -> m DOMWebKitNamedFlow -- result dOMDOMNamedFlowCollectionItem _obj index = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj @@ -191,14 +197,14 @@ return result' data DOMDOMNamedFlowCollectionItemMethodInfo -instance (signature ~ (Word64 -> m DOMWebKitNamedFlow), MonadIO m, DOMDOMNamedFlowCollectionK a) => MethodInfo DOMDOMNamedFlowCollectionItemMethodInfo a signature where +instance (signature ~ (CULong -> m DOMWebKitNamedFlow), MonadIO m, DOMDOMNamedFlowCollectionK a) => MethodInfo DOMDOMNamedFlowCollectionItemMethodInfo a signature where overloadedMethod _ = dOMDOMNamedFlowCollectionItem -- method DOMDOMNamedFlowCollection::named_item -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMDOMNamedFlowCollection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit" "DOMWebKitNamedFlow" +-- returnType : Just (TInterface "WebKit" "DOMWebKitNamedFlow") -- throws : False -- Skip return : False diff --git a/GI/WebKit/Objects/DOMDOMNamedFlowCollection.hs-boot b/GI/WebKit/Objects/DOMDOMNamedFlowCollection.hs-boot --- a/GI/WebKit/Objects/DOMDOMNamedFlowCollection.hs-boot +++ b/GI/WebKit/Objects/DOMDOMNamedFlowCollection.hs-boot @@ -1,8 +1,8 @@ module GI.WebKit.Objects.DOMDOMNamedFlowCollection where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map diff --git a/GI/WebKit/Objects/DOMDOMPlugin.hs b/GI/WebKit/Objects/DOMDOMPlugin.hs --- a/GI/WebKit/Objects/DOMDOMPlugin.hs +++ b/GI/WebKit/Objects/DOMDOMPlugin.hs @@ -52,21 +52,25 @@ -- * Properties -- ** Description DOMDOMPluginDescriptionPropertyInfo , + dOMDOMPluginDescription , getDOMDOMPluginDescription , -- ** Filename DOMDOMPluginFilenamePropertyInfo , + dOMDOMPluginFilename , getDOMDOMPluginFilename , -- ** Length DOMDOMPluginLengthPropertyInfo , + dOMDOMPluginLength , getDOMDOMPluginLength , -- ** Name DOMDOMPluginNamePropertyInfo , + dOMDOMPluginName , getDOMDOMPluginName , @@ -74,9 +78,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map @@ -148,78 +152,98 @@ -- VVV Prop "description" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable] + -- Nullable: (Nothing,Nothing) -getDOMDOMPluginDescription :: (MonadIO m, DOMDOMPluginK o) => o -> m T.Text +getDOMDOMPluginDescription :: (MonadIO m, DOMDOMPluginK o) => o -> m (Maybe T.Text) getDOMDOMPluginDescription obj = liftIO $ getObjectPropertyString obj "description" data DOMDOMPluginDescriptionPropertyInfo instance AttrInfo DOMDOMPluginDescriptionPropertyInfo where - type AttrAllowedOps DOMDOMPluginDescriptionPropertyInfo = '[ 'AttrGet] + type AttrAllowedOps DOMDOMPluginDescriptionPropertyInfo = '[ 'AttrGet, 'AttrClear] type AttrSetTypeConstraint DOMDOMPluginDescriptionPropertyInfo = (~) () type AttrBaseTypeConstraint DOMDOMPluginDescriptionPropertyInfo = DOMDOMPluginK - type AttrGetType DOMDOMPluginDescriptionPropertyInfo = T.Text + type AttrGetType DOMDOMPluginDescriptionPropertyInfo = (Maybe T.Text) type AttrLabel DOMDOMPluginDescriptionPropertyInfo = "description" attrGet _ = getDOMDOMPluginDescription attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "filename" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable] + -- Nullable: (Nothing,Nothing) -getDOMDOMPluginFilename :: (MonadIO m, DOMDOMPluginK o) => o -> m T.Text +getDOMDOMPluginFilename :: (MonadIO m, DOMDOMPluginK o) => o -> m (Maybe T.Text) getDOMDOMPluginFilename obj = liftIO $ getObjectPropertyString obj "filename" data DOMDOMPluginFilenamePropertyInfo instance AttrInfo DOMDOMPluginFilenamePropertyInfo where - type AttrAllowedOps DOMDOMPluginFilenamePropertyInfo = '[ 'AttrGet] + type AttrAllowedOps DOMDOMPluginFilenamePropertyInfo = '[ 'AttrGet, 'AttrClear] type AttrSetTypeConstraint DOMDOMPluginFilenamePropertyInfo = (~) () type AttrBaseTypeConstraint DOMDOMPluginFilenamePropertyInfo = DOMDOMPluginK - type AttrGetType DOMDOMPluginFilenamePropertyInfo = T.Text + type AttrGetType DOMDOMPluginFilenamePropertyInfo = (Maybe T.Text) type AttrLabel DOMDOMPluginFilenamePropertyInfo = "filename" attrGet _ = getDOMDOMPluginFilename attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "length" - -- Type: TBasicType TUInt64 + -- Type: TBasicType TULong -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) -getDOMDOMPluginLength :: (MonadIO m, DOMDOMPluginK o) => o -> m Word64 -getDOMDOMPluginLength obj = liftIO $ getObjectPropertyUInt64 obj "length" +getDOMDOMPluginLength :: (MonadIO m, DOMDOMPluginK o) => o -> m CULong +getDOMDOMPluginLength obj = liftIO $ getObjectPropertyULong obj "length" data DOMDOMPluginLengthPropertyInfo instance AttrInfo DOMDOMPluginLengthPropertyInfo where type AttrAllowedOps DOMDOMPluginLengthPropertyInfo = '[ 'AttrGet] type AttrSetTypeConstraint DOMDOMPluginLengthPropertyInfo = (~) () type AttrBaseTypeConstraint DOMDOMPluginLengthPropertyInfo = DOMDOMPluginK - type AttrGetType DOMDOMPluginLengthPropertyInfo = Word64 + type AttrGetType DOMDOMPluginLengthPropertyInfo = CULong type AttrLabel DOMDOMPluginLengthPropertyInfo = "length" attrGet _ = getDOMDOMPluginLength attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "name" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable] + -- Nullable: (Nothing,Nothing) -getDOMDOMPluginName :: (MonadIO m, DOMDOMPluginK o) => o -> m T.Text +getDOMDOMPluginName :: (MonadIO m, DOMDOMPluginK o) => o -> m (Maybe T.Text) getDOMDOMPluginName obj = liftIO $ getObjectPropertyString obj "name" data DOMDOMPluginNamePropertyInfo instance AttrInfo DOMDOMPluginNamePropertyInfo where - type AttrAllowedOps DOMDOMPluginNamePropertyInfo = '[ 'AttrGet] + type AttrAllowedOps DOMDOMPluginNamePropertyInfo = '[ 'AttrGet, 'AttrClear] type AttrSetTypeConstraint DOMDOMPluginNamePropertyInfo = (~) () type AttrBaseTypeConstraint DOMDOMPluginNamePropertyInfo = DOMDOMPluginK - type AttrGetType DOMDOMPluginNamePropertyInfo = T.Text + type AttrGetType DOMDOMPluginNamePropertyInfo = (Maybe T.Text) type AttrLabel DOMDOMPluginNamePropertyInfo = "name" attrGet _ = getDOMDOMPluginName attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined type instance AttributeList DOMDOMPlugin = DOMDOMPluginAttributeList type DOMDOMPluginAttributeList = ('[ '("coreObject", DOMObjectCoreObjectPropertyInfo), '("description", DOMDOMPluginDescriptionPropertyInfo), '("filename", DOMDOMPluginFilenamePropertyInfo), '("length", DOMDOMPluginLengthPropertyInfo), '("name", DOMDOMPluginNamePropertyInfo)] :: [(Symbol, *)]) +dOMDOMPluginDescription :: AttrLabelProxy "description" +dOMDOMPluginDescription = AttrLabelProxy + +dOMDOMPluginFilename :: AttrLabelProxy "filename" +dOMDOMPluginFilename = AttrLabelProxy + +dOMDOMPluginLength :: AttrLabelProxy "length" +dOMDOMPluginLength = AttrLabelProxy + +dOMDOMPluginName :: AttrLabelProxy "name" +dOMDOMPluginName = AttrLabelProxy + type instance SignalList DOMDOMPlugin = DOMDOMPluginSignalList type DOMDOMPluginSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) @@ -227,7 +251,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMDOMPlugin", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -257,7 +281,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMDOMPlugin", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -287,19 +311,19 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMDOMPlugin", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUInt64 +-- returnType : Just (TBasicType TULong) -- throws : False -- Skip return : False foreign import ccall "webkit_dom_dom_plugin_get_length" webkit_dom_dom_plugin_get_length :: Ptr DOMDOMPlugin -> -- _obj : TInterface "WebKit" "DOMDOMPlugin" - IO Word64 + IO CULong dOMDOMPluginGetLength :: (MonadIO m, DOMDOMPluginK a) => a -- _obj - -> m Word64 -- result + -> m CULong -- result dOMDOMPluginGetLength _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- webkit_dom_dom_plugin_get_length _obj' @@ -307,14 +331,14 @@ return result data DOMDOMPluginGetLengthMethodInfo -instance (signature ~ (m Word64), MonadIO m, DOMDOMPluginK a) => MethodInfo DOMDOMPluginGetLengthMethodInfo a signature where +instance (signature ~ (m CULong), MonadIO m, DOMDOMPluginK a) => MethodInfo DOMDOMPluginGetLengthMethodInfo a signature where overloadedMethod _ = dOMDOMPluginGetLength -- method DOMDOMPlugin::get_name -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMDOMPlugin", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -342,22 +366,22 @@ -- method DOMDOMPlugin::item -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMDOMPlugin", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "index", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMDOMPlugin", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "index", argType = TBasicType TULong, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit" "DOMDOMMimeType" +-- returnType : Just (TInterface "WebKit" "DOMDOMMimeType") -- throws : False -- Skip return : False foreign import ccall "webkit_dom_dom_plugin_item" webkit_dom_dom_plugin_item :: Ptr DOMDOMPlugin -> -- _obj : TInterface "WebKit" "DOMDOMPlugin" - Word64 -> -- index : TBasicType TUInt64 + CULong -> -- index : TBasicType TULong IO (Ptr DOMDOMMimeType) dOMDOMPluginItem :: (MonadIO m, DOMDOMPluginK a) => a -- _obj - -> Word64 -- index + -> CULong -- index -> m DOMDOMMimeType -- result dOMDOMPluginItem _obj index = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj @@ -368,14 +392,14 @@ return result' data DOMDOMPluginItemMethodInfo -instance (signature ~ (Word64 -> m DOMDOMMimeType), MonadIO m, DOMDOMPluginK a) => MethodInfo DOMDOMPluginItemMethodInfo a signature where +instance (signature ~ (CULong -> m DOMDOMMimeType), MonadIO m, DOMDOMPluginK a) => MethodInfo DOMDOMPluginItemMethodInfo a signature where overloadedMethod _ = dOMDOMPluginItem -- method DOMDOMPlugin::named_item -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMDOMPlugin", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit" "DOMDOMMimeType" +-- returnType : Just (TInterface "WebKit" "DOMDOMMimeType") -- throws : False -- Skip return : False diff --git a/GI/WebKit/Objects/DOMDOMPlugin.hs-boot b/GI/WebKit/Objects/DOMDOMPlugin.hs-boot --- a/GI/WebKit/Objects/DOMDOMPlugin.hs-boot +++ b/GI/WebKit/Objects/DOMDOMPlugin.hs-boot @@ -1,8 +1,8 @@ module GI.WebKit.Objects.DOMDOMPlugin where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map diff --git a/GI/WebKit/Objects/DOMDOMPluginArray.hs b/GI/WebKit/Objects/DOMDOMPluginArray.hs --- a/GI/WebKit/Objects/DOMDOMPluginArray.hs +++ b/GI/WebKit/Objects/DOMDOMPluginArray.hs @@ -42,6 +42,7 @@ -- * Properties -- ** Length DOMDOMPluginArrayLengthPropertyInfo , + dOMDOMPluginArrayLength , getDOMDOMPluginArrayLength , @@ -49,9 +50,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map @@ -119,26 +120,31 @@ #endif -- VVV Prop "length" - -- Type: TBasicType TUInt64 + -- Type: TBasicType TULong -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) -getDOMDOMPluginArrayLength :: (MonadIO m, DOMDOMPluginArrayK o) => o -> m Word64 -getDOMDOMPluginArrayLength obj = liftIO $ getObjectPropertyUInt64 obj "length" +getDOMDOMPluginArrayLength :: (MonadIO m, DOMDOMPluginArrayK o) => o -> m CULong +getDOMDOMPluginArrayLength obj = liftIO $ getObjectPropertyULong obj "length" data DOMDOMPluginArrayLengthPropertyInfo instance AttrInfo DOMDOMPluginArrayLengthPropertyInfo where type AttrAllowedOps DOMDOMPluginArrayLengthPropertyInfo = '[ 'AttrGet] type AttrSetTypeConstraint DOMDOMPluginArrayLengthPropertyInfo = (~) () type AttrBaseTypeConstraint DOMDOMPluginArrayLengthPropertyInfo = DOMDOMPluginArrayK - type AttrGetType DOMDOMPluginArrayLengthPropertyInfo = Word64 + type AttrGetType DOMDOMPluginArrayLengthPropertyInfo = CULong type AttrLabel DOMDOMPluginArrayLengthPropertyInfo = "length" attrGet _ = getDOMDOMPluginArrayLength attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined type instance AttributeList DOMDOMPluginArray = DOMDOMPluginArrayAttributeList type DOMDOMPluginArrayAttributeList = ('[ '("coreObject", DOMObjectCoreObjectPropertyInfo), '("length", DOMDOMPluginArrayLengthPropertyInfo)] :: [(Symbol, *)]) +dOMDOMPluginArrayLength :: AttrLabelProxy "length" +dOMDOMPluginArrayLength = AttrLabelProxy + type instance SignalList DOMDOMPluginArray = DOMDOMPluginArraySignalList type DOMDOMPluginArraySignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) @@ -146,19 +152,19 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMDOMPluginArray", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUInt64 +-- returnType : Just (TBasicType TULong) -- throws : False -- Skip return : False foreign import ccall "webkit_dom_dom_plugin_array_get_length" webkit_dom_dom_plugin_array_get_length :: Ptr DOMDOMPluginArray -> -- _obj : TInterface "WebKit" "DOMDOMPluginArray" - IO Word64 + IO CULong dOMDOMPluginArrayGetLength :: (MonadIO m, DOMDOMPluginArrayK a) => a -- _obj - -> m Word64 -- result + -> m CULong -- result dOMDOMPluginArrayGetLength _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- webkit_dom_dom_plugin_array_get_length _obj' @@ -166,27 +172,27 @@ return result data DOMDOMPluginArrayGetLengthMethodInfo -instance (signature ~ (m Word64), MonadIO m, DOMDOMPluginArrayK a) => MethodInfo DOMDOMPluginArrayGetLengthMethodInfo a signature where +instance (signature ~ (m CULong), MonadIO m, DOMDOMPluginArrayK a) => MethodInfo DOMDOMPluginArrayGetLengthMethodInfo a signature where overloadedMethod _ = dOMDOMPluginArrayGetLength -- method DOMDOMPluginArray::item -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMDOMPluginArray", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "index", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMDOMPluginArray", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "index", argType = TBasicType TULong, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit" "DOMDOMPlugin" +-- returnType : Just (TInterface "WebKit" "DOMDOMPlugin") -- throws : False -- Skip return : False foreign import ccall "webkit_dom_dom_plugin_array_item" webkit_dom_dom_plugin_array_item :: Ptr DOMDOMPluginArray -> -- _obj : TInterface "WebKit" "DOMDOMPluginArray" - Word64 -> -- index : TBasicType TUInt64 + CULong -> -- index : TBasicType TULong IO (Ptr DOMDOMPlugin) dOMDOMPluginArrayItem :: (MonadIO m, DOMDOMPluginArrayK a) => a -- _obj - -> Word64 -- index + -> CULong -- index -> m DOMDOMPlugin -- result dOMDOMPluginArrayItem _obj index = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj @@ -197,14 +203,14 @@ return result' data DOMDOMPluginArrayItemMethodInfo -instance (signature ~ (Word64 -> m DOMDOMPlugin), MonadIO m, DOMDOMPluginArrayK a) => MethodInfo DOMDOMPluginArrayItemMethodInfo a signature where +instance (signature ~ (CULong -> m DOMDOMPlugin), MonadIO m, DOMDOMPluginArrayK a) => MethodInfo DOMDOMPluginArrayItemMethodInfo a signature where overloadedMethod _ = dOMDOMPluginArrayItem -- method DOMDOMPluginArray::named_item -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMDOMPluginArray", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit" "DOMDOMPlugin" +-- returnType : Just (TInterface "WebKit" "DOMDOMPlugin") -- throws : False -- Skip return : False @@ -237,7 +243,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMDOMPluginArray", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "reload", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False diff --git a/GI/WebKit/Objects/DOMDOMPluginArray.hs-boot b/GI/WebKit/Objects/DOMDOMPluginArray.hs-boot --- a/GI/WebKit/Objects/DOMDOMPluginArray.hs-boot +++ b/GI/WebKit/Objects/DOMDOMPluginArray.hs-boot @@ -1,8 +1,8 @@ module GI.WebKit.Objects.DOMDOMPluginArray where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map diff --git a/GI/WebKit/Objects/DOMDOMSecurityPolicy.hs b/GI/WebKit/Objects/DOMDOMSecurityPolicy.hs --- a/GI/WebKit/Objects/DOMDOMSecurityPolicy.hs +++ b/GI/WebKit/Objects/DOMDOMSecurityPolicy.hs @@ -97,26 +97,31 @@ -- * Properties -- ** AllowsEval DOMDOMSecurityPolicyAllowsEvalPropertyInfo, + dOMDOMSecurityPolicyAllowsEval , getDOMDOMSecurityPolicyAllowsEval , -- ** AllowsInlineScript DOMDOMSecurityPolicyAllowsInlineScriptPropertyInfo, + dOMDOMSecurityPolicyAllowsInlineScript , getDOMDOMSecurityPolicyAllowsInlineScript, -- ** AllowsInlineStyle DOMDOMSecurityPolicyAllowsInlineStylePropertyInfo, + dOMDOMSecurityPolicyAllowsInlineStyle , getDOMDOMSecurityPolicyAllowsInlineStyle, -- ** IsActive DOMDOMSecurityPolicyIsActivePropertyInfo, + dOMDOMSecurityPolicyIsActive , getDOMDOMSecurityPolicyIsActive , -- ** ReportUrIs DOMDOMSecurityPolicyReportUrIsPropertyInfo, + dOMDOMSecurityPolicyReportUrIs , getDOMDOMSecurityPolicyReportUrIs , @@ -124,9 +129,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map @@ -207,6 +212,7 @@ -- VVV Prop "allows-eval" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) getDOMDOMSecurityPolicyAllowsEval :: (MonadIO m, DOMDOMSecurityPolicyK o) => o -> m Bool getDOMDOMSecurityPolicyAllowsEval obj = liftIO $ getObjectPropertyBool obj "allows-eval" @@ -221,10 +227,12 @@ attrGet _ = getDOMDOMSecurityPolicyAllowsEval attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "allows-inline-script" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) getDOMDOMSecurityPolicyAllowsInlineScript :: (MonadIO m, DOMDOMSecurityPolicyK o) => o -> m Bool getDOMDOMSecurityPolicyAllowsInlineScript obj = liftIO $ getObjectPropertyBool obj "allows-inline-script" @@ -239,10 +247,12 @@ attrGet _ = getDOMDOMSecurityPolicyAllowsInlineScript attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "allows-inline-style" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) getDOMDOMSecurityPolicyAllowsInlineStyle :: (MonadIO m, DOMDOMSecurityPolicyK o) => o -> m Bool getDOMDOMSecurityPolicyAllowsInlineStyle obj = liftIO $ getObjectPropertyBool obj "allows-inline-style" @@ -257,10 +267,12 @@ attrGet _ = getDOMDOMSecurityPolicyAllowsInlineStyle attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "is-active" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) getDOMDOMSecurityPolicyIsActive :: (MonadIO m, DOMDOMSecurityPolicyK o) => o -> m Bool getDOMDOMSecurityPolicyIsActive obj = liftIO $ getObjectPropertyBool obj "is-active" @@ -275,28 +287,46 @@ attrGet _ = getDOMDOMSecurityPolicyIsActive attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "report-ur-is" -- Type: TInterface "WebKit" "DOMDOMStringList" -- Flags: [PropertyReadable] + -- Nullable: (Nothing,Nothing) -getDOMDOMSecurityPolicyReportUrIs :: (MonadIO m, DOMDOMSecurityPolicyK o) => o -> m DOMDOMStringList +getDOMDOMSecurityPolicyReportUrIs :: (MonadIO m, DOMDOMSecurityPolicyK o) => o -> m (Maybe DOMDOMStringList) getDOMDOMSecurityPolicyReportUrIs obj = liftIO $ getObjectPropertyObject obj "report-ur-is" DOMDOMStringList data DOMDOMSecurityPolicyReportUrIsPropertyInfo instance AttrInfo DOMDOMSecurityPolicyReportUrIsPropertyInfo where - type AttrAllowedOps DOMDOMSecurityPolicyReportUrIsPropertyInfo = '[ 'AttrGet] + type AttrAllowedOps DOMDOMSecurityPolicyReportUrIsPropertyInfo = '[ 'AttrGet, 'AttrClear] type AttrSetTypeConstraint DOMDOMSecurityPolicyReportUrIsPropertyInfo = (~) () type AttrBaseTypeConstraint DOMDOMSecurityPolicyReportUrIsPropertyInfo = DOMDOMSecurityPolicyK - type AttrGetType DOMDOMSecurityPolicyReportUrIsPropertyInfo = DOMDOMStringList + type AttrGetType DOMDOMSecurityPolicyReportUrIsPropertyInfo = (Maybe DOMDOMStringList) type AttrLabel DOMDOMSecurityPolicyReportUrIsPropertyInfo = "report-ur-is" attrGet _ = getDOMDOMSecurityPolicyReportUrIs attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined type instance AttributeList DOMDOMSecurityPolicy = DOMDOMSecurityPolicyAttributeList type DOMDOMSecurityPolicyAttributeList = ('[ '("allowsEval", DOMDOMSecurityPolicyAllowsEvalPropertyInfo), '("allowsInlineScript", DOMDOMSecurityPolicyAllowsInlineScriptPropertyInfo), '("allowsInlineStyle", DOMDOMSecurityPolicyAllowsInlineStylePropertyInfo), '("coreObject", DOMObjectCoreObjectPropertyInfo), '("isActive", DOMDOMSecurityPolicyIsActivePropertyInfo), '("reportUrIs", DOMDOMSecurityPolicyReportUrIsPropertyInfo)] :: [(Symbol, *)]) +dOMDOMSecurityPolicyAllowsEval :: AttrLabelProxy "allowsEval" +dOMDOMSecurityPolicyAllowsEval = AttrLabelProxy + +dOMDOMSecurityPolicyAllowsInlineScript :: AttrLabelProxy "allowsInlineScript" +dOMDOMSecurityPolicyAllowsInlineScript = AttrLabelProxy + +dOMDOMSecurityPolicyAllowsInlineStyle :: AttrLabelProxy "allowsInlineStyle" +dOMDOMSecurityPolicyAllowsInlineStyle = AttrLabelProxy + +dOMDOMSecurityPolicyIsActive :: AttrLabelProxy "isActive" +dOMDOMSecurityPolicyIsActive = AttrLabelProxy + +dOMDOMSecurityPolicyReportUrIs :: AttrLabelProxy "reportUrIs" +dOMDOMSecurityPolicyReportUrIs = AttrLabelProxy + type instance SignalList DOMDOMSecurityPolicy = DOMDOMSecurityPolicySignalList type DOMDOMSecurityPolicySignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) @@ -304,7 +334,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMDOMSecurityPolicy", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "url", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -336,7 +366,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMDOMSecurityPolicy", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "url", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -368,7 +398,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMDOMSecurityPolicy", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "url", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -400,7 +430,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMDOMSecurityPolicy", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "url", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -432,7 +462,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMDOMSecurityPolicy", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "url", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -464,7 +494,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMDOMSecurityPolicy", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "url", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -496,7 +526,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMDOMSecurityPolicy", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "url", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -528,7 +558,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMDOMSecurityPolicy", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -560,7 +590,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMDOMSecurityPolicy", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "url", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -592,7 +622,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMDOMSecurityPolicy", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "url", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -624,7 +654,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMDOMSecurityPolicy", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -652,7 +682,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMDOMSecurityPolicy", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -680,7 +710,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMDOMSecurityPolicy", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -708,7 +738,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMDOMSecurityPolicy", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -736,7 +766,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMDOMSecurityPolicy", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit" "DOMDOMStringList" +-- returnType : Just (TInterface "WebKit" "DOMDOMStringList") -- throws : False -- Skip return : False diff --git a/GI/WebKit/Objects/DOMDOMSecurityPolicy.hs-boot b/GI/WebKit/Objects/DOMDOMSecurityPolicy.hs-boot --- a/GI/WebKit/Objects/DOMDOMSecurityPolicy.hs-boot +++ b/GI/WebKit/Objects/DOMDOMSecurityPolicy.hs-boot @@ -1,8 +1,8 @@ module GI.WebKit.Objects.DOMDOMSecurityPolicy where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map diff --git a/GI/WebKit/Objects/DOMDOMSelection.hs b/GI/WebKit/Objects/DOMDOMSelection.hs --- a/GI/WebKit/Objects/DOMDOMSelection.hs +++ b/GI/WebKit/Objects/DOMDOMSelection.hs @@ -142,56 +142,67 @@ -- * Properties -- ** AnchorNode DOMDOMSelectionAnchorNodePropertyInfo , + dOMDOMSelectionAnchorNode , getDOMDOMSelectionAnchorNode , -- ** AnchorOffset DOMDOMSelectionAnchorOffsetPropertyInfo , + dOMDOMSelectionAnchorOffset , getDOMDOMSelectionAnchorOffset , -- ** BaseNode DOMDOMSelectionBaseNodePropertyInfo , + dOMDOMSelectionBaseNode , getDOMDOMSelectionBaseNode , -- ** BaseOffset DOMDOMSelectionBaseOffsetPropertyInfo , + dOMDOMSelectionBaseOffset , getDOMDOMSelectionBaseOffset , -- ** ExtentNode DOMDOMSelectionExtentNodePropertyInfo , + dOMDOMSelectionExtentNode , getDOMDOMSelectionExtentNode , -- ** ExtentOffset DOMDOMSelectionExtentOffsetPropertyInfo , + dOMDOMSelectionExtentOffset , getDOMDOMSelectionExtentOffset , -- ** FocusNode DOMDOMSelectionFocusNodePropertyInfo , + dOMDOMSelectionFocusNode , getDOMDOMSelectionFocusNode , -- ** FocusOffset DOMDOMSelectionFocusOffsetPropertyInfo , + dOMDOMSelectionFocusOffset , getDOMDOMSelectionFocusOffset , -- ** IsCollapsed DOMDOMSelectionIsCollapsedPropertyInfo , + dOMDOMSelectionIsCollapsed , getDOMDOMSelectionIsCollapsed , -- ** RangeCount DOMDOMSelectionRangeCountPropertyInfo , + dOMDOMSelectionRangeCount , getDOMDOMSelectionRangeCount , -- ** Type DOMDOMSelectionTypePropertyInfo , + dOMDOMSelectionType , getDOMDOMSelectionType , @@ -199,9 +210,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map @@ -291,13 +302,14 @@ -- VVV Prop "anchor-node" -- Type: TInterface "WebKit" "DOMNode" -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) getDOMDOMSelectionAnchorNode :: (MonadIO m, DOMDOMSelectionK o) => o -> m DOMNode -getDOMDOMSelectionAnchorNode obj = liftIO $ getObjectPropertyObject obj "anchor-node" DOMNode +getDOMDOMSelectionAnchorNode obj = liftIO $ checkUnexpectedNothing "getDOMDOMSelectionAnchorNode" $ getObjectPropertyObject obj "anchor-node" DOMNode data DOMDOMSelectionAnchorNodePropertyInfo instance AttrInfo DOMDOMSelectionAnchorNodePropertyInfo where - type AttrAllowedOps DOMDOMSelectionAnchorNodePropertyInfo = '[ 'AttrGet] + type AttrAllowedOps DOMDOMSelectionAnchorNodePropertyInfo = '[ 'AttrGet, 'AttrClear] type AttrSetTypeConstraint DOMDOMSelectionAnchorNodePropertyInfo = (~) () type AttrBaseTypeConstraint DOMDOMSelectionAnchorNodePropertyInfo = DOMDOMSelectionK type AttrGetType DOMDOMSelectionAnchorNodePropertyInfo = DOMNode @@ -305,35 +317,39 @@ attrGet _ = getDOMDOMSelectionAnchorNode attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "anchor-offset" - -- Type: TBasicType TInt64 + -- Type: TBasicType TLong -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) -getDOMDOMSelectionAnchorOffset :: (MonadIO m, DOMDOMSelectionK o) => o -> m Int64 -getDOMDOMSelectionAnchorOffset obj = liftIO $ getObjectPropertyInt64 obj "anchor-offset" +getDOMDOMSelectionAnchorOffset :: (MonadIO m, DOMDOMSelectionK o) => o -> m CLong +getDOMDOMSelectionAnchorOffset obj = liftIO $ getObjectPropertyLong obj "anchor-offset" data DOMDOMSelectionAnchorOffsetPropertyInfo instance AttrInfo DOMDOMSelectionAnchorOffsetPropertyInfo where type AttrAllowedOps DOMDOMSelectionAnchorOffsetPropertyInfo = '[ 'AttrGet] type AttrSetTypeConstraint DOMDOMSelectionAnchorOffsetPropertyInfo = (~) () type AttrBaseTypeConstraint DOMDOMSelectionAnchorOffsetPropertyInfo = DOMDOMSelectionK - type AttrGetType DOMDOMSelectionAnchorOffsetPropertyInfo = Int64 + type AttrGetType DOMDOMSelectionAnchorOffsetPropertyInfo = CLong type AttrLabel DOMDOMSelectionAnchorOffsetPropertyInfo = "anchor-offset" attrGet _ = getDOMDOMSelectionAnchorOffset attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "base-node" -- Type: TInterface "WebKit" "DOMNode" -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) getDOMDOMSelectionBaseNode :: (MonadIO m, DOMDOMSelectionK o) => o -> m DOMNode -getDOMDOMSelectionBaseNode obj = liftIO $ getObjectPropertyObject obj "base-node" DOMNode +getDOMDOMSelectionBaseNode obj = liftIO $ checkUnexpectedNothing "getDOMDOMSelectionBaseNode" $ getObjectPropertyObject obj "base-node" DOMNode data DOMDOMSelectionBaseNodePropertyInfo instance AttrInfo DOMDOMSelectionBaseNodePropertyInfo where - type AttrAllowedOps DOMDOMSelectionBaseNodePropertyInfo = '[ 'AttrGet] + type AttrAllowedOps DOMDOMSelectionBaseNodePropertyInfo = '[ 'AttrGet, 'AttrClear] type AttrSetTypeConstraint DOMDOMSelectionBaseNodePropertyInfo = (~) () type AttrBaseTypeConstraint DOMDOMSelectionBaseNodePropertyInfo = DOMDOMSelectionK type AttrGetType DOMDOMSelectionBaseNodePropertyInfo = DOMNode @@ -341,35 +357,39 @@ attrGet _ = getDOMDOMSelectionBaseNode attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "base-offset" - -- Type: TBasicType TInt64 + -- Type: TBasicType TLong -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) -getDOMDOMSelectionBaseOffset :: (MonadIO m, DOMDOMSelectionK o) => o -> m Int64 -getDOMDOMSelectionBaseOffset obj = liftIO $ getObjectPropertyInt64 obj "base-offset" +getDOMDOMSelectionBaseOffset :: (MonadIO m, DOMDOMSelectionK o) => o -> m CLong +getDOMDOMSelectionBaseOffset obj = liftIO $ getObjectPropertyLong obj "base-offset" data DOMDOMSelectionBaseOffsetPropertyInfo instance AttrInfo DOMDOMSelectionBaseOffsetPropertyInfo where type AttrAllowedOps DOMDOMSelectionBaseOffsetPropertyInfo = '[ 'AttrGet] type AttrSetTypeConstraint DOMDOMSelectionBaseOffsetPropertyInfo = (~) () type AttrBaseTypeConstraint DOMDOMSelectionBaseOffsetPropertyInfo = DOMDOMSelectionK - type AttrGetType DOMDOMSelectionBaseOffsetPropertyInfo = Int64 + type AttrGetType DOMDOMSelectionBaseOffsetPropertyInfo = CLong type AttrLabel DOMDOMSelectionBaseOffsetPropertyInfo = "base-offset" attrGet _ = getDOMDOMSelectionBaseOffset attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "extent-node" -- Type: TInterface "WebKit" "DOMNode" -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) getDOMDOMSelectionExtentNode :: (MonadIO m, DOMDOMSelectionK o) => o -> m DOMNode -getDOMDOMSelectionExtentNode obj = liftIO $ getObjectPropertyObject obj "extent-node" DOMNode +getDOMDOMSelectionExtentNode obj = liftIO $ checkUnexpectedNothing "getDOMDOMSelectionExtentNode" $ getObjectPropertyObject obj "extent-node" DOMNode data DOMDOMSelectionExtentNodePropertyInfo instance AttrInfo DOMDOMSelectionExtentNodePropertyInfo where - type AttrAllowedOps DOMDOMSelectionExtentNodePropertyInfo = '[ 'AttrGet] + type AttrAllowedOps DOMDOMSelectionExtentNodePropertyInfo = '[ 'AttrGet, 'AttrClear] type AttrSetTypeConstraint DOMDOMSelectionExtentNodePropertyInfo = (~) () type AttrBaseTypeConstraint DOMDOMSelectionExtentNodePropertyInfo = DOMDOMSelectionK type AttrGetType DOMDOMSelectionExtentNodePropertyInfo = DOMNode @@ -377,35 +397,39 @@ attrGet _ = getDOMDOMSelectionExtentNode attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "extent-offset" - -- Type: TBasicType TInt64 + -- Type: TBasicType TLong -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) -getDOMDOMSelectionExtentOffset :: (MonadIO m, DOMDOMSelectionK o) => o -> m Int64 -getDOMDOMSelectionExtentOffset obj = liftIO $ getObjectPropertyInt64 obj "extent-offset" +getDOMDOMSelectionExtentOffset :: (MonadIO m, DOMDOMSelectionK o) => o -> m CLong +getDOMDOMSelectionExtentOffset obj = liftIO $ getObjectPropertyLong obj "extent-offset" data DOMDOMSelectionExtentOffsetPropertyInfo instance AttrInfo DOMDOMSelectionExtentOffsetPropertyInfo where type AttrAllowedOps DOMDOMSelectionExtentOffsetPropertyInfo = '[ 'AttrGet] type AttrSetTypeConstraint DOMDOMSelectionExtentOffsetPropertyInfo = (~) () type AttrBaseTypeConstraint DOMDOMSelectionExtentOffsetPropertyInfo = DOMDOMSelectionK - type AttrGetType DOMDOMSelectionExtentOffsetPropertyInfo = Int64 + type AttrGetType DOMDOMSelectionExtentOffsetPropertyInfo = CLong type AttrLabel DOMDOMSelectionExtentOffsetPropertyInfo = "extent-offset" attrGet _ = getDOMDOMSelectionExtentOffset attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "focus-node" -- Type: TInterface "WebKit" "DOMNode" -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) getDOMDOMSelectionFocusNode :: (MonadIO m, DOMDOMSelectionK o) => o -> m DOMNode -getDOMDOMSelectionFocusNode obj = liftIO $ getObjectPropertyObject obj "focus-node" DOMNode +getDOMDOMSelectionFocusNode obj = liftIO $ checkUnexpectedNothing "getDOMDOMSelectionFocusNode" $ getObjectPropertyObject obj "focus-node" DOMNode data DOMDOMSelectionFocusNodePropertyInfo instance AttrInfo DOMDOMSelectionFocusNodePropertyInfo where - type AttrAllowedOps DOMDOMSelectionFocusNodePropertyInfo = '[ 'AttrGet] + type AttrAllowedOps DOMDOMSelectionFocusNodePropertyInfo = '[ 'AttrGet, 'AttrClear] type AttrSetTypeConstraint DOMDOMSelectionFocusNodePropertyInfo = (~) () type AttrBaseTypeConstraint DOMDOMSelectionFocusNodePropertyInfo = DOMDOMSelectionK type AttrGetType DOMDOMSelectionFocusNodePropertyInfo = DOMNode @@ -413,28 +437,32 @@ attrGet _ = getDOMDOMSelectionFocusNode attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "focus-offset" - -- Type: TBasicType TInt64 + -- Type: TBasicType TLong -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) -getDOMDOMSelectionFocusOffset :: (MonadIO m, DOMDOMSelectionK o) => o -> m Int64 -getDOMDOMSelectionFocusOffset obj = liftIO $ getObjectPropertyInt64 obj "focus-offset" +getDOMDOMSelectionFocusOffset :: (MonadIO m, DOMDOMSelectionK o) => o -> m CLong +getDOMDOMSelectionFocusOffset obj = liftIO $ getObjectPropertyLong obj "focus-offset" data DOMDOMSelectionFocusOffsetPropertyInfo instance AttrInfo DOMDOMSelectionFocusOffsetPropertyInfo where type AttrAllowedOps DOMDOMSelectionFocusOffsetPropertyInfo = '[ 'AttrGet] type AttrSetTypeConstraint DOMDOMSelectionFocusOffsetPropertyInfo = (~) () type AttrBaseTypeConstraint DOMDOMSelectionFocusOffsetPropertyInfo = DOMDOMSelectionK - type AttrGetType DOMDOMSelectionFocusOffsetPropertyInfo = Int64 + type AttrGetType DOMDOMSelectionFocusOffsetPropertyInfo = CLong type AttrLabel DOMDOMSelectionFocusOffsetPropertyInfo = "focus-offset" attrGet _ = getDOMDOMSelectionFocusOffset attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "is-collapsed" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) getDOMDOMSelectionIsCollapsed :: (MonadIO m, DOMDOMSelectionK o) => o -> m Bool getDOMDOMSelectionIsCollapsed obj = liftIO $ getObjectPropertyBool obj "is-collapsed" @@ -449,46 +477,84 @@ attrGet _ = getDOMDOMSelectionIsCollapsed attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "range-count" - -- Type: TBasicType TInt64 + -- Type: TBasicType TLong -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) -getDOMDOMSelectionRangeCount :: (MonadIO m, DOMDOMSelectionK o) => o -> m Int64 -getDOMDOMSelectionRangeCount obj = liftIO $ getObjectPropertyInt64 obj "range-count" +getDOMDOMSelectionRangeCount :: (MonadIO m, DOMDOMSelectionK o) => o -> m CLong +getDOMDOMSelectionRangeCount obj = liftIO $ getObjectPropertyLong obj "range-count" data DOMDOMSelectionRangeCountPropertyInfo instance AttrInfo DOMDOMSelectionRangeCountPropertyInfo where type AttrAllowedOps DOMDOMSelectionRangeCountPropertyInfo = '[ 'AttrGet] type AttrSetTypeConstraint DOMDOMSelectionRangeCountPropertyInfo = (~) () type AttrBaseTypeConstraint DOMDOMSelectionRangeCountPropertyInfo = DOMDOMSelectionK - type AttrGetType DOMDOMSelectionRangeCountPropertyInfo = Int64 + type AttrGetType DOMDOMSelectionRangeCountPropertyInfo = CLong type AttrLabel DOMDOMSelectionRangeCountPropertyInfo = "range-count" attrGet _ = getDOMDOMSelectionRangeCount attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "type" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable] + -- Nullable: (Nothing,Nothing) -getDOMDOMSelectionType :: (MonadIO m, DOMDOMSelectionK o) => o -> m T.Text +getDOMDOMSelectionType :: (MonadIO m, DOMDOMSelectionK o) => o -> m (Maybe T.Text) getDOMDOMSelectionType obj = liftIO $ getObjectPropertyString obj "type" data DOMDOMSelectionTypePropertyInfo instance AttrInfo DOMDOMSelectionTypePropertyInfo where - type AttrAllowedOps DOMDOMSelectionTypePropertyInfo = '[ 'AttrGet] + type AttrAllowedOps DOMDOMSelectionTypePropertyInfo = '[ 'AttrGet, 'AttrClear] type AttrSetTypeConstraint DOMDOMSelectionTypePropertyInfo = (~) () type AttrBaseTypeConstraint DOMDOMSelectionTypePropertyInfo = DOMDOMSelectionK - type AttrGetType DOMDOMSelectionTypePropertyInfo = T.Text + type AttrGetType DOMDOMSelectionTypePropertyInfo = (Maybe T.Text) type AttrLabel DOMDOMSelectionTypePropertyInfo = "type" attrGet _ = getDOMDOMSelectionType attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined type instance AttributeList DOMDOMSelection = DOMDOMSelectionAttributeList type DOMDOMSelectionAttributeList = ('[ '("anchorNode", DOMDOMSelectionAnchorNodePropertyInfo), '("anchorOffset", DOMDOMSelectionAnchorOffsetPropertyInfo), '("baseNode", DOMDOMSelectionBaseNodePropertyInfo), '("baseOffset", DOMDOMSelectionBaseOffsetPropertyInfo), '("coreObject", DOMObjectCoreObjectPropertyInfo), '("extentNode", DOMDOMSelectionExtentNodePropertyInfo), '("extentOffset", DOMDOMSelectionExtentOffsetPropertyInfo), '("focusNode", DOMDOMSelectionFocusNodePropertyInfo), '("focusOffset", DOMDOMSelectionFocusOffsetPropertyInfo), '("isCollapsed", DOMDOMSelectionIsCollapsedPropertyInfo), '("rangeCount", DOMDOMSelectionRangeCountPropertyInfo), '("type", DOMDOMSelectionTypePropertyInfo)] :: [(Symbol, *)]) +dOMDOMSelectionAnchorNode :: AttrLabelProxy "anchorNode" +dOMDOMSelectionAnchorNode = AttrLabelProxy + +dOMDOMSelectionAnchorOffset :: AttrLabelProxy "anchorOffset" +dOMDOMSelectionAnchorOffset = AttrLabelProxy + +dOMDOMSelectionBaseNode :: AttrLabelProxy "baseNode" +dOMDOMSelectionBaseNode = AttrLabelProxy + +dOMDOMSelectionBaseOffset :: AttrLabelProxy "baseOffset" +dOMDOMSelectionBaseOffset = AttrLabelProxy + +dOMDOMSelectionExtentNode :: AttrLabelProxy "extentNode" +dOMDOMSelectionExtentNode = AttrLabelProxy + +dOMDOMSelectionExtentOffset :: AttrLabelProxy "extentOffset" +dOMDOMSelectionExtentOffset = AttrLabelProxy + +dOMDOMSelectionFocusNode :: AttrLabelProxy "focusNode" +dOMDOMSelectionFocusNode = AttrLabelProxy + +dOMDOMSelectionFocusOffset :: AttrLabelProxy "focusOffset" +dOMDOMSelectionFocusOffset = AttrLabelProxy + +dOMDOMSelectionIsCollapsed :: AttrLabelProxy "isCollapsed" +dOMDOMSelectionIsCollapsed = AttrLabelProxy + +dOMDOMSelectionRangeCount :: AttrLabelProxy "rangeCount" +dOMDOMSelectionRangeCount = AttrLabelProxy + +dOMDOMSelectionType :: AttrLabelProxy "type" +dOMDOMSelectionType = AttrLabelProxy + type instance SignalList DOMDOMSelection = DOMDOMSelectionSignalList type DOMDOMSelectionSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) @@ -496,7 +562,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMDOMSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "range", argType = TInterface "WebKit" "DOMRange", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -525,16 +591,16 @@ -- method DOMDOMSelection::collapse -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMDOMSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "node", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "index", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMDOMSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "node", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "index", argType = TBasicType TLong, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : True -- Skip return : False foreign import ccall "webkit_dom_dom_selection_collapse" webkit_dom_dom_selection_collapse :: Ptr DOMDOMSelection -> -- _obj : TInterface "WebKit" "DOMDOMSelection" Ptr DOMNode -> -- node : TInterface "WebKit" "DOMNode" - Int64 -> -- index : TBasicType TInt64 + CLong -> -- index : TBasicType TLong Ptr (Ptr GError) -> -- error IO () @@ -543,7 +609,7 @@ (MonadIO m, DOMDOMSelectionK a, DOMNodeK b) => a -- _obj -> b -- node - -> Int64 -- index + -> CLong -- index -> m () -- result dOMDOMSelectionCollapse _obj node index = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj @@ -558,14 +624,14 @@ ) data DOMDOMSelectionCollapseMethodInfo -instance (signature ~ (b -> Int64 -> m ()), MonadIO m, DOMDOMSelectionK a, DOMNodeK b) => MethodInfo DOMDOMSelectionCollapseMethodInfo a signature where +instance (signature ~ (b -> CLong -> m ()), MonadIO m, DOMDOMSelectionK a, DOMNodeK b) => MethodInfo DOMDOMSelectionCollapseMethodInfo a signature where overloadedMethod _ = dOMDOMSelectionCollapse -- method DOMDOMSelection::collapse_to_end -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMDOMSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : True -- Skip return : False @@ -597,7 +663,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMDOMSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : True -- Skip return : False @@ -629,7 +695,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMDOMSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "node", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "allowPartial", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -664,7 +730,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMDOMSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -691,7 +757,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMDOMSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -716,16 +782,16 @@ -- method DOMDOMSelection::extend -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMDOMSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "node", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "offset", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMDOMSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "node", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "offset", argType = TBasicType TLong, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : True -- Skip return : False foreign import ccall "webkit_dom_dom_selection_extend" webkit_dom_dom_selection_extend :: Ptr DOMDOMSelection -> -- _obj : TInterface "WebKit" "DOMDOMSelection" Ptr DOMNode -> -- node : TInterface "WebKit" "DOMNode" - Int64 -> -- offset : TBasicType TInt64 + CLong -> -- offset : TBasicType TLong Ptr (Ptr GError) -> -- error IO () @@ -734,7 +800,7 @@ (MonadIO m, DOMDOMSelectionK a, DOMNodeK b) => a -- _obj -> b -- node - -> Int64 -- offset + -> CLong -- offset -> m () -- result dOMDOMSelectionExtend _obj node offset = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj @@ -749,14 +815,14 @@ ) data DOMDOMSelectionExtendMethodInfo -instance (signature ~ (b -> Int64 -> m ()), MonadIO m, DOMDOMSelectionK a, DOMNodeK b) => MethodInfo DOMDOMSelectionExtendMethodInfo a signature where +instance (signature ~ (b -> CLong -> m ()), MonadIO m, DOMDOMSelectionK a, DOMNodeK b) => MethodInfo DOMDOMSelectionExtendMethodInfo a signature where overloadedMethod _ = dOMDOMSelectionExtend -- method DOMDOMSelection::get_anchor_node -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMDOMSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit" "DOMNode" +-- returnType : Just (TInterface "WebKit" "DOMNode") -- throws : False -- Skip return : False @@ -785,19 +851,19 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMDOMSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TInt64 +-- returnType : Just (TBasicType TLong) -- throws : False -- Skip return : False foreign import ccall "webkit_dom_dom_selection_get_anchor_offset" webkit_dom_dom_selection_get_anchor_offset :: Ptr DOMDOMSelection -> -- _obj : TInterface "WebKit" "DOMDOMSelection" - IO Int64 + IO CLong dOMDOMSelectionGetAnchorOffset :: (MonadIO m, DOMDOMSelectionK a) => a -- _obj - -> m Int64 -- result + -> m CLong -- result dOMDOMSelectionGetAnchorOffset _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- webkit_dom_dom_selection_get_anchor_offset _obj' @@ -805,14 +871,14 @@ return result data DOMDOMSelectionGetAnchorOffsetMethodInfo -instance (signature ~ (m Int64), MonadIO m, DOMDOMSelectionK a) => MethodInfo DOMDOMSelectionGetAnchorOffsetMethodInfo a signature where +instance (signature ~ (m CLong), MonadIO m, DOMDOMSelectionK a) => MethodInfo DOMDOMSelectionGetAnchorOffsetMethodInfo a signature where overloadedMethod _ = dOMDOMSelectionGetAnchorOffset -- method DOMDOMSelection::get_base_node -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMDOMSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit" "DOMNode" +-- returnType : Just (TInterface "WebKit" "DOMNode") -- throws : False -- Skip return : False @@ -841,19 +907,19 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMDOMSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TInt64 +-- returnType : Just (TBasicType TLong) -- throws : False -- Skip return : False foreign import ccall "webkit_dom_dom_selection_get_base_offset" webkit_dom_dom_selection_get_base_offset :: Ptr DOMDOMSelection -> -- _obj : TInterface "WebKit" "DOMDOMSelection" - IO Int64 + IO CLong dOMDOMSelectionGetBaseOffset :: (MonadIO m, DOMDOMSelectionK a) => a -- _obj - -> m Int64 -- result + -> m CLong -- result dOMDOMSelectionGetBaseOffset _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- webkit_dom_dom_selection_get_base_offset _obj' @@ -861,14 +927,14 @@ return result data DOMDOMSelectionGetBaseOffsetMethodInfo -instance (signature ~ (m Int64), MonadIO m, DOMDOMSelectionK a) => MethodInfo DOMDOMSelectionGetBaseOffsetMethodInfo a signature where +instance (signature ~ (m CLong), MonadIO m, DOMDOMSelectionK a) => MethodInfo DOMDOMSelectionGetBaseOffsetMethodInfo a signature where overloadedMethod _ = dOMDOMSelectionGetBaseOffset -- method DOMDOMSelection::get_extent_node -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMDOMSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit" "DOMNode" +-- returnType : Just (TInterface "WebKit" "DOMNode") -- throws : False -- Skip return : False @@ -897,19 +963,19 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMDOMSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TInt64 +-- returnType : Just (TBasicType TLong) -- throws : False -- Skip return : False foreign import ccall "webkit_dom_dom_selection_get_extent_offset" webkit_dom_dom_selection_get_extent_offset :: Ptr DOMDOMSelection -> -- _obj : TInterface "WebKit" "DOMDOMSelection" - IO Int64 + IO CLong dOMDOMSelectionGetExtentOffset :: (MonadIO m, DOMDOMSelectionK a) => a -- _obj - -> m Int64 -- result + -> m CLong -- result dOMDOMSelectionGetExtentOffset _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- webkit_dom_dom_selection_get_extent_offset _obj' @@ -917,14 +983,14 @@ return result data DOMDOMSelectionGetExtentOffsetMethodInfo -instance (signature ~ (m Int64), MonadIO m, DOMDOMSelectionK a) => MethodInfo DOMDOMSelectionGetExtentOffsetMethodInfo a signature where +instance (signature ~ (m CLong), MonadIO m, DOMDOMSelectionK a) => MethodInfo DOMDOMSelectionGetExtentOffsetMethodInfo a signature where overloadedMethod _ = dOMDOMSelectionGetExtentOffset -- method DOMDOMSelection::get_focus_node -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMDOMSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit" "DOMNode" +-- returnType : Just (TInterface "WebKit" "DOMNode") -- throws : False -- Skip return : False @@ -953,19 +1019,19 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMDOMSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TInt64 +-- returnType : Just (TBasicType TLong) -- throws : False -- Skip return : False foreign import ccall "webkit_dom_dom_selection_get_focus_offset" webkit_dom_dom_selection_get_focus_offset :: Ptr DOMDOMSelection -> -- _obj : TInterface "WebKit" "DOMDOMSelection" - IO Int64 + IO CLong dOMDOMSelectionGetFocusOffset :: (MonadIO m, DOMDOMSelectionK a) => a -- _obj - -> m Int64 -- result + -> m CLong -- result dOMDOMSelectionGetFocusOffset _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- webkit_dom_dom_selection_get_focus_offset _obj' @@ -973,14 +1039,14 @@ return result data DOMDOMSelectionGetFocusOffsetMethodInfo -instance (signature ~ (m Int64), MonadIO m, DOMDOMSelectionK a) => MethodInfo DOMDOMSelectionGetFocusOffsetMethodInfo a signature where +instance (signature ~ (m CLong), MonadIO m, DOMDOMSelectionK a) => MethodInfo DOMDOMSelectionGetFocusOffsetMethodInfo a signature where overloadedMethod _ = dOMDOMSelectionGetFocusOffset -- method DOMDOMSelection::get_is_collapsed -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMDOMSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -1006,15 +1072,15 @@ -- method DOMDOMSelection::get_range_at -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMDOMSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "index", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMDOMSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "index", argType = TBasicType TLong, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit" "DOMRange" +-- returnType : Just (TInterface "WebKit" "DOMRange") -- throws : True -- Skip return : False foreign import ccall "webkit_dom_dom_selection_get_range_at" webkit_dom_dom_selection_get_range_at :: Ptr DOMDOMSelection -> -- _obj : TInterface "WebKit" "DOMDOMSelection" - Int64 -> -- index : TBasicType TInt64 + CLong -> -- index : TBasicType TLong Ptr (Ptr GError) -> -- error IO (Ptr DOMRange) @@ -1022,7 +1088,7 @@ dOMDOMSelectionGetRangeAt :: (MonadIO m, DOMDOMSelectionK a) => a -- _obj - -> Int64 -- index + -> CLong -- index -> m DOMRange -- result dOMDOMSelectionGetRangeAt _obj index = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj @@ -1037,26 +1103,26 @@ ) data DOMDOMSelectionGetRangeAtMethodInfo -instance (signature ~ (Int64 -> m DOMRange), MonadIO m, DOMDOMSelectionK a) => MethodInfo DOMDOMSelectionGetRangeAtMethodInfo a signature where +instance (signature ~ (CLong -> m DOMRange), MonadIO m, DOMDOMSelectionK a) => MethodInfo DOMDOMSelectionGetRangeAtMethodInfo a signature where overloadedMethod _ = dOMDOMSelectionGetRangeAt -- method DOMDOMSelection::get_range_count -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMDOMSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TInt64 +-- returnType : Just (TBasicType TLong) -- throws : False -- Skip return : False foreign import ccall "webkit_dom_dom_selection_get_range_count" webkit_dom_dom_selection_get_range_count :: Ptr DOMDOMSelection -> -- _obj : TInterface "WebKit" "DOMDOMSelection" - IO Int64 + IO CLong dOMDOMSelectionGetRangeCount :: (MonadIO m, DOMDOMSelectionK a) => a -- _obj - -> m Int64 -- result + -> m CLong -- result dOMDOMSelectionGetRangeCount _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- webkit_dom_dom_selection_get_range_count _obj' @@ -1064,14 +1130,14 @@ return result data DOMDOMSelectionGetRangeCountMethodInfo -instance (signature ~ (m Int64), MonadIO m, DOMDOMSelectionK a) => MethodInfo DOMDOMSelectionGetRangeCountMethodInfo a signature where +instance (signature ~ (m CLong), MonadIO m, DOMDOMSelectionK a) => MethodInfo DOMDOMSelectionGetRangeCountMethodInfo a signature where overloadedMethod _ = dOMDOMSelectionGetRangeCount -- method DOMDOMSelection::modify -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMDOMSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "alter", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "direction", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "granularity", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1110,7 +1176,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMDOMSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1137,7 +1203,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMDOMSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "node", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : True -- Skip return : False @@ -1171,18 +1237,18 @@ -- method DOMDOMSelection::set_base_and_extent -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMDOMSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "baseNode", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "baseOffset", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "extentNode", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "extentOffset", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMDOMSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "baseNode", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "baseOffset", argType = TBasicType TLong, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "extentNode", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "extentOffset", argType = TBasicType TLong, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : True -- Skip return : False foreign import ccall "webkit_dom_dom_selection_set_base_and_extent" webkit_dom_dom_selection_set_base_and_extent :: Ptr DOMDOMSelection -> -- _obj : TInterface "WebKit" "DOMDOMSelection" Ptr DOMNode -> -- baseNode : TInterface "WebKit" "DOMNode" - Int64 -> -- baseOffset : TBasicType TInt64 + CLong -> -- baseOffset : TBasicType TLong Ptr DOMNode -> -- extentNode : TInterface "WebKit" "DOMNode" - Int64 -> -- extentOffset : TBasicType TInt64 + CLong -> -- extentOffset : TBasicType TLong Ptr (Ptr GError) -> -- error IO () @@ -1191,9 +1257,9 @@ (MonadIO m, DOMDOMSelectionK a, DOMNodeK b, DOMNodeK c) => a -- _obj -> b -- baseNode - -> Int64 -- baseOffset + -> CLong -- baseOffset -> c -- extentNode - -> Int64 -- extentOffset + -> CLong -- extentOffset -> m () -- result dOMDOMSelectionSetBaseAndExtent _obj baseNode baseOffset extentNode extentOffset = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj @@ -1210,21 +1276,21 @@ ) data DOMDOMSelectionSetBaseAndExtentMethodInfo -instance (signature ~ (b -> Int64 -> c -> Int64 -> m ()), MonadIO m, DOMDOMSelectionK a, DOMNodeK b, DOMNodeK c) => MethodInfo DOMDOMSelectionSetBaseAndExtentMethodInfo a signature where +instance (signature ~ (b -> CLong -> c -> CLong -> m ()), MonadIO m, DOMDOMSelectionK a, DOMNodeK b, DOMNodeK c) => MethodInfo DOMDOMSelectionSetBaseAndExtentMethodInfo a signature where overloadedMethod _ = dOMDOMSelectionSetBaseAndExtent -- method DOMDOMSelection::set_position -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMDOMSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "node", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "offset", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMDOMSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "node", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "offset", argType = TBasicType TLong, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : True -- Skip return : False foreign import ccall "webkit_dom_dom_selection_set_position" webkit_dom_dom_selection_set_position :: Ptr DOMDOMSelection -> -- _obj : TInterface "WebKit" "DOMDOMSelection" Ptr DOMNode -> -- node : TInterface "WebKit" "DOMNode" - Int64 -> -- offset : TBasicType TInt64 + CLong -> -- offset : TBasicType TLong Ptr (Ptr GError) -> -- error IO () @@ -1233,7 +1299,7 @@ (MonadIO m, DOMDOMSelectionK a, DOMNodeK b) => a -- _obj -> b -- node - -> Int64 -- offset + -> CLong -- offset -> m () -- result dOMDOMSelectionSetPosition _obj node offset = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj @@ -1248,7 +1314,7 @@ ) data DOMDOMSelectionSetPositionMethodInfo -instance (signature ~ (b -> Int64 -> m ()), MonadIO m, DOMDOMSelectionK a, DOMNodeK b) => MethodInfo DOMDOMSelectionSetPositionMethodInfo a signature where +instance (signature ~ (b -> CLong -> m ()), MonadIO m, DOMDOMSelectionK a, DOMNodeK b) => MethodInfo DOMDOMSelectionSetPositionMethodInfo a signature where overloadedMethod _ = dOMDOMSelectionSetPosition diff --git a/GI/WebKit/Objects/DOMDOMSelection.hs-boot b/GI/WebKit/Objects/DOMDOMSelection.hs-boot --- a/GI/WebKit/Objects/DOMDOMSelection.hs-boot +++ b/GI/WebKit/Objects/DOMDOMSelection.hs-boot @@ -1,8 +1,8 @@ module GI.WebKit.Objects.DOMDOMSelection where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map diff --git a/GI/WebKit/Objects/DOMDOMSettableTokenList.hs b/GI/WebKit/Objects/DOMDOMSettableTokenList.hs --- a/GI/WebKit/Objects/DOMDOMSettableTokenList.hs +++ b/GI/WebKit/Objects/DOMDOMSettableTokenList.hs @@ -33,6 +33,7 @@ -- ** Value DOMDOMSettableTokenListValuePropertyInfo, constructDOMDOMSettableTokenListValue , + dOMDOMSettableTokenListValue , getDOMDOMSettableTokenListValue , setDOMDOMSettableTokenListValue , @@ -41,9 +42,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map @@ -117,30 +118,35 @@ -- VVV Prop "value" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Just False) -getDOMDOMSettableTokenListValue :: (MonadIO m, DOMDOMSettableTokenListK o) => o -> m T.Text +getDOMDOMSettableTokenListValue :: (MonadIO m, DOMDOMSettableTokenListK o) => o -> m (Maybe T.Text) getDOMDOMSettableTokenListValue obj = liftIO $ getObjectPropertyString obj "value" setDOMDOMSettableTokenListValue :: (MonadIO m, DOMDOMSettableTokenListK o) => o -> T.Text -> m () -setDOMDOMSettableTokenListValue obj val = liftIO $ setObjectPropertyString obj "value" val +setDOMDOMSettableTokenListValue obj val = liftIO $ setObjectPropertyString obj "value" (Just val) constructDOMDOMSettableTokenListValue :: T.Text -> IO ([Char], GValue) -constructDOMDOMSettableTokenListValue val = constructObjectPropertyString "value" val +constructDOMDOMSettableTokenListValue val = constructObjectPropertyString "value" (Just val) data DOMDOMSettableTokenListValuePropertyInfo instance AttrInfo DOMDOMSettableTokenListValuePropertyInfo where type AttrAllowedOps DOMDOMSettableTokenListValuePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint DOMDOMSettableTokenListValuePropertyInfo = (~) T.Text type AttrBaseTypeConstraint DOMDOMSettableTokenListValuePropertyInfo = DOMDOMSettableTokenListK - type AttrGetType DOMDOMSettableTokenListValuePropertyInfo = T.Text + type AttrGetType DOMDOMSettableTokenListValuePropertyInfo = (Maybe T.Text) type AttrLabel DOMDOMSettableTokenListValuePropertyInfo = "value" attrGet _ = getDOMDOMSettableTokenListValue attrSet _ = setDOMDOMSettableTokenListValue attrConstruct _ = constructDOMDOMSettableTokenListValue + attrClear _ = undefined type instance AttributeList DOMDOMSettableTokenList = DOMDOMSettableTokenListAttributeList type DOMDOMSettableTokenListAttributeList = ('[ '("coreObject", DOMObjectCoreObjectPropertyInfo), '("length", DOMDOMTokenListLengthPropertyInfo), '("value", DOMDOMSettableTokenListValuePropertyInfo)] :: [(Symbol, *)]) +dOMDOMSettableTokenListValue :: AttrLabelProxy "value" +dOMDOMSettableTokenListValue = AttrLabelProxy + type instance SignalList DOMDOMSettableTokenList = DOMDOMSettableTokenListSignalList type DOMDOMSettableTokenListSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) @@ -148,7 +154,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMDOMSettableTokenList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -178,7 +184,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMDOMSettableTokenList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False diff --git a/GI/WebKit/Objects/DOMDOMSettableTokenList.hs-boot b/GI/WebKit/Objects/DOMDOMSettableTokenList.hs-boot --- a/GI/WebKit/Objects/DOMDOMSettableTokenList.hs-boot +++ b/GI/WebKit/Objects/DOMDOMSettableTokenList.hs-boot @@ -1,8 +1,8 @@ module GI.WebKit.Objects.DOMDOMSettableTokenList where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map diff --git a/GI/WebKit/Objects/DOMDOMStringList.hs b/GI/WebKit/Objects/DOMDOMStringList.hs --- a/GI/WebKit/Objects/DOMDOMStringList.hs +++ b/GI/WebKit/Objects/DOMDOMStringList.hs @@ -37,6 +37,7 @@ -- * Properties -- ** Length DOMDOMStringListLengthPropertyInfo , + dOMDOMStringListLength , getDOMDOMStringListLength , @@ -44,9 +45,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map @@ -113,26 +114,31 @@ #endif -- VVV Prop "length" - -- Type: TBasicType TUInt64 + -- Type: TBasicType TULong -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) -getDOMDOMStringListLength :: (MonadIO m, DOMDOMStringListK o) => o -> m Word64 -getDOMDOMStringListLength obj = liftIO $ getObjectPropertyUInt64 obj "length" +getDOMDOMStringListLength :: (MonadIO m, DOMDOMStringListK o) => o -> m CULong +getDOMDOMStringListLength obj = liftIO $ getObjectPropertyULong obj "length" data DOMDOMStringListLengthPropertyInfo instance AttrInfo DOMDOMStringListLengthPropertyInfo where type AttrAllowedOps DOMDOMStringListLengthPropertyInfo = '[ 'AttrGet] type AttrSetTypeConstraint DOMDOMStringListLengthPropertyInfo = (~) () type AttrBaseTypeConstraint DOMDOMStringListLengthPropertyInfo = DOMDOMStringListK - type AttrGetType DOMDOMStringListLengthPropertyInfo = Word64 + type AttrGetType DOMDOMStringListLengthPropertyInfo = CULong type AttrLabel DOMDOMStringListLengthPropertyInfo = "length" attrGet _ = getDOMDOMStringListLength attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined type instance AttributeList DOMDOMStringList = DOMDOMStringListAttributeList type DOMDOMStringListAttributeList = ('[ '("coreObject", DOMObjectCoreObjectPropertyInfo), '("length", DOMDOMStringListLengthPropertyInfo)] :: [(Symbol, *)]) +dOMDOMStringListLength :: AttrLabelProxy "length" +dOMDOMStringListLength = AttrLabelProxy + type instance SignalList DOMDOMStringList = DOMDOMStringListSignalList type DOMDOMStringListSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) @@ -140,7 +146,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMDOMStringList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -172,19 +178,19 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMDOMStringList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUInt64 +-- returnType : Just (TBasicType TULong) -- throws : False -- Skip return : False foreign import ccall "webkit_dom_dom_string_list_get_length" webkit_dom_dom_string_list_get_length :: Ptr DOMDOMStringList -> -- _obj : TInterface "WebKit" "DOMDOMStringList" - IO Word64 + IO CULong dOMDOMStringListGetLength :: (MonadIO m, DOMDOMStringListK a) => a -- _obj - -> m Word64 -- result + -> m CULong -- result dOMDOMStringListGetLength _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- webkit_dom_dom_string_list_get_length _obj' @@ -192,27 +198,27 @@ return result data DOMDOMStringListGetLengthMethodInfo -instance (signature ~ (m Word64), MonadIO m, DOMDOMStringListK a) => MethodInfo DOMDOMStringListGetLengthMethodInfo a signature where +instance (signature ~ (m CULong), MonadIO m, DOMDOMStringListK a) => MethodInfo DOMDOMStringListGetLengthMethodInfo a signature where overloadedMethod _ = dOMDOMStringListGetLength -- method DOMDOMStringList::item -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMDOMStringList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "index", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMDOMStringList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "index", argType = TBasicType TULong, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False foreign import ccall "webkit_dom_dom_string_list_item" webkit_dom_dom_string_list_item :: Ptr DOMDOMStringList -> -- _obj : TInterface "WebKit" "DOMDOMStringList" - Word64 -> -- index : TBasicType TUInt64 + CULong -> -- index : TBasicType TULong IO CString dOMDOMStringListItem :: (MonadIO m, DOMDOMStringListK a) => a -- _obj - -> Word64 -- index + -> CULong -- index -> m T.Text -- result dOMDOMStringListItem _obj index = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj @@ -224,7 +230,7 @@ return result' data DOMDOMStringListItemMethodInfo -instance (signature ~ (Word64 -> m T.Text), MonadIO m, DOMDOMStringListK a) => MethodInfo DOMDOMStringListItemMethodInfo a signature where +instance (signature ~ (CULong -> m T.Text), MonadIO m, DOMDOMStringListK a) => MethodInfo DOMDOMStringListItemMethodInfo a signature where overloadedMethod _ = dOMDOMStringListItem diff --git a/GI/WebKit/Objects/DOMDOMStringList.hs-boot b/GI/WebKit/Objects/DOMDOMStringList.hs-boot --- a/GI/WebKit/Objects/DOMDOMStringList.hs-boot +++ b/GI/WebKit/Objects/DOMDOMStringList.hs-boot @@ -1,8 +1,8 @@ module GI.WebKit.Objects.DOMDOMStringList where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map diff --git a/GI/WebKit/Objects/DOMDOMStringMap.hs b/GI/WebKit/Objects/DOMDOMStringMap.hs --- a/GI/WebKit/Objects/DOMDOMStringMap.hs +++ b/GI/WebKit/Objects/DOMDOMStringMap.hs @@ -18,9 +18,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map diff --git a/GI/WebKit/Objects/DOMDOMStringMap.hs-boot b/GI/WebKit/Objects/DOMDOMStringMap.hs-boot --- a/GI/WebKit/Objects/DOMDOMStringMap.hs-boot +++ b/GI/WebKit/Objects/DOMDOMStringMap.hs-boot @@ -1,8 +1,8 @@ module GI.WebKit.Objects.DOMDOMStringMap where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map diff --git a/GI/WebKit/Objects/DOMDOMTokenList.hs b/GI/WebKit/Objects/DOMDOMTokenList.hs --- a/GI/WebKit/Objects/DOMDOMTokenList.hs +++ b/GI/WebKit/Objects/DOMDOMTokenList.hs @@ -52,6 +52,7 @@ -- * Properties -- ** Length DOMDOMTokenListLengthPropertyInfo , + dOMDOMTokenListLength , getDOMDOMTokenListLength , @@ -59,9 +60,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map @@ -131,26 +132,31 @@ #endif -- VVV Prop "length" - -- Type: TBasicType TUInt64 + -- Type: TBasicType TULong -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) -getDOMDOMTokenListLength :: (MonadIO m, DOMDOMTokenListK o) => o -> m Word64 -getDOMDOMTokenListLength obj = liftIO $ getObjectPropertyUInt64 obj "length" +getDOMDOMTokenListLength :: (MonadIO m, DOMDOMTokenListK o) => o -> m CULong +getDOMDOMTokenListLength obj = liftIO $ getObjectPropertyULong obj "length" data DOMDOMTokenListLengthPropertyInfo instance AttrInfo DOMDOMTokenListLengthPropertyInfo where type AttrAllowedOps DOMDOMTokenListLengthPropertyInfo = '[ 'AttrGet] type AttrSetTypeConstraint DOMDOMTokenListLengthPropertyInfo = (~) () type AttrBaseTypeConstraint DOMDOMTokenListLengthPropertyInfo = DOMDOMTokenListK - type AttrGetType DOMDOMTokenListLengthPropertyInfo = Word64 + type AttrGetType DOMDOMTokenListLengthPropertyInfo = CULong type AttrLabel DOMDOMTokenListLengthPropertyInfo = "length" attrGet _ = getDOMDOMTokenListLength attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined type instance AttributeList DOMDOMTokenList = DOMDOMTokenListAttributeList type DOMDOMTokenListAttributeList = ('[ '("coreObject", DOMObjectCoreObjectPropertyInfo), '("length", DOMDOMTokenListLengthPropertyInfo)] :: [(Symbol, *)]) +dOMDOMTokenListLength :: AttrLabelProxy "length" +dOMDOMTokenListLength = AttrLabelProxy + type instance SignalList DOMDOMTokenList = DOMDOMTokenListSignalList type DOMDOMTokenListSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) @@ -158,7 +164,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMDOMTokenList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "tokens", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : True -- Skip return : False @@ -194,7 +200,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMDOMTokenList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "token", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : True -- Skip return : False @@ -230,19 +236,19 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMDOMTokenList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUInt64 +-- returnType : Just (TBasicType TULong) -- throws : False -- Skip return : False foreign import ccall "webkit_dom_dom_token_list_get_length" webkit_dom_dom_token_list_get_length :: Ptr DOMDOMTokenList -> -- _obj : TInterface "WebKit" "DOMDOMTokenList" - IO Word64 + IO CULong dOMDOMTokenListGetLength :: (MonadIO m, DOMDOMTokenListK a) => a -- _obj - -> m Word64 -- result + -> m CULong -- result dOMDOMTokenListGetLength _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- webkit_dom_dom_token_list_get_length _obj' @@ -250,27 +256,27 @@ return result data DOMDOMTokenListGetLengthMethodInfo -instance (signature ~ (m Word64), MonadIO m, DOMDOMTokenListK a) => MethodInfo DOMDOMTokenListGetLengthMethodInfo a signature where +instance (signature ~ (m CULong), MonadIO m, DOMDOMTokenListK a) => MethodInfo DOMDOMTokenListGetLengthMethodInfo a signature where overloadedMethod _ = dOMDOMTokenListGetLength -- method DOMDOMTokenList::item -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMDOMTokenList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "index", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMDOMTokenList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "index", argType = TBasicType TULong, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False foreign import ccall "webkit_dom_dom_token_list_item" webkit_dom_dom_token_list_item :: Ptr DOMDOMTokenList -> -- _obj : TInterface "WebKit" "DOMDOMTokenList" - Word64 -> -- index : TBasicType TUInt64 + CULong -> -- index : TBasicType TULong IO CString dOMDOMTokenListItem :: (MonadIO m, DOMDOMTokenListK a) => a -- _obj - -> Word64 -- index + -> CULong -- index -> m T.Text -- result dOMDOMTokenListItem _obj index = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj @@ -282,14 +288,14 @@ return result' data DOMDOMTokenListItemMethodInfo -instance (signature ~ (Word64 -> m T.Text), MonadIO m, DOMDOMTokenListK a) => MethodInfo DOMDOMTokenListItemMethodInfo a signature where +instance (signature ~ (CULong -> m T.Text), MonadIO m, DOMDOMTokenListK a) => MethodInfo DOMDOMTokenListItemMethodInfo a signature where overloadedMethod _ = dOMDOMTokenListItem -- method DOMDOMTokenList::remove -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMDOMTokenList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "tokens", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : True -- Skip return : False @@ -325,7 +331,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMDOMTokenList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "token", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "force", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : True -- Skip return : False diff --git a/GI/WebKit/Objects/DOMDOMTokenList.hs-boot b/GI/WebKit/Objects/DOMDOMTokenList.hs-boot --- a/GI/WebKit/Objects/DOMDOMTokenList.hs-boot +++ b/GI/WebKit/Objects/DOMDOMTokenList.hs-boot @@ -1,8 +1,8 @@ module GI.WebKit.Objects.DOMDOMTokenList where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map diff --git a/GI/WebKit/Objects/DOMDOMWindow.hs b/GI/WebKit/Objects/DOMDOMWindow.hs --- a/GI/WebKit/Objects/DOMDOMWindow.hs +++ b/GI/WebKit/Objects/DOMDOMWindow.hs @@ -417,232 +417,277 @@ -- * Properties -- ** ApplicationCache DOMDOMWindowApplicationCachePropertyInfo, + dOMDOMWindowApplicationCache , getDOMDOMWindowApplicationCache , -- ** ClientInformation DOMDOMWindowClientInformationPropertyInfo, + dOMDOMWindowClientInformation , getDOMDOMWindowClientInformation , -- ** Closed DOMDOMWindowClosedPropertyInfo , + dOMDOMWindowClosed , getDOMDOMWindowClosed , -- ** Console DOMDOMWindowConsolePropertyInfo , + dOMDOMWindowConsole , getDOMDOMWindowConsole , -- ** Css DOMDOMWindowCssPropertyInfo , + dOMDOMWindowCss , getDOMDOMWindowCss , -- ** DefaultStatus DOMDOMWindowDefaultStatusPropertyInfo , constructDOMDOMWindowDefaultStatus , + dOMDOMWindowDefaultStatus , getDOMDOMWindowDefaultStatus , setDOMDOMWindowDefaultStatus , -- ** DevicePixelRatio DOMDOMWindowDevicePixelRatioPropertyInfo, + dOMDOMWindowDevicePixelRatio , getDOMDOMWindowDevicePixelRatio , -- ** Document DOMDOMWindowDocumentPropertyInfo , + dOMDOMWindowDocument , getDOMDOMWindowDocument , -- ** FrameElement DOMDOMWindowFrameElementPropertyInfo , + dOMDOMWindowFrameElement , getDOMDOMWindowFrameElement , -- ** Frames DOMDOMWindowFramesPropertyInfo , + dOMDOMWindowFrames , getDOMDOMWindowFrames , -- ** History DOMDOMWindowHistoryPropertyInfo , + dOMDOMWindowHistory , getDOMDOMWindowHistory , -- ** InnerHeight DOMDOMWindowInnerHeightPropertyInfo , + dOMDOMWindowInnerHeight , getDOMDOMWindowInnerHeight , -- ** InnerWidth DOMDOMWindowInnerWidthPropertyInfo , + dOMDOMWindowInnerWidth , getDOMDOMWindowInnerWidth , -- ** Length DOMDOMWindowLengthPropertyInfo , + dOMDOMWindowLength , getDOMDOMWindowLength , -- ** LocalStorage DOMDOMWindowLocalStoragePropertyInfo , + dOMDOMWindowLocalStorage , getDOMDOMWindowLocalStorage , -- ** Locationbar DOMDOMWindowLocationbarPropertyInfo , + dOMDOMWindowLocationbar , getDOMDOMWindowLocationbar , -- ** Menubar DOMDOMWindowMenubarPropertyInfo , + dOMDOMWindowMenubar , getDOMDOMWindowMenubar , -- ** Name DOMDOMWindowNamePropertyInfo , constructDOMDOMWindowName , + dOMDOMWindowName , getDOMDOMWindowName , setDOMDOMWindowName , -- ** Navigator DOMDOMWindowNavigatorPropertyInfo , + dOMDOMWindowNavigator , getDOMDOMWindowNavigator , -- ** OffscreenBuffering DOMDOMWindowOffscreenBufferingPropertyInfo, + dOMDOMWindowOffscreenBuffering , getDOMDOMWindowOffscreenBuffering , -- ** Opener DOMDOMWindowOpenerPropertyInfo , + dOMDOMWindowOpener , getDOMDOMWindowOpener , -- ** OuterHeight DOMDOMWindowOuterHeightPropertyInfo , + dOMDOMWindowOuterHeight , getDOMDOMWindowOuterHeight , -- ** OuterWidth DOMDOMWindowOuterWidthPropertyInfo , + dOMDOMWindowOuterWidth , getDOMDOMWindowOuterWidth , -- ** PageXOffset DOMDOMWindowPageXOffsetPropertyInfo , + dOMDOMWindowPageXOffset , getDOMDOMWindowPageXOffset , -- ** PageYOffset DOMDOMWindowPageYOffsetPropertyInfo , + dOMDOMWindowPageYOffset , getDOMDOMWindowPageYOffset , -- ** Parent DOMDOMWindowParentPropertyInfo , + dOMDOMWindowParent , getDOMDOMWindowParent , -- ** Performance DOMDOMWindowPerformancePropertyInfo , + dOMDOMWindowPerformance , getDOMDOMWindowPerformance , -- ** Personalbar DOMDOMWindowPersonalbarPropertyInfo , + dOMDOMWindowPersonalbar , getDOMDOMWindowPersonalbar , -- ** Screen DOMDOMWindowScreenPropertyInfo , + dOMDOMWindowScreen , getDOMDOMWindowScreen , -- ** ScreenLeft DOMDOMWindowScreenLeftPropertyInfo , + dOMDOMWindowScreenLeft , getDOMDOMWindowScreenLeft , -- ** ScreenTop DOMDOMWindowScreenTopPropertyInfo , + dOMDOMWindowScreenTop , getDOMDOMWindowScreenTop , -- ** ScreenX DOMDOMWindowScreenXPropertyInfo , + dOMDOMWindowScreenX , getDOMDOMWindowScreenX , -- ** ScreenY DOMDOMWindowScreenYPropertyInfo , + dOMDOMWindowScreenY , getDOMDOMWindowScreenY , -- ** ScrollX DOMDOMWindowScrollXPropertyInfo , + dOMDOMWindowScrollX , getDOMDOMWindowScrollX , -- ** ScrollY DOMDOMWindowScrollYPropertyInfo , + dOMDOMWindowScrollY , getDOMDOMWindowScrollY , -- ** Scrollbars DOMDOMWindowScrollbarsPropertyInfo , + dOMDOMWindowScrollbars , getDOMDOMWindowScrollbars , -- ** Self DOMDOMWindowSelfPropertyInfo , + dOMDOMWindowSelf , getDOMDOMWindowSelf , -- ** SessionStorage DOMDOMWindowSessionStoragePropertyInfo , + dOMDOMWindowSessionStorage , getDOMDOMWindowSessionStorage , -- ** Status DOMDOMWindowStatusPropertyInfo , constructDOMDOMWindowStatus , + dOMDOMWindowStatus , getDOMDOMWindowStatus , setDOMDOMWindowStatus , -- ** Statusbar DOMDOMWindowStatusbarPropertyInfo , + dOMDOMWindowStatusbar , getDOMDOMWindowStatusbar , -- ** StyleMedia DOMDOMWindowStyleMediaPropertyInfo , + dOMDOMWindowStyleMedia , getDOMDOMWindowStyleMedia , -- ** Toolbar DOMDOMWindowToolbarPropertyInfo , + dOMDOMWindowToolbar , getDOMDOMWindowToolbar , -- ** Top DOMDOMWindowTopPropertyInfo , + dOMDOMWindowTop , getDOMDOMWindowTop , -- ** WebkitStorageInfo DOMDOMWindowWebkitStorageInfoPropertyInfo, + dOMDOMWindowWebkitStorageInfo , getDOMDOMWindowWebkitStorageInfo , -- ** Window DOMDOMWindowWindowPropertyInfo , + dOMDOMWindowWindow , getDOMDOMWindowWindow , @@ -650,9 +695,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map @@ -798,42 +843,47 @@ -- VVV Prop "application-cache" -- Type: TInterface "WebKit" "DOMDOMApplicationCache" -- Flags: [PropertyReadable] + -- Nullable: (Nothing,Nothing) -getDOMDOMWindowApplicationCache :: (MonadIO m, DOMDOMWindowK o) => o -> m DOMDOMApplicationCache +getDOMDOMWindowApplicationCache :: (MonadIO m, DOMDOMWindowK o) => o -> m (Maybe DOMDOMApplicationCache) getDOMDOMWindowApplicationCache obj = liftIO $ getObjectPropertyObject obj "application-cache" DOMDOMApplicationCache data DOMDOMWindowApplicationCachePropertyInfo instance AttrInfo DOMDOMWindowApplicationCachePropertyInfo where - type AttrAllowedOps DOMDOMWindowApplicationCachePropertyInfo = '[ 'AttrGet] + type AttrAllowedOps DOMDOMWindowApplicationCachePropertyInfo = '[ 'AttrGet, 'AttrClear] type AttrSetTypeConstraint DOMDOMWindowApplicationCachePropertyInfo = (~) () type AttrBaseTypeConstraint DOMDOMWindowApplicationCachePropertyInfo = DOMDOMWindowK - type AttrGetType DOMDOMWindowApplicationCachePropertyInfo = DOMDOMApplicationCache + type AttrGetType DOMDOMWindowApplicationCachePropertyInfo = (Maybe DOMDOMApplicationCache) type AttrLabel DOMDOMWindowApplicationCachePropertyInfo = "application-cache" attrGet _ = getDOMDOMWindowApplicationCache attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "client-information" -- Type: TInterface "WebKit" "DOMNavigator" -- Flags: [PropertyReadable] + -- Nullable: (Nothing,Nothing) -getDOMDOMWindowClientInformation :: (MonadIO m, DOMDOMWindowK o) => o -> m DOMNavigator +getDOMDOMWindowClientInformation :: (MonadIO m, DOMDOMWindowK o) => o -> m (Maybe DOMNavigator) getDOMDOMWindowClientInformation obj = liftIO $ getObjectPropertyObject obj "client-information" DOMNavigator data DOMDOMWindowClientInformationPropertyInfo instance AttrInfo DOMDOMWindowClientInformationPropertyInfo where - type AttrAllowedOps DOMDOMWindowClientInformationPropertyInfo = '[ 'AttrGet] + type AttrAllowedOps DOMDOMWindowClientInformationPropertyInfo = '[ 'AttrGet, 'AttrClear] type AttrSetTypeConstraint DOMDOMWindowClientInformationPropertyInfo = (~) () type AttrBaseTypeConstraint DOMDOMWindowClientInformationPropertyInfo = DOMDOMWindowK - type AttrGetType DOMDOMWindowClientInformationPropertyInfo = DOMNavigator + type AttrGetType DOMDOMWindowClientInformationPropertyInfo = (Maybe DOMNavigator) type AttrLabel DOMDOMWindowClientInformationPropertyInfo = "client-information" attrGet _ = getDOMDOMWindowClientInformation attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "closed" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) getDOMDOMWindowClosed :: (MonadIO m, DOMDOMWindowK o) => o -> m Bool getDOMDOMWindowClosed obj = liftIO $ getObjectPropertyBool obj "closed" @@ -848,17 +898,19 @@ attrGet _ = getDOMDOMWindowClosed attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "console" -- Type: TInterface "WebKit" "DOMConsole" -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) getDOMDOMWindowConsole :: (MonadIO m, DOMDOMWindowK o) => o -> m DOMConsole -getDOMDOMWindowConsole obj = liftIO $ getObjectPropertyObject obj "console" DOMConsole +getDOMDOMWindowConsole obj = liftIO $ checkUnexpectedNothing "getDOMDOMWindowConsole" $ getObjectPropertyObject obj "console" DOMConsole data DOMDOMWindowConsolePropertyInfo instance AttrInfo DOMDOMWindowConsolePropertyInfo where - type AttrAllowedOps DOMDOMWindowConsolePropertyInfo = '[ 'AttrGet] + type AttrAllowedOps DOMDOMWindowConsolePropertyInfo = '[ 'AttrGet, 'AttrClear] type AttrSetTypeConstraint DOMDOMWindowConsolePropertyInfo = (~) () type AttrBaseTypeConstraint DOMDOMWindowConsolePropertyInfo = DOMDOMWindowK type AttrGetType DOMDOMWindowConsolePropertyInfo = DOMConsole @@ -866,52 +918,58 @@ attrGet _ = getDOMDOMWindowConsole attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "css" -- Type: TInterface "WebKit" "DOMDOMWindowCSS" -- Flags: [PropertyReadable] + -- Nullable: (Nothing,Nothing) -getDOMDOMWindowCss :: (MonadIO m, DOMDOMWindowK o) => o -> m DOMDOMWindowCSS +getDOMDOMWindowCss :: (MonadIO m, DOMDOMWindowK o) => o -> m (Maybe DOMDOMWindowCSS) getDOMDOMWindowCss obj = liftIO $ getObjectPropertyObject obj "css" DOMDOMWindowCSS data DOMDOMWindowCssPropertyInfo instance AttrInfo DOMDOMWindowCssPropertyInfo where - type AttrAllowedOps DOMDOMWindowCssPropertyInfo = '[ 'AttrGet] + type AttrAllowedOps DOMDOMWindowCssPropertyInfo = '[ 'AttrGet, 'AttrClear] type AttrSetTypeConstraint DOMDOMWindowCssPropertyInfo = (~) () type AttrBaseTypeConstraint DOMDOMWindowCssPropertyInfo = DOMDOMWindowK - type AttrGetType DOMDOMWindowCssPropertyInfo = DOMDOMWindowCSS + type AttrGetType DOMDOMWindowCssPropertyInfo = (Maybe DOMDOMWindowCSS) type AttrLabel DOMDOMWindowCssPropertyInfo = "css" attrGet _ = getDOMDOMWindowCss attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "default-status" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Just False) -getDOMDOMWindowDefaultStatus :: (MonadIO m, DOMDOMWindowK o) => o -> m T.Text +getDOMDOMWindowDefaultStatus :: (MonadIO m, DOMDOMWindowK o) => o -> m (Maybe T.Text) getDOMDOMWindowDefaultStatus obj = liftIO $ getObjectPropertyString obj "default-status" setDOMDOMWindowDefaultStatus :: (MonadIO m, DOMDOMWindowK o) => o -> T.Text -> m () -setDOMDOMWindowDefaultStatus obj val = liftIO $ setObjectPropertyString obj "default-status" val +setDOMDOMWindowDefaultStatus obj val = liftIO $ setObjectPropertyString obj "default-status" (Just val) constructDOMDOMWindowDefaultStatus :: T.Text -> IO ([Char], GValue) -constructDOMDOMWindowDefaultStatus val = constructObjectPropertyString "default-status" val +constructDOMDOMWindowDefaultStatus val = constructObjectPropertyString "default-status" (Just val) data DOMDOMWindowDefaultStatusPropertyInfo instance AttrInfo DOMDOMWindowDefaultStatusPropertyInfo where type AttrAllowedOps DOMDOMWindowDefaultStatusPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint DOMDOMWindowDefaultStatusPropertyInfo = (~) T.Text type AttrBaseTypeConstraint DOMDOMWindowDefaultStatusPropertyInfo = DOMDOMWindowK - type AttrGetType DOMDOMWindowDefaultStatusPropertyInfo = T.Text + type AttrGetType DOMDOMWindowDefaultStatusPropertyInfo = (Maybe T.Text) type AttrLabel DOMDOMWindowDefaultStatusPropertyInfo = "default-status" attrGet _ = getDOMDOMWindowDefaultStatus attrSet _ = setDOMDOMWindowDefaultStatus attrConstruct _ = constructDOMDOMWindowDefaultStatus + attrClear _ = undefined -- VVV Prop "device-pixel-ratio" -- Type: TBasicType TDouble -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) getDOMDOMWindowDevicePixelRatio :: (MonadIO m, DOMDOMWindowK o) => o -> m Double getDOMDOMWindowDevicePixelRatio obj = liftIO $ getObjectPropertyDouble obj "device-pixel-ratio" @@ -926,17 +984,19 @@ attrGet _ = getDOMDOMWindowDevicePixelRatio attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "document" -- Type: TInterface "WebKit" "DOMDocument" -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) getDOMDOMWindowDocument :: (MonadIO m, DOMDOMWindowK o) => o -> m DOMDocument -getDOMDOMWindowDocument obj = liftIO $ getObjectPropertyObject obj "document" DOMDocument +getDOMDOMWindowDocument obj = liftIO $ checkUnexpectedNothing "getDOMDOMWindowDocument" $ getObjectPropertyObject obj "document" DOMDocument data DOMDOMWindowDocumentPropertyInfo instance AttrInfo DOMDOMWindowDocumentPropertyInfo where - type AttrAllowedOps DOMDOMWindowDocumentPropertyInfo = '[ 'AttrGet] + type AttrAllowedOps DOMDOMWindowDocumentPropertyInfo = '[ 'AttrGet, 'AttrClear] type AttrSetTypeConstraint DOMDOMWindowDocumentPropertyInfo = (~) () type AttrBaseTypeConstraint DOMDOMWindowDocumentPropertyInfo = DOMDOMWindowK type AttrGetType DOMDOMWindowDocumentPropertyInfo = DOMDocument @@ -944,17 +1004,19 @@ attrGet _ = getDOMDOMWindowDocument attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "frame-element" -- Type: TInterface "WebKit" "DOMElement" -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) getDOMDOMWindowFrameElement :: (MonadIO m, DOMDOMWindowK o) => o -> m DOMElement -getDOMDOMWindowFrameElement obj = liftIO $ getObjectPropertyObject obj "frame-element" DOMElement +getDOMDOMWindowFrameElement obj = liftIO $ checkUnexpectedNothing "getDOMDOMWindowFrameElement" $ getObjectPropertyObject obj "frame-element" DOMElement data DOMDOMWindowFrameElementPropertyInfo instance AttrInfo DOMDOMWindowFrameElementPropertyInfo where - type AttrAllowedOps DOMDOMWindowFrameElementPropertyInfo = '[ 'AttrGet] + type AttrAllowedOps DOMDOMWindowFrameElementPropertyInfo = '[ 'AttrGet, 'AttrClear] type AttrSetTypeConstraint DOMDOMWindowFrameElementPropertyInfo = (~) () type AttrBaseTypeConstraint DOMDOMWindowFrameElementPropertyInfo = DOMDOMWindowK type AttrGetType DOMDOMWindowFrameElementPropertyInfo = DOMElement @@ -962,196 +1024,218 @@ attrGet _ = getDOMDOMWindowFrameElement attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "frames" -- Type: TInterface "WebKit" "DOMDOMWindow" -- Flags: [PropertyReadable] + -- Nullable: (Nothing,Nothing) -getDOMDOMWindowFrames :: (MonadIO m, DOMDOMWindowK o) => o -> m DOMDOMWindow +getDOMDOMWindowFrames :: (MonadIO m, DOMDOMWindowK o) => o -> m (Maybe DOMDOMWindow) getDOMDOMWindowFrames obj = liftIO $ getObjectPropertyObject obj "frames" DOMDOMWindow data DOMDOMWindowFramesPropertyInfo instance AttrInfo DOMDOMWindowFramesPropertyInfo where - type AttrAllowedOps DOMDOMWindowFramesPropertyInfo = '[ 'AttrGet] + type AttrAllowedOps DOMDOMWindowFramesPropertyInfo = '[ 'AttrGet, 'AttrClear] type AttrSetTypeConstraint DOMDOMWindowFramesPropertyInfo = (~) () type AttrBaseTypeConstraint DOMDOMWindowFramesPropertyInfo = DOMDOMWindowK - type AttrGetType DOMDOMWindowFramesPropertyInfo = DOMDOMWindow + type AttrGetType DOMDOMWindowFramesPropertyInfo = (Maybe DOMDOMWindow) type AttrLabel DOMDOMWindowFramesPropertyInfo = "frames" attrGet _ = getDOMDOMWindowFrames attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "history" -- Type: TInterface "WebKit" "DOMHistory" -- Flags: [PropertyReadable] + -- Nullable: (Nothing,Nothing) -getDOMDOMWindowHistory :: (MonadIO m, DOMDOMWindowK o) => o -> m DOMHistory +getDOMDOMWindowHistory :: (MonadIO m, DOMDOMWindowK o) => o -> m (Maybe DOMHistory) getDOMDOMWindowHistory obj = liftIO $ getObjectPropertyObject obj "history" DOMHistory data DOMDOMWindowHistoryPropertyInfo instance AttrInfo DOMDOMWindowHistoryPropertyInfo where - type AttrAllowedOps DOMDOMWindowHistoryPropertyInfo = '[ 'AttrGet] + type AttrAllowedOps DOMDOMWindowHistoryPropertyInfo = '[ 'AttrGet, 'AttrClear] type AttrSetTypeConstraint DOMDOMWindowHistoryPropertyInfo = (~) () type AttrBaseTypeConstraint DOMDOMWindowHistoryPropertyInfo = DOMDOMWindowK - type AttrGetType DOMDOMWindowHistoryPropertyInfo = DOMHistory + type AttrGetType DOMDOMWindowHistoryPropertyInfo = (Maybe DOMHistory) type AttrLabel DOMDOMWindowHistoryPropertyInfo = "history" attrGet _ = getDOMDOMWindowHistory attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "inner-height" - -- Type: TBasicType TInt64 + -- Type: TBasicType TLong -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) -getDOMDOMWindowInnerHeight :: (MonadIO m, DOMDOMWindowK o) => o -> m Int64 -getDOMDOMWindowInnerHeight obj = liftIO $ getObjectPropertyInt64 obj "inner-height" +getDOMDOMWindowInnerHeight :: (MonadIO m, DOMDOMWindowK o) => o -> m CLong +getDOMDOMWindowInnerHeight obj = liftIO $ getObjectPropertyLong obj "inner-height" data DOMDOMWindowInnerHeightPropertyInfo instance AttrInfo DOMDOMWindowInnerHeightPropertyInfo where type AttrAllowedOps DOMDOMWindowInnerHeightPropertyInfo = '[ 'AttrGet] type AttrSetTypeConstraint DOMDOMWindowInnerHeightPropertyInfo = (~) () type AttrBaseTypeConstraint DOMDOMWindowInnerHeightPropertyInfo = DOMDOMWindowK - type AttrGetType DOMDOMWindowInnerHeightPropertyInfo = Int64 + type AttrGetType DOMDOMWindowInnerHeightPropertyInfo = CLong type AttrLabel DOMDOMWindowInnerHeightPropertyInfo = "inner-height" attrGet _ = getDOMDOMWindowInnerHeight attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "inner-width" - -- Type: TBasicType TInt64 + -- Type: TBasicType TLong -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) -getDOMDOMWindowInnerWidth :: (MonadIO m, DOMDOMWindowK o) => o -> m Int64 -getDOMDOMWindowInnerWidth obj = liftIO $ getObjectPropertyInt64 obj "inner-width" +getDOMDOMWindowInnerWidth :: (MonadIO m, DOMDOMWindowK o) => o -> m CLong +getDOMDOMWindowInnerWidth obj = liftIO $ getObjectPropertyLong obj "inner-width" data DOMDOMWindowInnerWidthPropertyInfo instance AttrInfo DOMDOMWindowInnerWidthPropertyInfo where type AttrAllowedOps DOMDOMWindowInnerWidthPropertyInfo = '[ 'AttrGet] type AttrSetTypeConstraint DOMDOMWindowInnerWidthPropertyInfo = (~) () type AttrBaseTypeConstraint DOMDOMWindowInnerWidthPropertyInfo = DOMDOMWindowK - type AttrGetType DOMDOMWindowInnerWidthPropertyInfo = Int64 + type AttrGetType DOMDOMWindowInnerWidthPropertyInfo = CLong type AttrLabel DOMDOMWindowInnerWidthPropertyInfo = "inner-width" attrGet _ = getDOMDOMWindowInnerWidth attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "length" - -- Type: TBasicType TUInt64 + -- Type: TBasicType TULong -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) -getDOMDOMWindowLength :: (MonadIO m, DOMDOMWindowK o) => o -> m Word64 -getDOMDOMWindowLength obj = liftIO $ getObjectPropertyUInt64 obj "length" +getDOMDOMWindowLength :: (MonadIO m, DOMDOMWindowK o) => o -> m CULong +getDOMDOMWindowLength obj = liftIO $ getObjectPropertyULong obj "length" data DOMDOMWindowLengthPropertyInfo instance AttrInfo DOMDOMWindowLengthPropertyInfo where type AttrAllowedOps DOMDOMWindowLengthPropertyInfo = '[ 'AttrGet] type AttrSetTypeConstraint DOMDOMWindowLengthPropertyInfo = (~) () type AttrBaseTypeConstraint DOMDOMWindowLengthPropertyInfo = DOMDOMWindowK - type AttrGetType DOMDOMWindowLengthPropertyInfo = Word64 + type AttrGetType DOMDOMWindowLengthPropertyInfo = CULong type AttrLabel DOMDOMWindowLengthPropertyInfo = "length" attrGet _ = getDOMDOMWindowLength attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "local-storage" -- Type: TInterface "WebKit" "DOMStorage" -- Flags: [PropertyReadable] + -- Nullable: (Nothing,Nothing) -getDOMDOMWindowLocalStorage :: (MonadIO m, DOMDOMWindowK o) => o -> m DOMStorage +getDOMDOMWindowLocalStorage :: (MonadIO m, DOMDOMWindowK o) => o -> m (Maybe DOMStorage) getDOMDOMWindowLocalStorage obj = liftIO $ getObjectPropertyObject obj "local-storage" DOMStorage data DOMDOMWindowLocalStoragePropertyInfo instance AttrInfo DOMDOMWindowLocalStoragePropertyInfo where - type AttrAllowedOps DOMDOMWindowLocalStoragePropertyInfo = '[ 'AttrGet] + type AttrAllowedOps DOMDOMWindowLocalStoragePropertyInfo = '[ 'AttrGet, 'AttrClear] type AttrSetTypeConstraint DOMDOMWindowLocalStoragePropertyInfo = (~) () type AttrBaseTypeConstraint DOMDOMWindowLocalStoragePropertyInfo = DOMDOMWindowK - type AttrGetType DOMDOMWindowLocalStoragePropertyInfo = DOMStorage + type AttrGetType DOMDOMWindowLocalStoragePropertyInfo = (Maybe DOMStorage) type AttrLabel DOMDOMWindowLocalStoragePropertyInfo = "local-storage" attrGet _ = getDOMDOMWindowLocalStorage attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "locationbar" -- Type: TInterface "WebKit" "DOMBarProp" -- Flags: [PropertyReadable] + -- Nullable: (Nothing,Nothing) -getDOMDOMWindowLocationbar :: (MonadIO m, DOMDOMWindowK o) => o -> m DOMBarProp +getDOMDOMWindowLocationbar :: (MonadIO m, DOMDOMWindowK o) => o -> m (Maybe DOMBarProp) getDOMDOMWindowLocationbar obj = liftIO $ getObjectPropertyObject obj "locationbar" DOMBarProp data DOMDOMWindowLocationbarPropertyInfo instance AttrInfo DOMDOMWindowLocationbarPropertyInfo where - type AttrAllowedOps DOMDOMWindowLocationbarPropertyInfo = '[ 'AttrGet] + type AttrAllowedOps DOMDOMWindowLocationbarPropertyInfo = '[ 'AttrGet, 'AttrClear] type AttrSetTypeConstraint DOMDOMWindowLocationbarPropertyInfo = (~) () type AttrBaseTypeConstraint DOMDOMWindowLocationbarPropertyInfo = DOMDOMWindowK - type AttrGetType DOMDOMWindowLocationbarPropertyInfo = DOMBarProp + type AttrGetType DOMDOMWindowLocationbarPropertyInfo = (Maybe DOMBarProp) type AttrLabel DOMDOMWindowLocationbarPropertyInfo = "locationbar" attrGet _ = getDOMDOMWindowLocationbar attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "menubar" -- Type: TInterface "WebKit" "DOMBarProp" -- Flags: [PropertyReadable] + -- Nullable: (Nothing,Nothing) -getDOMDOMWindowMenubar :: (MonadIO m, DOMDOMWindowK o) => o -> m DOMBarProp +getDOMDOMWindowMenubar :: (MonadIO m, DOMDOMWindowK o) => o -> m (Maybe DOMBarProp) getDOMDOMWindowMenubar obj = liftIO $ getObjectPropertyObject obj "menubar" DOMBarProp data DOMDOMWindowMenubarPropertyInfo instance AttrInfo DOMDOMWindowMenubarPropertyInfo where - type AttrAllowedOps DOMDOMWindowMenubarPropertyInfo = '[ 'AttrGet] + type AttrAllowedOps DOMDOMWindowMenubarPropertyInfo = '[ 'AttrGet, 'AttrClear] type AttrSetTypeConstraint DOMDOMWindowMenubarPropertyInfo = (~) () type AttrBaseTypeConstraint DOMDOMWindowMenubarPropertyInfo = DOMDOMWindowK - type AttrGetType DOMDOMWindowMenubarPropertyInfo = DOMBarProp + type AttrGetType DOMDOMWindowMenubarPropertyInfo = (Maybe DOMBarProp) type AttrLabel DOMDOMWindowMenubarPropertyInfo = "menubar" attrGet _ = getDOMDOMWindowMenubar attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "name" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Just False) -getDOMDOMWindowName :: (MonadIO m, DOMDOMWindowK o) => o -> m T.Text +getDOMDOMWindowName :: (MonadIO m, DOMDOMWindowK o) => o -> m (Maybe T.Text) getDOMDOMWindowName obj = liftIO $ getObjectPropertyString obj "name" setDOMDOMWindowName :: (MonadIO m, DOMDOMWindowK o) => o -> T.Text -> m () -setDOMDOMWindowName obj val = liftIO $ setObjectPropertyString obj "name" val +setDOMDOMWindowName obj val = liftIO $ setObjectPropertyString obj "name" (Just val) constructDOMDOMWindowName :: T.Text -> IO ([Char], GValue) -constructDOMDOMWindowName val = constructObjectPropertyString "name" val +constructDOMDOMWindowName val = constructObjectPropertyString "name" (Just val) data DOMDOMWindowNamePropertyInfo instance AttrInfo DOMDOMWindowNamePropertyInfo where type AttrAllowedOps DOMDOMWindowNamePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint DOMDOMWindowNamePropertyInfo = (~) T.Text type AttrBaseTypeConstraint DOMDOMWindowNamePropertyInfo = DOMDOMWindowK - type AttrGetType DOMDOMWindowNamePropertyInfo = T.Text + type AttrGetType DOMDOMWindowNamePropertyInfo = (Maybe T.Text) type AttrLabel DOMDOMWindowNamePropertyInfo = "name" attrGet _ = getDOMDOMWindowName attrSet _ = setDOMDOMWindowName attrConstruct _ = constructDOMDOMWindowName + attrClear _ = undefined -- VVV Prop "navigator" -- Type: TInterface "WebKit" "DOMNavigator" -- Flags: [PropertyReadable] + -- Nullable: (Nothing,Nothing) -getDOMDOMWindowNavigator :: (MonadIO m, DOMDOMWindowK o) => o -> m DOMNavigator +getDOMDOMWindowNavigator :: (MonadIO m, DOMDOMWindowK o) => o -> m (Maybe DOMNavigator) getDOMDOMWindowNavigator obj = liftIO $ getObjectPropertyObject obj "navigator" DOMNavigator data DOMDOMWindowNavigatorPropertyInfo instance AttrInfo DOMDOMWindowNavigatorPropertyInfo where - type AttrAllowedOps DOMDOMWindowNavigatorPropertyInfo = '[ 'AttrGet] + type AttrAllowedOps DOMDOMWindowNavigatorPropertyInfo = '[ 'AttrGet, 'AttrClear] type AttrSetTypeConstraint DOMDOMWindowNavigatorPropertyInfo = (~) () type AttrBaseTypeConstraint DOMDOMWindowNavigatorPropertyInfo = DOMDOMWindowK - type AttrGetType DOMDOMWindowNavigatorPropertyInfo = DOMNavigator + type AttrGetType DOMDOMWindowNavigatorPropertyInfo = (Maybe DOMNavigator) type AttrLabel DOMDOMWindowNavigatorPropertyInfo = "navigator" attrGet _ = getDOMDOMWindowNavigator attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "offscreen-buffering" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) getDOMDOMWindowOffscreenBuffering :: (MonadIO m, DOMDOMWindowK o) => o -> m Bool getDOMDOMWindowOffscreenBuffering obj = liftIO $ getObjectPropertyBool obj "offscreen-buffering" @@ -1166,437 +1250,485 @@ attrGet _ = getDOMDOMWindowOffscreenBuffering attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "opener" -- Type: TInterface "WebKit" "DOMDOMWindow" -- Flags: [PropertyReadable] + -- Nullable: (Nothing,Nothing) -getDOMDOMWindowOpener :: (MonadIO m, DOMDOMWindowK o) => o -> m DOMDOMWindow +getDOMDOMWindowOpener :: (MonadIO m, DOMDOMWindowK o) => o -> m (Maybe DOMDOMWindow) getDOMDOMWindowOpener obj = liftIO $ getObjectPropertyObject obj "opener" DOMDOMWindow data DOMDOMWindowOpenerPropertyInfo instance AttrInfo DOMDOMWindowOpenerPropertyInfo where - type AttrAllowedOps DOMDOMWindowOpenerPropertyInfo = '[ 'AttrGet] + type AttrAllowedOps DOMDOMWindowOpenerPropertyInfo = '[ 'AttrGet, 'AttrClear] type AttrSetTypeConstraint DOMDOMWindowOpenerPropertyInfo = (~) () type AttrBaseTypeConstraint DOMDOMWindowOpenerPropertyInfo = DOMDOMWindowK - type AttrGetType DOMDOMWindowOpenerPropertyInfo = DOMDOMWindow + type AttrGetType DOMDOMWindowOpenerPropertyInfo = (Maybe DOMDOMWindow) type AttrLabel DOMDOMWindowOpenerPropertyInfo = "opener" attrGet _ = getDOMDOMWindowOpener attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "outer-height" - -- Type: TBasicType TInt64 + -- Type: TBasicType TLong -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) -getDOMDOMWindowOuterHeight :: (MonadIO m, DOMDOMWindowK o) => o -> m Int64 -getDOMDOMWindowOuterHeight obj = liftIO $ getObjectPropertyInt64 obj "outer-height" +getDOMDOMWindowOuterHeight :: (MonadIO m, DOMDOMWindowK o) => o -> m CLong +getDOMDOMWindowOuterHeight obj = liftIO $ getObjectPropertyLong obj "outer-height" data DOMDOMWindowOuterHeightPropertyInfo instance AttrInfo DOMDOMWindowOuterHeightPropertyInfo where type AttrAllowedOps DOMDOMWindowOuterHeightPropertyInfo = '[ 'AttrGet] type AttrSetTypeConstraint DOMDOMWindowOuterHeightPropertyInfo = (~) () type AttrBaseTypeConstraint DOMDOMWindowOuterHeightPropertyInfo = DOMDOMWindowK - type AttrGetType DOMDOMWindowOuterHeightPropertyInfo = Int64 + type AttrGetType DOMDOMWindowOuterHeightPropertyInfo = CLong type AttrLabel DOMDOMWindowOuterHeightPropertyInfo = "outer-height" attrGet _ = getDOMDOMWindowOuterHeight attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "outer-width" - -- Type: TBasicType TInt64 + -- Type: TBasicType TLong -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) -getDOMDOMWindowOuterWidth :: (MonadIO m, DOMDOMWindowK o) => o -> m Int64 -getDOMDOMWindowOuterWidth obj = liftIO $ getObjectPropertyInt64 obj "outer-width" +getDOMDOMWindowOuterWidth :: (MonadIO m, DOMDOMWindowK o) => o -> m CLong +getDOMDOMWindowOuterWidth obj = liftIO $ getObjectPropertyLong obj "outer-width" data DOMDOMWindowOuterWidthPropertyInfo instance AttrInfo DOMDOMWindowOuterWidthPropertyInfo where type AttrAllowedOps DOMDOMWindowOuterWidthPropertyInfo = '[ 'AttrGet] type AttrSetTypeConstraint DOMDOMWindowOuterWidthPropertyInfo = (~) () type AttrBaseTypeConstraint DOMDOMWindowOuterWidthPropertyInfo = DOMDOMWindowK - type AttrGetType DOMDOMWindowOuterWidthPropertyInfo = Int64 + type AttrGetType DOMDOMWindowOuterWidthPropertyInfo = CLong type AttrLabel DOMDOMWindowOuterWidthPropertyInfo = "outer-width" attrGet _ = getDOMDOMWindowOuterWidth attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "page-x-offset" - -- Type: TBasicType TInt64 + -- Type: TBasicType TLong -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) -getDOMDOMWindowPageXOffset :: (MonadIO m, DOMDOMWindowK o) => o -> m Int64 -getDOMDOMWindowPageXOffset obj = liftIO $ getObjectPropertyInt64 obj "page-x-offset" +getDOMDOMWindowPageXOffset :: (MonadIO m, DOMDOMWindowK o) => o -> m CLong +getDOMDOMWindowPageXOffset obj = liftIO $ getObjectPropertyLong obj "page-x-offset" data DOMDOMWindowPageXOffsetPropertyInfo instance AttrInfo DOMDOMWindowPageXOffsetPropertyInfo where type AttrAllowedOps DOMDOMWindowPageXOffsetPropertyInfo = '[ 'AttrGet] type AttrSetTypeConstraint DOMDOMWindowPageXOffsetPropertyInfo = (~) () type AttrBaseTypeConstraint DOMDOMWindowPageXOffsetPropertyInfo = DOMDOMWindowK - type AttrGetType DOMDOMWindowPageXOffsetPropertyInfo = Int64 + type AttrGetType DOMDOMWindowPageXOffsetPropertyInfo = CLong type AttrLabel DOMDOMWindowPageXOffsetPropertyInfo = "page-x-offset" attrGet _ = getDOMDOMWindowPageXOffset attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "page-y-offset" - -- Type: TBasicType TInt64 + -- Type: TBasicType TLong -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) -getDOMDOMWindowPageYOffset :: (MonadIO m, DOMDOMWindowK o) => o -> m Int64 -getDOMDOMWindowPageYOffset obj = liftIO $ getObjectPropertyInt64 obj "page-y-offset" +getDOMDOMWindowPageYOffset :: (MonadIO m, DOMDOMWindowK o) => o -> m CLong +getDOMDOMWindowPageYOffset obj = liftIO $ getObjectPropertyLong obj "page-y-offset" data DOMDOMWindowPageYOffsetPropertyInfo instance AttrInfo DOMDOMWindowPageYOffsetPropertyInfo where type AttrAllowedOps DOMDOMWindowPageYOffsetPropertyInfo = '[ 'AttrGet] type AttrSetTypeConstraint DOMDOMWindowPageYOffsetPropertyInfo = (~) () type AttrBaseTypeConstraint DOMDOMWindowPageYOffsetPropertyInfo = DOMDOMWindowK - type AttrGetType DOMDOMWindowPageYOffsetPropertyInfo = Int64 + type AttrGetType DOMDOMWindowPageYOffsetPropertyInfo = CLong type AttrLabel DOMDOMWindowPageYOffsetPropertyInfo = "page-y-offset" attrGet _ = getDOMDOMWindowPageYOffset attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "parent" -- Type: TInterface "WebKit" "DOMDOMWindow" -- Flags: [PropertyReadable] + -- Nullable: (Nothing,Nothing) -getDOMDOMWindowParent :: (MonadIO m, DOMDOMWindowK o) => o -> m DOMDOMWindow +getDOMDOMWindowParent :: (MonadIO m, DOMDOMWindowK o) => o -> m (Maybe DOMDOMWindow) getDOMDOMWindowParent obj = liftIO $ getObjectPropertyObject obj "parent" DOMDOMWindow data DOMDOMWindowParentPropertyInfo instance AttrInfo DOMDOMWindowParentPropertyInfo where - type AttrAllowedOps DOMDOMWindowParentPropertyInfo = '[ 'AttrGet] + type AttrAllowedOps DOMDOMWindowParentPropertyInfo = '[ 'AttrGet, 'AttrClear] type AttrSetTypeConstraint DOMDOMWindowParentPropertyInfo = (~) () type AttrBaseTypeConstraint DOMDOMWindowParentPropertyInfo = DOMDOMWindowK - type AttrGetType DOMDOMWindowParentPropertyInfo = DOMDOMWindow + type AttrGetType DOMDOMWindowParentPropertyInfo = (Maybe DOMDOMWindow) type AttrLabel DOMDOMWindowParentPropertyInfo = "parent" attrGet _ = getDOMDOMWindowParent attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "performance" -- Type: TInterface "WebKit" "DOMPerformance" -- Flags: [PropertyReadable] + -- Nullable: (Nothing,Nothing) -getDOMDOMWindowPerformance :: (MonadIO m, DOMDOMWindowK o) => o -> m DOMPerformance +getDOMDOMWindowPerformance :: (MonadIO m, DOMDOMWindowK o) => o -> m (Maybe DOMPerformance) getDOMDOMWindowPerformance obj = liftIO $ getObjectPropertyObject obj "performance" DOMPerformance data DOMDOMWindowPerformancePropertyInfo instance AttrInfo DOMDOMWindowPerformancePropertyInfo where - type AttrAllowedOps DOMDOMWindowPerformancePropertyInfo = '[ 'AttrGet] + type AttrAllowedOps DOMDOMWindowPerformancePropertyInfo = '[ 'AttrGet, 'AttrClear] type AttrSetTypeConstraint DOMDOMWindowPerformancePropertyInfo = (~) () type AttrBaseTypeConstraint DOMDOMWindowPerformancePropertyInfo = DOMDOMWindowK - type AttrGetType DOMDOMWindowPerformancePropertyInfo = DOMPerformance + type AttrGetType DOMDOMWindowPerformancePropertyInfo = (Maybe DOMPerformance) type AttrLabel DOMDOMWindowPerformancePropertyInfo = "performance" attrGet _ = getDOMDOMWindowPerformance attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "personalbar" -- Type: TInterface "WebKit" "DOMBarProp" -- Flags: [PropertyReadable] + -- Nullable: (Nothing,Nothing) -getDOMDOMWindowPersonalbar :: (MonadIO m, DOMDOMWindowK o) => o -> m DOMBarProp +getDOMDOMWindowPersonalbar :: (MonadIO m, DOMDOMWindowK o) => o -> m (Maybe DOMBarProp) getDOMDOMWindowPersonalbar obj = liftIO $ getObjectPropertyObject obj "personalbar" DOMBarProp data DOMDOMWindowPersonalbarPropertyInfo instance AttrInfo DOMDOMWindowPersonalbarPropertyInfo where - type AttrAllowedOps DOMDOMWindowPersonalbarPropertyInfo = '[ 'AttrGet] + type AttrAllowedOps DOMDOMWindowPersonalbarPropertyInfo = '[ 'AttrGet, 'AttrClear] type AttrSetTypeConstraint DOMDOMWindowPersonalbarPropertyInfo = (~) () type AttrBaseTypeConstraint DOMDOMWindowPersonalbarPropertyInfo = DOMDOMWindowK - type AttrGetType DOMDOMWindowPersonalbarPropertyInfo = DOMBarProp + type AttrGetType DOMDOMWindowPersonalbarPropertyInfo = (Maybe DOMBarProp) type AttrLabel DOMDOMWindowPersonalbarPropertyInfo = "personalbar" attrGet _ = getDOMDOMWindowPersonalbar attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "screen" -- Type: TInterface "WebKit" "DOMScreen" -- Flags: [PropertyReadable] + -- Nullable: (Nothing,Nothing) -getDOMDOMWindowScreen :: (MonadIO m, DOMDOMWindowK o) => o -> m DOMScreen +getDOMDOMWindowScreen :: (MonadIO m, DOMDOMWindowK o) => o -> m (Maybe DOMScreen) getDOMDOMWindowScreen obj = liftIO $ getObjectPropertyObject obj "screen" DOMScreen data DOMDOMWindowScreenPropertyInfo instance AttrInfo DOMDOMWindowScreenPropertyInfo where - type AttrAllowedOps DOMDOMWindowScreenPropertyInfo = '[ 'AttrGet] + type AttrAllowedOps DOMDOMWindowScreenPropertyInfo = '[ 'AttrGet, 'AttrClear] type AttrSetTypeConstraint DOMDOMWindowScreenPropertyInfo = (~) () type AttrBaseTypeConstraint DOMDOMWindowScreenPropertyInfo = DOMDOMWindowK - type AttrGetType DOMDOMWindowScreenPropertyInfo = DOMScreen + type AttrGetType DOMDOMWindowScreenPropertyInfo = (Maybe DOMScreen) type AttrLabel DOMDOMWindowScreenPropertyInfo = "screen" attrGet _ = getDOMDOMWindowScreen attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "screen-left" - -- Type: TBasicType TInt64 + -- Type: TBasicType TLong -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) -getDOMDOMWindowScreenLeft :: (MonadIO m, DOMDOMWindowK o) => o -> m Int64 -getDOMDOMWindowScreenLeft obj = liftIO $ getObjectPropertyInt64 obj "screen-left" +getDOMDOMWindowScreenLeft :: (MonadIO m, DOMDOMWindowK o) => o -> m CLong +getDOMDOMWindowScreenLeft obj = liftIO $ getObjectPropertyLong obj "screen-left" data DOMDOMWindowScreenLeftPropertyInfo instance AttrInfo DOMDOMWindowScreenLeftPropertyInfo where type AttrAllowedOps DOMDOMWindowScreenLeftPropertyInfo = '[ 'AttrGet] type AttrSetTypeConstraint DOMDOMWindowScreenLeftPropertyInfo = (~) () type AttrBaseTypeConstraint DOMDOMWindowScreenLeftPropertyInfo = DOMDOMWindowK - type AttrGetType DOMDOMWindowScreenLeftPropertyInfo = Int64 + type AttrGetType DOMDOMWindowScreenLeftPropertyInfo = CLong type AttrLabel DOMDOMWindowScreenLeftPropertyInfo = "screen-left" attrGet _ = getDOMDOMWindowScreenLeft attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "screen-top" - -- Type: TBasicType TInt64 + -- Type: TBasicType TLong -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) -getDOMDOMWindowScreenTop :: (MonadIO m, DOMDOMWindowK o) => o -> m Int64 -getDOMDOMWindowScreenTop obj = liftIO $ getObjectPropertyInt64 obj "screen-top" +getDOMDOMWindowScreenTop :: (MonadIO m, DOMDOMWindowK o) => o -> m CLong +getDOMDOMWindowScreenTop obj = liftIO $ getObjectPropertyLong obj "screen-top" data DOMDOMWindowScreenTopPropertyInfo instance AttrInfo DOMDOMWindowScreenTopPropertyInfo where type AttrAllowedOps DOMDOMWindowScreenTopPropertyInfo = '[ 'AttrGet] type AttrSetTypeConstraint DOMDOMWindowScreenTopPropertyInfo = (~) () type AttrBaseTypeConstraint DOMDOMWindowScreenTopPropertyInfo = DOMDOMWindowK - type AttrGetType DOMDOMWindowScreenTopPropertyInfo = Int64 + type AttrGetType DOMDOMWindowScreenTopPropertyInfo = CLong type AttrLabel DOMDOMWindowScreenTopPropertyInfo = "screen-top" attrGet _ = getDOMDOMWindowScreenTop attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "screen-x" - -- Type: TBasicType TInt64 + -- Type: TBasicType TLong -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) -getDOMDOMWindowScreenX :: (MonadIO m, DOMDOMWindowK o) => o -> m Int64 -getDOMDOMWindowScreenX obj = liftIO $ getObjectPropertyInt64 obj "screen-x" +getDOMDOMWindowScreenX :: (MonadIO m, DOMDOMWindowK o) => o -> m CLong +getDOMDOMWindowScreenX obj = liftIO $ getObjectPropertyLong obj "screen-x" data DOMDOMWindowScreenXPropertyInfo instance AttrInfo DOMDOMWindowScreenXPropertyInfo where type AttrAllowedOps DOMDOMWindowScreenXPropertyInfo = '[ 'AttrGet] type AttrSetTypeConstraint DOMDOMWindowScreenXPropertyInfo = (~) () type AttrBaseTypeConstraint DOMDOMWindowScreenXPropertyInfo = DOMDOMWindowK - type AttrGetType DOMDOMWindowScreenXPropertyInfo = Int64 + type AttrGetType DOMDOMWindowScreenXPropertyInfo = CLong type AttrLabel DOMDOMWindowScreenXPropertyInfo = "screen-x" attrGet _ = getDOMDOMWindowScreenX attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "screen-y" - -- Type: TBasicType TInt64 + -- Type: TBasicType TLong -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) -getDOMDOMWindowScreenY :: (MonadIO m, DOMDOMWindowK o) => o -> m Int64 -getDOMDOMWindowScreenY obj = liftIO $ getObjectPropertyInt64 obj "screen-y" +getDOMDOMWindowScreenY :: (MonadIO m, DOMDOMWindowK o) => o -> m CLong +getDOMDOMWindowScreenY obj = liftIO $ getObjectPropertyLong obj "screen-y" data DOMDOMWindowScreenYPropertyInfo instance AttrInfo DOMDOMWindowScreenYPropertyInfo where type AttrAllowedOps DOMDOMWindowScreenYPropertyInfo = '[ 'AttrGet] type AttrSetTypeConstraint DOMDOMWindowScreenYPropertyInfo = (~) () type AttrBaseTypeConstraint DOMDOMWindowScreenYPropertyInfo = DOMDOMWindowK - type AttrGetType DOMDOMWindowScreenYPropertyInfo = Int64 + type AttrGetType DOMDOMWindowScreenYPropertyInfo = CLong type AttrLabel DOMDOMWindowScreenYPropertyInfo = "screen-y" attrGet _ = getDOMDOMWindowScreenY attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "scroll-x" - -- Type: TBasicType TInt64 + -- Type: TBasicType TLong -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) -getDOMDOMWindowScrollX :: (MonadIO m, DOMDOMWindowK o) => o -> m Int64 -getDOMDOMWindowScrollX obj = liftIO $ getObjectPropertyInt64 obj "scroll-x" +getDOMDOMWindowScrollX :: (MonadIO m, DOMDOMWindowK o) => o -> m CLong +getDOMDOMWindowScrollX obj = liftIO $ getObjectPropertyLong obj "scroll-x" data DOMDOMWindowScrollXPropertyInfo instance AttrInfo DOMDOMWindowScrollXPropertyInfo where type AttrAllowedOps DOMDOMWindowScrollXPropertyInfo = '[ 'AttrGet] type AttrSetTypeConstraint DOMDOMWindowScrollXPropertyInfo = (~) () type AttrBaseTypeConstraint DOMDOMWindowScrollXPropertyInfo = DOMDOMWindowK - type AttrGetType DOMDOMWindowScrollXPropertyInfo = Int64 + type AttrGetType DOMDOMWindowScrollXPropertyInfo = CLong type AttrLabel DOMDOMWindowScrollXPropertyInfo = "scroll-x" attrGet _ = getDOMDOMWindowScrollX attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "scroll-y" - -- Type: TBasicType TInt64 + -- Type: TBasicType TLong -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) -getDOMDOMWindowScrollY :: (MonadIO m, DOMDOMWindowK o) => o -> m Int64 -getDOMDOMWindowScrollY obj = liftIO $ getObjectPropertyInt64 obj "scroll-y" +getDOMDOMWindowScrollY :: (MonadIO m, DOMDOMWindowK o) => o -> m CLong +getDOMDOMWindowScrollY obj = liftIO $ getObjectPropertyLong obj "scroll-y" data DOMDOMWindowScrollYPropertyInfo instance AttrInfo DOMDOMWindowScrollYPropertyInfo where type AttrAllowedOps DOMDOMWindowScrollYPropertyInfo = '[ 'AttrGet] type AttrSetTypeConstraint DOMDOMWindowScrollYPropertyInfo = (~) () type AttrBaseTypeConstraint DOMDOMWindowScrollYPropertyInfo = DOMDOMWindowK - type AttrGetType DOMDOMWindowScrollYPropertyInfo = Int64 + type AttrGetType DOMDOMWindowScrollYPropertyInfo = CLong type AttrLabel DOMDOMWindowScrollYPropertyInfo = "scroll-y" attrGet _ = getDOMDOMWindowScrollY attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "scrollbars" -- Type: TInterface "WebKit" "DOMBarProp" -- Flags: [PropertyReadable] + -- Nullable: (Nothing,Nothing) -getDOMDOMWindowScrollbars :: (MonadIO m, DOMDOMWindowK o) => o -> m DOMBarProp +getDOMDOMWindowScrollbars :: (MonadIO m, DOMDOMWindowK o) => o -> m (Maybe DOMBarProp) getDOMDOMWindowScrollbars obj = liftIO $ getObjectPropertyObject obj "scrollbars" DOMBarProp data DOMDOMWindowScrollbarsPropertyInfo instance AttrInfo DOMDOMWindowScrollbarsPropertyInfo where - type AttrAllowedOps DOMDOMWindowScrollbarsPropertyInfo = '[ 'AttrGet] + type AttrAllowedOps DOMDOMWindowScrollbarsPropertyInfo = '[ 'AttrGet, 'AttrClear] type AttrSetTypeConstraint DOMDOMWindowScrollbarsPropertyInfo = (~) () type AttrBaseTypeConstraint DOMDOMWindowScrollbarsPropertyInfo = DOMDOMWindowK - type AttrGetType DOMDOMWindowScrollbarsPropertyInfo = DOMBarProp + type AttrGetType DOMDOMWindowScrollbarsPropertyInfo = (Maybe DOMBarProp) type AttrLabel DOMDOMWindowScrollbarsPropertyInfo = "scrollbars" attrGet _ = getDOMDOMWindowScrollbars attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "self" -- Type: TInterface "WebKit" "DOMDOMWindow" -- Flags: [PropertyReadable] + -- Nullable: (Nothing,Nothing) -getDOMDOMWindowSelf :: (MonadIO m, DOMDOMWindowK o) => o -> m DOMDOMWindow +getDOMDOMWindowSelf :: (MonadIO m, DOMDOMWindowK o) => o -> m (Maybe DOMDOMWindow) getDOMDOMWindowSelf obj = liftIO $ getObjectPropertyObject obj "self" DOMDOMWindow data DOMDOMWindowSelfPropertyInfo instance AttrInfo DOMDOMWindowSelfPropertyInfo where - type AttrAllowedOps DOMDOMWindowSelfPropertyInfo = '[ 'AttrGet] + type AttrAllowedOps DOMDOMWindowSelfPropertyInfo = '[ 'AttrGet, 'AttrClear] type AttrSetTypeConstraint DOMDOMWindowSelfPropertyInfo = (~) () type AttrBaseTypeConstraint DOMDOMWindowSelfPropertyInfo = DOMDOMWindowK - type AttrGetType DOMDOMWindowSelfPropertyInfo = DOMDOMWindow + type AttrGetType DOMDOMWindowSelfPropertyInfo = (Maybe DOMDOMWindow) type AttrLabel DOMDOMWindowSelfPropertyInfo = "self" attrGet _ = getDOMDOMWindowSelf attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "session-storage" -- Type: TInterface "WebKit" "DOMStorage" -- Flags: [PropertyReadable] + -- Nullable: (Nothing,Nothing) -getDOMDOMWindowSessionStorage :: (MonadIO m, DOMDOMWindowK o) => o -> m DOMStorage +getDOMDOMWindowSessionStorage :: (MonadIO m, DOMDOMWindowK o) => o -> m (Maybe DOMStorage) getDOMDOMWindowSessionStorage obj = liftIO $ getObjectPropertyObject obj "session-storage" DOMStorage data DOMDOMWindowSessionStoragePropertyInfo instance AttrInfo DOMDOMWindowSessionStoragePropertyInfo where - type AttrAllowedOps DOMDOMWindowSessionStoragePropertyInfo = '[ 'AttrGet] + type AttrAllowedOps DOMDOMWindowSessionStoragePropertyInfo = '[ 'AttrGet, 'AttrClear] type AttrSetTypeConstraint DOMDOMWindowSessionStoragePropertyInfo = (~) () type AttrBaseTypeConstraint DOMDOMWindowSessionStoragePropertyInfo = DOMDOMWindowK - type AttrGetType DOMDOMWindowSessionStoragePropertyInfo = DOMStorage + type AttrGetType DOMDOMWindowSessionStoragePropertyInfo = (Maybe DOMStorage) type AttrLabel DOMDOMWindowSessionStoragePropertyInfo = "session-storage" attrGet _ = getDOMDOMWindowSessionStorage attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "status" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Just False) -getDOMDOMWindowStatus :: (MonadIO m, DOMDOMWindowK o) => o -> m T.Text +getDOMDOMWindowStatus :: (MonadIO m, DOMDOMWindowK o) => o -> m (Maybe T.Text) getDOMDOMWindowStatus obj = liftIO $ getObjectPropertyString obj "status" setDOMDOMWindowStatus :: (MonadIO m, DOMDOMWindowK o) => o -> T.Text -> m () -setDOMDOMWindowStatus obj val = liftIO $ setObjectPropertyString obj "status" val +setDOMDOMWindowStatus obj val = liftIO $ setObjectPropertyString obj "status" (Just val) constructDOMDOMWindowStatus :: T.Text -> IO ([Char], GValue) -constructDOMDOMWindowStatus val = constructObjectPropertyString "status" val +constructDOMDOMWindowStatus val = constructObjectPropertyString "status" (Just val) data DOMDOMWindowStatusPropertyInfo instance AttrInfo DOMDOMWindowStatusPropertyInfo where type AttrAllowedOps DOMDOMWindowStatusPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint DOMDOMWindowStatusPropertyInfo = (~) T.Text type AttrBaseTypeConstraint DOMDOMWindowStatusPropertyInfo = DOMDOMWindowK - type AttrGetType DOMDOMWindowStatusPropertyInfo = T.Text + type AttrGetType DOMDOMWindowStatusPropertyInfo = (Maybe T.Text) type AttrLabel DOMDOMWindowStatusPropertyInfo = "status" attrGet _ = getDOMDOMWindowStatus attrSet _ = setDOMDOMWindowStatus attrConstruct _ = constructDOMDOMWindowStatus + attrClear _ = undefined -- VVV Prop "statusbar" -- Type: TInterface "WebKit" "DOMBarProp" -- Flags: [PropertyReadable] + -- Nullable: (Nothing,Nothing) -getDOMDOMWindowStatusbar :: (MonadIO m, DOMDOMWindowK o) => o -> m DOMBarProp +getDOMDOMWindowStatusbar :: (MonadIO m, DOMDOMWindowK o) => o -> m (Maybe DOMBarProp) getDOMDOMWindowStatusbar obj = liftIO $ getObjectPropertyObject obj "statusbar" DOMBarProp data DOMDOMWindowStatusbarPropertyInfo instance AttrInfo DOMDOMWindowStatusbarPropertyInfo where - type AttrAllowedOps DOMDOMWindowStatusbarPropertyInfo = '[ 'AttrGet] + type AttrAllowedOps DOMDOMWindowStatusbarPropertyInfo = '[ 'AttrGet, 'AttrClear] type AttrSetTypeConstraint DOMDOMWindowStatusbarPropertyInfo = (~) () type AttrBaseTypeConstraint DOMDOMWindowStatusbarPropertyInfo = DOMDOMWindowK - type AttrGetType DOMDOMWindowStatusbarPropertyInfo = DOMBarProp + type AttrGetType DOMDOMWindowStatusbarPropertyInfo = (Maybe DOMBarProp) type AttrLabel DOMDOMWindowStatusbarPropertyInfo = "statusbar" attrGet _ = getDOMDOMWindowStatusbar attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "style-media" -- Type: TInterface "WebKit" "DOMStyleMedia" -- Flags: [PropertyReadable] + -- Nullable: (Nothing,Nothing) -getDOMDOMWindowStyleMedia :: (MonadIO m, DOMDOMWindowK o) => o -> m DOMStyleMedia +getDOMDOMWindowStyleMedia :: (MonadIO m, DOMDOMWindowK o) => o -> m (Maybe DOMStyleMedia) getDOMDOMWindowStyleMedia obj = liftIO $ getObjectPropertyObject obj "style-media" DOMStyleMedia data DOMDOMWindowStyleMediaPropertyInfo instance AttrInfo DOMDOMWindowStyleMediaPropertyInfo where - type AttrAllowedOps DOMDOMWindowStyleMediaPropertyInfo = '[ 'AttrGet] + type AttrAllowedOps DOMDOMWindowStyleMediaPropertyInfo = '[ 'AttrGet, 'AttrClear] type AttrSetTypeConstraint DOMDOMWindowStyleMediaPropertyInfo = (~) () type AttrBaseTypeConstraint DOMDOMWindowStyleMediaPropertyInfo = DOMDOMWindowK - type AttrGetType DOMDOMWindowStyleMediaPropertyInfo = DOMStyleMedia + type AttrGetType DOMDOMWindowStyleMediaPropertyInfo = (Maybe DOMStyleMedia) type AttrLabel DOMDOMWindowStyleMediaPropertyInfo = "style-media" attrGet _ = getDOMDOMWindowStyleMedia attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "toolbar" -- Type: TInterface "WebKit" "DOMBarProp" -- Flags: [PropertyReadable] + -- Nullable: (Nothing,Nothing) -getDOMDOMWindowToolbar :: (MonadIO m, DOMDOMWindowK o) => o -> m DOMBarProp +getDOMDOMWindowToolbar :: (MonadIO m, DOMDOMWindowK o) => o -> m (Maybe DOMBarProp) getDOMDOMWindowToolbar obj = liftIO $ getObjectPropertyObject obj "toolbar" DOMBarProp data DOMDOMWindowToolbarPropertyInfo instance AttrInfo DOMDOMWindowToolbarPropertyInfo where - type AttrAllowedOps DOMDOMWindowToolbarPropertyInfo = '[ 'AttrGet] + type AttrAllowedOps DOMDOMWindowToolbarPropertyInfo = '[ 'AttrGet, 'AttrClear] type AttrSetTypeConstraint DOMDOMWindowToolbarPropertyInfo = (~) () type AttrBaseTypeConstraint DOMDOMWindowToolbarPropertyInfo = DOMDOMWindowK - type AttrGetType DOMDOMWindowToolbarPropertyInfo = DOMBarProp + type AttrGetType DOMDOMWindowToolbarPropertyInfo = (Maybe DOMBarProp) type AttrLabel DOMDOMWindowToolbarPropertyInfo = "toolbar" attrGet _ = getDOMDOMWindowToolbar attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "top" -- Type: TInterface "WebKit" "DOMDOMWindow" -- Flags: [PropertyReadable] + -- Nullable: (Nothing,Nothing) -getDOMDOMWindowTop :: (MonadIO m, DOMDOMWindowK o) => o -> m DOMDOMWindow +getDOMDOMWindowTop :: (MonadIO m, DOMDOMWindowK o) => o -> m (Maybe DOMDOMWindow) getDOMDOMWindowTop obj = liftIO $ getObjectPropertyObject obj "top" DOMDOMWindow data DOMDOMWindowTopPropertyInfo instance AttrInfo DOMDOMWindowTopPropertyInfo where - type AttrAllowedOps DOMDOMWindowTopPropertyInfo = '[ 'AttrGet] + type AttrAllowedOps DOMDOMWindowTopPropertyInfo = '[ 'AttrGet, 'AttrClear] type AttrSetTypeConstraint DOMDOMWindowTopPropertyInfo = (~) () type AttrBaseTypeConstraint DOMDOMWindowTopPropertyInfo = DOMDOMWindowK - type AttrGetType DOMDOMWindowTopPropertyInfo = DOMDOMWindow + type AttrGetType DOMDOMWindowTopPropertyInfo = (Maybe DOMDOMWindow) type AttrLabel DOMDOMWindowTopPropertyInfo = "top" attrGet _ = getDOMDOMWindowTop attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "webkit-storage-info" -- Type: TInterface "WebKit" "DOMStorageInfo" -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) getDOMDOMWindowWebkitStorageInfo :: (MonadIO m, DOMDOMWindowK o) => o -> m DOMStorageInfo -getDOMDOMWindowWebkitStorageInfo obj = liftIO $ getObjectPropertyObject obj "webkit-storage-info" DOMStorageInfo +getDOMDOMWindowWebkitStorageInfo obj = liftIO $ checkUnexpectedNothing "getDOMDOMWindowWebkitStorageInfo" $ getObjectPropertyObject obj "webkit-storage-info" DOMStorageInfo data DOMDOMWindowWebkitStorageInfoPropertyInfo instance AttrInfo DOMDOMWindowWebkitStorageInfoPropertyInfo where - type AttrAllowedOps DOMDOMWindowWebkitStorageInfoPropertyInfo = '[ 'AttrGet] + type AttrAllowedOps DOMDOMWindowWebkitStorageInfoPropertyInfo = '[ 'AttrGet, 'AttrClear] type AttrSetTypeConstraint DOMDOMWindowWebkitStorageInfoPropertyInfo = (~) () type AttrBaseTypeConstraint DOMDOMWindowWebkitStorageInfoPropertyInfo = DOMDOMWindowK type AttrGetType DOMDOMWindowWebkitStorageInfoPropertyInfo = DOMStorageInfo @@ -1604,28 +1736,166 @@ attrGet _ = getDOMDOMWindowWebkitStorageInfo attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "window" -- Type: TInterface "WebKit" "DOMDOMWindow" -- Flags: [PropertyReadable] + -- Nullable: (Nothing,Nothing) -getDOMDOMWindowWindow :: (MonadIO m, DOMDOMWindowK o) => o -> m DOMDOMWindow +getDOMDOMWindowWindow :: (MonadIO m, DOMDOMWindowK o) => o -> m (Maybe DOMDOMWindow) getDOMDOMWindowWindow obj = liftIO $ getObjectPropertyObject obj "window" DOMDOMWindow data DOMDOMWindowWindowPropertyInfo instance AttrInfo DOMDOMWindowWindowPropertyInfo where - type AttrAllowedOps DOMDOMWindowWindowPropertyInfo = '[ 'AttrGet] + type AttrAllowedOps DOMDOMWindowWindowPropertyInfo = '[ 'AttrGet, 'AttrClear] type AttrSetTypeConstraint DOMDOMWindowWindowPropertyInfo = (~) () type AttrBaseTypeConstraint DOMDOMWindowWindowPropertyInfo = DOMDOMWindowK - type AttrGetType DOMDOMWindowWindowPropertyInfo = DOMDOMWindow + type AttrGetType DOMDOMWindowWindowPropertyInfo = (Maybe DOMDOMWindow) type AttrLabel DOMDOMWindowWindowPropertyInfo = "window" attrGet _ = getDOMDOMWindowWindow attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined type instance AttributeList DOMDOMWindow = DOMDOMWindowAttributeList type DOMDOMWindowAttributeList = ('[ '("applicationCache", DOMDOMWindowApplicationCachePropertyInfo), '("clientInformation", DOMDOMWindowClientInformationPropertyInfo), '("closed", DOMDOMWindowClosedPropertyInfo), '("console", DOMDOMWindowConsolePropertyInfo), '("coreObject", DOMObjectCoreObjectPropertyInfo), '("css", DOMDOMWindowCssPropertyInfo), '("defaultStatus", DOMDOMWindowDefaultStatusPropertyInfo), '("devicePixelRatio", DOMDOMWindowDevicePixelRatioPropertyInfo), '("document", DOMDOMWindowDocumentPropertyInfo), '("frameElement", DOMDOMWindowFrameElementPropertyInfo), '("frames", DOMDOMWindowFramesPropertyInfo), '("history", DOMDOMWindowHistoryPropertyInfo), '("innerHeight", DOMDOMWindowInnerHeightPropertyInfo), '("innerWidth", DOMDOMWindowInnerWidthPropertyInfo), '("length", DOMDOMWindowLengthPropertyInfo), '("localStorage", DOMDOMWindowLocalStoragePropertyInfo), '("locationbar", DOMDOMWindowLocationbarPropertyInfo), '("menubar", DOMDOMWindowMenubarPropertyInfo), '("name", DOMDOMWindowNamePropertyInfo), '("navigator", DOMDOMWindowNavigatorPropertyInfo), '("offscreenBuffering", DOMDOMWindowOffscreenBufferingPropertyInfo), '("opener", DOMDOMWindowOpenerPropertyInfo), '("outerHeight", DOMDOMWindowOuterHeightPropertyInfo), '("outerWidth", DOMDOMWindowOuterWidthPropertyInfo), '("pageXOffset", DOMDOMWindowPageXOffsetPropertyInfo), '("pageYOffset", DOMDOMWindowPageYOffsetPropertyInfo), '("parent", DOMDOMWindowParentPropertyInfo), '("performance", DOMDOMWindowPerformancePropertyInfo), '("personalbar", DOMDOMWindowPersonalbarPropertyInfo), '("screen", DOMDOMWindowScreenPropertyInfo), '("screenLeft", DOMDOMWindowScreenLeftPropertyInfo), '("screenTop", DOMDOMWindowScreenTopPropertyInfo), '("screenX", DOMDOMWindowScreenXPropertyInfo), '("screenY", DOMDOMWindowScreenYPropertyInfo), '("scrollX", DOMDOMWindowScrollXPropertyInfo), '("scrollY", DOMDOMWindowScrollYPropertyInfo), '("scrollbars", DOMDOMWindowScrollbarsPropertyInfo), '("self", DOMDOMWindowSelfPropertyInfo), '("sessionStorage", DOMDOMWindowSessionStoragePropertyInfo), '("status", DOMDOMWindowStatusPropertyInfo), '("statusbar", DOMDOMWindowStatusbarPropertyInfo), '("styleMedia", DOMDOMWindowStyleMediaPropertyInfo), '("toolbar", DOMDOMWindowToolbarPropertyInfo), '("top", DOMDOMWindowTopPropertyInfo), '("webkitStorageInfo", DOMDOMWindowWebkitStorageInfoPropertyInfo), '("window", DOMDOMWindowWindowPropertyInfo)] :: [(Symbol, *)]) +dOMDOMWindowApplicationCache :: AttrLabelProxy "applicationCache" +dOMDOMWindowApplicationCache = AttrLabelProxy + +dOMDOMWindowClientInformation :: AttrLabelProxy "clientInformation" +dOMDOMWindowClientInformation = AttrLabelProxy + +dOMDOMWindowClosed :: AttrLabelProxy "closed" +dOMDOMWindowClosed = AttrLabelProxy + +dOMDOMWindowConsole :: AttrLabelProxy "console" +dOMDOMWindowConsole = AttrLabelProxy + +dOMDOMWindowCss :: AttrLabelProxy "css" +dOMDOMWindowCss = AttrLabelProxy + +dOMDOMWindowDefaultStatus :: AttrLabelProxy "defaultStatus" +dOMDOMWindowDefaultStatus = AttrLabelProxy + +dOMDOMWindowDevicePixelRatio :: AttrLabelProxy "devicePixelRatio" +dOMDOMWindowDevicePixelRatio = AttrLabelProxy + +dOMDOMWindowDocument :: AttrLabelProxy "document" +dOMDOMWindowDocument = AttrLabelProxy + +dOMDOMWindowFrameElement :: AttrLabelProxy "frameElement" +dOMDOMWindowFrameElement = AttrLabelProxy + +dOMDOMWindowFrames :: AttrLabelProxy "frames" +dOMDOMWindowFrames = AttrLabelProxy + +dOMDOMWindowHistory :: AttrLabelProxy "history" +dOMDOMWindowHistory = AttrLabelProxy + +dOMDOMWindowInnerHeight :: AttrLabelProxy "innerHeight" +dOMDOMWindowInnerHeight = AttrLabelProxy + +dOMDOMWindowInnerWidth :: AttrLabelProxy "innerWidth" +dOMDOMWindowInnerWidth = AttrLabelProxy + +dOMDOMWindowLength :: AttrLabelProxy "length" +dOMDOMWindowLength = AttrLabelProxy + +dOMDOMWindowLocalStorage :: AttrLabelProxy "localStorage" +dOMDOMWindowLocalStorage = AttrLabelProxy + +dOMDOMWindowLocationbar :: AttrLabelProxy "locationbar" +dOMDOMWindowLocationbar = AttrLabelProxy + +dOMDOMWindowMenubar :: AttrLabelProxy "menubar" +dOMDOMWindowMenubar = AttrLabelProxy + +dOMDOMWindowName :: AttrLabelProxy "name" +dOMDOMWindowName = AttrLabelProxy + +dOMDOMWindowNavigator :: AttrLabelProxy "navigator" +dOMDOMWindowNavigator = AttrLabelProxy + +dOMDOMWindowOffscreenBuffering :: AttrLabelProxy "offscreenBuffering" +dOMDOMWindowOffscreenBuffering = AttrLabelProxy + +dOMDOMWindowOpener :: AttrLabelProxy "opener" +dOMDOMWindowOpener = AttrLabelProxy + +dOMDOMWindowOuterHeight :: AttrLabelProxy "outerHeight" +dOMDOMWindowOuterHeight = AttrLabelProxy + +dOMDOMWindowOuterWidth :: AttrLabelProxy "outerWidth" +dOMDOMWindowOuterWidth = AttrLabelProxy + +dOMDOMWindowPageXOffset :: AttrLabelProxy "pageXOffset" +dOMDOMWindowPageXOffset = AttrLabelProxy + +dOMDOMWindowPageYOffset :: AttrLabelProxy "pageYOffset" +dOMDOMWindowPageYOffset = AttrLabelProxy + +dOMDOMWindowParent :: AttrLabelProxy "parent" +dOMDOMWindowParent = AttrLabelProxy + +dOMDOMWindowPerformance :: AttrLabelProxy "performance" +dOMDOMWindowPerformance = AttrLabelProxy + +dOMDOMWindowPersonalbar :: AttrLabelProxy "personalbar" +dOMDOMWindowPersonalbar = AttrLabelProxy + +dOMDOMWindowScreen :: AttrLabelProxy "screen" +dOMDOMWindowScreen = AttrLabelProxy + +dOMDOMWindowScreenLeft :: AttrLabelProxy "screenLeft" +dOMDOMWindowScreenLeft = AttrLabelProxy + +dOMDOMWindowScreenTop :: AttrLabelProxy "screenTop" +dOMDOMWindowScreenTop = AttrLabelProxy + +dOMDOMWindowScreenX :: AttrLabelProxy "screenX" +dOMDOMWindowScreenX = AttrLabelProxy + +dOMDOMWindowScreenY :: AttrLabelProxy "screenY" +dOMDOMWindowScreenY = AttrLabelProxy + +dOMDOMWindowScrollX :: AttrLabelProxy "scrollX" +dOMDOMWindowScrollX = AttrLabelProxy + +dOMDOMWindowScrollY :: AttrLabelProxy "scrollY" +dOMDOMWindowScrollY = AttrLabelProxy + +dOMDOMWindowScrollbars :: AttrLabelProxy "scrollbars" +dOMDOMWindowScrollbars = AttrLabelProxy + +dOMDOMWindowSelf :: AttrLabelProxy "self" +dOMDOMWindowSelf = AttrLabelProxy + +dOMDOMWindowSessionStorage :: AttrLabelProxy "sessionStorage" +dOMDOMWindowSessionStorage = AttrLabelProxy + +dOMDOMWindowStatus :: AttrLabelProxy "status" +dOMDOMWindowStatus = AttrLabelProxy + +dOMDOMWindowStatusbar :: AttrLabelProxy "statusbar" +dOMDOMWindowStatusbar = AttrLabelProxy + +dOMDOMWindowStyleMedia :: AttrLabelProxy "styleMedia" +dOMDOMWindowStyleMedia = AttrLabelProxy + +dOMDOMWindowToolbar :: AttrLabelProxy "toolbar" +dOMDOMWindowToolbar = AttrLabelProxy + +dOMDOMWindowTop :: AttrLabelProxy "top" +dOMDOMWindowTop = AttrLabelProxy + +dOMDOMWindowWebkitStorageInfo :: AttrLabelProxy "webkitStorageInfo" +dOMDOMWindowWebkitStorageInfo = AttrLabelProxy + +dOMDOMWindowWindow :: AttrLabelProxy "window" +dOMDOMWindowWindow = AttrLabelProxy + type instance SignalList DOMDOMWindow = DOMDOMWindowSignalList type DOMDOMWindowSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) @@ -1633,7 +1903,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "message", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1664,7 +1934,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : True -- Skip return : False @@ -1703,7 +1973,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1730,7 +2000,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : True -- Skip return : False @@ -1767,22 +2037,22 @@ -- method DOMDOMWindow::cancel_animation_frame -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "id", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "id", argType = TBasicType TLong, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "webkit_dom_dom_window_cancel_animation_frame" webkit_dom_dom_window_cancel_animation_frame :: Ptr DOMDOMWindow -> -- _obj : TInterface "WebKit" "DOMDOMWindow" - Int64 -> -- id : TBasicType TInt64 + CLong -> -- id : TBasicType TLong IO () dOMDOMWindowCancelAnimationFrame :: (MonadIO m, DOMDOMWindowK a) => a -- _obj - -> Int64 -- id + -> CLong -- id -> m () -- result dOMDOMWindowCancelAnimationFrame _obj id = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj @@ -1791,14 +2061,14 @@ return () data DOMDOMWindowCancelAnimationFrameMethodInfo -instance (signature ~ (Int64 -> m ()), MonadIO m, DOMDOMWindowK a) => MethodInfo DOMDOMWindowCancelAnimationFrameMethodInfo a signature where +instance (signature ~ (CLong -> m ()), MonadIO m, DOMDOMWindowK a) => MethodInfo DOMDOMWindowCancelAnimationFrameMethodInfo a signature where overloadedMethod _ = dOMDOMWindowCancelAnimationFrame -- method DOMDOMWindow::capture_events -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1823,22 +2093,22 @@ -- method DOMDOMWindow::clear_interval -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "handle", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "handle", argType = TBasicType TLong, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "webkit_dom_dom_window_clear_interval" webkit_dom_dom_window_clear_interval :: Ptr DOMDOMWindow -> -- _obj : TInterface "WebKit" "DOMDOMWindow" - Int64 -> -- handle : TBasicType TInt64 + CLong -> -- handle : TBasicType TLong IO () dOMDOMWindowClearInterval :: (MonadIO m, DOMDOMWindowK a) => a -- _obj - -> Int64 -- handle + -> CLong -- handle -> m () -- result dOMDOMWindowClearInterval _obj handle = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj @@ -1847,27 +2117,27 @@ return () data DOMDOMWindowClearIntervalMethodInfo -instance (signature ~ (Int64 -> m ()), MonadIO m, DOMDOMWindowK a) => MethodInfo DOMDOMWindowClearIntervalMethodInfo a signature where +instance (signature ~ (CLong -> m ()), MonadIO m, DOMDOMWindowK a) => MethodInfo DOMDOMWindowClearIntervalMethodInfo a signature where overloadedMethod _ = dOMDOMWindowClearInterval -- method DOMDOMWindow::clear_timeout -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "handle", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "handle", argType = TBasicType TLong, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "webkit_dom_dom_window_clear_timeout" webkit_dom_dom_window_clear_timeout :: Ptr DOMDOMWindow -> -- _obj : TInterface "WebKit" "DOMDOMWindow" - Int64 -> -- handle : TBasicType TInt64 + CLong -> -- handle : TBasicType TLong IO () dOMDOMWindowClearTimeout :: (MonadIO m, DOMDOMWindowK a) => a -- _obj - -> Int64 -- handle + -> CLong -- handle -> m () -- result dOMDOMWindowClearTimeout _obj handle = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj @@ -1876,14 +2146,14 @@ return () data DOMDOMWindowClearTimeoutMethodInfo -instance (signature ~ (Int64 -> m ()), MonadIO m, DOMDOMWindowK a) => MethodInfo DOMDOMWindowClearTimeoutMethodInfo a signature where +instance (signature ~ (CLong -> m ()), MonadIO m, DOMDOMWindowK a) => MethodInfo DOMDOMWindowClearTimeoutMethodInfo a signature where overloadedMethod _ = dOMDOMWindowClearTimeout -- method DOMDOMWindow::close -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1910,7 +2180,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "message", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -1942,7 +2212,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "evt", argType = TInterface "WebKit" "DOMEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : True -- Skip return : False @@ -1978,7 +2248,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "caseSensitive", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "backwards", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "wrap", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "wholeWord", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "searchInFrames", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "showDialog", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -2028,7 +2298,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -2055,7 +2325,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit" "DOMDOMApplicationCache" +-- returnType : Just (TInterface "WebKit" "DOMDOMApplicationCache") -- throws : False -- Skip return : False @@ -2084,7 +2354,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit" "DOMNavigator" +-- returnType : Just (TInterface "WebKit" "DOMNavigator") -- throws : False -- Skip return : False @@ -2113,7 +2383,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -2141,7 +2411,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "element", argType = TInterface "WebKit" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "pseudoElement", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit" "DOMCSSStyleDeclaration" +-- returnType : Just (TInterface "WebKit" "DOMCSSStyleDeclaration") -- throws : False -- Skip return : False @@ -2182,7 +2452,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit" "DOMConsole" +-- returnType : Just (TInterface "WebKit" "DOMConsole") -- throws : False -- Skip return : False @@ -2211,7 +2481,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit" "DOMDOMWindowCSS" +-- returnType : Just (TInterface "WebKit" "DOMDOMWindowCSS") -- throws : False -- Skip return : False @@ -2240,7 +2510,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -2270,7 +2540,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TDouble +-- returnType : Just (TBasicType TDouble) -- throws : False -- Skip return : False @@ -2298,7 +2568,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit" "DOMDocument" +-- returnType : Just (TInterface "WebKit" "DOMDocument") -- throws : False -- Skip return : False @@ -2327,7 +2597,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit" "DOMElement" +-- returnType : Just (TInterface "WebKit" "DOMElement") -- throws : False -- Skip return : False @@ -2356,7 +2626,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit" "DOMDOMWindow" +-- returnType : Just (TInterface "WebKit" "DOMDOMWindow") -- throws : False -- Skip return : False @@ -2385,7 +2655,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit" "DOMHistory" +-- returnType : Just (TInterface "WebKit" "DOMHistory") -- throws : False -- Skip return : False @@ -2414,19 +2684,19 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TInt64 +-- returnType : Just (TBasicType TLong) -- throws : False -- Skip return : False foreign import ccall "webkit_dom_dom_window_get_inner_height" webkit_dom_dom_window_get_inner_height :: Ptr DOMDOMWindow -> -- _obj : TInterface "WebKit" "DOMDOMWindow" - IO Int64 + IO CLong dOMDOMWindowGetInnerHeight :: (MonadIO m, DOMDOMWindowK a) => a -- _obj - -> m Int64 -- result + -> m CLong -- result dOMDOMWindowGetInnerHeight _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- webkit_dom_dom_window_get_inner_height _obj' @@ -2434,26 +2704,26 @@ return result data DOMDOMWindowGetInnerHeightMethodInfo -instance (signature ~ (m Int64), MonadIO m, DOMDOMWindowK a) => MethodInfo DOMDOMWindowGetInnerHeightMethodInfo a signature where +instance (signature ~ (m CLong), MonadIO m, DOMDOMWindowK a) => MethodInfo DOMDOMWindowGetInnerHeightMethodInfo a signature where overloadedMethod _ = dOMDOMWindowGetInnerHeight -- method DOMDOMWindow::get_inner_width -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TInt64 +-- returnType : Just (TBasicType TLong) -- throws : False -- Skip return : False foreign import ccall "webkit_dom_dom_window_get_inner_width" webkit_dom_dom_window_get_inner_width :: Ptr DOMDOMWindow -> -- _obj : TInterface "WebKit" "DOMDOMWindow" - IO Int64 + IO CLong dOMDOMWindowGetInnerWidth :: (MonadIO m, DOMDOMWindowK a) => a -- _obj - -> m Int64 -- result + -> m CLong -- result dOMDOMWindowGetInnerWidth _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- webkit_dom_dom_window_get_inner_width _obj' @@ -2461,26 +2731,26 @@ return result data DOMDOMWindowGetInnerWidthMethodInfo -instance (signature ~ (m Int64), MonadIO m, DOMDOMWindowK a) => MethodInfo DOMDOMWindowGetInnerWidthMethodInfo a signature where +instance (signature ~ (m CLong), MonadIO m, DOMDOMWindowK a) => MethodInfo DOMDOMWindowGetInnerWidthMethodInfo a signature where overloadedMethod _ = dOMDOMWindowGetInnerWidth -- method DOMDOMWindow::get_length -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUInt64 +-- returnType : Just (TBasicType TULong) -- throws : False -- Skip return : False foreign import ccall "webkit_dom_dom_window_get_length" webkit_dom_dom_window_get_length :: Ptr DOMDOMWindow -> -- _obj : TInterface "WebKit" "DOMDOMWindow" - IO Word64 + IO CULong dOMDOMWindowGetLength :: (MonadIO m, DOMDOMWindowK a) => a -- _obj - -> m Word64 -- result + -> m CULong -- result dOMDOMWindowGetLength _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- webkit_dom_dom_window_get_length _obj' @@ -2488,14 +2758,14 @@ return result data DOMDOMWindowGetLengthMethodInfo -instance (signature ~ (m Word64), MonadIO m, DOMDOMWindowK a) => MethodInfo DOMDOMWindowGetLengthMethodInfo a signature where +instance (signature ~ (m CULong), MonadIO m, DOMDOMWindowK a) => MethodInfo DOMDOMWindowGetLengthMethodInfo a signature where overloadedMethod _ = dOMDOMWindowGetLength -- method DOMDOMWindow::get_local_storage -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit" "DOMStorage" +-- returnType : Just (TInterface "WebKit" "DOMStorage") -- throws : True -- Skip return : False @@ -2529,7 +2799,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit" "DOMBarProp" +-- returnType : Just (TInterface "WebKit" "DOMBarProp") -- throws : False -- Skip return : False @@ -2558,7 +2828,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit" "DOMBarProp" +-- returnType : Just (TInterface "WebKit" "DOMBarProp") -- throws : False -- Skip return : False @@ -2587,7 +2857,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -2617,7 +2887,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit" "DOMNavigator" +-- returnType : Just (TInterface "WebKit" "DOMNavigator") -- throws : False -- Skip return : False @@ -2646,7 +2916,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -2674,7 +2944,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit" "DOMDOMWindow" +-- returnType : Just (TInterface "WebKit" "DOMDOMWindow") -- throws : False -- Skip return : False @@ -2703,19 +2973,19 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TInt64 +-- returnType : Just (TBasicType TLong) -- throws : False -- Skip return : False foreign import ccall "webkit_dom_dom_window_get_outer_height" webkit_dom_dom_window_get_outer_height :: Ptr DOMDOMWindow -> -- _obj : TInterface "WebKit" "DOMDOMWindow" - IO Int64 + IO CLong dOMDOMWindowGetOuterHeight :: (MonadIO m, DOMDOMWindowK a) => a -- _obj - -> m Int64 -- result + -> m CLong -- result dOMDOMWindowGetOuterHeight _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- webkit_dom_dom_window_get_outer_height _obj' @@ -2723,26 +2993,26 @@ return result data DOMDOMWindowGetOuterHeightMethodInfo -instance (signature ~ (m Int64), MonadIO m, DOMDOMWindowK a) => MethodInfo DOMDOMWindowGetOuterHeightMethodInfo a signature where +instance (signature ~ (m CLong), MonadIO m, DOMDOMWindowK a) => MethodInfo DOMDOMWindowGetOuterHeightMethodInfo a signature where overloadedMethod _ = dOMDOMWindowGetOuterHeight -- method DOMDOMWindow::get_outer_width -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TInt64 +-- returnType : Just (TBasicType TLong) -- throws : False -- Skip return : False foreign import ccall "webkit_dom_dom_window_get_outer_width" webkit_dom_dom_window_get_outer_width :: Ptr DOMDOMWindow -> -- _obj : TInterface "WebKit" "DOMDOMWindow" - IO Int64 + IO CLong dOMDOMWindowGetOuterWidth :: (MonadIO m, DOMDOMWindowK a) => a -- _obj - -> m Int64 -- result + -> m CLong -- result dOMDOMWindowGetOuterWidth _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- webkit_dom_dom_window_get_outer_width _obj' @@ -2750,26 +3020,26 @@ return result data DOMDOMWindowGetOuterWidthMethodInfo -instance (signature ~ (m Int64), MonadIO m, DOMDOMWindowK a) => MethodInfo DOMDOMWindowGetOuterWidthMethodInfo a signature where +instance (signature ~ (m CLong), MonadIO m, DOMDOMWindowK a) => MethodInfo DOMDOMWindowGetOuterWidthMethodInfo a signature where overloadedMethod _ = dOMDOMWindowGetOuterWidth -- method DOMDOMWindow::get_page_x_offset -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TInt64 +-- returnType : Just (TBasicType TLong) -- throws : False -- Skip return : False foreign import ccall "webkit_dom_dom_window_get_page_x_offset" webkit_dom_dom_window_get_page_x_offset :: Ptr DOMDOMWindow -> -- _obj : TInterface "WebKit" "DOMDOMWindow" - IO Int64 + IO CLong dOMDOMWindowGetPageXOffset :: (MonadIO m, DOMDOMWindowK a) => a -- _obj - -> m Int64 -- result + -> m CLong -- result dOMDOMWindowGetPageXOffset _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- webkit_dom_dom_window_get_page_x_offset _obj' @@ -2777,26 +3047,26 @@ return result data DOMDOMWindowGetPageXOffsetMethodInfo -instance (signature ~ (m Int64), MonadIO m, DOMDOMWindowK a) => MethodInfo DOMDOMWindowGetPageXOffsetMethodInfo a signature where +instance (signature ~ (m CLong), MonadIO m, DOMDOMWindowK a) => MethodInfo DOMDOMWindowGetPageXOffsetMethodInfo a signature where overloadedMethod _ = dOMDOMWindowGetPageXOffset -- method DOMDOMWindow::get_page_y_offset -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TInt64 +-- returnType : Just (TBasicType TLong) -- throws : False -- Skip return : False foreign import ccall "webkit_dom_dom_window_get_page_y_offset" webkit_dom_dom_window_get_page_y_offset :: Ptr DOMDOMWindow -> -- _obj : TInterface "WebKit" "DOMDOMWindow" - IO Int64 + IO CLong dOMDOMWindowGetPageYOffset :: (MonadIO m, DOMDOMWindowK a) => a -- _obj - -> m Int64 -- result + -> m CLong -- result dOMDOMWindowGetPageYOffset _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- webkit_dom_dom_window_get_page_y_offset _obj' @@ -2804,14 +3074,14 @@ return result data DOMDOMWindowGetPageYOffsetMethodInfo -instance (signature ~ (m Int64), MonadIO m, DOMDOMWindowK a) => MethodInfo DOMDOMWindowGetPageYOffsetMethodInfo a signature where +instance (signature ~ (m CLong), MonadIO m, DOMDOMWindowK a) => MethodInfo DOMDOMWindowGetPageYOffsetMethodInfo a signature where overloadedMethod _ = dOMDOMWindowGetPageYOffset -- method DOMDOMWindow::get_parent -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit" "DOMDOMWindow" +-- returnType : Just (TInterface "WebKit" "DOMDOMWindow") -- throws : False -- Skip return : False @@ -2840,7 +3110,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit" "DOMPerformance" +-- returnType : Just (TInterface "WebKit" "DOMPerformance") -- throws : False -- Skip return : False @@ -2869,7 +3139,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit" "DOMBarProp" +-- returnType : Just (TInterface "WebKit" "DOMBarProp") -- throws : False -- Skip return : False @@ -2898,7 +3168,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit" "DOMScreen" +-- returnType : Just (TInterface "WebKit" "DOMScreen") -- throws : False -- Skip return : False @@ -2927,19 +3197,19 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TInt64 +-- returnType : Just (TBasicType TLong) -- throws : False -- Skip return : False foreign import ccall "webkit_dom_dom_window_get_screen_left" webkit_dom_dom_window_get_screen_left :: Ptr DOMDOMWindow -> -- _obj : TInterface "WebKit" "DOMDOMWindow" - IO Int64 + IO CLong dOMDOMWindowGetScreenLeft :: (MonadIO m, DOMDOMWindowK a) => a -- _obj - -> m Int64 -- result + -> m CLong -- result dOMDOMWindowGetScreenLeft _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- webkit_dom_dom_window_get_screen_left _obj' @@ -2947,26 +3217,26 @@ return result data DOMDOMWindowGetScreenLeftMethodInfo -instance (signature ~ (m Int64), MonadIO m, DOMDOMWindowK a) => MethodInfo DOMDOMWindowGetScreenLeftMethodInfo a signature where +instance (signature ~ (m CLong), MonadIO m, DOMDOMWindowK a) => MethodInfo DOMDOMWindowGetScreenLeftMethodInfo a signature where overloadedMethod _ = dOMDOMWindowGetScreenLeft -- method DOMDOMWindow::get_screen_top -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TInt64 +-- returnType : Just (TBasicType TLong) -- throws : False -- Skip return : False foreign import ccall "webkit_dom_dom_window_get_screen_top" webkit_dom_dom_window_get_screen_top :: Ptr DOMDOMWindow -> -- _obj : TInterface "WebKit" "DOMDOMWindow" - IO Int64 + IO CLong dOMDOMWindowGetScreenTop :: (MonadIO m, DOMDOMWindowK a) => a -- _obj - -> m Int64 -- result + -> m CLong -- result dOMDOMWindowGetScreenTop _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- webkit_dom_dom_window_get_screen_top _obj' @@ -2974,26 +3244,26 @@ return result data DOMDOMWindowGetScreenTopMethodInfo -instance (signature ~ (m Int64), MonadIO m, DOMDOMWindowK a) => MethodInfo DOMDOMWindowGetScreenTopMethodInfo a signature where +instance (signature ~ (m CLong), MonadIO m, DOMDOMWindowK a) => MethodInfo DOMDOMWindowGetScreenTopMethodInfo a signature where overloadedMethod _ = dOMDOMWindowGetScreenTop -- method DOMDOMWindow::get_screen_x -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TInt64 +-- returnType : Just (TBasicType TLong) -- throws : False -- Skip return : False foreign import ccall "webkit_dom_dom_window_get_screen_x" webkit_dom_dom_window_get_screen_x :: Ptr DOMDOMWindow -> -- _obj : TInterface "WebKit" "DOMDOMWindow" - IO Int64 + IO CLong dOMDOMWindowGetScreenX :: (MonadIO m, DOMDOMWindowK a) => a -- _obj - -> m Int64 -- result + -> m CLong -- result dOMDOMWindowGetScreenX _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- webkit_dom_dom_window_get_screen_x _obj' @@ -3001,26 +3271,26 @@ return result data DOMDOMWindowGetScreenXMethodInfo -instance (signature ~ (m Int64), MonadIO m, DOMDOMWindowK a) => MethodInfo DOMDOMWindowGetScreenXMethodInfo a signature where +instance (signature ~ (m CLong), MonadIO m, DOMDOMWindowK a) => MethodInfo DOMDOMWindowGetScreenXMethodInfo a signature where overloadedMethod _ = dOMDOMWindowGetScreenX -- method DOMDOMWindow::get_screen_y -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TInt64 +-- returnType : Just (TBasicType TLong) -- throws : False -- Skip return : False foreign import ccall "webkit_dom_dom_window_get_screen_y" webkit_dom_dom_window_get_screen_y :: Ptr DOMDOMWindow -> -- _obj : TInterface "WebKit" "DOMDOMWindow" - IO Int64 + IO CLong dOMDOMWindowGetScreenY :: (MonadIO m, DOMDOMWindowK a) => a -- _obj - -> m Int64 -- result + -> m CLong -- result dOMDOMWindowGetScreenY _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- webkit_dom_dom_window_get_screen_y _obj' @@ -3028,26 +3298,26 @@ return result data DOMDOMWindowGetScreenYMethodInfo -instance (signature ~ (m Int64), MonadIO m, DOMDOMWindowK a) => MethodInfo DOMDOMWindowGetScreenYMethodInfo a signature where +instance (signature ~ (m CLong), MonadIO m, DOMDOMWindowK a) => MethodInfo DOMDOMWindowGetScreenYMethodInfo a signature where overloadedMethod _ = dOMDOMWindowGetScreenY -- method DOMDOMWindow::get_scroll_x -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TInt64 +-- returnType : Just (TBasicType TLong) -- throws : False -- Skip return : False foreign import ccall "webkit_dom_dom_window_get_scroll_x" webkit_dom_dom_window_get_scroll_x :: Ptr DOMDOMWindow -> -- _obj : TInterface "WebKit" "DOMDOMWindow" - IO Int64 + IO CLong dOMDOMWindowGetScrollX :: (MonadIO m, DOMDOMWindowK a) => a -- _obj - -> m Int64 -- result + -> m CLong -- result dOMDOMWindowGetScrollX _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- webkit_dom_dom_window_get_scroll_x _obj' @@ -3055,26 +3325,26 @@ return result data DOMDOMWindowGetScrollXMethodInfo -instance (signature ~ (m Int64), MonadIO m, DOMDOMWindowK a) => MethodInfo DOMDOMWindowGetScrollXMethodInfo a signature where +instance (signature ~ (m CLong), MonadIO m, DOMDOMWindowK a) => MethodInfo DOMDOMWindowGetScrollXMethodInfo a signature where overloadedMethod _ = dOMDOMWindowGetScrollX -- method DOMDOMWindow::get_scroll_y -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TInt64 +-- returnType : Just (TBasicType TLong) -- throws : False -- Skip return : False foreign import ccall "webkit_dom_dom_window_get_scroll_y" webkit_dom_dom_window_get_scroll_y :: Ptr DOMDOMWindow -> -- _obj : TInterface "WebKit" "DOMDOMWindow" - IO Int64 + IO CLong dOMDOMWindowGetScrollY :: (MonadIO m, DOMDOMWindowK a) => a -- _obj - -> m Int64 -- result + -> m CLong -- result dOMDOMWindowGetScrollY _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- webkit_dom_dom_window_get_scroll_y _obj' @@ -3082,14 +3352,14 @@ return result data DOMDOMWindowGetScrollYMethodInfo -instance (signature ~ (m Int64), MonadIO m, DOMDOMWindowK a) => MethodInfo DOMDOMWindowGetScrollYMethodInfo a signature where +instance (signature ~ (m CLong), MonadIO m, DOMDOMWindowK a) => MethodInfo DOMDOMWindowGetScrollYMethodInfo a signature where overloadedMethod _ = dOMDOMWindowGetScrollY -- method DOMDOMWindow::get_scrollbars -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit" "DOMBarProp" +-- returnType : Just (TInterface "WebKit" "DOMBarProp") -- throws : False -- Skip return : False @@ -3118,7 +3388,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit" "DOMDOMSelection" +-- returnType : Just (TInterface "WebKit" "DOMDOMSelection") -- throws : False -- Skip return : False @@ -3147,7 +3417,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit" "DOMDOMWindow" +-- returnType : Just (TInterface "WebKit" "DOMDOMWindow") -- throws : False -- Skip return : False @@ -3176,7 +3446,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit" "DOMStorage" +-- returnType : Just (TInterface "WebKit" "DOMStorage") -- throws : True -- Skip return : False @@ -3210,7 +3480,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -3240,7 +3510,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit" "DOMBarProp" +-- returnType : Just (TInterface "WebKit" "DOMBarProp") -- throws : False -- Skip return : False @@ -3269,7 +3539,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit" "DOMStyleMedia" +-- returnType : Just (TInterface "WebKit" "DOMStyleMedia") -- throws : False -- Skip return : False @@ -3298,7 +3568,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit" "DOMBarProp" +-- returnType : Just (TInterface "WebKit" "DOMBarProp") -- throws : False -- Skip return : False @@ -3327,7 +3597,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit" "DOMDOMWindow" +-- returnType : Just (TInterface "WebKit" "DOMDOMWindow") -- throws : False -- Skip return : False @@ -3356,7 +3626,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit" "DOMStorageInfo" +-- returnType : Just (TInterface "WebKit" "DOMStorageInfo") -- throws : False -- Skip return : False @@ -3385,7 +3655,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit" "DOMDOMWindow" +-- returnType : Just (TInterface "WebKit" "DOMDOMWindow") -- throws : False -- Skip return : False @@ -3414,7 +3684,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "query", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit" "DOMMediaQueryList" +-- returnType : Just (TInterface "WebKit" "DOMMediaQueryList") -- throws : False -- Skip return : False @@ -3447,7 +3717,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -3480,7 +3750,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -3513,7 +3783,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -3540,7 +3810,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "message", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "defaultValue", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -3578,7 +3848,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -3605,7 +3875,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -3638,7 +3908,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "width", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "height", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -3669,24 +3939,24 @@ -- method DOMDOMWindow::scroll -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TLong, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y", argType = TBasicType TLong, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "webkit_dom_dom_window_scroll" webkit_dom_dom_window_scroll :: Ptr DOMDOMWindow -> -- _obj : TInterface "WebKit" "DOMDOMWindow" - Int64 -> -- x : TBasicType TInt64 - Int64 -> -- y : TBasicType TInt64 + CLong -> -- x : TBasicType TLong + CLong -> -- y : TBasicType TLong IO () dOMDOMWindowScroll :: (MonadIO m, DOMDOMWindowK a) => a -- _obj - -> Int64 -- x - -> Int64 -- y + -> CLong -- x + -> CLong -- y -> m () -- result dOMDOMWindowScroll _obj x y = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj @@ -3695,29 +3965,29 @@ return () data DOMDOMWindowScrollMethodInfo -instance (signature ~ (Int64 -> Int64 -> m ()), MonadIO m, DOMDOMWindowK a) => MethodInfo DOMDOMWindowScrollMethodInfo a signature where +instance (signature ~ (CLong -> CLong -> m ()), MonadIO m, DOMDOMWindowK a) => MethodInfo DOMDOMWindowScrollMethodInfo a signature where overloadedMethod _ = dOMDOMWindowScroll -- method DOMDOMWindow::scroll_by -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TLong, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y", argType = TBasicType TLong, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "webkit_dom_dom_window_scroll_by" webkit_dom_dom_window_scroll_by :: Ptr DOMDOMWindow -> -- _obj : TInterface "WebKit" "DOMDOMWindow" - Int64 -> -- x : TBasicType TInt64 - Int64 -> -- y : TBasicType TInt64 + CLong -> -- x : TBasicType TLong + CLong -> -- y : TBasicType TLong IO () dOMDOMWindowScrollBy :: (MonadIO m, DOMDOMWindowK a) => a -- _obj - -> Int64 -- x - -> Int64 -- y + -> CLong -- x + -> CLong -- y -> m () -- result dOMDOMWindowScrollBy _obj x y = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj @@ -3726,29 +3996,29 @@ return () data DOMDOMWindowScrollByMethodInfo -instance (signature ~ (Int64 -> Int64 -> m ()), MonadIO m, DOMDOMWindowK a) => MethodInfo DOMDOMWindowScrollByMethodInfo a signature where +instance (signature ~ (CLong -> CLong -> m ()), MonadIO m, DOMDOMWindowK a) => MethodInfo DOMDOMWindowScrollByMethodInfo a signature where overloadedMethod _ = dOMDOMWindowScrollBy -- method DOMDOMWindow::scroll_to -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TLong, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y", argType = TBasicType TLong, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "webkit_dom_dom_window_scroll_to" webkit_dom_dom_window_scroll_to :: Ptr DOMDOMWindow -> -- _obj : TInterface "WebKit" "DOMDOMWindow" - Int64 -> -- x : TBasicType TInt64 - Int64 -> -- y : TBasicType TInt64 + CLong -> -- x : TBasicType TLong + CLong -> -- y : TBasicType TLong IO () dOMDOMWindowScrollTo :: (MonadIO m, DOMDOMWindowK a) => a -- _obj - -> Int64 -- x - -> Int64 -- y + -> CLong -- x + -> CLong -- y -> m () -- result dOMDOMWindowScrollTo _obj x y = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj @@ -3757,14 +4027,14 @@ return () data DOMDOMWindowScrollToMethodInfo -instance (signature ~ (Int64 -> Int64 -> m ()), MonadIO m, DOMDOMWindowK a) => MethodInfo DOMDOMWindowScrollToMethodInfo a signature where +instance (signature ~ (CLong -> CLong -> m ()), MonadIO m, DOMDOMWindowK a) => MethodInfo DOMDOMWindowScrollToMethodInfo a signature where overloadedMethod _ = dOMDOMWindowScrollTo -- method DOMDOMWindow::set_default_status -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -3795,7 +4065,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -3826,7 +4096,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -3857,7 +4127,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -3882,22 +4152,22 @@ -- method DOMDOMWindow::webkit_cancel_animation_frame -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "id", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "id", argType = TBasicType TLong, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "webkit_dom_dom_window_webkit_cancel_animation_frame" webkit_dom_dom_window_webkit_cancel_animation_frame :: Ptr DOMDOMWindow -> -- _obj : TInterface "WebKit" "DOMDOMWindow" - Int64 -> -- id : TBasicType TInt64 + CLong -> -- id : TBasicType TLong IO () dOMDOMWindowWebkitCancelAnimationFrame :: (MonadIO m, DOMDOMWindowK a) => a -- _obj - -> Int64 -- id + -> CLong -- id -> m () -- result dOMDOMWindowWebkitCancelAnimationFrame _obj id = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj @@ -3906,27 +4176,27 @@ return () data DOMDOMWindowWebkitCancelAnimationFrameMethodInfo -instance (signature ~ (Int64 -> m ()), MonadIO m, DOMDOMWindowK a) => MethodInfo DOMDOMWindowWebkitCancelAnimationFrameMethodInfo a signature where +instance (signature ~ (CLong -> m ()), MonadIO m, DOMDOMWindowK a) => MethodInfo DOMDOMWindowWebkitCancelAnimationFrameMethodInfo a signature where overloadedMethod _ = dOMDOMWindowWebkitCancelAnimationFrame -- method DOMDOMWindow::webkit_cancel_request_animation_frame -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "id", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "id", argType = TBasicType TLong, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "webkit_dom_dom_window_webkit_cancel_request_animation_frame" webkit_dom_dom_window_webkit_cancel_request_animation_frame :: Ptr DOMDOMWindow -> -- _obj : TInterface "WebKit" "DOMDOMWindow" - Int64 -> -- id : TBasicType TInt64 + CLong -> -- id : TBasicType TLong IO () dOMDOMWindowWebkitCancelRequestAnimationFrame :: (MonadIO m, DOMDOMWindowK a) => a -- _obj - -> Int64 -- id + -> CLong -- id -> m () -- result dOMDOMWindowWebkitCancelRequestAnimationFrame _obj id = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj @@ -3935,14 +4205,14 @@ return () data DOMDOMWindowWebkitCancelRequestAnimationFrameMethodInfo -instance (signature ~ (Int64 -> m ()), MonadIO m, DOMDOMWindowK a) => MethodInfo DOMDOMWindowWebkitCancelRequestAnimationFrameMethodInfo a signature where +instance (signature ~ (CLong -> m ()), MonadIO m, DOMDOMWindowK a) => MethodInfo DOMDOMWindowWebkitCancelRequestAnimationFrameMethodInfo a signature where overloadedMethod _ = dOMDOMWindowWebkitCancelRequestAnimationFrame -- method DOMDOMWindow::webkit_convert_point_from_node_to_page -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "node", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "p", argType = TInterface "WebKit" "DOMWebKitPoint", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit" "DOMWebKitPoint" +-- returnType : Just (TInterface "WebKit" "DOMWebKitPoint") -- throws : False -- Skip return : False @@ -3979,7 +4249,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "node", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "p", argType = TInterface "WebKit" "DOMWebKitPoint", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit" "DOMWebKitPoint" +-- returnType : Just (TInterface "WebKit" "DOMWebKitPoint") -- throws : False -- Skip return : False diff --git a/GI/WebKit/Objects/DOMDOMWindow.hs-boot b/GI/WebKit/Objects/DOMDOMWindow.hs-boot --- a/GI/WebKit/Objects/DOMDOMWindow.hs-boot +++ b/GI/WebKit/Objects/DOMDOMWindow.hs-boot @@ -1,8 +1,8 @@ module GI.WebKit.Objects.DOMDOMWindow where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map diff --git a/GI/WebKit/Objects/DOMDOMWindowCSS.hs b/GI/WebKit/Objects/DOMDOMWindowCSS.hs --- a/GI/WebKit/Objects/DOMDOMWindowCSS.hs +++ b/GI/WebKit/Objects/DOMDOMWindowCSS.hs @@ -26,9 +26,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map @@ -102,7 +102,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMDOMWindowCSS", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "property", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False diff --git a/GI/WebKit/Objects/DOMDOMWindowCSS.hs-boot b/GI/WebKit/Objects/DOMDOMWindowCSS.hs-boot --- a/GI/WebKit/Objects/DOMDOMWindowCSS.hs-boot +++ b/GI/WebKit/Objects/DOMDOMWindowCSS.hs-boot @@ -1,8 +1,8 @@ module GI.WebKit.Objects.DOMDOMWindowCSS where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map diff --git a/GI/WebKit/Objects/DOMDatabase.hs b/GI/WebKit/Objects/DOMDatabase.hs --- a/GI/WebKit/Objects/DOMDatabase.hs +++ b/GI/WebKit/Objects/DOMDatabase.hs @@ -27,6 +27,7 @@ -- * Properties -- ** Version DOMDatabaseVersionPropertyInfo , + dOMDatabaseVersion , getDOMDatabaseVersion , @@ -34,9 +35,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map @@ -103,24 +104,29 @@ -- VVV Prop "version" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable] + -- Nullable: (Nothing,Nothing) -getDOMDatabaseVersion :: (MonadIO m, DOMDatabaseK o) => o -> m T.Text +getDOMDatabaseVersion :: (MonadIO m, DOMDatabaseK o) => o -> m (Maybe T.Text) getDOMDatabaseVersion obj = liftIO $ getObjectPropertyString obj "version" data DOMDatabaseVersionPropertyInfo instance AttrInfo DOMDatabaseVersionPropertyInfo where - type AttrAllowedOps DOMDatabaseVersionPropertyInfo = '[ 'AttrGet] + type AttrAllowedOps DOMDatabaseVersionPropertyInfo = '[ 'AttrGet, 'AttrClear] type AttrSetTypeConstraint DOMDatabaseVersionPropertyInfo = (~) () type AttrBaseTypeConstraint DOMDatabaseVersionPropertyInfo = DOMDatabaseK - type AttrGetType DOMDatabaseVersionPropertyInfo = T.Text + type AttrGetType DOMDatabaseVersionPropertyInfo = (Maybe T.Text) type AttrLabel DOMDatabaseVersionPropertyInfo = "version" attrGet _ = getDOMDatabaseVersion attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined type instance AttributeList DOMDatabase = DOMDatabaseAttributeList type DOMDatabaseAttributeList = ('[ '("coreObject", DOMObjectCoreObjectPropertyInfo), '("version", DOMDatabaseVersionPropertyInfo)] :: [(Symbol, *)]) +dOMDatabaseVersion :: AttrLabelProxy "version" +dOMDatabaseVersion = AttrLabelProxy + type instance SignalList DOMDatabase = DOMDatabaseSignalList type DOMDatabaseSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) @@ -128,7 +134,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMDatabase", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False diff --git a/GI/WebKit/Objects/DOMDatabase.hs-boot b/GI/WebKit/Objects/DOMDatabase.hs-boot --- a/GI/WebKit/Objects/DOMDatabase.hs-boot +++ b/GI/WebKit/Objects/DOMDatabase.hs-boot @@ -1,8 +1,8 @@ module GI.WebKit.Objects.DOMDatabase where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map diff --git a/GI/WebKit/Objects/DOMDocument.hs b/GI/WebKit/Objects/DOMDocument.hs --- a/GI/WebKit/Objects/DOMDocument.hs +++ b/GI/WebKit/Objects/DOMDocument.hs @@ -477,214 +477,256 @@ -- * Properties -- ** Anchors DOMDocumentAnchorsPropertyInfo , + dOMDocumentAnchors , getDOMDocumentAnchors , -- ** Applets DOMDocumentAppletsPropertyInfo , + dOMDocumentApplets , getDOMDocumentApplets , -- ** Body DOMDocumentBodyPropertyInfo , + dOMDocumentBody , getDOMDocumentBody , -- ** CharacterSet DOMDocumentCharacterSetPropertyInfo , + dOMDocumentCharacterSet , getDOMDocumentCharacterSet , -- ** Charset DOMDocumentCharsetPropertyInfo , constructDOMDocumentCharset , + dOMDocumentCharset , getDOMDocumentCharset , setDOMDocumentCharset , -- ** CompatMode DOMDocumentCompatModePropertyInfo , + dOMDocumentCompatMode , getDOMDocumentCompatMode , -- ** Cookie DOMDocumentCookiePropertyInfo , + clearDOMDocumentCookie , constructDOMDocumentCookie , + dOMDocumentCookie , getDOMDocumentCookie , setDOMDocumentCookie , -- ** CurrentScript DOMDocumentCurrentScriptPropertyInfo , + dOMDocumentCurrentScript , getDOMDocumentCurrentScript , -- ** DefaultCharset DOMDocumentDefaultCharsetPropertyInfo , + dOMDocumentDefaultCharset , getDOMDocumentDefaultCharset , -- ** DefaultView DOMDocumentDefaultViewPropertyInfo , + dOMDocumentDefaultView , getDOMDocumentDefaultView , -- ** Doctype DOMDocumentDoctypePropertyInfo , + dOMDocumentDoctype , getDOMDocumentDoctype , -- ** DocumentElement DOMDocumentDocumentElementPropertyInfo , + dOMDocumentDocumentElement , getDOMDocumentDocumentElement , -- ** DocumentUri DOMDocumentDocumentUriPropertyInfo , constructDOMDocumentDocumentUri , + dOMDocumentDocumentUri , getDOMDocumentDocumentUri , setDOMDocumentDocumentUri , -- ** Domain DOMDocumentDomainPropertyInfo , + dOMDocumentDomain , getDOMDocumentDomain , -- ** Forms DOMDocumentFormsPropertyInfo , + dOMDocumentForms , getDOMDocumentForms , -- ** Head DOMDocumentHeadPropertyInfo , + dOMDocumentHead , getDOMDocumentHead , -- ** Hidden DOMDocumentHiddenPropertyInfo , + dOMDocumentHidden , getDOMDocumentHidden , -- ** Images DOMDocumentImagesPropertyInfo , + dOMDocumentImages , getDOMDocumentImages , -- ** Implementation DOMDocumentImplementationPropertyInfo , + dOMDocumentImplementation , getDOMDocumentImplementation , -- ** InputEncoding DOMDocumentInputEncodingPropertyInfo , + dOMDocumentInputEncoding , getDOMDocumentInputEncoding , -- ** LastModified DOMDocumentLastModifiedPropertyInfo , + dOMDocumentLastModified , getDOMDocumentLastModified , -- ** Links DOMDocumentLinksPropertyInfo , + dOMDocumentLinks , getDOMDocumentLinks , -- ** PreferredStylesheetSet DOMDocumentPreferredStylesheetSetPropertyInfo, + dOMDocumentPreferredStylesheetSet , getDOMDocumentPreferredStylesheetSet , -- ** ReadyState DOMDocumentReadyStatePropertyInfo , + dOMDocumentReadyState , getDOMDocumentReadyState , -- ** Referrer DOMDocumentReferrerPropertyInfo , + dOMDocumentReferrer , getDOMDocumentReferrer , -- ** SecurityPolicy DOMDocumentSecurityPolicyPropertyInfo , + dOMDocumentSecurityPolicy , getDOMDocumentSecurityPolicy , -- ** SelectedStylesheetSet DOMDocumentSelectedStylesheetSetPropertyInfo, constructDOMDocumentSelectedStylesheetSet, + dOMDocumentSelectedStylesheetSet , getDOMDocumentSelectedStylesheetSet , setDOMDocumentSelectedStylesheetSet , -- ** StyleSheets DOMDocumentStyleSheetsPropertyInfo , + dOMDocumentStyleSheets , getDOMDocumentStyleSheets , -- ** Title DOMDocumentTitlePropertyInfo , constructDOMDocumentTitle , + dOMDocumentTitle , getDOMDocumentTitle , setDOMDocumentTitle , -- ** Url DOMDocumentUrlPropertyInfo , + dOMDocumentUrl , getDOMDocumentUrl , -- ** VisibilityState DOMDocumentVisibilityStatePropertyInfo , + dOMDocumentVisibilityState , getDOMDocumentVisibilityState , -- ** WebkitCurrentFullScreenElement DOMDocumentWebkitCurrentFullScreenElementPropertyInfo, + dOMDocumentWebkitCurrentFullScreenElement, getDOMDocumentWebkitCurrentFullScreenElement, -- ** WebkitFullScreenKeyboardInputAllowed DOMDocumentWebkitFullScreenKeyboardInputAllowedPropertyInfo, + dOMDocumentWebkitFullScreenKeyboardInputAllowed, getDOMDocumentWebkitFullScreenKeyboardInputAllowed, -- ** WebkitFullscreenElement DOMDocumentWebkitFullscreenElementPropertyInfo, + dOMDocumentWebkitFullscreenElement , getDOMDocumentWebkitFullscreenElement , -- ** WebkitFullscreenEnabled DOMDocumentWebkitFullscreenEnabledPropertyInfo, + dOMDocumentWebkitFullscreenEnabled , getDOMDocumentWebkitFullscreenEnabled , -- ** WebkitIsFullScreen DOMDocumentWebkitIsFullScreenPropertyInfo, + dOMDocumentWebkitIsFullScreen , getDOMDocumentWebkitIsFullScreen , -- ** WebkitPointerLockElement DOMDocumentWebkitPointerLockElementPropertyInfo, + dOMDocumentWebkitPointerLockElement , getDOMDocumentWebkitPointerLockElement , -- ** XmlEncoding DOMDocumentXmlEncodingPropertyInfo , + dOMDocumentXmlEncoding , getDOMDocumentXmlEncoding , -- ** XmlStandalone DOMDocumentXmlStandalonePropertyInfo , constructDOMDocumentXmlStandalone , + dOMDocumentXmlStandalone , getDOMDocumentXmlStandalone , setDOMDocumentXmlStandalone , -- ** XmlVersion DOMDocumentXmlVersionPropertyInfo , + clearDOMDocumentXmlVersion , constructDOMDocumentXmlVersion , + dOMDocumentXmlVersion , getDOMDocumentXmlVersion , setDOMDocumentXmlVersion , @@ -693,9 +735,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map @@ -890,49 +932,54 @@ -- VVV Prop "anchors" -- Type: TInterface "WebKit" "DOMHTMLCollection" -- Flags: [PropertyReadable] + -- Nullable: (Nothing,Nothing) -getDOMDocumentAnchors :: (MonadIO m, DOMDocumentK o) => o -> m DOMHTMLCollection +getDOMDocumentAnchors :: (MonadIO m, DOMDocumentK o) => o -> m (Maybe DOMHTMLCollection) getDOMDocumentAnchors obj = liftIO $ getObjectPropertyObject obj "anchors" DOMHTMLCollection data DOMDocumentAnchorsPropertyInfo instance AttrInfo DOMDocumentAnchorsPropertyInfo where - type AttrAllowedOps DOMDocumentAnchorsPropertyInfo = '[ 'AttrGet] + type AttrAllowedOps DOMDocumentAnchorsPropertyInfo = '[ 'AttrGet, 'AttrClear] type AttrSetTypeConstraint DOMDocumentAnchorsPropertyInfo = (~) () type AttrBaseTypeConstraint DOMDocumentAnchorsPropertyInfo = DOMDocumentK - type AttrGetType DOMDocumentAnchorsPropertyInfo = DOMHTMLCollection + type AttrGetType DOMDocumentAnchorsPropertyInfo = (Maybe DOMHTMLCollection) type AttrLabel DOMDocumentAnchorsPropertyInfo = "anchors" attrGet _ = getDOMDocumentAnchors attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "applets" -- Type: TInterface "WebKit" "DOMHTMLCollection" -- Flags: [PropertyReadable] + -- Nullable: (Nothing,Nothing) -getDOMDocumentApplets :: (MonadIO m, DOMDocumentK o) => o -> m DOMHTMLCollection +getDOMDocumentApplets :: (MonadIO m, DOMDocumentK o) => o -> m (Maybe DOMHTMLCollection) getDOMDocumentApplets obj = liftIO $ getObjectPropertyObject obj "applets" DOMHTMLCollection data DOMDocumentAppletsPropertyInfo instance AttrInfo DOMDocumentAppletsPropertyInfo where - type AttrAllowedOps DOMDocumentAppletsPropertyInfo = '[ 'AttrGet] + type AttrAllowedOps DOMDocumentAppletsPropertyInfo = '[ 'AttrGet, 'AttrClear] type AttrSetTypeConstraint DOMDocumentAppletsPropertyInfo = (~) () type AttrBaseTypeConstraint DOMDocumentAppletsPropertyInfo = DOMDocumentK - type AttrGetType DOMDocumentAppletsPropertyInfo = DOMHTMLCollection + type AttrGetType DOMDocumentAppletsPropertyInfo = (Maybe DOMHTMLCollection) type AttrLabel DOMDocumentAppletsPropertyInfo = "applets" attrGet _ = getDOMDocumentApplets attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "body" -- Type: TInterface "WebKit" "DOMHTMLElement" -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) getDOMDocumentBody :: (MonadIO m, DOMDocumentK o) => o -> m DOMHTMLElement -getDOMDocumentBody obj = liftIO $ getObjectPropertyObject obj "body" DOMHTMLElement +getDOMDocumentBody obj = liftIO $ checkUnexpectedNothing "getDOMDocumentBody" $ getObjectPropertyObject obj "body" DOMHTMLElement data DOMDocumentBodyPropertyInfo instance AttrInfo DOMDocumentBodyPropertyInfo where - type AttrAllowedOps DOMDocumentBodyPropertyInfo = '[ 'AttrGet] + type AttrAllowedOps DOMDocumentBodyPropertyInfo = '[ 'AttrGet, 'AttrClear] type AttrSetTypeConstraint DOMDocumentBodyPropertyInfo = (~) () type AttrBaseTypeConstraint DOMDocumentBodyPropertyInfo = DOMDocumentK type AttrGetType DOMDocumentBodyPropertyInfo = DOMHTMLElement @@ -940,101 +987,114 @@ attrGet _ = getDOMDocumentBody attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "character-set" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable] + -- Nullable: (Nothing,Nothing) -getDOMDocumentCharacterSet :: (MonadIO m, DOMDocumentK o) => o -> m T.Text +getDOMDocumentCharacterSet :: (MonadIO m, DOMDocumentK o) => o -> m (Maybe T.Text) getDOMDocumentCharacterSet obj = liftIO $ getObjectPropertyString obj "character-set" data DOMDocumentCharacterSetPropertyInfo instance AttrInfo DOMDocumentCharacterSetPropertyInfo where - type AttrAllowedOps DOMDocumentCharacterSetPropertyInfo = '[ 'AttrGet] + type AttrAllowedOps DOMDocumentCharacterSetPropertyInfo = '[ 'AttrGet, 'AttrClear] type AttrSetTypeConstraint DOMDocumentCharacterSetPropertyInfo = (~) () type AttrBaseTypeConstraint DOMDocumentCharacterSetPropertyInfo = DOMDocumentK - type AttrGetType DOMDocumentCharacterSetPropertyInfo = T.Text + type AttrGetType DOMDocumentCharacterSetPropertyInfo = (Maybe T.Text) type AttrLabel DOMDocumentCharacterSetPropertyInfo = "character-set" attrGet _ = getDOMDocumentCharacterSet attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "charset" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Just False) -getDOMDocumentCharset :: (MonadIO m, DOMDocumentK o) => o -> m T.Text +getDOMDocumentCharset :: (MonadIO m, DOMDocumentK o) => o -> m (Maybe T.Text) getDOMDocumentCharset obj = liftIO $ getObjectPropertyString obj "charset" setDOMDocumentCharset :: (MonadIO m, DOMDocumentK o) => o -> T.Text -> m () -setDOMDocumentCharset obj val = liftIO $ setObjectPropertyString obj "charset" val +setDOMDocumentCharset obj val = liftIO $ setObjectPropertyString obj "charset" (Just val) constructDOMDocumentCharset :: T.Text -> IO ([Char], GValue) -constructDOMDocumentCharset val = constructObjectPropertyString "charset" val +constructDOMDocumentCharset val = constructObjectPropertyString "charset" (Just val) data DOMDocumentCharsetPropertyInfo instance AttrInfo DOMDocumentCharsetPropertyInfo where type AttrAllowedOps DOMDocumentCharsetPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint DOMDocumentCharsetPropertyInfo = (~) T.Text type AttrBaseTypeConstraint DOMDocumentCharsetPropertyInfo = DOMDocumentK - type AttrGetType DOMDocumentCharsetPropertyInfo = T.Text + type AttrGetType DOMDocumentCharsetPropertyInfo = (Maybe T.Text) type AttrLabel DOMDocumentCharsetPropertyInfo = "charset" attrGet _ = getDOMDocumentCharset attrSet _ = setDOMDocumentCharset attrConstruct _ = constructDOMDocumentCharset + attrClear _ = undefined -- VVV Prop "compat-mode" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable] + -- Nullable: (Nothing,Nothing) -getDOMDocumentCompatMode :: (MonadIO m, DOMDocumentK o) => o -> m T.Text +getDOMDocumentCompatMode :: (MonadIO m, DOMDocumentK o) => o -> m (Maybe T.Text) getDOMDocumentCompatMode obj = liftIO $ getObjectPropertyString obj "compat-mode" data DOMDocumentCompatModePropertyInfo instance AttrInfo DOMDocumentCompatModePropertyInfo where - type AttrAllowedOps DOMDocumentCompatModePropertyInfo = '[ 'AttrGet] + type AttrAllowedOps DOMDocumentCompatModePropertyInfo = '[ 'AttrGet, 'AttrClear] type AttrSetTypeConstraint DOMDocumentCompatModePropertyInfo = (~) () type AttrBaseTypeConstraint DOMDocumentCompatModePropertyInfo = DOMDocumentK - type AttrGetType DOMDocumentCompatModePropertyInfo = T.Text + type AttrGetType DOMDocumentCompatModePropertyInfo = (Maybe T.Text) type AttrLabel DOMDocumentCompatModePropertyInfo = "compat-mode" attrGet _ = getDOMDocumentCompatMode attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "cookie" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) -getDOMDocumentCookie :: (MonadIO m, DOMDocumentK o) => o -> m T.Text +getDOMDocumentCookie :: (MonadIO m, DOMDocumentK o) => o -> m (Maybe T.Text) getDOMDocumentCookie obj = liftIO $ getObjectPropertyString obj "cookie" setDOMDocumentCookie :: (MonadIO m, DOMDocumentK o) => o -> T.Text -> m () -setDOMDocumentCookie obj val = liftIO $ setObjectPropertyString obj "cookie" val +setDOMDocumentCookie obj val = liftIO $ setObjectPropertyString obj "cookie" (Just val) constructDOMDocumentCookie :: T.Text -> IO ([Char], GValue) -constructDOMDocumentCookie val = constructObjectPropertyString "cookie" val +constructDOMDocumentCookie val = constructObjectPropertyString "cookie" (Just val) +clearDOMDocumentCookie :: (MonadIO m, DOMDocumentK o) => o -> m () +clearDOMDocumentCookie obj = liftIO $ setObjectPropertyString obj "cookie" (Nothing :: Maybe T.Text) + data DOMDocumentCookiePropertyInfo instance AttrInfo DOMDocumentCookiePropertyInfo where - type AttrAllowedOps DOMDocumentCookiePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrAllowedOps DOMDocumentCookiePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint DOMDocumentCookiePropertyInfo = (~) T.Text type AttrBaseTypeConstraint DOMDocumentCookiePropertyInfo = DOMDocumentK - type AttrGetType DOMDocumentCookiePropertyInfo = T.Text + type AttrGetType DOMDocumentCookiePropertyInfo = (Maybe T.Text) type AttrLabel DOMDocumentCookiePropertyInfo = "cookie" attrGet _ = getDOMDocumentCookie attrSet _ = setDOMDocumentCookie attrConstruct _ = constructDOMDocumentCookie + attrClear _ = clearDOMDocumentCookie -- VVV Prop "current-script" -- Type: TInterface "WebKit" "DOMHTMLScriptElement" -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) getDOMDocumentCurrentScript :: (MonadIO m, DOMDocumentK o) => o -> m DOMHTMLScriptElement -getDOMDocumentCurrentScript obj = liftIO $ getObjectPropertyObject obj "current-script" DOMHTMLScriptElement +getDOMDocumentCurrentScript obj = liftIO $ checkUnexpectedNothing "getDOMDocumentCurrentScript" $ getObjectPropertyObject obj "current-script" DOMHTMLScriptElement data DOMDocumentCurrentScriptPropertyInfo instance AttrInfo DOMDocumentCurrentScriptPropertyInfo where - type AttrAllowedOps DOMDocumentCurrentScriptPropertyInfo = '[ 'AttrGet] + type AttrAllowedOps DOMDocumentCurrentScriptPropertyInfo = '[ 'AttrGet, 'AttrClear] type AttrSetTypeConstraint DOMDocumentCurrentScriptPropertyInfo = (~) () type AttrBaseTypeConstraint DOMDocumentCurrentScriptPropertyInfo = DOMDocumentK type AttrGetType DOMDocumentCurrentScriptPropertyInfo = DOMHTMLScriptElement @@ -1042,53 +1102,59 @@ attrGet _ = getDOMDocumentCurrentScript attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "default-charset" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable] + -- Nullable: (Nothing,Nothing) -getDOMDocumentDefaultCharset :: (MonadIO m, DOMDocumentK o) => o -> m T.Text +getDOMDocumentDefaultCharset :: (MonadIO m, DOMDocumentK o) => o -> m (Maybe T.Text) getDOMDocumentDefaultCharset obj = liftIO $ getObjectPropertyString obj "default-charset" data DOMDocumentDefaultCharsetPropertyInfo instance AttrInfo DOMDocumentDefaultCharsetPropertyInfo where - type AttrAllowedOps DOMDocumentDefaultCharsetPropertyInfo = '[ 'AttrGet] + type AttrAllowedOps DOMDocumentDefaultCharsetPropertyInfo = '[ 'AttrGet, 'AttrClear] type AttrSetTypeConstraint DOMDocumentDefaultCharsetPropertyInfo = (~) () type AttrBaseTypeConstraint DOMDocumentDefaultCharsetPropertyInfo = DOMDocumentK - type AttrGetType DOMDocumentDefaultCharsetPropertyInfo = T.Text + type AttrGetType DOMDocumentDefaultCharsetPropertyInfo = (Maybe T.Text) type AttrLabel DOMDocumentDefaultCharsetPropertyInfo = "default-charset" attrGet _ = getDOMDocumentDefaultCharset attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "default-view" -- Type: TInterface "WebKit" "DOMDOMWindow" -- Flags: [PropertyReadable] + -- Nullable: (Nothing,Nothing) -getDOMDocumentDefaultView :: (MonadIO m, DOMDocumentK o) => o -> m DOMDOMWindow +getDOMDocumentDefaultView :: (MonadIO m, DOMDocumentK o) => o -> m (Maybe DOMDOMWindow) getDOMDocumentDefaultView obj = liftIO $ getObjectPropertyObject obj "default-view" DOMDOMWindow data DOMDocumentDefaultViewPropertyInfo instance AttrInfo DOMDocumentDefaultViewPropertyInfo where - type AttrAllowedOps DOMDocumentDefaultViewPropertyInfo = '[ 'AttrGet] + type AttrAllowedOps DOMDocumentDefaultViewPropertyInfo = '[ 'AttrGet, 'AttrClear] type AttrSetTypeConstraint DOMDocumentDefaultViewPropertyInfo = (~) () type AttrBaseTypeConstraint DOMDocumentDefaultViewPropertyInfo = DOMDocumentK - type AttrGetType DOMDocumentDefaultViewPropertyInfo = DOMDOMWindow + type AttrGetType DOMDocumentDefaultViewPropertyInfo = (Maybe DOMDOMWindow) type AttrLabel DOMDocumentDefaultViewPropertyInfo = "default-view" attrGet _ = getDOMDocumentDefaultView attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "doctype" -- Type: TInterface "WebKit" "DOMDocumentType" -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) getDOMDocumentDoctype :: (MonadIO m, DOMDocumentK o) => o -> m DOMDocumentType -getDOMDocumentDoctype obj = liftIO $ getObjectPropertyObject obj "doctype" DOMDocumentType +getDOMDocumentDoctype obj = liftIO $ checkUnexpectedNothing "getDOMDocumentDoctype" $ getObjectPropertyObject obj "doctype" DOMDocumentType data DOMDocumentDoctypePropertyInfo instance AttrInfo DOMDocumentDoctypePropertyInfo where - type AttrAllowedOps DOMDocumentDoctypePropertyInfo = '[ 'AttrGet] + type AttrAllowedOps DOMDocumentDoctypePropertyInfo = '[ 'AttrGet, 'AttrClear] type AttrSetTypeConstraint DOMDocumentDoctypePropertyInfo = (~) () type AttrBaseTypeConstraint DOMDocumentDoctypePropertyInfo = DOMDocumentK type AttrGetType DOMDocumentDoctypePropertyInfo = DOMDocumentType @@ -1096,17 +1162,19 @@ attrGet _ = getDOMDocumentDoctype attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "document-element" -- Type: TInterface "WebKit" "DOMElement" -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) getDOMDocumentDocumentElement :: (MonadIO m, DOMDocumentK o) => o -> m DOMElement -getDOMDocumentDocumentElement obj = liftIO $ getObjectPropertyObject obj "document-element" DOMElement +getDOMDocumentDocumentElement obj = liftIO $ checkUnexpectedNothing "getDOMDocumentDocumentElement" $ getObjectPropertyObject obj "document-element" DOMElement data DOMDocumentDocumentElementPropertyInfo instance AttrInfo DOMDocumentDocumentElementPropertyInfo where - type AttrAllowedOps DOMDocumentDocumentElementPropertyInfo = '[ 'AttrGet] + type AttrAllowedOps DOMDocumentDocumentElementPropertyInfo = '[ 'AttrGet, 'AttrClear] type AttrSetTypeConstraint DOMDocumentDocumentElementPropertyInfo = (~) () type AttrBaseTypeConstraint DOMDocumentDocumentElementPropertyInfo = DOMDocumentK type AttrGetType DOMDocumentDocumentElementPropertyInfo = DOMElement @@ -1114,77 +1182,85 @@ attrGet _ = getDOMDocumentDocumentElement attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "document-uri" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Just False) -getDOMDocumentDocumentUri :: (MonadIO m, DOMDocumentK o) => o -> m T.Text +getDOMDocumentDocumentUri :: (MonadIO m, DOMDocumentK o) => o -> m (Maybe T.Text) getDOMDocumentDocumentUri obj = liftIO $ getObjectPropertyString obj "document-uri" setDOMDocumentDocumentUri :: (MonadIO m, DOMDocumentK o) => o -> T.Text -> m () -setDOMDocumentDocumentUri obj val = liftIO $ setObjectPropertyString obj "document-uri" val +setDOMDocumentDocumentUri obj val = liftIO $ setObjectPropertyString obj "document-uri" (Just val) constructDOMDocumentDocumentUri :: T.Text -> IO ([Char], GValue) -constructDOMDocumentDocumentUri val = constructObjectPropertyString "document-uri" val +constructDOMDocumentDocumentUri val = constructObjectPropertyString "document-uri" (Just val) data DOMDocumentDocumentUriPropertyInfo instance AttrInfo DOMDocumentDocumentUriPropertyInfo where type AttrAllowedOps DOMDocumentDocumentUriPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint DOMDocumentDocumentUriPropertyInfo = (~) T.Text type AttrBaseTypeConstraint DOMDocumentDocumentUriPropertyInfo = DOMDocumentK - type AttrGetType DOMDocumentDocumentUriPropertyInfo = T.Text + type AttrGetType DOMDocumentDocumentUriPropertyInfo = (Maybe T.Text) type AttrLabel DOMDocumentDocumentUriPropertyInfo = "document-uri" attrGet _ = getDOMDocumentDocumentUri attrSet _ = setDOMDocumentDocumentUri attrConstruct _ = constructDOMDocumentDocumentUri + attrClear _ = undefined -- VVV Prop "domain" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable] + -- Nullable: (Nothing,Nothing) -getDOMDocumentDomain :: (MonadIO m, DOMDocumentK o) => o -> m T.Text +getDOMDocumentDomain :: (MonadIO m, DOMDocumentK o) => o -> m (Maybe T.Text) getDOMDocumentDomain obj = liftIO $ getObjectPropertyString obj "domain" data DOMDocumentDomainPropertyInfo instance AttrInfo DOMDocumentDomainPropertyInfo where - type AttrAllowedOps DOMDocumentDomainPropertyInfo = '[ 'AttrGet] + type AttrAllowedOps DOMDocumentDomainPropertyInfo = '[ 'AttrGet, 'AttrClear] type AttrSetTypeConstraint DOMDocumentDomainPropertyInfo = (~) () type AttrBaseTypeConstraint DOMDocumentDomainPropertyInfo = DOMDocumentK - type AttrGetType DOMDocumentDomainPropertyInfo = T.Text + type AttrGetType DOMDocumentDomainPropertyInfo = (Maybe T.Text) type AttrLabel DOMDocumentDomainPropertyInfo = "domain" attrGet _ = getDOMDocumentDomain attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "forms" -- Type: TInterface "WebKit" "DOMHTMLCollection" -- Flags: [PropertyReadable] + -- Nullable: (Nothing,Nothing) -getDOMDocumentForms :: (MonadIO m, DOMDocumentK o) => o -> m DOMHTMLCollection +getDOMDocumentForms :: (MonadIO m, DOMDocumentK o) => o -> m (Maybe DOMHTMLCollection) getDOMDocumentForms obj = liftIO $ getObjectPropertyObject obj "forms" DOMHTMLCollection data DOMDocumentFormsPropertyInfo instance AttrInfo DOMDocumentFormsPropertyInfo where - type AttrAllowedOps DOMDocumentFormsPropertyInfo = '[ 'AttrGet] + type AttrAllowedOps DOMDocumentFormsPropertyInfo = '[ 'AttrGet, 'AttrClear] type AttrSetTypeConstraint DOMDocumentFormsPropertyInfo = (~) () type AttrBaseTypeConstraint DOMDocumentFormsPropertyInfo = DOMDocumentK - type AttrGetType DOMDocumentFormsPropertyInfo = DOMHTMLCollection + type AttrGetType DOMDocumentFormsPropertyInfo = (Maybe DOMHTMLCollection) type AttrLabel DOMDocumentFormsPropertyInfo = "forms" attrGet _ = getDOMDocumentForms attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "head" -- Type: TInterface "WebKit" "DOMHTMLHeadElement" -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) getDOMDocumentHead :: (MonadIO m, DOMDocumentK o) => o -> m DOMHTMLHeadElement -getDOMDocumentHead obj = liftIO $ getObjectPropertyObject obj "head" DOMHTMLHeadElement +getDOMDocumentHead obj = liftIO $ checkUnexpectedNothing "getDOMDocumentHead" $ getObjectPropertyObject obj "head" DOMHTMLHeadElement data DOMDocumentHeadPropertyInfo instance AttrInfo DOMDocumentHeadPropertyInfo where - type AttrAllowedOps DOMDocumentHeadPropertyInfo = '[ 'AttrGet] + type AttrAllowedOps DOMDocumentHeadPropertyInfo = '[ 'AttrGet, 'AttrClear] type AttrSetTypeConstraint DOMDocumentHeadPropertyInfo = (~) () type AttrBaseTypeConstraint DOMDocumentHeadPropertyInfo = DOMDocumentK type AttrGetType DOMDocumentHeadPropertyInfo = DOMHTMLHeadElement @@ -1192,10 +1268,12 @@ attrGet _ = getDOMDocumentHead attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "hidden" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) getDOMDocumentHidden :: (MonadIO m, DOMDocumentK o) => o -> m Bool getDOMDocumentHidden obj = liftIO $ getObjectPropertyBool obj "hidden" @@ -1210,203 +1288,225 @@ attrGet _ = getDOMDocumentHidden attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "images" -- Type: TInterface "WebKit" "DOMHTMLCollection" -- Flags: [PropertyReadable] + -- Nullable: (Nothing,Nothing) -getDOMDocumentImages :: (MonadIO m, DOMDocumentK o) => o -> m DOMHTMLCollection +getDOMDocumentImages :: (MonadIO m, DOMDocumentK o) => o -> m (Maybe DOMHTMLCollection) getDOMDocumentImages obj = liftIO $ getObjectPropertyObject obj "images" DOMHTMLCollection data DOMDocumentImagesPropertyInfo instance AttrInfo DOMDocumentImagesPropertyInfo where - type AttrAllowedOps DOMDocumentImagesPropertyInfo = '[ 'AttrGet] + type AttrAllowedOps DOMDocumentImagesPropertyInfo = '[ 'AttrGet, 'AttrClear] type AttrSetTypeConstraint DOMDocumentImagesPropertyInfo = (~) () type AttrBaseTypeConstraint DOMDocumentImagesPropertyInfo = DOMDocumentK - type AttrGetType DOMDocumentImagesPropertyInfo = DOMHTMLCollection + type AttrGetType DOMDocumentImagesPropertyInfo = (Maybe DOMHTMLCollection) type AttrLabel DOMDocumentImagesPropertyInfo = "images" attrGet _ = getDOMDocumentImages attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "implementation" -- Type: TInterface "WebKit" "DOMDOMImplementation" -- Flags: [PropertyReadable] + -- Nullable: (Nothing,Nothing) -getDOMDocumentImplementation :: (MonadIO m, DOMDocumentK o) => o -> m DOMDOMImplementation +getDOMDocumentImplementation :: (MonadIO m, DOMDocumentK o) => o -> m (Maybe DOMDOMImplementation) getDOMDocumentImplementation obj = liftIO $ getObjectPropertyObject obj "implementation" DOMDOMImplementation data DOMDocumentImplementationPropertyInfo instance AttrInfo DOMDocumentImplementationPropertyInfo where - type AttrAllowedOps DOMDocumentImplementationPropertyInfo = '[ 'AttrGet] + type AttrAllowedOps DOMDocumentImplementationPropertyInfo = '[ 'AttrGet, 'AttrClear] type AttrSetTypeConstraint DOMDocumentImplementationPropertyInfo = (~) () type AttrBaseTypeConstraint DOMDocumentImplementationPropertyInfo = DOMDocumentK - type AttrGetType DOMDocumentImplementationPropertyInfo = DOMDOMImplementation + type AttrGetType DOMDocumentImplementationPropertyInfo = (Maybe DOMDOMImplementation) type AttrLabel DOMDocumentImplementationPropertyInfo = "implementation" attrGet _ = getDOMDocumentImplementation attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "input-encoding" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable] + -- Nullable: (Nothing,Nothing) -getDOMDocumentInputEncoding :: (MonadIO m, DOMDocumentK o) => o -> m T.Text +getDOMDocumentInputEncoding :: (MonadIO m, DOMDocumentK o) => o -> m (Maybe T.Text) getDOMDocumentInputEncoding obj = liftIO $ getObjectPropertyString obj "input-encoding" data DOMDocumentInputEncodingPropertyInfo instance AttrInfo DOMDocumentInputEncodingPropertyInfo where - type AttrAllowedOps DOMDocumentInputEncodingPropertyInfo = '[ 'AttrGet] + type AttrAllowedOps DOMDocumentInputEncodingPropertyInfo = '[ 'AttrGet, 'AttrClear] type AttrSetTypeConstraint DOMDocumentInputEncodingPropertyInfo = (~) () type AttrBaseTypeConstraint DOMDocumentInputEncodingPropertyInfo = DOMDocumentK - type AttrGetType DOMDocumentInputEncodingPropertyInfo = T.Text + type AttrGetType DOMDocumentInputEncodingPropertyInfo = (Maybe T.Text) type AttrLabel DOMDocumentInputEncodingPropertyInfo = "input-encoding" attrGet _ = getDOMDocumentInputEncoding attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "last-modified" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable] + -- Nullable: (Nothing,Nothing) -getDOMDocumentLastModified :: (MonadIO m, DOMDocumentK o) => o -> m T.Text +getDOMDocumentLastModified :: (MonadIO m, DOMDocumentK o) => o -> m (Maybe T.Text) getDOMDocumentLastModified obj = liftIO $ getObjectPropertyString obj "last-modified" data DOMDocumentLastModifiedPropertyInfo instance AttrInfo DOMDocumentLastModifiedPropertyInfo where - type AttrAllowedOps DOMDocumentLastModifiedPropertyInfo = '[ 'AttrGet] + type AttrAllowedOps DOMDocumentLastModifiedPropertyInfo = '[ 'AttrGet, 'AttrClear] type AttrSetTypeConstraint DOMDocumentLastModifiedPropertyInfo = (~) () type AttrBaseTypeConstraint DOMDocumentLastModifiedPropertyInfo = DOMDocumentK - type AttrGetType DOMDocumentLastModifiedPropertyInfo = T.Text + type AttrGetType DOMDocumentLastModifiedPropertyInfo = (Maybe T.Text) type AttrLabel DOMDocumentLastModifiedPropertyInfo = "last-modified" attrGet _ = getDOMDocumentLastModified attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "links" -- Type: TInterface "WebKit" "DOMHTMLCollection" -- Flags: [PropertyReadable] + -- Nullable: (Nothing,Nothing) -getDOMDocumentLinks :: (MonadIO m, DOMDocumentK o) => o -> m DOMHTMLCollection +getDOMDocumentLinks :: (MonadIO m, DOMDocumentK o) => o -> m (Maybe DOMHTMLCollection) getDOMDocumentLinks obj = liftIO $ getObjectPropertyObject obj "links" DOMHTMLCollection data DOMDocumentLinksPropertyInfo instance AttrInfo DOMDocumentLinksPropertyInfo where - type AttrAllowedOps DOMDocumentLinksPropertyInfo = '[ 'AttrGet] + type AttrAllowedOps DOMDocumentLinksPropertyInfo = '[ 'AttrGet, 'AttrClear] type AttrSetTypeConstraint DOMDocumentLinksPropertyInfo = (~) () type AttrBaseTypeConstraint DOMDocumentLinksPropertyInfo = DOMDocumentK - type AttrGetType DOMDocumentLinksPropertyInfo = DOMHTMLCollection + type AttrGetType DOMDocumentLinksPropertyInfo = (Maybe DOMHTMLCollection) type AttrLabel DOMDocumentLinksPropertyInfo = "links" attrGet _ = getDOMDocumentLinks attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "preferred-stylesheet-set" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable] + -- Nullable: (Nothing,Nothing) -getDOMDocumentPreferredStylesheetSet :: (MonadIO m, DOMDocumentK o) => o -> m T.Text +getDOMDocumentPreferredStylesheetSet :: (MonadIO m, DOMDocumentK o) => o -> m (Maybe T.Text) getDOMDocumentPreferredStylesheetSet obj = liftIO $ getObjectPropertyString obj "preferred-stylesheet-set" data DOMDocumentPreferredStylesheetSetPropertyInfo instance AttrInfo DOMDocumentPreferredStylesheetSetPropertyInfo where - type AttrAllowedOps DOMDocumentPreferredStylesheetSetPropertyInfo = '[ 'AttrGet] + type AttrAllowedOps DOMDocumentPreferredStylesheetSetPropertyInfo = '[ 'AttrGet, 'AttrClear] type AttrSetTypeConstraint DOMDocumentPreferredStylesheetSetPropertyInfo = (~) () type AttrBaseTypeConstraint DOMDocumentPreferredStylesheetSetPropertyInfo = DOMDocumentK - type AttrGetType DOMDocumentPreferredStylesheetSetPropertyInfo = T.Text + type AttrGetType DOMDocumentPreferredStylesheetSetPropertyInfo = (Maybe T.Text) type AttrLabel DOMDocumentPreferredStylesheetSetPropertyInfo = "preferred-stylesheet-set" attrGet _ = getDOMDocumentPreferredStylesheetSet attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "ready-state" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable] + -- Nullable: (Nothing,Nothing) -getDOMDocumentReadyState :: (MonadIO m, DOMDocumentK o) => o -> m T.Text +getDOMDocumentReadyState :: (MonadIO m, DOMDocumentK o) => o -> m (Maybe T.Text) getDOMDocumentReadyState obj = liftIO $ getObjectPropertyString obj "ready-state" data DOMDocumentReadyStatePropertyInfo instance AttrInfo DOMDocumentReadyStatePropertyInfo where - type AttrAllowedOps DOMDocumentReadyStatePropertyInfo = '[ 'AttrGet] + type AttrAllowedOps DOMDocumentReadyStatePropertyInfo = '[ 'AttrGet, 'AttrClear] type AttrSetTypeConstraint DOMDocumentReadyStatePropertyInfo = (~) () type AttrBaseTypeConstraint DOMDocumentReadyStatePropertyInfo = DOMDocumentK - type AttrGetType DOMDocumentReadyStatePropertyInfo = T.Text + type AttrGetType DOMDocumentReadyStatePropertyInfo = (Maybe T.Text) type AttrLabel DOMDocumentReadyStatePropertyInfo = "ready-state" attrGet _ = getDOMDocumentReadyState attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "referrer" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable] + -- Nullable: (Nothing,Nothing) -getDOMDocumentReferrer :: (MonadIO m, DOMDocumentK o) => o -> m T.Text +getDOMDocumentReferrer :: (MonadIO m, DOMDocumentK o) => o -> m (Maybe T.Text) getDOMDocumentReferrer obj = liftIO $ getObjectPropertyString obj "referrer" data DOMDocumentReferrerPropertyInfo instance AttrInfo DOMDocumentReferrerPropertyInfo where - type AttrAllowedOps DOMDocumentReferrerPropertyInfo = '[ 'AttrGet] + type AttrAllowedOps DOMDocumentReferrerPropertyInfo = '[ 'AttrGet, 'AttrClear] type AttrSetTypeConstraint DOMDocumentReferrerPropertyInfo = (~) () type AttrBaseTypeConstraint DOMDocumentReferrerPropertyInfo = DOMDocumentK - type AttrGetType DOMDocumentReferrerPropertyInfo = T.Text + type AttrGetType DOMDocumentReferrerPropertyInfo = (Maybe T.Text) type AttrLabel DOMDocumentReferrerPropertyInfo = "referrer" attrGet _ = getDOMDocumentReferrer attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "security-policy" -- Type: TInterface "WebKit" "DOMDOMSecurityPolicy" -- Flags: [PropertyReadable] + -- Nullable: (Nothing,Nothing) -getDOMDocumentSecurityPolicy :: (MonadIO m, DOMDocumentK o) => o -> m DOMDOMSecurityPolicy +getDOMDocumentSecurityPolicy :: (MonadIO m, DOMDocumentK o) => o -> m (Maybe DOMDOMSecurityPolicy) getDOMDocumentSecurityPolicy obj = liftIO $ getObjectPropertyObject obj "security-policy" DOMDOMSecurityPolicy data DOMDocumentSecurityPolicyPropertyInfo instance AttrInfo DOMDocumentSecurityPolicyPropertyInfo where - type AttrAllowedOps DOMDocumentSecurityPolicyPropertyInfo = '[ 'AttrGet] + type AttrAllowedOps DOMDocumentSecurityPolicyPropertyInfo = '[ 'AttrGet, 'AttrClear] type AttrSetTypeConstraint DOMDocumentSecurityPolicyPropertyInfo = (~) () type AttrBaseTypeConstraint DOMDocumentSecurityPolicyPropertyInfo = DOMDocumentK - type AttrGetType DOMDocumentSecurityPolicyPropertyInfo = DOMDOMSecurityPolicy + type AttrGetType DOMDocumentSecurityPolicyPropertyInfo = (Maybe DOMDOMSecurityPolicy) type AttrLabel DOMDocumentSecurityPolicyPropertyInfo = "security-policy" attrGet _ = getDOMDocumentSecurityPolicy attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "selected-stylesheet-set" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Just False) -getDOMDocumentSelectedStylesheetSet :: (MonadIO m, DOMDocumentK o) => o -> m T.Text +getDOMDocumentSelectedStylesheetSet :: (MonadIO m, DOMDocumentK o) => o -> m (Maybe T.Text) getDOMDocumentSelectedStylesheetSet obj = liftIO $ getObjectPropertyString obj "selected-stylesheet-set" setDOMDocumentSelectedStylesheetSet :: (MonadIO m, DOMDocumentK o) => o -> T.Text -> m () -setDOMDocumentSelectedStylesheetSet obj val = liftIO $ setObjectPropertyString obj "selected-stylesheet-set" val +setDOMDocumentSelectedStylesheetSet obj val = liftIO $ setObjectPropertyString obj "selected-stylesheet-set" (Just val) constructDOMDocumentSelectedStylesheetSet :: T.Text -> IO ([Char], GValue) -constructDOMDocumentSelectedStylesheetSet val = constructObjectPropertyString "selected-stylesheet-set" val +constructDOMDocumentSelectedStylesheetSet val = constructObjectPropertyString "selected-stylesheet-set" (Just val) data DOMDocumentSelectedStylesheetSetPropertyInfo instance AttrInfo DOMDocumentSelectedStylesheetSetPropertyInfo where type AttrAllowedOps DOMDocumentSelectedStylesheetSetPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint DOMDocumentSelectedStylesheetSetPropertyInfo = (~) T.Text type AttrBaseTypeConstraint DOMDocumentSelectedStylesheetSetPropertyInfo = DOMDocumentK - type AttrGetType DOMDocumentSelectedStylesheetSetPropertyInfo = T.Text + type AttrGetType DOMDocumentSelectedStylesheetSetPropertyInfo = (Maybe T.Text) type AttrLabel DOMDocumentSelectedStylesheetSetPropertyInfo = "selected-stylesheet-set" attrGet _ = getDOMDocumentSelectedStylesheetSet attrSet _ = setDOMDocumentSelectedStylesheetSet attrConstruct _ = constructDOMDocumentSelectedStylesheetSet + attrClear _ = undefined -- VVV Prop "style-sheets" -- Type: TInterface "WebKit" "DOMStyleSheetList" -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) getDOMDocumentStyleSheets :: (MonadIO m, DOMDocumentK o) => o -> m DOMStyleSheetList -getDOMDocumentStyleSheets obj = liftIO $ getObjectPropertyObject obj "style-sheets" DOMStyleSheetList +getDOMDocumentStyleSheets obj = liftIO $ checkUnexpectedNothing "getDOMDocumentStyleSheets" $ getObjectPropertyObject obj "style-sheets" DOMStyleSheetList data DOMDocumentStyleSheetsPropertyInfo instance AttrInfo DOMDocumentStyleSheetsPropertyInfo where - type AttrAllowedOps DOMDocumentStyleSheetsPropertyInfo = '[ 'AttrGet] + type AttrAllowedOps DOMDocumentStyleSheetsPropertyInfo = '[ 'AttrGet, 'AttrClear] type AttrSetTypeConstraint DOMDocumentStyleSheetsPropertyInfo = (~) () type AttrBaseTypeConstraint DOMDocumentStyleSheetsPropertyInfo = DOMDocumentK type AttrGetType DOMDocumentStyleSheetsPropertyInfo = DOMStyleSheetList @@ -1414,77 +1514,85 @@ attrGet _ = getDOMDocumentStyleSheets attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "title" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Just False) -getDOMDocumentTitle :: (MonadIO m, DOMDocumentK o) => o -> m T.Text +getDOMDocumentTitle :: (MonadIO m, DOMDocumentK o) => o -> m (Maybe T.Text) getDOMDocumentTitle obj = liftIO $ getObjectPropertyString obj "title" setDOMDocumentTitle :: (MonadIO m, DOMDocumentK o) => o -> T.Text -> m () -setDOMDocumentTitle obj val = liftIO $ setObjectPropertyString obj "title" val +setDOMDocumentTitle obj val = liftIO $ setObjectPropertyString obj "title" (Just val) constructDOMDocumentTitle :: T.Text -> IO ([Char], GValue) -constructDOMDocumentTitle val = constructObjectPropertyString "title" val +constructDOMDocumentTitle val = constructObjectPropertyString "title" (Just val) data DOMDocumentTitlePropertyInfo instance AttrInfo DOMDocumentTitlePropertyInfo where type AttrAllowedOps DOMDocumentTitlePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint DOMDocumentTitlePropertyInfo = (~) T.Text type AttrBaseTypeConstraint DOMDocumentTitlePropertyInfo = DOMDocumentK - type AttrGetType DOMDocumentTitlePropertyInfo = T.Text + type AttrGetType DOMDocumentTitlePropertyInfo = (Maybe T.Text) type AttrLabel DOMDocumentTitlePropertyInfo = "title" attrGet _ = getDOMDocumentTitle attrSet _ = setDOMDocumentTitle attrConstruct _ = constructDOMDocumentTitle + attrClear _ = undefined -- VVV Prop "url" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable] + -- Nullable: (Nothing,Nothing) -getDOMDocumentUrl :: (MonadIO m, DOMDocumentK o) => o -> m T.Text +getDOMDocumentUrl :: (MonadIO m, DOMDocumentK o) => o -> m (Maybe T.Text) getDOMDocumentUrl obj = liftIO $ getObjectPropertyString obj "url" data DOMDocumentUrlPropertyInfo instance AttrInfo DOMDocumentUrlPropertyInfo where - type AttrAllowedOps DOMDocumentUrlPropertyInfo = '[ 'AttrGet] + type AttrAllowedOps DOMDocumentUrlPropertyInfo = '[ 'AttrGet, 'AttrClear] type AttrSetTypeConstraint DOMDocumentUrlPropertyInfo = (~) () type AttrBaseTypeConstraint DOMDocumentUrlPropertyInfo = DOMDocumentK - type AttrGetType DOMDocumentUrlPropertyInfo = T.Text + type AttrGetType DOMDocumentUrlPropertyInfo = (Maybe T.Text) type AttrLabel DOMDocumentUrlPropertyInfo = "url" attrGet _ = getDOMDocumentUrl attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "visibility-state" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable] + -- Nullable: (Nothing,Nothing) -getDOMDocumentVisibilityState :: (MonadIO m, DOMDocumentK o) => o -> m T.Text +getDOMDocumentVisibilityState :: (MonadIO m, DOMDocumentK o) => o -> m (Maybe T.Text) getDOMDocumentVisibilityState obj = liftIO $ getObjectPropertyString obj "visibility-state" data DOMDocumentVisibilityStatePropertyInfo instance AttrInfo DOMDocumentVisibilityStatePropertyInfo where - type AttrAllowedOps DOMDocumentVisibilityStatePropertyInfo = '[ 'AttrGet] + type AttrAllowedOps DOMDocumentVisibilityStatePropertyInfo = '[ 'AttrGet, 'AttrClear] type AttrSetTypeConstraint DOMDocumentVisibilityStatePropertyInfo = (~) () type AttrBaseTypeConstraint DOMDocumentVisibilityStatePropertyInfo = DOMDocumentK - type AttrGetType DOMDocumentVisibilityStatePropertyInfo = T.Text + type AttrGetType DOMDocumentVisibilityStatePropertyInfo = (Maybe T.Text) type AttrLabel DOMDocumentVisibilityStatePropertyInfo = "visibility-state" attrGet _ = getDOMDocumentVisibilityState attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "webkit-current-full-screen-element" -- Type: TInterface "WebKit" "DOMElement" -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) getDOMDocumentWebkitCurrentFullScreenElement :: (MonadIO m, DOMDocumentK o) => o -> m DOMElement -getDOMDocumentWebkitCurrentFullScreenElement obj = liftIO $ getObjectPropertyObject obj "webkit-current-full-screen-element" DOMElement +getDOMDocumentWebkitCurrentFullScreenElement obj = liftIO $ checkUnexpectedNothing "getDOMDocumentWebkitCurrentFullScreenElement" $ getObjectPropertyObject obj "webkit-current-full-screen-element" DOMElement data DOMDocumentWebkitCurrentFullScreenElementPropertyInfo instance AttrInfo DOMDocumentWebkitCurrentFullScreenElementPropertyInfo where - type AttrAllowedOps DOMDocumentWebkitCurrentFullScreenElementPropertyInfo = '[ 'AttrGet] + type AttrAllowedOps DOMDocumentWebkitCurrentFullScreenElementPropertyInfo = '[ 'AttrGet, 'AttrClear] type AttrSetTypeConstraint DOMDocumentWebkitCurrentFullScreenElementPropertyInfo = (~) () type AttrBaseTypeConstraint DOMDocumentWebkitCurrentFullScreenElementPropertyInfo = DOMDocumentK type AttrGetType DOMDocumentWebkitCurrentFullScreenElementPropertyInfo = DOMElement @@ -1492,10 +1600,12 @@ attrGet _ = getDOMDocumentWebkitCurrentFullScreenElement attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "webkit-full-screen-keyboard-input-allowed" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) getDOMDocumentWebkitFullScreenKeyboardInputAllowed :: (MonadIO m, DOMDocumentK o) => o -> m Bool getDOMDocumentWebkitFullScreenKeyboardInputAllowed obj = liftIO $ getObjectPropertyBool obj "webkit-full-screen-keyboard-input-allowed" @@ -1510,17 +1620,19 @@ attrGet _ = getDOMDocumentWebkitFullScreenKeyboardInputAllowed attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "webkit-fullscreen-element" -- Type: TInterface "WebKit" "DOMElement" -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) getDOMDocumentWebkitFullscreenElement :: (MonadIO m, DOMDocumentK o) => o -> m DOMElement -getDOMDocumentWebkitFullscreenElement obj = liftIO $ getObjectPropertyObject obj "webkit-fullscreen-element" DOMElement +getDOMDocumentWebkitFullscreenElement obj = liftIO $ checkUnexpectedNothing "getDOMDocumentWebkitFullscreenElement" $ getObjectPropertyObject obj "webkit-fullscreen-element" DOMElement data DOMDocumentWebkitFullscreenElementPropertyInfo instance AttrInfo DOMDocumentWebkitFullscreenElementPropertyInfo where - type AttrAllowedOps DOMDocumentWebkitFullscreenElementPropertyInfo = '[ 'AttrGet] + type AttrAllowedOps DOMDocumentWebkitFullscreenElementPropertyInfo = '[ 'AttrGet, 'AttrClear] type AttrSetTypeConstraint DOMDocumentWebkitFullscreenElementPropertyInfo = (~) () type AttrBaseTypeConstraint DOMDocumentWebkitFullscreenElementPropertyInfo = DOMDocumentK type AttrGetType DOMDocumentWebkitFullscreenElementPropertyInfo = DOMElement @@ -1528,10 +1640,12 @@ attrGet _ = getDOMDocumentWebkitFullscreenElement attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "webkit-fullscreen-enabled" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) getDOMDocumentWebkitFullscreenEnabled :: (MonadIO m, DOMDocumentK o) => o -> m Bool getDOMDocumentWebkitFullscreenEnabled obj = liftIO $ getObjectPropertyBool obj "webkit-fullscreen-enabled" @@ -1546,10 +1660,12 @@ attrGet _ = getDOMDocumentWebkitFullscreenEnabled attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "webkit-is-full-screen" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) getDOMDocumentWebkitIsFullScreen :: (MonadIO m, DOMDocumentK o) => o -> m Bool getDOMDocumentWebkitIsFullScreen obj = liftIO $ getObjectPropertyBool obj "webkit-is-full-screen" @@ -1564,17 +1680,19 @@ attrGet _ = getDOMDocumentWebkitIsFullScreen attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "webkit-pointer-lock-element" -- Type: TInterface "WebKit" "DOMElement" -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) getDOMDocumentWebkitPointerLockElement :: (MonadIO m, DOMDocumentK o) => o -> m DOMElement -getDOMDocumentWebkitPointerLockElement obj = liftIO $ getObjectPropertyObject obj "webkit-pointer-lock-element" DOMElement +getDOMDocumentWebkitPointerLockElement obj = liftIO $ checkUnexpectedNothing "getDOMDocumentWebkitPointerLockElement" $ getObjectPropertyObject obj "webkit-pointer-lock-element" DOMElement data DOMDocumentWebkitPointerLockElementPropertyInfo instance AttrInfo DOMDocumentWebkitPointerLockElementPropertyInfo where - type AttrAllowedOps DOMDocumentWebkitPointerLockElementPropertyInfo = '[ 'AttrGet] + type AttrAllowedOps DOMDocumentWebkitPointerLockElementPropertyInfo = '[ 'AttrGet, 'AttrClear] type AttrSetTypeConstraint DOMDocumentWebkitPointerLockElementPropertyInfo = (~) () type AttrBaseTypeConstraint DOMDocumentWebkitPointerLockElementPropertyInfo = DOMDocumentK type AttrGetType DOMDocumentWebkitPointerLockElementPropertyInfo = DOMElement @@ -1582,28 +1700,32 @@ attrGet _ = getDOMDocumentWebkitPointerLockElement attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "xml-encoding" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable] + -- Nullable: (Nothing,Nothing) -getDOMDocumentXmlEncoding :: (MonadIO m, DOMDocumentK o) => o -> m T.Text +getDOMDocumentXmlEncoding :: (MonadIO m, DOMDocumentK o) => o -> m (Maybe T.Text) getDOMDocumentXmlEncoding obj = liftIO $ getObjectPropertyString obj "xml-encoding" data DOMDocumentXmlEncodingPropertyInfo instance AttrInfo DOMDocumentXmlEncodingPropertyInfo where - type AttrAllowedOps DOMDocumentXmlEncodingPropertyInfo = '[ 'AttrGet] + type AttrAllowedOps DOMDocumentXmlEncodingPropertyInfo = '[ 'AttrGet, 'AttrClear] type AttrSetTypeConstraint DOMDocumentXmlEncodingPropertyInfo = (~) () type AttrBaseTypeConstraint DOMDocumentXmlEncodingPropertyInfo = DOMDocumentK - type AttrGetType DOMDocumentXmlEncodingPropertyInfo = T.Text + type AttrGetType DOMDocumentXmlEncodingPropertyInfo = (Maybe T.Text) type AttrLabel DOMDocumentXmlEncodingPropertyInfo = "xml-encoding" attrGet _ = getDOMDocumentXmlEncoding attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "xml-standalone" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Nothing) getDOMDocumentXmlStandalone :: (MonadIO m, DOMDocumentK o) => o -> m Bool getDOMDocumentXmlStandalone obj = liftIO $ getObjectPropertyBool obj "xml-standalone" @@ -1624,34 +1746,160 @@ attrGet _ = getDOMDocumentXmlStandalone attrSet _ = setDOMDocumentXmlStandalone attrConstruct _ = constructDOMDocumentXmlStandalone + attrClear _ = undefined -- VVV Prop "xml-version" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) -getDOMDocumentXmlVersion :: (MonadIO m, DOMDocumentK o) => o -> m T.Text +getDOMDocumentXmlVersion :: (MonadIO m, DOMDocumentK o) => o -> m (Maybe T.Text) getDOMDocumentXmlVersion obj = liftIO $ getObjectPropertyString obj "xml-version" setDOMDocumentXmlVersion :: (MonadIO m, DOMDocumentK o) => o -> T.Text -> m () -setDOMDocumentXmlVersion obj val = liftIO $ setObjectPropertyString obj "xml-version" val +setDOMDocumentXmlVersion obj val = liftIO $ setObjectPropertyString obj "xml-version" (Just val) constructDOMDocumentXmlVersion :: T.Text -> IO ([Char], GValue) -constructDOMDocumentXmlVersion val = constructObjectPropertyString "xml-version" val +constructDOMDocumentXmlVersion val = constructObjectPropertyString "xml-version" (Just val) +clearDOMDocumentXmlVersion :: (MonadIO m, DOMDocumentK o) => o -> m () +clearDOMDocumentXmlVersion obj = liftIO $ setObjectPropertyString obj "xml-version" (Nothing :: Maybe T.Text) + data DOMDocumentXmlVersionPropertyInfo instance AttrInfo DOMDocumentXmlVersionPropertyInfo where - type AttrAllowedOps DOMDocumentXmlVersionPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrAllowedOps DOMDocumentXmlVersionPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint DOMDocumentXmlVersionPropertyInfo = (~) T.Text type AttrBaseTypeConstraint DOMDocumentXmlVersionPropertyInfo = DOMDocumentK - type AttrGetType DOMDocumentXmlVersionPropertyInfo = T.Text + type AttrGetType DOMDocumentXmlVersionPropertyInfo = (Maybe T.Text) type AttrLabel DOMDocumentXmlVersionPropertyInfo = "xml-version" attrGet _ = getDOMDocumentXmlVersion attrSet _ = setDOMDocumentXmlVersion attrConstruct _ = constructDOMDocumentXmlVersion + attrClear _ = clearDOMDocumentXmlVersion type instance AttributeList DOMDocument = DOMDocumentAttributeList type DOMDocumentAttributeList = ('[ '("anchors", DOMDocumentAnchorsPropertyInfo), '("applets", DOMDocumentAppletsPropertyInfo), '("baseUri", DOMNodeBaseUriPropertyInfo), '("body", DOMDocumentBodyPropertyInfo), '("characterSet", DOMDocumentCharacterSetPropertyInfo), '("charset", DOMDocumentCharsetPropertyInfo), '("childNodes", DOMNodeChildNodesPropertyInfo), '("compatMode", DOMDocumentCompatModePropertyInfo), '("cookie", DOMDocumentCookiePropertyInfo), '("coreObject", DOMObjectCoreObjectPropertyInfo), '("currentScript", DOMDocumentCurrentScriptPropertyInfo), '("defaultCharset", DOMDocumentDefaultCharsetPropertyInfo), '("defaultView", DOMDocumentDefaultViewPropertyInfo), '("doctype", DOMDocumentDoctypePropertyInfo), '("documentElement", DOMDocumentDocumentElementPropertyInfo), '("documentUri", DOMDocumentDocumentUriPropertyInfo), '("domain", DOMDocumentDomainPropertyInfo), '("firstChild", DOMNodeFirstChildPropertyInfo), '("forms", DOMDocumentFormsPropertyInfo), '("head", DOMDocumentHeadPropertyInfo), '("hidden", DOMDocumentHiddenPropertyInfo), '("images", DOMDocumentImagesPropertyInfo), '("implementation", DOMDocumentImplementationPropertyInfo), '("inputEncoding", DOMDocumentInputEncodingPropertyInfo), '("lastChild", DOMNodeLastChildPropertyInfo), '("lastModified", DOMDocumentLastModifiedPropertyInfo), '("links", DOMDocumentLinksPropertyInfo), '("localName", DOMNodeLocalNamePropertyInfo), '("namespaceUri", DOMNodeNamespaceUriPropertyInfo), '("nextSibling", DOMNodeNextSiblingPropertyInfo), '("nodeName", DOMNodeNodeNamePropertyInfo), '("nodeType", DOMNodeNodeTypePropertyInfo), '("nodeValue", DOMNodeNodeValuePropertyInfo), '("ownerDocument", DOMNodeOwnerDocumentPropertyInfo), '("parentElement", DOMNodeParentElementPropertyInfo), '("parentNode", DOMNodeParentNodePropertyInfo), '("preferredStylesheetSet", DOMDocumentPreferredStylesheetSetPropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previousSibling", DOMNodePreviousSiblingPropertyInfo), '("readyState", DOMDocumentReadyStatePropertyInfo), '("referrer", DOMDocumentReferrerPropertyInfo), '("securityPolicy", DOMDocumentSecurityPolicyPropertyInfo), '("selectedStylesheetSet", DOMDocumentSelectedStylesheetSetPropertyInfo), '("styleSheets", DOMDocumentStyleSheetsPropertyInfo), '("textContent", DOMNodeTextContentPropertyInfo), '("title", DOMDocumentTitlePropertyInfo), '("url", DOMDocumentUrlPropertyInfo), '("visibilityState", DOMDocumentVisibilityStatePropertyInfo), '("webkitCurrentFullScreenElement", DOMDocumentWebkitCurrentFullScreenElementPropertyInfo), '("webkitFullScreenKeyboardInputAllowed", DOMDocumentWebkitFullScreenKeyboardInputAllowedPropertyInfo), '("webkitFullscreenElement", DOMDocumentWebkitFullscreenElementPropertyInfo), '("webkitFullscreenEnabled", DOMDocumentWebkitFullscreenEnabledPropertyInfo), '("webkitIsFullScreen", DOMDocumentWebkitIsFullScreenPropertyInfo), '("webkitPointerLockElement", DOMDocumentWebkitPointerLockElementPropertyInfo), '("xmlEncoding", DOMDocumentXmlEncodingPropertyInfo), '("xmlStandalone", DOMDocumentXmlStandalonePropertyInfo), '("xmlVersion", DOMDocumentXmlVersionPropertyInfo)] :: [(Symbol, *)]) +dOMDocumentAnchors :: AttrLabelProxy "anchors" +dOMDocumentAnchors = AttrLabelProxy + +dOMDocumentApplets :: AttrLabelProxy "applets" +dOMDocumentApplets = AttrLabelProxy + +dOMDocumentBody :: AttrLabelProxy "body" +dOMDocumentBody = AttrLabelProxy + +dOMDocumentCharacterSet :: AttrLabelProxy "characterSet" +dOMDocumentCharacterSet = AttrLabelProxy + +dOMDocumentCharset :: AttrLabelProxy "charset" +dOMDocumentCharset = AttrLabelProxy + +dOMDocumentCompatMode :: AttrLabelProxy "compatMode" +dOMDocumentCompatMode = AttrLabelProxy + +dOMDocumentCookie :: AttrLabelProxy "cookie" +dOMDocumentCookie = AttrLabelProxy + +dOMDocumentCurrentScript :: AttrLabelProxy "currentScript" +dOMDocumentCurrentScript = AttrLabelProxy + +dOMDocumentDefaultCharset :: AttrLabelProxy "defaultCharset" +dOMDocumentDefaultCharset = AttrLabelProxy + +dOMDocumentDefaultView :: AttrLabelProxy "defaultView" +dOMDocumentDefaultView = AttrLabelProxy + +dOMDocumentDoctype :: AttrLabelProxy "doctype" +dOMDocumentDoctype = AttrLabelProxy + +dOMDocumentDocumentElement :: AttrLabelProxy "documentElement" +dOMDocumentDocumentElement = AttrLabelProxy + +dOMDocumentDocumentUri :: AttrLabelProxy "documentUri" +dOMDocumentDocumentUri = AttrLabelProxy + +dOMDocumentDomain :: AttrLabelProxy "domain" +dOMDocumentDomain = AttrLabelProxy + +dOMDocumentForms :: AttrLabelProxy "forms" +dOMDocumentForms = AttrLabelProxy + +dOMDocumentHead :: AttrLabelProxy "head" +dOMDocumentHead = AttrLabelProxy + +dOMDocumentHidden :: AttrLabelProxy "hidden" +dOMDocumentHidden = AttrLabelProxy + +dOMDocumentImages :: AttrLabelProxy "images" +dOMDocumentImages = AttrLabelProxy + +dOMDocumentImplementation :: AttrLabelProxy "implementation" +dOMDocumentImplementation = AttrLabelProxy + +dOMDocumentInputEncoding :: AttrLabelProxy "inputEncoding" +dOMDocumentInputEncoding = AttrLabelProxy + +dOMDocumentLastModified :: AttrLabelProxy "lastModified" +dOMDocumentLastModified = AttrLabelProxy + +dOMDocumentLinks :: AttrLabelProxy "links" +dOMDocumentLinks = AttrLabelProxy + +dOMDocumentPreferredStylesheetSet :: AttrLabelProxy "preferredStylesheetSet" +dOMDocumentPreferredStylesheetSet = AttrLabelProxy + +dOMDocumentReadyState :: AttrLabelProxy "readyState" +dOMDocumentReadyState = AttrLabelProxy + +dOMDocumentReferrer :: AttrLabelProxy "referrer" +dOMDocumentReferrer = AttrLabelProxy + +dOMDocumentSecurityPolicy :: AttrLabelProxy "securityPolicy" +dOMDocumentSecurityPolicy = AttrLabelProxy + +dOMDocumentSelectedStylesheetSet :: AttrLabelProxy "selectedStylesheetSet" +dOMDocumentSelectedStylesheetSet = AttrLabelProxy + +dOMDocumentStyleSheets :: AttrLabelProxy "styleSheets" +dOMDocumentStyleSheets = AttrLabelProxy + +dOMDocumentTitle :: AttrLabelProxy "title" +dOMDocumentTitle = AttrLabelProxy + +dOMDocumentUrl :: AttrLabelProxy "url" +dOMDocumentUrl = AttrLabelProxy + +dOMDocumentVisibilityState :: AttrLabelProxy "visibilityState" +dOMDocumentVisibilityState = AttrLabelProxy + +dOMDocumentWebkitCurrentFullScreenElement :: AttrLabelProxy "webkitCurrentFullScreenElement" +dOMDocumentWebkitCurrentFullScreenElement = AttrLabelProxy + +dOMDocumentWebkitFullScreenKeyboardInputAllowed :: AttrLabelProxy "webkitFullScreenKeyboardInputAllowed" +dOMDocumentWebkitFullScreenKeyboardInputAllowed = AttrLabelProxy + +dOMDocumentWebkitFullscreenElement :: AttrLabelProxy "webkitFullscreenElement" +dOMDocumentWebkitFullscreenElement = AttrLabelProxy + +dOMDocumentWebkitFullscreenEnabled :: AttrLabelProxy "webkitFullscreenEnabled" +dOMDocumentWebkitFullscreenEnabled = AttrLabelProxy + +dOMDocumentWebkitIsFullScreen :: AttrLabelProxy "webkitIsFullScreen" +dOMDocumentWebkitIsFullScreen = AttrLabelProxy + +dOMDocumentWebkitPointerLockElement :: AttrLabelProxy "webkitPointerLockElement" +dOMDocumentWebkitPointerLockElement = AttrLabelProxy + +dOMDocumentXmlEncoding :: AttrLabelProxy "xmlEncoding" +dOMDocumentXmlEncoding = AttrLabelProxy + +dOMDocumentXmlStandalone :: AttrLabelProxy "xmlStandalone" +dOMDocumentXmlStandalone = AttrLabelProxy + +dOMDocumentXmlVersion :: AttrLabelProxy "xmlVersion" +dOMDocumentXmlVersion = AttrLabelProxy + type instance SignalList DOMDocument = DOMDocumentSignalList type DOMDocumentSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) @@ -1659,7 +1907,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "source", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit" "DOMNode" +-- returnType : Just (TInterface "WebKit" "DOMNode") -- throws : True -- Skip return : False @@ -1695,24 +1943,24 @@ -- method DOMDocument::caret_range_from_point -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TLong, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y", argType = TBasicType TLong, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit" "DOMRange" +-- returnType : Just (TInterface "WebKit" "DOMRange") -- throws : False -- Skip return : False foreign import ccall "webkit_dom_document_caret_range_from_point" webkit_dom_document_caret_range_from_point :: Ptr DOMDocument -> -- _obj : TInterface "WebKit" "DOMDocument" - Int64 -> -- x : TBasicType TInt64 - Int64 -> -- y : TBasicType TInt64 + CLong -> -- x : TBasicType TLong + CLong -> -- y : TBasicType TLong IO (Ptr DOMRange) dOMDocumentCaretRangeFromPoint :: (MonadIO m, DOMDocumentK a) => a -- _obj - -> Int64 -- x - -> Int64 -- y + -> CLong -- x + -> CLong -- y -> m DOMRange -- result dOMDocumentCaretRangeFromPoint _obj x y = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj @@ -1723,14 +1971,14 @@ return result' data DOMDocumentCaretRangeFromPointMethodInfo -instance (signature ~ (Int64 -> Int64 -> m DOMRange), MonadIO m, DOMDocumentK a) => MethodInfo DOMDocumentCaretRangeFromPointMethodInfo a signature where +instance (signature ~ (CLong -> CLong -> m DOMRange), MonadIO m, DOMDocumentK a) => MethodInfo DOMDocumentCaretRangeFromPointMethodInfo a signature where overloadedMethod _ = dOMDocumentCaretRangeFromPoint -- method DOMDocument::create_attribute -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit" "DOMAttr" +-- returnType : Just (TInterface "WebKit" "DOMAttr") -- throws : True -- Skip return : False @@ -1768,7 +2016,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "namespaceURI", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "qualifiedName", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit" "DOMAttr" +-- returnType : Just (TInterface "WebKit" "DOMAttr") -- throws : True -- Skip return : False @@ -1815,7 +2063,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "data", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit" "DOMCDATASection" +-- returnType : Just (TInterface "WebKit" "DOMCDATASection") -- throws : True -- Skip return : False @@ -1853,7 +2101,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "data", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit" "DOMComment" +-- returnType : Just (TInterface "WebKit" "DOMComment") -- throws : False -- Skip return : False @@ -1886,7 +2134,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit" "DOMCSSStyleDeclaration" +-- returnType : Just (TInterface "WebKit" "DOMCSSStyleDeclaration") -- throws : False -- Skip return : False @@ -1915,7 +2163,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit" "DOMDocumentFragment" +-- returnType : Just (TInterface "WebKit" "DOMDocumentFragment") -- throws : False -- Skip return : False @@ -1944,7 +2192,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "tagName", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit" "DOMElement" +-- returnType : Just (TInterface "WebKit" "DOMElement") -- throws : True -- Skip return : False @@ -1982,7 +2230,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "namespaceURI", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "qualifiedName", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit" "DOMElement" +-- returnType : Just (TInterface "WebKit" "DOMElement") -- throws : True -- Skip return : False @@ -2029,7 +2277,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit" "DOMEntityReference" +-- returnType : Just (TInterface "WebKit" "DOMEntityReference") -- throws : True -- Skip return : False @@ -2071,7 +2319,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "eventType", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit" "DOMEvent" +-- returnType : Just (TInterface "WebKit" "DOMEvent") -- throws : True -- Skip return : False @@ -2109,7 +2357,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "expression", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "resolver", argType = TInterface "WebKit" "DOMXPathNSResolver", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit" "DOMXPathExpression" +-- returnType : Just (TInterface "WebKit" "DOMXPathExpression") -- throws : True -- Skip return : False @@ -2149,16 +2397,16 @@ -- method DOMDocument::create_node_iterator -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "root", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "whatToShow", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "filter", argType = TInterface "WebKit" "DOMNodeFilter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "expandEntityReferences", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "root", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "whatToShow", argType = TBasicType TULong, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "filter", argType = TInterface "WebKit" "DOMNodeFilter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "expandEntityReferences", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit" "DOMNodeIterator" +-- returnType : Just (TInterface "WebKit" "DOMNodeIterator") -- throws : True -- Skip return : False foreign import ccall "webkit_dom_document_create_node_iterator" webkit_dom_document_create_node_iterator :: Ptr DOMDocument -> -- _obj : TInterface "WebKit" "DOMDocument" Ptr DOMNode -> -- root : TInterface "WebKit" "DOMNode" - Word64 -> -- whatToShow : TBasicType TUInt64 + CULong -> -- whatToShow : TBasicType TULong Ptr DOMNodeFilter -> -- filter : TInterface "WebKit" "DOMNodeFilter" CInt -> -- expandEntityReferences : TBasicType TBoolean Ptr (Ptr GError) -> -- error @@ -2169,7 +2417,7 @@ (MonadIO m, DOMDocumentK a, DOMNodeK b, DOMNodeFilterK c) => a -- _obj -> b -- root - -> Word64 -- whatToShow + -> CULong -- whatToShow -> c -- filter -> Bool -- expandEntityReferences -> m DOMNodeIterator -- result @@ -2191,14 +2439,14 @@ ) data DOMDocumentCreateNodeIteratorMethodInfo -instance (signature ~ (b -> Word64 -> c -> Bool -> m DOMNodeIterator), MonadIO m, DOMDocumentK a, DOMNodeK b, DOMNodeFilterK c) => MethodInfo DOMDocumentCreateNodeIteratorMethodInfo a signature where +instance (signature ~ (b -> CULong -> c -> Bool -> m DOMNodeIterator), MonadIO m, DOMDocumentK a, DOMNodeK b, DOMNodeFilterK c) => MethodInfo DOMDocumentCreateNodeIteratorMethodInfo a signature where overloadedMethod _ = dOMDocumentCreateNodeIterator -- method DOMDocument::create_ns_resolver -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "nodeResolver", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit" "DOMXPathNSResolver" +-- returnType : Just (TInterface "WebKit" "DOMXPathNSResolver") -- throws : False -- Skip return : False @@ -2231,7 +2479,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "target", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "data", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit" "DOMProcessingInstruction" +-- returnType : Just (TInterface "WebKit" "DOMProcessingInstruction") -- throws : True -- Skip return : False @@ -2274,7 +2522,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit" "DOMRange" +-- returnType : Just (TInterface "WebKit" "DOMRange") -- throws : False -- Skip return : False @@ -2303,7 +2551,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "data", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit" "DOMText" +-- returnType : Just (TInterface "WebKit" "DOMText") -- throws : False -- Skip return : False @@ -2334,9 +2582,9 @@ -- method DOMDocument::create_touch -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "window", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "target", argType = TInterface "WebKit" "DOMEventTarget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "identifier", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "pageX", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "pageY", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "screenX", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "screenY", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "webkitRadiusX", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "webkitRadiusY", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "webkitRotationAngle", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "webkitForce", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "window", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "target", argType = TInterface "WebKit" "DOMEventTarget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "identifier", argType = TBasicType TLong, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "pageX", argType = TBasicType TLong, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "pageY", argType = TBasicType TLong, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "screenX", argType = TBasicType TLong, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "screenY", argType = TBasicType TLong, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "webkitRadiusX", argType = TBasicType TLong, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "webkitRadiusY", argType = TBasicType TLong, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "webkitRotationAngle", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "webkitForce", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit" "DOMTouch" +-- returnType : Just (TInterface "WebKit" "DOMTouch") -- throws : True -- Skip return : False @@ -2344,13 +2592,13 @@ Ptr DOMDocument -> -- _obj : TInterface "WebKit" "DOMDocument" Ptr DOMDOMWindow -> -- window : TInterface "WebKit" "DOMDOMWindow" Ptr DOMEventTarget -> -- target : TInterface "WebKit" "DOMEventTarget" - Int64 -> -- identifier : TBasicType TInt64 - Int64 -> -- pageX : TBasicType TInt64 - Int64 -> -- pageY : TBasicType TInt64 - Int64 -> -- screenX : TBasicType TInt64 - Int64 -> -- screenY : TBasicType TInt64 - Int64 -> -- webkitRadiusX : TBasicType TInt64 - Int64 -> -- webkitRadiusY : TBasicType TInt64 + CLong -> -- identifier : TBasicType TLong + CLong -> -- pageX : TBasicType TLong + CLong -> -- pageY : TBasicType TLong + CLong -> -- screenX : TBasicType TLong + CLong -> -- screenY : TBasicType TLong + CLong -> -- webkitRadiusX : TBasicType TLong + CLong -> -- webkitRadiusY : TBasicType TLong CFloat -> -- webkitRotationAngle : TBasicType TFloat CFloat -> -- webkitForce : TBasicType TFloat Ptr (Ptr GError) -> -- error @@ -2362,13 +2610,13 @@ a -- _obj -> b -- window -> c -- target - -> Int64 -- identifier - -> Int64 -- pageX - -> Int64 -- pageY - -> Int64 -- screenX - -> Int64 -- screenY - -> Int64 -- webkitRadiusX - -> Int64 -- webkitRadiusY + -> CLong -- identifier + -> CLong -- pageX + -> CLong -- pageY + -> CLong -- screenX + -> CLong -- screenY + -> CLong -- webkitRadiusX + -> CLong -- webkitRadiusY -> Float -- webkitRotationAngle -> Float -- webkitForce -> m DOMTouch -- result @@ -2391,21 +2639,21 @@ ) data DOMDocumentCreateTouchMethodInfo -instance (signature ~ (b -> c -> Int64 -> Int64 -> Int64 -> Int64 -> Int64 -> Int64 -> Int64 -> Float -> Float -> m DOMTouch), MonadIO m, DOMDocumentK a, DOMDOMWindowK b, DOMEventTargetK c) => MethodInfo DOMDocumentCreateTouchMethodInfo a signature where +instance (signature ~ (b -> c -> CLong -> CLong -> CLong -> CLong -> CLong -> CLong -> CLong -> Float -> Float -> m DOMTouch), MonadIO m, DOMDocumentK a, DOMDOMWindowK b, DOMEventTargetK c) => MethodInfo DOMDocumentCreateTouchMethodInfo a signature where overloadedMethod _ = dOMDocumentCreateTouch -- method DOMDocument::create_tree_walker -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "root", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "whatToShow", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "filter", argType = TInterface "WebKit" "DOMNodeFilter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "expandEntityReferences", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "root", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "whatToShow", argType = TBasicType TULong, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "filter", argType = TInterface "WebKit" "DOMNodeFilter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "expandEntityReferences", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit" "DOMTreeWalker" +-- returnType : Just (TInterface "WebKit" "DOMTreeWalker") -- throws : True -- Skip return : False foreign import ccall "webkit_dom_document_create_tree_walker" webkit_dom_document_create_tree_walker :: Ptr DOMDocument -> -- _obj : TInterface "WebKit" "DOMDocument" Ptr DOMNode -> -- root : TInterface "WebKit" "DOMNode" - Word64 -> -- whatToShow : TBasicType TUInt64 + CULong -> -- whatToShow : TBasicType TULong Ptr DOMNodeFilter -> -- filter : TInterface "WebKit" "DOMNodeFilter" CInt -> -- expandEntityReferences : TBasicType TBoolean Ptr (Ptr GError) -> -- error @@ -2416,7 +2664,7 @@ (MonadIO m, DOMDocumentK a, DOMNodeK b, DOMNodeFilterK c) => a -- _obj -> b -- root - -> Word64 -- whatToShow + -> CULong -- whatToShow -> c -- filter -> Bool -- expandEntityReferences -> m DOMTreeWalker -- result @@ -2438,29 +2686,29 @@ ) data DOMDocumentCreateTreeWalkerMethodInfo -instance (signature ~ (b -> Word64 -> c -> Bool -> m DOMTreeWalker), MonadIO m, DOMDocumentK a, DOMNodeK b, DOMNodeFilterK c) => MethodInfo DOMDocumentCreateTreeWalkerMethodInfo a signature where +instance (signature ~ (b -> CULong -> c -> Bool -> m DOMTreeWalker), MonadIO m, DOMDocumentK a, DOMNodeK b, DOMNodeFilterK c) => MethodInfo DOMDocumentCreateTreeWalkerMethodInfo a signature where overloadedMethod _ = dOMDocumentCreateTreeWalker -- method DOMDocument::element_from_point -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TLong, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y", argType = TBasicType TLong, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit" "DOMElement" +-- returnType : Just (TInterface "WebKit" "DOMElement") -- throws : False -- Skip return : False foreign import ccall "webkit_dom_document_element_from_point" webkit_dom_document_element_from_point :: Ptr DOMDocument -> -- _obj : TInterface "WebKit" "DOMDocument" - Int64 -> -- x : TBasicType TInt64 - Int64 -> -- y : TBasicType TInt64 + CLong -> -- x : TBasicType TLong + CLong -> -- y : TBasicType TLong IO (Ptr DOMElement) dOMDocumentElementFromPoint :: (MonadIO m, DOMDocumentK a) => a -- _obj - -> Int64 -- x - -> Int64 -- y + -> CLong -- x + -> CLong -- y -> m DOMElement -- result dOMDocumentElementFromPoint _obj x y = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj @@ -2471,14 +2719,14 @@ return result' data DOMDocumentElementFromPointMethodInfo -instance (signature ~ (Int64 -> Int64 -> m DOMElement), MonadIO m, DOMDocumentK a) => MethodInfo DOMDocumentElementFromPointMethodInfo a signature where +instance (signature ~ (CLong -> CLong -> m DOMElement), MonadIO m, DOMDocumentK a) => MethodInfo DOMDocumentElementFromPointMethodInfo a signature where overloadedMethod _ = dOMDocumentElementFromPoint -- method DOMDocument::evaluate -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "expression", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "contextNode", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "resolver", argType = TInterface "WebKit" "DOMXPathNSResolver", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "type", argType = TBasicType TUInt16, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "inResult", argType = TInterface "WebKit" "DOMXPathResult", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit" "DOMXPathResult" +-- returnType : Just (TInterface "WebKit" "DOMXPathResult") -- throws : True -- Skip return : False @@ -2538,7 +2786,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "command", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "userInterface", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -2577,7 +2825,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit" "DOMHTMLCollection" +-- returnType : Just (TInterface "WebKit" "DOMHTMLCollection") -- throws : False -- Skip return : False @@ -2606,7 +2854,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit" "DOMHTMLCollection" +-- returnType : Just (TInterface "WebKit" "DOMHTMLCollection") -- throws : False -- Skip return : False @@ -2635,7 +2883,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit" "DOMHTMLElement" +-- returnType : Just (TInterface "WebKit" "DOMHTMLElement") -- throws : False -- Skip return : False @@ -2664,7 +2912,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -2694,7 +2942,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -2724,7 +2972,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -2754,7 +3002,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : True -- Skip return : False @@ -2789,7 +3037,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit" "DOMHTMLScriptElement" +-- returnType : Just (TInterface "WebKit" "DOMHTMLScriptElement") -- throws : False -- Skip return : False @@ -2818,7 +3066,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -2848,7 +3096,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit" "DOMDOMWindow" +-- returnType : Just (TInterface "WebKit" "DOMDOMWindow") -- throws : False -- Skip return : False @@ -2877,7 +3125,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit" "DOMDocumentType" +-- returnType : Just (TInterface "WebKit" "DOMDocumentType") -- throws : False -- Skip return : False @@ -2906,7 +3154,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit" "DOMElement" +-- returnType : Just (TInterface "WebKit" "DOMElement") -- throws : False -- Skip return : False @@ -2935,7 +3183,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -2965,7 +3213,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -2995,7 +3243,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "elementId", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit" "DOMElement" +-- returnType : Just (TInterface "WebKit" "DOMElement") -- throws : False -- Skip return : False @@ -3028,7 +3276,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "tagname", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit" "DOMNodeList" +-- returnType : Just (TInterface "WebKit" "DOMNodeList") -- throws : False -- Skip return : False @@ -3061,7 +3309,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "elementName", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit" "DOMNodeList" +-- returnType : Just (TInterface "WebKit" "DOMNodeList") -- throws : False -- Skip return : False @@ -3094,7 +3342,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "tagname", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit" "DOMNodeList" +-- returnType : Just (TInterface "WebKit" "DOMNodeList") -- throws : False -- Skip return : False @@ -3127,7 +3375,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "namespaceURI", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "localName", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit" "DOMNodeList" +-- returnType : Just (TInterface "WebKit" "DOMNodeList") -- throws : False -- Skip return : False @@ -3164,7 +3412,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit" "DOMHTMLCollection" +-- returnType : Just (TInterface "WebKit" "DOMHTMLCollection") -- throws : False -- Skip return : False @@ -3193,7 +3441,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit" "DOMHTMLHeadElement" +-- returnType : Just (TInterface "WebKit" "DOMHTMLHeadElement") -- throws : False -- Skip return : False @@ -3222,7 +3470,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -3250,7 +3498,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit" "DOMHTMLCollection" +-- returnType : Just (TInterface "WebKit" "DOMHTMLCollection") -- throws : False -- Skip return : False @@ -3279,7 +3527,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit" "DOMDOMImplementation" +-- returnType : Just (TInterface "WebKit" "DOMDOMImplementation") -- throws : False -- Skip return : False @@ -3308,7 +3556,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -3338,7 +3586,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -3368,7 +3616,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit" "DOMHTMLCollection" +-- returnType : Just (TInterface "WebKit" "DOMHTMLCollection") -- throws : False -- Skip return : False @@ -3397,7 +3645,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "element", argType = TInterface "WebKit" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "pseudoElement", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit" "DOMCSSStyleDeclaration" +-- returnType : Just (TInterface "WebKit" "DOMCSSStyleDeclaration") -- throws : False -- Skip return : False @@ -3438,7 +3686,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -3468,7 +3716,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -3498,7 +3746,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -3528,7 +3776,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit" "DOMDOMSecurityPolicy" +-- returnType : Just (TInterface "WebKit" "DOMDOMSecurityPolicy") -- throws : False -- Skip return : False @@ -3557,7 +3805,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -3587,7 +3835,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit" "DOMStyleSheetList" +-- returnType : Just (TInterface "WebKit" "DOMStyleSheetList") -- throws : False -- Skip return : False @@ -3616,7 +3864,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -3646,7 +3894,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -3676,7 +3924,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -3706,7 +3954,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit" "DOMElement" +-- returnType : Just (TInterface "WebKit" "DOMElement") -- throws : False -- Skip return : False @@ -3735,7 +3983,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -3763,7 +4011,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit" "DOMElement" +-- returnType : Just (TInterface "WebKit" "DOMElement") -- throws : False -- Skip return : False @@ -3792,7 +4040,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -3820,7 +4068,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -3848,7 +4096,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -3876,7 +4124,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit" "DOMElement" +-- returnType : Just (TInterface "WebKit" "DOMElement") -- throws : False -- Skip return : False @@ -3905,7 +4153,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -3935,7 +4183,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -3965,7 +4213,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -3993,7 +4241,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -4023,7 +4271,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "importedNode", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "deep", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit" "DOMNode" +-- returnType : Just (TInterface "WebKit" "DOMNode") -- throws : True -- Skip return : False @@ -4064,7 +4312,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "command", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -4096,7 +4344,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "command", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -4128,7 +4376,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "command", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -4160,7 +4408,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "command", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -4192,7 +4440,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "command", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -4226,7 +4474,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "selectors", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit" "DOMElement" +-- returnType : Just (TInterface "WebKit" "DOMElement") -- throws : True -- Skip return : False @@ -4264,7 +4512,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "selectors", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit" "DOMNodeList" +-- returnType : Just (TInterface "WebKit" "DOMNodeList") -- throws : True -- Skip return : False @@ -4302,7 +4550,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TInterface "WebKit" "DOMHTMLElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : True -- Skip return : False @@ -4338,7 +4586,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -4369,7 +4617,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : True -- Skip return : False @@ -4405,7 +4653,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -4436,7 +4684,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -4467,7 +4715,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -4498,7 +4746,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : True -- Skip return : False @@ -4533,7 +4781,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : True -- Skip return : False @@ -4569,7 +4817,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -4596,7 +4844,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -4623,7 +4871,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -4650,7 +4898,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit" "DOMDOMNamedFlowCollection" +-- returnType : Just (TInterface "WebKit" "DOMDOMNamedFlowCollection") -- throws : False -- Skip return : False diff --git a/GI/WebKit/Objects/DOMDocument.hs-boot b/GI/WebKit/Objects/DOMDocument.hs-boot --- a/GI/WebKit/Objects/DOMDocument.hs-boot +++ b/GI/WebKit/Objects/DOMDocument.hs-boot @@ -1,8 +1,8 @@ module GI.WebKit.Objects.DOMDocument where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map diff --git a/GI/WebKit/Objects/DOMDocumentFragment.hs b/GI/WebKit/Objects/DOMDocumentFragment.hs --- a/GI/WebKit/Objects/DOMDocumentFragment.hs +++ b/GI/WebKit/Objects/DOMDocumentFragment.hs @@ -31,9 +31,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map @@ -146,7 +146,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMDocumentFragment", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "selectors", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit" "DOMElement" +-- returnType : Just (TInterface "WebKit" "DOMElement") -- throws : True -- Skip return : False @@ -184,7 +184,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMDocumentFragment", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "selectors", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit" "DOMNodeList" +-- returnType : Just (TInterface "WebKit" "DOMNodeList") -- throws : True -- Skip return : False diff --git a/GI/WebKit/Objects/DOMDocumentFragment.hs-boot b/GI/WebKit/Objects/DOMDocumentFragment.hs-boot --- a/GI/WebKit/Objects/DOMDocumentFragment.hs-boot +++ b/GI/WebKit/Objects/DOMDocumentFragment.hs-boot @@ -1,8 +1,8 @@ module GI.WebKit.Objects.DOMDocumentFragment where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map diff --git a/GI/WebKit/Objects/DOMDocumentType.hs b/GI/WebKit/Objects/DOMDocumentType.hs --- a/GI/WebKit/Objects/DOMDocumentType.hs +++ b/GI/WebKit/Objects/DOMDocumentType.hs @@ -57,31 +57,37 @@ -- * Properties -- ** Entities DOMDocumentTypeEntitiesPropertyInfo , + dOMDocumentTypeEntities , getDOMDocumentTypeEntities , -- ** InternalSubset DOMDocumentTypeInternalSubsetPropertyInfo, + dOMDocumentTypeInternalSubset , getDOMDocumentTypeInternalSubset , -- ** Name DOMDocumentTypeNamePropertyInfo , + dOMDocumentTypeName , getDOMDocumentTypeName , -- ** Notations DOMDocumentTypeNotationsPropertyInfo , + dOMDocumentTypeNotations , getDOMDocumentTypeNotations , -- ** PublicId DOMDocumentTypePublicIdPropertyInfo , + dOMDocumentTypePublicId , getDOMDocumentTypePublicId , -- ** SystemId DOMDocumentTypeSystemIdPropertyInfo , + dOMDocumentTypeSystemId , getDOMDocumentTypeSystemId , @@ -89,9 +95,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map @@ -202,114 +208,144 @@ -- VVV Prop "entities" -- Type: TInterface "WebKit" "DOMNamedNodeMap" -- Flags: [PropertyReadable] + -- Nullable: (Nothing,Nothing) -getDOMDocumentTypeEntities :: (MonadIO m, DOMDocumentTypeK o) => o -> m DOMNamedNodeMap +getDOMDocumentTypeEntities :: (MonadIO m, DOMDocumentTypeK o) => o -> m (Maybe DOMNamedNodeMap) getDOMDocumentTypeEntities obj = liftIO $ getObjectPropertyObject obj "entities" DOMNamedNodeMap data DOMDocumentTypeEntitiesPropertyInfo instance AttrInfo DOMDocumentTypeEntitiesPropertyInfo where - type AttrAllowedOps DOMDocumentTypeEntitiesPropertyInfo = '[ 'AttrGet] + type AttrAllowedOps DOMDocumentTypeEntitiesPropertyInfo = '[ 'AttrGet, 'AttrClear] type AttrSetTypeConstraint DOMDocumentTypeEntitiesPropertyInfo = (~) () type AttrBaseTypeConstraint DOMDocumentTypeEntitiesPropertyInfo = DOMDocumentTypeK - type AttrGetType DOMDocumentTypeEntitiesPropertyInfo = DOMNamedNodeMap + type AttrGetType DOMDocumentTypeEntitiesPropertyInfo = (Maybe DOMNamedNodeMap) type AttrLabel DOMDocumentTypeEntitiesPropertyInfo = "entities" attrGet _ = getDOMDocumentTypeEntities attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "internal-subset" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable] + -- Nullable: (Nothing,Nothing) -getDOMDocumentTypeInternalSubset :: (MonadIO m, DOMDocumentTypeK o) => o -> m T.Text +getDOMDocumentTypeInternalSubset :: (MonadIO m, DOMDocumentTypeK o) => o -> m (Maybe T.Text) getDOMDocumentTypeInternalSubset obj = liftIO $ getObjectPropertyString obj "internal-subset" data DOMDocumentTypeInternalSubsetPropertyInfo instance AttrInfo DOMDocumentTypeInternalSubsetPropertyInfo where - type AttrAllowedOps DOMDocumentTypeInternalSubsetPropertyInfo = '[ 'AttrGet] + type AttrAllowedOps DOMDocumentTypeInternalSubsetPropertyInfo = '[ 'AttrGet, 'AttrClear] type AttrSetTypeConstraint DOMDocumentTypeInternalSubsetPropertyInfo = (~) () type AttrBaseTypeConstraint DOMDocumentTypeInternalSubsetPropertyInfo = DOMDocumentTypeK - type AttrGetType DOMDocumentTypeInternalSubsetPropertyInfo = T.Text + type AttrGetType DOMDocumentTypeInternalSubsetPropertyInfo = (Maybe T.Text) type AttrLabel DOMDocumentTypeInternalSubsetPropertyInfo = "internal-subset" attrGet _ = getDOMDocumentTypeInternalSubset attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "name" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable] + -- Nullable: (Nothing,Nothing) -getDOMDocumentTypeName :: (MonadIO m, DOMDocumentTypeK o) => o -> m T.Text +getDOMDocumentTypeName :: (MonadIO m, DOMDocumentTypeK o) => o -> m (Maybe T.Text) getDOMDocumentTypeName obj = liftIO $ getObjectPropertyString obj "name" data DOMDocumentTypeNamePropertyInfo instance AttrInfo DOMDocumentTypeNamePropertyInfo where - type AttrAllowedOps DOMDocumentTypeNamePropertyInfo = '[ 'AttrGet] + type AttrAllowedOps DOMDocumentTypeNamePropertyInfo = '[ 'AttrGet, 'AttrClear] type AttrSetTypeConstraint DOMDocumentTypeNamePropertyInfo = (~) () type AttrBaseTypeConstraint DOMDocumentTypeNamePropertyInfo = DOMDocumentTypeK - type AttrGetType DOMDocumentTypeNamePropertyInfo = T.Text + type AttrGetType DOMDocumentTypeNamePropertyInfo = (Maybe T.Text) type AttrLabel DOMDocumentTypeNamePropertyInfo = "name" attrGet _ = getDOMDocumentTypeName attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "notations" -- Type: TInterface "WebKit" "DOMNamedNodeMap" -- Flags: [PropertyReadable] + -- Nullable: (Nothing,Nothing) -getDOMDocumentTypeNotations :: (MonadIO m, DOMDocumentTypeK o) => o -> m DOMNamedNodeMap +getDOMDocumentTypeNotations :: (MonadIO m, DOMDocumentTypeK o) => o -> m (Maybe DOMNamedNodeMap) getDOMDocumentTypeNotations obj = liftIO $ getObjectPropertyObject obj "notations" DOMNamedNodeMap data DOMDocumentTypeNotationsPropertyInfo instance AttrInfo DOMDocumentTypeNotationsPropertyInfo where - type AttrAllowedOps DOMDocumentTypeNotationsPropertyInfo = '[ 'AttrGet] + type AttrAllowedOps DOMDocumentTypeNotationsPropertyInfo = '[ 'AttrGet, 'AttrClear] type AttrSetTypeConstraint DOMDocumentTypeNotationsPropertyInfo = (~) () type AttrBaseTypeConstraint DOMDocumentTypeNotationsPropertyInfo = DOMDocumentTypeK - type AttrGetType DOMDocumentTypeNotationsPropertyInfo = DOMNamedNodeMap + type AttrGetType DOMDocumentTypeNotationsPropertyInfo = (Maybe DOMNamedNodeMap) type AttrLabel DOMDocumentTypeNotationsPropertyInfo = "notations" attrGet _ = getDOMDocumentTypeNotations attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "public-id" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable] + -- Nullable: (Nothing,Nothing) -getDOMDocumentTypePublicId :: (MonadIO m, DOMDocumentTypeK o) => o -> m T.Text +getDOMDocumentTypePublicId :: (MonadIO m, DOMDocumentTypeK o) => o -> m (Maybe T.Text) getDOMDocumentTypePublicId obj = liftIO $ getObjectPropertyString obj "public-id" data DOMDocumentTypePublicIdPropertyInfo instance AttrInfo DOMDocumentTypePublicIdPropertyInfo where - type AttrAllowedOps DOMDocumentTypePublicIdPropertyInfo = '[ 'AttrGet] + type AttrAllowedOps DOMDocumentTypePublicIdPropertyInfo = '[ 'AttrGet, 'AttrClear] type AttrSetTypeConstraint DOMDocumentTypePublicIdPropertyInfo = (~) () type AttrBaseTypeConstraint DOMDocumentTypePublicIdPropertyInfo = DOMDocumentTypeK - type AttrGetType DOMDocumentTypePublicIdPropertyInfo = T.Text + type AttrGetType DOMDocumentTypePublicIdPropertyInfo = (Maybe T.Text) type AttrLabel DOMDocumentTypePublicIdPropertyInfo = "public-id" attrGet _ = getDOMDocumentTypePublicId attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "system-id" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable] + -- Nullable: (Nothing,Nothing) -getDOMDocumentTypeSystemId :: (MonadIO m, DOMDocumentTypeK o) => o -> m T.Text +getDOMDocumentTypeSystemId :: (MonadIO m, DOMDocumentTypeK o) => o -> m (Maybe T.Text) getDOMDocumentTypeSystemId obj = liftIO $ getObjectPropertyString obj "system-id" data DOMDocumentTypeSystemIdPropertyInfo instance AttrInfo DOMDocumentTypeSystemIdPropertyInfo where - type AttrAllowedOps DOMDocumentTypeSystemIdPropertyInfo = '[ 'AttrGet] + type AttrAllowedOps DOMDocumentTypeSystemIdPropertyInfo = '[ 'AttrGet, 'AttrClear] type AttrSetTypeConstraint DOMDocumentTypeSystemIdPropertyInfo = (~) () type AttrBaseTypeConstraint DOMDocumentTypeSystemIdPropertyInfo = DOMDocumentTypeK - type AttrGetType DOMDocumentTypeSystemIdPropertyInfo = T.Text + type AttrGetType DOMDocumentTypeSystemIdPropertyInfo = (Maybe T.Text) type AttrLabel DOMDocumentTypeSystemIdPropertyInfo = "system-id" attrGet _ = getDOMDocumentTypeSystemId attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined type instance AttributeList DOMDocumentType = DOMDocumentTypeAttributeList type DOMDocumentTypeAttributeList = ('[ '("baseUri", DOMNodeBaseUriPropertyInfo), '("childNodes", DOMNodeChildNodesPropertyInfo), '("coreObject", DOMObjectCoreObjectPropertyInfo), '("entities", DOMDocumentTypeEntitiesPropertyInfo), '("firstChild", DOMNodeFirstChildPropertyInfo), '("internalSubset", DOMDocumentTypeInternalSubsetPropertyInfo), '("lastChild", DOMNodeLastChildPropertyInfo), '("localName", DOMNodeLocalNamePropertyInfo), '("name", DOMDocumentTypeNamePropertyInfo), '("namespaceUri", DOMNodeNamespaceUriPropertyInfo), '("nextSibling", DOMNodeNextSiblingPropertyInfo), '("nodeName", DOMNodeNodeNamePropertyInfo), '("nodeType", DOMNodeNodeTypePropertyInfo), '("nodeValue", DOMNodeNodeValuePropertyInfo), '("notations", DOMDocumentTypeNotationsPropertyInfo), '("ownerDocument", DOMNodeOwnerDocumentPropertyInfo), '("parentElement", DOMNodeParentElementPropertyInfo), '("parentNode", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previousSibling", DOMNodePreviousSiblingPropertyInfo), '("publicId", DOMDocumentTypePublicIdPropertyInfo), '("systemId", DOMDocumentTypeSystemIdPropertyInfo), '("textContent", DOMNodeTextContentPropertyInfo)] :: [(Symbol, *)]) +dOMDocumentTypeEntities :: AttrLabelProxy "entities" +dOMDocumentTypeEntities = AttrLabelProxy + +dOMDocumentTypeInternalSubset :: AttrLabelProxy "internalSubset" +dOMDocumentTypeInternalSubset = AttrLabelProxy + +dOMDocumentTypeName :: AttrLabelProxy "name" +dOMDocumentTypeName = AttrLabelProxy + +dOMDocumentTypeNotations :: AttrLabelProxy "notations" +dOMDocumentTypeNotations = AttrLabelProxy + +dOMDocumentTypePublicId :: AttrLabelProxy "publicId" +dOMDocumentTypePublicId = AttrLabelProxy + +dOMDocumentTypeSystemId :: AttrLabelProxy "systemId" +dOMDocumentTypeSystemId = AttrLabelProxy + type instance SignalList DOMDocumentType = DOMDocumentTypeSignalList type DOMDocumentTypeSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) @@ -317,7 +353,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMDocumentType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit" "DOMNamedNodeMap" +-- returnType : Just (TInterface "WebKit" "DOMNamedNodeMap") -- throws : False -- Skip return : False @@ -346,7 +382,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMDocumentType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -376,7 +412,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMDocumentType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -406,7 +442,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMDocumentType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit" "DOMNamedNodeMap" +-- returnType : Just (TInterface "WebKit" "DOMNamedNodeMap") -- throws : False -- Skip return : False @@ -435,7 +471,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMDocumentType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -465,7 +501,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMDocumentType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -495,7 +531,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMDocumentType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : True -- Skip return : False diff --git a/GI/WebKit/Objects/DOMDocumentType.hs-boot b/GI/WebKit/Objects/DOMDocumentType.hs-boot --- a/GI/WebKit/Objects/DOMDocumentType.hs-boot +++ b/GI/WebKit/Objects/DOMDocumentType.hs-boot @@ -1,8 +1,8 @@ module GI.WebKit.Objects.DOMDocumentType where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map diff --git a/GI/WebKit/Objects/DOMElement.hs b/GI/WebKit/Objects/DOMElement.hs --- a/GI/WebKit/Objects/DOMElement.hs +++ b/GI/WebKit/Objects/DOMElement.hs @@ -322,106 +322,126 @@ -- * Properties -- ** Attributes DOMElementAttributesPropertyInfo , + dOMElementAttributes , getDOMElementAttributes , -- ** ChildElementCount DOMElementChildElementCountPropertyInfo , + dOMElementChildElementCount , getDOMElementChildElementCount , -- ** ClassList DOMElementClassListPropertyInfo , + dOMElementClassList , getDOMElementClassList , -- ** ClassName DOMElementClassNamePropertyInfo , constructDOMElementClassName , + dOMElementClassName , getDOMElementClassName , setDOMElementClassName , -- ** ClientHeight DOMElementClientHeightPropertyInfo , + dOMElementClientHeight , getDOMElementClientHeight , -- ** ClientLeft DOMElementClientLeftPropertyInfo , + dOMElementClientLeft , getDOMElementClientLeft , -- ** ClientTop DOMElementClientTopPropertyInfo , + dOMElementClientTop , getDOMElementClientTop , -- ** ClientWidth DOMElementClientWidthPropertyInfo , + dOMElementClientWidth , getDOMElementClientWidth , -- ** FirstElementChild DOMElementFirstElementChildPropertyInfo , + dOMElementFirstElementChild , getDOMElementFirstElementChild , -- ** Id DOMElementIdPropertyInfo , constructDOMElementId , + dOMElementId , getDOMElementId , setDOMElementId , -- ** LastElementChild DOMElementLastElementChildPropertyInfo , + dOMElementLastElementChild , getDOMElementLastElementChild , -- ** NextElementSibling DOMElementNextElementSiblingPropertyInfo, + dOMElementNextElementSibling , getDOMElementNextElementSibling , -- ** OffsetHeight DOMElementOffsetHeightPropertyInfo , + dOMElementOffsetHeight , getDOMElementOffsetHeight , -- ** OffsetLeft DOMElementOffsetLeftPropertyInfo , + dOMElementOffsetLeft , getDOMElementOffsetLeft , -- ** OffsetParent DOMElementOffsetParentPropertyInfo , + dOMElementOffsetParent , getDOMElementOffsetParent , -- ** OffsetTop DOMElementOffsetTopPropertyInfo , + dOMElementOffsetTop , getDOMElementOffsetTop , -- ** OffsetWidth DOMElementOffsetWidthPropertyInfo , + dOMElementOffsetWidth , getDOMElementOffsetWidth , -- ** PreviousElementSibling DOMElementPreviousElementSiblingPropertyInfo, + dOMElementPreviousElementSibling , getDOMElementPreviousElementSibling , -- ** ScrollHeight DOMElementScrollHeightPropertyInfo , + dOMElementScrollHeight , getDOMElementScrollHeight , -- ** ScrollLeft DOMElementScrollLeftPropertyInfo , constructDOMElementScrollLeft , + dOMElementScrollLeft , getDOMElementScrollLeft , setDOMElementScrollLeft , @@ -429,27 +449,32 @@ -- ** ScrollTop DOMElementScrollTopPropertyInfo , constructDOMElementScrollTop , + dOMElementScrollTop , getDOMElementScrollTop , setDOMElementScrollTop , -- ** ScrollWidth DOMElementScrollWidthPropertyInfo , + dOMElementScrollWidth , getDOMElementScrollWidth , -- ** Style DOMElementStylePropertyInfo , + dOMElementStyle , getDOMElementStyle , -- ** TagName DOMElementTagNamePropertyInfo , + dOMElementTagName , getDOMElementTagName , -- ** WebkitRegionOverset DOMElementWebkitRegionOversetPropertyInfo, + dOMElementWebkitRegionOverset , getDOMElementWebkitRegionOverset , @@ -457,9 +482,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map @@ -619,163 +644,180 @@ -- VVV Prop "attributes" -- Type: TInterface "WebKit" "DOMNamedNodeMap" -- Flags: [PropertyReadable] + -- Nullable: (Nothing,Nothing) -getDOMElementAttributes :: (MonadIO m, DOMElementK o) => o -> m DOMNamedNodeMap +getDOMElementAttributes :: (MonadIO m, DOMElementK o) => o -> m (Maybe DOMNamedNodeMap) getDOMElementAttributes obj = liftIO $ getObjectPropertyObject obj "attributes" DOMNamedNodeMap data DOMElementAttributesPropertyInfo instance AttrInfo DOMElementAttributesPropertyInfo where - type AttrAllowedOps DOMElementAttributesPropertyInfo = '[ 'AttrGet] + type AttrAllowedOps DOMElementAttributesPropertyInfo = '[ 'AttrGet, 'AttrClear] type AttrSetTypeConstraint DOMElementAttributesPropertyInfo = (~) () type AttrBaseTypeConstraint DOMElementAttributesPropertyInfo = DOMElementK - type AttrGetType DOMElementAttributesPropertyInfo = DOMNamedNodeMap + type AttrGetType DOMElementAttributesPropertyInfo = (Maybe DOMNamedNodeMap) type AttrLabel DOMElementAttributesPropertyInfo = "attributes" attrGet _ = getDOMElementAttributes attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "child-element-count" - -- Type: TBasicType TUInt64 + -- Type: TBasicType TULong -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) -getDOMElementChildElementCount :: (MonadIO m, DOMElementK o) => o -> m Word64 -getDOMElementChildElementCount obj = liftIO $ getObjectPropertyUInt64 obj "child-element-count" +getDOMElementChildElementCount :: (MonadIO m, DOMElementK o) => o -> m CULong +getDOMElementChildElementCount obj = liftIO $ getObjectPropertyULong obj "child-element-count" data DOMElementChildElementCountPropertyInfo instance AttrInfo DOMElementChildElementCountPropertyInfo where type AttrAllowedOps DOMElementChildElementCountPropertyInfo = '[ 'AttrGet] type AttrSetTypeConstraint DOMElementChildElementCountPropertyInfo = (~) () type AttrBaseTypeConstraint DOMElementChildElementCountPropertyInfo = DOMElementK - type AttrGetType DOMElementChildElementCountPropertyInfo = Word64 + type AttrGetType DOMElementChildElementCountPropertyInfo = CULong type AttrLabel DOMElementChildElementCountPropertyInfo = "child-element-count" attrGet _ = getDOMElementChildElementCount attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "class-list" -- Type: TInterface "WebKit" "DOMDOMTokenList" -- Flags: [PropertyReadable] + -- Nullable: (Nothing,Nothing) -getDOMElementClassList :: (MonadIO m, DOMElementK o) => o -> m DOMDOMTokenList +getDOMElementClassList :: (MonadIO m, DOMElementK o) => o -> m (Maybe DOMDOMTokenList) getDOMElementClassList obj = liftIO $ getObjectPropertyObject obj "class-list" DOMDOMTokenList data DOMElementClassListPropertyInfo instance AttrInfo DOMElementClassListPropertyInfo where - type AttrAllowedOps DOMElementClassListPropertyInfo = '[ 'AttrGet] + type AttrAllowedOps DOMElementClassListPropertyInfo = '[ 'AttrGet, 'AttrClear] type AttrSetTypeConstraint DOMElementClassListPropertyInfo = (~) () type AttrBaseTypeConstraint DOMElementClassListPropertyInfo = DOMElementK - type AttrGetType DOMElementClassListPropertyInfo = DOMDOMTokenList + type AttrGetType DOMElementClassListPropertyInfo = (Maybe DOMDOMTokenList) type AttrLabel DOMElementClassListPropertyInfo = "class-list" attrGet _ = getDOMElementClassList attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "class-name" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Just False) -getDOMElementClassName :: (MonadIO m, DOMElementK o) => o -> m T.Text +getDOMElementClassName :: (MonadIO m, DOMElementK o) => o -> m (Maybe T.Text) getDOMElementClassName obj = liftIO $ getObjectPropertyString obj "class-name" setDOMElementClassName :: (MonadIO m, DOMElementK o) => o -> T.Text -> m () -setDOMElementClassName obj val = liftIO $ setObjectPropertyString obj "class-name" val +setDOMElementClassName obj val = liftIO $ setObjectPropertyString obj "class-name" (Just val) constructDOMElementClassName :: T.Text -> IO ([Char], GValue) -constructDOMElementClassName val = constructObjectPropertyString "class-name" val +constructDOMElementClassName val = constructObjectPropertyString "class-name" (Just val) data DOMElementClassNamePropertyInfo instance AttrInfo DOMElementClassNamePropertyInfo where type AttrAllowedOps DOMElementClassNamePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint DOMElementClassNamePropertyInfo = (~) T.Text type AttrBaseTypeConstraint DOMElementClassNamePropertyInfo = DOMElementK - type AttrGetType DOMElementClassNamePropertyInfo = T.Text + type AttrGetType DOMElementClassNamePropertyInfo = (Maybe T.Text) type AttrLabel DOMElementClassNamePropertyInfo = "class-name" attrGet _ = getDOMElementClassName attrSet _ = setDOMElementClassName attrConstruct _ = constructDOMElementClassName + attrClear _ = undefined -- VVV Prop "client-height" - -- Type: TBasicType TInt64 + -- Type: TBasicType TLong -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) -getDOMElementClientHeight :: (MonadIO m, DOMElementK o) => o -> m Int64 -getDOMElementClientHeight obj = liftIO $ getObjectPropertyInt64 obj "client-height" +getDOMElementClientHeight :: (MonadIO m, DOMElementK o) => o -> m CLong +getDOMElementClientHeight obj = liftIO $ getObjectPropertyLong obj "client-height" data DOMElementClientHeightPropertyInfo instance AttrInfo DOMElementClientHeightPropertyInfo where type AttrAllowedOps DOMElementClientHeightPropertyInfo = '[ 'AttrGet] type AttrSetTypeConstraint DOMElementClientHeightPropertyInfo = (~) () type AttrBaseTypeConstraint DOMElementClientHeightPropertyInfo = DOMElementK - type AttrGetType DOMElementClientHeightPropertyInfo = Int64 + type AttrGetType DOMElementClientHeightPropertyInfo = CLong type AttrLabel DOMElementClientHeightPropertyInfo = "client-height" attrGet _ = getDOMElementClientHeight attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "client-left" - -- Type: TBasicType TInt64 + -- Type: TBasicType TLong -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) -getDOMElementClientLeft :: (MonadIO m, DOMElementK o) => o -> m Int64 -getDOMElementClientLeft obj = liftIO $ getObjectPropertyInt64 obj "client-left" +getDOMElementClientLeft :: (MonadIO m, DOMElementK o) => o -> m CLong +getDOMElementClientLeft obj = liftIO $ getObjectPropertyLong obj "client-left" data DOMElementClientLeftPropertyInfo instance AttrInfo DOMElementClientLeftPropertyInfo where type AttrAllowedOps DOMElementClientLeftPropertyInfo = '[ 'AttrGet] type AttrSetTypeConstraint DOMElementClientLeftPropertyInfo = (~) () type AttrBaseTypeConstraint DOMElementClientLeftPropertyInfo = DOMElementK - type AttrGetType DOMElementClientLeftPropertyInfo = Int64 + type AttrGetType DOMElementClientLeftPropertyInfo = CLong type AttrLabel DOMElementClientLeftPropertyInfo = "client-left" attrGet _ = getDOMElementClientLeft attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "client-top" - -- Type: TBasicType TInt64 + -- Type: TBasicType TLong -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) -getDOMElementClientTop :: (MonadIO m, DOMElementK o) => o -> m Int64 -getDOMElementClientTop obj = liftIO $ getObjectPropertyInt64 obj "client-top" +getDOMElementClientTop :: (MonadIO m, DOMElementK o) => o -> m CLong +getDOMElementClientTop obj = liftIO $ getObjectPropertyLong obj "client-top" data DOMElementClientTopPropertyInfo instance AttrInfo DOMElementClientTopPropertyInfo where type AttrAllowedOps DOMElementClientTopPropertyInfo = '[ 'AttrGet] type AttrSetTypeConstraint DOMElementClientTopPropertyInfo = (~) () type AttrBaseTypeConstraint DOMElementClientTopPropertyInfo = DOMElementK - type AttrGetType DOMElementClientTopPropertyInfo = Int64 + type AttrGetType DOMElementClientTopPropertyInfo = CLong type AttrLabel DOMElementClientTopPropertyInfo = "client-top" attrGet _ = getDOMElementClientTop attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "client-width" - -- Type: TBasicType TInt64 + -- Type: TBasicType TLong -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) -getDOMElementClientWidth :: (MonadIO m, DOMElementK o) => o -> m Int64 -getDOMElementClientWidth obj = liftIO $ getObjectPropertyInt64 obj "client-width" +getDOMElementClientWidth :: (MonadIO m, DOMElementK o) => o -> m CLong +getDOMElementClientWidth obj = liftIO $ getObjectPropertyLong obj "client-width" data DOMElementClientWidthPropertyInfo instance AttrInfo DOMElementClientWidthPropertyInfo where type AttrAllowedOps DOMElementClientWidthPropertyInfo = '[ 'AttrGet] type AttrSetTypeConstraint DOMElementClientWidthPropertyInfo = (~) () type AttrBaseTypeConstraint DOMElementClientWidthPropertyInfo = DOMElementK - type AttrGetType DOMElementClientWidthPropertyInfo = Int64 + type AttrGetType DOMElementClientWidthPropertyInfo = CLong type AttrLabel DOMElementClientWidthPropertyInfo = "client-width" attrGet _ = getDOMElementClientWidth attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "first-element-child" -- Type: TInterface "WebKit" "DOMElement" -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) getDOMElementFirstElementChild :: (MonadIO m, DOMElementK o) => o -> m DOMElement -getDOMElementFirstElementChild obj = liftIO $ getObjectPropertyObject obj "first-element-child" DOMElement +getDOMElementFirstElementChild obj = liftIO $ checkUnexpectedNothing "getDOMElementFirstElementChild" $ getObjectPropertyObject obj "first-element-child" DOMElement data DOMElementFirstElementChildPropertyInfo instance AttrInfo DOMElementFirstElementChildPropertyInfo where - type AttrAllowedOps DOMElementFirstElementChildPropertyInfo = '[ 'AttrGet] + type AttrAllowedOps DOMElementFirstElementChildPropertyInfo = '[ 'AttrGet, 'AttrClear] type AttrSetTypeConstraint DOMElementFirstElementChildPropertyInfo = (~) () type AttrBaseTypeConstraint DOMElementFirstElementChildPropertyInfo = DOMElementK type AttrGetType DOMElementFirstElementChildPropertyInfo = DOMElement @@ -783,41 +825,45 @@ attrGet _ = getDOMElementFirstElementChild attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "id" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Just False) -getDOMElementId :: (MonadIO m, DOMElementK o) => o -> m T.Text +getDOMElementId :: (MonadIO m, DOMElementK o) => o -> m (Maybe T.Text) getDOMElementId obj = liftIO $ getObjectPropertyString obj "id" setDOMElementId :: (MonadIO m, DOMElementK o) => o -> T.Text -> m () -setDOMElementId obj val = liftIO $ setObjectPropertyString obj "id" val +setDOMElementId obj val = liftIO $ setObjectPropertyString obj "id" (Just val) constructDOMElementId :: T.Text -> IO ([Char], GValue) -constructDOMElementId val = constructObjectPropertyString "id" val +constructDOMElementId val = constructObjectPropertyString "id" (Just val) data DOMElementIdPropertyInfo instance AttrInfo DOMElementIdPropertyInfo where type AttrAllowedOps DOMElementIdPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint DOMElementIdPropertyInfo = (~) T.Text type AttrBaseTypeConstraint DOMElementIdPropertyInfo = DOMElementK - type AttrGetType DOMElementIdPropertyInfo = T.Text + type AttrGetType DOMElementIdPropertyInfo = (Maybe T.Text) type AttrLabel DOMElementIdPropertyInfo = "id" attrGet _ = getDOMElementId attrSet _ = setDOMElementId attrConstruct _ = constructDOMElementId + attrClear _ = undefined -- VVV Prop "last-element-child" -- Type: TInterface "WebKit" "DOMElement" -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) getDOMElementLastElementChild :: (MonadIO m, DOMElementK o) => o -> m DOMElement -getDOMElementLastElementChild obj = liftIO $ getObjectPropertyObject obj "last-element-child" DOMElement +getDOMElementLastElementChild obj = liftIO $ checkUnexpectedNothing "getDOMElementLastElementChild" $ getObjectPropertyObject obj "last-element-child" DOMElement data DOMElementLastElementChildPropertyInfo instance AttrInfo DOMElementLastElementChildPropertyInfo where - type AttrAllowedOps DOMElementLastElementChildPropertyInfo = '[ 'AttrGet] + type AttrAllowedOps DOMElementLastElementChildPropertyInfo = '[ 'AttrGet, 'AttrClear] type AttrSetTypeConstraint DOMElementLastElementChildPropertyInfo = (~) () type AttrBaseTypeConstraint DOMElementLastElementChildPropertyInfo = DOMElementK type AttrGetType DOMElementLastElementChildPropertyInfo = DOMElement @@ -825,17 +871,19 @@ attrGet _ = getDOMElementLastElementChild attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "next-element-sibling" -- Type: TInterface "WebKit" "DOMElement" -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) getDOMElementNextElementSibling :: (MonadIO m, DOMElementK o) => o -> m DOMElement -getDOMElementNextElementSibling obj = liftIO $ getObjectPropertyObject obj "next-element-sibling" DOMElement +getDOMElementNextElementSibling obj = liftIO $ checkUnexpectedNothing "getDOMElementNextElementSibling" $ getObjectPropertyObject obj "next-element-sibling" DOMElement data DOMElementNextElementSiblingPropertyInfo instance AttrInfo DOMElementNextElementSiblingPropertyInfo where - type AttrAllowedOps DOMElementNextElementSiblingPropertyInfo = '[ 'AttrGet] + type AttrAllowedOps DOMElementNextElementSiblingPropertyInfo = '[ 'AttrGet, 'AttrClear] type AttrSetTypeConstraint DOMElementNextElementSiblingPropertyInfo = (~) () type AttrBaseTypeConstraint DOMElementNextElementSiblingPropertyInfo = DOMElementK type AttrGetType DOMElementNextElementSiblingPropertyInfo = DOMElement @@ -843,53 +891,59 @@ attrGet _ = getDOMElementNextElementSibling attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "offset-height" - -- Type: TBasicType TInt64 + -- Type: TBasicType TLong -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) -getDOMElementOffsetHeight :: (MonadIO m, DOMElementK o) => o -> m Int64 -getDOMElementOffsetHeight obj = liftIO $ getObjectPropertyInt64 obj "offset-height" +getDOMElementOffsetHeight :: (MonadIO m, DOMElementK o) => o -> m CLong +getDOMElementOffsetHeight obj = liftIO $ getObjectPropertyLong obj "offset-height" data DOMElementOffsetHeightPropertyInfo instance AttrInfo DOMElementOffsetHeightPropertyInfo where type AttrAllowedOps DOMElementOffsetHeightPropertyInfo = '[ 'AttrGet] type AttrSetTypeConstraint DOMElementOffsetHeightPropertyInfo = (~) () type AttrBaseTypeConstraint DOMElementOffsetHeightPropertyInfo = DOMElementK - type AttrGetType DOMElementOffsetHeightPropertyInfo = Int64 + type AttrGetType DOMElementOffsetHeightPropertyInfo = CLong type AttrLabel DOMElementOffsetHeightPropertyInfo = "offset-height" attrGet _ = getDOMElementOffsetHeight attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "offset-left" - -- Type: TBasicType TInt64 + -- Type: TBasicType TLong -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) -getDOMElementOffsetLeft :: (MonadIO m, DOMElementK o) => o -> m Int64 -getDOMElementOffsetLeft obj = liftIO $ getObjectPropertyInt64 obj "offset-left" +getDOMElementOffsetLeft :: (MonadIO m, DOMElementK o) => o -> m CLong +getDOMElementOffsetLeft obj = liftIO $ getObjectPropertyLong obj "offset-left" data DOMElementOffsetLeftPropertyInfo instance AttrInfo DOMElementOffsetLeftPropertyInfo where type AttrAllowedOps DOMElementOffsetLeftPropertyInfo = '[ 'AttrGet] type AttrSetTypeConstraint DOMElementOffsetLeftPropertyInfo = (~) () type AttrBaseTypeConstraint DOMElementOffsetLeftPropertyInfo = DOMElementK - type AttrGetType DOMElementOffsetLeftPropertyInfo = Int64 + type AttrGetType DOMElementOffsetLeftPropertyInfo = CLong type AttrLabel DOMElementOffsetLeftPropertyInfo = "offset-left" attrGet _ = getDOMElementOffsetLeft attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "offset-parent" -- Type: TInterface "WebKit" "DOMElement" -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) getDOMElementOffsetParent :: (MonadIO m, DOMElementK o) => o -> m DOMElement -getDOMElementOffsetParent obj = liftIO $ getObjectPropertyObject obj "offset-parent" DOMElement +getDOMElementOffsetParent obj = liftIO $ checkUnexpectedNothing "getDOMElementOffsetParent" $ getObjectPropertyObject obj "offset-parent" DOMElement data DOMElementOffsetParentPropertyInfo instance AttrInfo DOMElementOffsetParentPropertyInfo where - type AttrAllowedOps DOMElementOffsetParentPropertyInfo = '[ 'AttrGet] + type AttrAllowedOps DOMElementOffsetParentPropertyInfo = '[ 'AttrGet, 'AttrClear] type AttrSetTypeConstraint DOMElementOffsetParentPropertyInfo = (~) () type AttrBaseTypeConstraint DOMElementOffsetParentPropertyInfo = DOMElementK type AttrGetType DOMElementOffsetParentPropertyInfo = DOMElement @@ -897,53 +951,59 @@ attrGet _ = getDOMElementOffsetParent attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "offset-top" - -- Type: TBasicType TInt64 + -- Type: TBasicType TLong -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) -getDOMElementOffsetTop :: (MonadIO m, DOMElementK o) => o -> m Int64 -getDOMElementOffsetTop obj = liftIO $ getObjectPropertyInt64 obj "offset-top" +getDOMElementOffsetTop :: (MonadIO m, DOMElementK o) => o -> m CLong +getDOMElementOffsetTop obj = liftIO $ getObjectPropertyLong obj "offset-top" data DOMElementOffsetTopPropertyInfo instance AttrInfo DOMElementOffsetTopPropertyInfo where type AttrAllowedOps DOMElementOffsetTopPropertyInfo = '[ 'AttrGet] type AttrSetTypeConstraint DOMElementOffsetTopPropertyInfo = (~) () type AttrBaseTypeConstraint DOMElementOffsetTopPropertyInfo = DOMElementK - type AttrGetType DOMElementOffsetTopPropertyInfo = Int64 + type AttrGetType DOMElementOffsetTopPropertyInfo = CLong type AttrLabel DOMElementOffsetTopPropertyInfo = "offset-top" attrGet _ = getDOMElementOffsetTop attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "offset-width" - -- Type: TBasicType TInt64 + -- Type: TBasicType TLong -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) -getDOMElementOffsetWidth :: (MonadIO m, DOMElementK o) => o -> m Int64 -getDOMElementOffsetWidth obj = liftIO $ getObjectPropertyInt64 obj "offset-width" +getDOMElementOffsetWidth :: (MonadIO m, DOMElementK o) => o -> m CLong +getDOMElementOffsetWidth obj = liftIO $ getObjectPropertyLong obj "offset-width" data DOMElementOffsetWidthPropertyInfo instance AttrInfo DOMElementOffsetWidthPropertyInfo where type AttrAllowedOps DOMElementOffsetWidthPropertyInfo = '[ 'AttrGet] type AttrSetTypeConstraint DOMElementOffsetWidthPropertyInfo = (~) () type AttrBaseTypeConstraint DOMElementOffsetWidthPropertyInfo = DOMElementK - type AttrGetType DOMElementOffsetWidthPropertyInfo = Int64 + type AttrGetType DOMElementOffsetWidthPropertyInfo = CLong type AttrLabel DOMElementOffsetWidthPropertyInfo = "offset-width" attrGet _ = getDOMElementOffsetWidth attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "previous-element-sibling" -- Type: TInterface "WebKit" "DOMElement" -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) getDOMElementPreviousElementSibling :: (MonadIO m, DOMElementK o) => o -> m DOMElement -getDOMElementPreviousElementSibling obj = liftIO $ getObjectPropertyObject obj "previous-element-sibling" DOMElement +getDOMElementPreviousElementSibling obj = liftIO $ checkUnexpectedNothing "getDOMElementPreviousElementSibling" $ getObjectPropertyObject obj "previous-element-sibling" DOMElement data DOMElementPreviousElementSiblingPropertyInfo instance AttrInfo DOMElementPreviousElementSiblingPropertyInfo where - type AttrAllowedOps DOMElementPreviousElementSiblingPropertyInfo = '[ 'AttrGet] + type AttrAllowedOps DOMElementPreviousElementSiblingPropertyInfo = '[ 'AttrGet, 'AttrClear] type AttrSetTypeConstraint DOMElementPreviousElementSiblingPropertyInfo = (~) () type AttrBaseTypeConstraint DOMElementPreviousElementSiblingPropertyInfo = DOMElementK type AttrGetType DOMElementPreviousElementSiblingPropertyInfo = DOMElement @@ -951,148 +1011,238 @@ attrGet _ = getDOMElementPreviousElementSibling attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "scroll-height" - -- Type: TBasicType TInt64 + -- Type: TBasicType TLong -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) -getDOMElementScrollHeight :: (MonadIO m, DOMElementK o) => o -> m Int64 -getDOMElementScrollHeight obj = liftIO $ getObjectPropertyInt64 obj "scroll-height" +getDOMElementScrollHeight :: (MonadIO m, DOMElementK o) => o -> m CLong +getDOMElementScrollHeight obj = liftIO $ getObjectPropertyLong obj "scroll-height" data DOMElementScrollHeightPropertyInfo instance AttrInfo DOMElementScrollHeightPropertyInfo where type AttrAllowedOps DOMElementScrollHeightPropertyInfo = '[ 'AttrGet] type AttrSetTypeConstraint DOMElementScrollHeightPropertyInfo = (~) () type AttrBaseTypeConstraint DOMElementScrollHeightPropertyInfo = DOMElementK - type AttrGetType DOMElementScrollHeightPropertyInfo = Int64 + type AttrGetType DOMElementScrollHeightPropertyInfo = CLong type AttrLabel DOMElementScrollHeightPropertyInfo = "scroll-height" attrGet _ = getDOMElementScrollHeight attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "scroll-left" - -- Type: TBasicType TInt64 + -- Type: TBasicType TLong -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) -getDOMElementScrollLeft :: (MonadIO m, DOMElementK o) => o -> m Int64 -getDOMElementScrollLeft obj = liftIO $ getObjectPropertyInt64 obj "scroll-left" +getDOMElementScrollLeft :: (MonadIO m, DOMElementK o) => o -> m CLong +getDOMElementScrollLeft obj = liftIO $ getObjectPropertyLong obj "scroll-left" -setDOMElementScrollLeft :: (MonadIO m, DOMElementK o) => o -> Int64 -> m () -setDOMElementScrollLeft obj val = liftIO $ setObjectPropertyInt64 obj "scroll-left" val +setDOMElementScrollLeft :: (MonadIO m, DOMElementK o) => o -> CLong -> m () +setDOMElementScrollLeft obj val = liftIO $ setObjectPropertyLong obj "scroll-left" val -constructDOMElementScrollLeft :: Int64 -> IO ([Char], GValue) -constructDOMElementScrollLeft val = constructObjectPropertyInt64 "scroll-left" val +constructDOMElementScrollLeft :: CLong -> IO ([Char], GValue) +constructDOMElementScrollLeft val = constructObjectPropertyLong "scroll-left" val data DOMElementScrollLeftPropertyInfo instance AttrInfo DOMElementScrollLeftPropertyInfo where type AttrAllowedOps DOMElementScrollLeftPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMElementScrollLeftPropertyInfo = (~) Int64 + type AttrSetTypeConstraint DOMElementScrollLeftPropertyInfo = (~) CLong type AttrBaseTypeConstraint DOMElementScrollLeftPropertyInfo = DOMElementK - type AttrGetType DOMElementScrollLeftPropertyInfo = Int64 + type AttrGetType DOMElementScrollLeftPropertyInfo = CLong type AttrLabel DOMElementScrollLeftPropertyInfo = "scroll-left" attrGet _ = getDOMElementScrollLeft attrSet _ = setDOMElementScrollLeft attrConstruct _ = constructDOMElementScrollLeft + attrClear _ = undefined -- VVV Prop "scroll-top" - -- Type: TBasicType TInt64 + -- Type: TBasicType TLong -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) -getDOMElementScrollTop :: (MonadIO m, DOMElementK o) => o -> m Int64 -getDOMElementScrollTop obj = liftIO $ getObjectPropertyInt64 obj "scroll-top" +getDOMElementScrollTop :: (MonadIO m, DOMElementK o) => o -> m CLong +getDOMElementScrollTop obj = liftIO $ getObjectPropertyLong obj "scroll-top" -setDOMElementScrollTop :: (MonadIO m, DOMElementK o) => o -> Int64 -> m () -setDOMElementScrollTop obj val = liftIO $ setObjectPropertyInt64 obj "scroll-top" val +setDOMElementScrollTop :: (MonadIO m, DOMElementK o) => o -> CLong -> m () +setDOMElementScrollTop obj val = liftIO $ setObjectPropertyLong obj "scroll-top" val -constructDOMElementScrollTop :: Int64 -> IO ([Char], GValue) -constructDOMElementScrollTop val = constructObjectPropertyInt64 "scroll-top" val +constructDOMElementScrollTop :: CLong -> IO ([Char], GValue) +constructDOMElementScrollTop val = constructObjectPropertyLong "scroll-top" val data DOMElementScrollTopPropertyInfo instance AttrInfo DOMElementScrollTopPropertyInfo where type AttrAllowedOps DOMElementScrollTopPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMElementScrollTopPropertyInfo = (~) Int64 + type AttrSetTypeConstraint DOMElementScrollTopPropertyInfo = (~) CLong type AttrBaseTypeConstraint DOMElementScrollTopPropertyInfo = DOMElementK - type AttrGetType DOMElementScrollTopPropertyInfo = Int64 + type AttrGetType DOMElementScrollTopPropertyInfo = CLong type AttrLabel DOMElementScrollTopPropertyInfo = "scroll-top" attrGet _ = getDOMElementScrollTop attrSet _ = setDOMElementScrollTop attrConstruct _ = constructDOMElementScrollTop + attrClear _ = undefined -- VVV Prop "scroll-width" - -- Type: TBasicType TInt64 + -- Type: TBasicType TLong -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) -getDOMElementScrollWidth :: (MonadIO m, DOMElementK o) => o -> m Int64 -getDOMElementScrollWidth obj = liftIO $ getObjectPropertyInt64 obj "scroll-width" +getDOMElementScrollWidth :: (MonadIO m, DOMElementK o) => o -> m CLong +getDOMElementScrollWidth obj = liftIO $ getObjectPropertyLong obj "scroll-width" data DOMElementScrollWidthPropertyInfo instance AttrInfo DOMElementScrollWidthPropertyInfo where type AttrAllowedOps DOMElementScrollWidthPropertyInfo = '[ 'AttrGet] type AttrSetTypeConstraint DOMElementScrollWidthPropertyInfo = (~) () type AttrBaseTypeConstraint DOMElementScrollWidthPropertyInfo = DOMElementK - type AttrGetType DOMElementScrollWidthPropertyInfo = Int64 + type AttrGetType DOMElementScrollWidthPropertyInfo = CLong type AttrLabel DOMElementScrollWidthPropertyInfo = "scroll-width" attrGet _ = getDOMElementScrollWidth attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "style" -- Type: TInterface "WebKit" "DOMCSSStyleDeclaration" -- Flags: [PropertyReadable] + -- Nullable: (Nothing,Nothing) -getDOMElementStyle :: (MonadIO m, DOMElementK o) => o -> m DOMCSSStyleDeclaration +getDOMElementStyle :: (MonadIO m, DOMElementK o) => o -> m (Maybe DOMCSSStyleDeclaration) getDOMElementStyle obj = liftIO $ getObjectPropertyObject obj "style" DOMCSSStyleDeclaration data DOMElementStylePropertyInfo instance AttrInfo DOMElementStylePropertyInfo where - type AttrAllowedOps DOMElementStylePropertyInfo = '[ 'AttrGet] + type AttrAllowedOps DOMElementStylePropertyInfo = '[ 'AttrGet, 'AttrClear] type AttrSetTypeConstraint DOMElementStylePropertyInfo = (~) () type AttrBaseTypeConstraint DOMElementStylePropertyInfo = DOMElementK - type AttrGetType DOMElementStylePropertyInfo = DOMCSSStyleDeclaration + type AttrGetType DOMElementStylePropertyInfo = (Maybe DOMCSSStyleDeclaration) type AttrLabel DOMElementStylePropertyInfo = "style" attrGet _ = getDOMElementStyle attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "tag-name" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable] + -- Nullable: (Nothing,Nothing) -getDOMElementTagName :: (MonadIO m, DOMElementK o) => o -> m T.Text +getDOMElementTagName :: (MonadIO m, DOMElementK o) => o -> m (Maybe T.Text) getDOMElementTagName obj = liftIO $ getObjectPropertyString obj "tag-name" data DOMElementTagNamePropertyInfo instance AttrInfo DOMElementTagNamePropertyInfo where - type AttrAllowedOps DOMElementTagNamePropertyInfo = '[ 'AttrGet] + type AttrAllowedOps DOMElementTagNamePropertyInfo = '[ 'AttrGet, 'AttrClear] type AttrSetTypeConstraint DOMElementTagNamePropertyInfo = (~) () type AttrBaseTypeConstraint DOMElementTagNamePropertyInfo = DOMElementK - type AttrGetType DOMElementTagNamePropertyInfo = T.Text + type AttrGetType DOMElementTagNamePropertyInfo = (Maybe T.Text) type AttrLabel DOMElementTagNamePropertyInfo = "tag-name" attrGet _ = getDOMElementTagName attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "webkit-region-overset" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable] + -- Nullable: (Nothing,Nothing) -getDOMElementWebkitRegionOverset :: (MonadIO m, DOMElementK o) => o -> m T.Text +getDOMElementWebkitRegionOverset :: (MonadIO m, DOMElementK o) => o -> m (Maybe T.Text) getDOMElementWebkitRegionOverset obj = liftIO $ getObjectPropertyString obj "webkit-region-overset" data DOMElementWebkitRegionOversetPropertyInfo instance AttrInfo DOMElementWebkitRegionOversetPropertyInfo where - type AttrAllowedOps DOMElementWebkitRegionOversetPropertyInfo = '[ 'AttrGet] + type AttrAllowedOps DOMElementWebkitRegionOversetPropertyInfo = '[ 'AttrGet, 'AttrClear] type AttrSetTypeConstraint DOMElementWebkitRegionOversetPropertyInfo = (~) () type AttrBaseTypeConstraint DOMElementWebkitRegionOversetPropertyInfo = DOMElementK - type AttrGetType DOMElementWebkitRegionOversetPropertyInfo = T.Text + type AttrGetType DOMElementWebkitRegionOversetPropertyInfo = (Maybe T.Text) type AttrLabel DOMElementWebkitRegionOversetPropertyInfo = "webkit-region-overset" attrGet _ = getDOMElementWebkitRegionOverset attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined type instance AttributeList DOMElement = DOMElementAttributeList type DOMElementAttributeList = ('[ '("attributes", DOMElementAttributesPropertyInfo), '("baseUri", DOMNodeBaseUriPropertyInfo), '("childElementCount", DOMElementChildElementCountPropertyInfo), '("childNodes", DOMNodeChildNodesPropertyInfo), '("classList", DOMElementClassListPropertyInfo), '("className", DOMElementClassNamePropertyInfo), '("clientHeight", DOMElementClientHeightPropertyInfo), '("clientLeft", DOMElementClientLeftPropertyInfo), '("clientTop", DOMElementClientTopPropertyInfo), '("clientWidth", DOMElementClientWidthPropertyInfo), '("coreObject", DOMObjectCoreObjectPropertyInfo), '("firstChild", DOMNodeFirstChildPropertyInfo), '("firstElementChild", DOMElementFirstElementChildPropertyInfo), '("id", DOMElementIdPropertyInfo), '("lastChild", DOMNodeLastChildPropertyInfo), '("lastElementChild", DOMElementLastElementChildPropertyInfo), '("localName", DOMNodeLocalNamePropertyInfo), '("namespaceUri", DOMNodeNamespaceUriPropertyInfo), '("nextElementSibling", DOMElementNextElementSiblingPropertyInfo), '("nextSibling", DOMNodeNextSiblingPropertyInfo), '("nodeName", DOMNodeNodeNamePropertyInfo), '("nodeType", DOMNodeNodeTypePropertyInfo), '("nodeValue", DOMNodeNodeValuePropertyInfo), '("offsetHeight", DOMElementOffsetHeightPropertyInfo), '("offsetLeft", DOMElementOffsetLeftPropertyInfo), '("offsetParent", DOMElementOffsetParentPropertyInfo), '("offsetTop", DOMElementOffsetTopPropertyInfo), '("offsetWidth", DOMElementOffsetWidthPropertyInfo), '("ownerDocument", DOMNodeOwnerDocumentPropertyInfo), '("parentElement", DOMNodeParentElementPropertyInfo), '("parentNode", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previousElementSibling", DOMElementPreviousElementSiblingPropertyInfo), '("previousSibling", DOMNodePreviousSiblingPropertyInfo), '("scrollHeight", DOMElementScrollHeightPropertyInfo), '("scrollLeft", DOMElementScrollLeftPropertyInfo), '("scrollTop", DOMElementScrollTopPropertyInfo), '("scrollWidth", DOMElementScrollWidthPropertyInfo), '("style", DOMElementStylePropertyInfo), '("tagName", DOMElementTagNamePropertyInfo), '("textContent", DOMNodeTextContentPropertyInfo), '("webkitRegionOverset", DOMElementWebkitRegionOversetPropertyInfo)] :: [(Symbol, *)]) +dOMElementAttributes :: AttrLabelProxy "attributes" +dOMElementAttributes = AttrLabelProxy + +dOMElementChildElementCount :: AttrLabelProxy "childElementCount" +dOMElementChildElementCount = AttrLabelProxy + +dOMElementClassList :: AttrLabelProxy "classList" +dOMElementClassList = AttrLabelProxy + +dOMElementClassName :: AttrLabelProxy "className" +dOMElementClassName = AttrLabelProxy + +dOMElementClientHeight :: AttrLabelProxy "clientHeight" +dOMElementClientHeight = AttrLabelProxy + +dOMElementClientLeft :: AttrLabelProxy "clientLeft" +dOMElementClientLeft = AttrLabelProxy + +dOMElementClientTop :: AttrLabelProxy "clientTop" +dOMElementClientTop = AttrLabelProxy + +dOMElementClientWidth :: AttrLabelProxy "clientWidth" +dOMElementClientWidth = AttrLabelProxy + +dOMElementFirstElementChild :: AttrLabelProxy "firstElementChild" +dOMElementFirstElementChild = AttrLabelProxy + +dOMElementId :: AttrLabelProxy "id" +dOMElementId = AttrLabelProxy + +dOMElementLastElementChild :: AttrLabelProxy "lastElementChild" +dOMElementLastElementChild = AttrLabelProxy + +dOMElementNextElementSibling :: AttrLabelProxy "nextElementSibling" +dOMElementNextElementSibling = AttrLabelProxy + +dOMElementOffsetHeight :: AttrLabelProxy "offsetHeight" +dOMElementOffsetHeight = AttrLabelProxy + +dOMElementOffsetLeft :: AttrLabelProxy "offsetLeft" +dOMElementOffsetLeft = AttrLabelProxy + +dOMElementOffsetParent :: AttrLabelProxy "offsetParent" +dOMElementOffsetParent = AttrLabelProxy + +dOMElementOffsetTop :: AttrLabelProxy "offsetTop" +dOMElementOffsetTop = AttrLabelProxy + +dOMElementOffsetWidth :: AttrLabelProxy "offsetWidth" +dOMElementOffsetWidth = AttrLabelProxy + +dOMElementPreviousElementSibling :: AttrLabelProxy "previousElementSibling" +dOMElementPreviousElementSibling = AttrLabelProxy + +dOMElementScrollHeight :: AttrLabelProxy "scrollHeight" +dOMElementScrollHeight = AttrLabelProxy + +dOMElementScrollLeft :: AttrLabelProxy "scrollLeft" +dOMElementScrollLeft = AttrLabelProxy + +dOMElementScrollTop :: AttrLabelProxy "scrollTop" +dOMElementScrollTop = AttrLabelProxy + +dOMElementScrollWidth :: AttrLabelProxy "scrollWidth" +dOMElementScrollWidth = AttrLabelProxy + +dOMElementStyle :: AttrLabelProxy "style" +dOMElementStyle = AttrLabelProxy + +dOMElementTagName :: AttrLabelProxy "tagName" +dOMElementTagName = AttrLabelProxy + +dOMElementWebkitRegionOverset :: AttrLabelProxy "webkitRegionOverset" +dOMElementWebkitRegionOverset = AttrLabelProxy + type instance SignalList DOMElement = DOMElementSignalList type DOMElementSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) @@ -1100,7 +1250,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1127,7 +1277,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1154,7 +1304,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -1188,7 +1338,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit" "DOMAttr" +-- returnType : Just (TInterface "WebKit" "DOMAttr") -- throws : False -- Skip return : False @@ -1221,7 +1371,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "namespaceURI", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "localName", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit" "DOMAttr" +-- returnType : Just (TInterface "WebKit" "DOMAttr") -- throws : False -- Skip return : False @@ -1258,7 +1408,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "namespaceURI", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "localName", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -1296,7 +1446,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit" "DOMNamedNodeMap" +-- returnType : Just (TInterface "WebKit" "DOMNamedNodeMap") -- throws : False -- Skip return : False @@ -1325,19 +1475,19 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUInt64 +-- returnType : Just (TBasicType TULong) -- throws : False -- Skip return : False foreign import ccall "webkit_dom_element_get_child_element_count" webkit_dom_element_get_child_element_count :: Ptr DOMElement -> -- _obj : TInterface "WebKit" "DOMElement" - IO Word64 + IO CULong dOMElementGetChildElementCount :: (MonadIO m, DOMElementK a) => a -- _obj - -> m Word64 -- result + -> m CULong -- result dOMElementGetChildElementCount _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- webkit_dom_element_get_child_element_count _obj' @@ -1345,14 +1495,14 @@ return result data DOMElementGetChildElementCountMethodInfo -instance (signature ~ (m Word64), MonadIO m, DOMElementK a) => MethodInfo DOMElementGetChildElementCountMethodInfo a signature where +instance (signature ~ (m CULong), MonadIO m, DOMElementK a) => MethodInfo DOMElementGetChildElementCountMethodInfo a signature where overloadedMethod _ = dOMElementGetChildElementCount -- method DOMElement::get_class_list -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit" "DOMDOMTokenList" +-- returnType : Just (TInterface "WebKit" "DOMDOMTokenList") -- throws : False -- Skip return : False @@ -1381,7 +1531,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -1411,19 +1561,19 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TInt64 +-- returnType : Just (TBasicType TLong) -- throws : False -- Skip return : False foreign import ccall "webkit_dom_element_get_client_height" webkit_dom_element_get_client_height :: Ptr DOMElement -> -- _obj : TInterface "WebKit" "DOMElement" - IO Int64 + IO CLong dOMElementGetClientHeight :: (MonadIO m, DOMElementK a) => a -- _obj - -> m Int64 -- result + -> m CLong -- result dOMElementGetClientHeight _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- webkit_dom_element_get_client_height _obj' @@ -1431,26 +1581,26 @@ return result data DOMElementGetClientHeightMethodInfo -instance (signature ~ (m Int64), MonadIO m, DOMElementK a) => MethodInfo DOMElementGetClientHeightMethodInfo a signature where +instance (signature ~ (m CLong), MonadIO m, DOMElementK a) => MethodInfo DOMElementGetClientHeightMethodInfo a signature where overloadedMethod _ = dOMElementGetClientHeight -- method DOMElement::get_client_left -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TInt64 +-- returnType : Just (TBasicType TLong) -- throws : False -- Skip return : False foreign import ccall "webkit_dom_element_get_client_left" webkit_dom_element_get_client_left :: Ptr DOMElement -> -- _obj : TInterface "WebKit" "DOMElement" - IO Int64 + IO CLong dOMElementGetClientLeft :: (MonadIO m, DOMElementK a) => a -- _obj - -> m Int64 -- result + -> m CLong -- result dOMElementGetClientLeft _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- webkit_dom_element_get_client_left _obj' @@ -1458,26 +1608,26 @@ return result data DOMElementGetClientLeftMethodInfo -instance (signature ~ (m Int64), MonadIO m, DOMElementK a) => MethodInfo DOMElementGetClientLeftMethodInfo a signature where +instance (signature ~ (m CLong), MonadIO m, DOMElementK a) => MethodInfo DOMElementGetClientLeftMethodInfo a signature where overloadedMethod _ = dOMElementGetClientLeft -- method DOMElement::get_client_top -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TInt64 +-- returnType : Just (TBasicType TLong) -- throws : False -- Skip return : False foreign import ccall "webkit_dom_element_get_client_top" webkit_dom_element_get_client_top :: Ptr DOMElement -> -- _obj : TInterface "WebKit" "DOMElement" - IO Int64 + IO CLong dOMElementGetClientTop :: (MonadIO m, DOMElementK a) => a -- _obj - -> m Int64 -- result + -> m CLong -- result dOMElementGetClientTop _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- webkit_dom_element_get_client_top _obj' @@ -1485,26 +1635,26 @@ return result data DOMElementGetClientTopMethodInfo -instance (signature ~ (m Int64), MonadIO m, DOMElementK a) => MethodInfo DOMElementGetClientTopMethodInfo a signature where +instance (signature ~ (m CLong), MonadIO m, DOMElementK a) => MethodInfo DOMElementGetClientTopMethodInfo a signature where overloadedMethod _ = dOMElementGetClientTop -- method DOMElement::get_client_width -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TInt64 +-- returnType : Just (TBasicType TLong) -- throws : False -- Skip return : False foreign import ccall "webkit_dom_element_get_client_width" webkit_dom_element_get_client_width :: Ptr DOMElement -> -- _obj : TInterface "WebKit" "DOMElement" - IO Int64 + IO CLong dOMElementGetClientWidth :: (MonadIO m, DOMElementK a) => a -- _obj - -> m Int64 -- result + -> m CLong -- result dOMElementGetClientWidth _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- webkit_dom_element_get_client_width _obj' @@ -1512,14 +1662,14 @@ return result data DOMElementGetClientWidthMethodInfo -instance (signature ~ (m Int64), MonadIO m, DOMElementK a) => MethodInfo DOMElementGetClientWidthMethodInfo a signature where +instance (signature ~ (m CLong), MonadIO m, DOMElementK a) => MethodInfo DOMElementGetClientWidthMethodInfo a signature where overloadedMethod _ = dOMElementGetClientWidth -- method DOMElement::get_elements_by_class_name -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit" "DOMNodeList" +-- returnType : Just (TInterface "WebKit" "DOMNodeList") -- throws : False -- Skip return : False @@ -1552,7 +1702,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit" "DOMNodeList" +-- returnType : Just (TInterface "WebKit" "DOMNodeList") -- throws : False -- Skip return : False @@ -1585,7 +1735,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "namespaceURI", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "localName", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit" "DOMNodeList" +-- returnType : Just (TInterface "WebKit" "DOMNodeList") -- throws : False -- Skip return : False @@ -1622,7 +1772,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit" "DOMElement" +-- returnType : Just (TInterface "WebKit" "DOMElement") -- throws : False -- Skip return : False @@ -1651,7 +1801,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -1681,7 +1831,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit" "DOMElement" +-- returnType : Just (TInterface "WebKit" "DOMElement") -- throws : False -- Skip return : False @@ -1710,7 +1860,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit" "DOMElement" +-- returnType : Just (TInterface "WebKit" "DOMElement") -- throws : False -- Skip return : False @@ -1739,19 +1889,19 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TInt64 +-- returnType : Just (TBasicType TLong) -- throws : False -- Skip return : False foreign import ccall "webkit_dom_element_get_offset_height" webkit_dom_element_get_offset_height :: Ptr DOMElement -> -- _obj : TInterface "WebKit" "DOMElement" - IO Int64 + IO CLong dOMElementGetOffsetHeight :: (MonadIO m, DOMElementK a) => a -- _obj - -> m Int64 -- result + -> m CLong -- result dOMElementGetOffsetHeight _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- webkit_dom_element_get_offset_height _obj' @@ -1759,26 +1909,26 @@ return result data DOMElementGetOffsetHeightMethodInfo -instance (signature ~ (m Int64), MonadIO m, DOMElementK a) => MethodInfo DOMElementGetOffsetHeightMethodInfo a signature where +instance (signature ~ (m CLong), MonadIO m, DOMElementK a) => MethodInfo DOMElementGetOffsetHeightMethodInfo a signature where overloadedMethod _ = dOMElementGetOffsetHeight -- method DOMElement::get_offset_left -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TInt64 +-- returnType : Just (TBasicType TLong) -- throws : False -- Skip return : False foreign import ccall "webkit_dom_element_get_offset_left" webkit_dom_element_get_offset_left :: Ptr DOMElement -> -- _obj : TInterface "WebKit" "DOMElement" - IO Int64 + IO CLong dOMElementGetOffsetLeft :: (MonadIO m, DOMElementK a) => a -- _obj - -> m Int64 -- result + -> m CLong -- result dOMElementGetOffsetLeft _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- webkit_dom_element_get_offset_left _obj' @@ -1786,14 +1936,14 @@ return result data DOMElementGetOffsetLeftMethodInfo -instance (signature ~ (m Int64), MonadIO m, DOMElementK a) => MethodInfo DOMElementGetOffsetLeftMethodInfo a signature where +instance (signature ~ (m CLong), MonadIO m, DOMElementK a) => MethodInfo DOMElementGetOffsetLeftMethodInfo a signature where overloadedMethod _ = dOMElementGetOffsetLeft -- method DOMElement::get_offset_parent -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit" "DOMElement" +-- returnType : Just (TInterface "WebKit" "DOMElement") -- throws : False -- Skip return : False @@ -1822,19 +1972,19 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TInt64 +-- returnType : Just (TBasicType TLong) -- throws : False -- Skip return : False foreign import ccall "webkit_dom_element_get_offset_top" webkit_dom_element_get_offset_top :: Ptr DOMElement -> -- _obj : TInterface "WebKit" "DOMElement" - IO Int64 + IO CLong dOMElementGetOffsetTop :: (MonadIO m, DOMElementK a) => a -- _obj - -> m Int64 -- result + -> m CLong -- result dOMElementGetOffsetTop _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- webkit_dom_element_get_offset_top _obj' @@ -1842,26 +1992,26 @@ return result data DOMElementGetOffsetTopMethodInfo -instance (signature ~ (m Int64), MonadIO m, DOMElementK a) => MethodInfo DOMElementGetOffsetTopMethodInfo a signature where +instance (signature ~ (m CLong), MonadIO m, DOMElementK a) => MethodInfo DOMElementGetOffsetTopMethodInfo a signature where overloadedMethod _ = dOMElementGetOffsetTop -- method DOMElement::get_offset_width -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TInt64 +-- returnType : Just (TBasicType TLong) -- throws : False -- Skip return : False foreign import ccall "webkit_dom_element_get_offset_width" webkit_dom_element_get_offset_width :: Ptr DOMElement -> -- _obj : TInterface "WebKit" "DOMElement" - IO Int64 + IO CLong dOMElementGetOffsetWidth :: (MonadIO m, DOMElementK a) => a -- _obj - -> m Int64 -- result + -> m CLong -- result dOMElementGetOffsetWidth _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- webkit_dom_element_get_offset_width _obj' @@ -1869,14 +2019,14 @@ return result data DOMElementGetOffsetWidthMethodInfo -instance (signature ~ (m Int64), MonadIO m, DOMElementK a) => MethodInfo DOMElementGetOffsetWidthMethodInfo a signature where +instance (signature ~ (m CLong), MonadIO m, DOMElementK a) => MethodInfo DOMElementGetOffsetWidthMethodInfo a signature where overloadedMethod _ = dOMElementGetOffsetWidth -- method DOMElement::get_previous_element_sibling -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit" "DOMElement" +-- returnType : Just (TInterface "WebKit" "DOMElement") -- throws : False -- Skip return : False @@ -1905,19 +2055,19 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TInt64 +-- returnType : Just (TBasicType TLong) -- throws : False -- Skip return : False foreign import ccall "webkit_dom_element_get_scroll_height" webkit_dom_element_get_scroll_height :: Ptr DOMElement -> -- _obj : TInterface "WebKit" "DOMElement" - IO Int64 + IO CLong dOMElementGetScrollHeight :: (MonadIO m, DOMElementK a) => a -- _obj - -> m Int64 -- result + -> m CLong -- result dOMElementGetScrollHeight _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- webkit_dom_element_get_scroll_height _obj' @@ -1925,26 +2075,26 @@ return result data DOMElementGetScrollHeightMethodInfo -instance (signature ~ (m Int64), MonadIO m, DOMElementK a) => MethodInfo DOMElementGetScrollHeightMethodInfo a signature where +instance (signature ~ (m CLong), MonadIO m, DOMElementK a) => MethodInfo DOMElementGetScrollHeightMethodInfo a signature where overloadedMethod _ = dOMElementGetScrollHeight -- method DOMElement::get_scroll_left -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TInt64 +-- returnType : Just (TBasicType TLong) -- throws : False -- Skip return : False foreign import ccall "webkit_dom_element_get_scroll_left" webkit_dom_element_get_scroll_left :: Ptr DOMElement -> -- _obj : TInterface "WebKit" "DOMElement" - IO Int64 + IO CLong dOMElementGetScrollLeft :: (MonadIO m, DOMElementK a) => a -- _obj - -> m Int64 -- result + -> m CLong -- result dOMElementGetScrollLeft _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- webkit_dom_element_get_scroll_left _obj' @@ -1952,26 +2102,26 @@ return result data DOMElementGetScrollLeftMethodInfo -instance (signature ~ (m Int64), MonadIO m, DOMElementK a) => MethodInfo DOMElementGetScrollLeftMethodInfo a signature where +instance (signature ~ (m CLong), MonadIO m, DOMElementK a) => MethodInfo DOMElementGetScrollLeftMethodInfo a signature where overloadedMethod _ = dOMElementGetScrollLeft -- method DOMElement::get_scroll_top -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TInt64 +-- returnType : Just (TBasicType TLong) -- throws : False -- Skip return : False foreign import ccall "webkit_dom_element_get_scroll_top" webkit_dom_element_get_scroll_top :: Ptr DOMElement -> -- _obj : TInterface "WebKit" "DOMElement" - IO Int64 + IO CLong dOMElementGetScrollTop :: (MonadIO m, DOMElementK a) => a -- _obj - -> m Int64 -- result + -> m CLong -- result dOMElementGetScrollTop _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- webkit_dom_element_get_scroll_top _obj' @@ -1979,26 +2129,26 @@ return result data DOMElementGetScrollTopMethodInfo -instance (signature ~ (m Int64), MonadIO m, DOMElementK a) => MethodInfo DOMElementGetScrollTopMethodInfo a signature where +instance (signature ~ (m CLong), MonadIO m, DOMElementK a) => MethodInfo DOMElementGetScrollTopMethodInfo a signature where overloadedMethod _ = dOMElementGetScrollTop -- method DOMElement::get_scroll_width -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TInt64 +-- returnType : Just (TBasicType TLong) -- throws : False -- Skip return : False foreign import ccall "webkit_dom_element_get_scroll_width" webkit_dom_element_get_scroll_width :: Ptr DOMElement -> -- _obj : TInterface "WebKit" "DOMElement" - IO Int64 + IO CLong dOMElementGetScrollWidth :: (MonadIO m, DOMElementK a) => a -- _obj - -> m Int64 -- result + -> m CLong -- result dOMElementGetScrollWidth _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- webkit_dom_element_get_scroll_width _obj' @@ -2006,14 +2156,14 @@ return result data DOMElementGetScrollWidthMethodInfo -instance (signature ~ (m Int64), MonadIO m, DOMElementK a) => MethodInfo DOMElementGetScrollWidthMethodInfo a signature where +instance (signature ~ (m CLong), MonadIO m, DOMElementK a) => MethodInfo DOMElementGetScrollWidthMethodInfo a signature where overloadedMethod _ = dOMElementGetScrollWidth -- method DOMElement::get_style -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit" "DOMCSSStyleDeclaration" +-- returnType : Just (TInterface "WebKit" "DOMCSSStyleDeclaration") -- throws : False -- Skip return : False @@ -2042,7 +2192,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -2072,7 +2222,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -2102,7 +2252,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -2132,7 +2282,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -2164,7 +2314,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "namespaceURI", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "localName", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -2200,7 +2350,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -2228,7 +2378,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "selectors", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit" "DOMElement" +-- returnType : Just (TInterface "WebKit" "DOMElement") -- throws : True -- Skip return : False @@ -2266,7 +2416,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "selectors", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit" "DOMNodeList" +-- returnType : Just (TInterface "WebKit" "DOMNodeList") -- throws : True -- Skip return : False @@ -2304,7 +2454,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : True -- Skip return : False @@ -2336,7 +2486,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -2367,7 +2517,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "oldAttr", argType = TInterface "WebKit" "DOMAttr", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit" "DOMAttr" +-- returnType : Just (TInterface "WebKit" "DOMAttr") -- throws : True -- Skip return : False @@ -2405,7 +2555,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "namespaceURI", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "localName", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -2438,22 +2588,22 @@ -- method DOMElement::scroll_by_lines -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "lines", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "lines", argType = TBasicType TLong, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "webkit_dom_element_scroll_by_lines" webkit_dom_element_scroll_by_lines :: Ptr DOMElement -> -- _obj : TInterface "WebKit" "DOMElement" - Int64 -> -- lines : TBasicType TInt64 + CLong -> -- lines : TBasicType TLong IO () dOMElementScrollByLines :: (MonadIO m, DOMElementK a) => a -- _obj - -> Int64 -- lines + -> CLong -- lines -> m () -- result dOMElementScrollByLines _obj lines = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj @@ -2462,27 +2612,27 @@ return () data DOMElementScrollByLinesMethodInfo -instance (signature ~ (Int64 -> m ()), MonadIO m, DOMElementK a) => MethodInfo DOMElementScrollByLinesMethodInfo a signature where +instance (signature ~ (CLong -> m ()), MonadIO m, DOMElementK a) => MethodInfo DOMElementScrollByLinesMethodInfo a signature where overloadedMethod _ = dOMElementScrollByLines -- method DOMElement::scroll_by_pages -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "pages", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "pages", argType = TBasicType TLong, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "webkit_dom_element_scroll_by_pages" webkit_dom_element_scroll_by_pages :: Ptr DOMElement -> -- _obj : TInterface "WebKit" "DOMElement" - Int64 -> -- pages : TBasicType TInt64 + CLong -> -- pages : TBasicType TLong IO () dOMElementScrollByPages :: (MonadIO m, DOMElementK a) => a -- _obj - -> Int64 -- pages + -> CLong -- pages -> m () -- result dOMElementScrollByPages _obj pages = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj @@ -2491,14 +2641,14 @@ return () data DOMElementScrollByPagesMethodInfo -instance (signature ~ (Int64 -> m ()), MonadIO m, DOMElementK a) => MethodInfo DOMElementScrollByPagesMethodInfo a signature where +instance (signature ~ (CLong -> m ()), MonadIO m, DOMElementK a) => MethodInfo DOMElementScrollByPagesMethodInfo a signature where overloadedMethod _ = dOMElementScrollByPages -- method DOMElement::scroll_into_view -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "alignWithTop", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -2528,7 +2678,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "centerIfNeeded", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -2558,7 +2708,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : True -- Skip return : False @@ -2599,7 +2749,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "newAttr", argType = TInterface "WebKit" "DOMAttr", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit" "DOMAttr" +-- returnType : Just (TInterface "WebKit" "DOMAttr") -- throws : True -- Skip return : False @@ -2637,7 +2787,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "newAttr", argType = TInterface "WebKit" "DOMAttr", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit" "DOMAttr" +-- returnType : Just (TInterface "WebKit" "DOMAttr") -- throws : True -- Skip return : False @@ -2675,7 +2825,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "namespaceURI", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "qualifiedName", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : True -- Skip return : False @@ -2725,7 +2875,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -2756,7 +2906,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -2785,22 +2935,22 @@ -- method DOMElement::set_scroll_left -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TLong, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "webkit_dom_element_set_scroll_left" webkit_dom_element_set_scroll_left :: Ptr DOMElement -> -- _obj : TInterface "WebKit" "DOMElement" - Int64 -> -- value : TBasicType TInt64 + CLong -> -- value : TBasicType TLong IO () dOMElementSetScrollLeft :: (MonadIO m, DOMElementK a) => a -- _obj - -> Int64 -- value + -> CLong -- value -> m () -- result dOMElementSetScrollLeft _obj value = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj @@ -2809,27 +2959,27 @@ return () data DOMElementSetScrollLeftMethodInfo -instance (signature ~ (Int64 -> m ()), MonadIO m, DOMElementK a) => MethodInfo DOMElementSetScrollLeftMethodInfo a signature where +instance (signature ~ (CLong -> m ()), MonadIO m, DOMElementK a) => MethodInfo DOMElementSetScrollLeftMethodInfo a signature where overloadedMethod _ = dOMElementSetScrollLeft -- method DOMElement::set_scroll_top -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TLong, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "webkit_dom_element_set_scroll_top" webkit_dom_element_set_scroll_top :: Ptr DOMElement -> -- _obj : TInterface "WebKit" "DOMElement" - Int64 -> -- value : TBasicType TInt64 + CLong -> -- value : TBasicType TLong IO () dOMElementSetScrollTop :: (MonadIO m, DOMElementK a) => a -- _obj - -> Int64 -- value + -> CLong -- value -> m () -- result dOMElementSetScrollTop _obj value = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj @@ -2838,14 +2988,14 @@ return () data DOMElementSetScrollTopMethodInfo -instance (signature ~ (Int64 -> m ()), MonadIO m, DOMElementK a) => MethodInfo DOMElementSetScrollTopMethodInfo a signature where +instance (signature ~ (CLong -> m ()), MonadIO m, DOMElementK a) => MethodInfo DOMElementSetScrollTopMethodInfo a signature where overloadedMethod _ = dOMElementSetScrollTop -- method DOMElement::webkit_matches_selector -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "selectors", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : True -- Skip return : False @@ -2881,7 +3031,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TBasicType TUInt16, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -2910,7 +3060,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -2937,7 +3087,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False diff --git a/GI/WebKit/Objects/DOMElement.hs-boot b/GI/WebKit/Objects/DOMElement.hs-boot --- a/GI/WebKit/Objects/DOMElement.hs-boot +++ b/GI/WebKit/Objects/DOMElement.hs-boot @@ -1,8 +1,8 @@ module GI.WebKit.Objects.DOMElement where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map diff --git a/GI/WebKit/Objects/DOMEntityReference.hs b/GI/WebKit/Objects/DOMEntityReference.hs --- a/GI/WebKit/Objects/DOMEntityReference.hs +++ b/GI/WebKit/Objects/DOMEntityReference.hs @@ -18,9 +18,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map diff --git a/GI/WebKit/Objects/DOMEntityReference.hs-boot b/GI/WebKit/Objects/DOMEntityReference.hs-boot --- a/GI/WebKit/Objects/DOMEntityReference.hs-boot +++ b/GI/WebKit/Objects/DOMEntityReference.hs-boot @@ -1,8 +1,8 @@ module GI.WebKit.Objects.DOMEntityReference where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map diff --git a/GI/WebKit/Objects/DOMEvent.hs b/GI/WebKit/Objects/DOMEvent.hs --- a/GI/WebKit/Objects/DOMEvent.hs +++ b/GI/WebKit/Objects/DOMEvent.hs @@ -102,60 +102,71 @@ -- * Properties -- ** Bubbles DOMEventBubblesPropertyInfo , + dOMEventBubbles , getDOMEventBubbles , -- ** CancelBubble DOMEventCancelBubblePropertyInfo , constructDOMEventCancelBubble , + dOMEventCancelBubble , getDOMEventCancelBubble , setDOMEventCancelBubble , -- ** Cancelable DOMEventCancelablePropertyInfo , + dOMEventCancelable , getDOMEventCancelable , -- ** CurrentTarget DOMEventCurrentTargetPropertyInfo , + dOMEventCurrentTarget , getDOMEventCurrentTarget , -- ** DefaultPrevented DOMEventDefaultPreventedPropertyInfo , + dOMEventDefaultPrevented , getDOMEventDefaultPrevented , -- ** EventPhase DOMEventEventPhasePropertyInfo , + dOMEventEventPhase , getDOMEventEventPhase , -- ** ReturnValue DOMEventReturnValuePropertyInfo , constructDOMEventReturnValue , + dOMEventReturnValue , getDOMEventReturnValue , setDOMEventReturnValue , -- ** SrcElement DOMEventSrcElementPropertyInfo , + dOMEventSrcElement , getDOMEventSrcElement , -- ** Target DOMEventTargetPropertyInfo , + dOMEventTarget , getDOMEventTarget , -- ** TimeStamp DOMEventTimeStampPropertyInfo , + dOMEventTimeStamp , getDOMEventTimeStamp , -- ** Type DOMEventTypePropertyInfo , + dOMEventType , getDOMEventType , @@ -163,9 +174,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map @@ -247,6 +258,7 @@ -- VVV Prop "bubbles" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) getDOMEventBubbles :: (MonadIO m, DOMEventK o) => o -> m Bool getDOMEventBubbles obj = liftIO $ getObjectPropertyBool obj "bubbles" @@ -261,10 +273,12 @@ attrGet _ = getDOMEventBubbles attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "cancel-bubble" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getDOMEventCancelBubble :: (MonadIO m, DOMEventK o) => o -> m Bool getDOMEventCancelBubble obj = liftIO $ getObjectPropertyBool obj "cancel-bubble" @@ -285,10 +299,12 @@ attrGet _ = getDOMEventCancelBubble attrSet _ = setDOMEventCancelBubble attrConstruct _ = constructDOMEventCancelBubble + attrClear _ = undefined -- VVV Prop "cancelable" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) getDOMEventCancelable :: (MonadIO m, DOMEventK o) => o -> m Bool getDOMEventCancelable obj = liftIO $ getObjectPropertyBool obj "cancelable" @@ -303,28 +319,32 @@ attrGet _ = getDOMEventCancelable attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "current-target" -- Type: TInterface "WebKit" "DOMEventTarget" -- Flags: [PropertyReadable] + -- Nullable: (Nothing,Nothing) -getDOMEventCurrentTarget :: (MonadIO m, DOMEventK o) => o -> m DOMEventTarget +getDOMEventCurrentTarget :: (MonadIO m, DOMEventK o) => o -> m (Maybe DOMEventTarget) getDOMEventCurrentTarget obj = liftIO $ getObjectPropertyObject obj "current-target" DOMEventTarget data DOMEventCurrentTargetPropertyInfo instance AttrInfo DOMEventCurrentTargetPropertyInfo where - type AttrAllowedOps DOMEventCurrentTargetPropertyInfo = '[ 'AttrGet] + type AttrAllowedOps DOMEventCurrentTargetPropertyInfo = '[ 'AttrGet, 'AttrClear] type AttrSetTypeConstraint DOMEventCurrentTargetPropertyInfo = (~) () type AttrBaseTypeConstraint DOMEventCurrentTargetPropertyInfo = DOMEventK - type AttrGetType DOMEventCurrentTargetPropertyInfo = DOMEventTarget + type AttrGetType DOMEventCurrentTargetPropertyInfo = (Maybe DOMEventTarget) type AttrLabel DOMEventCurrentTargetPropertyInfo = "current-target" attrGet _ = getDOMEventCurrentTarget attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "default-prevented" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) getDOMEventDefaultPrevented :: (MonadIO m, DOMEventK o) => o -> m Bool getDOMEventDefaultPrevented obj = liftIO $ getObjectPropertyBool obj "default-prevented" @@ -339,13 +359,15 @@ attrGet _ = getDOMEventDefaultPrevented attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "event-phase" - -- Type: TBasicType TUInt32 + -- Type: TBasicType TUInt -- Flags: [PropertyReadable] + -- Nullable: (Nothing,Nothing) getDOMEventEventPhase :: (MonadIO m, DOMEventK o) => o -> m Word32 -getDOMEventEventPhase obj = liftIO $ getObjectPropertyCUInt obj "event-phase" +getDOMEventEventPhase obj = liftIO $ getObjectPropertyUInt32 obj "event-phase" data DOMEventEventPhasePropertyInfo instance AttrInfo DOMEventEventPhasePropertyInfo where @@ -357,10 +379,12 @@ attrGet _ = getDOMEventEventPhase attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "return-value" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getDOMEventReturnValue :: (MonadIO m, DOMEventK o) => o -> m Bool getDOMEventReturnValue obj = liftIO $ getObjectPropertyBool obj "return-value" @@ -381,49 +405,55 @@ attrGet _ = getDOMEventReturnValue attrSet _ = setDOMEventReturnValue attrConstruct _ = constructDOMEventReturnValue + attrClear _ = undefined -- VVV Prop "src-element" -- Type: TInterface "WebKit" "DOMEventTarget" -- Flags: [PropertyReadable] + -- Nullable: (Nothing,Nothing) -getDOMEventSrcElement :: (MonadIO m, DOMEventK o) => o -> m DOMEventTarget +getDOMEventSrcElement :: (MonadIO m, DOMEventK o) => o -> m (Maybe DOMEventTarget) getDOMEventSrcElement obj = liftIO $ getObjectPropertyObject obj "src-element" DOMEventTarget data DOMEventSrcElementPropertyInfo instance AttrInfo DOMEventSrcElementPropertyInfo where - type AttrAllowedOps DOMEventSrcElementPropertyInfo = '[ 'AttrGet] + type AttrAllowedOps DOMEventSrcElementPropertyInfo = '[ 'AttrGet, 'AttrClear] type AttrSetTypeConstraint DOMEventSrcElementPropertyInfo = (~) () type AttrBaseTypeConstraint DOMEventSrcElementPropertyInfo = DOMEventK - type AttrGetType DOMEventSrcElementPropertyInfo = DOMEventTarget + type AttrGetType DOMEventSrcElementPropertyInfo = (Maybe DOMEventTarget) type AttrLabel DOMEventSrcElementPropertyInfo = "src-element" attrGet _ = getDOMEventSrcElement attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "target" -- Type: TInterface "WebKit" "DOMEventTarget" -- Flags: [PropertyReadable] + -- Nullable: (Nothing,Nothing) -getDOMEventTarget :: (MonadIO m, DOMEventK o) => o -> m DOMEventTarget +getDOMEventTarget :: (MonadIO m, DOMEventK o) => o -> m (Maybe DOMEventTarget) getDOMEventTarget obj = liftIO $ getObjectPropertyObject obj "target" DOMEventTarget data DOMEventTargetPropertyInfo instance AttrInfo DOMEventTargetPropertyInfo where - type AttrAllowedOps DOMEventTargetPropertyInfo = '[ 'AttrGet] + type AttrAllowedOps DOMEventTargetPropertyInfo = '[ 'AttrGet, 'AttrClear] type AttrSetTypeConstraint DOMEventTargetPropertyInfo = (~) () type AttrBaseTypeConstraint DOMEventTargetPropertyInfo = DOMEventK - type AttrGetType DOMEventTargetPropertyInfo = DOMEventTarget + type AttrGetType DOMEventTargetPropertyInfo = (Maybe DOMEventTarget) type AttrLabel DOMEventTargetPropertyInfo = "target" attrGet _ = getDOMEventTarget attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "time-stamp" - -- Type: TBasicType TUInt32 + -- Type: TBasicType TUInt -- Flags: [PropertyReadable] + -- Nullable: (Nothing,Nothing) getDOMEventTimeStamp :: (MonadIO m, DOMEventK o) => o -> m Word32 -getDOMEventTimeStamp obj = liftIO $ getObjectPropertyCUInt obj "time-stamp" +getDOMEventTimeStamp obj = liftIO $ getObjectPropertyUInt32 obj "time-stamp" data DOMEventTimeStampPropertyInfo instance AttrInfo DOMEventTimeStampPropertyInfo where @@ -435,28 +465,64 @@ attrGet _ = getDOMEventTimeStamp attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "type" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable] + -- Nullable: (Nothing,Nothing) -getDOMEventType :: (MonadIO m, DOMEventK o) => o -> m T.Text +getDOMEventType :: (MonadIO m, DOMEventK o) => o -> m (Maybe T.Text) getDOMEventType obj = liftIO $ getObjectPropertyString obj "type" data DOMEventTypePropertyInfo instance AttrInfo DOMEventTypePropertyInfo where - type AttrAllowedOps DOMEventTypePropertyInfo = '[ 'AttrGet] + type AttrAllowedOps DOMEventTypePropertyInfo = '[ 'AttrGet, 'AttrClear] type AttrSetTypeConstraint DOMEventTypePropertyInfo = (~) () type AttrBaseTypeConstraint DOMEventTypePropertyInfo = DOMEventK - type AttrGetType DOMEventTypePropertyInfo = T.Text + type AttrGetType DOMEventTypePropertyInfo = (Maybe T.Text) type AttrLabel DOMEventTypePropertyInfo = "type" attrGet _ = getDOMEventType attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined type instance AttributeList DOMEvent = DOMEventAttributeList type DOMEventAttributeList = ('[ '("bubbles", DOMEventBubblesPropertyInfo), '("cancelBubble", DOMEventCancelBubblePropertyInfo), '("cancelable", DOMEventCancelablePropertyInfo), '("coreObject", DOMObjectCoreObjectPropertyInfo), '("currentTarget", DOMEventCurrentTargetPropertyInfo), '("defaultPrevented", DOMEventDefaultPreventedPropertyInfo), '("eventPhase", DOMEventEventPhasePropertyInfo), '("returnValue", DOMEventReturnValuePropertyInfo), '("srcElement", DOMEventSrcElementPropertyInfo), '("target", DOMEventTargetPropertyInfo), '("timeStamp", DOMEventTimeStampPropertyInfo), '("type", DOMEventTypePropertyInfo)] :: [(Symbol, *)]) +dOMEventBubbles :: AttrLabelProxy "bubbles" +dOMEventBubbles = AttrLabelProxy + +dOMEventCancelBubble :: AttrLabelProxy "cancelBubble" +dOMEventCancelBubble = AttrLabelProxy + +dOMEventCancelable :: AttrLabelProxy "cancelable" +dOMEventCancelable = AttrLabelProxy + +dOMEventCurrentTarget :: AttrLabelProxy "currentTarget" +dOMEventCurrentTarget = AttrLabelProxy + +dOMEventDefaultPrevented :: AttrLabelProxy "defaultPrevented" +dOMEventDefaultPrevented = AttrLabelProxy + +dOMEventEventPhase :: AttrLabelProxy "eventPhase" +dOMEventEventPhase = AttrLabelProxy + +dOMEventReturnValue :: AttrLabelProxy "returnValue" +dOMEventReturnValue = AttrLabelProxy + +dOMEventSrcElement :: AttrLabelProxy "srcElement" +dOMEventSrcElement = AttrLabelProxy + +dOMEventTarget :: AttrLabelProxy "target" +dOMEventTarget = AttrLabelProxy + +dOMEventTimeStamp :: AttrLabelProxy "timeStamp" +dOMEventTimeStamp = AttrLabelProxy + +dOMEventType :: AttrLabelProxy "type" +dOMEventType = AttrLabelProxy + type instance SignalList DOMEvent = DOMEventSignalList type DOMEventSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) @@ -464,7 +530,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -492,7 +558,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -520,7 +586,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -548,7 +614,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit" "DOMEventTarget" +-- returnType : Just (TInterface "WebKit" "DOMEventTarget") -- throws : False -- Skip return : False @@ -577,7 +643,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -605,7 +671,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUInt16 +-- returnType : Just (TBasicType TUInt16) -- throws : False -- Skip return : False @@ -632,7 +698,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -660,7 +726,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit" "DOMEventTarget" +-- returnType : Just (TInterface "WebKit" "DOMEventTarget") -- throws : False -- Skip return : False @@ -689,7 +755,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit" "DOMEventTarget" +-- returnType : Just (TInterface "WebKit" "DOMEventTarget") -- throws : False -- Skip return : False @@ -718,7 +784,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUInt32 +-- returnType : Just (TBasicType TUInt32) -- throws : False -- Skip return : False @@ -745,7 +811,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "eventTypeArg", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "canBubbleArg", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancelableArg", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -782,7 +848,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -809,7 +875,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -839,7 +905,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -869,7 +935,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -896,7 +962,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False diff --git a/GI/WebKit/Objects/DOMEvent.hs-boot b/GI/WebKit/Objects/DOMEvent.hs-boot --- a/GI/WebKit/Objects/DOMEvent.hs-boot +++ b/GI/WebKit/Objects/DOMEvent.hs-boot @@ -1,8 +1,8 @@ module GI.WebKit.Objects.DOMEvent where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map diff --git a/GI/WebKit/Objects/DOMFile.hs b/GI/WebKit/Objects/DOMFile.hs --- a/GI/WebKit/Objects/DOMFile.hs +++ b/GI/WebKit/Objects/DOMFile.hs @@ -32,11 +32,13 @@ -- * Properties -- ** Name DOMFileNamePropertyInfo , + dOMFileName , getDOMFileName , -- ** WebkitRelativePath DOMFileWebkitRelativePathPropertyInfo , + dOMFileWebkitRelativePath , getDOMFileWebkitRelativePath , @@ -44,9 +46,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map @@ -117,42 +119,52 @@ -- VVV Prop "name" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable] + -- Nullable: (Nothing,Nothing) -getDOMFileName :: (MonadIO m, DOMFileK o) => o -> m T.Text +getDOMFileName :: (MonadIO m, DOMFileK o) => o -> m (Maybe T.Text) getDOMFileName obj = liftIO $ getObjectPropertyString obj "name" data DOMFileNamePropertyInfo instance AttrInfo DOMFileNamePropertyInfo where - type AttrAllowedOps DOMFileNamePropertyInfo = '[ 'AttrGet] + type AttrAllowedOps DOMFileNamePropertyInfo = '[ 'AttrGet, 'AttrClear] type AttrSetTypeConstraint DOMFileNamePropertyInfo = (~) () type AttrBaseTypeConstraint DOMFileNamePropertyInfo = DOMFileK - type AttrGetType DOMFileNamePropertyInfo = T.Text + type AttrGetType DOMFileNamePropertyInfo = (Maybe T.Text) type AttrLabel DOMFileNamePropertyInfo = "name" attrGet _ = getDOMFileName attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "webkit-relative-path" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable] + -- Nullable: (Nothing,Nothing) -getDOMFileWebkitRelativePath :: (MonadIO m, DOMFileK o) => o -> m T.Text +getDOMFileWebkitRelativePath :: (MonadIO m, DOMFileK o) => o -> m (Maybe T.Text) getDOMFileWebkitRelativePath obj = liftIO $ getObjectPropertyString obj "webkit-relative-path" data DOMFileWebkitRelativePathPropertyInfo instance AttrInfo DOMFileWebkitRelativePathPropertyInfo where - type AttrAllowedOps DOMFileWebkitRelativePathPropertyInfo = '[ 'AttrGet] + type AttrAllowedOps DOMFileWebkitRelativePathPropertyInfo = '[ 'AttrGet, 'AttrClear] type AttrSetTypeConstraint DOMFileWebkitRelativePathPropertyInfo = (~) () type AttrBaseTypeConstraint DOMFileWebkitRelativePathPropertyInfo = DOMFileK - type AttrGetType DOMFileWebkitRelativePathPropertyInfo = T.Text + type AttrGetType DOMFileWebkitRelativePathPropertyInfo = (Maybe T.Text) type AttrLabel DOMFileWebkitRelativePathPropertyInfo = "webkit-relative-path" attrGet _ = getDOMFileWebkitRelativePath attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined type instance AttributeList DOMFile = DOMFileAttributeList type DOMFileAttributeList = ('[ '("coreObject", DOMObjectCoreObjectPropertyInfo), '("name", DOMFileNamePropertyInfo), '("size", DOMBlobSizePropertyInfo), '("type", DOMBlobTypePropertyInfo), '("webkitRelativePath", DOMFileWebkitRelativePathPropertyInfo)] :: [(Symbol, *)]) +dOMFileName :: AttrLabelProxy "name" +dOMFileName = AttrLabelProxy + +dOMFileWebkitRelativePath :: AttrLabelProxy "webkitRelativePath" +dOMFileWebkitRelativePath = AttrLabelProxy + type instance SignalList DOMFile = DOMFileSignalList type DOMFileSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) @@ -160,7 +172,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -190,7 +202,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False diff --git a/GI/WebKit/Objects/DOMFile.hs-boot b/GI/WebKit/Objects/DOMFile.hs-boot --- a/GI/WebKit/Objects/DOMFile.hs-boot +++ b/GI/WebKit/Objects/DOMFile.hs-boot @@ -1,8 +1,8 @@ module GI.WebKit.Objects.DOMFile where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map diff --git a/GI/WebKit/Objects/DOMFileList.hs b/GI/WebKit/Objects/DOMFileList.hs --- a/GI/WebKit/Objects/DOMFileList.hs +++ b/GI/WebKit/Objects/DOMFileList.hs @@ -32,6 +32,7 @@ -- * Properties -- ** Length DOMFileListLengthPropertyInfo , + dOMFileListLength , getDOMFileListLength , @@ -39,9 +40,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map @@ -107,26 +108,31 @@ #endif -- VVV Prop "length" - -- Type: TBasicType TUInt64 + -- Type: TBasicType TULong -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) -getDOMFileListLength :: (MonadIO m, DOMFileListK o) => o -> m Word64 -getDOMFileListLength obj = liftIO $ getObjectPropertyUInt64 obj "length" +getDOMFileListLength :: (MonadIO m, DOMFileListK o) => o -> m CULong +getDOMFileListLength obj = liftIO $ getObjectPropertyULong obj "length" data DOMFileListLengthPropertyInfo instance AttrInfo DOMFileListLengthPropertyInfo where type AttrAllowedOps DOMFileListLengthPropertyInfo = '[ 'AttrGet] type AttrSetTypeConstraint DOMFileListLengthPropertyInfo = (~) () type AttrBaseTypeConstraint DOMFileListLengthPropertyInfo = DOMFileListK - type AttrGetType DOMFileListLengthPropertyInfo = Word64 + type AttrGetType DOMFileListLengthPropertyInfo = CULong type AttrLabel DOMFileListLengthPropertyInfo = "length" attrGet _ = getDOMFileListLength attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined type instance AttributeList DOMFileList = DOMFileListAttributeList type DOMFileListAttributeList = ('[ '("coreObject", DOMObjectCoreObjectPropertyInfo), '("length", DOMFileListLengthPropertyInfo)] :: [(Symbol, *)]) +dOMFileListLength :: AttrLabelProxy "length" +dOMFileListLength = AttrLabelProxy + type instance SignalList DOMFileList = DOMFileListSignalList type DOMFileListSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) @@ -134,19 +140,19 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMFileList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUInt64 +-- returnType : Just (TBasicType TULong) -- throws : False -- Skip return : False foreign import ccall "webkit_dom_file_list_get_length" webkit_dom_file_list_get_length :: Ptr DOMFileList -> -- _obj : TInterface "WebKit" "DOMFileList" - IO Word64 + IO CULong dOMFileListGetLength :: (MonadIO m, DOMFileListK a) => a -- _obj - -> m Word64 -- result + -> m CULong -- result dOMFileListGetLength _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- webkit_dom_file_list_get_length _obj' @@ -154,27 +160,27 @@ return result data DOMFileListGetLengthMethodInfo -instance (signature ~ (m Word64), MonadIO m, DOMFileListK a) => MethodInfo DOMFileListGetLengthMethodInfo a signature where +instance (signature ~ (m CULong), MonadIO m, DOMFileListK a) => MethodInfo DOMFileListGetLengthMethodInfo a signature where overloadedMethod _ = dOMFileListGetLength -- method DOMFileList::item -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMFileList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "index", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMFileList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "index", argType = TBasicType TULong, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit" "DOMFile" +-- returnType : Just (TInterface "WebKit" "DOMFile") -- throws : False -- Skip return : False foreign import ccall "webkit_dom_file_list_item" webkit_dom_file_list_item :: Ptr DOMFileList -> -- _obj : TInterface "WebKit" "DOMFileList" - Word64 -> -- index : TBasicType TUInt64 + CULong -> -- index : TBasicType TULong IO (Ptr DOMFile) dOMFileListItem :: (MonadIO m, DOMFileListK a) => a -- _obj - -> Word64 -- index + -> CULong -- index -> m DOMFile -- result dOMFileListItem _obj index = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj @@ -185,7 +191,7 @@ return result' data DOMFileListItemMethodInfo -instance (signature ~ (Word64 -> m DOMFile), MonadIO m, DOMFileListK a) => MethodInfo DOMFileListItemMethodInfo a signature where +instance (signature ~ (CULong -> m DOMFile), MonadIO m, DOMFileListK a) => MethodInfo DOMFileListItemMethodInfo a signature where overloadedMethod _ = dOMFileListItem diff --git a/GI/WebKit/Objects/DOMFileList.hs-boot b/GI/WebKit/Objects/DOMFileList.hs-boot --- a/GI/WebKit/Objects/DOMFileList.hs-boot +++ b/GI/WebKit/Objects/DOMFileList.hs-boot @@ -1,8 +1,8 @@ module GI.WebKit.Objects.DOMFileList where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map diff --git a/GI/WebKit/Objects/DOMGamepad.hs b/GI/WebKit/Objects/DOMGamepad.hs --- a/GI/WebKit/Objects/DOMGamepad.hs +++ b/GI/WebKit/Objects/DOMGamepad.hs @@ -37,16 +37,19 @@ -- * Properties -- ** Id DOMGamepadIdPropertyInfo , + dOMGamepadId , getDOMGamepadId , -- ** Index DOMGamepadIndexPropertyInfo , + dOMGamepadIndex , getDOMGamepadIndex , -- ** Timestamp DOMGamepadTimestampPropertyInfo , + dOMGamepadTimestamp , getDOMGamepadTimestamp , @@ -54,9 +57,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map @@ -125,42 +128,47 @@ -- VVV Prop "id" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable] + -- Nullable: (Nothing,Nothing) -getDOMGamepadId :: (MonadIO m, DOMGamepadK o) => o -> m T.Text +getDOMGamepadId :: (MonadIO m, DOMGamepadK o) => o -> m (Maybe T.Text) getDOMGamepadId obj = liftIO $ getObjectPropertyString obj "id" data DOMGamepadIdPropertyInfo instance AttrInfo DOMGamepadIdPropertyInfo where - type AttrAllowedOps DOMGamepadIdPropertyInfo = '[ 'AttrGet] + type AttrAllowedOps DOMGamepadIdPropertyInfo = '[ 'AttrGet, 'AttrClear] type AttrSetTypeConstraint DOMGamepadIdPropertyInfo = (~) () type AttrBaseTypeConstraint DOMGamepadIdPropertyInfo = DOMGamepadK - type AttrGetType DOMGamepadIdPropertyInfo = T.Text + type AttrGetType DOMGamepadIdPropertyInfo = (Maybe T.Text) type AttrLabel DOMGamepadIdPropertyInfo = "id" attrGet _ = getDOMGamepadId attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "index" - -- Type: TBasicType TUInt64 + -- Type: TBasicType TULong -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) -getDOMGamepadIndex :: (MonadIO m, DOMGamepadK o) => o -> m Word64 -getDOMGamepadIndex obj = liftIO $ getObjectPropertyUInt64 obj "index" +getDOMGamepadIndex :: (MonadIO m, DOMGamepadK o) => o -> m CULong +getDOMGamepadIndex obj = liftIO $ getObjectPropertyULong obj "index" data DOMGamepadIndexPropertyInfo instance AttrInfo DOMGamepadIndexPropertyInfo where type AttrAllowedOps DOMGamepadIndexPropertyInfo = '[ 'AttrGet] type AttrSetTypeConstraint DOMGamepadIndexPropertyInfo = (~) () type AttrBaseTypeConstraint DOMGamepadIndexPropertyInfo = DOMGamepadK - type AttrGetType DOMGamepadIndexPropertyInfo = Word64 + type AttrGetType DOMGamepadIndexPropertyInfo = CULong type AttrLabel DOMGamepadIndexPropertyInfo = "index" attrGet _ = getDOMGamepadIndex attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "timestamp" -- Type: TBasicType TUInt64 -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) getDOMGamepadTimestamp :: (MonadIO m, DOMGamepadK o) => o -> m Word64 getDOMGamepadTimestamp obj = liftIO $ getObjectPropertyUInt64 obj "timestamp" @@ -175,10 +183,20 @@ attrGet _ = getDOMGamepadTimestamp attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined type instance AttributeList DOMGamepad = DOMGamepadAttributeList type DOMGamepadAttributeList = ('[ '("coreObject", DOMObjectCoreObjectPropertyInfo), '("id", DOMGamepadIdPropertyInfo), '("index", DOMGamepadIndexPropertyInfo), '("timestamp", DOMGamepadTimestampPropertyInfo)] :: [(Symbol, *)]) +dOMGamepadId :: AttrLabelProxy "id" +dOMGamepadId = AttrLabelProxy + +dOMGamepadIndex :: AttrLabelProxy "index" +dOMGamepadIndex = AttrLabelProxy + +dOMGamepadTimestamp :: AttrLabelProxy "timestamp" +dOMGamepadTimestamp = AttrLabelProxy + type instance SignalList DOMGamepad = DOMGamepadSignalList type DOMGamepadSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) @@ -186,7 +204,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMGamepad", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -216,19 +234,19 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMGamepad", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUInt64 +-- returnType : Just (TBasicType TULong) -- throws : False -- Skip return : False foreign import ccall "webkit_dom_gamepad_get_index" webkit_dom_gamepad_get_index :: Ptr DOMGamepad -> -- _obj : TInterface "WebKit" "DOMGamepad" - IO Word64 + IO CULong dOMGamepadGetIndex :: (MonadIO m, DOMGamepadK a) => a -- _obj - -> m Word64 -- result + -> m CULong -- result dOMGamepadGetIndex _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- webkit_dom_gamepad_get_index _obj' @@ -236,14 +254,14 @@ return result data DOMGamepadGetIndexMethodInfo -instance (signature ~ (m Word64), MonadIO m, DOMGamepadK a) => MethodInfo DOMGamepadGetIndexMethodInfo a signature where +instance (signature ~ (m CULong), MonadIO m, DOMGamepadK a) => MethodInfo DOMGamepadGetIndexMethodInfo a signature where overloadedMethod _ = dOMGamepadGetIndex -- method DOMGamepad::get_timestamp -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMGamepad", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUInt64 +-- returnType : Just (TBasicType TUInt64) -- throws : False -- Skip return : False diff --git a/GI/WebKit/Objects/DOMGamepad.hs-boot b/GI/WebKit/Objects/DOMGamepad.hs-boot --- a/GI/WebKit/Objects/DOMGamepad.hs-boot +++ b/GI/WebKit/Objects/DOMGamepad.hs-boot @@ -1,8 +1,8 @@ module GI.WebKit.Objects.DOMGamepad where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map diff --git a/GI/WebKit/Objects/DOMGamepadList.hs b/GI/WebKit/Objects/DOMGamepadList.hs --- a/GI/WebKit/Objects/DOMGamepadList.hs +++ b/GI/WebKit/Objects/DOMGamepadList.hs @@ -32,6 +32,7 @@ -- * Properties -- ** Length DOMGamepadListLengthPropertyInfo , + dOMGamepadListLength , getDOMGamepadListLength , @@ -39,9 +40,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map @@ -107,26 +108,31 @@ #endif -- VVV Prop "length" - -- Type: TBasicType TUInt64 + -- Type: TBasicType TULong -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) -getDOMGamepadListLength :: (MonadIO m, DOMGamepadListK o) => o -> m Word64 -getDOMGamepadListLength obj = liftIO $ getObjectPropertyUInt64 obj "length" +getDOMGamepadListLength :: (MonadIO m, DOMGamepadListK o) => o -> m CULong +getDOMGamepadListLength obj = liftIO $ getObjectPropertyULong obj "length" data DOMGamepadListLengthPropertyInfo instance AttrInfo DOMGamepadListLengthPropertyInfo where type AttrAllowedOps DOMGamepadListLengthPropertyInfo = '[ 'AttrGet] type AttrSetTypeConstraint DOMGamepadListLengthPropertyInfo = (~) () type AttrBaseTypeConstraint DOMGamepadListLengthPropertyInfo = DOMGamepadListK - type AttrGetType DOMGamepadListLengthPropertyInfo = Word64 + type AttrGetType DOMGamepadListLengthPropertyInfo = CULong type AttrLabel DOMGamepadListLengthPropertyInfo = "length" attrGet _ = getDOMGamepadListLength attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined type instance AttributeList DOMGamepadList = DOMGamepadListAttributeList type DOMGamepadListAttributeList = ('[ '("coreObject", DOMObjectCoreObjectPropertyInfo), '("length", DOMGamepadListLengthPropertyInfo)] :: [(Symbol, *)]) +dOMGamepadListLength :: AttrLabelProxy "length" +dOMGamepadListLength = AttrLabelProxy + type instance SignalList DOMGamepadList = DOMGamepadListSignalList type DOMGamepadListSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) @@ -134,19 +140,19 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMGamepadList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUInt64 +-- returnType : Just (TBasicType TULong) -- throws : False -- Skip return : False foreign import ccall "webkit_dom_gamepad_list_get_length" webkit_dom_gamepad_list_get_length :: Ptr DOMGamepadList -> -- _obj : TInterface "WebKit" "DOMGamepadList" - IO Word64 + IO CULong dOMGamepadListGetLength :: (MonadIO m, DOMGamepadListK a) => a -- _obj - -> m Word64 -- result + -> m CULong -- result dOMGamepadListGetLength _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- webkit_dom_gamepad_list_get_length _obj' @@ -154,27 +160,27 @@ return result data DOMGamepadListGetLengthMethodInfo -instance (signature ~ (m Word64), MonadIO m, DOMGamepadListK a) => MethodInfo DOMGamepadListGetLengthMethodInfo a signature where +instance (signature ~ (m CULong), MonadIO m, DOMGamepadListK a) => MethodInfo DOMGamepadListGetLengthMethodInfo a signature where overloadedMethod _ = dOMGamepadListGetLength -- method DOMGamepadList::item -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMGamepadList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "index", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMGamepadList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "index", argType = TBasicType TULong, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit" "DOMGamepad" +-- returnType : Just (TInterface "WebKit" "DOMGamepad") -- throws : False -- Skip return : False foreign import ccall "webkit_dom_gamepad_list_item" webkit_dom_gamepad_list_item :: Ptr DOMGamepadList -> -- _obj : TInterface "WebKit" "DOMGamepadList" - Word64 -> -- index : TBasicType TUInt64 + CULong -> -- index : TBasicType TULong IO (Ptr DOMGamepad) dOMGamepadListItem :: (MonadIO m, DOMGamepadListK a) => a -- _obj - -> Word64 -- index + -> CULong -- index -> m DOMGamepad -- result dOMGamepadListItem _obj index = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj @@ -185,7 +191,7 @@ return result' data DOMGamepadListItemMethodInfo -instance (signature ~ (Word64 -> m DOMGamepad), MonadIO m, DOMGamepadListK a) => MethodInfo DOMGamepadListItemMethodInfo a signature where +instance (signature ~ (CULong -> m DOMGamepad), MonadIO m, DOMGamepadListK a) => MethodInfo DOMGamepadListItemMethodInfo a signature where overloadedMethod _ = dOMGamepadListItem diff --git a/GI/WebKit/Objects/DOMGamepadList.hs-boot b/GI/WebKit/Objects/DOMGamepadList.hs-boot --- a/GI/WebKit/Objects/DOMGamepadList.hs-boot +++ b/GI/WebKit/Objects/DOMGamepadList.hs-boot @@ -1,8 +1,8 @@ module GI.WebKit.Objects.DOMGamepadList where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map diff --git a/GI/WebKit/Objects/DOMGeolocation.hs b/GI/WebKit/Objects/DOMGeolocation.hs --- a/GI/WebKit/Objects/DOMGeolocation.hs +++ b/GI/WebKit/Objects/DOMGeolocation.hs @@ -26,9 +26,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map @@ -100,22 +100,22 @@ -- method DOMGeolocation::clear_watch -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMGeolocation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "watchID", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMGeolocation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "watchID", argType = TBasicType TLong, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "webkit_dom_geolocation_clear_watch" webkit_dom_geolocation_clear_watch :: Ptr DOMGeolocation -> -- _obj : TInterface "WebKit" "DOMGeolocation" - Int64 -> -- watchID : TBasicType TInt64 + CLong -> -- watchID : TBasicType TLong IO () dOMGeolocationClearWatch :: (MonadIO m, DOMGeolocationK a) => a -- _obj - -> Int64 -- watchID + -> CLong -- watchID -> m () -- result dOMGeolocationClearWatch _obj watchID = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj @@ -124,7 +124,7 @@ return () data DOMGeolocationClearWatchMethodInfo -instance (signature ~ (Int64 -> m ()), MonadIO m, DOMGeolocationK a) => MethodInfo DOMGeolocationClearWatchMethodInfo a signature where +instance (signature ~ (CLong -> m ()), MonadIO m, DOMGeolocationK a) => MethodInfo DOMGeolocationClearWatchMethodInfo a signature where overloadedMethod _ = dOMGeolocationClearWatch diff --git a/GI/WebKit/Objects/DOMGeolocation.hs-boot b/GI/WebKit/Objects/DOMGeolocation.hs-boot --- a/GI/WebKit/Objects/DOMGeolocation.hs-boot +++ b/GI/WebKit/Objects/DOMGeolocation.hs-boot @@ -1,8 +1,8 @@ module GI.WebKit.Objects.DOMGeolocation where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map diff --git a/GI/WebKit/Objects/DOMHTMLAnchorElement.hs b/GI/WebKit/Objects/DOMHTMLAnchorElement.hs --- a/GI/WebKit/Objects/DOMHTMLAnchorElement.hs +++ b/GI/WebKit/Objects/DOMHTMLAnchorElement.hs @@ -213,6 +213,7 @@ -- ** Charset DOMHTMLAnchorElementCharsetPropertyInfo , constructDOMHTMLAnchorElementCharset , + dOMHTMLAnchorElementCharset , getDOMHTMLAnchorElementCharset , setDOMHTMLAnchorElementCharset , @@ -220,6 +221,7 @@ -- ** Coords DOMHTMLAnchorElementCoordsPropertyInfo , constructDOMHTMLAnchorElementCoords , + dOMHTMLAnchorElementCoords , getDOMHTMLAnchorElementCoords , setDOMHTMLAnchorElementCoords , @@ -227,6 +229,7 @@ -- ** Download DOMHTMLAnchorElementDownloadPropertyInfo, constructDOMHTMLAnchorElementDownload , + dOMHTMLAnchorElementDownload , getDOMHTMLAnchorElementDownload , setDOMHTMLAnchorElementDownload , @@ -234,6 +237,7 @@ -- ** Hash DOMHTMLAnchorElementHashPropertyInfo , constructDOMHTMLAnchorElementHash , + dOMHTMLAnchorElementHash , getDOMHTMLAnchorElementHash , setDOMHTMLAnchorElementHash , @@ -241,6 +245,7 @@ -- ** Host DOMHTMLAnchorElementHostPropertyInfo , constructDOMHTMLAnchorElementHost , + dOMHTMLAnchorElementHost , getDOMHTMLAnchorElementHost , setDOMHTMLAnchorElementHost , @@ -248,6 +253,7 @@ -- ** Hostname DOMHTMLAnchorElementHostnamePropertyInfo, constructDOMHTMLAnchorElementHostname , + dOMHTMLAnchorElementHostname , getDOMHTMLAnchorElementHostname , setDOMHTMLAnchorElementHostname , @@ -255,6 +261,7 @@ -- ** Href DOMHTMLAnchorElementHrefPropertyInfo , constructDOMHTMLAnchorElementHref , + dOMHTMLAnchorElementHref , getDOMHTMLAnchorElementHref , setDOMHTMLAnchorElementHref , @@ -262,6 +269,7 @@ -- ** Hreflang DOMHTMLAnchorElementHreflangPropertyInfo, constructDOMHTMLAnchorElementHreflang , + dOMHTMLAnchorElementHreflang , getDOMHTMLAnchorElementHreflang , setDOMHTMLAnchorElementHreflang , @@ -269,18 +277,21 @@ -- ** Name DOMHTMLAnchorElementNamePropertyInfo , constructDOMHTMLAnchorElementName , + dOMHTMLAnchorElementName , getDOMHTMLAnchorElementName , setDOMHTMLAnchorElementName , -- ** Origin DOMHTMLAnchorElementOriginPropertyInfo , + dOMHTMLAnchorElementOrigin , getDOMHTMLAnchorElementOrigin , -- ** Pathname DOMHTMLAnchorElementPathnamePropertyInfo, constructDOMHTMLAnchorElementPathname , + dOMHTMLAnchorElementPathname , getDOMHTMLAnchorElementPathname , setDOMHTMLAnchorElementPathname , @@ -288,6 +299,7 @@ -- ** Ping DOMHTMLAnchorElementPingPropertyInfo , constructDOMHTMLAnchorElementPing , + dOMHTMLAnchorElementPing , getDOMHTMLAnchorElementPing , setDOMHTMLAnchorElementPing , @@ -295,6 +307,7 @@ -- ** Port DOMHTMLAnchorElementPortPropertyInfo , constructDOMHTMLAnchorElementPort , + dOMHTMLAnchorElementPort , getDOMHTMLAnchorElementPort , setDOMHTMLAnchorElementPort , @@ -302,6 +315,7 @@ -- ** Protocol DOMHTMLAnchorElementProtocolPropertyInfo, constructDOMHTMLAnchorElementProtocol , + dOMHTMLAnchorElementProtocol , getDOMHTMLAnchorElementProtocol , setDOMHTMLAnchorElementProtocol , @@ -309,6 +323,7 @@ -- ** Rel DOMHTMLAnchorElementRelPropertyInfo , constructDOMHTMLAnchorElementRel , + dOMHTMLAnchorElementRel , getDOMHTMLAnchorElementRel , setDOMHTMLAnchorElementRel , @@ -316,6 +331,7 @@ -- ** Rev DOMHTMLAnchorElementRevPropertyInfo , constructDOMHTMLAnchorElementRev , + dOMHTMLAnchorElementRev , getDOMHTMLAnchorElementRev , setDOMHTMLAnchorElementRev , @@ -323,6 +339,7 @@ -- ** Search DOMHTMLAnchorElementSearchPropertyInfo , constructDOMHTMLAnchorElementSearch , + dOMHTMLAnchorElementSearch , getDOMHTMLAnchorElementSearch , setDOMHTMLAnchorElementSearch , @@ -330,6 +347,7 @@ -- ** Shape DOMHTMLAnchorElementShapePropertyInfo , constructDOMHTMLAnchorElementShape , + dOMHTMLAnchorElementShape , getDOMHTMLAnchorElementShape , setDOMHTMLAnchorElementShape , @@ -337,18 +355,22 @@ -- ** Target DOMHTMLAnchorElementTargetPropertyInfo , constructDOMHTMLAnchorElementTarget , + dOMHTMLAnchorElementTarget , getDOMHTMLAnchorElementTarget , setDOMHTMLAnchorElementTarget , -- ** Text DOMHTMLAnchorElementTextPropertyInfo , + dOMHTMLAnchorElementText , getDOMHTMLAnchorElementText , -- ** Type DOMHTMLAnchorElementTypePropertyInfo , + clearDOMHTMLAnchorElementType , constructDOMHTMLAnchorElementType , + dOMHTMLAnchorElementType , getDOMHTMLAnchorElementType , setDOMHTMLAnchorElementType , @@ -357,9 +379,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map @@ -595,498 +617,606 @@ -- VVV Prop "charset" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Just False) -getDOMHTMLAnchorElementCharset :: (MonadIO m, DOMHTMLAnchorElementK o) => o -> m T.Text +getDOMHTMLAnchorElementCharset :: (MonadIO m, DOMHTMLAnchorElementK o) => o -> m (Maybe T.Text) getDOMHTMLAnchorElementCharset obj = liftIO $ getObjectPropertyString obj "charset" setDOMHTMLAnchorElementCharset :: (MonadIO m, DOMHTMLAnchorElementK o) => o -> T.Text -> m () -setDOMHTMLAnchorElementCharset obj val = liftIO $ setObjectPropertyString obj "charset" val +setDOMHTMLAnchorElementCharset obj val = liftIO $ setObjectPropertyString obj "charset" (Just val) constructDOMHTMLAnchorElementCharset :: T.Text -> IO ([Char], GValue) -constructDOMHTMLAnchorElementCharset val = constructObjectPropertyString "charset" val +constructDOMHTMLAnchorElementCharset val = constructObjectPropertyString "charset" (Just val) data DOMHTMLAnchorElementCharsetPropertyInfo instance AttrInfo DOMHTMLAnchorElementCharsetPropertyInfo where type AttrAllowedOps DOMHTMLAnchorElementCharsetPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint DOMHTMLAnchorElementCharsetPropertyInfo = (~) T.Text type AttrBaseTypeConstraint DOMHTMLAnchorElementCharsetPropertyInfo = DOMHTMLAnchorElementK - type AttrGetType DOMHTMLAnchorElementCharsetPropertyInfo = T.Text + type AttrGetType DOMHTMLAnchorElementCharsetPropertyInfo = (Maybe T.Text) type AttrLabel DOMHTMLAnchorElementCharsetPropertyInfo = "charset" attrGet _ = getDOMHTMLAnchorElementCharset attrSet _ = setDOMHTMLAnchorElementCharset attrConstruct _ = constructDOMHTMLAnchorElementCharset + attrClear _ = undefined -- VVV Prop "coords" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Just False) -getDOMHTMLAnchorElementCoords :: (MonadIO m, DOMHTMLAnchorElementK o) => o -> m T.Text +getDOMHTMLAnchorElementCoords :: (MonadIO m, DOMHTMLAnchorElementK o) => o -> m (Maybe T.Text) getDOMHTMLAnchorElementCoords obj = liftIO $ getObjectPropertyString obj "coords" setDOMHTMLAnchorElementCoords :: (MonadIO m, DOMHTMLAnchorElementK o) => o -> T.Text -> m () -setDOMHTMLAnchorElementCoords obj val = liftIO $ setObjectPropertyString obj "coords" val +setDOMHTMLAnchorElementCoords obj val = liftIO $ setObjectPropertyString obj "coords" (Just val) constructDOMHTMLAnchorElementCoords :: T.Text -> IO ([Char], GValue) -constructDOMHTMLAnchorElementCoords val = constructObjectPropertyString "coords" val +constructDOMHTMLAnchorElementCoords val = constructObjectPropertyString "coords" (Just val) data DOMHTMLAnchorElementCoordsPropertyInfo instance AttrInfo DOMHTMLAnchorElementCoordsPropertyInfo where type AttrAllowedOps DOMHTMLAnchorElementCoordsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint DOMHTMLAnchorElementCoordsPropertyInfo = (~) T.Text type AttrBaseTypeConstraint DOMHTMLAnchorElementCoordsPropertyInfo = DOMHTMLAnchorElementK - type AttrGetType DOMHTMLAnchorElementCoordsPropertyInfo = T.Text + type AttrGetType DOMHTMLAnchorElementCoordsPropertyInfo = (Maybe T.Text) type AttrLabel DOMHTMLAnchorElementCoordsPropertyInfo = "coords" attrGet _ = getDOMHTMLAnchorElementCoords attrSet _ = setDOMHTMLAnchorElementCoords attrConstruct _ = constructDOMHTMLAnchorElementCoords + attrClear _ = undefined -- VVV Prop "download" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Just False) -getDOMHTMLAnchorElementDownload :: (MonadIO m, DOMHTMLAnchorElementK o) => o -> m T.Text +getDOMHTMLAnchorElementDownload :: (MonadIO m, DOMHTMLAnchorElementK o) => o -> m (Maybe T.Text) getDOMHTMLAnchorElementDownload obj = liftIO $ getObjectPropertyString obj "download" setDOMHTMLAnchorElementDownload :: (MonadIO m, DOMHTMLAnchorElementK o) => o -> T.Text -> m () -setDOMHTMLAnchorElementDownload obj val = liftIO $ setObjectPropertyString obj "download" val +setDOMHTMLAnchorElementDownload obj val = liftIO $ setObjectPropertyString obj "download" (Just val) constructDOMHTMLAnchorElementDownload :: T.Text -> IO ([Char], GValue) -constructDOMHTMLAnchorElementDownload val = constructObjectPropertyString "download" val +constructDOMHTMLAnchorElementDownload val = constructObjectPropertyString "download" (Just val) data DOMHTMLAnchorElementDownloadPropertyInfo instance AttrInfo DOMHTMLAnchorElementDownloadPropertyInfo where type AttrAllowedOps DOMHTMLAnchorElementDownloadPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint DOMHTMLAnchorElementDownloadPropertyInfo = (~) T.Text type AttrBaseTypeConstraint DOMHTMLAnchorElementDownloadPropertyInfo = DOMHTMLAnchorElementK - type AttrGetType DOMHTMLAnchorElementDownloadPropertyInfo = T.Text + type AttrGetType DOMHTMLAnchorElementDownloadPropertyInfo = (Maybe T.Text) type AttrLabel DOMHTMLAnchorElementDownloadPropertyInfo = "download" attrGet _ = getDOMHTMLAnchorElementDownload attrSet _ = setDOMHTMLAnchorElementDownload attrConstruct _ = constructDOMHTMLAnchorElementDownload + attrClear _ = undefined -- VVV Prop "hash" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Just False) -getDOMHTMLAnchorElementHash :: (MonadIO m, DOMHTMLAnchorElementK o) => o -> m T.Text +getDOMHTMLAnchorElementHash :: (MonadIO m, DOMHTMLAnchorElementK o) => o -> m (Maybe T.Text) getDOMHTMLAnchorElementHash obj = liftIO $ getObjectPropertyString obj "hash" setDOMHTMLAnchorElementHash :: (MonadIO m, DOMHTMLAnchorElementK o) => o -> T.Text -> m () -setDOMHTMLAnchorElementHash obj val = liftIO $ setObjectPropertyString obj "hash" val +setDOMHTMLAnchorElementHash obj val = liftIO $ setObjectPropertyString obj "hash" (Just val) constructDOMHTMLAnchorElementHash :: T.Text -> IO ([Char], GValue) -constructDOMHTMLAnchorElementHash val = constructObjectPropertyString "hash" val +constructDOMHTMLAnchorElementHash val = constructObjectPropertyString "hash" (Just val) data DOMHTMLAnchorElementHashPropertyInfo instance AttrInfo DOMHTMLAnchorElementHashPropertyInfo where type AttrAllowedOps DOMHTMLAnchorElementHashPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint DOMHTMLAnchorElementHashPropertyInfo = (~) T.Text type AttrBaseTypeConstraint DOMHTMLAnchorElementHashPropertyInfo = DOMHTMLAnchorElementK - type AttrGetType DOMHTMLAnchorElementHashPropertyInfo = T.Text + type AttrGetType DOMHTMLAnchorElementHashPropertyInfo = (Maybe T.Text) type AttrLabel DOMHTMLAnchorElementHashPropertyInfo = "hash" attrGet _ = getDOMHTMLAnchorElementHash attrSet _ = setDOMHTMLAnchorElementHash attrConstruct _ = constructDOMHTMLAnchorElementHash + attrClear _ = undefined -- VVV Prop "host" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Just False) -getDOMHTMLAnchorElementHost :: (MonadIO m, DOMHTMLAnchorElementK o) => o -> m T.Text +getDOMHTMLAnchorElementHost :: (MonadIO m, DOMHTMLAnchorElementK o) => o -> m (Maybe T.Text) getDOMHTMLAnchorElementHost obj = liftIO $ getObjectPropertyString obj "host" setDOMHTMLAnchorElementHost :: (MonadIO m, DOMHTMLAnchorElementK o) => o -> T.Text -> m () -setDOMHTMLAnchorElementHost obj val = liftIO $ setObjectPropertyString obj "host" val +setDOMHTMLAnchorElementHost obj val = liftIO $ setObjectPropertyString obj "host" (Just val) constructDOMHTMLAnchorElementHost :: T.Text -> IO ([Char], GValue) -constructDOMHTMLAnchorElementHost val = constructObjectPropertyString "host" val +constructDOMHTMLAnchorElementHost val = constructObjectPropertyString "host" (Just val) data DOMHTMLAnchorElementHostPropertyInfo instance AttrInfo DOMHTMLAnchorElementHostPropertyInfo where type AttrAllowedOps DOMHTMLAnchorElementHostPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint DOMHTMLAnchorElementHostPropertyInfo = (~) T.Text type AttrBaseTypeConstraint DOMHTMLAnchorElementHostPropertyInfo = DOMHTMLAnchorElementK - type AttrGetType DOMHTMLAnchorElementHostPropertyInfo = T.Text + type AttrGetType DOMHTMLAnchorElementHostPropertyInfo = (Maybe T.Text) type AttrLabel DOMHTMLAnchorElementHostPropertyInfo = "host" attrGet _ = getDOMHTMLAnchorElementHost attrSet _ = setDOMHTMLAnchorElementHost attrConstruct _ = constructDOMHTMLAnchorElementHost + attrClear _ = undefined -- VVV Prop "hostname" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Just False) -getDOMHTMLAnchorElementHostname :: (MonadIO m, DOMHTMLAnchorElementK o) => o -> m T.Text +getDOMHTMLAnchorElementHostname :: (MonadIO m, DOMHTMLAnchorElementK o) => o -> m (Maybe T.Text) getDOMHTMLAnchorElementHostname obj = liftIO $ getObjectPropertyString obj "hostname" setDOMHTMLAnchorElementHostname :: (MonadIO m, DOMHTMLAnchorElementK o) => o -> T.Text -> m () -setDOMHTMLAnchorElementHostname obj val = liftIO $ setObjectPropertyString obj "hostname" val +setDOMHTMLAnchorElementHostname obj val = liftIO $ setObjectPropertyString obj "hostname" (Just val) constructDOMHTMLAnchorElementHostname :: T.Text -> IO ([Char], GValue) -constructDOMHTMLAnchorElementHostname val = constructObjectPropertyString "hostname" val +constructDOMHTMLAnchorElementHostname val = constructObjectPropertyString "hostname" (Just val) data DOMHTMLAnchorElementHostnamePropertyInfo instance AttrInfo DOMHTMLAnchorElementHostnamePropertyInfo where type AttrAllowedOps DOMHTMLAnchorElementHostnamePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint DOMHTMLAnchorElementHostnamePropertyInfo = (~) T.Text type AttrBaseTypeConstraint DOMHTMLAnchorElementHostnamePropertyInfo = DOMHTMLAnchorElementK - type AttrGetType DOMHTMLAnchorElementHostnamePropertyInfo = T.Text + type AttrGetType DOMHTMLAnchorElementHostnamePropertyInfo = (Maybe T.Text) type AttrLabel DOMHTMLAnchorElementHostnamePropertyInfo = "hostname" attrGet _ = getDOMHTMLAnchorElementHostname attrSet _ = setDOMHTMLAnchorElementHostname attrConstruct _ = constructDOMHTMLAnchorElementHostname + attrClear _ = undefined -- VVV Prop "href" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Just False) -getDOMHTMLAnchorElementHref :: (MonadIO m, DOMHTMLAnchorElementK o) => o -> m T.Text +getDOMHTMLAnchorElementHref :: (MonadIO m, DOMHTMLAnchorElementK o) => o -> m (Maybe T.Text) getDOMHTMLAnchorElementHref obj = liftIO $ getObjectPropertyString obj "href" setDOMHTMLAnchorElementHref :: (MonadIO m, DOMHTMLAnchorElementK o) => o -> T.Text -> m () -setDOMHTMLAnchorElementHref obj val = liftIO $ setObjectPropertyString obj "href" val +setDOMHTMLAnchorElementHref obj val = liftIO $ setObjectPropertyString obj "href" (Just val) constructDOMHTMLAnchorElementHref :: T.Text -> IO ([Char], GValue) -constructDOMHTMLAnchorElementHref val = constructObjectPropertyString "href" val +constructDOMHTMLAnchorElementHref val = constructObjectPropertyString "href" (Just val) data DOMHTMLAnchorElementHrefPropertyInfo instance AttrInfo DOMHTMLAnchorElementHrefPropertyInfo where type AttrAllowedOps DOMHTMLAnchorElementHrefPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint DOMHTMLAnchorElementHrefPropertyInfo = (~) T.Text type AttrBaseTypeConstraint DOMHTMLAnchorElementHrefPropertyInfo = DOMHTMLAnchorElementK - type AttrGetType DOMHTMLAnchorElementHrefPropertyInfo = T.Text + type AttrGetType DOMHTMLAnchorElementHrefPropertyInfo = (Maybe T.Text) type AttrLabel DOMHTMLAnchorElementHrefPropertyInfo = "href" attrGet _ = getDOMHTMLAnchorElementHref attrSet _ = setDOMHTMLAnchorElementHref attrConstruct _ = constructDOMHTMLAnchorElementHref + attrClear _ = undefined -- VVV Prop "hreflang" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Just False) -getDOMHTMLAnchorElementHreflang :: (MonadIO m, DOMHTMLAnchorElementK o) => o -> m T.Text +getDOMHTMLAnchorElementHreflang :: (MonadIO m, DOMHTMLAnchorElementK o) => o -> m (Maybe T.Text) getDOMHTMLAnchorElementHreflang obj = liftIO $ getObjectPropertyString obj "hreflang" setDOMHTMLAnchorElementHreflang :: (MonadIO m, DOMHTMLAnchorElementK o) => o -> T.Text -> m () -setDOMHTMLAnchorElementHreflang obj val = liftIO $ setObjectPropertyString obj "hreflang" val +setDOMHTMLAnchorElementHreflang obj val = liftIO $ setObjectPropertyString obj "hreflang" (Just val) constructDOMHTMLAnchorElementHreflang :: T.Text -> IO ([Char], GValue) -constructDOMHTMLAnchorElementHreflang val = constructObjectPropertyString "hreflang" val +constructDOMHTMLAnchorElementHreflang val = constructObjectPropertyString "hreflang" (Just val) data DOMHTMLAnchorElementHreflangPropertyInfo instance AttrInfo DOMHTMLAnchorElementHreflangPropertyInfo where type AttrAllowedOps DOMHTMLAnchorElementHreflangPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint DOMHTMLAnchorElementHreflangPropertyInfo = (~) T.Text type AttrBaseTypeConstraint DOMHTMLAnchorElementHreflangPropertyInfo = DOMHTMLAnchorElementK - type AttrGetType DOMHTMLAnchorElementHreflangPropertyInfo = T.Text + type AttrGetType DOMHTMLAnchorElementHreflangPropertyInfo = (Maybe T.Text) type AttrLabel DOMHTMLAnchorElementHreflangPropertyInfo = "hreflang" attrGet _ = getDOMHTMLAnchorElementHreflang attrSet _ = setDOMHTMLAnchorElementHreflang attrConstruct _ = constructDOMHTMLAnchorElementHreflang + attrClear _ = undefined -- VVV Prop "name" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Just False) -getDOMHTMLAnchorElementName :: (MonadIO m, DOMHTMLAnchorElementK o) => o -> m T.Text +getDOMHTMLAnchorElementName :: (MonadIO m, DOMHTMLAnchorElementK o) => o -> m (Maybe T.Text) getDOMHTMLAnchorElementName obj = liftIO $ getObjectPropertyString obj "name" setDOMHTMLAnchorElementName :: (MonadIO m, DOMHTMLAnchorElementK o) => o -> T.Text -> m () -setDOMHTMLAnchorElementName obj val = liftIO $ setObjectPropertyString obj "name" val +setDOMHTMLAnchorElementName obj val = liftIO $ setObjectPropertyString obj "name" (Just val) constructDOMHTMLAnchorElementName :: T.Text -> IO ([Char], GValue) -constructDOMHTMLAnchorElementName val = constructObjectPropertyString "name" val +constructDOMHTMLAnchorElementName val = constructObjectPropertyString "name" (Just val) data DOMHTMLAnchorElementNamePropertyInfo instance AttrInfo DOMHTMLAnchorElementNamePropertyInfo where type AttrAllowedOps DOMHTMLAnchorElementNamePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint DOMHTMLAnchorElementNamePropertyInfo = (~) T.Text type AttrBaseTypeConstraint DOMHTMLAnchorElementNamePropertyInfo = DOMHTMLAnchorElementK - type AttrGetType DOMHTMLAnchorElementNamePropertyInfo = T.Text + type AttrGetType DOMHTMLAnchorElementNamePropertyInfo = (Maybe T.Text) type AttrLabel DOMHTMLAnchorElementNamePropertyInfo = "name" attrGet _ = getDOMHTMLAnchorElementName attrSet _ = setDOMHTMLAnchorElementName attrConstruct _ = constructDOMHTMLAnchorElementName + attrClear _ = undefined -- VVV Prop "origin" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable] + -- Nullable: (Nothing,Nothing) -getDOMHTMLAnchorElementOrigin :: (MonadIO m, DOMHTMLAnchorElementK o) => o -> m T.Text +getDOMHTMLAnchorElementOrigin :: (MonadIO m, DOMHTMLAnchorElementK o) => o -> m (Maybe T.Text) getDOMHTMLAnchorElementOrigin obj = liftIO $ getObjectPropertyString obj "origin" data DOMHTMLAnchorElementOriginPropertyInfo instance AttrInfo DOMHTMLAnchorElementOriginPropertyInfo where - type AttrAllowedOps DOMHTMLAnchorElementOriginPropertyInfo = '[ 'AttrGet] + type AttrAllowedOps DOMHTMLAnchorElementOriginPropertyInfo = '[ 'AttrGet, 'AttrClear] type AttrSetTypeConstraint DOMHTMLAnchorElementOriginPropertyInfo = (~) () type AttrBaseTypeConstraint DOMHTMLAnchorElementOriginPropertyInfo = DOMHTMLAnchorElementK - type AttrGetType DOMHTMLAnchorElementOriginPropertyInfo = T.Text + type AttrGetType DOMHTMLAnchorElementOriginPropertyInfo = (Maybe T.Text) type AttrLabel DOMHTMLAnchorElementOriginPropertyInfo = "origin" attrGet _ = getDOMHTMLAnchorElementOrigin attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "pathname" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Just False) -getDOMHTMLAnchorElementPathname :: (MonadIO m, DOMHTMLAnchorElementK o) => o -> m T.Text +getDOMHTMLAnchorElementPathname :: (MonadIO m, DOMHTMLAnchorElementK o) => o -> m (Maybe T.Text) getDOMHTMLAnchorElementPathname obj = liftIO $ getObjectPropertyString obj "pathname" setDOMHTMLAnchorElementPathname :: (MonadIO m, DOMHTMLAnchorElementK o) => o -> T.Text -> m () -setDOMHTMLAnchorElementPathname obj val = liftIO $ setObjectPropertyString obj "pathname" val +setDOMHTMLAnchorElementPathname obj val = liftIO $ setObjectPropertyString obj "pathname" (Just val) constructDOMHTMLAnchorElementPathname :: T.Text -> IO ([Char], GValue) -constructDOMHTMLAnchorElementPathname val = constructObjectPropertyString "pathname" val +constructDOMHTMLAnchorElementPathname val = constructObjectPropertyString "pathname" (Just val) data DOMHTMLAnchorElementPathnamePropertyInfo instance AttrInfo DOMHTMLAnchorElementPathnamePropertyInfo where type AttrAllowedOps DOMHTMLAnchorElementPathnamePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint DOMHTMLAnchorElementPathnamePropertyInfo = (~) T.Text type AttrBaseTypeConstraint DOMHTMLAnchorElementPathnamePropertyInfo = DOMHTMLAnchorElementK - type AttrGetType DOMHTMLAnchorElementPathnamePropertyInfo = T.Text + type AttrGetType DOMHTMLAnchorElementPathnamePropertyInfo = (Maybe T.Text) type AttrLabel DOMHTMLAnchorElementPathnamePropertyInfo = "pathname" attrGet _ = getDOMHTMLAnchorElementPathname attrSet _ = setDOMHTMLAnchorElementPathname attrConstruct _ = constructDOMHTMLAnchorElementPathname + attrClear _ = undefined -- VVV Prop "ping" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Just False) -getDOMHTMLAnchorElementPing :: (MonadIO m, DOMHTMLAnchorElementK o) => o -> m T.Text +getDOMHTMLAnchorElementPing :: (MonadIO m, DOMHTMLAnchorElementK o) => o -> m (Maybe T.Text) getDOMHTMLAnchorElementPing obj = liftIO $ getObjectPropertyString obj "ping" setDOMHTMLAnchorElementPing :: (MonadIO m, DOMHTMLAnchorElementK o) => o -> T.Text -> m () -setDOMHTMLAnchorElementPing obj val = liftIO $ setObjectPropertyString obj "ping" val +setDOMHTMLAnchorElementPing obj val = liftIO $ setObjectPropertyString obj "ping" (Just val) constructDOMHTMLAnchorElementPing :: T.Text -> IO ([Char], GValue) -constructDOMHTMLAnchorElementPing val = constructObjectPropertyString "ping" val +constructDOMHTMLAnchorElementPing val = constructObjectPropertyString "ping" (Just val) data DOMHTMLAnchorElementPingPropertyInfo instance AttrInfo DOMHTMLAnchorElementPingPropertyInfo where type AttrAllowedOps DOMHTMLAnchorElementPingPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint DOMHTMLAnchorElementPingPropertyInfo = (~) T.Text type AttrBaseTypeConstraint DOMHTMLAnchorElementPingPropertyInfo = DOMHTMLAnchorElementK - type AttrGetType DOMHTMLAnchorElementPingPropertyInfo = T.Text + type AttrGetType DOMHTMLAnchorElementPingPropertyInfo = (Maybe T.Text) type AttrLabel DOMHTMLAnchorElementPingPropertyInfo = "ping" attrGet _ = getDOMHTMLAnchorElementPing attrSet _ = setDOMHTMLAnchorElementPing attrConstruct _ = constructDOMHTMLAnchorElementPing + attrClear _ = undefined -- VVV Prop "port" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Just False) -getDOMHTMLAnchorElementPort :: (MonadIO m, DOMHTMLAnchorElementK o) => o -> m T.Text +getDOMHTMLAnchorElementPort :: (MonadIO m, DOMHTMLAnchorElementK o) => o -> m (Maybe T.Text) getDOMHTMLAnchorElementPort obj = liftIO $ getObjectPropertyString obj "port" setDOMHTMLAnchorElementPort :: (MonadIO m, DOMHTMLAnchorElementK o) => o -> T.Text -> m () -setDOMHTMLAnchorElementPort obj val = liftIO $ setObjectPropertyString obj "port" val +setDOMHTMLAnchorElementPort obj val = liftIO $ setObjectPropertyString obj "port" (Just val) constructDOMHTMLAnchorElementPort :: T.Text -> IO ([Char], GValue) -constructDOMHTMLAnchorElementPort val = constructObjectPropertyString "port" val +constructDOMHTMLAnchorElementPort val = constructObjectPropertyString "port" (Just val) data DOMHTMLAnchorElementPortPropertyInfo instance AttrInfo DOMHTMLAnchorElementPortPropertyInfo where type AttrAllowedOps DOMHTMLAnchorElementPortPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint DOMHTMLAnchorElementPortPropertyInfo = (~) T.Text type AttrBaseTypeConstraint DOMHTMLAnchorElementPortPropertyInfo = DOMHTMLAnchorElementK - type AttrGetType DOMHTMLAnchorElementPortPropertyInfo = T.Text + type AttrGetType DOMHTMLAnchorElementPortPropertyInfo = (Maybe T.Text) type AttrLabel DOMHTMLAnchorElementPortPropertyInfo = "port" attrGet _ = getDOMHTMLAnchorElementPort attrSet _ = setDOMHTMLAnchorElementPort attrConstruct _ = constructDOMHTMLAnchorElementPort + attrClear _ = undefined -- VVV Prop "protocol" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Just False) -getDOMHTMLAnchorElementProtocol :: (MonadIO m, DOMHTMLAnchorElementK o) => o -> m T.Text +getDOMHTMLAnchorElementProtocol :: (MonadIO m, DOMHTMLAnchorElementK o) => o -> m (Maybe T.Text) getDOMHTMLAnchorElementProtocol obj = liftIO $ getObjectPropertyString obj "protocol" setDOMHTMLAnchorElementProtocol :: (MonadIO m, DOMHTMLAnchorElementK o) => o -> T.Text -> m () -setDOMHTMLAnchorElementProtocol obj val = liftIO $ setObjectPropertyString obj "protocol" val +setDOMHTMLAnchorElementProtocol obj val = liftIO $ setObjectPropertyString obj "protocol" (Just val) constructDOMHTMLAnchorElementProtocol :: T.Text -> IO ([Char], GValue) -constructDOMHTMLAnchorElementProtocol val = constructObjectPropertyString "protocol" val +constructDOMHTMLAnchorElementProtocol val = constructObjectPropertyString "protocol" (Just val) data DOMHTMLAnchorElementProtocolPropertyInfo instance AttrInfo DOMHTMLAnchorElementProtocolPropertyInfo where type AttrAllowedOps DOMHTMLAnchorElementProtocolPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint DOMHTMLAnchorElementProtocolPropertyInfo = (~) T.Text type AttrBaseTypeConstraint DOMHTMLAnchorElementProtocolPropertyInfo = DOMHTMLAnchorElementK - type AttrGetType DOMHTMLAnchorElementProtocolPropertyInfo = T.Text + type AttrGetType DOMHTMLAnchorElementProtocolPropertyInfo = (Maybe T.Text) type AttrLabel DOMHTMLAnchorElementProtocolPropertyInfo = "protocol" attrGet _ = getDOMHTMLAnchorElementProtocol attrSet _ = setDOMHTMLAnchorElementProtocol attrConstruct _ = constructDOMHTMLAnchorElementProtocol + attrClear _ = undefined -- VVV Prop "rel" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Just False) -getDOMHTMLAnchorElementRel :: (MonadIO m, DOMHTMLAnchorElementK o) => o -> m T.Text +getDOMHTMLAnchorElementRel :: (MonadIO m, DOMHTMLAnchorElementK o) => o -> m (Maybe T.Text) getDOMHTMLAnchorElementRel obj = liftIO $ getObjectPropertyString obj "rel" setDOMHTMLAnchorElementRel :: (MonadIO m, DOMHTMLAnchorElementK o) => o -> T.Text -> m () -setDOMHTMLAnchorElementRel obj val = liftIO $ setObjectPropertyString obj "rel" val +setDOMHTMLAnchorElementRel obj val = liftIO $ setObjectPropertyString obj "rel" (Just val) constructDOMHTMLAnchorElementRel :: T.Text -> IO ([Char], GValue) -constructDOMHTMLAnchorElementRel val = constructObjectPropertyString "rel" val +constructDOMHTMLAnchorElementRel val = constructObjectPropertyString "rel" (Just val) data DOMHTMLAnchorElementRelPropertyInfo instance AttrInfo DOMHTMLAnchorElementRelPropertyInfo where type AttrAllowedOps DOMHTMLAnchorElementRelPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint DOMHTMLAnchorElementRelPropertyInfo = (~) T.Text type AttrBaseTypeConstraint DOMHTMLAnchorElementRelPropertyInfo = DOMHTMLAnchorElementK - type AttrGetType DOMHTMLAnchorElementRelPropertyInfo = T.Text + type AttrGetType DOMHTMLAnchorElementRelPropertyInfo = (Maybe T.Text) type AttrLabel DOMHTMLAnchorElementRelPropertyInfo = "rel" attrGet _ = getDOMHTMLAnchorElementRel attrSet _ = setDOMHTMLAnchorElementRel attrConstruct _ = constructDOMHTMLAnchorElementRel + attrClear _ = undefined -- VVV Prop "rev" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Just False) -getDOMHTMLAnchorElementRev :: (MonadIO m, DOMHTMLAnchorElementK o) => o -> m T.Text +getDOMHTMLAnchorElementRev :: (MonadIO m, DOMHTMLAnchorElementK o) => o -> m (Maybe T.Text) getDOMHTMLAnchorElementRev obj = liftIO $ getObjectPropertyString obj "rev" setDOMHTMLAnchorElementRev :: (MonadIO m, DOMHTMLAnchorElementK o) => o -> T.Text -> m () -setDOMHTMLAnchorElementRev obj val = liftIO $ setObjectPropertyString obj "rev" val +setDOMHTMLAnchorElementRev obj val = liftIO $ setObjectPropertyString obj "rev" (Just val) constructDOMHTMLAnchorElementRev :: T.Text -> IO ([Char], GValue) -constructDOMHTMLAnchorElementRev val = constructObjectPropertyString "rev" val +constructDOMHTMLAnchorElementRev val = constructObjectPropertyString "rev" (Just val) data DOMHTMLAnchorElementRevPropertyInfo instance AttrInfo DOMHTMLAnchorElementRevPropertyInfo where type AttrAllowedOps DOMHTMLAnchorElementRevPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint DOMHTMLAnchorElementRevPropertyInfo = (~) T.Text type AttrBaseTypeConstraint DOMHTMLAnchorElementRevPropertyInfo = DOMHTMLAnchorElementK - type AttrGetType DOMHTMLAnchorElementRevPropertyInfo = T.Text + type AttrGetType DOMHTMLAnchorElementRevPropertyInfo = (Maybe T.Text) type AttrLabel DOMHTMLAnchorElementRevPropertyInfo = "rev" attrGet _ = getDOMHTMLAnchorElementRev attrSet _ = setDOMHTMLAnchorElementRev attrConstruct _ = constructDOMHTMLAnchorElementRev + attrClear _ = undefined -- VVV Prop "search" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Just False) -getDOMHTMLAnchorElementSearch :: (MonadIO m, DOMHTMLAnchorElementK o) => o -> m T.Text +getDOMHTMLAnchorElementSearch :: (MonadIO m, DOMHTMLAnchorElementK o) => o -> m (Maybe T.Text) getDOMHTMLAnchorElementSearch obj = liftIO $ getObjectPropertyString obj "search" setDOMHTMLAnchorElementSearch :: (MonadIO m, DOMHTMLAnchorElementK o) => o -> T.Text -> m () -setDOMHTMLAnchorElementSearch obj val = liftIO $ setObjectPropertyString obj "search" val +setDOMHTMLAnchorElementSearch obj val = liftIO $ setObjectPropertyString obj "search" (Just val) constructDOMHTMLAnchorElementSearch :: T.Text -> IO ([Char], GValue) -constructDOMHTMLAnchorElementSearch val = constructObjectPropertyString "search" val +constructDOMHTMLAnchorElementSearch val = constructObjectPropertyString "search" (Just val) data DOMHTMLAnchorElementSearchPropertyInfo instance AttrInfo DOMHTMLAnchorElementSearchPropertyInfo where type AttrAllowedOps DOMHTMLAnchorElementSearchPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint DOMHTMLAnchorElementSearchPropertyInfo = (~) T.Text type AttrBaseTypeConstraint DOMHTMLAnchorElementSearchPropertyInfo = DOMHTMLAnchorElementK - type AttrGetType DOMHTMLAnchorElementSearchPropertyInfo = T.Text + type AttrGetType DOMHTMLAnchorElementSearchPropertyInfo = (Maybe T.Text) type AttrLabel DOMHTMLAnchorElementSearchPropertyInfo = "search" attrGet _ = getDOMHTMLAnchorElementSearch attrSet _ = setDOMHTMLAnchorElementSearch attrConstruct _ = constructDOMHTMLAnchorElementSearch + attrClear _ = undefined -- VVV Prop "shape" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Just False) -getDOMHTMLAnchorElementShape :: (MonadIO m, DOMHTMLAnchorElementK o) => o -> m T.Text +getDOMHTMLAnchorElementShape :: (MonadIO m, DOMHTMLAnchorElementK o) => o -> m (Maybe T.Text) getDOMHTMLAnchorElementShape obj = liftIO $ getObjectPropertyString obj "shape" setDOMHTMLAnchorElementShape :: (MonadIO m, DOMHTMLAnchorElementK o) => o -> T.Text -> m () -setDOMHTMLAnchorElementShape obj val = liftIO $ setObjectPropertyString obj "shape" val +setDOMHTMLAnchorElementShape obj val = liftIO $ setObjectPropertyString obj "shape" (Just val) constructDOMHTMLAnchorElementShape :: T.Text -> IO ([Char], GValue) -constructDOMHTMLAnchorElementShape val = constructObjectPropertyString "shape" val +constructDOMHTMLAnchorElementShape val = constructObjectPropertyString "shape" (Just val) data DOMHTMLAnchorElementShapePropertyInfo instance AttrInfo DOMHTMLAnchorElementShapePropertyInfo where type AttrAllowedOps DOMHTMLAnchorElementShapePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint DOMHTMLAnchorElementShapePropertyInfo = (~) T.Text type AttrBaseTypeConstraint DOMHTMLAnchorElementShapePropertyInfo = DOMHTMLAnchorElementK - type AttrGetType DOMHTMLAnchorElementShapePropertyInfo = T.Text + type AttrGetType DOMHTMLAnchorElementShapePropertyInfo = (Maybe T.Text) type AttrLabel DOMHTMLAnchorElementShapePropertyInfo = "shape" attrGet _ = getDOMHTMLAnchorElementShape attrSet _ = setDOMHTMLAnchorElementShape attrConstruct _ = constructDOMHTMLAnchorElementShape + attrClear _ = undefined -- VVV Prop "target" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Just False) -getDOMHTMLAnchorElementTarget :: (MonadIO m, DOMHTMLAnchorElementK o) => o -> m T.Text +getDOMHTMLAnchorElementTarget :: (MonadIO m, DOMHTMLAnchorElementK o) => o -> m (Maybe T.Text) getDOMHTMLAnchorElementTarget obj = liftIO $ getObjectPropertyString obj "target" setDOMHTMLAnchorElementTarget :: (MonadIO m, DOMHTMLAnchorElementK o) => o -> T.Text -> m () -setDOMHTMLAnchorElementTarget obj val = liftIO $ setObjectPropertyString obj "target" val +setDOMHTMLAnchorElementTarget obj val = liftIO $ setObjectPropertyString obj "target" (Just val) constructDOMHTMLAnchorElementTarget :: T.Text -> IO ([Char], GValue) -constructDOMHTMLAnchorElementTarget val = constructObjectPropertyString "target" val +constructDOMHTMLAnchorElementTarget val = constructObjectPropertyString "target" (Just val) data DOMHTMLAnchorElementTargetPropertyInfo instance AttrInfo DOMHTMLAnchorElementTargetPropertyInfo where type AttrAllowedOps DOMHTMLAnchorElementTargetPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint DOMHTMLAnchorElementTargetPropertyInfo = (~) T.Text type AttrBaseTypeConstraint DOMHTMLAnchorElementTargetPropertyInfo = DOMHTMLAnchorElementK - type AttrGetType DOMHTMLAnchorElementTargetPropertyInfo = T.Text + type AttrGetType DOMHTMLAnchorElementTargetPropertyInfo = (Maybe T.Text) type AttrLabel DOMHTMLAnchorElementTargetPropertyInfo = "target" attrGet _ = getDOMHTMLAnchorElementTarget attrSet _ = setDOMHTMLAnchorElementTarget attrConstruct _ = constructDOMHTMLAnchorElementTarget + attrClear _ = undefined -- VVV Prop "text" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable] + -- Nullable: (Nothing,Nothing) -getDOMHTMLAnchorElementText :: (MonadIO m, DOMHTMLAnchorElementK o) => o -> m T.Text +getDOMHTMLAnchorElementText :: (MonadIO m, DOMHTMLAnchorElementK o) => o -> m (Maybe T.Text) getDOMHTMLAnchorElementText obj = liftIO $ getObjectPropertyString obj "text" data DOMHTMLAnchorElementTextPropertyInfo instance AttrInfo DOMHTMLAnchorElementTextPropertyInfo where - type AttrAllowedOps DOMHTMLAnchorElementTextPropertyInfo = '[ 'AttrGet] + type AttrAllowedOps DOMHTMLAnchorElementTextPropertyInfo = '[ 'AttrGet, 'AttrClear] type AttrSetTypeConstraint DOMHTMLAnchorElementTextPropertyInfo = (~) () type AttrBaseTypeConstraint DOMHTMLAnchorElementTextPropertyInfo = DOMHTMLAnchorElementK - type AttrGetType DOMHTMLAnchorElementTextPropertyInfo = T.Text + type AttrGetType DOMHTMLAnchorElementTextPropertyInfo = (Maybe T.Text) type AttrLabel DOMHTMLAnchorElementTextPropertyInfo = "text" attrGet _ = getDOMHTMLAnchorElementText attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "type" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) -getDOMHTMLAnchorElementType :: (MonadIO m, DOMHTMLAnchorElementK o) => o -> m T.Text +getDOMHTMLAnchorElementType :: (MonadIO m, DOMHTMLAnchorElementK o) => o -> m (Maybe T.Text) getDOMHTMLAnchorElementType obj = liftIO $ getObjectPropertyString obj "type" setDOMHTMLAnchorElementType :: (MonadIO m, DOMHTMLAnchorElementK o) => o -> T.Text -> m () -setDOMHTMLAnchorElementType obj val = liftIO $ setObjectPropertyString obj "type" val +setDOMHTMLAnchorElementType obj val = liftIO $ setObjectPropertyString obj "type" (Just val) constructDOMHTMLAnchorElementType :: T.Text -> IO ([Char], GValue) -constructDOMHTMLAnchorElementType val = constructObjectPropertyString "type" val +constructDOMHTMLAnchorElementType val = constructObjectPropertyString "type" (Just val) +clearDOMHTMLAnchorElementType :: (MonadIO m, DOMHTMLAnchorElementK o) => o -> m () +clearDOMHTMLAnchorElementType obj = liftIO $ setObjectPropertyString obj "type" (Nothing :: Maybe T.Text) + data DOMHTMLAnchorElementTypePropertyInfo instance AttrInfo DOMHTMLAnchorElementTypePropertyInfo where - type AttrAllowedOps DOMHTMLAnchorElementTypePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrAllowedOps DOMHTMLAnchorElementTypePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint DOMHTMLAnchorElementTypePropertyInfo = (~) T.Text type AttrBaseTypeConstraint DOMHTMLAnchorElementTypePropertyInfo = DOMHTMLAnchorElementK - type AttrGetType DOMHTMLAnchorElementTypePropertyInfo = T.Text + type AttrGetType DOMHTMLAnchorElementTypePropertyInfo = (Maybe T.Text) type AttrLabel DOMHTMLAnchorElementTypePropertyInfo = "type" attrGet _ = getDOMHTMLAnchorElementType attrSet _ = setDOMHTMLAnchorElementType attrConstruct _ = constructDOMHTMLAnchorElementType + attrClear _ = clearDOMHTMLAnchorElementType type instance AttributeList DOMHTMLAnchorElement = DOMHTMLAnchorElementAttributeList type DOMHTMLAnchorElementAttributeList = ('[ '("accessKey", DOMHTMLElementAccessKeyPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("baseUri", DOMNodeBaseUriPropertyInfo), '("charset", DOMHTMLAnchorElementCharsetPropertyInfo), '("childElementCount", DOMElementChildElementCountPropertyInfo), '("childNodes", DOMNodeChildNodesPropertyInfo), '("children", DOMHTMLElementChildrenPropertyInfo), '("classList", DOMElementClassListPropertyInfo), '("className", DOMElementClassNamePropertyInfo), '("clientHeight", DOMElementClientHeightPropertyInfo), '("clientLeft", DOMElementClientLeftPropertyInfo), '("clientTop", DOMElementClientTopPropertyInfo), '("clientWidth", DOMElementClientWidthPropertyInfo), '("contentEditable", DOMHTMLElementContentEditablePropertyInfo), '("coords", DOMHTMLAnchorElementCoordsPropertyInfo), '("coreObject", DOMObjectCoreObjectPropertyInfo), '("dir", DOMHTMLElementDirPropertyInfo), '("download", DOMHTMLAnchorElementDownloadPropertyInfo), '("draggable", DOMHTMLElementDraggablePropertyInfo), '("firstChild", DOMNodeFirstChildPropertyInfo), '("firstElementChild", DOMElementFirstElementChildPropertyInfo), '("hash", DOMHTMLAnchorElementHashPropertyInfo), '("hidden", DOMHTMLElementHiddenPropertyInfo), '("host", DOMHTMLAnchorElementHostPropertyInfo), '("hostname", DOMHTMLAnchorElementHostnamePropertyInfo), '("href", DOMHTMLAnchorElementHrefPropertyInfo), '("hreflang", DOMHTMLAnchorElementHreflangPropertyInfo), '("id", DOMElementIdPropertyInfo), '("innerHtml", DOMHTMLElementInnerHtmlPropertyInfo), '("innerText", DOMHTMLElementInnerTextPropertyInfo), '("isContentEditable", DOMHTMLElementIsContentEditablePropertyInfo), '("lang", DOMHTMLElementLangPropertyInfo), '("lastChild", DOMNodeLastChildPropertyInfo), '("lastElementChild", DOMElementLastElementChildPropertyInfo), '("localName", DOMNodeLocalNamePropertyInfo), '("name", DOMHTMLAnchorElementNamePropertyInfo), '("namespaceUri", DOMNodeNamespaceUriPropertyInfo), '("nextElementSibling", DOMElementNextElementSiblingPropertyInfo), '("nextSibling", DOMNodeNextSiblingPropertyInfo), '("nodeName", DOMNodeNodeNamePropertyInfo), '("nodeType", DOMNodeNodeTypePropertyInfo), '("nodeValue", DOMNodeNodeValuePropertyInfo), '("offsetHeight", DOMElementOffsetHeightPropertyInfo), '("offsetLeft", DOMElementOffsetLeftPropertyInfo), '("offsetParent", DOMElementOffsetParentPropertyInfo), '("offsetTop", DOMElementOffsetTopPropertyInfo), '("offsetWidth", DOMElementOffsetWidthPropertyInfo), '("origin", DOMHTMLAnchorElementOriginPropertyInfo), '("outerHtml", DOMHTMLElementOuterHtmlPropertyInfo), '("outerText", DOMHTMLElementOuterTextPropertyInfo), '("ownerDocument", DOMNodeOwnerDocumentPropertyInfo), '("parentElement", DOMNodeParentElementPropertyInfo), '("parentNode", DOMNodeParentNodePropertyInfo), '("pathname", DOMHTMLAnchorElementPathnamePropertyInfo), '("ping", DOMHTMLAnchorElementPingPropertyInfo), '("port", DOMHTMLAnchorElementPortPropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previousElementSibling", DOMElementPreviousElementSiblingPropertyInfo), '("previousSibling", DOMNodePreviousSiblingPropertyInfo), '("protocol", DOMHTMLAnchorElementProtocolPropertyInfo), '("rel", DOMHTMLAnchorElementRelPropertyInfo), '("rev", DOMHTMLAnchorElementRevPropertyInfo), '("scrollHeight", DOMElementScrollHeightPropertyInfo), '("scrollLeft", DOMElementScrollLeftPropertyInfo), '("scrollTop", DOMElementScrollTopPropertyInfo), '("scrollWidth", DOMElementScrollWidthPropertyInfo), '("search", DOMHTMLAnchorElementSearchPropertyInfo), '("shape", DOMHTMLAnchorElementShapePropertyInfo), '("spellcheck", DOMHTMLElementSpellcheckPropertyInfo), '("style", DOMElementStylePropertyInfo), '("tabIndex", DOMHTMLElementTabIndexPropertyInfo), '("tagName", DOMElementTagNamePropertyInfo), '("target", DOMHTMLAnchorElementTargetPropertyInfo), '("text", DOMHTMLAnchorElementTextPropertyInfo), '("textContent", DOMNodeTextContentPropertyInfo), '("title", DOMHTMLElementTitlePropertyInfo), '("translate", DOMHTMLElementTranslatePropertyInfo), '("type", DOMHTMLAnchorElementTypePropertyInfo), '("webkitRegionOverset", DOMElementWebkitRegionOversetPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo)] :: [(Symbol, *)]) +dOMHTMLAnchorElementCharset :: AttrLabelProxy "charset" +dOMHTMLAnchorElementCharset = AttrLabelProxy + +dOMHTMLAnchorElementCoords :: AttrLabelProxy "coords" +dOMHTMLAnchorElementCoords = AttrLabelProxy + +dOMHTMLAnchorElementDownload :: AttrLabelProxy "download" +dOMHTMLAnchorElementDownload = AttrLabelProxy + +dOMHTMLAnchorElementHash :: AttrLabelProxy "hash" +dOMHTMLAnchorElementHash = AttrLabelProxy + +dOMHTMLAnchorElementHost :: AttrLabelProxy "host" +dOMHTMLAnchorElementHost = AttrLabelProxy + +dOMHTMLAnchorElementHostname :: AttrLabelProxy "hostname" +dOMHTMLAnchorElementHostname = AttrLabelProxy + +dOMHTMLAnchorElementHref :: AttrLabelProxy "href" +dOMHTMLAnchorElementHref = AttrLabelProxy + +dOMHTMLAnchorElementHreflang :: AttrLabelProxy "hreflang" +dOMHTMLAnchorElementHreflang = AttrLabelProxy + +dOMHTMLAnchorElementName :: AttrLabelProxy "name" +dOMHTMLAnchorElementName = AttrLabelProxy + +dOMHTMLAnchorElementOrigin :: AttrLabelProxy "origin" +dOMHTMLAnchorElementOrigin = AttrLabelProxy + +dOMHTMLAnchorElementPathname :: AttrLabelProxy "pathname" +dOMHTMLAnchorElementPathname = AttrLabelProxy + +dOMHTMLAnchorElementPing :: AttrLabelProxy "ping" +dOMHTMLAnchorElementPing = AttrLabelProxy + +dOMHTMLAnchorElementPort :: AttrLabelProxy "port" +dOMHTMLAnchorElementPort = AttrLabelProxy + +dOMHTMLAnchorElementProtocol :: AttrLabelProxy "protocol" +dOMHTMLAnchorElementProtocol = AttrLabelProxy + +dOMHTMLAnchorElementRel :: AttrLabelProxy "rel" +dOMHTMLAnchorElementRel = AttrLabelProxy + +dOMHTMLAnchorElementRev :: AttrLabelProxy "rev" +dOMHTMLAnchorElementRev = AttrLabelProxy + +dOMHTMLAnchorElementSearch :: AttrLabelProxy "search" +dOMHTMLAnchorElementSearch = AttrLabelProxy + +dOMHTMLAnchorElementShape :: AttrLabelProxy "shape" +dOMHTMLAnchorElementShape = AttrLabelProxy + +dOMHTMLAnchorElementTarget :: AttrLabelProxy "target" +dOMHTMLAnchorElementTarget = AttrLabelProxy + +dOMHTMLAnchorElementText :: AttrLabelProxy "text" +dOMHTMLAnchorElementText = AttrLabelProxy + +dOMHTMLAnchorElementType :: AttrLabelProxy "type" +dOMHTMLAnchorElementType = AttrLabelProxy + type instance SignalList DOMHTMLAnchorElement = DOMHTMLAnchorElementSignalList type DOMHTMLAnchorElementSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) @@ -1094,7 +1224,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLAnchorElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -1124,7 +1254,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLAnchorElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -1154,7 +1284,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLAnchorElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -1184,7 +1314,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLAnchorElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -1214,7 +1344,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLAnchorElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -1244,7 +1374,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLAnchorElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -1274,7 +1404,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLAnchorElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -1304,7 +1434,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLAnchorElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -1334,7 +1464,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLAnchorElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -1364,7 +1494,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLAnchorElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -1394,7 +1524,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLAnchorElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -1424,7 +1554,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLAnchorElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -1454,7 +1584,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLAnchorElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -1484,7 +1614,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLAnchorElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -1514,7 +1644,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLAnchorElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -1544,7 +1674,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLAnchorElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -1574,7 +1704,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLAnchorElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -1604,7 +1734,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLAnchorElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -1634,7 +1764,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLAnchorElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -1664,7 +1794,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLAnchorElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -1694,7 +1824,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLAnchorElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1725,7 +1855,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLAnchorElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1756,7 +1886,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLAnchorElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1787,7 +1917,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLAnchorElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1818,7 +1948,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLAnchorElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1849,7 +1979,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLAnchorElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1880,7 +2010,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLAnchorElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1911,7 +2041,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLAnchorElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1942,7 +2072,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLAnchorElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1973,7 +2103,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLAnchorElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -2004,7 +2134,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLAnchorElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -2035,7 +2165,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLAnchorElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -2066,7 +2196,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLAnchorElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -2097,7 +2227,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLAnchorElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -2128,7 +2258,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLAnchorElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -2159,7 +2289,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLAnchorElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -2190,7 +2320,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLAnchorElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -2221,7 +2351,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLAnchorElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False diff --git a/GI/WebKit/Objects/DOMHTMLAnchorElement.hs-boot b/GI/WebKit/Objects/DOMHTMLAnchorElement.hs-boot --- a/GI/WebKit/Objects/DOMHTMLAnchorElement.hs-boot +++ b/GI/WebKit/Objects/DOMHTMLAnchorElement.hs-boot @@ -1,8 +1,8 @@ module GI.WebKit.Objects.DOMHTMLAnchorElement where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map diff --git a/GI/WebKit/Objects/DOMHTMLAppletElement.hs b/GI/WebKit/Objects/DOMHTMLAppletElement.hs --- a/GI/WebKit/Objects/DOMHTMLAppletElement.hs +++ b/GI/WebKit/Objects/DOMHTMLAppletElement.hs @@ -133,6 +133,7 @@ -- ** Align DOMHTMLAppletElementAlignPropertyInfo , constructDOMHTMLAppletElementAlign , + dOMHTMLAppletElementAlign , getDOMHTMLAppletElementAlign , setDOMHTMLAppletElementAlign , @@ -140,6 +141,7 @@ -- ** Alt DOMHTMLAppletElementAltPropertyInfo , constructDOMHTMLAppletElementAlt , + dOMHTMLAppletElementAlt , getDOMHTMLAppletElementAlt , setDOMHTMLAppletElementAlt , @@ -147,6 +149,7 @@ -- ** Archive DOMHTMLAppletElementArchivePropertyInfo , constructDOMHTMLAppletElementArchive , + dOMHTMLAppletElementArchive , getDOMHTMLAppletElementArchive , setDOMHTMLAppletElementArchive , @@ -154,6 +157,7 @@ -- ** Code DOMHTMLAppletElementCodePropertyInfo , constructDOMHTMLAppletElementCode , + dOMHTMLAppletElementCode , getDOMHTMLAppletElementCode , setDOMHTMLAppletElementCode , @@ -161,6 +165,7 @@ -- ** CodeBase DOMHTMLAppletElementCodeBasePropertyInfo, constructDOMHTMLAppletElementCodeBase , + dOMHTMLAppletElementCodeBase , getDOMHTMLAppletElementCodeBase , setDOMHTMLAppletElementCodeBase , @@ -168,6 +173,7 @@ -- ** Height DOMHTMLAppletElementHeightPropertyInfo , constructDOMHTMLAppletElementHeight , + dOMHTMLAppletElementHeight , getDOMHTMLAppletElementHeight , setDOMHTMLAppletElementHeight , @@ -175,6 +181,7 @@ -- ** Hspace DOMHTMLAppletElementHspacePropertyInfo , constructDOMHTMLAppletElementHspace , + dOMHTMLAppletElementHspace , getDOMHTMLAppletElementHspace , setDOMHTMLAppletElementHspace , @@ -182,6 +189,7 @@ -- ** Name DOMHTMLAppletElementNamePropertyInfo , constructDOMHTMLAppletElementName , + dOMHTMLAppletElementName , getDOMHTMLAppletElementName , setDOMHTMLAppletElementName , @@ -189,6 +197,7 @@ -- ** Object DOMHTMLAppletElementObjectPropertyInfo , constructDOMHTMLAppletElementObject , + dOMHTMLAppletElementObject , getDOMHTMLAppletElementObject , setDOMHTMLAppletElementObject , @@ -196,6 +205,7 @@ -- ** Vspace DOMHTMLAppletElementVspacePropertyInfo , constructDOMHTMLAppletElementVspace , + dOMHTMLAppletElementVspace , getDOMHTMLAppletElementVspace , setDOMHTMLAppletElementVspace , @@ -203,6 +213,7 @@ -- ** Width DOMHTMLAppletElementWidthPropertyInfo , constructDOMHTMLAppletElementWidth , + dOMHTMLAppletElementWidth , getDOMHTMLAppletElementWidth , setDOMHTMLAppletElementWidth , @@ -211,9 +222,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map @@ -433,270 +444,325 @@ -- VVV Prop "align" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Just False) -getDOMHTMLAppletElementAlign :: (MonadIO m, DOMHTMLAppletElementK o) => o -> m T.Text +getDOMHTMLAppletElementAlign :: (MonadIO m, DOMHTMLAppletElementK o) => o -> m (Maybe T.Text) getDOMHTMLAppletElementAlign obj = liftIO $ getObjectPropertyString obj "align" setDOMHTMLAppletElementAlign :: (MonadIO m, DOMHTMLAppletElementK o) => o -> T.Text -> m () -setDOMHTMLAppletElementAlign obj val = liftIO $ setObjectPropertyString obj "align" val +setDOMHTMLAppletElementAlign obj val = liftIO $ setObjectPropertyString obj "align" (Just val) constructDOMHTMLAppletElementAlign :: T.Text -> IO ([Char], GValue) -constructDOMHTMLAppletElementAlign val = constructObjectPropertyString "align" val +constructDOMHTMLAppletElementAlign val = constructObjectPropertyString "align" (Just val) data DOMHTMLAppletElementAlignPropertyInfo instance AttrInfo DOMHTMLAppletElementAlignPropertyInfo where type AttrAllowedOps DOMHTMLAppletElementAlignPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint DOMHTMLAppletElementAlignPropertyInfo = (~) T.Text type AttrBaseTypeConstraint DOMHTMLAppletElementAlignPropertyInfo = DOMHTMLAppletElementK - type AttrGetType DOMHTMLAppletElementAlignPropertyInfo = T.Text + type AttrGetType DOMHTMLAppletElementAlignPropertyInfo = (Maybe T.Text) type AttrLabel DOMHTMLAppletElementAlignPropertyInfo = "align" attrGet _ = getDOMHTMLAppletElementAlign attrSet _ = setDOMHTMLAppletElementAlign attrConstruct _ = constructDOMHTMLAppletElementAlign + attrClear _ = undefined -- VVV Prop "alt" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Just False) -getDOMHTMLAppletElementAlt :: (MonadIO m, DOMHTMLAppletElementK o) => o -> m T.Text +getDOMHTMLAppletElementAlt :: (MonadIO m, DOMHTMLAppletElementK o) => o -> m (Maybe T.Text) getDOMHTMLAppletElementAlt obj = liftIO $ getObjectPropertyString obj "alt" setDOMHTMLAppletElementAlt :: (MonadIO m, DOMHTMLAppletElementK o) => o -> T.Text -> m () -setDOMHTMLAppletElementAlt obj val = liftIO $ setObjectPropertyString obj "alt" val +setDOMHTMLAppletElementAlt obj val = liftIO $ setObjectPropertyString obj "alt" (Just val) constructDOMHTMLAppletElementAlt :: T.Text -> IO ([Char], GValue) -constructDOMHTMLAppletElementAlt val = constructObjectPropertyString "alt" val +constructDOMHTMLAppletElementAlt val = constructObjectPropertyString "alt" (Just val) data DOMHTMLAppletElementAltPropertyInfo instance AttrInfo DOMHTMLAppletElementAltPropertyInfo where type AttrAllowedOps DOMHTMLAppletElementAltPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint DOMHTMLAppletElementAltPropertyInfo = (~) T.Text type AttrBaseTypeConstraint DOMHTMLAppletElementAltPropertyInfo = DOMHTMLAppletElementK - type AttrGetType DOMHTMLAppletElementAltPropertyInfo = T.Text + type AttrGetType DOMHTMLAppletElementAltPropertyInfo = (Maybe T.Text) type AttrLabel DOMHTMLAppletElementAltPropertyInfo = "alt" attrGet _ = getDOMHTMLAppletElementAlt attrSet _ = setDOMHTMLAppletElementAlt attrConstruct _ = constructDOMHTMLAppletElementAlt + attrClear _ = undefined -- VVV Prop "archive" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Just False) -getDOMHTMLAppletElementArchive :: (MonadIO m, DOMHTMLAppletElementK o) => o -> m T.Text +getDOMHTMLAppletElementArchive :: (MonadIO m, DOMHTMLAppletElementK o) => o -> m (Maybe T.Text) getDOMHTMLAppletElementArchive obj = liftIO $ getObjectPropertyString obj "archive" setDOMHTMLAppletElementArchive :: (MonadIO m, DOMHTMLAppletElementK o) => o -> T.Text -> m () -setDOMHTMLAppletElementArchive obj val = liftIO $ setObjectPropertyString obj "archive" val +setDOMHTMLAppletElementArchive obj val = liftIO $ setObjectPropertyString obj "archive" (Just val) constructDOMHTMLAppletElementArchive :: T.Text -> IO ([Char], GValue) -constructDOMHTMLAppletElementArchive val = constructObjectPropertyString "archive" val +constructDOMHTMLAppletElementArchive val = constructObjectPropertyString "archive" (Just val) data DOMHTMLAppletElementArchivePropertyInfo instance AttrInfo DOMHTMLAppletElementArchivePropertyInfo where type AttrAllowedOps DOMHTMLAppletElementArchivePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint DOMHTMLAppletElementArchivePropertyInfo = (~) T.Text type AttrBaseTypeConstraint DOMHTMLAppletElementArchivePropertyInfo = DOMHTMLAppletElementK - type AttrGetType DOMHTMLAppletElementArchivePropertyInfo = T.Text + type AttrGetType DOMHTMLAppletElementArchivePropertyInfo = (Maybe T.Text) type AttrLabel DOMHTMLAppletElementArchivePropertyInfo = "archive" attrGet _ = getDOMHTMLAppletElementArchive attrSet _ = setDOMHTMLAppletElementArchive attrConstruct _ = constructDOMHTMLAppletElementArchive + attrClear _ = undefined -- VVV Prop "code" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Just False) -getDOMHTMLAppletElementCode :: (MonadIO m, DOMHTMLAppletElementK o) => o -> m T.Text +getDOMHTMLAppletElementCode :: (MonadIO m, DOMHTMLAppletElementK o) => o -> m (Maybe T.Text) getDOMHTMLAppletElementCode obj = liftIO $ getObjectPropertyString obj "code" setDOMHTMLAppletElementCode :: (MonadIO m, DOMHTMLAppletElementK o) => o -> T.Text -> m () -setDOMHTMLAppletElementCode obj val = liftIO $ setObjectPropertyString obj "code" val +setDOMHTMLAppletElementCode obj val = liftIO $ setObjectPropertyString obj "code" (Just val) constructDOMHTMLAppletElementCode :: T.Text -> IO ([Char], GValue) -constructDOMHTMLAppletElementCode val = constructObjectPropertyString "code" val +constructDOMHTMLAppletElementCode val = constructObjectPropertyString "code" (Just val) data DOMHTMLAppletElementCodePropertyInfo instance AttrInfo DOMHTMLAppletElementCodePropertyInfo where type AttrAllowedOps DOMHTMLAppletElementCodePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint DOMHTMLAppletElementCodePropertyInfo = (~) T.Text type AttrBaseTypeConstraint DOMHTMLAppletElementCodePropertyInfo = DOMHTMLAppletElementK - type AttrGetType DOMHTMLAppletElementCodePropertyInfo = T.Text + type AttrGetType DOMHTMLAppletElementCodePropertyInfo = (Maybe T.Text) type AttrLabel DOMHTMLAppletElementCodePropertyInfo = "code" attrGet _ = getDOMHTMLAppletElementCode attrSet _ = setDOMHTMLAppletElementCode attrConstruct _ = constructDOMHTMLAppletElementCode + attrClear _ = undefined -- VVV Prop "code-base" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Just False) -getDOMHTMLAppletElementCodeBase :: (MonadIO m, DOMHTMLAppletElementK o) => o -> m T.Text +getDOMHTMLAppletElementCodeBase :: (MonadIO m, DOMHTMLAppletElementK o) => o -> m (Maybe T.Text) getDOMHTMLAppletElementCodeBase obj = liftIO $ getObjectPropertyString obj "code-base" setDOMHTMLAppletElementCodeBase :: (MonadIO m, DOMHTMLAppletElementK o) => o -> T.Text -> m () -setDOMHTMLAppletElementCodeBase obj val = liftIO $ setObjectPropertyString obj "code-base" val +setDOMHTMLAppletElementCodeBase obj val = liftIO $ setObjectPropertyString obj "code-base" (Just val) constructDOMHTMLAppletElementCodeBase :: T.Text -> IO ([Char], GValue) -constructDOMHTMLAppletElementCodeBase val = constructObjectPropertyString "code-base" val +constructDOMHTMLAppletElementCodeBase val = constructObjectPropertyString "code-base" (Just val) data DOMHTMLAppletElementCodeBasePropertyInfo instance AttrInfo DOMHTMLAppletElementCodeBasePropertyInfo where type AttrAllowedOps DOMHTMLAppletElementCodeBasePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint DOMHTMLAppletElementCodeBasePropertyInfo = (~) T.Text type AttrBaseTypeConstraint DOMHTMLAppletElementCodeBasePropertyInfo = DOMHTMLAppletElementK - type AttrGetType DOMHTMLAppletElementCodeBasePropertyInfo = T.Text + type AttrGetType DOMHTMLAppletElementCodeBasePropertyInfo = (Maybe T.Text) type AttrLabel DOMHTMLAppletElementCodeBasePropertyInfo = "code-base" attrGet _ = getDOMHTMLAppletElementCodeBase attrSet _ = setDOMHTMLAppletElementCodeBase attrConstruct _ = constructDOMHTMLAppletElementCodeBase + attrClear _ = undefined -- VVV Prop "height" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Just False) -getDOMHTMLAppletElementHeight :: (MonadIO m, DOMHTMLAppletElementK o) => o -> m T.Text +getDOMHTMLAppletElementHeight :: (MonadIO m, DOMHTMLAppletElementK o) => o -> m (Maybe T.Text) getDOMHTMLAppletElementHeight obj = liftIO $ getObjectPropertyString obj "height" setDOMHTMLAppletElementHeight :: (MonadIO m, DOMHTMLAppletElementK o) => o -> T.Text -> m () -setDOMHTMLAppletElementHeight obj val = liftIO $ setObjectPropertyString obj "height" val +setDOMHTMLAppletElementHeight obj val = liftIO $ setObjectPropertyString obj "height" (Just val) constructDOMHTMLAppletElementHeight :: T.Text -> IO ([Char], GValue) -constructDOMHTMLAppletElementHeight val = constructObjectPropertyString "height" val +constructDOMHTMLAppletElementHeight val = constructObjectPropertyString "height" (Just val) data DOMHTMLAppletElementHeightPropertyInfo instance AttrInfo DOMHTMLAppletElementHeightPropertyInfo where type AttrAllowedOps DOMHTMLAppletElementHeightPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint DOMHTMLAppletElementHeightPropertyInfo = (~) T.Text type AttrBaseTypeConstraint DOMHTMLAppletElementHeightPropertyInfo = DOMHTMLAppletElementK - type AttrGetType DOMHTMLAppletElementHeightPropertyInfo = T.Text + type AttrGetType DOMHTMLAppletElementHeightPropertyInfo = (Maybe T.Text) type AttrLabel DOMHTMLAppletElementHeightPropertyInfo = "height" attrGet _ = getDOMHTMLAppletElementHeight attrSet _ = setDOMHTMLAppletElementHeight attrConstruct _ = constructDOMHTMLAppletElementHeight + attrClear _ = undefined -- VVV Prop "hspace" - -- Type: TBasicType TInt64 + -- Type: TBasicType TLong -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) -getDOMHTMLAppletElementHspace :: (MonadIO m, DOMHTMLAppletElementK o) => o -> m Int64 -getDOMHTMLAppletElementHspace obj = liftIO $ getObjectPropertyInt64 obj "hspace" +getDOMHTMLAppletElementHspace :: (MonadIO m, DOMHTMLAppletElementK o) => o -> m CLong +getDOMHTMLAppletElementHspace obj = liftIO $ getObjectPropertyLong obj "hspace" -setDOMHTMLAppletElementHspace :: (MonadIO m, DOMHTMLAppletElementK o) => o -> Int64 -> m () -setDOMHTMLAppletElementHspace obj val = liftIO $ setObjectPropertyInt64 obj "hspace" val +setDOMHTMLAppletElementHspace :: (MonadIO m, DOMHTMLAppletElementK o) => o -> CLong -> m () +setDOMHTMLAppletElementHspace obj val = liftIO $ setObjectPropertyLong obj "hspace" val -constructDOMHTMLAppletElementHspace :: Int64 -> IO ([Char], GValue) -constructDOMHTMLAppletElementHspace val = constructObjectPropertyInt64 "hspace" val +constructDOMHTMLAppletElementHspace :: CLong -> IO ([Char], GValue) +constructDOMHTMLAppletElementHspace val = constructObjectPropertyLong "hspace" val data DOMHTMLAppletElementHspacePropertyInfo instance AttrInfo DOMHTMLAppletElementHspacePropertyInfo where type AttrAllowedOps DOMHTMLAppletElementHspacePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLAppletElementHspacePropertyInfo = (~) Int64 + type AttrSetTypeConstraint DOMHTMLAppletElementHspacePropertyInfo = (~) CLong type AttrBaseTypeConstraint DOMHTMLAppletElementHspacePropertyInfo = DOMHTMLAppletElementK - type AttrGetType DOMHTMLAppletElementHspacePropertyInfo = Int64 + type AttrGetType DOMHTMLAppletElementHspacePropertyInfo = CLong type AttrLabel DOMHTMLAppletElementHspacePropertyInfo = "hspace" attrGet _ = getDOMHTMLAppletElementHspace attrSet _ = setDOMHTMLAppletElementHspace attrConstruct _ = constructDOMHTMLAppletElementHspace + attrClear _ = undefined -- VVV Prop "name" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Just False) -getDOMHTMLAppletElementName :: (MonadIO m, DOMHTMLAppletElementK o) => o -> m T.Text +getDOMHTMLAppletElementName :: (MonadIO m, DOMHTMLAppletElementK o) => o -> m (Maybe T.Text) getDOMHTMLAppletElementName obj = liftIO $ getObjectPropertyString obj "name" setDOMHTMLAppletElementName :: (MonadIO m, DOMHTMLAppletElementK o) => o -> T.Text -> m () -setDOMHTMLAppletElementName obj val = liftIO $ setObjectPropertyString obj "name" val +setDOMHTMLAppletElementName obj val = liftIO $ setObjectPropertyString obj "name" (Just val) constructDOMHTMLAppletElementName :: T.Text -> IO ([Char], GValue) -constructDOMHTMLAppletElementName val = constructObjectPropertyString "name" val +constructDOMHTMLAppletElementName val = constructObjectPropertyString "name" (Just val) data DOMHTMLAppletElementNamePropertyInfo instance AttrInfo DOMHTMLAppletElementNamePropertyInfo where type AttrAllowedOps DOMHTMLAppletElementNamePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint DOMHTMLAppletElementNamePropertyInfo = (~) T.Text type AttrBaseTypeConstraint DOMHTMLAppletElementNamePropertyInfo = DOMHTMLAppletElementK - type AttrGetType DOMHTMLAppletElementNamePropertyInfo = T.Text + type AttrGetType DOMHTMLAppletElementNamePropertyInfo = (Maybe T.Text) type AttrLabel DOMHTMLAppletElementNamePropertyInfo = "name" attrGet _ = getDOMHTMLAppletElementName attrSet _ = setDOMHTMLAppletElementName attrConstruct _ = constructDOMHTMLAppletElementName + attrClear _ = undefined -- VVV Prop "object" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Just False) -getDOMHTMLAppletElementObject :: (MonadIO m, DOMHTMLAppletElementK o) => o -> m T.Text +getDOMHTMLAppletElementObject :: (MonadIO m, DOMHTMLAppletElementK o) => o -> m (Maybe T.Text) getDOMHTMLAppletElementObject obj = liftIO $ getObjectPropertyString obj "object" setDOMHTMLAppletElementObject :: (MonadIO m, DOMHTMLAppletElementK o) => o -> T.Text -> m () -setDOMHTMLAppletElementObject obj val = liftIO $ setObjectPropertyString obj "object" val +setDOMHTMLAppletElementObject obj val = liftIO $ setObjectPropertyString obj "object" (Just val) constructDOMHTMLAppletElementObject :: T.Text -> IO ([Char], GValue) -constructDOMHTMLAppletElementObject val = constructObjectPropertyString "object" val +constructDOMHTMLAppletElementObject val = constructObjectPropertyString "object" (Just val) data DOMHTMLAppletElementObjectPropertyInfo instance AttrInfo DOMHTMLAppletElementObjectPropertyInfo where type AttrAllowedOps DOMHTMLAppletElementObjectPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint DOMHTMLAppletElementObjectPropertyInfo = (~) T.Text type AttrBaseTypeConstraint DOMHTMLAppletElementObjectPropertyInfo = DOMHTMLAppletElementK - type AttrGetType DOMHTMLAppletElementObjectPropertyInfo = T.Text + type AttrGetType DOMHTMLAppletElementObjectPropertyInfo = (Maybe T.Text) type AttrLabel DOMHTMLAppletElementObjectPropertyInfo = "object" attrGet _ = getDOMHTMLAppletElementObject attrSet _ = setDOMHTMLAppletElementObject attrConstruct _ = constructDOMHTMLAppletElementObject + attrClear _ = undefined -- VVV Prop "vspace" - -- Type: TBasicType TInt64 + -- Type: TBasicType TLong -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) -getDOMHTMLAppletElementVspace :: (MonadIO m, DOMHTMLAppletElementK o) => o -> m Int64 -getDOMHTMLAppletElementVspace obj = liftIO $ getObjectPropertyInt64 obj "vspace" +getDOMHTMLAppletElementVspace :: (MonadIO m, DOMHTMLAppletElementK o) => o -> m CLong +getDOMHTMLAppletElementVspace obj = liftIO $ getObjectPropertyLong obj "vspace" -setDOMHTMLAppletElementVspace :: (MonadIO m, DOMHTMLAppletElementK o) => o -> Int64 -> m () -setDOMHTMLAppletElementVspace obj val = liftIO $ setObjectPropertyInt64 obj "vspace" val +setDOMHTMLAppletElementVspace :: (MonadIO m, DOMHTMLAppletElementK o) => o -> CLong -> m () +setDOMHTMLAppletElementVspace obj val = liftIO $ setObjectPropertyLong obj "vspace" val -constructDOMHTMLAppletElementVspace :: Int64 -> IO ([Char], GValue) -constructDOMHTMLAppletElementVspace val = constructObjectPropertyInt64 "vspace" val +constructDOMHTMLAppletElementVspace :: CLong -> IO ([Char], GValue) +constructDOMHTMLAppletElementVspace val = constructObjectPropertyLong "vspace" val data DOMHTMLAppletElementVspacePropertyInfo instance AttrInfo DOMHTMLAppletElementVspacePropertyInfo where type AttrAllowedOps DOMHTMLAppletElementVspacePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLAppletElementVspacePropertyInfo = (~) Int64 + type AttrSetTypeConstraint DOMHTMLAppletElementVspacePropertyInfo = (~) CLong type AttrBaseTypeConstraint DOMHTMLAppletElementVspacePropertyInfo = DOMHTMLAppletElementK - type AttrGetType DOMHTMLAppletElementVspacePropertyInfo = Int64 + type AttrGetType DOMHTMLAppletElementVspacePropertyInfo = CLong type AttrLabel DOMHTMLAppletElementVspacePropertyInfo = "vspace" attrGet _ = getDOMHTMLAppletElementVspace attrSet _ = setDOMHTMLAppletElementVspace attrConstruct _ = constructDOMHTMLAppletElementVspace + attrClear _ = undefined -- VVV Prop "width" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Just False) -getDOMHTMLAppletElementWidth :: (MonadIO m, DOMHTMLAppletElementK o) => o -> m T.Text +getDOMHTMLAppletElementWidth :: (MonadIO m, DOMHTMLAppletElementK o) => o -> m (Maybe T.Text) getDOMHTMLAppletElementWidth obj = liftIO $ getObjectPropertyString obj "width" setDOMHTMLAppletElementWidth :: (MonadIO m, DOMHTMLAppletElementK o) => o -> T.Text -> m () -setDOMHTMLAppletElementWidth obj val = liftIO $ setObjectPropertyString obj "width" val +setDOMHTMLAppletElementWidth obj val = liftIO $ setObjectPropertyString obj "width" (Just val) constructDOMHTMLAppletElementWidth :: T.Text -> IO ([Char], GValue) -constructDOMHTMLAppletElementWidth val = constructObjectPropertyString "width" val +constructDOMHTMLAppletElementWidth val = constructObjectPropertyString "width" (Just val) data DOMHTMLAppletElementWidthPropertyInfo instance AttrInfo DOMHTMLAppletElementWidthPropertyInfo where type AttrAllowedOps DOMHTMLAppletElementWidthPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint DOMHTMLAppletElementWidthPropertyInfo = (~) T.Text type AttrBaseTypeConstraint DOMHTMLAppletElementWidthPropertyInfo = DOMHTMLAppletElementK - type AttrGetType DOMHTMLAppletElementWidthPropertyInfo = T.Text + type AttrGetType DOMHTMLAppletElementWidthPropertyInfo = (Maybe T.Text) type AttrLabel DOMHTMLAppletElementWidthPropertyInfo = "width" attrGet _ = getDOMHTMLAppletElementWidth attrSet _ = setDOMHTMLAppletElementWidth attrConstruct _ = constructDOMHTMLAppletElementWidth + attrClear _ = undefined type instance AttributeList DOMHTMLAppletElement = DOMHTMLAppletElementAttributeList type DOMHTMLAppletElementAttributeList = ('[ '("accessKey", DOMHTMLElementAccessKeyPropertyInfo), '("align", DOMHTMLAppletElementAlignPropertyInfo), '("alt", DOMHTMLAppletElementAltPropertyInfo), '("archive", DOMHTMLAppletElementArchivePropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("baseUri", DOMNodeBaseUriPropertyInfo), '("childElementCount", DOMElementChildElementCountPropertyInfo), '("childNodes", DOMNodeChildNodesPropertyInfo), '("children", DOMHTMLElementChildrenPropertyInfo), '("classList", DOMElementClassListPropertyInfo), '("className", DOMElementClassNamePropertyInfo), '("clientHeight", DOMElementClientHeightPropertyInfo), '("clientLeft", DOMElementClientLeftPropertyInfo), '("clientTop", DOMElementClientTopPropertyInfo), '("clientWidth", DOMElementClientWidthPropertyInfo), '("code", DOMHTMLAppletElementCodePropertyInfo), '("codeBase", DOMHTMLAppletElementCodeBasePropertyInfo), '("contentEditable", DOMHTMLElementContentEditablePropertyInfo), '("coreObject", DOMObjectCoreObjectPropertyInfo), '("dir", DOMHTMLElementDirPropertyInfo), '("draggable", DOMHTMLElementDraggablePropertyInfo), '("firstChild", DOMNodeFirstChildPropertyInfo), '("firstElementChild", DOMElementFirstElementChildPropertyInfo), '("height", DOMHTMLAppletElementHeightPropertyInfo), '("hidden", DOMHTMLElementHiddenPropertyInfo), '("hspace", DOMHTMLAppletElementHspacePropertyInfo), '("id", DOMElementIdPropertyInfo), '("innerHtml", DOMHTMLElementInnerHtmlPropertyInfo), '("innerText", DOMHTMLElementInnerTextPropertyInfo), '("isContentEditable", DOMHTMLElementIsContentEditablePropertyInfo), '("lang", DOMHTMLElementLangPropertyInfo), '("lastChild", DOMNodeLastChildPropertyInfo), '("lastElementChild", DOMElementLastElementChildPropertyInfo), '("localName", DOMNodeLocalNamePropertyInfo), '("name", DOMHTMLAppletElementNamePropertyInfo), '("namespaceUri", DOMNodeNamespaceUriPropertyInfo), '("nextElementSibling", DOMElementNextElementSiblingPropertyInfo), '("nextSibling", DOMNodeNextSiblingPropertyInfo), '("nodeName", DOMNodeNodeNamePropertyInfo), '("nodeType", DOMNodeNodeTypePropertyInfo), '("nodeValue", DOMNodeNodeValuePropertyInfo), '("object", DOMHTMLAppletElementObjectPropertyInfo), '("offsetHeight", DOMElementOffsetHeightPropertyInfo), '("offsetLeft", DOMElementOffsetLeftPropertyInfo), '("offsetParent", DOMElementOffsetParentPropertyInfo), '("offsetTop", DOMElementOffsetTopPropertyInfo), '("offsetWidth", DOMElementOffsetWidthPropertyInfo), '("outerHtml", DOMHTMLElementOuterHtmlPropertyInfo), '("outerText", DOMHTMLElementOuterTextPropertyInfo), '("ownerDocument", DOMNodeOwnerDocumentPropertyInfo), '("parentElement", DOMNodeParentElementPropertyInfo), '("parentNode", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previousElementSibling", DOMElementPreviousElementSiblingPropertyInfo), '("previousSibling", DOMNodePreviousSiblingPropertyInfo), '("scrollHeight", DOMElementScrollHeightPropertyInfo), '("scrollLeft", DOMElementScrollLeftPropertyInfo), '("scrollTop", DOMElementScrollTopPropertyInfo), '("scrollWidth", DOMElementScrollWidthPropertyInfo), '("spellcheck", DOMHTMLElementSpellcheckPropertyInfo), '("style", DOMElementStylePropertyInfo), '("tabIndex", DOMHTMLElementTabIndexPropertyInfo), '("tagName", DOMElementTagNamePropertyInfo), '("textContent", DOMNodeTextContentPropertyInfo), '("title", DOMHTMLElementTitlePropertyInfo), '("translate", DOMHTMLElementTranslatePropertyInfo), '("vspace", DOMHTMLAppletElementVspacePropertyInfo), '("webkitRegionOverset", DOMElementWebkitRegionOversetPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo), '("width", DOMHTMLAppletElementWidthPropertyInfo)] :: [(Symbol, *)]) +dOMHTMLAppletElementAlign :: AttrLabelProxy "align" +dOMHTMLAppletElementAlign = AttrLabelProxy + +dOMHTMLAppletElementAlt :: AttrLabelProxy "alt" +dOMHTMLAppletElementAlt = AttrLabelProxy + +dOMHTMLAppletElementArchive :: AttrLabelProxy "archive" +dOMHTMLAppletElementArchive = AttrLabelProxy + +dOMHTMLAppletElementCode :: AttrLabelProxy "code" +dOMHTMLAppletElementCode = AttrLabelProxy + +dOMHTMLAppletElementCodeBase :: AttrLabelProxy "codeBase" +dOMHTMLAppletElementCodeBase = AttrLabelProxy + +dOMHTMLAppletElementHeight :: AttrLabelProxy "height" +dOMHTMLAppletElementHeight = AttrLabelProxy + +dOMHTMLAppletElementHspace :: AttrLabelProxy "hspace" +dOMHTMLAppletElementHspace = AttrLabelProxy + +dOMHTMLAppletElementName :: AttrLabelProxy "name" +dOMHTMLAppletElementName = AttrLabelProxy + +dOMHTMLAppletElementObject :: AttrLabelProxy "object" +dOMHTMLAppletElementObject = AttrLabelProxy + +dOMHTMLAppletElementVspace :: AttrLabelProxy "vspace" +dOMHTMLAppletElementVspace = AttrLabelProxy + +dOMHTMLAppletElementWidth :: AttrLabelProxy "width" +dOMHTMLAppletElementWidth = AttrLabelProxy + type instance SignalList DOMHTMLAppletElement = DOMHTMLAppletElementSignalList type DOMHTMLAppletElementSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) @@ -704,7 +770,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLAppletElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -734,7 +800,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLAppletElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -764,7 +830,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLAppletElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -794,7 +860,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLAppletElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -824,7 +890,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLAppletElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -854,7 +920,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLAppletElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -884,19 +950,19 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLAppletElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TInt64 +-- returnType : Just (TBasicType TLong) -- throws : False -- Skip return : False foreign import ccall "webkit_dom_html_applet_element_get_hspace" webkit_dom_html_applet_element_get_hspace :: Ptr DOMHTMLAppletElement -> -- _obj : TInterface "WebKit" "DOMHTMLAppletElement" - IO Int64 + IO CLong dOMHTMLAppletElementGetHspace :: (MonadIO m, DOMHTMLAppletElementK a) => a -- _obj - -> m Int64 -- result + -> m CLong -- result dOMHTMLAppletElementGetHspace _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- webkit_dom_html_applet_element_get_hspace _obj' @@ -904,14 +970,14 @@ return result data DOMHTMLAppletElementGetHspaceMethodInfo -instance (signature ~ (m Int64), MonadIO m, DOMHTMLAppletElementK a) => MethodInfo DOMHTMLAppletElementGetHspaceMethodInfo a signature where +instance (signature ~ (m CLong), MonadIO m, DOMHTMLAppletElementK a) => MethodInfo DOMHTMLAppletElementGetHspaceMethodInfo a signature where overloadedMethod _ = dOMHTMLAppletElementGetHspace -- method DOMHTMLAppletElement::get_name -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLAppletElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -941,7 +1007,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLAppletElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -971,19 +1037,19 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLAppletElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TInt64 +-- returnType : Just (TBasicType TLong) -- throws : False -- Skip return : False foreign import ccall "webkit_dom_html_applet_element_get_vspace" webkit_dom_html_applet_element_get_vspace :: Ptr DOMHTMLAppletElement -> -- _obj : TInterface "WebKit" "DOMHTMLAppletElement" - IO Int64 + IO CLong dOMHTMLAppletElementGetVspace :: (MonadIO m, DOMHTMLAppletElementK a) => a -- _obj - -> m Int64 -- result + -> m CLong -- result dOMHTMLAppletElementGetVspace _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- webkit_dom_html_applet_element_get_vspace _obj' @@ -991,14 +1057,14 @@ return result data DOMHTMLAppletElementGetVspaceMethodInfo -instance (signature ~ (m Int64), MonadIO m, DOMHTMLAppletElementK a) => MethodInfo DOMHTMLAppletElementGetVspaceMethodInfo a signature where +instance (signature ~ (m CLong), MonadIO m, DOMHTMLAppletElementK a) => MethodInfo DOMHTMLAppletElementGetVspaceMethodInfo a signature where overloadedMethod _ = dOMHTMLAppletElementGetVspace -- method DOMHTMLAppletElement::get_width -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLAppletElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -1028,7 +1094,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLAppletElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1059,7 +1125,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLAppletElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1090,7 +1156,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLAppletElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1121,7 +1187,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLAppletElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1152,7 +1218,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLAppletElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1183,7 +1249,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLAppletElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1212,22 +1278,22 @@ -- method DOMHTMLAppletElement::set_hspace -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLAppletElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLAppletElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TLong, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "webkit_dom_html_applet_element_set_hspace" webkit_dom_html_applet_element_set_hspace :: Ptr DOMHTMLAppletElement -> -- _obj : TInterface "WebKit" "DOMHTMLAppletElement" - Int64 -> -- value : TBasicType TInt64 + CLong -> -- value : TBasicType TLong IO () dOMHTMLAppletElementSetHspace :: (MonadIO m, DOMHTMLAppletElementK a) => a -- _obj - -> Int64 -- value + -> CLong -- value -> m () -- result dOMHTMLAppletElementSetHspace _obj value = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj @@ -1236,14 +1302,14 @@ return () data DOMHTMLAppletElementSetHspaceMethodInfo -instance (signature ~ (Int64 -> m ()), MonadIO m, DOMHTMLAppletElementK a) => MethodInfo DOMHTMLAppletElementSetHspaceMethodInfo a signature where +instance (signature ~ (CLong -> m ()), MonadIO m, DOMHTMLAppletElementK a) => MethodInfo DOMHTMLAppletElementSetHspaceMethodInfo a signature where overloadedMethod _ = dOMHTMLAppletElementSetHspace -- method DOMHTMLAppletElement::set_name -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLAppletElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1274,7 +1340,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLAppletElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1303,22 +1369,22 @@ -- method DOMHTMLAppletElement::set_vspace -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLAppletElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLAppletElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TLong, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "webkit_dom_html_applet_element_set_vspace" webkit_dom_html_applet_element_set_vspace :: Ptr DOMHTMLAppletElement -> -- _obj : TInterface "WebKit" "DOMHTMLAppletElement" - Int64 -> -- value : TBasicType TInt64 + CLong -> -- value : TBasicType TLong IO () dOMHTMLAppletElementSetVspace :: (MonadIO m, DOMHTMLAppletElementK a) => a -- _obj - -> Int64 -- value + -> CLong -- value -> m () -- result dOMHTMLAppletElementSetVspace _obj value = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj @@ -1327,14 +1393,14 @@ return () data DOMHTMLAppletElementSetVspaceMethodInfo -instance (signature ~ (Int64 -> m ()), MonadIO m, DOMHTMLAppletElementK a) => MethodInfo DOMHTMLAppletElementSetVspaceMethodInfo a signature where +instance (signature ~ (CLong -> m ()), MonadIO m, DOMHTMLAppletElementK a) => MethodInfo DOMHTMLAppletElementSetVspaceMethodInfo a signature where overloadedMethod _ = dOMHTMLAppletElementSetVspace -- method DOMHTMLAppletElement::set_width -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLAppletElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False diff --git a/GI/WebKit/Objects/DOMHTMLAppletElement.hs-boot b/GI/WebKit/Objects/DOMHTMLAppletElement.hs-boot --- a/GI/WebKit/Objects/DOMHTMLAppletElement.hs-boot +++ b/GI/WebKit/Objects/DOMHTMLAppletElement.hs-boot @@ -1,8 +1,8 @@ module GI.WebKit.Objects.DOMHTMLAppletElement where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map diff --git a/GI/WebKit/Objects/DOMHTMLAreaElement.hs b/GI/WebKit/Objects/DOMHTMLAreaElement.hs --- a/GI/WebKit/Objects/DOMHTMLAreaElement.hs +++ b/GI/WebKit/Objects/DOMHTMLAreaElement.hs @@ -128,6 +128,7 @@ -- ** Alt DOMHTMLAreaElementAltPropertyInfo , constructDOMHTMLAreaElementAlt , + dOMHTMLAreaElementAlt , getDOMHTMLAreaElementAlt , setDOMHTMLAreaElementAlt , @@ -135,28 +136,33 @@ -- ** Coords DOMHTMLAreaElementCoordsPropertyInfo , constructDOMHTMLAreaElementCoords , + dOMHTMLAreaElementCoords , getDOMHTMLAreaElementCoords , setDOMHTMLAreaElementCoords , -- ** Hash DOMHTMLAreaElementHashPropertyInfo , + dOMHTMLAreaElementHash , getDOMHTMLAreaElementHash , -- ** Host DOMHTMLAreaElementHostPropertyInfo , + dOMHTMLAreaElementHost , getDOMHTMLAreaElementHost , -- ** Hostname DOMHTMLAreaElementHostnamePropertyInfo , + dOMHTMLAreaElementHostname , getDOMHTMLAreaElementHostname , -- ** Href DOMHTMLAreaElementHrefPropertyInfo , constructDOMHTMLAreaElementHref , + dOMHTMLAreaElementHref , getDOMHTMLAreaElementHref , setDOMHTMLAreaElementHref , @@ -164,40 +170,47 @@ -- ** NoHref DOMHTMLAreaElementNoHrefPropertyInfo , constructDOMHTMLAreaElementNoHref , + dOMHTMLAreaElementNoHref , getDOMHTMLAreaElementNoHref , setDOMHTMLAreaElementNoHref , -- ** Pathname DOMHTMLAreaElementPathnamePropertyInfo , + dOMHTMLAreaElementPathname , getDOMHTMLAreaElementPathname , -- ** Ping DOMHTMLAreaElementPingPropertyInfo , constructDOMHTMLAreaElementPing , + dOMHTMLAreaElementPing , getDOMHTMLAreaElementPing , setDOMHTMLAreaElementPing , -- ** Port DOMHTMLAreaElementPortPropertyInfo , + dOMHTMLAreaElementPort , getDOMHTMLAreaElementPort , -- ** Protocol DOMHTMLAreaElementProtocolPropertyInfo , + dOMHTMLAreaElementProtocol , getDOMHTMLAreaElementProtocol , -- ** Search DOMHTMLAreaElementSearchPropertyInfo , + dOMHTMLAreaElementSearch , getDOMHTMLAreaElementSearch , -- ** Shape DOMHTMLAreaElementShapePropertyInfo , constructDOMHTMLAreaElementShape , + dOMHTMLAreaElementShape , getDOMHTMLAreaElementShape , setDOMHTMLAreaElementShape , @@ -205,6 +218,7 @@ -- ** Target DOMHTMLAreaElementTargetPropertyInfo , constructDOMHTMLAreaElementTarget , + dOMHTMLAreaElementTarget , getDOMHTMLAreaElementTarget , setDOMHTMLAreaElementTarget , @@ -213,9 +227,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map @@ -434,132 +448,145 @@ -- VVV Prop "alt" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Just False) -getDOMHTMLAreaElementAlt :: (MonadIO m, DOMHTMLAreaElementK o) => o -> m T.Text +getDOMHTMLAreaElementAlt :: (MonadIO m, DOMHTMLAreaElementK o) => o -> m (Maybe T.Text) getDOMHTMLAreaElementAlt obj = liftIO $ getObjectPropertyString obj "alt" setDOMHTMLAreaElementAlt :: (MonadIO m, DOMHTMLAreaElementK o) => o -> T.Text -> m () -setDOMHTMLAreaElementAlt obj val = liftIO $ setObjectPropertyString obj "alt" val +setDOMHTMLAreaElementAlt obj val = liftIO $ setObjectPropertyString obj "alt" (Just val) constructDOMHTMLAreaElementAlt :: T.Text -> IO ([Char], GValue) -constructDOMHTMLAreaElementAlt val = constructObjectPropertyString "alt" val +constructDOMHTMLAreaElementAlt val = constructObjectPropertyString "alt" (Just val) data DOMHTMLAreaElementAltPropertyInfo instance AttrInfo DOMHTMLAreaElementAltPropertyInfo where type AttrAllowedOps DOMHTMLAreaElementAltPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint DOMHTMLAreaElementAltPropertyInfo = (~) T.Text type AttrBaseTypeConstraint DOMHTMLAreaElementAltPropertyInfo = DOMHTMLAreaElementK - type AttrGetType DOMHTMLAreaElementAltPropertyInfo = T.Text + type AttrGetType DOMHTMLAreaElementAltPropertyInfo = (Maybe T.Text) type AttrLabel DOMHTMLAreaElementAltPropertyInfo = "alt" attrGet _ = getDOMHTMLAreaElementAlt attrSet _ = setDOMHTMLAreaElementAlt attrConstruct _ = constructDOMHTMLAreaElementAlt + attrClear _ = undefined -- VVV Prop "coords" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Just False) -getDOMHTMLAreaElementCoords :: (MonadIO m, DOMHTMLAreaElementK o) => o -> m T.Text +getDOMHTMLAreaElementCoords :: (MonadIO m, DOMHTMLAreaElementK o) => o -> m (Maybe T.Text) getDOMHTMLAreaElementCoords obj = liftIO $ getObjectPropertyString obj "coords" setDOMHTMLAreaElementCoords :: (MonadIO m, DOMHTMLAreaElementK o) => o -> T.Text -> m () -setDOMHTMLAreaElementCoords obj val = liftIO $ setObjectPropertyString obj "coords" val +setDOMHTMLAreaElementCoords obj val = liftIO $ setObjectPropertyString obj "coords" (Just val) constructDOMHTMLAreaElementCoords :: T.Text -> IO ([Char], GValue) -constructDOMHTMLAreaElementCoords val = constructObjectPropertyString "coords" val +constructDOMHTMLAreaElementCoords val = constructObjectPropertyString "coords" (Just val) data DOMHTMLAreaElementCoordsPropertyInfo instance AttrInfo DOMHTMLAreaElementCoordsPropertyInfo where type AttrAllowedOps DOMHTMLAreaElementCoordsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint DOMHTMLAreaElementCoordsPropertyInfo = (~) T.Text type AttrBaseTypeConstraint DOMHTMLAreaElementCoordsPropertyInfo = DOMHTMLAreaElementK - type AttrGetType DOMHTMLAreaElementCoordsPropertyInfo = T.Text + type AttrGetType DOMHTMLAreaElementCoordsPropertyInfo = (Maybe T.Text) type AttrLabel DOMHTMLAreaElementCoordsPropertyInfo = "coords" attrGet _ = getDOMHTMLAreaElementCoords attrSet _ = setDOMHTMLAreaElementCoords attrConstruct _ = constructDOMHTMLAreaElementCoords + attrClear _ = undefined -- VVV Prop "hash" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable] + -- Nullable: (Nothing,Nothing) -getDOMHTMLAreaElementHash :: (MonadIO m, DOMHTMLAreaElementK o) => o -> m T.Text +getDOMHTMLAreaElementHash :: (MonadIO m, DOMHTMLAreaElementK o) => o -> m (Maybe T.Text) getDOMHTMLAreaElementHash obj = liftIO $ getObjectPropertyString obj "hash" data DOMHTMLAreaElementHashPropertyInfo instance AttrInfo DOMHTMLAreaElementHashPropertyInfo where - type AttrAllowedOps DOMHTMLAreaElementHashPropertyInfo = '[ 'AttrGet] + type AttrAllowedOps DOMHTMLAreaElementHashPropertyInfo = '[ 'AttrGet, 'AttrClear] type AttrSetTypeConstraint DOMHTMLAreaElementHashPropertyInfo = (~) () type AttrBaseTypeConstraint DOMHTMLAreaElementHashPropertyInfo = DOMHTMLAreaElementK - type AttrGetType DOMHTMLAreaElementHashPropertyInfo = T.Text + type AttrGetType DOMHTMLAreaElementHashPropertyInfo = (Maybe T.Text) type AttrLabel DOMHTMLAreaElementHashPropertyInfo = "hash" attrGet _ = getDOMHTMLAreaElementHash attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "host" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable] + -- Nullable: (Nothing,Nothing) -getDOMHTMLAreaElementHost :: (MonadIO m, DOMHTMLAreaElementK o) => o -> m T.Text +getDOMHTMLAreaElementHost :: (MonadIO m, DOMHTMLAreaElementK o) => o -> m (Maybe T.Text) getDOMHTMLAreaElementHost obj = liftIO $ getObjectPropertyString obj "host" data DOMHTMLAreaElementHostPropertyInfo instance AttrInfo DOMHTMLAreaElementHostPropertyInfo where - type AttrAllowedOps DOMHTMLAreaElementHostPropertyInfo = '[ 'AttrGet] + type AttrAllowedOps DOMHTMLAreaElementHostPropertyInfo = '[ 'AttrGet, 'AttrClear] type AttrSetTypeConstraint DOMHTMLAreaElementHostPropertyInfo = (~) () type AttrBaseTypeConstraint DOMHTMLAreaElementHostPropertyInfo = DOMHTMLAreaElementK - type AttrGetType DOMHTMLAreaElementHostPropertyInfo = T.Text + type AttrGetType DOMHTMLAreaElementHostPropertyInfo = (Maybe T.Text) type AttrLabel DOMHTMLAreaElementHostPropertyInfo = "host" attrGet _ = getDOMHTMLAreaElementHost attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "hostname" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable] + -- Nullable: (Nothing,Nothing) -getDOMHTMLAreaElementHostname :: (MonadIO m, DOMHTMLAreaElementK o) => o -> m T.Text +getDOMHTMLAreaElementHostname :: (MonadIO m, DOMHTMLAreaElementK o) => o -> m (Maybe T.Text) getDOMHTMLAreaElementHostname obj = liftIO $ getObjectPropertyString obj "hostname" data DOMHTMLAreaElementHostnamePropertyInfo instance AttrInfo DOMHTMLAreaElementHostnamePropertyInfo where - type AttrAllowedOps DOMHTMLAreaElementHostnamePropertyInfo = '[ 'AttrGet] + type AttrAllowedOps DOMHTMLAreaElementHostnamePropertyInfo = '[ 'AttrGet, 'AttrClear] type AttrSetTypeConstraint DOMHTMLAreaElementHostnamePropertyInfo = (~) () type AttrBaseTypeConstraint DOMHTMLAreaElementHostnamePropertyInfo = DOMHTMLAreaElementK - type AttrGetType DOMHTMLAreaElementHostnamePropertyInfo = T.Text + type AttrGetType DOMHTMLAreaElementHostnamePropertyInfo = (Maybe T.Text) type AttrLabel DOMHTMLAreaElementHostnamePropertyInfo = "hostname" attrGet _ = getDOMHTMLAreaElementHostname attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "href" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Just False) -getDOMHTMLAreaElementHref :: (MonadIO m, DOMHTMLAreaElementK o) => o -> m T.Text +getDOMHTMLAreaElementHref :: (MonadIO m, DOMHTMLAreaElementK o) => o -> m (Maybe T.Text) getDOMHTMLAreaElementHref obj = liftIO $ getObjectPropertyString obj "href" setDOMHTMLAreaElementHref :: (MonadIO m, DOMHTMLAreaElementK o) => o -> T.Text -> m () -setDOMHTMLAreaElementHref obj val = liftIO $ setObjectPropertyString obj "href" val +setDOMHTMLAreaElementHref obj val = liftIO $ setObjectPropertyString obj "href" (Just val) constructDOMHTMLAreaElementHref :: T.Text -> IO ([Char], GValue) -constructDOMHTMLAreaElementHref val = constructObjectPropertyString "href" val +constructDOMHTMLAreaElementHref val = constructObjectPropertyString "href" (Just val) data DOMHTMLAreaElementHrefPropertyInfo instance AttrInfo DOMHTMLAreaElementHrefPropertyInfo where type AttrAllowedOps DOMHTMLAreaElementHrefPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint DOMHTMLAreaElementHrefPropertyInfo = (~) T.Text type AttrBaseTypeConstraint DOMHTMLAreaElementHrefPropertyInfo = DOMHTMLAreaElementK - type AttrGetType DOMHTMLAreaElementHrefPropertyInfo = T.Text + type AttrGetType DOMHTMLAreaElementHrefPropertyInfo = (Maybe T.Text) type AttrLabel DOMHTMLAreaElementHrefPropertyInfo = "href" attrGet _ = getDOMHTMLAreaElementHref attrSet _ = setDOMHTMLAreaElementHref attrConstruct _ = constructDOMHTMLAreaElementHref + attrClear _ = undefined -- VVV Prop "no-href" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getDOMHTMLAreaElementNoHref :: (MonadIO m, DOMHTMLAreaElementK o) => o -> m Bool getDOMHTMLAreaElementNoHref obj = liftIO $ getObjectPropertyBool obj "no-href" @@ -580,154 +607,211 @@ attrGet _ = getDOMHTMLAreaElementNoHref attrSet _ = setDOMHTMLAreaElementNoHref attrConstruct _ = constructDOMHTMLAreaElementNoHref + attrClear _ = undefined -- VVV Prop "pathname" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable] + -- Nullable: (Nothing,Nothing) -getDOMHTMLAreaElementPathname :: (MonadIO m, DOMHTMLAreaElementK o) => o -> m T.Text +getDOMHTMLAreaElementPathname :: (MonadIO m, DOMHTMLAreaElementK o) => o -> m (Maybe T.Text) getDOMHTMLAreaElementPathname obj = liftIO $ getObjectPropertyString obj "pathname" data DOMHTMLAreaElementPathnamePropertyInfo instance AttrInfo DOMHTMLAreaElementPathnamePropertyInfo where - type AttrAllowedOps DOMHTMLAreaElementPathnamePropertyInfo = '[ 'AttrGet] + type AttrAllowedOps DOMHTMLAreaElementPathnamePropertyInfo = '[ 'AttrGet, 'AttrClear] type AttrSetTypeConstraint DOMHTMLAreaElementPathnamePropertyInfo = (~) () type AttrBaseTypeConstraint DOMHTMLAreaElementPathnamePropertyInfo = DOMHTMLAreaElementK - type AttrGetType DOMHTMLAreaElementPathnamePropertyInfo = T.Text + type AttrGetType DOMHTMLAreaElementPathnamePropertyInfo = (Maybe T.Text) type AttrLabel DOMHTMLAreaElementPathnamePropertyInfo = "pathname" attrGet _ = getDOMHTMLAreaElementPathname attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "ping" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Just False) -getDOMHTMLAreaElementPing :: (MonadIO m, DOMHTMLAreaElementK o) => o -> m T.Text +getDOMHTMLAreaElementPing :: (MonadIO m, DOMHTMLAreaElementK o) => o -> m (Maybe T.Text) getDOMHTMLAreaElementPing obj = liftIO $ getObjectPropertyString obj "ping" setDOMHTMLAreaElementPing :: (MonadIO m, DOMHTMLAreaElementK o) => o -> T.Text -> m () -setDOMHTMLAreaElementPing obj val = liftIO $ setObjectPropertyString obj "ping" val +setDOMHTMLAreaElementPing obj val = liftIO $ setObjectPropertyString obj "ping" (Just val) constructDOMHTMLAreaElementPing :: T.Text -> IO ([Char], GValue) -constructDOMHTMLAreaElementPing val = constructObjectPropertyString "ping" val +constructDOMHTMLAreaElementPing val = constructObjectPropertyString "ping" (Just val) data DOMHTMLAreaElementPingPropertyInfo instance AttrInfo DOMHTMLAreaElementPingPropertyInfo where type AttrAllowedOps DOMHTMLAreaElementPingPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint DOMHTMLAreaElementPingPropertyInfo = (~) T.Text type AttrBaseTypeConstraint DOMHTMLAreaElementPingPropertyInfo = DOMHTMLAreaElementK - type AttrGetType DOMHTMLAreaElementPingPropertyInfo = T.Text + type AttrGetType DOMHTMLAreaElementPingPropertyInfo = (Maybe T.Text) type AttrLabel DOMHTMLAreaElementPingPropertyInfo = "ping" attrGet _ = getDOMHTMLAreaElementPing attrSet _ = setDOMHTMLAreaElementPing attrConstruct _ = constructDOMHTMLAreaElementPing + attrClear _ = undefined -- VVV Prop "port" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable] + -- Nullable: (Nothing,Nothing) -getDOMHTMLAreaElementPort :: (MonadIO m, DOMHTMLAreaElementK o) => o -> m T.Text +getDOMHTMLAreaElementPort :: (MonadIO m, DOMHTMLAreaElementK o) => o -> m (Maybe T.Text) getDOMHTMLAreaElementPort obj = liftIO $ getObjectPropertyString obj "port" data DOMHTMLAreaElementPortPropertyInfo instance AttrInfo DOMHTMLAreaElementPortPropertyInfo where - type AttrAllowedOps DOMHTMLAreaElementPortPropertyInfo = '[ 'AttrGet] + type AttrAllowedOps DOMHTMLAreaElementPortPropertyInfo = '[ 'AttrGet, 'AttrClear] type AttrSetTypeConstraint DOMHTMLAreaElementPortPropertyInfo = (~) () type AttrBaseTypeConstraint DOMHTMLAreaElementPortPropertyInfo = DOMHTMLAreaElementK - type AttrGetType DOMHTMLAreaElementPortPropertyInfo = T.Text + type AttrGetType DOMHTMLAreaElementPortPropertyInfo = (Maybe T.Text) type AttrLabel DOMHTMLAreaElementPortPropertyInfo = "port" attrGet _ = getDOMHTMLAreaElementPort attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "protocol" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable] + -- Nullable: (Nothing,Nothing) -getDOMHTMLAreaElementProtocol :: (MonadIO m, DOMHTMLAreaElementK o) => o -> m T.Text +getDOMHTMLAreaElementProtocol :: (MonadIO m, DOMHTMLAreaElementK o) => o -> m (Maybe T.Text) getDOMHTMLAreaElementProtocol obj = liftIO $ getObjectPropertyString obj "protocol" data DOMHTMLAreaElementProtocolPropertyInfo instance AttrInfo DOMHTMLAreaElementProtocolPropertyInfo where - type AttrAllowedOps DOMHTMLAreaElementProtocolPropertyInfo = '[ 'AttrGet] + type AttrAllowedOps DOMHTMLAreaElementProtocolPropertyInfo = '[ 'AttrGet, 'AttrClear] type AttrSetTypeConstraint DOMHTMLAreaElementProtocolPropertyInfo = (~) () type AttrBaseTypeConstraint DOMHTMLAreaElementProtocolPropertyInfo = DOMHTMLAreaElementK - type AttrGetType DOMHTMLAreaElementProtocolPropertyInfo = T.Text + type AttrGetType DOMHTMLAreaElementProtocolPropertyInfo = (Maybe T.Text) type AttrLabel DOMHTMLAreaElementProtocolPropertyInfo = "protocol" attrGet _ = getDOMHTMLAreaElementProtocol attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "search" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable] + -- Nullable: (Nothing,Nothing) -getDOMHTMLAreaElementSearch :: (MonadIO m, DOMHTMLAreaElementK o) => o -> m T.Text +getDOMHTMLAreaElementSearch :: (MonadIO m, DOMHTMLAreaElementK o) => o -> m (Maybe T.Text) getDOMHTMLAreaElementSearch obj = liftIO $ getObjectPropertyString obj "search" data DOMHTMLAreaElementSearchPropertyInfo instance AttrInfo DOMHTMLAreaElementSearchPropertyInfo where - type AttrAllowedOps DOMHTMLAreaElementSearchPropertyInfo = '[ 'AttrGet] + type AttrAllowedOps DOMHTMLAreaElementSearchPropertyInfo = '[ 'AttrGet, 'AttrClear] type AttrSetTypeConstraint DOMHTMLAreaElementSearchPropertyInfo = (~) () type AttrBaseTypeConstraint DOMHTMLAreaElementSearchPropertyInfo = DOMHTMLAreaElementK - type AttrGetType DOMHTMLAreaElementSearchPropertyInfo = T.Text + type AttrGetType DOMHTMLAreaElementSearchPropertyInfo = (Maybe T.Text) type AttrLabel DOMHTMLAreaElementSearchPropertyInfo = "search" attrGet _ = getDOMHTMLAreaElementSearch attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "shape" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Just False) -getDOMHTMLAreaElementShape :: (MonadIO m, DOMHTMLAreaElementK o) => o -> m T.Text +getDOMHTMLAreaElementShape :: (MonadIO m, DOMHTMLAreaElementK o) => o -> m (Maybe T.Text) getDOMHTMLAreaElementShape obj = liftIO $ getObjectPropertyString obj "shape" setDOMHTMLAreaElementShape :: (MonadIO m, DOMHTMLAreaElementK o) => o -> T.Text -> m () -setDOMHTMLAreaElementShape obj val = liftIO $ setObjectPropertyString obj "shape" val +setDOMHTMLAreaElementShape obj val = liftIO $ setObjectPropertyString obj "shape" (Just val) constructDOMHTMLAreaElementShape :: T.Text -> IO ([Char], GValue) -constructDOMHTMLAreaElementShape val = constructObjectPropertyString "shape" val +constructDOMHTMLAreaElementShape val = constructObjectPropertyString "shape" (Just val) data DOMHTMLAreaElementShapePropertyInfo instance AttrInfo DOMHTMLAreaElementShapePropertyInfo where type AttrAllowedOps DOMHTMLAreaElementShapePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint DOMHTMLAreaElementShapePropertyInfo = (~) T.Text type AttrBaseTypeConstraint DOMHTMLAreaElementShapePropertyInfo = DOMHTMLAreaElementK - type AttrGetType DOMHTMLAreaElementShapePropertyInfo = T.Text + type AttrGetType DOMHTMLAreaElementShapePropertyInfo = (Maybe T.Text) type AttrLabel DOMHTMLAreaElementShapePropertyInfo = "shape" attrGet _ = getDOMHTMLAreaElementShape attrSet _ = setDOMHTMLAreaElementShape attrConstruct _ = constructDOMHTMLAreaElementShape + attrClear _ = undefined -- VVV Prop "target" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Just False) -getDOMHTMLAreaElementTarget :: (MonadIO m, DOMHTMLAreaElementK o) => o -> m T.Text +getDOMHTMLAreaElementTarget :: (MonadIO m, DOMHTMLAreaElementK o) => o -> m (Maybe T.Text) getDOMHTMLAreaElementTarget obj = liftIO $ getObjectPropertyString obj "target" setDOMHTMLAreaElementTarget :: (MonadIO m, DOMHTMLAreaElementK o) => o -> T.Text -> m () -setDOMHTMLAreaElementTarget obj val = liftIO $ setObjectPropertyString obj "target" val +setDOMHTMLAreaElementTarget obj val = liftIO $ setObjectPropertyString obj "target" (Just val) constructDOMHTMLAreaElementTarget :: T.Text -> IO ([Char], GValue) -constructDOMHTMLAreaElementTarget val = constructObjectPropertyString "target" val +constructDOMHTMLAreaElementTarget val = constructObjectPropertyString "target" (Just val) data DOMHTMLAreaElementTargetPropertyInfo instance AttrInfo DOMHTMLAreaElementTargetPropertyInfo where type AttrAllowedOps DOMHTMLAreaElementTargetPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint DOMHTMLAreaElementTargetPropertyInfo = (~) T.Text type AttrBaseTypeConstraint DOMHTMLAreaElementTargetPropertyInfo = DOMHTMLAreaElementK - type AttrGetType DOMHTMLAreaElementTargetPropertyInfo = T.Text + type AttrGetType DOMHTMLAreaElementTargetPropertyInfo = (Maybe T.Text) type AttrLabel DOMHTMLAreaElementTargetPropertyInfo = "target" attrGet _ = getDOMHTMLAreaElementTarget attrSet _ = setDOMHTMLAreaElementTarget attrConstruct _ = constructDOMHTMLAreaElementTarget + attrClear _ = undefined type instance AttributeList DOMHTMLAreaElement = DOMHTMLAreaElementAttributeList type DOMHTMLAreaElementAttributeList = ('[ '("accessKey", DOMHTMLElementAccessKeyPropertyInfo), '("alt", DOMHTMLAreaElementAltPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("baseUri", DOMNodeBaseUriPropertyInfo), '("childElementCount", DOMElementChildElementCountPropertyInfo), '("childNodes", DOMNodeChildNodesPropertyInfo), '("children", DOMHTMLElementChildrenPropertyInfo), '("classList", DOMElementClassListPropertyInfo), '("className", DOMElementClassNamePropertyInfo), '("clientHeight", DOMElementClientHeightPropertyInfo), '("clientLeft", DOMElementClientLeftPropertyInfo), '("clientTop", DOMElementClientTopPropertyInfo), '("clientWidth", DOMElementClientWidthPropertyInfo), '("contentEditable", DOMHTMLElementContentEditablePropertyInfo), '("coords", DOMHTMLAreaElementCoordsPropertyInfo), '("coreObject", DOMObjectCoreObjectPropertyInfo), '("dir", DOMHTMLElementDirPropertyInfo), '("draggable", DOMHTMLElementDraggablePropertyInfo), '("firstChild", DOMNodeFirstChildPropertyInfo), '("firstElementChild", DOMElementFirstElementChildPropertyInfo), '("hash", DOMHTMLAreaElementHashPropertyInfo), '("hidden", DOMHTMLElementHiddenPropertyInfo), '("host", DOMHTMLAreaElementHostPropertyInfo), '("hostname", DOMHTMLAreaElementHostnamePropertyInfo), '("href", DOMHTMLAreaElementHrefPropertyInfo), '("id", DOMElementIdPropertyInfo), '("innerHtml", DOMHTMLElementInnerHtmlPropertyInfo), '("innerText", DOMHTMLElementInnerTextPropertyInfo), '("isContentEditable", DOMHTMLElementIsContentEditablePropertyInfo), '("lang", DOMHTMLElementLangPropertyInfo), '("lastChild", DOMNodeLastChildPropertyInfo), '("lastElementChild", DOMElementLastElementChildPropertyInfo), '("localName", DOMNodeLocalNamePropertyInfo), '("namespaceUri", DOMNodeNamespaceUriPropertyInfo), '("nextElementSibling", DOMElementNextElementSiblingPropertyInfo), '("nextSibling", DOMNodeNextSiblingPropertyInfo), '("noHref", DOMHTMLAreaElementNoHrefPropertyInfo), '("nodeName", DOMNodeNodeNamePropertyInfo), '("nodeType", DOMNodeNodeTypePropertyInfo), '("nodeValue", DOMNodeNodeValuePropertyInfo), '("offsetHeight", DOMElementOffsetHeightPropertyInfo), '("offsetLeft", DOMElementOffsetLeftPropertyInfo), '("offsetParent", DOMElementOffsetParentPropertyInfo), '("offsetTop", DOMElementOffsetTopPropertyInfo), '("offsetWidth", DOMElementOffsetWidthPropertyInfo), '("outerHtml", DOMHTMLElementOuterHtmlPropertyInfo), '("outerText", DOMHTMLElementOuterTextPropertyInfo), '("ownerDocument", DOMNodeOwnerDocumentPropertyInfo), '("parentElement", DOMNodeParentElementPropertyInfo), '("parentNode", DOMNodeParentNodePropertyInfo), '("pathname", DOMHTMLAreaElementPathnamePropertyInfo), '("ping", DOMHTMLAreaElementPingPropertyInfo), '("port", DOMHTMLAreaElementPortPropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previousElementSibling", DOMElementPreviousElementSiblingPropertyInfo), '("previousSibling", DOMNodePreviousSiblingPropertyInfo), '("protocol", DOMHTMLAreaElementProtocolPropertyInfo), '("scrollHeight", DOMElementScrollHeightPropertyInfo), '("scrollLeft", DOMElementScrollLeftPropertyInfo), '("scrollTop", DOMElementScrollTopPropertyInfo), '("scrollWidth", DOMElementScrollWidthPropertyInfo), '("search", DOMHTMLAreaElementSearchPropertyInfo), '("shape", DOMHTMLAreaElementShapePropertyInfo), '("spellcheck", DOMHTMLElementSpellcheckPropertyInfo), '("style", DOMElementStylePropertyInfo), '("tabIndex", DOMHTMLElementTabIndexPropertyInfo), '("tagName", DOMElementTagNamePropertyInfo), '("target", DOMHTMLAreaElementTargetPropertyInfo), '("textContent", DOMNodeTextContentPropertyInfo), '("title", DOMHTMLElementTitlePropertyInfo), '("translate", DOMHTMLElementTranslatePropertyInfo), '("webkitRegionOverset", DOMElementWebkitRegionOversetPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo)] :: [(Symbol, *)]) +dOMHTMLAreaElementAlt :: AttrLabelProxy "alt" +dOMHTMLAreaElementAlt = AttrLabelProxy + +dOMHTMLAreaElementCoords :: AttrLabelProxy "coords" +dOMHTMLAreaElementCoords = AttrLabelProxy + +dOMHTMLAreaElementHash :: AttrLabelProxy "hash" +dOMHTMLAreaElementHash = AttrLabelProxy + +dOMHTMLAreaElementHost :: AttrLabelProxy "host" +dOMHTMLAreaElementHost = AttrLabelProxy + +dOMHTMLAreaElementHostname :: AttrLabelProxy "hostname" +dOMHTMLAreaElementHostname = AttrLabelProxy + +dOMHTMLAreaElementHref :: AttrLabelProxy "href" +dOMHTMLAreaElementHref = AttrLabelProxy + +dOMHTMLAreaElementNoHref :: AttrLabelProxy "noHref" +dOMHTMLAreaElementNoHref = AttrLabelProxy + +dOMHTMLAreaElementPathname :: AttrLabelProxy "pathname" +dOMHTMLAreaElementPathname = AttrLabelProxy + +dOMHTMLAreaElementPing :: AttrLabelProxy "ping" +dOMHTMLAreaElementPing = AttrLabelProxy + +dOMHTMLAreaElementPort :: AttrLabelProxy "port" +dOMHTMLAreaElementPort = AttrLabelProxy + +dOMHTMLAreaElementProtocol :: AttrLabelProxy "protocol" +dOMHTMLAreaElementProtocol = AttrLabelProxy + +dOMHTMLAreaElementSearch :: AttrLabelProxy "search" +dOMHTMLAreaElementSearch = AttrLabelProxy + +dOMHTMLAreaElementShape :: AttrLabelProxy "shape" +dOMHTMLAreaElementShape = AttrLabelProxy + +dOMHTMLAreaElementTarget :: AttrLabelProxy "target" +dOMHTMLAreaElementTarget = AttrLabelProxy + type instance SignalList DOMHTMLAreaElement = DOMHTMLAreaElementSignalList type DOMHTMLAreaElementSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) @@ -735,7 +819,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLAreaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -765,7 +849,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLAreaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -795,7 +879,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLAreaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -825,7 +909,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLAreaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -855,7 +939,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLAreaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -885,7 +969,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLAreaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -915,7 +999,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLAreaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -943,7 +1027,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLAreaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -973,7 +1057,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLAreaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -1003,7 +1087,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLAreaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -1033,7 +1117,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLAreaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -1063,7 +1147,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLAreaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -1093,7 +1177,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLAreaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -1123,7 +1207,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLAreaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -1153,7 +1237,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLAreaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1184,7 +1268,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLAreaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1215,7 +1299,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLAreaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1246,7 +1330,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLAreaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1276,7 +1360,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLAreaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1307,7 +1391,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLAreaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1338,7 +1422,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLAreaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False diff --git a/GI/WebKit/Objects/DOMHTMLAreaElement.hs-boot b/GI/WebKit/Objects/DOMHTMLAreaElement.hs-boot --- a/GI/WebKit/Objects/DOMHTMLAreaElement.hs-boot +++ b/GI/WebKit/Objects/DOMHTMLAreaElement.hs-boot @@ -1,8 +1,8 @@ module GI.WebKit.Objects.DOMHTMLAreaElement where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map diff --git a/GI/WebKit/Objects/DOMHTMLAudioElement.hs b/GI/WebKit/Objects/DOMHTMLAudioElement.hs --- a/GI/WebKit/Objects/DOMHTMLAudioElement.hs +++ b/GI/WebKit/Objects/DOMHTMLAudioElement.hs @@ -18,9 +18,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map diff --git a/GI/WebKit/Objects/DOMHTMLAudioElement.hs-boot b/GI/WebKit/Objects/DOMHTMLAudioElement.hs-boot --- a/GI/WebKit/Objects/DOMHTMLAudioElement.hs-boot +++ b/GI/WebKit/Objects/DOMHTMLAudioElement.hs-boot @@ -1,8 +1,8 @@ module GI.WebKit.Objects.DOMHTMLAudioElement where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map diff --git a/GI/WebKit/Objects/DOMHTMLBRElement.hs b/GI/WebKit/Objects/DOMHTMLBRElement.hs --- a/GI/WebKit/Objects/DOMHTMLBRElement.hs +++ b/GI/WebKit/Objects/DOMHTMLBRElement.hs @@ -33,6 +33,7 @@ -- ** Clear DOMHTMLBRElementClearPropertyInfo , constructDOMHTMLBRElementClear , + dOMHTMLBRElementClear , getDOMHTMLBRElementClear , setDOMHTMLBRElementClear , @@ -41,9 +42,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map @@ -243,30 +244,35 @@ -- VVV Prop "clear" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Just False) -getDOMHTMLBRElementClear :: (MonadIO m, DOMHTMLBRElementK o) => o -> m T.Text +getDOMHTMLBRElementClear :: (MonadIO m, DOMHTMLBRElementK o) => o -> m (Maybe T.Text) getDOMHTMLBRElementClear obj = liftIO $ getObjectPropertyString obj "clear" setDOMHTMLBRElementClear :: (MonadIO m, DOMHTMLBRElementK o) => o -> T.Text -> m () -setDOMHTMLBRElementClear obj val = liftIO $ setObjectPropertyString obj "clear" val +setDOMHTMLBRElementClear obj val = liftIO $ setObjectPropertyString obj "clear" (Just val) constructDOMHTMLBRElementClear :: T.Text -> IO ([Char], GValue) -constructDOMHTMLBRElementClear val = constructObjectPropertyString "clear" val +constructDOMHTMLBRElementClear val = constructObjectPropertyString "clear" (Just val) data DOMHTMLBRElementClearPropertyInfo instance AttrInfo DOMHTMLBRElementClearPropertyInfo where type AttrAllowedOps DOMHTMLBRElementClearPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint DOMHTMLBRElementClearPropertyInfo = (~) T.Text type AttrBaseTypeConstraint DOMHTMLBRElementClearPropertyInfo = DOMHTMLBRElementK - type AttrGetType DOMHTMLBRElementClearPropertyInfo = T.Text + type AttrGetType DOMHTMLBRElementClearPropertyInfo = (Maybe T.Text) type AttrLabel DOMHTMLBRElementClearPropertyInfo = "clear" attrGet _ = getDOMHTMLBRElementClear attrSet _ = setDOMHTMLBRElementClear attrConstruct _ = constructDOMHTMLBRElementClear + attrClear _ = undefined type instance AttributeList DOMHTMLBRElement = DOMHTMLBRElementAttributeList type DOMHTMLBRElementAttributeList = ('[ '("accessKey", DOMHTMLElementAccessKeyPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("baseUri", DOMNodeBaseUriPropertyInfo), '("childElementCount", DOMElementChildElementCountPropertyInfo), '("childNodes", DOMNodeChildNodesPropertyInfo), '("children", DOMHTMLElementChildrenPropertyInfo), '("classList", DOMElementClassListPropertyInfo), '("className", DOMElementClassNamePropertyInfo), '("clear", DOMHTMLBRElementClearPropertyInfo), '("clientHeight", DOMElementClientHeightPropertyInfo), '("clientLeft", DOMElementClientLeftPropertyInfo), '("clientTop", DOMElementClientTopPropertyInfo), '("clientWidth", DOMElementClientWidthPropertyInfo), '("contentEditable", DOMHTMLElementContentEditablePropertyInfo), '("coreObject", DOMObjectCoreObjectPropertyInfo), '("dir", DOMHTMLElementDirPropertyInfo), '("draggable", DOMHTMLElementDraggablePropertyInfo), '("firstChild", DOMNodeFirstChildPropertyInfo), '("firstElementChild", DOMElementFirstElementChildPropertyInfo), '("hidden", DOMHTMLElementHiddenPropertyInfo), '("id", DOMElementIdPropertyInfo), '("innerHtml", DOMHTMLElementInnerHtmlPropertyInfo), '("innerText", DOMHTMLElementInnerTextPropertyInfo), '("isContentEditable", DOMHTMLElementIsContentEditablePropertyInfo), '("lang", DOMHTMLElementLangPropertyInfo), '("lastChild", DOMNodeLastChildPropertyInfo), '("lastElementChild", DOMElementLastElementChildPropertyInfo), '("localName", DOMNodeLocalNamePropertyInfo), '("namespaceUri", DOMNodeNamespaceUriPropertyInfo), '("nextElementSibling", DOMElementNextElementSiblingPropertyInfo), '("nextSibling", DOMNodeNextSiblingPropertyInfo), '("nodeName", DOMNodeNodeNamePropertyInfo), '("nodeType", DOMNodeNodeTypePropertyInfo), '("nodeValue", DOMNodeNodeValuePropertyInfo), '("offsetHeight", DOMElementOffsetHeightPropertyInfo), '("offsetLeft", DOMElementOffsetLeftPropertyInfo), '("offsetParent", DOMElementOffsetParentPropertyInfo), '("offsetTop", DOMElementOffsetTopPropertyInfo), '("offsetWidth", DOMElementOffsetWidthPropertyInfo), '("outerHtml", DOMHTMLElementOuterHtmlPropertyInfo), '("outerText", DOMHTMLElementOuterTextPropertyInfo), '("ownerDocument", DOMNodeOwnerDocumentPropertyInfo), '("parentElement", DOMNodeParentElementPropertyInfo), '("parentNode", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previousElementSibling", DOMElementPreviousElementSiblingPropertyInfo), '("previousSibling", DOMNodePreviousSiblingPropertyInfo), '("scrollHeight", DOMElementScrollHeightPropertyInfo), '("scrollLeft", DOMElementScrollLeftPropertyInfo), '("scrollTop", DOMElementScrollTopPropertyInfo), '("scrollWidth", DOMElementScrollWidthPropertyInfo), '("spellcheck", DOMHTMLElementSpellcheckPropertyInfo), '("style", DOMElementStylePropertyInfo), '("tabIndex", DOMHTMLElementTabIndexPropertyInfo), '("tagName", DOMElementTagNamePropertyInfo), '("textContent", DOMNodeTextContentPropertyInfo), '("title", DOMHTMLElementTitlePropertyInfo), '("translate", DOMHTMLElementTranslatePropertyInfo), '("webkitRegionOverset", DOMElementWebkitRegionOversetPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo)] :: [(Symbol, *)]) +dOMHTMLBRElementClear :: AttrLabelProxy "clear" +dOMHTMLBRElementClear = AttrLabelProxy + type instance SignalList DOMHTMLBRElement = DOMHTMLBRElementSignalList type DOMHTMLBRElementSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) @@ -274,7 +280,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLBRElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -304,7 +310,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLBRElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False diff --git a/GI/WebKit/Objects/DOMHTMLBRElement.hs-boot b/GI/WebKit/Objects/DOMHTMLBRElement.hs-boot --- a/GI/WebKit/Objects/DOMHTMLBRElement.hs-boot +++ b/GI/WebKit/Objects/DOMHTMLBRElement.hs-boot @@ -1,8 +1,8 @@ module GI.WebKit.Objects.DOMHTMLBRElement where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map diff --git a/GI/WebKit/Objects/DOMHTMLBaseElement.hs b/GI/WebKit/Objects/DOMHTMLBaseElement.hs --- a/GI/WebKit/Objects/DOMHTMLBaseElement.hs +++ b/GI/WebKit/Objects/DOMHTMLBaseElement.hs @@ -43,6 +43,7 @@ -- ** Href DOMHTMLBaseElementHrefPropertyInfo , constructDOMHTMLBaseElementHref , + dOMHTMLBaseElementHref , getDOMHTMLBaseElementHref , setDOMHTMLBaseElementHref , @@ -50,6 +51,7 @@ -- ** Target DOMHTMLBaseElementTargetPropertyInfo , constructDOMHTMLBaseElementTarget , + dOMHTMLBaseElementTarget , getDOMHTMLBaseElementTarget , setDOMHTMLBaseElementTarget , @@ -58,9 +60,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map @@ -262,54 +264,64 @@ -- VVV Prop "href" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Just False) -getDOMHTMLBaseElementHref :: (MonadIO m, DOMHTMLBaseElementK o) => o -> m T.Text +getDOMHTMLBaseElementHref :: (MonadIO m, DOMHTMLBaseElementK o) => o -> m (Maybe T.Text) getDOMHTMLBaseElementHref obj = liftIO $ getObjectPropertyString obj "href" setDOMHTMLBaseElementHref :: (MonadIO m, DOMHTMLBaseElementK o) => o -> T.Text -> m () -setDOMHTMLBaseElementHref obj val = liftIO $ setObjectPropertyString obj "href" val +setDOMHTMLBaseElementHref obj val = liftIO $ setObjectPropertyString obj "href" (Just val) constructDOMHTMLBaseElementHref :: T.Text -> IO ([Char], GValue) -constructDOMHTMLBaseElementHref val = constructObjectPropertyString "href" val +constructDOMHTMLBaseElementHref val = constructObjectPropertyString "href" (Just val) data DOMHTMLBaseElementHrefPropertyInfo instance AttrInfo DOMHTMLBaseElementHrefPropertyInfo where type AttrAllowedOps DOMHTMLBaseElementHrefPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint DOMHTMLBaseElementHrefPropertyInfo = (~) T.Text type AttrBaseTypeConstraint DOMHTMLBaseElementHrefPropertyInfo = DOMHTMLBaseElementK - type AttrGetType DOMHTMLBaseElementHrefPropertyInfo = T.Text + type AttrGetType DOMHTMLBaseElementHrefPropertyInfo = (Maybe T.Text) type AttrLabel DOMHTMLBaseElementHrefPropertyInfo = "href" attrGet _ = getDOMHTMLBaseElementHref attrSet _ = setDOMHTMLBaseElementHref attrConstruct _ = constructDOMHTMLBaseElementHref + attrClear _ = undefined -- VVV Prop "target" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Just False) -getDOMHTMLBaseElementTarget :: (MonadIO m, DOMHTMLBaseElementK o) => o -> m T.Text +getDOMHTMLBaseElementTarget :: (MonadIO m, DOMHTMLBaseElementK o) => o -> m (Maybe T.Text) getDOMHTMLBaseElementTarget obj = liftIO $ getObjectPropertyString obj "target" setDOMHTMLBaseElementTarget :: (MonadIO m, DOMHTMLBaseElementK o) => o -> T.Text -> m () -setDOMHTMLBaseElementTarget obj val = liftIO $ setObjectPropertyString obj "target" val +setDOMHTMLBaseElementTarget obj val = liftIO $ setObjectPropertyString obj "target" (Just val) constructDOMHTMLBaseElementTarget :: T.Text -> IO ([Char], GValue) -constructDOMHTMLBaseElementTarget val = constructObjectPropertyString "target" val +constructDOMHTMLBaseElementTarget val = constructObjectPropertyString "target" (Just val) data DOMHTMLBaseElementTargetPropertyInfo instance AttrInfo DOMHTMLBaseElementTargetPropertyInfo where type AttrAllowedOps DOMHTMLBaseElementTargetPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint DOMHTMLBaseElementTargetPropertyInfo = (~) T.Text type AttrBaseTypeConstraint DOMHTMLBaseElementTargetPropertyInfo = DOMHTMLBaseElementK - type AttrGetType DOMHTMLBaseElementTargetPropertyInfo = T.Text + type AttrGetType DOMHTMLBaseElementTargetPropertyInfo = (Maybe T.Text) type AttrLabel DOMHTMLBaseElementTargetPropertyInfo = "target" attrGet _ = getDOMHTMLBaseElementTarget attrSet _ = setDOMHTMLBaseElementTarget attrConstruct _ = constructDOMHTMLBaseElementTarget + attrClear _ = undefined type instance AttributeList DOMHTMLBaseElement = DOMHTMLBaseElementAttributeList type DOMHTMLBaseElementAttributeList = ('[ '("accessKey", DOMHTMLElementAccessKeyPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("baseUri", DOMNodeBaseUriPropertyInfo), '("childElementCount", DOMElementChildElementCountPropertyInfo), '("childNodes", DOMNodeChildNodesPropertyInfo), '("children", DOMHTMLElementChildrenPropertyInfo), '("classList", DOMElementClassListPropertyInfo), '("className", DOMElementClassNamePropertyInfo), '("clientHeight", DOMElementClientHeightPropertyInfo), '("clientLeft", DOMElementClientLeftPropertyInfo), '("clientTop", DOMElementClientTopPropertyInfo), '("clientWidth", DOMElementClientWidthPropertyInfo), '("contentEditable", DOMHTMLElementContentEditablePropertyInfo), '("coreObject", DOMObjectCoreObjectPropertyInfo), '("dir", DOMHTMLElementDirPropertyInfo), '("draggable", DOMHTMLElementDraggablePropertyInfo), '("firstChild", DOMNodeFirstChildPropertyInfo), '("firstElementChild", DOMElementFirstElementChildPropertyInfo), '("hidden", DOMHTMLElementHiddenPropertyInfo), '("href", DOMHTMLBaseElementHrefPropertyInfo), '("id", DOMElementIdPropertyInfo), '("innerHtml", DOMHTMLElementInnerHtmlPropertyInfo), '("innerText", DOMHTMLElementInnerTextPropertyInfo), '("isContentEditable", DOMHTMLElementIsContentEditablePropertyInfo), '("lang", DOMHTMLElementLangPropertyInfo), '("lastChild", DOMNodeLastChildPropertyInfo), '("lastElementChild", DOMElementLastElementChildPropertyInfo), '("localName", DOMNodeLocalNamePropertyInfo), '("namespaceUri", DOMNodeNamespaceUriPropertyInfo), '("nextElementSibling", DOMElementNextElementSiblingPropertyInfo), '("nextSibling", DOMNodeNextSiblingPropertyInfo), '("nodeName", DOMNodeNodeNamePropertyInfo), '("nodeType", DOMNodeNodeTypePropertyInfo), '("nodeValue", DOMNodeNodeValuePropertyInfo), '("offsetHeight", DOMElementOffsetHeightPropertyInfo), '("offsetLeft", DOMElementOffsetLeftPropertyInfo), '("offsetParent", DOMElementOffsetParentPropertyInfo), '("offsetTop", DOMElementOffsetTopPropertyInfo), '("offsetWidth", DOMElementOffsetWidthPropertyInfo), '("outerHtml", DOMHTMLElementOuterHtmlPropertyInfo), '("outerText", DOMHTMLElementOuterTextPropertyInfo), '("ownerDocument", DOMNodeOwnerDocumentPropertyInfo), '("parentElement", DOMNodeParentElementPropertyInfo), '("parentNode", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previousElementSibling", DOMElementPreviousElementSiblingPropertyInfo), '("previousSibling", DOMNodePreviousSiblingPropertyInfo), '("scrollHeight", DOMElementScrollHeightPropertyInfo), '("scrollLeft", DOMElementScrollLeftPropertyInfo), '("scrollTop", DOMElementScrollTopPropertyInfo), '("scrollWidth", DOMElementScrollWidthPropertyInfo), '("spellcheck", DOMHTMLElementSpellcheckPropertyInfo), '("style", DOMElementStylePropertyInfo), '("tabIndex", DOMHTMLElementTabIndexPropertyInfo), '("tagName", DOMElementTagNamePropertyInfo), '("target", DOMHTMLBaseElementTargetPropertyInfo), '("textContent", DOMNodeTextContentPropertyInfo), '("title", DOMHTMLElementTitlePropertyInfo), '("translate", DOMHTMLElementTranslatePropertyInfo), '("webkitRegionOverset", DOMElementWebkitRegionOversetPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo)] :: [(Symbol, *)]) +dOMHTMLBaseElementHref :: AttrLabelProxy "href" +dOMHTMLBaseElementHref = AttrLabelProxy + +dOMHTMLBaseElementTarget :: AttrLabelProxy "target" +dOMHTMLBaseElementTarget = AttrLabelProxy + type instance SignalList DOMHTMLBaseElement = DOMHTMLBaseElementSignalList type DOMHTMLBaseElementSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) @@ -317,7 +329,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLBaseElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -347,7 +359,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLBaseElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -377,7 +389,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLBaseElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -408,7 +420,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLBaseElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False diff --git a/GI/WebKit/Objects/DOMHTMLBaseElement.hs-boot b/GI/WebKit/Objects/DOMHTMLBaseElement.hs-boot --- a/GI/WebKit/Objects/DOMHTMLBaseElement.hs-boot +++ b/GI/WebKit/Objects/DOMHTMLBaseElement.hs-boot @@ -1,8 +1,8 @@ module GI.WebKit.Objects.DOMHTMLBaseElement where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map diff --git a/GI/WebKit/Objects/DOMHTMLBaseFontElement.hs b/GI/WebKit/Objects/DOMHTMLBaseFontElement.hs --- a/GI/WebKit/Objects/DOMHTMLBaseFontElement.hs +++ b/GI/WebKit/Objects/DOMHTMLBaseFontElement.hs @@ -53,6 +53,7 @@ -- ** Color DOMHTMLBaseFontElementColorPropertyInfo , constructDOMHTMLBaseFontElementColor , + dOMHTMLBaseFontElementColor , getDOMHTMLBaseFontElementColor , setDOMHTMLBaseFontElementColor , @@ -60,6 +61,7 @@ -- ** Face DOMHTMLBaseFontElementFacePropertyInfo , constructDOMHTMLBaseFontElementFace , + dOMHTMLBaseFontElementFace , getDOMHTMLBaseFontElementFace , setDOMHTMLBaseFontElementFace , @@ -67,6 +69,7 @@ -- ** Size DOMHTMLBaseFontElementSizePropertyInfo , constructDOMHTMLBaseFontElementSize , + dOMHTMLBaseFontElementSize , getDOMHTMLBaseFontElementSize , setDOMHTMLBaseFontElementSize , @@ -75,9 +78,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map @@ -281,78 +284,93 @@ -- VVV Prop "color" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Just False) -getDOMHTMLBaseFontElementColor :: (MonadIO m, DOMHTMLBaseFontElementK o) => o -> m T.Text +getDOMHTMLBaseFontElementColor :: (MonadIO m, DOMHTMLBaseFontElementK o) => o -> m (Maybe T.Text) getDOMHTMLBaseFontElementColor obj = liftIO $ getObjectPropertyString obj "color" setDOMHTMLBaseFontElementColor :: (MonadIO m, DOMHTMLBaseFontElementK o) => o -> T.Text -> m () -setDOMHTMLBaseFontElementColor obj val = liftIO $ setObjectPropertyString obj "color" val +setDOMHTMLBaseFontElementColor obj val = liftIO $ setObjectPropertyString obj "color" (Just val) constructDOMHTMLBaseFontElementColor :: T.Text -> IO ([Char], GValue) -constructDOMHTMLBaseFontElementColor val = constructObjectPropertyString "color" val +constructDOMHTMLBaseFontElementColor val = constructObjectPropertyString "color" (Just val) data DOMHTMLBaseFontElementColorPropertyInfo instance AttrInfo DOMHTMLBaseFontElementColorPropertyInfo where type AttrAllowedOps DOMHTMLBaseFontElementColorPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint DOMHTMLBaseFontElementColorPropertyInfo = (~) T.Text type AttrBaseTypeConstraint DOMHTMLBaseFontElementColorPropertyInfo = DOMHTMLBaseFontElementK - type AttrGetType DOMHTMLBaseFontElementColorPropertyInfo = T.Text + type AttrGetType DOMHTMLBaseFontElementColorPropertyInfo = (Maybe T.Text) type AttrLabel DOMHTMLBaseFontElementColorPropertyInfo = "color" attrGet _ = getDOMHTMLBaseFontElementColor attrSet _ = setDOMHTMLBaseFontElementColor attrConstruct _ = constructDOMHTMLBaseFontElementColor + attrClear _ = undefined -- VVV Prop "face" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Just False) -getDOMHTMLBaseFontElementFace :: (MonadIO m, DOMHTMLBaseFontElementK o) => o -> m T.Text +getDOMHTMLBaseFontElementFace :: (MonadIO m, DOMHTMLBaseFontElementK o) => o -> m (Maybe T.Text) getDOMHTMLBaseFontElementFace obj = liftIO $ getObjectPropertyString obj "face" setDOMHTMLBaseFontElementFace :: (MonadIO m, DOMHTMLBaseFontElementK o) => o -> T.Text -> m () -setDOMHTMLBaseFontElementFace obj val = liftIO $ setObjectPropertyString obj "face" val +setDOMHTMLBaseFontElementFace obj val = liftIO $ setObjectPropertyString obj "face" (Just val) constructDOMHTMLBaseFontElementFace :: T.Text -> IO ([Char], GValue) -constructDOMHTMLBaseFontElementFace val = constructObjectPropertyString "face" val +constructDOMHTMLBaseFontElementFace val = constructObjectPropertyString "face" (Just val) data DOMHTMLBaseFontElementFacePropertyInfo instance AttrInfo DOMHTMLBaseFontElementFacePropertyInfo where type AttrAllowedOps DOMHTMLBaseFontElementFacePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint DOMHTMLBaseFontElementFacePropertyInfo = (~) T.Text type AttrBaseTypeConstraint DOMHTMLBaseFontElementFacePropertyInfo = DOMHTMLBaseFontElementK - type AttrGetType DOMHTMLBaseFontElementFacePropertyInfo = T.Text + type AttrGetType DOMHTMLBaseFontElementFacePropertyInfo = (Maybe T.Text) type AttrLabel DOMHTMLBaseFontElementFacePropertyInfo = "face" attrGet _ = getDOMHTMLBaseFontElementFace attrSet _ = setDOMHTMLBaseFontElementFace attrConstruct _ = constructDOMHTMLBaseFontElementFace + attrClear _ = undefined -- VVV Prop "size" - -- Type: TBasicType TInt64 + -- Type: TBasicType TLong -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) -getDOMHTMLBaseFontElementSize :: (MonadIO m, DOMHTMLBaseFontElementK o) => o -> m Int64 -getDOMHTMLBaseFontElementSize obj = liftIO $ getObjectPropertyInt64 obj "size" +getDOMHTMLBaseFontElementSize :: (MonadIO m, DOMHTMLBaseFontElementK o) => o -> m CLong +getDOMHTMLBaseFontElementSize obj = liftIO $ getObjectPropertyLong obj "size" -setDOMHTMLBaseFontElementSize :: (MonadIO m, DOMHTMLBaseFontElementK o) => o -> Int64 -> m () -setDOMHTMLBaseFontElementSize obj val = liftIO $ setObjectPropertyInt64 obj "size" val +setDOMHTMLBaseFontElementSize :: (MonadIO m, DOMHTMLBaseFontElementK o) => o -> CLong -> m () +setDOMHTMLBaseFontElementSize obj val = liftIO $ setObjectPropertyLong obj "size" val -constructDOMHTMLBaseFontElementSize :: Int64 -> IO ([Char], GValue) -constructDOMHTMLBaseFontElementSize val = constructObjectPropertyInt64 "size" val +constructDOMHTMLBaseFontElementSize :: CLong -> IO ([Char], GValue) +constructDOMHTMLBaseFontElementSize val = constructObjectPropertyLong "size" val data DOMHTMLBaseFontElementSizePropertyInfo instance AttrInfo DOMHTMLBaseFontElementSizePropertyInfo where type AttrAllowedOps DOMHTMLBaseFontElementSizePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLBaseFontElementSizePropertyInfo = (~) Int64 + type AttrSetTypeConstraint DOMHTMLBaseFontElementSizePropertyInfo = (~) CLong type AttrBaseTypeConstraint DOMHTMLBaseFontElementSizePropertyInfo = DOMHTMLBaseFontElementK - type AttrGetType DOMHTMLBaseFontElementSizePropertyInfo = Int64 + type AttrGetType DOMHTMLBaseFontElementSizePropertyInfo = CLong type AttrLabel DOMHTMLBaseFontElementSizePropertyInfo = "size" attrGet _ = getDOMHTMLBaseFontElementSize attrSet _ = setDOMHTMLBaseFontElementSize attrConstruct _ = constructDOMHTMLBaseFontElementSize + attrClear _ = undefined type instance AttributeList DOMHTMLBaseFontElement = DOMHTMLBaseFontElementAttributeList type DOMHTMLBaseFontElementAttributeList = ('[ '("accessKey", DOMHTMLElementAccessKeyPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("baseUri", DOMNodeBaseUriPropertyInfo), '("childElementCount", DOMElementChildElementCountPropertyInfo), '("childNodes", DOMNodeChildNodesPropertyInfo), '("children", DOMHTMLElementChildrenPropertyInfo), '("classList", DOMElementClassListPropertyInfo), '("className", DOMElementClassNamePropertyInfo), '("clientHeight", DOMElementClientHeightPropertyInfo), '("clientLeft", DOMElementClientLeftPropertyInfo), '("clientTop", DOMElementClientTopPropertyInfo), '("clientWidth", DOMElementClientWidthPropertyInfo), '("color", DOMHTMLBaseFontElementColorPropertyInfo), '("contentEditable", DOMHTMLElementContentEditablePropertyInfo), '("coreObject", DOMObjectCoreObjectPropertyInfo), '("dir", DOMHTMLElementDirPropertyInfo), '("draggable", DOMHTMLElementDraggablePropertyInfo), '("face", DOMHTMLBaseFontElementFacePropertyInfo), '("firstChild", DOMNodeFirstChildPropertyInfo), '("firstElementChild", DOMElementFirstElementChildPropertyInfo), '("hidden", DOMHTMLElementHiddenPropertyInfo), '("id", DOMElementIdPropertyInfo), '("innerHtml", DOMHTMLElementInnerHtmlPropertyInfo), '("innerText", DOMHTMLElementInnerTextPropertyInfo), '("isContentEditable", DOMHTMLElementIsContentEditablePropertyInfo), '("lang", DOMHTMLElementLangPropertyInfo), '("lastChild", DOMNodeLastChildPropertyInfo), '("lastElementChild", DOMElementLastElementChildPropertyInfo), '("localName", DOMNodeLocalNamePropertyInfo), '("namespaceUri", DOMNodeNamespaceUriPropertyInfo), '("nextElementSibling", DOMElementNextElementSiblingPropertyInfo), '("nextSibling", DOMNodeNextSiblingPropertyInfo), '("nodeName", DOMNodeNodeNamePropertyInfo), '("nodeType", DOMNodeNodeTypePropertyInfo), '("nodeValue", DOMNodeNodeValuePropertyInfo), '("offsetHeight", DOMElementOffsetHeightPropertyInfo), '("offsetLeft", DOMElementOffsetLeftPropertyInfo), '("offsetParent", DOMElementOffsetParentPropertyInfo), '("offsetTop", DOMElementOffsetTopPropertyInfo), '("offsetWidth", DOMElementOffsetWidthPropertyInfo), '("outerHtml", DOMHTMLElementOuterHtmlPropertyInfo), '("outerText", DOMHTMLElementOuterTextPropertyInfo), '("ownerDocument", DOMNodeOwnerDocumentPropertyInfo), '("parentElement", DOMNodeParentElementPropertyInfo), '("parentNode", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previousElementSibling", DOMElementPreviousElementSiblingPropertyInfo), '("previousSibling", DOMNodePreviousSiblingPropertyInfo), '("scrollHeight", DOMElementScrollHeightPropertyInfo), '("scrollLeft", DOMElementScrollLeftPropertyInfo), '("scrollTop", DOMElementScrollTopPropertyInfo), '("scrollWidth", DOMElementScrollWidthPropertyInfo), '("size", DOMHTMLBaseFontElementSizePropertyInfo), '("spellcheck", DOMHTMLElementSpellcheckPropertyInfo), '("style", DOMElementStylePropertyInfo), '("tabIndex", DOMHTMLElementTabIndexPropertyInfo), '("tagName", DOMElementTagNamePropertyInfo), '("textContent", DOMNodeTextContentPropertyInfo), '("title", DOMHTMLElementTitlePropertyInfo), '("translate", DOMHTMLElementTranslatePropertyInfo), '("webkitRegionOverset", DOMElementWebkitRegionOversetPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo)] :: [(Symbol, *)]) +dOMHTMLBaseFontElementColor :: AttrLabelProxy "color" +dOMHTMLBaseFontElementColor = AttrLabelProxy + +dOMHTMLBaseFontElementFace :: AttrLabelProxy "face" +dOMHTMLBaseFontElementFace = AttrLabelProxy + +dOMHTMLBaseFontElementSize :: AttrLabelProxy "size" +dOMHTMLBaseFontElementSize = AttrLabelProxy + type instance SignalList DOMHTMLBaseFontElement = DOMHTMLBaseFontElementSignalList type DOMHTMLBaseFontElementSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) @@ -360,7 +378,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLBaseFontElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -390,7 +408,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLBaseFontElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -420,19 +438,19 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLBaseFontElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TInt64 +-- returnType : Just (TBasicType TLong) -- throws : False -- Skip return : False foreign import ccall "webkit_dom_html_base_font_element_get_size" webkit_dom_html_base_font_element_get_size :: Ptr DOMHTMLBaseFontElement -> -- _obj : TInterface "WebKit" "DOMHTMLBaseFontElement" - IO Int64 + IO CLong dOMHTMLBaseFontElementGetSize :: (MonadIO m, DOMHTMLBaseFontElementK a) => a -- _obj - -> m Int64 -- result + -> m CLong -- result dOMHTMLBaseFontElementGetSize _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- webkit_dom_html_base_font_element_get_size _obj' @@ -440,14 +458,14 @@ return result data DOMHTMLBaseFontElementGetSizeMethodInfo -instance (signature ~ (m Int64), MonadIO m, DOMHTMLBaseFontElementK a) => MethodInfo DOMHTMLBaseFontElementGetSizeMethodInfo a signature where +instance (signature ~ (m CLong), MonadIO m, DOMHTMLBaseFontElementK a) => MethodInfo DOMHTMLBaseFontElementGetSizeMethodInfo a signature where overloadedMethod _ = dOMHTMLBaseFontElementGetSize -- method DOMHTMLBaseFontElement::set_color -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLBaseFontElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -478,7 +496,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLBaseFontElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -507,22 +525,22 @@ -- method DOMHTMLBaseFontElement::set_size -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLBaseFontElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLBaseFontElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TLong, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "webkit_dom_html_base_font_element_set_size" webkit_dom_html_base_font_element_set_size :: Ptr DOMHTMLBaseFontElement -> -- _obj : TInterface "WebKit" "DOMHTMLBaseFontElement" - Int64 -> -- value : TBasicType TInt64 + CLong -> -- value : TBasicType TLong IO () dOMHTMLBaseFontElementSetSize :: (MonadIO m, DOMHTMLBaseFontElementK a) => a -- _obj - -> Int64 -- value + -> CLong -- value -> m () -- result dOMHTMLBaseFontElementSetSize _obj value = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj @@ -531,7 +549,7 @@ return () data DOMHTMLBaseFontElementSetSizeMethodInfo -instance (signature ~ (Int64 -> m ()), MonadIO m, DOMHTMLBaseFontElementK a) => MethodInfo DOMHTMLBaseFontElementSetSizeMethodInfo a signature where +instance (signature ~ (CLong -> m ()), MonadIO m, DOMHTMLBaseFontElementK a) => MethodInfo DOMHTMLBaseFontElementSetSizeMethodInfo a signature where overloadedMethod _ = dOMHTMLBaseFontElementSetSize diff --git a/GI/WebKit/Objects/DOMHTMLBaseFontElement.hs-boot b/GI/WebKit/Objects/DOMHTMLBaseFontElement.hs-boot --- a/GI/WebKit/Objects/DOMHTMLBaseFontElement.hs-boot +++ b/GI/WebKit/Objects/DOMHTMLBaseFontElement.hs-boot @@ -1,8 +1,8 @@ module GI.WebKit.Objects.DOMHTMLBaseFontElement where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map diff --git a/GI/WebKit/Objects/DOMHTMLBodyElement.hs b/GI/WebKit/Objects/DOMHTMLBodyElement.hs --- a/GI/WebKit/Objects/DOMHTMLBodyElement.hs +++ b/GI/WebKit/Objects/DOMHTMLBodyElement.hs @@ -83,6 +83,7 @@ -- ** ALink DOMHTMLBodyElementALinkPropertyInfo , constructDOMHTMLBodyElementALink , + dOMHTMLBodyElementALink , getDOMHTMLBodyElementALink , setDOMHTMLBodyElementALink , @@ -90,6 +91,7 @@ -- ** Background DOMHTMLBodyElementBackgroundPropertyInfo, constructDOMHTMLBodyElementBackground , + dOMHTMLBodyElementBackground , getDOMHTMLBodyElementBackground , setDOMHTMLBodyElementBackground , @@ -97,6 +99,7 @@ -- ** BgColor DOMHTMLBodyElementBgColorPropertyInfo , constructDOMHTMLBodyElementBgColor , + dOMHTMLBodyElementBgColor , getDOMHTMLBodyElementBgColor , setDOMHTMLBodyElementBgColor , @@ -104,6 +107,7 @@ -- ** Link DOMHTMLBodyElementLinkPropertyInfo , constructDOMHTMLBodyElementLink , + dOMHTMLBodyElementLink , getDOMHTMLBodyElementLink , setDOMHTMLBodyElementLink , @@ -111,6 +115,7 @@ -- ** Text DOMHTMLBodyElementTextPropertyInfo , constructDOMHTMLBodyElementText , + dOMHTMLBodyElementText , getDOMHTMLBodyElementText , setDOMHTMLBodyElementText , @@ -118,6 +123,7 @@ -- ** VLink DOMHTMLBodyElementVLinkPropertyInfo , constructDOMHTMLBodyElementVLink , + dOMHTMLBodyElementVLink , getDOMHTMLBodyElementVLink , setDOMHTMLBodyElementVLink , @@ -126,9 +132,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map @@ -338,150 +344,180 @@ -- VVV Prop "a-link" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Just False) -getDOMHTMLBodyElementALink :: (MonadIO m, DOMHTMLBodyElementK o) => o -> m T.Text +getDOMHTMLBodyElementALink :: (MonadIO m, DOMHTMLBodyElementK o) => o -> m (Maybe T.Text) getDOMHTMLBodyElementALink obj = liftIO $ getObjectPropertyString obj "a-link" setDOMHTMLBodyElementALink :: (MonadIO m, DOMHTMLBodyElementK o) => o -> T.Text -> m () -setDOMHTMLBodyElementALink obj val = liftIO $ setObjectPropertyString obj "a-link" val +setDOMHTMLBodyElementALink obj val = liftIO $ setObjectPropertyString obj "a-link" (Just val) constructDOMHTMLBodyElementALink :: T.Text -> IO ([Char], GValue) -constructDOMHTMLBodyElementALink val = constructObjectPropertyString "a-link" val +constructDOMHTMLBodyElementALink val = constructObjectPropertyString "a-link" (Just val) data DOMHTMLBodyElementALinkPropertyInfo instance AttrInfo DOMHTMLBodyElementALinkPropertyInfo where type AttrAllowedOps DOMHTMLBodyElementALinkPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint DOMHTMLBodyElementALinkPropertyInfo = (~) T.Text type AttrBaseTypeConstraint DOMHTMLBodyElementALinkPropertyInfo = DOMHTMLBodyElementK - type AttrGetType DOMHTMLBodyElementALinkPropertyInfo = T.Text + type AttrGetType DOMHTMLBodyElementALinkPropertyInfo = (Maybe T.Text) type AttrLabel DOMHTMLBodyElementALinkPropertyInfo = "a-link" attrGet _ = getDOMHTMLBodyElementALink attrSet _ = setDOMHTMLBodyElementALink attrConstruct _ = constructDOMHTMLBodyElementALink + attrClear _ = undefined -- VVV Prop "background" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Just False) -getDOMHTMLBodyElementBackground :: (MonadIO m, DOMHTMLBodyElementK o) => o -> m T.Text +getDOMHTMLBodyElementBackground :: (MonadIO m, DOMHTMLBodyElementK o) => o -> m (Maybe T.Text) getDOMHTMLBodyElementBackground obj = liftIO $ getObjectPropertyString obj "background" setDOMHTMLBodyElementBackground :: (MonadIO m, DOMHTMLBodyElementK o) => o -> T.Text -> m () -setDOMHTMLBodyElementBackground obj val = liftIO $ setObjectPropertyString obj "background" val +setDOMHTMLBodyElementBackground obj val = liftIO $ setObjectPropertyString obj "background" (Just val) constructDOMHTMLBodyElementBackground :: T.Text -> IO ([Char], GValue) -constructDOMHTMLBodyElementBackground val = constructObjectPropertyString "background" val +constructDOMHTMLBodyElementBackground val = constructObjectPropertyString "background" (Just val) data DOMHTMLBodyElementBackgroundPropertyInfo instance AttrInfo DOMHTMLBodyElementBackgroundPropertyInfo where type AttrAllowedOps DOMHTMLBodyElementBackgroundPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint DOMHTMLBodyElementBackgroundPropertyInfo = (~) T.Text type AttrBaseTypeConstraint DOMHTMLBodyElementBackgroundPropertyInfo = DOMHTMLBodyElementK - type AttrGetType DOMHTMLBodyElementBackgroundPropertyInfo = T.Text + type AttrGetType DOMHTMLBodyElementBackgroundPropertyInfo = (Maybe T.Text) type AttrLabel DOMHTMLBodyElementBackgroundPropertyInfo = "background" attrGet _ = getDOMHTMLBodyElementBackground attrSet _ = setDOMHTMLBodyElementBackground attrConstruct _ = constructDOMHTMLBodyElementBackground + attrClear _ = undefined -- VVV Prop "bg-color" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Just False) -getDOMHTMLBodyElementBgColor :: (MonadIO m, DOMHTMLBodyElementK o) => o -> m T.Text +getDOMHTMLBodyElementBgColor :: (MonadIO m, DOMHTMLBodyElementK o) => o -> m (Maybe T.Text) getDOMHTMLBodyElementBgColor obj = liftIO $ getObjectPropertyString obj "bg-color" setDOMHTMLBodyElementBgColor :: (MonadIO m, DOMHTMLBodyElementK o) => o -> T.Text -> m () -setDOMHTMLBodyElementBgColor obj val = liftIO $ setObjectPropertyString obj "bg-color" val +setDOMHTMLBodyElementBgColor obj val = liftIO $ setObjectPropertyString obj "bg-color" (Just val) constructDOMHTMLBodyElementBgColor :: T.Text -> IO ([Char], GValue) -constructDOMHTMLBodyElementBgColor val = constructObjectPropertyString "bg-color" val +constructDOMHTMLBodyElementBgColor val = constructObjectPropertyString "bg-color" (Just val) data DOMHTMLBodyElementBgColorPropertyInfo instance AttrInfo DOMHTMLBodyElementBgColorPropertyInfo where type AttrAllowedOps DOMHTMLBodyElementBgColorPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint DOMHTMLBodyElementBgColorPropertyInfo = (~) T.Text type AttrBaseTypeConstraint DOMHTMLBodyElementBgColorPropertyInfo = DOMHTMLBodyElementK - type AttrGetType DOMHTMLBodyElementBgColorPropertyInfo = T.Text + type AttrGetType DOMHTMLBodyElementBgColorPropertyInfo = (Maybe T.Text) type AttrLabel DOMHTMLBodyElementBgColorPropertyInfo = "bg-color" attrGet _ = getDOMHTMLBodyElementBgColor attrSet _ = setDOMHTMLBodyElementBgColor attrConstruct _ = constructDOMHTMLBodyElementBgColor + attrClear _ = undefined -- VVV Prop "link" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Just False) -getDOMHTMLBodyElementLink :: (MonadIO m, DOMHTMLBodyElementK o) => o -> m T.Text +getDOMHTMLBodyElementLink :: (MonadIO m, DOMHTMLBodyElementK o) => o -> m (Maybe T.Text) getDOMHTMLBodyElementLink obj = liftIO $ getObjectPropertyString obj "link" setDOMHTMLBodyElementLink :: (MonadIO m, DOMHTMLBodyElementK o) => o -> T.Text -> m () -setDOMHTMLBodyElementLink obj val = liftIO $ setObjectPropertyString obj "link" val +setDOMHTMLBodyElementLink obj val = liftIO $ setObjectPropertyString obj "link" (Just val) constructDOMHTMLBodyElementLink :: T.Text -> IO ([Char], GValue) -constructDOMHTMLBodyElementLink val = constructObjectPropertyString "link" val +constructDOMHTMLBodyElementLink val = constructObjectPropertyString "link" (Just val) data DOMHTMLBodyElementLinkPropertyInfo instance AttrInfo DOMHTMLBodyElementLinkPropertyInfo where type AttrAllowedOps DOMHTMLBodyElementLinkPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint DOMHTMLBodyElementLinkPropertyInfo = (~) T.Text type AttrBaseTypeConstraint DOMHTMLBodyElementLinkPropertyInfo = DOMHTMLBodyElementK - type AttrGetType DOMHTMLBodyElementLinkPropertyInfo = T.Text + type AttrGetType DOMHTMLBodyElementLinkPropertyInfo = (Maybe T.Text) type AttrLabel DOMHTMLBodyElementLinkPropertyInfo = "link" attrGet _ = getDOMHTMLBodyElementLink attrSet _ = setDOMHTMLBodyElementLink attrConstruct _ = constructDOMHTMLBodyElementLink + attrClear _ = undefined -- VVV Prop "text" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Just False) -getDOMHTMLBodyElementText :: (MonadIO m, DOMHTMLBodyElementK o) => o -> m T.Text +getDOMHTMLBodyElementText :: (MonadIO m, DOMHTMLBodyElementK o) => o -> m (Maybe T.Text) getDOMHTMLBodyElementText obj = liftIO $ getObjectPropertyString obj "text" setDOMHTMLBodyElementText :: (MonadIO m, DOMHTMLBodyElementK o) => o -> T.Text -> m () -setDOMHTMLBodyElementText obj val = liftIO $ setObjectPropertyString obj "text" val +setDOMHTMLBodyElementText obj val = liftIO $ setObjectPropertyString obj "text" (Just val) constructDOMHTMLBodyElementText :: T.Text -> IO ([Char], GValue) -constructDOMHTMLBodyElementText val = constructObjectPropertyString "text" val +constructDOMHTMLBodyElementText val = constructObjectPropertyString "text" (Just val) data DOMHTMLBodyElementTextPropertyInfo instance AttrInfo DOMHTMLBodyElementTextPropertyInfo where type AttrAllowedOps DOMHTMLBodyElementTextPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint DOMHTMLBodyElementTextPropertyInfo = (~) T.Text type AttrBaseTypeConstraint DOMHTMLBodyElementTextPropertyInfo = DOMHTMLBodyElementK - type AttrGetType DOMHTMLBodyElementTextPropertyInfo = T.Text + type AttrGetType DOMHTMLBodyElementTextPropertyInfo = (Maybe T.Text) type AttrLabel DOMHTMLBodyElementTextPropertyInfo = "text" attrGet _ = getDOMHTMLBodyElementText attrSet _ = setDOMHTMLBodyElementText attrConstruct _ = constructDOMHTMLBodyElementText + attrClear _ = undefined -- VVV Prop "v-link" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Just False) -getDOMHTMLBodyElementVLink :: (MonadIO m, DOMHTMLBodyElementK o) => o -> m T.Text +getDOMHTMLBodyElementVLink :: (MonadIO m, DOMHTMLBodyElementK o) => o -> m (Maybe T.Text) getDOMHTMLBodyElementVLink obj = liftIO $ getObjectPropertyString obj "v-link" setDOMHTMLBodyElementVLink :: (MonadIO m, DOMHTMLBodyElementK o) => o -> T.Text -> m () -setDOMHTMLBodyElementVLink obj val = liftIO $ setObjectPropertyString obj "v-link" val +setDOMHTMLBodyElementVLink obj val = liftIO $ setObjectPropertyString obj "v-link" (Just val) constructDOMHTMLBodyElementVLink :: T.Text -> IO ([Char], GValue) -constructDOMHTMLBodyElementVLink val = constructObjectPropertyString "v-link" val +constructDOMHTMLBodyElementVLink val = constructObjectPropertyString "v-link" (Just val) data DOMHTMLBodyElementVLinkPropertyInfo instance AttrInfo DOMHTMLBodyElementVLinkPropertyInfo where type AttrAllowedOps DOMHTMLBodyElementVLinkPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint DOMHTMLBodyElementVLinkPropertyInfo = (~) T.Text type AttrBaseTypeConstraint DOMHTMLBodyElementVLinkPropertyInfo = DOMHTMLBodyElementK - type AttrGetType DOMHTMLBodyElementVLinkPropertyInfo = T.Text + type AttrGetType DOMHTMLBodyElementVLinkPropertyInfo = (Maybe T.Text) type AttrLabel DOMHTMLBodyElementVLinkPropertyInfo = "v-link" attrGet _ = getDOMHTMLBodyElementVLink attrSet _ = setDOMHTMLBodyElementVLink attrConstruct _ = constructDOMHTMLBodyElementVLink + attrClear _ = undefined type instance AttributeList DOMHTMLBodyElement = DOMHTMLBodyElementAttributeList type DOMHTMLBodyElementAttributeList = ('[ '("aLink", DOMHTMLBodyElementALinkPropertyInfo), '("accessKey", DOMHTMLElementAccessKeyPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("background", DOMHTMLBodyElementBackgroundPropertyInfo), '("baseUri", DOMNodeBaseUriPropertyInfo), '("bgColor", DOMHTMLBodyElementBgColorPropertyInfo), '("childElementCount", DOMElementChildElementCountPropertyInfo), '("childNodes", DOMNodeChildNodesPropertyInfo), '("children", DOMHTMLElementChildrenPropertyInfo), '("classList", DOMElementClassListPropertyInfo), '("className", DOMElementClassNamePropertyInfo), '("clientHeight", DOMElementClientHeightPropertyInfo), '("clientLeft", DOMElementClientLeftPropertyInfo), '("clientTop", DOMElementClientTopPropertyInfo), '("clientWidth", DOMElementClientWidthPropertyInfo), '("contentEditable", DOMHTMLElementContentEditablePropertyInfo), '("coreObject", DOMObjectCoreObjectPropertyInfo), '("dir", DOMHTMLElementDirPropertyInfo), '("draggable", DOMHTMLElementDraggablePropertyInfo), '("firstChild", DOMNodeFirstChildPropertyInfo), '("firstElementChild", DOMElementFirstElementChildPropertyInfo), '("hidden", DOMHTMLElementHiddenPropertyInfo), '("id", DOMElementIdPropertyInfo), '("innerHtml", DOMHTMLElementInnerHtmlPropertyInfo), '("innerText", DOMHTMLElementInnerTextPropertyInfo), '("isContentEditable", DOMHTMLElementIsContentEditablePropertyInfo), '("lang", DOMHTMLElementLangPropertyInfo), '("lastChild", DOMNodeLastChildPropertyInfo), '("lastElementChild", DOMElementLastElementChildPropertyInfo), '("link", DOMHTMLBodyElementLinkPropertyInfo), '("localName", DOMNodeLocalNamePropertyInfo), '("namespaceUri", DOMNodeNamespaceUriPropertyInfo), '("nextElementSibling", DOMElementNextElementSiblingPropertyInfo), '("nextSibling", DOMNodeNextSiblingPropertyInfo), '("nodeName", DOMNodeNodeNamePropertyInfo), '("nodeType", DOMNodeNodeTypePropertyInfo), '("nodeValue", DOMNodeNodeValuePropertyInfo), '("offsetHeight", DOMElementOffsetHeightPropertyInfo), '("offsetLeft", DOMElementOffsetLeftPropertyInfo), '("offsetParent", DOMElementOffsetParentPropertyInfo), '("offsetTop", DOMElementOffsetTopPropertyInfo), '("offsetWidth", DOMElementOffsetWidthPropertyInfo), '("outerHtml", DOMHTMLElementOuterHtmlPropertyInfo), '("outerText", DOMHTMLElementOuterTextPropertyInfo), '("ownerDocument", DOMNodeOwnerDocumentPropertyInfo), '("parentElement", DOMNodeParentElementPropertyInfo), '("parentNode", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previousElementSibling", DOMElementPreviousElementSiblingPropertyInfo), '("previousSibling", DOMNodePreviousSiblingPropertyInfo), '("scrollHeight", DOMElementScrollHeightPropertyInfo), '("scrollLeft", DOMElementScrollLeftPropertyInfo), '("scrollTop", DOMElementScrollTopPropertyInfo), '("scrollWidth", DOMElementScrollWidthPropertyInfo), '("spellcheck", DOMHTMLElementSpellcheckPropertyInfo), '("style", DOMElementStylePropertyInfo), '("tabIndex", DOMHTMLElementTabIndexPropertyInfo), '("tagName", DOMElementTagNamePropertyInfo), '("text", DOMHTMLBodyElementTextPropertyInfo), '("textContent", DOMNodeTextContentPropertyInfo), '("title", DOMHTMLElementTitlePropertyInfo), '("translate", DOMHTMLElementTranslatePropertyInfo), '("vLink", DOMHTMLBodyElementVLinkPropertyInfo), '("webkitRegionOverset", DOMElementWebkitRegionOversetPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo)] :: [(Symbol, *)]) +dOMHTMLBodyElementALink :: AttrLabelProxy "aLink" +dOMHTMLBodyElementALink = AttrLabelProxy + +dOMHTMLBodyElementBackground :: AttrLabelProxy "background" +dOMHTMLBodyElementBackground = AttrLabelProxy + +dOMHTMLBodyElementBgColor :: AttrLabelProxy "bgColor" +dOMHTMLBodyElementBgColor = AttrLabelProxy + +dOMHTMLBodyElementLink :: AttrLabelProxy "link" +dOMHTMLBodyElementLink = AttrLabelProxy + +dOMHTMLBodyElementText :: AttrLabelProxy "text" +dOMHTMLBodyElementText = AttrLabelProxy + +dOMHTMLBodyElementVLink :: AttrLabelProxy "vLink" +dOMHTMLBodyElementVLink = AttrLabelProxy + type instance SignalList DOMHTMLBodyElement = DOMHTMLBodyElementSignalList type DOMHTMLBodyElementSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) @@ -489,7 +525,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLBodyElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -519,7 +555,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLBodyElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -549,7 +585,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLBodyElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -579,7 +615,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLBodyElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -609,7 +645,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLBodyElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -639,7 +675,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLBodyElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -669,7 +705,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLBodyElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -700,7 +736,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLBodyElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -731,7 +767,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLBodyElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -762,7 +798,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLBodyElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -793,7 +829,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLBodyElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -824,7 +860,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLBodyElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False diff --git a/GI/WebKit/Objects/DOMHTMLBodyElement.hs-boot b/GI/WebKit/Objects/DOMHTMLBodyElement.hs-boot --- a/GI/WebKit/Objects/DOMHTMLBodyElement.hs-boot +++ b/GI/WebKit/Objects/DOMHTMLBodyElement.hs-boot @@ -1,8 +1,8 @@ module GI.WebKit.Objects.DOMHTMLBodyElement where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map diff --git a/GI/WebKit/Objects/DOMHTMLButtonElement.hs b/GI/WebKit/Objects/DOMHTMLButtonElement.hs --- a/GI/WebKit/Objects/DOMHTMLButtonElement.hs +++ b/GI/WebKit/Objects/DOMHTMLButtonElement.hs @@ -148,6 +148,7 @@ -- ** Autofocus DOMHTMLButtonElementAutofocusPropertyInfo, constructDOMHTMLButtonElementAutofocus , + dOMHTMLButtonElementAutofocus , getDOMHTMLButtonElementAutofocus , setDOMHTMLButtonElementAutofocus , @@ -155,18 +156,21 @@ -- ** Disabled DOMHTMLButtonElementDisabledPropertyInfo, constructDOMHTMLButtonElementDisabled , + dOMHTMLButtonElementDisabled , getDOMHTMLButtonElementDisabled , setDOMHTMLButtonElementDisabled , -- ** Form DOMHTMLButtonElementFormPropertyInfo , + dOMHTMLButtonElementForm , getDOMHTMLButtonElementForm , -- ** FormAction DOMHTMLButtonElementFormActionPropertyInfo, constructDOMHTMLButtonElementFormAction , + dOMHTMLButtonElementFormAction , getDOMHTMLButtonElementFormAction , setDOMHTMLButtonElementFormAction , @@ -174,6 +178,7 @@ -- ** FormEnctype DOMHTMLButtonElementFormEnctypePropertyInfo, constructDOMHTMLButtonElementFormEnctype, + dOMHTMLButtonElementFormEnctype , getDOMHTMLButtonElementFormEnctype , setDOMHTMLButtonElementFormEnctype , @@ -181,6 +186,7 @@ -- ** FormMethod DOMHTMLButtonElementFormMethodPropertyInfo, constructDOMHTMLButtonElementFormMethod , + dOMHTMLButtonElementFormMethod , getDOMHTMLButtonElementFormMethod , setDOMHTMLButtonElementFormMethod , @@ -188,6 +194,7 @@ -- ** FormNoValidate DOMHTMLButtonElementFormNoValidatePropertyInfo, constructDOMHTMLButtonElementFormNoValidate, + dOMHTMLButtonElementFormNoValidate , getDOMHTMLButtonElementFormNoValidate , setDOMHTMLButtonElementFormNoValidate , @@ -195,48 +202,57 @@ -- ** FormTarget DOMHTMLButtonElementFormTargetPropertyInfo, constructDOMHTMLButtonElementFormTarget , + dOMHTMLButtonElementFormTarget , getDOMHTMLButtonElementFormTarget , setDOMHTMLButtonElementFormTarget , -- ** Labels DOMHTMLButtonElementLabelsPropertyInfo , + dOMHTMLButtonElementLabels , getDOMHTMLButtonElementLabels , -- ** Name DOMHTMLButtonElementNamePropertyInfo , constructDOMHTMLButtonElementName , + dOMHTMLButtonElementName , getDOMHTMLButtonElementName , setDOMHTMLButtonElementName , -- ** Type DOMHTMLButtonElementTypePropertyInfo , + clearDOMHTMLButtonElementType , constructDOMHTMLButtonElementType , + dOMHTMLButtonElementType , getDOMHTMLButtonElementType , setDOMHTMLButtonElementType , -- ** ValidationMessage DOMHTMLButtonElementValidationMessagePropertyInfo, + dOMHTMLButtonElementValidationMessage , getDOMHTMLButtonElementValidationMessage, -- ** Validity DOMHTMLButtonElementValidityPropertyInfo, + dOMHTMLButtonElementValidity , getDOMHTMLButtonElementValidity , -- ** Value DOMHTMLButtonElementValuePropertyInfo , constructDOMHTMLButtonElementValue , + dOMHTMLButtonElementValue , getDOMHTMLButtonElementValue , setDOMHTMLButtonElementValue , -- ** WillValidate DOMHTMLButtonElementWillValidatePropertyInfo, + dOMHTMLButtonElementWillValidate , getDOMHTMLButtonElementWillValidate , @@ -244,9 +260,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map @@ -469,6 +485,7 @@ -- VVV Prop "autofocus" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getDOMHTMLButtonElementAutofocus :: (MonadIO m, DOMHTMLButtonElementK o) => o -> m Bool getDOMHTMLButtonElementAutofocus obj = liftIO $ getObjectPropertyBool obj "autofocus" @@ -489,10 +506,12 @@ attrGet _ = getDOMHTMLButtonElementAutofocus attrSet _ = setDOMHTMLButtonElementAutofocus attrConstruct _ = constructDOMHTMLButtonElementAutofocus + attrClear _ = undefined -- VVV Prop "disabled" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getDOMHTMLButtonElementDisabled :: (MonadIO m, DOMHTMLButtonElementK o) => o -> m Bool getDOMHTMLButtonElementDisabled obj = liftIO $ getObjectPropertyBool obj "disabled" @@ -513,17 +532,19 @@ attrGet _ = getDOMHTMLButtonElementDisabled attrSet _ = setDOMHTMLButtonElementDisabled attrConstruct _ = constructDOMHTMLButtonElementDisabled + attrClear _ = undefined -- VVV Prop "form" -- Type: TInterface "WebKit" "DOMHTMLFormElement" -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) getDOMHTMLButtonElementForm :: (MonadIO m, DOMHTMLButtonElementK o) => o -> m DOMHTMLFormElement -getDOMHTMLButtonElementForm obj = liftIO $ getObjectPropertyObject obj "form" DOMHTMLFormElement +getDOMHTMLButtonElementForm obj = liftIO $ checkUnexpectedNothing "getDOMHTMLButtonElementForm" $ getObjectPropertyObject obj "form" DOMHTMLFormElement data DOMHTMLButtonElementFormPropertyInfo instance AttrInfo DOMHTMLButtonElementFormPropertyInfo where - type AttrAllowedOps DOMHTMLButtonElementFormPropertyInfo = '[ 'AttrGet] + type AttrAllowedOps DOMHTMLButtonElementFormPropertyInfo = '[ 'AttrGet, 'AttrClear] type AttrSetTypeConstraint DOMHTMLButtonElementFormPropertyInfo = (~) () type AttrBaseTypeConstraint DOMHTMLButtonElementFormPropertyInfo = DOMHTMLButtonElementK type AttrGetType DOMHTMLButtonElementFormPropertyInfo = DOMHTMLFormElement @@ -531,82 +552,90 @@ attrGet _ = getDOMHTMLButtonElementForm attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "form-action" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Just False) -getDOMHTMLButtonElementFormAction :: (MonadIO m, DOMHTMLButtonElementK o) => o -> m T.Text +getDOMHTMLButtonElementFormAction :: (MonadIO m, DOMHTMLButtonElementK o) => o -> m (Maybe T.Text) getDOMHTMLButtonElementFormAction obj = liftIO $ getObjectPropertyString obj "form-action" setDOMHTMLButtonElementFormAction :: (MonadIO m, DOMHTMLButtonElementK o) => o -> T.Text -> m () -setDOMHTMLButtonElementFormAction obj val = liftIO $ setObjectPropertyString obj "form-action" val +setDOMHTMLButtonElementFormAction obj val = liftIO $ setObjectPropertyString obj "form-action" (Just val) constructDOMHTMLButtonElementFormAction :: T.Text -> IO ([Char], GValue) -constructDOMHTMLButtonElementFormAction val = constructObjectPropertyString "form-action" val +constructDOMHTMLButtonElementFormAction val = constructObjectPropertyString "form-action" (Just val) data DOMHTMLButtonElementFormActionPropertyInfo instance AttrInfo DOMHTMLButtonElementFormActionPropertyInfo where type AttrAllowedOps DOMHTMLButtonElementFormActionPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint DOMHTMLButtonElementFormActionPropertyInfo = (~) T.Text type AttrBaseTypeConstraint DOMHTMLButtonElementFormActionPropertyInfo = DOMHTMLButtonElementK - type AttrGetType DOMHTMLButtonElementFormActionPropertyInfo = T.Text + type AttrGetType DOMHTMLButtonElementFormActionPropertyInfo = (Maybe T.Text) type AttrLabel DOMHTMLButtonElementFormActionPropertyInfo = "form-action" attrGet _ = getDOMHTMLButtonElementFormAction attrSet _ = setDOMHTMLButtonElementFormAction attrConstruct _ = constructDOMHTMLButtonElementFormAction + attrClear _ = undefined -- VVV Prop "form-enctype" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Just False) -getDOMHTMLButtonElementFormEnctype :: (MonadIO m, DOMHTMLButtonElementK o) => o -> m T.Text +getDOMHTMLButtonElementFormEnctype :: (MonadIO m, DOMHTMLButtonElementK o) => o -> m (Maybe T.Text) getDOMHTMLButtonElementFormEnctype obj = liftIO $ getObjectPropertyString obj "form-enctype" setDOMHTMLButtonElementFormEnctype :: (MonadIO m, DOMHTMLButtonElementK o) => o -> T.Text -> m () -setDOMHTMLButtonElementFormEnctype obj val = liftIO $ setObjectPropertyString obj "form-enctype" val +setDOMHTMLButtonElementFormEnctype obj val = liftIO $ setObjectPropertyString obj "form-enctype" (Just val) constructDOMHTMLButtonElementFormEnctype :: T.Text -> IO ([Char], GValue) -constructDOMHTMLButtonElementFormEnctype val = constructObjectPropertyString "form-enctype" val +constructDOMHTMLButtonElementFormEnctype val = constructObjectPropertyString "form-enctype" (Just val) data DOMHTMLButtonElementFormEnctypePropertyInfo instance AttrInfo DOMHTMLButtonElementFormEnctypePropertyInfo where type AttrAllowedOps DOMHTMLButtonElementFormEnctypePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint DOMHTMLButtonElementFormEnctypePropertyInfo = (~) T.Text type AttrBaseTypeConstraint DOMHTMLButtonElementFormEnctypePropertyInfo = DOMHTMLButtonElementK - type AttrGetType DOMHTMLButtonElementFormEnctypePropertyInfo = T.Text + type AttrGetType DOMHTMLButtonElementFormEnctypePropertyInfo = (Maybe T.Text) type AttrLabel DOMHTMLButtonElementFormEnctypePropertyInfo = "form-enctype" attrGet _ = getDOMHTMLButtonElementFormEnctype attrSet _ = setDOMHTMLButtonElementFormEnctype attrConstruct _ = constructDOMHTMLButtonElementFormEnctype + attrClear _ = undefined -- VVV Prop "form-method" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Just False) -getDOMHTMLButtonElementFormMethod :: (MonadIO m, DOMHTMLButtonElementK o) => o -> m T.Text +getDOMHTMLButtonElementFormMethod :: (MonadIO m, DOMHTMLButtonElementK o) => o -> m (Maybe T.Text) getDOMHTMLButtonElementFormMethod obj = liftIO $ getObjectPropertyString obj "form-method" setDOMHTMLButtonElementFormMethod :: (MonadIO m, DOMHTMLButtonElementK o) => o -> T.Text -> m () -setDOMHTMLButtonElementFormMethod obj val = liftIO $ setObjectPropertyString obj "form-method" val +setDOMHTMLButtonElementFormMethod obj val = liftIO $ setObjectPropertyString obj "form-method" (Just val) constructDOMHTMLButtonElementFormMethod :: T.Text -> IO ([Char], GValue) -constructDOMHTMLButtonElementFormMethod val = constructObjectPropertyString "form-method" val +constructDOMHTMLButtonElementFormMethod val = constructObjectPropertyString "form-method" (Just val) data DOMHTMLButtonElementFormMethodPropertyInfo instance AttrInfo DOMHTMLButtonElementFormMethodPropertyInfo where type AttrAllowedOps DOMHTMLButtonElementFormMethodPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint DOMHTMLButtonElementFormMethodPropertyInfo = (~) T.Text type AttrBaseTypeConstraint DOMHTMLButtonElementFormMethodPropertyInfo = DOMHTMLButtonElementK - type AttrGetType DOMHTMLButtonElementFormMethodPropertyInfo = T.Text + type AttrGetType DOMHTMLButtonElementFormMethodPropertyInfo = (Maybe T.Text) type AttrLabel DOMHTMLButtonElementFormMethodPropertyInfo = "form-method" attrGet _ = getDOMHTMLButtonElementFormMethod attrSet _ = setDOMHTMLButtonElementFormMethod attrConstruct _ = constructDOMHTMLButtonElementFormMethod + attrClear _ = undefined -- VVV Prop "form-no-validate" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getDOMHTMLButtonElementFormNoValidate :: (MonadIO m, DOMHTMLButtonElementK o) => o -> m Bool getDOMHTMLButtonElementFormNoValidate obj = liftIO $ getObjectPropertyBool obj "form-no-validate" @@ -627,160 +656,179 @@ attrGet _ = getDOMHTMLButtonElementFormNoValidate attrSet _ = setDOMHTMLButtonElementFormNoValidate attrConstruct _ = constructDOMHTMLButtonElementFormNoValidate + attrClear _ = undefined -- VVV Prop "form-target" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Just False) -getDOMHTMLButtonElementFormTarget :: (MonadIO m, DOMHTMLButtonElementK o) => o -> m T.Text +getDOMHTMLButtonElementFormTarget :: (MonadIO m, DOMHTMLButtonElementK o) => o -> m (Maybe T.Text) getDOMHTMLButtonElementFormTarget obj = liftIO $ getObjectPropertyString obj "form-target" setDOMHTMLButtonElementFormTarget :: (MonadIO m, DOMHTMLButtonElementK o) => o -> T.Text -> m () -setDOMHTMLButtonElementFormTarget obj val = liftIO $ setObjectPropertyString obj "form-target" val +setDOMHTMLButtonElementFormTarget obj val = liftIO $ setObjectPropertyString obj "form-target" (Just val) constructDOMHTMLButtonElementFormTarget :: T.Text -> IO ([Char], GValue) -constructDOMHTMLButtonElementFormTarget val = constructObjectPropertyString "form-target" val +constructDOMHTMLButtonElementFormTarget val = constructObjectPropertyString "form-target" (Just val) data DOMHTMLButtonElementFormTargetPropertyInfo instance AttrInfo DOMHTMLButtonElementFormTargetPropertyInfo where type AttrAllowedOps DOMHTMLButtonElementFormTargetPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint DOMHTMLButtonElementFormTargetPropertyInfo = (~) T.Text type AttrBaseTypeConstraint DOMHTMLButtonElementFormTargetPropertyInfo = DOMHTMLButtonElementK - type AttrGetType DOMHTMLButtonElementFormTargetPropertyInfo = T.Text + type AttrGetType DOMHTMLButtonElementFormTargetPropertyInfo = (Maybe T.Text) type AttrLabel DOMHTMLButtonElementFormTargetPropertyInfo = "form-target" attrGet _ = getDOMHTMLButtonElementFormTarget attrSet _ = setDOMHTMLButtonElementFormTarget attrConstruct _ = constructDOMHTMLButtonElementFormTarget + attrClear _ = undefined -- VVV Prop "labels" -- Type: TInterface "WebKit" "DOMNodeList" -- Flags: [PropertyReadable] + -- Nullable: (Nothing,Nothing) -getDOMHTMLButtonElementLabels :: (MonadIO m, DOMHTMLButtonElementK o) => o -> m DOMNodeList +getDOMHTMLButtonElementLabels :: (MonadIO m, DOMHTMLButtonElementK o) => o -> m (Maybe DOMNodeList) getDOMHTMLButtonElementLabels obj = liftIO $ getObjectPropertyObject obj "labels" DOMNodeList data DOMHTMLButtonElementLabelsPropertyInfo instance AttrInfo DOMHTMLButtonElementLabelsPropertyInfo where - type AttrAllowedOps DOMHTMLButtonElementLabelsPropertyInfo = '[ 'AttrGet] + type AttrAllowedOps DOMHTMLButtonElementLabelsPropertyInfo = '[ 'AttrGet, 'AttrClear] type AttrSetTypeConstraint DOMHTMLButtonElementLabelsPropertyInfo = (~) () type AttrBaseTypeConstraint DOMHTMLButtonElementLabelsPropertyInfo = DOMHTMLButtonElementK - type AttrGetType DOMHTMLButtonElementLabelsPropertyInfo = DOMNodeList + type AttrGetType DOMHTMLButtonElementLabelsPropertyInfo = (Maybe DOMNodeList) type AttrLabel DOMHTMLButtonElementLabelsPropertyInfo = "labels" attrGet _ = getDOMHTMLButtonElementLabels attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "name" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Just False) -getDOMHTMLButtonElementName :: (MonadIO m, DOMHTMLButtonElementK o) => o -> m T.Text +getDOMHTMLButtonElementName :: (MonadIO m, DOMHTMLButtonElementK o) => o -> m (Maybe T.Text) getDOMHTMLButtonElementName obj = liftIO $ getObjectPropertyString obj "name" setDOMHTMLButtonElementName :: (MonadIO m, DOMHTMLButtonElementK o) => o -> T.Text -> m () -setDOMHTMLButtonElementName obj val = liftIO $ setObjectPropertyString obj "name" val +setDOMHTMLButtonElementName obj val = liftIO $ setObjectPropertyString obj "name" (Just val) constructDOMHTMLButtonElementName :: T.Text -> IO ([Char], GValue) -constructDOMHTMLButtonElementName val = constructObjectPropertyString "name" val +constructDOMHTMLButtonElementName val = constructObjectPropertyString "name" (Just val) data DOMHTMLButtonElementNamePropertyInfo instance AttrInfo DOMHTMLButtonElementNamePropertyInfo where type AttrAllowedOps DOMHTMLButtonElementNamePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint DOMHTMLButtonElementNamePropertyInfo = (~) T.Text type AttrBaseTypeConstraint DOMHTMLButtonElementNamePropertyInfo = DOMHTMLButtonElementK - type AttrGetType DOMHTMLButtonElementNamePropertyInfo = T.Text + type AttrGetType DOMHTMLButtonElementNamePropertyInfo = (Maybe T.Text) type AttrLabel DOMHTMLButtonElementNamePropertyInfo = "name" attrGet _ = getDOMHTMLButtonElementName attrSet _ = setDOMHTMLButtonElementName attrConstruct _ = constructDOMHTMLButtonElementName + attrClear _ = undefined -- VVV Prop "type" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) -getDOMHTMLButtonElementType :: (MonadIO m, DOMHTMLButtonElementK o) => o -> m T.Text +getDOMHTMLButtonElementType :: (MonadIO m, DOMHTMLButtonElementK o) => o -> m (Maybe T.Text) getDOMHTMLButtonElementType obj = liftIO $ getObjectPropertyString obj "type" setDOMHTMLButtonElementType :: (MonadIO m, DOMHTMLButtonElementK o) => o -> T.Text -> m () -setDOMHTMLButtonElementType obj val = liftIO $ setObjectPropertyString obj "type" val +setDOMHTMLButtonElementType obj val = liftIO $ setObjectPropertyString obj "type" (Just val) constructDOMHTMLButtonElementType :: T.Text -> IO ([Char], GValue) -constructDOMHTMLButtonElementType val = constructObjectPropertyString "type" val +constructDOMHTMLButtonElementType val = constructObjectPropertyString "type" (Just val) +clearDOMHTMLButtonElementType :: (MonadIO m, DOMHTMLButtonElementK o) => o -> m () +clearDOMHTMLButtonElementType obj = liftIO $ setObjectPropertyString obj "type" (Nothing :: Maybe T.Text) + data DOMHTMLButtonElementTypePropertyInfo instance AttrInfo DOMHTMLButtonElementTypePropertyInfo where - type AttrAllowedOps DOMHTMLButtonElementTypePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrAllowedOps DOMHTMLButtonElementTypePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint DOMHTMLButtonElementTypePropertyInfo = (~) T.Text type AttrBaseTypeConstraint DOMHTMLButtonElementTypePropertyInfo = DOMHTMLButtonElementK - type AttrGetType DOMHTMLButtonElementTypePropertyInfo = T.Text + type AttrGetType DOMHTMLButtonElementTypePropertyInfo = (Maybe T.Text) type AttrLabel DOMHTMLButtonElementTypePropertyInfo = "type" attrGet _ = getDOMHTMLButtonElementType attrSet _ = setDOMHTMLButtonElementType attrConstruct _ = constructDOMHTMLButtonElementType + attrClear _ = clearDOMHTMLButtonElementType -- VVV Prop "validation-message" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable] + -- Nullable: (Nothing,Nothing) -getDOMHTMLButtonElementValidationMessage :: (MonadIO m, DOMHTMLButtonElementK o) => o -> m T.Text +getDOMHTMLButtonElementValidationMessage :: (MonadIO m, DOMHTMLButtonElementK o) => o -> m (Maybe T.Text) getDOMHTMLButtonElementValidationMessage obj = liftIO $ getObjectPropertyString obj "validation-message" data DOMHTMLButtonElementValidationMessagePropertyInfo instance AttrInfo DOMHTMLButtonElementValidationMessagePropertyInfo where - type AttrAllowedOps DOMHTMLButtonElementValidationMessagePropertyInfo = '[ 'AttrGet] + type AttrAllowedOps DOMHTMLButtonElementValidationMessagePropertyInfo = '[ 'AttrGet, 'AttrClear] type AttrSetTypeConstraint DOMHTMLButtonElementValidationMessagePropertyInfo = (~) () type AttrBaseTypeConstraint DOMHTMLButtonElementValidationMessagePropertyInfo = DOMHTMLButtonElementK - type AttrGetType DOMHTMLButtonElementValidationMessagePropertyInfo = T.Text + type AttrGetType DOMHTMLButtonElementValidationMessagePropertyInfo = (Maybe T.Text) type AttrLabel DOMHTMLButtonElementValidationMessagePropertyInfo = "validation-message" attrGet _ = getDOMHTMLButtonElementValidationMessage attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "validity" -- Type: TInterface "WebKit" "DOMValidityState" -- Flags: [PropertyReadable] + -- Nullable: (Nothing,Nothing) -getDOMHTMLButtonElementValidity :: (MonadIO m, DOMHTMLButtonElementK o) => o -> m DOMValidityState +getDOMHTMLButtonElementValidity :: (MonadIO m, DOMHTMLButtonElementK o) => o -> m (Maybe DOMValidityState) getDOMHTMLButtonElementValidity obj = liftIO $ getObjectPropertyObject obj "validity" DOMValidityState data DOMHTMLButtonElementValidityPropertyInfo instance AttrInfo DOMHTMLButtonElementValidityPropertyInfo where - type AttrAllowedOps DOMHTMLButtonElementValidityPropertyInfo = '[ 'AttrGet] + type AttrAllowedOps DOMHTMLButtonElementValidityPropertyInfo = '[ 'AttrGet, 'AttrClear] type AttrSetTypeConstraint DOMHTMLButtonElementValidityPropertyInfo = (~) () type AttrBaseTypeConstraint DOMHTMLButtonElementValidityPropertyInfo = DOMHTMLButtonElementK - type AttrGetType DOMHTMLButtonElementValidityPropertyInfo = DOMValidityState + type AttrGetType DOMHTMLButtonElementValidityPropertyInfo = (Maybe DOMValidityState) type AttrLabel DOMHTMLButtonElementValidityPropertyInfo = "validity" attrGet _ = getDOMHTMLButtonElementValidity attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "value" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Just False) -getDOMHTMLButtonElementValue :: (MonadIO m, DOMHTMLButtonElementK o) => o -> m T.Text +getDOMHTMLButtonElementValue :: (MonadIO m, DOMHTMLButtonElementK o) => o -> m (Maybe T.Text) getDOMHTMLButtonElementValue obj = liftIO $ getObjectPropertyString obj "value" setDOMHTMLButtonElementValue :: (MonadIO m, DOMHTMLButtonElementK o) => o -> T.Text -> m () -setDOMHTMLButtonElementValue obj val = liftIO $ setObjectPropertyString obj "value" val +setDOMHTMLButtonElementValue obj val = liftIO $ setObjectPropertyString obj "value" (Just val) constructDOMHTMLButtonElementValue :: T.Text -> IO ([Char], GValue) -constructDOMHTMLButtonElementValue val = constructObjectPropertyString "value" val +constructDOMHTMLButtonElementValue val = constructObjectPropertyString "value" (Just val) data DOMHTMLButtonElementValuePropertyInfo instance AttrInfo DOMHTMLButtonElementValuePropertyInfo where type AttrAllowedOps DOMHTMLButtonElementValuePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint DOMHTMLButtonElementValuePropertyInfo = (~) T.Text type AttrBaseTypeConstraint DOMHTMLButtonElementValuePropertyInfo = DOMHTMLButtonElementK - type AttrGetType DOMHTMLButtonElementValuePropertyInfo = T.Text + type AttrGetType DOMHTMLButtonElementValuePropertyInfo = (Maybe T.Text) type AttrLabel DOMHTMLButtonElementValuePropertyInfo = "value" attrGet _ = getDOMHTMLButtonElementValue attrSet _ = setDOMHTMLButtonElementValue attrConstruct _ = constructDOMHTMLButtonElementValue + attrClear _ = undefined -- VVV Prop "will-validate" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) getDOMHTMLButtonElementWillValidate :: (MonadIO m, DOMHTMLButtonElementK o) => o -> m Bool getDOMHTMLButtonElementWillValidate obj = liftIO $ getObjectPropertyBool obj "will-validate" @@ -795,10 +843,56 @@ attrGet _ = getDOMHTMLButtonElementWillValidate attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined type instance AttributeList DOMHTMLButtonElement = DOMHTMLButtonElementAttributeList type DOMHTMLButtonElementAttributeList = ('[ '("accessKey", DOMHTMLElementAccessKeyPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("autofocus", DOMHTMLButtonElementAutofocusPropertyInfo), '("baseUri", DOMNodeBaseUriPropertyInfo), '("childElementCount", DOMElementChildElementCountPropertyInfo), '("childNodes", DOMNodeChildNodesPropertyInfo), '("children", DOMHTMLElementChildrenPropertyInfo), '("classList", DOMElementClassListPropertyInfo), '("className", DOMElementClassNamePropertyInfo), '("clientHeight", DOMElementClientHeightPropertyInfo), '("clientLeft", DOMElementClientLeftPropertyInfo), '("clientTop", DOMElementClientTopPropertyInfo), '("clientWidth", DOMElementClientWidthPropertyInfo), '("contentEditable", DOMHTMLElementContentEditablePropertyInfo), '("coreObject", DOMObjectCoreObjectPropertyInfo), '("dir", DOMHTMLElementDirPropertyInfo), '("disabled", DOMHTMLButtonElementDisabledPropertyInfo), '("draggable", DOMHTMLElementDraggablePropertyInfo), '("firstChild", DOMNodeFirstChildPropertyInfo), '("firstElementChild", DOMElementFirstElementChildPropertyInfo), '("form", DOMHTMLButtonElementFormPropertyInfo), '("formAction", DOMHTMLButtonElementFormActionPropertyInfo), '("formEnctype", DOMHTMLButtonElementFormEnctypePropertyInfo), '("formMethod", DOMHTMLButtonElementFormMethodPropertyInfo), '("formNoValidate", DOMHTMLButtonElementFormNoValidatePropertyInfo), '("formTarget", DOMHTMLButtonElementFormTargetPropertyInfo), '("hidden", DOMHTMLElementHiddenPropertyInfo), '("id", DOMElementIdPropertyInfo), '("innerHtml", DOMHTMLElementInnerHtmlPropertyInfo), '("innerText", DOMHTMLElementInnerTextPropertyInfo), '("isContentEditable", DOMHTMLElementIsContentEditablePropertyInfo), '("labels", DOMHTMLButtonElementLabelsPropertyInfo), '("lang", DOMHTMLElementLangPropertyInfo), '("lastChild", DOMNodeLastChildPropertyInfo), '("lastElementChild", DOMElementLastElementChildPropertyInfo), '("localName", DOMNodeLocalNamePropertyInfo), '("name", DOMHTMLButtonElementNamePropertyInfo), '("namespaceUri", DOMNodeNamespaceUriPropertyInfo), '("nextElementSibling", DOMElementNextElementSiblingPropertyInfo), '("nextSibling", DOMNodeNextSiblingPropertyInfo), '("nodeName", DOMNodeNodeNamePropertyInfo), '("nodeType", DOMNodeNodeTypePropertyInfo), '("nodeValue", DOMNodeNodeValuePropertyInfo), '("offsetHeight", DOMElementOffsetHeightPropertyInfo), '("offsetLeft", DOMElementOffsetLeftPropertyInfo), '("offsetParent", DOMElementOffsetParentPropertyInfo), '("offsetTop", DOMElementOffsetTopPropertyInfo), '("offsetWidth", DOMElementOffsetWidthPropertyInfo), '("outerHtml", DOMHTMLElementOuterHtmlPropertyInfo), '("outerText", DOMHTMLElementOuterTextPropertyInfo), '("ownerDocument", DOMNodeOwnerDocumentPropertyInfo), '("parentElement", DOMNodeParentElementPropertyInfo), '("parentNode", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previousElementSibling", DOMElementPreviousElementSiblingPropertyInfo), '("previousSibling", DOMNodePreviousSiblingPropertyInfo), '("scrollHeight", DOMElementScrollHeightPropertyInfo), '("scrollLeft", DOMElementScrollLeftPropertyInfo), '("scrollTop", DOMElementScrollTopPropertyInfo), '("scrollWidth", DOMElementScrollWidthPropertyInfo), '("spellcheck", DOMHTMLElementSpellcheckPropertyInfo), '("style", DOMElementStylePropertyInfo), '("tabIndex", DOMHTMLElementTabIndexPropertyInfo), '("tagName", DOMElementTagNamePropertyInfo), '("textContent", DOMNodeTextContentPropertyInfo), '("title", DOMHTMLElementTitlePropertyInfo), '("translate", DOMHTMLElementTranslatePropertyInfo), '("type", DOMHTMLButtonElementTypePropertyInfo), '("validationMessage", DOMHTMLButtonElementValidationMessagePropertyInfo), '("validity", DOMHTMLButtonElementValidityPropertyInfo), '("value", DOMHTMLButtonElementValuePropertyInfo), '("webkitRegionOverset", DOMElementWebkitRegionOversetPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo), '("willValidate", DOMHTMLButtonElementWillValidatePropertyInfo)] :: [(Symbol, *)]) +dOMHTMLButtonElementAutofocus :: AttrLabelProxy "autofocus" +dOMHTMLButtonElementAutofocus = AttrLabelProxy + +dOMHTMLButtonElementDisabled :: AttrLabelProxy "disabled" +dOMHTMLButtonElementDisabled = AttrLabelProxy + +dOMHTMLButtonElementForm :: AttrLabelProxy "form" +dOMHTMLButtonElementForm = AttrLabelProxy + +dOMHTMLButtonElementFormAction :: AttrLabelProxy "formAction" +dOMHTMLButtonElementFormAction = AttrLabelProxy + +dOMHTMLButtonElementFormEnctype :: AttrLabelProxy "formEnctype" +dOMHTMLButtonElementFormEnctype = AttrLabelProxy + +dOMHTMLButtonElementFormMethod :: AttrLabelProxy "formMethod" +dOMHTMLButtonElementFormMethod = AttrLabelProxy + +dOMHTMLButtonElementFormNoValidate :: AttrLabelProxy "formNoValidate" +dOMHTMLButtonElementFormNoValidate = AttrLabelProxy + +dOMHTMLButtonElementFormTarget :: AttrLabelProxy "formTarget" +dOMHTMLButtonElementFormTarget = AttrLabelProxy + +dOMHTMLButtonElementLabels :: AttrLabelProxy "labels" +dOMHTMLButtonElementLabels = AttrLabelProxy + +dOMHTMLButtonElementName :: AttrLabelProxy "name" +dOMHTMLButtonElementName = AttrLabelProxy + +dOMHTMLButtonElementType :: AttrLabelProxy "type" +dOMHTMLButtonElementType = AttrLabelProxy + +dOMHTMLButtonElementValidationMessage :: AttrLabelProxy "validationMessage" +dOMHTMLButtonElementValidationMessage = AttrLabelProxy + +dOMHTMLButtonElementValidity :: AttrLabelProxy "validity" +dOMHTMLButtonElementValidity = AttrLabelProxy + +dOMHTMLButtonElementValue :: AttrLabelProxy "value" +dOMHTMLButtonElementValue = AttrLabelProxy + +dOMHTMLButtonElementWillValidate :: AttrLabelProxy "willValidate" +dOMHTMLButtonElementWillValidate = AttrLabelProxy + type instance SignalList DOMHTMLButtonElement = DOMHTMLButtonElementSignalList type DOMHTMLButtonElementSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) @@ -806,7 +900,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLButtonElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -834,7 +928,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLButtonElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -862,7 +956,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLButtonElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -890,7 +984,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLButtonElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit" "DOMHTMLFormElement" +-- returnType : Just (TInterface "WebKit" "DOMHTMLFormElement") -- throws : False -- Skip return : False @@ -919,7 +1013,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLButtonElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -949,7 +1043,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLButtonElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -979,7 +1073,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLButtonElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -1009,7 +1103,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLButtonElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -1037,7 +1131,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLButtonElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -1067,7 +1161,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLButtonElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit" "DOMNodeList" +-- returnType : Just (TInterface "WebKit" "DOMNodeList") -- throws : False -- Skip return : False @@ -1096,7 +1190,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLButtonElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -1126,7 +1220,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLButtonElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -1156,7 +1250,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLButtonElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit" "DOMValidityState" +-- returnType : Just (TInterface "WebKit" "DOMValidityState") -- throws : False -- Skip return : False @@ -1185,7 +1279,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLButtonElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -1215,7 +1309,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLButtonElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -1243,7 +1337,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLButtonElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1273,7 +1367,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLButtonElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "error", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1304,7 +1398,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLButtonElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1334,7 +1428,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLButtonElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1365,7 +1459,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLButtonElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1396,7 +1490,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLButtonElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1427,7 +1521,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLButtonElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1457,7 +1551,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLButtonElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1488,7 +1582,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLButtonElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1519,7 +1613,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLButtonElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False diff --git a/GI/WebKit/Objects/DOMHTMLButtonElement.hs-boot b/GI/WebKit/Objects/DOMHTMLButtonElement.hs-boot --- a/GI/WebKit/Objects/DOMHTMLButtonElement.hs-boot +++ b/GI/WebKit/Objects/DOMHTMLButtonElement.hs-boot @@ -1,8 +1,8 @@ module GI.WebKit.Objects.DOMHTMLButtonElement where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map diff --git a/GI/WebKit/Objects/DOMHTMLCanvasElement.hs b/GI/WebKit/Objects/DOMHTMLCanvasElement.hs --- a/GI/WebKit/Objects/DOMHTMLCanvasElement.hs +++ b/GI/WebKit/Objects/DOMHTMLCanvasElement.hs @@ -43,6 +43,7 @@ -- ** Height DOMHTMLCanvasElementHeightPropertyInfo , constructDOMHTMLCanvasElementHeight , + dOMHTMLCanvasElementHeight , getDOMHTMLCanvasElementHeight , setDOMHTMLCanvasElementHeight , @@ -50,6 +51,7 @@ -- ** Width DOMHTMLCanvasElementWidthPropertyInfo , constructDOMHTMLCanvasElementWidth , + dOMHTMLCanvasElementWidth , getDOMHTMLCanvasElementWidth , setDOMHTMLCanvasElementWidth , @@ -58,9 +60,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map @@ -260,56 +262,66 @@ #endif -- VVV Prop "height" - -- Type: TBasicType TInt64 + -- Type: TBasicType TLong -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) -getDOMHTMLCanvasElementHeight :: (MonadIO m, DOMHTMLCanvasElementK o) => o -> m Int64 -getDOMHTMLCanvasElementHeight obj = liftIO $ getObjectPropertyInt64 obj "height" +getDOMHTMLCanvasElementHeight :: (MonadIO m, DOMHTMLCanvasElementK o) => o -> m CLong +getDOMHTMLCanvasElementHeight obj = liftIO $ getObjectPropertyLong obj "height" -setDOMHTMLCanvasElementHeight :: (MonadIO m, DOMHTMLCanvasElementK o) => o -> Int64 -> m () -setDOMHTMLCanvasElementHeight obj val = liftIO $ setObjectPropertyInt64 obj "height" val +setDOMHTMLCanvasElementHeight :: (MonadIO m, DOMHTMLCanvasElementK o) => o -> CLong -> m () +setDOMHTMLCanvasElementHeight obj val = liftIO $ setObjectPropertyLong obj "height" val -constructDOMHTMLCanvasElementHeight :: Int64 -> IO ([Char], GValue) -constructDOMHTMLCanvasElementHeight val = constructObjectPropertyInt64 "height" val +constructDOMHTMLCanvasElementHeight :: CLong -> IO ([Char], GValue) +constructDOMHTMLCanvasElementHeight val = constructObjectPropertyLong "height" val data DOMHTMLCanvasElementHeightPropertyInfo instance AttrInfo DOMHTMLCanvasElementHeightPropertyInfo where type AttrAllowedOps DOMHTMLCanvasElementHeightPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLCanvasElementHeightPropertyInfo = (~) Int64 + type AttrSetTypeConstraint DOMHTMLCanvasElementHeightPropertyInfo = (~) CLong type AttrBaseTypeConstraint DOMHTMLCanvasElementHeightPropertyInfo = DOMHTMLCanvasElementK - type AttrGetType DOMHTMLCanvasElementHeightPropertyInfo = Int64 + type AttrGetType DOMHTMLCanvasElementHeightPropertyInfo = CLong type AttrLabel DOMHTMLCanvasElementHeightPropertyInfo = "height" attrGet _ = getDOMHTMLCanvasElementHeight attrSet _ = setDOMHTMLCanvasElementHeight attrConstruct _ = constructDOMHTMLCanvasElementHeight + attrClear _ = undefined -- VVV Prop "width" - -- Type: TBasicType TInt64 + -- Type: TBasicType TLong -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) -getDOMHTMLCanvasElementWidth :: (MonadIO m, DOMHTMLCanvasElementK o) => o -> m Int64 -getDOMHTMLCanvasElementWidth obj = liftIO $ getObjectPropertyInt64 obj "width" +getDOMHTMLCanvasElementWidth :: (MonadIO m, DOMHTMLCanvasElementK o) => o -> m CLong +getDOMHTMLCanvasElementWidth obj = liftIO $ getObjectPropertyLong obj "width" -setDOMHTMLCanvasElementWidth :: (MonadIO m, DOMHTMLCanvasElementK o) => o -> Int64 -> m () -setDOMHTMLCanvasElementWidth obj val = liftIO $ setObjectPropertyInt64 obj "width" val +setDOMHTMLCanvasElementWidth :: (MonadIO m, DOMHTMLCanvasElementK o) => o -> CLong -> m () +setDOMHTMLCanvasElementWidth obj val = liftIO $ setObjectPropertyLong obj "width" val -constructDOMHTMLCanvasElementWidth :: Int64 -> IO ([Char], GValue) -constructDOMHTMLCanvasElementWidth val = constructObjectPropertyInt64 "width" val +constructDOMHTMLCanvasElementWidth :: CLong -> IO ([Char], GValue) +constructDOMHTMLCanvasElementWidth val = constructObjectPropertyLong "width" val data DOMHTMLCanvasElementWidthPropertyInfo instance AttrInfo DOMHTMLCanvasElementWidthPropertyInfo where type AttrAllowedOps DOMHTMLCanvasElementWidthPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLCanvasElementWidthPropertyInfo = (~) Int64 + type AttrSetTypeConstraint DOMHTMLCanvasElementWidthPropertyInfo = (~) CLong type AttrBaseTypeConstraint DOMHTMLCanvasElementWidthPropertyInfo = DOMHTMLCanvasElementK - type AttrGetType DOMHTMLCanvasElementWidthPropertyInfo = Int64 + type AttrGetType DOMHTMLCanvasElementWidthPropertyInfo = CLong type AttrLabel DOMHTMLCanvasElementWidthPropertyInfo = "width" attrGet _ = getDOMHTMLCanvasElementWidth attrSet _ = setDOMHTMLCanvasElementWidth attrConstruct _ = constructDOMHTMLCanvasElementWidth + attrClear _ = undefined type instance AttributeList DOMHTMLCanvasElement = DOMHTMLCanvasElementAttributeList type DOMHTMLCanvasElementAttributeList = ('[ '("accessKey", DOMHTMLElementAccessKeyPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("baseUri", DOMNodeBaseUriPropertyInfo), '("childElementCount", DOMElementChildElementCountPropertyInfo), '("childNodes", DOMNodeChildNodesPropertyInfo), '("children", DOMHTMLElementChildrenPropertyInfo), '("classList", DOMElementClassListPropertyInfo), '("className", DOMElementClassNamePropertyInfo), '("clientHeight", DOMElementClientHeightPropertyInfo), '("clientLeft", DOMElementClientLeftPropertyInfo), '("clientTop", DOMElementClientTopPropertyInfo), '("clientWidth", DOMElementClientWidthPropertyInfo), '("contentEditable", DOMHTMLElementContentEditablePropertyInfo), '("coreObject", DOMObjectCoreObjectPropertyInfo), '("dir", DOMHTMLElementDirPropertyInfo), '("draggable", DOMHTMLElementDraggablePropertyInfo), '("firstChild", DOMNodeFirstChildPropertyInfo), '("firstElementChild", DOMElementFirstElementChildPropertyInfo), '("height", DOMHTMLCanvasElementHeightPropertyInfo), '("hidden", DOMHTMLElementHiddenPropertyInfo), '("id", DOMElementIdPropertyInfo), '("innerHtml", DOMHTMLElementInnerHtmlPropertyInfo), '("innerText", DOMHTMLElementInnerTextPropertyInfo), '("isContentEditable", DOMHTMLElementIsContentEditablePropertyInfo), '("lang", DOMHTMLElementLangPropertyInfo), '("lastChild", DOMNodeLastChildPropertyInfo), '("lastElementChild", DOMElementLastElementChildPropertyInfo), '("localName", DOMNodeLocalNamePropertyInfo), '("namespaceUri", DOMNodeNamespaceUriPropertyInfo), '("nextElementSibling", DOMElementNextElementSiblingPropertyInfo), '("nextSibling", DOMNodeNextSiblingPropertyInfo), '("nodeName", DOMNodeNodeNamePropertyInfo), '("nodeType", DOMNodeNodeTypePropertyInfo), '("nodeValue", DOMNodeNodeValuePropertyInfo), '("offsetHeight", DOMElementOffsetHeightPropertyInfo), '("offsetLeft", DOMElementOffsetLeftPropertyInfo), '("offsetParent", DOMElementOffsetParentPropertyInfo), '("offsetTop", DOMElementOffsetTopPropertyInfo), '("offsetWidth", DOMElementOffsetWidthPropertyInfo), '("outerHtml", DOMHTMLElementOuterHtmlPropertyInfo), '("outerText", DOMHTMLElementOuterTextPropertyInfo), '("ownerDocument", DOMNodeOwnerDocumentPropertyInfo), '("parentElement", DOMNodeParentElementPropertyInfo), '("parentNode", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previousElementSibling", DOMElementPreviousElementSiblingPropertyInfo), '("previousSibling", DOMNodePreviousSiblingPropertyInfo), '("scrollHeight", DOMElementScrollHeightPropertyInfo), '("scrollLeft", DOMElementScrollLeftPropertyInfo), '("scrollTop", DOMElementScrollTopPropertyInfo), '("scrollWidth", DOMElementScrollWidthPropertyInfo), '("spellcheck", DOMHTMLElementSpellcheckPropertyInfo), '("style", DOMElementStylePropertyInfo), '("tabIndex", DOMHTMLElementTabIndexPropertyInfo), '("tagName", DOMElementTagNamePropertyInfo), '("textContent", DOMNodeTextContentPropertyInfo), '("title", DOMHTMLElementTitlePropertyInfo), '("translate", DOMHTMLElementTranslatePropertyInfo), '("webkitRegionOverset", DOMElementWebkitRegionOversetPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo), '("width", DOMHTMLCanvasElementWidthPropertyInfo)] :: [(Symbol, *)]) +dOMHTMLCanvasElementHeight :: AttrLabelProxy "height" +dOMHTMLCanvasElementHeight = AttrLabelProxy + +dOMHTMLCanvasElementWidth :: AttrLabelProxy "width" +dOMHTMLCanvasElementWidth = AttrLabelProxy + type instance SignalList DOMHTMLCanvasElement = DOMHTMLCanvasElementSignalList type DOMHTMLCanvasElementSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) @@ -317,19 +329,19 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLCanvasElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TInt64 +-- returnType : Just (TBasicType TLong) -- throws : False -- Skip return : False foreign import ccall "webkit_dom_html_canvas_element_get_height" webkit_dom_html_canvas_element_get_height :: Ptr DOMHTMLCanvasElement -> -- _obj : TInterface "WebKit" "DOMHTMLCanvasElement" - IO Int64 + IO CLong dOMHTMLCanvasElementGetHeight :: (MonadIO m, DOMHTMLCanvasElementK a) => a -- _obj - -> m Int64 -- result + -> m CLong -- result dOMHTMLCanvasElementGetHeight _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- webkit_dom_html_canvas_element_get_height _obj' @@ -337,26 +349,26 @@ return result data DOMHTMLCanvasElementGetHeightMethodInfo -instance (signature ~ (m Int64), MonadIO m, DOMHTMLCanvasElementK a) => MethodInfo DOMHTMLCanvasElementGetHeightMethodInfo a signature where +instance (signature ~ (m CLong), MonadIO m, DOMHTMLCanvasElementK a) => MethodInfo DOMHTMLCanvasElementGetHeightMethodInfo a signature where overloadedMethod _ = dOMHTMLCanvasElementGetHeight -- method DOMHTMLCanvasElement::get_width -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLCanvasElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TInt64 +-- returnType : Just (TBasicType TLong) -- throws : False -- Skip return : False foreign import ccall "webkit_dom_html_canvas_element_get_width" webkit_dom_html_canvas_element_get_width :: Ptr DOMHTMLCanvasElement -> -- _obj : TInterface "WebKit" "DOMHTMLCanvasElement" - IO Int64 + IO CLong dOMHTMLCanvasElementGetWidth :: (MonadIO m, DOMHTMLCanvasElementK a) => a -- _obj - -> m Int64 -- result + -> m CLong -- result dOMHTMLCanvasElementGetWidth _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- webkit_dom_html_canvas_element_get_width _obj' @@ -364,27 +376,27 @@ return result data DOMHTMLCanvasElementGetWidthMethodInfo -instance (signature ~ (m Int64), MonadIO m, DOMHTMLCanvasElementK a) => MethodInfo DOMHTMLCanvasElementGetWidthMethodInfo a signature where +instance (signature ~ (m CLong), MonadIO m, DOMHTMLCanvasElementK a) => MethodInfo DOMHTMLCanvasElementGetWidthMethodInfo a signature where overloadedMethod _ = dOMHTMLCanvasElementGetWidth -- method DOMHTMLCanvasElement::set_height -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLCanvasElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLCanvasElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TLong, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "webkit_dom_html_canvas_element_set_height" webkit_dom_html_canvas_element_set_height :: Ptr DOMHTMLCanvasElement -> -- _obj : TInterface "WebKit" "DOMHTMLCanvasElement" - Int64 -> -- value : TBasicType TInt64 + CLong -> -- value : TBasicType TLong IO () dOMHTMLCanvasElementSetHeight :: (MonadIO m, DOMHTMLCanvasElementK a) => a -- _obj - -> Int64 -- value + -> CLong -- value -> m () -- result dOMHTMLCanvasElementSetHeight _obj value = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj @@ -393,27 +405,27 @@ return () data DOMHTMLCanvasElementSetHeightMethodInfo -instance (signature ~ (Int64 -> m ()), MonadIO m, DOMHTMLCanvasElementK a) => MethodInfo DOMHTMLCanvasElementSetHeightMethodInfo a signature where +instance (signature ~ (CLong -> m ()), MonadIO m, DOMHTMLCanvasElementK a) => MethodInfo DOMHTMLCanvasElementSetHeightMethodInfo a signature where overloadedMethod _ = dOMHTMLCanvasElementSetHeight -- method DOMHTMLCanvasElement::set_width -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLCanvasElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLCanvasElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TLong, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "webkit_dom_html_canvas_element_set_width" webkit_dom_html_canvas_element_set_width :: Ptr DOMHTMLCanvasElement -> -- _obj : TInterface "WebKit" "DOMHTMLCanvasElement" - Int64 -> -- value : TBasicType TInt64 + CLong -> -- value : TBasicType TLong IO () dOMHTMLCanvasElementSetWidth :: (MonadIO m, DOMHTMLCanvasElementK a) => a -- _obj - -> Int64 -- value + -> CLong -- value -> m () -- result dOMHTMLCanvasElementSetWidth _obj value = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj @@ -422,7 +434,7 @@ return () data DOMHTMLCanvasElementSetWidthMethodInfo -instance (signature ~ (Int64 -> m ()), MonadIO m, DOMHTMLCanvasElementK a) => MethodInfo DOMHTMLCanvasElementSetWidthMethodInfo a signature where +instance (signature ~ (CLong -> m ()), MonadIO m, DOMHTMLCanvasElementK a) => MethodInfo DOMHTMLCanvasElementSetWidthMethodInfo a signature where overloadedMethod _ = dOMHTMLCanvasElementSetWidth diff --git a/GI/WebKit/Objects/DOMHTMLCanvasElement.hs-boot b/GI/WebKit/Objects/DOMHTMLCanvasElement.hs-boot --- a/GI/WebKit/Objects/DOMHTMLCanvasElement.hs-boot +++ b/GI/WebKit/Objects/DOMHTMLCanvasElement.hs-boot @@ -1,8 +1,8 @@ module GI.WebKit.Objects.DOMHTMLCanvasElement where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map diff --git a/GI/WebKit/Objects/DOMHTMLCollection.hs b/GI/WebKit/Objects/DOMHTMLCollection.hs --- a/GI/WebKit/Objects/DOMHTMLCollection.hs +++ b/GI/WebKit/Objects/DOMHTMLCollection.hs @@ -37,6 +37,7 @@ -- * Properties -- ** Length DOMHTMLCollectionLengthPropertyInfo , + dOMHTMLCollectionLength , getDOMHTMLCollectionLength , @@ -44,9 +45,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map @@ -113,26 +114,31 @@ #endif -- VVV Prop "length" - -- Type: TBasicType TUInt64 + -- Type: TBasicType TULong -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) -getDOMHTMLCollectionLength :: (MonadIO m, DOMHTMLCollectionK o) => o -> m Word64 -getDOMHTMLCollectionLength obj = liftIO $ getObjectPropertyUInt64 obj "length" +getDOMHTMLCollectionLength :: (MonadIO m, DOMHTMLCollectionK o) => o -> m CULong +getDOMHTMLCollectionLength obj = liftIO $ getObjectPropertyULong obj "length" data DOMHTMLCollectionLengthPropertyInfo instance AttrInfo DOMHTMLCollectionLengthPropertyInfo where type AttrAllowedOps DOMHTMLCollectionLengthPropertyInfo = '[ 'AttrGet] type AttrSetTypeConstraint DOMHTMLCollectionLengthPropertyInfo = (~) () type AttrBaseTypeConstraint DOMHTMLCollectionLengthPropertyInfo = DOMHTMLCollectionK - type AttrGetType DOMHTMLCollectionLengthPropertyInfo = Word64 + type AttrGetType DOMHTMLCollectionLengthPropertyInfo = CULong type AttrLabel DOMHTMLCollectionLengthPropertyInfo = "length" attrGet _ = getDOMHTMLCollectionLength attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined type instance AttributeList DOMHTMLCollection = DOMHTMLCollectionAttributeList type DOMHTMLCollectionAttributeList = ('[ '("coreObject", DOMObjectCoreObjectPropertyInfo), '("length", DOMHTMLCollectionLengthPropertyInfo)] :: [(Symbol, *)]) +dOMHTMLCollectionLength :: AttrLabelProxy "length" +dOMHTMLCollectionLength = AttrLabelProxy + type instance SignalList DOMHTMLCollection = DOMHTMLCollectionSignalList type DOMHTMLCollectionSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) @@ -140,19 +146,19 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLCollection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUInt64 +-- returnType : Just (TBasicType TULong) -- throws : False -- Skip return : False foreign import ccall "webkit_dom_html_collection_get_length" webkit_dom_html_collection_get_length :: Ptr DOMHTMLCollection -> -- _obj : TInterface "WebKit" "DOMHTMLCollection" - IO Word64 + IO CULong dOMHTMLCollectionGetLength :: (MonadIO m, DOMHTMLCollectionK a) => a -- _obj - -> m Word64 -- result + -> m CULong -- result dOMHTMLCollectionGetLength _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- webkit_dom_html_collection_get_length _obj' @@ -160,27 +166,27 @@ return result data DOMHTMLCollectionGetLengthMethodInfo -instance (signature ~ (m Word64), MonadIO m, DOMHTMLCollectionK a) => MethodInfo DOMHTMLCollectionGetLengthMethodInfo a signature where +instance (signature ~ (m CULong), MonadIO m, DOMHTMLCollectionK a) => MethodInfo DOMHTMLCollectionGetLengthMethodInfo a signature where overloadedMethod _ = dOMHTMLCollectionGetLength -- method DOMHTMLCollection::item -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLCollection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "index", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLCollection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "index", argType = TBasicType TULong, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit" "DOMNode" +-- returnType : Just (TInterface "WebKit" "DOMNode") -- throws : False -- Skip return : False foreign import ccall "webkit_dom_html_collection_item" webkit_dom_html_collection_item :: Ptr DOMHTMLCollection -> -- _obj : TInterface "WebKit" "DOMHTMLCollection" - Word64 -> -- index : TBasicType TUInt64 + CULong -> -- index : TBasicType TULong IO (Ptr DOMNode) dOMHTMLCollectionItem :: (MonadIO m, DOMHTMLCollectionK a) => a -- _obj - -> Word64 -- index + -> CULong -- index -> m DOMNode -- result dOMHTMLCollectionItem _obj index = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj @@ -191,14 +197,14 @@ return result' data DOMHTMLCollectionItemMethodInfo -instance (signature ~ (Word64 -> m DOMNode), MonadIO m, DOMHTMLCollectionK a) => MethodInfo DOMHTMLCollectionItemMethodInfo a signature where +instance (signature ~ (CULong -> m DOMNode), MonadIO m, DOMHTMLCollectionK a) => MethodInfo DOMHTMLCollectionItemMethodInfo a signature where overloadedMethod _ = dOMHTMLCollectionItem -- method DOMHTMLCollection::named_item -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLCollection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit" "DOMNode" +-- returnType : Just (TInterface "WebKit" "DOMNode") -- throws : False -- Skip return : False diff --git a/GI/WebKit/Objects/DOMHTMLCollection.hs-boot b/GI/WebKit/Objects/DOMHTMLCollection.hs-boot --- a/GI/WebKit/Objects/DOMHTMLCollection.hs-boot +++ b/GI/WebKit/Objects/DOMHTMLCollection.hs-boot @@ -1,8 +1,8 @@ module GI.WebKit.Objects.DOMHTMLCollection where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map diff --git a/GI/WebKit/Objects/DOMHTMLDListElement.hs b/GI/WebKit/Objects/DOMHTMLDListElement.hs --- a/GI/WebKit/Objects/DOMHTMLDListElement.hs +++ b/GI/WebKit/Objects/DOMHTMLDListElement.hs @@ -33,6 +33,7 @@ -- ** Compact DOMHTMLDListElementCompactPropertyInfo , constructDOMHTMLDListElementCompact , + dOMHTMLDListElementCompact , getDOMHTMLDListElementCompact , setDOMHTMLDListElementCompact , @@ -41,9 +42,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map @@ -243,6 +244,7 @@ -- VVV Prop "compact" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getDOMHTMLDListElementCompact :: (MonadIO m, DOMHTMLDListElementK o) => o -> m Bool getDOMHTMLDListElementCompact obj = liftIO $ getObjectPropertyBool obj "compact" @@ -263,10 +265,14 @@ attrGet _ = getDOMHTMLDListElementCompact attrSet _ = setDOMHTMLDListElementCompact attrConstruct _ = constructDOMHTMLDListElementCompact + attrClear _ = undefined type instance AttributeList DOMHTMLDListElement = DOMHTMLDListElementAttributeList type DOMHTMLDListElementAttributeList = ('[ '("accessKey", DOMHTMLElementAccessKeyPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("baseUri", DOMNodeBaseUriPropertyInfo), '("childElementCount", DOMElementChildElementCountPropertyInfo), '("childNodes", DOMNodeChildNodesPropertyInfo), '("children", DOMHTMLElementChildrenPropertyInfo), '("classList", DOMElementClassListPropertyInfo), '("className", DOMElementClassNamePropertyInfo), '("clientHeight", DOMElementClientHeightPropertyInfo), '("clientLeft", DOMElementClientLeftPropertyInfo), '("clientTop", DOMElementClientTopPropertyInfo), '("clientWidth", DOMElementClientWidthPropertyInfo), '("compact", DOMHTMLDListElementCompactPropertyInfo), '("contentEditable", DOMHTMLElementContentEditablePropertyInfo), '("coreObject", DOMObjectCoreObjectPropertyInfo), '("dir", DOMHTMLElementDirPropertyInfo), '("draggable", DOMHTMLElementDraggablePropertyInfo), '("firstChild", DOMNodeFirstChildPropertyInfo), '("firstElementChild", DOMElementFirstElementChildPropertyInfo), '("hidden", DOMHTMLElementHiddenPropertyInfo), '("id", DOMElementIdPropertyInfo), '("innerHtml", DOMHTMLElementInnerHtmlPropertyInfo), '("innerText", DOMHTMLElementInnerTextPropertyInfo), '("isContentEditable", DOMHTMLElementIsContentEditablePropertyInfo), '("lang", DOMHTMLElementLangPropertyInfo), '("lastChild", DOMNodeLastChildPropertyInfo), '("lastElementChild", DOMElementLastElementChildPropertyInfo), '("localName", DOMNodeLocalNamePropertyInfo), '("namespaceUri", DOMNodeNamespaceUriPropertyInfo), '("nextElementSibling", DOMElementNextElementSiblingPropertyInfo), '("nextSibling", DOMNodeNextSiblingPropertyInfo), '("nodeName", DOMNodeNodeNamePropertyInfo), '("nodeType", DOMNodeNodeTypePropertyInfo), '("nodeValue", DOMNodeNodeValuePropertyInfo), '("offsetHeight", DOMElementOffsetHeightPropertyInfo), '("offsetLeft", DOMElementOffsetLeftPropertyInfo), '("offsetParent", DOMElementOffsetParentPropertyInfo), '("offsetTop", DOMElementOffsetTopPropertyInfo), '("offsetWidth", DOMElementOffsetWidthPropertyInfo), '("outerHtml", DOMHTMLElementOuterHtmlPropertyInfo), '("outerText", DOMHTMLElementOuterTextPropertyInfo), '("ownerDocument", DOMNodeOwnerDocumentPropertyInfo), '("parentElement", DOMNodeParentElementPropertyInfo), '("parentNode", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previousElementSibling", DOMElementPreviousElementSiblingPropertyInfo), '("previousSibling", DOMNodePreviousSiblingPropertyInfo), '("scrollHeight", DOMElementScrollHeightPropertyInfo), '("scrollLeft", DOMElementScrollLeftPropertyInfo), '("scrollTop", DOMElementScrollTopPropertyInfo), '("scrollWidth", DOMElementScrollWidthPropertyInfo), '("spellcheck", DOMHTMLElementSpellcheckPropertyInfo), '("style", DOMElementStylePropertyInfo), '("tabIndex", DOMHTMLElementTabIndexPropertyInfo), '("tagName", DOMElementTagNamePropertyInfo), '("textContent", DOMNodeTextContentPropertyInfo), '("title", DOMHTMLElementTitlePropertyInfo), '("translate", DOMHTMLElementTranslatePropertyInfo), '("webkitRegionOverset", DOMElementWebkitRegionOversetPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo)] :: [(Symbol, *)]) +dOMHTMLDListElementCompact :: AttrLabelProxy "compact" +dOMHTMLDListElementCompact = AttrLabelProxy + type instance SignalList DOMHTMLDListElement = DOMHTMLDListElementSignalList type DOMHTMLDListElementSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) @@ -274,7 +280,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLDListElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -302,7 +308,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLDListElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False diff --git a/GI/WebKit/Objects/DOMHTMLDListElement.hs-boot b/GI/WebKit/Objects/DOMHTMLDListElement.hs-boot --- a/GI/WebKit/Objects/DOMHTMLDListElement.hs-boot +++ b/GI/WebKit/Objects/DOMHTMLDListElement.hs-boot @@ -1,8 +1,8 @@ module GI.WebKit.Objects.DOMHTMLDListElement where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map diff --git a/GI/WebKit/Objects/DOMHTMLDetailsElement.hs b/GI/WebKit/Objects/DOMHTMLDetailsElement.hs --- a/GI/WebKit/Objects/DOMHTMLDetailsElement.hs +++ b/GI/WebKit/Objects/DOMHTMLDetailsElement.hs @@ -33,6 +33,7 @@ -- ** Open DOMHTMLDetailsElementOpenPropertyInfo , constructDOMHTMLDetailsElementOpen , + dOMHTMLDetailsElementOpen , getDOMHTMLDetailsElementOpen , setDOMHTMLDetailsElementOpen , @@ -41,9 +42,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map @@ -243,6 +244,7 @@ -- VVV Prop "open" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getDOMHTMLDetailsElementOpen :: (MonadIO m, DOMHTMLDetailsElementK o) => o -> m Bool getDOMHTMLDetailsElementOpen obj = liftIO $ getObjectPropertyBool obj "open" @@ -263,10 +265,14 @@ attrGet _ = getDOMHTMLDetailsElementOpen attrSet _ = setDOMHTMLDetailsElementOpen attrConstruct _ = constructDOMHTMLDetailsElementOpen + attrClear _ = undefined type instance AttributeList DOMHTMLDetailsElement = DOMHTMLDetailsElementAttributeList type DOMHTMLDetailsElementAttributeList = ('[ '("accessKey", DOMHTMLElementAccessKeyPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("baseUri", DOMNodeBaseUriPropertyInfo), '("childElementCount", DOMElementChildElementCountPropertyInfo), '("childNodes", DOMNodeChildNodesPropertyInfo), '("children", DOMHTMLElementChildrenPropertyInfo), '("classList", DOMElementClassListPropertyInfo), '("className", DOMElementClassNamePropertyInfo), '("clientHeight", DOMElementClientHeightPropertyInfo), '("clientLeft", DOMElementClientLeftPropertyInfo), '("clientTop", DOMElementClientTopPropertyInfo), '("clientWidth", DOMElementClientWidthPropertyInfo), '("contentEditable", DOMHTMLElementContentEditablePropertyInfo), '("coreObject", DOMObjectCoreObjectPropertyInfo), '("dir", DOMHTMLElementDirPropertyInfo), '("draggable", DOMHTMLElementDraggablePropertyInfo), '("firstChild", DOMNodeFirstChildPropertyInfo), '("firstElementChild", DOMElementFirstElementChildPropertyInfo), '("hidden", DOMHTMLElementHiddenPropertyInfo), '("id", DOMElementIdPropertyInfo), '("innerHtml", DOMHTMLElementInnerHtmlPropertyInfo), '("innerText", DOMHTMLElementInnerTextPropertyInfo), '("isContentEditable", DOMHTMLElementIsContentEditablePropertyInfo), '("lang", DOMHTMLElementLangPropertyInfo), '("lastChild", DOMNodeLastChildPropertyInfo), '("lastElementChild", DOMElementLastElementChildPropertyInfo), '("localName", DOMNodeLocalNamePropertyInfo), '("namespaceUri", DOMNodeNamespaceUriPropertyInfo), '("nextElementSibling", DOMElementNextElementSiblingPropertyInfo), '("nextSibling", DOMNodeNextSiblingPropertyInfo), '("nodeName", DOMNodeNodeNamePropertyInfo), '("nodeType", DOMNodeNodeTypePropertyInfo), '("nodeValue", DOMNodeNodeValuePropertyInfo), '("offsetHeight", DOMElementOffsetHeightPropertyInfo), '("offsetLeft", DOMElementOffsetLeftPropertyInfo), '("offsetParent", DOMElementOffsetParentPropertyInfo), '("offsetTop", DOMElementOffsetTopPropertyInfo), '("offsetWidth", DOMElementOffsetWidthPropertyInfo), '("open", DOMHTMLDetailsElementOpenPropertyInfo), '("outerHtml", DOMHTMLElementOuterHtmlPropertyInfo), '("outerText", DOMHTMLElementOuterTextPropertyInfo), '("ownerDocument", DOMNodeOwnerDocumentPropertyInfo), '("parentElement", DOMNodeParentElementPropertyInfo), '("parentNode", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previousElementSibling", DOMElementPreviousElementSiblingPropertyInfo), '("previousSibling", DOMNodePreviousSiblingPropertyInfo), '("scrollHeight", DOMElementScrollHeightPropertyInfo), '("scrollLeft", DOMElementScrollLeftPropertyInfo), '("scrollTop", DOMElementScrollTopPropertyInfo), '("scrollWidth", DOMElementScrollWidthPropertyInfo), '("spellcheck", DOMHTMLElementSpellcheckPropertyInfo), '("style", DOMElementStylePropertyInfo), '("tabIndex", DOMHTMLElementTabIndexPropertyInfo), '("tagName", DOMElementTagNamePropertyInfo), '("textContent", DOMNodeTextContentPropertyInfo), '("title", DOMHTMLElementTitlePropertyInfo), '("translate", DOMHTMLElementTranslatePropertyInfo), '("webkitRegionOverset", DOMElementWebkitRegionOversetPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo)] :: [(Symbol, *)]) +dOMHTMLDetailsElementOpen :: AttrLabelProxy "open" +dOMHTMLDetailsElementOpen = AttrLabelProxy + type instance SignalList DOMHTMLDetailsElement = DOMHTMLDetailsElementSignalList type DOMHTMLDetailsElementSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) @@ -274,7 +280,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLDetailsElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -302,7 +308,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLDetailsElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False diff --git a/GI/WebKit/Objects/DOMHTMLDetailsElement.hs-boot b/GI/WebKit/Objects/DOMHTMLDetailsElement.hs-boot --- a/GI/WebKit/Objects/DOMHTMLDetailsElement.hs-boot +++ b/GI/WebKit/Objects/DOMHTMLDetailsElement.hs-boot @@ -1,8 +1,8 @@ module GI.WebKit.Objects.DOMHTMLDetailsElement where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map diff --git a/GI/WebKit/Objects/DOMHTMLDirectoryElement.hs b/GI/WebKit/Objects/DOMHTMLDirectoryElement.hs --- a/GI/WebKit/Objects/DOMHTMLDirectoryElement.hs +++ b/GI/WebKit/Objects/DOMHTMLDirectoryElement.hs @@ -33,6 +33,7 @@ -- ** Compact DOMHTMLDirectoryElementCompactPropertyInfo, constructDOMHTMLDirectoryElementCompact , + dOMHTMLDirectoryElementCompact , getDOMHTMLDirectoryElementCompact , setDOMHTMLDirectoryElementCompact , @@ -41,9 +42,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map @@ -243,6 +244,7 @@ -- VVV Prop "compact" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getDOMHTMLDirectoryElementCompact :: (MonadIO m, DOMHTMLDirectoryElementK o) => o -> m Bool getDOMHTMLDirectoryElementCompact obj = liftIO $ getObjectPropertyBool obj "compact" @@ -263,10 +265,14 @@ attrGet _ = getDOMHTMLDirectoryElementCompact attrSet _ = setDOMHTMLDirectoryElementCompact attrConstruct _ = constructDOMHTMLDirectoryElementCompact + attrClear _ = undefined type instance AttributeList DOMHTMLDirectoryElement = DOMHTMLDirectoryElementAttributeList type DOMHTMLDirectoryElementAttributeList = ('[ '("accessKey", DOMHTMLElementAccessKeyPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("baseUri", DOMNodeBaseUriPropertyInfo), '("childElementCount", DOMElementChildElementCountPropertyInfo), '("childNodes", DOMNodeChildNodesPropertyInfo), '("children", DOMHTMLElementChildrenPropertyInfo), '("classList", DOMElementClassListPropertyInfo), '("className", DOMElementClassNamePropertyInfo), '("clientHeight", DOMElementClientHeightPropertyInfo), '("clientLeft", DOMElementClientLeftPropertyInfo), '("clientTop", DOMElementClientTopPropertyInfo), '("clientWidth", DOMElementClientWidthPropertyInfo), '("compact", DOMHTMLDirectoryElementCompactPropertyInfo), '("contentEditable", DOMHTMLElementContentEditablePropertyInfo), '("coreObject", DOMObjectCoreObjectPropertyInfo), '("dir", DOMHTMLElementDirPropertyInfo), '("draggable", DOMHTMLElementDraggablePropertyInfo), '("firstChild", DOMNodeFirstChildPropertyInfo), '("firstElementChild", DOMElementFirstElementChildPropertyInfo), '("hidden", DOMHTMLElementHiddenPropertyInfo), '("id", DOMElementIdPropertyInfo), '("innerHtml", DOMHTMLElementInnerHtmlPropertyInfo), '("innerText", DOMHTMLElementInnerTextPropertyInfo), '("isContentEditable", DOMHTMLElementIsContentEditablePropertyInfo), '("lang", DOMHTMLElementLangPropertyInfo), '("lastChild", DOMNodeLastChildPropertyInfo), '("lastElementChild", DOMElementLastElementChildPropertyInfo), '("localName", DOMNodeLocalNamePropertyInfo), '("namespaceUri", DOMNodeNamespaceUriPropertyInfo), '("nextElementSibling", DOMElementNextElementSiblingPropertyInfo), '("nextSibling", DOMNodeNextSiblingPropertyInfo), '("nodeName", DOMNodeNodeNamePropertyInfo), '("nodeType", DOMNodeNodeTypePropertyInfo), '("nodeValue", DOMNodeNodeValuePropertyInfo), '("offsetHeight", DOMElementOffsetHeightPropertyInfo), '("offsetLeft", DOMElementOffsetLeftPropertyInfo), '("offsetParent", DOMElementOffsetParentPropertyInfo), '("offsetTop", DOMElementOffsetTopPropertyInfo), '("offsetWidth", DOMElementOffsetWidthPropertyInfo), '("outerHtml", DOMHTMLElementOuterHtmlPropertyInfo), '("outerText", DOMHTMLElementOuterTextPropertyInfo), '("ownerDocument", DOMNodeOwnerDocumentPropertyInfo), '("parentElement", DOMNodeParentElementPropertyInfo), '("parentNode", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previousElementSibling", DOMElementPreviousElementSiblingPropertyInfo), '("previousSibling", DOMNodePreviousSiblingPropertyInfo), '("scrollHeight", DOMElementScrollHeightPropertyInfo), '("scrollLeft", DOMElementScrollLeftPropertyInfo), '("scrollTop", DOMElementScrollTopPropertyInfo), '("scrollWidth", DOMElementScrollWidthPropertyInfo), '("spellcheck", DOMHTMLElementSpellcheckPropertyInfo), '("style", DOMElementStylePropertyInfo), '("tabIndex", DOMHTMLElementTabIndexPropertyInfo), '("tagName", DOMElementTagNamePropertyInfo), '("textContent", DOMNodeTextContentPropertyInfo), '("title", DOMHTMLElementTitlePropertyInfo), '("translate", DOMHTMLElementTranslatePropertyInfo), '("webkitRegionOverset", DOMElementWebkitRegionOversetPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo)] :: [(Symbol, *)]) +dOMHTMLDirectoryElementCompact :: AttrLabelProxy "compact" +dOMHTMLDirectoryElementCompact = AttrLabelProxy + type instance SignalList DOMHTMLDirectoryElement = DOMHTMLDirectoryElementSignalList type DOMHTMLDirectoryElementSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) @@ -274,7 +280,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLDirectoryElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -302,7 +308,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLDirectoryElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False diff --git a/GI/WebKit/Objects/DOMHTMLDirectoryElement.hs-boot b/GI/WebKit/Objects/DOMHTMLDirectoryElement.hs-boot --- a/GI/WebKit/Objects/DOMHTMLDirectoryElement.hs-boot +++ b/GI/WebKit/Objects/DOMHTMLDirectoryElement.hs-boot @@ -1,8 +1,8 @@ module GI.WebKit.Objects.DOMHTMLDirectoryElement where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map diff --git a/GI/WebKit/Objects/DOMHTMLDivElement.hs b/GI/WebKit/Objects/DOMHTMLDivElement.hs --- a/GI/WebKit/Objects/DOMHTMLDivElement.hs +++ b/GI/WebKit/Objects/DOMHTMLDivElement.hs @@ -33,6 +33,7 @@ -- ** Align DOMHTMLDivElementAlignPropertyInfo , constructDOMHTMLDivElementAlign , + dOMHTMLDivElementAlign , getDOMHTMLDivElementAlign , setDOMHTMLDivElementAlign , @@ -41,9 +42,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map @@ -243,30 +244,35 @@ -- VVV Prop "align" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Just False) -getDOMHTMLDivElementAlign :: (MonadIO m, DOMHTMLDivElementK o) => o -> m T.Text +getDOMHTMLDivElementAlign :: (MonadIO m, DOMHTMLDivElementK o) => o -> m (Maybe T.Text) getDOMHTMLDivElementAlign obj = liftIO $ getObjectPropertyString obj "align" setDOMHTMLDivElementAlign :: (MonadIO m, DOMHTMLDivElementK o) => o -> T.Text -> m () -setDOMHTMLDivElementAlign obj val = liftIO $ setObjectPropertyString obj "align" val +setDOMHTMLDivElementAlign obj val = liftIO $ setObjectPropertyString obj "align" (Just val) constructDOMHTMLDivElementAlign :: T.Text -> IO ([Char], GValue) -constructDOMHTMLDivElementAlign val = constructObjectPropertyString "align" val +constructDOMHTMLDivElementAlign val = constructObjectPropertyString "align" (Just val) data DOMHTMLDivElementAlignPropertyInfo instance AttrInfo DOMHTMLDivElementAlignPropertyInfo where type AttrAllowedOps DOMHTMLDivElementAlignPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint DOMHTMLDivElementAlignPropertyInfo = (~) T.Text type AttrBaseTypeConstraint DOMHTMLDivElementAlignPropertyInfo = DOMHTMLDivElementK - type AttrGetType DOMHTMLDivElementAlignPropertyInfo = T.Text + type AttrGetType DOMHTMLDivElementAlignPropertyInfo = (Maybe T.Text) type AttrLabel DOMHTMLDivElementAlignPropertyInfo = "align" attrGet _ = getDOMHTMLDivElementAlign attrSet _ = setDOMHTMLDivElementAlign attrConstruct _ = constructDOMHTMLDivElementAlign + attrClear _ = undefined type instance AttributeList DOMHTMLDivElement = DOMHTMLDivElementAttributeList type DOMHTMLDivElementAttributeList = ('[ '("accessKey", DOMHTMLElementAccessKeyPropertyInfo), '("align", DOMHTMLDivElementAlignPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("baseUri", DOMNodeBaseUriPropertyInfo), '("childElementCount", DOMElementChildElementCountPropertyInfo), '("childNodes", DOMNodeChildNodesPropertyInfo), '("children", DOMHTMLElementChildrenPropertyInfo), '("classList", DOMElementClassListPropertyInfo), '("className", DOMElementClassNamePropertyInfo), '("clientHeight", DOMElementClientHeightPropertyInfo), '("clientLeft", DOMElementClientLeftPropertyInfo), '("clientTop", DOMElementClientTopPropertyInfo), '("clientWidth", DOMElementClientWidthPropertyInfo), '("contentEditable", DOMHTMLElementContentEditablePropertyInfo), '("coreObject", DOMObjectCoreObjectPropertyInfo), '("dir", DOMHTMLElementDirPropertyInfo), '("draggable", DOMHTMLElementDraggablePropertyInfo), '("firstChild", DOMNodeFirstChildPropertyInfo), '("firstElementChild", DOMElementFirstElementChildPropertyInfo), '("hidden", DOMHTMLElementHiddenPropertyInfo), '("id", DOMElementIdPropertyInfo), '("innerHtml", DOMHTMLElementInnerHtmlPropertyInfo), '("innerText", DOMHTMLElementInnerTextPropertyInfo), '("isContentEditable", DOMHTMLElementIsContentEditablePropertyInfo), '("lang", DOMHTMLElementLangPropertyInfo), '("lastChild", DOMNodeLastChildPropertyInfo), '("lastElementChild", DOMElementLastElementChildPropertyInfo), '("localName", DOMNodeLocalNamePropertyInfo), '("namespaceUri", DOMNodeNamespaceUriPropertyInfo), '("nextElementSibling", DOMElementNextElementSiblingPropertyInfo), '("nextSibling", DOMNodeNextSiblingPropertyInfo), '("nodeName", DOMNodeNodeNamePropertyInfo), '("nodeType", DOMNodeNodeTypePropertyInfo), '("nodeValue", DOMNodeNodeValuePropertyInfo), '("offsetHeight", DOMElementOffsetHeightPropertyInfo), '("offsetLeft", DOMElementOffsetLeftPropertyInfo), '("offsetParent", DOMElementOffsetParentPropertyInfo), '("offsetTop", DOMElementOffsetTopPropertyInfo), '("offsetWidth", DOMElementOffsetWidthPropertyInfo), '("outerHtml", DOMHTMLElementOuterHtmlPropertyInfo), '("outerText", DOMHTMLElementOuterTextPropertyInfo), '("ownerDocument", DOMNodeOwnerDocumentPropertyInfo), '("parentElement", DOMNodeParentElementPropertyInfo), '("parentNode", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previousElementSibling", DOMElementPreviousElementSiblingPropertyInfo), '("previousSibling", DOMNodePreviousSiblingPropertyInfo), '("scrollHeight", DOMElementScrollHeightPropertyInfo), '("scrollLeft", DOMElementScrollLeftPropertyInfo), '("scrollTop", DOMElementScrollTopPropertyInfo), '("scrollWidth", DOMElementScrollWidthPropertyInfo), '("spellcheck", DOMHTMLElementSpellcheckPropertyInfo), '("style", DOMElementStylePropertyInfo), '("tabIndex", DOMHTMLElementTabIndexPropertyInfo), '("tagName", DOMElementTagNamePropertyInfo), '("textContent", DOMNodeTextContentPropertyInfo), '("title", DOMHTMLElementTitlePropertyInfo), '("translate", DOMHTMLElementTranslatePropertyInfo), '("webkitRegionOverset", DOMElementWebkitRegionOversetPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo)] :: [(Symbol, *)]) +dOMHTMLDivElementAlign :: AttrLabelProxy "align" +dOMHTMLDivElementAlign = AttrLabelProxy + type instance SignalList DOMHTMLDivElement = DOMHTMLDivElementSignalList type DOMHTMLDivElementSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) @@ -274,7 +280,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLDivElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -304,7 +310,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLDivElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False diff --git a/GI/WebKit/Objects/DOMHTMLDivElement.hs-boot b/GI/WebKit/Objects/DOMHTMLDivElement.hs-boot --- a/GI/WebKit/Objects/DOMHTMLDivElement.hs-boot +++ b/GI/WebKit/Objects/DOMHTMLDivElement.hs-boot @@ -1,8 +1,8 @@ module GI.WebKit.Objects.DOMHTMLDivElement where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map diff --git a/GI/WebKit/Objects/DOMHTMLDocument.hs b/GI/WebKit/Objects/DOMHTMLDocument.hs --- a/GI/WebKit/Objects/DOMHTMLDocument.hs +++ b/GI/WebKit/Objects/DOMHTMLDocument.hs @@ -157,12 +157,14 @@ -- * Properties -- ** ActiveElement DOMHTMLDocumentActiveElementPropertyInfo, + dOMHTMLDocumentActiveElement , getDOMHTMLDocumentActiveElement , -- ** AlinkColor DOMHTMLDocumentAlinkColorPropertyInfo , constructDOMHTMLDocumentAlinkColor , + dOMHTMLDocumentAlinkColor , getDOMHTMLDocumentAlinkColor , setDOMHTMLDocumentAlinkColor , @@ -170,18 +172,21 @@ -- ** BgColor DOMHTMLDocumentBgColorPropertyInfo , constructDOMHTMLDocumentBgColor , + dOMHTMLDocumentBgColor , getDOMHTMLDocumentBgColor , setDOMHTMLDocumentBgColor , -- ** CompatMode DOMHTMLDocumentCompatModePropertyInfo , + dOMHTMLDocumentCompatMode , getDOMHTMLDocumentCompatMode , -- ** DesignMode DOMHTMLDocumentDesignModePropertyInfo , constructDOMHTMLDocumentDesignMode , + dOMHTMLDocumentDesignMode , getDOMHTMLDocumentDesignMode , setDOMHTMLDocumentDesignMode , @@ -189,53 +194,62 @@ -- ** Dir DOMHTMLDocumentDirPropertyInfo , constructDOMHTMLDocumentDir , + dOMHTMLDocumentDir , getDOMHTMLDocumentDir , setDOMHTMLDocumentDir , -- ** Embeds DOMHTMLDocumentEmbedsPropertyInfo , + dOMHTMLDocumentEmbeds , getDOMHTMLDocumentEmbeds , -- ** FgColor DOMHTMLDocumentFgColorPropertyInfo , constructDOMHTMLDocumentFgColor , + dOMHTMLDocumentFgColor , getDOMHTMLDocumentFgColor , setDOMHTMLDocumentFgColor , -- ** Height DOMHTMLDocumentHeightPropertyInfo , + dOMHTMLDocumentHeight , getDOMHTMLDocumentHeight , -- ** LinkColor DOMHTMLDocumentLinkColorPropertyInfo , constructDOMHTMLDocumentLinkColor , + dOMHTMLDocumentLinkColor , getDOMHTMLDocumentLinkColor , setDOMHTMLDocumentLinkColor , -- ** Plugins DOMHTMLDocumentPluginsPropertyInfo , + dOMHTMLDocumentPlugins , getDOMHTMLDocumentPlugins , -- ** Scripts DOMHTMLDocumentScriptsPropertyInfo , + dOMHTMLDocumentScripts , getDOMHTMLDocumentScripts , -- ** VlinkColor DOMHTMLDocumentVlinkColorPropertyInfo , constructDOMHTMLDocumentVlinkColor , + dOMHTMLDocumentVlinkColor , getDOMHTMLDocumentVlinkColor , setDOMHTMLDocumentVlinkColor , -- ** Width DOMHTMLDocumentWidthPropertyInfo , + dOMHTMLDocumentWidth , getDOMHTMLDocumentWidth , @@ -243,9 +257,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map @@ -465,13 +479,14 @@ -- VVV Prop "active-element" -- Type: TInterface "WebKit" "DOMElement" -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) getDOMHTMLDocumentActiveElement :: (MonadIO m, DOMHTMLDocumentK o) => o -> m DOMElement -getDOMHTMLDocumentActiveElement obj = liftIO $ getObjectPropertyObject obj "active-element" DOMElement +getDOMHTMLDocumentActiveElement obj = liftIO $ checkUnexpectedNothing "getDOMHTMLDocumentActiveElement" $ getObjectPropertyObject obj "active-element" DOMElement data DOMHTMLDocumentActiveElementPropertyInfo instance AttrInfo DOMHTMLDocumentActiveElementPropertyInfo where - type AttrAllowedOps DOMHTMLDocumentActiveElementPropertyInfo = '[ 'AttrGet] + type AttrAllowedOps DOMHTMLDocumentActiveElementPropertyInfo = '[ 'AttrGet, 'AttrClear] type AttrSetTypeConstraint DOMHTMLDocumentActiveElementPropertyInfo = (~) () type AttrBaseTypeConstraint DOMHTMLDocumentActiveElementPropertyInfo = DOMHTMLDocumentK type AttrGetType DOMHTMLDocumentActiveElementPropertyInfo = DOMElement @@ -479,286 +494,355 @@ attrGet _ = getDOMHTMLDocumentActiveElement attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "alink-color" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Just False) -getDOMHTMLDocumentAlinkColor :: (MonadIO m, DOMHTMLDocumentK o) => o -> m T.Text +getDOMHTMLDocumentAlinkColor :: (MonadIO m, DOMHTMLDocumentK o) => o -> m (Maybe T.Text) getDOMHTMLDocumentAlinkColor obj = liftIO $ getObjectPropertyString obj "alink-color" setDOMHTMLDocumentAlinkColor :: (MonadIO m, DOMHTMLDocumentK o) => o -> T.Text -> m () -setDOMHTMLDocumentAlinkColor obj val = liftIO $ setObjectPropertyString obj "alink-color" val +setDOMHTMLDocumentAlinkColor obj val = liftIO $ setObjectPropertyString obj "alink-color" (Just val) constructDOMHTMLDocumentAlinkColor :: T.Text -> IO ([Char], GValue) -constructDOMHTMLDocumentAlinkColor val = constructObjectPropertyString "alink-color" val +constructDOMHTMLDocumentAlinkColor val = constructObjectPropertyString "alink-color" (Just val) data DOMHTMLDocumentAlinkColorPropertyInfo instance AttrInfo DOMHTMLDocumentAlinkColorPropertyInfo where type AttrAllowedOps DOMHTMLDocumentAlinkColorPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint DOMHTMLDocumentAlinkColorPropertyInfo = (~) T.Text type AttrBaseTypeConstraint DOMHTMLDocumentAlinkColorPropertyInfo = DOMHTMLDocumentK - type AttrGetType DOMHTMLDocumentAlinkColorPropertyInfo = T.Text + type AttrGetType DOMHTMLDocumentAlinkColorPropertyInfo = (Maybe T.Text) type AttrLabel DOMHTMLDocumentAlinkColorPropertyInfo = "alink-color" attrGet _ = getDOMHTMLDocumentAlinkColor attrSet _ = setDOMHTMLDocumentAlinkColor attrConstruct _ = constructDOMHTMLDocumentAlinkColor + attrClear _ = undefined -- VVV Prop "bg-color" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Just False) -getDOMHTMLDocumentBgColor :: (MonadIO m, DOMHTMLDocumentK o) => o -> m T.Text +getDOMHTMLDocumentBgColor :: (MonadIO m, DOMHTMLDocumentK o) => o -> m (Maybe T.Text) getDOMHTMLDocumentBgColor obj = liftIO $ getObjectPropertyString obj "bg-color" setDOMHTMLDocumentBgColor :: (MonadIO m, DOMHTMLDocumentK o) => o -> T.Text -> m () -setDOMHTMLDocumentBgColor obj val = liftIO $ setObjectPropertyString obj "bg-color" val +setDOMHTMLDocumentBgColor obj val = liftIO $ setObjectPropertyString obj "bg-color" (Just val) constructDOMHTMLDocumentBgColor :: T.Text -> IO ([Char], GValue) -constructDOMHTMLDocumentBgColor val = constructObjectPropertyString "bg-color" val +constructDOMHTMLDocumentBgColor val = constructObjectPropertyString "bg-color" (Just val) data DOMHTMLDocumentBgColorPropertyInfo instance AttrInfo DOMHTMLDocumentBgColorPropertyInfo where type AttrAllowedOps DOMHTMLDocumentBgColorPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint DOMHTMLDocumentBgColorPropertyInfo = (~) T.Text type AttrBaseTypeConstraint DOMHTMLDocumentBgColorPropertyInfo = DOMHTMLDocumentK - type AttrGetType DOMHTMLDocumentBgColorPropertyInfo = T.Text + type AttrGetType DOMHTMLDocumentBgColorPropertyInfo = (Maybe T.Text) type AttrLabel DOMHTMLDocumentBgColorPropertyInfo = "bg-color" attrGet _ = getDOMHTMLDocumentBgColor attrSet _ = setDOMHTMLDocumentBgColor attrConstruct _ = constructDOMHTMLDocumentBgColor + attrClear _ = undefined -- VVV Prop "compat-mode" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable] + -- Nullable: (Nothing,Nothing) -getDOMHTMLDocumentCompatMode :: (MonadIO m, DOMHTMLDocumentK o) => o -> m T.Text +getDOMHTMLDocumentCompatMode :: (MonadIO m, DOMHTMLDocumentK o) => o -> m (Maybe T.Text) getDOMHTMLDocumentCompatMode obj = liftIO $ getObjectPropertyString obj "compat-mode" data DOMHTMLDocumentCompatModePropertyInfo instance AttrInfo DOMHTMLDocumentCompatModePropertyInfo where - type AttrAllowedOps DOMHTMLDocumentCompatModePropertyInfo = '[ 'AttrGet] + type AttrAllowedOps DOMHTMLDocumentCompatModePropertyInfo = '[ 'AttrGet, 'AttrClear] type AttrSetTypeConstraint DOMHTMLDocumentCompatModePropertyInfo = (~) () type AttrBaseTypeConstraint DOMHTMLDocumentCompatModePropertyInfo = DOMHTMLDocumentK - type AttrGetType DOMHTMLDocumentCompatModePropertyInfo = T.Text + type AttrGetType DOMHTMLDocumentCompatModePropertyInfo = (Maybe T.Text) type AttrLabel DOMHTMLDocumentCompatModePropertyInfo = "compat-mode" attrGet _ = getDOMHTMLDocumentCompatMode attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "design-mode" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Just False) -getDOMHTMLDocumentDesignMode :: (MonadIO m, DOMHTMLDocumentK o) => o -> m T.Text +getDOMHTMLDocumentDesignMode :: (MonadIO m, DOMHTMLDocumentK o) => o -> m (Maybe T.Text) getDOMHTMLDocumentDesignMode obj = liftIO $ getObjectPropertyString obj "design-mode" setDOMHTMLDocumentDesignMode :: (MonadIO m, DOMHTMLDocumentK o) => o -> T.Text -> m () -setDOMHTMLDocumentDesignMode obj val = liftIO $ setObjectPropertyString obj "design-mode" val +setDOMHTMLDocumentDesignMode obj val = liftIO $ setObjectPropertyString obj "design-mode" (Just val) constructDOMHTMLDocumentDesignMode :: T.Text -> IO ([Char], GValue) -constructDOMHTMLDocumentDesignMode val = constructObjectPropertyString "design-mode" val +constructDOMHTMLDocumentDesignMode val = constructObjectPropertyString "design-mode" (Just val) data DOMHTMLDocumentDesignModePropertyInfo instance AttrInfo DOMHTMLDocumentDesignModePropertyInfo where type AttrAllowedOps DOMHTMLDocumentDesignModePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint DOMHTMLDocumentDesignModePropertyInfo = (~) T.Text type AttrBaseTypeConstraint DOMHTMLDocumentDesignModePropertyInfo = DOMHTMLDocumentK - type AttrGetType DOMHTMLDocumentDesignModePropertyInfo = T.Text + type AttrGetType DOMHTMLDocumentDesignModePropertyInfo = (Maybe T.Text) type AttrLabel DOMHTMLDocumentDesignModePropertyInfo = "design-mode" attrGet _ = getDOMHTMLDocumentDesignMode attrSet _ = setDOMHTMLDocumentDesignMode attrConstruct _ = constructDOMHTMLDocumentDesignMode + attrClear _ = undefined -- VVV Prop "dir" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Just False) -getDOMHTMLDocumentDir :: (MonadIO m, DOMHTMLDocumentK o) => o -> m T.Text +getDOMHTMLDocumentDir :: (MonadIO m, DOMHTMLDocumentK o) => o -> m (Maybe T.Text) getDOMHTMLDocumentDir obj = liftIO $ getObjectPropertyString obj "dir" setDOMHTMLDocumentDir :: (MonadIO m, DOMHTMLDocumentK o) => o -> T.Text -> m () -setDOMHTMLDocumentDir obj val = liftIO $ setObjectPropertyString obj "dir" val +setDOMHTMLDocumentDir obj val = liftIO $ setObjectPropertyString obj "dir" (Just val) constructDOMHTMLDocumentDir :: T.Text -> IO ([Char], GValue) -constructDOMHTMLDocumentDir val = constructObjectPropertyString "dir" val +constructDOMHTMLDocumentDir val = constructObjectPropertyString "dir" (Just val) data DOMHTMLDocumentDirPropertyInfo instance AttrInfo DOMHTMLDocumentDirPropertyInfo where type AttrAllowedOps DOMHTMLDocumentDirPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint DOMHTMLDocumentDirPropertyInfo = (~) T.Text type AttrBaseTypeConstraint DOMHTMLDocumentDirPropertyInfo = DOMHTMLDocumentK - type AttrGetType DOMHTMLDocumentDirPropertyInfo = T.Text + type AttrGetType DOMHTMLDocumentDirPropertyInfo = (Maybe T.Text) type AttrLabel DOMHTMLDocumentDirPropertyInfo = "dir" attrGet _ = getDOMHTMLDocumentDir attrSet _ = setDOMHTMLDocumentDir attrConstruct _ = constructDOMHTMLDocumentDir + attrClear _ = undefined -- VVV Prop "embeds" -- Type: TInterface "WebKit" "DOMHTMLCollection" -- Flags: [PropertyReadable] + -- Nullable: (Nothing,Nothing) -getDOMHTMLDocumentEmbeds :: (MonadIO m, DOMHTMLDocumentK o) => o -> m DOMHTMLCollection +getDOMHTMLDocumentEmbeds :: (MonadIO m, DOMHTMLDocumentK o) => o -> m (Maybe DOMHTMLCollection) getDOMHTMLDocumentEmbeds obj = liftIO $ getObjectPropertyObject obj "embeds" DOMHTMLCollection data DOMHTMLDocumentEmbedsPropertyInfo instance AttrInfo DOMHTMLDocumentEmbedsPropertyInfo where - type AttrAllowedOps DOMHTMLDocumentEmbedsPropertyInfo = '[ 'AttrGet] + type AttrAllowedOps DOMHTMLDocumentEmbedsPropertyInfo = '[ 'AttrGet, 'AttrClear] type AttrSetTypeConstraint DOMHTMLDocumentEmbedsPropertyInfo = (~) () type AttrBaseTypeConstraint DOMHTMLDocumentEmbedsPropertyInfo = DOMHTMLDocumentK - type AttrGetType DOMHTMLDocumentEmbedsPropertyInfo = DOMHTMLCollection + type AttrGetType DOMHTMLDocumentEmbedsPropertyInfo = (Maybe DOMHTMLCollection) type AttrLabel DOMHTMLDocumentEmbedsPropertyInfo = "embeds" attrGet _ = getDOMHTMLDocumentEmbeds attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "fg-color" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Just False) -getDOMHTMLDocumentFgColor :: (MonadIO m, DOMHTMLDocumentK o) => o -> m T.Text +getDOMHTMLDocumentFgColor :: (MonadIO m, DOMHTMLDocumentK o) => o -> m (Maybe T.Text) getDOMHTMLDocumentFgColor obj = liftIO $ getObjectPropertyString obj "fg-color" setDOMHTMLDocumentFgColor :: (MonadIO m, DOMHTMLDocumentK o) => o -> T.Text -> m () -setDOMHTMLDocumentFgColor obj val = liftIO $ setObjectPropertyString obj "fg-color" val +setDOMHTMLDocumentFgColor obj val = liftIO $ setObjectPropertyString obj "fg-color" (Just val) constructDOMHTMLDocumentFgColor :: T.Text -> IO ([Char], GValue) -constructDOMHTMLDocumentFgColor val = constructObjectPropertyString "fg-color" val +constructDOMHTMLDocumentFgColor val = constructObjectPropertyString "fg-color" (Just val) data DOMHTMLDocumentFgColorPropertyInfo instance AttrInfo DOMHTMLDocumentFgColorPropertyInfo where type AttrAllowedOps DOMHTMLDocumentFgColorPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint DOMHTMLDocumentFgColorPropertyInfo = (~) T.Text type AttrBaseTypeConstraint DOMHTMLDocumentFgColorPropertyInfo = DOMHTMLDocumentK - type AttrGetType DOMHTMLDocumentFgColorPropertyInfo = T.Text + type AttrGetType DOMHTMLDocumentFgColorPropertyInfo = (Maybe T.Text) type AttrLabel DOMHTMLDocumentFgColorPropertyInfo = "fg-color" attrGet _ = getDOMHTMLDocumentFgColor attrSet _ = setDOMHTMLDocumentFgColor attrConstruct _ = constructDOMHTMLDocumentFgColor + attrClear _ = undefined -- VVV Prop "height" - -- Type: TBasicType TInt64 + -- Type: TBasicType TLong -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) -getDOMHTMLDocumentHeight :: (MonadIO m, DOMHTMLDocumentK o) => o -> m Int64 -getDOMHTMLDocumentHeight obj = liftIO $ getObjectPropertyInt64 obj "height" +getDOMHTMLDocumentHeight :: (MonadIO m, DOMHTMLDocumentK o) => o -> m CLong +getDOMHTMLDocumentHeight obj = liftIO $ getObjectPropertyLong obj "height" data DOMHTMLDocumentHeightPropertyInfo instance AttrInfo DOMHTMLDocumentHeightPropertyInfo where type AttrAllowedOps DOMHTMLDocumentHeightPropertyInfo = '[ 'AttrGet] type AttrSetTypeConstraint DOMHTMLDocumentHeightPropertyInfo = (~) () type AttrBaseTypeConstraint DOMHTMLDocumentHeightPropertyInfo = DOMHTMLDocumentK - type AttrGetType DOMHTMLDocumentHeightPropertyInfo = Int64 + type AttrGetType DOMHTMLDocumentHeightPropertyInfo = CLong type AttrLabel DOMHTMLDocumentHeightPropertyInfo = "height" attrGet _ = getDOMHTMLDocumentHeight attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "link-color" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Just False) -getDOMHTMLDocumentLinkColor :: (MonadIO m, DOMHTMLDocumentK o) => o -> m T.Text +getDOMHTMLDocumentLinkColor :: (MonadIO m, DOMHTMLDocumentK o) => o -> m (Maybe T.Text) getDOMHTMLDocumentLinkColor obj = liftIO $ getObjectPropertyString obj "link-color" setDOMHTMLDocumentLinkColor :: (MonadIO m, DOMHTMLDocumentK o) => o -> T.Text -> m () -setDOMHTMLDocumentLinkColor obj val = liftIO $ setObjectPropertyString obj "link-color" val +setDOMHTMLDocumentLinkColor obj val = liftIO $ setObjectPropertyString obj "link-color" (Just val) constructDOMHTMLDocumentLinkColor :: T.Text -> IO ([Char], GValue) -constructDOMHTMLDocumentLinkColor val = constructObjectPropertyString "link-color" val +constructDOMHTMLDocumentLinkColor val = constructObjectPropertyString "link-color" (Just val) data DOMHTMLDocumentLinkColorPropertyInfo instance AttrInfo DOMHTMLDocumentLinkColorPropertyInfo where type AttrAllowedOps DOMHTMLDocumentLinkColorPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint DOMHTMLDocumentLinkColorPropertyInfo = (~) T.Text type AttrBaseTypeConstraint DOMHTMLDocumentLinkColorPropertyInfo = DOMHTMLDocumentK - type AttrGetType DOMHTMLDocumentLinkColorPropertyInfo = T.Text + type AttrGetType DOMHTMLDocumentLinkColorPropertyInfo = (Maybe T.Text) type AttrLabel DOMHTMLDocumentLinkColorPropertyInfo = "link-color" attrGet _ = getDOMHTMLDocumentLinkColor attrSet _ = setDOMHTMLDocumentLinkColor attrConstruct _ = constructDOMHTMLDocumentLinkColor + attrClear _ = undefined -- VVV Prop "plugins" -- Type: TInterface "WebKit" "DOMHTMLCollection" -- Flags: [PropertyReadable] + -- Nullable: (Nothing,Nothing) -getDOMHTMLDocumentPlugins :: (MonadIO m, DOMHTMLDocumentK o) => o -> m DOMHTMLCollection +getDOMHTMLDocumentPlugins :: (MonadIO m, DOMHTMLDocumentK o) => o -> m (Maybe DOMHTMLCollection) getDOMHTMLDocumentPlugins obj = liftIO $ getObjectPropertyObject obj "plugins" DOMHTMLCollection data DOMHTMLDocumentPluginsPropertyInfo instance AttrInfo DOMHTMLDocumentPluginsPropertyInfo where - type AttrAllowedOps DOMHTMLDocumentPluginsPropertyInfo = '[ 'AttrGet] + type AttrAllowedOps DOMHTMLDocumentPluginsPropertyInfo = '[ 'AttrGet, 'AttrClear] type AttrSetTypeConstraint DOMHTMLDocumentPluginsPropertyInfo = (~) () type AttrBaseTypeConstraint DOMHTMLDocumentPluginsPropertyInfo = DOMHTMLDocumentK - type AttrGetType DOMHTMLDocumentPluginsPropertyInfo = DOMHTMLCollection + type AttrGetType DOMHTMLDocumentPluginsPropertyInfo = (Maybe DOMHTMLCollection) type AttrLabel DOMHTMLDocumentPluginsPropertyInfo = "plugins" attrGet _ = getDOMHTMLDocumentPlugins attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "scripts" -- Type: TInterface "WebKit" "DOMHTMLCollection" -- Flags: [PropertyReadable] + -- Nullable: (Nothing,Nothing) -getDOMHTMLDocumentScripts :: (MonadIO m, DOMHTMLDocumentK o) => o -> m DOMHTMLCollection +getDOMHTMLDocumentScripts :: (MonadIO m, DOMHTMLDocumentK o) => o -> m (Maybe DOMHTMLCollection) getDOMHTMLDocumentScripts obj = liftIO $ getObjectPropertyObject obj "scripts" DOMHTMLCollection data DOMHTMLDocumentScriptsPropertyInfo instance AttrInfo DOMHTMLDocumentScriptsPropertyInfo where - type AttrAllowedOps DOMHTMLDocumentScriptsPropertyInfo = '[ 'AttrGet] + type AttrAllowedOps DOMHTMLDocumentScriptsPropertyInfo = '[ 'AttrGet, 'AttrClear] type AttrSetTypeConstraint DOMHTMLDocumentScriptsPropertyInfo = (~) () type AttrBaseTypeConstraint DOMHTMLDocumentScriptsPropertyInfo = DOMHTMLDocumentK - type AttrGetType DOMHTMLDocumentScriptsPropertyInfo = DOMHTMLCollection + type AttrGetType DOMHTMLDocumentScriptsPropertyInfo = (Maybe DOMHTMLCollection) type AttrLabel DOMHTMLDocumentScriptsPropertyInfo = "scripts" attrGet _ = getDOMHTMLDocumentScripts attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "vlink-color" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Just False) -getDOMHTMLDocumentVlinkColor :: (MonadIO m, DOMHTMLDocumentK o) => o -> m T.Text +getDOMHTMLDocumentVlinkColor :: (MonadIO m, DOMHTMLDocumentK o) => o -> m (Maybe T.Text) getDOMHTMLDocumentVlinkColor obj = liftIO $ getObjectPropertyString obj "vlink-color" setDOMHTMLDocumentVlinkColor :: (MonadIO m, DOMHTMLDocumentK o) => o -> T.Text -> m () -setDOMHTMLDocumentVlinkColor obj val = liftIO $ setObjectPropertyString obj "vlink-color" val +setDOMHTMLDocumentVlinkColor obj val = liftIO $ setObjectPropertyString obj "vlink-color" (Just val) constructDOMHTMLDocumentVlinkColor :: T.Text -> IO ([Char], GValue) -constructDOMHTMLDocumentVlinkColor val = constructObjectPropertyString "vlink-color" val +constructDOMHTMLDocumentVlinkColor val = constructObjectPropertyString "vlink-color" (Just val) data DOMHTMLDocumentVlinkColorPropertyInfo instance AttrInfo DOMHTMLDocumentVlinkColorPropertyInfo where type AttrAllowedOps DOMHTMLDocumentVlinkColorPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint DOMHTMLDocumentVlinkColorPropertyInfo = (~) T.Text type AttrBaseTypeConstraint DOMHTMLDocumentVlinkColorPropertyInfo = DOMHTMLDocumentK - type AttrGetType DOMHTMLDocumentVlinkColorPropertyInfo = T.Text + type AttrGetType DOMHTMLDocumentVlinkColorPropertyInfo = (Maybe T.Text) type AttrLabel DOMHTMLDocumentVlinkColorPropertyInfo = "vlink-color" attrGet _ = getDOMHTMLDocumentVlinkColor attrSet _ = setDOMHTMLDocumentVlinkColor attrConstruct _ = constructDOMHTMLDocumentVlinkColor + attrClear _ = undefined -- VVV Prop "width" - -- Type: TBasicType TInt64 + -- Type: TBasicType TLong -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) -getDOMHTMLDocumentWidth :: (MonadIO m, DOMHTMLDocumentK o) => o -> m Int64 -getDOMHTMLDocumentWidth obj = liftIO $ getObjectPropertyInt64 obj "width" +getDOMHTMLDocumentWidth :: (MonadIO m, DOMHTMLDocumentK o) => o -> m CLong +getDOMHTMLDocumentWidth obj = liftIO $ getObjectPropertyLong obj "width" data DOMHTMLDocumentWidthPropertyInfo instance AttrInfo DOMHTMLDocumentWidthPropertyInfo where type AttrAllowedOps DOMHTMLDocumentWidthPropertyInfo = '[ 'AttrGet] type AttrSetTypeConstraint DOMHTMLDocumentWidthPropertyInfo = (~) () type AttrBaseTypeConstraint DOMHTMLDocumentWidthPropertyInfo = DOMHTMLDocumentK - type AttrGetType DOMHTMLDocumentWidthPropertyInfo = Int64 + type AttrGetType DOMHTMLDocumentWidthPropertyInfo = CLong type AttrLabel DOMHTMLDocumentWidthPropertyInfo = "width" attrGet _ = getDOMHTMLDocumentWidth attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined type instance AttributeList DOMHTMLDocument = DOMHTMLDocumentAttributeList type DOMHTMLDocumentAttributeList = ('[ '("activeElement", DOMHTMLDocumentActiveElementPropertyInfo), '("alinkColor", DOMHTMLDocumentAlinkColorPropertyInfo), '("anchors", DOMDocumentAnchorsPropertyInfo), '("applets", DOMDocumentAppletsPropertyInfo), '("baseUri", DOMNodeBaseUriPropertyInfo), '("bgColor", DOMHTMLDocumentBgColorPropertyInfo), '("body", DOMDocumentBodyPropertyInfo), '("characterSet", DOMDocumentCharacterSetPropertyInfo), '("charset", DOMDocumentCharsetPropertyInfo), '("childNodes", DOMNodeChildNodesPropertyInfo), '("compatMode", DOMHTMLDocumentCompatModePropertyInfo), '("cookie", DOMDocumentCookiePropertyInfo), '("coreObject", DOMObjectCoreObjectPropertyInfo), '("currentScript", DOMDocumentCurrentScriptPropertyInfo), '("defaultCharset", DOMDocumentDefaultCharsetPropertyInfo), '("defaultView", DOMDocumentDefaultViewPropertyInfo), '("designMode", DOMHTMLDocumentDesignModePropertyInfo), '("dir", DOMHTMLDocumentDirPropertyInfo), '("doctype", DOMDocumentDoctypePropertyInfo), '("documentElement", DOMDocumentDocumentElementPropertyInfo), '("documentUri", DOMDocumentDocumentUriPropertyInfo), '("domain", DOMDocumentDomainPropertyInfo), '("embeds", DOMHTMLDocumentEmbedsPropertyInfo), '("fgColor", DOMHTMLDocumentFgColorPropertyInfo), '("firstChild", DOMNodeFirstChildPropertyInfo), '("forms", DOMDocumentFormsPropertyInfo), '("head", DOMDocumentHeadPropertyInfo), '("height", DOMHTMLDocumentHeightPropertyInfo), '("hidden", DOMDocumentHiddenPropertyInfo), '("images", DOMDocumentImagesPropertyInfo), '("implementation", DOMDocumentImplementationPropertyInfo), '("inputEncoding", DOMDocumentInputEncodingPropertyInfo), '("lastChild", DOMNodeLastChildPropertyInfo), '("lastModified", DOMDocumentLastModifiedPropertyInfo), '("linkColor", DOMHTMLDocumentLinkColorPropertyInfo), '("links", DOMDocumentLinksPropertyInfo), '("localName", DOMNodeLocalNamePropertyInfo), '("namespaceUri", DOMNodeNamespaceUriPropertyInfo), '("nextSibling", DOMNodeNextSiblingPropertyInfo), '("nodeName", DOMNodeNodeNamePropertyInfo), '("nodeType", DOMNodeNodeTypePropertyInfo), '("nodeValue", DOMNodeNodeValuePropertyInfo), '("ownerDocument", DOMNodeOwnerDocumentPropertyInfo), '("parentElement", DOMNodeParentElementPropertyInfo), '("parentNode", DOMNodeParentNodePropertyInfo), '("plugins", DOMHTMLDocumentPluginsPropertyInfo), '("preferredStylesheetSet", DOMDocumentPreferredStylesheetSetPropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previousSibling", DOMNodePreviousSiblingPropertyInfo), '("readyState", DOMDocumentReadyStatePropertyInfo), '("referrer", DOMDocumentReferrerPropertyInfo), '("scripts", DOMHTMLDocumentScriptsPropertyInfo), '("securityPolicy", DOMDocumentSecurityPolicyPropertyInfo), '("selectedStylesheetSet", DOMDocumentSelectedStylesheetSetPropertyInfo), '("styleSheets", DOMDocumentStyleSheetsPropertyInfo), '("textContent", DOMNodeTextContentPropertyInfo), '("title", DOMDocumentTitlePropertyInfo), '("url", DOMDocumentUrlPropertyInfo), '("visibilityState", DOMDocumentVisibilityStatePropertyInfo), '("vlinkColor", DOMHTMLDocumentVlinkColorPropertyInfo), '("webkitCurrentFullScreenElement", DOMDocumentWebkitCurrentFullScreenElementPropertyInfo), '("webkitFullScreenKeyboardInputAllowed", DOMDocumentWebkitFullScreenKeyboardInputAllowedPropertyInfo), '("webkitFullscreenElement", DOMDocumentWebkitFullscreenElementPropertyInfo), '("webkitFullscreenEnabled", DOMDocumentWebkitFullscreenEnabledPropertyInfo), '("webkitIsFullScreen", DOMDocumentWebkitIsFullScreenPropertyInfo), '("webkitPointerLockElement", DOMDocumentWebkitPointerLockElementPropertyInfo), '("width", DOMHTMLDocumentWidthPropertyInfo), '("xmlEncoding", DOMDocumentXmlEncodingPropertyInfo), '("xmlStandalone", DOMDocumentXmlStandalonePropertyInfo), '("xmlVersion", DOMDocumentXmlVersionPropertyInfo)] :: [(Symbol, *)]) +dOMHTMLDocumentActiveElement :: AttrLabelProxy "activeElement" +dOMHTMLDocumentActiveElement = AttrLabelProxy + +dOMHTMLDocumentAlinkColor :: AttrLabelProxy "alinkColor" +dOMHTMLDocumentAlinkColor = AttrLabelProxy + +dOMHTMLDocumentBgColor :: AttrLabelProxy "bgColor" +dOMHTMLDocumentBgColor = AttrLabelProxy + +dOMHTMLDocumentCompatMode :: AttrLabelProxy "compatMode" +dOMHTMLDocumentCompatMode = AttrLabelProxy + +dOMHTMLDocumentDesignMode :: AttrLabelProxy "designMode" +dOMHTMLDocumentDesignMode = AttrLabelProxy + +dOMHTMLDocumentDir :: AttrLabelProxy "dir" +dOMHTMLDocumentDir = AttrLabelProxy + +dOMHTMLDocumentEmbeds :: AttrLabelProxy "embeds" +dOMHTMLDocumentEmbeds = AttrLabelProxy + +dOMHTMLDocumentFgColor :: AttrLabelProxy "fgColor" +dOMHTMLDocumentFgColor = AttrLabelProxy + +dOMHTMLDocumentHeight :: AttrLabelProxy "height" +dOMHTMLDocumentHeight = AttrLabelProxy + +dOMHTMLDocumentLinkColor :: AttrLabelProxy "linkColor" +dOMHTMLDocumentLinkColor = AttrLabelProxy + +dOMHTMLDocumentPlugins :: AttrLabelProxy "plugins" +dOMHTMLDocumentPlugins = AttrLabelProxy + +dOMHTMLDocumentScripts :: AttrLabelProxy "scripts" +dOMHTMLDocumentScripts = AttrLabelProxy + +dOMHTMLDocumentVlinkColor :: AttrLabelProxy "vlinkColor" +dOMHTMLDocumentVlinkColor = AttrLabelProxy + +dOMHTMLDocumentWidth :: AttrLabelProxy "width" +dOMHTMLDocumentWidth = AttrLabelProxy + type instance SignalList DOMHTMLDocument = DOMHTMLDocumentSignalList type DOMHTMLDocumentSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) @@ -766,7 +850,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -793,7 +877,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -820,7 +904,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -847,7 +931,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit" "DOMElement" +-- returnType : Just (TInterface "WebKit" "DOMElement") -- throws : False -- Skip return : False @@ -876,7 +960,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -906,7 +990,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -936,7 +1020,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -966,7 +1050,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -996,7 +1080,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -1026,7 +1110,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit" "DOMHTMLCollection" +-- returnType : Just (TInterface "WebKit" "DOMHTMLCollection") -- throws : False -- Skip return : False @@ -1055,7 +1139,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -1085,19 +1169,19 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TInt64 +-- returnType : Just (TBasicType TLong) -- throws : False -- Skip return : False foreign import ccall "webkit_dom_html_document_get_height" webkit_dom_html_document_get_height :: Ptr DOMHTMLDocument -> -- _obj : TInterface "WebKit" "DOMHTMLDocument" - IO Int64 + IO CLong dOMHTMLDocumentGetHeight :: (MonadIO m, DOMHTMLDocumentK a) => a -- _obj - -> m Int64 -- result + -> m CLong -- result dOMHTMLDocumentGetHeight _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- webkit_dom_html_document_get_height _obj' @@ -1105,14 +1189,14 @@ return result data DOMHTMLDocumentGetHeightMethodInfo -instance (signature ~ (m Int64), MonadIO m, DOMHTMLDocumentK a) => MethodInfo DOMHTMLDocumentGetHeightMethodInfo a signature where +instance (signature ~ (m CLong), MonadIO m, DOMHTMLDocumentK a) => MethodInfo DOMHTMLDocumentGetHeightMethodInfo a signature where overloadedMethod _ = dOMHTMLDocumentGetHeight -- method DOMHTMLDocument::get_link_color -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -1142,7 +1226,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit" "DOMHTMLCollection" +-- returnType : Just (TInterface "WebKit" "DOMHTMLCollection") -- throws : False -- Skip return : False @@ -1171,7 +1255,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit" "DOMHTMLCollection" +-- returnType : Just (TInterface "WebKit" "DOMHTMLCollection") -- throws : False -- Skip return : False @@ -1200,7 +1284,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -1230,19 +1314,19 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TInt64 +-- returnType : Just (TBasicType TLong) -- throws : False -- Skip return : False foreign import ccall "webkit_dom_html_document_get_width" webkit_dom_html_document_get_width :: Ptr DOMHTMLDocument -> -- _obj : TInterface "WebKit" "DOMHTMLDocument" - IO Int64 + IO CLong dOMHTMLDocumentGetWidth :: (MonadIO m, DOMHTMLDocumentK a) => a -- _obj - -> m Int64 -- result + -> m CLong -- result dOMHTMLDocumentGetWidth _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- webkit_dom_html_document_get_width _obj' @@ -1250,14 +1334,14 @@ return result data DOMHTMLDocumentGetWidthMethodInfo -instance (signature ~ (m Int64), MonadIO m, DOMHTMLDocumentK a) => MethodInfo DOMHTMLDocumentGetWidthMethodInfo a signature where +instance (signature ~ (m CLong), MonadIO m, DOMHTMLDocumentK a) => MethodInfo DOMHTMLDocumentGetWidthMethodInfo a signature where overloadedMethod _ = dOMHTMLDocumentGetWidth -- method DOMHTMLDocument::has_focus -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -1285,7 +1369,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1312,7 +1396,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1339,7 +1423,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1370,7 +1454,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1401,7 +1485,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1432,7 +1516,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1463,7 +1547,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1494,7 +1578,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1525,7 +1609,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False diff --git a/GI/WebKit/Objects/DOMHTMLDocument.hs-boot b/GI/WebKit/Objects/DOMHTMLDocument.hs-boot --- a/GI/WebKit/Objects/DOMHTMLDocument.hs-boot +++ b/GI/WebKit/Objects/DOMHTMLDocument.hs-boot @@ -1,8 +1,8 @@ module GI.WebKit.Objects.DOMHTMLDocument where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map diff --git a/GI/WebKit/Objects/DOMHTMLElement.hs b/GI/WebKit/Objects/DOMHTMLElement.hs --- a/GI/WebKit/Objects/DOMHTMLElement.hs +++ b/GI/WebKit/Objects/DOMHTMLElement.hs @@ -263,18 +263,22 @@ -- ** AccessKey DOMHTMLElementAccessKeyPropertyInfo , constructDOMHTMLElementAccessKey , + dOMHTMLElementAccessKey , getDOMHTMLElementAccessKey , setDOMHTMLElementAccessKey , -- ** Children DOMHTMLElementChildrenPropertyInfo , + dOMHTMLElementChildren , getDOMHTMLElementChildren , -- ** ContentEditable DOMHTMLElementContentEditablePropertyInfo, + clearDOMHTMLElementContentEditable , constructDOMHTMLElementContentEditable , + dOMHTMLElementContentEditable , getDOMHTMLElementContentEditable , setDOMHTMLElementContentEditable , @@ -282,6 +286,7 @@ -- ** Dir DOMHTMLElementDirPropertyInfo , constructDOMHTMLElementDir , + dOMHTMLElementDir , getDOMHTMLElementDir , setDOMHTMLElementDir , @@ -289,6 +294,7 @@ -- ** Draggable DOMHTMLElementDraggablePropertyInfo , constructDOMHTMLElementDraggable , + dOMHTMLElementDraggable , getDOMHTMLElementDraggable , setDOMHTMLElementDraggable , @@ -296,46 +302,57 @@ -- ** Hidden DOMHTMLElementHiddenPropertyInfo , constructDOMHTMLElementHidden , + dOMHTMLElementHidden , getDOMHTMLElementHidden , setDOMHTMLElementHidden , -- ** InnerHtml DOMHTMLElementInnerHtmlPropertyInfo , + clearDOMHTMLElementInnerHtml , constructDOMHTMLElementInnerHtml , + dOMHTMLElementInnerHtml , getDOMHTMLElementInnerHtml , setDOMHTMLElementInnerHtml , -- ** InnerText DOMHTMLElementInnerTextPropertyInfo , + clearDOMHTMLElementInnerText , constructDOMHTMLElementInnerText , + dOMHTMLElementInnerText , getDOMHTMLElementInnerText , setDOMHTMLElementInnerText , -- ** IsContentEditable DOMHTMLElementIsContentEditablePropertyInfo, + dOMHTMLElementIsContentEditable , getDOMHTMLElementIsContentEditable , -- ** Lang DOMHTMLElementLangPropertyInfo , constructDOMHTMLElementLang , + dOMHTMLElementLang , getDOMHTMLElementLang , setDOMHTMLElementLang , -- ** OuterHtml DOMHTMLElementOuterHtmlPropertyInfo , + clearDOMHTMLElementOuterHtml , constructDOMHTMLElementOuterHtml , + dOMHTMLElementOuterHtml , getDOMHTMLElementOuterHtml , setDOMHTMLElementOuterHtml , -- ** OuterText DOMHTMLElementOuterTextPropertyInfo , + clearDOMHTMLElementOuterText , constructDOMHTMLElementOuterText , + dOMHTMLElementOuterText , getDOMHTMLElementOuterText , setDOMHTMLElementOuterText , @@ -343,6 +360,7 @@ -- ** Spellcheck DOMHTMLElementSpellcheckPropertyInfo , constructDOMHTMLElementSpellcheck , + dOMHTMLElementSpellcheck , getDOMHTMLElementSpellcheck , setDOMHTMLElementSpellcheck , @@ -350,6 +368,7 @@ -- ** TabIndex DOMHTMLElementTabIndexPropertyInfo , constructDOMHTMLElementTabIndex , + dOMHTMLElementTabIndex , getDOMHTMLElementTabIndex , setDOMHTMLElementTabIndex , @@ -357,6 +376,7 @@ -- ** Title DOMHTMLElementTitlePropertyInfo , constructDOMHTMLElementTitle , + dOMHTMLElementTitle , getDOMHTMLElementTitle , setDOMHTMLElementTitle , @@ -364,6 +384,7 @@ -- ** Translate DOMHTMLElementTranslatePropertyInfo , constructDOMHTMLElementTranslate , + dOMHTMLElementTranslate , getDOMHTMLElementTranslate , setDOMHTMLElementTranslate , @@ -371,6 +392,7 @@ -- ** Webkitdropzone DOMHTMLElementWebkitdropzonePropertyInfo, constructDOMHTMLElementWebkitdropzone , + dOMHTMLElementWebkitdropzone , getDOMHTMLElementWebkitdropzone , setDOMHTMLElementWebkitdropzone , @@ -379,9 +401,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map @@ -579,96 +601,108 @@ -- VVV Prop "access-key" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Just False) -getDOMHTMLElementAccessKey :: (MonadIO m, DOMHTMLElementK o) => o -> m T.Text +getDOMHTMLElementAccessKey :: (MonadIO m, DOMHTMLElementK o) => o -> m (Maybe T.Text) getDOMHTMLElementAccessKey obj = liftIO $ getObjectPropertyString obj "access-key" setDOMHTMLElementAccessKey :: (MonadIO m, DOMHTMLElementK o) => o -> T.Text -> m () -setDOMHTMLElementAccessKey obj val = liftIO $ setObjectPropertyString obj "access-key" val +setDOMHTMLElementAccessKey obj val = liftIO $ setObjectPropertyString obj "access-key" (Just val) constructDOMHTMLElementAccessKey :: T.Text -> IO ([Char], GValue) -constructDOMHTMLElementAccessKey val = constructObjectPropertyString "access-key" val +constructDOMHTMLElementAccessKey val = constructObjectPropertyString "access-key" (Just val) data DOMHTMLElementAccessKeyPropertyInfo instance AttrInfo DOMHTMLElementAccessKeyPropertyInfo where type AttrAllowedOps DOMHTMLElementAccessKeyPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint DOMHTMLElementAccessKeyPropertyInfo = (~) T.Text type AttrBaseTypeConstraint DOMHTMLElementAccessKeyPropertyInfo = DOMHTMLElementK - type AttrGetType DOMHTMLElementAccessKeyPropertyInfo = T.Text + type AttrGetType DOMHTMLElementAccessKeyPropertyInfo = (Maybe T.Text) type AttrLabel DOMHTMLElementAccessKeyPropertyInfo = "access-key" attrGet _ = getDOMHTMLElementAccessKey attrSet _ = setDOMHTMLElementAccessKey attrConstruct _ = constructDOMHTMLElementAccessKey + attrClear _ = undefined -- VVV Prop "children" -- Type: TInterface "WebKit" "DOMHTMLCollection" -- Flags: [PropertyReadable] + -- Nullable: (Nothing,Nothing) -getDOMHTMLElementChildren :: (MonadIO m, DOMHTMLElementK o) => o -> m DOMHTMLCollection +getDOMHTMLElementChildren :: (MonadIO m, DOMHTMLElementK o) => o -> m (Maybe DOMHTMLCollection) getDOMHTMLElementChildren obj = liftIO $ getObjectPropertyObject obj "children" DOMHTMLCollection data DOMHTMLElementChildrenPropertyInfo instance AttrInfo DOMHTMLElementChildrenPropertyInfo where - type AttrAllowedOps DOMHTMLElementChildrenPropertyInfo = '[ 'AttrGet] + type AttrAllowedOps DOMHTMLElementChildrenPropertyInfo = '[ 'AttrGet, 'AttrClear] type AttrSetTypeConstraint DOMHTMLElementChildrenPropertyInfo = (~) () type AttrBaseTypeConstraint DOMHTMLElementChildrenPropertyInfo = DOMHTMLElementK - type AttrGetType DOMHTMLElementChildrenPropertyInfo = DOMHTMLCollection + type AttrGetType DOMHTMLElementChildrenPropertyInfo = (Maybe DOMHTMLCollection) type AttrLabel DOMHTMLElementChildrenPropertyInfo = "children" attrGet _ = getDOMHTMLElementChildren attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "content-editable" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) -getDOMHTMLElementContentEditable :: (MonadIO m, DOMHTMLElementK o) => o -> m T.Text +getDOMHTMLElementContentEditable :: (MonadIO m, DOMHTMLElementK o) => o -> m (Maybe T.Text) getDOMHTMLElementContentEditable obj = liftIO $ getObjectPropertyString obj "content-editable" setDOMHTMLElementContentEditable :: (MonadIO m, DOMHTMLElementK o) => o -> T.Text -> m () -setDOMHTMLElementContentEditable obj val = liftIO $ setObjectPropertyString obj "content-editable" val +setDOMHTMLElementContentEditable obj val = liftIO $ setObjectPropertyString obj "content-editable" (Just val) constructDOMHTMLElementContentEditable :: T.Text -> IO ([Char], GValue) -constructDOMHTMLElementContentEditable val = constructObjectPropertyString "content-editable" val +constructDOMHTMLElementContentEditable val = constructObjectPropertyString "content-editable" (Just val) +clearDOMHTMLElementContentEditable :: (MonadIO m, DOMHTMLElementK o) => o -> m () +clearDOMHTMLElementContentEditable obj = liftIO $ setObjectPropertyString obj "content-editable" (Nothing :: Maybe T.Text) + data DOMHTMLElementContentEditablePropertyInfo instance AttrInfo DOMHTMLElementContentEditablePropertyInfo where - type AttrAllowedOps DOMHTMLElementContentEditablePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrAllowedOps DOMHTMLElementContentEditablePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint DOMHTMLElementContentEditablePropertyInfo = (~) T.Text type AttrBaseTypeConstraint DOMHTMLElementContentEditablePropertyInfo = DOMHTMLElementK - type AttrGetType DOMHTMLElementContentEditablePropertyInfo = T.Text + type AttrGetType DOMHTMLElementContentEditablePropertyInfo = (Maybe T.Text) type AttrLabel DOMHTMLElementContentEditablePropertyInfo = "content-editable" attrGet _ = getDOMHTMLElementContentEditable attrSet _ = setDOMHTMLElementContentEditable attrConstruct _ = constructDOMHTMLElementContentEditable + attrClear _ = clearDOMHTMLElementContentEditable -- VVV Prop "dir" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Just False) -getDOMHTMLElementDir :: (MonadIO m, DOMHTMLElementK o) => o -> m T.Text +getDOMHTMLElementDir :: (MonadIO m, DOMHTMLElementK o) => o -> m (Maybe T.Text) getDOMHTMLElementDir obj = liftIO $ getObjectPropertyString obj "dir" setDOMHTMLElementDir :: (MonadIO m, DOMHTMLElementK o) => o -> T.Text -> m () -setDOMHTMLElementDir obj val = liftIO $ setObjectPropertyString obj "dir" val +setDOMHTMLElementDir obj val = liftIO $ setObjectPropertyString obj "dir" (Just val) constructDOMHTMLElementDir :: T.Text -> IO ([Char], GValue) -constructDOMHTMLElementDir val = constructObjectPropertyString "dir" val +constructDOMHTMLElementDir val = constructObjectPropertyString "dir" (Just val) data DOMHTMLElementDirPropertyInfo instance AttrInfo DOMHTMLElementDirPropertyInfo where type AttrAllowedOps DOMHTMLElementDirPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint DOMHTMLElementDirPropertyInfo = (~) T.Text type AttrBaseTypeConstraint DOMHTMLElementDirPropertyInfo = DOMHTMLElementK - type AttrGetType DOMHTMLElementDirPropertyInfo = T.Text + type AttrGetType DOMHTMLElementDirPropertyInfo = (Maybe T.Text) type AttrLabel DOMHTMLElementDirPropertyInfo = "dir" attrGet _ = getDOMHTMLElementDir attrSet _ = setDOMHTMLElementDir attrConstruct _ = constructDOMHTMLElementDir + attrClear _ = undefined -- VVV Prop "draggable" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getDOMHTMLElementDraggable :: (MonadIO m, DOMHTMLElementK o) => o -> m Bool getDOMHTMLElementDraggable obj = liftIO $ getObjectPropertyBool obj "draggable" @@ -689,10 +723,12 @@ attrGet _ = getDOMHTMLElementDraggable attrSet _ = setDOMHTMLElementDraggable attrConstruct _ = constructDOMHTMLElementDraggable + attrClear _ = undefined -- VVV Prop "hidden" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getDOMHTMLElementHidden :: (MonadIO m, DOMHTMLElementK o) => o -> m Bool getDOMHTMLElementHidden obj = liftIO $ getObjectPropertyBool obj "hidden" @@ -713,58 +749,70 @@ attrGet _ = getDOMHTMLElementHidden attrSet _ = setDOMHTMLElementHidden attrConstruct _ = constructDOMHTMLElementHidden + attrClear _ = undefined -- VVV Prop "inner-html" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) -getDOMHTMLElementInnerHtml :: (MonadIO m, DOMHTMLElementK o) => o -> m T.Text +getDOMHTMLElementInnerHtml :: (MonadIO m, DOMHTMLElementK o) => o -> m (Maybe T.Text) getDOMHTMLElementInnerHtml obj = liftIO $ getObjectPropertyString obj "inner-html" setDOMHTMLElementInnerHtml :: (MonadIO m, DOMHTMLElementK o) => o -> T.Text -> m () -setDOMHTMLElementInnerHtml obj val = liftIO $ setObjectPropertyString obj "inner-html" val +setDOMHTMLElementInnerHtml obj val = liftIO $ setObjectPropertyString obj "inner-html" (Just val) constructDOMHTMLElementInnerHtml :: T.Text -> IO ([Char], GValue) -constructDOMHTMLElementInnerHtml val = constructObjectPropertyString "inner-html" val +constructDOMHTMLElementInnerHtml val = constructObjectPropertyString "inner-html" (Just val) +clearDOMHTMLElementInnerHtml :: (MonadIO m, DOMHTMLElementK o) => o -> m () +clearDOMHTMLElementInnerHtml obj = liftIO $ setObjectPropertyString obj "inner-html" (Nothing :: Maybe T.Text) + data DOMHTMLElementInnerHtmlPropertyInfo instance AttrInfo DOMHTMLElementInnerHtmlPropertyInfo where - type AttrAllowedOps DOMHTMLElementInnerHtmlPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrAllowedOps DOMHTMLElementInnerHtmlPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint DOMHTMLElementInnerHtmlPropertyInfo = (~) T.Text type AttrBaseTypeConstraint DOMHTMLElementInnerHtmlPropertyInfo = DOMHTMLElementK - type AttrGetType DOMHTMLElementInnerHtmlPropertyInfo = T.Text + type AttrGetType DOMHTMLElementInnerHtmlPropertyInfo = (Maybe T.Text) type AttrLabel DOMHTMLElementInnerHtmlPropertyInfo = "inner-html" attrGet _ = getDOMHTMLElementInnerHtml attrSet _ = setDOMHTMLElementInnerHtml attrConstruct _ = constructDOMHTMLElementInnerHtml + attrClear _ = clearDOMHTMLElementInnerHtml -- VVV Prop "inner-text" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) -getDOMHTMLElementInnerText :: (MonadIO m, DOMHTMLElementK o) => o -> m T.Text +getDOMHTMLElementInnerText :: (MonadIO m, DOMHTMLElementK o) => o -> m (Maybe T.Text) getDOMHTMLElementInnerText obj = liftIO $ getObjectPropertyString obj "inner-text" setDOMHTMLElementInnerText :: (MonadIO m, DOMHTMLElementK o) => o -> T.Text -> m () -setDOMHTMLElementInnerText obj val = liftIO $ setObjectPropertyString obj "inner-text" val +setDOMHTMLElementInnerText obj val = liftIO $ setObjectPropertyString obj "inner-text" (Just val) constructDOMHTMLElementInnerText :: T.Text -> IO ([Char], GValue) -constructDOMHTMLElementInnerText val = constructObjectPropertyString "inner-text" val +constructDOMHTMLElementInnerText val = constructObjectPropertyString "inner-text" (Just val) +clearDOMHTMLElementInnerText :: (MonadIO m, DOMHTMLElementK o) => o -> m () +clearDOMHTMLElementInnerText obj = liftIO $ setObjectPropertyString obj "inner-text" (Nothing :: Maybe T.Text) + data DOMHTMLElementInnerTextPropertyInfo instance AttrInfo DOMHTMLElementInnerTextPropertyInfo where - type AttrAllowedOps DOMHTMLElementInnerTextPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrAllowedOps DOMHTMLElementInnerTextPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint DOMHTMLElementInnerTextPropertyInfo = (~) T.Text type AttrBaseTypeConstraint DOMHTMLElementInnerTextPropertyInfo = DOMHTMLElementK - type AttrGetType DOMHTMLElementInnerTextPropertyInfo = T.Text + type AttrGetType DOMHTMLElementInnerTextPropertyInfo = (Maybe T.Text) type AttrLabel DOMHTMLElementInnerTextPropertyInfo = "inner-text" attrGet _ = getDOMHTMLElementInnerText attrSet _ = setDOMHTMLElementInnerText attrConstruct _ = constructDOMHTMLElementInnerText + attrClear _ = clearDOMHTMLElementInnerText -- VVV Prop "is-content-editable" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) getDOMHTMLElementIsContentEditable :: (MonadIO m, DOMHTMLElementK o) => o -> m Bool getDOMHTMLElementIsContentEditable obj = liftIO $ getObjectPropertyBool obj "is-content-editable" @@ -779,82 +827,96 @@ attrGet _ = getDOMHTMLElementIsContentEditable attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "lang" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Just False) -getDOMHTMLElementLang :: (MonadIO m, DOMHTMLElementK o) => o -> m T.Text +getDOMHTMLElementLang :: (MonadIO m, DOMHTMLElementK o) => o -> m (Maybe T.Text) getDOMHTMLElementLang obj = liftIO $ getObjectPropertyString obj "lang" setDOMHTMLElementLang :: (MonadIO m, DOMHTMLElementK o) => o -> T.Text -> m () -setDOMHTMLElementLang obj val = liftIO $ setObjectPropertyString obj "lang" val +setDOMHTMLElementLang obj val = liftIO $ setObjectPropertyString obj "lang" (Just val) constructDOMHTMLElementLang :: T.Text -> IO ([Char], GValue) -constructDOMHTMLElementLang val = constructObjectPropertyString "lang" val +constructDOMHTMLElementLang val = constructObjectPropertyString "lang" (Just val) data DOMHTMLElementLangPropertyInfo instance AttrInfo DOMHTMLElementLangPropertyInfo where type AttrAllowedOps DOMHTMLElementLangPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint DOMHTMLElementLangPropertyInfo = (~) T.Text type AttrBaseTypeConstraint DOMHTMLElementLangPropertyInfo = DOMHTMLElementK - type AttrGetType DOMHTMLElementLangPropertyInfo = T.Text + type AttrGetType DOMHTMLElementLangPropertyInfo = (Maybe T.Text) type AttrLabel DOMHTMLElementLangPropertyInfo = "lang" attrGet _ = getDOMHTMLElementLang attrSet _ = setDOMHTMLElementLang attrConstruct _ = constructDOMHTMLElementLang + attrClear _ = undefined -- VVV Prop "outer-html" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) -getDOMHTMLElementOuterHtml :: (MonadIO m, DOMHTMLElementK o) => o -> m T.Text +getDOMHTMLElementOuterHtml :: (MonadIO m, DOMHTMLElementK o) => o -> m (Maybe T.Text) getDOMHTMLElementOuterHtml obj = liftIO $ getObjectPropertyString obj "outer-html" setDOMHTMLElementOuterHtml :: (MonadIO m, DOMHTMLElementK o) => o -> T.Text -> m () -setDOMHTMLElementOuterHtml obj val = liftIO $ setObjectPropertyString obj "outer-html" val +setDOMHTMLElementOuterHtml obj val = liftIO $ setObjectPropertyString obj "outer-html" (Just val) constructDOMHTMLElementOuterHtml :: T.Text -> IO ([Char], GValue) -constructDOMHTMLElementOuterHtml val = constructObjectPropertyString "outer-html" val +constructDOMHTMLElementOuterHtml val = constructObjectPropertyString "outer-html" (Just val) +clearDOMHTMLElementOuterHtml :: (MonadIO m, DOMHTMLElementK o) => o -> m () +clearDOMHTMLElementOuterHtml obj = liftIO $ setObjectPropertyString obj "outer-html" (Nothing :: Maybe T.Text) + data DOMHTMLElementOuterHtmlPropertyInfo instance AttrInfo DOMHTMLElementOuterHtmlPropertyInfo where - type AttrAllowedOps DOMHTMLElementOuterHtmlPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrAllowedOps DOMHTMLElementOuterHtmlPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint DOMHTMLElementOuterHtmlPropertyInfo = (~) T.Text type AttrBaseTypeConstraint DOMHTMLElementOuterHtmlPropertyInfo = DOMHTMLElementK - type AttrGetType DOMHTMLElementOuterHtmlPropertyInfo = T.Text + type AttrGetType DOMHTMLElementOuterHtmlPropertyInfo = (Maybe T.Text) type AttrLabel DOMHTMLElementOuterHtmlPropertyInfo = "outer-html" attrGet _ = getDOMHTMLElementOuterHtml attrSet _ = setDOMHTMLElementOuterHtml attrConstruct _ = constructDOMHTMLElementOuterHtml + attrClear _ = clearDOMHTMLElementOuterHtml -- VVV Prop "outer-text" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) -getDOMHTMLElementOuterText :: (MonadIO m, DOMHTMLElementK o) => o -> m T.Text +getDOMHTMLElementOuterText :: (MonadIO m, DOMHTMLElementK o) => o -> m (Maybe T.Text) getDOMHTMLElementOuterText obj = liftIO $ getObjectPropertyString obj "outer-text" setDOMHTMLElementOuterText :: (MonadIO m, DOMHTMLElementK o) => o -> T.Text -> m () -setDOMHTMLElementOuterText obj val = liftIO $ setObjectPropertyString obj "outer-text" val +setDOMHTMLElementOuterText obj val = liftIO $ setObjectPropertyString obj "outer-text" (Just val) constructDOMHTMLElementOuterText :: T.Text -> IO ([Char], GValue) -constructDOMHTMLElementOuterText val = constructObjectPropertyString "outer-text" val +constructDOMHTMLElementOuterText val = constructObjectPropertyString "outer-text" (Just val) +clearDOMHTMLElementOuterText :: (MonadIO m, DOMHTMLElementK o) => o -> m () +clearDOMHTMLElementOuterText obj = liftIO $ setObjectPropertyString obj "outer-text" (Nothing :: Maybe T.Text) + data DOMHTMLElementOuterTextPropertyInfo instance AttrInfo DOMHTMLElementOuterTextPropertyInfo where - type AttrAllowedOps DOMHTMLElementOuterTextPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrAllowedOps DOMHTMLElementOuterTextPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint DOMHTMLElementOuterTextPropertyInfo = (~) T.Text type AttrBaseTypeConstraint DOMHTMLElementOuterTextPropertyInfo = DOMHTMLElementK - type AttrGetType DOMHTMLElementOuterTextPropertyInfo = T.Text + type AttrGetType DOMHTMLElementOuterTextPropertyInfo = (Maybe T.Text) type AttrLabel DOMHTMLElementOuterTextPropertyInfo = "outer-text" attrGet _ = getDOMHTMLElementOuterText attrSet _ = setDOMHTMLElementOuterText attrConstruct _ = constructDOMHTMLElementOuterText + attrClear _ = clearDOMHTMLElementOuterText -- VVV Prop "spellcheck" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getDOMHTMLElementSpellcheck :: (MonadIO m, DOMHTMLElementK o) => o -> m Bool getDOMHTMLElementSpellcheck obj = liftIO $ getObjectPropertyBool obj "spellcheck" @@ -875,58 +937,64 @@ attrGet _ = getDOMHTMLElementSpellcheck attrSet _ = setDOMHTMLElementSpellcheck attrConstruct _ = constructDOMHTMLElementSpellcheck + attrClear _ = undefined -- VVV Prop "tab-index" - -- Type: TBasicType TInt64 + -- Type: TBasicType TLong -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) -getDOMHTMLElementTabIndex :: (MonadIO m, DOMHTMLElementK o) => o -> m Int64 -getDOMHTMLElementTabIndex obj = liftIO $ getObjectPropertyInt64 obj "tab-index" +getDOMHTMLElementTabIndex :: (MonadIO m, DOMHTMLElementK o) => o -> m CLong +getDOMHTMLElementTabIndex obj = liftIO $ getObjectPropertyLong obj "tab-index" -setDOMHTMLElementTabIndex :: (MonadIO m, DOMHTMLElementK o) => o -> Int64 -> m () -setDOMHTMLElementTabIndex obj val = liftIO $ setObjectPropertyInt64 obj "tab-index" val +setDOMHTMLElementTabIndex :: (MonadIO m, DOMHTMLElementK o) => o -> CLong -> m () +setDOMHTMLElementTabIndex obj val = liftIO $ setObjectPropertyLong obj "tab-index" val -constructDOMHTMLElementTabIndex :: Int64 -> IO ([Char], GValue) -constructDOMHTMLElementTabIndex val = constructObjectPropertyInt64 "tab-index" val +constructDOMHTMLElementTabIndex :: CLong -> IO ([Char], GValue) +constructDOMHTMLElementTabIndex val = constructObjectPropertyLong "tab-index" val data DOMHTMLElementTabIndexPropertyInfo instance AttrInfo DOMHTMLElementTabIndexPropertyInfo where type AttrAllowedOps DOMHTMLElementTabIndexPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLElementTabIndexPropertyInfo = (~) Int64 + type AttrSetTypeConstraint DOMHTMLElementTabIndexPropertyInfo = (~) CLong type AttrBaseTypeConstraint DOMHTMLElementTabIndexPropertyInfo = DOMHTMLElementK - type AttrGetType DOMHTMLElementTabIndexPropertyInfo = Int64 + type AttrGetType DOMHTMLElementTabIndexPropertyInfo = CLong type AttrLabel DOMHTMLElementTabIndexPropertyInfo = "tab-index" attrGet _ = getDOMHTMLElementTabIndex attrSet _ = setDOMHTMLElementTabIndex attrConstruct _ = constructDOMHTMLElementTabIndex + attrClear _ = undefined -- VVV Prop "title" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Just False) -getDOMHTMLElementTitle :: (MonadIO m, DOMHTMLElementK o) => o -> m T.Text +getDOMHTMLElementTitle :: (MonadIO m, DOMHTMLElementK o) => o -> m (Maybe T.Text) getDOMHTMLElementTitle obj = liftIO $ getObjectPropertyString obj "title" setDOMHTMLElementTitle :: (MonadIO m, DOMHTMLElementK o) => o -> T.Text -> m () -setDOMHTMLElementTitle obj val = liftIO $ setObjectPropertyString obj "title" val +setDOMHTMLElementTitle obj val = liftIO $ setObjectPropertyString obj "title" (Just val) constructDOMHTMLElementTitle :: T.Text -> IO ([Char], GValue) -constructDOMHTMLElementTitle val = constructObjectPropertyString "title" val +constructDOMHTMLElementTitle val = constructObjectPropertyString "title" (Just val) data DOMHTMLElementTitlePropertyInfo instance AttrInfo DOMHTMLElementTitlePropertyInfo where type AttrAllowedOps DOMHTMLElementTitlePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint DOMHTMLElementTitlePropertyInfo = (~) T.Text type AttrBaseTypeConstraint DOMHTMLElementTitlePropertyInfo = DOMHTMLElementK - type AttrGetType DOMHTMLElementTitlePropertyInfo = T.Text + type AttrGetType DOMHTMLElementTitlePropertyInfo = (Maybe T.Text) type AttrLabel DOMHTMLElementTitlePropertyInfo = "title" attrGet _ = getDOMHTMLElementTitle attrSet _ = setDOMHTMLElementTitle attrConstruct _ = constructDOMHTMLElementTitle + attrClear _ = undefined -- VVV Prop "translate" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getDOMHTMLElementTranslate :: (MonadIO m, DOMHTMLElementK o) => o -> m Bool getDOMHTMLElementTranslate obj = liftIO $ getObjectPropertyBool obj "translate" @@ -947,34 +1015,88 @@ attrGet _ = getDOMHTMLElementTranslate attrSet _ = setDOMHTMLElementTranslate attrConstruct _ = constructDOMHTMLElementTranslate + attrClear _ = undefined -- VVV Prop "webkitdropzone" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Just False) -getDOMHTMLElementWebkitdropzone :: (MonadIO m, DOMHTMLElementK o) => o -> m T.Text +getDOMHTMLElementWebkitdropzone :: (MonadIO m, DOMHTMLElementK o) => o -> m (Maybe T.Text) getDOMHTMLElementWebkitdropzone obj = liftIO $ getObjectPropertyString obj "webkitdropzone" setDOMHTMLElementWebkitdropzone :: (MonadIO m, DOMHTMLElementK o) => o -> T.Text -> m () -setDOMHTMLElementWebkitdropzone obj val = liftIO $ setObjectPropertyString obj "webkitdropzone" val +setDOMHTMLElementWebkitdropzone obj val = liftIO $ setObjectPropertyString obj "webkitdropzone" (Just val) constructDOMHTMLElementWebkitdropzone :: T.Text -> IO ([Char], GValue) -constructDOMHTMLElementWebkitdropzone val = constructObjectPropertyString "webkitdropzone" val +constructDOMHTMLElementWebkitdropzone val = constructObjectPropertyString "webkitdropzone" (Just val) data DOMHTMLElementWebkitdropzonePropertyInfo instance AttrInfo DOMHTMLElementWebkitdropzonePropertyInfo where type AttrAllowedOps DOMHTMLElementWebkitdropzonePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint DOMHTMLElementWebkitdropzonePropertyInfo = (~) T.Text type AttrBaseTypeConstraint DOMHTMLElementWebkitdropzonePropertyInfo = DOMHTMLElementK - type AttrGetType DOMHTMLElementWebkitdropzonePropertyInfo = T.Text + type AttrGetType DOMHTMLElementWebkitdropzonePropertyInfo = (Maybe T.Text) type AttrLabel DOMHTMLElementWebkitdropzonePropertyInfo = "webkitdropzone" attrGet _ = getDOMHTMLElementWebkitdropzone attrSet _ = setDOMHTMLElementWebkitdropzone attrConstruct _ = constructDOMHTMLElementWebkitdropzone + attrClear _ = undefined type instance AttributeList DOMHTMLElement = DOMHTMLElementAttributeList type DOMHTMLElementAttributeList = ('[ '("accessKey", DOMHTMLElementAccessKeyPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("baseUri", DOMNodeBaseUriPropertyInfo), '("childElementCount", DOMElementChildElementCountPropertyInfo), '("childNodes", DOMNodeChildNodesPropertyInfo), '("children", DOMHTMLElementChildrenPropertyInfo), '("classList", DOMElementClassListPropertyInfo), '("className", DOMElementClassNamePropertyInfo), '("clientHeight", DOMElementClientHeightPropertyInfo), '("clientLeft", DOMElementClientLeftPropertyInfo), '("clientTop", DOMElementClientTopPropertyInfo), '("clientWidth", DOMElementClientWidthPropertyInfo), '("contentEditable", DOMHTMLElementContentEditablePropertyInfo), '("coreObject", DOMObjectCoreObjectPropertyInfo), '("dir", DOMHTMLElementDirPropertyInfo), '("draggable", DOMHTMLElementDraggablePropertyInfo), '("firstChild", DOMNodeFirstChildPropertyInfo), '("firstElementChild", DOMElementFirstElementChildPropertyInfo), '("hidden", DOMHTMLElementHiddenPropertyInfo), '("id", DOMElementIdPropertyInfo), '("innerHtml", DOMHTMLElementInnerHtmlPropertyInfo), '("innerText", DOMHTMLElementInnerTextPropertyInfo), '("isContentEditable", DOMHTMLElementIsContentEditablePropertyInfo), '("lang", DOMHTMLElementLangPropertyInfo), '("lastChild", DOMNodeLastChildPropertyInfo), '("lastElementChild", DOMElementLastElementChildPropertyInfo), '("localName", DOMNodeLocalNamePropertyInfo), '("namespaceUri", DOMNodeNamespaceUriPropertyInfo), '("nextElementSibling", DOMElementNextElementSiblingPropertyInfo), '("nextSibling", DOMNodeNextSiblingPropertyInfo), '("nodeName", DOMNodeNodeNamePropertyInfo), '("nodeType", DOMNodeNodeTypePropertyInfo), '("nodeValue", DOMNodeNodeValuePropertyInfo), '("offsetHeight", DOMElementOffsetHeightPropertyInfo), '("offsetLeft", DOMElementOffsetLeftPropertyInfo), '("offsetParent", DOMElementOffsetParentPropertyInfo), '("offsetTop", DOMElementOffsetTopPropertyInfo), '("offsetWidth", DOMElementOffsetWidthPropertyInfo), '("outerHtml", DOMHTMLElementOuterHtmlPropertyInfo), '("outerText", DOMHTMLElementOuterTextPropertyInfo), '("ownerDocument", DOMNodeOwnerDocumentPropertyInfo), '("parentElement", DOMNodeParentElementPropertyInfo), '("parentNode", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previousElementSibling", DOMElementPreviousElementSiblingPropertyInfo), '("previousSibling", DOMNodePreviousSiblingPropertyInfo), '("scrollHeight", DOMElementScrollHeightPropertyInfo), '("scrollLeft", DOMElementScrollLeftPropertyInfo), '("scrollTop", DOMElementScrollTopPropertyInfo), '("scrollWidth", DOMElementScrollWidthPropertyInfo), '("spellcheck", DOMHTMLElementSpellcheckPropertyInfo), '("style", DOMElementStylePropertyInfo), '("tabIndex", DOMHTMLElementTabIndexPropertyInfo), '("tagName", DOMElementTagNamePropertyInfo), '("textContent", DOMNodeTextContentPropertyInfo), '("title", DOMHTMLElementTitlePropertyInfo), '("translate", DOMHTMLElementTranslatePropertyInfo), '("webkitRegionOverset", DOMElementWebkitRegionOversetPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo)] :: [(Symbol, *)]) +dOMHTMLElementAccessKey :: AttrLabelProxy "accessKey" +dOMHTMLElementAccessKey = AttrLabelProxy + +dOMHTMLElementChildren :: AttrLabelProxy "children" +dOMHTMLElementChildren = AttrLabelProxy + +dOMHTMLElementContentEditable :: AttrLabelProxy "contentEditable" +dOMHTMLElementContentEditable = AttrLabelProxy + +dOMHTMLElementDir :: AttrLabelProxy "dir" +dOMHTMLElementDir = AttrLabelProxy + +dOMHTMLElementDraggable :: AttrLabelProxy "draggable" +dOMHTMLElementDraggable = AttrLabelProxy + +dOMHTMLElementHidden :: AttrLabelProxy "hidden" +dOMHTMLElementHidden = AttrLabelProxy + +dOMHTMLElementInnerHtml :: AttrLabelProxy "innerHtml" +dOMHTMLElementInnerHtml = AttrLabelProxy + +dOMHTMLElementInnerText :: AttrLabelProxy "innerText" +dOMHTMLElementInnerText = AttrLabelProxy + +dOMHTMLElementIsContentEditable :: AttrLabelProxy "isContentEditable" +dOMHTMLElementIsContentEditable = AttrLabelProxy + +dOMHTMLElementLang :: AttrLabelProxy "lang" +dOMHTMLElementLang = AttrLabelProxy + +dOMHTMLElementOuterHtml :: AttrLabelProxy "outerHtml" +dOMHTMLElementOuterHtml = AttrLabelProxy + +dOMHTMLElementOuterText :: AttrLabelProxy "outerText" +dOMHTMLElementOuterText = AttrLabelProxy + +dOMHTMLElementSpellcheck :: AttrLabelProxy "spellcheck" +dOMHTMLElementSpellcheck = AttrLabelProxy + +dOMHTMLElementTabIndex :: AttrLabelProxy "tabIndex" +dOMHTMLElementTabIndex = AttrLabelProxy + +dOMHTMLElementTitle :: AttrLabelProxy "title" +dOMHTMLElementTitle = AttrLabelProxy + +dOMHTMLElementTranslate :: AttrLabelProxy "translate" +dOMHTMLElementTranslate = AttrLabelProxy + +dOMHTMLElementWebkitdropzone :: AttrLabelProxy "webkitdropzone" +dOMHTMLElementWebkitdropzone = AttrLabelProxy + type instance SignalList DOMHTMLElement = DOMHTMLElementSignalList type DOMHTMLElementSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) @@ -982,7 +1104,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1009,7 +1131,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -1039,7 +1161,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit" "DOMHTMLCollection" +-- returnType : Just (TInterface "WebKit" "DOMHTMLCollection") -- throws : False -- Skip return : False @@ -1068,7 +1190,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit" "DOMDOMTokenList" +-- returnType : Just (TInterface "WebKit" "DOMDOMTokenList") -- throws : False -- Skip return : False @@ -1097,7 +1219,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -1127,7 +1249,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -1157,7 +1279,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -1187,7 +1309,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -1215,7 +1337,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -1243,7 +1365,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -1273,7 +1395,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -1303,7 +1425,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -1333,7 +1455,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -1361,7 +1483,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -1391,7 +1513,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit" "DOMDOMSettableTokenList" +-- returnType : Just (TInterface "WebKit" "DOMDOMSettableTokenList") -- throws : False -- Skip return : False @@ -1420,7 +1542,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit" "DOMDOMSettableTokenList" +-- returnType : Just (TInterface "WebKit" "DOMDOMSettableTokenList") -- throws : False -- Skip return : False @@ -1449,7 +1571,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -1477,34 +1599,34 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Just (TBasicType TPtr) -- throws : False -- Skip return : False foreign import ccall "webkit_dom_html_element_get_item_type" webkit_dom_html_element_get_item_type :: Ptr DOMHTMLElement -> -- _obj : TInterface "WebKit" "DOMHTMLElement" - IO () + IO (Ptr ()) {-# DEPRECATED dOMHTMLElementGetItemType ["(Since version 2.2)"]#-} dOMHTMLElementGetItemType :: (MonadIO m, DOMHTMLElementK a) => a -- _obj - -> m () -- result + -> m (Ptr ()) -- result dOMHTMLElementGetItemType _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - webkit_dom_html_element_get_item_type _obj' + result <- webkit_dom_html_element_get_item_type _obj' touchManagedPtr _obj - return () + return result data DOMHTMLElementGetItemTypeMethodInfo -instance (signature ~ (m ()), MonadIO m, DOMHTMLElementK a) => MethodInfo DOMHTMLElementGetItemTypeMethodInfo a signature where +instance (signature ~ (m (Ptr ())), MonadIO m, DOMHTMLElementK a) => MethodInfo DOMHTMLElementGetItemTypeMethodInfo a signature where overloadedMethod _ = dOMHTMLElementGetItemType -- method DOMHTMLElement::get_lang -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -1534,7 +1656,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -1564,7 +1686,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -1594,7 +1716,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -1622,19 +1744,19 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TInt64 +-- returnType : Just (TBasicType TLong) -- throws : False -- Skip return : False foreign import ccall "webkit_dom_html_element_get_tab_index" webkit_dom_html_element_get_tab_index :: Ptr DOMHTMLElement -> -- _obj : TInterface "WebKit" "DOMHTMLElement" - IO Int64 + IO CLong dOMHTMLElementGetTabIndex :: (MonadIO m, DOMHTMLElementK a) => a -- _obj - -> m Int64 -- result + -> m CLong -- result dOMHTMLElementGetTabIndex _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- webkit_dom_html_element_get_tab_index _obj' @@ -1642,14 +1764,14 @@ return result data DOMHTMLElementGetTabIndexMethodInfo -instance (signature ~ (m Int64), MonadIO m, DOMHTMLElementK a) => MethodInfo DOMHTMLElementGetTabIndexMethodInfo a signature where +instance (signature ~ (m CLong), MonadIO m, DOMHTMLElementK a) => MethodInfo DOMHTMLElementGetTabIndexMethodInfo a signature where overloadedMethod _ = dOMHTMLElementGetTabIndex -- method DOMHTMLElement::get_title -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -1679,7 +1801,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -1707,7 +1829,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -1737,7 +1859,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "where", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "element", argType = TInterface "WebKit" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit" "DOMElement" +-- returnType : Just (TInterface "WebKit" "DOMElement") -- throws : True -- Skip return : False @@ -1779,7 +1901,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "where", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "html", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : True -- Skip return : False @@ -1820,7 +1942,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "where", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : True -- Skip return : False @@ -1861,7 +1983,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1892,7 +2014,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1923,7 +2045,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : True -- Skip return : False @@ -1959,7 +2081,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1990,7 +2112,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -2020,7 +2142,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -2050,7 +2172,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -2081,7 +2203,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : True -- Skip return : False @@ -2117,7 +2239,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : True -- Skip return : False @@ -2153,7 +2275,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -2184,7 +2306,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -2214,7 +2336,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -2245,7 +2367,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : True -- Skip return : False @@ -2281,7 +2403,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : True -- Skip return : False @@ -2317,7 +2439,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -2345,22 +2467,22 @@ -- method DOMHTMLElement::set_tab_index -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TLong, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "webkit_dom_html_element_set_tab_index" webkit_dom_html_element_set_tab_index :: Ptr DOMHTMLElement -> -- _obj : TInterface "WebKit" "DOMHTMLElement" - Int64 -> -- value : TBasicType TInt64 + CLong -> -- value : TBasicType TLong IO () dOMHTMLElementSetTabIndex :: (MonadIO m, DOMHTMLElementK a) => a -- _obj - -> Int64 -- value + -> CLong -- value -> m () -- result dOMHTMLElementSetTabIndex _obj value = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj @@ -2369,14 +2491,14 @@ return () data DOMHTMLElementSetTabIndexMethodInfo -instance (signature ~ (Int64 -> m ()), MonadIO m, DOMHTMLElementK a) => MethodInfo DOMHTMLElementSetTabIndexMethodInfo a signature where +instance (signature ~ (CLong -> m ()), MonadIO m, DOMHTMLElementK a) => MethodInfo DOMHTMLElementSetTabIndexMethodInfo a signature where overloadedMethod _ = dOMHTMLElementSetTabIndex -- method DOMHTMLElement::set_title -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -2407,7 +2529,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -2437,7 +2559,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False diff --git a/GI/WebKit/Objects/DOMHTMLElement.hs-boot b/GI/WebKit/Objects/DOMHTMLElement.hs-boot --- a/GI/WebKit/Objects/DOMHTMLElement.hs-boot +++ b/GI/WebKit/Objects/DOMHTMLElement.hs-boot @@ -1,8 +1,8 @@ module GI.WebKit.Objects.DOMHTMLElement where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map diff --git a/GI/WebKit/Objects/DOMHTMLEmbedElement.hs b/GI/WebKit/Objects/DOMHTMLEmbedElement.hs --- a/GI/WebKit/Objects/DOMHTMLEmbedElement.hs +++ b/GI/WebKit/Objects/DOMHTMLEmbedElement.hs @@ -73,6 +73,7 @@ -- ** Align DOMHTMLEmbedElementAlignPropertyInfo , constructDOMHTMLEmbedElementAlign , + dOMHTMLEmbedElementAlign , getDOMHTMLEmbedElementAlign , setDOMHTMLEmbedElementAlign , @@ -80,6 +81,7 @@ -- ** Height DOMHTMLEmbedElementHeightPropertyInfo , constructDOMHTMLEmbedElementHeight , + dOMHTMLEmbedElementHeight , getDOMHTMLEmbedElementHeight , setDOMHTMLEmbedElementHeight , @@ -87,6 +89,7 @@ -- ** Name DOMHTMLEmbedElementNamePropertyInfo , constructDOMHTMLEmbedElementName , + dOMHTMLEmbedElementName , getDOMHTMLEmbedElementName , setDOMHTMLEmbedElementName , @@ -94,13 +97,16 @@ -- ** Src DOMHTMLEmbedElementSrcPropertyInfo , constructDOMHTMLEmbedElementSrc , + dOMHTMLEmbedElementSrc , getDOMHTMLEmbedElementSrc , setDOMHTMLEmbedElementSrc , -- ** Type DOMHTMLEmbedElementTypePropertyInfo , + clearDOMHTMLEmbedElementType , constructDOMHTMLEmbedElementType , + dOMHTMLEmbedElementType , getDOMHTMLEmbedElementType , setDOMHTMLEmbedElementType , @@ -108,6 +114,7 @@ -- ** Width DOMHTMLEmbedElementWidthPropertyInfo , constructDOMHTMLEmbedElementWidth , + dOMHTMLEmbedElementWidth , getDOMHTMLEmbedElementWidth , setDOMHTMLEmbedElementWidth , @@ -116,9 +123,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map @@ -326,150 +333,183 @@ -- VVV Prop "align" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Just False) -getDOMHTMLEmbedElementAlign :: (MonadIO m, DOMHTMLEmbedElementK o) => o -> m T.Text +getDOMHTMLEmbedElementAlign :: (MonadIO m, DOMHTMLEmbedElementK o) => o -> m (Maybe T.Text) getDOMHTMLEmbedElementAlign obj = liftIO $ getObjectPropertyString obj "align" setDOMHTMLEmbedElementAlign :: (MonadIO m, DOMHTMLEmbedElementK o) => o -> T.Text -> m () -setDOMHTMLEmbedElementAlign obj val = liftIO $ setObjectPropertyString obj "align" val +setDOMHTMLEmbedElementAlign obj val = liftIO $ setObjectPropertyString obj "align" (Just val) constructDOMHTMLEmbedElementAlign :: T.Text -> IO ([Char], GValue) -constructDOMHTMLEmbedElementAlign val = constructObjectPropertyString "align" val +constructDOMHTMLEmbedElementAlign val = constructObjectPropertyString "align" (Just val) data DOMHTMLEmbedElementAlignPropertyInfo instance AttrInfo DOMHTMLEmbedElementAlignPropertyInfo where type AttrAllowedOps DOMHTMLEmbedElementAlignPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint DOMHTMLEmbedElementAlignPropertyInfo = (~) T.Text type AttrBaseTypeConstraint DOMHTMLEmbedElementAlignPropertyInfo = DOMHTMLEmbedElementK - type AttrGetType DOMHTMLEmbedElementAlignPropertyInfo = T.Text + type AttrGetType DOMHTMLEmbedElementAlignPropertyInfo = (Maybe T.Text) type AttrLabel DOMHTMLEmbedElementAlignPropertyInfo = "align" attrGet _ = getDOMHTMLEmbedElementAlign attrSet _ = setDOMHTMLEmbedElementAlign attrConstruct _ = constructDOMHTMLEmbedElementAlign + attrClear _ = undefined -- VVV Prop "height" - -- Type: TBasicType TInt64 + -- Type: TBasicType TLong -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) -getDOMHTMLEmbedElementHeight :: (MonadIO m, DOMHTMLEmbedElementK o) => o -> m Int64 -getDOMHTMLEmbedElementHeight obj = liftIO $ getObjectPropertyInt64 obj "height" +getDOMHTMLEmbedElementHeight :: (MonadIO m, DOMHTMLEmbedElementK o) => o -> m CLong +getDOMHTMLEmbedElementHeight obj = liftIO $ getObjectPropertyLong obj "height" -setDOMHTMLEmbedElementHeight :: (MonadIO m, DOMHTMLEmbedElementK o) => o -> Int64 -> m () -setDOMHTMLEmbedElementHeight obj val = liftIO $ setObjectPropertyInt64 obj "height" val +setDOMHTMLEmbedElementHeight :: (MonadIO m, DOMHTMLEmbedElementK o) => o -> CLong -> m () +setDOMHTMLEmbedElementHeight obj val = liftIO $ setObjectPropertyLong obj "height" val -constructDOMHTMLEmbedElementHeight :: Int64 -> IO ([Char], GValue) -constructDOMHTMLEmbedElementHeight val = constructObjectPropertyInt64 "height" val +constructDOMHTMLEmbedElementHeight :: CLong -> IO ([Char], GValue) +constructDOMHTMLEmbedElementHeight val = constructObjectPropertyLong "height" val data DOMHTMLEmbedElementHeightPropertyInfo instance AttrInfo DOMHTMLEmbedElementHeightPropertyInfo where type AttrAllowedOps DOMHTMLEmbedElementHeightPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLEmbedElementHeightPropertyInfo = (~) Int64 + type AttrSetTypeConstraint DOMHTMLEmbedElementHeightPropertyInfo = (~) CLong type AttrBaseTypeConstraint DOMHTMLEmbedElementHeightPropertyInfo = DOMHTMLEmbedElementK - type AttrGetType DOMHTMLEmbedElementHeightPropertyInfo = Int64 + type AttrGetType DOMHTMLEmbedElementHeightPropertyInfo = CLong type AttrLabel DOMHTMLEmbedElementHeightPropertyInfo = "height" attrGet _ = getDOMHTMLEmbedElementHeight attrSet _ = setDOMHTMLEmbedElementHeight attrConstruct _ = constructDOMHTMLEmbedElementHeight + attrClear _ = undefined -- VVV Prop "name" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Just False) -getDOMHTMLEmbedElementName :: (MonadIO m, DOMHTMLEmbedElementK o) => o -> m T.Text +getDOMHTMLEmbedElementName :: (MonadIO m, DOMHTMLEmbedElementK o) => o -> m (Maybe T.Text) getDOMHTMLEmbedElementName obj = liftIO $ getObjectPropertyString obj "name" setDOMHTMLEmbedElementName :: (MonadIO m, DOMHTMLEmbedElementK o) => o -> T.Text -> m () -setDOMHTMLEmbedElementName obj val = liftIO $ setObjectPropertyString obj "name" val +setDOMHTMLEmbedElementName obj val = liftIO $ setObjectPropertyString obj "name" (Just val) constructDOMHTMLEmbedElementName :: T.Text -> IO ([Char], GValue) -constructDOMHTMLEmbedElementName val = constructObjectPropertyString "name" val +constructDOMHTMLEmbedElementName val = constructObjectPropertyString "name" (Just val) data DOMHTMLEmbedElementNamePropertyInfo instance AttrInfo DOMHTMLEmbedElementNamePropertyInfo where type AttrAllowedOps DOMHTMLEmbedElementNamePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint DOMHTMLEmbedElementNamePropertyInfo = (~) T.Text type AttrBaseTypeConstraint DOMHTMLEmbedElementNamePropertyInfo = DOMHTMLEmbedElementK - type AttrGetType DOMHTMLEmbedElementNamePropertyInfo = T.Text + type AttrGetType DOMHTMLEmbedElementNamePropertyInfo = (Maybe T.Text) type AttrLabel DOMHTMLEmbedElementNamePropertyInfo = "name" attrGet _ = getDOMHTMLEmbedElementName attrSet _ = setDOMHTMLEmbedElementName attrConstruct _ = constructDOMHTMLEmbedElementName + attrClear _ = undefined -- VVV Prop "src" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Just False) -getDOMHTMLEmbedElementSrc :: (MonadIO m, DOMHTMLEmbedElementK o) => o -> m T.Text +getDOMHTMLEmbedElementSrc :: (MonadIO m, DOMHTMLEmbedElementK o) => o -> m (Maybe T.Text) getDOMHTMLEmbedElementSrc obj = liftIO $ getObjectPropertyString obj "src" setDOMHTMLEmbedElementSrc :: (MonadIO m, DOMHTMLEmbedElementK o) => o -> T.Text -> m () -setDOMHTMLEmbedElementSrc obj val = liftIO $ setObjectPropertyString obj "src" val +setDOMHTMLEmbedElementSrc obj val = liftIO $ setObjectPropertyString obj "src" (Just val) constructDOMHTMLEmbedElementSrc :: T.Text -> IO ([Char], GValue) -constructDOMHTMLEmbedElementSrc val = constructObjectPropertyString "src" val +constructDOMHTMLEmbedElementSrc val = constructObjectPropertyString "src" (Just val) data DOMHTMLEmbedElementSrcPropertyInfo instance AttrInfo DOMHTMLEmbedElementSrcPropertyInfo where type AttrAllowedOps DOMHTMLEmbedElementSrcPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint DOMHTMLEmbedElementSrcPropertyInfo = (~) T.Text type AttrBaseTypeConstraint DOMHTMLEmbedElementSrcPropertyInfo = DOMHTMLEmbedElementK - type AttrGetType DOMHTMLEmbedElementSrcPropertyInfo = T.Text + type AttrGetType DOMHTMLEmbedElementSrcPropertyInfo = (Maybe T.Text) type AttrLabel DOMHTMLEmbedElementSrcPropertyInfo = "src" attrGet _ = getDOMHTMLEmbedElementSrc attrSet _ = setDOMHTMLEmbedElementSrc attrConstruct _ = constructDOMHTMLEmbedElementSrc + attrClear _ = undefined -- VVV Prop "type" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) -getDOMHTMLEmbedElementType :: (MonadIO m, DOMHTMLEmbedElementK o) => o -> m T.Text +getDOMHTMLEmbedElementType :: (MonadIO m, DOMHTMLEmbedElementK o) => o -> m (Maybe T.Text) getDOMHTMLEmbedElementType obj = liftIO $ getObjectPropertyString obj "type" setDOMHTMLEmbedElementType :: (MonadIO m, DOMHTMLEmbedElementK o) => o -> T.Text -> m () -setDOMHTMLEmbedElementType obj val = liftIO $ setObjectPropertyString obj "type" val +setDOMHTMLEmbedElementType obj val = liftIO $ setObjectPropertyString obj "type" (Just val) constructDOMHTMLEmbedElementType :: T.Text -> IO ([Char], GValue) -constructDOMHTMLEmbedElementType val = constructObjectPropertyString "type" val +constructDOMHTMLEmbedElementType val = constructObjectPropertyString "type" (Just val) +clearDOMHTMLEmbedElementType :: (MonadIO m, DOMHTMLEmbedElementK o) => o -> m () +clearDOMHTMLEmbedElementType obj = liftIO $ setObjectPropertyString obj "type" (Nothing :: Maybe T.Text) + data DOMHTMLEmbedElementTypePropertyInfo instance AttrInfo DOMHTMLEmbedElementTypePropertyInfo where - type AttrAllowedOps DOMHTMLEmbedElementTypePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrAllowedOps DOMHTMLEmbedElementTypePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint DOMHTMLEmbedElementTypePropertyInfo = (~) T.Text type AttrBaseTypeConstraint DOMHTMLEmbedElementTypePropertyInfo = DOMHTMLEmbedElementK - type AttrGetType DOMHTMLEmbedElementTypePropertyInfo = T.Text + type AttrGetType DOMHTMLEmbedElementTypePropertyInfo = (Maybe T.Text) type AttrLabel DOMHTMLEmbedElementTypePropertyInfo = "type" attrGet _ = getDOMHTMLEmbedElementType attrSet _ = setDOMHTMLEmbedElementType attrConstruct _ = constructDOMHTMLEmbedElementType + attrClear _ = clearDOMHTMLEmbedElementType -- VVV Prop "width" - -- Type: TBasicType TInt64 + -- Type: TBasicType TLong -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) -getDOMHTMLEmbedElementWidth :: (MonadIO m, DOMHTMLEmbedElementK o) => o -> m Int64 -getDOMHTMLEmbedElementWidth obj = liftIO $ getObjectPropertyInt64 obj "width" +getDOMHTMLEmbedElementWidth :: (MonadIO m, DOMHTMLEmbedElementK o) => o -> m CLong +getDOMHTMLEmbedElementWidth obj = liftIO $ getObjectPropertyLong obj "width" -setDOMHTMLEmbedElementWidth :: (MonadIO m, DOMHTMLEmbedElementK o) => o -> Int64 -> m () -setDOMHTMLEmbedElementWidth obj val = liftIO $ setObjectPropertyInt64 obj "width" val +setDOMHTMLEmbedElementWidth :: (MonadIO m, DOMHTMLEmbedElementK o) => o -> CLong -> m () +setDOMHTMLEmbedElementWidth obj val = liftIO $ setObjectPropertyLong obj "width" val -constructDOMHTMLEmbedElementWidth :: Int64 -> IO ([Char], GValue) -constructDOMHTMLEmbedElementWidth val = constructObjectPropertyInt64 "width" val +constructDOMHTMLEmbedElementWidth :: CLong -> IO ([Char], GValue) +constructDOMHTMLEmbedElementWidth val = constructObjectPropertyLong "width" val data DOMHTMLEmbedElementWidthPropertyInfo instance AttrInfo DOMHTMLEmbedElementWidthPropertyInfo where type AttrAllowedOps DOMHTMLEmbedElementWidthPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLEmbedElementWidthPropertyInfo = (~) Int64 + type AttrSetTypeConstraint DOMHTMLEmbedElementWidthPropertyInfo = (~) CLong type AttrBaseTypeConstraint DOMHTMLEmbedElementWidthPropertyInfo = DOMHTMLEmbedElementK - type AttrGetType DOMHTMLEmbedElementWidthPropertyInfo = Int64 + type AttrGetType DOMHTMLEmbedElementWidthPropertyInfo = CLong type AttrLabel DOMHTMLEmbedElementWidthPropertyInfo = "width" attrGet _ = getDOMHTMLEmbedElementWidth attrSet _ = setDOMHTMLEmbedElementWidth attrConstruct _ = constructDOMHTMLEmbedElementWidth + attrClear _ = undefined type instance AttributeList DOMHTMLEmbedElement = DOMHTMLEmbedElementAttributeList type DOMHTMLEmbedElementAttributeList = ('[ '("accessKey", DOMHTMLElementAccessKeyPropertyInfo), '("align", DOMHTMLEmbedElementAlignPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("baseUri", DOMNodeBaseUriPropertyInfo), '("childElementCount", DOMElementChildElementCountPropertyInfo), '("childNodes", DOMNodeChildNodesPropertyInfo), '("children", DOMHTMLElementChildrenPropertyInfo), '("classList", DOMElementClassListPropertyInfo), '("className", DOMElementClassNamePropertyInfo), '("clientHeight", DOMElementClientHeightPropertyInfo), '("clientLeft", DOMElementClientLeftPropertyInfo), '("clientTop", DOMElementClientTopPropertyInfo), '("clientWidth", DOMElementClientWidthPropertyInfo), '("contentEditable", DOMHTMLElementContentEditablePropertyInfo), '("coreObject", DOMObjectCoreObjectPropertyInfo), '("dir", DOMHTMLElementDirPropertyInfo), '("draggable", DOMHTMLElementDraggablePropertyInfo), '("firstChild", DOMNodeFirstChildPropertyInfo), '("firstElementChild", DOMElementFirstElementChildPropertyInfo), '("height", DOMHTMLEmbedElementHeightPropertyInfo), '("hidden", DOMHTMLElementHiddenPropertyInfo), '("id", DOMElementIdPropertyInfo), '("innerHtml", DOMHTMLElementInnerHtmlPropertyInfo), '("innerText", DOMHTMLElementInnerTextPropertyInfo), '("isContentEditable", DOMHTMLElementIsContentEditablePropertyInfo), '("lang", DOMHTMLElementLangPropertyInfo), '("lastChild", DOMNodeLastChildPropertyInfo), '("lastElementChild", DOMElementLastElementChildPropertyInfo), '("localName", DOMNodeLocalNamePropertyInfo), '("name", DOMHTMLEmbedElementNamePropertyInfo), '("namespaceUri", DOMNodeNamespaceUriPropertyInfo), '("nextElementSibling", DOMElementNextElementSiblingPropertyInfo), '("nextSibling", DOMNodeNextSiblingPropertyInfo), '("nodeName", DOMNodeNodeNamePropertyInfo), '("nodeType", DOMNodeNodeTypePropertyInfo), '("nodeValue", DOMNodeNodeValuePropertyInfo), '("offsetHeight", DOMElementOffsetHeightPropertyInfo), '("offsetLeft", DOMElementOffsetLeftPropertyInfo), '("offsetParent", DOMElementOffsetParentPropertyInfo), '("offsetTop", DOMElementOffsetTopPropertyInfo), '("offsetWidth", DOMElementOffsetWidthPropertyInfo), '("outerHtml", DOMHTMLElementOuterHtmlPropertyInfo), '("outerText", DOMHTMLElementOuterTextPropertyInfo), '("ownerDocument", DOMNodeOwnerDocumentPropertyInfo), '("parentElement", DOMNodeParentElementPropertyInfo), '("parentNode", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previousElementSibling", DOMElementPreviousElementSiblingPropertyInfo), '("previousSibling", DOMNodePreviousSiblingPropertyInfo), '("scrollHeight", DOMElementScrollHeightPropertyInfo), '("scrollLeft", DOMElementScrollLeftPropertyInfo), '("scrollTop", DOMElementScrollTopPropertyInfo), '("scrollWidth", DOMElementScrollWidthPropertyInfo), '("spellcheck", DOMHTMLElementSpellcheckPropertyInfo), '("src", DOMHTMLEmbedElementSrcPropertyInfo), '("style", DOMElementStylePropertyInfo), '("tabIndex", DOMHTMLElementTabIndexPropertyInfo), '("tagName", DOMElementTagNamePropertyInfo), '("textContent", DOMNodeTextContentPropertyInfo), '("title", DOMHTMLElementTitlePropertyInfo), '("translate", DOMHTMLElementTranslatePropertyInfo), '("type", DOMHTMLEmbedElementTypePropertyInfo), '("webkitRegionOverset", DOMElementWebkitRegionOversetPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo), '("width", DOMHTMLEmbedElementWidthPropertyInfo)] :: [(Symbol, *)]) +dOMHTMLEmbedElementAlign :: AttrLabelProxy "align" +dOMHTMLEmbedElementAlign = AttrLabelProxy + +dOMHTMLEmbedElementHeight :: AttrLabelProxy "height" +dOMHTMLEmbedElementHeight = AttrLabelProxy + +dOMHTMLEmbedElementName :: AttrLabelProxy "name" +dOMHTMLEmbedElementName = AttrLabelProxy + +dOMHTMLEmbedElementSrc :: AttrLabelProxy "src" +dOMHTMLEmbedElementSrc = AttrLabelProxy + +dOMHTMLEmbedElementType :: AttrLabelProxy "type" +dOMHTMLEmbedElementType = AttrLabelProxy + +dOMHTMLEmbedElementWidth :: AttrLabelProxy "width" +dOMHTMLEmbedElementWidth = AttrLabelProxy + type instance SignalList DOMHTMLEmbedElement = DOMHTMLEmbedElementSignalList type DOMHTMLEmbedElementSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) @@ -477,7 +517,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLEmbedElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -507,19 +547,19 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLEmbedElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TInt64 +-- returnType : Just (TBasicType TLong) -- throws : False -- Skip return : False foreign import ccall "webkit_dom_html_embed_element_get_height" webkit_dom_html_embed_element_get_height :: Ptr DOMHTMLEmbedElement -> -- _obj : TInterface "WebKit" "DOMHTMLEmbedElement" - IO Int64 + IO CLong dOMHTMLEmbedElementGetHeight :: (MonadIO m, DOMHTMLEmbedElementK a) => a -- _obj - -> m Int64 -- result + -> m CLong -- result dOMHTMLEmbedElementGetHeight _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- webkit_dom_html_embed_element_get_height _obj' @@ -527,14 +567,14 @@ return result data DOMHTMLEmbedElementGetHeightMethodInfo -instance (signature ~ (m Int64), MonadIO m, DOMHTMLEmbedElementK a) => MethodInfo DOMHTMLEmbedElementGetHeightMethodInfo a signature where +instance (signature ~ (m CLong), MonadIO m, DOMHTMLEmbedElementK a) => MethodInfo DOMHTMLEmbedElementGetHeightMethodInfo a signature where overloadedMethod _ = dOMHTMLEmbedElementGetHeight -- method DOMHTMLEmbedElement::get_name -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLEmbedElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -564,7 +604,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLEmbedElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -594,19 +634,19 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLEmbedElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TInt64 +-- returnType : Just (TBasicType TLong) -- throws : False -- Skip return : False foreign import ccall "webkit_dom_html_embed_element_get_width" webkit_dom_html_embed_element_get_width :: Ptr DOMHTMLEmbedElement -> -- _obj : TInterface "WebKit" "DOMHTMLEmbedElement" - IO Int64 + IO CLong dOMHTMLEmbedElementGetWidth :: (MonadIO m, DOMHTMLEmbedElementK a) => a -- _obj - -> m Int64 -- result + -> m CLong -- result dOMHTMLEmbedElementGetWidth _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- webkit_dom_html_embed_element_get_width _obj' @@ -614,14 +654,14 @@ return result data DOMHTMLEmbedElementGetWidthMethodInfo -instance (signature ~ (m Int64), MonadIO m, DOMHTMLEmbedElementK a) => MethodInfo DOMHTMLEmbedElementGetWidthMethodInfo a signature where +instance (signature ~ (m CLong), MonadIO m, DOMHTMLEmbedElementK a) => MethodInfo DOMHTMLEmbedElementGetWidthMethodInfo a signature where overloadedMethod _ = dOMHTMLEmbedElementGetWidth -- method DOMHTMLEmbedElement::set_align -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLEmbedElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -650,22 +690,22 @@ -- method DOMHTMLEmbedElement::set_height -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLEmbedElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLEmbedElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TLong, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "webkit_dom_html_embed_element_set_height" webkit_dom_html_embed_element_set_height :: Ptr DOMHTMLEmbedElement -> -- _obj : TInterface "WebKit" "DOMHTMLEmbedElement" - Int64 -> -- value : TBasicType TInt64 + CLong -> -- value : TBasicType TLong IO () dOMHTMLEmbedElementSetHeight :: (MonadIO m, DOMHTMLEmbedElementK a) => a -- _obj - -> Int64 -- value + -> CLong -- value -> m () -- result dOMHTMLEmbedElementSetHeight _obj value = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj @@ -674,14 +714,14 @@ return () data DOMHTMLEmbedElementSetHeightMethodInfo -instance (signature ~ (Int64 -> m ()), MonadIO m, DOMHTMLEmbedElementK a) => MethodInfo DOMHTMLEmbedElementSetHeightMethodInfo a signature where +instance (signature ~ (CLong -> m ()), MonadIO m, DOMHTMLEmbedElementK a) => MethodInfo DOMHTMLEmbedElementSetHeightMethodInfo a signature where overloadedMethod _ = dOMHTMLEmbedElementSetHeight -- method DOMHTMLEmbedElement::set_name -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLEmbedElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -712,7 +752,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLEmbedElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -741,22 +781,22 @@ -- method DOMHTMLEmbedElement::set_width -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLEmbedElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLEmbedElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TLong, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "webkit_dom_html_embed_element_set_width" webkit_dom_html_embed_element_set_width :: Ptr DOMHTMLEmbedElement -> -- _obj : TInterface "WebKit" "DOMHTMLEmbedElement" - Int64 -> -- value : TBasicType TInt64 + CLong -> -- value : TBasicType TLong IO () dOMHTMLEmbedElementSetWidth :: (MonadIO m, DOMHTMLEmbedElementK a) => a -- _obj - -> Int64 -- value + -> CLong -- value -> m () -- result dOMHTMLEmbedElementSetWidth _obj value = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj @@ -765,7 +805,7 @@ return () data DOMHTMLEmbedElementSetWidthMethodInfo -instance (signature ~ (Int64 -> m ()), MonadIO m, DOMHTMLEmbedElementK a) => MethodInfo DOMHTMLEmbedElementSetWidthMethodInfo a signature where +instance (signature ~ (CLong -> m ()), MonadIO m, DOMHTMLEmbedElementK a) => MethodInfo DOMHTMLEmbedElementSetWidthMethodInfo a signature where overloadedMethod _ = dOMHTMLEmbedElementSetWidth diff --git a/GI/WebKit/Objects/DOMHTMLEmbedElement.hs-boot b/GI/WebKit/Objects/DOMHTMLEmbedElement.hs-boot --- a/GI/WebKit/Objects/DOMHTMLEmbedElement.hs-boot +++ b/GI/WebKit/Objects/DOMHTMLEmbedElement.hs-boot @@ -1,8 +1,8 @@ module GI.WebKit.Objects.DOMHTMLEmbedElement where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map diff --git a/GI/WebKit/Objects/DOMHTMLFieldSetElement.hs b/GI/WebKit/Objects/DOMHTMLFieldSetElement.hs --- a/GI/WebKit/Objects/DOMHTMLFieldSetElement.hs +++ b/GI/WebKit/Objects/DOMHTMLFieldSetElement.hs @@ -78,44 +78,52 @@ -- ** Disabled DOMHTMLFieldSetElementDisabledPropertyInfo, constructDOMHTMLFieldSetElementDisabled , + dOMHTMLFieldSetElementDisabled , getDOMHTMLFieldSetElementDisabled , setDOMHTMLFieldSetElementDisabled , -- ** Elements DOMHTMLFieldSetElementElementsPropertyInfo, + dOMHTMLFieldSetElementElements , getDOMHTMLFieldSetElementElements , -- ** Form DOMHTMLFieldSetElementFormPropertyInfo , + dOMHTMLFieldSetElementForm , getDOMHTMLFieldSetElementForm , -- ** Name DOMHTMLFieldSetElementNamePropertyInfo , constructDOMHTMLFieldSetElementName , + dOMHTMLFieldSetElementName , getDOMHTMLFieldSetElementName , setDOMHTMLFieldSetElementName , -- ** Type DOMHTMLFieldSetElementTypePropertyInfo , + dOMHTMLFieldSetElementType , getDOMHTMLFieldSetElementType , -- ** ValidationMessage DOMHTMLFieldSetElementValidationMessagePropertyInfo, + dOMHTMLFieldSetElementValidationMessage , getDOMHTMLFieldSetElementValidationMessage, -- ** Validity DOMHTMLFieldSetElementValidityPropertyInfo, + dOMHTMLFieldSetElementValidity , getDOMHTMLFieldSetElementValidity , -- ** WillValidate DOMHTMLFieldSetElementWillValidatePropertyInfo, + dOMHTMLFieldSetElementWillValidate , getDOMHTMLFieldSetElementWillValidate , @@ -123,9 +131,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map @@ -334,6 +342,7 @@ -- VVV Prop "disabled" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getDOMHTMLFieldSetElementDisabled :: (MonadIO m, DOMHTMLFieldSetElementK o) => o -> m Bool getDOMHTMLFieldSetElementDisabled obj = liftIO $ getObjectPropertyBool obj "disabled" @@ -354,35 +363,39 @@ attrGet _ = getDOMHTMLFieldSetElementDisabled attrSet _ = setDOMHTMLFieldSetElementDisabled attrConstruct _ = constructDOMHTMLFieldSetElementDisabled + attrClear _ = undefined -- VVV Prop "elements" -- Type: TInterface "WebKit" "DOMHTMLCollection" -- Flags: [PropertyReadable] + -- Nullable: (Nothing,Nothing) -getDOMHTMLFieldSetElementElements :: (MonadIO m, DOMHTMLFieldSetElementK o) => o -> m DOMHTMLCollection +getDOMHTMLFieldSetElementElements :: (MonadIO m, DOMHTMLFieldSetElementK o) => o -> m (Maybe DOMHTMLCollection) getDOMHTMLFieldSetElementElements obj = liftIO $ getObjectPropertyObject obj "elements" DOMHTMLCollection data DOMHTMLFieldSetElementElementsPropertyInfo instance AttrInfo DOMHTMLFieldSetElementElementsPropertyInfo where - type AttrAllowedOps DOMHTMLFieldSetElementElementsPropertyInfo = '[ 'AttrGet] + type AttrAllowedOps DOMHTMLFieldSetElementElementsPropertyInfo = '[ 'AttrGet, 'AttrClear] type AttrSetTypeConstraint DOMHTMLFieldSetElementElementsPropertyInfo = (~) () type AttrBaseTypeConstraint DOMHTMLFieldSetElementElementsPropertyInfo = DOMHTMLFieldSetElementK - type AttrGetType DOMHTMLFieldSetElementElementsPropertyInfo = DOMHTMLCollection + type AttrGetType DOMHTMLFieldSetElementElementsPropertyInfo = (Maybe DOMHTMLCollection) type AttrLabel DOMHTMLFieldSetElementElementsPropertyInfo = "elements" attrGet _ = getDOMHTMLFieldSetElementElements attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "form" -- Type: TInterface "WebKit" "DOMHTMLFormElement" -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) getDOMHTMLFieldSetElementForm :: (MonadIO m, DOMHTMLFieldSetElementK o) => o -> m DOMHTMLFormElement -getDOMHTMLFieldSetElementForm obj = liftIO $ getObjectPropertyObject obj "form" DOMHTMLFormElement +getDOMHTMLFieldSetElementForm obj = liftIO $ checkUnexpectedNothing "getDOMHTMLFieldSetElementForm" $ getObjectPropertyObject obj "form" DOMHTMLFormElement data DOMHTMLFieldSetElementFormPropertyInfo instance AttrInfo DOMHTMLFieldSetElementFormPropertyInfo where - type AttrAllowedOps DOMHTMLFieldSetElementFormPropertyInfo = '[ 'AttrGet] + type AttrAllowedOps DOMHTMLFieldSetElementFormPropertyInfo = '[ 'AttrGet, 'AttrClear] type AttrSetTypeConstraint DOMHTMLFieldSetElementFormPropertyInfo = (~) () type AttrBaseTypeConstraint DOMHTMLFieldSetElementFormPropertyInfo = DOMHTMLFieldSetElementK type AttrGetType DOMHTMLFieldSetElementFormPropertyInfo = DOMHTMLFormElement @@ -390,88 +403,98 @@ attrGet _ = getDOMHTMLFieldSetElementForm attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "name" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Just False) -getDOMHTMLFieldSetElementName :: (MonadIO m, DOMHTMLFieldSetElementK o) => o -> m T.Text +getDOMHTMLFieldSetElementName :: (MonadIO m, DOMHTMLFieldSetElementK o) => o -> m (Maybe T.Text) getDOMHTMLFieldSetElementName obj = liftIO $ getObjectPropertyString obj "name" setDOMHTMLFieldSetElementName :: (MonadIO m, DOMHTMLFieldSetElementK o) => o -> T.Text -> m () -setDOMHTMLFieldSetElementName obj val = liftIO $ setObjectPropertyString obj "name" val +setDOMHTMLFieldSetElementName obj val = liftIO $ setObjectPropertyString obj "name" (Just val) constructDOMHTMLFieldSetElementName :: T.Text -> IO ([Char], GValue) -constructDOMHTMLFieldSetElementName val = constructObjectPropertyString "name" val +constructDOMHTMLFieldSetElementName val = constructObjectPropertyString "name" (Just val) data DOMHTMLFieldSetElementNamePropertyInfo instance AttrInfo DOMHTMLFieldSetElementNamePropertyInfo where type AttrAllowedOps DOMHTMLFieldSetElementNamePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint DOMHTMLFieldSetElementNamePropertyInfo = (~) T.Text type AttrBaseTypeConstraint DOMHTMLFieldSetElementNamePropertyInfo = DOMHTMLFieldSetElementK - type AttrGetType DOMHTMLFieldSetElementNamePropertyInfo = T.Text + type AttrGetType DOMHTMLFieldSetElementNamePropertyInfo = (Maybe T.Text) type AttrLabel DOMHTMLFieldSetElementNamePropertyInfo = "name" attrGet _ = getDOMHTMLFieldSetElementName attrSet _ = setDOMHTMLFieldSetElementName attrConstruct _ = constructDOMHTMLFieldSetElementName + attrClear _ = undefined -- VVV Prop "type" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable] + -- Nullable: (Nothing,Nothing) -getDOMHTMLFieldSetElementType :: (MonadIO m, DOMHTMLFieldSetElementK o) => o -> m T.Text +getDOMHTMLFieldSetElementType :: (MonadIO m, DOMHTMLFieldSetElementK o) => o -> m (Maybe T.Text) getDOMHTMLFieldSetElementType obj = liftIO $ getObjectPropertyString obj "type" data DOMHTMLFieldSetElementTypePropertyInfo instance AttrInfo DOMHTMLFieldSetElementTypePropertyInfo where - type AttrAllowedOps DOMHTMLFieldSetElementTypePropertyInfo = '[ 'AttrGet] + type AttrAllowedOps DOMHTMLFieldSetElementTypePropertyInfo = '[ 'AttrGet, 'AttrClear] type AttrSetTypeConstraint DOMHTMLFieldSetElementTypePropertyInfo = (~) () type AttrBaseTypeConstraint DOMHTMLFieldSetElementTypePropertyInfo = DOMHTMLFieldSetElementK - type AttrGetType DOMHTMLFieldSetElementTypePropertyInfo = T.Text + type AttrGetType DOMHTMLFieldSetElementTypePropertyInfo = (Maybe T.Text) type AttrLabel DOMHTMLFieldSetElementTypePropertyInfo = "type" attrGet _ = getDOMHTMLFieldSetElementType attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "validation-message" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable] + -- Nullable: (Nothing,Nothing) -getDOMHTMLFieldSetElementValidationMessage :: (MonadIO m, DOMHTMLFieldSetElementK o) => o -> m T.Text +getDOMHTMLFieldSetElementValidationMessage :: (MonadIO m, DOMHTMLFieldSetElementK o) => o -> m (Maybe T.Text) getDOMHTMLFieldSetElementValidationMessage obj = liftIO $ getObjectPropertyString obj "validation-message" data DOMHTMLFieldSetElementValidationMessagePropertyInfo instance AttrInfo DOMHTMLFieldSetElementValidationMessagePropertyInfo where - type AttrAllowedOps DOMHTMLFieldSetElementValidationMessagePropertyInfo = '[ 'AttrGet] + type AttrAllowedOps DOMHTMLFieldSetElementValidationMessagePropertyInfo = '[ 'AttrGet, 'AttrClear] type AttrSetTypeConstraint DOMHTMLFieldSetElementValidationMessagePropertyInfo = (~) () type AttrBaseTypeConstraint DOMHTMLFieldSetElementValidationMessagePropertyInfo = DOMHTMLFieldSetElementK - type AttrGetType DOMHTMLFieldSetElementValidationMessagePropertyInfo = T.Text + type AttrGetType DOMHTMLFieldSetElementValidationMessagePropertyInfo = (Maybe T.Text) type AttrLabel DOMHTMLFieldSetElementValidationMessagePropertyInfo = "validation-message" attrGet _ = getDOMHTMLFieldSetElementValidationMessage attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "validity" -- Type: TInterface "WebKit" "DOMValidityState" -- Flags: [PropertyReadable] + -- Nullable: (Nothing,Nothing) -getDOMHTMLFieldSetElementValidity :: (MonadIO m, DOMHTMLFieldSetElementK o) => o -> m DOMValidityState +getDOMHTMLFieldSetElementValidity :: (MonadIO m, DOMHTMLFieldSetElementK o) => o -> m (Maybe DOMValidityState) getDOMHTMLFieldSetElementValidity obj = liftIO $ getObjectPropertyObject obj "validity" DOMValidityState data DOMHTMLFieldSetElementValidityPropertyInfo instance AttrInfo DOMHTMLFieldSetElementValidityPropertyInfo where - type AttrAllowedOps DOMHTMLFieldSetElementValidityPropertyInfo = '[ 'AttrGet] + type AttrAllowedOps DOMHTMLFieldSetElementValidityPropertyInfo = '[ 'AttrGet, 'AttrClear] type AttrSetTypeConstraint DOMHTMLFieldSetElementValidityPropertyInfo = (~) () type AttrBaseTypeConstraint DOMHTMLFieldSetElementValidityPropertyInfo = DOMHTMLFieldSetElementK - type AttrGetType DOMHTMLFieldSetElementValidityPropertyInfo = DOMValidityState + type AttrGetType DOMHTMLFieldSetElementValidityPropertyInfo = (Maybe DOMValidityState) type AttrLabel DOMHTMLFieldSetElementValidityPropertyInfo = "validity" attrGet _ = getDOMHTMLFieldSetElementValidity attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "will-validate" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) getDOMHTMLFieldSetElementWillValidate :: (MonadIO m, DOMHTMLFieldSetElementK o) => o -> m Bool getDOMHTMLFieldSetElementWillValidate obj = liftIO $ getObjectPropertyBool obj "will-validate" @@ -486,10 +509,35 @@ attrGet _ = getDOMHTMLFieldSetElementWillValidate attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined type instance AttributeList DOMHTMLFieldSetElement = DOMHTMLFieldSetElementAttributeList type DOMHTMLFieldSetElementAttributeList = ('[ '("accessKey", DOMHTMLElementAccessKeyPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("baseUri", DOMNodeBaseUriPropertyInfo), '("childElementCount", DOMElementChildElementCountPropertyInfo), '("childNodes", DOMNodeChildNodesPropertyInfo), '("children", DOMHTMLElementChildrenPropertyInfo), '("classList", DOMElementClassListPropertyInfo), '("className", DOMElementClassNamePropertyInfo), '("clientHeight", DOMElementClientHeightPropertyInfo), '("clientLeft", DOMElementClientLeftPropertyInfo), '("clientTop", DOMElementClientTopPropertyInfo), '("clientWidth", DOMElementClientWidthPropertyInfo), '("contentEditable", DOMHTMLElementContentEditablePropertyInfo), '("coreObject", DOMObjectCoreObjectPropertyInfo), '("dir", DOMHTMLElementDirPropertyInfo), '("disabled", DOMHTMLFieldSetElementDisabledPropertyInfo), '("draggable", DOMHTMLElementDraggablePropertyInfo), '("elements", DOMHTMLFieldSetElementElementsPropertyInfo), '("firstChild", DOMNodeFirstChildPropertyInfo), '("firstElementChild", DOMElementFirstElementChildPropertyInfo), '("form", DOMHTMLFieldSetElementFormPropertyInfo), '("hidden", DOMHTMLElementHiddenPropertyInfo), '("id", DOMElementIdPropertyInfo), '("innerHtml", DOMHTMLElementInnerHtmlPropertyInfo), '("innerText", DOMHTMLElementInnerTextPropertyInfo), '("isContentEditable", DOMHTMLElementIsContentEditablePropertyInfo), '("lang", DOMHTMLElementLangPropertyInfo), '("lastChild", DOMNodeLastChildPropertyInfo), '("lastElementChild", DOMElementLastElementChildPropertyInfo), '("localName", DOMNodeLocalNamePropertyInfo), '("name", DOMHTMLFieldSetElementNamePropertyInfo), '("namespaceUri", DOMNodeNamespaceUriPropertyInfo), '("nextElementSibling", DOMElementNextElementSiblingPropertyInfo), '("nextSibling", DOMNodeNextSiblingPropertyInfo), '("nodeName", DOMNodeNodeNamePropertyInfo), '("nodeType", DOMNodeNodeTypePropertyInfo), '("nodeValue", DOMNodeNodeValuePropertyInfo), '("offsetHeight", DOMElementOffsetHeightPropertyInfo), '("offsetLeft", DOMElementOffsetLeftPropertyInfo), '("offsetParent", DOMElementOffsetParentPropertyInfo), '("offsetTop", DOMElementOffsetTopPropertyInfo), '("offsetWidth", DOMElementOffsetWidthPropertyInfo), '("outerHtml", DOMHTMLElementOuterHtmlPropertyInfo), '("outerText", DOMHTMLElementOuterTextPropertyInfo), '("ownerDocument", DOMNodeOwnerDocumentPropertyInfo), '("parentElement", DOMNodeParentElementPropertyInfo), '("parentNode", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previousElementSibling", DOMElementPreviousElementSiblingPropertyInfo), '("previousSibling", DOMNodePreviousSiblingPropertyInfo), '("scrollHeight", DOMElementScrollHeightPropertyInfo), '("scrollLeft", DOMElementScrollLeftPropertyInfo), '("scrollTop", DOMElementScrollTopPropertyInfo), '("scrollWidth", DOMElementScrollWidthPropertyInfo), '("spellcheck", DOMHTMLElementSpellcheckPropertyInfo), '("style", DOMElementStylePropertyInfo), '("tabIndex", DOMHTMLElementTabIndexPropertyInfo), '("tagName", DOMElementTagNamePropertyInfo), '("textContent", DOMNodeTextContentPropertyInfo), '("title", DOMHTMLElementTitlePropertyInfo), '("translate", DOMHTMLElementTranslatePropertyInfo), '("type", DOMHTMLFieldSetElementTypePropertyInfo), '("validationMessage", DOMHTMLFieldSetElementValidationMessagePropertyInfo), '("validity", DOMHTMLFieldSetElementValidityPropertyInfo), '("webkitRegionOverset", DOMElementWebkitRegionOversetPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo), '("willValidate", DOMHTMLFieldSetElementWillValidatePropertyInfo)] :: [(Symbol, *)]) +dOMHTMLFieldSetElementDisabled :: AttrLabelProxy "disabled" +dOMHTMLFieldSetElementDisabled = AttrLabelProxy + +dOMHTMLFieldSetElementElements :: AttrLabelProxy "elements" +dOMHTMLFieldSetElementElements = AttrLabelProxy + +dOMHTMLFieldSetElementForm :: AttrLabelProxy "form" +dOMHTMLFieldSetElementForm = AttrLabelProxy + +dOMHTMLFieldSetElementName :: AttrLabelProxy "name" +dOMHTMLFieldSetElementName = AttrLabelProxy + +dOMHTMLFieldSetElementType :: AttrLabelProxy "type" +dOMHTMLFieldSetElementType = AttrLabelProxy + +dOMHTMLFieldSetElementValidationMessage :: AttrLabelProxy "validationMessage" +dOMHTMLFieldSetElementValidationMessage = AttrLabelProxy + +dOMHTMLFieldSetElementValidity :: AttrLabelProxy "validity" +dOMHTMLFieldSetElementValidity = AttrLabelProxy + +dOMHTMLFieldSetElementWillValidate :: AttrLabelProxy "willValidate" +dOMHTMLFieldSetElementWillValidate = AttrLabelProxy + type instance SignalList DOMHTMLFieldSetElement = DOMHTMLFieldSetElementSignalList type DOMHTMLFieldSetElementSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) @@ -497,7 +545,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLFieldSetElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -525,7 +573,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLFieldSetElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -553,7 +601,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLFieldSetElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit" "DOMHTMLCollection" +-- returnType : Just (TInterface "WebKit" "DOMHTMLCollection") -- throws : False -- Skip return : False @@ -582,7 +630,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLFieldSetElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit" "DOMHTMLFormElement" +-- returnType : Just (TInterface "WebKit" "DOMHTMLFormElement") -- throws : False -- Skip return : False @@ -611,7 +659,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLFieldSetElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -641,7 +689,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLFieldSetElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -671,7 +719,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLFieldSetElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit" "DOMValidityState" +-- returnType : Just (TInterface "WebKit" "DOMValidityState") -- throws : False -- Skip return : False @@ -700,7 +748,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLFieldSetElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -728,7 +776,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLFieldSetElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "error", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -759,7 +807,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLFieldSetElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -789,7 +837,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLFieldSetElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False diff --git a/GI/WebKit/Objects/DOMHTMLFieldSetElement.hs-boot b/GI/WebKit/Objects/DOMHTMLFieldSetElement.hs-boot --- a/GI/WebKit/Objects/DOMHTMLFieldSetElement.hs-boot +++ b/GI/WebKit/Objects/DOMHTMLFieldSetElement.hs-boot @@ -1,8 +1,8 @@ module GI.WebKit.Objects.DOMHTMLFieldSetElement where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map diff --git a/GI/WebKit/Objects/DOMHTMLFontElement.hs b/GI/WebKit/Objects/DOMHTMLFontElement.hs --- a/GI/WebKit/Objects/DOMHTMLFontElement.hs +++ b/GI/WebKit/Objects/DOMHTMLFontElement.hs @@ -53,6 +53,7 @@ -- ** Color DOMHTMLFontElementColorPropertyInfo , constructDOMHTMLFontElementColor , + dOMHTMLFontElementColor , getDOMHTMLFontElementColor , setDOMHTMLFontElementColor , @@ -60,6 +61,7 @@ -- ** Face DOMHTMLFontElementFacePropertyInfo , constructDOMHTMLFontElementFace , + dOMHTMLFontElementFace , getDOMHTMLFontElementFace , setDOMHTMLFontElementFace , @@ -67,6 +69,7 @@ -- ** Size DOMHTMLFontElementSizePropertyInfo , constructDOMHTMLFontElementSize , + dOMHTMLFontElementSize , getDOMHTMLFontElementSize , setDOMHTMLFontElementSize , @@ -75,9 +78,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map @@ -281,78 +284,93 @@ -- VVV Prop "color" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Just False) -getDOMHTMLFontElementColor :: (MonadIO m, DOMHTMLFontElementK o) => o -> m T.Text +getDOMHTMLFontElementColor :: (MonadIO m, DOMHTMLFontElementK o) => o -> m (Maybe T.Text) getDOMHTMLFontElementColor obj = liftIO $ getObjectPropertyString obj "color" setDOMHTMLFontElementColor :: (MonadIO m, DOMHTMLFontElementK o) => o -> T.Text -> m () -setDOMHTMLFontElementColor obj val = liftIO $ setObjectPropertyString obj "color" val +setDOMHTMLFontElementColor obj val = liftIO $ setObjectPropertyString obj "color" (Just val) constructDOMHTMLFontElementColor :: T.Text -> IO ([Char], GValue) -constructDOMHTMLFontElementColor val = constructObjectPropertyString "color" val +constructDOMHTMLFontElementColor val = constructObjectPropertyString "color" (Just val) data DOMHTMLFontElementColorPropertyInfo instance AttrInfo DOMHTMLFontElementColorPropertyInfo where type AttrAllowedOps DOMHTMLFontElementColorPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint DOMHTMLFontElementColorPropertyInfo = (~) T.Text type AttrBaseTypeConstraint DOMHTMLFontElementColorPropertyInfo = DOMHTMLFontElementK - type AttrGetType DOMHTMLFontElementColorPropertyInfo = T.Text + type AttrGetType DOMHTMLFontElementColorPropertyInfo = (Maybe T.Text) type AttrLabel DOMHTMLFontElementColorPropertyInfo = "color" attrGet _ = getDOMHTMLFontElementColor attrSet _ = setDOMHTMLFontElementColor attrConstruct _ = constructDOMHTMLFontElementColor + attrClear _ = undefined -- VVV Prop "face" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Just False) -getDOMHTMLFontElementFace :: (MonadIO m, DOMHTMLFontElementK o) => o -> m T.Text +getDOMHTMLFontElementFace :: (MonadIO m, DOMHTMLFontElementK o) => o -> m (Maybe T.Text) getDOMHTMLFontElementFace obj = liftIO $ getObjectPropertyString obj "face" setDOMHTMLFontElementFace :: (MonadIO m, DOMHTMLFontElementK o) => o -> T.Text -> m () -setDOMHTMLFontElementFace obj val = liftIO $ setObjectPropertyString obj "face" val +setDOMHTMLFontElementFace obj val = liftIO $ setObjectPropertyString obj "face" (Just val) constructDOMHTMLFontElementFace :: T.Text -> IO ([Char], GValue) -constructDOMHTMLFontElementFace val = constructObjectPropertyString "face" val +constructDOMHTMLFontElementFace val = constructObjectPropertyString "face" (Just val) data DOMHTMLFontElementFacePropertyInfo instance AttrInfo DOMHTMLFontElementFacePropertyInfo where type AttrAllowedOps DOMHTMLFontElementFacePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint DOMHTMLFontElementFacePropertyInfo = (~) T.Text type AttrBaseTypeConstraint DOMHTMLFontElementFacePropertyInfo = DOMHTMLFontElementK - type AttrGetType DOMHTMLFontElementFacePropertyInfo = T.Text + type AttrGetType DOMHTMLFontElementFacePropertyInfo = (Maybe T.Text) type AttrLabel DOMHTMLFontElementFacePropertyInfo = "face" attrGet _ = getDOMHTMLFontElementFace attrSet _ = setDOMHTMLFontElementFace attrConstruct _ = constructDOMHTMLFontElementFace + attrClear _ = undefined -- VVV Prop "size" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Just False) -getDOMHTMLFontElementSize :: (MonadIO m, DOMHTMLFontElementK o) => o -> m T.Text +getDOMHTMLFontElementSize :: (MonadIO m, DOMHTMLFontElementK o) => o -> m (Maybe T.Text) getDOMHTMLFontElementSize obj = liftIO $ getObjectPropertyString obj "size" setDOMHTMLFontElementSize :: (MonadIO m, DOMHTMLFontElementK o) => o -> T.Text -> m () -setDOMHTMLFontElementSize obj val = liftIO $ setObjectPropertyString obj "size" val +setDOMHTMLFontElementSize obj val = liftIO $ setObjectPropertyString obj "size" (Just val) constructDOMHTMLFontElementSize :: T.Text -> IO ([Char], GValue) -constructDOMHTMLFontElementSize val = constructObjectPropertyString "size" val +constructDOMHTMLFontElementSize val = constructObjectPropertyString "size" (Just val) data DOMHTMLFontElementSizePropertyInfo instance AttrInfo DOMHTMLFontElementSizePropertyInfo where type AttrAllowedOps DOMHTMLFontElementSizePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint DOMHTMLFontElementSizePropertyInfo = (~) T.Text type AttrBaseTypeConstraint DOMHTMLFontElementSizePropertyInfo = DOMHTMLFontElementK - type AttrGetType DOMHTMLFontElementSizePropertyInfo = T.Text + type AttrGetType DOMHTMLFontElementSizePropertyInfo = (Maybe T.Text) type AttrLabel DOMHTMLFontElementSizePropertyInfo = "size" attrGet _ = getDOMHTMLFontElementSize attrSet _ = setDOMHTMLFontElementSize attrConstruct _ = constructDOMHTMLFontElementSize + attrClear _ = undefined type instance AttributeList DOMHTMLFontElement = DOMHTMLFontElementAttributeList type DOMHTMLFontElementAttributeList = ('[ '("accessKey", DOMHTMLElementAccessKeyPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("baseUri", DOMNodeBaseUriPropertyInfo), '("childElementCount", DOMElementChildElementCountPropertyInfo), '("childNodes", DOMNodeChildNodesPropertyInfo), '("children", DOMHTMLElementChildrenPropertyInfo), '("classList", DOMElementClassListPropertyInfo), '("className", DOMElementClassNamePropertyInfo), '("clientHeight", DOMElementClientHeightPropertyInfo), '("clientLeft", DOMElementClientLeftPropertyInfo), '("clientTop", DOMElementClientTopPropertyInfo), '("clientWidth", DOMElementClientWidthPropertyInfo), '("color", DOMHTMLFontElementColorPropertyInfo), '("contentEditable", DOMHTMLElementContentEditablePropertyInfo), '("coreObject", DOMObjectCoreObjectPropertyInfo), '("dir", DOMHTMLElementDirPropertyInfo), '("draggable", DOMHTMLElementDraggablePropertyInfo), '("face", DOMHTMLFontElementFacePropertyInfo), '("firstChild", DOMNodeFirstChildPropertyInfo), '("firstElementChild", DOMElementFirstElementChildPropertyInfo), '("hidden", DOMHTMLElementHiddenPropertyInfo), '("id", DOMElementIdPropertyInfo), '("innerHtml", DOMHTMLElementInnerHtmlPropertyInfo), '("innerText", DOMHTMLElementInnerTextPropertyInfo), '("isContentEditable", DOMHTMLElementIsContentEditablePropertyInfo), '("lang", DOMHTMLElementLangPropertyInfo), '("lastChild", DOMNodeLastChildPropertyInfo), '("lastElementChild", DOMElementLastElementChildPropertyInfo), '("localName", DOMNodeLocalNamePropertyInfo), '("namespaceUri", DOMNodeNamespaceUriPropertyInfo), '("nextElementSibling", DOMElementNextElementSiblingPropertyInfo), '("nextSibling", DOMNodeNextSiblingPropertyInfo), '("nodeName", DOMNodeNodeNamePropertyInfo), '("nodeType", DOMNodeNodeTypePropertyInfo), '("nodeValue", DOMNodeNodeValuePropertyInfo), '("offsetHeight", DOMElementOffsetHeightPropertyInfo), '("offsetLeft", DOMElementOffsetLeftPropertyInfo), '("offsetParent", DOMElementOffsetParentPropertyInfo), '("offsetTop", DOMElementOffsetTopPropertyInfo), '("offsetWidth", DOMElementOffsetWidthPropertyInfo), '("outerHtml", DOMHTMLElementOuterHtmlPropertyInfo), '("outerText", DOMHTMLElementOuterTextPropertyInfo), '("ownerDocument", DOMNodeOwnerDocumentPropertyInfo), '("parentElement", DOMNodeParentElementPropertyInfo), '("parentNode", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previousElementSibling", DOMElementPreviousElementSiblingPropertyInfo), '("previousSibling", DOMNodePreviousSiblingPropertyInfo), '("scrollHeight", DOMElementScrollHeightPropertyInfo), '("scrollLeft", DOMElementScrollLeftPropertyInfo), '("scrollTop", DOMElementScrollTopPropertyInfo), '("scrollWidth", DOMElementScrollWidthPropertyInfo), '("size", DOMHTMLFontElementSizePropertyInfo), '("spellcheck", DOMHTMLElementSpellcheckPropertyInfo), '("style", DOMElementStylePropertyInfo), '("tabIndex", DOMHTMLElementTabIndexPropertyInfo), '("tagName", DOMElementTagNamePropertyInfo), '("textContent", DOMNodeTextContentPropertyInfo), '("title", DOMHTMLElementTitlePropertyInfo), '("translate", DOMHTMLElementTranslatePropertyInfo), '("webkitRegionOverset", DOMElementWebkitRegionOversetPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo)] :: [(Symbol, *)]) +dOMHTMLFontElementColor :: AttrLabelProxy "color" +dOMHTMLFontElementColor = AttrLabelProxy + +dOMHTMLFontElementFace :: AttrLabelProxy "face" +dOMHTMLFontElementFace = AttrLabelProxy + +dOMHTMLFontElementSize :: AttrLabelProxy "size" +dOMHTMLFontElementSize = AttrLabelProxy + type instance SignalList DOMHTMLFontElement = DOMHTMLFontElementSignalList type DOMHTMLFontElementSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) @@ -360,7 +378,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLFontElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -390,7 +408,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLFontElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -420,7 +438,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLFontElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -450,7 +468,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLFontElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -481,7 +499,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLFontElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -512,7 +530,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLFontElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False diff --git a/GI/WebKit/Objects/DOMHTMLFontElement.hs-boot b/GI/WebKit/Objects/DOMHTMLFontElement.hs-boot --- a/GI/WebKit/Objects/DOMHTMLFontElement.hs-boot +++ b/GI/WebKit/Objects/DOMHTMLFontElement.hs-boot @@ -1,8 +1,8 @@ module GI.WebKit.Objects.DOMHTMLFontElement where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map diff --git a/GI/WebKit/Objects/DOMHTMLFormElement.hs b/GI/WebKit/Objects/DOMHTMLFormElement.hs --- a/GI/WebKit/Objects/DOMHTMLFormElement.hs +++ b/GI/WebKit/Objects/DOMHTMLFormElement.hs @@ -168,6 +168,7 @@ -- ** AcceptCharset DOMHTMLFormElementAcceptCharsetPropertyInfo, constructDOMHTMLFormElementAcceptCharset, + dOMHTMLFormElementAcceptCharset , getDOMHTMLFormElementAcceptCharset , setDOMHTMLFormElementAcceptCharset , @@ -175,6 +176,7 @@ -- ** Action DOMHTMLFormElementActionPropertyInfo , constructDOMHTMLFormElementAction , + dOMHTMLFormElementAction , getDOMHTMLFormElementAction , setDOMHTMLFormElementAction , @@ -182,6 +184,7 @@ -- ** Autocapitalize DOMHTMLFormElementAutocapitalizePropertyInfo, constructDOMHTMLFormElementAutocapitalize, + dOMHTMLFormElementAutocapitalize , getDOMHTMLFormElementAutocapitalize , setDOMHTMLFormElementAutocapitalize , @@ -189,6 +192,7 @@ -- ** Autocomplete DOMHTMLFormElementAutocompletePropertyInfo, constructDOMHTMLFormElementAutocomplete , + dOMHTMLFormElementAutocomplete , getDOMHTMLFormElementAutocomplete , setDOMHTMLFormElementAutocomplete , @@ -196,18 +200,21 @@ -- ** Autocorrect DOMHTMLFormElementAutocorrectPropertyInfo, constructDOMHTMLFormElementAutocorrect , + dOMHTMLFormElementAutocorrect , getDOMHTMLFormElementAutocorrect , setDOMHTMLFormElementAutocorrect , -- ** Elements DOMHTMLFormElementElementsPropertyInfo , + dOMHTMLFormElementElements , getDOMHTMLFormElementElements , -- ** Encoding DOMHTMLFormElementEncodingPropertyInfo , constructDOMHTMLFormElementEncoding , + dOMHTMLFormElementEncoding , getDOMHTMLFormElementEncoding , setDOMHTMLFormElementEncoding , @@ -215,18 +222,21 @@ -- ** Enctype DOMHTMLFormElementEnctypePropertyInfo , constructDOMHTMLFormElementEnctype , + dOMHTMLFormElementEnctype , getDOMHTMLFormElementEnctype , setDOMHTMLFormElementEnctype , -- ** Length DOMHTMLFormElementLengthPropertyInfo , + dOMHTMLFormElementLength , getDOMHTMLFormElementLength , -- ** Method DOMHTMLFormElementMethodPropertyInfo , constructDOMHTMLFormElementMethod , + dOMHTMLFormElementMethod , getDOMHTMLFormElementMethod , setDOMHTMLFormElementMethod , @@ -234,6 +244,7 @@ -- ** Name DOMHTMLFormElementNamePropertyInfo , constructDOMHTMLFormElementName , + dOMHTMLFormElementName , getDOMHTMLFormElementName , setDOMHTMLFormElementName , @@ -241,6 +252,7 @@ -- ** NoValidate DOMHTMLFormElementNoValidatePropertyInfo, constructDOMHTMLFormElementNoValidate , + dOMHTMLFormElementNoValidate , getDOMHTMLFormElementNoValidate , setDOMHTMLFormElementNoValidate , @@ -248,6 +260,7 @@ -- ** Target DOMHTMLFormElementTargetPropertyInfo , constructDOMHTMLFormElementTarget , + dOMHTMLFormElementTarget , getDOMHTMLFormElementTarget , setDOMHTMLFormElementTarget , @@ -256,9 +269,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map @@ -485,102 +498,111 @@ -- VVV Prop "accept-charset" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Just False) -getDOMHTMLFormElementAcceptCharset :: (MonadIO m, DOMHTMLFormElementK o) => o -> m T.Text +getDOMHTMLFormElementAcceptCharset :: (MonadIO m, DOMHTMLFormElementK o) => o -> m (Maybe T.Text) getDOMHTMLFormElementAcceptCharset obj = liftIO $ getObjectPropertyString obj "accept-charset" setDOMHTMLFormElementAcceptCharset :: (MonadIO m, DOMHTMLFormElementK o) => o -> T.Text -> m () -setDOMHTMLFormElementAcceptCharset obj val = liftIO $ setObjectPropertyString obj "accept-charset" val +setDOMHTMLFormElementAcceptCharset obj val = liftIO $ setObjectPropertyString obj "accept-charset" (Just val) constructDOMHTMLFormElementAcceptCharset :: T.Text -> IO ([Char], GValue) -constructDOMHTMLFormElementAcceptCharset val = constructObjectPropertyString "accept-charset" val +constructDOMHTMLFormElementAcceptCharset val = constructObjectPropertyString "accept-charset" (Just val) data DOMHTMLFormElementAcceptCharsetPropertyInfo instance AttrInfo DOMHTMLFormElementAcceptCharsetPropertyInfo where type AttrAllowedOps DOMHTMLFormElementAcceptCharsetPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint DOMHTMLFormElementAcceptCharsetPropertyInfo = (~) T.Text type AttrBaseTypeConstraint DOMHTMLFormElementAcceptCharsetPropertyInfo = DOMHTMLFormElementK - type AttrGetType DOMHTMLFormElementAcceptCharsetPropertyInfo = T.Text + type AttrGetType DOMHTMLFormElementAcceptCharsetPropertyInfo = (Maybe T.Text) type AttrLabel DOMHTMLFormElementAcceptCharsetPropertyInfo = "accept-charset" attrGet _ = getDOMHTMLFormElementAcceptCharset attrSet _ = setDOMHTMLFormElementAcceptCharset attrConstruct _ = constructDOMHTMLFormElementAcceptCharset + attrClear _ = undefined -- VVV Prop "action" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Just False) -getDOMHTMLFormElementAction :: (MonadIO m, DOMHTMLFormElementK o) => o -> m T.Text +getDOMHTMLFormElementAction :: (MonadIO m, DOMHTMLFormElementK o) => o -> m (Maybe T.Text) getDOMHTMLFormElementAction obj = liftIO $ getObjectPropertyString obj "action" setDOMHTMLFormElementAction :: (MonadIO m, DOMHTMLFormElementK o) => o -> T.Text -> m () -setDOMHTMLFormElementAction obj val = liftIO $ setObjectPropertyString obj "action" val +setDOMHTMLFormElementAction obj val = liftIO $ setObjectPropertyString obj "action" (Just val) constructDOMHTMLFormElementAction :: T.Text -> IO ([Char], GValue) -constructDOMHTMLFormElementAction val = constructObjectPropertyString "action" val +constructDOMHTMLFormElementAction val = constructObjectPropertyString "action" (Just val) data DOMHTMLFormElementActionPropertyInfo instance AttrInfo DOMHTMLFormElementActionPropertyInfo where type AttrAllowedOps DOMHTMLFormElementActionPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint DOMHTMLFormElementActionPropertyInfo = (~) T.Text type AttrBaseTypeConstraint DOMHTMLFormElementActionPropertyInfo = DOMHTMLFormElementK - type AttrGetType DOMHTMLFormElementActionPropertyInfo = T.Text + type AttrGetType DOMHTMLFormElementActionPropertyInfo = (Maybe T.Text) type AttrLabel DOMHTMLFormElementActionPropertyInfo = "action" attrGet _ = getDOMHTMLFormElementAction attrSet _ = setDOMHTMLFormElementAction attrConstruct _ = constructDOMHTMLFormElementAction + attrClear _ = undefined -- VVV Prop "autocapitalize" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Just False) -getDOMHTMLFormElementAutocapitalize :: (MonadIO m, DOMHTMLFormElementK o) => o -> m T.Text +getDOMHTMLFormElementAutocapitalize :: (MonadIO m, DOMHTMLFormElementK o) => o -> m (Maybe T.Text) getDOMHTMLFormElementAutocapitalize obj = liftIO $ getObjectPropertyString obj "autocapitalize" setDOMHTMLFormElementAutocapitalize :: (MonadIO m, DOMHTMLFormElementK o) => o -> T.Text -> m () -setDOMHTMLFormElementAutocapitalize obj val = liftIO $ setObjectPropertyString obj "autocapitalize" val +setDOMHTMLFormElementAutocapitalize obj val = liftIO $ setObjectPropertyString obj "autocapitalize" (Just val) constructDOMHTMLFormElementAutocapitalize :: T.Text -> IO ([Char], GValue) -constructDOMHTMLFormElementAutocapitalize val = constructObjectPropertyString "autocapitalize" val +constructDOMHTMLFormElementAutocapitalize val = constructObjectPropertyString "autocapitalize" (Just val) data DOMHTMLFormElementAutocapitalizePropertyInfo instance AttrInfo DOMHTMLFormElementAutocapitalizePropertyInfo where type AttrAllowedOps DOMHTMLFormElementAutocapitalizePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint DOMHTMLFormElementAutocapitalizePropertyInfo = (~) T.Text type AttrBaseTypeConstraint DOMHTMLFormElementAutocapitalizePropertyInfo = DOMHTMLFormElementK - type AttrGetType DOMHTMLFormElementAutocapitalizePropertyInfo = T.Text + type AttrGetType DOMHTMLFormElementAutocapitalizePropertyInfo = (Maybe T.Text) type AttrLabel DOMHTMLFormElementAutocapitalizePropertyInfo = "autocapitalize" attrGet _ = getDOMHTMLFormElementAutocapitalize attrSet _ = setDOMHTMLFormElementAutocapitalize attrConstruct _ = constructDOMHTMLFormElementAutocapitalize + attrClear _ = undefined -- VVV Prop "autocomplete" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Just False) -getDOMHTMLFormElementAutocomplete :: (MonadIO m, DOMHTMLFormElementK o) => o -> m T.Text +getDOMHTMLFormElementAutocomplete :: (MonadIO m, DOMHTMLFormElementK o) => o -> m (Maybe T.Text) getDOMHTMLFormElementAutocomplete obj = liftIO $ getObjectPropertyString obj "autocomplete" setDOMHTMLFormElementAutocomplete :: (MonadIO m, DOMHTMLFormElementK o) => o -> T.Text -> m () -setDOMHTMLFormElementAutocomplete obj val = liftIO $ setObjectPropertyString obj "autocomplete" val +setDOMHTMLFormElementAutocomplete obj val = liftIO $ setObjectPropertyString obj "autocomplete" (Just val) constructDOMHTMLFormElementAutocomplete :: T.Text -> IO ([Char], GValue) -constructDOMHTMLFormElementAutocomplete val = constructObjectPropertyString "autocomplete" val +constructDOMHTMLFormElementAutocomplete val = constructObjectPropertyString "autocomplete" (Just val) data DOMHTMLFormElementAutocompletePropertyInfo instance AttrInfo DOMHTMLFormElementAutocompletePropertyInfo where type AttrAllowedOps DOMHTMLFormElementAutocompletePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint DOMHTMLFormElementAutocompletePropertyInfo = (~) T.Text type AttrBaseTypeConstraint DOMHTMLFormElementAutocompletePropertyInfo = DOMHTMLFormElementK - type AttrGetType DOMHTMLFormElementAutocompletePropertyInfo = T.Text + type AttrGetType DOMHTMLFormElementAutocompletePropertyInfo = (Maybe T.Text) type AttrLabel DOMHTMLFormElementAutocompletePropertyInfo = "autocomplete" attrGet _ = getDOMHTMLFormElementAutocomplete attrSet _ = setDOMHTMLFormElementAutocomplete attrConstruct _ = constructDOMHTMLFormElementAutocomplete + attrClear _ = undefined -- VVV Prop "autocorrect" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getDOMHTMLFormElementAutocorrect :: (MonadIO m, DOMHTMLFormElementK o) => o -> m Bool getDOMHTMLFormElementAutocorrect obj = liftIO $ getObjectPropertyBool obj "autocorrect" @@ -601,142 +623,156 @@ attrGet _ = getDOMHTMLFormElementAutocorrect attrSet _ = setDOMHTMLFormElementAutocorrect attrConstruct _ = constructDOMHTMLFormElementAutocorrect + attrClear _ = undefined -- VVV Prop "elements" -- Type: TInterface "WebKit" "DOMHTMLCollection" -- Flags: [PropertyReadable] + -- Nullable: (Nothing,Nothing) -getDOMHTMLFormElementElements :: (MonadIO m, DOMHTMLFormElementK o) => o -> m DOMHTMLCollection +getDOMHTMLFormElementElements :: (MonadIO m, DOMHTMLFormElementK o) => o -> m (Maybe DOMHTMLCollection) getDOMHTMLFormElementElements obj = liftIO $ getObjectPropertyObject obj "elements" DOMHTMLCollection data DOMHTMLFormElementElementsPropertyInfo instance AttrInfo DOMHTMLFormElementElementsPropertyInfo where - type AttrAllowedOps DOMHTMLFormElementElementsPropertyInfo = '[ 'AttrGet] + type AttrAllowedOps DOMHTMLFormElementElementsPropertyInfo = '[ 'AttrGet, 'AttrClear] type AttrSetTypeConstraint DOMHTMLFormElementElementsPropertyInfo = (~) () type AttrBaseTypeConstraint DOMHTMLFormElementElementsPropertyInfo = DOMHTMLFormElementK - type AttrGetType DOMHTMLFormElementElementsPropertyInfo = DOMHTMLCollection + type AttrGetType DOMHTMLFormElementElementsPropertyInfo = (Maybe DOMHTMLCollection) type AttrLabel DOMHTMLFormElementElementsPropertyInfo = "elements" attrGet _ = getDOMHTMLFormElementElements attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "encoding" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Just False) -getDOMHTMLFormElementEncoding :: (MonadIO m, DOMHTMLFormElementK o) => o -> m T.Text +getDOMHTMLFormElementEncoding :: (MonadIO m, DOMHTMLFormElementK o) => o -> m (Maybe T.Text) getDOMHTMLFormElementEncoding obj = liftIO $ getObjectPropertyString obj "encoding" setDOMHTMLFormElementEncoding :: (MonadIO m, DOMHTMLFormElementK o) => o -> T.Text -> m () -setDOMHTMLFormElementEncoding obj val = liftIO $ setObjectPropertyString obj "encoding" val +setDOMHTMLFormElementEncoding obj val = liftIO $ setObjectPropertyString obj "encoding" (Just val) constructDOMHTMLFormElementEncoding :: T.Text -> IO ([Char], GValue) -constructDOMHTMLFormElementEncoding val = constructObjectPropertyString "encoding" val +constructDOMHTMLFormElementEncoding val = constructObjectPropertyString "encoding" (Just val) data DOMHTMLFormElementEncodingPropertyInfo instance AttrInfo DOMHTMLFormElementEncodingPropertyInfo where type AttrAllowedOps DOMHTMLFormElementEncodingPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint DOMHTMLFormElementEncodingPropertyInfo = (~) T.Text type AttrBaseTypeConstraint DOMHTMLFormElementEncodingPropertyInfo = DOMHTMLFormElementK - type AttrGetType DOMHTMLFormElementEncodingPropertyInfo = T.Text + type AttrGetType DOMHTMLFormElementEncodingPropertyInfo = (Maybe T.Text) type AttrLabel DOMHTMLFormElementEncodingPropertyInfo = "encoding" attrGet _ = getDOMHTMLFormElementEncoding attrSet _ = setDOMHTMLFormElementEncoding attrConstruct _ = constructDOMHTMLFormElementEncoding + attrClear _ = undefined -- VVV Prop "enctype" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Just False) -getDOMHTMLFormElementEnctype :: (MonadIO m, DOMHTMLFormElementK o) => o -> m T.Text +getDOMHTMLFormElementEnctype :: (MonadIO m, DOMHTMLFormElementK o) => o -> m (Maybe T.Text) getDOMHTMLFormElementEnctype obj = liftIO $ getObjectPropertyString obj "enctype" setDOMHTMLFormElementEnctype :: (MonadIO m, DOMHTMLFormElementK o) => o -> T.Text -> m () -setDOMHTMLFormElementEnctype obj val = liftIO $ setObjectPropertyString obj "enctype" val +setDOMHTMLFormElementEnctype obj val = liftIO $ setObjectPropertyString obj "enctype" (Just val) constructDOMHTMLFormElementEnctype :: T.Text -> IO ([Char], GValue) -constructDOMHTMLFormElementEnctype val = constructObjectPropertyString "enctype" val +constructDOMHTMLFormElementEnctype val = constructObjectPropertyString "enctype" (Just val) data DOMHTMLFormElementEnctypePropertyInfo instance AttrInfo DOMHTMLFormElementEnctypePropertyInfo where type AttrAllowedOps DOMHTMLFormElementEnctypePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint DOMHTMLFormElementEnctypePropertyInfo = (~) T.Text type AttrBaseTypeConstraint DOMHTMLFormElementEnctypePropertyInfo = DOMHTMLFormElementK - type AttrGetType DOMHTMLFormElementEnctypePropertyInfo = T.Text + type AttrGetType DOMHTMLFormElementEnctypePropertyInfo = (Maybe T.Text) type AttrLabel DOMHTMLFormElementEnctypePropertyInfo = "enctype" attrGet _ = getDOMHTMLFormElementEnctype attrSet _ = setDOMHTMLFormElementEnctype attrConstruct _ = constructDOMHTMLFormElementEnctype + attrClear _ = undefined -- VVV Prop "length" - -- Type: TBasicType TInt64 + -- Type: TBasicType TLong -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) -getDOMHTMLFormElementLength :: (MonadIO m, DOMHTMLFormElementK o) => o -> m Int64 -getDOMHTMLFormElementLength obj = liftIO $ getObjectPropertyInt64 obj "length" +getDOMHTMLFormElementLength :: (MonadIO m, DOMHTMLFormElementK o) => o -> m CLong +getDOMHTMLFormElementLength obj = liftIO $ getObjectPropertyLong obj "length" data DOMHTMLFormElementLengthPropertyInfo instance AttrInfo DOMHTMLFormElementLengthPropertyInfo where type AttrAllowedOps DOMHTMLFormElementLengthPropertyInfo = '[ 'AttrGet] type AttrSetTypeConstraint DOMHTMLFormElementLengthPropertyInfo = (~) () type AttrBaseTypeConstraint DOMHTMLFormElementLengthPropertyInfo = DOMHTMLFormElementK - type AttrGetType DOMHTMLFormElementLengthPropertyInfo = Int64 + type AttrGetType DOMHTMLFormElementLengthPropertyInfo = CLong type AttrLabel DOMHTMLFormElementLengthPropertyInfo = "length" attrGet _ = getDOMHTMLFormElementLength attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "method" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Just False) -getDOMHTMLFormElementMethod :: (MonadIO m, DOMHTMLFormElementK o) => o -> m T.Text +getDOMHTMLFormElementMethod :: (MonadIO m, DOMHTMLFormElementK o) => o -> m (Maybe T.Text) getDOMHTMLFormElementMethod obj = liftIO $ getObjectPropertyString obj "method" setDOMHTMLFormElementMethod :: (MonadIO m, DOMHTMLFormElementK o) => o -> T.Text -> m () -setDOMHTMLFormElementMethod obj val = liftIO $ setObjectPropertyString obj "method" val +setDOMHTMLFormElementMethod obj val = liftIO $ setObjectPropertyString obj "method" (Just val) constructDOMHTMLFormElementMethod :: T.Text -> IO ([Char], GValue) -constructDOMHTMLFormElementMethod val = constructObjectPropertyString "method" val +constructDOMHTMLFormElementMethod val = constructObjectPropertyString "method" (Just val) data DOMHTMLFormElementMethodPropertyInfo instance AttrInfo DOMHTMLFormElementMethodPropertyInfo where type AttrAllowedOps DOMHTMLFormElementMethodPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint DOMHTMLFormElementMethodPropertyInfo = (~) T.Text type AttrBaseTypeConstraint DOMHTMLFormElementMethodPropertyInfo = DOMHTMLFormElementK - type AttrGetType DOMHTMLFormElementMethodPropertyInfo = T.Text + type AttrGetType DOMHTMLFormElementMethodPropertyInfo = (Maybe T.Text) type AttrLabel DOMHTMLFormElementMethodPropertyInfo = "method" attrGet _ = getDOMHTMLFormElementMethod attrSet _ = setDOMHTMLFormElementMethod attrConstruct _ = constructDOMHTMLFormElementMethod + attrClear _ = undefined -- VVV Prop "name" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Just False) -getDOMHTMLFormElementName :: (MonadIO m, DOMHTMLFormElementK o) => o -> m T.Text +getDOMHTMLFormElementName :: (MonadIO m, DOMHTMLFormElementK o) => o -> m (Maybe T.Text) getDOMHTMLFormElementName obj = liftIO $ getObjectPropertyString obj "name" setDOMHTMLFormElementName :: (MonadIO m, DOMHTMLFormElementK o) => o -> T.Text -> m () -setDOMHTMLFormElementName obj val = liftIO $ setObjectPropertyString obj "name" val +setDOMHTMLFormElementName obj val = liftIO $ setObjectPropertyString obj "name" (Just val) constructDOMHTMLFormElementName :: T.Text -> IO ([Char], GValue) -constructDOMHTMLFormElementName val = constructObjectPropertyString "name" val +constructDOMHTMLFormElementName val = constructObjectPropertyString "name" (Just val) data DOMHTMLFormElementNamePropertyInfo instance AttrInfo DOMHTMLFormElementNamePropertyInfo where type AttrAllowedOps DOMHTMLFormElementNamePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint DOMHTMLFormElementNamePropertyInfo = (~) T.Text type AttrBaseTypeConstraint DOMHTMLFormElementNamePropertyInfo = DOMHTMLFormElementK - type AttrGetType DOMHTMLFormElementNamePropertyInfo = T.Text + type AttrGetType DOMHTMLFormElementNamePropertyInfo = (Maybe T.Text) type AttrLabel DOMHTMLFormElementNamePropertyInfo = "name" attrGet _ = getDOMHTMLFormElementName attrSet _ = setDOMHTMLFormElementName attrConstruct _ = constructDOMHTMLFormElementName + attrClear _ = undefined -- VVV Prop "no-validate" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getDOMHTMLFormElementNoValidate :: (MonadIO m, DOMHTMLFormElementK o) => o -> m Bool getDOMHTMLFormElementNoValidate obj = liftIO $ getObjectPropertyBool obj "no-validate" @@ -757,34 +793,76 @@ attrGet _ = getDOMHTMLFormElementNoValidate attrSet _ = setDOMHTMLFormElementNoValidate attrConstruct _ = constructDOMHTMLFormElementNoValidate + attrClear _ = undefined -- VVV Prop "target" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Just False) -getDOMHTMLFormElementTarget :: (MonadIO m, DOMHTMLFormElementK o) => o -> m T.Text +getDOMHTMLFormElementTarget :: (MonadIO m, DOMHTMLFormElementK o) => o -> m (Maybe T.Text) getDOMHTMLFormElementTarget obj = liftIO $ getObjectPropertyString obj "target" setDOMHTMLFormElementTarget :: (MonadIO m, DOMHTMLFormElementK o) => o -> T.Text -> m () -setDOMHTMLFormElementTarget obj val = liftIO $ setObjectPropertyString obj "target" val +setDOMHTMLFormElementTarget obj val = liftIO $ setObjectPropertyString obj "target" (Just val) constructDOMHTMLFormElementTarget :: T.Text -> IO ([Char], GValue) -constructDOMHTMLFormElementTarget val = constructObjectPropertyString "target" val +constructDOMHTMLFormElementTarget val = constructObjectPropertyString "target" (Just val) data DOMHTMLFormElementTargetPropertyInfo instance AttrInfo DOMHTMLFormElementTargetPropertyInfo where type AttrAllowedOps DOMHTMLFormElementTargetPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint DOMHTMLFormElementTargetPropertyInfo = (~) T.Text type AttrBaseTypeConstraint DOMHTMLFormElementTargetPropertyInfo = DOMHTMLFormElementK - type AttrGetType DOMHTMLFormElementTargetPropertyInfo = T.Text + type AttrGetType DOMHTMLFormElementTargetPropertyInfo = (Maybe T.Text) type AttrLabel DOMHTMLFormElementTargetPropertyInfo = "target" attrGet _ = getDOMHTMLFormElementTarget attrSet _ = setDOMHTMLFormElementTarget attrConstruct _ = constructDOMHTMLFormElementTarget + attrClear _ = undefined type instance AttributeList DOMHTMLFormElement = DOMHTMLFormElementAttributeList type DOMHTMLFormElementAttributeList = ('[ '("acceptCharset", DOMHTMLFormElementAcceptCharsetPropertyInfo), '("accessKey", DOMHTMLElementAccessKeyPropertyInfo), '("action", DOMHTMLFormElementActionPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("autocapitalize", DOMHTMLFormElementAutocapitalizePropertyInfo), '("autocomplete", DOMHTMLFormElementAutocompletePropertyInfo), '("autocorrect", DOMHTMLFormElementAutocorrectPropertyInfo), '("baseUri", DOMNodeBaseUriPropertyInfo), '("childElementCount", DOMElementChildElementCountPropertyInfo), '("childNodes", DOMNodeChildNodesPropertyInfo), '("children", DOMHTMLElementChildrenPropertyInfo), '("classList", DOMElementClassListPropertyInfo), '("className", DOMElementClassNamePropertyInfo), '("clientHeight", DOMElementClientHeightPropertyInfo), '("clientLeft", DOMElementClientLeftPropertyInfo), '("clientTop", DOMElementClientTopPropertyInfo), '("clientWidth", DOMElementClientWidthPropertyInfo), '("contentEditable", DOMHTMLElementContentEditablePropertyInfo), '("coreObject", DOMObjectCoreObjectPropertyInfo), '("dir", DOMHTMLElementDirPropertyInfo), '("draggable", DOMHTMLElementDraggablePropertyInfo), '("elements", DOMHTMLFormElementElementsPropertyInfo), '("encoding", DOMHTMLFormElementEncodingPropertyInfo), '("enctype", DOMHTMLFormElementEnctypePropertyInfo), '("firstChild", DOMNodeFirstChildPropertyInfo), '("firstElementChild", DOMElementFirstElementChildPropertyInfo), '("hidden", DOMHTMLElementHiddenPropertyInfo), '("id", DOMElementIdPropertyInfo), '("innerHtml", DOMHTMLElementInnerHtmlPropertyInfo), '("innerText", DOMHTMLElementInnerTextPropertyInfo), '("isContentEditable", DOMHTMLElementIsContentEditablePropertyInfo), '("lang", DOMHTMLElementLangPropertyInfo), '("lastChild", DOMNodeLastChildPropertyInfo), '("lastElementChild", DOMElementLastElementChildPropertyInfo), '("length", DOMHTMLFormElementLengthPropertyInfo), '("localName", DOMNodeLocalNamePropertyInfo), '("method", DOMHTMLFormElementMethodPropertyInfo), '("name", DOMHTMLFormElementNamePropertyInfo), '("namespaceUri", DOMNodeNamespaceUriPropertyInfo), '("nextElementSibling", DOMElementNextElementSiblingPropertyInfo), '("nextSibling", DOMNodeNextSiblingPropertyInfo), '("noValidate", DOMHTMLFormElementNoValidatePropertyInfo), '("nodeName", DOMNodeNodeNamePropertyInfo), '("nodeType", DOMNodeNodeTypePropertyInfo), '("nodeValue", DOMNodeNodeValuePropertyInfo), '("offsetHeight", DOMElementOffsetHeightPropertyInfo), '("offsetLeft", DOMElementOffsetLeftPropertyInfo), '("offsetParent", DOMElementOffsetParentPropertyInfo), '("offsetTop", DOMElementOffsetTopPropertyInfo), '("offsetWidth", DOMElementOffsetWidthPropertyInfo), '("outerHtml", DOMHTMLElementOuterHtmlPropertyInfo), '("outerText", DOMHTMLElementOuterTextPropertyInfo), '("ownerDocument", DOMNodeOwnerDocumentPropertyInfo), '("parentElement", DOMNodeParentElementPropertyInfo), '("parentNode", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previousElementSibling", DOMElementPreviousElementSiblingPropertyInfo), '("previousSibling", DOMNodePreviousSiblingPropertyInfo), '("scrollHeight", DOMElementScrollHeightPropertyInfo), '("scrollLeft", DOMElementScrollLeftPropertyInfo), '("scrollTop", DOMElementScrollTopPropertyInfo), '("scrollWidth", DOMElementScrollWidthPropertyInfo), '("spellcheck", DOMHTMLElementSpellcheckPropertyInfo), '("style", DOMElementStylePropertyInfo), '("tabIndex", DOMHTMLElementTabIndexPropertyInfo), '("tagName", DOMElementTagNamePropertyInfo), '("target", DOMHTMLFormElementTargetPropertyInfo), '("textContent", DOMNodeTextContentPropertyInfo), '("title", DOMHTMLElementTitlePropertyInfo), '("translate", DOMHTMLElementTranslatePropertyInfo), '("webkitRegionOverset", DOMElementWebkitRegionOversetPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo)] :: [(Symbol, *)]) +dOMHTMLFormElementAcceptCharset :: AttrLabelProxy "acceptCharset" +dOMHTMLFormElementAcceptCharset = AttrLabelProxy + +dOMHTMLFormElementAction :: AttrLabelProxy "action" +dOMHTMLFormElementAction = AttrLabelProxy + +dOMHTMLFormElementAutocapitalize :: AttrLabelProxy "autocapitalize" +dOMHTMLFormElementAutocapitalize = AttrLabelProxy + +dOMHTMLFormElementAutocomplete :: AttrLabelProxy "autocomplete" +dOMHTMLFormElementAutocomplete = AttrLabelProxy + +dOMHTMLFormElementAutocorrect :: AttrLabelProxy "autocorrect" +dOMHTMLFormElementAutocorrect = AttrLabelProxy + +dOMHTMLFormElementElements :: AttrLabelProxy "elements" +dOMHTMLFormElementElements = AttrLabelProxy + +dOMHTMLFormElementEncoding :: AttrLabelProxy "encoding" +dOMHTMLFormElementEncoding = AttrLabelProxy + +dOMHTMLFormElementEnctype :: AttrLabelProxy "enctype" +dOMHTMLFormElementEnctype = AttrLabelProxy + +dOMHTMLFormElementLength :: AttrLabelProxy "length" +dOMHTMLFormElementLength = AttrLabelProxy + +dOMHTMLFormElementMethod :: AttrLabelProxy "method" +dOMHTMLFormElementMethod = AttrLabelProxy + +dOMHTMLFormElementName :: AttrLabelProxy "name" +dOMHTMLFormElementName = AttrLabelProxy + +dOMHTMLFormElementNoValidate :: AttrLabelProxy "noValidate" +dOMHTMLFormElementNoValidate = AttrLabelProxy + +dOMHTMLFormElementTarget :: AttrLabelProxy "target" +dOMHTMLFormElementTarget = AttrLabelProxy + type instance SignalList DOMHTMLFormElement = DOMHTMLFormElementSignalList type DOMHTMLFormElementSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) @@ -792,7 +870,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLFormElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -820,7 +898,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLFormElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -847,7 +925,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLFormElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -874,7 +952,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLFormElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -904,7 +982,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLFormElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -934,7 +1012,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLFormElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -964,7 +1042,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLFormElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -994,7 +1072,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLFormElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -1022,7 +1100,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLFormElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit" "DOMHTMLCollection" +-- returnType : Just (TInterface "WebKit" "DOMHTMLCollection") -- throws : False -- Skip return : False @@ -1051,7 +1129,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLFormElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -1081,7 +1159,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLFormElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -1111,19 +1189,19 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLFormElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TInt64 +-- returnType : Just (TBasicType TLong) -- throws : False -- Skip return : False foreign import ccall "webkit_dom_html_form_element_get_length" webkit_dom_html_form_element_get_length :: Ptr DOMHTMLFormElement -> -- _obj : TInterface "WebKit" "DOMHTMLFormElement" - IO Int64 + IO CLong dOMHTMLFormElementGetLength :: (MonadIO m, DOMHTMLFormElementK a) => a -- _obj - -> m Int64 -- result + -> m CLong -- result dOMHTMLFormElementGetLength _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- webkit_dom_html_form_element_get_length _obj' @@ -1131,14 +1209,14 @@ return result data DOMHTMLFormElementGetLengthMethodInfo -instance (signature ~ (m Int64), MonadIO m, DOMHTMLFormElementK a) => MethodInfo DOMHTMLFormElementGetLengthMethodInfo a signature where +instance (signature ~ (m CLong), MonadIO m, DOMHTMLFormElementK a) => MethodInfo DOMHTMLFormElementGetLengthMethodInfo a signature where overloadedMethod _ = dOMHTMLFormElementGetLength -- method DOMHTMLFormElement::get_method -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLFormElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -1168,7 +1246,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLFormElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -1198,7 +1276,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLFormElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -1226,7 +1304,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLFormElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -1256,7 +1334,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLFormElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1283,7 +1361,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLFormElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1314,7 +1392,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLFormElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1345,7 +1423,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLFormElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1376,7 +1454,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLFormElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1407,7 +1485,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLFormElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1437,7 +1515,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLFormElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1468,7 +1546,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLFormElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1499,7 +1577,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLFormElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1530,7 +1608,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLFormElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1561,7 +1639,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLFormElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1591,7 +1669,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLFormElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1622,7 +1700,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLFormElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False diff --git a/GI/WebKit/Objects/DOMHTMLFormElement.hs-boot b/GI/WebKit/Objects/DOMHTMLFormElement.hs-boot --- a/GI/WebKit/Objects/DOMHTMLFormElement.hs-boot +++ b/GI/WebKit/Objects/DOMHTMLFormElement.hs-boot @@ -1,8 +1,8 @@ module GI.WebKit.Objects.DOMHTMLFormElement where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map diff --git a/GI/WebKit/Objects/DOMHTMLFrameElement.hs b/GI/WebKit/Objects/DOMHTMLFrameElement.hs --- a/GI/WebKit/Objects/DOMHTMLFrameElement.hs +++ b/GI/WebKit/Objects/DOMHTMLFrameElement.hs @@ -122,29 +122,34 @@ -- * Properties -- ** ContentDocument DOMHTMLFrameElementContentDocumentPropertyInfo, + dOMHTMLFrameElementContentDocument , getDOMHTMLFrameElementContentDocument , -- ** ContentWindow DOMHTMLFrameElementContentWindowPropertyInfo, + dOMHTMLFrameElementContentWindow , getDOMHTMLFrameElementContentWindow , -- ** FrameBorder DOMHTMLFrameElementFrameBorderPropertyInfo, constructDOMHTMLFrameElementFrameBorder , + dOMHTMLFrameElementFrameBorder , getDOMHTMLFrameElementFrameBorder , setDOMHTMLFrameElementFrameBorder , -- ** Height DOMHTMLFrameElementHeightPropertyInfo , + dOMHTMLFrameElementHeight , getDOMHTMLFrameElementHeight , -- ** LongDesc DOMHTMLFrameElementLongDescPropertyInfo , constructDOMHTMLFrameElementLongDesc , + dOMHTMLFrameElementLongDesc , getDOMHTMLFrameElementLongDesc , setDOMHTMLFrameElementLongDesc , @@ -152,6 +157,7 @@ -- ** MarginHeight DOMHTMLFrameElementMarginHeightPropertyInfo, constructDOMHTMLFrameElementMarginHeight, + dOMHTMLFrameElementMarginHeight , getDOMHTMLFrameElementMarginHeight , setDOMHTMLFrameElementMarginHeight , @@ -159,6 +165,7 @@ -- ** MarginWidth DOMHTMLFrameElementMarginWidthPropertyInfo, constructDOMHTMLFrameElementMarginWidth , + dOMHTMLFrameElementMarginWidth , getDOMHTMLFrameElementMarginWidth , setDOMHTMLFrameElementMarginWidth , @@ -166,6 +173,7 @@ -- ** Name DOMHTMLFrameElementNamePropertyInfo , constructDOMHTMLFrameElementName , + dOMHTMLFrameElementName , getDOMHTMLFrameElementName , setDOMHTMLFrameElementName , @@ -173,6 +181,7 @@ -- ** NoResize DOMHTMLFrameElementNoResizePropertyInfo , constructDOMHTMLFrameElementNoResize , + dOMHTMLFrameElementNoResize , getDOMHTMLFrameElementNoResize , setDOMHTMLFrameElementNoResize , @@ -180,6 +189,7 @@ -- ** Scrolling DOMHTMLFrameElementScrollingPropertyInfo, constructDOMHTMLFrameElementScrolling , + dOMHTMLFrameElementScrolling , getDOMHTMLFrameElementScrolling , setDOMHTMLFrameElementScrolling , @@ -187,12 +197,14 @@ -- ** Src DOMHTMLFrameElementSrcPropertyInfo , constructDOMHTMLFrameElementSrc , + dOMHTMLFrameElementSrc , getDOMHTMLFrameElementSrc , setDOMHTMLFrameElementSrc , -- ** Width DOMHTMLFrameElementWidthPropertyInfo , + dOMHTMLFrameElementWidth , getDOMHTMLFrameElementWidth , @@ -200,9 +212,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map @@ -420,13 +432,14 @@ -- VVV Prop "content-document" -- Type: TInterface "WebKit" "DOMDocument" -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) getDOMHTMLFrameElementContentDocument :: (MonadIO m, DOMHTMLFrameElementK o) => o -> m DOMDocument -getDOMHTMLFrameElementContentDocument obj = liftIO $ getObjectPropertyObject obj "content-document" DOMDocument +getDOMHTMLFrameElementContentDocument obj = liftIO $ checkUnexpectedNothing "getDOMHTMLFrameElementContentDocument" $ getObjectPropertyObject obj "content-document" DOMDocument data DOMHTMLFrameElementContentDocumentPropertyInfo instance AttrInfo DOMHTMLFrameElementContentDocumentPropertyInfo where - type AttrAllowedOps DOMHTMLFrameElementContentDocumentPropertyInfo = '[ 'AttrGet] + type AttrAllowedOps DOMHTMLFrameElementContentDocumentPropertyInfo = '[ 'AttrGet, 'AttrClear] type AttrSetTypeConstraint DOMHTMLFrameElementContentDocumentPropertyInfo = (~) () type AttrBaseTypeConstraint DOMHTMLFrameElementContentDocumentPropertyInfo = DOMHTMLFrameElementK type AttrGetType DOMHTMLFrameElementContentDocumentPropertyInfo = DOMDocument @@ -434,166 +447,182 @@ attrGet _ = getDOMHTMLFrameElementContentDocument attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "content-window" -- Type: TInterface "WebKit" "DOMDOMWindow" -- Flags: [PropertyReadable] + -- Nullable: (Nothing,Nothing) -getDOMHTMLFrameElementContentWindow :: (MonadIO m, DOMHTMLFrameElementK o) => o -> m DOMDOMWindow +getDOMHTMLFrameElementContentWindow :: (MonadIO m, DOMHTMLFrameElementK o) => o -> m (Maybe DOMDOMWindow) getDOMHTMLFrameElementContentWindow obj = liftIO $ getObjectPropertyObject obj "content-window" DOMDOMWindow data DOMHTMLFrameElementContentWindowPropertyInfo instance AttrInfo DOMHTMLFrameElementContentWindowPropertyInfo where - type AttrAllowedOps DOMHTMLFrameElementContentWindowPropertyInfo = '[ 'AttrGet] + type AttrAllowedOps DOMHTMLFrameElementContentWindowPropertyInfo = '[ 'AttrGet, 'AttrClear] type AttrSetTypeConstraint DOMHTMLFrameElementContentWindowPropertyInfo = (~) () type AttrBaseTypeConstraint DOMHTMLFrameElementContentWindowPropertyInfo = DOMHTMLFrameElementK - type AttrGetType DOMHTMLFrameElementContentWindowPropertyInfo = DOMDOMWindow + type AttrGetType DOMHTMLFrameElementContentWindowPropertyInfo = (Maybe DOMDOMWindow) type AttrLabel DOMHTMLFrameElementContentWindowPropertyInfo = "content-window" attrGet _ = getDOMHTMLFrameElementContentWindow attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "frame-border" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Just False) -getDOMHTMLFrameElementFrameBorder :: (MonadIO m, DOMHTMLFrameElementK o) => o -> m T.Text +getDOMHTMLFrameElementFrameBorder :: (MonadIO m, DOMHTMLFrameElementK o) => o -> m (Maybe T.Text) getDOMHTMLFrameElementFrameBorder obj = liftIO $ getObjectPropertyString obj "frame-border" setDOMHTMLFrameElementFrameBorder :: (MonadIO m, DOMHTMLFrameElementK o) => o -> T.Text -> m () -setDOMHTMLFrameElementFrameBorder obj val = liftIO $ setObjectPropertyString obj "frame-border" val +setDOMHTMLFrameElementFrameBorder obj val = liftIO $ setObjectPropertyString obj "frame-border" (Just val) constructDOMHTMLFrameElementFrameBorder :: T.Text -> IO ([Char], GValue) -constructDOMHTMLFrameElementFrameBorder val = constructObjectPropertyString "frame-border" val +constructDOMHTMLFrameElementFrameBorder val = constructObjectPropertyString "frame-border" (Just val) data DOMHTMLFrameElementFrameBorderPropertyInfo instance AttrInfo DOMHTMLFrameElementFrameBorderPropertyInfo where type AttrAllowedOps DOMHTMLFrameElementFrameBorderPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint DOMHTMLFrameElementFrameBorderPropertyInfo = (~) T.Text type AttrBaseTypeConstraint DOMHTMLFrameElementFrameBorderPropertyInfo = DOMHTMLFrameElementK - type AttrGetType DOMHTMLFrameElementFrameBorderPropertyInfo = T.Text + type AttrGetType DOMHTMLFrameElementFrameBorderPropertyInfo = (Maybe T.Text) type AttrLabel DOMHTMLFrameElementFrameBorderPropertyInfo = "frame-border" attrGet _ = getDOMHTMLFrameElementFrameBorder attrSet _ = setDOMHTMLFrameElementFrameBorder attrConstruct _ = constructDOMHTMLFrameElementFrameBorder + attrClear _ = undefined -- VVV Prop "height" - -- Type: TBasicType TInt64 + -- Type: TBasicType TLong -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) -getDOMHTMLFrameElementHeight :: (MonadIO m, DOMHTMLFrameElementK o) => o -> m Int64 -getDOMHTMLFrameElementHeight obj = liftIO $ getObjectPropertyInt64 obj "height" +getDOMHTMLFrameElementHeight :: (MonadIO m, DOMHTMLFrameElementK o) => o -> m CLong +getDOMHTMLFrameElementHeight obj = liftIO $ getObjectPropertyLong obj "height" data DOMHTMLFrameElementHeightPropertyInfo instance AttrInfo DOMHTMLFrameElementHeightPropertyInfo where type AttrAllowedOps DOMHTMLFrameElementHeightPropertyInfo = '[ 'AttrGet] type AttrSetTypeConstraint DOMHTMLFrameElementHeightPropertyInfo = (~) () type AttrBaseTypeConstraint DOMHTMLFrameElementHeightPropertyInfo = DOMHTMLFrameElementK - type AttrGetType DOMHTMLFrameElementHeightPropertyInfo = Int64 + type AttrGetType DOMHTMLFrameElementHeightPropertyInfo = CLong type AttrLabel DOMHTMLFrameElementHeightPropertyInfo = "height" attrGet _ = getDOMHTMLFrameElementHeight attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "long-desc" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Just False) -getDOMHTMLFrameElementLongDesc :: (MonadIO m, DOMHTMLFrameElementK o) => o -> m T.Text +getDOMHTMLFrameElementLongDesc :: (MonadIO m, DOMHTMLFrameElementK o) => o -> m (Maybe T.Text) getDOMHTMLFrameElementLongDesc obj = liftIO $ getObjectPropertyString obj "long-desc" setDOMHTMLFrameElementLongDesc :: (MonadIO m, DOMHTMLFrameElementK o) => o -> T.Text -> m () -setDOMHTMLFrameElementLongDesc obj val = liftIO $ setObjectPropertyString obj "long-desc" val +setDOMHTMLFrameElementLongDesc obj val = liftIO $ setObjectPropertyString obj "long-desc" (Just val) constructDOMHTMLFrameElementLongDesc :: T.Text -> IO ([Char], GValue) -constructDOMHTMLFrameElementLongDesc val = constructObjectPropertyString "long-desc" val +constructDOMHTMLFrameElementLongDesc val = constructObjectPropertyString "long-desc" (Just val) data DOMHTMLFrameElementLongDescPropertyInfo instance AttrInfo DOMHTMLFrameElementLongDescPropertyInfo where type AttrAllowedOps DOMHTMLFrameElementLongDescPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint DOMHTMLFrameElementLongDescPropertyInfo = (~) T.Text type AttrBaseTypeConstraint DOMHTMLFrameElementLongDescPropertyInfo = DOMHTMLFrameElementK - type AttrGetType DOMHTMLFrameElementLongDescPropertyInfo = T.Text + type AttrGetType DOMHTMLFrameElementLongDescPropertyInfo = (Maybe T.Text) type AttrLabel DOMHTMLFrameElementLongDescPropertyInfo = "long-desc" attrGet _ = getDOMHTMLFrameElementLongDesc attrSet _ = setDOMHTMLFrameElementLongDesc attrConstruct _ = constructDOMHTMLFrameElementLongDesc + attrClear _ = undefined -- VVV Prop "margin-height" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Just False) -getDOMHTMLFrameElementMarginHeight :: (MonadIO m, DOMHTMLFrameElementK o) => o -> m T.Text +getDOMHTMLFrameElementMarginHeight :: (MonadIO m, DOMHTMLFrameElementK o) => o -> m (Maybe T.Text) getDOMHTMLFrameElementMarginHeight obj = liftIO $ getObjectPropertyString obj "margin-height" setDOMHTMLFrameElementMarginHeight :: (MonadIO m, DOMHTMLFrameElementK o) => o -> T.Text -> m () -setDOMHTMLFrameElementMarginHeight obj val = liftIO $ setObjectPropertyString obj "margin-height" val +setDOMHTMLFrameElementMarginHeight obj val = liftIO $ setObjectPropertyString obj "margin-height" (Just val) constructDOMHTMLFrameElementMarginHeight :: T.Text -> IO ([Char], GValue) -constructDOMHTMLFrameElementMarginHeight val = constructObjectPropertyString "margin-height" val +constructDOMHTMLFrameElementMarginHeight val = constructObjectPropertyString "margin-height" (Just val) data DOMHTMLFrameElementMarginHeightPropertyInfo instance AttrInfo DOMHTMLFrameElementMarginHeightPropertyInfo where type AttrAllowedOps DOMHTMLFrameElementMarginHeightPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint DOMHTMLFrameElementMarginHeightPropertyInfo = (~) T.Text type AttrBaseTypeConstraint DOMHTMLFrameElementMarginHeightPropertyInfo = DOMHTMLFrameElementK - type AttrGetType DOMHTMLFrameElementMarginHeightPropertyInfo = T.Text + type AttrGetType DOMHTMLFrameElementMarginHeightPropertyInfo = (Maybe T.Text) type AttrLabel DOMHTMLFrameElementMarginHeightPropertyInfo = "margin-height" attrGet _ = getDOMHTMLFrameElementMarginHeight attrSet _ = setDOMHTMLFrameElementMarginHeight attrConstruct _ = constructDOMHTMLFrameElementMarginHeight + attrClear _ = undefined -- VVV Prop "margin-width" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Just False) -getDOMHTMLFrameElementMarginWidth :: (MonadIO m, DOMHTMLFrameElementK o) => o -> m T.Text +getDOMHTMLFrameElementMarginWidth :: (MonadIO m, DOMHTMLFrameElementK o) => o -> m (Maybe T.Text) getDOMHTMLFrameElementMarginWidth obj = liftIO $ getObjectPropertyString obj "margin-width" setDOMHTMLFrameElementMarginWidth :: (MonadIO m, DOMHTMLFrameElementK o) => o -> T.Text -> m () -setDOMHTMLFrameElementMarginWidth obj val = liftIO $ setObjectPropertyString obj "margin-width" val +setDOMHTMLFrameElementMarginWidth obj val = liftIO $ setObjectPropertyString obj "margin-width" (Just val) constructDOMHTMLFrameElementMarginWidth :: T.Text -> IO ([Char], GValue) -constructDOMHTMLFrameElementMarginWidth val = constructObjectPropertyString "margin-width" val +constructDOMHTMLFrameElementMarginWidth val = constructObjectPropertyString "margin-width" (Just val) data DOMHTMLFrameElementMarginWidthPropertyInfo instance AttrInfo DOMHTMLFrameElementMarginWidthPropertyInfo where type AttrAllowedOps DOMHTMLFrameElementMarginWidthPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint DOMHTMLFrameElementMarginWidthPropertyInfo = (~) T.Text type AttrBaseTypeConstraint DOMHTMLFrameElementMarginWidthPropertyInfo = DOMHTMLFrameElementK - type AttrGetType DOMHTMLFrameElementMarginWidthPropertyInfo = T.Text + type AttrGetType DOMHTMLFrameElementMarginWidthPropertyInfo = (Maybe T.Text) type AttrLabel DOMHTMLFrameElementMarginWidthPropertyInfo = "margin-width" attrGet _ = getDOMHTMLFrameElementMarginWidth attrSet _ = setDOMHTMLFrameElementMarginWidth attrConstruct _ = constructDOMHTMLFrameElementMarginWidth + attrClear _ = undefined -- VVV Prop "name" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Just False) -getDOMHTMLFrameElementName :: (MonadIO m, DOMHTMLFrameElementK o) => o -> m T.Text +getDOMHTMLFrameElementName :: (MonadIO m, DOMHTMLFrameElementK o) => o -> m (Maybe T.Text) getDOMHTMLFrameElementName obj = liftIO $ getObjectPropertyString obj "name" setDOMHTMLFrameElementName :: (MonadIO m, DOMHTMLFrameElementK o) => o -> T.Text -> m () -setDOMHTMLFrameElementName obj val = liftIO $ setObjectPropertyString obj "name" val +setDOMHTMLFrameElementName obj val = liftIO $ setObjectPropertyString obj "name" (Just val) constructDOMHTMLFrameElementName :: T.Text -> IO ([Char], GValue) -constructDOMHTMLFrameElementName val = constructObjectPropertyString "name" val +constructDOMHTMLFrameElementName val = constructObjectPropertyString "name" (Just val) data DOMHTMLFrameElementNamePropertyInfo instance AttrInfo DOMHTMLFrameElementNamePropertyInfo where type AttrAllowedOps DOMHTMLFrameElementNamePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint DOMHTMLFrameElementNamePropertyInfo = (~) T.Text type AttrBaseTypeConstraint DOMHTMLFrameElementNamePropertyInfo = DOMHTMLFrameElementK - type AttrGetType DOMHTMLFrameElementNamePropertyInfo = T.Text + type AttrGetType DOMHTMLFrameElementNamePropertyInfo = (Maybe T.Text) type AttrLabel DOMHTMLFrameElementNamePropertyInfo = "name" attrGet _ = getDOMHTMLFrameElementName attrSet _ = setDOMHTMLFrameElementName attrConstruct _ = constructDOMHTMLFrameElementName + attrClear _ = undefined -- VVV Prop "no-resize" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getDOMHTMLFrameElementNoResize :: (MonadIO m, DOMHTMLFrameElementK o) => o -> m Bool getDOMHTMLFrameElementNoResize obj = liftIO $ getObjectPropertyBool obj "no-resize" @@ -614,76 +643,119 @@ attrGet _ = getDOMHTMLFrameElementNoResize attrSet _ = setDOMHTMLFrameElementNoResize attrConstruct _ = constructDOMHTMLFrameElementNoResize + attrClear _ = undefined -- VVV Prop "scrolling" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Just False) -getDOMHTMLFrameElementScrolling :: (MonadIO m, DOMHTMLFrameElementK o) => o -> m T.Text +getDOMHTMLFrameElementScrolling :: (MonadIO m, DOMHTMLFrameElementK o) => o -> m (Maybe T.Text) getDOMHTMLFrameElementScrolling obj = liftIO $ getObjectPropertyString obj "scrolling" setDOMHTMLFrameElementScrolling :: (MonadIO m, DOMHTMLFrameElementK o) => o -> T.Text -> m () -setDOMHTMLFrameElementScrolling obj val = liftIO $ setObjectPropertyString obj "scrolling" val +setDOMHTMLFrameElementScrolling obj val = liftIO $ setObjectPropertyString obj "scrolling" (Just val) constructDOMHTMLFrameElementScrolling :: T.Text -> IO ([Char], GValue) -constructDOMHTMLFrameElementScrolling val = constructObjectPropertyString "scrolling" val +constructDOMHTMLFrameElementScrolling val = constructObjectPropertyString "scrolling" (Just val) data DOMHTMLFrameElementScrollingPropertyInfo instance AttrInfo DOMHTMLFrameElementScrollingPropertyInfo where type AttrAllowedOps DOMHTMLFrameElementScrollingPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint DOMHTMLFrameElementScrollingPropertyInfo = (~) T.Text type AttrBaseTypeConstraint DOMHTMLFrameElementScrollingPropertyInfo = DOMHTMLFrameElementK - type AttrGetType DOMHTMLFrameElementScrollingPropertyInfo = T.Text + type AttrGetType DOMHTMLFrameElementScrollingPropertyInfo = (Maybe T.Text) type AttrLabel DOMHTMLFrameElementScrollingPropertyInfo = "scrolling" attrGet _ = getDOMHTMLFrameElementScrolling attrSet _ = setDOMHTMLFrameElementScrolling attrConstruct _ = constructDOMHTMLFrameElementScrolling + attrClear _ = undefined -- VVV Prop "src" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Just False) -getDOMHTMLFrameElementSrc :: (MonadIO m, DOMHTMLFrameElementK o) => o -> m T.Text +getDOMHTMLFrameElementSrc :: (MonadIO m, DOMHTMLFrameElementK o) => o -> m (Maybe T.Text) getDOMHTMLFrameElementSrc obj = liftIO $ getObjectPropertyString obj "src" setDOMHTMLFrameElementSrc :: (MonadIO m, DOMHTMLFrameElementK o) => o -> T.Text -> m () -setDOMHTMLFrameElementSrc obj val = liftIO $ setObjectPropertyString obj "src" val +setDOMHTMLFrameElementSrc obj val = liftIO $ setObjectPropertyString obj "src" (Just val) constructDOMHTMLFrameElementSrc :: T.Text -> IO ([Char], GValue) -constructDOMHTMLFrameElementSrc val = constructObjectPropertyString "src" val +constructDOMHTMLFrameElementSrc val = constructObjectPropertyString "src" (Just val) data DOMHTMLFrameElementSrcPropertyInfo instance AttrInfo DOMHTMLFrameElementSrcPropertyInfo where type AttrAllowedOps DOMHTMLFrameElementSrcPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint DOMHTMLFrameElementSrcPropertyInfo = (~) T.Text type AttrBaseTypeConstraint DOMHTMLFrameElementSrcPropertyInfo = DOMHTMLFrameElementK - type AttrGetType DOMHTMLFrameElementSrcPropertyInfo = T.Text + type AttrGetType DOMHTMLFrameElementSrcPropertyInfo = (Maybe T.Text) type AttrLabel DOMHTMLFrameElementSrcPropertyInfo = "src" attrGet _ = getDOMHTMLFrameElementSrc attrSet _ = setDOMHTMLFrameElementSrc attrConstruct _ = constructDOMHTMLFrameElementSrc + attrClear _ = undefined -- VVV Prop "width" - -- Type: TBasicType TInt64 + -- Type: TBasicType TLong -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) -getDOMHTMLFrameElementWidth :: (MonadIO m, DOMHTMLFrameElementK o) => o -> m Int64 -getDOMHTMLFrameElementWidth obj = liftIO $ getObjectPropertyInt64 obj "width" +getDOMHTMLFrameElementWidth :: (MonadIO m, DOMHTMLFrameElementK o) => o -> m CLong +getDOMHTMLFrameElementWidth obj = liftIO $ getObjectPropertyLong obj "width" data DOMHTMLFrameElementWidthPropertyInfo instance AttrInfo DOMHTMLFrameElementWidthPropertyInfo where type AttrAllowedOps DOMHTMLFrameElementWidthPropertyInfo = '[ 'AttrGet] type AttrSetTypeConstraint DOMHTMLFrameElementWidthPropertyInfo = (~) () type AttrBaseTypeConstraint DOMHTMLFrameElementWidthPropertyInfo = DOMHTMLFrameElementK - type AttrGetType DOMHTMLFrameElementWidthPropertyInfo = Int64 + type AttrGetType DOMHTMLFrameElementWidthPropertyInfo = CLong type AttrLabel DOMHTMLFrameElementWidthPropertyInfo = "width" attrGet _ = getDOMHTMLFrameElementWidth attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined type instance AttributeList DOMHTMLFrameElement = DOMHTMLFrameElementAttributeList type DOMHTMLFrameElementAttributeList = ('[ '("accessKey", DOMHTMLElementAccessKeyPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("baseUri", DOMNodeBaseUriPropertyInfo), '("childElementCount", DOMElementChildElementCountPropertyInfo), '("childNodes", DOMNodeChildNodesPropertyInfo), '("children", DOMHTMLElementChildrenPropertyInfo), '("classList", DOMElementClassListPropertyInfo), '("className", DOMElementClassNamePropertyInfo), '("clientHeight", DOMElementClientHeightPropertyInfo), '("clientLeft", DOMElementClientLeftPropertyInfo), '("clientTop", DOMElementClientTopPropertyInfo), '("clientWidth", DOMElementClientWidthPropertyInfo), '("contentDocument", DOMHTMLFrameElementContentDocumentPropertyInfo), '("contentEditable", DOMHTMLElementContentEditablePropertyInfo), '("contentWindow", DOMHTMLFrameElementContentWindowPropertyInfo), '("coreObject", DOMObjectCoreObjectPropertyInfo), '("dir", DOMHTMLElementDirPropertyInfo), '("draggable", DOMHTMLElementDraggablePropertyInfo), '("firstChild", DOMNodeFirstChildPropertyInfo), '("firstElementChild", DOMElementFirstElementChildPropertyInfo), '("frameBorder", DOMHTMLFrameElementFrameBorderPropertyInfo), '("height", DOMHTMLFrameElementHeightPropertyInfo), '("hidden", DOMHTMLElementHiddenPropertyInfo), '("id", DOMElementIdPropertyInfo), '("innerHtml", DOMHTMLElementInnerHtmlPropertyInfo), '("innerText", DOMHTMLElementInnerTextPropertyInfo), '("isContentEditable", DOMHTMLElementIsContentEditablePropertyInfo), '("lang", DOMHTMLElementLangPropertyInfo), '("lastChild", DOMNodeLastChildPropertyInfo), '("lastElementChild", DOMElementLastElementChildPropertyInfo), '("localName", DOMNodeLocalNamePropertyInfo), '("longDesc", DOMHTMLFrameElementLongDescPropertyInfo), '("marginHeight", DOMHTMLFrameElementMarginHeightPropertyInfo), '("marginWidth", DOMHTMLFrameElementMarginWidthPropertyInfo), '("name", DOMHTMLFrameElementNamePropertyInfo), '("namespaceUri", DOMNodeNamespaceUriPropertyInfo), '("nextElementSibling", DOMElementNextElementSiblingPropertyInfo), '("nextSibling", DOMNodeNextSiblingPropertyInfo), '("noResize", DOMHTMLFrameElementNoResizePropertyInfo), '("nodeName", DOMNodeNodeNamePropertyInfo), '("nodeType", DOMNodeNodeTypePropertyInfo), '("nodeValue", DOMNodeNodeValuePropertyInfo), '("offsetHeight", DOMElementOffsetHeightPropertyInfo), '("offsetLeft", DOMElementOffsetLeftPropertyInfo), '("offsetParent", DOMElementOffsetParentPropertyInfo), '("offsetTop", DOMElementOffsetTopPropertyInfo), '("offsetWidth", DOMElementOffsetWidthPropertyInfo), '("outerHtml", DOMHTMLElementOuterHtmlPropertyInfo), '("outerText", DOMHTMLElementOuterTextPropertyInfo), '("ownerDocument", DOMNodeOwnerDocumentPropertyInfo), '("parentElement", DOMNodeParentElementPropertyInfo), '("parentNode", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previousElementSibling", DOMElementPreviousElementSiblingPropertyInfo), '("previousSibling", DOMNodePreviousSiblingPropertyInfo), '("scrollHeight", DOMElementScrollHeightPropertyInfo), '("scrollLeft", DOMElementScrollLeftPropertyInfo), '("scrollTop", DOMElementScrollTopPropertyInfo), '("scrollWidth", DOMElementScrollWidthPropertyInfo), '("scrolling", DOMHTMLFrameElementScrollingPropertyInfo), '("spellcheck", DOMHTMLElementSpellcheckPropertyInfo), '("src", DOMHTMLFrameElementSrcPropertyInfo), '("style", DOMElementStylePropertyInfo), '("tabIndex", DOMHTMLElementTabIndexPropertyInfo), '("tagName", DOMElementTagNamePropertyInfo), '("textContent", DOMNodeTextContentPropertyInfo), '("title", DOMHTMLElementTitlePropertyInfo), '("translate", DOMHTMLElementTranslatePropertyInfo), '("webkitRegionOverset", DOMElementWebkitRegionOversetPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo), '("width", DOMHTMLFrameElementWidthPropertyInfo)] :: [(Symbol, *)]) +dOMHTMLFrameElementContentDocument :: AttrLabelProxy "contentDocument" +dOMHTMLFrameElementContentDocument = AttrLabelProxy + +dOMHTMLFrameElementContentWindow :: AttrLabelProxy "contentWindow" +dOMHTMLFrameElementContentWindow = AttrLabelProxy + +dOMHTMLFrameElementFrameBorder :: AttrLabelProxy "frameBorder" +dOMHTMLFrameElementFrameBorder = AttrLabelProxy + +dOMHTMLFrameElementHeight :: AttrLabelProxy "height" +dOMHTMLFrameElementHeight = AttrLabelProxy + +dOMHTMLFrameElementLongDesc :: AttrLabelProxy "longDesc" +dOMHTMLFrameElementLongDesc = AttrLabelProxy + +dOMHTMLFrameElementMarginHeight :: AttrLabelProxy "marginHeight" +dOMHTMLFrameElementMarginHeight = AttrLabelProxy + +dOMHTMLFrameElementMarginWidth :: AttrLabelProxy "marginWidth" +dOMHTMLFrameElementMarginWidth = AttrLabelProxy + +dOMHTMLFrameElementName :: AttrLabelProxy "name" +dOMHTMLFrameElementName = AttrLabelProxy + +dOMHTMLFrameElementNoResize :: AttrLabelProxy "noResize" +dOMHTMLFrameElementNoResize = AttrLabelProxy + +dOMHTMLFrameElementScrolling :: AttrLabelProxy "scrolling" +dOMHTMLFrameElementScrolling = AttrLabelProxy + +dOMHTMLFrameElementSrc :: AttrLabelProxy "src" +dOMHTMLFrameElementSrc = AttrLabelProxy + +dOMHTMLFrameElementWidth :: AttrLabelProxy "width" +dOMHTMLFrameElementWidth = AttrLabelProxy + type instance SignalList DOMHTMLFrameElement = DOMHTMLFrameElementSignalList type DOMHTMLFrameElementSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) @@ -691,7 +763,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLFrameElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit" "DOMDocument" +-- returnType : Just (TInterface "WebKit" "DOMDocument") -- throws : False -- Skip return : False @@ -720,7 +792,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLFrameElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit" "DOMDOMWindow" +-- returnType : Just (TInterface "WebKit" "DOMDOMWindow") -- throws : False -- Skip return : False @@ -749,7 +821,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLFrameElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -779,19 +851,19 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLFrameElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TInt64 +-- returnType : Just (TBasicType TLong) -- throws : False -- Skip return : False foreign import ccall "webkit_dom_html_frame_element_get_height" webkit_dom_html_frame_element_get_height :: Ptr DOMHTMLFrameElement -> -- _obj : TInterface "WebKit" "DOMHTMLFrameElement" - IO Int64 + IO CLong dOMHTMLFrameElementGetHeight :: (MonadIO m, DOMHTMLFrameElementK a) => a -- _obj - -> m Int64 -- result + -> m CLong -- result dOMHTMLFrameElementGetHeight _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- webkit_dom_html_frame_element_get_height _obj' @@ -799,14 +871,14 @@ return result data DOMHTMLFrameElementGetHeightMethodInfo -instance (signature ~ (m Int64), MonadIO m, DOMHTMLFrameElementK a) => MethodInfo DOMHTMLFrameElementGetHeightMethodInfo a signature where +instance (signature ~ (m CLong), MonadIO m, DOMHTMLFrameElementK a) => MethodInfo DOMHTMLFrameElementGetHeightMethodInfo a signature where overloadedMethod _ = dOMHTMLFrameElementGetHeight -- method DOMHTMLFrameElement::get_long_desc -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLFrameElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -836,7 +908,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLFrameElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -866,7 +938,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLFrameElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -896,7 +968,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLFrameElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -926,7 +998,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLFrameElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -954,7 +1026,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLFrameElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -984,7 +1056,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLFrameElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -1014,19 +1086,19 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLFrameElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TInt64 +-- returnType : Just (TBasicType TLong) -- throws : False -- Skip return : False foreign import ccall "webkit_dom_html_frame_element_get_width" webkit_dom_html_frame_element_get_width :: Ptr DOMHTMLFrameElement -> -- _obj : TInterface "WebKit" "DOMHTMLFrameElement" - IO Int64 + IO CLong dOMHTMLFrameElementGetWidth :: (MonadIO m, DOMHTMLFrameElementK a) => a -- _obj - -> m Int64 -- result + -> m CLong -- result dOMHTMLFrameElementGetWidth _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- webkit_dom_html_frame_element_get_width _obj' @@ -1034,14 +1106,14 @@ return result data DOMHTMLFrameElementGetWidthMethodInfo -instance (signature ~ (m Int64), MonadIO m, DOMHTMLFrameElementK a) => MethodInfo DOMHTMLFrameElementGetWidthMethodInfo a signature where +instance (signature ~ (m CLong), MonadIO m, DOMHTMLFrameElementK a) => MethodInfo DOMHTMLFrameElementGetWidthMethodInfo a signature where overloadedMethod _ = dOMHTMLFrameElementGetWidth -- method DOMHTMLFrameElement::set_frame_border -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLFrameElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1072,7 +1144,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLFrameElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1103,7 +1175,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLFrameElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1134,7 +1206,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLFrameElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1165,7 +1237,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLFrameElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1196,7 +1268,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLFrameElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1226,7 +1298,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLFrameElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1257,7 +1329,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLFrameElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False diff --git a/GI/WebKit/Objects/DOMHTMLFrameElement.hs-boot b/GI/WebKit/Objects/DOMHTMLFrameElement.hs-boot --- a/GI/WebKit/Objects/DOMHTMLFrameElement.hs-boot +++ b/GI/WebKit/Objects/DOMHTMLFrameElement.hs-boot @@ -1,8 +1,8 @@ module GI.WebKit.Objects.DOMHTMLFrameElement where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map diff --git a/GI/WebKit/Objects/DOMHTMLFrameSetElement.hs b/GI/WebKit/Objects/DOMHTMLFrameSetElement.hs --- a/GI/WebKit/Objects/DOMHTMLFrameSetElement.hs +++ b/GI/WebKit/Objects/DOMHTMLFrameSetElement.hs @@ -43,6 +43,7 @@ -- ** Cols DOMHTMLFrameSetElementColsPropertyInfo , constructDOMHTMLFrameSetElementCols , + dOMHTMLFrameSetElementCols , getDOMHTMLFrameSetElementCols , setDOMHTMLFrameSetElementCols , @@ -50,6 +51,7 @@ -- ** Rows DOMHTMLFrameSetElementRowsPropertyInfo , constructDOMHTMLFrameSetElementRows , + dOMHTMLFrameSetElementRows , getDOMHTMLFrameSetElementRows , setDOMHTMLFrameSetElementRows , @@ -58,9 +60,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map @@ -262,54 +264,64 @@ -- VVV Prop "cols" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Just False) -getDOMHTMLFrameSetElementCols :: (MonadIO m, DOMHTMLFrameSetElementK o) => o -> m T.Text +getDOMHTMLFrameSetElementCols :: (MonadIO m, DOMHTMLFrameSetElementK o) => o -> m (Maybe T.Text) getDOMHTMLFrameSetElementCols obj = liftIO $ getObjectPropertyString obj "cols" setDOMHTMLFrameSetElementCols :: (MonadIO m, DOMHTMLFrameSetElementK o) => o -> T.Text -> m () -setDOMHTMLFrameSetElementCols obj val = liftIO $ setObjectPropertyString obj "cols" val +setDOMHTMLFrameSetElementCols obj val = liftIO $ setObjectPropertyString obj "cols" (Just val) constructDOMHTMLFrameSetElementCols :: T.Text -> IO ([Char], GValue) -constructDOMHTMLFrameSetElementCols val = constructObjectPropertyString "cols" val +constructDOMHTMLFrameSetElementCols val = constructObjectPropertyString "cols" (Just val) data DOMHTMLFrameSetElementColsPropertyInfo instance AttrInfo DOMHTMLFrameSetElementColsPropertyInfo where type AttrAllowedOps DOMHTMLFrameSetElementColsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint DOMHTMLFrameSetElementColsPropertyInfo = (~) T.Text type AttrBaseTypeConstraint DOMHTMLFrameSetElementColsPropertyInfo = DOMHTMLFrameSetElementK - type AttrGetType DOMHTMLFrameSetElementColsPropertyInfo = T.Text + type AttrGetType DOMHTMLFrameSetElementColsPropertyInfo = (Maybe T.Text) type AttrLabel DOMHTMLFrameSetElementColsPropertyInfo = "cols" attrGet _ = getDOMHTMLFrameSetElementCols attrSet _ = setDOMHTMLFrameSetElementCols attrConstruct _ = constructDOMHTMLFrameSetElementCols + attrClear _ = undefined -- VVV Prop "rows" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Just False) -getDOMHTMLFrameSetElementRows :: (MonadIO m, DOMHTMLFrameSetElementK o) => o -> m T.Text +getDOMHTMLFrameSetElementRows :: (MonadIO m, DOMHTMLFrameSetElementK o) => o -> m (Maybe T.Text) getDOMHTMLFrameSetElementRows obj = liftIO $ getObjectPropertyString obj "rows" setDOMHTMLFrameSetElementRows :: (MonadIO m, DOMHTMLFrameSetElementK o) => o -> T.Text -> m () -setDOMHTMLFrameSetElementRows obj val = liftIO $ setObjectPropertyString obj "rows" val +setDOMHTMLFrameSetElementRows obj val = liftIO $ setObjectPropertyString obj "rows" (Just val) constructDOMHTMLFrameSetElementRows :: T.Text -> IO ([Char], GValue) -constructDOMHTMLFrameSetElementRows val = constructObjectPropertyString "rows" val +constructDOMHTMLFrameSetElementRows val = constructObjectPropertyString "rows" (Just val) data DOMHTMLFrameSetElementRowsPropertyInfo instance AttrInfo DOMHTMLFrameSetElementRowsPropertyInfo where type AttrAllowedOps DOMHTMLFrameSetElementRowsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint DOMHTMLFrameSetElementRowsPropertyInfo = (~) T.Text type AttrBaseTypeConstraint DOMHTMLFrameSetElementRowsPropertyInfo = DOMHTMLFrameSetElementK - type AttrGetType DOMHTMLFrameSetElementRowsPropertyInfo = T.Text + type AttrGetType DOMHTMLFrameSetElementRowsPropertyInfo = (Maybe T.Text) type AttrLabel DOMHTMLFrameSetElementRowsPropertyInfo = "rows" attrGet _ = getDOMHTMLFrameSetElementRows attrSet _ = setDOMHTMLFrameSetElementRows attrConstruct _ = constructDOMHTMLFrameSetElementRows + attrClear _ = undefined type instance AttributeList DOMHTMLFrameSetElement = DOMHTMLFrameSetElementAttributeList type DOMHTMLFrameSetElementAttributeList = ('[ '("accessKey", DOMHTMLElementAccessKeyPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("baseUri", DOMNodeBaseUriPropertyInfo), '("childElementCount", DOMElementChildElementCountPropertyInfo), '("childNodes", DOMNodeChildNodesPropertyInfo), '("children", DOMHTMLElementChildrenPropertyInfo), '("classList", DOMElementClassListPropertyInfo), '("className", DOMElementClassNamePropertyInfo), '("clientHeight", DOMElementClientHeightPropertyInfo), '("clientLeft", DOMElementClientLeftPropertyInfo), '("clientTop", DOMElementClientTopPropertyInfo), '("clientWidth", DOMElementClientWidthPropertyInfo), '("cols", DOMHTMLFrameSetElementColsPropertyInfo), '("contentEditable", DOMHTMLElementContentEditablePropertyInfo), '("coreObject", DOMObjectCoreObjectPropertyInfo), '("dir", DOMHTMLElementDirPropertyInfo), '("draggable", DOMHTMLElementDraggablePropertyInfo), '("firstChild", DOMNodeFirstChildPropertyInfo), '("firstElementChild", DOMElementFirstElementChildPropertyInfo), '("hidden", DOMHTMLElementHiddenPropertyInfo), '("id", DOMElementIdPropertyInfo), '("innerHtml", DOMHTMLElementInnerHtmlPropertyInfo), '("innerText", DOMHTMLElementInnerTextPropertyInfo), '("isContentEditable", DOMHTMLElementIsContentEditablePropertyInfo), '("lang", DOMHTMLElementLangPropertyInfo), '("lastChild", DOMNodeLastChildPropertyInfo), '("lastElementChild", DOMElementLastElementChildPropertyInfo), '("localName", DOMNodeLocalNamePropertyInfo), '("namespaceUri", DOMNodeNamespaceUriPropertyInfo), '("nextElementSibling", DOMElementNextElementSiblingPropertyInfo), '("nextSibling", DOMNodeNextSiblingPropertyInfo), '("nodeName", DOMNodeNodeNamePropertyInfo), '("nodeType", DOMNodeNodeTypePropertyInfo), '("nodeValue", DOMNodeNodeValuePropertyInfo), '("offsetHeight", DOMElementOffsetHeightPropertyInfo), '("offsetLeft", DOMElementOffsetLeftPropertyInfo), '("offsetParent", DOMElementOffsetParentPropertyInfo), '("offsetTop", DOMElementOffsetTopPropertyInfo), '("offsetWidth", DOMElementOffsetWidthPropertyInfo), '("outerHtml", DOMHTMLElementOuterHtmlPropertyInfo), '("outerText", DOMHTMLElementOuterTextPropertyInfo), '("ownerDocument", DOMNodeOwnerDocumentPropertyInfo), '("parentElement", DOMNodeParentElementPropertyInfo), '("parentNode", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previousElementSibling", DOMElementPreviousElementSiblingPropertyInfo), '("previousSibling", DOMNodePreviousSiblingPropertyInfo), '("rows", DOMHTMLFrameSetElementRowsPropertyInfo), '("scrollHeight", DOMElementScrollHeightPropertyInfo), '("scrollLeft", DOMElementScrollLeftPropertyInfo), '("scrollTop", DOMElementScrollTopPropertyInfo), '("scrollWidth", DOMElementScrollWidthPropertyInfo), '("spellcheck", DOMHTMLElementSpellcheckPropertyInfo), '("style", DOMElementStylePropertyInfo), '("tabIndex", DOMHTMLElementTabIndexPropertyInfo), '("tagName", DOMElementTagNamePropertyInfo), '("textContent", DOMNodeTextContentPropertyInfo), '("title", DOMHTMLElementTitlePropertyInfo), '("translate", DOMHTMLElementTranslatePropertyInfo), '("webkitRegionOverset", DOMElementWebkitRegionOversetPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo)] :: [(Symbol, *)]) +dOMHTMLFrameSetElementCols :: AttrLabelProxy "cols" +dOMHTMLFrameSetElementCols = AttrLabelProxy + +dOMHTMLFrameSetElementRows :: AttrLabelProxy "rows" +dOMHTMLFrameSetElementRows = AttrLabelProxy + type instance SignalList DOMHTMLFrameSetElement = DOMHTMLFrameSetElementSignalList type DOMHTMLFrameSetElementSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) @@ -317,7 +329,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLFrameSetElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -347,7 +359,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLFrameSetElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -377,7 +389,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLFrameSetElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -408,7 +420,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLFrameSetElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False diff --git a/GI/WebKit/Objects/DOMHTMLFrameSetElement.hs-boot b/GI/WebKit/Objects/DOMHTMLFrameSetElement.hs-boot --- a/GI/WebKit/Objects/DOMHTMLFrameSetElement.hs-boot +++ b/GI/WebKit/Objects/DOMHTMLFrameSetElement.hs-boot @@ -1,8 +1,8 @@ module GI.WebKit.Objects.DOMHTMLFrameSetElement where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map diff --git a/GI/WebKit/Objects/DOMHTMLHRElement.hs b/GI/WebKit/Objects/DOMHTMLHRElement.hs --- a/GI/WebKit/Objects/DOMHTMLHRElement.hs +++ b/GI/WebKit/Objects/DOMHTMLHRElement.hs @@ -63,6 +63,7 @@ -- ** Align DOMHTMLHRElementAlignPropertyInfo , constructDOMHTMLHRElementAlign , + dOMHTMLHRElementAlign , getDOMHTMLHRElementAlign , setDOMHTMLHRElementAlign , @@ -70,6 +71,7 @@ -- ** NoShade DOMHTMLHRElementNoShadePropertyInfo , constructDOMHTMLHRElementNoShade , + dOMHTMLHRElementNoShade , getDOMHTMLHRElementNoShade , setDOMHTMLHRElementNoShade , @@ -77,6 +79,7 @@ -- ** Size DOMHTMLHRElementSizePropertyInfo , constructDOMHTMLHRElementSize , + dOMHTMLHRElementSize , getDOMHTMLHRElementSize , setDOMHTMLHRElementSize , @@ -84,6 +87,7 @@ -- ** Width DOMHTMLHRElementWidthPropertyInfo , constructDOMHTMLHRElementWidth , + dOMHTMLHRElementWidth , getDOMHTMLHRElementWidth , setDOMHTMLHRElementWidth , @@ -92,9 +96,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map @@ -300,30 +304,33 @@ -- VVV Prop "align" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Just False) -getDOMHTMLHRElementAlign :: (MonadIO m, DOMHTMLHRElementK o) => o -> m T.Text +getDOMHTMLHRElementAlign :: (MonadIO m, DOMHTMLHRElementK o) => o -> m (Maybe T.Text) getDOMHTMLHRElementAlign obj = liftIO $ getObjectPropertyString obj "align" setDOMHTMLHRElementAlign :: (MonadIO m, DOMHTMLHRElementK o) => o -> T.Text -> m () -setDOMHTMLHRElementAlign obj val = liftIO $ setObjectPropertyString obj "align" val +setDOMHTMLHRElementAlign obj val = liftIO $ setObjectPropertyString obj "align" (Just val) constructDOMHTMLHRElementAlign :: T.Text -> IO ([Char], GValue) -constructDOMHTMLHRElementAlign val = constructObjectPropertyString "align" val +constructDOMHTMLHRElementAlign val = constructObjectPropertyString "align" (Just val) data DOMHTMLHRElementAlignPropertyInfo instance AttrInfo DOMHTMLHRElementAlignPropertyInfo where type AttrAllowedOps DOMHTMLHRElementAlignPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint DOMHTMLHRElementAlignPropertyInfo = (~) T.Text type AttrBaseTypeConstraint DOMHTMLHRElementAlignPropertyInfo = DOMHTMLHRElementK - type AttrGetType DOMHTMLHRElementAlignPropertyInfo = T.Text + type AttrGetType DOMHTMLHRElementAlignPropertyInfo = (Maybe T.Text) type AttrLabel DOMHTMLHRElementAlignPropertyInfo = "align" attrGet _ = getDOMHTMLHRElementAlign attrSet _ = setDOMHTMLHRElementAlign attrConstruct _ = constructDOMHTMLHRElementAlign + attrClear _ = undefined -- VVV Prop "no-shade" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getDOMHTMLHRElementNoShade :: (MonadIO m, DOMHTMLHRElementK o) => o -> m Bool getDOMHTMLHRElementNoShade obj = liftIO $ getObjectPropertyBool obj "no-shade" @@ -344,58 +351,75 @@ attrGet _ = getDOMHTMLHRElementNoShade attrSet _ = setDOMHTMLHRElementNoShade attrConstruct _ = constructDOMHTMLHRElementNoShade + attrClear _ = undefined -- VVV Prop "size" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Just False) -getDOMHTMLHRElementSize :: (MonadIO m, DOMHTMLHRElementK o) => o -> m T.Text +getDOMHTMLHRElementSize :: (MonadIO m, DOMHTMLHRElementK o) => o -> m (Maybe T.Text) getDOMHTMLHRElementSize obj = liftIO $ getObjectPropertyString obj "size" setDOMHTMLHRElementSize :: (MonadIO m, DOMHTMLHRElementK o) => o -> T.Text -> m () -setDOMHTMLHRElementSize obj val = liftIO $ setObjectPropertyString obj "size" val +setDOMHTMLHRElementSize obj val = liftIO $ setObjectPropertyString obj "size" (Just val) constructDOMHTMLHRElementSize :: T.Text -> IO ([Char], GValue) -constructDOMHTMLHRElementSize val = constructObjectPropertyString "size" val +constructDOMHTMLHRElementSize val = constructObjectPropertyString "size" (Just val) data DOMHTMLHRElementSizePropertyInfo instance AttrInfo DOMHTMLHRElementSizePropertyInfo where type AttrAllowedOps DOMHTMLHRElementSizePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint DOMHTMLHRElementSizePropertyInfo = (~) T.Text type AttrBaseTypeConstraint DOMHTMLHRElementSizePropertyInfo = DOMHTMLHRElementK - type AttrGetType DOMHTMLHRElementSizePropertyInfo = T.Text + type AttrGetType DOMHTMLHRElementSizePropertyInfo = (Maybe T.Text) type AttrLabel DOMHTMLHRElementSizePropertyInfo = "size" attrGet _ = getDOMHTMLHRElementSize attrSet _ = setDOMHTMLHRElementSize attrConstruct _ = constructDOMHTMLHRElementSize + attrClear _ = undefined -- VVV Prop "width" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Just False) -getDOMHTMLHRElementWidth :: (MonadIO m, DOMHTMLHRElementK o) => o -> m T.Text +getDOMHTMLHRElementWidth :: (MonadIO m, DOMHTMLHRElementK o) => o -> m (Maybe T.Text) getDOMHTMLHRElementWidth obj = liftIO $ getObjectPropertyString obj "width" setDOMHTMLHRElementWidth :: (MonadIO m, DOMHTMLHRElementK o) => o -> T.Text -> m () -setDOMHTMLHRElementWidth obj val = liftIO $ setObjectPropertyString obj "width" val +setDOMHTMLHRElementWidth obj val = liftIO $ setObjectPropertyString obj "width" (Just val) constructDOMHTMLHRElementWidth :: T.Text -> IO ([Char], GValue) -constructDOMHTMLHRElementWidth val = constructObjectPropertyString "width" val +constructDOMHTMLHRElementWidth val = constructObjectPropertyString "width" (Just val) data DOMHTMLHRElementWidthPropertyInfo instance AttrInfo DOMHTMLHRElementWidthPropertyInfo where type AttrAllowedOps DOMHTMLHRElementWidthPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint DOMHTMLHRElementWidthPropertyInfo = (~) T.Text type AttrBaseTypeConstraint DOMHTMLHRElementWidthPropertyInfo = DOMHTMLHRElementK - type AttrGetType DOMHTMLHRElementWidthPropertyInfo = T.Text + type AttrGetType DOMHTMLHRElementWidthPropertyInfo = (Maybe T.Text) type AttrLabel DOMHTMLHRElementWidthPropertyInfo = "width" attrGet _ = getDOMHTMLHRElementWidth attrSet _ = setDOMHTMLHRElementWidth attrConstruct _ = constructDOMHTMLHRElementWidth + attrClear _ = undefined type instance AttributeList DOMHTMLHRElement = DOMHTMLHRElementAttributeList type DOMHTMLHRElementAttributeList = ('[ '("accessKey", DOMHTMLElementAccessKeyPropertyInfo), '("align", DOMHTMLHRElementAlignPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("baseUri", DOMNodeBaseUriPropertyInfo), '("childElementCount", DOMElementChildElementCountPropertyInfo), '("childNodes", DOMNodeChildNodesPropertyInfo), '("children", DOMHTMLElementChildrenPropertyInfo), '("classList", DOMElementClassListPropertyInfo), '("className", DOMElementClassNamePropertyInfo), '("clientHeight", DOMElementClientHeightPropertyInfo), '("clientLeft", DOMElementClientLeftPropertyInfo), '("clientTop", DOMElementClientTopPropertyInfo), '("clientWidth", DOMElementClientWidthPropertyInfo), '("contentEditable", DOMHTMLElementContentEditablePropertyInfo), '("coreObject", DOMObjectCoreObjectPropertyInfo), '("dir", DOMHTMLElementDirPropertyInfo), '("draggable", DOMHTMLElementDraggablePropertyInfo), '("firstChild", DOMNodeFirstChildPropertyInfo), '("firstElementChild", DOMElementFirstElementChildPropertyInfo), '("hidden", DOMHTMLElementHiddenPropertyInfo), '("id", DOMElementIdPropertyInfo), '("innerHtml", DOMHTMLElementInnerHtmlPropertyInfo), '("innerText", DOMHTMLElementInnerTextPropertyInfo), '("isContentEditable", DOMHTMLElementIsContentEditablePropertyInfo), '("lang", DOMHTMLElementLangPropertyInfo), '("lastChild", DOMNodeLastChildPropertyInfo), '("lastElementChild", DOMElementLastElementChildPropertyInfo), '("localName", DOMNodeLocalNamePropertyInfo), '("namespaceUri", DOMNodeNamespaceUriPropertyInfo), '("nextElementSibling", DOMElementNextElementSiblingPropertyInfo), '("nextSibling", DOMNodeNextSiblingPropertyInfo), '("noShade", DOMHTMLHRElementNoShadePropertyInfo), '("nodeName", DOMNodeNodeNamePropertyInfo), '("nodeType", DOMNodeNodeTypePropertyInfo), '("nodeValue", DOMNodeNodeValuePropertyInfo), '("offsetHeight", DOMElementOffsetHeightPropertyInfo), '("offsetLeft", DOMElementOffsetLeftPropertyInfo), '("offsetParent", DOMElementOffsetParentPropertyInfo), '("offsetTop", DOMElementOffsetTopPropertyInfo), '("offsetWidth", DOMElementOffsetWidthPropertyInfo), '("outerHtml", DOMHTMLElementOuterHtmlPropertyInfo), '("outerText", DOMHTMLElementOuterTextPropertyInfo), '("ownerDocument", DOMNodeOwnerDocumentPropertyInfo), '("parentElement", DOMNodeParentElementPropertyInfo), '("parentNode", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previousElementSibling", DOMElementPreviousElementSiblingPropertyInfo), '("previousSibling", DOMNodePreviousSiblingPropertyInfo), '("scrollHeight", DOMElementScrollHeightPropertyInfo), '("scrollLeft", DOMElementScrollLeftPropertyInfo), '("scrollTop", DOMElementScrollTopPropertyInfo), '("scrollWidth", DOMElementScrollWidthPropertyInfo), '("size", DOMHTMLHRElementSizePropertyInfo), '("spellcheck", DOMHTMLElementSpellcheckPropertyInfo), '("style", DOMElementStylePropertyInfo), '("tabIndex", DOMHTMLElementTabIndexPropertyInfo), '("tagName", DOMElementTagNamePropertyInfo), '("textContent", DOMNodeTextContentPropertyInfo), '("title", DOMHTMLElementTitlePropertyInfo), '("translate", DOMHTMLElementTranslatePropertyInfo), '("webkitRegionOverset", DOMElementWebkitRegionOversetPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo), '("width", DOMHTMLHRElementWidthPropertyInfo)] :: [(Symbol, *)]) +dOMHTMLHRElementAlign :: AttrLabelProxy "align" +dOMHTMLHRElementAlign = AttrLabelProxy + +dOMHTMLHRElementNoShade :: AttrLabelProxy "noShade" +dOMHTMLHRElementNoShade = AttrLabelProxy + +dOMHTMLHRElementSize :: AttrLabelProxy "size" +dOMHTMLHRElementSize = AttrLabelProxy + +dOMHTMLHRElementWidth :: AttrLabelProxy "width" +dOMHTMLHRElementWidth = AttrLabelProxy + type instance SignalList DOMHTMLHRElement = DOMHTMLHRElementSignalList type DOMHTMLHRElementSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) @@ -403,7 +427,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLHRElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -433,7 +457,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLHRElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -461,7 +485,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLHRElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -491,7 +515,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLHRElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -521,7 +545,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLHRElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -552,7 +576,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLHRElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -582,7 +606,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLHRElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -613,7 +637,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLHRElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False diff --git a/GI/WebKit/Objects/DOMHTMLHRElement.hs-boot b/GI/WebKit/Objects/DOMHTMLHRElement.hs-boot --- a/GI/WebKit/Objects/DOMHTMLHRElement.hs-boot +++ b/GI/WebKit/Objects/DOMHTMLHRElement.hs-boot @@ -1,8 +1,8 @@ module GI.WebKit.Objects.DOMHTMLHRElement where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map diff --git a/GI/WebKit/Objects/DOMHTMLHeadElement.hs b/GI/WebKit/Objects/DOMHTMLHeadElement.hs --- a/GI/WebKit/Objects/DOMHTMLHeadElement.hs +++ b/GI/WebKit/Objects/DOMHTMLHeadElement.hs @@ -33,6 +33,7 @@ -- ** Profile DOMHTMLHeadElementProfilePropertyInfo , constructDOMHTMLHeadElementProfile , + dOMHTMLHeadElementProfile , getDOMHTMLHeadElementProfile , setDOMHTMLHeadElementProfile , @@ -41,9 +42,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map @@ -243,30 +244,35 @@ -- VVV Prop "profile" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Just False) -getDOMHTMLHeadElementProfile :: (MonadIO m, DOMHTMLHeadElementK o) => o -> m T.Text +getDOMHTMLHeadElementProfile :: (MonadIO m, DOMHTMLHeadElementK o) => o -> m (Maybe T.Text) getDOMHTMLHeadElementProfile obj = liftIO $ getObjectPropertyString obj "profile" setDOMHTMLHeadElementProfile :: (MonadIO m, DOMHTMLHeadElementK o) => o -> T.Text -> m () -setDOMHTMLHeadElementProfile obj val = liftIO $ setObjectPropertyString obj "profile" val +setDOMHTMLHeadElementProfile obj val = liftIO $ setObjectPropertyString obj "profile" (Just val) constructDOMHTMLHeadElementProfile :: T.Text -> IO ([Char], GValue) -constructDOMHTMLHeadElementProfile val = constructObjectPropertyString "profile" val +constructDOMHTMLHeadElementProfile val = constructObjectPropertyString "profile" (Just val) data DOMHTMLHeadElementProfilePropertyInfo instance AttrInfo DOMHTMLHeadElementProfilePropertyInfo where type AttrAllowedOps DOMHTMLHeadElementProfilePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint DOMHTMLHeadElementProfilePropertyInfo = (~) T.Text type AttrBaseTypeConstraint DOMHTMLHeadElementProfilePropertyInfo = DOMHTMLHeadElementK - type AttrGetType DOMHTMLHeadElementProfilePropertyInfo = T.Text + type AttrGetType DOMHTMLHeadElementProfilePropertyInfo = (Maybe T.Text) type AttrLabel DOMHTMLHeadElementProfilePropertyInfo = "profile" attrGet _ = getDOMHTMLHeadElementProfile attrSet _ = setDOMHTMLHeadElementProfile attrConstruct _ = constructDOMHTMLHeadElementProfile + attrClear _ = undefined type instance AttributeList DOMHTMLHeadElement = DOMHTMLHeadElementAttributeList type DOMHTMLHeadElementAttributeList = ('[ '("accessKey", DOMHTMLElementAccessKeyPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("baseUri", DOMNodeBaseUriPropertyInfo), '("childElementCount", DOMElementChildElementCountPropertyInfo), '("childNodes", DOMNodeChildNodesPropertyInfo), '("children", DOMHTMLElementChildrenPropertyInfo), '("classList", DOMElementClassListPropertyInfo), '("className", DOMElementClassNamePropertyInfo), '("clientHeight", DOMElementClientHeightPropertyInfo), '("clientLeft", DOMElementClientLeftPropertyInfo), '("clientTop", DOMElementClientTopPropertyInfo), '("clientWidth", DOMElementClientWidthPropertyInfo), '("contentEditable", DOMHTMLElementContentEditablePropertyInfo), '("coreObject", DOMObjectCoreObjectPropertyInfo), '("dir", DOMHTMLElementDirPropertyInfo), '("draggable", DOMHTMLElementDraggablePropertyInfo), '("firstChild", DOMNodeFirstChildPropertyInfo), '("firstElementChild", DOMElementFirstElementChildPropertyInfo), '("hidden", DOMHTMLElementHiddenPropertyInfo), '("id", DOMElementIdPropertyInfo), '("innerHtml", DOMHTMLElementInnerHtmlPropertyInfo), '("innerText", DOMHTMLElementInnerTextPropertyInfo), '("isContentEditable", DOMHTMLElementIsContentEditablePropertyInfo), '("lang", DOMHTMLElementLangPropertyInfo), '("lastChild", DOMNodeLastChildPropertyInfo), '("lastElementChild", DOMElementLastElementChildPropertyInfo), '("localName", DOMNodeLocalNamePropertyInfo), '("namespaceUri", DOMNodeNamespaceUriPropertyInfo), '("nextElementSibling", DOMElementNextElementSiblingPropertyInfo), '("nextSibling", DOMNodeNextSiblingPropertyInfo), '("nodeName", DOMNodeNodeNamePropertyInfo), '("nodeType", DOMNodeNodeTypePropertyInfo), '("nodeValue", DOMNodeNodeValuePropertyInfo), '("offsetHeight", DOMElementOffsetHeightPropertyInfo), '("offsetLeft", DOMElementOffsetLeftPropertyInfo), '("offsetParent", DOMElementOffsetParentPropertyInfo), '("offsetTop", DOMElementOffsetTopPropertyInfo), '("offsetWidth", DOMElementOffsetWidthPropertyInfo), '("outerHtml", DOMHTMLElementOuterHtmlPropertyInfo), '("outerText", DOMHTMLElementOuterTextPropertyInfo), '("ownerDocument", DOMNodeOwnerDocumentPropertyInfo), '("parentElement", DOMNodeParentElementPropertyInfo), '("parentNode", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previousElementSibling", DOMElementPreviousElementSiblingPropertyInfo), '("previousSibling", DOMNodePreviousSiblingPropertyInfo), '("profile", DOMHTMLHeadElementProfilePropertyInfo), '("scrollHeight", DOMElementScrollHeightPropertyInfo), '("scrollLeft", DOMElementScrollLeftPropertyInfo), '("scrollTop", DOMElementScrollTopPropertyInfo), '("scrollWidth", DOMElementScrollWidthPropertyInfo), '("spellcheck", DOMHTMLElementSpellcheckPropertyInfo), '("style", DOMElementStylePropertyInfo), '("tabIndex", DOMHTMLElementTabIndexPropertyInfo), '("tagName", DOMElementTagNamePropertyInfo), '("textContent", DOMNodeTextContentPropertyInfo), '("title", DOMHTMLElementTitlePropertyInfo), '("translate", DOMHTMLElementTranslatePropertyInfo), '("webkitRegionOverset", DOMElementWebkitRegionOversetPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo)] :: [(Symbol, *)]) +dOMHTMLHeadElementProfile :: AttrLabelProxy "profile" +dOMHTMLHeadElementProfile = AttrLabelProxy + type instance SignalList DOMHTMLHeadElement = DOMHTMLHeadElementSignalList type DOMHTMLHeadElementSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) @@ -274,7 +280,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLHeadElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -304,7 +310,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLHeadElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False diff --git a/GI/WebKit/Objects/DOMHTMLHeadElement.hs-boot b/GI/WebKit/Objects/DOMHTMLHeadElement.hs-boot --- a/GI/WebKit/Objects/DOMHTMLHeadElement.hs-boot +++ b/GI/WebKit/Objects/DOMHTMLHeadElement.hs-boot @@ -1,8 +1,8 @@ module GI.WebKit.Objects.DOMHTMLHeadElement where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map diff --git a/GI/WebKit/Objects/DOMHTMLHeadingElement.hs b/GI/WebKit/Objects/DOMHTMLHeadingElement.hs --- a/GI/WebKit/Objects/DOMHTMLHeadingElement.hs +++ b/GI/WebKit/Objects/DOMHTMLHeadingElement.hs @@ -33,6 +33,7 @@ -- ** Align DOMHTMLHeadingElementAlignPropertyInfo , constructDOMHTMLHeadingElementAlign , + dOMHTMLHeadingElementAlign , getDOMHTMLHeadingElementAlign , setDOMHTMLHeadingElementAlign , @@ -41,9 +42,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map @@ -243,30 +244,35 @@ -- VVV Prop "align" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Just False) -getDOMHTMLHeadingElementAlign :: (MonadIO m, DOMHTMLHeadingElementK o) => o -> m T.Text +getDOMHTMLHeadingElementAlign :: (MonadIO m, DOMHTMLHeadingElementK o) => o -> m (Maybe T.Text) getDOMHTMLHeadingElementAlign obj = liftIO $ getObjectPropertyString obj "align" setDOMHTMLHeadingElementAlign :: (MonadIO m, DOMHTMLHeadingElementK o) => o -> T.Text -> m () -setDOMHTMLHeadingElementAlign obj val = liftIO $ setObjectPropertyString obj "align" val +setDOMHTMLHeadingElementAlign obj val = liftIO $ setObjectPropertyString obj "align" (Just val) constructDOMHTMLHeadingElementAlign :: T.Text -> IO ([Char], GValue) -constructDOMHTMLHeadingElementAlign val = constructObjectPropertyString "align" val +constructDOMHTMLHeadingElementAlign val = constructObjectPropertyString "align" (Just val) data DOMHTMLHeadingElementAlignPropertyInfo instance AttrInfo DOMHTMLHeadingElementAlignPropertyInfo where type AttrAllowedOps DOMHTMLHeadingElementAlignPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint DOMHTMLHeadingElementAlignPropertyInfo = (~) T.Text type AttrBaseTypeConstraint DOMHTMLHeadingElementAlignPropertyInfo = DOMHTMLHeadingElementK - type AttrGetType DOMHTMLHeadingElementAlignPropertyInfo = T.Text + type AttrGetType DOMHTMLHeadingElementAlignPropertyInfo = (Maybe T.Text) type AttrLabel DOMHTMLHeadingElementAlignPropertyInfo = "align" attrGet _ = getDOMHTMLHeadingElementAlign attrSet _ = setDOMHTMLHeadingElementAlign attrConstruct _ = constructDOMHTMLHeadingElementAlign + attrClear _ = undefined type instance AttributeList DOMHTMLHeadingElement = DOMHTMLHeadingElementAttributeList type DOMHTMLHeadingElementAttributeList = ('[ '("accessKey", DOMHTMLElementAccessKeyPropertyInfo), '("align", DOMHTMLHeadingElementAlignPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("baseUri", DOMNodeBaseUriPropertyInfo), '("childElementCount", DOMElementChildElementCountPropertyInfo), '("childNodes", DOMNodeChildNodesPropertyInfo), '("children", DOMHTMLElementChildrenPropertyInfo), '("classList", DOMElementClassListPropertyInfo), '("className", DOMElementClassNamePropertyInfo), '("clientHeight", DOMElementClientHeightPropertyInfo), '("clientLeft", DOMElementClientLeftPropertyInfo), '("clientTop", DOMElementClientTopPropertyInfo), '("clientWidth", DOMElementClientWidthPropertyInfo), '("contentEditable", DOMHTMLElementContentEditablePropertyInfo), '("coreObject", DOMObjectCoreObjectPropertyInfo), '("dir", DOMHTMLElementDirPropertyInfo), '("draggable", DOMHTMLElementDraggablePropertyInfo), '("firstChild", DOMNodeFirstChildPropertyInfo), '("firstElementChild", DOMElementFirstElementChildPropertyInfo), '("hidden", DOMHTMLElementHiddenPropertyInfo), '("id", DOMElementIdPropertyInfo), '("innerHtml", DOMHTMLElementInnerHtmlPropertyInfo), '("innerText", DOMHTMLElementInnerTextPropertyInfo), '("isContentEditable", DOMHTMLElementIsContentEditablePropertyInfo), '("lang", DOMHTMLElementLangPropertyInfo), '("lastChild", DOMNodeLastChildPropertyInfo), '("lastElementChild", DOMElementLastElementChildPropertyInfo), '("localName", DOMNodeLocalNamePropertyInfo), '("namespaceUri", DOMNodeNamespaceUriPropertyInfo), '("nextElementSibling", DOMElementNextElementSiblingPropertyInfo), '("nextSibling", DOMNodeNextSiblingPropertyInfo), '("nodeName", DOMNodeNodeNamePropertyInfo), '("nodeType", DOMNodeNodeTypePropertyInfo), '("nodeValue", DOMNodeNodeValuePropertyInfo), '("offsetHeight", DOMElementOffsetHeightPropertyInfo), '("offsetLeft", DOMElementOffsetLeftPropertyInfo), '("offsetParent", DOMElementOffsetParentPropertyInfo), '("offsetTop", DOMElementOffsetTopPropertyInfo), '("offsetWidth", DOMElementOffsetWidthPropertyInfo), '("outerHtml", DOMHTMLElementOuterHtmlPropertyInfo), '("outerText", DOMHTMLElementOuterTextPropertyInfo), '("ownerDocument", DOMNodeOwnerDocumentPropertyInfo), '("parentElement", DOMNodeParentElementPropertyInfo), '("parentNode", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previousElementSibling", DOMElementPreviousElementSiblingPropertyInfo), '("previousSibling", DOMNodePreviousSiblingPropertyInfo), '("scrollHeight", DOMElementScrollHeightPropertyInfo), '("scrollLeft", DOMElementScrollLeftPropertyInfo), '("scrollTop", DOMElementScrollTopPropertyInfo), '("scrollWidth", DOMElementScrollWidthPropertyInfo), '("spellcheck", DOMHTMLElementSpellcheckPropertyInfo), '("style", DOMElementStylePropertyInfo), '("tabIndex", DOMHTMLElementTabIndexPropertyInfo), '("tagName", DOMElementTagNamePropertyInfo), '("textContent", DOMNodeTextContentPropertyInfo), '("title", DOMHTMLElementTitlePropertyInfo), '("translate", DOMHTMLElementTranslatePropertyInfo), '("webkitRegionOverset", DOMElementWebkitRegionOversetPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo)] :: [(Symbol, *)]) +dOMHTMLHeadingElementAlign :: AttrLabelProxy "align" +dOMHTMLHeadingElementAlign = AttrLabelProxy + type instance SignalList DOMHTMLHeadingElement = DOMHTMLHeadingElementSignalList type DOMHTMLHeadingElementSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) @@ -274,7 +280,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLHeadingElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -304,7 +310,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLHeadingElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False diff --git a/GI/WebKit/Objects/DOMHTMLHeadingElement.hs-boot b/GI/WebKit/Objects/DOMHTMLHeadingElement.hs-boot --- a/GI/WebKit/Objects/DOMHTMLHeadingElement.hs-boot +++ b/GI/WebKit/Objects/DOMHTMLHeadingElement.hs-boot @@ -1,8 +1,8 @@ module GI.WebKit.Objects.DOMHTMLHeadingElement where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map diff --git a/GI/WebKit/Objects/DOMHTMLHtmlElement.hs b/GI/WebKit/Objects/DOMHTMLHtmlElement.hs --- a/GI/WebKit/Objects/DOMHTMLHtmlElement.hs +++ b/GI/WebKit/Objects/DOMHTMLHtmlElement.hs @@ -43,6 +43,7 @@ -- ** Manifest DOMHTMLHtmlElementManifestPropertyInfo , constructDOMHTMLHtmlElementManifest , + dOMHTMLHtmlElementManifest , getDOMHTMLHtmlElementManifest , setDOMHTMLHtmlElementManifest , @@ -50,6 +51,7 @@ -- ** Version DOMHTMLHtmlElementVersionPropertyInfo , constructDOMHTMLHtmlElementVersion , + dOMHTMLHtmlElementVersion , getDOMHTMLHtmlElementVersion , setDOMHTMLHtmlElementVersion , @@ -58,9 +60,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map @@ -262,54 +264,64 @@ -- VVV Prop "manifest" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Just False) -getDOMHTMLHtmlElementManifest :: (MonadIO m, DOMHTMLHtmlElementK o) => o -> m T.Text +getDOMHTMLHtmlElementManifest :: (MonadIO m, DOMHTMLHtmlElementK o) => o -> m (Maybe T.Text) getDOMHTMLHtmlElementManifest obj = liftIO $ getObjectPropertyString obj "manifest" setDOMHTMLHtmlElementManifest :: (MonadIO m, DOMHTMLHtmlElementK o) => o -> T.Text -> m () -setDOMHTMLHtmlElementManifest obj val = liftIO $ setObjectPropertyString obj "manifest" val +setDOMHTMLHtmlElementManifest obj val = liftIO $ setObjectPropertyString obj "manifest" (Just val) constructDOMHTMLHtmlElementManifest :: T.Text -> IO ([Char], GValue) -constructDOMHTMLHtmlElementManifest val = constructObjectPropertyString "manifest" val +constructDOMHTMLHtmlElementManifest val = constructObjectPropertyString "manifest" (Just val) data DOMHTMLHtmlElementManifestPropertyInfo instance AttrInfo DOMHTMLHtmlElementManifestPropertyInfo where type AttrAllowedOps DOMHTMLHtmlElementManifestPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint DOMHTMLHtmlElementManifestPropertyInfo = (~) T.Text type AttrBaseTypeConstraint DOMHTMLHtmlElementManifestPropertyInfo = DOMHTMLHtmlElementK - type AttrGetType DOMHTMLHtmlElementManifestPropertyInfo = T.Text + type AttrGetType DOMHTMLHtmlElementManifestPropertyInfo = (Maybe T.Text) type AttrLabel DOMHTMLHtmlElementManifestPropertyInfo = "manifest" attrGet _ = getDOMHTMLHtmlElementManifest attrSet _ = setDOMHTMLHtmlElementManifest attrConstruct _ = constructDOMHTMLHtmlElementManifest + attrClear _ = undefined -- VVV Prop "version" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Just False) -getDOMHTMLHtmlElementVersion :: (MonadIO m, DOMHTMLHtmlElementK o) => o -> m T.Text +getDOMHTMLHtmlElementVersion :: (MonadIO m, DOMHTMLHtmlElementK o) => o -> m (Maybe T.Text) getDOMHTMLHtmlElementVersion obj = liftIO $ getObjectPropertyString obj "version" setDOMHTMLHtmlElementVersion :: (MonadIO m, DOMHTMLHtmlElementK o) => o -> T.Text -> m () -setDOMHTMLHtmlElementVersion obj val = liftIO $ setObjectPropertyString obj "version" val +setDOMHTMLHtmlElementVersion obj val = liftIO $ setObjectPropertyString obj "version" (Just val) constructDOMHTMLHtmlElementVersion :: T.Text -> IO ([Char], GValue) -constructDOMHTMLHtmlElementVersion val = constructObjectPropertyString "version" val +constructDOMHTMLHtmlElementVersion val = constructObjectPropertyString "version" (Just val) data DOMHTMLHtmlElementVersionPropertyInfo instance AttrInfo DOMHTMLHtmlElementVersionPropertyInfo where type AttrAllowedOps DOMHTMLHtmlElementVersionPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint DOMHTMLHtmlElementVersionPropertyInfo = (~) T.Text type AttrBaseTypeConstraint DOMHTMLHtmlElementVersionPropertyInfo = DOMHTMLHtmlElementK - type AttrGetType DOMHTMLHtmlElementVersionPropertyInfo = T.Text + type AttrGetType DOMHTMLHtmlElementVersionPropertyInfo = (Maybe T.Text) type AttrLabel DOMHTMLHtmlElementVersionPropertyInfo = "version" attrGet _ = getDOMHTMLHtmlElementVersion attrSet _ = setDOMHTMLHtmlElementVersion attrConstruct _ = constructDOMHTMLHtmlElementVersion + attrClear _ = undefined type instance AttributeList DOMHTMLHtmlElement = DOMHTMLHtmlElementAttributeList type DOMHTMLHtmlElementAttributeList = ('[ '("accessKey", DOMHTMLElementAccessKeyPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("baseUri", DOMNodeBaseUriPropertyInfo), '("childElementCount", DOMElementChildElementCountPropertyInfo), '("childNodes", DOMNodeChildNodesPropertyInfo), '("children", DOMHTMLElementChildrenPropertyInfo), '("classList", DOMElementClassListPropertyInfo), '("className", DOMElementClassNamePropertyInfo), '("clientHeight", DOMElementClientHeightPropertyInfo), '("clientLeft", DOMElementClientLeftPropertyInfo), '("clientTop", DOMElementClientTopPropertyInfo), '("clientWidth", DOMElementClientWidthPropertyInfo), '("contentEditable", DOMHTMLElementContentEditablePropertyInfo), '("coreObject", DOMObjectCoreObjectPropertyInfo), '("dir", DOMHTMLElementDirPropertyInfo), '("draggable", DOMHTMLElementDraggablePropertyInfo), '("firstChild", DOMNodeFirstChildPropertyInfo), '("firstElementChild", DOMElementFirstElementChildPropertyInfo), '("hidden", DOMHTMLElementHiddenPropertyInfo), '("id", DOMElementIdPropertyInfo), '("innerHtml", DOMHTMLElementInnerHtmlPropertyInfo), '("innerText", DOMHTMLElementInnerTextPropertyInfo), '("isContentEditable", DOMHTMLElementIsContentEditablePropertyInfo), '("lang", DOMHTMLElementLangPropertyInfo), '("lastChild", DOMNodeLastChildPropertyInfo), '("lastElementChild", DOMElementLastElementChildPropertyInfo), '("localName", DOMNodeLocalNamePropertyInfo), '("manifest", DOMHTMLHtmlElementManifestPropertyInfo), '("namespaceUri", DOMNodeNamespaceUriPropertyInfo), '("nextElementSibling", DOMElementNextElementSiblingPropertyInfo), '("nextSibling", DOMNodeNextSiblingPropertyInfo), '("nodeName", DOMNodeNodeNamePropertyInfo), '("nodeType", DOMNodeNodeTypePropertyInfo), '("nodeValue", DOMNodeNodeValuePropertyInfo), '("offsetHeight", DOMElementOffsetHeightPropertyInfo), '("offsetLeft", DOMElementOffsetLeftPropertyInfo), '("offsetParent", DOMElementOffsetParentPropertyInfo), '("offsetTop", DOMElementOffsetTopPropertyInfo), '("offsetWidth", DOMElementOffsetWidthPropertyInfo), '("outerHtml", DOMHTMLElementOuterHtmlPropertyInfo), '("outerText", DOMHTMLElementOuterTextPropertyInfo), '("ownerDocument", DOMNodeOwnerDocumentPropertyInfo), '("parentElement", DOMNodeParentElementPropertyInfo), '("parentNode", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previousElementSibling", DOMElementPreviousElementSiblingPropertyInfo), '("previousSibling", DOMNodePreviousSiblingPropertyInfo), '("scrollHeight", DOMElementScrollHeightPropertyInfo), '("scrollLeft", DOMElementScrollLeftPropertyInfo), '("scrollTop", DOMElementScrollTopPropertyInfo), '("scrollWidth", DOMElementScrollWidthPropertyInfo), '("spellcheck", DOMHTMLElementSpellcheckPropertyInfo), '("style", DOMElementStylePropertyInfo), '("tabIndex", DOMHTMLElementTabIndexPropertyInfo), '("tagName", DOMElementTagNamePropertyInfo), '("textContent", DOMNodeTextContentPropertyInfo), '("title", DOMHTMLElementTitlePropertyInfo), '("translate", DOMHTMLElementTranslatePropertyInfo), '("version", DOMHTMLHtmlElementVersionPropertyInfo), '("webkitRegionOverset", DOMElementWebkitRegionOversetPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo)] :: [(Symbol, *)]) +dOMHTMLHtmlElementManifest :: AttrLabelProxy "manifest" +dOMHTMLHtmlElementManifest = AttrLabelProxy + +dOMHTMLHtmlElementVersion :: AttrLabelProxy "version" +dOMHTMLHtmlElementVersion = AttrLabelProxy + type instance SignalList DOMHTMLHtmlElement = DOMHTMLHtmlElementSignalList type DOMHTMLHtmlElementSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) @@ -317,7 +329,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLHtmlElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -347,7 +359,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLHtmlElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -377,7 +389,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLHtmlElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -408,7 +420,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLHtmlElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False diff --git a/GI/WebKit/Objects/DOMHTMLHtmlElement.hs-boot b/GI/WebKit/Objects/DOMHTMLHtmlElement.hs-boot --- a/GI/WebKit/Objects/DOMHTMLHtmlElement.hs-boot +++ b/GI/WebKit/Objects/DOMHTMLHtmlElement.hs-boot @@ -1,8 +1,8 @@ module GI.WebKit.Objects.DOMHTMLHtmlElement where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map diff --git a/GI/WebKit/Objects/DOMHTMLIFrameElement.hs b/GI/WebKit/Objects/DOMHTMLIFrameElement.hs --- a/GI/WebKit/Objects/DOMHTMLIFrameElement.hs +++ b/GI/WebKit/Objects/DOMHTMLIFrameElement.hs @@ -163,23 +163,27 @@ -- ** Align DOMHTMLIFrameElementAlignPropertyInfo , constructDOMHTMLIFrameElementAlign , + dOMHTMLIFrameElementAlign , getDOMHTMLIFrameElementAlign , setDOMHTMLIFrameElementAlign , -- ** ContentDocument DOMHTMLIFrameElementContentDocumentPropertyInfo, + dOMHTMLIFrameElementContentDocument , getDOMHTMLIFrameElementContentDocument , -- ** ContentWindow DOMHTMLIFrameElementContentWindowPropertyInfo, + dOMHTMLIFrameElementContentWindow , getDOMHTMLIFrameElementContentWindow , -- ** FrameBorder DOMHTMLIFrameElementFrameBorderPropertyInfo, constructDOMHTMLIFrameElementFrameBorder, + dOMHTMLIFrameElementFrameBorder , getDOMHTMLIFrameElementFrameBorder , setDOMHTMLIFrameElementFrameBorder , @@ -187,6 +191,7 @@ -- ** Height DOMHTMLIFrameElementHeightPropertyInfo , constructDOMHTMLIFrameElementHeight , + dOMHTMLIFrameElementHeight , getDOMHTMLIFrameElementHeight , setDOMHTMLIFrameElementHeight , @@ -194,6 +199,7 @@ -- ** LongDesc DOMHTMLIFrameElementLongDescPropertyInfo, constructDOMHTMLIFrameElementLongDesc , + dOMHTMLIFrameElementLongDesc , getDOMHTMLIFrameElementLongDesc , setDOMHTMLIFrameElementLongDesc , @@ -201,6 +207,7 @@ -- ** MarginHeight DOMHTMLIFrameElementMarginHeightPropertyInfo, constructDOMHTMLIFrameElementMarginHeight, + dOMHTMLIFrameElementMarginHeight , getDOMHTMLIFrameElementMarginHeight , setDOMHTMLIFrameElementMarginHeight , @@ -208,6 +215,7 @@ -- ** MarginWidth DOMHTMLIFrameElementMarginWidthPropertyInfo, constructDOMHTMLIFrameElementMarginWidth, + dOMHTMLIFrameElementMarginWidth , getDOMHTMLIFrameElementMarginWidth , setDOMHTMLIFrameElementMarginWidth , @@ -215,6 +223,7 @@ -- ** Name DOMHTMLIFrameElementNamePropertyInfo , constructDOMHTMLIFrameElementName , + dOMHTMLIFrameElementName , getDOMHTMLIFrameElementName , setDOMHTMLIFrameElementName , @@ -222,6 +231,7 @@ -- ** Sandbox DOMHTMLIFrameElementSandboxPropertyInfo , constructDOMHTMLIFrameElementSandbox , + dOMHTMLIFrameElementSandbox , getDOMHTMLIFrameElementSandbox , setDOMHTMLIFrameElementSandbox , @@ -229,6 +239,7 @@ -- ** Scrolling DOMHTMLIFrameElementScrollingPropertyInfo, constructDOMHTMLIFrameElementScrolling , + dOMHTMLIFrameElementScrolling , getDOMHTMLIFrameElementScrolling , setDOMHTMLIFrameElementScrolling , @@ -236,6 +247,7 @@ -- ** Seamless DOMHTMLIFrameElementSeamlessPropertyInfo, constructDOMHTMLIFrameElementSeamless , + dOMHTMLIFrameElementSeamless , getDOMHTMLIFrameElementSeamless , setDOMHTMLIFrameElementSeamless , @@ -243,6 +255,7 @@ -- ** Src DOMHTMLIFrameElementSrcPropertyInfo , constructDOMHTMLIFrameElementSrc , + dOMHTMLIFrameElementSrc , getDOMHTMLIFrameElementSrc , setDOMHTMLIFrameElementSrc , @@ -250,6 +263,7 @@ -- ** Srcdoc DOMHTMLIFrameElementSrcdocPropertyInfo , constructDOMHTMLIFrameElementSrcdoc , + dOMHTMLIFrameElementSrcdoc , getDOMHTMLIFrameElementSrcdoc , setDOMHTMLIFrameElementSrcdoc , @@ -257,6 +271,7 @@ -- ** Width DOMHTMLIFrameElementWidthPropertyInfo , constructDOMHTMLIFrameElementWidth , + dOMHTMLIFrameElementWidth , getDOMHTMLIFrameElementWidth , setDOMHTMLIFrameElementWidth , @@ -265,9 +280,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map @@ -493,37 +508,40 @@ -- VVV Prop "align" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Just False) -getDOMHTMLIFrameElementAlign :: (MonadIO m, DOMHTMLIFrameElementK o) => o -> m T.Text +getDOMHTMLIFrameElementAlign :: (MonadIO m, DOMHTMLIFrameElementK o) => o -> m (Maybe T.Text) getDOMHTMLIFrameElementAlign obj = liftIO $ getObjectPropertyString obj "align" setDOMHTMLIFrameElementAlign :: (MonadIO m, DOMHTMLIFrameElementK o) => o -> T.Text -> m () -setDOMHTMLIFrameElementAlign obj val = liftIO $ setObjectPropertyString obj "align" val +setDOMHTMLIFrameElementAlign obj val = liftIO $ setObjectPropertyString obj "align" (Just val) constructDOMHTMLIFrameElementAlign :: T.Text -> IO ([Char], GValue) -constructDOMHTMLIFrameElementAlign val = constructObjectPropertyString "align" val +constructDOMHTMLIFrameElementAlign val = constructObjectPropertyString "align" (Just val) data DOMHTMLIFrameElementAlignPropertyInfo instance AttrInfo DOMHTMLIFrameElementAlignPropertyInfo where type AttrAllowedOps DOMHTMLIFrameElementAlignPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint DOMHTMLIFrameElementAlignPropertyInfo = (~) T.Text type AttrBaseTypeConstraint DOMHTMLIFrameElementAlignPropertyInfo = DOMHTMLIFrameElementK - type AttrGetType DOMHTMLIFrameElementAlignPropertyInfo = T.Text + type AttrGetType DOMHTMLIFrameElementAlignPropertyInfo = (Maybe T.Text) type AttrLabel DOMHTMLIFrameElementAlignPropertyInfo = "align" attrGet _ = getDOMHTMLIFrameElementAlign attrSet _ = setDOMHTMLIFrameElementAlign attrConstruct _ = constructDOMHTMLIFrameElementAlign + attrClear _ = undefined -- VVV Prop "content-document" -- Type: TInterface "WebKit" "DOMDocument" -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) getDOMHTMLIFrameElementContentDocument :: (MonadIO m, DOMHTMLIFrameElementK o) => o -> m DOMDocument -getDOMHTMLIFrameElementContentDocument obj = liftIO $ getObjectPropertyObject obj "content-document" DOMDocument +getDOMHTMLIFrameElementContentDocument obj = liftIO $ checkUnexpectedNothing "getDOMHTMLIFrameElementContentDocument" $ getObjectPropertyObject obj "content-document" DOMDocument data DOMHTMLIFrameElementContentDocumentPropertyInfo instance AttrInfo DOMHTMLIFrameElementContentDocumentPropertyInfo where - type AttrAllowedOps DOMHTMLIFrameElementContentDocumentPropertyInfo = '[ 'AttrGet] + type AttrAllowedOps DOMHTMLIFrameElementContentDocumentPropertyInfo = '[ 'AttrGet, 'AttrClear] type AttrSetTypeConstraint DOMHTMLIFrameElementContentDocumentPropertyInfo = (~) () type AttrBaseTypeConstraint DOMHTMLIFrameElementContentDocumentPropertyInfo = DOMHTMLIFrameElementK type AttrGetType DOMHTMLIFrameElementContentDocumentPropertyInfo = DOMDocument @@ -531,220 +549,240 @@ attrGet _ = getDOMHTMLIFrameElementContentDocument attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "content-window" -- Type: TInterface "WebKit" "DOMDOMWindow" -- Flags: [PropertyReadable] + -- Nullable: (Nothing,Nothing) -getDOMHTMLIFrameElementContentWindow :: (MonadIO m, DOMHTMLIFrameElementK o) => o -> m DOMDOMWindow +getDOMHTMLIFrameElementContentWindow :: (MonadIO m, DOMHTMLIFrameElementK o) => o -> m (Maybe DOMDOMWindow) getDOMHTMLIFrameElementContentWindow obj = liftIO $ getObjectPropertyObject obj "content-window" DOMDOMWindow data DOMHTMLIFrameElementContentWindowPropertyInfo instance AttrInfo DOMHTMLIFrameElementContentWindowPropertyInfo where - type AttrAllowedOps DOMHTMLIFrameElementContentWindowPropertyInfo = '[ 'AttrGet] + type AttrAllowedOps DOMHTMLIFrameElementContentWindowPropertyInfo = '[ 'AttrGet, 'AttrClear] type AttrSetTypeConstraint DOMHTMLIFrameElementContentWindowPropertyInfo = (~) () type AttrBaseTypeConstraint DOMHTMLIFrameElementContentWindowPropertyInfo = DOMHTMLIFrameElementK - type AttrGetType DOMHTMLIFrameElementContentWindowPropertyInfo = DOMDOMWindow + type AttrGetType DOMHTMLIFrameElementContentWindowPropertyInfo = (Maybe DOMDOMWindow) type AttrLabel DOMHTMLIFrameElementContentWindowPropertyInfo = "content-window" attrGet _ = getDOMHTMLIFrameElementContentWindow attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "frame-border" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Just False) -getDOMHTMLIFrameElementFrameBorder :: (MonadIO m, DOMHTMLIFrameElementK o) => o -> m T.Text +getDOMHTMLIFrameElementFrameBorder :: (MonadIO m, DOMHTMLIFrameElementK o) => o -> m (Maybe T.Text) getDOMHTMLIFrameElementFrameBorder obj = liftIO $ getObjectPropertyString obj "frame-border" setDOMHTMLIFrameElementFrameBorder :: (MonadIO m, DOMHTMLIFrameElementK o) => o -> T.Text -> m () -setDOMHTMLIFrameElementFrameBorder obj val = liftIO $ setObjectPropertyString obj "frame-border" val +setDOMHTMLIFrameElementFrameBorder obj val = liftIO $ setObjectPropertyString obj "frame-border" (Just val) constructDOMHTMLIFrameElementFrameBorder :: T.Text -> IO ([Char], GValue) -constructDOMHTMLIFrameElementFrameBorder val = constructObjectPropertyString "frame-border" val +constructDOMHTMLIFrameElementFrameBorder val = constructObjectPropertyString "frame-border" (Just val) data DOMHTMLIFrameElementFrameBorderPropertyInfo instance AttrInfo DOMHTMLIFrameElementFrameBorderPropertyInfo where type AttrAllowedOps DOMHTMLIFrameElementFrameBorderPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint DOMHTMLIFrameElementFrameBorderPropertyInfo = (~) T.Text type AttrBaseTypeConstraint DOMHTMLIFrameElementFrameBorderPropertyInfo = DOMHTMLIFrameElementK - type AttrGetType DOMHTMLIFrameElementFrameBorderPropertyInfo = T.Text + type AttrGetType DOMHTMLIFrameElementFrameBorderPropertyInfo = (Maybe T.Text) type AttrLabel DOMHTMLIFrameElementFrameBorderPropertyInfo = "frame-border" attrGet _ = getDOMHTMLIFrameElementFrameBorder attrSet _ = setDOMHTMLIFrameElementFrameBorder attrConstruct _ = constructDOMHTMLIFrameElementFrameBorder + attrClear _ = undefined -- VVV Prop "height" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Just False) -getDOMHTMLIFrameElementHeight :: (MonadIO m, DOMHTMLIFrameElementK o) => o -> m T.Text +getDOMHTMLIFrameElementHeight :: (MonadIO m, DOMHTMLIFrameElementK o) => o -> m (Maybe T.Text) getDOMHTMLIFrameElementHeight obj = liftIO $ getObjectPropertyString obj "height" setDOMHTMLIFrameElementHeight :: (MonadIO m, DOMHTMLIFrameElementK o) => o -> T.Text -> m () -setDOMHTMLIFrameElementHeight obj val = liftIO $ setObjectPropertyString obj "height" val +setDOMHTMLIFrameElementHeight obj val = liftIO $ setObjectPropertyString obj "height" (Just val) constructDOMHTMLIFrameElementHeight :: T.Text -> IO ([Char], GValue) -constructDOMHTMLIFrameElementHeight val = constructObjectPropertyString "height" val +constructDOMHTMLIFrameElementHeight val = constructObjectPropertyString "height" (Just val) data DOMHTMLIFrameElementHeightPropertyInfo instance AttrInfo DOMHTMLIFrameElementHeightPropertyInfo where type AttrAllowedOps DOMHTMLIFrameElementHeightPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint DOMHTMLIFrameElementHeightPropertyInfo = (~) T.Text type AttrBaseTypeConstraint DOMHTMLIFrameElementHeightPropertyInfo = DOMHTMLIFrameElementK - type AttrGetType DOMHTMLIFrameElementHeightPropertyInfo = T.Text + type AttrGetType DOMHTMLIFrameElementHeightPropertyInfo = (Maybe T.Text) type AttrLabel DOMHTMLIFrameElementHeightPropertyInfo = "height" attrGet _ = getDOMHTMLIFrameElementHeight attrSet _ = setDOMHTMLIFrameElementHeight attrConstruct _ = constructDOMHTMLIFrameElementHeight + attrClear _ = undefined -- VVV Prop "long-desc" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Just False) -getDOMHTMLIFrameElementLongDesc :: (MonadIO m, DOMHTMLIFrameElementK o) => o -> m T.Text +getDOMHTMLIFrameElementLongDesc :: (MonadIO m, DOMHTMLIFrameElementK o) => o -> m (Maybe T.Text) getDOMHTMLIFrameElementLongDesc obj = liftIO $ getObjectPropertyString obj "long-desc" setDOMHTMLIFrameElementLongDesc :: (MonadIO m, DOMHTMLIFrameElementK o) => o -> T.Text -> m () -setDOMHTMLIFrameElementLongDesc obj val = liftIO $ setObjectPropertyString obj "long-desc" val +setDOMHTMLIFrameElementLongDesc obj val = liftIO $ setObjectPropertyString obj "long-desc" (Just val) constructDOMHTMLIFrameElementLongDesc :: T.Text -> IO ([Char], GValue) -constructDOMHTMLIFrameElementLongDesc val = constructObjectPropertyString "long-desc" val +constructDOMHTMLIFrameElementLongDesc val = constructObjectPropertyString "long-desc" (Just val) data DOMHTMLIFrameElementLongDescPropertyInfo instance AttrInfo DOMHTMLIFrameElementLongDescPropertyInfo where type AttrAllowedOps DOMHTMLIFrameElementLongDescPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint DOMHTMLIFrameElementLongDescPropertyInfo = (~) T.Text type AttrBaseTypeConstraint DOMHTMLIFrameElementLongDescPropertyInfo = DOMHTMLIFrameElementK - type AttrGetType DOMHTMLIFrameElementLongDescPropertyInfo = T.Text + type AttrGetType DOMHTMLIFrameElementLongDescPropertyInfo = (Maybe T.Text) type AttrLabel DOMHTMLIFrameElementLongDescPropertyInfo = "long-desc" attrGet _ = getDOMHTMLIFrameElementLongDesc attrSet _ = setDOMHTMLIFrameElementLongDesc attrConstruct _ = constructDOMHTMLIFrameElementLongDesc + attrClear _ = undefined -- VVV Prop "margin-height" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Just False) -getDOMHTMLIFrameElementMarginHeight :: (MonadIO m, DOMHTMLIFrameElementK o) => o -> m T.Text +getDOMHTMLIFrameElementMarginHeight :: (MonadIO m, DOMHTMLIFrameElementK o) => o -> m (Maybe T.Text) getDOMHTMLIFrameElementMarginHeight obj = liftIO $ getObjectPropertyString obj "margin-height" setDOMHTMLIFrameElementMarginHeight :: (MonadIO m, DOMHTMLIFrameElementK o) => o -> T.Text -> m () -setDOMHTMLIFrameElementMarginHeight obj val = liftIO $ setObjectPropertyString obj "margin-height" val +setDOMHTMLIFrameElementMarginHeight obj val = liftIO $ setObjectPropertyString obj "margin-height" (Just val) constructDOMHTMLIFrameElementMarginHeight :: T.Text -> IO ([Char], GValue) -constructDOMHTMLIFrameElementMarginHeight val = constructObjectPropertyString "margin-height" val +constructDOMHTMLIFrameElementMarginHeight val = constructObjectPropertyString "margin-height" (Just val) data DOMHTMLIFrameElementMarginHeightPropertyInfo instance AttrInfo DOMHTMLIFrameElementMarginHeightPropertyInfo where type AttrAllowedOps DOMHTMLIFrameElementMarginHeightPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint DOMHTMLIFrameElementMarginHeightPropertyInfo = (~) T.Text type AttrBaseTypeConstraint DOMHTMLIFrameElementMarginHeightPropertyInfo = DOMHTMLIFrameElementK - type AttrGetType DOMHTMLIFrameElementMarginHeightPropertyInfo = T.Text + type AttrGetType DOMHTMLIFrameElementMarginHeightPropertyInfo = (Maybe T.Text) type AttrLabel DOMHTMLIFrameElementMarginHeightPropertyInfo = "margin-height" attrGet _ = getDOMHTMLIFrameElementMarginHeight attrSet _ = setDOMHTMLIFrameElementMarginHeight attrConstruct _ = constructDOMHTMLIFrameElementMarginHeight + attrClear _ = undefined -- VVV Prop "margin-width" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Just False) -getDOMHTMLIFrameElementMarginWidth :: (MonadIO m, DOMHTMLIFrameElementK o) => o -> m T.Text +getDOMHTMLIFrameElementMarginWidth :: (MonadIO m, DOMHTMLIFrameElementK o) => o -> m (Maybe T.Text) getDOMHTMLIFrameElementMarginWidth obj = liftIO $ getObjectPropertyString obj "margin-width" setDOMHTMLIFrameElementMarginWidth :: (MonadIO m, DOMHTMLIFrameElementK o) => o -> T.Text -> m () -setDOMHTMLIFrameElementMarginWidth obj val = liftIO $ setObjectPropertyString obj "margin-width" val +setDOMHTMLIFrameElementMarginWidth obj val = liftIO $ setObjectPropertyString obj "margin-width" (Just val) constructDOMHTMLIFrameElementMarginWidth :: T.Text -> IO ([Char], GValue) -constructDOMHTMLIFrameElementMarginWidth val = constructObjectPropertyString "margin-width" val +constructDOMHTMLIFrameElementMarginWidth val = constructObjectPropertyString "margin-width" (Just val) data DOMHTMLIFrameElementMarginWidthPropertyInfo instance AttrInfo DOMHTMLIFrameElementMarginWidthPropertyInfo where type AttrAllowedOps DOMHTMLIFrameElementMarginWidthPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint DOMHTMLIFrameElementMarginWidthPropertyInfo = (~) T.Text type AttrBaseTypeConstraint DOMHTMLIFrameElementMarginWidthPropertyInfo = DOMHTMLIFrameElementK - type AttrGetType DOMHTMLIFrameElementMarginWidthPropertyInfo = T.Text + type AttrGetType DOMHTMLIFrameElementMarginWidthPropertyInfo = (Maybe T.Text) type AttrLabel DOMHTMLIFrameElementMarginWidthPropertyInfo = "margin-width" attrGet _ = getDOMHTMLIFrameElementMarginWidth attrSet _ = setDOMHTMLIFrameElementMarginWidth attrConstruct _ = constructDOMHTMLIFrameElementMarginWidth + attrClear _ = undefined -- VVV Prop "name" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Just False) -getDOMHTMLIFrameElementName :: (MonadIO m, DOMHTMLIFrameElementK o) => o -> m T.Text +getDOMHTMLIFrameElementName :: (MonadIO m, DOMHTMLIFrameElementK o) => o -> m (Maybe T.Text) getDOMHTMLIFrameElementName obj = liftIO $ getObjectPropertyString obj "name" setDOMHTMLIFrameElementName :: (MonadIO m, DOMHTMLIFrameElementK o) => o -> T.Text -> m () -setDOMHTMLIFrameElementName obj val = liftIO $ setObjectPropertyString obj "name" val +setDOMHTMLIFrameElementName obj val = liftIO $ setObjectPropertyString obj "name" (Just val) constructDOMHTMLIFrameElementName :: T.Text -> IO ([Char], GValue) -constructDOMHTMLIFrameElementName val = constructObjectPropertyString "name" val +constructDOMHTMLIFrameElementName val = constructObjectPropertyString "name" (Just val) data DOMHTMLIFrameElementNamePropertyInfo instance AttrInfo DOMHTMLIFrameElementNamePropertyInfo where type AttrAllowedOps DOMHTMLIFrameElementNamePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint DOMHTMLIFrameElementNamePropertyInfo = (~) T.Text type AttrBaseTypeConstraint DOMHTMLIFrameElementNamePropertyInfo = DOMHTMLIFrameElementK - type AttrGetType DOMHTMLIFrameElementNamePropertyInfo = T.Text + type AttrGetType DOMHTMLIFrameElementNamePropertyInfo = (Maybe T.Text) type AttrLabel DOMHTMLIFrameElementNamePropertyInfo = "name" attrGet _ = getDOMHTMLIFrameElementName attrSet _ = setDOMHTMLIFrameElementName attrConstruct _ = constructDOMHTMLIFrameElementName + attrClear _ = undefined -- VVV Prop "sandbox" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Just False) -getDOMHTMLIFrameElementSandbox :: (MonadIO m, DOMHTMLIFrameElementK o) => o -> m T.Text +getDOMHTMLIFrameElementSandbox :: (MonadIO m, DOMHTMLIFrameElementK o) => o -> m (Maybe T.Text) getDOMHTMLIFrameElementSandbox obj = liftIO $ getObjectPropertyString obj "sandbox" setDOMHTMLIFrameElementSandbox :: (MonadIO m, DOMHTMLIFrameElementK o) => o -> T.Text -> m () -setDOMHTMLIFrameElementSandbox obj val = liftIO $ setObjectPropertyString obj "sandbox" val +setDOMHTMLIFrameElementSandbox obj val = liftIO $ setObjectPropertyString obj "sandbox" (Just val) constructDOMHTMLIFrameElementSandbox :: T.Text -> IO ([Char], GValue) -constructDOMHTMLIFrameElementSandbox val = constructObjectPropertyString "sandbox" val +constructDOMHTMLIFrameElementSandbox val = constructObjectPropertyString "sandbox" (Just val) data DOMHTMLIFrameElementSandboxPropertyInfo instance AttrInfo DOMHTMLIFrameElementSandboxPropertyInfo where type AttrAllowedOps DOMHTMLIFrameElementSandboxPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint DOMHTMLIFrameElementSandboxPropertyInfo = (~) T.Text type AttrBaseTypeConstraint DOMHTMLIFrameElementSandboxPropertyInfo = DOMHTMLIFrameElementK - type AttrGetType DOMHTMLIFrameElementSandboxPropertyInfo = T.Text + type AttrGetType DOMHTMLIFrameElementSandboxPropertyInfo = (Maybe T.Text) type AttrLabel DOMHTMLIFrameElementSandboxPropertyInfo = "sandbox" attrGet _ = getDOMHTMLIFrameElementSandbox attrSet _ = setDOMHTMLIFrameElementSandbox attrConstruct _ = constructDOMHTMLIFrameElementSandbox + attrClear _ = undefined -- VVV Prop "scrolling" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Just False) -getDOMHTMLIFrameElementScrolling :: (MonadIO m, DOMHTMLIFrameElementK o) => o -> m T.Text +getDOMHTMLIFrameElementScrolling :: (MonadIO m, DOMHTMLIFrameElementK o) => o -> m (Maybe T.Text) getDOMHTMLIFrameElementScrolling obj = liftIO $ getObjectPropertyString obj "scrolling" setDOMHTMLIFrameElementScrolling :: (MonadIO m, DOMHTMLIFrameElementK o) => o -> T.Text -> m () -setDOMHTMLIFrameElementScrolling obj val = liftIO $ setObjectPropertyString obj "scrolling" val +setDOMHTMLIFrameElementScrolling obj val = liftIO $ setObjectPropertyString obj "scrolling" (Just val) constructDOMHTMLIFrameElementScrolling :: T.Text -> IO ([Char], GValue) -constructDOMHTMLIFrameElementScrolling val = constructObjectPropertyString "scrolling" val +constructDOMHTMLIFrameElementScrolling val = constructObjectPropertyString "scrolling" (Just val) data DOMHTMLIFrameElementScrollingPropertyInfo instance AttrInfo DOMHTMLIFrameElementScrollingPropertyInfo where type AttrAllowedOps DOMHTMLIFrameElementScrollingPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint DOMHTMLIFrameElementScrollingPropertyInfo = (~) T.Text type AttrBaseTypeConstraint DOMHTMLIFrameElementScrollingPropertyInfo = DOMHTMLIFrameElementK - type AttrGetType DOMHTMLIFrameElementScrollingPropertyInfo = T.Text + type AttrGetType DOMHTMLIFrameElementScrollingPropertyInfo = (Maybe T.Text) type AttrLabel DOMHTMLIFrameElementScrollingPropertyInfo = "scrolling" attrGet _ = getDOMHTMLIFrameElementScrolling attrSet _ = setDOMHTMLIFrameElementScrolling attrConstruct _ = constructDOMHTMLIFrameElementScrolling + attrClear _ = undefined -- VVV Prop "seamless" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getDOMHTMLIFrameElementSeamless :: (MonadIO m, DOMHTMLIFrameElementK o) => o -> m Bool getDOMHTMLIFrameElementSeamless obj = liftIO $ getObjectPropertyBool obj "seamless" @@ -765,82 +803,134 @@ attrGet _ = getDOMHTMLIFrameElementSeamless attrSet _ = setDOMHTMLIFrameElementSeamless attrConstruct _ = constructDOMHTMLIFrameElementSeamless + attrClear _ = undefined -- VVV Prop "src" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Just False) -getDOMHTMLIFrameElementSrc :: (MonadIO m, DOMHTMLIFrameElementK o) => o -> m T.Text +getDOMHTMLIFrameElementSrc :: (MonadIO m, DOMHTMLIFrameElementK o) => o -> m (Maybe T.Text) getDOMHTMLIFrameElementSrc obj = liftIO $ getObjectPropertyString obj "src" setDOMHTMLIFrameElementSrc :: (MonadIO m, DOMHTMLIFrameElementK o) => o -> T.Text -> m () -setDOMHTMLIFrameElementSrc obj val = liftIO $ setObjectPropertyString obj "src" val +setDOMHTMLIFrameElementSrc obj val = liftIO $ setObjectPropertyString obj "src" (Just val) constructDOMHTMLIFrameElementSrc :: T.Text -> IO ([Char], GValue) -constructDOMHTMLIFrameElementSrc val = constructObjectPropertyString "src" val +constructDOMHTMLIFrameElementSrc val = constructObjectPropertyString "src" (Just val) data DOMHTMLIFrameElementSrcPropertyInfo instance AttrInfo DOMHTMLIFrameElementSrcPropertyInfo where type AttrAllowedOps DOMHTMLIFrameElementSrcPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint DOMHTMLIFrameElementSrcPropertyInfo = (~) T.Text type AttrBaseTypeConstraint DOMHTMLIFrameElementSrcPropertyInfo = DOMHTMLIFrameElementK - type AttrGetType DOMHTMLIFrameElementSrcPropertyInfo = T.Text + type AttrGetType DOMHTMLIFrameElementSrcPropertyInfo = (Maybe T.Text) type AttrLabel DOMHTMLIFrameElementSrcPropertyInfo = "src" attrGet _ = getDOMHTMLIFrameElementSrc attrSet _ = setDOMHTMLIFrameElementSrc attrConstruct _ = constructDOMHTMLIFrameElementSrc + attrClear _ = undefined -- VVV Prop "srcdoc" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Just False) -getDOMHTMLIFrameElementSrcdoc :: (MonadIO m, DOMHTMLIFrameElementK o) => o -> m T.Text +getDOMHTMLIFrameElementSrcdoc :: (MonadIO m, DOMHTMLIFrameElementK o) => o -> m (Maybe T.Text) getDOMHTMLIFrameElementSrcdoc obj = liftIO $ getObjectPropertyString obj "srcdoc" setDOMHTMLIFrameElementSrcdoc :: (MonadIO m, DOMHTMLIFrameElementK o) => o -> T.Text -> m () -setDOMHTMLIFrameElementSrcdoc obj val = liftIO $ setObjectPropertyString obj "srcdoc" val +setDOMHTMLIFrameElementSrcdoc obj val = liftIO $ setObjectPropertyString obj "srcdoc" (Just val) constructDOMHTMLIFrameElementSrcdoc :: T.Text -> IO ([Char], GValue) -constructDOMHTMLIFrameElementSrcdoc val = constructObjectPropertyString "srcdoc" val +constructDOMHTMLIFrameElementSrcdoc val = constructObjectPropertyString "srcdoc" (Just val) data DOMHTMLIFrameElementSrcdocPropertyInfo instance AttrInfo DOMHTMLIFrameElementSrcdocPropertyInfo where type AttrAllowedOps DOMHTMLIFrameElementSrcdocPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint DOMHTMLIFrameElementSrcdocPropertyInfo = (~) T.Text type AttrBaseTypeConstraint DOMHTMLIFrameElementSrcdocPropertyInfo = DOMHTMLIFrameElementK - type AttrGetType DOMHTMLIFrameElementSrcdocPropertyInfo = T.Text + type AttrGetType DOMHTMLIFrameElementSrcdocPropertyInfo = (Maybe T.Text) type AttrLabel DOMHTMLIFrameElementSrcdocPropertyInfo = "srcdoc" attrGet _ = getDOMHTMLIFrameElementSrcdoc attrSet _ = setDOMHTMLIFrameElementSrcdoc attrConstruct _ = constructDOMHTMLIFrameElementSrcdoc + attrClear _ = undefined -- VVV Prop "width" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Just False) -getDOMHTMLIFrameElementWidth :: (MonadIO m, DOMHTMLIFrameElementK o) => o -> m T.Text +getDOMHTMLIFrameElementWidth :: (MonadIO m, DOMHTMLIFrameElementK o) => o -> m (Maybe T.Text) getDOMHTMLIFrameElementWidth obj = liftIO $ getObjectPropertyString obj "width" setDOMHTMLIFrameElementWidth :: (MonadIO m, DOMHTMLIFrameElementK o) => o -> T.Text -> m () -setDOMHTMLIFrameElementWidth obj val = liftIO $ setObjectPropertyString obj "width" val +setDOMHTMLIFrameElementWidth obj val = liftIO $ setObjectPropertyString obj "width" (Just val) constructDOMHTMLIFrameElementWidth :: T.Text -> IO ([Char], GValue) -constructDOMHTMLIFrameElementWidth val = constructObjectPropertyString "width" val +constructDOMHTMLIFrameElementWidth val = constructObjectPropertyString "width" (Just val) data DOMHTMLIFrameElementWidthPropertyInfo instance AttrInfo DOMHTMLIFrameElementWidthPropertyInfo where type AttrAllowedOps DOMHTMLIFrameElementWidthPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint DOMHTMLIFrameElementWidthPropertyInfo = (~) T.Text type AttrBaseTypeConstraint DOMHTMLIFrameElementWidthPropertyInfo = DOMHTMLIFrameElementK - type AttrGetType DOMHTMLIFrameElementWidthPropertyInfo = T.Text + type AttrGetType DOMHTMLIFrameElementWidthPropertyInfo = (Maybe T.Text) type AttrLabel DOMHTMLIFrameElementWidthPropertyInfo = "width" attrGet _ = getDOMHTMLIFrameElementWidth attrSet _ = setDOMHTMLIFrameElementWidth attrConstruct _ = constructDOMHTMLIFrameElementWidth + attrClear _ = undefined type instance AttributeList DOMHTMLIFrameElement = DOMHTMLIFrameElementAttributeList type DOMHTMLIFrameElementAttributeList = ('[ '("accessKey", DOMHTMLElementAccessKeyPropertyInfo), '("align", DOMHTMLIFrameElementAlignPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("baseUri", DOMNodeBaseUriPropertyInfo), '("childElementCount", DOMElementChildElementCountPropertyInfo), '("childNodes", DOMNodeChildNodesPropertyInfo), '("children", DOMHTMLElementChildrenPropertyInfo), '("classList", DOMElementClassListPropertyInfo), '("className", DOMElementClassNamePropertyInfo), '("clientHeight", DOMElementClientHeightPropertyInfo), '("clientLeft", DOMElementClientLeftPropertyInfo), '("clientTop", DOMElementClientTopPropertyInfo), '("clientWidth", DOMElementClientWidthPropertyInfo), '("contentDocument", DOMHTMLIFrameElementContentDocumentPropertyInfo), '("contentEditable", DOMHTMLElementContentEditablePropertyInfo), '("contentWindow", DOMHTMLIFrameElementContentWindowPropertyInfo), '("coreObject", DOMObjectCoreObjectPropertyInfo), '("dir", DOMHTMLElementDirPropertyInfo), '("draggable", DOMHTMLElementDraggablePropertyInfo), '("firstChild", DOMNodeFirstChildPropertyInfo), '("firstElementChild", DOMElementFirstElementChildPropertyInfo), '("frameBorder", DOMHTMLIFrameElementFrameBorderPropertyInfo), '("height", DOMHTMLIFrameElementHeightPropertyInfo), '("hidden", DOMHTMLElementHiddenPropertyInfo), '("id", DOMElementIdPropertyInfo), '("innerHtml", DOMHTMLElementInnerHtmlPropertyInfo), '("innerText", DOMHTMLElementInnerTextPropertyInfo), '("isContentEditable", DOMHTMLElementIsContentEditablePropertyInfo), '("lang", DOMHTMLElementLangPropertyInfo), '("lastChild", DOMNodeLastChildPropertyInfo), '("lastElementChild", DOMElementLastElementChildPropertyInfo), '("localName", DOMNodeLocalNamePropertyInfo), '("longDesc", DOMHTMLIFrameElementLongDescPropertyInfo), '("marginHeight", DOMHTMLIFrameElementMarginHeightPropertyInfo), '("marginWidth", DOMHTMLIFrameElementMarginWidthPropertyInfo), '("name", DOMHTMLIFrameElementNamePropertyInfo), '("namespaceUri", DOMNodeNamespaceUriPropertyInfo), '("nextElementSibling", DOMElementNextElementSiblingPropertyInfo), '("nextSibling", DOMNodeNextSiblingPropertyInfo), '("nodeName", DOMNodeNodeNamePropertyInfo), '("nodeType", DOMNodeNodeTypePropertyInfo), '("nodeValue", DOMNodeNodeValuePropertyInfo), '("offsetHeight", DOMElementOffsetHeightPropertyInfo), '("offsetLeft", DOMElementOffsetLeftPropertyInfo), '("offsetParent", DOMElementOffsetParentPropertyInfo), '("offsetTop", DOMElementOffsetTopPropertyInfo), '("offsetWidth", DOMElementOffsetWidthPropertyInfo), '("outerHtml", DOMHTMLElementOuterHtmlPropertyInfo), '("outerText", DOMHTMLElementOuterTextPropertyInfo), '("ownerDocument", DOMNodeOwnerDocumentPropertyInfo), '("parentElement", DOMNodeParentElementPropertyInfo), '("parentNode", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previousElementSibling", DOMElementPreviousElementSiblingPropertyInfo), '("previousSibling", DOMNodePreviousSiblingPropertyInfo), '("sandbox", DOMHTMLIFrameElementSandboxPropertyInfo), '("scrollHeight", DOMElementScrollHeightPropertyInfo), '("scrollLeft", DOMElementScrollLeftPropertyInfo), '("scrollTop", DOMElementScrollTopPropertyInfo), '("scrollWidth", DOMElementScrollWidthPropertyInfo), '("scrolling", DOMHTMLIFrameElementScrollingPropertyInfo), '("seamless", DOMHTMLIFrameElementSeamlessPropertyInfo), '("spellcheck", DOMHTMLElementSpellcheckPropertyInfo), '("src", DOMHTMLIFrameElementSrcPropertyInfo), '("srcdoc", DOMHTMLIFrameElementSrcdocPropertyInfo), '("style", DOMElementStylePropertyInfo), '("tabIndex", DOMHTMLElementTabIndexPropertyInfo), '("tagName", DOMElementTagNamePropertyInfo), '("textContent", DOMNodeTextContentPropertyInfo), '("title", DOMHTMLElementTitlePropertyInfo), '("translate", DOMHTMLElementTranslatePropertyInfo), '("webkitRegionOverset", DOMElementWebkitRegionOversetPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo), '("width", DOMHTMLIFrameElementWidthPropertyInfo)] :: [(Symbol, *)]) +dOMHTMLIFrameElementAlign :: AttrLabelProxy "align" +dOMHTMLIFrameElementAlign = AttrLabelProxy + +dOMHTMLIFrameElementContentDocument :: AttrLabelProxy "contentDocument" +dOMHTMLIFrameElementContentDocument = AttrLabelProxy + +dOMHTMLIFrameElementContentWindow :: AttrLabelProxy "contentWindow" +dOMHTMLIFrameElementContentWindow = AttrLabelProxy + +dOMHTMLIFrameElementFrameBorder :: AttrLabelProxy "frameBorder" +dOMHTMLIFrameElementFrameBorder = AttrLabelProxy + +dOMHTMLIFrameElementHeight :: AttrLabelProxy "height" +dOMHTMLIFrameElementHeight = AttrLabelProxy + +dOMHTMLIFrameElementLongDesc :: AttrLabelProxy "longDesc" +dOMHTMLIFrameElementLongDesc = AttrLabelProxy + +dOMHTMLIFrameElementMarginHeight :: AttrLabelProxy "marginHeight" +dOMHTMLIFrameElementMarginHeight = AttrLabelProxy + +dOMHTMLIFrameElementMarginWidth :: AttrLabelProxy "marginWidth" +dOMHTMLIFrameElementMarginWidth = AttrLabelProxy + +dOMHTMLIFrameElementName :: AttrLabelProxy "name" +dOMHTMLIFrameElementName = AttrLabelProxy + +dOMHTMLIFrameElementSandbox :: AttrLabelProxy "sandbox" +dOMHTMLIFrameElementSandbox = AttrLabelProxy + +dOMHTMLIFrameElementScrolling :: AttrLabelProxy "scrolling" +dOMHTMLIFrameElementScrolling = AttrLabelProxy + +dOMHTMLIFrameElementSeamless :: AttrLabelProxy "seamless" +dOMHTMLIFrameElementSeamless = AttrLabelProxy + +dOMHTMLIFrameElementSrc :: AttrLabelProxy "src" +dOMHTMLIFrameElementSrc = AttrLabelProxy + +dOMHTMLIFrameElementSrcdoc :: AttrLabelProxy "srcdoc" +dOMHTMLIFrameElementSrcdoc = AttrLabelProxy + +dOMHTMLIFrameElementWidth :: AttrLabelProxy "width" +dOMHTMLIFrameElementWidth = AttrLabelProxy + type instance SignalList DOMHTMLIFrameElement = DOMHTMLIFrameElementSignalList type DOMHTMLIFrameElementSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) @@ -848,7 +938,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLIFrameElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -878,7 +968,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLIFrameElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit" "DOMDocument" +-- returnType : Just (TInterface "WebKit" "DOMDocument") -- throws : False -- Skip return : False @@ -907,7 +997,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLIFrameElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit" "DOMDOMWindow" +-- returnType : Just (TInterface "WebKit" "DOMDOMWindow") -- throws : False -- Skip return : False @@ -936,7 +1026,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLIFrameElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -966,7 +1056,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLIFrameElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -996,7 +1086,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLIFrameElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -1026,7 +1116,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLIFrameElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -1056,7 +1146,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLIFrameElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -1086,7 +1176,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLIFrameElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -1116,7 +1206,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLIFrameElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -1146,7 +1236,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLIFrameElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -1176,7 +1266,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLIFrameElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -1204,7 +1294,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLIFrameElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -1234,7 +1324,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLIFrameElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -1264,7 +1354,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLIFrameElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -1294,7 +1384,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLIFrameElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1325,7 +1415,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLIFrameElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1356,7 +1446,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLIFrameElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1387,7 +1477,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLIFrameElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1418,7 +1508,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLIFrameElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1449,7 +1539,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLIFrameElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1480,7 +1570,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLIFrameElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1511,7 +1601,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLIFrameElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1542,7 +1632,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLIFrameElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1573,7 +1663,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLIFrameElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1603,7 +1693,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLIFrameElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1634,7 +1724,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLIFrameElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1665,7 +1755,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLIFrameElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False diff --git a/GI/WebKit/Objects/DOMHTMLIFrameElement.hs-boot b/GI/WebKit/Objects/DOMHTMLIFrameElement.hs-boot --- a/GI/WebKit/Objects/DOMHTMLIFrameElement.hs-boot +++ b/GI/WebKit/Objects/DOMHTMLIFrameElement.hs-boot @@ -1,8 +1,8 @@ module GI.WebKit.Objects.DOMHTMLIFrameElement where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map diff --git a/GI/WebKit/Objects/DOMHTMLImageElement.hs b/GI/WebKit/Objects/DOMHTMLImageElement.hs --- a/GI/WebKit/Objects/DOMHTMLImageElement.hs +++ b/GI/WebKit/Objects/DOMHTMLImageElement.hs @@ -198,6 +198,7 @@ -- ** Align DOMHTMLImageElementAlignPropertyInfo , constructDOMHTMLImageElementAlign , + dOMHTMLImageElementAlign , getDOMHTMLImageElementAlign , setDOMHTMLImageElementAlign , @@ -205,6 +206,7 @@ -- ** Alt DOMHTMLImageElementAltPropertyInfo , constructDOMHTMLImageElementAlt , + dOMHTMLImageElementAlt , getDOMHTMLImageElementAlt , setDOMHTMLImageElementAlt , @@ -212,18 +214,21 @@ -- ** Border DOMHTMLImageElementBorderPropertyInfo , constructDOMHTMLImageElementBorder , + dOMHTMLImageElementBorder , getDOMHTMLImageElementBorder , setDOMHTMLImageElementBorder , -- ** Complete DOMHTMLImageElementCompletePropertyInfo , + dOMHTMLImageElementComplete , getDOMHTMLImageElementComplete , -- ** CrossOrigin DOMHTMLImageElementCrossOriginPropertyInfo, constructDOMHTMLImageElementCrossOrigin , + dOMHTMLImageElementCrossOrigin , getDOMHTMLImageElementCrossOrigin , setDOMHTMLImageElementCrossOrigin , @@ -231,6 +236,7 @@ -- ** Height DOMHTMLImageElementHeightPropertyInfo , constructDOMHTMLImageElementHeight , + dOMHTMLImageElementHeight , getDOMHTMLImageElementHeight , setDOMHTMLImageElementHeight , @@ -238,6 +244,7 @@ -- ** Hspace DOMHTMLImageElementHspacePropertyInfo , constructDOMHTMLImageElementHspace , + dOMHTMLImageElementHspace , getDOMHTMLImageElementHspace , setDOMHTMLImageElementHspace , @@ -245,6 +252,7 @@ -- ** IsMap DOMHTMLImageElementIsMapPropertyInfo , constructDOMHTMLImageElementIsMap , + dOMHTMLImageElementIsMap , getDOMHTMLImageElementIsMap , setDOMHTMLImageElementIsMap , @@ -252,6 +260,7 @@ -- ** LongDesc DOMHTMLImageElementLongDescPropertyInfo , constructDOMHTMLImageElementLongDesc , + dOMHTMLImageElementLongDesc , getDOMHTMLImageElementLongDesc , setDOMHTMLImageElementLongDesc , @@ -259,6 +268,7 @@ -- ** Lowsrc DOMHTMLImageElementLowsrcPropertyInfo , constructDOMHTMLImageElementLowsrc , + dOMHTMLImageElementLowsrc , getDOMHTMLImageElementLowsrc , setDOMHTMLImageElementLowsrc , @@ -266,23 +276,27 @@ -- ** Name DOMHTMLImageElementNamePropertyInfo , constructDOMHTMLImageElementName , + dOMHTMLImageElementName , getDOMHTMLImageElementName , setDOMHTMLImageElementName , -- ** NaturalHeight DOMHTMLImageElementNaturalHeightPropertyInfo, + dOMHTMLImageElementNaturalHeight , getDOMHTMLImageElementNaturalHeight , -- ** NaturalWidth DOMHTMLImageElementNaturalWidthPropertyInfo, + dOMHTMLImageElementNaturalWidth , getDOMHTMLImageElementNaturalWidth , -- ** Src DOMHTMLImageElementSrcPropertyInfo , constructDOMHTMLImageElementSrc , + dOMHTMLImageElementSrc , getDOMHTMLImageElementSrc , setDOMHTMLImageElementSrc , @@ -290,6 +304,7 @@ -- ** Srcset DOMHTMLImageElementSrcsetPropertyInfo , constructDOMHTMLImageElementSrcset , + dOMHTMLImageElementSrcset , getDOMHTMLImageElementSrcset , setDOMHTMLImageElementSrcset , @@ -297,6 +312,7 @@ -- ** UseMap DOMHTMLImageElementUseMapPropertyInfo , constructDOMHTMLImageElementUseMap , + dOMHTMLImageElementUseMap , getDOMHTMLImageElementUseMap , setDOMHTMLImageElementUseMap , @@ -304,6 +320,7 @@ -- ** Vspace DOMHTMLImageElementVspacePropertyInfo , constructDOMHTMLImageElementVspace , + dOMHTMLImageElementVspace , getDOMHTMLImageElementVspace , setDOMHTMLImageElementVspace , @@ -311,17 +328,20 @@ -- ** Width DOMHTMLImageElementWidthPropertyInfo , constructDOMHTMLImageElementWidth , + dOMHTMLImageElementWidth , getDOMHTMLImageElementWidth , setDOMHTMLImageElementWidth , -- ** X DOMHTMLImageElementXPropertyInfo , + dOMHTMLImageElementX , getDOMHTMLImageElementX , -- ** Y DOMHTMLImageElementYPropertyInfo , + dOMHTMLImageElementY , getDOMHTMLImageElementY , @@ -329,9 +349,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map @@ -564,78 +584,85 @@ -- VVV Prop "align" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Just False) -getDOMHTMLImageElementAlign :: (MonadIO m, DOMHTMLImageElementK o) => o -> m T.Text +getDOMHTMLImageElementAlign :: (MonadIO m, DOMHTMLImageElementK o) => o -> m (Maybe T.Text) getDOMHTMLImageElementAlign obj = liftIO $ getObjectPropertyString obj "align" setDOMHTMLImageElementAlign :: (MonadIO m, DOMHTMLImageElementK o) => o -> T.Text -> m () -setDOMHTMLImageElementAlign obj val = liftIO $ setObjectPropertyString obj "align" val +setDOMHTMLImageElementAlign obj val = liftIO $ setObjectPropertyString obj "align" (Just val) constructDOMHTMLImageElementAlign :: T.Text -> IO ([Char], GValue) -constructDOMHTMLImageElementAlign val = constructObjectPropertyString "align" val +constructDOMHTMLImageElementAlign val = constructObjectPropertyString "align" (Just val) data DOMHTMLImageElementAlignPropertyInfo instance AttrInfo DOMHTMLImageElementAlignPropertyInfo where type AttrAllowedOps DOMHTMLImageElementAlignPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint DOMHTMLImageElementAlignPropertyInfo = (~) T.Text type AttrBaseTypeConstraint DOMHTMLImageElementAlignPropertyInfo = DOMHTMLImageElementK - type AttrGetType DOMHTMLImageElementAlignPropertyInfo = T.Text + type AttrGetType DOMHTMLImageElementAlignPropertyInfo = (Maybe T.Text) type AttrLabel DOMHTMLImageElementAlignPropertyInfo = "align" attrGet _ = getDOMHTMLImageElementAlign attrSet _ = setDOMHTMLImageElementAlign attrConstruct _ = constructDOMHTMLImageElementAlign + attrClear _ = undefined -- VVV Prop "alt" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Just False) -getDOMHTMLImageElementAlt :: (MonadIO m, DOMHTMLImageElementK o) => o -> m T.Text +getDOMHTMLImageElementAlt :: (MonadIO m, DOMHTMLImageElementK o) => o -> m (Maybe T.Text) getDOMHTMLImageElementAlt obj = liftIO $ getObjectPropertyString obj "alt" setDOMHTMLImageElementAlt :: (MonadIO m, DOMHTMLImageElementK o) => o -> T.Text -> m () -setDOMHTMLImageElementAlt obj val = liftIO $ setObjectPropertyString obj "alt" val +setDOMHTMLImageElementAlt obj val = liftIO $ setObjectPropertyString obj "alt" (Just val) constructDOMHTMLImageElementAlt :: T.Text -> IO ([Char], GValue) -constructDOMHTMLImageElementAlt val = constructObjectPropertyString "alt" val +constructDOMHTMLImageElementAlt val = constructObjectPropertyString "alt" (Just val) data DOMHTMLImageElementAltPropertyInfo instance AttrInfo DOMHTMLImageElementAltPropertyInfo where type AttrAllowedOps DOMHTMLImageElementAltPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint DOMHTMLImageElementAltPropertyInfo = (~) T.Text type AttrBaseTypeConstraint DOMHTMLImageElementAltPropertyInfo = DOMHTMLImageElementK - type AttrGetType DOMHTMLImageElementAltPropertyInfo = T.Text + type AttrGetType DOMHTMLImageElementAltPropertyInfo = (Maybe T.Text) type AttrLabel DOMHTMLImageElementAltPropertyInfo = "alt" attrGet _ = getDOMHTMLImageElementAlt attrSet _ = setDOMHTMLImageElementAlt attrConstruct _ = constructDOMHTMLImageElementAlt + attrClear _ = undefined -- VVV Prop "border" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Just False) -getDOMHTMLImageElementBorder :: (MonadIO m, DOMHTMLImageElementK o) => o -> m T.Text +getDOMHTMLImageElementBorder :: (MonadIO m, DOMHTMLImageElementK o) => o -> m (Maybe T.Text) getDOMHTMLImageElementBorder obj = liftIO $ getObjectPropertyString obj "border" setDOMHTMLImageElementBorder :: (MonadIO m, DOMHTMLImageElementK o) => o -> T.Text -> m () -setDOMHTMLImageElementBorder obj val = liftIO $ setObjectPropertyString obj "border" val +setDOMHTMLImageElementBorder obj val = liftIO $ setObjectPropertyString obj "border" (Just val) constructDOMHTMLImageElementBorder :: T.Text -> IO ([Char], GValue) -constructDOMHTMLImageElementBorder val = constructObjectPropertyString "border" val +constructDOMHTMLImageElementBorder val = constructObjectPropertyString "border" (Just val) data DOMHTMLImageElementBorderPropertyInfo instance AttrInfo DOMHTMLImageElementBorderPropertyInfo where type AttrAllowedOps DOMHTMLImageElementBorderPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint DOMHTMLImageElementBorderPropertyInfo = (~) T.Text type AttrBaseTypeConstraint DOMHTMLImageElementBorderPropertyInfo = DOMHTMLImageElementK - type AttrGetType DOMHTMLImageElementBorderPropertyInfo = T.Text + type AttrGetType DOMHTMLImageElementBorderPropertyInfo = (Maybe T.Text) type AttrLabel DOMHTMLImageElementBorderPropertyInfo = "border" attrGet _ = getDOMHTMLImageElementBorder attrSet _ = setDOMHTMLImageElementBorder attrConstruct _ = constructDOMHTMLImageElementBorder + attrClear _ = undefined -- VVV Prop "complete" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) getDOMHTMLImageElementComplete :: (MonadIO m, DOMHTMLImageElementK o) => o -> m Bool getDOMHTMLImageElementComplete obj = liftIO $ getObjectPropertyBool obj "complete" @@ -650,82 +677,90 @@ attrGet _ = getDOMHTMLImageElementComplete attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "cross-origin" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Just False) -getDOMHTMLImageElementCrossOrigin :: (MonadIO m, DOMHTMLImageElementK o) => o -> m T.Text +getDOMHTMLImageElementCrossOrigin :: (MonadIO m, DOMHTMLImageElementK o) => o -> m (Maybe T.Text) getDOMHTMLImageElementCrossOrigin obj = liftIO $ getObjectPropertyString obj "cross-origin" setDOMHTMLImageElementCrossOrigin :: (MonadIO m, DOMHTMLImageElementK o) => o -> T.Text -> m () -setDOMHTMLImageElementCrossOrigin obj val = liftIO $ setObjectPropertyString obj "cross-origin" val +setDOMHTMLImageElementCrossOrigin obj val = liftIO $ setObjectPropertyString obj "cross-origin" (Just val) constructDOMHTMLImageElementCrossOrigin :: T.Text -> IO ([Char], GValue) -constructDOMHTMLImageElementCrossOrigin val = constructObjectPropertyString "cross-origin" val +constructDOMHTMLImageElementCrossOrigin val = constructObjectPropertyString "cross-origin" (Just val) data DOMHTMLImageElementCrossOriginPropertyInfo instance AttrInfo DOMHTMLImageElementCrossOriginPropertyInfo where type AttrAllowedOps DOMHTMLImageElementCrossOriginPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint DOMHTMLImageElementCrossOriginPropertyInfo = (~) T.Text type AttrBaseTypeConstraint DOMHTMLImageElementCrossOriginPropertyInfo = DOMHTMLImageElementK - type AttrGetType DOMHTMLImageElementCrossOriginPropertyInfo = T.Text + type AttrGetType DOMHTMLImageElementCrossOriginPropertyInfo = (Maybe T.Text) type AttrLabel DOMHTMLImageElementCrossOriginPropertyInfo = "cross-origin" attrGet _ = getDOMHTMLImageElementCrossOrigin attrSet _ = setDOMHTMLImageElementCrossOrigin attrConstruct _ = constructDOMHTMLImageElementCrossOrigin + attrClear _ = undefined -- VVV Prop "height" - -- Type: TBasicType TInt64 + -- Type: TBasicType TLong -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) -getDOMHTMLImageElementHeight :: (MonadIO m, DOMHTMLImageElementK o) => o -> m Int64 -getDOMHTMLImageElementHeight obj = liftIO $ getObjectPropertyInt64 obj "height" +getDOMHTMLImageElementHeight :: (MonadIO m, DOMHTMLImageElementK o) => o -> m CLong +getDOMHTMLImageElementHeight obj = liftIO $ getObjectPropertyLong obj "height" -setDOMHTMLImageElementHeight :: (MonadIO m, DOMHTMLImageElementK o) => o -> Int64 -> m () -setDOMHTMLImageElementHeight obj val = liftIO $ setObjectPropertyInt64 obj "height" val +setDOMHTMLImageElementHeight :: (MonadIO m, DOMHTMLImageElementK o) => o -> CLong -> m () +setDOMHTMLImageElementHeight obj val = liftIO $ setObjectPropertyLong obj "height" val -constructDOMHTMLImageElementHeight :: Int64 -> IO ([Char], GValue) -constructDOMHTMLImageElementHeight val = constructObjectPropertyInt64 "height" val +constructDOMHTMLImageElementHeight :: CLong -> IO ([Char], GValue) +constructDOMHTMLImageElementHeight val = constructObjectPropertyLong "height" val data DOMHTMLImageElementHeightPropertyInfo instance AttrInfo DOMHTMLImageElementHeightPropertyInfo where type AttrAllowedOps DOMHTMLImageElementHeightPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLImageElementHeightPropertyInfo = (~) Int64 + type AttrSetTypeConstraint DOMHTMLImageElementHeightPropertyInfo = (~) CLong type AttrBaseTypeConstraint DOMHTMLImageElementHeightPropertyInfo = DOMHTMLImageElementK - type AttrGetType DOMHTMLImageElementHeightPropertyInfo = Int64 + type AttrGetType DOMHTMLImageElementHeightPropertyInfo = CLong type AttrLabel DOMHTMLImageElementHeightPropertyInfo = "height" attrGet _ = getDOMHTMLImageElementHeight attrSet _ = setDOMHTMLImageElementHeight attrConstruct _ = constructDOMHTMLImageElementHeight + attrClear _ = undefined -- VVV Prop "hspace" - -- Type: TBasicType TInt64 + -- Type: TBasicType TLong -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) -getDOMHTMLImageElementHspace :: (MonadIO m, DOMHTMLImageElementK o) => o -> m Int64 -getDOMHTMLImageElementHspace obj = liftIO $ getObjectPropertyInt64 obj "hspace" +getDOMHTMLImageElementHspace :: (MonadIO m, DOMHTMLImageElementK o) => o -> m CLong +getDOMHTMLImageElementHspace obj = liftIO $ getObjectPropertyLong obj "hspace" -setDOMHTMLImageElementHspace :: (MonadIO m, DOMHTMLImageElementK o) => o -> Int64 -> m () -setDOMHTMLImageElementHspace obj val = liftIO $ setObjectPropertyInt64 obj "hspace" val +setDOMHTMLImageElementHspace :: (MonadIO m, DOMHTMLImageElementK o) => o -> CLong -> m () +setDOMHTMLImageElementHspace obj val = liftIO $ setObjectPropertyLong obj "hspace" val -constructDOMHTMLImageElementHspace :: Int64 -> IO ([Char], GValue) -constructDOMHTMLImageElementHspace val = constructObjectPropertyInt64 "hspace" val +constructDOMHTMLImageElementHspace :: CLong -> IO ([Char], GValue) +constructDOMHTMLImageElementHspace val = constructObjectPropertyLong "hspace" val data DOMHTMLImageElementHspacePropertyInfo instance AttrInfo DOMHTMLImageElementHspacePropertyInfo where type AttrAllowedOps DOMHTMLImageElementHspacePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLImageElementHspacePropertyInfo = (~) Int64 + type AttrSetTypeConstraint DOMHTMLImageElementHspacePropertyInfo = (~) CLong type AttrBaseTypeConstraint DOMHTMLImageElementHspacePropertyInfo = DOMHTMLImageElementK - type AttrGetType DOMHTMLImageElementHspacePropertyInfo = Int64 + type AttrGetType DOMHTMLImageElementHspacePropertyInfo = CLong type AttrLabel DOMHTMLImageElementHspacePropertyInfo = "hspace" attrGet _ = getDOMHTMLImageElementHspace attrSet _ = setDOMHTMLImageElementHspace attrConstruct _ = constructDOMHTMLImageElementHspace + attrClear _ = undefined -- VVV Prop "is-map" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getDOMHTMLImageElementIsMap :: (MonadIO m, DOMHTMLImageElementK o) => o -> m Bool getDOMHTMLImageElementIsMap obj = liftIO $ getObjectPropertyBool obj "is-map" @@ -746,274 +781,359 @@ attrGet _ = getDOMHTMLImageElementIsMap attrSet _ = setDOMHTMLImageElementIsMap attrConstruct _ = constructDOMHTMLImageElementIsMap + attrClear _ = undefined -- VVV Prop "long-desc" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Just False) -getDOMHTMLImageElementLongDesc :: (MonadIO m, DOMHTMLImageElementK o) => o -> m T.Text +getDOMHTMLImageElementLongDesc :: (MonadIO m, DOMHTMLImageElementK o) => o -> m (Maybe T.Text) getDOMHTMLImageElementLongDesc obj = liftIO $ getObjectPropertyString obj "long-desc" setDOMHTMLImageElementLongDesc :: (MonadIO m, DOMHTMLImageElementK o) => o -> T.Text -> m () -setDOMHTMLImageElementLongDesc obj val = liftIO $ setObjectPropertyString obj "long-desc" val +setDOMHTMLImageElementLongDesc obj val = liftIO $ setObjectPropertyString obj "long-desc" (Just val) constructDOMHTMLImageElementLongDesc :: T.Text -> IO ([Char], GValue) -constructDOMHTMLImageElementLongDesc val = constructObjectPropertyString "long-desc" val +constructDOMHTMLImageElementLongDesc val = constructObjectPropertyString "long-desc" (Just val) data DOMHTMLImageElementLongDescPropertyInfo instance AttrInfo DOMHTMLImageElementLongDescPropertyInfo where type AttrAllowedOps DOMHTMLImageElementLongDescPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint DOMHTMLImageElementLongDescPropertyInfo = (~) T.Text type AttrBaseTypeConstraint DOMHTMLImageElementLongDescPropertyInfo = DOMHTMLImageElementK - type AttrGetType DOMHTMLImageElementLongDescPropertyInfo = T.Text + type AttrGetType DOMHTMLImageElementLongDescPropertyInfo = (Maybe T.Text) type AttrLabel DOMHTMLImageElementLongDescPropertyInfo = "long-desc" attrGet _ = getDOMHTMLImageElementLongDesc attrSet _ = setDOMHTMLImageElementLongDesc attrConstruct _ = constructDOMHTMLImageElementLongDesc + attrClear _ = undefined -- VVV Prop "lowsrc" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Just False) -getDOMHTMLImageElementLowsrc :: (MonadIO m, DOMHTMLImageElementK o) => o -> m T.Text +getDOMHTMLImageElementLowsrc :: (MonadIO m, DOMHTMLImageElementK o) => o -> m (Maybe T.Text) getDOMHTMLImageElementLowsrc obj = liftIO $ getObjectPropertyString obj "lowsrc" setDOMHTMLImageElementLowsrc :: (MonadIO m, DOMHTMLImageElementK o) => o -> T.Text -> m () -setDOMHTMLImageElementLowsrc obj val = liftIO $ setObjectPropertyString obj "lowsrc" val +setDOMHTMLImageElementLowsrc obj val = liftIO $ setObjectPropertyString obj "lowsrc" (Just val) constructDOMHTMLImageElementLowsrc :: T.Text -> IO ([Char], GValue) -constructDOMHTMLImageElementLowsrc val = constructObjectPropertyString "lowsrc" val +constructDOMHTMLImageElementLowsrc val = constructObjectPropertyString "lowsrc" (Just val) data DOMHTMLImageElementLowsrcPropertyInfo instance AttrInfo DOMHTMLImageElementLowsrcPropertyInfo where type AttrAllowedOps DOMHTMLImageElementLowsrcPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint DOMHTMLImageElementLowsrcPropertyInfo = (~) T.Text type AttrBaseTypeConstraint DOMHTMLImageElementLowsrcPropertyInfo = DOMHTMLImageElementK - type AttrGetType DOMHTMLImageElementLowsrcPropertyInfo = T.Text + type AttrGetType DOMHTMLImageElementLowsrcPropertyInfo = (Maybe T.Text) type AttrLabel DOMHTMLImageElementLowsrcPropertyInfo = "lowsrc" attrGet _ = getDOMHTMLImageElementLowsrc attrSet _ = setDOMHTMLImageElementLowsrc attrConstruct _ = constructDOMHTMLImageElementLowsrc + attrClear _ = undefined -- VVV Prop "name" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Just False) -getDOMHTMLImageElementName :: (MonadIO m, DOMHTMLImageElementK o) => o -> m T.Text +getDOMHTMLImageElementName :: (MonadIO m, DOMHTMLImageElementK o) => o -> m (Maybe T.Text) getDOMHTMLImageElementName obj = liftIO $ getObjectPropertyString obj "name" setDOMHTMLImageElementName :: (MonadIO m, DOMHTMLImageElementK o) => o -> T.Text -> m () -setDOMHTMLImageElementName obj val = liftIO $ setObjectPropertyString obj "name" val +setDOMHTMLImageElementName obj val = liftIO $ setObjectPropertyString obj "name" (Just val) constructDOMHTMLImageElementName :: T.Text -> IO ([Char], GValue) -constructDOMHTMLImageElementName val = constructObjectPropertyString "name" val +constructDOMHTMLImageElementName val = constructObjectPropertyString "name" (Just val) data DOMHTMLImageElementNamePropertyInfo instance AttrInfo DOMHTMLImageElementNamePropertyInfo where type AttrAllowedOps DOMHTMLImageElementNamePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint DOMHTMLImageElementNamePropertyInfo = (~) T.Text type AttrBaseTypeConstraint DOMHTMLImageElementNamePropertyInfo = DOMHTMLImageElementK - type AttrGetType DOMHTMLImageElementNamePropertyInfo = T.Text + type AttrGetType DOMHTMLImageElementNamePropertyInfo = (Maybe T.Text) type AttrLabel DOMHTMLImageElementNamePropertyInfo = "name" attrGet _ = getDOMHTMLImageElementName attrSet _ = setDOMHTMLImageElementName attrConstruct _ = constructDOMHTMLImageElementName + attrClear _ = undefined -- VVV Prop "natural-height" - -- Type: TBasicType TInt64 + -- Type: TBasicType TLong -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) -getDOMHTMLImageElementNaturalHeight :: (MonadIO m, DOMHTMLImageElementK o) => o -> m Int64 -getDOMHTMLImageElementNaturalHeight obj = liftIO $ getObjectPropertyInt64 obj "natural-height" +getDOMHTMLImageElementNaturalHeight :: (MonadIO m, DOMHTMLImageElementK o) => o -> m CLong +getDOMHTMLImageElementNaturalHeight obj = liftIO $ getObjectPropertyLong obj "natural-height" data DOMHTMLImageElementNaturalHeightPropertyInfo instance AttrInfo DOMHTMLImageElementNaturalHeightPropertyInfo where type AttrAllowedOps DOMHTMLImageElementNaturalHeightPropertyInfo = '[ 'AttrGet] type AttrSetTypeConstraint DOMHTMLImageElementNaturalHeightPropertyInfo = (~) () type AttrBaseTypeConstraint DOMHTMLImageElementNaturalHeightPropertyInfo = DOMHTMLImageElementK - type AttrGetType DOMHTMLImageElementNaturalHeightPropertyInfo = Int64 + type AttrGetType DOMHTMLImageElementNaturalHeightPropertyInfo = CLong type AttrLabel DOMHTMLImageElementNaturalHeightPropertyInfo = "natural-height" attrGet _ = getDOMHTMLImageElementNaturalHeight attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "natural-width" - -- Type: TBasicType TInt64 + -- Type: TBasicType TLong -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) -getDOMHTMLImageElementNaturalWidth :: (MonadIO m, DOMHTMLImageElementK o) => o -> m Int64 -getDOMHTMLImageElementNaturalWidth obj = liftIO $ getObjectPropertyInt64 obj "natural-width" +getDOMHTMLImageElementNaturalWidth :: (MonadIO m, DOMHTMLImageElementK o) => o -> m CLong +getDOMHTMLImageElementNaturalWidth obj = liftIO $ getObjectPropertyLong obj "natural-width" data DOMHTMLImageElementNaturalWidthPropertyInfo instance AttrInfo DOMHTMLImageElementNaturalWidthPropertyInfo where type AttrAllowedOps DOMHTMLImageElementNaturalWidthPropertyInfo = '[ 'AttrGet] type AttrSetTypeConstraint DOMHTMLImageElementNaturalWidthPropertyInfo = (~) () type AttrBaseTypeConstraint DOMHTMLImageElementNaturalWidthPropertyInfo = DOMHTMLImageElementK - type AttrGetType DOMHTMLImageElementNaturalWidthPropertyInfo = Int64 + type AttrGetType DOMHTMLImageElementNaturalWidthPropertyInfo = CLong type AttrLabel DOMHTMLImageElementNaturalWidthPropertyInfo = "natural-width" attrGet _ = getDOMHTMLImageElementNaturalWidth attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "src" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Just False) -getDOMHTMLImageElementSrc :: (MonadIO m, DOMHTMLImageElementK o) => o -> m T.Text +getDOMHTMLImageElementSrc :: (MonadIO m, DOMHTMLImageElementK o) => o -> m (Maybe T.Text) getDOMHTMLImageElementSrc obj = liftIO $ getObjectPropertyString obj "src" setDOMHTMLImageElementSrc :: (MonadIO m, DOMHTMLImageElementK o) => o -> T.Text -> m () -setDOMHTMLImageElementSrc obj val = liftIO $ setObjectPropertyString obj "src" val +setDOMHTMLImageElementSrc obj val = liftIO $ setObjectPropertyString obj "src" (Just val) constructDOMHTMLImageElementSrc :: T.Text -> IO ([Char], GValue) -constructDOMHTMLImageElementSrc val = constructObjectPropertyString "src" val +constructDOMHTMLImageElementSrc val = constructObjectPropertyString "src" (Just val) data DOMHTMLImageElementSrcPropertyInfo instance AttrInfo DOMHTMLImageElementSrcPropertyInfo where type AttrAllowedOps DOMHTMLImageElementSrcPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint DOMHTMLImageElementSrcPropertyInfo = (~) T.Text type AttrBaseTypeConstraint DOMHTMLImageElementSrcPropertyInfo = DOMHTMLImageElementK - type AttrGetType DOMHTMLImageElementSrcPropertyInfo = T.Text + type AttrGetType DOMHTMLImageElementSrcPropertyInfo = (Maybe T.Text) type AttrLabel DOMHTMLImageElementSrcPropertyInfo = "src" attrGet _ = getDOMHTMLImageElementSrc attrSet _ = setDOMHTMLImageElementSrc attrConstruct _ = constructDOMHTMLImageElementSrc + attrClear _ = undefined -- VVV Prop "srcset" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Just False) -getDOMHTMLImageElementSrcset :: (MonadIO m, DOMHTMLImageElementK o) => o -> m T.Text +getDOMHTMLImageElementSrcset :: (MonadIO m, DOMHTMLImageElementK o) => o -> m (Maybe T.Text) getDOMHTMLImageElementSrcset obj = liftIO $ getObjectPropertyString obj "srcset" setDOMHTMLImageElementSrcset :: (MonadIO m, DOMHTMLImageElementK o) => o -> T.Text -> m () -setDOMHTMLImageElementSrcset obj val = liftIO $ setObjectPropertyString obj "srcset" val +setDOMHTMLImageElementSrcset obj val = liftIO $ setObjectPropertyString obj "srcset" (Just val) constructDOMHTMLImageElementSrcset :: T.Text -> IO ([Char], GValue) -constructDOMHTMLImageElementSrcset val = constructObjectPropertyString "srcset" val +constructDOMHTMLImageElementSrcset val = constructObjectPropertyString "srcset" (Just val) data DOMHTMLImageElementSrcsetPropertyInfo instance AttrInfo DOMHTMLImageElementSrcsetPropertyInfo where type AttrAllowedOps DOMHTMLImageElementSrcsetPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint DOMHTMLImageElementSrcsetPropertyInfo = (~) T.Text type AttrBaseTypeConstraint DOMHTMLImageElementSrcsetPropertyInfo = DOMHTMLImageElementK - type AttrGetType DOMHTMLImageElementSrcsetPropertyInfo = T.Text + type AttrGetType DOMHTMLImageElementSrcsetPropertyInfo = (Maybe T.Text) type AttrLabel DOMHTMLImageElementSrcsetPropertyInfo = "srcset" attrGet _ = getDOMHTMLImageElementSrcset attrSet _ = setDOMHTMLImageElementSrcset attrConstruct _ = constructDOMHTMLImageElementSrcset + attrClear _ = undefined -- VVV Prop "use-map" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Just False) -getDOMHTMLImageElementUseMap :: (MonadIO m, DOMHTMLImageElementK o) => o -> m T.Text +getDOMHTMLImageElementUseMap :: (MonadIO m, DOMHTMLImageElementK o) => o -> m (Maybe T.Text) getDOMHTMLImageElementUseMap obj = liftIO $ getObjectPropertyString obj "use-map" setDOMHTMLImageElementUseMap :: (MonadIO m, DOMHTMLImageElementK o) => o -> T.Text -> m () -setDOMHTMLImageElementUseMap obj val = liftIO $ setObjectPropertyString obj "use-map" val +setDOMHTMLImageElementUseMap obj val = liftIO $ setObjectPropertyString obj "use-map" (Just val) constructDOMHTMLImageElementUseMap :: T.Text -> IO ([Char], GValue) -constructDOMHTMLImageElementUseMap val = constructObjectPropertyString "use-map" val +constructDOMHTMLImageElementUseMap val = constructObjectPropertyString "use-map" (Just val) data DOMHTMLImageElementUseMapPropertyInfo instance AttrInfo DOMHTMLImageElementUseMapPropertyInfo where type AttrAllowedOps DOMHTMLImageElementUseMapPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint DOMHTMLImageElementUseMapPropertyInfo = (~) T.Text type AttrBaseTypeConstraint DOMHTMLImageElementUseMapPropertyInfo = DOMHTMLImageElementK - type AttrGetType DOMHTMLImageElementUseMapPropertyInfo = T.Text + type AttrGetType DOMHTMLImageElementUseMapPropertyInfo = (Maybe T.Text) type AttrLabel DOMHTMLImageElementUseMapPropertyInfo = "use-map" attrGet _ = getDOMHTMLImageElementUseMap attrSet _ = setDOMHTMLImageElementUseMap attrConstruct _ = constructDOMHTMLImageElementUseMap + attrClear _ = undefined -- VVV Prop "vspace" - -- Type: TBasicType TInt64 + -- Type: TBasicType TLong -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) -getDOMHTMLImageElementVspace :: (MonadIO m, DOMHTMLImageElementK o) => o -> m Int64 -getDOMHTMLImageElementVspace obj = liftIO $ getObjectPropertyInt64 obj "vspace" +getDOMHTMLImageElementVspace :: (MonadIO m, DOMHTMLImageElementK o) => o -> m CLong +getDOMHTMLImageElementVspace obj = liftIO $ getObjectPropertyLong obj "vspace" -setDOMHTMLImageElementVspace :: (MonadIO m, DOMHTMLImageElementK o) => o -> Int64 -> m () -setDOMHTMLImageElementVspace obj val = liftIO $ setObjectPropertyInt64 obj "vspace" val +setDOMHTMLImageElementVspace :: (MonadIO m, DOMHTMLImageElementK o) => o -> CLong -> m () +setDOMHTMLImageElementVspace obj val = liftIO $ setObjectPropertyLong obj "vspace" val -constructDOMHTMLImageElementVspace :: Int64 -> IO ([Char], GValue) -constructDOMHTMLImageElementVspace val = constructObjectPropertyInt64 "vspace" val +constructDOMHTMLImageElementVspace :: CLong -> IO ([Char], GValue) +constructDOMHTMLImageElementVspace val = constructObjectPropertyLong "vspace" val data DOMHTMLImageElementVspacePropertyInfo instance AttrInfo DOMHTMLImageElementVspacePropertyInfo where type AttrAllowedOps DOMHTMLImageElementVspacePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLImageElementVspacePropertyInfo = (~) Int64 + type AttrSetTypeConstraint DOMHTMLImageElementVspacePropertyInfo = (~) CLong type AttrBaseTypeConstraint DOMHTMLImageElementVspacePropertyInfo = DOMHTMLImageElementK - type AttrGetType DOMHTMLImageElementVspacePropertyInfo = Int64 + type AttrGetType DOMHTMLImageElementVspacePropertyInfo = CLong type AttrLabel DOMHTMLImageElementVspacePropertyInfo = "vspace" attrGet _ = getDOMHTMLImageElementVspace attrSet _ = setDOMHTMLImageElementVspace attrConstruct _ = constructDOMHTMLImageElementVspace + attrClear _ = undefined -- VVV Prop "width" - -- Type: TBasicType TInt64 + -- Type: TBasicType TLong -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) -getDOMHTMLImageElementWidth :: (MonadIO m, DOMHTMLImageElementK o) => o -> m Int64 -getDOMHTMLImageElementWidth obj = liftIO $ getObjectPropertyInt64 obj "width" +getDOMHTMLImageElementWidth :: (MonadIO m, DOMHTMLImageElementK o) => o -> m CLong +getDOMHTMLImageElementWidth obj = liftIO $ getObjectPropertyLong obj "width" -setDOMHTMLImageElementWidth :: (MonadIO m, DOMHTMLImageElementK o) => o -> Int64 -> m () -setDOMHTMLImageElementWidth obj val = liftIO $ setObjectPropertyInt64 obj "width" val +setDOMHTMLImageElementWidth :: (MonadIO m, DOMHTMLImageElementK o) => o -> CLong -> m () +setDOMHTMLImageElementWidth obj val = liftIO $ setObjectPropertyLong obj "width" val -constructDOMHTMLImageElementWidth :: Int64 -> IO ([Char], GValue) -constructDOMHTMLImageElementWidth val = constructObjectPropertyInt64 "width" val +constructDOMHTMLImageElementWidth :: CLong -> IO ([Char], GValue) +constructDOMHTMLImageElementWidth val = constructObjectPropertyLong "width" val data DOMHTMLImageElementWidthPropertyInfo instance AttrInfo DOMHTMLImageElementWidthPropertyInfo where type AttrAllowedOps DOMHTMLImageElementWidthPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLImageElementWidthPropertyInfo = (~) Int64 + type AttrSetTypeConstraint DOMHTMLImageElementWidthPropertyInfo = (~) CLong type AttrBaseTypeConstraint DOMHTMLImageElementWidthPropertyInfo = DOMHTMLImageElementK - type AttrGetType DOMHTMLImageElementWidthPropertyInfo = Int64 + type AttrGetType DOMHTMLImageElementWidthPropertyInfo = CLong type AttrLabel DOMHTMLImageElementWidthPropertyInfo = "width" attrGet _ = getDOMHTMLImageElementWidth attrSet _ = setDOMHTMLImageElementWidth attrConstruct _ = constructDOMHTMLImageElementWidth + attrClear _ = undefined -- VVV Prop "x" - -- Type: TBasicType TInt64 + -- Type: TBasicType TLong -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) -getDOMHTMLImageElementX :: (MonadIO m, DOMHTMLImageElementK o) => o -> m Int64 -getDOMHTMLImageElementX obj = liftIO $ getObjectPropertyInt64 obj "x" +getDOMHTMLImageElementX :: (MonadIO m, DOMHTMLImageElementK o) => o -> m CLong +getDOMHTMLImageElementX obj = liftIO $ getObjectPropertyLong obj "x" data DOMHTMLImageElementXPropertyInfo instance AttrInfo DOMHTMLImageElementXPropertyInfo where type AttrAllowedOps DOMHTMLImageElementXPropertyInfo = '[ 'AttrGet] type AttrSetTypeConstraint DOMHTMLImageElementXPropertyInfo = (~) () type AttrBaseTypeConstraint DOMHTMLImageElementXPropertyInfo = DOMHTMLImageElementK - type AttrGetType DOMHTMLImageElementXPropertyInfo = Int64 + type AttrGetType DOMHTMLImageElementXPropertyInfo = CLong type AttrLabel DOMHTMLImageElementXPropertyInfo = "x" attrGet _ = getDOMHTMLImageElementX attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "y" - -- Type: TBasicType TInt64 + -- Type: TBasicType TLong -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) -getDOMHTMLImageElementY :: (MonadIO m, DOMHTMLImageElementK o) => o -> m Int64 -getDOMHTMLImageElementY obj = liftIO $ getObjectPropertyInt64 obj "y" +getDOMHTMLImageElementY :: (MonadIO m, DOMHTMLImageElementK o) => o -> m CLong +getDOMHTMLImageElementY obj = liftIO $ getObjectPropertyLong obj "y" data DOMHTMLImageElementYPropertyInfo instance AttrInfo DOMHTMLImageElementYPropertyInfo where type AttrAllowedOps DOMHTMLImageElementYPropertyInfo = '[ 'AttrGet] type AttrSetTypeConstraint DOMHTMLImageElementYPropertyInfo = (~) () type AttrBaseTypeConstraint DOMHTMLImageElementYPropertyInfo = DOMHTMLImageElementK - type AttrGetType DOMHTMLImageElementYPropertyInfo = Int64 + type AttrGetType DOMHTMLImageElementYPropertyInfo = CLong type AttrLabel DOMHTMLImageElementYPropertyInfo = "y" attrGet _ = getDOMHTMLImageElementY attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined type instance AttributeList DOMHTMLImageElement = DOMHTMLImageElementAttributeList type DOMHTMLImageElementAttributeList = ('[ '("accessKey", DOMHTMLElementAccessKeyPropertyInfo), '("align", DOMHTMLImageElementAlignPropertyInfo), '("alt", DOMHTMLImageElementAltPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("baseUri", DOMNodeBaseUriPropertyInfo), '("border", DOMHTMLImageElementBorderPropertyInfo), '("childElementCount", DOMElementChildElementCountPropertyInfo), '("childNodes", DOMNodeChildNodesPropertyInfo), '("children", DOMHTMLElementChildrenPropertyInfo), '("classList", DOMElementClassListPropertyInfo), '("className", DOMElementClassNamePropertyInfo), '("clientHeight", DOMElementClientHeightPropertyInfo), '("clientLeft", DOMElementClientLeftPropertyInfo), '("clientTop", DOMElementClientTopPropertyInfo), '("clientWidth", DOMElementClientWidthPropertyInfo), '("complete", DOMHTMLImageElementCompletePropertyInfo), '("contentEditable", DOMHTMLElementContentEditablePropertyInfo), '("coreObject", DOMObjectCoreObjectPropertyInfo), '("crossOrigin", DOMHTMLImageElementCrossOriginPropertyInfo), '("dir", DOMHTMLElementDirPropertyInfo), '("draggable", DOMHTMLElementDraggablePropertyInfo), '("firstChild", DOMNodeFirstChildPropertyInfo), '("firstElementChild", DOMElementFirstElementChildPropertyInfo), '("height", DOMHTMLImageElementHeightPropertyInfo), '("hidden", DOMHTMLElementHiddenPropertyInfo), '("hspace", DOMHTMLImageElementHspacePropertyInfo), '("id", DOMElementIdPropertyInfo), '("innerHtml", DOMHTMLElementInnerHtmlPropertyInfo), '("innerText", DOMHTMLElementInnerTextPropertyInfo), '("isContentEditable", DOMHTMLElementIsContentEditablePropertyInfo), '("isMap", DOMHTMLImageElementIsMapPropertyInfo), '("lang", DOMHTMLElementLangPropertyInfo), '("lastChild", DOMNodeLastChildPropertyInfo), '("lastElementChild", DOMElementLastElementChildPropertyInfo), '("localName", DOMNodeLocalNamePropertyInfo), '("longDesc", DOMHTMLImageElementLongDescPropertyInfo), '("lowsrc", DOMHTMLImageElementLowsrcPropertyInfo), '("name", DOMHTMLImageElementNamePropertyInfo), '("namespaceUri", DOMNodeNamespaceUriPropertyInfo), '("naturalHeight", DOMHTMLImageElementNaturalHeightPropertyInfo), '("naturalWidth", DOMHTMLImageElementNaturalWidthPropertyInfo), '("nextElementSibling", DOMElementNextElementSiblingPropertyInfo), '("nextSibling", DOMNodeNextSiblingPropertyInfo), '("nodeName", DOMNodeNodeNamePropertyInfo), '("nodeType", DOMNodeNodeTypePropertyInfo), '("nodeValue", DOMNodeNodeValuePropertyInfo), '("offsetHeight", DOMElementOffsetHeightPropertyInfo), '("offsetLeft", DOMElementOffsetLeftPropertyInfo), '("offsetParent", DOMElementOffsetParentPropertyInfo), '("offsetTop", DOMElementOffsetTopPropertyInfo), '("offsetWidth", DOMElementOffsetWidthPropertyInfo), '("outerHtml", DOMHTMLElementOuterHtmlPropertyInfo), '("outerText", DOMHTMLElementOuterTextPropertyInfo), '("ownerDocument", DOMNodeOwnerDocumentPropertyInfo), '("parentElement", DOMNodeParentElementPropertyInfo), '("parentNode", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previousElementSibling", DOMElementPreviousElementSiblingPropertyInfo), '("previousSibling", DOMNodePreviousSiblingPropertyInfo), '("scrollHeight", DOMElementScrollHeightPropertyInfo), '("scrollLeft", DOMElementScrollLeftPropertyInfo), '("scrollTop", DOMElementScrollTopPropertyInfo), '("scrollWidth", DOMElementScrollWidthPropertyInfo), '("spellcheck", DOMHTMLElementSpellcheckPropertyInfo), '("src", DOMHTMLImageElementSrcPropertyInfo), '("srcset", DOMHTMLImageElementSrcsetPropertyInfo), '("style", DOMElementStylePropertyInfo), '("tabIndex", DOMHTMLElementTabIndexPropertyInfo), '("tagName", DOMElementTagNamePropertyInfo), '("textContent", DOMNodeTextContentPropertyInfo), '("title", DOMHTMLElementTitlePropertyInfo), '("translate", DOMHTMLElementTranslatePropertyInfo), '("useMap", DOMHTMLImageElementUseMapPropertyInfo), '("vspace", DOMHTMLImageElementVspacePropertyInfo), '("webkitRegionOverset", DOMElementWebkitRegionOversetPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo), '("width", DOMHTMLImageElementWidthPropertyInfo), '("x", DOMHTMLImageElementXPropertyInfo), '("y", DOMHTMLImageElementYPropertyInfo)] :: [(Symbol, *)]) +dOMHTMLImageElementAlign :: AttrLabelProxy "align" +dOMHTMLImageElementAlign = AttrLabelProxy + +dOMHTMLImageElementAlt :: AttrLabelProxy "alt" +dOMHTMLImageElementAlt = AttrLabelProxy + +dOMHTMLImageElementBorder :: AttrLabelProxy "border" +dOMHTMLImageElementBorder = AttrLabelProxy + +dOMHTMLImageElementComplete :: AttrLabelProxy "complete" +dOMHTMLImageElementComplete = AttrLabelProxy + +dOMHTMLImageElementCrossOrigin :: AttrLabelProxy "crossOrigin" +dOMHTMLImageElementCrossOrigin = AttrLabelProxy + +dOMHTMLImageElementHeight :: AttrLabelProxy "height" +dOMHTMLImageElementHeight = AttrLabelProxy + +dOMHTMLImageElementHspace :: AttrLabelProxy "hspace" +dOMHTMLImageElementHspace = AttrLabelProxy + +dOMHTMLImageElementIsMap :: AttrLabelProxy "isMap" +dOMHTMLImageElementIsMap = AttrLabelProxy + +dOMHTMLImageElementLongDesc :: AttrLabelProxy "longDesc" +dOMHTMLImageElementLongDesc = AttrLabelProxy + +dOMHTMLImageElementLowsrc :: AttrLabelProxy "lowsrc" +dOMHTMLImageElementLowsrc = AttrLabelProxy + +dOMHTMLImageElementName :: AttrLabelProxy "name" +dOMHTMLImageElementName = AttrLabelProxy + +dOMHTMLImageElementNaturalHeight :: AttrLabelProxy "naturalHeight" +dOMHTMLImageElementNaturalHeight = AttrLabelProxy + +dOMHTMLImageElementNaturalWidth :: AttrLabelProxy "naturalWidth" +dOMHTMLImageElementNaturalWidth = AttrLabelProxy + +dOMHTMLImageElementSrc :: AttrLabelProxy "src" +dOMHTMLImageElementSrc = AttrLabelProxy + +dOMHTMLImageElementSrcset :: AttrLabelProxy "srcset" +dOMHTMLImageElementSrcset = AttrLabelProxy + +dOMHTMLImageElementUseMap :: AttrLabelProxy "useMap" +dOMHTMLImageElementUseMap = AttrLabelProxy + +dOMHTMLImageElementVspace :: AttrLabelProxy "vspace" +dOMHTMLImageElementVspace = AttrLabelProxy + +dOMHTMLImageElementWidth :: AttrLabelProxy "width" +dOMHTMLImageElementWidth = AttrLabelProxy + +dOMHTMLImageElementX :: AttrLabelProxy "x" +dOMHTMLImageElementX = AttrLabelProxy + +dOMHTMLImageElementY :: AttrLabelProxy "y" +dOMHTMLImageElementY = AttrLabelProxy + type instance SignalList DOMHTMLImageElement = DOMHTMLImageElementSignalList type DOMHTMLImageElementSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) @@ -1021,7 +1141,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLImageElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -1051,7 +1171,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLImageElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -1081,7 +1201,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLImageElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -1111,7 +1231,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLImageElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -1139,7 +1259,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLImageElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -1169,19 +1289,19 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLImageElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TInt64 +-- returnType : Just (TBasicType TLong) -- throws : False -- Skip return : False foreign import ccall "webkit_dom_html_image_element_get_height" webkit_dom_html_image_element_get_height :: Ptr DOMHTMLImageElement -> -- _obj : TInterface "WebKit" "DOMHTMLImageElement" - IO Int64 + IO CLong dOMHTMLImageElementGetHeight :: (MonadIO m, DOMHTMLImageElementK a) => a -- _obj - -> m Int64 -- result + -> m CLong -- result dOMHTMLImageElementGetHeight _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- webkit_dom_html_image_element_get_height _obj' @@ -1189,26 +1309,26 @@ return result data DOMHTMLImageElementGetHeightMethodInfo -instance (signature ~ (m Int64), MonadIO m, DOMHTMLImageElementK a) => MethodInfo DOMHTMLImageElementGetHeightMethodInfo a signature where +instance (signature ~ (m CLong), MonadIO m, DOMHTMLImageElementK a) => MethodInfo DOMHTMLImageElementGetHeightMethodInfo a signature where overloadedMethod _ = dOMHTMLImageElementGetHeight -- method DOMHTMLImageElement::get_hspace -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLImageElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TInt64 +-- returnType : Just (TBasicType TLong) -- throws : False -- Skip return : False foreign import ccall "webkit_dom_html_image_element_get_hspace" webkit_dom_html_image_element_get_hspace :: Ptr DOMHTMLImageElement -> -- _obj : TInterface "WebKit" "DOMHTMLImageElement" - IO Int64 + IO CLong dOMHTMLImageElementGetHspace :: (MonadIO m, DOMHTMLImageElementK a) => a -- _obj - -> m Int64 -- result + -> m CLong -- result dOMHTMLImageElementGetHspace _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- webkit_dom_html_image_element_get_hspace _obj' @@ -1216,14 +1336,14 @@ return result data DOMHTMLImageElementGetHspaceMethodInfo -instance (signature ~ (m Int64), MonadIO m, DOMHTMLImageElementK a) => MethodInfo DOMHTMLImageElementGetHspaceMethodInfo a signature where +instance (signature ~ (m CLong), MonadIO m, DOMHTMLImageElementK a) => MethodInfo DOMHTMLImageElementGetHspaceMethodInfo a signature where overloadedMethod _ = dOMHTMLImageElementGetHspace -- method DOMHTMLImageElement::get_is_map -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLImageElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -1251,7 +1371,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLImageElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -1281,7 +1401,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLImageElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -1311,7 +1431,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLImageElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -1341,19 +1461,19 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLImageElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TInt64 +-- returnType : Just (TBasicType TLong) -- throws : False -- Skip return : False foreign import ccall "webkit_dom_html_image_element_get_natural_height" webkit_dom_html_image_element_get_natural_height :: Ptr DOMHTMLImageElement -> -- _obj : TInterface "WebKit" "DOMHTMLImageElement" - IO Int64 + IO CLong dOMHTMLImageElementGetNaturalHeight :: (MonadIO m, DOMHTMLImageElementK a) => a -- _obj - -> m Int64 -- result + -> m CLong -- result dOMHTMLImageElementGetNaturalHeight _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- webkit_dom_html_image_element_get_natural_height _obj' @@ -1361,26 +1481,26 @@ return result data DOMHTMLImageElementGetNaturalHeightMethodInfo -instance (signature ~ (m Int64), MonadIO m, DOMHTMLImageElementK a) => MethodInfo DOMHTMLImageElementGetNaturalHeightMethodInfo a signature where +instance (signature ~ (m CLong), MonadIO m, DOMHTMLImageElementK a) => MethodInfo DOMHTMLImageElementGetNaturalHeightMethodInfo a signature where overloadedMethod _ = dOMHTMLImageElementGetNaturalHeight -- method DOMHTMLImageElement::get_natural_width -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLImageElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TInt64 +-- returnType : Just (TBasicType TLong) -- throws : False -- Skip return : False foreign import ccall "webkit_dom_html_image_element_get_natural_width" webkit_dom_html_image_element_get_natural_width :: Ptr DOMHTMLImageElement -> -- _obj : TInterface "WebKit" "DOMHTMLImageElement" - IO Int64 + IO CLong dOMHTMLImageElementGetNaturalWidth :: (MonadIO m, DOMHTMLImageElementK a) => a -- _obj - -> m Int64 -- result + -> m CLong -- result dOMHTMLImageElementGetNaturalWidth _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- webkit_dom_html_image_element_get_natural_width _obj' @@ -1388,14 +1508,14 @@ return result data DOMHTMLImageElementGetNaturalWidthMethodInfo -instance (signature ~ (m Int64), MonadIO m, DOMHTMLImageElementK a) => MethodInfo DOMHTMLImageElementGetNaturalWidthMethodInfo a signature where +instance (signature ~ (m CLong), MonadIO m, DOMHTMLImageElementK a) => MethodInfo DOMHTMLImageElementGetNaturalWidthMethodInfo a signature where overloadedMethod _ = dOMHTMLImageElementGetNaturalWidth -- method DOMHTMLImageElement::get_src -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLImageElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -1425,7 +1545,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLImageElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -1455,7 +1575,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLImageElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -1485,19 +1605,19 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLImageElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TInt64 +-- returnType : Just (TBasicType TLong) -- throws : False -- Skip return : False foreign import ccall "webkit_dom_html_image_element_get_vspace" webkit_dom_html_image_element_get_vspace :: Ptr DOMHTMLImageElement -> -- _obj : TInterface "WebKit" "DOMHTMLImageElement" - IO Int64 + IO CLong dOMHTMLImageElementGetVspace :: (MonadIO m, DOMHTMLImageElementK a) => a -- _obj - -> m Int64 -- result + -> m CLong -- result dOMHTMLImageElementGetVspace _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- webkit_dom_html_image_element_get_vspace _obj' @@ -1505,26 +1625,26 @@ return result data DOMHTMLImageElementGetVspaceMethodInfo -instance (signature ~ (m Int64), MonadIO m, DOMHTMLImageElementK a) => MethodInfo DOMHTMLImageElementGetVspaceMethodInfo a signature where +instance (signature ~ (m CLong), MonadIO m, DOMHTMLImageElementK a) => MethodInfo DOMHTMLImageElementGetVspaceMethodInfo a signature where overloadedMethod _ = dOMHTMLImageElementGetVspace -- method DOMHTMLImageElement::get_width -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLImageElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TInt64 +-- returnType : Just (TBasicType TLong) -- throws : False -- Skip return : False foreign import ccall "webkit_dom_html_image_element_get_width" webkit_dom_html_image_element_get_width :: Ptr DOMHTMLImageElement -> -- _obj : TInterface "WebKit" "DOMHTMLImageElement" - IO Int64 + IO CLong dOMHTMLImageElementGetWidth :: (MonadIO m, DOMHTMLImageElementK a) => a -- _obj - -> m Int64 -- result + -> m CLong -- result dOMHTMLImageElementGetWidth _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- webkit_dom_html_image_element_get_width _obj' @@ -1532,26 +1652,26 @@ return result data DOMHTMLImageElementGetWidthMethodInfo -instance (signature ~ (m Int64), MonadIO m, DOMHTMLImageElementK a) => MethodInfo DOMHTMLImageElementGetWidthMethodInfo a signature where +instance (signature ~ (m CLong), MonadIO m, DOMHTMLImageElementK a) => MethodInfo DOMHTMLImageElementGetWidthMethodInfo a signature where overloadedMethod _ = dOMHTMLImageElementGetWidth -- method DOMHTMLImageElement::get_x -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLImageElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TInt64 +-- returnType : Just (TBasicType TLong) -- throws : False -- Skip return : False foreign import ccall "webkit_dom_html_image_element_get_x" webkit_dom_html_image_element_get_x :: Ptr DOMHTMLImageElement -> -- _obj : TInterface "WebKit" "DOMHTMLImageElement" - IO Int64 + IO CLong dOMHTMLImageElementGetX :: (MonadIO m, DOMHTMLImageElementK a) => a -- _obj - -> m Int64 -- result + -> m CLong -- result dOMHTMLImageElementGetX _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- webkit_dom_html_image_element_get_x _obj' @@ -1559,26 +1679,26 @@ return result data DOMHTMLImageElementGetXMethodInfo -instance (signature ~ (m Int64), MonadIO m, DOMHTMLImageElementK a) => MethodInfo DOMHTMLImageElementGetXMethodInfo a signature where +instance (signature ~ (m CLong), MonadIO m, DOMHTMLImageElementK a) => MethodInfo DOMHTMLImageElementGetXMethodInfo a signature where overloadedMethod _ = dOMHTMLImageElementGetX -- method DOMHTMLImageElement::get_y -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLImageElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TInt64 +-- returnType : Just (TBasicType TLong) -- throws : False -- Skip return : False foreign import ccall "webkit_dom_html_image_element_get_y" webkit_dom_html_image_element_get_y :: Ptr DOMHTMLImageElement -> -- _obj : TInterface "WebKit" "DOMHTMLImageElement" - IO Int64 + IO CLong dOMHTMLImageElementGetY :: (MonadIO m, DOMHTMLImageElementK a) => a -- _obj - -> m Int64 -- result + -> m CLong -- result dOMHTMLImageElementGetY _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- webkit_dom_html_image_element_get_y _obj' @@ -1586,14 +1706,14 @@ return result data DOMHTMLImageElementGetYMethodInfo -instance (signature ~ (m Int64), MonadIO m, DOMHTMLImageElementK a) => MethodInfo DOMHTMLImageElementGetYMethodInfo a signature where +instance (signature ~ (m CLong), MonadIO m, DOMHTMLImageElementK a) => MethodInfo DOMHTMLImageElementGetYMethodInfo a signature where overloadedMethod _ = dOMHTMLImageElementGetY -- method DOMHTMLImageElement::set_align -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLImageElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1624,7 +1744,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLImageElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1655,7 +1775,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLImageElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1686,7 +1806,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLImageElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1715,22 +1835,22 @@ -- method DOMHTMLImageElement::set_height -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLImageElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLImageElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TLong, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "webkit_dom_html_image_element_set_height" webkit_dom_html_image_element_set_height :: Ptr DOMHTMLImageElement -> -- _obj : TInterface "WebKit" "DOMHTMLImageElement" - Int64 -> -- value : TBasicType TInt64 + CLong -> -- value : TBasicType TLong IO () dOMHTMLImageElementSetHeight :: (MonadIO m, DOMHTMLImageElementK a) => a -- _obj - -> Int64 -- value + -> CLong -- value -> m () -- result dOMHTMLImageElementSetHeight _obj value = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj @@ -1739,27 +1859,27 @@ return () data DOMHTMLImageElementSetHeightMethodInfo -instance (signature ~ (Int64 -> m ()), MonadIO m, DOMHTMLImageElementK a) => MethodInfo DOMHTMLImageElementSetHeightMethodInfo a signature where +instance (signature ~ (CLong -> m ()), MonadIO m, DOMHTMLImageElementK a) => MethodInfo DOMHTMLImageElementSetHeightMethodInfo a signature where overloadedMethod _ = dOMHTMLImageElementSetHeight -- method DOMHTMLImageElement::set_hspace -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLImageElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLImageElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TLong, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "webkit_dom_html_image_element_set_hspace" webkit_dom_html_image_element_set_hspace :: Ptr DOMHTMLImageElement -> -- _obj : TInterface "WebKit" "DOMHTMLImageElement" - Int64 -> -- value : TBasicType TInt64 + CLong -> -- value : TBasicType TLong IO () dOMHTMLImageElementSetHspace :: (MonadIO m, DOMHTMLImageElementK a) => a -- _obj - -> Int64 -- value + -> CLong -- value -> m () -- result dOMHTMLImageElementSetHspace _obj value = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj @@ -1768,14 +1888,14 @@ return () data DOMHTMLImageElementSetHspaceMethodInfo -instance (signature ~ (Int64 -> m ()), MonadIO m, DOMHTMLImageElementK a) => MethodInfo DOMHTMLImageElementSetHspaceMethodInfo a signature where +instance (signature ~ (CLong -> m ()), MonadIO m, DOMHTMLImageElementK a) => MethodInfo DOMHTMLImageElementSetHspaceMethodInfo a signature where overloadedMethod _ = dOMHTMLImageElementSetHspace -- method DOMHTMLImageElement::set_is_map -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLImageElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1805,7 +1925,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLImageElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1836,7 +1956,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLImageElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1867,7 +1987,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLImageElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1898,7 +2018,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLImageElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1929,7 +2049,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLImageElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1960,7 +2080,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLImageElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1989,22 +2109,22 @@ -- method DOMHTMLImageElement::set_vspace -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLImageElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLImageElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TLong, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "webkit_dom_html_image_element_set_vspace" webkit_dom_html_image_element_set_vspace :: Ptr DOMHTMLImageElement -> -- _obj : TInterface "WebKit" "DOMHTMLImageElement" - Int64 -> -- value : TBasicType TInt64 + CLong -> -- value : TBasicType TLong IO () dOMHTMLImageElementSetVspace :: (MonadIO m, DOMHTMLImageElementK a) => a -- _obj - -> Int64 -- value + -> CLong -- value -> m () -- result dOMHTMLImageElementSetVspace _obj value = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj @@ -2013,27 +2133,27 @@ return () data DOMHTMLImageElementSetVspaceMethodInfo -instance (signature ~ (Int64 -> m ()), MonadIO m, DOMHTMLImageElementK a) => MethodInfo DOMHTMLImageElementSetVspaceMethodInfo a signature where +instance (signature ~ (CLong -> m ()), MonadIO m, DOMHTMLImageElementK a) => MethodInfo DOMHTMLImageElementSetVspaceMethodInfo a signature where overloadedMethod _ = dOMHTMLImageElementSetVspace -- method DOMHTMLImageElement::set_width -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLImageElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLImageElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TLong, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "webkit_dom_html_image_element_set_width" webkit_dom_html_image_element_set_width :: Ptr DOMHTMLImageElement -> -- _obj : TInterface "WebKit" "DOMHTMLImageElement" - Int64 -> -- value : TBasicType TInt64 + CLong -> -- value : TBasicType TLong IO () dOMHTMLImageElementSetWidth :: (MonadIO m, DOMHTMLImageElementK a) => a -- _obj - -> Int64 -- value + -> CLong -- value -> m () -- result dOMHTMLImageElementSetWidth _obj value = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj @@ -2042,7 +2162,7 @@ return () data DOMHTMLImageElementSetWidthMethodInfo -instance (signature ~ (Int64 -> m ()), MonadIO m, DOMHTMLImageElementK a) => MethodInfo DOMHTMLImageElementSetWidthMethodInfo a signature where +instance (signature ~ (CLong -> m ()), MonadIO m, DOMHTMLImageElementK a) => MethodInfo DOMHTMLImageElementSetWidthMethodInfo a signature where overloadedMethod _ = dOMHTMLImageElementSetWidth diff --git a/GI/WebKit/Objects/DOMHTMLImageElement.hs-boot b/GI/WebKit/Objects/DOMHTMLImageElement.hs-boot --- a/GI/WebKit/Objects/DOMHTMLImageElement.hs-boot +++ b/GI/WebKit/Objects/DOMHTMLImageElement.hs-boot @@ -1,8 +1,8 @@ module GI.WebKit.Objects.DOMHTMLImageElement where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map diff --git a/GI/WebKit/Objects/DOMHTMLInputElement.hs b/GI/WebKit/Objects/DOMHTMLInputElement.hs --- a/GI/WebKit/Objects/DOMHTMLInputElement.hs +++ b/GI/WebKit/Objects/DOMHTMLInputElement.hs @@ -503,6 +503,7 @@ -- ** Accept DOMHTMLInputElementAcceptPropertyInfo , constructDOMHTMLInputElementAccept , + dOMHTMLInputElementAccept , getDOMHTMLInputElementAccept , setDOMHTMLInputElementAccept , @@ -510,6 +511,7 @@ -- ** Align DOMHTMLInputElementAlignPropertyInfo , constructDOMHTMLInputElementAlign , + dOMHTMLInputElementAlign , getDOMHTMLInputElementAlign , setDOMHTMLInputElementAlign , @@ -517,6 +519,7 @@ -- ** Alt DOMHTMLInputElementAltPropertyInfo , constructDOMHTMLInputElementAlt , + dOMHTMLInputElementAlt , getDOMHTMLInputElementAlt , setDOMHTMLInputElementAlt , @@ -524,6 +527,7 @@ -- ** Autocapitalize DOMHTMLInputElementAutocapitalizePropertyInfo, constructDOMHTMLInputElementAutocapitalize, + dOMHTMLInputElementAutocapitalize , getDOMHTMLInputElementAutocapitalize , setDOMHTMLInputElementAutocapitalize , @@ -531,6 +535,7 @@ -- ** Autocomplete DOMHTMLInputElementAutocompletePropertyInfo, constructDOMHTMLInputElementAutocomplete, + dOMHTMLInputElementAutocomplete , getDOMHTMLInputElementAutocomplete , setDOMHTMLInputElementAutocomplete , @@ -538,6 +543,7 @@ -- ** Autocorrect DOMHTMLInputElementAutocorrectPropertyInfo, constructDOMHTMLInputElementAutocorrect , + dOMHTMLInputElementAutocorrect , getDOMHTMLInputElementAutocorrect , setDOMHTMLInputElementAutocorrect , @@ -545,6 +551,7 @@ -- ** Autofocus DOMHTMLInputElementAutofocusPropertyInfo, constructDOMHTMLInputElementAutofocus , + dOMHTMLInputElementAutofocus , getDOMHTMLInputElementAutofocus , setDOMHTMLInputElementAutofocus , @@ -552,6 +559,7 @@ -- ** Capture DOMHTMLInputElementCapturePropertyInfo , constructDOMHTMLInputElementCapture , + dOMHTMLInputElementCapture , getDOMHTMLInputElementCapture , setDOMHTMLInputElementCapture , @@ -559,6 +567,7 @@ -- ** Checked DOMHTMLInputElementCheckedPropertyInfo , constructDOMHTMLInputElementChecked , + dOMHTMLInputElementChecked , getDOMHTMLInputElementChecked , setDOMHTMLInputElementChecked , @@ -566,6 +575,7 @@ -- ** DefaultChecked DOMHTMLInputElementDefaultCheckedPropertyInfo, constructDOMHTMLInputElementDefaultChecked, + dOMHTMLInputElementDefaultChecked , getDOMHTMLInputElementDefaultChecked , setDOMHTMLInputElementDefaultChecked , @@ -573,6 +583,7 @@ -- ** DefaultValue DOMHTMLInputElementDefaultValuePropertyInfo, constructDOMHTMLInputElementDefaultValue, + dOMHTMLInputElementDefaultValue , getDOMHTMLInputElementDefaultValue , setDOMHTMLInputElementDefaultValue , @@ -580,6 +591,7 @@ -- ** DirName DOMHTMLInputElementDirNamePropertyInfo , constructDOMHTMLInputElementDirName , + dOMHTMLInputElementDirName , getDOMHTMLInputElementDirName , setDOMHTMLInputElementDirName , @@ -587,23 +599,27 @@ -- ** Disabled DOMHTMLInputElementDisabledPropertyInfo , constructDOMHTMLInputElementDisabled , + dOMHTMLInputElementDisabled , getDOMHTMLInputElementDisabled , setDOMHTMLInputElementDisabled , -- ** Files DOMHTMLInputElementFilesPropertyInfo , + dOMHTMLInputElementFiles , getDOMHTMLInputElementFiles , -- ** Form DOMHTMLInputElementFormPropertyInfo , + dOMHTMLInputElementForm , getDOMHTMLInputElementForm , -- ** FormAction DOMHTMLInputElementFormActionPropertyInfo, constructDOMHTMLInputElementFormAction , + dOMHTMLInputElementFormAction , getDOMHTMLInputElementFormAction , setDOMHTMLInputElementFormAction , @@ -611,6 +627,7 @@ -- ** FormEnctype DOMHTMLInputElementFormEnctypePropertyInfo, constructDOMHTMLInputElementFormEnctype , + dOMHTMLInputElementFormEnctype , getDOMHTMLInputElementFormEnctype , setDOMHTMLInputElementFormEnctype , @@ -618,6 +635,7 @@ -- ** FormMethod DOMHTMLInputElementFormMethodPropertyInfo, constructDOMHTMLInputElementFormMethod , + dOMHTMLInputElementFormMethod , getDOMHTMLInputElementFormMethod , setDOMHTMLInputElementFormMethod , @@ -625,6 +643,7 @@ -- ** FormNoValidate DOMHTMLInputElementFormNoValidatePropertyInfo, constructDOMHTMLInputElementFormNoValidate, + dOMHTMLInputElementFormNoValidate , getDOMHTMLInputElementFormNoValidate , setDOMHTMLInputElementFormNoValidate , @@ -632,6 +651,7 @@ -- ** FormTarget DOMHTMLInputElementFormTargetPropertyInfo, constructDOMHTMLInputElementFormTarget , + dOMHTMLInputElementFormTarget , getDOMHTMLInputElementFormTarget , setDOMHTMLInputElementFormTarget , @@ -639,6 +659,7 @@ -- ** Height DOMHTMLInputElementHeightPropertyInfo , constructDOMHTMLInputElementHeight , + dOMHTMLInputElementHeight , getDOMHTMLInputElementHeight , setDOMHTMLInputElementHeight , @@ -646,6 +667,7 @@ -- ** Incremental DOMHTMLInputElementIncrementalPropertyInfo, constructDOMHTMLInputElementIncremental , + dOMHTMLInputElementIncremental , getDOMHTMLInputElementIncremental , setDOMHTMLInputElementIncremental , @@ -653,23 +675,27 @@ -- ** Indeterminate DOMHTMLInputElementIndeterminatePropertyInfo, constructDOMHTMLInputElementIndeterminate, + dOMHTMLInputElementIndeterminate , getDOMHTMLInputElementIndeterminate , setDOMHTMLInputElementIndeterminate , -- ** Labels DOMHTMLInputElementLabelsPropertyInfo , + dOMHTMLInputElementLabels , getDOMHTMLInputElementLabels , -- ** List DOMHTMLInputElementListPropertyInfo , + dOMHTMLInputElementList , getDOMHTMLInputElementList , -- ** Max DOMHTMLInputElementMaxPropertyInfo , constructDOMHTMLInputElementMax , + dOMHTMLInputElementMax , getDOMHTMLInputElementMax , setDOMHTMLInputElementMax , @@ -677,6 +703,7 @@ -- ** MaxLength DOMHTMLInputElementMaxLengthPropertyInfo, constructDOMHTMLInputElementMaxLength , + dOMHTMLInputElementMaxLength , getDOMHTMLInputElementMaxLength , setDOMHTMLInputElementMaxLength , @@ -684,6 +711,7 @@ -- ** Min DOMHTMLInputElementMinPropertyInfo , constructDOMHTMLInputElementMin , + dOMHTMLInputElementMin , getDOMHTMLInputElementMin , setDOMHTMLInputElementMin , @@ -691,6 +719,7 @@ -- ** Multiple DOMHTMLInputElementMultiplePropertyInfo , constructDOMHTMLInputElementMultiple , + dOMHTMLInputElementMultiple , getDOMHTMLInputElementMultiple , setDOMHTMLInputElementMultiple , @@ -698,6 +727,7 @@ -- ** Name DOMHTMLInputElementNamePropertyInfo , constructDOMHTMLInputElementName , + dOMHTMLInputElementName , getDOMHTMLInputElementName , setDOMHTMLInputElementName , @@ -705,6 +735,7 @@ -- ** Pattern DOMHTMLInputElementPatternPropertyInfo , constructDOMHTMLInputElementPattern , + dOMHTMLInputElementPattern , getDOMHTMLInputElementPattern , setDOMHTMLInputElementPattern , @@ -712,6 +743,7 @@ -- ** Placeholder DOMHTMLInputElementPlaceholderPropertyInfo, constructDOMHTMLInputElementPlaceholder , + dOMHTMLInputElementPlaceholder , getDOMHTMLInputElementPlaceholder , setDOMHTMLInputElementPlaceholder , @@ -719,6 +751,7 @@ -- ** ReadOnly DOMHTMLInputElementReadOnlyPropertyInfo , constructDOMHTMLInputElementReadOnly , + dOMHTMLInputElementReadOnly , getDOMHTMLInputElementReadOnly , setDOMHTMLInputElementReadOnly , @@ -726,6 +759,7 @@ -- ** Required DOMHTMLInputElementRequiredPropertyInfo , constructDOMHTMLInputElementRequired , + dOMHTMLInputElementRequired , getDOMHTMLInputElementRequired , setDOMHTMLInputElementRequired , @@ -733,6 +767,7 @@ -- ** Size DOMHTMLInputElementSizePropertyInfo , constructDOMHTMLInputElementSize , + dOMHTMLInputElementSize , getDOMHTMLInputElementSize , setDOMHTMLInputElementSize , @@ -740,6 +775,7 @@ -- ** Src DOMHTMLInputElementSrcPropertyInfo , constructDOMHTMLInputElementSrc , + dOMHTMLInputElementSrc , getDOMHTMLInputElementSrc , setDOMHTMLInputElementSrc , @@ -747,13 +783,16 @@ -- ** Step DOMHTMLInputElementStepPropertyInfo , constructDOMHTMLInputElementStep , + dOMHTMLInputElementStep , getDOMHTMLInputElementStep , setDOMHTMLInputElementStep , -- ** Type DOMHTMLInputElementTypePropertyInfo , + clearDOMHTMLInputElementType , constructDOMHTMLInputElementType , + dOMHTMLInputElementType , getDOMHTMLInputElementType , setDOMHTMLInputElementType , @@ -761,23 +800,27 @@ -- ** UseMap DOMHTMLInputElementUseMapPropertyInfo , constructDOMHTMLInputElementUseMap , + dOMHTMLInputElementUseMap , getDOMHTMLInputElementUseMap , setDOMHTMLInputElementUseMap , -- ** ValidationMessage DOMHTMLInputElementValidationMessagePropertyInfo, + dOMHTMLInputElementValidationMessage , getDOMHTMLInputElementValidationMessage , -- ** Validity DOMHTMLInputElementValidityPropertyInfo , + dOMHTMLInputElementValidity , getDOMHTMLInputElementValidity , -- ** Value DOMHTMLInputElementValuePropertyInfo , constructDOMHTMLInputElementValue , + dOMHTMLInputElementValue , getDOMHTMLInputElementValue , setDOMHTMLInputElementValue , @@ -785,6 +828,7 @@ -- ** ValueAsNumber DOMHTMLInputElementValueAsNumberPropertyInfo, constructDOMHTMLInputElementValueAsNumber, + dOMHTMLInputElementValueAsNumber , getDOMHTMLInputElementValueAsNumber , setDOMHTMLInputElementValueAsNumber , @@ -792,6 +836,7 @@ -- ** WebkitGrammar DOMHTMLInputElementWebkitGrammarPropertyInfo, constructDOMHTMLInputElementWebkitGrammar, + dOMHTMLInputElementWebkitGrammar , getDOMHTMLInputElementWebkitGrammar , setDOMHTMLInputElementWebkitGrammar , @@ -799,6 +844,7 @@ -- ** WebkitSpeech DOMHTMLInputElementWebkitSpeechPropertyInfo, constructDOMHTMLInputElementWebkitSpeech, + dOMHTMLInputElementWebkitSpeech , getDOMHTMLInputElementWebkitSpeech , setDOMHTMLInputElementWebkitSpeech , @@ -806,6 +852,7 @@ -- ** Webkitdirectory DOMHTMLInputElementWebkitdirectoryPropertyInfo, constructDOMHTMLInputElementWebkitdirectory, + dOMHTMLInputElementWebkitdirectory , getDOMHTMLInputElementWebkitdirectory , setDOMHTMLInputElementWebkitdirectory , @@ -813,12 +860,14 @@ -- ** Width DOMHTMLInputElementWidthPropertyInfo , constructDOMHTMLInputElementWidth , + dOMHTMLInputElementWidth , getDOMHTMLInputElementWidth , setDOMHTMLInputElementWidth , -- ** WillValidate DOMHTMLInputElementWillValidatePropertyInfo, + dOMHTMLInputElementWillValidate , getDOMHTMLInputElementWillValidate , @@ -826,9 +875,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map @@ -1122,126 +1171,137 @@ -- VVV Prop "accept" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Just False) -getDOMHTMLInputElementAccept :: (MonadIO m, DOMHTMLInputElementK o) => o -> m T.Text +getDOMHTMLInputElementAccept :: (MonadIO m, DOMHTMLInputElementK o) => o -> m (Maybe T.Text) getDOMHTMLInputElementAccept obj = liftIO $ getObjectPropertyString obj "accept" setDOMHTMLInputElementAccept :: (MonadIO m, DOMHTMLInputElementK o) => o -> T.Text -> m () -setDOMHTMLInputElementAccept obj val = liftIO $ setObjectPropertyString obj "accept" val +setDOMHTMLInputElementAccept obj val = liftIO $ setObjectPropertyString obj "accept" (Just val) constructDOMHTMLInputElementAccept :: T.Text -> IO ([Char], GValue) -constructDOMHTMLInputElementAccept val = constructObjectPropertyString "accept" val +constructDOMHTMLInputElementAccept val = constructObjectPropertyString "accept" (Just val) data DOMHTMLInputElementAcceptPropertyInfo instance AttrInfo DOMHTMLInputElementAcceptPropertyInfo where type AttrAllowedOps DOMHTMLInputElementAcceptPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint DOMHTMLInputElementAcceptPropertyInfo = (~) T.Text type AttrBaseTypeConstraint DOMHTMLInputElementAcceptPropertyInfo = DOMHTMLInputElementK - type AttrGetType DOMHTMLInputElementAcceptPropertyInfo = T.Text + type AttrGetType DOMHTMLInputElementAcceptPropertyInfo = (Maybe T.Text) type AttrLabel DOMHTMLInputElementAcceptPropertyInfo = "accept" attrGet _ = getDOMHTMLInputElementAccept attrSet _ = setDOMHTMLInputElementAccept attrConstruct _ = constructDOMHTMLInputElementAccept + attrClear _ = undefined -- VVV Prop "align" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Just False) -getDOMHTMLInputElementAlign :: (MonadIO m, DOMHTMLInputElementK o) => o -> m T.Text +getDOMHTMLInputElementAlign :: (MonadIO m, DOMHTMLInputElementK o) => o -> m (Maybe T.Text) getDOMHTMLInputElementAlign obj = liftIO $ getObjectPropertyString obj "align" setDOMHTMLInputElementAlign :: (MonadIO m, DOMHTMLInputElementK o) => o -> T.Text -> m () -setDOMHTMLInputElementAlign obj val = liftIO $ setObjectPropertyString obj "align" val +setDOMHTMLInputElementAlign obj val = liftIO $ setObjectPropertyString obj "align" (Just val) constructDOMHTMLInputElementAlign :: T.Text -> IO ([Char], GValue) -constructDOMHTMLInputElementAlign val = constructObjectPropertyString "align" val +constructDOMHTMLInputElementAlign val = constructObjectPropertyString "align" (Just val) data DOMHTMLInputElementAlignPropertyInfo instance AttrInfo DOMHTMLInputElementAlignPropertyInfo where type AttrAllowedOps DOMHTMLInputElementAlignPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint DOMHTMLInputElementAlignPropertyInfo = (~) T.Text type AttrBaseTypeConstraint DOMHTMLInputElementAlignPropertyInfo = DOMHTMLInputElementK - type AttrGetType DOMHTMLInputElementAlignPropertyInfo = T.Text + type AttrGetType DOMHTMLInputElementAlignPropertyInfo = (Maybe T.Text) type AttrLabel DOMHTMLInputElementAlignPropertyInfo = "align" attrGet _ = getDOMHTMLInputElementAlign attrSet _ = setDOMHTMLInputElementAlign attrConstruct _ = constructDOMHTMLInputElementAlign + attrClear _ = undefined -- VVV Prop "alt" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Just False) -getDOMHTMLInputElementAlt :: (MonadIO m, DOMHTMLInputElementK o) => o -> m T.Text +getDOMHTMLInputElementAlt :: (MonadIO m, DOMHTMLInputElementK o) => o -> m (Maybe T.Text) getDOMHTMLInputElementAlt obj = liftIO $ getObjectPropertyString obj "alt" setDOMHTMLInputElementAlt :: (MonadIO m, DOMHTMLInputElementK o) => o -> T.Text -> m () -setDOMHTMLInputElementAlt obj val = liftIO $ setObjectPropertyString obj "alt" val +setDOMHTMLInputElementAlt obj val = liftIO $ setObjectPropertyString obj "alt" (Just val) constructDOMHTMLInputElementAlt :: T.Text -> IO ([Char], GValue) -constructDOMHTMLInputElementAlt val = constructObjectPropertyString "alt" val +constructDOMHTMLInputElementAlt val = constructObjectPropertyString "alt" (Just val) data DOMHTMLInputElementAltPropertyInfo instance AttrInfo DOMHTMLInputElementAltPropertyInfo where type AttrAllowedOps DOMHTMLInputElementAltPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint DOMHTMLInputElementAltPropertyInfo = (~) T.Text type AttrBaseTypeConstraint DOMHTMLInputElementAltPropertyInfo = DOMHTMLInputElementK - type AttrGetType DOMHTMLInputElementAltPropertyInfo = T.Text + type AttrGetType DOMHTMLInputElementAltPropertyInfo = (Maybe T.Text) type AttrLabel DOMHTMLInputElementAltPropertyInfo = "alt" attrGet _ = getDOMHTMLInputElementAlt attrSet _ = setDOMHTMLInputElementAlt attrConstruct _ = constructDOMHTMLInputElementAlt + attrClear _ = undefined -- VVV Prop "autocapitalize" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Just False) -getDOMHTMLInputElementAutocapitalize :: (MonadIO m, DOMHTMLInputElementK o) => o -> m T.Text +getDOMHTMLInputElementAutocapitalize :: (MonadIO m, DOMHTMLInputElementK o) => o -> m (Maybe T.Text) getDOMHTMLInputElementAutocapitalize obj = liftIO $ getObjectPropertyString obj "autocapitalize" setDOMHTMLInputElementAutocapitalize :: (MonadIO m, DOMHTMLInputElementK o) => o -> T.Text -> m () -setDOMHTMLInputElementAutocapitalize obj val = liftIO $ setObjectPropertyString obj "autocapitalize" val +setDOMHTMLInputElementAutocapitalize obj val = liftIO $ setObjectPropertyString obj "autocapitalize" (Just val) constructDOMHTMLInputElementAutocapitalize :: T.Text -> IO ([Char], GValue) -constructDOMHTMLInputElementAutocapitalize val = constructObjectPropertyString "autocapitalize" val +constructDOMHTMLInputElementAutocapitalize val = constructObjectPropertyString "autocapitalize" (Just val) data DOMHTMLInputElementAutocapitalizePropertyInfo instance AttrInfo DOMHTMLInputElementAutocapitalizePropertyInfo where type AttrAllowedOps DOMHTMLInputElementAutocapitalizePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint DOMHTMLInputElementAutocapitalizePropertyInfo = (~) T.Text type AttrBaseTypeConstraint DOMHTMLInputElementAutocapitalizePropertyInfo = DOMHTMLInputElementK - type AttrGetType DOMHTMLInputElementAutocapitalizePropertyInfo = T.Text + type AttrGetType DOMHTMLInputElementAutocapitalizePropertyInfo = (Maybe T.Text) type AttrLabel DOMHTMLInputElementAutocapitalizePropertyInfo = "autocapitalize" attrGet _ = getDOMHTMLInputElementAutocapitalize attrSet _ = setDOMHTMLInputElementAutocapitalize attrConstruct _ = constructDOMHTMLInputElementAutocapitalize + attrClear _ = undefined -- VVV Prop "autocomplete" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Just False) -getDOMHTMLInputElementAutocomplete :: (MonadIO m, DOMHTMLInputElementK o) => o -> m T.Text +getDOMHTMLInputElementAutocomplete :: (MonadIO m, DOMHTMLInputElementK o) => o -> m (Maybe T.Text) getDOMHTMLInputElementAutocomplete obj = liftIO $ getObjectPropertyString obj "autocomplete" setDOMHTMLInputElementAutocomplete :: (MonadIO m, DOMHTMLInputElementK o) => o -> T.Text -> m () -setDOMHTMLInputElementAutocomplete obj val = liftIO $ setObjectPropertyString obj "autocomplete" val +setDOMHTMLInputElementAutocomplete obj val = liftIO $ setObjectPropertyString obj "autocomplete" (Just val) constructDOMHTMLInputElementAutocomplete :: T.Text -> IO ([Char], GValue) -constructDOMHTMLInputElementAutocomplete val = constructObjectPropertyString "autocomplete" val +constructDOMHTMLInputElementAutocomplete val = constructObjectPropertyString "autocomplete" (Just val) data DOMHTMLInputElementAutocompletePropertyInfo instance AttrInfo DOMHTMLInputElementAutocompletePropertyInfo where type AttrAllowedOps DOMHTMLInputElementAutocompletePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint DOMHTMLInputElementAutocompletePropertyInfo = (~) T.Text type AttrBaseTypeConstraint DOMHTMLInputElementAutocompletePropertyInfo = DOMHTMLInputElementK - type AttrGetType DOMHTMLInputElementAutocompletePropertyInfo = T.Text + type AttrGetType DOMHTMLInputElementAutocompletePropertyInfo = (Maybe T.Text) type AttrLabel DOMHTMLInputElementAutocompletePropertyInfo = "autocomplete" attrGet _ = getDOMHTMLInputElementAutocomplete attrSet _ = setDOMHTMLInputElementAutocomplete attrConstruct _ = constructDOMHTMLInputElementAutocomplete + attrClear _ = undefined -- VVV Prop "autocorrect" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getDOMHTMLInputElementAutocorrect :: (MonadIO m, DOMHTMLInputElementK o) => o -> m Bool getDOMHTMLInputElementAutocorrect obj = liftIO $ getObjectPropertyBool obj "autocorrect" @@ -1262,10 +1322,12 @@ attrGet _ = getDOMHTMLInputElementAutocorrect attrSet _ = setDOMHTMLInputElementAutocorrect attrConstruct _ = constructDOMHTMLInputElementAutocorrect + attrClear _ = undefined -- VVV Prop "autofocus" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getDOMHTMLInputElementAutofocus :: (MonadIO m, DOMHTMLInputElementK o) => o -> m Bool getDOMHTMLInputElementAutofocus obj = liftIO $ getObjectPropertyBool obj "autofocus" @@ -1286,34 +1348,38 @@ attrGet _ = getDOMHTMLInputElementAutofocus attrSet _ = setDOMHTMLInputElementAutofocus attrConstruct _ = constructDOMHTMLInputElementAutofocus + attrClear _ = undefined -- VVV Prop "capture" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Just False) -getDOMHTMLInputElementCapture :: (MonadIO m, DOMHTMLInputElementK o) => o -> m T.Text +getDOMHTMLInputElementCapture :: (MonadIO m, DOMHTMLInputElementK o) => o -> m (Maybe T.Text) getDOMHTMLInputElementCapture obj = liftIO $ getObjectPropertyString obj "capture" setDOMHTMLInputElementCapture :: (MonadIO m, DOMHTMLInputElementK o) => o -> T.Text -> m () -setDOMHTMLInputElementCapture obj val = liftIO $ setObjectPropertyString obj "capture" val +setDOMHTMLInputElementCapture obj val = liftIO $ setObjectPropertyString obj "capture" (Just val) constructDOMHTMLInputElementCapture :: T.Text -> IO ([Char], GValue) -constructDOMHTMLInputElementCapture val = constructObjectPropertyString "capture" val +constructDOMHTMLInputElementCapture val = constructObjectPropertyString "capture" (Just val) data DOMHTMLInputElementCapturePropertyInfo instance AttrInfo DOMHTMLInputElementCapturePropertyInfo where type AttrAllowedOps DOMHTMLInputElementCapturePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint DOMHTMLInputElementCapturePropertyInfo = (~) T.Text type AttrBaseTypeConstraint DOMHTMLInputElementCapturePropertyInfo = DOMHTMLInputElementK - type AttrGetType DOMHTMLInputElementCapturePropertyInfo = T.Text + type AttrGetType DOMHTMLInputElementCapturePropertyInfo = (Maybe T.Text) type AttrLabel DOMHTMLInputElementCapturePropertyInfo = "capture" attrGet _ = getDOMHTMLInputElementCapture attrSet _ = setDOMHTMLInputElementCapture attrConstruct _ = constructDOMHTMLInputElementCapture + attrClear _ = undefined -- VVV Prop "checked" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getDOMHTMLInputElementChecked :: (MonadIO m, DOMHTMLInputElementK o) => o -> m Bool getDOMHTMLInputElementChecked obj = liftIO $ getObjectPropertyBool obj "checked" @@ -1334,10 +1400,12 @@ attrGet _ = getDOMHTMLInputElementChecked attrSet _ = setDOMHTMLInputElementChecked attrConstruct _ = constructDOMHTMLInputElementChecked + attrClear _ = undefined -- VVV Prop "default-checked" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getDOMHTMLInputElementDefaultChecked :: (MonadIO m, DOMHTMLInputElementK o) => o -> m Bool getDOMHTMLInputElementDefaultChecked obj = liftIO $ getObjectPropertyBool obj "default-checked" @@ -1358,58 +1426,64 @@ attrGet _ = getDOMHTMLInputElementDefaultChecked attrSet _ = setDOMHTMLInputElementDefaultChecked attrConstruct _ = constructDOMHTMLInputElementDefaultChecked + attrClear _ = undefined -- VVV Prop "default-value" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Just False) -getDOMHTMLInputElementDefaultValue :: (MonadIO m, DOMHTMLInputElementK o) => o -> m T.Text +getDOMHTMLInputElementDefaultValue :: (MonadIO m, DOMHTMLInputElementK o) => o -> m (Maybe T.Text) getDOMHTMLInputElementDefaultValue obj = liftIO $ getObjectPropertyString obj "default-value" setDOMHTMLInputElementDefaultValue :: (MonadIO m, DOMHTMLInputElementK o) => o -> T.Text -> m () -setDOMHTMLInputElementDefaultValue obj val = liftIO $ setObjectPropertyString obj "default-value" val +setDOMHTMLInputElementDefaultValue obj val = liftIO $ setObjectPropertyString obj "default-value" (Just val) constructDOMHTMLInputElementDefaultValue :: T.Text -> IO ([Char], GValue) -constructDOMHTMLInputElementDefaultValue val = constructObjectPropertyString "default-value" val +constructDOMHTMLInputElementDefaultValue val = constructObjectPropertyString "default-value" (Just val) data DOMHTMLInputElementDefaultValuePropertyInfo instance AttrInfo DOMHTMLInputElementDefaultValuePropertyInfo where type AttrAllowedOps DOMHTMLInputElementDefaultValuePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint DOMHTMLInputElementDefaultValuePropertyInfo = (~) T.Text type AttrBaseTypeConstraint DOMHTMLInputElementDefaultValuePropertyInfo = DOMHTMLInputElementK - type AttrGetType DOMHTMLInputElementDefaultValuePropertyInfo = T.Text + type AttrGetType DOMHTMLInputElementDefaultValuePropertyInfo = (Maybe T.Text) type AttrLabel DOMHTMLInputElementDefaultValuePropertyInfo = "default-value" attrGet _ = getDOMHTMLInputElementDefaultValue attrSet _ = setDOMHTMLInputElementDefaultValue attrConstruct _ = constructDOMHTMLInputElementDefaultValue + attrClear _ = undefined -- VVV Prop "dir-name" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Just False) -getDOMHTMLInputElementDirName :: (MonadIO m, DOMHTMLInputElementK o) => o -> m T.Text +getDOMHTMLInputElementDirName :: (MonadIO m, DOMHTMLInputElementK o) => o -> m (Maybe T.Text) getDOMHTMLInputElementDirName obj = liftIO $ getObjectPropertyString obj "dir-name" setDOMHTMLInputElementDirName :: (MonadIO m, DOMHTMLInputElementK o) => o -> T.Text -> m () -setDOMHTMLInputElementDirName obj val = liftIO $ setObjectPropertyString obj "dir-name" val +setDOMHTMLInputElementDirName obj val = liftIO $ setObjectPropertyString obj "dir-name" (Just val) constructDOMHTMLInputElementDirName :: T.Text -> IO ([Char], GValue) -constructDOMHTMLInputElementDirName val = constructObjectPropertyString "dir-name" val +constructDOMHTMLInputElementDirName val = constructObjectPropertyString "dir-name" (Just val) data DOMHTMLInputElementDirNamePropertyInfo instance AttrInfo DOMHTMLInputElementDirNamePropertyInfo where type AttrAllowedOps DOMHTMLInputElementDirNamePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint DOMHTMLInputElementDirNamePropertyInfo = (~) T.Text type AttrBaseTypeConstraint DOMHTMLInputElementDirNamePropertyInfo = DOMHTMLInputElementK - type AttrGetType DOMHTMLInputElementDirNamePropertyInfo = T.Text + type AttrGetType DOMHTMLInputElementDirNamePropertyInfo = (Maybe T.Text) type AttrLabel DOMHTMLInputElementDirNamePropertyInfo = "dir-name" attrGet _ = getDOMHTMLInputElementDirName attrSet _ = setDOMHTMLInputElementDirName attrConstruct _ = constructDOMHTMLInputElementDirName + attrClear _ = undefined -- VVV Prop "disabled" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getDOMHTMLInputElementDisabled :: (MonadIO m, DOMHTMLInputElementK o) => o -> m Bool getDOMHTMLInputElementDisabled obj = liftIO $ getObjectPropertyBool obj "disabled" @@ -1430,12 +1504,14 @@ attrGet _ = getDOMHTMLInputElementDisabled attrSet _ = setDOMHTMLInputElementDisabled attrConstruct _ = constructDOMHTMLInputElementDisabled + attrClear _ = undefined -- VVV Prop "files" -- Type: TInterface "WebKit" "DOMFileList" -- Flags: [PropertyReadable] + -- Nullable: (Nothing,Just False) -getDOMHTMLInputElementFiles :: (MonadIO m, DOMHTMLInputElementK o) => o -> m DOMFileList +getDOMHTMLInputElementFiles :: (MonadIO m, DOMHTMLInputElementK o) => o -> m (Maybe DOMFileList) getDOMHTMLInputElementFiles obj = liftIO $ getObjectPropertyObject obj "files" DOMFileList data DOMHTMLInputElementFilesPropertyInfo @@ -1443,22 +1519,24 @@ type AttrAllowedOps DOMHTMLInputElementFilesPropertyInfo = '[ 'AttrGet] type AttrSetTypeConstraint DOMHTMLInputElementFilesPropertyInfo = (~) () type AttrBaseTypeConstraint DOMHTMLInputElementFilesPropertyInfo = DOMHTMLInputElementK - type AttrGetType DOMHTMLInputElementFilesPropertyInfo = DOMFileList + type AttrGetType DOMHTMLInputElementFilesPropertyInfo = (Maybe DOMFileList) type AttrLabel DOMHTMLInputElementFilesPropertyInfo = "files" attrGet _ = getDOMHTMLInputElementFiles attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "form" -- Type: TInterface "WebKit" "DOMHTMLFormElement" -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) getDOMHTMLInputElementForm :: (MonadIO m, DOMHTMLInputElementK o) => o -> m DOMHTMLFormElement -getDOMHTMLInputElementForm obj = liftIO $ getObjectPropertyObject obj "form" DOMHTMLFormElement +getDOMHTMLInputElementForm obj = liftIO $ checkUnexpectedNothing "getDOMHTMLInputElementForm" $ getObjectPropertyObject obj "form" DOMHTMLFormElement data DOMHTMLInputElementFormPropertyInfo instance AttrInfo DOMHTMLInputElementFormPropertyInfo where - type AttrAllowedOps DOMHTMLInputElementFormPropertyInfo = '[ 'AttrGet] + type AttrAllowedOps DOMHTMLInputElementFormPropertyInfo = '[ 'AttrGet, 'AttrClear] type AttrSetTypeConstraint DOMHTMLInputElementFormPropertyInfo = (~) () type AttrBaseTypeConstraint DOMHTMLInputElementFormPropertyInfo = DOMHTMLInputElementK type AttrGetType DOMHTMLInputElementFormPropertyInfo = DOMHTMLFormElement @@ -1466,82 +1544,90 @@ attrGet _ = getDOMHTMLInputElementForm attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "form-action" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Just False) -getDOMHTMLInputElementFormAction :: (MonadIO m, DOMHTMLInputElementK o) => o -> m T.Text +getDOMHTMLInputElementFormAction :: (MonadIO m, DOMHTMLInputElementK o) => o -> m (Maybe T.Text) getDOMHTMLInputElementFormAction obj = liftIO $ getObjectPropertyString obj "form-action" setDOMHTMLInputElementFormAction :: (MonadIO m, DOMHTMLInputElementK o) => o -> T.Text -> m () -setDOMHTMLInputElementFormAction obj val = liftIO $ setObjectPropertyString obj "form-action" val +setDOMHTMLInputElementFormAction obj val = liftIO $ setObjectPropertyString obj "form-action" (Just val) constructDOMHTMLInputElementFormAction :: T.Text -> IO ([Char], GValue) -constructDOMHTMLInputElementFormAction val = constructObjectPropertyString "form-action" val +constructDOMHTMLInputElementFormAction val = constructObjectPropertyString "form-action" (Just val) data DOMHTMLInputElementFormActionPropertyInfo instance AttrInfo DOMHTMLInputElementFormActionPropertyInfo where type AttrAllowedOps DOMHTMLInputElementFormActionPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint DOMHTMLInputElementFormActionPropertyInfo = (~) T.Text type AttrBaseTypeConstraint DOMHTMLInputElementFormActionPropertyInfo = DOMHTMLInputElementK - type AttrGetType DOMHTMLInputElementFormActionPropertyInfo = T.Text + type AttrGetType DOMHTMLInputElementFormActionPropertyInfo = (Maybe T.Text) type AttrLabel DOMHTMLInputElementFormActionPropertyInfo = "form-action" attrGet _ = getDOMHTMLInputElementFormAction attrSet _ = setDOMHTMLInputElementFormAction attrConstruct _ = constructDOMHTMLInputElementFormAction + attrClear _ = undefined -- VVV Prop "form-enctype" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Just False) -getDOMHTMLInputElementFormEnctype :: (MonadIO m, DOMHTMLInputElementK o) => o -> m T.Text +getDOMHTMLInputElementFormEnctype :: (MonadIO m, DOMHTMLInputElementK o) => o -> m (Maybe T.Text) getDOMHTMLInputElementFormEnctype obj = liftIO $ getObjectPropertyString obj "form-enctype" setDOMHTMLInputElementFormEnctype :: (MonadIO m, DOMHTMLInputElementK o) => o -> T.Text -> m () -setDOMHTMLInputElementFormEnctype obj val = liftIO $ setObjectPropertyString obj "form-enctype" val +setDOMHTMLInputElementFormEnctype obj val = liftIO $ setObjectPropertyString obj "form-enctype" (Just val) constructDOMHTMLInputElementFormEnctype :: T.Text -> IO ([Char], GValue) -constructDOMHTMLInputElementFormEnctype val = constructObjectPropertyString "form-enctype" val +constructDOMHTMLInputElementFormEnctype val = constructObjectPropertyString "form-enctype" (Just val) data DOMHTMLInputElementFormEnctypePropertyInfo instance AttrInfo DOMHTMLInputElementFormEnctypePropertyInfo where type AttrAllowedOps DOMHTMLInputElementFormEnctypePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint DOMHTMLInputElementFormEnctypePropertyInfo = (~) T.Text type AttrBaseTypeConstraint DOMHTMLInputElementFormEnctypePropertyInfo = DOMHTMLInputElementK - type AttrGetType DOMHTMLInputElementFormEnctypePropertyInfo = T.Text + type AttrGetType DOMHTMLInputElementFormEnctypePropertyInfo = (Maybe T.Text) type AttrLabel DOMHTMLInputElementFormEnctypePropertyInfo = "form-enctype" attrGet _ = getDOMHTMLInputElementFormEnctype attrSet _ = setDOMHTMLInputElementFormEnctype attrConstruct _ = constructDOMHTMLInputElementFormEnctype + attrClear _ = undefined -- VVV Prop "form-method" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Just False) -getDOMHTMLInputElementFormMethod :: (MonadIO m, DOMHTMLInputElementK o) => o -> m T.Text +getDOMHTMLInputElementFormMethod :: (MonadIO m, DOMHTMLInputElementK o) => o -> m (Maybe T.Text) getDOMHTMLInputElementFormMethod obj = liftIO $ getObjectPropertyString obj "form-method" setDOMHTMLInputElementFormMethod :: (MonadIO m, DOMHTMLInputElementK o) => o -> T.Text -> m () -setDOMHTMLInputElementFormMethod obj val = liftIO $ setObjectPropertyString obj "form-method" val +setDOMHTMLInputElementFormMethod obj val = liftIO $ setObjectPropertyString obj "form-method" (Just val) constructDOMHTMLInputElementFormMethod :: T.Text -> IO ([Char], GValue) -constructDOMHTMLInputElementFormMethod val = constructObjectPropertyString "form-method" val +constructDOMHTMLInputElementFormMethod val = constructObjectPropertyString "form-method" (Just val) data DOMHTMLInputElementFormMethodPropertyInfo instance AttrInfo DOMHTMLInputElementFormMethodPropertyInfo where type AttrAllowedOps DOMHTMLInputElementFormMethodPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint DOMHTMLInputElementFormMethodPropertyInfo = (~) T.Text type AttrBaseTypeConstraint DOMHTMLInputElementFormMethodPropertyInfo = DOMHTMLInputElementK - type AttrGetType DOMHTMLInputElementFormMethodPropertyInfo = T.Text + type AttrGetType DOMHTMLInputElementFormMethodPropertyInfo = (Maybe T.Text) type AttrLabel DOMHTMLInputElementFormMethodPropertyInfo = "form-method" attrGet _ = getDOMHTMLInputElementFormMethod attrSet _ = setDOMHTMLInputElementFormMethod attrConstruct _ = constructDOMHTMLInputElementFormMethod + attrClear _ = undefined -- VVV Prop "form-no-validate" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getDOMHTMLInputElementFormNoValidate :: (MonadIO m, DOMHTMLInputElementK o) => o -> m Bool getDOMHTMLInputElementFormNoValidate obj = liftIO $ getObjectPropertyBool obj "form-no-validate" @@ -1562,58 +1648,64 @@ attrGet _ = getDOMHTMLInputElementFormNoValidate attrSet _ = setDOMHTMLInputElementFormNoValidate attrConstruct _ = constructDOMHTMLInputElementFormNoValidate + attrClear _ = undefined -- VVV Prop "form-target" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Just False) -getDOMHTMLInputElementFormTarget :: (MonadIO m, DOMHTMLInputElementK o) => o -> m T.Text +getDOMHTMLInputElementFormTarget :: (MonadIO m, DOMHTMLInputElementK o) => o -> m (Maybe T.Text) getDOMHTMLInputElementFormTarget obj = liftIO $ getObjectPropertyString obj "form-target" setDOMHTMLInputElementFormTarget :: (MonadIO m, DOMHTMLInputElementK o) => o -> T.Text -> m () -setDOMHTMLInputElementFormTarget obj val = liftIO $ setObjectPropertyString obj "form-target" val +setDOMHTMLInputElementFormTarget obj val = liftIO $ setObjectPropertyString obj "form-target" (Just val) constructDOMHTMLInputElementFormTarget :: T.Text -> IO ([Char], GValue) -constructDOMHTMLInputElementFormTarget val = constructObjectPropertyString "form-target" val +constructDOMHTMLInputElementFormTarget val = constructObjectPropertyString "form-target" (Just val) data DOMHTMLInputElementFormTargetPropertyInfo instance AttrInfo DOMHTMLInputElementFormTargetPropertyInfo where type AttrAllowedOps DOMHTMLInputElementFormTargetPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint DOMHTMLInputElementFormTargetPropertyInfo = (~) T.Text type AttrBaseTypeConstraint DOMHTMLInputElementFormTargetPropertyInfo = DOMHTMLInputElementK - type AttrGetType DOMHTMLInputElementFormTargetPropertyInfo = T.Text + type AttrGetType DOMHTMLInputElementFormTargetPropertyInfo = (Maybe T.Text) type AttrLabel DOMHTMLInputElementFormTargetPropertyInfo = "form-target" attrGet _ = getDOMHTMLInputElementFormTarget attrSet _ = setDOMHTMLInputElementFormTarget attrConstruct _ = constructDOMHTMLInputElementFormTarget + attrClear _ = undefined -- VVV Prop "height" - -- Type: TBasicType TUInt64 + -- Type: TBasicType TULong -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) -getDOMHTMLInputElementHeight :: (MonadIO m, DOMHTMLInputElementK o) => o -> m Word64 -getDOMHTMLInputElementHeight obj = liftIO $ getObjectPropertyUInt64 obj "height" +getDOMHTMLInputElementHeight :: (MonadIO m, DOMHTMLInputElementK o) => o -> m CULong +getDOMHTMLInputElementHeight obj = liftIO $ getObjectPropertyULong obj "height" -setDOMHTMLInputElementHeight :: (MonadIO m, DOMHTMLInputElementK o) => o -> Word64 -> m () -setDOMHTMLInputElementHeight obj val = liftIO $ setObjectPropertyUInt64 obj "height" val +setDOMHTMLInputElementHeight :: (MonadIO m, DOMHTMLInputElementK o) => o -> CULong -> m () +setDOMHTMLInputElementHeight obj val = liftIO $ setObjectPropertyULong obj "height" val -constructDOMHTMLInputElementHeight :: Word64 -> IO ([Char], GValue) -constructDOMHTMLInputElementHeight val = constructObjectPropertyUInt64 "height" val +constructDOMHTMLInputElementHeight :: CULong -> IO ([Char], GValue) +constructDOMHTMLInputElementHeight val = constructObjectPropertyULong "height" val data DOMHTMLInputElementHeightPropertyInfo instance AttrInfo DOMHTMLInputElementHeightPropertyInfo where type AttrAllowedOps DOMHTMLInputElementHeightPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLInputElementHeightPropertyInfo = (~) Word64 + type AttrSetTypeConstraint DOMHTMLInputElementHeightPropertyInfo = (~) CULong type AttrBaseTypeConstraint DOMHTMLInputElementHeightPropertyInfo = DOMHTMLInputElementK - type AttrGetType DOMHTMLInputElementHeightPropertyInfo = Word64 + type AttrGetType DOMHTMLInputElementHeightPropertyInfo = CULong type AttrLabel DOMHTMLInputElementHeightPropertyInfo = "height" attrGet _ = getDOMHTMLInputElementHeight attrSet _ = setDOMHTMLInputElementHeight attrConstruct _ = constructDOMHTMLInputElementHeight + attrClear _ = undefined -- VVV Prop "incremental" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getDOMHTMLInputElementIncremental :: (MonadIO m, DOMHTMLInputElementK o) => o -> m Bool getDOMHTMLInputElementIncremental obj = liftIO $ getObjectPropertyBool obj "incremental" @@ -1634,10 +1726,12 @@ attrGet _ = getDOMHTMLInputElementIncremental attrSet _ = setDOMHTMLInputElementIncremental attrConstruct _ = constructDOMHTMLInputElementIncremental + attrClear _ = undefined -- VVV Prop "indeterminate" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getDOMHTMLInputElementIndeterminate :: (MonadIO m, DOMHTMLInputElementK o) => o -> m Bool getDOMHTMLInputElementIndeterminate obj = liftIO $ getObjectPropertyBool obj "indeterminate" @@ -1658,35 +1752,39 @@ attrGet _ = getDOMHTMLInputElementIndeterminate attrSet _ = setDOMHTMLInputElementIndeterminate attrConstruct _ = constructDOMHTMLInputElementIndeterminate + attrClear _ = undefined -- VVV Prop "labels" -- Type: TInterface "WebKit" "DOMNodeList" -- Flags: [PropertyReadable] + -- Nullable: (Nothing,Nothing) -getDOMHTMLInputElementLabels :: (MonadIO m, DOMHTMLInputElementK o) => o -> m DOMNodeList +getDOMHTMLInputElementLabels :: (MonadIO m, DOMHTMLInputElementK o) => o -> m (Maybe DOMNodeList) getDOMHTMLInputElementLabels obj = liftIO $ getObjectPropertyObject obj "labels" DOMNodeList data DOMHTMLInputElementLabelsPropertyInfo instance AttrInfo DOMHTMLInputElementLabelsPropertyInfo where - type AttrAllowedOps DOMHTMLInputElementLabelsPropertyInfo = '[ 'AttrGet] + type AttrAllowedOps DOMHTMLInputElementLabelsPropertyInfo = '[ 'AttrGet, 'AttrClear] type AttrSetTypeConstraint DOMHTMLInputElementLabelsPropertyInfo = (~) () type AttrBaseTypeConstraint DOMHTMLInputElementLabelsPropertyInfo = DOMHTMLInputElementK - type AttrGetType DOMHTMLInputElementLabelsPropertyInfo = DOMNodeList + type AttrGetType DOMHTMLInputElementLabelsPropertyInfo = (Maybe DOMNodeList) type AttrLabel DOMHTMLInputElementLabelsPropertyInfo = "labels" attrGet _ = getDOMHTMLInputElementLabels attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "list" -- Type: TInterface "WebKit" "DOMHTMLElement" -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) getDOMHTMLInputElementList :: (MonadIO m, DOMHTMLInputElementK o) => o -> m DOMHTMLElement -getDOMHTMLInputElementList obj = liftIO $ getObjectPropertyObject obj "list" DOMHTMLElement +getDOMHTMLInputElementList obj = liftIO $ checkUnexpectedNothing "getDOMHTMLInputElementList" $ getObjectPropertyObject obj "list" DOMHTMLElement data DOMHTMLInputElementListPropertyInfo instance AttrInfo DOMHTMLInputElementListPropertyInfo where - type AttrAllowedOps DOMHTMLInputElementListPropertyInfo = '[ 'AttrGet] + type AttrAllowedOps DOMHTMLInputElementListPropertyInfo = '[ 'AttrGet, 'AttrClear] type AttrSetTypeConstraint DOMHTMLInputElementListPropertyInfo = (~) () type AttrBaseTypeConstraint DOMHTMLInputElementListPropertyInfo = DOMHTMLInputElementK type AttrGetType DOMHTMLInputElementListPropertyInfo = DOMHTMLElement @@ -1694,82 +1792,90 @@ attrGet _ = getDOMHTMLInputElementList attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "max" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Just False) -getDOMHTMLInputElementMax :: (MonadIO m, DOMHTMLInputElementK o) => o -> m T.Text +getDOMHTMLInputElementMax :: (MonadIO m, DOMHTMLInputElementK o) => o -> m (Maybe T.Text) getDOMHTMLInputElementMax obj = liftIO $ getObjectPropertyString obj "max" setDOMHTMLInputElementMax :: (MonadIO m, DOMHTMLInputElementK o) => o -> T.Text -> m () -setDOMHTMLInputElementMax obj val = liftIO $ setObjectPropertyString obj "max" val +setDOMHTMLInputElementMax obj val = liftIO $ setObjectPropertyString obj "max" (Just val) constructDOMHTMLInputElementMax :: T.Text -> IO ([Char], GValue) -constructDOMHTMLInputElementMax val = constructObjectPropertyString "max" val +constructDOMHTMLInputElementMax val = constructObjectPropertyString "max" (Just val) data DOMHTMLInputElementMaxPropertyInfo instance AttrInfo DOMHTMLInputElementMaxPropertyInfo where type AttrAllowedOps DOMHTMLInputElementMaxPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint DOMHTMLInputElementMaxPropertyInfo = (~) T.Text type AttrBaseTypeConstraint DOMHTMLInputElementMaxPropertyInfo = DOMHTMLInputElementK - type AttrGetType DOMHTMLInputElementMaxPropertyInfo = T.Text + type AttrGetType DOMHTMLInputElementMaxPropertyInfo = (Maybe T.Text) type AttrLabel DOMHTMLInputElementMaxPropertyInfo = "max" attrGet _ = getDOMHTMLInputElementMax attrSet _ = setDOMHTMLInputElementMax attrConstruct _ = constructDOMHTMLInputElementMax + attrClear _ = undefined -- VVV Prop "max-length" - -- Type: TBasicType TInt64 + -- Type: TBasicType TLong -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Nothing) -getDOMHTMLInputElementMaxLength :: (MonadIO m, DOMHTMLInputElementK o) => o -> m Int64 -getDOMHTMLInputElementMaxLength obj = liftIO $ getObjectPropertyInt64 obj "max-length" +getDOMHTMLInputElementMaxLength :: (MonadIO m, DOMHTMLInputElementK o) => o -> m CLong +getDOMHTMLInputElementMaxLength obj = liftIO $ getObjectPropertyLong obj "max-length" -setDOMHTMLInputElementMaxLength :: (MonadIO m, DOMHTMLInputElementK o) => o -> Int64 -> m () -setDOMHTMLInputElementMaxLength obj val = liftIO $ setObjectPropertyInt64 obj "max-length" val +setDOMHTMLInputElementMaxLength :: (MonadIO m, DOMHTMLInputElementK o) => o -> CLong -> m () +setDOMHTMLInputElementMaxLength obj val = liftIO $ setObjectPropertyLong obj "max-length" val -constructDOMHTMLInputElementMaxLength :: Int64 -> IO ([Char], GValue) -constructDOMHTMLInputElementMaxLength val = constructObjectPropertyInt64 "max-length" val +constructDOMHTMLInputElementMaxLength :: CLong -> IO ([Char], GValue) +constructDOMHTMLInputElementMaxLength val = constructObjectPropertyLong "max-length" val data DOMHTMLInputElementMaxLengthPropertyInfo instance AttrInfo DOMHTMLInputElementMaxLengthPropertyInfo where type AttrAllowedOps DOMHTMLInputElementMaxLengthPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLInputElementMaxLengthPropertyInfo = (~) Int64 + type AttrSetTypeConstraint DOMHTMLInputElementMaxLengthPropertyInfo = (~) CLong type AttrBaseTypeConstraint DOMHTMLInputElementMaxLengthPropertyInfo = DOMHTMLInputElementK - type AttrGetType DOMHTMLInputElementMaxLengthPropertyInfo = Int64 + type AttrGetType DOMHTMLInputElementMaxLengthPropertyInfo = CLong type AttrLabel DOMHTMLInputElementMaxLengthPropertyInfo = "max-length" attrGet _ = getDOMHTMLInputElementMaxLength attrSet _ = setDOMHTMLInputElementMaxLength attrConstruct _ = constructDOMHTMLInputElementMaxLength + attrClear _ = undefined -- VVV Prop "min" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Just False) -getDOMHTMLInputElementMin :: (MonadIO m, DOMHTMLInputElementK o) => o -> m T.Text +getDOMHTMLInputElementMin :: (MonadIO m, DOMHTMLInputElementK o) => o -> m (Maybe T.Text) getDOMHTMLInputElementMin obj = liftIO $ getObjectPropertyString obj "min" setDOMHTMLInputElementMin :: (MonadIO m, DOMHTMLInputElementK o) => o -> T.Text -> m () -setDOMHTMLInputElementMin obj val = liftIO $ setObjectPropertyString obj "min" val +setDOMHTMLInputElementMin obj val = liftIO $ setObjectPropertyString obj "min" (Just val) constructDOMHTMLInputElementMin :: T.Text -> IO ([Char], GValue) -constructDOMHTMLInputElementMin val = constructObjectPropertyString "min" val +constructDOMHTMLInputElementMin val = constructObjectPropertyString "min" (Just val) data DOMHTMLInputElementMinPropertyInfo instance AttrInfo DOMHTMLInputElementMinPropertyInfo where type AttrAllowedOps DOMHTMLInputElementMinPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint DOMHTMLInputElementMinPropertyInfo = (~) T.Text type AttrBaseTypeConstraint DOMHTMLInputElementMinPropertyInfo = DOMHTMLInputElementK - type AttrGetType DOMHTMLInputElementMinPropertyInfo = T.Text + type AttrGetType DOMHTMLInputElementMinPropertyInfo = (Maybe T.Text) type AttrLabel DOMHTMLInputElementMinPropertyInfo = "min" attrGet _ = getDOMHTMLInputElementMin attrSet _ = setDOMHTMLInputElementMin attrConstruct _ = constructDOMHTMLInputElementMin + attrClear _ = undefined -- VVV Prop "multiple" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getDOMHTMLInputElementMultiple :: (MonadIO m, DOMHTMLInputElementK o) => o -> m Bool getDOMHTMLInputElementMultiple obj = liftIO $ getObjectPropertyBool obj "multiple" @@ -1790,82 +1896,90 @@ attrGet _ = getDOMHTMLInputElementMultiple attrSet _ = setDOMHTMLInputElementMultiple attrConstruct _ = constructDOMHTMLInputElementMultiple + attrClear _ = undefined -- VVV Prop "name" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Just False) -getDOMHTMLInputElementName :: (MonadIO m, DOMHTMLInputElementK o) => o -> m T.Text +getDOMHTMLInputElementName :: (MonadIO m, DOMHTMLInputElementK o) => o -> m (Maybe T.Text) getDOMHTMLInputElementName obj = liftIO $ getObjectPropertyString obj "name" setDOMHTMLInputElementName :: (MonadIO m, DOMHTMLInputElementK o) => o -> T.Text -> m () -setDOMHTMLInputElementName obj val = liftIO $ setObjectPropertyString obj "name" val +setDOMHTMLInputElementName obj val = liftIO $ setObjectPropertyString obj "name" (Just val) constructDOMHTMLInputElementName :: T.Text -> IO ([Char], GValue) -constructDOMHTMLInputElementName val = constructObjectPropertyString "name" val +constructDOMHTMLInputElementName val = constructObjectPropertyString "name" (Just val) data DOMHTMLInputElementNamePropertyInfo instance AttrInfo DOMHTMLInputElementNamePropertyInfo where type AttrAllowedOps DOMHTMLInputElementNamePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint DOMHTMLInputElementNamePropertyInfo = (~) T.Text type AttrBaseTypeConstraint DOMHTMLInputElementNamePropertyInfo = DOMHTMLInputElementK - type AttrGetType DOMHTMLInputElementNamePropertyInfo = T.Text + type AttrGetType DOMHTMLInputElementNamePropertyInfo = (Maybe T.Text) type AttrLabel DOMHTMLInputElementNamePropertyInfo = "name" attrGet _ = getDOMHTMLInputElementName attrSet _ = setDOMHTMLInputElementName attrConstruct _ = constructDOMHTMLInputElementName + attrClear _ = undefined -- VVV Prop "pattern" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Just False) -getDOMHTMLInputElementPattern :: (MonadIO m, DOMHTMLInputElementK o) => o -> m T.Text +getDOMHTMLInputElementPattern :: (MonadIO m, DOMHTMLInputElementK o) => o -> m (Maybe T.Text) getDOMHTMLInputElementPattern obj = liftIO $ getObjectPropertyString obj "pattern" setDOMHTMLInputElementPattern :: (MonadIO m, DOMHTMLInputElementK o) => o -> T.Text -> m () -setDOMHTMLInputElementPattern obj val = liftIO $ setObjectPropertyString obj "pattern" val +setDOMHTMLInputElementPattern obj val = liftIO $ setObjectPropertyString obj "pattern" (Just val) constructDOMHTMLInputElementPattern :: T.Text -> IO ([Char], GValue) -constructDOMHTMLInputElementPattern val = constructObjectPropertyString "pattern" val +constructDOMHTMLInputElementPattern val = constructObjectPropertyString "pattern" (Just val) data DOMHTMLInputElementPatternPropertyInfo instance AttrInfo DOMHTMLInputElementPatternPropertyInfo where type AttrAllowedOps DOMHTMLInputElementPatternPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint DOMHTMLInputElementPatternPropertyInfo = (~) T.Text type AttrBaseTypeConstraint DOMHTMLInputElementPatternPropertyInfo = DOMHTMLInputElementK - type AttrGetType DOMHTMLInputElementPatternPropertyInfo = T.Text + type AttrGetType DOMHTMLInputElementPatternPropertyInfo = (Maybe T.Text) type AttrLabel DOMHTMLInputElementPatternPropertyInfo = "pattern" attrGet _ = getDOMHTMLInputElementPattern attrSet _ = setDOMHTMLInputElementPattern attrConstruct _ = constructDOMHTMLInputElementPattern + attrClear _ = undefined -- VVV Prop "placeholder" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Just False) -getDOMHTMLInputElementPlaceholder :: (MonadIO m, DOMHTMLInputElementK o) => o -> m T.Text +getDOMHTMLInputElementPlaceholder :: (MonadIO m, DOMHTMLInputElementK o) => o -> m (Maybe T.Text) getDOMHTMLInputElementPlaceholder obj = liftIO $ getObjectPropertyString obj "placeholder" setDOMHTMLInputElementPlaceholder :: (MonadIO m, DOMHTMLInputElementK o) => o -> T.Text -> m () -setDOMHTMLInputElementPlaceholder obj val = liftIO $ setObjectPropertyString obj "placeholder" val +setDOMHTMLInputElementPlaceholder obj val = liftIO $ setObjectPropertyString obj "placeholder" (Just val) constructDOMHTMLInputElementPlaceholder :: T.Text -> IO ([Char], GValue) -constructDOMHTMLInputElementPlaceholder val = constructObjectPropertyString "placeholder" val +constructDOMHTMLInputElementPlaceholder val = constructObjectPropertyString "placeholder" (Just val) data DOMHTMLInputElementPlaceholderPropertyInfo instance AttrInfo DOMHTMLInputElementPlaceholderPropertyInfo where type AttrAllowedOps DOMHTMLInputElementPlaceholderPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint DOMHTMLInputElementPlaceholderPropertyInfo = (~) T.Text type AttrBaseTypeConstraint DOMHTMLInputElementPlaceholderPropertyInfo = DOMHTMLInputElementK - type AttrGetType DOMHTMLInputElementPlaceholderPropertyInfo = T.Text + type AttrGetType DOMHTMLInputElementPlaceholderPropertyInfo = (Maybe T.Text) type AttrLabel DOMHTMLInputElementPlaceholderPropertyInfo = "placeholder" attrGet _ = getDOMHTMLInputElementPlaceholder attrSet _ = setDOMHTMLInputElementPlaceholder attrConstruct _ = constructDOMHTMLInputElementPlaceholder + attrClear _ = undefined -- VVV Prop "read-only" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getDOMHTMLInputElementReadOnly :: (MonadIO m, DOMHTMLInputElementK o) => o -> m Bool getDOMHTMLInputElementReadOnly obj = liftIO $ getObjectPropertyBool obj "read-only" @@ -1886,10 +2000,12 @@ attrGet _ = getDOMHTMLInputElementReadOnly attrSet _ = setDOMHTMLInputElementReadOnly attrConstruct _ = constructDOMHTMLInputElementReadOnly + attrClear _ = undefined -- VVV Prop "required" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getDOMHTMLInputElementRequired :: (MonadIO m, DOMHTMLInputElementK o) => o -> m Bool getDOMHTMLInputElementRequired obj = liftIO $ getObjectPropertyBool obj "required" @@ -1910,190 +2026,211 @@ attrGet _ = getDOMHTMLInputElementRequired attrSet _ = setDOMHTMLInputElementRequired attrConstruct _ = constructDOMHTMLInputElementRequired + attrClear _ = undefined -- VVV Prop "size" - -- Type: TBasicType TUInt64 + -- Type: TBasicType TULong -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Nothing) -getDOMHTMLInputElementSize :: (MonadIO m, DOMHTMLInputElementK o) => o -> m Word64 -getDOMHTMLInputElementSize obj = liftIO $ getObjectPropertyUInt64 obj "size" +getDOMHTMLInputElementSize :: (MonadIO m, DOMHTMLInputElementK o) => o -> m CULong +getDOMHTMLInputElementSize obj = liftIO $ getObjectPropertyULong obj "size" -setDOMHTMLInputElementSize :: (MonadIO m, DOMHTMLInputElementK o) => o -> Word64 -> m () -setDOMHTMLInputElementSize obj val = liftIO $ setObjectPropertyUInt64 obj "size" val +setDOMHTMLInputElementSize :: (MonadIO m, DOMHTMLInputElementK o) => o -> CULong -> m () +setDOMHTMLInputElementSize obj val = liftIO $ setObjectPropertyULong obj "size" val -constructDOMHTMLInputElementSize :: Word64 -> IO ([Char], GValue) -constructDOMHTMLInputElementSize val = constructObjectPropertyUInt64 "size" val +constructDOMHTMLInputElementSize :: CULong -> IO ([Char], GValue) +constructDOMHTMLInputElementSize val = constructObjectPropertyULong "size" val data DOMHTMLInputElementSizePropertyInfo instance AttrInfo DOMHTMLInputElementSizePropertyInfo where type AttrAllowedOps DOMHTMLInputElementSizePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLInputElementSizePropertyInfo = (~) Word64 + type AttrSetTypeConstraint DOMHTMLInputElementSizePropertyInfo = (~) CULong type AttrBaseTypeConstraint DOMHTMLInputElementSizePropertyInfo = DOMHTMLInputElementK - type AttrGetType DOMHTMLInputElementSizePropertyInfo = Word64 + type AttrGetType DOMHTMLInputElementSizePropertyInfo = CULong type AttrLabel DOMHTMLInputElementSizePropertyInfo = "size" attrGet _ = getDOMHTMLInputElementSize attrSet _ = setDOMHTMLInputElementSize attrConstruct _ = constructDOMHTMLInputElementSize + attrClear _ = undefined -- VVV Prop "src" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Just False) -getDOMHTMLInputElementSrc :: (MonadIO m, DOMHTMLInputElementK o) => o -> m T.Text +getDOMHTMLInputElementSrc :: (MonadIO m, DOMHTMLInputElementK o) => o -> m (Maybe T.Text) getDOMHTMLInputElementSrc obj = liftIO $ getObjectPropertyString obj "src" setDOMHTMLInputElementSrc :: (MonadIO m, DOMHTMLInputElementK o) => o -> T.Text -> m () -setDOMHTMLInputElementSrc obj val = liftIO $ setObjectPropertyString obj "src" val +setDOMHTMLInputElementSrc obj val = liftIO $ setObjectPropertyString obj "src" (Just val) constructDOMHTMLInputElementSrc :: T.Text -> IO ([Char], GValue) -constructDOMHTMLInputElementSrc val = constructObjectPropertyString "src" val +constructDOMHTMLInputElementSrc val = constructObjectPropertyString "src" (Just val) data DOMHTMLInputElementSrcPropertyInfo instance AttrInfo DOMHTMLInputElementSrcPropertyInfo where type AttrAllowedOps DOMHTMLInputElementSrcPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint DOMHTMLInputElementSrcPropertyInfo = (~) T.Text type AttrBaseTypeConstraint DOMHTMLInputElementSrcPropertyInfo = DOMHTMLInputElementK - type AttrGetType DOMHTMLInputElementSrcPropertyInfo = T.Text + type AttrGetType DOMHTMLInputElementSrcPropertyInfo = (Maybe T.Text) type AttrLabel DOMHTMLInputElementSrcPropertyInfo = "src" attrGet _ = getDOMHTMLInputElementSrc attrSet _ = setDOMHTMLInputElementSrc attrConstruct _ = constructDOMHTMLInputElementSrc + attrClear _ = undefined -- VVV Prop "step" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Just False) -getDOMHTMLInputElementStep :: (MonadIO m, DOMHTMLInputElementK o) => o -> m T.Text +getDOMHTMLInputElementStep :: (MonadIO m, DOMHTMLInputElementK o) => o -> m (Maybe T.Text) getDOMHTMLInputElementStep obj = liftIO $ getObjectPropertyString obj "step" setDOMHTMLInputElementStep :: (MonadIO m, DOMHTMLInputElementK o) => o -> T.Text -> m () -setDOMHTMLInputElementStep obj val = liftIO $ setObjectPropertyString obj "step" val +setDOMHTMLInputElementStep obj val = liftIO $ setObjectPropertyString obj "step" (Just val) constructDOMHTMLInputElementStep :: T.Text -> IO ([Char], GValue) -constructDOMHTMLInputElementStep val = constructObjectPropertyString "step" val +constructDOMHTMLInputElementStep val = constructObjectPropertyString "step" (Just val) data DOMHTMLInputElementStepPropertyInfo instance AttrInfo DOMHTMLInputElementStepPropertyInfo where type AttrAllowedOps DOMHTMLInputElementStepPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint DOMHTMLInputElementStepPropertyInfo = (~) T.Text type AttrBaseTypeConstraint DOMHTMLInputElementStepPropertyInfo = DOMHTMLInputElementK - type AttrGetType DOMHTMLInputElementStepPropertyInfo = T.Text + type AttrGetType DOMHTMLInputElementStepPropertyInfo = (Maybe T.Text) type AttrLabel DOMHTMLInputElementStepPropertyInfo = "step" attrGet _ = getDOMHTMLInputElementStep attrSet _ = setDOMHTMLInputElementStep attrConstruct _ = constructDOMHTMLInputElementStep + attrClear _ = undefined -- VVV Prop "type" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) -getDOMHTMLInputElementType :: (MonadIO m, DOMHTMLInputElementK o) => o -> m T.Text +getDOMHTMLInputElementType :: (MonadIO m, DOMHTMLInputElementK o) => o -> m (Maybe T.Text) getDOMHTMLInputElementType obj = liftIO $ getObjectPropertyString obj "type" setDOMHTMLInputElementType :: (MonadIO m, DOMHTMLInputElementK o) => o -> T.Text -> m () -setDOMHTMLInputElementType obj val = liftIO $ setObjectPropertyString obj "type" val +setDOMHTMLInputElementType obj val = liftIO $ setObjectPropertyString obj "type" (Just val) constructDOMHTMLInputElementType :: T.Text -> IO ([Char], GValue) -constructDOMHTMLInputElementType val = constructObjectPropertyString "type" val +constructDOMHTMLInputElementType val = constructObjectPropertyString "type" (Just val) +clearDOMHTMLInputElementType :: (MonadIO m, DOMHTMLInputElementK o) => o -> m () +clearDOMHTMLInputElementType obj = liftIO $ setObjectPropertyString obj "type" (Nothing :: Maybe T.Text) + data DOMHTMLInputElementTypePropertyInfo instance AttrInfo DOMHTMLInputElementTypePropertyInfo where - type AttrAllowedOps DOMHTMLInputElementTypePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrAllowedOps DOMHTMLInputElementTypePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint DOMHTMLInputElementTypePropertyInfo = (~) T.Text type AttrBaseTypeConstraint DOMHTMLInputElementTypePropertyInfo = DOMHTMLInputElementK - type AttrGetType DOMHTMLInputElementTypePropertyInfo = T.Text + type AttrGetType DOMHTMLInputElementTypePropertyInfo = (Maybe T.Text) type AttrLabel DOMHTMLInputElementTypePropertyInfo = "type" attrGet _ = getDOMHTMLInputElementType attrSet _ = setDOMHTMLInputElementType attrConstruct _ = constructDOMHTMLInputElementType + attrClear _ = clearDOMHTMLInputElementType -- VVV Prop "use-map" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Just False) -getDOMHTMLInputElementUseMap :: (MonadIO m, DOMHTMLInputElementK o) => o -> m T.Text +getDOMHTMLInputElementUseMap :: (MonadIO m, DOMHTMLInputElementK o) => o -> m (Maybe T.Text) getDOMHTMLInputElementUseMap obj = liftIO $ getObjectPropertyString obj "use-map" setDOMHTMLInputElementUseMap :: (MonadIO m, DOMHTMLInputElementK o) => o -> T.Text -> m () -setDOMHTMLInputElementUseMap obj val = liftIO $ setObjectPropertyString obj "use-map" val +setDOMHTMLInputElementUseMap obj val = liftIO $ setObjectPropertyString obj "use-map" (Just val) constructDOMHTMLInputElementUseMap :: T.Text -> IO ([Char], GValue) -constructDOMHTMLInputElementUseMap val = constructObjectPropertyString "use-map" val +constructDOMHTMLInputElementUseMap val = constructObjectPropertyString "use-map" (Just val) data DOMHTMLInputElementUseMapPropertyInfo instance AttrInfo DOMHTMLInputElementUseMapPropertyInfo where type AttrAllowedOps DOMHTMLInputElementUseMapPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint DOMHTMLInputElementUseMapPropertyInfo = (~) T.Text type AttrBaseTypeConstraint DOMHTMLInputElementUseMapPropertyInfo = DOMHTMLInputElementK - type AttrGetType DOMHTMLInputElementUseMapPropertyInfo = T.Text + type AttrGetType DOMHTMLInputElementUseMapPropertyInfo = (Maybe T.Text) type AttrLabel DOMHTMLInputElementUseMapPropertyInfo = "use-map" attrGet _ = getDOMHTMLInputElementUseMap attrSet _ = setDOMHTMLInputElementUseMap attrConstruct _ = constructDOMHTMLInputElementUseMap + attrClear _ = undefined -- VVV Prop "validation-message" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable] + -- Nullable: (Nothing,Nothing) -getDOMHTMLInputElementValidationMessage :: (MonadIO m, DOMHTMLInputElementK o) => o -> m T.Text +getDOMHTMLInputElementValidationMessage :: (MonadIO m, DOMHTMLInputElementK o) => o -> m (Maybe T.Text) getDOMHTMLInputElementValidationMessage obj = liftIO $ getObjectPropertyString obj "validation-message" data DOMHTMLInputElementValidationMessagePropertyInfo instance AttrInfo DOMHTMLInputElementValidationMessagePropertyInfo where - type AttrAllowedOps DOMHTMLInputElementValidationMessagePropertyInfo = '[ 'AttrGet] + type AttrAllowedOps DOMHTMLInputElementValidationMessagePropertyInfo = '[ 'AttrGet, 'AttrClear] type AttrSetTypeConstraint DOMHTMLInputElementValidationMessagePropertyInfo = (~) () type AttrBaseTypeConstraint DOMHTMLInputElementValidationMessagePropertyInfo = DOMHTMLInputElementK - type AttrGetType DOMHTMLInputElementValidationMessagePropertyInfo = T.Text + type AttrGetType DOMHTMLInputElementValidationMessagePropertyInfo = (Maybe T.Text) type AttrLabel DOMHTMLInputElementValidationMessagePropertyInfo = "validation-message" attrGet _ = getDOMHTMLInputElementValidationMessage attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "validity" -- Type: TInterface "WebKit" "DOMValidityState" -- Flags: [PropertyReadable] + -- Nullable: (Nothing,Nothing) -getDOMHTMLInputElementValidity :: (MonadIO m, DOMHTMLInputElementK o) => o -> m DOMValidityState +getDOMHTMLInputElementValidity :: (MonadIO m, DOMHTMLInputElementK o) => o -> m (Maybe DOMValidityState) getDOMHTMLInputElementValidity obj = liftIO $ getObjectPropertyObject obj "validity" DOMValidityState data DOMHTMLInputElementValidityPropertyInfo instance AttrInfo DOMHTMLInputElementValidityPropertyInfo where - type AttrAllowedOps DOMHTMLInputElementValidityPropertyInfo = '[ 'AttrGet] + type AttrAllowedOps DOMHTMLInputElementValidityPropertyInfo = '[ 'AttrGet, 'AttrClear] type AttrSetTypeConstraint DOMHTMLInputElementValidityPropertyInfo = (~) () type AttrBaseTypeConstraint DOMHTMLInputElementValidityPropertyInfo = DOMHTMLInputElementK - type AttrGetType DOMHTMLInputElementValidityPropertyInfo = DOMValidityState + type AttrGetType DOMHTMLInputElementValidityPropertyInfo = (Maybe DOMValidityState) type AttrLabel DOMHTMLInputElementValidityPropertyInfo = "validity" attrGet _ = getDOMHTMLInputElementValidity attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "value" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Just False) -getDOMHTMLInputElementValue :: (MonadIO m, DOMHTMLInputElementK o) => o -> m T.Text +getDOMHTMLInputElementValue :: (MonadIO m, DOMHTMLInputElementK o) => o -> m (Maybe T.Text) getDOMHTMLInputElementValue obj = liftIO $ getObjectPropertyString obj "value" setDOMHTMLInputElementValue :: (MonadIO m, DOMHTMLInputElementK o) => o -> T.Text -> m () -setDOMHTMLInputElementValue obj val = liftIO $ setObjectPropertyString obj "value" val +setDOMHTMLInputElementValue obj val = liftIO $ setObjectPropertyString obj "value" (Just val) constructDOMHTMLInputElementValue :: T.Text -> IO ([Char], GValue) -constructDOMHTMLInputElementValue val = constructObjectPropertyString "value" val +constructDOMHTMLInputElementValue val = constructObjectPropertyString "value" (Just val) data DOMHTMLInputElementValuePropertyInfo instance AttrInfo DOMHTMLInputElementValuePropertyInfo where type AttrAllowedOps DOMHTMLInputElementValuePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint DOMHTMLInputElementValuePropertyInfo = (~) T.Text type AttrBaseTypeConstraint DOMHTMLInputElementValuePropertyInfo = DOMHTMLInputElementK - type AttrGetType DOMHTMLInputElementValuePropertyInfo = T.Text + type AttrGetType DOMHTMLInputElementValuePropertyInfo = (Maybe T.Text) type AttrLabel DOMHTMLInputElementValuePropertyInfo = "value" attrGet _ = getDOMHTMLInputElementValue attrSet _ = setDOMHTMLInputElementValue attrConstruct _ = constructDOMHTMLInputElementValue + attrClear _ = undefined -- VVV Prop "value-as-number" -- Type: TBasicType TDouble -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Nothing) getDOMHTMLInputElementValueAsNumber :: (MonadIO m, DOMHTMLInputElementK o) => o -> m Double getDOMHTMLInputElementValueAsNumber obj = liftIO $ getObjectPropertyDouble obj "value-as-number" @@ -2114,10 +2251,12 @@ attrGet _ = getDOMHTMLInputElementValueAsNumber attrSet _ = setDOMHTMLInputElementValueAsNumber attrConstruct _ = constructDOMHTMLInputElementValueAsNumber + attrClear _ = undefined -- VVV Prop "webkit-grammar" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getDOMHTMLInputElementWebkitGrammar :: (MonadIO m, DOMHTMLInputElementK o) => o -> m Bool getDOMHTMLInputElementWebkitGrammar obj = liftIO $ getObjectPropertyBool obj "webkit-grammar" @@ -2138,10 +2277,12 @@ attrGet _ = getDOMHTMLInputElementWebkitGrammar attrSet _ = setDOMHTMLInputElementWebkitGrammar attrConstruct _ = constructDOMHTMLInputElementWebkitGrammar + attrClear _ = undefined -- VVV Prop "webkit-speech" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getDOMHTMLInputElementWebkitSpeech :: (MonadIO m, DOMHTMLInputElementK o) => o -> m Bool getDOMHTMLInputElementWebkitSpeech obj = liftIO $ getObjectPropertyBool obj "webkit-speech" @@ -2162,10 +2303,12 @@ attrGet _ = getDOMHTMLInputElementWebkitSpeech attrSet _ = setDOMHTMLInputElementWebkitSpeech attrConstruct _ = constructDOMHTMLInputElementWebkitSpeech + attrClear _ = undefined -- VVV Prop "webkitdirectory" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getDOMHTMLInputElementWebkitdirectory :: (MonadIO m, DOMHTMLInputElementK o) => o -> m Bool getDOMHTMLInputElementWebkitdirectory obj = liftIO $ getObjectPropertyBool obj "webkitdirectory" @@ -2186,34 +2329,38 @@ attrGet _ = getDOMHTMLInputElementWebkitdirectory attrSet _ = setDOMHTMLInputElementWebkitdirectory attrConstruct _ = constructDOMHTMLInputElementWebkitdirectory + attrClear _ = undefined -- VVV Prop "width" - -- Type: TBasicType TUInt64 + -- Type: TBasicType TULong -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) -getDOMHTMLInputElementWidth :: (MonadIO m, DOMHTMLInputElementK o) => o -> m Word64 -getDOMHTMLInputElementWidth obj = liftIO $ getObjectPropertyUInt64 obj "width" +getDOMHTMLInputElementWidth :: (MonadIO m, DOMHTMLInputElementK o) => o -> m CULong +getDOMHTMLInputElementWidth obj = liftIO $ getObjectPropertyULong obj "width" -setDOMHTMLInputElementWidth :: (MonadIO m, DOMHTMLInputElementK o) => o -> Word64 -> m () -setDOMHTMLInputElementWidth obj val = liftIO $ setObjectPropertyUInt64 obj "width" val +setDOMHTMLInputElementWidth :: (MonadIO m, DOMHTMLInputElementK o) => o -> CULong -> m () +setDOMHTMLInputElementWidth obj val = liftIO $ setObjectPropertyULong obj "width" val -constructDOMHTMLInputElementWidth :: Word64 -> IO ([Char], GValue) -constructDOMHTMLInputElementWidth val = constructObjectPropertyUInt64 "width" val +constructDOMHTMLInputElementWidth :: CULong -> IO ([Char], GValue) +constructDOMHTMLInputElementWidth val = constructObjectPropertyULong "width" val data DOMHTMLInputElementWidthPropertyInfo instance AttrInfo DOMHTMLInputElementWidthPropertyInfo where type AttrAllowedOps DOMHTMLInputElementWidthPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLInputElementWidthPropertyInfo = (~) Word64 + type AttrSetTypeConstraint DOMHTMLInputElementWidthPropertyInfo = (~) CULong type AttrBaseTypeConstraint DOMHTMLInputElementWidthPropertyInfo = DOMHTMLInputElementK - type AttrGetType DOMHTMLInputElementWidthPropertyInfo = Word64 + type AttrGetType DOMHTMLInputElementWidthPropertyInfo = CULong type AttrLabel DOMHTMLInputElementWidthPropertyInfo = "width" attrGet _ = getDOMHTMLInputElementWidth attrSet _ = setDOMHTMLInputElementWidth attrConstruct _ = constructDOMHTMLInputElementWidth + attrClear _ = undefined -- VVV Prop "will-validate" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) getDOMHTMLInputElementWillValidate :: (MonadIO m, DOMHTMLInputElementK o) => o -> m Bool getDOMHTMLInputElementWillValidate obj = liftIO $ getObjectPropertyBool obj "will-validate" @@ -2228,10 +2375,155 @@ attrGet _ = getDOMHTMLInputElementWillValidate attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined type instance AttributeList DOMHTMLInputElement = DOMHTMLInputElementAttributeList type DOMHTMLInputElementAttributeList = ('[ '("accept", DOMHTMLInputElementAcceptPropertyInfo), '("accessKey", DOMHTMLElementAccessKeyPropertyInfo), '("align", DOMHTMLInputElementAlignPropertyInfo), '("alt", DOMHTMLInputElementAltPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("autocapitalize", DOMHTMLInputElementAutocapitalizePropertyInfo), '("autocomplete", DOMHTMLInputElementAutocompletePropertyInfo), '("autocorrect", DOMHTMLInputElementAutocorrectPropertyInfo), '("autofocus", DOMHTMLInputElementAutofocusPropertyInfo), '("baseUri", DOMNodeBaseUriPropertyInfo), '("capture", DOMHTMLInputElementCapturePropertyInfo), '("checked", DOMHTMLInputElementCheckedPropertyInfo), '("childElementCount", DOMElementChildElementCountPropertyInfo), '("childNodes", DOMNodeChildNodesPropertyInfo), '("children", DOMHTMLElementChildrenPropertyInfo), '("classList", DOMElementClassListPropertyInfo), '("className", DOMElementClassNamePropertyInfo), '("clientHeight", DOMElementClientHeightPropertyInfo), '("clientLeft", DOMElementClientLeftPropertyInfo), '("clientTop", DOMElementClientTopPropertyInfo), '("clientWidth", DOMElementClientWidthPropertyInfo), '("contentEditable", DOMHTMLElementContentEditablePropertyInfo), '("coreObject", DOMObjectCoreObjectPropertyInfo), '("defaultChecked", DOMHTMLInputElementDefaultCheckedPropertyInfo), '("defaultValue", DOMHTMLInputElementDefaultValuePropertyInfo), '("dir", DOMHTMLElementDirPropertyInfo), '("dirName", DOMHTMLInputElementDirNamePropertyInfo), '("disabled", DOMHTMLInputElementDisabledPropertyInfo), '("draggable", DOMHTMLElementDraggablePropertyInfo), '("files", DOMHTMLInputElementFilesPropertyInfo), '("firstChild", DOMNodeFirstChildPropertyInfo), '("firstElementChild", DOMElementFirstElementChildPropertyInfo), '("form", DOMHTMLInputElementFormPropertyInfo), '("formAction", DOMHTMLInputElementFormActionPropertyInfo), '("formEnctype", DOMHTMLInputElementFormEnctypePropertyInfo), '("formMethod", DOMHTMLInputElementFormMethodPropertyInfo), '("formNoValidate", DOMHTMLInputElementFormNoValidatePropertyInfo), '("formTarget", DOMHTMLInputElementFormTargetPropertyInfo), '("height", DOMHTMLInputElementHeightPropertyInfo), '("hidden", DOMHTMLElementHiddenPropertyInfo), '("id", DOMElementIdPropertyInfo), '("incremental", DOMHTMLInputElementIncrementalPropertyInfo), '("indeterminate", DOMHTMLInputElementIndeterminatePropertyInfo), '("innerHtml", DOMHTMLElementInnerHtmlPropertyInfo), '("innerText", DOMHTMLElementInnerTextPropertyInfo), '("isContentEditable", DOMHTMLElementIsContentEditablePropertyInfo), '("labels", DOMHTMLInputElementLabelsPropertyInfo), '("lang", DOMHTMLElementLangPropertyInfo), '("lastChild", DOMNodeLastChildPropertyInfo), '("lastElementChild", DOMElementLastElementChildPropertyInfo), '("list", DOMHTMLInputElementListPropertyInfo), '("localName", DOMNodeLocalNamePropertyInfo), '("max", DOMHTMLInputElementMaxPropertyInfo), '("maxLength", DOMHTMLInputElementMaxLengthPropertyInfo), '("min", DOMHTMLInputElementMinPropertyInfo), '("multiple", DOMHTMLInputElementMultiplePropertyInfo), '("name", DOMHTMLInputElementNamePropertyInfo), '("namespaceUri", DOMNodeNamespaceUriPropertyInfo), '("nextElementSibling", DOMElementNextElementSiblingPropertyInfo), '("nextSibling", DOMNodeNextSiblingPropertyInfo), '("nodeName", DOMNodeNodeNamePropertyInfo), '("nodeType", DOMNodeNodeTypePropertyInfo), '("nodeValue", DOMNodeNodeValuePropertyInfo), '("offsetHeight", DOMElementOffsetHeightPropertyInfo), '("offsetLeft", DOMElementOffsetLeftPropertyInfo), '("offsetParent", DOMElementOffsetParentPropertyInfo), '("offsetTop", DOMElementOffsetTopPropertyInfo), '("offsetWidth", DOMElementOffsetWidthPropertyInfo), '("outerHtml", DOMHTMLElementOuterHtmlPropertyInfo), '("outerText", DOMHTMLElementOuterTextPropertyInfo), '("ownerDocument", DOMNodeOwnerDocumentPropertyInfo), '("parentElement", DOMNodeParentElementPropertyInfo), '("parentNode", DOMNodeParentNodePropertyInfo), '("pattern", DOMHTMLInputElementPatternPropertyInfo), '("placeholder", DOMHTMLInputElementPlaceholderPropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previousElementSibling", DOMElementPreviousElementSiblingPropertyInfo), '("previousSibling", DOMNodePreviousSiblingPropertyInfo), '("readOnly", DOMHTMLInputElementReadOnlyPropertyInfo), '("required", DOMHTMLInputElementRequiredPropertyInfo), '("scrollHeight", DOMElementScrollHeightPropertyInfo), '("scrollLeft", DOMElementScrollLeftPropertyInfo), '("scrollTop", DOMElementScrollTopPropertyInfo), '("scrollWidth", DOMElementScrollWidthPropertyInfo), '("size", DOMHTMLInputElementSizePropertyInfo), '("spellcheck", DOMHTMLElementSpellcheckPropertyInfo), '("src", DOMHTMLInputElementSrcPropertyInfo), '("step", DOMHTMLInputElementStepPropertyInfo), '("style", DOMElementStylePropertyInfo), '("tabIndex", DOMHTMLElementTabIndexPropertyInfo), '("tagName", DOMElementTagNamePropertyInfo), '("textContent", DOMNodeTextContentPropertyInfo), '("title", DOMHTMLElementTitlePropertyInfo), '("translate", DOMHTMLElementTranslatePropertyInfo), '("type", DOMHTMLInputElementTypePropertyInfo), '("useMap", DOMHTMLInputElementUseMapPropertyInfo), '("validationMessage", DOMHTMLInputElementValidationMessagePropertyInfo), '("validity", DOMHTMLInputElementValidityPropertyInfo), '("value", DOMHTMLInputElementValuePropertyInfo), '("valueAsNumber", DOMHTMLInputElementValueAsNumberPropertyInfo), '("webkitGrammar", DOMHTMLInputElementWebkitGrammarPropertyInfo), '("webkitRegionOverset", DOMElementWebkitRegionOversetPropertyInfo), '("webkitSpeech", DOMHTMLInputElementWebkitSpeechPropertyInfo), '("webkitdirectory", DOMHTMLInputElementWebkitdirectoryPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo), '("width", DOMHTMLInputElementWidthPropertyInfo), '("willValidate", DOMHTMLInputElementWillValidatePropertyInfo)] :: [(Symbol, *)]) +dOMHTMLInputElementAccept :: AttrLabelProxy "accept" +dOMHTMLInputElementAccept = AttrLabelProxy + +dOMHTMLInputElementAlign :: AttrLabelProxy "align" +dOMHTMLInputElementAlign = AttrLabelProxy + +dOMHTMLInputElementAlt :: AttrLabelProxy "alt" +dOMHTMLInputElementAlt = AttrLabelProxy + +dOMHTMLInputElementAutocapitalize :: AttrLabelProxy "autocapitalize" +dOMHTMLInputElementAutocapitalize = AttrLabelProxy + +dOMHTMLInputElementAutocomplete :: AttrLabelProxy "autocomplete" +dOMHTMLInputElementAutocomplete = AttrLabelProxy + +dOMHTMLInputElementAutocorrect :: AttrLabelProxy "autocorrect" +dOMHTMLInputElementAutocorrect = AttrLabelProxy + +dOMHTMLInputElementAutofocus :: AttrLabelProxy "autofocus" +dOMHTMLInputElementAutofocus = AttrLabelProxy + +dOMHTMLInputElementCapture :: AttrLabelProxy "capture" +dOMHTMLInputElementCapture = AttrLabelProxy + +dOMHTMLInputElementChecked :: AttrLabelProxy "checked" +dOMHTMLInputElementChecked = AttrLabelProxy + +dOMHTMLInputElementDefaultChecked :: AttrLabelProxy "defaultChecked" +dOMHTMLInputElementDefaultChecked = AttrLabelProxy + +dOMHTMLInputElementDefaultValue :: AttrLabelProxy "defaultValue" +dOMHTMLInputElementDefaultValue = AttrLabelProxy + +dOMHTMLInputElementDirName :: AttrLabelProxy "dirName" +dOMHTMLInputElementDirName = AttrLabelProxy + +dOMHTMLInputElementDisabled :: AttrLabelProxy "disabled" +dOMHTMLInputElementDisabled = AttrLabelProxy + +dOMHTMLInputElementFiles :: AttrLabelProxy "files" +dOMHTMLInputElementFiles = AttrLabelProxy + +dOMHTMLInputElementForm :: AttrLabelProxy "form" +dOMHTMLInputElementForm = AttrLabelProxy + +dOMHTMLInputElementFormAction :: AttrLabelProxy "formAction" +dOMHTMLInputElementFormAction = AttrLabelProxy + +dOMHTMLInputElementFormEnctype :: AttrLabelProxy "formEnctype" +dOMHTMLInputElementFormEnctype = AttrLabelProxy + +dOMHTMLInputElementFormMethod :: AttrLabelProxy "formMethod" +dOMHTMLInputElementFormMethod = AttrLabelProxy + +dOMHTMLInputElementFormNoValidate :: AttrLabelProxy "formNoValidate" +dOMHTMLInputElementFormNoValidate = AttrLabelProxy + +dOMHTMLInputElementFormTarget :: AttrLabelProxy "formTarget" +dOMHTMLInputElementFormTarget = AttrLabelProxy + +dOMHTMLInputElementHeight :: AttrLabelProxy "height" +dOMHTMLInputElementHeight = AttrLabelProxy + +dOMHTMLInputElementIncremental :: AttrLabelProxy "incremental" +dOMHTMLInputElementIncremental = AttrLabelProxy + +dOMHTMLInputElementIndeterminate :: AttrLabelProxy "indeterminate" +dOMHTMLInputElementIndeterminate = AttrLabelProxy + +dOMHTMLInputElementLabels :: AttrLabelProxy "labels" +dOMHTMLInputElementLabels = AttrLabelProxy + +dOMHTMLInputElementList :: AttrLabelProxy "list" +dOMHTMLInputElementList = AttrLabelProxy + +dOMHTMLInputElementMax :: AttrLabelProxy "max" +dOMHTMLInputElementMax = AttrLabelProxy + +dOMHTMLInputElementMaxLength :: AttrLabelProxy "maxLength" +dOMHTMLInputElementMaxLength = AttrLabelProxy + +dOMHTMLInputElementMin :: AttrLabelProxy "min" +dOMHTMLInputElementMin = AttrLabelProxy + +dOMHTMLInputElementMultiple :: AttrLabelProxy "multiple" +dOMHTMLInputElementMultiple = AttrLabelProxy + +dOMHTMLInputElementName :: AttrLabelProxy "name" +dOMHTMLInputElementName = AttrLabelProxy + +dOMHTMLInputElementPattern :: AttrLabelProxy "pattern" +dOMHTMLInputElementPattern = AttrLabelProxy + +dOMHTMLInputElementPlaceholder :: AttrLabelProxy "placeholder" +dOMHTMLInputElementPlaceholder = AttrLabelProxy + +dOMHTMLInputElementReadOnly :: AttrLabelProxy "readOnly" +dOMHTMLInputElementReadOnly = AttrLabelProxy + +dOMHTMLInputElementRequired :: AttrLabelProxy "required" +dOMHTMLInputElementRequired = AttrLabelProxy + +dOMHTMLInputElementSize :: AttrLabelProxy "size" +dOMHTMLInputElementSize = AttrLabelProxy + +dOMHTMLInputElementSrc :: AttrLabelProxy "src" +dOMHTMLInputElementSrc = AttrLabelProxy + +dOMHTMLInputElementStep :: AttrLabelProxy "step" +dOMHTMLInputElementStep = AttrLabelProxy + +dOMHTMLInputElementType :: AttrLabelProxy "type" +dOMHTMLInputElementType = AttrLabelProxy + +dOMHTMLInputElementUseMap :: AttrLabelProxy "useMap" +dOMHTMLInputElementUseMap = AttrLabelProxy + +dOMHTMLInputElementValidationMessage :: AttrLabelProxy "validationMessage" +dOMHTMLInputElementValidationMessage = AttrLabelProxy + +dOMHTMLInputElementValidity :: AttrLabelProxy "validity" +dOMHTMLInputElementValidity = AttrLabelProxy + +dOMHTMLInputElementValue :: AttrLabelProxy "value" +dOMHTMLInputElementValue = AttrLabelProxy + +dOMHTMLInputElementValueAsNumber :: AttrLabelProxy "valueAsNumber" +dOMHTMLInputElementValueAsNumber = AttrLabelProxy + +dOMHTMLInputElementWebkitGrammar :: AttrLabelProxy "webkitGrammar" +dOMHTMLInputElementWebkitGrammar = AttrLabelProxy + +dOMHTMLInputElementWebkitSpeech :: AttrLabelProxy "webkitSpeech" +dOMHTMLInputElementWebkitSpeech = AttrLabelProxy + +dOMHTMLInputElementWebkitdirectory :: AttrLabelProxy "webkitdirectory" +dOMHTMLInputElementWebkitdirectory = AttrLabelProxy + +dOMHTMLInputElementWidth :: AttrLabelProxy "width" +dOMHTMLInputElementWidth = AttrLabelProxy + +dOMHTMLInputElementWillValidate :: AttrLabelProxy "willValidate" +dOMHTMLInputElementWillValidate = AttrLabelProxy + type instance SignalList DOMHTMLInputElement = DOMHTMLInputElementSignalList type DOMHTMLInputElementSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) @@ -2239,7 +2531,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -2267,7 +2559,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -2297,7 +2589,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -2327,7 +2619,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -2357,7 +2649,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -2387,7 +2679,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -2417,7 +2709,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -2445,7 +2737,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -2473,7 +2765,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -2503,7 +2795,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -2531,7 +2823,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -2559,7 +2851,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -2589,7 +2881,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -2619,7 +2911,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -2647,7 +2939,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit" "DOMFileList" +-- returnType : Just (TInterface "WebKit" "DOMFileList") -- throws : False -- Skip return : False @@ -2676,7 +2968,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit" "DOMHTMLFormElement" +-- returnType : Just (TInterface "WebKit" "DOMHTMLFormElement") -- throws : False -- Skip return : False @@ -2705,7 +2997,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -2735,7 +3027,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -2765,7 +3057,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -2795,7 +3087,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -2823,7 +3115,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -2853,19 +3145,19 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUInt64 +-- returnType : Just (TBasicType TULong) -- throws : False -- Skip return : False foreign import ccall "webkit_dom_html_input_element_get_height" webkit_dom_html_input_element_get_height :: Ptr DOMHTMLInputElement -> -- _obj : TInterface "WebKit" "DOMHTMLInputElement" - IO Word64 + IO CULong dOMHTMLInputElementGetHeight :: (MonadIO m, DOMHTMLInputElementK a) => a -- _obj - -> m Word64 -- result + -> m CULong -- result dOMHTMLInputElementGetHeight _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- webkit_dom_html_input_element_get_height _obj' @@ -2873,14 +3165,14 @@ return result data DOMHTMLInputElementGetHeightMethodInfo -instance (signature ~ (m Word64), MonadIO m, DOMHTMLInputElementK a) => MethodInfo DOMHTMLInputElementGetHeightMethodInfo a signature where +instance (signature ~ (m CULong), MonadIO m, DOMHTMLInputElementK a) => MethodInfo DOMHTMLInputElementGetHeightMethodInfo a signature where overloadedMethod _ = dOMHTMLInputElementGetHeight -- method DOMHTMLInputElement::get_incremental -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -2908,7 +3200,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -2936,7 +3228,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit" "DOMNodeList" +-- returnType : Just (TInterface "WebKit" "DOMNodeList") -- throws : False -- Skip return : False @@ -2965,7 +3257,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit" "DOMHTMLElement" +-- returnType : Just (TInterface "WebKit" "DOMHTMLElement") -- throws : False -- Skip return : False @@ -2994,7 +3286,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -3024,19 +3316,19 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TInt64 +-- returnType : Just (TBasicType TLong) -- throws : False -- Skip return : False foreign import ccall "webkit_dom_html_input_element_get_max_length" webkit_dom_html_input_element_get_max_length :: Ptr DOMHTMLInputElement -> -- _obj : TInterface "WebKit" "DOMHTMLInputElement" - IO Int64 + IO CLong dOMHTMLInputElementGetMaxLength :: (MonadIO m, DOMHTMLInputElementK a) => a -- _obj - -> m Int64 -- result + -> m CLong -- result dOMHTMLInputElementGetMaxLength _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- webkit_dom_html_input_element_get_max_length _obj' @@ -3044,14 +3336,14 @@ return result data DOMHTMLInputElementGetMaxLengthMethodInfo -instance (signature ~ (m Int64), MonadIO m, DOMHTMLInputElementK a) => MethodInfo DOMHTMLInputElementGetMaxLengthMethodInfo a signature where +instance (signature ~ (m CLong), MonadIO m, DOMHTMLInputElementK a) => MethodInfo DOMHTMLInputElementGetMaxLengthMethodInfo a signature where overloadedMethod _ = dOMHTMLInputElementGetMaxLength -- method DOMHTMLInputElement::get_min -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -3081,7 +3373,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -3109,7 +3401,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -3139,7 +3431,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -3169,7 +3461,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -3199,7 +3491,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -3227,7 +3519,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -3255,19 +3547,19 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUInt64 +-- returnType : Just (TBasicType TULong) -- throws : False -- Skip return : False foreign import ccall "webkit_dom_html_input_element_get_size" webkit_dom_html_input_element_get_size :: Ptr DOMHTMLInputElement -> -- _obj : TInterface "WebKit" "DOMHTMLInputElement" - IO Word64 + IO CULong dOMHTMLInputElementGetSize :: (MonadIO m, DOMHTMLInputElementK a) => a -- _obj - -> m Word64 -- result + -> m CULong -- result dOMHTMLInputElementGetSize _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- webkit_dom_html_input_element_get_size _obj' @@ -3275,14 +3567,14 @@ return result data DOMHTMLInputElementGetSizeMethodInfo -instance (signature ~ (m Word64), MonadIO m, DOMHTMLInputElementK a) => MethodInfo DOMHTMLInputElementGetSizeMethodInfo a signature where +instance (signature ~ (m CULong), MonadIO m, DOMHTMLInputElementK a) => MethodInfo DOMHTMLInputElementGetSizeMethodInfo a signature where overloadedMethod _ = dOMHTMLInputElementGetSize -- method DOMHTMLInputElement::get_src -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -3312,7 +3604,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -3342,7 +3634,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -3372,7 +3664,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -3402,7 +3694,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit" "DOMValidityState" +-- returnType : Just (TInterface "WebKit" "DOMValidityState") -- throws : False -- Skip return : False @@ -3431,7 +3723,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -3461,7 +3753,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TDouble +-- returnType : Just (TBasicType TDouble) -- throws : False -- Skip return : False @@ -3489,7 +3781,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -3517,7 +3809,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -3545,7 +3837,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -3573,19 +3865,19 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUInt64 +-- returnType : Just (TBasicType TULong) -- throws : False -- Skip return : False foreign import ccall "webkit_dom_html_input_element_get_width" webkit_dom_html_input_element_get_width :: Ptr DOMHTMLInputElement -> -- _obj : TInterface "WebKit" "DOMHTMLInputElement" - IO Word64 + IO CULong dOMHTMLInputElementGetWidth :: (MonadIO m, DOMHTMLInputElementK a) => a -- _obj - -> m Word64 -- result + -> m CULong -- result dOMHTMLInputElementGetWidth _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- webkit_dom_html_input_element_get_width _obj' @@ -3593,14 +3885,14 @@ return result data DOMHTMLInputElementGetWidthMethodInfo -instance (signature ~ (m Word64), MonadIO m, DOMHTMLInputElementK a) => MethodInfo DOMHTMLInputElementGetWidthMethodInfo a signature where +instance (signature ~ (m CULong), MonadIO m, DOMHTMLInputElementK a) => MethodInfo DOMHTMLInputElementGetWidthMethodInfo a signature where overloadedMethod _ = dOMHTMLInputElementGetWidth -- method DOMHTMLInputElement::get_will_validate -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -3628,7 +3920,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -3656,7 +3948,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -3683,7 +3975,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -3714,7 +4006,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -3745,7 +4037,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -3776,7 +4068,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -3807,7 +4099,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -3838,7 +4130,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -3868,7 +4160,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -3898,7 +4190,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -3929,7 +4221,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -3959,7 +4251,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "error", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -3990,7 +4282,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -4020,7 +4312,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -4051,7 +4343,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -4082,7 +4374,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -4112,7 +4404,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TInterface "WebKit" "DOMFileList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -4143,7 +4435,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -4174,7 +4466,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -4205,7 +4497,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -4236,7 +4528,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -4266,7 +4558,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -4295,22 +4587,22 @@ -- method DOMHTMLInputElement::set_height -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TULong, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "webkit_dom_html_input_element_set_height" webkit_dom_html_input_element_set_height :: Ptr DOMHTMLInputElement -> -- _obj : TInterface "WebKit" "DOMHTMLInputElement" - Word64 -> -- value : TBasicType TUInt64 + CULong -> -- value : TBasicType TULong IO () dOMHTMLInputElementSetHeight :: (MonadIO m, DOMHTMLInputElementK a) => a -- _obj - -> Word64 -- value + -> CULong -- value -> m () -- result dOMHTMLInputElementSetHeight _obj value = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj @@ -4319,14 +4611,14 @@ return () data DOMHTMLInputElementSetHeightMethodInfo -instance (signature ~ (Word64 -> m ()), MonadIO m, DOMHTMLInputElementK a) => MethodInfo DOMHTMLInputElementSetHeightMethodInfo a signature where +instance (signature ~ (CULong -> m ()), MonadIO m, DOMHTMLInputElementK a) => MethodInfo DOMHTMLInputElementSetHeightMethodInfo a signature where overloadedMethod _ = dOMHTMLInputElementSetHeight -- method DOMHTMLInputElement::set_incremental -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -4356,7 +4648,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -4386,7 +4678,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -4415,15 +4707,15 @@ -- method DOMHTMLInputElement::set_max_length -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TLong, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : True -- Skip return : False foreign import ccall "webkit_dom_html_input_element_set_max_length" webkit_dom_html_input_element_set_max_length :: Ptr DOMHTMLInputElement -> -- _obj : TInterface "WebKit" "DOMHTMLInputElement" - Int64 -> -- value : TBasicType TInt64 + CLong -> -- value : TBasicType TLong Ptr (Ptr GError) -> -- error IO () @@ -4431,7 +4723,7 @@ dOMHTMLInputElementSetMaxLength :: (MonadIO m, DOMHTMLInputElementK a) => a -- _obj - -> Int64 -- value + -> CLong -- value -> m () -- result dOMHTMLInputElementSetMaxLength _obj value = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj @@ -4444,14 +4736,14 @@ ) data DOMHTMLInputElementSetMaxLengthMethodInfo -instance (signature ~ (Int64 -> m ()), MonadIO m, DOMHTMLInputElementK a) => MethodInfo DOMHTMLInputElementSetMaxLengthMethodInfo a signature where +instance (signature ~ (CLong -> m ()), MonadIO m, DOMHTMLInputElementK a) => MethodInfo DOMHTMLInputElementSetMaxLengthMethodInfo a signature where overloadedMethod _ = dOMHTMLInputElementSetMaxLength -- method DOMHTMLInputElement::set_min -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -4482,7 +4774,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -4512,7 +4804,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -4543,7 +4835,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -4574,7 +4866,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -4603,17 +4895,17 @@ -- method DOMHTMLInputElement::set_range_text -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "replacement", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "start", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "end", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "selectionMode", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "replacement", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "start", argType = TBasicType TULong, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "end", argType = TBasicType TULong, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "selectionMode", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : True -- Skip return : False foreign import ccall "webkit_dom_html_input_element_set_range_text" webkit_dom_html_input_element_set_range_text :: Ptr DOMHTMLInputElement -> -- _obj : TInterface "WebKit" "DOMHTMLInputElement" CString -> -- replacement : TBasicType TUTF8 - Word64 -> -- start : TBasicType TUInt64 - Word64 -> -- end : TBasicType TUInt64 + CULong -> -- start : TBasicType TULong + CULong -> -- end : TBasicType TULong CString -> -- selectionMode : TBasicType TUTF8 Ptr (Ptr GError) -> -- error IO () @@ -4623,8 +4915,8 @@ (MonadIO m, DOMHTMLInputElementK a) => a -- _obj -> T.Text -- replacement - -> Word64 -- start - -> Word64 -- end + -> CULong -- start + -> CULong -- end -> T.Text -- selectionMode -> m () -- result dOMHTMLInputElementSetRangeText _obj replacement start end selectionMode = liftIO $ do @@ -4643,14 +4935,14 @@ ) data DOMHTMLInputElementSetRangeTextMethodInfo -instance (signature ~ (T.Text -> Word64 -> Word64 -> T.Text -> m ()), MonadIO m, DOMHTMLInputElementK a) => MethodInfo DOMHTMLInputElementSetRangeTextMethodInfo a signature where +instance (signature ~ (T.Text -> CULong -> CULong -> T.Text -> m ()), MonadIO m, DOMHTMLInputElementK a) => MethodInfo DOMHTMLInputElementSetRangeTextMethodInfo a signature where overloadedMethod _ = dOMHTMLInputElementSetRangeText -- method DOMHTMLInputElement::set_read_only -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -4680,7 +4972,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -4708,15 +5000,15 @@ -- method DOMHTMLInputElement::set_size -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TULong, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : True -- Skip return : False foreign import ccall "webkit_dom_html_input_element_set_size" webkit_dom_html_input_element_set_size :: Ptr DOMHTMLInputElement -> -- _obj : TInterface "WebKit" "DOMHTMLInputElement" - Word64 -> -- value : TBasicType TUInt64 + CULong -> -- value : TBasicType TULong Ptr (Ptr GError) -> -- error IO () @@ -4724,7 +5016,7 @@ dOMHTMLInputElementSetSize :: (MonadIO m, DOMHTMLInputElementK a) => a -- _obj - -> Word64 -- value + -> CULong -- value -> m () -- result dOMHTMLInputElementSetSize _obj value = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj @@ -4737,14 +5029,14 @@ ) data DOMHTMLInputElementSetSizeMethodInfo -instance (signature ~ (Word64 -> m ()), MonadIO m, DOMHTMLInputElementK a) => MethodInfo DOMHTMLInputElementSetSizeMethodInfo a signature where +instance (signature ~ (CULong -> m ()), MonadIO m, DOMHTMLInputElementK a) => MethodInfo DOMHTMLInputElementSetSizeMethodInfo a signature where overloadedMethod _ = dOMHTMLInputElementSetSize -- method DOMHTMLInputElement::set_src -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -4775,7 +5067,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -4806,7 +5098,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -4837,7 +5129,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -4868,7 +5160,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : True -- Skip return : False @@ -4903,7 +5195,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -4934,7 +5226,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -4964,7 +5256,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -4994,7 +5286,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -5022,22 +5314,22 @@ -- method DOMHTMLInputElement::set_width -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TULong, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "webkit_dom_html_input_element_set_width" webkit_dom_html_input_element_set_width :: Ptr DOMHTMLInputElement -> -- _obj : TInterface "WebKit" "DOMHTMLInputElement" - Word64 -> -- value : TBasicType TUInt64 + CULong -> -- value : TBasicType TULong IO () dOMHTMLInputElementSetWidth :: (MonadIO m, DOMHTMLInputElementK a) => a -- _obj - -> Word64 -- value + -> CULong -- value -> m () -- result dOMHTMLInputElementSetWidth _obj value = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj @@ -5046,20 +5338,20 @@ return () data DOMHTMLInputElementSetWidthMethodInfo -instance (signature ~ (Word64 -> m ()), MonadIO m, DOMHTMLInputElementK a) => MethodInfo DOMHTMLInputElementSetWidthMethodInfo a signature where +instance (signature ~ (CULong -> m ()), MonadIO m, DOMHTMLInputElementK a) => MethodInfo DOMHTMLInputElementSetWidthMethodInfo a signature where overloadedMethod _ = dOMHTMLInputElementSetWidth -- method DOMHTMLInputElement::step_down -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n", argType = TBasicType TLong, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : True -- Skip return : False foreign import ccall "webkit_dom_html_input_element_step_down" webkit_dom_html_input_element_step_down :: Ptr DOMHTMLInputElement -> -- _obj : TInterface "WebKit" "DOMHTMLInputElement" - Int64 -> -- n : TBasicType TInt64 + CLong -> -- n : TBasicType TLong Ptr (Ptr GError) -> -- error IO () @@ -5067,7 +5359,7 @@ dOMHTMLInputElementStepDown :: (MonadIO m, DOMHTMLInputElementK a) => a -- _obj - -> Int64 -- n + -> CLong -- n -> m () -- result dOMHTMLInputElementStepDown _obj n = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj @@ -5080,20 +5372,20 @@ ) data DOMHTMLInputElementStepDownMethodInfo -instance (signature ~ (Int64 -> m ()), MonadIO m, DOMHTMLInputElementK a) => MethodInfo DOMHTMLInputElementStepDownMethodInfo a signature where +instance (signature ~ (CLong -> m ()), MonadIO m, DOMHTMLInputElementK a) => MethodInfo DOMHTMLInputElementStepDownMethodInfo a signature where overloadedMethod _ = dOMHTMLInputElementStepDown -- method DOMHTMLInputElement::step_up -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n", argType = TBasicType TLong, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : True -- Skip return : False foreign import ccall "webkit_dom_html_input_element_step_up" webkit_dom_html_input_element_step_up :: Ptr DOMHTMLInputElement -> -- _obj : TInterface "WebKit" "DOMHTMLInputElement" - Int64 -> -- n : TBasicType TInt64 + CLong -> -- n : TBasicType TLong Ptr (Ptr GError) -> -- error IO () @@ -5101,7 +5393,7 @@ dOMHTMLInputElementStepUp :: (MonadIO m, DOMHTMLInputElementK a) => a -- _obj - -> Int64 -- n + -> CLong -- n -> m () -- result dOMHTMLInputElementStepUp _obj n = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj @@ -5114,7 +5406,7 @@ ) data DOMHTMLInputElementStepUpMethodInfo -instance (signature ~ (Int64 -> m ()), MonadIO m, DOMHTMLInputElementK a) => MethodInfo DOMHTMLInputElementStepUpMethodInfo a signature where +instance (signature ~ (CLong -> m ()), MonadIO m, DOMHTMLInputElementK a) => MethodInfo DOMHTMLInputElementStepUpMethodInfo a signature where overloadedMethod _ = dOMHTMLInputElementStepUp diff --git a/GI/WebKit/Objects/DOMHTMLInputElement.hs-boot b/GI/WebKit/Objects/DOMHTMLInputElement.hs-boot --- a/GI/WebKit/Objects/DOMHTMLInputElement.hs-boot +++ b/GI/WebKit/Objects/DOMHTMLInputElement.hs-boot @@ -1,8 +1,8 @@ module GI.WebKit.Objects.DOMHTMLInputElement where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map diff --git a/GI/WebKit/Objects/DOMHTMLKeygenElement.hs b/GI/WebKit/Objects/DOMHTMLKeygenElement.hs --- a/GI/WebKit/Objects/DOMHTMLKeygenElement.hs +++ b/GI/WebKit/Objects/DOMHTMLKeygenElement.hs @@ -108,6 +108,7 @@ -- ** Autofocus DOMHTMLKeygenElementAutofocusPropertyInfo, constructDOMHTMLKeygenElementAutofocus , + dOMHTMLKeygenElementAutofocus , getDOMHTMLKeygenElementAutofocus , setDOMHTMLKeygenElementAutofocus , @@ -115,6 +116,7 @@ -- ** Challenge DOMHTMLKeygenElementChallengePropertyInfo, constructDOMHTMLKeygenElementChallenge , + dOMHTMLKeygenElementChallenge , getDOMHTMLKeygenElementChallenge , setDOMHTMLKeygenElementChallenge , @@ -122,51 +124,60 @@ -- ** Disabled DOMHTMLKeygenElementDisabledPropertyInfo, constructDOMHTMLKeygenElementDisabled , + dOMHTMLKeygenElementDisabled , getDOMHTMLKeygenElementDisabled , setDOMHTMLKeygenElementDisabled , -- ** Form DOMHTMLKeygenElementFormPropertyInfo , + dOMHTMLKeygenElementForm , getDOMHTMLKeygenElementForm , -- ** Keytype DOMHTMLKeygenElementKeytypePropertyInfo , constructDOMHTMLKeygenElementKeytype , + dOMHTMLKeygenElementKeytype , getDOMHTMLKeygenElementKeytype , setDOMHTMLKeygenElementKeytype , -- ** Labels DOMHTMLKeygenElementLabelsPropertyInfo , + dOMHTMLKeygenElementLabels , getDOMHTMLKeygenElementLabels , -- ** Name DOMHTMLKeygenElementNamePropertyInfo , constructDOMHTMLKeygenElementName , + dOMHTMLKeygenElementName , getDOMHTMLKeygenElementName , setDOMHTMLKeygenElementName , -- ** Type DOMHTMLKeygenElementTypePropertyInfo , + dOMHTMLKeygenElementType , getDOMHTMLKeygenElementType , -- ** ValidationMessage DOMHTMLKeygenElementValidationMessagePropertyInfo, + dOMHTMLKeygenElementValidationMessage , getDOMHTMLKeygenElementValidationMessage, -- ** Validity DOMHTMLKeygenElementValidityPropertyInfo, + dOMHTMLKeygenElementValidity , getDOMHTMLKeygenElementValidity , -- ** WillValidate DOMHTMLKeygenElementWillValidatePropertyInfo, + dOMHTMLKeygenElementWillValidate , getDOMHTMLKeygenElementWillValidate , @@ -174,9 +185,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map @@ -391,6 +402,7 @@ -- VVV Prop "autofocus" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getDOMHTMLKeygenElementAutofocus :: (MonadIO m, DOMHTMLKeygenElementK o) => o -> m Bool getDOMHTMLKeygenElementAutofocus obj = liftIO $ getObjectPropertyBool obj "autofocus" @@ -411,34 +423,38 @@ attrGet _ = getDOMHTMLKeygenElementAutofocus attrSet _ = setDOMHTMLKeygenElementAutofocus attrConstruct _ = constructDOMHTMLKeygenElementAutofocus + attrClear _ = undefined -- VVV Prop "challenge" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Just False) -getDOMHTMLKeygenElementChallenge :: (MonadIO m, DOMHTMLKeygenElementK o) => o -> m T.Text +getDOMHTMLKeygenElementChallenge :: (MonadIO m, DOMHTMLKeygenElementK o) => o -> m (Maybe T.Text) getDOMHTMLKeygenElementChallenge obj = liftIO $ getObjectPropertyString obj "challenge" setDOMHTMLKeygenElementChallenge :: (MonadIO m, DOMHTMLKeygenElementK o) => o -> T.Text -> m () -setDOMHTMLKeygenElementChallenge obj val = liftIO $ setObjectPropertyString obj "challenge" val +setDOMHTMLKeygenElementChallenge obj val = liftIO $ setObjectPropertyString obj "challenge" (Just val) constructDOMHTMLKeygenElementChallenge :: T.Text -> IO ([Char], GValue) -constructDOMHTMLKeygenElementChallenge val = constructObjectPropertyString "challenge" val +constructDOMHTMLKeygenElementChallenge val = constructObjectPropertyString "challenge" (Just val) data DOMHTMLKeygenElementChallengePropertyInfo instance AttrInfo DOMHTMLKeygenElementChallengePropertyInfo where type AttrAllowedOps DOMHTMLKeygenElementChallengePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint DOMHTMLKeygenElementChallengePropertyInfo = (~) T.Text type AttrBaseTypeConstraint DOMHTMLKeygenElementChallengePropertyInfo = DOMHTMLKeygenElementK - type AttrGetType DOMHTMLKeygenElementChallengePropertyInfo = T.Text + type AttrGetType DOMHTMLKeygenElementChallengePropertyInfo = (Maybe T.Text) type AttrLabel DOMHTMLKeygenElementChallengePropertyInfo = "challenge" attrGet _ = getDOMHTMLKeygenElementChallenge attrSet _ = setDOMHTMLKeygenElementChallenge attrConstruct _ = constructDOMHTMLKeygenElementChallenge + attrClear _ = undefined -- VVV Prop "disabled" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getDOMHTMLKeygenElementDisabled :: (MonadIO m, DOMHTMLKeygenElementK o) => o -> m Bool getDOMHTMLKeygenElementDisabled obj = liftIO $ getObjectPropertyBool obj "disabled" @@ -459,17 +475,19 @@ attrGet _ = getDOMHTMLKeygenElementDisabled attrSet _ = setDOMHTMLKeygenElementDisabled attrConstruct _ = constructDOMHTMLKeygenElementDisabled + attrClear _ = undefined -- VVV Prop "form" -- Type: TInterface "WebKit" "DOMHTMLFormElement" -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) getDOMHTMLKeygenElementForm :: (MonadIO m, DOMHTMLKeygenElementK o) => o -> m DOMHTMLFormElement -getDOMHTMLKeygenElementForm obj = liftIO $ getObjectPropertyObject obj "form" DOMHTMLFormElement +getDOMHTMLKeygenElementForm obj = liftIO $ checkUnexpectedNothing "getDOMHTMLKeygenElementForm" $ getObjectPropertyObject obj "form" DOMHTMLFormElement data DOMHTMLKeygenElementFormPropertyInfo instance AttrInfo DOMHTMLKeygenElementFormPropertyInfo where - type AttrAllowedOps DOMHTMLKeygenElementFormPropertyInfo = '[ 'AttrGet] + type AttrAllowedOps DOMHTMLKeygenElementFormPropertyInfo = '[ 'AttrGet, 'AttrClear] type AttrSetTypeConstraint DOMHTMLKeygenElementFormPropertyInfo = (~) () type AttrBaseTypeConstraint DOMHTMLKeygenElementFormPropertyInfo = DOMHTMLKeygenElementK type AttrGetType DOMHTMLKeygenElementFormPropertyInfo = DOMHTMLFormElement @@ -477,130 +495,144 @@ attrGet _ = getDOMHTMLKeygenElementForm attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "keytype" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Just False) -getDOMHTMLKeygenElementKeytype :: (MonadIO m, DOMHTMLKeygenElementK o) => o -> m T.Text +getDOMHTMLKeygenElementKeytype :: (MonadIO m, DOMHTMLKeygenElementK o) => o -> m (Maybe T.Text) getDOMHTMLKeygenElementKeytype obj = liftIO $ getObjectPropertyString obj "keytype" setDOMHTMLKeygenElementKeytype :: (MonadIO m, DOMHTMLKeygenElementK o) => o -> T.Text -> m () -setDOMHTMLKeygenElementKeytype obj val = liftIO $ setObjectPropertyString obj "keytype" val +setDOMHTMLKeygenElementKeytype obj val = liftIO $ setObjectPropertyString obj "keytype" (Just val) constructDOMHTMLKeygenElementKeytype :: T.Text -> IO ([Char], GValue) -constructDOMHTMLKeygenElementKeytype val = constructObjectPropertyString "keytype" val +constructDOMHTMLKeygenElementKeytype val = constructObjectPropertyString "keytype" (Just val) data DOMHTMLKeygenElementKeytypePropertyInfo instance AttrInfo DOMHTMLKeygenElementKeytypePropertyInfo where type AttrAllowedOps DOMHTMLKeygenElementKeytypePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint DOMHTMLKeygenElementKeytypePropertyInfo = (~) T.Text type AttrBaseTypeConstraint DOMHTMLKeygenElementKeytypePropertyInfo = DOMHTMLKeygenElementK - type AttrGetType DOMHTMLKeygenElementKeytypePropertyInfo = T.Text + type AttrGetType DOMHTMLKeygenElementKeytypePropertyInfo = (Maybe T.Text) type AttrLabel DOMHTMLKeygenElementKeytypePropertyInfo = "keytype" attrGet _ = getDOMHTMLKeygenElementKeytype attrSet _ = setDOMHTMLKeygenElementKeytype attrConstruct _ = constructDOMHTMLKeygenElementKeytype + attrClear _ = undefined -- VVV Prop "labels" -- Type: TInterface "WebKit" "DOMNodeList" -- Flags: [PropertyReadable] + -- Nullable: (Nothing,Nothing) -getDOMHTMLKeygenElementLabels :: (MonadIO m, DOMHTMLKeygenElementK o) => o -> m DOMNodeList +getDOMHTMLKeygenElementLabels :: (MonadIO m, DOMHTMLKeygenElementK o) => o -> m (Maybe DOMNodeList) getDOMHTMLKeygenElementLabels obj = liftIO $ getObjectPropertyObject obj "labels" DOMNodeList data DOMHTMLKeygenElementLabelsPropertyInfo instance AttrInfo DOMHTMLKeygenElementLabelsPropertyInfo where - type AttrAllowedOps DOMHTMLKeygenElementLabelsPropertyInfo = '[ 'AttrGet] + type AttrAllowedOps DOMHTMLKeygenElementLabelsPropertyInfo = '[ 'AttrGet, 'AttrClear] type AttrSetTypeConstraint DOMHTMLKeygenElementLabelsPropertyInfo = (~) () type AttrBaseTypeConstraint DOMHTMLKeygenElementLabelsPropertyInfo = DOMHTMLKeygenElementK - type AttrGetType DOMHTMLKeygenElementLabelsPropertyInfo = DOMNodeList + type AttrGetType DOMHTMLKeygenElementLabelsPropertyInfo = (Maybe DOMNodeList) type AttrLabel DOMHTMLKeygenElementLabelsPropertyInfo = "labels" attrGet _ = getDOMHTMLKeygenElementLabels attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "name" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Just False) -getDOMHTMLKeygenElementName :: (MonadIO m, DOMHTMLKeygenElementK o) => o -> m T.Text +getDOMHTMLKeygenElementName :: (MonadIO m, DOMHTMLKeygenElementK o) => o -> m (Maybe T.Text) getDOMHTMLKeygenElementName obj = liftIO $ getObjectPropertyString obj "name" setDOMHTMLKeygenElementName :: (MonadIO m, DOMHTMLKeygenElementK o) => o -> T.Text -> m () -setDOMHTMLKeygenElementName obj val = liftIO $ setObjectPropertyString obj "name" val +setDOMHTMLKeygenElementName obj val = liftIO $ setObjectPropertyString obj "name" (Just val) constructDOMHTMLKeygenElementName :: T.Text -> IO ([Char], GValue) -constructDOMHTMLKeygenElementName val = constructObjectPropertyString "name" val +constructDOMHTMLKeygenElementName val = constructObjectPropertyString "name" (Just val) data DOMHTMLKeygenElementNamePropertyInfo instance AttrInfo DOMHTMLKeygenElementNamePropertyInfo where type AttrAllowedOps DOMHTMLKeygenElementNamePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint DOMHTMLKeygenElementNamePropertyInfo = (~) T.Text type AttrBaseTypeConstraint DOMHTMLKeygenElementNamePropertyInfo = DOMHTMLKeygenElementK - type AttrGetType DOMHTMLKeygenElementNamePropertyInfo = T.Text + type AttrGetType DOMHTMLKeygenElementNamePropertyInfo = (Maybe T.Text) type AttrLabel DOMHTMLKeygenElementNamePropertyInfo = "name" attrGet _ = getDOMHTMLKeygenElementName attrSet _ = setDOMHTMLKeygenElementName attrConstruct _ = constructDOMHTMLKeygenElementName + attrClear _ = undefined -- VVV Prop "type" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable] + -- Nullable: (Nothing,Nothing) -getDOMHTMLKeygenElementType :: (MonadIO m, DOMHTMLKeygenElementK o) => o -> m T.Text +getDOMHTMLKeygenElementType :: (MonadIO m, DOMHTMLKeygenElementK o) => o -> m (Maybe T.Text) getDOMHTMLKeygenElementType obj = liftIO $ getObjectPropertyString obj "type" data DOMHTMLKeygenElementTypePropertyInfo instance AttrInfo DOMHTMLKeygenElementTypePropertyInfo where - type AttrAllowedOps DOMHTMLKeygenElementTypePropertyInfo = '[ 'AttrGet] + type AttrAllowedOps DOMHTMLKeygenElementTypePropertyInfo = '[ 'AttrGet, 'AttrClear] type AttrSetTypeConstraint DOMHTMLKeygenElementTypePropertyInfo = (~) () type AttrBaseTypeConstraint DOMHTMLKeygenElementTypePropertyInfo = DOMHTMLKeygenElementK - type AttrGetType DOMHTMLKeygenElementTypePropertyInfo = T.Text + type AttrGetType DOMHTMLKeygenElementTypePropertyInfo = (Maybe T.Text) type AttrLabel DOMHTMLKeygenElementTypePropertyInfo = "type" attrGet _ = getDOMHTMLKeygenElementType attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "validation-message" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable] + -- Nullable: (Nothing,Nothing) -getDOMHTMLKeygenElementValidationMessage :: (MonadIO m, DOMHTMLKeygenElementK o) => o -> m T.Text +getDOMHTMLKeygenElementValidationMessage :: (MonadIO m, DOMHTMLKeygenElementK o) => o -> m (Maybe T.Text) getDOMHTMLKeygenElementValidationMessage obj = liftIO $ getObjectPropertyString obj "validation-message" data DOMHTMLKeygenElementValidationMessagePropertyInfo instance AttrInfo DOMHTMLKeygenElementValidationMessagePropertyInfo where - type AttrAllowedOps DOMHTMLKeygenElementValidationMessagePropertyInfo = '[ 'AttrGet] + type AttrAllowedOps DOMHTMLKeygenElementValidationMessagePropertyInfo = '[ 'AttrGet, 'AttrClear] type AttrSetTypeConstraint DOMHTMLKeygenElementValidationMessagePropertyInfo = (~) () type AttrBaseTypeConstraint DOMHTMLKeygenElementValidationMessagePropertyInfo = DOMHTMLKeygenElementK - type AttrGetType DOMHTMLKeygenElementValidationMessagePropertyInfo = T.Text + type AttrGetType DOMHTMLKeygenElementValidationMessagePropertyInfo = (Maybe T.Text) type AttrLabel DOMHTMLKeygenElementValidationMessagePropertyInfo = "validation-message" attrGet _ = getDOMHTMLKeygenElementValidationMessage attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "validity" -- Type: TInterface "WebKit" "DOMValidityState" -- Flags: [PropertyReadable] + -- Nullable: (Nothing,Nothing) -getDOMHTMLKeygenElementValidity :: (MonadIO m, DOMHTMLKeygenElementK o) => o -> m DOMValidityState +getDOMHTMLKeygenElementValidity :: (MonadIO m, DOMHTMLKeygenElementK o) => o -> m (Maybe DOMValidityState) getDOMHTMLKeygenElementValidity obj = liftIO $ getObjectPropertyObject obj "validity" DOMValidityState data DOMHTMLKeygenElementValidityPropertyInfo instance AttrInfo DOMHTMLKeygenElementValidityPropertyInfo where - type AttrAllowedOps DOMHTMLKeygenElementValidityPropertyInfo = '[ 'AttrGet] + type AttrAllowedOps DOMHTMLKeygenElementValidityPropertyInfo = '[ 'AttrGet, 'AttrClear] type AttrSetTypeConstraint DOMHTMLKeygenElementValidityPropertyInfo = (~) () type AttrBaseTypeConstraint DOMHTMLKeygenElementValidityPropertyInfo = DOMHTMLKeygenElementK - type AttrGetType DOMHTMLKeygenElementValidityPropertyInfo = DOMValidityState + type AttrGetType DOMHTMLKeygenElementValidityPropertyInfo = (Maybe DOMValidityState) type AttrLabel DOMHTMLKeygenElementValidityPropertyInfo = "validity" attrGet _ = getDOMHTMLKeygenElementValidity attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "will-validate" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) getDOMHTMLKeygenElementWillValidate :: (MonadIO m, DOMHTMLKeygenElementK o) => o -> m Bool getDOMHTMLKeygenElementWillValidate obj = liftIO $ getObjectPropertyBool obj "will-validate" @@ -615,10 +647,44 @@ attrGet _ = getDOMHTMLKeygenElementWillValidate attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined type instance AttributeList DOMHTMLKeygenElement = DOMHTMLKeygenElementAttributeList type DOMHTMLKeygenElementAttributeList = ('[ '("accessKey", DOMHTMLElementAccessKeyPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("autofocus", DOMHTMLKeygenElementAutofocusPropertyInfo), '("baseUri", DOMNodeBaseUriPropertyInfo), '("challenge", DOMHTMLKeygenElementChallengePropertyInfo), '("childElementCount", DOMElementChildElementCountPropertyInfo), '("childNodes", DOMNodeChildNodesPropertyInfo), '("children", DOMHTMLElementChildrenPropertyInfo), '("classList", DOMElementClassListPropertyInfo), '("className", DOMElementClassNamePropertyInfo), '("clientHeight", DOMElementClientHeightPropertyInfo), '("clientLeft", DOMElementClientLeftPropertyInfo), '("clientTop", DOMElementClientTopPropertyInfo), '("clientWidth", DOMElementClientWidthPropertyInfo), '("contentEditable", DOMHTMLElementContentEditablePropertyInfo), '("coreObject", DOMObjectCoreObjectPropertyInfo), '("dir", DOMHTMLElementDirPropertyInfo), '("disabled", DOMHTMLKeygenElementDisabledPropertyInfo), '("draggable", DOMHTMLElementDraggablePropertyInfo), '("firstChild", DOMNodeFirstChildPropertyInfo), '("firstElementChild", DOMElementFirstElementChildPropertyInfo), '("form", DOMHTMLKeygenElementFormPropertyInfo), '("hidden", DOMHTMLElementHiddenPropertyInfo), '("id", DOMElementIdPropertyInfo), '("innerHtml", DOMHTMLElementInnerHtmlPropertyInfo), '("innerText", DOMHTMLElementInnerTextPropertyInfo), '("isContentEditable", DOMHTMLElementIsContentEditablePropertyInfo), '("keytype", DOMHTMLKeygenElementKeytypePropertyInfo), '("labels", DOMHTMLKeygenElementLabelsPropertyInfo), '("lang", DOMHTMLElementLangPropertyInfo), '("lastChild", DOMNodeLastChildPropertyInfo), '("lastElementChild", DOMElementLastElementChildPropertyInfo), '("localName", DOMNodeLocalNamePropertyInfo), '("name", DOMHTMLKeygenElementNamePropertyInfo), '("namespaceUri", DOMNodeNamespaceUriPropertyInfo), '("nextElementSibling", DOMElementNextElementSiblingPropertyInfo), '("nextSibling", DOMNodeNextSiblingPropertyInfo), '("nodeName", DOMNodeNodeNamePropertyInfo), '("nodeType", DOMNodeNodeTypePropertyInfo), '("nodeValue", DOMNodeNodeValuePropertyInfo), '("offsetHeight", DOMElementOffsetHeightPropertyInfo), '("offsetLeft", DOMElementOffsetLeftPropertyInfo), '("offsetParent", DOMElementOffsetParentPropertyInfo), '("offsetTop", DOMElementOffsetTopPropertyInfo), '("offsetWidth", DOMElementOffsetWidthPropertyInfo), '("outerHtml", DOMHTMLElementOuterHtmlPropertyInfo), '("outerText", DOMHTMLElementOuterTextPropertyInfo), '("ownerDocument", DOMNodeOwnerDocumentPropertyInfo), '("parentElement", DOMNodeParentElementPropertyInfo), '("parentNode", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previousElementSibling", DOMElementPreviousElementSiblingPropertyInfo), '("previousSibling", DOMNodePreviousSiblingPropertyInfo), '("scrollHeight", DOMElementScrollHeightPropertyInfo), '("scrollLeft", DOMElementScrollLeftPropertyInfo), '("scrollTop", DOMElementScrollTopPropertyInfo), '("scrollWidth", DOMElementScrollWidthPropertyInfo), '("spellcheck", DOMHTMLElementSpellcheckPropertyInfo), '("style", DOMElementStylePropertyInfo), '("tabIndex", DOMHTMLElementTabIndexPropertyInfo), '("tagName", DOMElementTagNamePropertyInfo), '("textContent", DOMNodeTextContentPropertyInfo), '("title", DOMHTMLElementTitlePropertyInfo), '("translate", DOMHTMLElementTranslatePropertyInfo), '("type", DOMHTMLKeygenElementTypePropertyInfo), '("validationMessage", DOMHTMLKeygenElementValidationMessagePropertyInfo), '("validity", DOMHTMLKeygenElementValidityPropertyInfo), '("webkitRegionOverset", DOMElementWebkitRegionOversetPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo), '("willValidate", DOMHTMLKeygenElementWillValidatePropertyInfo)] :: [(Symbol, *)]) +dOMHTMLKeygenElementAutofocus :: AttrLabelProxy "autofocus" +dOMHTMLKeygenElementAutofocus = AttrLabelProxy + +dOMHTMLKeygenElementChallenge :: AttrLabelProxy "challenge" +dOMHTMLKeygenElementChallenge = AttrLabelProxy + +dOMHTMLKeygenElementDisabled :: AttrLabelProxy "disabled" +dOMHTMLKeygenElementDisabled = AttrLabelProxy + +dOMHTMLKeygenElementForm :: AttrLabelProxy "form" +dOMHTMLKeygenElementForm = AttrLabelProxy + +dOMHTMLKeygenElementKeytype :: AttrLabelProxy "keytype" +dOMHTMLKeygenElementKeytype = AttrLabelProxy + +dOMHTMLKeygenElementLabels :: AttrLabelProxy "labels" +dOMHTMLKeygenElementLabels = AttrLabelProxy + +dOMHTMLKeygenElementName :: AttrLabelProxy "name" +dOMHTMLKeygenElementName = AttrLabelProxy + +dOMHTMLKeygenElementType :: AttrLabelProxy "type" +dOMHTMLKeygenElementType = AttrLabelProxy + +dOMHTMLKeygenElementValidationMessage :: AttrLabelProxy "validationMessage" +dOMHTMLKeygenElementValidationMessage = AttrLabelProxy + +dOMHTMLKeygenElementValidity :: AttrLabelProxy "validity" +dOMHTMLKeygenElementValidity = AttrLabelProxy + +dOMHTMLKeygenElementWillValidate :: AttrLabelProxy "willValidate" +dOMHTMLKeygenElementWillValidate = AttrLabelProxy + type instance SignalList DOMHTMLKeygenElement = DOMHTMLKeygenElementSignalList type DOMHTMLKeygenElementSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) @@ -626,7 +692,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLKeygenElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -654,7 +720,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLKeygenElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -682,7 +748,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLKeygenElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -712,7 +778,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLKeygenElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -740,7 +806,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLKeygenElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit" "DOMHTMLFormElement" +-- returnType : Just (TInterface "WebKit" "DOMHTMLFormElement") -- throws : False -- Skip return : False @@ -769,7 +835,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLKeygenElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -799,7 +865,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLKeygenElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit" "DOMNodeList" +-- returnType : Just (TInterface "WebKit" "DOMNodeList") -- throws : False -- Skip return : False @@ -828,7 +894,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLKeygenElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -858,7 +924,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLKeygenElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -888,7 +954,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLKeygenElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit" "DOMValidityState" +-- returnType : Just (TInterface "WebKit" "DOMValidityState") -- throws : False -- Skip return : False @@ -917,7 +983,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLKeygenElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -945,7 +1011,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLKeygenElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -975,7 +1041,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLKeygenElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1006,7 +1072,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLKeygenElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "error", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1037,7 +1103,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLKeygenElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1067,7 +1133,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLKeygenElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1098,7 +1164,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLKeygenElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False diff --git a/GI/WebKit/Objects/DOMHTMLKeygenElement.hs-boot b/GI/WebKit/Objects/DOMHTMLKeygenElement.hs-boot --- a/GI/WebKit/Objects/DOMHTMLKeygenElement.hs-boot +++ b/GI/WebKit/Objects/DOMHTMLKeygenElement.hs-boot @@ -1,8 +1,8 @@ module GI.WebKit.Objects.DOMHTMLKeygenElement where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map diff --git a/GI/WebKit/Objects/DOMHTMLLIElement.hs b/GI/WebKit/Objects/DOMHTMLLIElement.hs --- a/GI/WebKit/Objects/DOMHTMLLIElement.hs +++ b/GI/WebKit/Objects/DOMHTMLLIElement.hs @@ -32,7 +32,9 @@ -- * Properties -- ** Type DOMHTMLLIElementTypePropertyInfo , + clearDOMHTMLLIElementType , constructDOMHTMLLIElementType , + dOMHTMLLIElementType , getDOMHTMLLIElementType , setDOMHTMLLIElementType , @@ -40,6 +42,7 @@ -- ** Value DOMHTMLLIElementValuePropertyInfo , constructDOMHTMLLIElementValue , + dOMHTMLLIElementValue , getDOMHTMLLIElementValue , setDOMHTMLLIElementValue , @@ -48,9 +51,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map @@ -250,54 +253,67 @@ -- VVV Prop "type" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) -getDOMHTMLLIElementType :: (MonadIO m, DOMHTMLLIElementK o) => o -> m T.Text +getDOMHTMLLIElementType :: (MonadIO m, DOMHTMLLIElementK o) => o -> m (Maybe T.Text) getDOMHTMLLIElementType obj = liftIO $ getObjectPropertyString obj "type" setDOMHTMLLIElementType :: (MonadIO m, DOMHTMLLIElementK o) => o -> T.Text -> m () -setDOMHTMLLIElementType obj val = liftIO $ setObjectPropertyString obj "type" val +setDOMHTMLLIElementType obj val = liftIO $ setObjectPropertyString obj "type" (Just val) constructDOMHTMLLIElementType :: T.Text -> IO ([Char], GValue) -constructDOMHTMLLIElementType val = constructObjectPropertyString "type" val +constructDOMHTMLLIElementType val = constructObjectPropertyString "type" (Just val) +clearDOMHTMLLIElementType :: (MonadIO m, DOMHTMLLIElementK o) => o -> m () +clearDOMHTMLLIElementType obj = liftIO $ setObjectPropertyString obj "type" (Nothing :: Maybe T.Text) + data DOMHTMLLIElementTypePropertyInfo instance AttrInfo DOMHTMLLIElementTypePropertyInfo where - type AttrAllowedOps DOMHTMLLIElementTypePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrAllowedOps DOMHTMLLIElementTypePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint DOMHTMLLIElementTypePropertyInfo = (~) T.Text type AttrBaseTypeConstraint DOMHTMLLIElementTypePropertyInfo = DOMHTMLLIElementK - type AttrGetType DOMHTMLLIElementTypePropertyInfo = T.Text + type AttrGetType DOMHTMLLIElementTypePropertyInfo = (Maybe T.Text) type AttrLabel DOMHTMLLIElementTypePropertyInfo = "type" attrGet _ = getDOMHTMLLIElementType attrSet _ = setDOMHTMLLIElementType attrConstruct _ = constructDOMHTMLLIElementType + attrClear _ = clearDOMHTMLLIElementType -- VVV Prop "value" - -- Type: TBasicType TInt64 + -- Type: TBasicType TLong -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) -getDOMHTMLLIElementValue :: (MonadIO m, DOMHTMLLIElementK o) => o -> m Int64 -getDOMHTMLLIElementValue obj = liftIO $ getObjectPropertyInt64 obj "value" +getDOMHTMLLIElementValue :: (MonadIO m, DOMHTMLLIElementK o) => o -> m CLong +getDOMHTMLLIElementValue obj = liftIO $ getObjectPropertyLong obj "value" -setDOMHTMLLIElementValue :: (MonadIO m, DOMHTMLLIElementK o) => o -> Int64 -> m () -setDOMHTMLLIElementValue obj val = liftIO $ setObjectPropertyInt64 obj "value" val +setDOMHTMLLIElementValue :: (MonadIO m, DOMHTMLLIElementK o) => o -> CLong -> m () +setDOMHTMLLIElementValue obj val = liftIO $ setObjectPropertyLong obj "value" val -constructDOMHTMLLIElementValue :: Int64 -> IO ([Char], GValue) -constructDOMHTMLLIElementValue val = constructObjectPropertyInt64 "value" val +constructDOMHTMLLIElementValue :: CLong -> IO ([Char], GValue) +constructDOMHTMLLIElementValue val = constructObjectPropertyLong "value" val data DOMHTMLLIElementValuePropertyInfo instance AttrInfo DOMHTMLLIElementValuePropertyInfo where type AttrAllowedOps DOMHTMLLIElementValuePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLLIElementValuePropertyInfo = (~) Int64 + type AttrSetTypeConstraint DOMHTMLLIElementValuePropertyInfo = (~) CLong type AttrBaseTypeConstraint DOMHTMLLIElementValuePropertyInfo = DOMHTMLLIElementK - type AttrGetType DOMHTMLLIElementValuePropertyInfo = Int64 + type AttrGetType DOMHTMLLIElementValuePropertyInfo = CLong type AttrLabel DOMHTMLLIElementValuePropertyInfo = "value" attrGet _ = getDOMHTMLLIElementValue attrSet _ = setDOMHTMLLIElementValue attrConstruct _ = constructDOMHTMLLIElementValue + attrClear _ = undefined type instance AttributeList DOMHTMLLIElement = DOMHTMLLIElementAttributeList type DOMHTMLLIElementAttributeList = ('[ '("accessKey", DOMHTMLElementAccessKeyPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("baseUri", DOMNodeBaseUriPropertyInfo), '("childElementCount", DOMElementChildElementCountPropertyInfo), '("childNodes", DOMNodeChildNodesPropertyInfo), '("children", DOMHTMLElementChildrenPropertyInfo), '("classList", DOMElementClassListPropertyInfo), '("className", DOMElementClassNamePropertyInfo), '("clientHeight", DOMElementClientHeightPropertyInfo), '("clientLeft", DOMElementClientLeftPropertyInfo), '("clientTop", DOMElementClientTopPropertyInfo), '("clientWidth", DOMElementClientWidthPropertyInfo), '("contentEditable", DOMHTMLElementContentEditablePropertyInfo), '("coreObject", DOMObjectCoreObjectPropertyInfo), '("dir", DOMHTMLElementDirPropertyInfo), '("draggable", DOMHTMLElementDraggablePropertyInfo), '("firstChild", DOMNodeFirstChildPropertyInfo), '("firstElementChild", DOMElementFirstElementChildPropertyInfo), '("hidden", DOMHTMLElementHiddenPropertyInfo), '("id", DOMElementIdPropertyInfo), '("innerHtml", DOMHTMLElementInnerHtmlPropertyInfo), '("innerText", DOMHTMLElementInnerTextPropertyInfo), '("isContentEditable", DOMHTMLElementIsContentEditablePropertyInfo), '("lang", DOMHTMLElementLangPropertyInfo), '("lastChild", DOMNodeLastChildPropertyInfo), '("lastElementChild", DOMElementLastElementChildPropertyInfo), '("localName", DOMNodeLocalNamePropertyInfo), '("namespaceUri", DOMNodeNamespaceUriPropertyInfo), '("nextElementSibling", DOMElementNextElementSiblingPropertyInfo), '("nextSibling", DOMNodeNextSiblingPropertyInfo), '("nodeName", DOMNodeNodeNamePropertyInfo), '("nodeType", DOMNodeNodeTypePropertyInfo), '("nodeValue", DOMNodeNodeValuePropertyInfo), '("offsetHeight", DOMElementOffsetHeightPropertyInfo), '("offsetLeft", DOMElementOffsetLeftPropertyInfo), '("offsetParent", DOMElementOffsetParentPropertyInfo), '("offsetTop", DOMElementOffsetTopPropertyInfo), '("offsetWidth", DOMElementOffsetWidthPropertyInfo), '("outerHtml", DOMHTMLElementOuterHtmlPropertyInfo), '("outerText", DOMHTMLElementOuterTextPropertyInfo), '("ownerDocument", DOMNodeOwnerDocumentPropertyInfo), '("parentElement", DOMNodeParentElementPropertyInfo), '("parentNode", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previousElementSibling", DOMElementPreviousElementSiblingPropertyInfo), '("previousSibling", DOMNodePreviousSiblingPropertyInfo), '("scrollHeight", DOMElementScrollHeightPropertyInfo), '("scrollLeft", DOMElementScrollLeftPropertyInfo), '("scrollTop", DOMElementScrollTopPropertyInfo), '("scrollWidth", DOMElementScrollWidthPropertyInfo), '("spellcheck", DOMHTMLElementSpellcheckPropertyInfo), '("style", DOMElementStylePropertyInfo), '("tabIndex", DOMHTMLElementTabIndexPropertyInfo), '("tagName", DOMElementTagNamePropertyInfo), '("textContent", DOMNodeTextContentPropertyInfo), '("title", DOMHTMLElementTitlePropertyInfo), '("translate", DOMHTMLElementTranslatePropertyInfo), '("type", DOMHTMLLIElementTypePropertyInfo), '("value", DOMHTMLLIElementValuePropertyInfo), '("webkitRegionOverset", DOMElementWebkitRegionOversetPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo)] :: [(Symbol, *)]) +dOMHTMLLIElementType :: AttrLabelProxy "type" +dOMHTMLLIElementType = AttrLabelProxy + +dOMHTMLLIElementValue :: AttrLabelProxy "value" +dOMHTMLLIElementValue = AttrLabelProxy + type instance SignalList DOMHTMLLIElement = DOMHTMLLIElementSignalList type DOMHTMLLIElementSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) @@ -305,19 +321,19 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLLIElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TInt64 +-- returnType : Just (TBasicType TLong) -- throws : False -- Skip return : False foreign import ccall "webkit_dom_htmlli_element_get_value" webkit_dom_htmlli_element_get_value :: Ptr DOMHTMLLIElement -> -- _obj : TInterface "WebKit" "DOMHTMLLIElement" - IO Int64 + IO CLong dOMHTMLLIElementGetValue :: (MonadIO m, DOMHTMLLIElementK a) => a -- _obj - -> m Int64 -- result + -> m CLong -- result dOMHTMLLIElementGetValue _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- webkit_dom_htmlli_element_get_value _obj' @@ -325,27 +341,27 @@ return result data DOMHTMLLIElementGetValueMethodInfo -instance (signature ~ (m Int64), MonadIO m, DOMHTMLLIElementK a) => MethodInfo DOMHTMLLIElementGetValueMethodInfo a signature where +instance (signature ~ (m CLong), MonadIO m, DOMHTMLLIElementK a) => MethodInfo DOMHTMLLIElementGetValueMethodInfo a signature where overloadedMethod _ = dOMHTMLLIElementGetValue -- method DOMHTMLLIElement::set_value -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLLIElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLLIElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TLong, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "webkit_dom_htmlli_element_set_value" webkit_dom_htmlli_element_set_value :: Ptr DOMHTMLLIElement -> -- _obj : TInterface "WebKit" "DOMHTMLLIElement" - Int64 -> -- value : TBasicType TInt64 + CLong -> -- value : TBasicType TLong IO () dOMHTMLLIElementSetValue :: (MonadIO m, DOMHTMLLIElementK a) => a -- _obj - -> Int64 -- value + -> CLong -- value -> m () -- result dOMHTMLLIElementSetValue _obj value = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj @@ -354,7 +370,7 @@ return () data DOMHTMLLIElementSetValueMethodInfo -instance (signature ~ (Int64 -> m ()), MonadIO m, DOMHTMLLIElementK a) => MethodInfo DOMHTMLLIElementSetValueMethodInfo a signature where +instance (signature ~ (CLong -> m ()), MonadIO m, DOMHTMLLIElementK a) => MethodInfo DOMHTMLLIElementSetValueMethodInfo a signature where overloadedMethod _ = dOMHTMLLIElementSetValue diff --git a/GI/WebKit/Objects/DOMHTMLLIElement.hs-boot b/GI/WebKit/Objects/DOMHTMLLIElement.hs-boot --- a/GI/WebKit/Objects/DOMHTMLLIElement.hs-boot +++ b/GI/WebKit/Objects/DOMHTMLLIElement.hs-boot @@ -1,8 +1,8 @@ module GI.WebKit.Objects.DOMHTMLLIElement where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map diff --git a/GI/WebKit/Objects/DOMHTMLLabelElement.hs b/GI/WebKit/Objects/DOMHTMLLabelElement.hs --- a/GI/WebKit/Objects/DOMHTMLLabelElement.hs +++ b/GI/WebKit/Objects/DOMHTMLLabelElement.hs @@ -42,17 +42,20 @@ -- * Properties -- ** Control DOMHTMLLabelElementControlPropertyInfo , + dOMHTMLLabelElementControl , getDOMHTMLLabelElementControl , -- ** Form DOMHTMLLabelElementFormPropertyInfo , + dOMHTMLLabelElementForm , getDOMHTMLLabelElementForm , -- ** HtmlFor DOMHTMLLabelElementHtmlForPropertyInfo , constructDOMHTMLLabelElementHtmlFor , + dOMHTMLLabelElementHtmlFor , getDOMHTMLLabelElementHtmlFor , setDOMHTMLLabelElementHtmlFor , @@ -61,9 +64,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map @@ -265,13 +268,14 @@ -- VVV Prop "control" -- Type: TInterface "WebKit" "DOMHTMLElement" -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) getDOMHTMLLabelElementControl :: (MonadIO m, DOMHTMLLabelElementK o) => o -> m DOMHTMLElement -getDOMHTMLLabelElementControl obj = liftIO $ getObjectPropertyObject obj "control" DOMHTMLElement +getDOMHTMLLabelElementControl obj = liftIO $ checkUnexpectedNothing "getDOMHTMLLabelElementControl" $ getObjectPropertyObject obj "control" DOMHTMLElement data DOMHTMLLabelElementControlPropertyInfo instance AttrInfo DOMHTMLLabelElementControlPropertyInfo where - type AttrAllowedOps DOMHTMLLabelElementControlPropertyInfo = '[ 'AttrGet] + type AttrAllowedOps DOMHTMLLabelElementControlPropertyInfo = '[ 'AttrGet, 'AttrClear] type AttrSetTypeConstraint DOMHTMLLabelElementControlPropertyInfo = (~) () type AttrBaseTypeConstraint DOMHTMLLabelElementControlPropertyInfo = DOMHTMLLabelElementK type AttrGetType DOMHTMLLabelElementControlPropertyInfo = DOMHTMLElement @@ -279,17 +283,19 @@ attrGet _ = getDOMHTMLLabelElementControl attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "form" -- Type: TInterface "WebKit" "DOMHTMLFormElement" -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) getDOMHTMLLabelElementForm :: (MonadIO m, DOMHTMLLabelElementK o) => o -> m DOMHTMLFormElement -getDOMHTMLLabelElementForm obj = liftIO $ getObjectPropertyObject obj "form" DOMHTMLFormElement +getDOMHTMLLabelElementForm obj = liftIO $ checkUnexpectedNothing "getDOMHTMLLabelElementForm" $ getObjectPropertyObject obj "form" DOMHTMLFormElement data DOMHTMLLabelElementFormPropertyInfo instance AttrInfo DOMHTMLLabelElementFormPropertyInfo where - type AttrAllowedOps DOMHTMLLabelElementFormPropertyInfo = '[ 'AttrGet] + type AttrAllowedOps DOMHTMLLabelElementFormPropertyInfo = '[ 'AttrGet, 'AttrClear] type AttrSetTypeConstraint DOMHTMLLabelElementFormPropertyInfo = (~) () type AttrBaseTypeConstraint DOMHTMLLabelElementFormPropertyInfo = DOMHTMLLabelElementK type AttrGetType DOMHTMLLabelElementFormPropertyInfo = DOMHTMLFormElement @@ -297,34 +303,46 @@ attrGet _ = getDOMHTMLLabelElementForm attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "html-for" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Just False) -getDOMHTMLLabelElementHtmlFor :: (MonadIO m, DOMHTMLLabelElementK o) => o -> m T.Text +getDOMHTMLLabelElementHtmlFor :: (MonadIO m, DOMHTMLLabelElementK o) => o -> m (Maybe T.Text) getDOMHTMLLabelElementHtmlFor obj = liftIO $ getObjectPropertyString obj "html-for" setDOMHTMLLabelElementHtmlFor :: (MonadIO m, DOMHTMLLabelElementK o) => o -> T.Text -> m () -setDOMHTMLLabelElementHtmlFor obj val = liftIO $ setObjectPropertyString obj "html-for" val +setDOMHTMLLabelElementHtmlFor obj val = liftIO $ setObjectPropertyString obj "html-for" (Just val) constructDOMHTMLLabelElementHtmlFor :: T.Text -> IO ([Char], GValue) -constructDOMHTMLLabelElementHtmlFor val = constructObjectPropertyString "html-for" val +constructDOMHTMLLabelElementHtmlFor val = constructObjectPropertyString "html-for" (Just val) data DOMHTMLLabelElementHtmlForPropertyInfo instance AttrInfo DOMHTMLLabelElementHtmlForPropertyInfo where type AttrAllowedOps DOMHTMLLabelElementHtmlForPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint DOMHTMLLabelElementHtmlForPropertyInfo = (~) T.Text type AttrBaseTypeConstraint DOMHTMLLabelElementHtmlForPropertyInfo = DOMHTMLLabelElementK - type AttrGetType DOMHTMLLabelElementHtmlForPropertyInfo = T.Text + type AttrGetType DOMHTMLLabelElementHtmlForPropertyInfo = (Maybe T.Text) type AttrLabel DOMHTMLLabelElementHtmlForPropertyInfo = "html-for" attrGet _ = getDOMHTMLLabelElementHtmlFor attrSet _ = setDOMHTMLLabelElementHtmlFor attrConstruct _ = constructDOMHTMLLabelElementHtmlFor + attrClear _ = undefined type instance AttributeList DOMHTMLLabelElement = DOMHTMLLabelElementAttributeList type DOMHTMLLabelElementAttributeList = ('[ '("accessKey", DOMHTMLElementAccessKeyPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("baseUri", DOMNodeBaseUriPropertyInfo), '("childElementCount", DOMElementChildElementCountPropertyInfo), '("childNodes", DOMNodeChildNodesPropertyInfo), '("children", DOMHTMLElementChildrenPropertyInfo), '("classList", DOMElementClassListPropertyInfo), '("className", DOMElementClassNamePropertyInfo), '("clientHeight", DOMElementClientHeightPropertyInfo), '("clientLeft", DOMElementClientLeftPropertyInfo), '("clientTop", DOMElementClientTopPropertyInfo), '("clientWidth", DOMElementClientWidthPropertyInfo), '("contentEditable", DOMHTMLElementContentEditablePropertyInfo), '("control", DOMHTMLLabelElementControlPropertyInfo), '("coreObject", DOMObjectCoreObjectPropertyInfo), '("dir", DOMHTMLElementDirPropertyInfo), '("draggable", DOMHTMLElementDraggablePropertyInfo), '("firstChild", DOMNodeFirstChildPropertyInfo), '("firstElementChild", DOMElementFirstElementChildPropertyInfo), '("form", DOMHTMLLabelElementFormPropertyInfo), '("hidden", DOMHTMLElementHiddenPropertyInfo), '("htmlFor", DOMHTMLLabelElementHtmlForPropertyInfo), '("id", DOMElementIdPropertyInfo), '("innerHtml", DOMHTMLElementInnerHtmlPropertyInfo), '("innerText", DOMHTMLElementInnerTextPropertyInfo), '("isContentEditable", DOMHTMLElementIsContentEditablePropertyInfo), '("lang", DOMHTMLElementLangPropertyInfo), '("lastChild", DOMNodeLastChildPropertyInfo), '("lastElementChild", DOMElementLastElementChildPropertyInfo), '("localName", DOMNodeLocalNamePropertyInfo), '("namespaceUri", DOMNodeNamespaceUriPropertyInfo), '("nextElementSibling", DOMElementNextElementSiblingPropertyInfo), '("nextSibling", DOMNodeNextSiblingPropertyInfo), '("nodeName", DOMNodeNodeNamePropertyInfo), '("nodeType", DOMNodeNodeTypePropertyInfo), '("nodeValue", DOMNodeNodeValuePropertyInfo), '("offsetHeight", DOMElementOffsetHeightPropertyInfo), '("offsetLeft", DOMElementOffsetLeftPropertyInfo), '("offsetParent", DOMElementOffsetParentPropertyInfo), '("offsetTop", DOMElementOffsetTopPropertyInfo), '("offsetWidth", DOMElementOffsetWidthPropertyInfo), '("outerHtml", DOMHTMLElementOuterHtmlPropertyInfo), '("outerText", DOMHTMLElementOuterTextPropertyInfo), '("ownerDocument", DOMNodeOwnerDocumentPropertyInfo), '("parentElement", DOMNodeParentElementPropertyInfo), '("parentNode", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previousElementSibling", DOMElementPreviousElementSiblingPropertyInfo), '("previousSibling", DOMNodePreviousSiblingPropertyInfo), '("scrollHeight", DOMElementScrollHeightPropertyInfo), '("scrollLeft", DOMElementScrollLeftPropertyInfo), '("scrollTop", DOMElementScrollTopPropertyInfo), '("scrollWidth", DOMElementScrollWidthPropertyInfo), '("spellcheck", DOMHTMLElementSpellcheckPropertyInfo), '("style", DOMElementStylePropertyInfo), '("tabIndex", DOMHTMLElementTabIndexPropertyInfo), '("tagName", DOMElementTagNamePropertyInfo), '("textContent", DOMNodeTextContentPropertyInfo), '("title", DOMHTMLElementTitlePropertyInfo), '("translate", DOMHTMLElementTranslatePropertyInfo), '("webkitRegionOverset", DOMElementWebkitRegionOversetPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo)] :: [(Symbol, *)]) +dOMHTMLLabelElementControl :: AttrLabelProxy "control" +dOMHTMLLabelElementControl = AttrLabelProxy + +dOMHTMLLabelElementForm :: AttrLabelProxy "form" +dOMHTMLLabelElementForm = AttrLabelProxy + +dOMHTMLLabelElementHtmlFor :: AttrLabelProxy "htmlFor" +dOMHTMLLabelElementHtmlFor = AttrLabelProxy + type instance SignalList DOMHTMLLabelElement = DOMHTMLLabelElementSignalList type DOMHTMLLabelElementSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) @@ -332,7 +350,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLLabelElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit" "DOMHTMLElement" +-- returnType : Just (TInterface "WebKit" "DOMHTMLElement") -- throws : False -- Skip return : False @@ -361,7 +379,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLLabelElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit" "DOMHTMLFormElement" +-- returnType : Just (TInterface "WebKit" "DOMHTMLFormElement") -- throws : False -- Skip return : False @@ -390,7 +408,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLLabelElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -420,7 +438,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLLabelElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False diff --git a/GI/WebKit/Objects/DOMHTMLLabelElement.hs-boot b/GI/WebKit/Objects/DOMHTMLLabelElement.hs-boot --- a/GI/WebKit/Objects/DOMHTMLLabelElement.hs-boot +++ b/GI/WebKit/Objects/DOMHTMLLabelElement.hs-boot @@ -1,8 +1,8 @@ module GI.WebKit.Objects.DOMHTMLLabelElement where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map diff --git a/GI/WebKit/Objects/DOMHTMLLegendElement.hs b/GI/WebKit/Objects/DOMHTMLLegendElement.hs --- a/GI/WebKit/Objects/DOMHTMLLegendElement.hs +++ b/GI/WebKit/Objects/DOMHTMLLegendElement.hs @@ -38,12 +38,14 @@ -- ** Align DOMHTMLLegendElementAlignPropertyInfo , constructDOMHTMLLegendElementAlign , + dOMHTMLLegendElementAlign , getDOMHTMLLegendElementAlign , setDOMHTMLLegendElementAlign , -- ** Form DOMHTMLLegendElementFormPropertyInfo , + dOMHTMLLegendElementForm , getDOMHTMLLegendElementForm , @@ -51,9 +53,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map @@ -254,37 +256,40 @@ -- VVV Prop "align" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Just False) -getDOMHTMLLegendElementAlign :: (MonadIO m, DOMHTMLLegendElementK o) => o -> m T.Text +getDOMHTMLLegendElementAlign :: (MonadIO m, DOMHTMLLegendElementK o) => o -> m (Maybe T.Text) getDOMHTMLLegendElementAlign obj = liftIO $ getObjectPropertyString obj "align" setDOMHTMLLegendElementAlign :: (MonadIO m, DOMHTMLLegendElementK o) => o -> T.Text -> m () -setDOMHTMLLegendElementAlign obj val = liftIO $ setObjectPropertyString obj "align" val +setDOMHTMLLegendElementAlign obj val = liftIO $ setObjectPropertyString obj "align" (Just val) constructDOMHTMLLegendElementAlign :: T.Text -> IO ([Char], GValue) -constructDOMHTMLLegendElementAlign val = constructObjectPropertyString "align" val +constructDOMHTMLLegendElementAlign val = constructObjectPropertyString "align" (Just val) data DOMHTMLLegendElementAlignPropertyInfo instance AttrInfo DOMHTMLLegendElementAlignPropertyInfo where type AttrAllowedOps DOMHTMLLegendElementAlignPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint DOMHTMLLegendElementAlignPropertyInfo = (~) T.Text type AttrBaseTypeConstraint DOMHTMLLegendElementAlignPropertyInfo = DOMHTMLLegendElementK - type AttrGetType DOMHTMLLegendElementAlignPropertyInfo = T.Text + type AttrGetType DOMHTMLLegendElementAlignPropertyInfo = (Maybe T.Text) type AttrLabel DOMHTMLLegendElementAlignPropertyInfo = "align" attrGet _ = getDOMHTMLLegendElementAlign attrSet _ = setDOMHTMLLegendElementAlign attrConstruct _ = constructDOMHTMLLegendElementAlign + attrClear _ = undefined -- VVV Prop "form" -- Type: TInterface "WebKit" "DOMHTMLFormElement" -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) getDOMHTMLLegendElementForm :: (MonadIO m, DOMHTMLLegendElementK o) => o -> m DOMHTMLFormElement -getDOMHTMLLegendElementForm obj = liftIO $ getObjectPropertyObject obj "form" DOMHTMLFormElement +getDOMHTMLLegendElementForm obj = liftIO $ checkUnexpectedNothing "getDOMHTMLLegendElementForm" $ getObjectPropertyObject obj "form" DOMHTMLFormElement data DOMHTMLLegendElementFormPropertyInfo instance AttrInfo DOMHTMLLegendElementFormPropertyInfo where - type AttrAllowedOps DOMHTMLLegendElementFormPropertyInfo = '[ 'AttrGet] + type AttrAllowedOps DOMHTMLLegendElementFormPropertyInfo = '[ 'AttrGet, 'AttrClear] type AttrSetTypeConstraint DOMHTMLLegendElementFormPropertyInfo = (~) () type AttrBaseTypeConstraint DOMHTMLLegendElementFormPropertyInfo = DOMHTMLLegendElementK type AttrGetType DOMHTMLLegendElementFormPropertyInfo = DOMHTMLFormElement @@ -292,10 +297,17 @@ attrGet _ = getDOMHTMLLegendElementForm attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined type instance AttributeList DOMHTMLLegendElement = DOMHTMLLegendElementAttributeList type DOMHTMLLegendElementAttributeList = ('[ '("accessKey", DOMHTMLElementAccessKeyPropertyInfo), '("align", DOMHTMLLegendElementAlignPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("baseUri", DOMNodeBaseUriPropertyInfo), '("childElementCount", DOMElementChildElementCountPropertyInfo), '("childNodes", DOMNodeChildNodesPropertyInfo), '("children", DOMHTMLElementChildrenPropertyInfo), '("classList", DOMElementClassListPropertyInfo), '("className", DOMElementClassNamePropertyInfo), '("clientHeight", DOMElementClientHeightPropertyInfo), '("clientLeft", DOMElementClientLeftPropertyInfo), '("clientTop", DOMElementClientTopPropertyInfo), '("clientWidth", DOMElementClientWidthPropertyInfo), '("contentEditable", DOMHTMLElementContentEditablePropertyInfo), '("coreObject", DOMObjectCoreObjectPropertyInfo), '("dir", DOMHTMLElementDirPropertyInfo), '("draggable", DOMHTMLElementDraggablePropertyInfo), '("firstChild", DOMNodeFirstChildPropertyInfo), '("firstElementChild", DOMElementFirstElementChildPropertyInfo), '("form", DOMHTMLLegendElementFormPropertyInfo), '("hidden", DOMHTMLElementHiddenPropertyInfo), '("id", DOMElementIdPropertyInfo), '("innerHtml", DOMHTMLElementInnerHtmlPropertyInfo), '("innerText", DOMHTMLElementInnerTextPropertyInfo), '("isContentEditable", DOMHTMLElementIsContentEditablePropertyInfo), '("lang", DOMHTMLElementLangPropertyInfo), '("lastChild", DOMNodeLastChildPropertyInfo), '("lastElementChild", DOMElementLastElementChildPropertyInfo), '("localName", DOMNodeLocalNamePropertyInfo), '("namespaceUri", DOMNodeNamespaceUriPropertyInfo), '("nextElementSibling", DOMElementNextElementSiblingPropertyInfo), '("nextSibling", DOMNodeNextSiblingPropertyInfo), '("nodeName", DOMNodeNodeNamePropertyInfo), '("nodeType", DOMNodeNodeTypePropertyInfo), '("nodeValue", DOMNodeNodeValuePropertyInfo), '("offsetHeight", DOMElementOffsetHeightPropertyInfo), '("offsetLeft", DOMElementOffsetLeftPropertyInfo), '("offsetParent", DOMElementOffsetParentPropertyInfo), '("offsetTop", DOMElementOffsetTopPropertyInfo), '("offsetWidth", DOMElementOffsetWidthPropertyInfo), '("outerHtml", DOMHTMLElementOuterHtmlPropertyInfo), '("outerText", DOMHTMLElementOuterTextPropertyInfo), '("ownerDocument", DOMNodeOwnerDocumentPropertyInfo), '("parentElement", DOMNodeParentElementPropertyInfo), '("parentNode", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previousElementSibling", DOMElementPreviousElementSiblingPropertyInfo), '("previousSibling", DOMNodePreviousSiblingPropertyInfo), '("scrollHeight", DOMElementScrollHeightPropertyInfo), '("scrollLeft", DOMElementScrollLeftPropertyInfo), '("scrollTop", DOMElementScrollTopPropertyInfo), '("scrollWidth", DOMElementScrollWidthPropertyInfo), '("spellcheck", DOMHTMLElementSpellcheckPropertyInfo), '("style", DOMElementStylePropertyInfo), '("tabIndex", DOMHTMLElementTabIndexPropertyInfo), '("tagName", DOMElementTagNamePropertyInfo), '("textContent", DOMNodeTextContentPropertyInfo), '("title", DOMHTMLElementTitlePropertyInfo), '("translate", DOMHTMLElementTranslatePropertyInfo), '("webkitRegionOverset", DOMElementWebkitRegionOversetPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo)] :: [(Symbol, *)]) +dOMHTMLLegendElementAlign :: AttrLabelProxy "align" +dOMHTMLLegendElementAlign = AttrLabelProxy + +dOMHTMLLegendElementForm :: AttrLabelProxy "form" +dOMHTMLLegendElementForm = AttrLabelProxy + type instance SignalList DOMHTMLLegendElement = DOMHTMLLegendElementSignalList type DOMHTMLLegendElementSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) @@ -303,7 +315,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLLegendElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -333,7 +345,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLLegendElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit" "DOMHTMLFormElement" +-- returnType : Just (TInterface "WebKit" "DOMHTMLFormElement") -- throws : False -- Skip return : False @@ -362,7 +374,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLLegendElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False diff --git a/GI/WebKit/Objects/DOMHTMLLegendElement.hs-boot b/GI/WebKit/Objects/DOMHTMLLegendElement.hs-boot --- a/GI/WebKit/Objects/DOMHTMLLegendElement.hs-boot +++ b/GI/WebKit/Objects/DOMHTMLLegendElement.hs-boot @@ -1,8 +1,8 @@ module GI.WebKit.Objects.DOMHTMLLegendElement where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map diff --git a/GI/WebKit/Objects/DOMHTMLLinkElement.hs b/GI/WebKit/Objects/DOMHTMLLinkElement.hs --- a/GI/WebKit/Objects/DOMHTMLLinkElement.hs +++ b/GI/WebKit/Objects/DOMHTMLLinkElement.hs @@ -108,6 +108,7 @@ -- ** Charset DOMHTMLLinkElementCharsetPropertyInfo , constructDOMHTMLLinkElementCharset , + dOMHTMLLinkElementCharset , getDOMHTMLLinkElementCharset , setDOMHTMLLinkElementCharset , @@ -115,6 +116,7 @@ -- ** Disabled DOMHTMLLinkElementDisabledPropertyInfo , constructDOMHTMLLinkElementDisabled , + dOMHTMLLinkElementDisabled , getDOMHTMLLinkElementDisabled , setDOMHTMLLinkElementDisabled , @@ -122,6 +124,7 @@ -- ** Href DOMHTMLLinkElementHrefPropertyInfo , constructDOMHTMLLinkElementHref , + dOMHTMLLinkElementHref , getDOMHTMLLinkElementHref , setDOMHTMLLinkElementHref , @@ -129,6 +132,7 @@ -- ** Hreflang DOMHTMLLinkElementHreflangPropertyInfo , constructDOMHTMLLinkElementHreflang , + dOMHTMLLinkElementHreflang , getDOMHTMLLinkElementHreflang , setDOMHTMLLinkElementHreflang , @@ -136,6 +140,7 @@ -- ** Media DOMHTMLLinkElementMediaPropertyInfo , constructDOMHTMLLinkElementMedia , + dOMHTMLLinkElementMedia , getDOMHTMLLinkElementMedia , setDOMHTMLLinkElementMedia , @@ -143,6 +148,7 @@ -- ** Rel DOMHTMLLinkElementRelPropertyInfo , constructDOMHTMLLinkElementRel , + dOMHTMLLinkElementRel , getDOMHTMLLinkElementRel , setDOMHTMLLinkElementRel , @@ -150,25 +156,30 @@ -- ** Rev DOMHTMLLinkElementRevPropertyInfo , constructDOMHTMLLinkElementRev , + dOMHTMLLinkElementRev , getDOMHTMLLinkElementRev , setDOMHTMLLinkElementRev , -- ** Sheet DOMHTMLLinkElementSheetPropertyInfo , + dOMHTMLLinkElementSheet , getDOMHTMLLinkElementSheet , -- ** Target DOMHTMLLinkElementTargetPropertyInfo , constructDOMHTMLLinkElementTarget , + dOMHTMLLinkElementTarget , getDOMHTMLLinkElementTarget , setDOMHTMLLinkElementTarget , -- ** Type DOMHTMLLinkElementTypePropertyInfo , + clearDOMHTMLLinkElementType , constructDOMHTMLLinkElementType , + dOMHTMLLinkElementType , getDOMHTMLLinkElementType , setDOMHTMLLinkElementType , @@ -177,9 +188,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map @@ -394,30 +405,33 @@ -- VVV Prop "charset" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Just False) -getDOMHTMLLinkElementCharset :: (MonadIO m, DOMHTMLLinkElementK o) => o -> m T.Text +getDOMHTMLLinkElementCharset :: (MonadIO m, DOMHTMLLinkElementK o) => o -> m (Maybe T.Text) getDOMHTMLLinkElementCharset obj = liftIO $ getObjectPropertyString obj "charset" setDOMHTMLLinkElementCharset :: (MonadIO m, DOMHTMLLinkElementK o) => o -> T.Text -> m () -setDOMHTMLLinkElementCharset obj val = liftIO $ setObjectPropertyString obj "charset" val +setDOMHTMLLinkElementCharset obj val = liftIO $ setObjectPropertyString obj "charset" (Just val) constructDOMHTMLLinkElementCharset :: T.Text -> IO ([Char], GValue) -constructDOMHTMLLinkElementCharset val = constructObjectPropertyString "charset" val +constructDOMHTMLLinkElementCharset val = constructObjectPropertyString "charset" (Just val) data DOMHTMLLinkElementCharsetPropertyInfo instance AttrInfo DOMHTMLLinkElementCharsetPropertyInfo where type AttrAllowedOps DOMHTMLLinkElementCharsetPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint DOMHTMLLinkElementCharsetPropertyInfo = (~) T.Text type AttrBaseTypeConstraint DOMHTMLLinkElementCharsetPropertyInfo = DOMHTMLLinkElementK - type AttrGetType DOMHTMLLinkElementCharsetPropertyInfo = T.Text + type AttrGetType DOMHTMLLinkElementCharsetPropertyInfo = (Maybe T.Text) type AttrLabel DOMHTMLLinkElementCharsetPropertyInfo = "charset" attrGet _ = getDOMHTMLLinkElementCharset attrSet _ = setDOMHTMLLinkElementCharset attrConstruct _ = constructDOMHTMLLinkElementCharset + attrClear _ = undefined -- VVV Prop "disabled" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getDOMHTMLLinkElementDisabled :: (MonadIO m, DOMHTMLLinkElementK o) => o -> m Bool getDOMHTMLLinkElementDisabled obj = liftIO $ getObjectPropertyBool obj "disabled" @@ -438,196 +452,246 @@ attrGet _ = getDOMHTMLLinkElementDisabled attrSet _ = setDOMHTMLLinkElementDisabled attrConstruct _ = constructDOMHTMLLinkElementDisabled + attrClear _ = undefined -- VVV Prop "href" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Just False) -getDOMHTMLLinkElementHref :: (MonadIO m, DOMHTMLLinkElementK o) => o -> m T.Text +getDOMHTMLLinkElementHref :: (MonadIO m, DOMHTMLLinkElementK o) => o -> m (Maybe T.Text) getDOMHTMLLinkElementHref obj = liftIO $ getObjectPropertyString obj "href" setDOMHTMLLinkElementHref :: (MonadIO m, DOMHTMLLinkElementK o) => o -> T.Text -> m () -setDOMHTMLLinkElementHref obj val = liftIO $ setObjectPropertyString obj "href" val +setDOMHTMLLinkElementHref obj val = liftIO $ setObjectPropertyString obj "href" (Just val) constructDOMHTMLLinkElementHref :: T.Text -> IO ([Char], GValue) -constructDOMHTMLLinkElementHref val = constructObjectPropertyString "href" val +constructDOMHTMLLinkElementHref val = constructObjectPropertyString "href" (Just val) data DOMHTMLLinkElementHrefPropertyInfo instance AttrInfo DOMHTMLLinkElementHrefPropertyInfo where type AttrAllowedOps DOMHTMLLinkElementHrefPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint DOMHTMLLinkElementHrefPropertyInfo = (~) T.Text type AttrBaseTypeConstraint DOMHTMLLinkElementHrefPropertyInfo = DOMHTMLLinkElementK - type AttrGetType DOMHTMLLinkElementHrefPropertyInfo = T.Text + type AttrGetType DOMHTMLLinkElementHrefPropertyInfo = (Maybe T.Text) type AttrLabel DOMHTMLLinkElementHrefPropertyInfo = "href" attrGet _ = getDOMHTMLLinkElementHref attrSet _ = setDOMHTMLLinkElementHref attrConstruct _ = constructDOMHTMLLinkElementHref + attrClear _ = undefined -- VVV Prop "hreflang" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Just False) -getDOMHTMLLinkElementHreflang :: (MonadIO m, DOMHTMLLinkElementK o) => o -> m T.Text +getDOMHTMLLinkElementHreflang :: (MonadIO m, DOMHTMLLinkElementK o) => o -> m (Maybe T.Text) getDOMHTMLLinkElementHreflang obj = liftIO $ getObjectPropertyString obj "hreflang" setDOMHTMLLinkElementHreflang :: (MonadIO m, DOMHTMLLinkElementK o) => o -> T.Text -> m () -setDOMHTMLLinkElementHreflang obj val = liftIO $ setObjectPropertyString obj "hreflang" val +setDOMHTMLLinkElementHreflang obj val = liftIO $ setObjectPropertyString obj "hreflang" (Just val) constructDOMHTMLLinkElementHreflang :: T.Text -> IO ([Char], GValue) -constructDOMHTMLLinkElementHreflang val = constructObjectPropertyString "hreflang" val +constructDOMHTMLLinkElementHreflang val = constructObjectPropertyString "hreflang" (Just val) data DOMHTMLLinkElementHreflangPropertyInfo instance AttrInfo DOMHTMLLinkElementHreflangPropertyInfo where type AttrAllowedOps DOMHTMLLinkElementHreflangPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint DOMHTMLLinkElementHreflangPropertyInfo = (~) T.Text type AttrBaseTypeConstraint DOMHTMLLinkElementHreflangPropertyInfo = DOMHTMLLinkElementK - type AttrGetType DOMHTMLLinkElementHreflangPropertyInfo = T.Text + type AttrGetType DOMHTMLLinkElementHreflangPropertyInfo = (Maybe T.Text) type AttrLabel DOMHTMLLinkElementHreflangPropertyInfo = "hreflang" attrGet _ = getDOMHTMLLinkElementHreflang attrSet _ = setDOMHTMLLinkElementHreflang attrConstruct _ = constructDOMHTMLLinkElementHreflang + attrClear _ = undefined -- VVV Prop "media" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Just False) -getDOMHTMLLinkElementMedia :: (MonadIO m, DOMHTMLLinkElementK o) => o -> m T.Text +getDOMHTMLLinkElementMedia :: (MonadIO m, DOMHTMLLinkElementK o) => o -> m (Maybe T.Text) getDOMHTMLLinkElementMedia obj = liftIO $ getObjectPropertyString obj "media" setDOMHTMLLinkElementMedia :: (MonadIO m, DOMHTMLLinkElementK o) => o -> T.Text -> m () -setDOMHTMLLinkElementMedia obj val = liftIO $ setObjectPropertyString obj "media" val +setDOMHTMLLinkElementMedia obj val = liftIO $ setObjectPropertyString obj "media" (Just val) constructDOMHTMLLinkElementMedia :: T.Text -> IO ([Char], GValue) -constructDOMHTMLLinkElementMedia val = constructObjectPropertyString "media" val +constructDOMHTMLLinkElementMedia val = constructObjectPropertyString "media" (Just val) data DOMHTMLLinkElementMediaPropertyInfo instance AttrInfo DOMHTMLLinkElementMediaPropertyInfo where type AttrAllowedOps DOMHTMLLinkElementMediaPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint DOMHTMLLinkElementMediaPropertyInfo = (~) T.Text type AttrBaseTypeConstraint DOMHTMLLinkElementMediaPropertyInfo = DOMHTMLLinkElementK - type AttrGetType DOMHTMLLinkElementMediaPropertyInfo = T.Text + type AttrGetType DOMHTMLLinkElementMediaPropertyInfo = (Maybe T.Text) type AttrLabel DOMHTMLLinkElementMediaPropertyInfo = "media" attrGet _ = getDOMHTMLLinkElementMedia attrSet _ = setDOMHTMLLinkElementMedia attrConstruct _ = constructDOMHTMLLinkElementMedia + attrClear _ = undefined -- VVV Prop "rel" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Just False) -getDOMHTMLLinkElementRel :: (MonadIO m, DOMHTMLLinkElementK o) => o -> m T.Text +getDOMHTMLLinkElementRel :: (MonadIO m, DOMHTMLLinkElementK o) => o -> m (Maybe T.Text) getDOMHTMLLinkElementRel obj = liftIO $ getObjectPropertyString obj "rel" setDOMHTMLLinkElementRel :: (MonadIO m, DOMHTMLLinkElementK o) => o -> T.Text -> m () -setDOMHTMLLinkElementRel obj val = liftIO $ setObjectPropertyString obj "rel" val +setDOMHTMLLinkElementRel obj val = liftIO $ setObjectPropertyString obj "rel" (Just val) constructDOMHTMLLinkElementRel :: T.Text -> IO ([Char], GValue) -constructDOMHTMLLinkElementRel val = constructObjectPropertyString "rel" val +constructDOMHTMLLinkElementRel val = constructObjectPropertyString "rel" (Just val) data DOMHTMLLinkElementRelPropertyInfo instance AttrInfo DOMHTMLLinkElementRelPropertyInfo where type AttrAllowedOps DOMHTMLLinkElementRelPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint DOMHTMLLinkElementRelPropertyInfo = (~) T.Text type AttrBaseTypeConstraint DOMHTMLLinkElementRelPropertyInfo = DOMHTMLLinkElementK - type AttrGetType DOMHTMLLinkElementRelPropertyInfo = T.Text + type AttrGetType DOMHTMLLinkElementRelPropertyInfo = (Maybe T.Text) type AttrLabel DOMHTMLLinkElementRelPropertyInfo = "rel" attrGet _ = getDOMHTMLLinkElementRel attrSet _ = setDOMHTMLLinkElementRel attrConstruct _ = constructDOMHTMLLinkElementRel + attrClear _ = undefined -- VVV Prop "rev" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Just False) -getDOMHTMLLinkElementRev :: (MonadIO m, DOMHTMLLinkElementK o) => o -> m T.Text +getDOMHTMLLinkElementRev :: (MonadIO m, DOMHTMLLinkElementK o) => o -> m (Maybe T.Text) getDOMHTMLLinkElementRev obj = liftIO $ getObjectPropertyString obj "rev" setDOMHTMLLinkElementRev :: (MonadIO m, DOMHTMLLinkElementK o) => o -> T.Text -> m () -setDOMHTMLLinkElementRev obj val = liftIO $ setObjectPropertyString obj "rev" val +setDOMHTMLLinkElementRev obj val = liftIO $ setObjectPropertyString obj "rev" (Just val) constructDOMHTMLLinkElementRev :: T.Text -> IO ([Char], GValue) -constructDOMHTMLLinkElementRev val = constructObjectPropertyString "rev" val +constructDOMHTMLLinkElementRev val = constructObjectPropertyString "rev" (Just val) data DOMHTMLLinkElementRevPropertyInfo instance AttrInfo DOMHTMLLinkElementRevPropertyInfo where type AttrAllowedOps DOMHTMLLinkElementRevPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint DOMHTMLLinkElementRevPropertyInfo = (~) T.Text type AttrBaseTypeConstraint DOMHTMLLinkElementRevPropertyInfo = DOMHTMLLinkElementK - type AttrGetType DOMHTMLLinkElementRevPropertyInfo = T.Text + type AttrGetType DOMHTMLLinkElementRevPropertyInfo = (Maybe T.Text) type AttrLabel DOMHTMLLinkElementRevPropertyInfo = "rev" attrGet _ = getDOMHTMLLinkElementRev attrSet _ = setDOMHTMLLinkElementRev attrConstruct _ = constructDOMHTMLLinkElementRev + attrClear _ = undefined -- VVV Prop "sheet" -- Type: TInterface "WebKit" "DOMStyleSheet" -- Flags: [PropertyReadable] + -- Nullable: (Nothing,Nothing) -getDOMHTMLLinkElementSheet :: (MonadIO m, DOMHTMLLinkElementK o) => o -> m DOMStyleSheet +getDOMHTMLLinkElementSheet :: (MonadIO m, DOMHTMLLinkElementK o) => o -> m (Maybe DOMStyleSheet) getDOMHTMLLinkElementSheet obj = liftIO $ getObjectPropertyObject obj "sheet" DOMStyleSheet data DOMHTMLLinkElementSheetPropertyInfo instance AttrInfo DOMHTMLLinkElementSheetPropertyInfo where - type AttrAllowedOps DOMHTMLLinkElementSheetPropertyInfo = '[ 'AttrGet] + type AttrAllowedOps DOMHTMLLinkElementSheetPropertyInfo = '[ 'AttrGet, 'AttrClear] type AttrSetTypeConstraint DOMHTMLLinkElementSheetPropertyInfo = (~) () type AttrBaseTypeConstraint DOMHTMLLinkElementSheetPropertyInfo = DOMHTMLLinkElementK - type AttrGetType DOMHTMLLinkElementSheetPropertyInfo = DOMStyleSheet + type AttrGetType DOMHTMLLinkElementSheetPropertyInfo = (Maybe DOMStyleSheet) type AttrLabel DOMHTMLLinkElementSheetPropertyInfo = "sheet" attrGet _ = getDOMHTMLLinkElementSheet attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "target" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Just False) -getDOMHTMLLinkElementTarget :: (MonadIO m, DOMHTMLLinkElementK o) => o -> m T.Text +getDOMHTMLLinkElementTarget :: (MonadIO m, DOMHTMLLinkElementK o) => o -> m (Maybe T.Text) getDOMHTMLLinkElementTarget obj = liftIO $ getObjectPropertyString obj "target" setDOMHTMLLinkElementTarget :: (MonadIO m, DOMHTMLLinkElementK o) => o -> T.Text -> m () -setDOMHTMLLinkElementTarget obj val = liftIO $ setObjectPropertyString obj "target" val +setDOMHTMLLinkElementTarget obj val = liftIO $ setObjectPropertyString obj "target" (Just val) constructDOMHTMLLinkElementTarget :: T.Text -> IO ([Char], GValue) -constructDOMHTMLLinkElementTarget val = constructObjectPropertyString "target" val +constructDOMHTMLLinkElementTarget val = constructObjectPropertyString "target" (Just val) data DOMHTMLLinkElementTargetPropertyInfo instance AttrInfo DOMHTMLLinkElementTargetPropertyInfo where type AttrAllowedOps DOMHTMLLinkElementTargetPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint DOMHTMLLinkElementTargetPropertyInfo = (~) T.Text type AttrBaseTypeConstraint DOMHTMLLinkElementTargetPropertyInfo = DOMHTMLLinkElementK - type AttrGetType DOMHTMLLinkElementTargetPropertyInfo = T.Text + type AttrGetType DOMHTMLLinkElementTargetPropertyInfo = (Maybe T.Text) type AttrLabel DOMHTMLLinkElementTargetPropertyInfo = "target" attrGet _ = getDOMHTMLLinkElementTarget attrSet _ = setDOMHTMLLinkElementTarget attrConstruct _ = constructDOMHTMLLinkElementTarget + attrClear _ = undefined -- VVV Prop "type" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) -getDOMHTMLLinkElementType :: (MonadIO m, DOMHTMLLinkElementK o) => o -> m T.Text +getDOMHTMLLinkElementType :: (MonadIO m, DOMHTMLLinkElementK o) => o -> m (Maybe T.Text) getDOMHTMLLinkElementType obj = liftIO $ getObjectPropertyString obj "type" setDOMHTMLLinkElementType :: (MonadIO m, DOMHTMLLinkElementK o) => o -> T.Text -> m () -setDOMHTMLLinkElementType obj val = liftIO $ setObjectPropertyString obj "type" val +setDOMHTMLLinkElementType obj val = liftIO $ setObjectPropertyString obj "type" (Just val) constructDOMHTMLLinkElementType :: T.Text -> IO ([Char], GValue) -constructDOMHTMLLinkElementType val = constructObjectPropertyString "type" val +constructDOMHTMLLinkElementType val = constructObjectPropertyString "type" (Just val) +clearDOMHTMLLinkElementType :: (MonadIO m, DOMHTMLLinkElementK o) => o -> m () +clearDOMHTMLLinkElementType obj = liftIO $ setObjectPropertyString obj "type" (Nothing :: Maybe T.Text) + data DOMHTMLLinkElementTypePropertyInfo instance AttrInfo DOMHTMLLinkElementTypePropertyInfo where - type AttrAllowedOps DOMHTMLLinkElementTypePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrAllowedOps DOMHTMLLinkElementTypePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint DOMHTMLLinkElementTypePropertyInfo = (~) T.Text type AttrBaseTypeConstraint DOMHTMLLinkElementTypePropertyInfo = DOMHTMLLinkElementK - type AttrGetType DOMHTMLLinkElementTypePropertyInfo = T.Text + type AttrGetType DOMHTMLLinkElementTypePropertyInfo = (Maybe T.Text) type AttrLabel DOMHTMLLinkElementTypePropertyInfo = "type" attrGet _ = getDOMHTMLLinkElementType attrSet _ = setDOMHTMLLinkElementType attrConstruct _ = constructDOMHTMLLinkElementType + attrClear _ = clearDOMHTMLLinkElementType type instance AttributeList DOMHTMLLinkElement = DOMHTMLLinkElementAttributeList type DOMHTMLLinkElementAttributeList = ('[ '("accessKey", DOMHTMLElementAccessKeyPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("baseUri", DOMNodeBaseUriPropertyInfo), '("charset", DOMHTMLLinkElementCharsetPropertyInfo), '("childElementCount", DOMElementChildElementCountPropertyInfo), '("childNodes", DOMNodeChildNodesPropertyInfo), '("children", DOMHTMLElementChildrenPropertyInfo), '("classList", DOMElementClassListPropertyInfo), '("className", DOMElementClassNamePropertyInfo), '("clientHeight", DOMElementClientHeightPropertyInfo), '("clientLeft", DOMElementClientLeftPropertyInfo), '("clientTop", DOMElementClientTopPropertyInfo), '("clientWidth", DOMElementClientWidthPropertyInfo), '("contentEditable", DOMHTMLElementContentEditablePropertyInfo), '("coreObject", DOMObjectCoreObjectPropertyInfo), '("dir", DOMHTMLElementDirPropertyInfo), '("disabled", DOMHTMLLinkElementDisabledPropertyInfo), '("draggable", DOMHTMLElementDraggablePropertyInfo), '("firstChild", DOMNodeFirstChildPropertyInfo), '("firstElementChild", DOMElementFirstElementChildPropertyInfo), '("hidden", DOMHTMLElementHiddenPropertyInfo), '("href", DOMHTMLLinkElementHrefPropertyInfo), '("hreflang", DOMHTMLLinkElementHreflangPropertyInfo), '("id", DOMElementIdPropertyInfo), '("innerHtml", DOMHTMLElementInnerHtmlPropertyInfo), '("innerText", DOMHTMLElementInnerTextPropertyInfo), '("isContentEditable", DOMHTMLElementIsContentEditablePropertyInfo), '("lang", DOMHTMLElementLangPropertyInfo), '("lastChild", DOMNodeLastChildPropertyInfo), '("lastElementChild", DOMElementLastElementChildPropertyInfo), '("localName", DOMNodeLocalNamePropertyInfo), '("media", DOMHTMLLinkElementMediaPropertyInfo), '("namespaceUri", DOMNodeNamespaceUriPropertyInfo), '("nextElementSibling", DOMElementNextElementSiblingPropertyInfo), '("nextSibling", DOMNodeNextSiblingPropertyInfo), '("nodeName", DOMNodeNodeNamePropertyInfo), '("nodeType", DOMNodeNodeTypePropertyInfo), '("nodeValue", DOMNodeNodeValuePropertyInfo), '("offsetHeight", DOMElementOffsetHeightPropertyInfo), '("offsetLeft", DOMElementOffsetLeftPropertyInfo), '("offsetParent", DOMElementOffsetParentPropertyInfo), '("offsetTop", DOMElementOffsetTopPropertyInfo), '("offsetWidth", DOMElementOffsetWidthPropertyInfo), '("outerHtml", DOMHTMLElementOuterHtmlPropertyInfo), '("outerText", DOMHTMLElementOuterTextPropertyInfo), '("ownerDocument", DOMNodeOwnerDocumentPropertyInfo), '("parentElement", DOMNodeParentElementPropertyInfo), '("parentNode", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previousElementSibling", DOMElementPreviousElementSiblingPropertyInfo), '("previousSibling", DOMNodePreviousSiblingPropertyInfo), '("rel", DOMHTMLLinkElementRelPropertyInfo), '("rev", DOMHTMLLinkElementRevPropertyInfo), '("scrollHeight", DOMElementScrollHeightPropertyInfo), '("scrollLeft", DOMElementScrollLeftPropertyInfo), '("scrollTop", DOMElementScrollTopPropertyInfo), '("scrollWidth", DOMElementScrollWidthPropertyInfo), '("sheet", DOMHTMLLinkElementSheetPropertyInfo), '("spellcheck", DOMHTMLElementSpellcheckPropertyInfo), '("style", DOMElementStylePropertyInfo), '("tabIndex", DOMHTMLElementTabIndexPropertyInfo), '("tagName", DOMElementTagNamePropertyInfo), '("target", DOMHTMLLinkElementTargetPropertyInfo), '("textContent", DOMNodeTextContentPropertyInfo), '("title", DOMHTMLElementTitlePropertyInfo), '("translate", DOMHTMLElementTranslatePropertyInfo), '("type", DOMHTMLLinkElementTypePropertyInfo), '("webkitRegionOverset", DOMElementWebkitRegionOversetPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo)] :: [(Symbol, *)]) +dOMHTMLLinkElementCharset :: AttrLabelProxy "charset" +dOMHTMLLinkElementCharset = AttrLabelProxy + +dOMHTMLLinkElementDisabled :: AttrLabelProxy "disabled" +dOMHTMLLinkElementDisabled = AttrLabelProxy + +dOMHTMLLinkElementHref :: AttrLabelProxy "href" +dOMHTMLLinkElementHref = AttrLabelProxy + +dOMHTMLLinkElementHreflang :: AttrLabelProxy "hreflang" +dOMHTMLLinkElementHreflang = AttrLabelProxy + +dOMHTMLLinkElementMedia :: AttrLabelProxy "media" +dOMHTMLLinkElementMedia = AttrLabelProxy + +dOMHTMLLinkElementRel :: AttrLabelProxy "rel" +dOMHTMLLinkElementRel = AttrLabelProxy + +dOMHTMLLinkElementRev :: AttrLabelProxy "rev" +dOMHTMLLinkElementRev = AttrLabelProxy + +dOMHTMLLinkElementSheet :: AttrLabelProxy "sheet" +dOMHTMLLinkElementSheet = AttrLabelProxy + +dOMHTMLLinkElementTarget :: AttrLabelProxy "target" +dOMHTMLLinkElementTarget = AttrLabelProxy + +dOMHTMLLinkElementType :: AttrLabelProxy "type" +dOMHTMLLinkElementType = AttrLabelProxy + type instance SignalList DOMHTMLLinkElement = DOMHTMLLinkElementSignalList type DOMHTMLLinkElementSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) @@ -635,7 +699,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLLinkElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -665,7 +729,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLLinkElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -693,7 +757,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLLinkElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -723,7 +787,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLLinkElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -753,7 +817,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLLinkElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -783,7 +847,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLLinkElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -813,7 +877,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLLinkElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -843,7 +907,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLLinkElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit" "DOMStyleSheet" +-- returnType : Just (TInterface "WebKit" "DOMStyleSheet") -- throws : False -- Skip return : False @@ -872,7 +936,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLLinkElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -902,7 +966,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLLinkElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -933,7 +997,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLLinkElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -963,7 +1027,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLLinkElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -994,7 +1058,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLLinkElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1025,7 +1089,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLLinkElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1056,7 +1120,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLLinkElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1087,7 +1151,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLLinkElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1118,7 +1182,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLLinkElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False diff --git a/GI/WebKit/Objects/DOMHTMLLinkElement.hs-boot b/GI/WebKit/Objects/DOMHTMLLinkElement.hs-boot --- a/GI/WebKit/Objects/DOMHTMLLinkElement.hs-boot +++ b/GI/WebKit/Objects/DOMHTMLLinkElement.hs-boot @@ -1,8 +1,8 @@ module GI.WebKit.Objects.DOMHTMLLinkElement where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map diff --git a/GI/WebKit/Objects/DOMHTMLMapElement.hs b/GI/WebKit/Objects/DOMHTMLMapElement.hs --- a/GI/WebKit/Objects/DOMHTMLMapElement.hs +++ b/GI/WebKit/Objects/DOMHTMLMapElement.hs @@ -37,12 +37,14 @@ -- * Properties -- ** Areas DOMHTMLMapElementAreasPropertyInfo , + dOMHTMLMapElementAreas , getDOMHTMLMapElementAreas , -- ** Name DOMHTMLMapElementNamePropertyInfo , constructDOMHTMLMapElementName , + dOMHTMLMapElementName , getDOMHTMLMapElementName , setDOMHTMLMapElementName , @@ -51,9 +53,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map @@ -254,48 +256,58 @@ -- VVV Prop "areas" -- Type: TInterface "WebKit" "DOMHTMLCollection" -- Flags: [PropertyReadable] + -- Nullable: (Nothing,Nothing) -getDOMHTMLMapElementAreas :: (MonadIO m, DOMHTMLMapElementK o) => o -> m DOMHTMLCollection +getDOMHTMLMapElementAreas :: (MonadIO m, DOMHTMLMapElementK o) => o -> m (Maybe DOMHTMLCollection) getDOMHTMLMapElementAreas obj = liftIO $ getObjectPropertyObject obj "areas" DOMHTMLCollection data DOMHTMLMapElementAreasPropertyInfo instance AttrInfo DOMHTMLMapElementAreasPropertyInfo where - type AttrAllowedOps DOMHTMLMapElementAreasPropertyInfo = '[ 'AttrGet] + type AttrAllowedOps DOMHTMLMapElementAreasPropertyInfo = '[ 'AttrGet, 'AttrClear] type AttrSetTypeConstraint DOMHTMLMapElementAreasPropertyInfo = (~) () type AttrBaseTypeConstraint DOMHTMLMapElementAreasPropertyInfo = DOMHTMLMapElementK - type AttrGetType DOMHTMLMapElementAreasPropertyInfo = DOMHTMLCollection + type AttrGetType DOMHTMLMapElementAreasPropertyInfo = (Maybe DOMHTMLCollection) type AttrLabel DOMHTMLMapElementAreasPropertyInfo = "areas" attrGet _ = getDOMHTMLMapElementAreas attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "name" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Just False) -getDOMHTMLMapElementName :: (MonadIO m, DOMHTMLMapElementK o) => o -> m T.Text +getDOMHTMLMapElementName :: (MonadIO m, DOMHTMLMapElementK o) => o -> m (Maybe T.Text) getDOMHTMLMapElementName obj = liftIO $ getObjectPropertyString obj "name" setDOMHTMLMapElementName :: (MonadIO m, DOMHTMLMapElementK o) => o -> T.Text -> m () -setDOMHTMLMapElementName obj val = liftIO $ setObjectPropertyString obj "name" val +setDOMHTMLMapElementName obj val = liftIO $ setObjectPropertyString obj "name" (Just val) constructDOMHTMLMapElementName :: T.Text -> IO ([Char], GValue) -constructDOMHTMLMapElementName val = constructObjectPropertyString "name" val +constructDOMHTMLMapElementName val = constructObjectPropertyString "name" (Just val) data DOMHTMLMapElementNamePropertyInfo instance AttrInfo DOMHTMLMapElementNamePropertyInfo where type AttrAllowedOps DOMHTMLMapElementNamePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint DOMHTMLMapElementNamePropertyInfo = (~) T.Text type AttrBaseTypeConstraint DOMHTMLMapElementNamePropertyInfo = DOMHTMLMapElementK - type AttrGetType DOMHTMLMapElementNamePropertyInfo = T.Text + type AttrGetType DOMHTMLMapElementNamePropertyInfo = (Maybe T.Text) type AttrLabel DOMHTMLMapElementNamePropertyInfo = "name" attrGet _ = getDOMHTMLMapElementName attrSet _ = setDOMHTMLMapElementName attrConstruct _ = constructDOMHTMLMapElementName + attrClear _ = undefined type instance AttributeList DOMHTMLMapElement = DOMHTMLMapElementAttributeList type DOMHTMLMapElementAttributeList = ('[ '("accessKey", DOMHTMLElementAccessKeyPropertyInfo), '("areas", DOMHTMLMapElementAreasPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("baseUri", DOMNodeBaseUriPropertyInfo), '("childElementCount", DOMElementChildElementCountPropertyInfo), '("childNodes", DOMNodeChildNodesPropertyInfo), '("children", DOMHTMLElementChildrenPropertyInfo), '("classList", DOMElementClassListPropertyInfo), '("className", DOMElementClassNamePropertyInfo), '("clientHeight", DOMElementClientHeightPropertyInfo), '("clientLeft", DOMElementClientLeftPropertyInfo), '("clientTop", DOMElementClientTopPropertyInfo), '("clientWidth", DOMElementClientWidthPropertyInfo), '("contentEditable", DOMHTMLElementContentEditablePropertyInfo), '("coreObject", DOMObjectCoreObjectPropertyInfo), '("dir", DOMHTMLElementDirPropertyInfo), '("draggable", DOMHTMLElementDraggablePropertyInfo), '("firstChild", DOMNodeFirstChildPropertyInfo), '("firstElementChild", DOMElementFirstElementChildPropertyInfo), '("hidden", DOMHTMLElementHiddenPropertyInfo), '("id", DOMElementIdPropertyInfo), '("innerHtml", DOMHTMLElementInnerHtmlPropertyInfo), '("innerText", DOMHTMLElementInnerTextPropertyInfo), '("isContentEditable", DOMHTMLElementIsContentEditablePropertyInfo), '("lang", DOMHTMLElementLangPropertyInfo), '("lastChild", DOMNodeLastChildPropertyInfo), '("lastElementChild", DOMElementLastElementChildPropertyInfo), '("localName", DOMNodeLocalNamePropertyInfo), '("name", DOMHTMLMapElementNamePropertyInfo), '("namespaceUri", DOMNodeNamespaceUriPropertyInfo), '("nextElementSibling", DOMElementNextElementSiblingPropertyInfo), '("nextSibling", DOMNodeNextSiblingPropertyInfo), '("nodeName", DOMNodeNodeNamePropertyInfo), '("nodeType", DOMNodeNodeTypePropertyInfo), '("nodeValue", DOMNodeNodeValuePropertyInfo), '("offsetHeight", DOMElementOffsetHeightPropertyInfo), '("offsetLeft", DOMElementOffsetLeftPropertyInfo), '("offsetParent", DOMElementOffsetParentPropertyInfo), '("offsetTop", DOMElementOffsetTopPropertyInfo), '("offsetWidth", DOMElementOffsetWidthPropertyInfo), '("outerHtml", DOMHTMLElementOuterHtmlPropertyInfo), '("outerText", DOMHTMLElementOuterTextPropertyInfo), '("ownerDocument", DOMNodeOwnerDocumentPropertyInfo), '("parentElement", DOMNodeParentElementPropertyInfo), '("parentNode", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previousElementSibling", DOMElementPreviousElementSiblingPropertyInfo), '("previousSibling", DOMNodePreviousSiblingPropertyInfo), '("scrollHeight", DOMElementScrollHeightPropertyInfo), '("scrollLeft", DOMElementScrollLeftPropertyInfo), '("scrollTop", DOMElementScrollTopPropertyInfo), '("scrollWidth", DOMElementScrollWidthPropertyInfo), '("spellcheck", DOMHTMLElementSpellcheckPropertyInfo), '("style", DOMElementStylePropertyInfo), '("tabIndex", DOMHTMLElementTabIndexPropertyInfo), '("tagName", DOMElementTagNamePropertyInfo), '("textContent", DOMNodeTextContentPropertyInfo), '("title", DOMHTMLElementTitlePropertyInfo), '("translate", DOMHTMLElementTranslatePropertyInfo), '("webkitRegionOverset", DOMElementWebkitRegionOversetPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo)] :: [(Symbol, *)]) +dOMHTMLMapElementAreas :: AttrLabelProxy "areas" +dOMHTMLMapElementAreas = AttrLabelProxy + +dOMHTMLMapElementName :: AttrLabelProxy "name" +dOMHTMLMapElementName = AttrLabelProxy + type instance SignalList DOMHTMLMapElement = DOMHTMLMapElementSignalList type DOMHTMLMapElementSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) @@ -303,7 +315,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLMapElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit" "DOMHTMLCollection" +-- returnType : Just (TInterface "WebKit" "DOMHTMLCollection") -- throws : False -- Skip return : False @@ -332,7 +344,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLMapElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -362,7 +374,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLMapElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False diff --git a/GI/WebKit/Objects/DOMHTMLMapElement.hs-boot b/GI/WebKit/Objects/DOMHTMLMapElement.hs-boot --- a/GI/WebKit/Objects/DOMHTMLMapElement.hs-boot +++ b/GI/WebKit/Objects/DOMHTMLMapElement.hs-boot @@ -1,8 +1,8 @@ module GI.WebKit.Objects.DOMHTMLMapElement where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map diff --git a/GI/WebKit/Objects/DOMHTMLMarqueeElement.hs b/GI/WebKit/Objects/DOMHTMLMarqueeElement.hs --- a/GI/WebKit/Objects/DOMHTMLMarqueeElement.hs +++ b/GI/WebKit/Objects/DOMHTMLMarqueeElement.hs @@ -143,6 +143,7 @@ -- ** Behavior DOMHTMLMarqueeElementBehaviorPropertyInfo, constructDOMHTMLMarqueeElementBehavior , + dOMHTMLMarqueeElementBehavior , getDOMHTMLMarqueeElementBehavior , setDOMHTMLMarqueeElementBehavior , @@ -150,6 +151,7 @@ -- ** BgColor DOMHTMLMarqueeElementBgColorPropertyInfo, constructDOMHTMLMarqueeElementBgColor , + dOMHTMLMarqueeElementBgColor , getDOMHTMLMarqueeElementBgColor , setDOMHTMLMarqueeElementBgColor , @@ -157,6 +159,7 @@ -- ** Direction DOMHTMLMarqueeElementDirectionPropertyInfo, constructDOMHTMLMarqueeElementDirection , + dOMHTMLMarqueeElementDirection , getDOMHTMLMarqueeElementDirection , setDOMHTMLMarqueeElementDirection , @@ -164,6 +167,7 @@ -- ** Height DOMHTMLMarqueeElementHeightPropertyInfo , constructDOMHTMLMarqueeElementHeight , + dOMHTMLMarqueeElementHeight , getDOMHTMLMarqueeElementHeight , setDOMHTMLMarqueeElementHeight , @@ -171,6 +175,7 @@ -- ** Hspace DOMHTMLMarqueeElementHspacePropertyInfo , constructDOMHTMLMarqueeElementHspace , + dOMHTMLMarqueeElementHspace , getDOMHTMLMarqueeElementHspace , setDOMHTMLMarqueeElementHspace , @@ -178,6 +183,7 @@ -- ** Loop DOMHTMLMarqueeElementLoopPropertyInfo , constructDOMHTMLMarqueeElementLoop , + dOMHTMLMarqueeElementLoop , getDOMHTMLMarqueeElementLoop , setDOMHTMLMarqueeElementLoop , @@ -185,6 +191,7 @@ -- ** ScrollAmount DOMHTMLMarqueeElementScrollAmountPropertyInfo, constructDOMHTMLMarqueeElementScrollAmount, + dOMHTMLMarqueeElementScrollAmount , getDOMHTMLMarqueeElementScrollAmount , setDOMHTMLMarqueeElementScrollAmount , @@ -192,6 +199,7 @@ -- ** ScrollDelay DOMHTMLMarqueeElementScrollDelayPropertyInfo, constructDOMHTMLMarqueeElementScrollDelay, + dOMHTMLMarqueeElementScrollDelay , getDOMHTMLMarqueeElementScrollDelay , setDOMHTMLMarqueeElementScrollDelay , @@ -199,6 +207,7 @@ -- ** TrueSpeed DOMHTMLMarqueeElementTrueSpeedPropertyInfo, constructDOMHTMLMarqueeElementTrueSpeed , + dOMHTMLMarqueeElementTrueSpeed , getDOMHTMLMarqueeElementTrueSpeed , setDOMHTMLMarqueeElementTrueSpeed , @@ -206,6 +215,7 @@ -- ** Vspace DOMHTMLMarqueeElementVspacePropertyInfo , constructDOMHTMLMarqueeElementVspace , + dOMHTMLMarqueeElementVspace , getDOMHTMLMarqueeElementVspace , setDOMHTMLMarqueeElementVspace , @@ -213,6 +223,7 @@ -- ** Width DOMHTMLMarqueeElementWidthPropertyInfo , constructDOMHTMLMarqueeElementWidth , + dOMHTMLMarqueeElementWidth , getDOMHTMLMarqueeElementWidth , setDOMHTMLMarqueeElementWidth , @@ -221,9 +232,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map @@ -445,198 +456,215 @@ -- VVV Prop "behavior" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Just False) -getDOMHTMLMarqueeElementBehavior :: (MonadIO m, DOMHTMLMarqueeElementK o) => o -> m T.Text +getDOMHTMLMarqueeElementBehavior :: (MonadIO m, DOMHTMLMarqueeElementK o) => o -> m (Maybe T.Text) getDOMHTMLMarqueeElementBehavior obj = liftIO $ getObjectPropertyString obj "behavior" setDOMHTMLMarqueeElementBehavior :: (MonadIO m, DOMHTMLMarqueeElementK o) => o -> T.Text -> m () -setDOMHTMLMarqueeElementBehavior obj val = liftIO $ setObjectPropertyString obj "behavior" val +setDOMHTMLMarqueeElementBehavior obj val = liftIO $ setObjectPropertyString obj "behavior" (Just val) constructDOMHTMLMarqueeElementBehavior :: T.Text -> IO ([Char], GValue) -constructDOMHTMLMarqueeElementBehavior val = constructObjectPropertyString "behavior" val +constructDOMHTMLMarqueeElementBehavior val = constructObjectPropertyString "behavior" (Just val) data DOMHTMLMarqueeElementBehaviorPropertyInfo instance AttrInfo DOMHTMLMarqueeElementBehaviorPropertyInfo where type AttrAllowedOps DOMHTMLMarqueeElementBehaviorPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint DOMHTMLMarqueeElementBehaviorPropertyInfo = (~) T.Text type AttrBaseTypeConstraint DOMHTMLMarqueeElementBehaviorPropertyInfo = DOMHTMLMarqueeElementK - type AttrGetType DOMHTMLMarqueeElementBehaviorPropertyInfo = T.Text + type AttrGetType DOMHTMLMarqueeElementBehaviorPropertyInfo = (Maybe T.Text) type AttrLabel DOMHTMLMarqueeElementBehaviorPropertyInfo = "behavior" attrGet _ = getDOMHTMLMarqueeElementBehavior attrSet _ = setDOMHTMLMarqueeElementBehavior attrConstruct _ = constructDOMHTMLMarqueeElementBehavior + attrClear _ = undefined -- VVV Prop "bg-color" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Just False) -getDOMHTMLMarqueeElementBgColor :: (MonadIO m, DOMHTMLMarqueeElementK o) => o -> m T.Text +getDOMHTMLMarqueeElementBgColor :: (MonadIO m, DOMHTMLMarqueeElementK o) => o -> m (Maybe T.Text) getDOMHTMLMarqueeElementBgColor obj = liftIO $ getObjectPropertyString obj "bg-color" setDOMHTMLMarqueeElementBgColor :: (MonadIO m, DOMHTMLMarqueeElementK o) => o -> T.Text -> m () -setDOMHTMLMarqueeElementBgColor obj val = liftIO $ setObjectPropertyString obj "bg-color" val +setDOMHTMLMarqueeElementBgColor obj val = liftIO $ setObjectPropertyString obj "bg-color" (Just val) constructDOMHTMLMarqueeElementBgColor :: T.Text -> IO ([Char], GValue) -constructDOMHTMLMarqueeElementBgColor val = constructObjectPropertyString "bg-color" val +constructDOMHTMLMarqueeElementBgColor val = constructObjectPropertyString "bg-color" (Just val) data DOMHTMLMarqueeElementBgColorPropertyInfo instance AttrInfo DOMHTMLMarqueeElementBgColorPropertyInfo where type AttrAllowedOps DOMHTMLMarqueeElementBgColorPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint DOMHTMLMarqueeElementBgColorPropertyInfo = (~) T.Text type AttrBaseTypeConstraint DOMHTMLMarqueeElementBgColorPropertyInfo = DOMHTMLMarqueeElementK - type AttrGetType DOMHTMLMarqueeElementBgColorPropertyInfo = T.Text + type AttrGetType DOMHTMLMarqueeElementBgColorPropertyInfo = (Maybe T.Text) type AttrLabel DOMHTMLMarqueeElementBgColorPropertyInfo = "bg-color" attrGet _ = getDOMHTMLMarqueeElementBgColor attrSet _ = setDOMHTMLMarqueeElementBgColor attrConstruct _ = constructDOMHTMLMarqueeElementBgColor + attrClear _ = undefined -- VVV Prop "direction" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Just False) -getDOMHTMLMarqueeElementDirection :: (MonadIO m, DOMHTMLMarqueeElementK o) => o -> m T.Text +getDOMHTMLMarqueeElementDirection :: (MonadIO m, DOMHTMLMarqueeElementK o) => o -> m (Maybe T.Text) getDOMHTMLMarqueeElementDirection obj = liftIO $ getObjectPropertyString obj "direction" setDOMHTMLMarqueeElementDirection :: (MonadIO m, DOMHTMLMarqueeElementK o) => o -> T.Text -> m () -setDOMHTMLMarqueeElementDirection obj val = liftIO $ setObjectPropertyString obj "direction" val +setDOMHTMLMarqueeElementDirection obj val = liftIO $ setObjectPropertyString obj "direction" (Just val) constructDOMHTMLMarqueeElementDirection :: T.Text -> IO ([Char], GValue) -constructDOMHTMLMarqueeElementDirection val = constructObjectPropertyString "direction" val +constructDOMHTMLMarqueeElementDirection val = constructObjectPropertyString "direction" (Just val) data DOMHTMLMarqueeElementDirectionPropertyInfo instance AttrInfo DOMHTMLMarqueeElementDirectionPropertyInfo where type AttrAllowedOps DOMHTMLMarqueeElementDirectionPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint DOMHTMLMarqueeElementDirectionPropertyInfo = (~) T.Text type AttrBaseTypeConstraint DOMHTMLMarqueeElementDirectionPropertyInfo = DOMHTMLMarqueeElementK - type AttrGetType DOMHTMLMarqueeElementDirectionPropertyInfo = T.Text + type AttrGetType DOMHTMLMarqueeElementDirectionPropertyInfo = (Maybe T.Text) type AttrLabel DOMHTMLMarqueeElementDirectionPropertyInfo = "direction" attrGet _ = getDOMHTMLMarqueeElementDirection attrSet _ = setDOMHTMLMarqueeElementDirection attrConstruct _ = constructDOMHTMLMarqueeElementDirection + attrClear _ = undefined -- VVV Prop "height" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Just False) -getDOMHTMLMarqueeElementHeight :: (MonadIO m, DOMHTMLMarqueeElementK o) => o -> m T.Text +getDOMHTMLMarqueeElementHeight :: (MonadIO m, DOMHTMLMarqueeElementK o) => o -> m (Maybe T.Text) getDOMHTMLMarqueeElementHeight obj = liftIO $ getObjectPropertyString obj "height" setDOMHTMLMarqueeElementHeight :: (MonadIO m, DOMHTMLMarqueeElementK o) => o -> T.Text -> m () -setDOMHTMLMarqueeElementHeight obj val = liftIO $ setObjectPropertyString obj "height" val +setDOMHTMLMarqueeElementHeight obj val = liftIO $ setObjectPropertyString obj "height" (Just val) constructDOMHTMLMarqueeElementHeight :: T.Text -> IO ([Char], GValue) -constructDOMHTMLMarqueeElementHeight val = constructObjectPropertyString "height" val +constructDOMHTMLMarqueeElementHeight val = constructObjectPropertyString "height" (Just val) data DOMHTMLMarqueeElementHeightPropertyInfo instance AttrInfo DOMHTMLMarqueeElementHeightPropertyInfo where type AttrAllowedOps DOMHTMLMarqueeElementHeightPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint DOMHTMLMarqueeElementHeightPropertyInfo = (~) T.Text type AttrBaseTypeConstraint DOMHTMLMarqueeElementHeightPropertyInfo = DOMHTMLMarqueeElementK - type AttrGetType DOMHTMLMarqueeElementHeightPropertyInfo = T.Text + type AttrGetType DOMHTMLMarqueeElementHeightPropertyInfo = (Maybe T.Text) type AttrLabel DOMHTMLMarqueeElementHeightPropertyInfo = "height" attrGet _ = getDOMHTMLMarqueeElementHeight attrSet _ = setDOMHTMLMarqueeElementHeight attrConstruct _ = constructDOMHTMLMarqueeElementHeight + attrClear _ = undefined -- VVV Prop "hspace" - -- Type: TBasicType TUInt64 + -- Type: TBasicType TULong -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) -getDOMHTMLMarqueeElementHspace :: (MonadIO m, DOMHTMLMarqueeElementK o) => o -> m Word64 -getDOMHTMLMarqueeElementHspace obj = liftIO $ getObjectPropertyUInt64 obj "hspace" +getDOMHTMLMarqueeElementHspace :: (MonadIO m, DOMHTMLMarqueeElementK o) => o -> m CULong +getDOMHTMLMarqueeElementHspace obj = liftIO $ getObjectPropertyULong obj "hspace" -setDOMHTMLMarqueeElementHspace :: (MonadIO m, DOMHTMLMarqueeElementK o) => o -> Word64 -> m () -setDOMHTMLMarqueeElementHspace obj val = liftIO $ setObjectPropertyUInt64 obj "hspace" val +setDOMHTMLMarqueeElementHspace :: (MonadIO m, DOMHTMLMarqueeElementK o) => o -> CULong -> m () +setDOMHTMLMarqueeElementHspace obj val = liftIO $ setObjectPropertyULong obj "hspace" val -constructDOMHTMLMarqueeElementHspace :: Word64 -> IO ([Char], GValue) -constructDOMHTMLMarqueeElementHspace val = constructObjectPropertyUInt64 "hspace" val +constructDOMHTMLMarqueeElementHspace :: CULong -> IO ([Char], GValue) +constructDOMHTMLMarqueeElementHspace val = constructObjectPropertyULong "hspace" val data DOMHTMLMarqueeElementHspacePropertyInfo instance AttrInfo DOMHTMLMarqueeElementHspacePropertyInfo where type AttrAllowedOps DOMHTMLMarqueeElementHspacePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLMarqueeElementHspacePropertyInfo = (~) Word64 + type AttrSetTypeConstraint DOMHTMLMarqueeElementHspacePropertyInfo = (~) CULong type AttrBaseTypeConstraint DOMHTMLMarqueeElementHspacePropertyInfo = DOMHTMLMarqueeElementK - type AttrGetType DOMHTMLMarqueeElementHspacePropertyInfo = Word64 + type AttrGetType DOMHTMLMarqueeElementHspacePropertyInfo = CULong type AttrLabel DOMHTMLMarqueeElementHspacePropertyInfo = "hspace" attrGet _ = getDOMHTMLMarqueeElementHspace attrSet _ = setDOMHTMLMarqueeElementHspace attrConstruct _ = constructDOMHTMLMarqueeElementHspace + attrClear _ = undefined -- VVV Prop "loop" - -- Type: TBasicType TInt64 + -- Type: TBasicType TLong -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Nothing) -getDOMHTMLMarqueeElementLoop :: (MonadIO m, DOMHTMLMarqueeElementK o) => o -> m Int64 -getDOMHTMLMarqueeElementLoop obj = liftIO $ getObjectPropertyInt64 obj "loop" +getDOMHTMLMarqueeElementLoop :: (MonadIO m, DOMHTMLMarqueeElementK o) => o -> m CLong +getDOMHTMLMarqueeElementLoop obj = liftIO $ getObjectPropertyLong obj "loop" -setDOMHTMLMarqueeElementLoop :: (MonadIO m, DOMHTMLMarqueeElementK o) => o -> Int64 -> m () -setDOMHTMLMarqueeElementLoop obj val = liftIO $ setObjectPropertyInt64 obj "loop" val +setDOMHTMLMarqueeElementLoop :: (MonadIO m, DOMHTMLMarqueeElementK o) => o -> CLong -> m () +setDOMHTMLMarqueeElementLoop obj val = liftIO $ setObjectPropertyLong obj "loop" val -constructDOMHTMLMarqueeElementLoop :: Int64 -> IO ([Char], GValue) -constructDOMHTMLMarqueeElementLoop val = constructObjectPropertyInt64 "loop" val +constructDOMHTMLMarqueeElementLoop :: CLong -> IO ([Char], GValue) +constructDOMHTMLMarqueeElementLoop val = constructObjectPropertyLong "loop" val data DOMHTMLMarqueeElementLoopPropertyInfo instance AttrInfo DOMHTMLMarqueeElementLoopPropertyInfo where type AttrAllowedOps DOMHTMLMarqueeElementLoopPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLMarqueeElementLoopPropertyInfo = (~) Int64 + type AttrSetTypeConstraint DOMHTMLMarqueeElementLoopPropertyInfo = (~) CLong type AttrBaseTypeConstraint DOMHTMLMarqueeElementLoopPropertyInfo = DOMHTMLMarqueeElementK - type AttrGetType DOMHTMLMarqueeElementLoopPropertyInfo = Int64 + type AttrGetType DOMHTMLMarqueeElementLoopPropertyInfo = CLong type AttrLabel DOMHTMLMarqueeElementLoopPropertyInfo = "loop" attrGet _ = getDOMHTMLMarqueeElementLoop attrSet _ = setDOMHTMLMarqueeElementLoop attrConstruct _ = constructDOMHTMLMarqueeElementLoop + attrClear _ = undefined -- VVV Prop "scroll-amount" - -- Type: TBasicType TInt64 + -- Type: TBasicType TLong -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Nothing) -getDOMHTMLMarqueeElementScrollAmount :: (MonadIO m, DOMHTMLMarqueeElementK o) => o -> m Int64 -getDOMHTMLMarqueeElementScrollAmount obj = liftIO $ getObjectPropertyInt64 obj "scroll-amount" +getDOMHTMLMarqueeElementScrollAmount :: (MonadIO m, DOMHTMLMarqueeElementK o) => o -> m CLong +getDOMHTMLMarqueeElementScrollAmount obj = liftIO $ getObjectPropertyLong obj "scroll-amount" -setDOMHTMLMarqueeElementScrollAmount :: (MonadIO m, DOMHTMLMarqueeElementK o) => o -> Int64 -> m () -setDOMHTMLMarqueeElementScrollAmount obj val = liftIO $ setObjectPropertyInt64 obj "scroll-amount" val +setDOMHTMLMarqueeElementScrollAmount :: (MonadIO m, DOMHTMLMarqueeElementK o) => o -> CLong -> m () +setDOMHTMLMarqueeElementScrollAmount obj val = liftIO $ setObjectPropertyLong obj "scroll-amount" val -constructDOMHTMLMarqueeElementScrollAmount :: Int64 -> IO ([Char], GValue) -constructDOMHTMLMarqueeElementScrollAmount val = constructObjectPropertyInt64 "scroll-amount" val +constructDOMHTMLMarqueeElementScrollAmount :: CLong -> IO ([Char], GValue) +constructDOMHTMLMarqueeElementScrollAmount val = constructObjectPropertyLong "scroll-amount" val data DOMHTMLMarqueeElementScrollAmountPropertyInfo instance AttrInfo DOMHTMLMarqueeElementScrollAmountPropertyInfo where type AttrAllowedOps DOMHTMLMarqueeElementScrollAmountPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLMarqueeElementScrollAmountPropertyInfo = (~) Int64 + type AttrSetTypeConstraint DOMHTMLMarqueeElementScrollAmountPropertyInfo = (~) CLong type AttrBaseTypeConstraint DOMHTMLMarqueeElementScrollAmountPropertyInfo = DOMHTMLMarqueeElementK - type AttrGetType DOMHTMLMarqueeElementScrollAmountPropertyInfo = Int64 + type AttrGetType DOMHTMLMarqueeElementScrollAmountPropertyInfo = CLong type AttrLabel DOMHTMLMarqueeElementScrollAmountPropertyInfo = "scroll-amount" attrGet _ = getDOMHTMLMarqueeElementScrollAmount attrSet _ = setDOMHTMLMarqueeElementScrollAmount attrConstruct _ = constructDOMHTMLMarqueeElementScrollAmount + attrClear _ = undefined -- VVV Prop "scroll-delay" - -- Type: TBasicType TInt64 + -- Type: TBasicType TLong -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Nothing) -getDOMHTMLMarqueeElementScrollDelay :: (MonadIO m, DOMHTMLMarqueeElementK o) => o -> m Int64 -getDOMHTMLMarqueeElementScrollDelay obj = liftIO $ getObjectPropertyInt64 obj "scroll-delay" +getDOMHTMLMarqueeElementScrollDelay :: (MonadIO m, DOMHTMLMarqueeElementK o) => o -> m CLong +getDOMHTMLMarqueeElementScrollDelay obj = liftIO $ getObjectPropertyLong obj "scroll-delay" -setDOMHTMLMarqueeElementScrollDelay :: (MonadIO m, DOMHTMLMarqueeElementK o) => o -> Int64 -> m () -setDOMHTMLMarqueeElementScrollDelay obj val = liftIO $ setObjectPropertyInt64 obj "scroll-delay" val +setDOMHTMLMarqueeElementScrollDelay :: (MonadIO m, DOMHTMLMarqueeElementK o) => o -> CLong -> m () +setDOMHTMLMarqueeElementScrollDelay obj val = liftIO $ setObjectPropertyLong obj "scroll-delay" val -constructDOMHTMLMarqueeElementScrollDelay :: Int64 -> IO ([Char], GValue) -constructDOMHTMLMarqueeElementScrollDelay val = constructObjectPropertyInt64 "scroll-delay" val +constructDOMHTMLMarqueeElementScrollDelay :: CLong -> IO ([Char], GValue) +constructDOMHTMLMarqueeElementScrollDelay val = constructObjectPropertyLong "scroll-delay" val data DOMHTMLMarqueeElementScrollDelayPropertyInfo instance AttrInfo DOMHTMLMarqueeElementScrollDelayPropertyInfo where type AttrAllowedOps DOMHTMLMarqueeElementScrollDelayPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLMarqueeElementScrollDelayPropertyInfo = (~) Int64 + type AttrSetTypeConstraint DOMHTMLMarqueeElementScrollDelayPropertyInfo = (~) CLong type AttrBaseTypeConstraint DOMHTMLMarqueeElementScrollDelayPropertyInfo = DOMHTMLMarqueeElementK - type AttrGetType DOMHTMLMarqueeElementScrollDelayPropertyInfo = Int64 + type AttrGetType DOMHTMLMarqueeElementScrollDelayPropertyInfo = CLong type AttrLabel DOMHTMLMarqueeElementScrollDelayPropertyInfo = "scroll-delay" attrGet _ = getDOMHTMLMarqueeElementScrollDelay attrSet _ = setDOMHTMLMarqueeElementScrollDelay attrConstruct _ = constructDOMHTMLMarqueeElementScrollDelay + attrClear _ = undefined -- VVV Prop "true-speed" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getDOMHTMLMarqueeElementTrueSpeed :: (MonadIO m, DOMHTMLMarqueeElementK o) => o -> m Bool getDOMHTMLMarqueeElementTrueSpeed obj = liftIO $ getObjectPropertyBool obj "true-speed" @@ -657,58 +685,96 @@ attrGet _ = getDOMHTMLMarqueeElementTrueSpeed attrSet _ = setDOMHTMLMarqueeElementTrueSpeed attrConstruct _ = constructDOMHTMLMarqueeElementTrueSpeed + attrClear _ = undefined -- VVV Prop "vspace" - -- Type: TBasicType TUInt64 + -- Type: TBasicType TULong -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) -getDOMHTMLMarqueeElementVspace :: (MonadIO m, DOMHTMLMarqueeElementK o) => o -> m Word64 -getDOMHTMLMarqueeElementVspace obj = liftIO $ getObjectPropertyUInt64 obj "vspace" +getDOMHTMLMarqueeElementVspace :: (MonadIO m, DOMHTMLMarqueeElementK o) => o -> m CULong +getDOMHTMLMarqueeElementVspace obj = liftIO $ getObjectPropertyULong obj "vspace" -setDOMHTMLMarqueeElementVspace :: (MonadIO m, DOMHTMLMarqueeElementK o) => o -> Word64 -> m () -setDOMHTMLMarqueeElementVspace obj val = liftIO $ setObjectPropertyUInt64 obj "vspace" val +setDOMHTMLMarqueeElementVspace :: (MonadIO m, DOMHTMLMarqueeElementK o) => o -> CULong -> m () +setDOMHTMLMarqueeElementVspace obj val = liftIO $ setObjectPropertyULong obj "vspace" val -constructDOMHTMLMarqueeElementVspace :: Word64 -> IO ([Char], GValue) -constructDOMHTMLMarqueeElementVspace val = constructObjectPropertyUInt64 "vspace" val +constructDOMHTMLMarqueeElementVspace :: CULong -> IO ([Char], GValue) +constructDOMHTMLMarqueeElementVspace val = constructObjectPropertyULong "vspace" val data DOMHTMLMarqueeElementVspacePropertyInfo instance AttrInfo DOMHTMLMarqueeElementVspacePropertyInfo where type AttrAllowedOps DOMHTMLMarqueeElementVspacePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLMarqueeElementVspacePropertyInfo = (~) Word64 + type AttrSetTypeConstraint DOMHTMLMarqueeElementVspacePropertyInfo = (~) CULong type AttrBaseTypeConstraint DOMHTMLMarqueeElementVspacePropertyInfo = DOMHTMLMarqueeElementK - type AttrGetType DOMHTMLMarqueeElementVspacePropertyInfo = Word64 + type AttrGetType DOMHTMLMarqueeElementVspacePropertyInfo = CULong type AttrLabel DOMHTMLMarqueeElementVspacePropertyInfo = "vspace" attrGet _ = getDOMHTMLMarqueeElementVspace attrSet _ = setDOMHTMLMarqueeElementVspace attrConstruct _ = constructDOMHTMLMarqueeElementVspace + attrClear _ = undefined -- VVV Prop "width" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Just False) -getDOMHTMLMarqueeElementWidth :: (MonadIO m, DOMHTMLMarqueeElementK o) => o -> m T.Text +getDOMHTMLMarqueeElementWidth :: (MonadIO m, DOMHTMLMarqueeElementK o) => o -> m (Maybe T.Text) getDOMHTMLMarqueeElementWidth obj = liftIO $ getObjectPropertyString obj "width" setDOMHTMLMarqueeElementWidth :: (MonadIO m, DOMHTMLMarqueeElementK o) => o -> T.Text -> m () -setDOMHTMLMarqueeElementWidth obj val = liftIO $ setObjectPropertyString obj "width" val +setDOMHTMLMarqueeElementWidth obj val = liftIO $ setObjectPropertyString obj "width" (Just val) constructDOMHTMLMarqueeElementWidth :: T.Text -> IO ([Char], GValue) -constructDOMHTMLMarqueeElementWidth val = constructObjectPropertyString "width" val +constructDOMHTMLMarqueeElementWidth val = constructObjectPropertyString "width" (Just val) data DOMHTMLMarqueeElementWidthPropertyInfo instance AttrInfo DOMHTMLMarqueeElementWidthPropertyInfo where type AttrAllowedOps DOMHTMLMarqueeElementWidthPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint DOMHTMLMarqueeElementWidthPropertyInfo = (~) T.Text type AttrBaseTypeConstraint DOMHTMLMarqueeElementWidthPropertyInfo = DOMHTMLMarqueeElementK - type AttrGetType DOMHTMLMarqueeElementWidthPropertyInfo = T.Text + type AttrGetType DOMHTMLMarqueeElementWidthPropertyInfo = (Maybe T.Text) type AttrLabel DOMHTMLMarqueeElementWidthPropertyInfo = "width" attrGet _ = getDOMHTMLMarqueeElementWidth attrSet _ = setDOMHTMLMarqueeElementWidth attrConstruct _ = constructDOMHTMLMarqueeElementWidth + attrClear _ = undefined type instance AttributeList DOMHTMLMarqueeElement = DOMHTMLMarqueeElementAttributeList type DOMHTMLMarqueeElementAttributeList = ('[ '("accessKey", DOMHTMLElementAccessKeyPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("baseUri", DOMNodeBaseUriPropertyInfo), '("behavior", DOMHTMLMarqueeElementBehaviorPropertyInfo), '("bgColor", DOMHTMLMarqueeElementBgColorPropertyInfo), '("childElementCount", DOMElementChildElementCountPropertyInfo), '("childNodes", DOMNodeChildNodesPropertyInfo), '("children", DOMHTMLElementChildrenPropertyInfo), '("classList", DOMElementClassListPropertyInfo), '("className", DOMElementClassNamePropertyInfo), '("clientHeight", DOMElementClientHeightPropertyInfo), '("clientLeft", DOMElementClientLeftPropertyInfo), '("clientTop", DOMElementClientTopPropertyInfo), '("clientWidth", DOMElementClientWidthPropertyInfo), '("contentEditable", DOMHTMLElementContentEditablePropertyInfo), '("coreObject", DOMObjectCoreObjectPropertyInfo), '("dir", DOMHTMLElementDirPropertyInfo), '("direction", DOMHTMLMarqueeElementDirectionPropertyInfo), '("draggable", DOMHTMLElementDraggablePropertyInfo), '("firstChild", DOMNodeFirstChildPropertyInfo), '("firstElementChild", DOMElementFirstElementChildPropertyInfo), '("height", DOMHTMLMarqueeElementHeightPropertyInfo), '("hidden", DOMHTMLElementHiddenPropertyInfo), '("hspace", DOMHTMLMarqueeElementHspacePropertyInfo), '("id", DOMElementIdPropertyInfo), '("innerHtml", DOMHTMLElementInnerHtmlPropertyInfo), '("innerText", DOMHTMLElementInnerTextPropertyInfo), '("isContentEditable", DOMHTMLElementIsContentEditablePropertyInfo), '("lang", DOMHTMLElementLangPropertyInfo), '("lastChild", DOMNodeLastChildPropertyInfo), '("lastElementChild", DOMElementLastElementChildPropertyInfo), '("localName", DOMNodeLocalNamePropertyInfo), '("loop", DOMHTMLMarqueeElementLoopPropertyInfo), '("namespaceUri", DOMNodeNamespaceUriPropertyInfo), '("nextElementSibling", DOMElementNextElementSiblingPropertyInfo), '("nextSibling", DOMNodeNextSiblingPropertyInfo), '("nodeName", DOMNodeNodeNamePropertyInfo), '("nodeType", DOMNodeNodeTypePropertyInfo), '("nodeValue", DOMNodeNodeValuePropertyInfo), '("offsetHeight", DOMElementOffsetHeightPropertyInfo), '("offsetLeft", DOMElementOffsetLeftPropertyInfo), '("offsetParent", DOMElementOffsetParentPropertyInfo), '("offsetTop", DOMElementOffsetTopPropertyInfo), '("offsetWidth", DOMElementOffsetWidthPropertyInfo), '("outerHtml", DOMHTMLElementOuterHtmlPropertyInfo), '("outerText", DOMHTMLElementOuterTextPropertyInfo), '("ownerDocument", DOMNodeOwnerDocumentPropertyInfo), '("parentElement", DOMNodeParentElementPropertyInfo), '("parentNode", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previousElementSibling", DOMElementPreviousElementSiblingPropertyInfo), '("previousSibling", DOMNodePreviousSiblingPropertyInfo), '("scrollAmount", DOMHTMLMarqueeElementScrollAmountPropertyInfo), '("scrollDelay", DOMHTMLMarqueeElementScrollDelayPropertyInfo), '("scrollHeight", DOMElementScrollHeightPropertyInfo), '("scrollLeft", DOMElementScrollLeftPropertyInfo), '("scrollTop", DOMElementScrollTopPropertyInfo), '("scrollWidth", DOMElementScrollWidthPropertyInfo), '("spellcheck", DOMHTMLElementSpellcheckPropertyInfo), '("style", DOMElementStylePropertyInfo), '("tabIndex", DOMHTMLElementTabIndexPropertyInfo), '("tagName", DOMElementTagNamePropertyInfo), '("textContent", DOMNodeTextContentPropertyInfo), '("title", DOMHTMLElementTitlePropertyInfo), '("translate", DOMHTMLElementTranslatePropertyInfo), '("trueSpeed", DOMHTMLMarqueeElementTrueSpeedPropertyInfo), '("vspace", DOMHTMLMarqueeElementVspacePropertyInfo), '("webkitRegionOverset", DOMElementWebkitRegionOversetPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo), '("width", DOMHTMLMarqueeElementWidthPropertyInfo)] :: [(Symbol, *)]) +dOMHTMLMarqueeElementBehavior :: AttrLabelProxy "behavior" +dOMHTMLMarqueeElementBehavior = AttrLabelProxy + +dOMHTMLMarqueeElementBgColor :: AttrLabelProxy "bgColor" +dOMHTMLMarqueeElementBgColor = AttrLabelProxy + +dOMHTMLMarqueeElementDirection :: AttrLabelProxy "direction" +dOMHTMLMarqueeElementDirection = AttrLabelProxy + +dOMHTMLMarqueeElementHeight :: AttrLabelProxy "height" +dOMHTMLMarqueeElementHeight = AttrLabelProxy + +dOMHTMLMarqueeElementHspace :: AttrLabelProxy "hspace" +dOMHTMLMarqueeElementHspace = AttrLabelProxy + +dOMHTMLMarqueeElementLoop :: AttrLabelProxy "loop" +dOMHTMLMarqueeElementLoop = AttrLabelProxy + +dOMHTMLMarqueeElementScrollAmount :: AttrLabelProxy "scrollAmount" +dOMHTMLMarqueeElementScrollAmount = AttrLabelProxy + +dOMHTMLMarqueeElementScrollDelay :: AttrLabelProxy "scrollDelay" +dOMHTMLMarqueeElementScrollDelay = AttrLabelProxy + +dOMHTMLMarqueeElementTrueSpeed :: AttrLabelProxy "trueSpeed" +dOMHTMLMarqueeElementTrueSpeed = AttrLabelProxy + +dOMHTMLMarqueeElementVspace :: AttrLabelProxy "vspace" +dOMHTMLMarqueeElementVspace = AttrLabelProxy + +dOMHTMLMarqueeElementWidth :: AttrLabelProxy "width" +dOMHTMLMarqueeElementWidth = AttrLabelProxy + type instance SignalList DOMHTMLMarqueeElement = DOMHTMLMarqueeElementSignalList type DOMHTMLMarqueeElementSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) @@ -716,7 +782,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLMarqueeElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -746,7 +812,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLMarqueeElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -776,7 +842,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLMarqueeElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -806,7 +872,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLMarqueeElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -836,19 +902,19 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLMarqueeElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUInt64 +-- returnType : Just (TBasicType TULong) -- throws : False -- Skip return : False foreign import ccall "webkit_dom_html_marquee_element_get_hspace" webkit_dom_html_marquee_element_get_hspace :: Ptr DOMHTMLMarqueeElement -> -- _obj : TInterface "WebKit" "DOMHTMLMarqueeElement" - IO Word64 + IO CULong dOMHTMLMarqueeElementGetHspace :: (MonadIO m, DOMHTMLMarqueeElementK a) => a -- _obj - -> m Word64 -- result + -> m CULong -- result dOMHTMLMarqueeElementGetHspace _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- webkit_dom_html_marquee_element_get_hspace _obj' @@ -856,26 +922,26 @@ return result data DOMHTMLMarqueeElementGetHspaceMethodInfo -instance (signature ~ (m Word64), MonadIO m, DOMHTMLMarqueeElementK a) => MethodInfo DOMHTMLMarqueeElementGetHspaceMethodInfo a signature where +instance (signature ~ (m CULong), MonadIO m, DOMHTMLMarqueeElementK a) => MethodInfo DOMHTMLMarqueeElementGetHspaceMethodInfo a signature where overloadedMethod _ = dOMHTMLMarqueeElementGetHspace -- method DOMHTMLMarqueeElement::get_loop -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLMarqueeElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TInt64 +-- returnType : Just (TBasicType TLong) -- throws : False -- Skip return : False foreign import ccall "webkit_dom_html_marquee_element_get_loop" webkit_dom_html_marquee_element_get_loop :: Ptr DOMHTMLMarqueeElement -> -- _obj : TInterface "WebKit" "DOMHTMLMarqueeElement" - IO Int64 + IO CLong dOMHTMLMarqueeElementGetLoop :: (MonadIO m, DOMHTMLMarqueeElementK a) => a -- _obj - -> m Int64 -- result + -> m CLong -- result dOMHTMLMarqueeElementGetLoop _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- webkit_dom_html_marquee_element_get_loop _obj' @@ -883,26 +949,26 @@ return result data DOMHTMLMarqueeElementGetLoopMethodInfo -instance (signature ~ (m Int64), MonadIO m, DOMHTMLMarqueeElementK a) => MethodInfo DOMHTMLMarqueeElementGetLoopMethodInfo a signature where +instance (signature ~ (m CLong), MonadIO m, DOMHTMLMarqueeElementK a) => MethodInfo DOMHTMLMarqueeElementGetLoopMethodInfo a signature where overloadedMethod _ = dOMHTMLMarqueeElementGetLoop -- method DOMHTMLMarqueeElement::get_scroll_amount -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLMarqueeElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TInt64 +-- returnType : Just (TBasicType TLong) -- throws : False -- Skip return : False foreign import ccall "webkit_dom_html_marquee_element_get_scroll_amount" webkit_dom_html_marquee_element_get_scroll_amount :: Ptr DOMHTMLMarqueeElement -> -- _obj : TInterface "WebKit" "DOMHTMLMarqueeElement" - IO Int64 + IO CLong dOMHTMLMarqueeElementGetScrollAmount :: (MonadIO m, DOMHTMLMarqueeElementK a) => a -- _obj - -> m Int64 -- result + -> m CLong -- result dOMHTMLMarqueeElementGetScrollAmount _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- webkit_dom_html_marquee_element_get_scroll_amount _obj' @@ -910,26 +976,26 @@ return result data DOMHTMLMarqueeElementGetScrollAmountMethodInfo -instance (signature ~ (m Int64), MonadIO m, DOMHTMLMarqueeElementK a) => MethodInfo DOMHTMLMarqueeElementGetScrollAmountMethodInfo a signature where +instance (signature ~ (m CLong), MonadIO m, DOMHTMLMarqueeElementK a) => MethodInfo DOMHTMLMarqueeElementGetScrollAmountMethodInfo a signature where overloadedMethod _ = dOMHTMLMarqueeElementGetScrollAmount -- method DOMHTMLMarqueeElement::get_scroll_delay -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLMarqueeElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TInt64 +-- returnType : Just (TBasicType TLong) -- throws : False -- Skip return : False foreign import ccall "webkit_dom_html_marquee_element_get_scroll_delay" webkit_dom_html_marquee_element_get_scroll_delay :: Ptr DOMHTMLMarqueeElement -> -- _obj : TInterface "WebKit" "DOMHTMLMarqueeElement" - IO Int64 + IO CLong dOMHTMLMarqueeElementGetScrollDelay :: (MonadIO m, DOMHTMLMarqueeElementK a) => a -- _obj - -> m Int64 -- result + -> m CLong -- result dOMHTMLMarqueeElementGetScrollDelay _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- webkit_dom_html_marquee_element_get_scroll_delay _obj' @@ -937,14 +1003,14 @@ return result data DOMHTMLMarqueeElementGetScrollDelayMethodInfo -instance (signature ~ (m Int64), MonadIO m, DOMHTMLMarqueeElementK a) => MethodInfo DOMHTMLMarqueeElementGetScrollDelayMethodInfo a signature where +instance (signature ~ (m CLong), MonadIO m, DOMHTMLMarqueeElementK a) => MethodInfo DOMHTMLMarqueeElementGetScrollDelayMethodInfo a signature where overloadedMethod _ = dOMHTMLMarqueeElementGetScrollDelay -- method DOMHTMLMarqueeElement::get_true_speed -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLMarqueeElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -972,19 +1038,19 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLMarqueeElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUInt64 +-- returnType : Just (TBasicType TULong) -- throws : False -- Skip return : False foreign import ccall "webkit_dom_html_marquee_element_get_vspace" webkit_dom_html_marquee_element_get_vspace :: Ptr DOMHTMLMarqueeElement -> -- _obj : TInterface "WebKit" "DOMHTMLMarqueeElement" - IO Word64 + IO CULong dOMHTMLMarqueeElementGetVspace :: (MonadIO m, DOMHTMLMarqueeElementK a) => a -- _obj - -> m Word64 -- result + -> m CULong -- result dOMHTMLMarqueeElementGetVspace _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- webkit_dom_html_marquee_element_get_vspace _obj' @@ -992,14 +1058,14 @@ return result data DOMHTMLMarqueeElementGetVspaceMethodInfo -instance (signature ~ (m Word64), MonadIO m, DOMHTMLMarqueeElementK a) => MethodInfo DOMHTMLMarqueeElementGetVspaceMethodInfo a signature where +instance (signature ~ (m CULong), MonadIO m, DOMHTMLMarqueeElementK a) => MethodInfo DOMHTMLMarqueeElementGetVspaceMethodInfo a signature where overloadedMethod _ = dOMHTMLMarqueeElementGetVspace -- method DOMHTMLMarqueeElement::get_width -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLMarqueeElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -1029,7 +1095,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLMarqueeElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1060,7 +1126,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLMarqueeElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1091,7 +1157,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLMarqueeElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1122,7 +1188,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLMarqueeElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1151,22 +1217,22 @@ -- method DOMHTMLMarqueeElement::set_hspace -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLMarqueeElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLMarqueeElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TULong, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "webkit_dom_html_marquee_element_set_hspace" webkit_dom_html_marquee_element_set_hspace :: Ptr DOMHTMLMarqueeElement -> -- _obj : TInterface "WebKit" "DOMHTMLMarqueeElement" - Word64 -> -- value : TBasicType TUInt64 + CULong -> -- value : TBasicType TULong IO () dOMHTMLMarqueeElementSetHspace :: (MonadIO m, DOMHTMLMarqueeElementK a) => a -- _obj - -> Word64 -- value + -> CULong -- value -> m () -- result dOMHTMLMarqueeElementSetHspace _obj value = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj @@ -1175,20 +1241,20 @@ return () data DOMHTMLMarqueeElementSetHspaceMethodInfo -instance (signature ~ (Word64 -> m ()), MonadIO m, DOMHTMLMarqueeElementK a) => MethodInfo DOMHTMLMarqueeElementSetHspaceMethodInfo a signature where +instance (signature ~ (CULong -> m ()), MonadIO m, DOMHTMLMarqueeElementK a) => MethodInfo DOMHTMLMarqueeElementSetHspaceMethodInfo a signature where overloadedMethod _ = dOMHTMLMarqueeElementSetHspace -- method DOMHTMLMarqueeElement::set_loop -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLMarqueeElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLMarqueeElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TLong, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : True -- Skip return : False foreign import ccall "webkit_dom_html_marquee_element_set_loop" webkit_dom_html_marquee_element_set_loop :: Ptr DOMHTMLMarqueeElement -> -- _obj : TInterface "WebKit" "DOMHTMLMarqueeElement" - Int64 -> -- value : TBasicType TInt64 + CLong -> -- value : TBasicType TLong Ptr (Ptr GError) -> -- error IO () @@ -1196,7 +1262,7 @@ dOMHTMLMarqueeElementSetLoop :: (MonadIO m, DOMHTMLMarqueeElementK a) => a -- _obj - -> Int64 -- value + -> CLong -- value -> m () -- result dOMHTMLMarqueeElementSetLoop _obj value = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj @@ -1209,20 +1275,20 @@ ) data DOMHTMLMarqueeElementSetLoopMethodInfo -instance (signature ~ (Int64 -> m ()), MonadIO m, DOMHTMLMarqueeElementK a) => MethodInfo DOMHTMLMarqueeElementSetLoopMethodInfo a signature where +instance (signature ~ (CLong -> m ()), MonadIO m, DOMHTMLMarqueeElementK a) => MethodInfo DOMHTMLMarqueeElementSetLoopMethodInfo a signature where overloadedMethod _ = dOMHTMLMarqueeElementSetLoop -- method DOMHTMLMarqueeElement::set_scroll_amount -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLMarqueeElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLMarqueeElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TLong, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : True -- Skip return : False foreign import ccall "webkit_dom_html_marquee_element_set_scroll_amount" webkit_dom_html_marquee_element_set_scroll_amount :: Ptr DOMHTMLMarqueeElement -> -- _obj : TInterface "WebKit" "DOMHTMLMarqueeElement" - Int64 -> -- value : TBasicType TInt64 + CLong -> -- value : TBasicType TLong Ptr (Ptr GError) -> -- error IO () @@ -1230,7 +1296,7 @@ dOMHTMLMarqueeElementSetScrollAmount :: (MonadIO m, DOMHTMLMarqueeElementK a) => a -- _obj - -> Int64 -- value + -> CLong -- value -> m () -- result dOMHTMLMarqueeElementSetScrollAmount _obj value = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj @@ -1243,20 +1309,20 @@ ) data DOMHTMLMarqueeElementSetScrollAmountMethodInfo -instance (signature ~ (Int64 -> m ()), MonadIO m, DOMHTMLMarqueeElementK a) => MethodInfo DOMHTMLMarqueeElementSetScrollAmountMethodInfo a signature where +instance (signature ~ (CLong -> m ()), MonadIO m, DOMHTMLMarqueeElementK a) => MethodInfo DOMHTMLMarqueeElementSetScrollAmountMethodInfo a signature where overloadedMethod _ = dOMHTMLMarqueeElementSetScrollAmount -- method DOMHTMLMarqueeElement::set_scroll_delay -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLMarqueeElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLMarqueeElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TLong, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : True -- Skip return : False foreign import ccall "webkit_dom_html_marquee_element_set_scroll_delay" webkit_dom_html_marquee_element_set_scroll_delay :: Ptr DOMHTMLMarqueeElement -> -- _obj : TInterface "WebKit" "DOMHTMLMarqueeElement" - Int64 -> -- value : TBasicType TInt64 + CLong -> -- value : TBasicType TLong Ptr (Ptr GError) -> -- error IO () @@ -1264,7 +1330,7 @@ dOMHTMLMarqueeElementSetScrollDelay :: (MonadIO m, DOMHTMLMarqueeElementK a) => a -- _obj - -> Int64 -- value + -> CLong -- value -> m () -- result dOMHTMLMarqueeElementSetScrollDelay _obj value = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj @@ -1277,14 +1343,14 @@ ) data DOMHTMLMarqueeElementSetScrollDelayMethodInfo -instance (signature ~ (Int64 -> m ()), MonadIO m, DOMHTMLMarqueeElementK a) => MethodInfo DOMHTMLMarqueeElementSetScrollDelayMethodInfo a signature where +instance (signature ~ (CLong -> m ()), MonadIO m, DOMHTMLMarqueeElementK a) => MethodInfo DOMHTMLMarqueeElementSetScrollDelayMethodInfo a signature where overloadedMethod _ = dOMHTMLMarqueeElementSetScrollDelay -- method DOMHTMLMarqueeElement::set_true_speed -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLMarqueeElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1312,22 +1378,22 @@ -- method DOMHTMLMarqueeElement::set_vspace -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLMarqueeElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLMarqueeElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TULong, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "webkit_dom_html_marquee_element_set_vspace" webkit_dom_html_marquee_element_set_vspace :: Ptr DOMHTMLMarqueeElement -> -- _obj : TInterface "WebKit" "DOMHTMLMarqueeElement" - Word64 -> -- value : TBasicType TUInt64 + CULong -> -- value : TBasicType TULong IO () dOMHTMLMarqueeElementSetVspace :: (MonadIO m, DOMHTMLMarqueeElementK a) => a -- _obj - -> Word64 -- value + -> CULong -- value -> m () -- result dOMHTMLMarqueeElementSetVspace _obj value = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj @@ -1336,14 +1402,14 @@ return () data DOMHTMLMarqueeElementSetVspaceMethodInfo -instance (signature ~ (Word64 -> m ()), MonadIO m, DOMHTMLMarqueeElementK a) => MethodInfo DOMHTMLMarqueeElementSetVspaceMethodInfo a signature where +instance (signature ~ (CULong -> m ()), MonadIO m, DOMHTMLMarqueeElementK a) => MethodInfo DOMHTMLMarqueeElementSetVspaceMethodInfo a signature where overloadedMethod _ = dOMHTMLMarqueeElementSetVspace -- method DOMHTMLMarqueeElement::set_width -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLMarqueeElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1374,7 +1440,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLMarqueeElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1401,7 +1467,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLMarqueeElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False diff --git a/GI/WebKit/Objects/DOMHTMLMarqueeElement.hs-boot b/GI/WebKit/Objects/DOMHTMLMarqueeElement.hs-boot --- a/GI/WebKit/Objects/DOMHTMLMarqueeElement.hs-boot +++ b/GI/WebKit/Objects/DOMHTMLMarqueeElement.hs-boot @@ -1,8 +1,8 @@ module GI.WebKit.Objects.DOMHTMLMarqueeElement where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map diff --git a/GI/WebKit/Objects/DOMHTMLMediaElement.hs b/GI/WebKit/Objects/DOMHTMLMediaElement.hs --- a/GI/WebKit/Objects/DOMHTMLMediaElement.hs +++ b/GI/WebKit/Objects/DOMHTMLMediaElement.hs @@ -302,41 +302,48 @@ -- * Properties -- ** AudioTracks DOMHTMLMediaElementAudioTracksPropertyInfo, + dOMHTMLMediaElementAudioTracks , getDOMHTMLMediaElementAudioTracks , -- ** Autoplay DOMHTMLMediaElementAutoplayPropertyInfo , constructDOMHTMLMediaElementAutoplay , + dOMHTMLMediaElementAutoplay , getDOMHTMLMediaElementAutoplay , setDOMHTMLMediaElementAutoplay , -- ** Buffered DOMHTMLMediaElementBufferedPropertyInfo , + dOMHTMLMediaElementBuffered , getDOMHTMLMediaElementBuffered , -- ** Controller DOMHTMLMediaElementControllerPropertyInfo, + dOMHTMLMediaElementController , getDOMHTMLMediaElementController , -- ** Controls DOMHTMLMediaElementControlsPropertyInfo , constructDOMHTMLMediaElementControls , + dOMHTMLMediaElementControls , getDOMHTMLMediaElementControls , setDOMHTMLMediaElementControls , -- ** CurrentSrc DOMHTMLMediaElementCurrentSrcPropertyInfo, + dOMHTMLMediaElementCurrentSrc , getDOMHTMLMediaElementCurrentSrc , -- ** CurrentTime DOMHTMLMediaElementCurrentTimePropertyInfo, constructDOMHTMLMediaElementCurrentTime , + dOMHTMLMediaElementCurrentTime , getDOMHTMLMediaElementCurrentTime , setDOMHTMLMediaElementCurrentTime , @@ -344,6 +351,7 @@ -- ** DefaultMuted DOMHTMLMediaElementDefaultMutedPropertyInfo, constructDOMHTMLMediaElementDefaultMuted, + dOMHTMLMediaElementDefaultMuted , getDOMHTMLMediaElementDefaultMuted , setDOMHTMLMediaElementDefaultMuted , @@ -351,28 +359,33 @@ -- ** DefaultPlaybackRate DOMHTMLMediaElementDefaultPlaybackRatePropertyInfo, constructDOMHTMLMediaElementDefaultPlaybackRate, + dOMHTMLMediaElementDefaultPlaybackRate , getDOMHTMLMediaElementDefaultPlaybackRate, setDOMHTMLMediaElementDefaultPlaybackRate, -- ** Duration DOMHTMLMediaElementDurationPropertyInfo , + dOMHTMLMediaElementDuration , getDOMHTMLMediaElementDuration , -- ** Ended DOMHTMLMediaElementEndedPropertyInfo , + dOMHTMLMediaElementEnded , getDOMHTMLMediaElementEnded , -- ** Error DOMHTMLMediaElementErrorPropertyInfo , + dOMHTMLMediaElementError , getDOMHTMLMediaElementError , -- ** Loop DOMHTMLMediaElementLoopPropertyInfo , constructDOMHTMLMediaElementLoop , + dOMHTMLMediaElementLoop , getDOMHTMLMediaElementLoop , setDOMHTMLMediaElementLoop , @@ -380,6 +393,7 @@ -- ** MediaGroup DOMHTMLMediaElementMediaGroupPropertyInfo, constructDOMHTMLMediaElementMediaGroup , + dOMHTMLMediaElementMediaGroup , getDOMHTMLMediaElementMediaGroup , setDOMHTMLMediaElementMediaGroup , @@ -387,109 +401,128 @@ -- ** Muted DOMHTMLMediaElementMutedPropertyInfo , constructDOMHTMLMediaElementMuted , + dOMHTMLMediaElementMuted , getDOMHTMLMediaElementMuted , setDOMHTMLMediaElementMuted , -- ** NetworkState DOMHTMLMediaElementNetworkStatePropertyInfo, + dOMHTMLMediaElementNetworkState , getDOMHTMLMediaElementNetworkState , -- ** Paused DOMHTMLMediaElementPausedPropertyInfo , + dOMHTMLMediaElementPaused , getDOMHTMLMediaElementPaused , -- ** PlaybackRate DOMHTMLMediaElementPlaybackRatePropertyInfo, constructDOMHTMLMediaElementPlaybackRate, + dOMHTMLMediaElementPlaybackRate , getDOMHTMLMediaElementPlaybackRate , setDOMHTMLMediaElementPlaybackRate , -- ** Played DOMHTMLMediaElementPlayedPropertyInfo , + dOMHTMLMediaElementPlayed , getDOMHTMLMediaElementPlayed , -- ** Preload DOMHTMLMediaElementPreloadPropertyInfo , constructDOMHTMLMediaElementPreload , + dOMHTMLMediaElementPreload , getDOMHTMLMediaElementPreload , setDOMHTMLMediaElementPreload , -- ** ReadyState DOMHTMLMediaElementReadyStatePropertyInfo, + dOMHTMLMediaElementReadyState , getDOMHTMLMediaElementReadyState , -- ** Seekable DOMHTMLMediaElementSeekablePropertyInfo , + dOMHTMLMediaElementSeekable , getDOMHTMLMediaElementSeekable , -- ** Seeking DOMHTMLMediaElementSeekingPropertyInfo , + dOMHTMLMediaElementSeeking , getDOMHTMLMediaElementSeeking , -- ** Src DOMHTMLMediaElementSrcPropertyInfo , constructDOMHTMLMediaElementSrc , + dOMHTMLMediaElementSrc , getDOMHTMLMediaElementSrc , setDOMHTMLMediaElementSrc , -- ** TextTracks DOMHTMLMediaElementTextTracksPropertyInfo, + dOMHTMLMediaElementTextTracks , getDOMHTMLMediaElementTextTracks , -- ** VideoTracks DOMHTMLMediaElementVideoTracksPropertyInfo, + dOMHTMLMediaElementVideoTracks , getDOMHTMLMediaElementVideoTracks , -- ** Volume DOMHTMLMediaElementVolumePropertyInfo , constructDOMHTMLMediaElementVolume , + dOMHTMLMediaElementVolume , getDOMHTMLMediaElementVolume , setDOMHTMLMediaElementVolume , -- ** WebkitAudioDecodedByteCount DOMHTMLMediaElementWebkitAudioDecodedByteCountPropertyInfo, + dOMHTMLMediaElementWebkitAudioDecodedByteCount, getDOMHTMLMediaElementWebkitAudioDecodedByteCount, -- ** WebkitClosedCaptionsVisible DOMHTMLMediaElementWebkitClosedCaptionsVisiblePropertyInfo, constructDOMHTMLMediaElementWebkitClosedCaptionsVisible, + dOMHTMLMediaElementWebkitClosedCaptionsVisible, getDOMHTMLMediaElementWebkitClosedCaptionsVisible, setDOMHTMLMediaElementWebkitClosedCaptionsVisible, -- ** WebkitCurrentPlaybackTargetIsWireless DOMHTMLMediaElementWebkitCurrentPlaybackTargetIsWirelessPropertyInfo, + dOMHTMLMediaElementWebkitCurrentPlaybackTargetIsWireless, getDOMHTMLMediaElementWebkitCurrentPlaybackTargetIsWireless, -- ** WebkitHasClosedCaptions DOMHTMLMediaElementWebkitHasClosedCaptionsPropertyInfo, + dOMHTMLMediaElementWebkitHasClosedCaptions, getDOMHTMLMediaElementWebkitHasClosedCaptions, -- ** WebkitPreservesPitch DOMHTMLMediaElementWebkitPreservesPitchPropertyInfo, constructDOMHTMLMediaElementWebkitPreservesPitch, + dOMHTMLMediaElementWebkitPreservesPitch , getDOMHTMLMediaElementWebkitPreservesPitch, setDOMHTMLMediaElementWebkitPreservesPitch, -- ** WebkitVideoDecodedByteCount DOMHTMLMediaElementWebkitVideoDecodedByteCountPropertyInfo, + dOMHTMLMediaElementWebkitVideoDecodedByteCount, getDOMHTMLMediaElementWebkitVideoDecodedByteCount, @@ -497,9 +530,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map @@ -753,24 +786,27 @@ -- VVV Prop "audio-tracks" -- Type: TInterface "WebKit" "DOMAudioTrackList" -- Flags: [PropertyReadable] + -- Nullable: (Nothing,Nothing) -getDOMHTMLMediaElementAudioTracks :: (MonadIO m, DOMHTMLMediaElementK o) => o -> m DOMAudioTrackList +getDOMHTMLMediaElementAudioTracks :: (MonadIO m, DOMHTMLMediaElementK o) => o -> m (Maybe DOMAudioTrackList) getDOMHTMLMediaElementAudioTracks obj = liftIO $ getObjectPropertyObject obj "audio-tracks" DOMAudioTrackList data DOMHTMLMediaElementAudioTracksPropertyInfo instance AttrInfo DOMHTMLMediaElementAudioTracksPropertyInfo where - type AttrAllowedOps DOMHTMLMediaElementAudioTracksPropertyInfo = '[ 'AttrGet] + type AttrAllowedOps DOMHTMLMediaElementAudioTracksPropertyInfo = '[ 'AttrGet, 'AttrClear] type AttrSetTypeConstraint DOMHTMLMediaElementAudioTracksPropertyInfo = (~) () type AttrBaseTypeConstraint DOMHTMLMediaElementAudioTracksPropertyInfo = DOMHTMLMediaElementK - type AttrGetType DOMHTMLMediaElementAudioTracksPropertyInfo = DOMAudioTrackList + type AttrGetType DOMHTMLMediaElementAudioTracksPropertyInfo = (Maybe DOMAudioTrackList) type AttrLabel DOMHTMLMediaElementAudioTracksPropertyInfo = "audio-tracks" attrGet _ = getDOMHTMLMediaElementAudioTracks attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "autoplay" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getDOMHTMLMediaElementAutoplay :: (MonadIO m, DOMHTMLMediaElementK o) => o -> m Bool getDOMHTMLMediaElementAutoplay obj = liftIO $ getObjectPropertyBool obj "autoplay" @@ -791,46 +827,52 @@ attrGet _ = getDOMHTMLMediaElementAutoplay attrSet _ = setDOMHTMLMediaElementAutoplay attrConstruct _ = constructDOMHTMLMediaElementAutoplay + attrClear _ = undefined -- VVV Prop "buffered" -- Type: TInterface "WebKit" "DOMTimeRanges" -- Flags: [PropertyReadable] + -- Nullable: (Nothing,Nothing) -getDOMHTMLMediaElementBuffered :: (MonadIO m, DOMHTMLMediaElementK o) => o -> m DOMTimeRanges +getDOMHTMLMediaElementBuffered :: (MonadIO m, DOMHTMLMediaElementK o) => o -> m (Maybe DOMTimeRanges) getDOMHTMLMediaElementBuffered obj = liftIO $ getObjectPropertyObject obj "buffered" DOMTimeRanges data DOMHTMLMediaElementBufferedPropertyInfo instance AttrInfo DOMHTMLMediaElementBufferedPropertyInfo where - type AttrAllowedOps DOMHTMLMediaElementBufferedPropertyInfo = '[ 'AttrGet] + type AttrAllowedOps DOMHTMLMediaElementBufferedPropertyInfo = '[ 'AttrGet, 'AttrClear] type AttrSetTypeConstraint DOMHTMLMediaElementBufferedPropertyInfo = (~) () type AttrBaseTypeConstraint DOMHTMLMediaElementBufferedPropertyInfo = DOMHTMLMediaElementK - type AttrGetType DOMHTMLMediaElementBufferedPropertyInfo = DOMTimeRanges + type AttrGetType DOMHTMLMediaElementBufferedPropertyInfo = (Maybe DOMTimeRanges) type AttrLabel DOMHTMLMediaElementBufferedPropertyInfo = "buffered" attrGet _ = getDOMHTMLMediaElementBuffered attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "controller" -- Type: TInterface "WebKit" "DOMMediaController" -- Flags: [PropertyReadable] + -- Nullable: (Nothing,Nothing) -getDOMHTMLMediaElementController :: (MonadIO m, DOMHTMLMediaElementK o) => o -> m DOMMediaController +getDOMHTMLMediaElementController :: (MonadIO m, DOMHTMLMediaElementK o) => o -> m (Maybe DOMMediaController) getDOMHTMLMediaElementController obj = liftIO $ getObjectPropertyObject obj "controller" DOMMediaController data DOMHTMLMediaElementControllerPropertyInfo instance AttrInfo DOMHTMLMediaElementControllerPropertyInfo where - type AttrAllowedOps DOMHTMLMediaElementControllerPropertyInfo = '[ 'AttrGet] + type AttrAllowedOps DOMHTMLMediaElementControllerPropertyInfo = '[ 'AttrGet, 'AttrClear] type AttrSetTypeConstraint DOMHTMLMediaElementControllerPropertyInfo = (~) () type AttrBaseTypeConstraint DOMHTMLMediaElementControllerPropertyInfo = DOMHTMLMediaElementK - type AttrGetType DOMHTMLMediaElementControllerPropertyInfo = DOMMediaController + type AttrGetType DOMHTMLMediaElementControllerPropertyInfo = (Maybe DOMMediaController) type AttrLabel DOMHTMLMediaElementControllerPropertyInfo = "controller" attrGet _ = getDOMHTMLMediaElementController attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "controls" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getDOMHTMLMediaElementControls :: (MonadIO m, DOMHTMLMediaElementK o) => o -> m Bool getDOMHTMLMediaElementControls obj = liftIO $ getObjectPropertyBool obj "controls" @@ -851,28 +893,32 @@ attrGet _ = getDOMHTMLMediaElementControls attrSet _ = setDOMHTMLMediaElementControls attrConstruct _ = constructDOMHTMLMediaElementControls + attrClear _ = undefined -- VVV Prop "current-src" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable] + -- Nullable: (Nothing,Nothing) -getDOMHTMLMediaElementCurrentSrc :: (MonadIO m, DOMHTMLMediaElementK o) => o -> m T.Text +getDOMHTMLMediaElementCurrentSrc :: (MonadIO m, DOMHTMLMediaElementK o) => o -> m (Maybe T.Text) getDOMHTMLMediaElementCurrentSrc obj = liftIO $ getObjectPropertyString obj "current-src" data DOMHTMLMediaElementCurrentSrcPropertyInfo instance AttrInfo DOMHTMLMediaElementCurrentSrcPropertyInfo where - type AttrAllowedOps DOMHTMLMediaElementCurrentSrcPropertyInfo = '[ 'AttrGet] + type AttrAllowedOps DOMHTMLMediaElementCurrentSrcPropertyInfo = '[ 'AttrGet, 'AttrClear] type AttrSetTypeConstraint DOMHTMLMediaElementCurrentSrcPropertyInfo = (~) () type AttrBaseTypeConstraint DOMHTMLMediaElementCurrentSrcPropertyInfo = DOMHTMLMediaElementK - type AttrGetType DOMHTMLMediaElementCurrentSrcPropertyInfo = T.Text + type AttrGetType DOMHTMLMediaElementCurrentSrcPropertyInfo = (Maybe T.Text) type AttrLabel DOMHTMLMediaElementCurrentSrcPropertyInfo = "current-src" attrGet _ = getDOMHTMLMediaElementCurrentSrc attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "current-time" -- Type: TBasicType TDouble -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Nothing) getDOMHTMLMediaElementCurrentTime :: (MonadIO m, DOMHTMLMediaElementK o) => o -> m Double getDOMHTMLMediaElementCurrentTime obj = liftIO $ getObjectPropertyDouble obj "current-time" @@ -893,10 +939,12 @@ attrGet _ = getDOMHTMLMediaElementCurrentTime attrSet _ = setDOMHTMLMediaElementCurrentTime attrConstruct _ = constructDOMHTMLMediaElementCurrentTime + attrClear _ = undefined -- VVV Prop "default-muted" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getDOMHTMLMediaElementDefaultMuted :: (MonadIO m, DOMHTMLMediaElementK o) => o -> m Bool getDOMHTMLMediaElementDefaultMuted obj = liftIO $ getObjectPropertyBool obj "default-muted" @@ -917,10 +965,12 @@ attrGet _ = getDOMHTMLMediaElementDefaultMuted attrSet _ = setDOMHTMLMediaElementDefaultMuted attrConstruct _ = constructDOMHTMLMediaElementDefaultMuted + attrClear _ = undefined -- VVV Prop "default-playback-rate" -- Type: TBasicType TDouble -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getDOMHTMLMediaElementDefaultPlaybackRate :: (MonadIO m, DOMHTMLMediaElementK o) => o -> m Double getDOMHTMLMediaElementDefaultPlaybackRate obj = liftIO $ getObjectPropertyDouble obj "default-playback-rate" @@ -941,10 +991,12 @@ attrGet _ = getDOMHTMLMediaElementDefaultPlaybackRate attrSet _ = setDOMHTMLMediaElementDefaultPlaybackRate attrConstruct _ = constructDOMHTMLMediaElementDefaultPlaybackRate + attrClear _ = undefined -- VVV Prop "duration" -- Type: TBasicType TDouble -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) getDOMHTMLMediaElementDuration :: (MonadIO m, DOMHTMLMediaElementK o) => o -> m Double getDOMHTMLMediaElementDuration obj = liftIO $ getObjectPropertyDouble obj "duration" @@ -959,10 +1011,12 @@ attrGet _ = getDOMHTMLMediaElementDuration attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "ended" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) getDOMHTMLMediaElementEnded :: (MonadIO m, DOMHTMLMediaElementK o) => o -> m Bool getDOMHTMLMediaElementEnded obj = liftIO $ getObjectPropertyBool obj "ended" @@ -977,28 +1031,32 @@ attrGet _ = getDOMHTMLMediaElementEnded attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "error" -- Type: TInterface "WebKit" "DOMMediaError" -- Flags: [PropertyReadable] + -- Nullable: (Nothing,Nothing) -getDOMHTMLMediaElementError :: (MonadIO m, DOMHTMLMediaElementK o) => o -> m DOMMediaError +getDOMHTMLMediaElementError :: (MonadIO m, DOMHTMLMediaElementK o) => o -> m (Maybe DOMMediaError) getDOMHTMLMediaElementError obj = liftIO $ getObjectPropertyObject obj "error" DOMMediaError data DOMHTMLMediaElementErrorPropertyInfo instance AttrInfo DOMHTMLMediaElementErrorPropertyInfo where - type AttrAllowedOps DOMHTMLMediaElementErrorPropertyInfo = '[ 'AttrGet] + type AttrAllowedOps DOMHTMLMediaElementErrorPropertyInfo = '[ 'AttrGet, 'AttrClear] type AttrSetTypeConstraint DOMHTMLMediaElementErrorPropertyInfo = (~) () type AttrBaseTypeConstraint DOMHTMLMediaElementErrorPropertyInfo = DOMHTMLMediaElementK - type AttrGetType DOMHTMLMediaElementErrorPropertyInfo = DOMMediaError + type AttrGetType DOMHTMLMediaElementErrorPropertyInfo = (Maybe DOMMediaError) type AttrLabel DOMHTMLMediaElementErrorPropertyInfo = "error" attrGet _ = getDOMHTMLMediaElementError attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "loop" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getDOMHTMLMediaElementLoop :: (MonadIO m, DOMHTMLMediaElementK o) => o -> m Bool getDOMHTMLMediaElementLoop obj = liftIO $ getObjectPropertyBool obj "loop" @@ -1019,34 +1077,38 @@ attrGet _ = getDOMHTMLMediaElementLoop attrSet _ = setDOMHTMLMediaElementLoop attrConstruct _ = constructDOMHTMLMediaElementLoop + attrClear _ = undefined -- VVV Prop "media-group" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Just False) -getDOMHTMLMediaElementMediaGroup :: (MonadIO m, DOMHTMLMediaElementK o) => o -> m T.Text +getDOMHTMLMediaElementMediaGroup :: (MonadIO m, DOMHTMLMediaElementK o) => o -> m (Maybe T.Text) getDOMHTMLMediaElementMediaGroup obj = liftIO $ getObjectPropertyString obj "media-group" setDOMHTMLMediaElementMediaGroup :: (MonadIO m, DOMHTMLMediaElementK o) => o -> T.Text -> m () -setDOMHTMLMediaElementMediaGroup obj val = liftIO $ setObjectPropertyString obj "media-group" val +setDOMHTMLMediaElementMediaGroup obj val = liftIO $ setObjectPropertyString obj "media-group" (Just val) constructDOMHTMLMediaElementMediaGroup :: T.Text -> IO ([Char], GValue) -constructDOMHTMLMediaElementMediaGroup val = constructObjectPropertyString "media-group" val +constructDOMHTMLMediaElementMediaGroup val = constructObjectPropertyString "media-group" (Just val) data DOMHTMLMediaElementMediaGroupPropertyInfo instance AttrInfo DOMHTMLMediaElementMediaGroupPropertyInfo where type AttrAllowedOps DOMHTMLMediaElementMediaGroupPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint DOMHTMLMediaElementMediaGroupPropertyInfo = (~) T.Text type AttrBaseTypeConstraint DOMHTMLMediaElementMediaGroupPropertyInfo = DOMHTMLMediaElementK - type AttrGetType DOMHTMLMediaElementMediaGroupPropertyInfo = T.Text + type AttrGetType DOMHTMLMediaElementMediaGroupPropertyInfo = (Maybe T.Text) type AttrLabel DOMHTMLMediaElementMediaGroupPropertyInfo = "media-group" attrGet _ = getDOMHTMLMediaElementMediaGroup attrSet _ = setDOMHTMLMediaElementMediaGroup attrConstruct _ = constructDOMHTMLMediaElementMediaGroup + attrClear _ = undefined -- VVV Prop "muted" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getDOMHTMLMediaElementMuted :: (MonadIO m, DOMHTMLMediaElementK o) => o -> m Bool getDOMHTMLMediaElementMuted obj = liftIO $ getObjectPropertyBool obj "muted" @@ -1067,13 +1129,15 @@ attrGet _ = getDOMHTMLMediaElementMuted attrSet _ = setDOMHTMLMediaElementMuted attrConstruct _ = constructDOMHTMLMediaElementMuted + attrClear _ = undefined -- VVV Prop "network-state" - -- Type: TBasicType TUInt32 + -- Type: TBasicType TUInt -- Flags: [PropertyReadable] + -- Nullable: (Nothing,Nothing) getDOMHTMLMediaElementNetworkState :: (MonadIO m, DOMHTMLMediaElementK o) => o -> m Word32 -getDOMHTMLMediaElementNetworkState obj = liftIO $ getObjectPropertyCUInt obj "network-state" +getDOMHTMLMediaElementNetworkState obj = liftIO $ getObjectPropertyUInt32 obj "network-state" data DOMHTMLMediaElementNetworkStatePropertyInfo instance AttrInfo DOMHTMLMediaElementNetworkStatePropertyInfo where @@ -1085,10 +1149,12 @@ attrGet _ = getDOMHTMLMediaElementNetworkState attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "paused" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) getDOMHTMLMediaElementPaused :: (MonadIO m, DOMHTMLMediaElementK o) => o -> m Bool getDOMHTMLMediaElementPaused obj = liftIO $ getObjectPropertyBool obj "paused" @@ -1103,10 +1169,12 @@ attrGet _ = getDOMHTMLMediaElementPaused attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "playback-rate" -- Type: TBasicType TDouble -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getDOMHTMLMediaElementPlaybackRate :: (MonadIO m, DOMHTMLMediaElementK o) => o -> m Double getDOMHTMLMediaElementPlaybackRate obj = liftIO $ getObjectPropertyDouble obj "playback-rate" @@ -1127,55 +1195,61 @@ attrGet _ = getDOMHTMLMediaElementPlaybackRate attrSet _ = setDOMHTMLMediaElementPlaybackRate attrConstruct _ = constructDOMHTMLMediaElementPlaybackRate + attrClear _ = undefined -- VVV Prop "played" -- Type: TInterface "WebKit" "DOMTimeRanges" -- Flags: [PropertyReadable] + -- Nullable: (Nothing,Nothing) -getDOMHTMLMediaElementPlayed :: (MonadIO m, DOMHTMLMediaElementK o) => o -> m DOMTimeRanges +getDOMHTMLMediaElementPlayed :: (MonadIO m, DOMHTMLMediaElementK o) => o -> m (Maybe DOMTimeRanges) getDOMHTMLMediaElementPlayed obj = liftIO $ getObjectPropertyObject obj "played" DOMTimeRanges data DOMHTMLMediaElementPlayedPropertyInfo instance AttrInfo DOMHTMLMediaElementPlayedPropertyInfo where - type AttrAllowedOps DOMHTMLMediaElementPlayedPropertyInfo = '[ 'AttrGet] + type AttrAllowedOps DOMHTMLMediaElementPlayedPropertyInfo = '[ 'AttrGet, 'AttrClear] type AttrSetTypeConstraint DOMHTMLMediaElementPlayedPropertyInfo = (~) () type AttrBaseTypeConstraint DOMHTMLMediaElementPlayedPropertyInfo = DOMHTMLMediaElementK - type AttrGetType DOMHTMLMediaElementPlayedPropertyInfo = DOMTimeRanges + type AttrGetType DOMHTMLMediaElementPlayedPropertyInfo = (Maybe DOMTimeRanges) type AttrLabel DOMHTMLMediaElementPlayedPropertyInfo = "played" attrGet _ = getDOMHTMLMediaElementPlayed attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "preload" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Just False) -getDOMHTMLMediaElementPreload :: (MonadIO m, DOMHTMLMediaElementK o) => o -> m T.Text +getDOMHTMLMediaElementPreload :: (MonadIO m, DOMHTMLMediaElementK o) => o -> m (Maybe T.Text) getDOMHTMLMediaElementPreload obj = liftIO $ getObjectPropertyString obj "preload" setDOMHTMLMediaElementPreload :: (MonadIO m, DOMHTMLMediaElementK o) => o -> T.Text -> m () -setDOMHTMLMediaElementPreload obj val = liftIO $ setObjectPropertyString obj "preload" val +setDOMHTMLMediaElementPreload obj val = liftIO $ setObjectPropertyString obj "preload" (Just val) constructDOMHTMLMediaElementPreload :: T.Text -> IO ([Char], GValue) -constructDOMHTMLMediaElementPreload val = constructObjectPropertyString "preload" val +constructDOMHTMLMediaElementPreload val = constructObjectPropertyString "preload" (Just val) data DOMHTMLMediaElementPreloadPropertyInfo instance AttrInfo DOMHTMLMediaElementPreloadPropertyInfo where type AttrAllowedOps DOMHTMLMediaElementPreloadPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint DOMHTMLMediaElementPreloadPropertyInfo = (~) T.Text type AttrBaseTypeConstraint DOMHTMLMediaElementPreloadPropertyInfo = DOMHTMLMediaElementK - type AttrGetType DOMHTMLMediaElementPreloadPropertyInfo = T.Text + type AttrGetType DOMHTMLMediaElementPreloadPropertyInfo = (Maybe T.Text) type AttrLabel DOMHTMLMediaElementPreloadPropertyInfo = "preload" attrGet _ = getDOMHTMLMediaElementPreload attrSet _ = setDOMHTMLMediaElementPreload attrConstruct _ = constructDOMHTMLMediaElementPreload + attrClear _ = undefined -- VVV Prop "ready-state" - -- Type: TBasicType TUInt32 + -- Type: TBasicType TUInt -- Flags: [PropertyReadable] + -- Nullable: (Nothing,Nothing) getDOMHTMLMediaElementReadyState :: (MonadIO m, DOMHTMLMediaElementK o) => o -> m Word32 -getDOMHTMLMediaElementReadyState obj = liftIO $ getObjectPropertyCUInt obj "ready-state" +getDOMHTMLMediaElementReadyState obj = liftIO $ getObjectPropertyUInt32 obj "ready-state" data DOMHTMLMediaElementReadyStatePropertyInfo instance AttrInfo DOMHTMLMediaElementReadyStatePropertyInfo where @@ -1187,28 +1261,32 @@ attrGet _ = getDOMHTMLMediaElementReadyState attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "seekable" -- Type: TInterface "WebKit" "DOMTimeRanges" -- Flags: [PropertyReadable] + -- Nullable: (Nothing,Nothing) -getDOMHTMLMediaElementSeekable :: (MonadIO m, DOMHTMLMediaElementK o) => o -> m DOMTimeRanges +getDOMHTMLMediaElementSeekable :: (MonadIO m, DOMHTMLMediaElementK o) => o -> m (Maybe DOMTimeRanges) getDOMHTMLMediaElementSeekable obj = liftIO $ getObjectPropertyObject obj "seekable" DOMTimeRanges data DOMHTMLMediaElementSeekablePropertyInfo instance AttrInfo DOMHTMLMediaElementSeekablePropertyInfo where - type AttrAllowedOps DOMHTMLMediaElementSeekablePropertyInfo = '[ 'AttrGet] + type AttrAllowedOps DOMHTMLMediaElementSeekablePropertyInfo = '[ 'AttrGet, 'AttrClear] type AttrSetTypeConstraint DOMHTMLMediaElementSeekablePropertyInfo = (~) () type AttrBaseTypeConstraint DOMHTMLMediaElementSeekablePropertyInfo = DOMHTMLMediaElementK - type AttrGetType DOMHTMLMediaElementSeekablePropertyInfo = DOMTimeRanges + type AttrGetType DOMHTMLMediaElementSeekablePropertyInfo = (Maybe DOMTimeRanges) type AttrLabel DOMHTMLMediaElementSeekablePropertyInfo = "seekable" attrGet _ = getDOMHTMLMediaElementSeekable attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "seeking" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) getDOMHTMLMediaElementSeeking :: (MonadIO m, DOMHTMLMediaElementK o) => o -> m Bool getDOMHTMLMediaElementSeeking obj = liftIO $ getObjectPropertyBool obj "seeking" @@ -1223,41 +1301,45 @@ attrGet _ = getDOMHTMLMediaElementSeeking attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "src" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Just False) -getDOMHTMLMediaElementSrc :: (MonadIO m, DOMHTMLMediaElementK o) => o -> m T.Text +getDOMHTMLMediaElementSrc :: (MonadIO m, DOMHTMLMediaElementK o) => o -> m (Maybe T.Text) getDOMHTMLMediaElementSrc obj = liftIO $ getObjectPropertyString obj "src" setDOMHTMLMediaElementSrc :: (MonadIO m, DOMHTMLMediaElementK o) => o -> T.Text -> m () -setDOMHTMLMediaElementSrc obj val = liftIO $ setObjectPropertyString obj "src" val +setDOMHTMLMediaElementSrc obj val = liftIO $ setObjectPropertyString obj "src" (Just val) constructDOMHTMLMediaElementSrc :: T.Text -> IO ([Char], GValue) -constructDOMHTMLMediaElementSrc val = constructObjectPropertyString "src" val +constructDOMHTMLMediaElementSrc val = constructObjectPropertyString "src" (Just val) data DOMHTMLMediaElementSrcPropertyInfo instance AttrInfo DOMHTMLMediaElementSrcPropertyInfo where type AttrAllowedOps DOMHTMLMediaElementSrcPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint DOMHTMLMediaElementSrcPropertyInfo = (~) T.Text type AttrBaseTypeConstraint DOMHTMLMediaElementSrcPropertyInfo = DOMHTMLMediaElementK - type AttrGetType DOMHTMLMediaElementSrcPropertyInfo = T.Text + type AttrGetType DOMHTMLMediaElementSrcPropertyInfo = (Maybe T.Text) type AttrLabel DOMHTMLMediaElementSrcPropertyInfo = "src" attrGet _ = getDOMHTMLMediaElementSrc attrSet _ = setDOMHTMLMediaElementSrc attrConstruct _ = constructDOMHTMLMediaElementSrc + attrClear _ = undefined -- VVV Prop "text-tracks" -- Type: TInterface "WebKit" "DOMTextTrackList" -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) getDOMHTMLMediaElementTextTracks :: (MonadIO m, DOMHTMLMediaElementK o) => o -> m DOMTextTrackList -getDOMHTMLMediaElementTextTracks obj = liftIO $ getObjectPropertyObject obj "text-tracks" DOMTextTrackList +getDOMHTMLMediaElementTextTracks obj = liftIO $ checkUnexpectedNothing "getDOMHTMLMediaElementTextTracks" $ getObjectPropertyObject obj "text-tracks" DOMTextTrackList data DOMHTMLMediaElementTextTracksPropertyInfo instance AttrInfo DOMHTMLMediaElementTextTracksPropertyInfo where - type AttrAllowedOps DOMHTMLMediaElementTextTracksPropertyInfo = '[ 'AttrGet] + type AttrAllowedOps DOMHTMLMediaElementTextTracksPropertyInfo = '[ 'AttrGet, 'AttrClear] type AttrSetTypeConstraint DOMHTMLMediaElementTextTracksPropertyInfo = (~) () type AttrBaseTypeConstraint DOMHTMLMediaElementTextTracksPropertyInfo = DOMHTMLMediaElementK type AttrGetType DOMHTMLMediaElementTextTracksPropertyInfo = DOMTextTrackList @@ -1265,17 +1347,19 @@ attrGet _ = getDOMHTMLMediaElementTextTracks attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "video-tracks" -- Type: TInterface "WebKit" "DOMVideoTrackList" -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) getDOMHTMLMediaElementVideoTracks :: (MonadIO m, DOMHTMLMediaElementK o) => o -> m DOMVideoTrackList -getDOMHTMLMediaElementVideoTracks obj = liftIO $ getObjectPropertyObject obj "video-tracks" DOMVideoTrackList +getDOMHTMLMediaElementVideoTracks obj = liftIO $ checkUnexpectedNothing "getDOMHTMLMediaElementVideoTracks" $ getObjectPropertyObject obj "video-tracks" DOMVideoTrackList data DOMHTMLMediaElementVideoTracksPropertyInfo instance AttrInfo DOMHTMLMediaElementVideoTracksPropertyInfo where - type AttrAllowedOps DOMHTMLMediaElementVideoTracksPropertyInfo = '[ 'AttrGet] + type AttrAllowedOps DOMHTMLMediaElementVideoTracksPropertyInfo = '[ 'AttrGet, 'AttrClear] type AttrSetTypeConstraint DOMHTMLMediaElementVideoTracksPropertyInfo = (~) () type AttrBaseTypeConstraint DOMHTMLMediaElementVideoTracksPropertyInfo = DOMHTMLMediaElementK type AttrGetType DOMHTMLMediaElementVideoTracksPropertyInfo = DOMVideoTrackList @@ -1283,10 +1367,12 @@ attrGet _ = getDOMHTMLMediaElementVideoTracks attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "volume" -- Type: TBasicType TDouble -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Nothing) getDOMHTMLMediaElementVolume :: (MonadIO m, DOMHTMLMediaElementK o) => o -> m Double getDOMHTMLMediaElementVolume obj = liftIO $ getObjectPropertyDouble obj "volume" @@ -1307,28 +1393,32 @@ attrGet _ = getDOMHTMLMediaElementVolume attrSet _ = setDOMHTMLMediaElementVolume attrConstruct _ = constructDOMHTMLMediaElementVolume + attrClear _ = undefined -- VVV Prop "webkit-audio-decoded-byte-count" - -- Type: TBasicType TUInt64 + -- Type: TBasicType TULong -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) -getDOMHTMLMediaElementWebkitAudioDecodedByteCount :: (MonadIO m, DOMHTMLMediaElementK o) => o -> m Word64 -getDOMHTMLMediaElementWebkitAudioDecodedByteCount obj = liftIO $ getObjectPropertyUInt64 obj "webkit-audio-decoded-byte-count" +getDOMHTMLMediaElementWebkitAudioDecodedByteCount :: (MonadIO m, DOMHTMLMediaElementK o) => o -> m CULong +getDOMHTMLMediaElementWebkitAudioDecodedByteCount obj = liftIO $ getObjectPropertyULong obj "webkit-audio-decoded-byte-count" data DOMHTMLMediaElementWebkitAudioDecodedByteCountPropertyInfo instance AttrInfo DOMHTMLMediaElementWebkitAudioDecodedByteCountPropertyInfo where type AttrAllowedOps DOMHTMLMediaElementWebkitAudioDecodedByteCountPropertyInfo = '[ 'AttrGet] type AttrSetTypeConstraint DOMHTMLMediaElementWebkitAudioDecodedByteCountPropertyInfo = (~) () type AttrBaseTypeConstraint DOMHTMLMediaElementWebkitAudioDecodedByteCountPropertyInfo = DOMHTMLMediaElementK - type AttrGetType DOMHTMLMediaElementWebkitAudioDecodedByteCountPropertyInfo = Word64 + type AttrGetType DOMHTMLMediaElementWebkitAudioDecodedByteCountPropertyInfo = CULong type AttrLabel DOMHTMLMediaElementWebkitAudioDecodedByteCountPropertyInfo = "webkit-audio-decoded-byte-count" attrGet _ = getDOMHTMLMediaElementWebkitAudioDecodedByteCount attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "webkit-closed-captions-visible" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getDOMHTMLMediaElementWebkitClosedCaptionsVisible :: (MonadIO m, DOMHTMLMediaElementK o) => o -> m Bool getDOMHTMLMediaElementWebkitClosedCaptionsVisible obj = liftIO $ getObjectPropertyBool obj "webkit-closed-captions-visible" @@ -1349,10 +1439,12 @@ attrGet _ = getDOMHTMLMediaElementWebkitClosedCaptionsVisible attrSet _ = setDOMHTMLMediaElementWebkitClosedCaptionsVisible attrConstruct _ = constructDOMHTMLMediaElementWebkitClosedCaptionsVisible + attrClear _ = undefined -- VVV Prop "webkit-current-playback-target-is-wireless" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) getDOMHTMLMediaElementWebkitCurrentPlaybackTargetIsWireless :: (MonadIO m, DOMHTMLMediaElementK o) => o -> m Bool getDOMHTMLMediaElementWebkitCurrentPlaybackTargetIsWireless obj = liftIO $ getObjectPropertyBool obj "webkit-current-playback-target-is-wireless" @@ -1367,10 +1459,12 @@ attrGet _ = getDOMHTMLMediaElementWebkitCurrentPlaybackTargetIsWireless attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "webkit-has-closed-captions" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) getDOMHTMLMediaElementWebkitHasClosedCaptions :: (MonadIO m, DOMHTMLMediaElementK o) => o -> m Bool getDOMHTMLMediaElementWebkitHasClosedCaptions obj = liftIO $ getObjectPropertyBool obj "webkit-has-closed-captions" @@ -1385,10 +1479,12 @@ attrGet _ = getDOMHTMLMediaElementWebkitHasClosedCaptions attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "webkit-preserves-pitch" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getDOMHTMLMediaElementWebkitPreservesPitch :: (MonadIO m, DOMHTMLMediaElementK o) => o -> m Bool getDOMHTMLMediaElementWebkitPreservesPitch obj = liftIO $ getObjectPropertyBool obj "webkit-preserves-pitch" @@ -1409,28 +1505,130 @@ attrGet _ = getDOMHTMLMediaElementWebkitPreservesPitch attrSet _ = setDOMHTMLMediaElementWebkitPreservesPitch attrConstruct _ = constructDOMHTMLMediaElementWebkitPreservesPitch + attrClear _ = undefined -- VVV Prop "webkit-video-decoded-byte-count" - -- Type: TBasicType TUInt64 + -- Type: TBasicType TULong -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) -getDOMHTMLMediaElementWebkitVideoDecodedByteCount :: (MonadIO m, DOMHTMLMediaElementK o) => o -> m Word64 -getDOMHTMLMediaElementWebkitVideoDecodedByteCount obj = liftIO $ getObjectPropertyUInt64 obj "webkit-video-decoded-byte-count" +getDOMHTMLMediaElementWebkitVideoDecodedByteCount :: (MonadIO m, DOMHTMLMediaElementK o) => o -> m CULong +getDOMHTMLMediaElementWebkitVideoDecodedByteCount obj = liftIO $ getObjectPropertyULong obj "webkit-video-decoded-byte-count" data DOMHTMLMediaElementWebkitVideoDecodedByteCountPropertyInfo instance AttrInfo DOMHTMLMediaElementWebkitVideoDecodedByteCountPropertyInfo where type AttrAllowedOps DOMHTMLMediaElementWebkitVideoDecodedByteCountPropertyInfo = '[ 'AttrGet] type AttrSetTypeConstraint DOMHTMLMediaElementWebkitVideoDecodedByteCountPropertyInfo = (~) () type AttrBaseTypeConstraint DOMHTMLMediaElementWebkitVideoDecodedByteCountPropertyInfo = DOMHTMLMediaElementK - type AttrGetType DOMHTMLMediaElementWebkitVideoDecodedByteCountPropertyInfo = Word64 + type AttrGetType DOMHTMLMediaElementWebkitVideoDecodedByteCountPropertyInfo = CULong type AttrLabel DOMHTMLMediaElementWebkitVideoDecodedByteCountPropertyInfo = "webkit-video-decoded-byte-count" attrGet _ = getDOMHTMLMediaElementWebkitVideoDecodedByteCount attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined type instance AttributeList DOMHTMLMediaElement = DOMHTMLMediaElementAttributeList type DOMHTMLMediaElementAttributeList = ('[ '("accessKey", DOMHTMLElementAccessKeyPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("audioTracks", DOMHTMLMediaElementAudioTracksPropertyInfo), '("autoplay", DOMHTMLMediaElementAutoplayPropertyInfo), '("baseUri", DOMNodeBaseUriPropertyInfo), '("buffered", DOMHTMLMediaElementBufferedPropertyInfo), '("childElementCount", DOMElementChildElementCountPropertyInfo), '("childNodes", DOMNodeChildNodesPropertyInfo), '("children", DOMHTMLElementChildrenPropertyInfo), '("classList", DOMElementClassListPropertyInfo), '("className", DOMElementClassNamePropertyInfo), '("clientHeight", DOMElementClientHeightPropertyInfo), '("clientLeft", DOMElementClientLeftPropertyInfo), '("clientTop", DOMElementClientTopPropertyInfo), '("clientWidth", DOMElementClientWidthPropertyInfo), '("contentEditable", DOMHTMLElementContentEditablePropertyInfo), '("controller", DOMHTMLMediaElementControllerPropertyInfo), '("controls", DOMHTMLMediaElementControlsPropertyInfo), '("coreObject", DOMObjectCoreObjectPropertyInfo), '("currentSrc", DOMHTMLMediaElementCurrentSrcPropertyInfo), '("currentTime", DOMHTMLMediaElementCurrentTimePropertyInfo), '("defaultMuted", DOMHTMLMediaElementDefaultMutedPropertyInfo), '("defaultPlaybackRate", DOMHTMLMediaElementDefaultPlaybackRatePropertyInfo), '("dir", DOMHTMLElementDirPropertyInfo), '("draggable", DOMHTMLElementDraggablePropertyInfo), '("duration", DOMHTMLMediaElementDurationPropertyInfo), '("ended", DOMHTMLMediaElementEndedPropertyInfo), '("error", DOMHTMLMediaElementErrorPropertyInfo), '("firstChild", DOMNodeFirstChildPropertyInfo), '("firstElementChild", DOMElementFirstElementChildPropertyInfo), '("hidden", DOMHTMLElementHiddenPropertyInfo), '("id", DOMElementIdPropertyInfo), '("innerHtml", DOMHTMLElementInnerHtmlPropertyInfo), '("innerText", DOMHTMLElementInnerTextPropertyInfo), '("isContentEditable", DOMHTMLElementIsContentEditablePropertyInfo), '("lang", DOMHTMLElementLangPropertyInfo), '("lastChild", DOMNodeLastChildPropertyInfo), '("lastElementChild", DOMElementLastElementChildPropertyInfo), '("localName", DOMNodeLocalNamePropertyInfo), '("loop", DOMHTMLMediaElementLoopPropertyInfo), '("mediaGroup", DOMHTMLMediaElementMediaGroupPropertyInfo), '("muted", DOMHTMLMediaElementMutedPropertyInfo), '("namespaceUri", DOMNodeNamespaceUriPropertyInfo), '("networkState", DOMHTMLMediaElementNetworkStatePropertyInfo), '("nextElementSibling", DOMElementNextElementSiblingPropertyInfo), '("nextSibling", DOMNodeNextSiblingPropertyInfo), '("nodeName", DOMNodeNodeNamePropertyInfo), '("nodeType", DOMNodeNodeTypePropertyInfo), '("nodeValue", DOMNodeNodeValuePropertyInfo), '("offsetHeight", DOMElementOffsetHeightPropertyInfo), '("offsetLeft", DOMElementOffsetLeftPropertyInfo), '("offsetParent", DOMElementOffsetParentPropertyInfo), '("offsetTop", DOMElementOffsetTopPropertyInfo), '("offsetWidth", DOMElementOffsetWidthPropertyInfo), '("outerHtml", DOMHTMLElementOuterHtmlPropertyInfo), '("outerText", DOMHTMLElementOuterTextPropertyInfo), '("ownerDocument", DOMNodeOwnerDocumentPropertyInfo), '("parentElement", DOMNodeParentElementPropertyInfo), '("parentNode", DOMNodeParentNodePropertyInfo), '("paused", DOMHTMLMediaElementPausedPropertyInfo), '("playbackRate", DOMHTMLMediaElementPlaybackRatePropertyInfo), '("played", DOMHTMLMediaElementPlayedPropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("preload", DOMHTMLMediaElementPreloadPropertyInfo), '("previousElementSibling", DOMElementPreviousElementSiblingPropertyInfo), '("previousSibling", DOMNodePreviousSiblingPropertyInfo), '("readyState", DOMHTMLMediaElementReadyStatePropertyInfo), '("scrollHeight", DOMElementScrollHeightPropertyInfo), '("scrollLeft", DOMElementScrollLeftPropertyInfo), '("scrollTop", DOMElementScrollTopPropertyInfo), '("scrollWidth", DOMElementScrollWidthPropertyInfo), '("seekable", DOMHTMLMediaElementSeekablePropertyInfo), '("seeking", DOMHTMLMediaElementSeekingPropertyInfo), '("spellcheck", DOMHTMLElementSpellcheckPropertyInfo), '("src", DOMHTMLMediaElementSrcPropertyInfo), '("style", DOMElementStylePropertyInfo), '("tabIndex", DOMHTMLElementTabIndexPropertyInfo), '("tagName", DOMElementTagNamePropertyInfo), '("textContent", DOMNodeTextContentPropertyInfo), '("textTracks", DOMHTMLMediaElementTextTracksPropertyInfo), '("title", DOMHTMLElementTitlePropertyInfo), '("translate", DOMHTMLElementTranslatePropertyInfo), '("videoTracks", DOMHTMLMediaElementVideoTracksPropertyInfo), '("volume", DOMHTMLMediaElementVolumePropertyInfo), '("webkitAudioDecodedByteCount", DOMHTMLMediaElementWebkitAudioDecodedByteCountPropertyInfo), '("webkitClosedCaptionsVisible", DOMHTMLMediaElementWebkitClosedCaptionsVisiblePropertyInfo), '("webkitCurrentPlaybackTargetIsWireless", DOMHTMLMediaElementWebkitCurrentPlaybackTargetIsWirelessPropertyInfo), '("webkitHasClosedCaptions", DOMHTMLMediaElementWebkitHasClosedCaptionsPropertyInfo), '("webkitPreservesPitch", DOMHTMLMediaElementWebkitPreservesPitchPropertyInfo), '("webkitRegionOverset", DOMElementWebkitRegionOversetPropertyInfo), '("webkitVideoDecodedByteCount", DOMHTMLMediaElementWebkitVideoDecodedByteCountPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo)] :: [(Symbol, *)]) +dOMHTMLMediaElementAudioTracks :: AttrLabelProxy "audioTracks" +dOMHTMLMediaElementAudioTracks = AttrLabelProxy + +dOMHTMLMediaElementAutoplay :: AttrLabelProxy "autoplay" +dOMHTMLMediaElementAutoplay = AttrLabelProxy + +dOMHTMLMediaElementBuffered :: AttrLabelProxy "buffered" +dOMHTMLMediaElementBuffered = AttrLabelProxy + +dOMHTMLMediaElementController :: AttrLabelProxy "controller" +dOMHTMLMediaElementController = AttrLabelProxy + +dOMHTMLMediaElementControls :: AttrLabelProxy "controls" +dOMHTMLMediaElementControls = AttrLabelProxy + +dOMHTMLMediaElementCurrentSrc :: AttrLabelProxy "currentSrc" +dOMHTMLMediaElementCurrentSrc = AttrLabelProxy + +dOMHTMLMediaElementCurrentTime :: AttrLabelProxy "currentTime" +dOMHTMLMediaElementCurrentTime = AttrLabelProxy + +dOMHTMLMediaElementDefaultMuted :: AttrLabelProxy "defaultMuted" +dOMHTMLMediaElementDefaultMuted = AttrLabelProxy + +dOMHTMLMediaElementDefaultPlaybackRate :: AttrLabelProxy "defaultPlaybackRate" +dOMHTMLMediaElementDefaultPlaybackRate = AttrLabelProxy + +dOMHTMLMediaElementDuration :: AttrLabelProxy "duration" +dOMHTMLMediaElementDuration = AttrLabelProxy + +dOMHTMLMediaElementEnded :: AttrLabelProxy "ended" +dOMHTMLMediaElementEnded = AttrLabelProxy + +dOMHTMLMediaElementError :: AttrLabelProxy "error" +dOMHTMLMediaElementError = AttrLabelProxy + +dOMHTMLMediaElementLoop :: AttrLabelProxy "loop" +dOMHTMLMediaElementLoop = AttrLabelProxy + +dOMHTMLMediaElementMediaGroup :: AttrLabelProxy "mediaGroup" +dOMHTMLMediaElementMediaGroup = AttrLabelProxy + +dOMHTMLMediaElementMuted :: AttrLabelProxy "muted" +dOMHTMLMediaElementMuted = AttrLabelProxy + +dOMHTMLMediaElementNetworkState :: AttrLabelProxy "networkState" +dOMHTMLMediaElementNetworkState = AttrLabelProxy + +dOMHTMLMediaElementPaused :: AttrLabelProxy "paused" +dOMHTMLMediaElementPaused = AttrLabelProxy + +dOMHTMLMediaElementPlaybackRate :: AttrLabelProxy "playbackRate" +dOMHTMLMediaElementPlaybackRate = AttrLabelProxy + +dOMHTMLMediaElementPlayed :: AttrLabelProxy "played" +dOMHTMLMediaElementPlayed = AttrLabelProxy + +dOMHTMLMediaElementPreload :: AttrLabelProxy "preload" +dOMHTMLMediaElementPreload = AttrLabelProxy + +dOMHTMLMediaElementReadyState :: AttrLabelProxy "readyState" +dOMHTMLMediaElementReadyState = AttrLabelProxy + +dOMHTMLMediaElementSeekable :: AttrLabelProxy "seekable" +dOMHTMLMediaElementSeekable = AttrLabelProxy + +dOMHTMLMediaElementSeeking :: AttrLabelProxy "seeking" +dOMHTMLMediaElementSeeking = AttrLabelProxy + +dOMHTMLMediaElementSrc :: AttrLabelProxy "src" +dOMHTMLMediaElementSrc = AttrLabelProxy + +dOMHTMLMediaElementTextTracks :: AttrLabelProxy "textTracks" +dOMHTMLMediaElementTextTracks = AttrLabelProxy + +dOMHTMLMediaElementVideoTracks :: AttrLabelProxy "videoTracks" +dOMHTMLMediaElementVideoTracks = AttrLabelProxy + +dOMHTMLMediaElementVolume :: AttrLabelProxy "volume" +dOMHTMLMediaElementVolume = AttrLabelProxy + +dOMHTMLMediaElementWebkitAudioDecodedByteCount :: AttrLabelProxy "webkitAudioDecodedByteCount" +dOMHTMLMediaElementWebkitAudioDecodedByteCount = AttrLabelProxy + +dOMHTMLMediaElementWebkitClosedCaptionsVisible :: AttrLabelProxy "webkitClosedCaptionsVisible" +dOMHTMLMediaElementWebkitClosedCaptionsVisible = AttrLabelProxy + +dOMHTMLMediaElementWebkitCurrentPlaybackTargetIsWireless :: AttrLabelProxy "webkitCurrentPlaybackTargetIsWireless" +dOMHTMLMediaElementWebkitCurrentPlaybackTargetIsWireless = AttrLabelProxy + +dOMHTMLMediaElementWebkitHasClosedCaptions :: AttrLabelProxy "webkitHasClosedCaptions" +dOMHTMLMediaElementWebkitHasClosedCaptions = AttrLabelProxy + +dOMHTMLMediaElementWebkitPreservesPitch :: AttrLabelProxy "webkitPreservesPitch" +dOMHTMLMediaElementWebkitPreservesPitch = AttrLabelProxy + +dOMHTMLMediaElementWebkitVideoDecodedByteCount :: AttrLabelProxy "webkitVideoDecodedByteCount" +dOMHTMLMediaElementWebkitVideoDecodedByteCount = AttrLabelProxy + type instance SignalList DOMHTMLMediaElement = DOMHTMLMediaElementSignalList type DOMHTMLMediaElementSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) @@ -1438,7 +1636,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLMediaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "kind", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "language", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit" "DOMTextTrack" +-- returnType : Just (TInterface "WebKit" "DOMTextTrack") -- throws : True -- Skip return : False @@ -1486,7 +1684,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLMediaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -1520,7 +1718,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLMediaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "time", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1550,7 +1748,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLMediaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit" "DOMAudioTrackList" +-- returnType : Just (TInterface "WebKit" "DOMAudioTrackList") -- throws : False -- Skip return : False @@ -1579,7 +1777,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLMediaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -1607,7 +1805,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLMediaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit" "DOMTimeRanges" +-- returnType : Just (TInterface "WebKit" "DOMTimeRanges") -- throws : False -- Skip return : False @@ -1636,7 +1834,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLMediaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit" "DOMMediaController" +-- returnType : Just (TInterface "WebKit" "DOMMediaController") -- throws : False -- Skip return : False @@ -1665,7 +1863,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLMediaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -1693,7 +1891,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLMediaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -1723,7 +1921,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLMediaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TDouble +-- returnType : Just (TBasicType TDouble) -- throws : False -- Skip return : False @@ -1751,7 +1949,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLMediaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -1779,7 +1977,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLMediaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TDouble +-- returnType : Just (TBasicType TDouble) -- throws : False -- Skip return : False @@ -1807,7 +2005,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLMediaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TDouble +-- returnType : Just (TBasicType TDouble) -- throws : False -- Skip return : False @@ -1835,7 +2033,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLMediaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -1863,7 +2061,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLMediaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit" "DOMMediaError" +-- returnType : Just (TInterface "WebKit" "DOMMediaError") -- throws : False -- Skip return : False @@ -1892,7 +2090,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLMediaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TDouble +-- returnType : Just (TBasicType TDouble) -- throws : False -- Skip return : False @@ -1920,7 +2118,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLMediaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -1948,7 +2146,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLMediaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -1978,7 +2176,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLMediaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -2006,7 +2204,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLMediaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUInt16 +-- returnType : Just (TBasicType TUInt16) -- throws : False -- Skip return : False @@ -2033,7 +2231,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLMediaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -2061,7 +2259,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLMediaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TDouble +-- returnType : Just (TBasicType TDouble) -- throws : False -- Skip return : False @@ -2089,7 +2287,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLMediaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit" "DOMTimeRanges" +-- returnType : Just (TInterface "WebKit" "DOMTimeRanges") -- throws : False -- Skip return : False @@ -2118,7 +2316,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLMediaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -2148,7 +2346,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLMediaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUInt16 +-- returnType : Just (TBasicType TUInt16) -- throws : False -- Skip return : False @@ -2175,7 +2373,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLMediaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit" "DOMTimeRanges" +-- returnType : Just (TInterface "WebKit" "DOMTimeRanges") -- throws : False -- Skip return : False @@ -2204,7 +2402,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLMediaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -2232,7 +2430,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLMediaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -2262,7 +2460,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLMediaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TDouble +-- returnType : Just (TBasicType TDouble) -- throws : False -- Skip return : False @@ -2290,7 +2488,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLMediaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit" "DOMTextTrackList" +-- returnType : Just (TInterface "WebKit" "DOMTextTrackList") -- throws : False -- Skip return : False @@ -2319,7 +2517,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLMediaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit" "DOMVideoTrackList" +-- returnType : Just (TInterface "WebKit" "DOMVideoTrackList") -- throws : False -- Skip return : False @@ -2348,7 +2546,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLMediaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TDouble +-- returnType : Just (TBasicType TDouble) -- throws : False -- Skip return : False @@ -2376,19 +2574,19 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLMediaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUInt64 +-- returnType : Just (TBasicType TULong) -- throws : False -- Skip return : False foreign import ccall "webkit_dom_html_media_element_get_webkit_audio_decoded_byte_count" webkit_dom_html_media_element_get_webkit_audio_decoded_byte_count :: Ptr DOMHTMLMediaElement -> -- _obj : TInterface "WebKit" "DOMHTMLMediaElement" - IO Word64 + IO CULong dOMHTMLMediaElementGetWebkitAudioDecodedByteCount :: (MonadIO m, DOMHTMLMediaElementK a) => a -- _obj - -> m Word64 -- result + -> m CULong -- result dOMHTMLMediaElementGetWebkitAudioDecodedByteCount _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- webkit_dom_html_media_element_get_webkit_audio_decoded_byte_count _obj' @@ -2396,14 +2594,14 @@ return result data DOMHTMLMediaElementGetWebkitAudioDecodedByteCountMethodInfo -instance (signature ~ (m Word64), MonadIO m, DOMHTMLMediaElementK a) => MethodInfo DOMHTMLMediaElementGetWebkitAudioDecodedByteCountMethodInfo a signature where +instance (signature ~ (m CULong), MonadIO m, DOMHTMLMediaElementK a) => MethodInfo DOMHTMLMediaElementGetWebkitAudioDecodedByteCountMethodInfo a signature where overloadedMethod _ = dOMHTMLMediaElementGetWebkitAudioDecodedByteCount -- method DOMHTMLMediaElement::get_webkit_closed_captions_visible -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLMediaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -2431,7 +2629,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLMediaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -2459,7 +2657,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLMediaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -2487,7 +2685,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLMediaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -2515,19 +2713,19 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLMediaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUInt64 +-- returnType : Just (TBasicType TULong) -- throws : False -- Skip return : False foreign import ccall "webkit_dom_html_media_element_get_webkit_video_decoded_byte_count" webkit_dom_html_media_element_get_webkit_video_decoded_byte_count :: Ptr DOMHTMLMediaElement -> -- _obj : TInterface "WebKit" "DOMHTMLMediaElement" - IO Word64 + IO CULong dOMHTMLMediaElementGetWebkitVideoDecodedByteCount :: (MonadIO m, DOMHTMLMediaElementK a) => a -- _obj - -> m Word64 -- result + -> m CULong -- result dOMHTMLMediaElementGetWebkitVideoDecodedByteCount _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- webkit_dom_html_media_element_get_webkit_video_decoded_byte_count _obj' @@ -2535,14 +2733,14 @@ return result data DOMHTMLMediaElementGetWebkitVideoDecodedByteCountMethodInfo -instance (signature ~ (m Word64), MonadIO m, DOMHTMLMediaElementK a) => MethodInfo DOMHTMLMediaElementGetWebkitVideoDecodedByteCountMethodInfo a signature where +instance (signature ~ (m CULong), MonadIO m, DOMHTMLMediaElementK a) => MethodInfo DOMHTMLMediaElementGetWebkitVideoDecodedByteCountMethodInfo a signature where overloadedMethod _ = dOMHTMLMediaElementGetWebkitVideoDecodedByteCount -- method DOMHTMLMediaElement::load -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLMediaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -2569,7 +2767,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLMediaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -2596,7 +2794,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLMediaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -2623,7 +2821,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLMediaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -2653,7 +2851,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLMediaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -2683,7 +2881,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLMediaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : True -- Skip return : False @@ -2718,7 +2916,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLMediaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -2748,7 +2946,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLMediaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -2778,7 +2976,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLMediaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -2808,7 +3006,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLMediaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -2839,7 +3037,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLMediaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -2869,7 +3067,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLMediaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -2899,7 +3097,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLMediaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -2930,7 +3128,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLMediaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -2961,7 +3159,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLMediaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : True -- Skip return : False @@ -2996,7 +3194,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLMediaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -3026,7 +3224,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLMediaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -3056,7 +3254,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLMediaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False diff --git a/GI/WebKit/Objects/DOMHTMLMediaElement.hs-boot b/GI/WebKit/Objects/DOMHTMLMediaElement.hs-boot --- a/GI/WebKit/Objects/DOMHTMLMediaElement.hs-boot +++ b/GI/WebKit/Objects/DOMHTMLMediaElement.hs-boot @@ -1,8 +1,8 @@ module GI.WebKit.Objects.DOMHTMLMediaElement where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map diff --git a/GI/WebKit/Objects/DOMHTMLMenuElement.hs b/GI/WebKit/Objects/DOMHTMLMenuElement.hs --- a/GI/WebKit/Objects/DOMHTMLMenuElement.hs +++ b/GI/WebKit/Objects/DOMHTMLMenuElement.hs @@ -33,6 +33,7 @@ -- ** Compact DOMHTMLMenuElementCompactPropertyInfo , constructDOMHTMLMenuElementCompact , + dOMHTMLMenuElementCompact , getDOMHTMLMenuElementCompact , setDOMHTMLMenuElementCompact , @@ -41,9 +42,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map @@ -243,6 +244,7 @@ -- VVV Prop "compact" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getDOMHTMLMenuElementCompact :: (MonadIO m, DOMHTMLMenuElementK o) => o -> m Bool getDOMHTMLMenuElementCompact obj = liftIO $ getObjectPropertyBool obj "compact" @@ -263,10 +265,14 @@ attrGet _ = getDOMHTMLMenuElementCompact attrSet _ = setDOMHTMLMenuElementCompact attrConstruct _ = constructDOMHTMLMenuElementCompact + attrClear _ = undefined type instance AttributeList DOMHTMLMenuElement = DOMHTMLMenuElementAttributeList type DOMHTMLMenuElementAttributeList = ('[ '("accessKey", DOMHTMLElementAccessKeyPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("baseUri", DOMNodeBaseUriPropertyInfo), '("childElementCount", DOMElementChildElementCountPropertyInfo), '("childNodes", DOMNodeChildNodesPropertyInfo), '("children", DOMHTMLElementChildrenPropertyInfo), '("classList", DOMElementClassListPropertyInfo), '("className", DOMElementClassNamePropertyInfo), '("clientHeight", DOMElementClientHeightPropertyInfo), '("clientLeft", DOMElementClientLeftPropertyInfo), '("clientTop", DOMElementClientTopPropertyInfo), '("clientWidth", DOMElementClientWidthPropertyInfo), '("compact", DOMHTMLMenuElementCompactPropertyInfo), '("contentEditable", DOMHTMLElementContentEditablePropertyInfo), '("coreObject", DOMObjectCoreObjectPropertyInfo), '("dir", DOMHTMLElementDirPropertyInfo), '("draggable", DOMHTMLElementDraggablePropertyInfo), '("firstChild", DOMNodeFirstChildPropertyInfo), '("firstElementChild", DOMElementFirstElementChildPropertyInfo), '("hidden", DOMHTMLElementHiddenPropertyInfo), '("id", DOMElementIdPropertyInfo), '("innerHtml", DOMHTMLElementInnerHtmlPropertyInfo), '("innerText", DOMHTMLElementInnerTextPropertyInfo), '("isContentEditable", DOMHTMLElementIsContentEditablePropertyInfo), '("lang", DOMHTMLElementLangPropertyInfo), '("lastChild", DOMNodeLastChildPropertyInfo), '("lastElementChild", DOMElementLastElementChildPropertyInfo), '("localName", DOMNodeLocalNamePropertyInfo), '("namespaceUri", DOMNodeNamespaceUriPropertyInfo), '("nextElementSibling", DOMElementNextElementSiblingPropertyInfo), '("nextSibling", DOMNodeNextSiblingPropertyInfo), '("nodeName", DOMNodeNodeNamePropertyInfo), '("nodeType", DOMNodeNodeTypePropertyInfo), '("nodeValue", DOMNodeNodeValuePropertyInfo), '("offsetHeight", DOMElementOffsetHeightPropertyInfo), '("offsetLeft", DOMElementOffsetLeftPropertyInfo), '("offsetParent", DOMElementOffsetParentPropertyInfo), '("offsetTop", DOMElementOffsetTopPropertyInfo), '("offsetWidth", DOMElementOffsetWidthPropertyInfo), '("outerHtml", DOMHTMLElementOuterHtmlPropertyInfo), '("outerText", DOMHTMLElementOuterTextPropertyInfo), '("ownerDocument", DOMNodeOwnerDocumentPropertyInfo), '("parentElement", DOMNodeParentElementPropertyInfo), '("parentNode", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previousElementSibling", DOMElementPreviousElementSiblingPropertyInfo), '("previousSibling", DOMNodePreviousSiblingPropertyInfo), '("scrollHeight", DOMElementScrollHeightPropertyInfo), '("scrollLeft", DOMElementScrollLeftPropertyInfo), '("scrollTop", DOMElementScrollTopPropertyInfo), '("scrollWidth", DOMElementScrollWidthPropertyInfo), '("spellcheck", DOMHTMLElementSpellcheckPropertyInfo), '("style", DOMElementStylePropertyInfo), '("tabIndex", DOMHTMLElementTabIndexPropertyInfo), '("tagName", DOMElementTagNamePropertyInfo), '("textContent", DOMNodeTextContentPropertyInfo), '("title", DOMHTMLElementTitlePropertyInfo), '("translate", DOMHTMLElementTranslatePropertyInfo), '("webkitRegionOverset", DOMElementWebkitRegionOversetPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo)] :: [(Symbol, *)]) +dOMHTMLMenuElementCompact :: AttrLabelProxy "compact" +dOMHTMLMenuElementCompact = AttrLabelProxy + type instance SignalList DOMHTMLMenuElement = DOMHTMLMenuElementSignalList type DOMHTMLMenuElementSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) @@ -274,7 +280,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLMenuElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -302,7 +308,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLMenuElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False diff --git a/GI/WebKit/Objects/DOMHTMLMenuElement.hs-boot b/GI/WebKit/Objects/DOMHTMLMenuElement.hs-boot --- a/GI/WebKit/Objects/DOMHTMLMenuElement.hs-boot +++ b/GI/WebKit/Objects/DOMHTMLMenuElement.hs-boot @@ -1,8 +1,8 @@ module GI.WebKit.Objects.DOMHTMLMenuElement where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map diff --git a/GI/WebKit/Objects/DOMHTMLMetaElement.hs b/GI/WebKit/Objects/DOMHTMLMetaElement.hs --- a/GI/WebKit/Objects/DOMHTMLMetaElement.hs +++ b/GI/WebKit/Objects/DOMHTMLMetaElement.hs @@ -63,6 +63,7 @@ -- ** Content DOMHTMLMetaElementContentPropertyInfo , constructDOMHTMLMetaElementContent , + dOMHTMLMetaElementContent , getDOMHTMLMetaElementContent , setDOMHTMLMetaElementContent , @@ -70,6 +71,7 @@ -- ** HttpEquiv DOMHTMLMetaElementHttpEquivPropertyInfo , constructDOMHTMLMetaElementHttpEquiv , + dOMHTMLMetaElementHttpEquiv , getDOMHTMLMetaElementHttpEquiv , setDOMHTMLMetaElementHttpEquiv , @@ -77,6 +79,7 @@ -- ** Name DOMHTMLMetaElementNamePropertyInfo , constructDOMHTMLMetaElementName , + dOMHTMLMetaElementName , getDOMHTMLMetaElementName , setDOMHTMLMetaElementName , @@ -84,6 +87,7 @@ -- ** Scheme DOMHTMLMetaElementSchemePropertyInfo , constructDOMHTMLMetaElementScheme , + dOMHTMLMetaElementScheme , getDOMHTMLMetaElementScheme , setDOMHTMLMetaElementScheme , @@ -92,9 +96,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map @@ -300,102 +304,122 @@ -- VVV Prop "content" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Just False) -getDOMHTMLMetaElementContent :: (MonadIO m, DOMHTMLMetaElementK o) => o -> m T.Text +getDOMHTMLMetaElementContent :: (MonadIO m, DOMHTMLMetaElementK o) => o -> m (Maybe T.Text) getDOMHTMLMetaElementContent obj = liftIO $ getObjectPropertyString obj "content" setDOMHTMLMetaElementContent :: (MonadIO m, DOMHTMLMetaElementK o) => o -> T.Text -> m () -setDOMHTMLMetaElementContent obj val = liftIO $ setObjectPropertyString obj "content" val +setDOMHTMLMetaElementContent obj val = liftIO $ setObjectPropertyString obj "content" (Just val) constructDOMHTMLMetaElementContent :: T.Text -> IO ([Char], GValue) -constructDOMHTMLMetaElementContent val = constructObjectPropertyString "content" val +constructDOMHTMLMetaElementContent val = constructObjectPropertyString "content" (Just val) data DOMHTMLMetaElementContentPropertyInfo instance AttrInfo DOMHTMLMetaElementContentPropertyInfo where type AttrAllowedOps DOMHTMLMetaElementContentPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint DOMHTMLMetaElementContentPropertyInfo = (~) T.Text type AttrBaseTypeConstraint DOMHTMLMetaElementContentPropertyInfo = DOMHTMLMetaElementK - type AttrGetType DOMHTMLMetaElementContentPropertyInfo = T.Text + type AttrGetType DOMHTMLMetaElementContentPropertyInfo = (Maybe T.Text) type AttrLabel DOMHTMLMetaElementContentPropertyInfo = "content" attrGet _ = getDOMHTMLMetaElementContent attrSet _ = setDOMHTMLMetaElementContent attrConstruct _ = constructDOMHTMLMetaElementContent + attrClear _ = undefined -- VVV Prop "http-equiv" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Just False) -getDOMHTMLMetaElementHttpEquiv :: (MonadIO m, DOMHTMLMetaElementK o) => o -> m T.Text +getDOMHTMLMetaElementHttpEquiv :: (MonadIO m, DOMHTMLMetaElementK o) => o -> m (Maybe T.Text) getDOMHTMLMetaElementHttpEquiv obj = liftIO $ getObjectPropertyString obj "http-equiv" setDOMHTMLMetaElementHttpEquiv :: (MonadIO m, DOMHTMLMetaElementK o) => o -> T.Text -> m () -setDOMHTMLMetaElementHttpEquiv obj val = liftIO $ setObjectPropertyString obj "http-equiv" val +setDOMHTMLMetaElementHttpEquiv obj val = liftIO $ setObjectPropertyString obj "http-equiv" (Just val) constructDOMHTMLMetaElementHttpEquiv :: T.Text -> IO ([Char], GValue) -constructDOMHTMLMetaElementHttpEquiv val = constructObjectPropertyString "http-equiv" val +constructDOMHTMLMetaElementHttpEquiv val = constructObjectPropertyString "http-equiv" (Just val) data DOMHTMLMetaElementHttpEquivPropertyInfo instance AttrInfo DOMHTMLMetaElementHttpEquivPropertyInfo where type AttrAllowedOps DOMHTMLMetaElementHttpEquivPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint DOMHTMLMetaElementHttpEquivPropertyInfo = (~) T.Text type AttrBaseTypeConstraint DOMHTMLMetaElementHttpEquivPropertyInfo = DOMHTMLMetaElementK - type AttrGetType DOMHTMLMetaElementHttpEquivPropertyInfo = T.Text + type AttrGetType DOMHTMLMetaElementHttpEquivPropertyInfo = (Maybe T.Text) type AttrLabel DOMHTMLMetaElementHttpEquivPropertyInfo = "http-equiv" attrGet _ = getDOMHTMLMetaElementHttpEquiv attrSet _ = setDOMHTMLMetaElementHttpEquiv attrConstruct _ = constructDOMHTMLMetaElementHttpEquiv + attrClear _ = undefined -- VVV Prop "name" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Just False) -getDOMHTMLMetaElementName :: (MonadIO m, DOMHTMLMetaElementK o) => o -> m T.Text +getDOMHTMLMetaElementName :: (MonadIO m, DOMHTMLMetaElementK o) => o -> m (Maybe T.Text) getDOMHTMLMetaElementName obj = liftIO $ getObjectPropertyString obj "name" setDOMHTMLMetaElementName :: (MonadIO m, DOMHTMLMetaElementK o) => o -> T.Text -> m () -setDOMHTMLMetaElementName obj val = liftIO $ setObjectPropertyString obj "name" val +setDOMHTMLMetaElementName obj val = liftIO $ setObjectPropertyString obj "name" (Just val) constructDOMHTMLMetaElementName :: T.Text -> IO ([Char], GValue) -constructDOMHTMLMetaElementName val = constructObjectPropertyString "name" val +constructDOMHTMLMetaElementName val = constructObjectPropertyString "name" (Just val) data DOMHTMLMetaElementNamePropertyInfo instance AttrInfo DOMHTMLMetaElementNamePropertyInfo where type AttrAllowedOps DOMHTMLMetaElementNamePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint DOMHTMLMetaElementNamePropertyInfo = (~) T.Text type AttrBaseTypeConstraint DOMHTMLMetaElementNamePropertyInfo = DOMHTMLMetaElementK - type AttrGetType DOMHTMLMetaElementNamePropertyInfo = T.Text + type AttrGetType DOMHTMLMetaElementNamePropertyInfo = (Maybe T.Text) type AttrLabel DOMHTMLMetaElementNamePropertyInfo = "name" attrGet _ = getDOMHTMLMetaElementName attrSet _ = setDOMHTMLMetaElementName attrConstruct _ = constructDOMHTMLMetaElementName + attrClear _ = undefined -- VVV Prop "scheme" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Just False) -getDOMHTMLMetaElementScheme :: (MonadIO m, DOMHTMLMetaElementK o) => o -> m T.Text +getDOMHTMLMetaElementScheme :: (MonadIO m, DOMHTMLMetaElementK o) => o -> m (Maybe T.Text) getDOMHTMLMetaElementScheme obj = liftIO $ getObjectPropertyString obj "scheme" setDOMHTMLMetaElementScheme :: (MonadIO m, DOMHTMLMetaElementK o) => o -> T.Text -> m () -setDOMHTMLMetaElementScheme obj val = liftIO $ setObjectPropertyString obj "scheme" val +setDOMHTMLMetaElementScheme obj val = liftIO $ setObjectPropertyString obj "scheme" (Just val) constructDOMHTMLMetaElementScheme :: T.Text -> IO ([Char], GValue) -constructDOMHTMLMetaElementScheme val = constructObjectPropertyString "scheme" val +constructDOMHTMLMetaElementScheme val = constructObjectPropertyString "scheme" (Just val) data DOMHTMLMetaElementSchemePropertyInfo instance AttrInfo DOMHTMLMetaElementSchemePropertyInfo where type AttrAllowedOps DOMHTMLMetaElementSchemePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint DOMHTMLMetaElementSchemePropertyInfo = (~) T.Text type AttrBaseTypeConstraint DOMHTMLMetaElementSchemePropertyInfo = DOMHTMLMetaElementK - type AttrGetType DOMHTMLMetaElementSchemePropertyInfo = T.Text + type AttrGetType DOMHTMLMetaElementSchemePropertyInfo = (Maybe T.Text) type AttrLabel DOMHTMLMetaElementSchemePropertyInfo = "scheme" attrGet _ = getDOMHTMLMetaElementScheme attrSet _ = setDOMHTMLMetaElementScheme attrConstruct _ = constructDOMHTMLMetaElementScheme + attrClear _ = undefined type instance AttributeList DOMHTMLMetaElement = DOMHTMLMetaElementAttributeList type DOMHTMLMetaElementAttributeList = ('[ '("accessKey", DOMHTMLElementAccessKeyPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("baseUri", DOMNodeBaseUriPropertyInfo), '("childElementCount", DOMElementChildElementCountPropertyInfo), '("childNodes", DOMNodeChildNodesPropertyInfo), '("children", DOMHTMLElementChildrenPropertyInfo), '("classList", DOMElementClassListPropertyInfo), '("className", DOMElementClassNamePropertyInfo), '("clientHeight", DOMElementClientHeightPropertyInfo), '("clientLeft", DOMElementClientLeftPropertyInfo), '("clientTop", DOMElementClientTopPropertyInfo), '("clientWidth", DOMElementClientWidthPropertyInfo), '("content", DOMHTMLMetaElementContentPropertyInfo), '("contentEditable", DOMHTMLElementContentEditablePropertyInfo), '("coreObject", DOMObjectCoreObjectPropertyInfo), '("dir", DOMHTMLElementDirPropertyInfo), '("draggable", DOMHTMLElementDraggablePropertyInfo), '("firstChild", DOMNodeFirstChildPropertyInfo), '("firstElementChild", DOMElementFirstElementChildPropertyInfo), '("hidden", DOMHTMLElementHiddenPropertyInfo), '("httpEquiv", DOMHTMLMetaElementHttpEquivPropertyInfo), '("id", DOMElementIdPropertyInfo), '("innerHtml", DOMHTMLElementInnerHtmlPropertyInfo), '("innerText", DOMHTMLElementInnerTextPropertyInfo), '("isContentEditable", DOMHTMLElementIsContentEditablePropertyInfo), '("lang", DOMHTMLElementLangPropertyInfo), '("lastChild", DOMNodeLastChildPropertyInfo), '("lastElementChild", DOMElementLastElementChildPropertyInfo), '("localName", DOMNodeLocalNamePropertyInfo), '("name", DOMHTMLMetaElementNamePropertyInfo), '("namespaceUri", DOMNodeNamespaceUriPropertyInfo), '("nextElementSibling", DOMElementNextElementSiblingPropertyInfo), '("nextSibling", DOMNodeNextSiblingPropertyInfo), '("nodeName", DOMNodeNodeNamePropertyInfo), '("nodeType", DOMNodeNodeTypePropertyInfo), '("nodeValue", DOMNodeNodeValuePropertyInfo), '("offsetHeight", DOMElementOffsetHeightPropertyInfo), '("offsetLeft", DOMElementOffsetLeftPropertyInfo), '("offsetParent", DOMElementOffsetParentPropertyInfo), '("offsetTop", DOMElementOffsetTopPropertyInfo), '("offsetWidth", DOMElementOffsetWidthPropertyInfo), '("outerHtml", DOMHTMLElementOuterHtmlPropertyInfo), '("outerText", DOMHTMLElementOuterTextPropertyInfo), '("ownerDocument", DOMNodeOwnerDocumentPropertyInfo), '("parentElement", DOMNodeParentElementPropertyInfo), '("parentNode", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previousElementSibling", DOMElementPreviousElementSiblingPropertyInfo), '("previousSibling", DOMNodePreviousSiblingPropertyInfo), '("scheme", DOMHTMLMetaElementSchemePropertyInfo), '("scrollHeight", DOMElementScrollHeightPropertyInfo), '("scrollLeft", DOMElementScrollLeftPropertyInfo), '("scrollTop", DOMElementScrollTopPropertyInfo), '("scrollWidth", DOMElementScrollWidthPropertyInfo), '("spellcheck", DOMHTMLElementSpellcheckPropertyInfo), '("style", DOMElementStylePropertyInfo), '("tabIndex", DOMHTMLElementTabIndexPropertyInfo), '("tagName", DOMElementTagNamePropertyInfo), '("textContent", DOMNodeTextContentPropertyInfo), '("title", DOMHTMLElementTitlePropertyInfo), '("translate", DOMHTMLElementTranslatePropertyInfo), '("webkitRegionOverset", DOMElementWebkitRegionOversetPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo)] :: [(Symbol, *)]) +dOMHTMLMetaElementContent :: AttrLabelProxy "content" +dOMHTMLMetaElementContent = AttrLabelProxy + +dOMHTMLMetaElementHttpEquiv :: AttrLabelProxy "httpEquiv" +dOMHTMLMetaElementHttpEquiv = AttrLabelProxy + +dOMHTMLMetaElementName :: AttrLabelProxy "name" +dOMHTMLMetaElementName = AttrLabelProxy + +dOMHTMLMetaElementScheme :: AttrLabelProxy "scheme" +dOMHTMLMetaElementScheme = AttrLabelProxy + type instance SignalList DOMHTMLMetaElement = DOMHTMLMetaElementSignalList type DOMHTMLMetaElementSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) @@ -403,7 +427,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLMetaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -433,7 +457,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLMetaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -463,7 +487,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLMetaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -493,7 +517,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLMetaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -523,7 +547,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLMetaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -554,7 +578,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLMetaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -585,7 +609,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLMetaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -616,7 +640,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLMetaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False diff --git a/GI/WebKit/Objects/DOMHTMLMetaElement.hs-boot b/GI/WebKit/Objects/DOMHTMLMetaElement.hs-boot --- a/GI/WebKit/Objects/DOMHTMLMetaElement.hs-boot +++ b/GI/WebKit/Objects/DOMHTMLMetaElement.hs-boot @@ -1,8 +1,8 @@ module GI.WebKit.Objects.DOMHTMLMetaElement where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map diff --git a/GI/WebKit/Objects/DOMHTMLModElement.hs b/GI/WebKit/Objects/DOMHTMLModElement.hs --- a/GI/WebKit/Objects/DOMHTMLModElement.hs +++ b/GI/WebKit/Objects/DOMHTMLModElement.hs @@ -43,6 +43,7 @@ -- ** Cite DOMHTMLModElementCitePropertyInfo , constructDOMHTMLModElementCite , + dOMHTMLModElementCite , getDOMHTMLModElementCite , setDOMHTMLModElementCite , @@ -50,6 +51,7 @@ -- ** DateTime DOMHTMLModElementDateTimePropertyInfo , constructDOMHTMLModElementDateTime , + dOMHTMLModElementDateTime , getDOMHTMLModElementDateTime , setDOMHTMLModElementDateTime , @@ -58,9 +60,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map @@ -262,54 +264,64 @@ -- VVV Prop "cite" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Just False) -getDOMHTMLModElementCite :: (MonadIO m, DOMHTMLModElementK o) => o -> m T.Text +getDOMHTMLModElementCite :: (MonadIO m, DOMHTMLModElementK o) => o -> m (Maybe T.Text) getDOMHTMLModElementCite obj = liftIO $ getObjectPropertyString obj "cite" setDOMHTMLModElementCite :: (MonadIO m, DOMHTMLModElementK o) => o -> T.Text -> m () -setDOMHTMLModElementCite obj val = liftIO $ setObjectPropertyString obj "cite" val +setDOMHTMLModElementCite obj val = liftIO $ setObjectPropertyString obj "cite" (Just val) constructDOMHTMLModElementCite :: T.Text -> IO ([Char], GValue) -constructDOMHTMLModElementCite val = constructObjectPropertyString "cite" val +constructDOMHTMLModElementCite val = constructObjectPropertyString "cite" (Just val) data DOMHTMLModElementCitePropertyInfo instance AttrInfo DOMHTMLModElementCitePropertyInfo where type AttrAllowedOps DOMHTMLModElementCitePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint DOMHTMLModElementCitePropertyInfo = (~) T.Text type AttrBaseTypeConstraint DOMHTMLModElementCitePropertyInfo = DOMHTMLModElementK - type AttrGetType DOMHTMLModElementCitePropertyInfo = T.Text + type AttrGetType DOMHTMLModElementCitePropertyInfo = (Maybe T.Text) type AttrLabel DOMHTMLModElementCitePropertyInfo = "cite" attrGet _ = getDOMHTMLModElementCite attrSet _ = setDOMHTMLModElementCite attrConstruct _ = constructDOMHTMLModElementCite + attrClear _ = undefined -- VVV Prop "date-time" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Just False) -getDOMHTMLModElementDateTime :: (MonadIO m, DOMHTMLModElementK o) => o -> m T.Text +getDOMHTMLModElementDateTime :: (MonadIO m, DOMHTMLModElementK o) => o -> m (Maybe T.Text) getDOMHTMLModElementDateTime obj = liftIO $ getObjectPropertyString obj "date-time" setDOMHTMLModElementDateTime :: (MonadIO m, DOMHTMLModElementK o) => o -> T.Text -> m () -setDOMHTMLModElementDateTime obj val = liftIO $ setObjectPropertyString obj "date-time" val +setDOMHTMLModElementDateTime obj val = liftIO $ setObjectPropertyString obj "date-time" (Just val) constructDOMHTMLModElementDateTime :: T.Text -> IO ([Char], GValue) -constructDOMHTMLModElementDateTime val = constructObjectPropertyString "date-time" val +constructDOMHTMLModElementDateTime val = constructObjectPropertyString "date-time" (Just val) data DOMHTMLModElementDateTimePropertyInfo instance AttrInfo DOMHTMLModElementDateTimePropertyInfo where type AttrAllowedOps DOMHTMLModElementDateTimePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint DOMHTMLModElementDateTimePropertyInfo = (~) T.Text type AttrBaseTypeConstraint DOMHTMLModElementDateTimePropertyInfo = DOMHTMLModElementK - type AttrGetType DOMHTMLModElementDateTimePropertyInfo = T.Text + type AttrGetType DOMHTMLModElementDateTimePropertyInfo = (Maybe T.Text) type AttrLabel DOMHTMLModElementDateTimePropertyInfo = "date-time" attrGet _ = getDOMHTMLModElementDateTime attrSet _ = setDOMHTMLModElementDateTime attrConstruct _ = constructDOMHTMLModElementDateTime + attrClear _ = undefined type instance AttributeList DOMHTMLModElement = DOMHTMLModElementAttributeList type DOMHTMLModElementAttributeList = ('[ '("accessKey", DOMHTMLElementAccessKeyPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("baseUri", DOMNodeBaseUriPropertyInfo), '("childElementCount", DOMElementChildElementCountPropertyInfo), '("childNodes", DOMNodeChildNodesPropertyInfo), '("children", DOMHTMLElementChildrenPropertyInfo), '("cite", DOMHTMLModElementCitePropertyInfo), '("classList", DOMElementClassListPropertyInfo), '("className", DOMElementClassNamePropertyInfo), '("clientHeight", DOMElementClientHeightPropertyInfo), '("clientLeft", DOMElementClientLeftPropertyInfo), '("clientTop", DOMElementClientTopPropertyInfo), '("clientWidth", DOMElementClientWidthPropertyInfo), '("contentEditable", DOMHTMLElementContentEditablePropertyInfo), '("coreObject", DOMObjectCoreObjectPropertyInfo), '("dateTime", DOMHTMLModElementDateTimePropertyInfo), '("dir", DOMHTMLElementDirPropertyInfo), '("draggable", DOMHTMLElementDraggablePropertyInfo), '("firstChild", DOMNodeFirstChildPropertyInfo), '("firstElementChild", DOMElementFirstElementChildPropertyInfo), '("hidden", DOMHTMLElementHiddenPropertyInfo), '("id", DOMElementIdPropertyInfo), '("innerHtml", DOMHTMLElementInnerHtmlPropertyInfo), '("innerText", DOMHTMLElementInnerTextPropertyInfo), '("isContentEditable", DOMHTMLElementIsContentEditablePropertyInfo), '("lang", DOMHTMLElementLangPropertyInfo), '("lastChild", DOMNodeLastChildPropertyInfo), '("lastElementChild", DOMElementLastElementChildPropertyInfo), '("localName", DOMNodeLocalNamePropertyInfo), '("namespaceUri", DOMNodeNamespaceUriPropertyInfo), '("nextElementSibling", DOMElementNextElementSiblingPropertyInfo), '("nextSibling", DOMNodeNextSiblingPropertyInfo), '("nodeName", DOMNodeNodeNamePropertyInfo), '("nodeType", DOMNodeNodeTypePropertyInfo), '("nodeValue", DOMNodeNodeValuePropertyInfo), '("offsetHeight", DOMElementOffsetHeightPropertyInfo), '("offsetLeft", DOMElementOffsetLeftPropertyInfo), '("offsetParent", DOMElementOffsetParentPropertyInfo), '("offsetTop", DOMElementOffsetTopPropertyInfo), '("offsetWidth", DOMElementOffsetWidthPropertyInfo), '("outerHtml", DOMHTMLElementOuterHtmlPropertyInfo), '("outerText", DOMHTMLElementOuterTextPropertyInfo), '("ownerDocument", DOMNodeOwnerDocumentPropertyInfo), '("parentElement", DOMNodeParentElementPropertyInfo), '("parentNode", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previousElementSibling", DOMElementPreviousElementSiblingPropertyInfo), '("previousSibling", DOMNodePreviousSiblingPropertyInfo), '("scrollHeight", DOMElementScrollHeightPropertyInfo), '("scrollLeft", DOMElementScrollLeftPropertyInfo), '("scrollTop", DOMElementScrollTopPropertyInfo), '("scrollWidth", DOMElementScrollWidthPropertyInfo), '("spellcheck", DOMHTMLElementSpellcheckPropertyInfo), '("style", DOMElementStylePropertyInfo), '("tabIndex", DOMHTMLElementTabIndexPropertyInfo), '("tagName", DOMElementTagNamePropertyInfo), '("textContent", DOMNodeTextContentPropertyInfo), '("title", DOMHTMLElementTitlePropertyInfo), '("translate", DOMHTMLElementTranslatePropertyInfo), '("webkitRegionOverset", DOMElementWebkitRegionOversetPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo)] :: [(Symbol, *)]) +dOMHTMLModElementCite :: AttrLabelProxy "cite" +dOMHTMLModElementCite = AttrLabelProxy + +dOMHTMLModElementDateTime :: AttrLabelProxy "dateTime" +dOMHTMLModElementDateTime = AttrLabelProxy + type instance SignalList DOMHTMLModElement = DOMHTMLModElementSignalList type DOMHTMLModElementSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) @@ -317,7 +329,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLModElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -347,7 +359,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLModElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -377,7 +389,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLModElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -408,7 +420,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLModElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False diff --git a/GI/WebKit/Objects/DOMHTMLModElement.hs-boot b/GI/WebKit/Objects/DOMHTMLModElement.hs-boot --- a/GI/WebKit/Objects/DOMHTMLModElement.hs-boot +++ b/GI/WebKit/Objects/DOMHTMLModElement.hs-boot @@ -1,8 +1,8 @@ module GI.WebKit.Objects.DOMHTMLModElement where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map diff --git a/GI/WebKit/Objects/DOMHTMLOListElement.hs b/GI/WebKit/Objects/DOMHTMLOListElement.hs --- a/GI/WebKit/Objects/DOMHTMLOListElement.hs +++ b/GI/WebKit/Objects/DOMHTMLOListElement.hs @@ -53,6 +53,7 @@ -- ** Compact DOMHTMLOListElementCompactPropertyInfo , constructDOMHTMLOListElementCompact , + dOMHTMLOListElementCompact , getDOMHTMLOListElementCompact , setDOMHTMLOListElementCompact , @@ -60,6 +61,7 @@ -- ** Reversed DOMHTMLOListElementReversedPropertyInfo , constructDOMHTMLOListElementReversed , + dOMHTMLOListElementReversed , getDOMHTMLOListElementReversed , setDOMHTMLOListElementReversed , @@ -67,13 +69,16 @@ -- ** Start DOMHTMLOListElementStartPropertyInfo , constructDOMHTMLOListElementStart , + dOMHTMLOListElementStart , getDOMHTMLOListElementStart , setDOMHTMLOListElementStart , -- ** Type DOMHTMLOListElementTypePropertyInfo , + clearDOMHTMLOListElementType , constructDOMHTMLOListElementType , + dOMHTMLOListElementType , getDOMHTMLOListElementType , setDOMHTMLOListElementType , @@ -82,9 +87,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map @@ -288,6 +293,7 @@ -- VVV Prop "compact" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getDOMHTMLOListElementCompact :: (MonadIO m, DOMHTMLOListElementK o) => o -> m Bool getDOMHTMLOListElementCompact obj = liftIO $ getObjectPropertyBool obj "compact" @@ -308,10 +314,12 @@ attrGet _ = getDOMHTMLOListElementCompact attrSet _ = setDOMHTMLOListElementCompact attrConstruct _ = constructDOMHTMLOListElementCompact + attrClear _ = undefined -- VVV Prop "reversed" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getDOMHTMLOListElementReversed :: (MonadIO m, DOMHTMLOListElementK o) => o -> m Bool getDOMHTMLOListElementReversed obj = liftIO $ getObjectPropertyBool obj "reversed" @@ -332,58 +340,78 @@ attrGet _ = getDOMHTMLOListElementReversed attrSet _ = setDOMHTMLOListElementReversed attrConstruct _ = constructDOMHTMLOListElementReversed + attrClear _ = undefined -- VVV Prop "start" - -- Type: TBasicType TInt64 + -- Type: TBasicType TLong -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) -getDOMHTMLOListElementStart :: (MonadIO m, DOMHTMLOListElementK o) => o -> m Int64 -getDOMHTMLOListElementStart obj = liftIO $ getObjectPropertyInt64 obj "start" +getDOMHTMLOListElementStart :: (MonadIO m, DOMHTMLOListElementK o) => o -> m CLong +getDOMHTMLOListElementStart obj = liftIO $ getObjectPropertyLong obj "start" -setDOMHTMLOListElementStart :: (MonadIO m, DOMHTMLOListElementK o) => o -> Int64 -> m () -setDOMHTMLOListElementStart obj val = liftIO $ setObjectPropertyInt64 obj "start" val +setDOMHTMLOListElementStart :: (MonadIO m, DOMHTMLOListElementK o) => o -> CLong -> m () +setDOMHTMLOListElementStart obj val = liftIO $ setObjectPropertyLong obj "start" val -constructDOMHTMLOListElementStart :: Int64 -> IO ([Char], GValue) -constructDOMHTMLOListElementStart val = constructObjectPropertyInt64 "start" val +constructDOMHTMLOListElementStart :: CLong -> IO ([Char], GValue) +constructDOMHTMLOListElementStart val = constructObjectPropertyLong "start" val data DOMHTMLOListElementStartPropertyInfo instance AttrInfo DOMHTMLOListElementStartPropertyInfo where type AttrAllowedOps DOMHTMLOListElementStartPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLOListElementStartPropertyInfo = (~) Int64 + type AttrSetTypeConstraint DOMHTMLOListElementStartPropertyInfo = (~) CLong type AttrBaseTypeConstraint DOMHTMLOListElementStartPropertyInfo = DOMHTMLOListElementK - type AttrGetType DOMHTMLOListElementStartPropertyInfo = Int64 + type AttrGetType DOMHTMLOListElementStartPropertyInfo = CLong type AttrLabel DOMHTMLOListElementStartPropertyInfo = "start" attrGet _ = getDOMHTMLOListElementStart attrSet _ = setDOMHTMLOListElementStart attrConstruct _ = constructDOMHTMLOListElementStart + attrClear _ = undefined -- VVV Prop "type" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) -getDOMHTMLOListElementType :: (MonadIO m, DOMHTMLOListElementK o) => o -> m T.Text +getDOMHTMLOListElementType :: (MonadIO m, DOMHTMLOListElementK o) => o -> m (Maybe T.Text) getDOMHTMLOListElementType obj = liftIO $ getObjectPropertyString obj "type" setDOMHTMLOListElementType :: (MonadIO m, DOMHTMLOListElementK o) => o -> T.Text -> m () -setDOMHTMLOListElementType obj val = liftIO $ setObjectPropertyString obj "type" val +setDOMHTMLOListElementType obj val = liftIO $ setObjectPropertyString obj "type" (Just val) constructDOMHTMLOListElementType :: T.Text -> IO ([Char], GValue) -constructDOMHTMLOListElementType val = constructObjectPropertyString "type" val +constructDOMHTMLOListElementType val = constructObjectPropertyString "type" (Just val) +clearDOMHTMLOListElementType :: (MonadIO m, DOMHTMLOListElementK o) => o -> m () +clearDOMHTMLOListElementType obj = liftIO $ setObjectPropertyString obj "type" (Nothing :: Maybe T.Text) + data DOMHTMLOListElementTypePropertyInfo instance AttrInfo DOMHTMLOListElementTypePropertyInfo where - type AttrAllowedOps DOMHTMLOListElementTypePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrAllowedOps DOMHTMLOListElementTypePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint DOMHTMLOListElementTypePropertyInfo = (~) T.Text type AttrBaseTypeConstraint DOMHTMLOListElementTypePropertyInfo = DOMHTMLOListElementK - type AttrGetType DOMHTMLOListElementTypePropertyInfo = T.Text + type AttrGetType DOMHTMLOListElementTypePropertyInfo = (Maybe T.Text) type AttrLabel DOMHTMLOListElementTypePropertyInfo = "type" attrGet _ = getDOMHTMLOListElementType attrSet _ = setDOMHTMLOListElementType attrConstruct _ = constructDOMHTMLOListElementType + attrClear _ = clearDOMHTMLOListElementType type instance AttributeList DOMHTMLOListElement = DOMHTMLOListElementAttributeList type DOMHTMLOListElementAttributeList = ('[ '("accessKey", DOMHTMLElementAccessKeyPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("baseUri", DOMNodeBaseUriPropertyInfo), '("childElementCount", DOMElementChildElementCountPropertyInfo), '("childNodes", DOMNodeChildNodesPropertyInfo), '("children", DOMHTMLElementChildrenPropertyInfo), '("classList", DOMElementClassListPropertyInfo), '("className", DOMElementClassNamePropertyInfo), '("clientHeight", DOMElementClientHeightPropertyInfo), '("clientLeft", DOMElementClientLeftPropertyInfo), '("clientTop", DOMElementClientTopPropertyInfo), '("clientWidth", DOMElementClientWidthPropertyInfo), '("compact", DOMHTMLOListElementCompactPropertyInfo), '("contentEditable", DOMHTMLElementContentEditablePropertyInfo), '("coreObject", DOMObjectCoreObjectPropertyInfo), '("dir", DOMHTMLElementDirPropertyInfo), '("draggable", DOMHTMLElementDraggablePropertyInfo), '("firstChild", DOMNodeFirstChildPropertyInfo), '("firstElementChild", DOMElementFirstElementChildPropertyInfo), '("hidden", DOMHTMLElementHiddenPropertyInfo), '("id", DOMElementIdPropertyInfo), '("innerHtml", DOMHTMLElementInnerHtmlPropertyInfo), '("innerText", DOMHTMLElementInnerTextPropertyInfo), '("isContentEditable", DOMHTMLElementIsContentEditablePropertyInfo), '("lang", DOMHTMLElementLangPropertyInfo), '("lastChild", DOMNodeLastChildPropertyInfo), '("lastElementChild", DOMElementLastElementChildPropertyInfo), '("localName", DOMNodeLocalNamePropertyInfo), '("namespaceUri", DOMNodeNamespaceUriPropertyInfo), '("nextElementSibling", DOMElementNextElementSiblingPropertyInfo), '("nextSibling", DOMNodeNextSiblingPropertyInfo), '("nodeName", DOMNodeNodeNamePropertyInfo), '("nodeType", DOMNodeNodeTypePropertyInfo), '("nodeValue", DOMNodeNodeValuePropertyInfo), '("offsetHeight", DOMElementOffsetHeightPropertyInfo), '("offsetLeft", DOMElementOffsetLeftPropertyInfo), '("offsetParent", DOMElementOffsetParentPropertyInfo), '("offsetTop", DOMElementOffsetTopPropertyInfo), '("offsetWidth", DOMElementOffsetWidthPropertyInfo), '("outerHtml", DOMHTMLElementOuterHtmlPropertyInfo), '("outerText", DOMHTMLElementOuterTextPropertyInfo), '("ownerDocument", DOMNodeOwnerDocumentPropertyInfo), '("parentElement", DOMNodeParentElementPropertyInfo), '("parentNode", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previousElementSibling", DOMElementPreviousElementSiblingPropertyInfo), '("previousSibling", DOMNodePreviousSiblingPropertyInfo), '("reversed", DOMHTMLOListElementReversedPropertyInfo), '("scrollHeight", DOMElementScrollHeightPropertyInfo), '("scrollLeft", DOMElementScrollLeftPropertyInfo), '("scrollTop", DOMElementScrollTopPropertyInfo), '("scrollWidth", DOMElementScrollWidthPropertyInfo), '("spellcheck", DOMHTMLElementSpellcheckPropertyInfo), '("start", DOMHTMLOListElementStartPropertyInfo), '("style", DOMElementStylePropertyInfo), '("tabIndex", DOMHTMLElementTabIndexPropertyInfo), '("tagName", DOMElementTagNamePropertyInfo), '("textContent", DOMNodeTextContentPropertyInfo), '("title", DOMHTMLElementTitlePropertyInfo), '("translate", DOMHTMLElementTranslatePropertyInfo), '("type", DOMHTMLOListElementTypePropertyInfo), '("webkitRegionOverset", DOMElementWebkitRegionOversetPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo)] :: [(Symbol, *)]) +dOMHTMLOListElementCompact :: AttrLabelProxy "compact" +dOMHTMLOListElementCompact = AttrLabelProxy + +dOMHTMLOListElementReversed :: AttrLabelProxy "reversed" +dOMHTMLOListElementReversed = AttrLabelProxy + +dOMHTMLOListElementStart :: AttrLabelProxy "start" +dOMHTMLOListElementStart = AttrLabelProxy + +dOMHTMLOListElementType :: AttrLabelProxy "type" +dOMHTMLOListElementType = AttrLabelProxy + type instance SignalList DOMHTMLOListElement = DOMHTMLOListElementSignalList type DOMHTMLOListElementSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) @@ -391,7 +419,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLOListElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -419,7 +447,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLOListElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -447,19 +475,19 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLOListElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TInt64 +-- returnType : Just (TBasicType TLong) -- throws : False -- Skip return : False foreign import ccall "webkit_dom_htmlo_list_element_get_start" webkit_dom_htmlo_list_element_get_start :: Ptr DOMHTMLOListElement -> -- _obj : TInterface "WebKit" "DOMHTMLOListElement" - IO Int64 + IO CLong dOMHTMLOListElementGetStart :: (MonadIO m, DOMHTMLOListElementK a) => a -- _obj - -> m Int64 -- result + -> m CLong -- result dOMHTMLOListElementGetStart _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- webkit_dom_htmlo_list_element_get_start _obj' @@ -467,14 +495,14 @@ return result data DOMHTMLOListElementGetStartMethodInfo -instance (signature ~ (m Int64), MonadIO m, DOMHTMLOListElementK a) => MethodInfo DOMHTMLOListElementGetStartMethodInfo a signature where +instance (signature ~ (m CLong), MonadIO m, DOMHTMLOListElementK a) => MethodInfo DOMHTMLOListElementGetStartMethodInfo a signature where overloadedMethod _ = dOMHTMLOListElementGetStart -- method DOMHTMLOListElement::set_compact -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLOListElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -504,7 +532,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLOListElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -532,22 +560,22 @@ -- method DOMHTMLOListElement::set_start -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLOListElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLOListElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TLong, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "webkit_dom_htmlo_list_element_set_start" webkit_dom_htmlo_list_element_set_start :: Ptr DOMHTMLOListElement -> -- _obj : TInterface "WebKit" "DOMHTMLOListElement" - Int64 -> -- value : TBasicType TInt64 + CLong -> -- value : TBasicType TLong IO () dOMHTMLOListElementSetStart :: (MonadIO m, DOMHTMLOListElementK a) => a -- _obj - -> Int64 -- value + -> CLong -- value -> m () -- result dOMHTMLOListElementSetStart _obj value = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj @@ -556,7 +584,7 @@ return () data DOMHTMLOListElementSetStartMethodInfo -instance (signature ~ (Int64 -> m ()), MonadIO m, DOMHTMLOListElementK a) => MethodInfo DOMHTMLOListElementSetStartMethodInfo a signature where +instance (signature ~ (CLong -> m ()), MonadIO m, DOMHTMLOListElementK a) => MethodInfo DOMHTMLOListElementSetStartMethodInfo a signature where overloadedMethod _ = dOMHTMLOListElementSetStart diff --git a/GI/WebKit/Objects/DOMHTMLOListElement.hs-boot b/GI/WebKit/Objects/DOMHTMLOListElement.hs-boot --- a/GI/WebKit/Objects/DOMHTMLOListElement.hs-boot +++ b/GI/WebKit/Objects/DOMHTMLOListElement.hs-boot @@ -1,8 +1,8 @@ module GI.WebKit.Objects.DOMHTMLOListElement where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map diff --git a/GI/WebKit/Objects/DOMHTMLObjectElement.hs b/GI/WebKit/Objects/DOMHTMLObjectElement.hs --- a/GI/WebKit/Objects/DOMHTMLObjectElement.hs +++ b/GI/WebKit/Objects/DOMHTMLObjectElement.hs @@ -208,6 +208,7 @@ -- ** Align DOMHTMLObjectElementAlignPropertyInfo , constructDOMHTMLObjectElementAlign , + dOMHTMLObjectElementAlign , getDOMHTMLObjectElementAlign , setDOMHTMLObjectElementAlign , @@ -215,6 +216,7 @@ -- ** Archive DOMHTMLObjectElementArchivePropertyInfo , constructDOMHTMLObjectElementArchive , + dOMHTMLObjectElementArchive , getDOMHTMLObjectElementArchive , setDOMHTMLObjectElementArchive , @@ -222,6 +224,7 @@ -- ** Border DOMHTMLObjectElementBorderPropertyInfo , constructDOMHTMLObjectElementBorder , + dOMHTMLObjectElementBorder , getDOMHTMLObjectElementBorder , setDOMHTMLObjectElementBorder , @@ -229,6 +232,7 @@ -- ** Code DOMHTMLObjectElementCodePropertyInfo , constructDOMHTMLObjectElementCode , + dOMHTMLObjectElementCode , getDOMHTMLObjectElementCode , setDOMHTMLObjectElementCode , @@ -236,6 +240,7 @@ -- ** CodeBase DOMHTMLObjectElementCodeBasePropertyInfo, constructDOMHTMLObjectElementCodeBase , + dOMHTMLObjectElementCodeBase , getDOMHTMLObjectElementCodeBase , setDOMHTMLObjectElementCodeBase , @@ -243,18 +248,21 @@ -- ** CodeType DOMHTMLObjectElementCodeTypePropertyInfo, constructDOMHTMLObjectElementCodeType , + dOMHTMLObjectElementCodeType , getDOMHTMLObjectElementCodeType , setDOMHTMLObjectElementCodeType , -- ** ContentDocument DOMHTMLObjectElementContentDocumentPropertyInfo, + dOMHTMLObjectElementContentDocument , getDOMHTMLObjectElementContentDocument , -- ** Data DOMHTMLObjectElementDataPropertyInfo , constructDOMHTMLObjectElementData , + dOMHTMLObjectElementData , getDOMHTMLObjectElementData , setDOMHTMLObjectElementData , @@ -262,18 +270,21 @@ -- ** Declare DOMHTMLObjectElementDeclarePropertyInfo , constructDOMHTMLObjectElementDeclare , + dOMHTMLObjectElementDeclare , getDOMHTMLObjectElementDeclare , setDOMHTMLObjectElementDeclare , -- ** Form DOMHTMLObjectElementFormPropertyInfo , + dOMHTMLObjectElementForm , getDOMHTMLObjectElementForm , -- ** Height DOMHTMLObjectElementHeightPropertyInfo , constructDOMHTMLObjectElementHeight , + dOMHTMLObjectElementHeight , getDOMHTMLObjectElementHeight , setDOMHTMLObjectElementHeight , @@ -281,6 +292,7 @@ -- ** Hspace DOMHTMLObjectElementHspacePropertyInfo , constructDOMHTMLObjectElementHspace , + dOMHTMLObjectElementHspace , getDOMHTMLObjectElementHspace , setDOMHTMLObjectElementHspace , @@ -288,6 +300,7 @@ -- ** Name DOMHTMLObjectElementNamePropertyInfo , constructDOMHTMLObjectElementName , + dOMHTMLObjectElementName , getDOMHTMLObjectElementName , setDOMHTMLObjectElementName , @@ -295,13 +308,16 @@ -- ** Standby DOMHTMLObjectElementStandbyPropertyInfo , constructDOMHTMLObjectElementStandby , + dOMHTMLObjectElementStandby , getDOMHTMLObjectElementStandby , setDOMHTMLObjectElementStandby , -- ** Type DOMHTMLObjectElementTypePropertyInfo , + clearDOMHTMLObjectElementType , constructDOMHTMLObjectElementType , + dOMHTMLObjectElementType , getDOMHTMLObjectElementType , setDOMHTMLObjectElementType , @@ -309,23 +325,27 @@ -- ** UseMap DOMHTMLObjectElementUseMapPropertyInfo , constructDOMHTMLObjectElementUseMap , + dOMHTMLObjectElementUseMap , getDOMHTMLObjectElementUseMap , setDOMHTMLObjectElementUseMap , -- ** ValidationMessage DOMHTMLObjectElementValidationMessagePropertyInfo, + dOMHTMLObjectElementValidationMessage , getDOMHTMLObjectElementValidationMessage, -- ** Validity DOMHTMLObjectElementValidityPropertyInfo, + dOMHTMLObjectElementValidity , getDOMHTMLObjectElementValidity , -- ** Vspace DOMHTMLObjectElementVspacePropertyInfo , constructDOMHTMLObjectElementVspace , + dOMHTMLObjectElementVspace , getDOMHTMLObjectElementVspace , setDOMHTMLObjectElementVspace , @@ -333,12 +353,14 @@ -- ** Width DOMHTMLObjectElementWidthPropertyInfo , constructDOMHTMLObjectElementWidth , + dOMHTMLObjectElementWidth , getDOMHTMLObjectElementWidth , setDOMHTMLObjectElementWidth , -- ** WillValidate DOMHTMLObjectElementWillValidatePropertyInfo, + dOMHTMLObjectElementWillValidate , getDOMHTMLObjectElementWillValidate , @@ -346,9 +368,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map @@ -579,157 +601,170 @@ -- VVV Prop "align" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Just False) -getDOMHTMLObjectElementAlign :: (MonadIO m, DOMHTMLObjectElementK o) => o -> m T.Text +getDOMHTMLObjectElementAlign :: (MonadIO m, DOMHTMLObjectElementK o) => o -> m (Maybe T.Text) getDOMHTMLObjectElementAlign obj = liftIO $ getObjectPropertyString obj "align" setDOMHTMLObjectElementAlign :: (MonadIO m, DOMHTMLObjectElementK o) => o -> T.Text -> m () -setDOMHTMLObjectElementAlign obj val = liftIO $ setObjectPropertyString obj "align" val +setDOMHTMLObjectElementAlign obj val = liftIO $ setObjectPropertyString obj "align" (Just val) constructDOMHTMLObjectElementAlign :: T.Text -> IO ([Char], GValue) -constructDOMHTMLObjectElementAlign val = constructObjectPropertyString "align" val +constructDOMHTMLObjectElementAlign val = constructObjectPropertyString "align" (Just val) data DOMHTMLObjectElementAlignPropertyInfo instance AttrInfo DOMHTMLObjectElementAlignPropertyInfo where type AttrAllowedOps DOMHTMLObjectElementAlignPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint DOMHTMLObjectElementAlignPropertyInfo = (~) T.Text type AttrBaseTypeConstraint DOMHTMLObjectElementAlignPropertyInfo = DOMHTMLObjectElementK - type AttrGetType DOMHTMLObjectElementAlignPropertyInfo = T.Text + type AttrGetType DOMHTMLObjectElementAlignPropertyInfo = (Maybe T.Text) type AttrLabel DOMHTMLObjectElementAlignPropertyInfo = "align" attrGet _ = getDOMHTMLObjectElementAlign attrSet _ = setDOMHTMLObjectElementAlign attrConstruct _ = constructDOMHTMLObjectElementAlign + attrClear _ = undefined -- VVV Prop "archive" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Just False) -getDOMHTMLObjectElementArchive :: (MonadIO m, DOMHTMLObjectElementK o) => o -> m T.Text +getDOMHTMLObjectElementArchive :: (MonadIO m, DOMHTMLObjectElementK o) => o -> m (Maybe T.Text) getDOMHTMLObjectElementArchive obj = liftIO $ getObjectPropertyString obj "archive" setDOMHTMLObjectElementArchive :: (MonadIO m, DOMHTMLObjectElementK o) => o -> T.Text -> m () -setDOMHTMLObjectElementArchive obj val = liftIO $ setObjectPropertyString obj "archive" val +setDOMHTMLObjectElementArchive obj val = liftIO $ setObjectPropertyString obj "archive" (Just val) constructDOMHTMLObjectElementArchive :: T.Text -> IO ([Char], GValue) -constructDOMHTMLObjectElementArchive val = constructObjectPropertyString "archive" val +constructDOMHTMLObjectElementArchive val = constructObjectPropertyString "archive" (Just val) data DOMHTMLObjectElementArchivePropertyInfo instance AttrInfo DOMHTMLObjectElementArchivePropertyInfo where type AttrAllowedOps DOMHTMLObjectElementArchivePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint DOMHTMLObjectElementArchivePropertyInfo = (~) T.Text type AttrBaseTypeConstraint DOMHTMLObjectElementArchivePropertyInfo = DOMHTMLObjectElementK - type AttrGetType DOMHTMLObjectElementArchivePropertyInfo = T.Text + type AttrGetType DOMHTMLObjectElementArchivePropertyInfo = (Maybe T.Text) type AttrLabel DOMHTMLObjectElementArchivePropertyInfo = "archive" attrGet _ = getDOMHTMLObjectElementArchive attrSet _ = setDOMHTMLObjectElementArchive attrConstruct _ = constructDOMHTMLObjectElementArchive + attrClear _ = undefined -- VVV Prop "border" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Just False) -getDOMHTMLObjectElementBorder :: (MonadIO m, DOMHTMLObjectElementK o) => o -> m T.Text +getDOMHTMLObjectElementBorder :: (MonadIO m, DOMHTMLObjectElementK o) => o -> m (Maybe T.Text) getDOMHTMLObjectElementBorder obj = liftIO $ getObjectPropertyString obj "border" setDOMHTMLObjectElementBorder :: (MonadIO m, DOMHTMLObjectElementK o) => o -> T.Text -> m () -setDOMHTMLObjectElementBorder obj val = liftIO $ setObjectPropertyString obj "border" val +setDOMHTMLObjectElementBorder obj val = liftIO $ setObjectPropertyString obj "border" (Just val) constructDOMHTMLObjectElementBorder :: T.Text -> IO ([Char], GValue) -constructDOMHTMLObjectElementBorder val = constructObjectPropertyString "border" val +constructDOMHTMLObjectElementBorder val = constructObjectPropertyString "border" (Just val) data DOMHTMLObjectElementBorderPropertyInfo instance AttrInfo DOMHTMLObjectElementBorderPropertyInfo where type AttrAllowedOps DOMHTMLObjectElementBorderPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint DOMHTMLObjectElementBorderPropertyInfo = (~) T.Text type AttrBaseTypeConstraint DOMHTMLObjectElementBorderPropertyInfo = DOMHTMLObjectElementK - type AttrGetType DOMHTMLObjectElementBorderPropertyInfo = T.Text + type AttrGetType DOMHTMLObjectElementBorderPropertyInfo = (Maybe T.Text) type AttrLabel DOMHTMLObjectElementBorderPropertyInfo = "border" attrGet _ = getDOMHTMLObjectElementBorder attrSet _ = setDOMHTMLObjectElementBorder attrConstruct _ = constructDOMHTMLObjectElementBorder + attrClear _ = undefined -- VVV Prop "code" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Just False) -getDOMHTMLObjectElementCode :: (MonadIO m, DOMHTMLObjectElementK o) => o -> m T.Text +getDOMHTMLObjectElementCode :: (MonadIO m, DOMHTMLObjectElementK o) => o -> m (Maybe T.Text) getDOMHTMLObjectElementCode obj = liftIO $ getObjectPropertyString obj "code" setDOMHTMLObjectElementCode :: (MonadIO m, DOMHTMLObjectElementK o) => o -> T.Text -> m () -setDOMHTMLObjectElementCode obj val = liftIO $ setObjectPropertyString obj "code" val +setDOMHTMLObjectElementCode obj val = liftIO $ setObjectPropertyString obj "code" (Just val) constructDOMHTMLObjectElementCode :: T.Text -> IO ([Char], GValue) -constructDOMHTMLObjectElementCode val = constructObjectPropertyString "code" val +constructDOMHTMLObjectElementCode val = constructObjectPropertyString "code" (Just val) data DOMHTMLObjectElementCodePropertyInfo instance AttrInfo DOMHTMLObjectElementCodePropertyInfo where type AttrAllowedOps DOMHTMLObjectElementCodePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint DOMHTMLObjectElementCodePropertyInfo = (~) T.Text type AttrBaseTypeConstraint DOMHTMLObjectElementCodePropertyInfo = DOMHTMLObjectElementK - type AttrGetType DOMHTMLObjectElementCodePropertyInfo = T.Text + type AttrGetType DOMHTMLObjectElementCodePropertyInfo = (Maybe T.Text) type AttrLabel DOMHTMLObjectElementCodePropertyInfo = "code" attrGet _ = getDOMHTMLObjectElementCode attrSet _ = setDOMHTMLObjectElementCode attrConstruct _ = constructDOMHTMLObjectElementCode + attrClear _ = undefined -- VVV Prop "code-base" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Just False) -getDOMHTMLObjectElementCodeBase :: (MonadIO m, DOMHTMLObjectElementK o) => o -> m T.Text +getDOMHTMLObjectElementCodeBase :: (MonadIO m, DOMHTMLObjectElementK o) => o -> m (Maybe T.Text) getDOMHTMLObjectElementCodeBase obj = liftIO $ getObjectPropertyString obj "code-base" setDOMHTMLObjectElementCodeBase :: (MonadIO m, DOMHTMLObjectElementK o) => o -> T.Text -> m () -setDOMHTMLObjectElementCodeBase obj val = liftIO $ setObjectPropertyString obj "code-base" val +setDOMHTMLObjectElementCodeBase obj val = liftIO $ setObjectPropertyString obj "code-base" (Just val) constructDOMHTMLObjectElementCodeBase :: T.Text -> IO ([Char], GValue) -constructDOMHTMLObjectElementCodeBase val = constructObjectPropertyString "code-base" val +constructDOMHTMLObjectElementCodeBase val = constructObjectPropertyString "code-base" (Just val) data DOMHTMLObjectElementCodeBasePropertyInfo instance AttrInfo DOMHTMLObjectElementCodeBasePropertyInfo where type AttrAllowedOps DOMHTMLObjectElementCodeBasePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint DOMHTMLObjectElementCodeBasePropertyInfo = (~) T.Text type AttrBaseTypeConstraint DOMHTMLObjectElementCodeBasePropertyInfo = DOMHTMLObjectElementK - type AttrGetType DOMHTMLObjectElementCodeBasePropertyInfo = T.Text + type AttrGetType DOMHTMLObjectElementCodeBasePropertyInfo = (Maybe T.Text) type AttrLabel DOMHTMLObjectElementCodeBasePropertyInfo = "code-base" attrGet _ = getDOMHTMLObjectElementCodeBase attrSet _ = setDOMHTMLObjectElementCodeBase attrConstruct _ = constructDOMHTMLObjectElementCodeBase + attrClear _ = undefined -- VVV Prop "code-type" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Just False) -getDOMHTMLObjectElementCodeType :: (MonadIO m, DOMHTMLObjectElementK o) => o -> m T.Text +getDOMHTMLObjectElementCodeType :: (MonadIO m, DOMHTMLObjectElementK o) => o -> m (Maybe T.Text) getDOMHTMLObjectElementCodeType obj = liftIO $ getObjectPropertyString obj "code-type" setDOMHTMLObjectElementCodeType :: (MonadIO m, DOMHTMLObjectElementK o) => o -> T.Text -> m () -setDOMHTMLObjectElementCodeType obj val = liftIO $ setObjectPropertyString obj "code-type" val +setDOMHTMLObjectElementCodeType obj val = liftIO $ setObjectPropertyString obj "code-type" (Just val) constructDOMHTMLObjectElementCodeType :: T.Text -> IO ([Char], GValue) -constructDOMHTMLObjectElementCodeType val = constructObjectPropertyString "code-type" val +constructDOMHTMLObjectElementCodeType val = constructObjectPropertyString "code-type" (Just val) data DOMHTMLObjectElementCodeTypePropertyInfo instance AttrInfo DOMHTMLObjectElementCodeTypePropertyInfo where type AttrAllowedOps DOMHTMLObjectElementCodeTypePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint DOMHTMLObjectElementCodeTypePropertyInfo = (~) T.Text type AttrBaseTypeConstraint DOMHTMLObjectElementCodeTypePropertyInfo = DOMHTMLObjectElementK - type AttrGetType DOMHTMLObjectElementCodeTypePropertyInfo = T.Text + type AttrGetType DOMHTMLObjectElementCodeTypePropertyInfo = (Maybe T.Text) type AttrLabel DOMHTMLObjectElementCodeTypePropertyInfo = "code-type" attrGet _ = getDOMHTMLObjectElementCodeType attrSet _ = setDOMHTMLObjectElementCodeType attrConstruct _ = constructDOMHTMLObjectElementCodeType + attrClear _ = undefined -- VVV Prop "content-document" -- Type: TInterface "WebKit" "DOMDocument" -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) getDOMHTMLObjectElementContentDocument :: (MonadIO m, DOMHTMLObjectElementK o) => o -> m DOMDocument -getDOMHTMLObjectElementContentDocument obj = liftIO $ getObjectPropertyObject obj "content-document" DOMDocument +getDOMHTMLObjectElementContentDocument obj = liftIO $ checkUnexpectedNothing "getDOMHTMLObjectElementContentDocument" $ getObjectPropertyObject obj "content-document" DOMDocument data DOMHTMLObjectElementContentDocumentPropertyInfo instance AttrInfo DOMHTMLObjectElementContentDocumentPropertyInfo where - type AttrAllowedOps DOMHTMLObjectElementContentDocumentPropertyInfo = '[ 'AttrGet] + type AttrAllowedOps DOMHTMLObjectElementContentDocumentPropertyInfo = '[ 'AttrGet, 'AttrClear] type AttrSetTypeConstraint DOMHTMLObjectElementContentDocumentPropertyInfo = (~) () type AttrBaseTypeConstraint DOMHTMLObjectElementContentDocumentPropertyInfo = DOMHTMLObjectElementK type AttrGetType DOMHTMLObjectElementContentDocumentPropertyInfo = DOMDocument @@ -737,34 +772,38 @@ attrGet _ = getDOMHTMLObjectElementContentDocument attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "data" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Just False) -getDOMHTMLObjectElementData :: (MonadIO m, DOMHTMLObjectElementK o) => o -> m T.Text +getDOMHTMLObjectElementData :: (MonadIO m, DOMHTMLObjectElementK o) => o -> m (Maybe T.Text) getDOMHTMLObjectElementData obj = liftIO $ getObjectPropertyString obj "data" setDOMHTMLObjectElementData :: (MonadIO m, DOMHTMLObjectElementK o) => o -> T.Text -> m () -setDOMHTMLObjectElementData obj val = liftIO $ setObjectPropertyString obj "data" val +setDOMHTMLObjectElementData obj val = liftIO $ setObjectPropertyString obj "data" (Just val) constructDOMHTMLObjectElementData :: T.Text -> IO ([Char], GValue) -constructDOMHTMLObjectElementData val = constructObjectPropertyString "data" val +constructDOMHTMLObjectElementData val = constructObjectPropertyString "data" (Just val) data DOMHTMLObjectElementDataPropertyInfo instance AttrInfo DOMHTMLObjectElementDataPropertyInfo where type AttrAllowedOps DOMHTMLObjectElementDataPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint DOMHTMLObjectElementDataPropertyInfo = (~) T.Text type AttrBaseTypeConstraint DOMHTMLObjectElementDataPropertyInfo = DOMHTMLObjectElementK - type AttrGetType DOMHTMLObjectElementDataPropertyInfo = T.Text + type AttrGetType DOMHTMLObjectElementDataPropertyInfo = (Maybe T.Text) type AttrLabel DOMHTMLObjectElementDataPropertyInfo = "data" attrGet _ = getDOMHTMLObjectElementData attrSet _ = setDOMHTMLObjectElementData attrConstruct _ = constructDOMHTMLObjectElementData + attrClear _ = undefined -- VVV Prop "declare" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getDOMHTMLObjectElementDeclare :: (MonadIO m, DOMHTMLObjectElementK o) => o -> m Bool getDOMHTMLObjectElementDeclare obj = liftIO $ getObjectPropertyBool obj "declare" @@ -785,17 +824,19 @@ attrGet _ = getDOMHTMLObjectElementDeclare attrSet _ = setDOMHTMLObjectElementDeclare attrConstruct _ = constructDOMHTMLObjectElementDeclare + attrClear _ = undefined -- VVV Prop "form" -- Type: TInterface "WebKit" "DOMHTMLFormElement" -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) getDOMHTMLObjectElementForm :: (MonadIO m, DOMHTMLObjectElementK o) => o -> m DOMHTMLFormElement -getDOMHTMLObjectElementForm obj = liftIO $ getObjectPropertyObject obj "form" DOMHTMLFormElement +getDOMHTMLObjectElementForm obj = liftIO $ checkUnexpectedNothing "getDOMHTMLObjectElementForm" $ getObjectPropertyObject obj "form" DOMHTMLFormElement data DOMHTMLObjectElementFormPropertyInfo instance AttrInfo DOMHTMLObjectElementFormPropertyInfo where - type AttrAllowedOps DOMHTMLObjectElementFormPropertyInfo = '[ 'AttrGet] + type AttrAllowedOps DOMHTMLObjectElementFormPropertyInfo = '[ 'AttrGet, 'AttrClear] type AttrSetTypeConstraint DOMHTMLObjectElementFormPropertyInfo = (~) () type AttrBaseTypeConstraint DOMHTMLObjectElementFormPropertyInfo = DOMHTMLObjectElementK type AttrGetType DOMHTMLObjectElementFormPropertyInfo = DOMHTMLFormElement @@ -803,238 +844,263 @@ attrGet _ = getDOMHTMLObjectElementForm attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "height" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Just False) -getDOMHTMLObjectElementHeight :: (MonadIO m, DOMHTMLObjectElementK o) => o -> m T.Text +getDOMHTMLObjectElementHeight :: (MonadIO m, DOMHTMLObjectElementK o) => o -> m (Maybe T.Text) getDOMHTMLObjectElementHeight obj = liftIO $ getObjectPropertyString obj "height" setDOMHTMLObjectElementHeight :: (MonadIO m, DOMHTMLObjectElementK o) => o -> T.Text -> m () -setDOMHTMLObjectElementHeight obj val = liftIO $ setObjectPropertyString obj "height" val +setDOMHTMLObjectElementHeight obj val = liftIO $ setObjectPropertyString obj "height" (Just val) constructDOMHTMLObjectElementHeight :: T.Text -> IO ([Char], GValue) -constructDOMHTMLObjectElementHeight val = constructObjectPropertyString "height" val +constructDOMHTMLObjectElementHeight val = constructObjectPropertyString "height" (Just val) data DOMHTMLObjectElementHeightPropertyInfo instance AttrInfo DOMHTMLObjectElementHeightPropertyInfo where type AttrAllowedOps DOMHTMLObjectElementHeightPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint DOMHTMLObjectElementHeightPropertyInfo = (~) T.Text type AttrBaseTypeConstraint DOMHTMLObjectElementHeightPropertyInfo = DOMHTMLObjectElementK - type AttrGetType DOMHTMLObjectElementHeightPropertyInfo = T.Text + type AttrGetType DOMHTMLObjectElementHeightPropertyInfo = (Maybe T.Text) type AttrLabel DOMHTMLObjectElementHeightPropertyInfo = "height" attrGet _ = getDOMHTMLObjectElementHeight attrSet _ = setDOMHTMLObjectElementHeight attrConstruct _ = constructDOMHTMLObjectElementHeight + attrClear _ = undefined -- VVV Prop "hspace" - -- Type: TBasicType TInt64 + -- Type: TBasicType TLong -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) -getDOMHTMLObjectElementHspace :: (MonadIO m, DOMHTMLObjectElementK o) => o -> m Int64 -getDOMHTMLObjectElementHspace obj = liftIO $ getObjectPropertyInt64 obj "hspace" +getDOMHTMLObjectElementHspace :: (MonadIO m, DOMHTMLObjectElementK o) => o -> m CLong +getDOMHTMLObjectElementHspace obj = liftIO $ getObjectPropertyLong obj "hspace" -setDOMHTMLObjectElementHspace :: (MonadIO m, DOMHTMLObjectElementK o) => o -> Int64 -> m () -setDOMHTMLObjectElementHspace obj val = liftIO $ setObjectPropertyInt64 obj "hspace" val +setDOMHTMLObjectElementHspace :: (MonadIO m, DOMHTMLObjectElementK o) => o -> CLong -> m () +setDOMHTMLObjectElementHspace obj val = liftIO $ setObjectPropertyLong obj "hspace" val -constructDOMHTMLObjectElementHspace :: Int64 -> IO ([Char], GValue) -constructDOMHTMLObjectElementHspace val = constructObjectPropertyInt64 "hspace" val +constructDOMHTMLObjectElementHspace :: CLong -> IO ([Char], GValue) +constructDOMHTMLObjectElementHspace val = constructObjectPropertyLong "hspace" val data DOMHTMLObjectElementHspacePropertyInfo instance AttrInfo DOMHTMLObjectElementHspacePropertyInfo where type AttrAllowedOps DOMHTMLObjectElementHspacePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLObjectElementHspacePropertyInfo = (~) Int64 + type AttrSetTypeConstraint DOMHTMLObjectElementHspacePropertyInfo = (~) CLong type AttrBaseTypeConstraint DOMHTMLObjectElementHspacePropertyInfo = DOMHTMLObjectElementK - type AttrGetType DOMHTMLObjectElementHspacePropertyInfo = Int64 + type AttrGetType DOMHTMLObjectElementHspacePropertyInfo = CLong type AttrLabel DOMHTMLObjectElementHspacePropertyInfo = "hspace" attrGet _ = getDOMHTMLObjectElementHspace attrSet _ = setDOMHTMLObjectElementHspace attrConstruct _ = constructDOMHTMLObjectElementHspace + attrClear _ = undefined -- VVV Prop "name" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Just False) -getDOMHTMLObjectElementName :: (MonadIO m, DOMHTMLObjectElementK o) => o -> m T.Text +getDOMHTMLObjectElementName :: (MonadIO m, DOMHTMLObjectElementK o) => o -> m (Maybe T.Text) getDOMHTMLObjectElementName obj = liftIO $ getObjectPropertyString obj "name" setDOMHTMLObjectElementName :: (MonadIO m, DOMHTMLObjectElementK o) => o -> T.Text -> m () -setDOMHTMLObjectElementName obj val = liftIO $ setObjectPropertyString obj "name" val +setDOMHTMLObjectElementName obj val = liftIO $ setObjectPropertyString obj "name" (Just val) constructDOMHTMLObjectElementName :: T.Text -> IO ([Char], GValue) -constructDOMHTMLObjectElementName val = constructObjectPropertyString "name" val +constructDOMHTMLObjectElementName val = constructObjectPropertyString "name" (Just val) data DOMHTMLObjectElementNamePropertyInfo instance AttrInfo DOMHTMLObjectElementNamePropertyInfo where type AttrAllowedOps DOMHTMLObjectElementNamePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint DOMHTMLObjectElementNamePropertyInfo = (~) T.Text type AttrBaseTypeConstraint DOMHTMLObjectElementNamePropertyInfo = DOMHTMLObjectElementK - type AttrGetType DOMHTMLObjectElementNamePropertyInfo = T.Text + type AttrGetType DOMHTMLObjectElementNamePropertyInfo = (Maybe T.Text) type AttrLabel DOMHTMLObjectElementNamePropertyInfo = "name" attrGet _ = getDOMHTMLObjectElementName attrSet _ = setDOMHTMLObjectElementName attrConstruct _ = constructDOMHTMLObjectElementName + attrClear _ = undefined -- VVV Prop "standby" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Just False) -getDOMHTMLObjectElementStandby :: (MonadIO m, DOMHTMLObjectElementK o) => o -> m T.Text +getDOMHTMLObjectElementStandby :: (MonadIO m, DOMHTMLObjectElementK o) => o -> m (Maybe T.Text) getDOMHTMLObjectElementStandby obj = liftIO $ getObjectPropertyString obj "standby" setDOMHTMLObjectElementStandby :: (MonadIO m, DOMHTMLObjectElementK o) => o -> T.Text -> m () -setDOMHTMLObjectElementStandby obj val = liftIO $ setObjectPropertyString obj "standby" val +setDOMHTMLObjectElementStandby obj val = liftIO $ setObjectPropertyString obj "standby" (Just val) constructDOMHTMLObjectElementStandby :: T.Text -> IO ([Char], GValue) -constructDOMHTMLObjectElementStandby val = constructObjectPropertyString "standby" val +constructDOMHTMLObjectElementStandby val = constructObjectPropertyString "standby" (Just val) data DOMHTMLObjectElementStandbyPropertyInfo instance AttrInfo DOMHTMLObjectElementStandbyPropertyInfo where type AttrAllowedOps DOMHTMLObjectElementStandbyPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint DOMHTMLObjectElementStandbyPropertyInfo = (~) T.Text type AttrBaseTypeConstraint DOMHTMLObjectElementStandbyPropertyInfo = DOMHTMLObjectElementK - type AttrGetType DOMHTMLObjectElementStandbyPropertyInfo = T.Text + type AttrGetType DOMHTMLObjectElementStandbyPropertyInfo = (Maybe T.Text) type AttrLabel DOMHTMLObjectElementStandbyPropertyInfo = "standby" attrGet _ = getDOMHTMLObjectElementStandby attrSet _ = setDOMHTMLObjectElementStandby attrConstruct _ = constructDOMHTMLObjectElementStandby + attrClear _ = undefined -- VVV Prop "type" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) -getDOMHTMLObjectElementType :: (MonadIO m, DOMHTMLObjectElementK o) => o -> m T.Text +getDOMHTMLObjectElementType :: (MonadIO m, DOMHTMLObjectElementK o) => o -> m (Maybe T.Text) getDOMHTMLObjectElementType obj = liftIO $ getObjectPropertyString obj "type" setDOMHTMLObjectElementType :: (MonadIO m, DOMHTMLObjectElementK o) => o -> T.Text -> m () -setDOMHTMLObjectElementType obj val = liftIO $ setObjectPropertyString obj "type" val +setDOMHTMLObjectElementType obj val = liftIO $ setObjectPropertyString obj "type" (Just val) constructDOMHTMLObjectElementType :: T.Text -> IO ([Char], GValue) -constructDOMHTMLObjectElementType val = constructObjectPropertyString "type" val +constructDOMHTMLObjectElementType val = constructObjectPropertyString "type" (Just val) +clearDOMHTMLObjectElementType :: (MonadIO m, DOMHTMLObjectElementK o) => o -> m () +clearDOMHTMLObjectElementType obj = liftIO $ setObjectPropertyString obj "type" (Nothing :: Maybe T.Text) + data DOMHTMLObjectElementTypePropertyInfo instance AttrInfo DOMHTMLObjectElementTypePropertyInfo where - type AttrAllowedOps DOMHTMLObjectElementTypePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrAllowedOps DOMHTMLObjectElementTypePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint DOMHTMLObjectElementTypePropertyInfo = (~) T.Text type AttrBaseTypeConstraint DOMHTMLObjectElementTypePropertyInfo = DOMHTMLObjectElementK - type AttrGetType DOMHTMLObjectElementTypePropertyInfo = T.Text + type AttrGetType DOMHTMLObjectElementTypePropertyInfo = (Maybe T.Text) type AttrLabel DOMHTMLObjectElementTypePropertyInfo = "type" attrGet _ = getDOMHTMLObjectElementType attrSet _ = setDOMHTMLObjectElementType attrConstruct _ = constructDOMHTMLObjectElementType + attrClear _ = clearDOMHTMLObjectElementType -- VVV Prop "use-map" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Just False) -getDOMHTMLObjectElementUseMap :: (MonadIO m, DOMHTMLObjectElementK o) => o -> m T.Text +getDOMHTMLObjectElementUseMap :: (MonadIO m, DOMHTMLObjectElementK o) => o -> m (Maybe T.Text) getDOMHTMLObjectElementUseMap obj = liftIO $ getObjectPropertyString obj "use-map" setDOMHTMLObjectElementUseMap :: (MonadIO m, DOMHTMLObjectElementK o) => o -> T.Text -> m () -setDOMHTMLObjectElementUseMap obj val = liftIO $ setObjectPropertyString obj "use-map" val +setDOMHTMLObjectElementUseMap obj val = liftIO $ setObjectPropertyString obj "use-map" (Just val) constructDOMHTMLObjectElementUseMap :: T.Text -> IO ([Char], GValue) -constructDOMHTMLObjectElementUseMap val = constructObjectPropertyString "use-map" val +constructDOMHTMLObjectElementUseMap val = constructObjectPropertyString "use-map" (Just val) data DOMHTMLObjectElementUseMapPropertyInfo instance AttrInfo DOMHTMLObjectElementUseMapPropertyInfo where type AttrAllowedOps DOMHTMLObjectElementUseMapPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint DOMHTMLObjectElementUseMapPropertyInfo = (~) T.Text type AttrBaseTypeConstraint DOMHTMLObjectElementUseMapPropertyInfo = DOMHTMLObjectElementK - type AttrGetType DOMHTMLObjectElementUseMapPropertyInfo = T.Text + type AttrGetType DOMHTMLObjectElementUseMapPropertyInfo = (Maybe T.Text) type AttrLabel DOMHTMLObjectElementUseMapPropertyInfo = "use-map" attrGet _ = getDOMHTMLObjectElementUseMap attrSet _ = setDOMHTMLObjectElementUseMap attrConstruct _ = constructDOMHTMLObjectElementUseMap + attrClear _ = undefined -- VVV Prop "validation-message" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable] + -- Nullable: (Nothing,Nothing) -getDOMHTMLObjectElementValidationMessage :: (MonadIO m, DOMHTMLObjectElementK o) => o -> m T.Text +getDOMHTMLObjectElementValidationMessage :: (MonadIO m, DOMHTMLObjectElementK o) => o -> m (Maybe T.Text) getDOMHTMLObjectElementValidationMessage obj = liftIO $ getObjectPropertyString obj "validation-message" data DOMHTMLObjectElementValidationMessagePropertyInfo instance AttrInfo DOMHTMLObjectElementValidationMessagePropertyInfo where - type AttrAllowedOps DOMHTMLObjectElementValidationMessagePropertyInfo = '[ 'AttrGet] + type AttrAllowedOps DOMHTMLObjectElementValidationMessagePropertyInfo = '[ 'AttrGet, 'AttrClear] type AttrSetTypeConstraint DOMHTMLObjectElementValidationMessagePropertyInfo = (~) () type AttrBaseTypeConstraint DOMHTMLObjectElementValidationMessagePropertyInfo = DOMHTMLObjectElementK - type AttrGetType DOMHTMLObjectElementValidationMessagePropertyInfo = T.Text + type AttrGetType DOMHTMLObjectElementValidationMessagePropertyInfo = (Maybe T.Text) type AttrLabel DOMHTMLObjectElementValidationMessagePropertyInfo = "validation-message" attrGet _ = getDOMHTMLObjectElementValidationMessage attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "validity" -- Type: TInterface "WebKit" "DOMValidityState" -- Flags: [PropertyReadable] + -- Nullable: (Nothing,Nothing) -getDOMHTMLObjectElementValidity :: (MonadIO m, DOMHTMLObjectElementK o) => o -> m DOMValidityState +getDOMHTMLObjectElementValidity :: (MonadIO m, DOMHTMLObjectElementK o) => o -> m (Maybe DOMValidityState) getDOMHTMLObjectElementValidity obj = liftIO $ getObjectPropertyObject obj "validity" DOMValidityState data DOMHTMLObjectElementValidityPropertyInfo instance AttrInfo DOMHTMLObjectElementValidityPropertyInfo where - type AttrAllowedOps DOMHTMLObjectElementValidityPropertyInfo = '[ 'AttrGet] + type AttrAllowedOps DOMHTMLObjectElementValidityPropertyInfo = '[ 'AttrGet, 'AttrClear] type AttrSetTypeConstraint DOMHTMLObjectElementValidityPropertyInfo = (~) () type AttrBaseTypeConstraint DOMHTMLObjectElementValidityPropertyInfo = DOMHTMLObjectElementK - type AttrGetType DOMHTMLObjectElementValidityPropertyInfo = DOMValidityState + type AttrGetType DOMHTMLObjectElementValidityPropertyInfo = (Maybe DOMValidityState) type AttrLabel DOMHTMLObjectElementValidityPropertyInfo = "validity" attrGet _ = getDOMHTMLObjectElementValidity attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "vspace" - -- Type: TBasicType TInt64 + -- Type: TBasicType TLong -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) -getDOMHTMLObjectElementVspace :: (MonadIO m, DOMHTMLObjectElementK o) => o -> m Int64 -getDOMHTMLObjectElementVspace obj = liftIO $ getObjectPropertyInt64 obj "vspace" +getDOMHTMLObjectElementVspace :: (MonadIO m, DOMHTMLObjectElementK o) => o -> m CLong +getDOMHTMLObjectElementVspace obj = liftIO $ getObjectPropertyLong obj "vspace" -setDOMHTMLObjectElementVspace :: (MonadIO m, DOMHTMLObjectElementK o) => o -> Int64 -> m () -setDOMHTMLObjectElementVspace obj val = liftIO $ setObjectPropertyInt64 obj "vspace" val +setDOMHTMLObjectElementVspace :: (MonadIO m, DOMHTMLObjectElementK o) => o -> CLong -> m () +setDOMHTMLObjectElementVspace obj val = liftIO $ setObjectPropertyLong obj "vspace" val -constructDOMHTMLObjectElementVspace :: Int64 -> IO ([Char], GValue) -constructDOMHTMLObjectElementVspace val = constructObjectPropertyInt64 "vspace" val +constructDOMHTMLObjectElementVspace :: CLong -> IO ([Char], GValue) +constructDOMHTMLObjectElementVspace val = constructObjectPropertyLong "vspace" val data DOMHTMLObjectElementVspacePropertyInfo instance AttrInfo DOMHTMLObjectElementVspacePropertyInfo where type AttrAllowedOps DOMHTMLObjectElementVspacePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLObjectElementVspacePropertyInfo = (~) Int64 + type AttrSetTypeConstraint DOMHTMLObjectElementVspacePropertyInfo = (~) CLong type AttrBaseTypeConstraint DOMHTMLObjectElementVspacePropertyInfo = DOMHTMLObjectElementK - type AttrGetType DOMHTMLObjectElementVspacePropertyInfo = Int64 + type AttrGetType DOMHTMLObjectElementVspacePropertyInfo = CLong type AttrLabel DOMHTMLObjectElementVspacePropertyInfo = "vspace" attrGet _ = getDOMHTMLObjectElementVspace attrSet _ = setDOMHTMLObjectElementVspace attrConstruct _ = constructDOMHTMLObjectElementVspace + attrClear _ = undefined -- VVV Prop "width" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Just False) -getDOMHTMLObjectElementWidth :: (MonadIO m, DOMHTMLObjectElementK o) => o -> m T.Text +getDOMHTMLObjectElementWidth :: (MonadIO m, DOMHTMLObjectElementK o) => o -> m (Maybe T.Text) getDOMHTMLObjectElementWidth obj = liftIO $ getObjectPropertyString obj "width" setDOMHTMLObjectElementWidth :: (MonadIO m, DOMHTMLObjectElementK o) => o -> T.Text -> m () -setDOMHTMLObjectElementWidth obj val = liftIO $ setObjectPropertyString obj "width" val +setDOMHTMLObjectElementWidth obj val = liftIO $ setObjectPropertyString obj "width" (Just val) constructDOMHTMLObjectElementWidth :: T.Text -> IO ([Char], GValue) -constructDOMHTMLObjectElementWidth val = constructObjectPropertyString "width" val +constructDOMHTMLObjectElementWidth val = constructObjectPropertyString "width" (Just val) data DOMHTMLObjectElementWidthPropertyInfo instance AttrInfo DOMHTMLObjectElementWidthPropertyInfo where type AttrAllowedOps DOMHTMLObjectElementWidthPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint DOMHTMLObjectElementWidthPropertyInfo = (~) T.Text type AttrBaseTypeConstraint DOMHTMLObjectElementWidthPropertyInfo = DOMHTMLObjectElementK - type AttrGetType DOMHTMLObjectElementWidthPropertyInfo = T.Text + type AttrGetType DOMHTMLObjectElementWidthPropertyInfo = (Maybe T.Text) type AttrLabel DOMHTMLObjectElementWidthPropertyInfo = "width" attrGet _ = getDOMHTMLObjectElementWidth attrSet _ = setDOMHTMLObjectElementWidth attrConstruct _ = constructDOMHTMLObjectElementWidth + attrClear _ = undefined -- VVV Prop "will-validate" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) getDOMHTMLObjectElementWillValidate :: (MonadIO m, DOMHTMLObjectElementK o) => o -> m Bool getDOMHTMLObjectElementWillValidate obj = liftIO $ getObjectPropertyBool obj "will-validate" @@ -1049,10 +1115,74 @@ attrGet _ = getDOMHTMLObjectElementWillValidate attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined type instance AttributeList DOMHTMLObjectElement = DOMHTMLObjectElementAttributeList type DOMHTMLObjectElementAttributeList = ('[ '("accessKey", DOMHTMLElementAccessKeyPropertyInfo), '("align", DOMHTMLObjectElementAlignPropertyInfo), '("archive", DOMHTMLObjectElementArchivePropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("baseUri", DOMNodeBaseUriPropertyInfo), '("border", DOMHTMLObjectElementBorderPropertyInfo), '("childElementCount", DOMElementChildElementCountPropertyInfo), '("childNodes", DOMNodeChildNodesPropertyInfo), '("children", DOMHTMLElementChildrenPropertyInfo), '("classList", DOMElementClassListPropertyInfo), '("className", DOMElementClassNamePropertyInfo), '("clientHeight", DOMElementClientHeightPropertyInfo), '("clientLeft", DOMElementClientLeftPropertyInfo), '("clientTop", DOMElementClientTopPropertyInfo), '("clientWidth", DOMElementClientWidthPropertyInfo), '("code", DOMHTMLObjectElementCodePropertyInfo), '("codeBase", DOMHTMLObjectElementCodeBasePropertyInfo), '("codeType", DOMHTMLObjectElementCodeTypePropertyInfo), '("contentDocument", DOMHTMLObjectElementContentDocumentPropertyInfo), '("contentEditable", DOMHTMLElementContentEditablePropertyInfo), '("coreObject", DOMObjectCoreObjectPropertyInfo), '("data", DOMHTMLObjectElementDataPropertyInfo), '("declare", DOMHTMLObjectElementDeclarePropertyInfo), '("dir", DOMHTMLElementDirPropertyInfo), '("draggable", DOMHTMLElementDraggablePropertyInfo), '("firstChild", DOMNodeFirstChildPropertyInfo), '("firstElementChild", DOMElementFirstElementChildPropertyInfo), '("form", DOMHTMLObjectElementFormPropertyInfo), '("height", DOMHTMLObjectElementHeightPropertyInfo), '("hidden", DOMHTMLElementHiddenPropertyInfo), '("hspace", DOMHTMLObjectElementHspacePropertyInfo), '("id", DOMElementIdPropertyInfo), '("innerHtml", DOMHTMLElementInnerHtmlPropertyInfo), '("innerText", DOMHTMLElementInnerTextPropertyInfo), '("isContentEditable", DOMHTMLElementIsContentEditablePropertyInfo), '("lang", DOMHTMLElementLangPropertyInfo), '("lastChild", DOMNodeLastChildPropertyInfo), '("lastElementChild", DOMElementLastElementChildPropertyInfo), '("localName", DOMNodeLocalNamePropertyInfo), '("name", DOMHTMLObjectElementNamePropertyInfo), '("namespaceUri", DOMNodeNamespaceUriPropertyInfo), '("nextElementSibling", DOMElementNextElementSiblingPropertyInfo), '("nextSibling", DOMNodeNextSiblingPropertyInfo), '("nodeName", DOMNodeNodeNamePropertyInfo), '("nodeType", DOMNodeNodeTypePropertyInfo), '("nodeValue", DOMNodeNodeValuePropertyInfo), '("offsetHeight", DOMElementOffsetHeightPropertyInfo), '("offsetLeft", DOMElementOffsetLeftPropertyInfo), '("offsetParent", DOMElementOffsetParentPropertyInfo), '("offsetTop", DOMElementOffsetTopPropertyInfo), '("offsetWidth", DOMElementOffsetWidthPropertyInfo), '("outerHtml", DOMHTMLElementOuterHtmlPropertyInfo), '("outerText", DOMHTMLElementOuterTextPropertyInfo), '("ownerDocument", DOMNodeOwnerDocumentPropertyInfo), '("parentElement", DOMNodeParentElementPropertyInfo), '("parentNode", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previousElementSibling", DOMElementPreviousElementSiblingPropertyInfo), '("previousSibling", DOMNodePreviousSiblingPropertyInfo), '("scrollHeight", DOMElementScrollHeightPropertyInfo), '("scrollLeft", DOMElementScrollLeftPropertyInfo), '("scrollTop", DOMElementScrollTopPropertyInfo), '("scrollWidth", DOMElementScrollWidthPropertyInfo), '("spellcheck", DOMHTMLElementSpellcheckPropertyInfo), '("standby", DOMHTMLObjectElementStandbyPropertyInfo), '("style", DOMElementStylePropertyInfo), '("tabIndex", DOMHTMLElementTabIndexPropertyInfo), '("tagName", DOMElementTagNamePropertyInfo), '("textContent", DOMNodeTextContentPropertyInfo), '("title", DOMHTMLElementTitlePropertyInfo), '("translate", DOMHTMLElementTranslatePropertyInfo), '("type", DOMHTMLObjectElementTypePropertyInfo), '("useMap", DOMHTMLObjectElementUseMapPropertyInfo), '("validationMessage", DOMHTMLObjectElementValidationMessagePropertyInfo), '("validity", DOMHTMLObjectElementValidityPropertyInfo), '("vspace", DOMHTMLObjectElementVspacePropertyInfo), '("webkitRegionOverset", DOMElementWebkitRegionOversetPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo), '("width", DOMHTMLObjectElementWidthPropertyInfo), '("willValidate", DOMHTMLObjectElementWillValidatePropertyInfo)] :: [(Symbol, *)]) +dOMHTMLObjectElementAlign :: AttrLabelProxy "align" +dOMHTMLObjectElementAlign = AttrLabelProxy + +dOMHTMLObjectElementArchive :: AttrLabelProxy "archive" +dOMHTMLObjectElementArchive = AttrLabelProxy + +dOMHTMLObjectElementBorder :: AttrLabelProxy "border" +dOMHTMLObjectElementBorder = AttrLabelProxy + +dOMHTMLObjectElementCode :: AttrLabelProxy "code" +dOMHTMLObjectElementCode = AttrLabelProxy + +dOMHTMLObjectElementCodeBase :: AttrLabelProxy "codeBase" +dOMHTMLObjectElementCodeBase = AttrLabelProxy + +dOMHTMLObjectElementCodeType :: AttrLabelProxy "codeType" +dOMHTMLObjectElementCodeType = AttrLabelProxy + +dOMHTMLObjectElementContentDocument :: AttrLabelProxy "contentDocument" +dOMHTMLObjectElementContentDocument = AttrLabelProxy + +dOMHTMLObjectElementData :: AttrLabelProxy "data" +dOMHTMLObjectElementData = AttrLabelProxy + +dOMHTMLObjectElementDeclare :: AttrLabelProxy "declare" +dOMHTMLObjectElementDeclare = AttrLabelProxy + +dOMHTMLObjectElementForm :: AttrLabelProxy "form" +dOMHTMLObjectElementForm = AttrLabelProxy + +dOMHTMLObjectElementHeight :: AttrLabelProxy "height" +dOMHTMLObjectElementHeight = AttrLabelProxy + +dOMHTMLObjectElementHspace :: AttrLabelProxy "hspace" +dOMHTMLObjectElementHspace = AttrLabelProxy + +dOMHTMLObjectElementName :: AttrLabelProxy "name" +dOMHTMLObjectElementName = AttrLabelProxy + +dOMHTMLObjectElementStandby :: AttrLabelProxy "standby" +dOMHTMLObjectElementStandby = AttrLabelProxy + +dOMHTMLObjectElementType :: AttrLabelProxy "type" +dOMHTMLObjectElementType = AttrLabelProxy + +dOMHTMLObjectElementUseMap :: AttrLabelProxy "useMap" +dOMHTMLObjectElementUseMap = AttrLabelProxy + +dOMHTMLObjectElementValidationMessage :: AttrLabelProxy "validationMessage" +dOMHTMLObjectElementValidationMessage = AttrLabelProxy + +dOMHTMLObjectElementValidity :: AttrLabelProxy "validity" +dOMHTMLObjectElementValidity = AttrLabelProxy + +dOMHTMLObjectElementVspace :: AttrLabelProxy "vspace" +dOMHTMLObjectElementVspace = AttrLabelProxy + +dOMHTMLObjectElementWidth :: AttrLabelProxy "width" +dOMHTMLObjectElementWidth = AttrLabelProxy + +dOMHTMLObjectElementWillValidate :: AttrLabelProxy "willValidate" +dOMHTMLObjectElementWillValidate = AttrLabelProxy + type instance SignalList DOMHTMLObjectElement = DOMHTMLObjectElementSignalList type DOMHTMLObjectElementSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) @@ -1060,7 +1190,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLObjectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -1088,7 +1218,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLObjectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -1118,7 +1248,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLObjectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -1148,7 +1278,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLObjectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -1178,7 +1308,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLObjectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -1208,7 +1338,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLObjectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -1238,7 +1368,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLObjectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -1268,7 +1398,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLObjectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit" "DOMDocument" +-- returnType : Just (TInterface "WebKit" "DOMDocument") -- throws : False -- Skip return : False @@ -1297,7 +1427,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLObjectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -1327,7 +1457,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLObjectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -1355,7 +1485,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLObjectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit" "DOMHTMLFormElement" +-- returnType : Just (TInterface "WebKit" "DOMHTMLFormElement") -- throws : False -- Skip return : False @@ -1384,7 +1514,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLObjectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -1414,19 +1544,19 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLObjectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TInt64 +-- returnType : Just (TBasicType TLong) -- throws : False -- Skip return : False foreign import ccall "webkit_dom_html_object_element_get_hspace" webkit_dom_html_object_element_get_hspace :: Ptr DOMHTMLObjectElement -> -- _obj : TInterface "WebKit" "DOMHTMLObjectElement" - IO Int64 + IO CLong dOMHTMLObjectElementGetHspace :: (MonadIO m, DOMHTMLObjectElementK a) => a -- _obj - -> m Int64 -- result + -> m CLong -- result dOMHTMLObjectElementGetHspace _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- webkit_dom_html_object_element_get_hspace _obj' @@ -1434,14 +1564,14 @@ return result data DOMHTMLObjectElementGetHspaceMethodInfo -instance (signature ~ (m Int64), MonadIO m, DOMHTMLObjectElementK a) => MethodInfo DOMHTMLObjectElementGetHspaceMethodInfo a signature where +instance (signature ~ (m CLong), MonadIO m, DOMHTMLObjectElementK a) => MethodInfo DOMHTMLObjectElementGetHspaceMethodInfo a signature where overloadedMethod _ = dOMHTMLObjectElementGetHspace -- method DOMHTMLObjectElement::get_name -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLObjectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -1471,7 +1601,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLObjectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -1501,7 +1631,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLObjectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -1531,7 +1661,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLObjectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -1561,7 +1691,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLObjectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit" "DOMValidityState" +-- returnType : Just (TInterface "WebKit" "DOMValidityState") -- throws : False -- Skip return : False @@ -1590,19 +1720,19 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLObjectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TInt64 +-- returnType : Just (TBasicType TLong) -- throws : False -- Skip return : False foreign import ccall "webkit_dom_html_object_element_get_vspace" webkit_dom_html_object_element_get_vspace :: Ptr DOMHTMLObjectElement -> -- _obj : TInterface "WebKit" "DOMHTMLObjectElement" - IO Int64 + IO CLong dOMHTMLObjectElementGetVspace :: (MonadIO m, DOMHTMLObjectElementK a) => a -- _obj - -> m Int64 -- result + -> m CLong -- result dOMHTMLObjectElementGetVspace _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- webkit_dom_html_object_element_get_vspace _obj' @@ -1610,14 +1740,14 @@ return result data DOMHTMLObjectElementGetVspaceMethodInfo -instance (signature ~ (m Int64), MonadIO m, DOMHTMLObjectElementK a) => MethodInfo DOMHTMLObjectElementGetVspaceMethodInfo a signature where +instance (signature ~ (m CLong), MonadIO m, DOMHTMLObjectElementK a) => MethodInfo DOMHTMLObjectElementGetVspaceMethodInfo a signature where overloadedMethod _ = dOMHTMLObjectElementGetVspace -- method DOMHTMLObjectElement::get_width -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLObjectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -1647,7 +1777,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLObjectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -1675,7 +1805,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLObjectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1706,7 +1836,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLObjectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1737,7 +1867,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLObjectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1768,7 +1898,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLObjectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1799,7 +1929,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLObjectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1830,7 +1960,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLObjectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1861,7 +1991,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLObjectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "error", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1892,7 +2022,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLObjectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1923,7 +2053,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLObjectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1953,7 +2083,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLObjectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1982,22 +2112,22 @@ -- method DOMHTMLObjectElement::set_hspace -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLObjectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLObjectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TLong, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "webkit_dom_html_object_element_set_hspace" webkit_dom_html_object_element_set_hspace :: Ptr DOMHTMLObjectElement -> -- _obj : TInterface "WebKit" "DOMHTMLObjectElement" - Int64 -> -- value : TBasicType TInt64 + CLong -> -- value : TBasicType TLong IO () dOMHTMLObjectElementSetHspace :: (MonadIO m, DOMHTMLObjectElementK a) => a -- _obj - -> Int64 -- value + -> CLong -- value -> m () -- result dOMHTMLObjectElementSetHspace _obj value = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj @@ -2006,14 +2136,14 @@ return () data DOMHTMLObjectElementSetHspaceMethodInfo -instance (signature ~ (Int64 -> m ()), MonadIO m, DOMHTMLObjectElementK a) => MethodInfo DOMHTMLObjectElementSetHspaceMethodInfo a signature where +instance (signature ~ (CLong -> m ()), MonadIO m, DOMHTMLObjectElementK a) => MethodInfo DOMHTMLObjectElementSetHspaceMethodInfo a signature where overloadedMethod _ = dOMHTMLObjectElementSetHspace -- method DOMHTMLObjectElement::set_name -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLObjectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -2044,7 +2174,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLObjectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -2075,7 +2205,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLObjectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -2104,22 +2234,22 @@ -- method DOMHTMLObjectElement::set_vspace -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLObjectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLObjectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TLong, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "webkit_dom_html_object_element_set_vspace" webkit_dom_html_object_element_set_vspace :: Ptr DOMHTMLObjectElement -> -- _obj : TInterface "WebKit" "DOMHTMLObjectElement" - Int64 -> -- value : TBasicType TInt64 + CLong -> -- value : TBasicType TLong IO () dOMHTMLObjectElementSetVspace :: (MonadIO m, DOMHTMLObjectElementK a) => a -- _obj - -> Int64 -- value + -> CLong -- value -> m () -- result dOMHTMLObjectElementSetVspace _obj value = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj @@ -2128,14 +2258,14 @@ return () data DOMHTMLObjectElementSetVspaceMethodInfo -instance (signature ~ (Int64 -> m ()), MonadIO m, DOMHTMLObjectElementK a) => MethodInfo DOMHTMLObjectElementSetVspaceMethodInfo a signature where +instance (signature ~ (CLong -> m ()), MonadIO m, DOMHTMLObjectElementK a) => MethodInfo DOMHTMLObjectElementSetVspaceMethodInfo a signature where overloadedMethod _ = dOMHTMLObjectElementSetVspace -- method DOMHTMLObjectElement::set_width -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLObjectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False diff --git a/GI/WebKit/Objects/DOMHTMLObjectElement.hs-boot b/GI/WebKit/Objects/DOMHTMLObjectElement.hs-boot --- a/GI/WebKit/Objects/DOMHTMLObjectElement.hs-boot +++ b/GI/WebKit/Objects/DOMHTMLObjectElement.hs-boot @@ -1,8 +1,8 @@ module GI.WebKit.Objects.DOMHTMLObjectElement where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map diff --git a/GI/WebKit/Objects/DOMHTMLOptGroupElement.hs b/GI/WebKit/Objects/DOMHTMLOptGroupElement.hs --- a/GI/WebKit/Objects/DOMHTMLOptGroupElement.hs +++ b/GI/WebKit/Objects/DOMHTMLOptGroupElement.hs @@ -43,6 +43,7 @@ -- ** Disabled DOMHTMLOptGroupElementDisabledPropertyInfo, constructDOMHTMLOptGroupElementDisabled , + dOMHTMLOptGroupElementDisabled , getDOMHTMLOptGroupElementDisabled , setDOMHTMLOptGroupElementDisabled , @@ -50,6 +51,7 @@ -- ** Label DOMHTMLOptGroupElementLabelPropertyInfo , constructDOMHTMLOptGroupElementLabel , + dOMHTMLOptGroupElementLabel , getDOMHTMLOptGroupElementLabel , setDOMHTMLOptGroupElementLabel , @@ -58,9 +60,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map @@ -262,6 +264,7 @@ -- VVV Prop "disabled" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getDOMHTMLOptGroupElementDisabled :: (MonadIO m, DOMHTMLOptGroupElementK o) => o -> m Bool getDOMHTMLOptGroupElementDisabled obj = liftIO $ getObjectPropertyBool obj "disabled" @@ -282,34 +285,43 @@ attrGet _ = getDOMHTMLOptGroupElementDisabled attrSet _ = setDOMHTMLOptGroupElementDisabled attrConstruct _ = constructDOMHTMLOptGroupElementDisabled + attrClear _ = undefined -- VVV Prop "label" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Just False) -getDOMHTMLOptGroupElementLabel :: (MonadIO m, DOMHTMLOptGroupElementK o) => o -> m T.Text +getDOMHTMLOptGroupElementLabel :: (MonadIO m, DOMHTMLOptGroupElementK o) => o -> m (Maybe T.Text) getDOMHTMLOptGroupElementLabel obj = liftIO $ getObjectPropertyString obj "label" setDOMHTMLOptGroupElementLabel :: (MonadIO m, DOMHTMLOptGroupElementK o) => o -> T.Text -> m () -setDOMHTMLOptGroupElementLabel obj val = liftIO $ setObjectPropertyString obj "label" val +setDOMHTMLOptGroupElementLabel obj val = liftIO $ setObjectPropertyString obj "label" (Just val) constructDOMHTMLOptGroupElementLabel :: T.Text -> IO ([Char], GValue) -constructDOMHTMLOptGroupElementLabel val = constructObjectPropertyString "label" val +constructDOMHTMLOptGroupElementLabel val = constructObjectPropertyString "label" (Just val) data DOMHTMLOptGroupElementLabelPropertyInfo instance AttrInfo DOMHTMLOptGroupElementLabelPropertyInfo where type AttrAllowedOps DOMHTMLOptGroupElementLabelPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint DOMHTMLOptGroupElementLabelPropertyInfo = (~) T.Text type AttrBaseTypeConstraint DOMHTMLOptGroupElementLabelPropertyInfo = DOMHTMLOptGroupElementK - type AttrGetType DOMHTMLOptGroupElementLabelPropertyInfo = T.Text + type AttrGetType DOMHTMLOptGroupElementLabelPropertyInfo = (Maybe T.Text) type AttrLabel DOMHTMLOptGroupElementLabelPropertyInfo = "label" attrGet _ = getDOMHTMLOptGroupElementLabel attrSet _ = setDOMHTMLOptGroupElementLabel attrConstruct _ = constructDOMHTMLOptGroupElementLabel + attrClear _ = undefined type instance AttributeList DOMHTMLOptGroupElement = DOMHTMLOptGroupElementAttributeList type DOMHTMLOptGroupElementAttributeList = ('[ '("accessKey", DOMHTMLElementAccessKeyPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("baseUri", DOMNodeBaseUriPropertyInfo), '("childElementCount", DOMElementChildElementCountPropertyInfo), '("childNodes", DOMNodeChildNodesPropertyInfo), '("children", DOMHTMLElementChildrenPropertyInfo), '("classList", DOMElementClassListPropertyInfo), '("className", DOMElementClassNamePropertyInfo), '("clientHeight", DOMElementClientHeightPropertyInfo), '("clientLeft", DOMElementClientLeftPropertyInfo), '("clientTop", DOMElementClientTopPropertyInfo), '("clientWidth", DOMElementClientWidthPropertyInfo), '("contentEditable", DOMHTMLElementContentEditablePropertyInfo), '("coreObject", DOMObjectCoreObjectPropertyInfo), '("dir", DOMHTMLElementDirPropertyInfo), '("disabled", DOMHTMLOptGroupElementDisabledPropertyInfo), '("draggable", DOMHTMLElementDraggablePropertyInfo), '("firstChild", DOMNodeFirstChildPropertyInfo), '("firstElementChild", DOMElementFirstElementChildPropertyInfo), '("hidden", DOMHTMLElementHiddenPropertyInfo), '("id", DOMElementIdPropertyInfo), '("innerHtml", DOMHTMLElementInnerHtmlPropertyInfo), '("innerText", DOMHTMLElementInnerTextPropertyInfo), '("isContentEditable", DOMHTMLElementIsContentEditablePropertyInfo), '("label", DOMHTMLOptGroupElementLabelPropertyInfo), '("lang", DOMHTMLElementLangPropertyInfo), '("lastChild", DOMNodeLastChildPropertyInfo), '("lastElementChild", DOMElementLastElementChildPropertyInfo), '("localName", DOMNodeLocalNamePropertyInfo), '("namespaceUri", DOMNodeNamespaceUriPropertyInfo), '("nextElementSibling", DOMElementNextElementSiblingPropertyInfo), '("nextSibling", DOMNodeNextSiblingPropertyInfo), '("nodeName", DOMNodeNodeNamePropertyInfo), '("nodeType", DOMNodeNodeTypePropertyInfo), '("nodeValue", DOMNodeNodeValuePropertyInfo), '("offsetHeight", DOMElementOffsetHeightPropertyInfo), '("offsetLeft", DOMElementOffsetLeftPropertyInfo), '("offsetParent", DOMElementOffsetParentPropertyInfo), '("offsetTop", DOMElementOffsetTopPropertyInfo), '("offsetWidth", DOMElementOffsetWidthPropertyInfo), '("outerHtml", DOMHTMLElementOuterHtmlPropertyInfo), '("outerText", DOMHTMLElementOuterTextPropertyInfo), '("ownerDocument", DOMNodeOwnerDocumentPropertyInfo), '("parentElement", DOMNodeParentElementPropertyInfo), '("parentNode", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previousElementSibling", DOMElementPreviousElementSiblingPropertyInfo), '("previousSibling", DOMNodePreviousSiblingPropertyInfo), '("scrollHeight", DOMElementScrollHeightPropertyInfo), '("scrollLeft", DOMElementScrollLeftPropertyInfo), '("scrollTop", DOMElementScrollTopPropertyInfo), '("scrollWidth", DOMElementScrollWidthPropertyInfo), '("spellcheck", DOMHTMLElementSpellcheckPropertyInfo), '("style", DOMElementStylePropertyInfo), '("tabIndex", DOMHTMLElementTabIndexPropertyInfo), '("tagName", DOMElementTagNamePropertyInfo), '("textContent", DOMNodeTextContentPropertyInfo), '("title", DOMHTMLElementTitlePropertyInfo), '("translate", DOMHTMLElementTranslatePropertyInfo), '("webkitRegionOverset", DOMElementWebkitRegionOversetPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo)] :: [(Symbol, *)]) +dOMHTMLOptGroupElementDisabled :: AttrLabelProxy "disabled" +dOMHTMLOptGroupElementDisabled = AttrLabelProxy + +dOMHTMLOptGroupElementLabel :: AttrLabelProxy "label" +dOMHTMLOptGroupElementLabel = AttrLabelProxy + type instance SignalList DOMHTMLOptGroupElement = DOMHTMLOptGroupElementSignalList type DOMHTMLOptGroupElementSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) @@ -317,7 +329,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLOptGroupElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -345,7 +357,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLOptGroupElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -375,7 +387,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLOptGroupElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -405,7 +417,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLOptGroupElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False diff --git a/GI/WebKit/Objects/DOMHTMLOptGroupElement.hs-boot b/GI/WebKit/Objects/DOMHTMLOptGroupElement.hs-boot --- a/GI/WebKit/Objects/DOMHTMLOptGroupElement.hs-boot +++ b/GI/WebKit/Objects/DOMHTMLOptGroupElement.hs-boot @@ -1,8 +1,8 @@ module GI.WebKit.Objects.DOMHTMLOptGroupElement where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map diff --git a/GI/WebKit/Objects/DOMHTMLOptionElement.hs b/GI/WebKit/Objects/DOMHTMLOptionElement.hs --- a/GI/WebKit/Objects/DOMHTMLOptionElement.hs +++ b/GI/WebKit/Objects/DOMHTMLOptionElement.hs @@ -88,6 +88,7 @@ -- ** DefaultSelected DOMHTMLOptionElementDefaultSelectedPropertyInfo, constructDOMHTMLOptionElementDefaultSelected, + dOMHTMLOptionElementDefaultSelected , getDOMHTMLOptionElementDefaultSelected , setDOMHTMLOptionElementDefaultSelected , @@ -95,23 +96,27 @@ -- ** Disabled DOMHTMLOptionElementDisabledPropertyInfo, constructDOMHTMLOptionElementDisabled , + dOMHTMLOptionElementDisabled , getDOMHTMLOptionElementDisabled , setDOMHTMLOptionElementDisabled , -- ** Form DOMHTMLOptionElementFormPropertyInfo , + dOMHTMLOptionElementForm , getDOMHTMLOptionElementForm , -- ** Index DOMHTMLOptionElementIndexPropertyInfo , + dOMHTMLOptionElementIndex , getDOMHTMLOptionElementIndex , -- ** Label DOMHTMLOptionElementLabelPropertyInfo , constructDOMHTMLOptionElementLabel , + dOMHTMLOptionElementLabel , getDOMHTMLOptionElementLabel , setDOMHTMLOptionElementLabel , @@ -119,18 +124,21 @@ -- ** Selected DOMHTMLOptionElementSelectedPropertyInfo, constructDOMHTMLOptionElementSelected , + dOMHTMLOptionElementSelected , getDOMHTMLOptionElementSelected , setDOMHTMLOptionElementSelected , -- ** Text DOMHTMLOptionElementTextPropertyInfo , + dOMHTMLOptionElementText , getDOMHTMLOptionElementText , -- ** Value DOMHTMLOptionElementValuePropertyInfo , constructDOMHTMLOptionElementValue , + dOMHTMLOptionElementValue , getDOMHTMLOptionElementValue , setDOMHTMLOptionElementValue , @@ -139,9 +147,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map @@ -352,6 +360,7 @@ -- VVV Prop "default-selected" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getDOMHTMLOptionElementDefaultSelected :: (MonadIO m, DOMHTMLOptionElementK o) => o -> m Bool getDOMHTMLOptionElementDefaultSelected obj = liftIO $ getObjectPropertyBool obj "default-selected" @@ -372,10 +381,12 @@ attrGet _ = getDOMHTMLOptionElementDefaultSelected attrSet _ = setDOMHTMLOptionElementDefaultSelected attrConstruct _ = constructDOMHTMLOptionElementDefaultSelected + attrClear _ = undefined -- VVV Prop "disabled" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getDOMHTMLOptionElementDisabled :: (MonadIO m, DOMHTMLOptionElementK o) => o -> m Bool getDOMHTMLOptionElementDisabled obj = liftIO $ getObjectPropertyBool obj "disabled" @@ -396,17 +407,19 @@ attrGet _ = getDOMHTMLOptionElementDisabled attrSet _ = setDOMHTMLOptionElementDisabled attrConstruct _ = constructDOMHTMLOptionElementDisabled + attrClear _ = undefined -- VVV Prop "form" -- Type: TInterface "WebKit" "DOMHTMLFormElement" -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) getDOMHTMLOptionElementForm :: (MonadIO m, DOMHTMLOptionElementK o) => o -> m DOMHTMLFormElement -getDOMHTMLOptionElementForm obj = liftIO $ getObjectPropertyObject obj "form" DOMHTMLFormElement +getDOMHTMLOptionElementForm obj = liftIO $ checkUnexpectedNothing "getDOMHTMLOptionElementForm" $ getObjectPropertyObject obj "form" DOMHTMLFormElement data DOMHTMLOptionElementFormPropertyInfo instance AttrInfo DOMHTMLOptionElementFormPropertyInfo where - type AttrAllowedOps DOMHTMLOptionElementFormPropertyInfo = '[ 'AttrGet] + type AttrAllowedOps DOMHTMLOptionElementFormPropertyInfo = '[ 'AttrGet, 'AttrClear] type AttrSetTypeConstraint DOMHTMLOptionElementFormPropertyInfo = (~) () type AttrBaseTypeConstraint DOMHTMLOptionElementFormPropertyInfo = DOMHTMLOptionElementK type AttrGetType DOMHTMLOptionElementFormPropertyInfo = DOMHTMLFormElement @@ -414,52 +427,58 @@ attrGet _ = getDOMHTMLOptionElementForm attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "index" - -- Type: TBasicType TInt64 + -- Type: TBasicType TLong -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) -getDOMHTMLOptionElementIndex :: (MonadIO m, DOMHTMLOptionElementK o) => o -> m Int64 -getDOMHTMLOptionElementIndex obj = liftIO $ getObjectPropertyInt64 obj "index" +getDOMHTMLOptionElementIndex :: (MonadIO m, DOMHTMLOptionElementK o) => o -> m CLong +getDOMHTMLOptionElementIndex obj = liftIO $ getObjectPropertyLong obj "index" data DOMHTMLOptionElementIndexPropertyInfo instance AttrInfo DOMHTMLOptionElementIndexPropertyInfo where type AttrAllowedOps DOMHTMLOptionElementIndexPropertyInfo = '[ 'AttrGet] type AttrSetTypeConstraint DOMHTMLOptionElementIndexPropertyInfo = (~) () type AttrBaseTypeConstraint DOMHTMLOptionElementIndexPropertyInfo = DOMHTMLOptionElementK - type AttrGetType DOMHTMLOptionElementIndexPropertyInfo = Int64 + type AttrGetType DOMHTMLOptionElementIndexPropertyInfo = CLong type AttrLabel DOMHTMLOptionElementIndexPropertyInfo = "index" attrGet _ = getDOMHTMLOptionElementIndex attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "label" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Just False) -getDOMHTMLOptionElementLabel :: (MonadIO m, DOMHTMLOptionElementK o) => o -> m T.Text +getDOMHTMLOptionElementLabel :: (MonadIO m, DOMHTMLOptionElementK o) => o -> m (Maybe T.Text) getDOMHTMLOptionElementLabel obj = liftIO $ getObjectPropertyString obj "label" setDOMHTMLOptionElementLabel :: (MonadIO m, DOMHTMLOptionElementK o) => o -> T.Text -> m () -setDOMHTMLOptionElementLabel obj val = liftIO $ setObjectPropertyString obj "label" val +setDOMHTMLOptionElementLabel obj val = liftIO $ setObjectPropertyString obj "label" (Just val) constructDOMHTMLOptionElementLabel :: T.Text -> IO ([Char], GValue) -constructDOMHTMLOptionElementLabel val = constructObjectPropertyString "label" val +constructDOMHTMLOptionElementLabel val = constructObjectPropertyString "label" (Just val) data DOMHTMLOptionElementLabelPropertyInfo instance AttrInfo DOMHTMLOptionElementLabelPropertyInfo where type AttrAllowedOps DOMHTMLOptionElementLabelPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint DOMHTMLOptionElementLabelPropertyInfo = (~) T.Text type AttrBaseTypeConstraint DOMHTMLOptionElementLabelPropertyInfo = DOMHTMLOptionElementK - type AttrGetType DOMHTMLOptionElementLabelPropertyInfo = T.Text + type AttrGetType DOMHTMLOptionElementLabelPropertyInfo = (Maybe T.Text) type AttrLabel DOMHTMLOptionElementLabelPropertyInfo = "label" attrGet _ = getDOMHTMLOptionElementLabel attrSet _ = setDOMHTMLOptionElementLabel attrConstruct _ = constructDOMHTMLOptionElementLabel + attrClear _ = undefined -- VVV Prop "selected" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getDOMHTMLOptionElementSelected :: (MonadIO m, DOMHTMLOptionElementK o) => o -> m Bool getDOMHTMLOptionElementSelected obj = liftIO $ getObjectPropertyBool obj "selected" @@ -480,52 +499,81 @@ attrGet _ = getDOMHTMLOptionElementSelected attrSet _ = setDOMHTMLOptionElementSelected attrConstruct _ = constructDOMHTMLOptionElementSelected + attrClear _ = undefined -- VVV Prop "text" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable] + -- Nullable: (Nothing,Nothing) -getDOMHTMLOptionElementText :: (MonadIO m, DOMHTMLOptionElementK o) => o -> m T.Text +getDOMHTMLOptionElementText :: (MonadIO m, DOMHTMLOptionElementK o) => o -> m (Maybe T.Text) getDOMHTMLOptionElementText obj = liftIO $ getObjectPropertyString obj "text" data DOMHTMLOptionElementTextPropertyInfo instance AttrInfo DOMHTMLOptionElementTextPropertyInfo where - type AttrAllowedOps DOMHTMLOptionElementTextPropertyInfo = '[ 'AttrGet] + type AttrAllowedOps DOMHTMLOptionElementTextPropertyInfo = '[ 'AttrGet, 'AttrClear] type AttrSetTypeConstraint DOMHTMLOptionElementTextPropertyInfo = (~) () type AttrBaseTypeConstraint DOMHTMLOptionElementTextPropertyInfo = DOMHTMLOptionElementK - type AttrGetType DOMHTMLOptionElementTextPropertyInfo = T.Text + type AttrGetType DOMHTMLOptionElementTextPropertyInfo = (Maybe T.Text) type AttrLabel DOMHTMLOptionElementTextPropertyInfo = "text" attrGet _ = getDOMHTMLOptionElementText attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "value" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Just False) -getDOMHTMLOptionElementValue :: (MonadIO m, DOMHTMLOptionElementK o) => o -> m T.Text +getDOMHTMLOptionElementValue :: (MonadIO m, DOMHTMLOptionElementK o) => o -> m (Maybe T.Text) getDOMHTMLOptionElementValue obj = liftIO $ getObjectPropertyString obj "value" setDOMHTMLOptionElementValue :: (MonadIO m, DOMHTMLOptionElementK o) => o -> T.Text -> m () -setDOMHTMLOptionElementValue obj val = liftIO $ setObjectPropertyString obj "value" val +setDOMHTMLOptionElementValue obj val = liftIO $ setObjectPropertyString obj "value" (Just val) constructDOMHTMLOptionElementValue :: T.Text -> IO ([Char], GValue) -constructDOMHTMLOptionElementValue val = constructObjectPropertyString "value" val +constructDOMHTMLOptionElementValue val = constructObjectPropertyString "value" (Just val) data DOMHTMLOptionElementValuePropertyInfo instance AttrInfo DOMHTMLOptionElementValuePropertyInfo where type AttrAllowedOps DOMHTMLOptionElementValuePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint DOMHTMLOptionElementValuePropertyInfo = (~) T.Text type AttrBaseTypeConstraint DOMHTMLOptionElementValuePropertyInfo = DOMHTMLOptionElementK - type AttrGetType DOMHTMLOptionElementValuePropertyInfo = T.Text + type AttrGetType DOMHTMLOptionElementValuePropertyInfo = (Maybe T.Text) type AttrLabel DOMHTMLOptionElementValuePropertyInfo = "value" attrGet _ = getDOMHTMLOptionElementValue attrSet _ = setDOMHTMLOptionElementValue attrConstruct _ = constructDOMHTMLOptionElementValue + attrClear _ = undefined type instance AttributeList DOMHTMLOptionElement = DOMHTMLOptionElementAttributeList type DOMHTMLOptionElementAttributeList = ('[ '("accessKey", DOMHTMLElementAccessKeyPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("baseUri", DOMNodeBaseUriPropertyInfo), '("childElementCount", DOMElementChildElementCountPropertyInfo), '("childNodes", DOMNodeChildNodesPropertyInfo), '("children", DOMHTMLElementChildrenPropertyInfo), '("classList", DOMElementClassListPropertyInfo), '("className", DOMElementClassNamePropertyInfo), '("clientHeight", DOMElementClientHeightPropertyInfo), '("clientLeft", DOMElementClientLeftPropertyInfo), '("clientTop", DOMElementClientTopPropertyInfo), '("clientWidth", DOMElementClientWidthPropertyInfo), '("contentEditable", DOMHTMLElementContentEditablePropertyInfo), '("coreObject", DOMObjectCoreObjectPropertyInfo), '("defaultSelected", DOMHTMLOptionElementDefaultSelectedPropertyInfo), '("dir", DOMHTMLElementDirPropertyInfo), '("disabled", DOMHTMLOptionElementDisabledPropertyInfo), '("draggable", DOMHTMLElementDraggablePropertyInfo), '("firstChild", DOMNodeFirstChildPropertyInfo), '("firstElementChild", DOMElementFirstElementChildPropertyInfo), '("form", DOMHTMLOptionElementFormPropertyInfo), '("hidden", DOMHTMLElementHiddenPropertyInfo), '("id", DOMElementIdPropertyInfo), '("index", DOMHTMLOptionElementIndexPropertyInfo), '("innerHtml", DOMHTMLElementInnerHtmlPropertyInfo), '("innerText", DOMHTMLElementInnerTextPropertyInfo), '("isContentEditable", DOMHTMLElementIsContentEditablePropertyInfo), '("label", DOMHTMLOptionElementLabelPropertyInfo), '("lang", DOMHTMLElementLangPropertyInfo), '("lastChild", DOMNodeLastChildPropertyInfo), '("lastElementChild", DOMElementLastElementChildPropertyInfo), '("localName", DOMNodeLocalNamePropertyInfo), '("namespaceUri", DOMNodeNamespaceUriPropertyInfo), '("nextElementSibling", DOMElementNextElementSiblingPropertyInfo), '("nextSibling", DOMNodeNextSiblingPropertyInfo), '("nodeName", DOMNodeNodeNamePropertyInfo), '("nodeType", DOMNodeNodeTypePropertyInfo), '("nodeValue", DOMNodeNodeValuePropertyInfo), '("offsetHeight", DOMElementOffsetHeightPropertyInfo), '("offsetLeft", DOMElementOffsetLeftPropertyInfo), '("offsetParent", DOMElementOffsetParentPropertyInfo), '("offsetTop", DOMElementOffsetTopPropertyInfo), '("offsetWidth", DOMElementOffsetWidthPropertyInfo), '("outerHtml", DOMHTMLElementOuterHtmlPropertyInfo), '("outerText", DOMHTMLElementOuterTextPropertyInfo), '("ownerDocument", DOMNodeOwnerDocumentPropertyInfo), '("parentElement", DOMNodeParentElementPropertyInfo), '("parentNode", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previousElementSibling", DOMElementPreviousElementSiblingPropertyInfo), '("previousSibling", DOMNodePreviousSiblingPropertyInfo), '("scrollHeight", DOMElementScrollHeightPropertyInfo), '("scrollLeft", DOMElementScrollLeftPropertyInfo), '("scrollTop", DOMElementScrollTopPropertyInfo), '("scrollWidth", DOMElementScrollWidthPropertyInfo), '("selected", DOMHTMLOptionElementSelectedPropertyInfo), '("spellcheck", DOMHTMLElementSpellcheckPropertyInfo), '("style", DOMElementStylePropertyInfo), '("tabIndex", DOMHTMLElementTabIndexPropertyInfo), '("tagName", DOMElementTagNamePropertyInfo), '("text", DOMHTMLOptionElementTextPropertyInfo), '("textContent", DOMNodeTextContentPropertyInfo), '("title", DOMHTMLElementTitlePropertyInfo), '("translate", DOMHTMLElementTranslatePropertyInfo), '("value", DOMHTMLOptionElementValuePropertyInfo), '("webkitRegionOverset", DOMElementWebkitRegionOversetPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo)] :: [(Symbol, *)]) +dOMHTMLOptionElementDefaultSelected :: AttrLabelProxy "defaultSelected" +dOMHTMLOptionElementDefaultSelected = AttrLabelProxy + +dOMHTMLOptionElementDisabled :: AttrLabelProxy "disabled" +dOMHTMLOptionElementDisabled = AttrLabelProxy + +dOMHTMLOptionElementForm :: AttrLabelProxy "form" +dOMHTMLOptionElementForm = AttrLabelProxy + +dOMHTMLOptionElementIndex :: AttrLabelProxy "index" +dOMHTMLOptionElementIndex = AttrLabelProxy + +dOMHTMLOptionElementLabel :: AttrLabelProxy "label" +dOMHTMLOptionElementLabel = AttrLabelProxy + +dOMHTMLOptionElementSelected :: AttrLabelProxy "selected" +dOMHTMLOptionElementSelected = AttrLabelProxy + +dOMHTMLOptionElementText :: AttrLabelProxy "text" +dOMHTMLOptionElementText = AttrLabelProxy + +dOMHTMLOptionElementValue :: AttrLabelProxy "value" +dOMHTMLOptionElementValue = AttrLabelProxy + type instance SignalList DOMHTMLOptionElement = DOMHTMLOptionElementSignalList type DOMHTMLOptionElementSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) @@ -533,7 +581,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLOptionElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -561,7 +609,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLOptionElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -589,7 +637,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLOptionElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit" "DOMHTMLFormElement" +-- returnType : Just (TInterface "WebKit" "DOMHTMLFormElement") -- throws : False -- Skip return : False @@ -618,19 +666,19 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLOptionElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TInt64 +-- returnType : Just (TBasicType TLong) -- throws : False -- Skip return : False foreign import ccall "webkit_dom_html_option_element_get_index" webkit_dom_html_option_element_get_index :: Ptr DOMHTMLOptionElement -> -- _obj : TInterface "WebKit" "DOMHTMLOptionElement" - IO Int64 + IO CLong dOMHTMLOptionElementGetIndex :: (MonadIO m, DOMHTMLOptionElementK a) => a -- _obj - -> m Int64 -- result + -> m CLong -- result dOMHTMLOptionElementGetIndex _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- webkit_dom_html_option_element_get_index _obj' @@ -638,14 +686,14 @@ return result data DOMHTMLOptionElementGetIndexMethodInfo -instance (signature ~ (m Int64), MonadIO m, DOMHTMLOptionElementK a) => MethodInfo DOMHTMLOptionElementGetIndexMethodInfo a signature where +instance (signature ~ (m CLong), MonadIO m, DOMHTMLOptionElementK a) => MethodInfo DOMHTMLOptionElementGetIndexMethodInfo a signature where overloadedMethod _ = dOMHTMLOptionElementGetIndex -- method DOMHTMLOptionElement::get_label -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLOptionElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -675,7 +723,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLOptionElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -703,7 +751,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLOptionElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -733,7 +781,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLOptionElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -763,7 +811,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLOptionElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -793,7 +841,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLOptionElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -823,7 +871,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLOptionElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -854,7 +902,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLOptionElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -884,7 +932,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLOptionElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False diff --git a/GI/WebKit/Objects/DOMHTMLOptionElement.hs-boot b/GI/WebKit/Objects/DOMHTMLOptionElement.hs-boot --- a/GI/WebKit/Objects/DOMHTMLOptionElement.hs-boot +++ b/GI/WebKit/Objects/DOMHTMLOptionElement.hs-boot @@ -1,8 +1,8 @@ module GI.WebKit.Objects.DOMHTMLOptionElement where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map diff --git a/GI/WebKit/Objects/DOMHTMLOptionsCollection.hs b/GI/WebKit/Objects/DOMHTMLOptionsCollection.hs --- a/GI/WebKit/Objects/DOMHTMLOptionsCollection.hs +++ b/GI/WebKit/Objects/DOMHTMLOptionsCollection.hs @@ -42,12 +42,14 @@ -- * Properties -- ** Length DOMHTMLOptionsCollectionLengthPropertyInfo, + dOMHTMLOptionsCollectionLength , getDOMHTMLOptionsCollectionLength , -- ** SelectedIndex DOMHTMLOptionsCollectionSelectedIndexPropertyInfo, constructDOMHTMLOptionsCollectionSelectedIndex, + dOMHTMLOptionsCollectionSelectedIndex , getDOMHTMLOptionsCollectionSelectedIndex, setDOMHTMLOptionsCollectionSelectedIndex, @@ -56,9 +58,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map @@ -125,50 +127,60 @@ #endif -- VVV Prop "length" - -- Type: TBasicType TUInt64 + -- Type: TBasicType TULong -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) -getDOMHTMLOptionsCollectionLength :: (MonadIO m, DOMHTMLOptionsCollectionK o) => o -> m Word64 -getDOMHTMLOptionsCollectionLength obj = liftIO $ getObjectPropertyUInt64 obj "length" +getDOMHTMLOptionsCollectionLength :: (MonadIO m, DOMHTMLOptionsCollectionK o) => o -> m CULong +getDOMHTMLOptionsCollectionLength obj = liftIO $ getObjectPropertyULong obj "length" data DOMHTMLOptionsCollectionLengthPropertyInfo instance AttrInfo DOMHTMLOptionsCollectionLengthPropertyInfo where type AttrAllowedOps DOMHTMLOptionsCollectionLengthPropertyInfo = '[ 'AttrGet] type AttrSetTypeConstraint DOMHTMLOptionsCollectionLengthPropertyInfo = (~) () type AttrBaseTypeConstraint DOMHTMLOptionsCollectionLengthPropertyInfo = DOMHTMLOptionsCollectionK - type AttrGetType DOMHTMLOptionsCollectionLengthPropertyInfo = Word64 + type AttrGetType DOMHTMLOptionsCollectionLengthPropertyInfo = CULong type AttrLabel DOMHTMLOptionsCollectionLengthPropertyInfo = "length" attrGet _ = getDOMHTMLOptionsCollectionLength attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "selected-index" - -- Type: TBasicType TInt64 + -- Type: TBasicType TLong -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) -getDOMHTMLOptionsCollectionSelectedIndex :: (MonadIO m, DOMHTMLOptionsCollectionK o) => o -> m Int64 -getDOMHTMLOptionsCollectionSelectedIndex obj = liftIO $ getObjectPropertyInt64 obj "selected-index" +getDOMHTMLOptionsCollectionSelectedIndex :: (MonadIO m, DOMHTMLOptionsCollectionK o) => o -> m CLong +getDOMHTMLOptionsCollectionSelectedIndex obj = liftIO $ getObjectPropertyLong obj "selected-index" -setDOMHTMLOptionsCollectionSelectedIndex :: (MonadIO m, DOMHTMLOptionsCollectionK o) => o -> Int64 -> m () -setDOMHTMLOptionsCollectionSelectedIndex obj val = liftIO $ setObjectPropertyInt64 obj "selected-index" val +setDOMHTMLOptionsCollectionSelectedIndex :: (MonadIO m, DOMHTMLOptionsCollectionK o) => o -> CLong -> m () +setDOMHTMLOptionsCollectionSelectedIndex obj val = liftIO $ setObjectPropertyLong obj "selected-index" val -constructDOMHTMLOptionsCollectionSelectedIndex :: Int64 -> IO ([Char], GValue) -constructDOMHTMLOptionsCollectionSelectedIndex val = constructObjectPropertyInt64 "selected-index" val +constructDOMHTMLOptionsCollectionSelectedIndex :: CLong -> IO ([Char], GValue) +constructDOMHTMLOptionsCollectionSelectedIndex val = constructObjectPropertyLong "selected-index" val data DOMHTMLOptionsCollectionSelectedIndexPropertyInfo instance AttrInfo DOMHTMLOptionsCollectionSelectedIndexPropertyInfo where type AttrAllowedOps DOMHTMLOptionsCollectionSelectedIndexPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLOptionsCollectionSelectedIndexPropertyInfo = (~) Int64 + type AttrSetTypeConstraint DOMHTMLOptionsCollectionSelectedIndexPropertyInfo = (~) CLong type AttrBaseTypeConstraint DOMHTMLOptionsCollectionSelectedIndexPropertyInfo = DOMHTMLOptionsCollectionK - type AttrGetType DOMHTMLOptionsCollectionSelectedIndexPropertyInfo = Int64 + type AttrGetType DOMHTMLOptionsCollectionSelectedIndexPropertyInfo = CLong type AttrLabel DOMHTMLOptionsCollectionSelectedIndexPropertyInfo = "selected-index" attrGet _ = getDOMHTMLOptionsCollectionSelectedIndex attrSet _ = setDOMHTMLOptionsCollectionSelectedIndex attrConstruct _ = constructDOMHTMLOptionsCollectionSelectedIndex + attrClear _ = undefined type instance AttributeList DOMHTMLOptionsCollection = DOMHTMLOptionsCollectionAttributeList type DOMHTMLOptionsCollectionAttributeList = ('[ '("coreObject", DOMObjectCoreObjectPropertyInfo), '("length", DOMHTMLOptionsCollectionLengthPropertyInfo), '("selectedIndex", DOMHTMLOptionsCollectionSelectedIndexPropertyInfo)] :: [(Symbol, *)]) +dOMHTMLOptionsCollectionLength :: AttrLabelProxy "length" +dOMHTMLOptionsCollectionLength = AttrLabelProxy + +dOMHTMLOptionsCollectionSelectedIndex :: AttrLabelProxy "selectedIndex" +dOMHTMLOptionsCollectionSelectedIndex = AttrLabelProxy + type instance SignalList DOMHTMLOptionsCollection = DOMHTMLOptionsCollectionSignalList type DOMHTMLOptionsCollectionSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) @@ -176,19 +188,19 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLOptionsCollection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUInt64 +-- returnType : Just (TBasicType TULong) -- throws : False -- Skip return : False foreign import ccall "webkit_dom_html_options_collection_get_length" webkit_dom_html_options_collection_get_length :: Ptr DOMHTMLOptionsCollection -> -- _obj : TInterface "WebKit" "DOMHTMLOptionsCollection" - IO Word64 + IO CULong dOMHTMLOptionsCollectionGetLength :: (MonadIO m, DOMHTMLOptionsCollectionK a) => a -- _obj - -> m Word64 -- result + -> m CULong -- result dOMHTMLOptionsCollectionGetLength _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- webkit_dom_html_options_collection_get_length _obj' @@ -196,26 +208,26 @@ return result data DOMHTMLOptionsCollectionGetLengthMethodInfo -instance (signature ~ (m Word64), MonadIO m, DOMHTMLOptionsCollectionK a) => MethodInfo DOMHTMLOptionsCollectionGetLengthMethodInfo a signature where +instance (signature ~ (m CULong), MonadIO m, DOMHTMLOptionsCollectionK a) => MethodInfo DOMHTMLOptionsCollectionGetLengthMethodInfo a signature where overloadedMethod _ = dOMHTMLOptionsCollectionGetLength -- method DOMHTMLOptionsCollection::get_selected_index -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLOptionsCollection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TInt64 +-- returnType : Just (TBasicType TLong) -- throws : False -- Skip return : False foreign import ccall "webkit_dom_html_options_collection_get_selected_index" webkit_dom_html_options_collection_get_selected_index :: Ptr DOMHTMLOptionsCollection -> -- _obj : TInterface "WebKit" "DOMHTMLOptionsCollection" - IO Int64 + IO CLong dOMHTMLOptionsCollectionGetSelectedIndex :: (MonadIO m, DOMHTMLOptionsCollectionK a) => a -- _obj - -> m Int64 -- result + -> m CLong -- result dOMHTMLOptionsCollectionGetSelectedIndex _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- webkit_dom_html_options_collection_get_selected_index _obj' @@ -223,14 +235,14 @@ return result data DOMHTMLOptionsCollectionGetSelectedIndexMethodInfo -instance (signature ~ (m Int64), MonadIO m, DOMHTMLOptionsCollectionK a) => MethodInfo DOMHTMLOptionsCollectionGetSelectedIndexMethodInfo a signature where +instance (signature ~ (m CLong), MonadIO m, DOMHTMLOptionsCollectionK a) => MethodInfo DOMHTMLOptionsCollectionGetSelectedIndexMethodInfo a signature where overloadedMethod _ = dOMHTMLOptionsCollectionGetSelectedIndex -- method DOMHTMLOptionsCollection::named_item -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLOptionsCollection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit" "DOMNode" +-- returnType : Just (TInterface "WebKit" "DOMNode") -- throws : False -- Skip return : False @@ -261,22 +273,22 @@ -- method DOMHTMLOptionsCollection::set_selected_index -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLOptionsCollection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLOptionsCollection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TLong, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "webkit_dom_html_options_collection_set_selected_index" webkit_dom_html_options_collection_set_selected_index :: Ptr DOMHTMLOptionsCollection -> -- _obj : TInterface "WebKit" "DOMHTMLOptionsCollection" - Int64 -> -- value : TBasicType TInt64 + CLong -> -- value : TBasicType TLong IO () dOMHTMLOptionsCollectionSetSelectedIndex :: (MonadIO m, DOMHTMLOptionsCollectionK a) => a -- _obj - -> Int64 -- value + -> CLong -- value -> m () -- result dOMHTMLOptionsCollectionSetSelectedIndex _obj value = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj @@ -285,7 +297,7 @@ return () data DOMHTMLOptionsCollectionSetSelectedIndexMethodInfo -instance (signature ~ (Int64 -> m ()), MonadIO m, DOMHTMLOptionsCollectionK a) => MethodInfo DOMHTMLOptionsCollectionSetSelectedIndexMethodInfo a signature where +instance (signature ~ (CLong -> m ()), MonadIO m, DOMHTMLOptionsCollectionK a) => MethodInfo DOMHTMLOptionsCollectionSetSelectedIndexMethodInfo a signature where overloadedMethod _ = dOMHTMLOptionsCollectionSetSelectedIndex diff --git a/GI/WebKit/Objects/DOMHTMLOptionsCollection.hs-boot b/GI/WebKit/Objects/DOMHTMLOptionsCollection.hs-boot --- a/GI/WebKit/Objects/DOMHTMLOptionsCollection.hs-boot +++ b/GI/WebKit/Objects/DOMHTMLOptionsCollection.hs-boot @@ -1,8 +1,8 @@ module GI.WebKit.Objects.DOMHTMLOptionsCollection where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map diff --git a/GI/WebKit/Objects/DOMHTMLParagraphElement.hs b/GI/WebKit/Objects/DOMHTMLParagraphElement.hs --- a/GI/WebKit/Objects/DOMHTMLParagraphElement.hs +++ b/GI/WebKit/Objects/DOMHTMLParagraphElement.hs @@ -33,6 +33,7 @@ -- ** Align DOMHTMLParagraphElementAlignPropertyInfo, constructDOMHTMLParagraphElementAlign , + dOMHTMLParagraphElementAlign , getDOMHTMLParagraphElementAlign , setDOMHTMLParagraphElementAlign , @@ -41,9 +42,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map @@ -243,30 +244,35 @@ -- VVV Prop "align" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Just False) -getDOMHTMLParagraphElementAlign :: (MonadIO m, DOMHTMLParagraphElementK o) => o -> m T.Text +getDOMHTMLParagraphElementAlign :: (MonadIO m, DOMHTMLParagraphElementK o) => o -> m (Maybe T.Text) getDOMHTMLParagraphElementAlign obj = liftIO $ getObjectPropertyString obj "align" setDOMHTMLParagraphElementAlign :: (MonadIO m, DOMHTMLParagraphElementK o) => o -> T.Text -> m () -setDOMHTMLParagraphElementAlign obj val = liftIO $ setObjectPropertyString obj "align" val +setDOMHTMLParagraphElementAlign obj val = liftIO $ setObjectPropertyString obj "align" (Just val) constructDOMHTMLParagraphElementAlign :: T.Text -> IO ([Char], GValue) -constructDOMHTMLParagraphElementAlign val = constructObjectPropertyString "align" val +constructDOMHTMLParagraphElementAlign val = constructObjectPropertyString "align" (Just val) data DOMHTMLParagraphElementAlignPropertyInfo instance AttrInfo DOMHTMLParagraphElementAlignPropertyInfo where type AttrAllowedOps DOMHTMLParagraphElementAlignPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint DOMHTMLParagraphElementAlignPropertyInfo = (~) T.Text type AttrBaseTypeConstraint DOMHTMLParagraphElementAlignPropertyInfo = DOMHTMLParagraphElementK - type AttrGetType DOMHTMLParagraphElementAlignPropertyInfo = T.Text + type AttrGetType DOMHTMLParagraphElementAlignPropertyInfo = (Maybe T.Text) type AttrLabel DOMHTMLParagraphElementAlignPropertyInfo = "align" attrGet _ = getDOMHTMLParagraphElementAlign attrSet _ = setDOMHTMLParagraphElementAlign attrConstruct _ = constructDOMHTMLParagraphElementAlign + attrClear _ = undefined type instance AttributeList DOMHTMLParagraphElement = DOMHTMLParagraphElementAttributeList type DOMHTMLParagraphElementAttributeList = ('[ '("accessKey", DOMHTMLElementAccessKeyPropertyInfo), '("align", DOMHTMLParagraphElementAlignPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("baseUri", DOMNodeBaseUriPropertyInfo), '("childElementCount", DOMElementChildElementCountPropertyInfo), '("childNodes", DOMNodeChildNodesPropertyInfo), '("children", DOMHTMLElementChildrenPropertyInfo), '("classList", DOMElementClassListPropertyInfo), '("className", DOMElementClassNamePropertyInfo), '("clientHeight", DOMElementClientHeightPropertyInfo), '("clientLeft", DOMElementClientLeftPropertyInfo), '("clientTop", DOMElementClientTopPropertyInfo), '("clientWidth", DOMElementClientWidthPropertyInfo), '("contentEditable", DOMHTMLElementContentEditablePropertyInfo), '("coreObject", DOMObjectCoreObjectPropertyInfo), '("dir", DOMHTMLElementDirPropertyInfo), '("draggable", DOMHTMLElementDraggablePropertyInfo), '("firstChild", DOMNodeFirstChildPropertyInfo), '("firstElementChild", DOMElementFirstElementChildPropertyInfo), '("hidden", DOMHTMLElementHiddenPropertyInfo), '("id", DOMElementIdPropertyInfo), '("innerHtml", DOMHTMLElementInnerHtmlPropertyInfo), '("innerText", DOMHTMLElementInnerTextPropertyInfo), '("isContentEditable", DOMHTMLElementIsContentEditablePropertyInfo), '("lang", DOMHTMLElementLangPropertyInfo), '("lastChild", DOMNodeLastChildPropertyInfo), '("lastElementChild", DOMElementLastElementChildPropertyInfo), '("localName", DOMNodeLocalNamePropertyInfo), '("namespaceUri", DOMNodeNamespaceUriPropertyInfo), '("nextElementSibling", DOMElementNextElementSiblingPropertyInfo), '("nextSibling", DOMNodeNextSiblingPropertyInfo), '("nodeName", DOMNodeNodeNamePropertyInfo), '("nodeType", DOMNodeNodeTypePropertyInfo), '("nodeValue", DOMNodeNodeValuePropertyInfo), '("offsetHeight", DOMElementOffsetHeightPropertyInfo), '("offsetLeft", DOMElementOffsetLeftPropertyInfo), '("offsetParent", DOMElementOffsetParentPropertyInfo), '("offsetTop", DOMElementOffsetTopPropertyInfo), '("offsetWidth", DOMElementOffsetWidthPropertyInfo), '("outerHtml", DOMHTMLElementOuterHtmlPropertyInfo), '("outerText", DOMHTMLElementOuterTextPropertyInfo), '("ownerDocument", DOMNodeOwnerDocumentPropertyInfo), '("parentElement", DOMNodeParentElementPropertyInfo), '("parentNode", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previousElementSibling", DOMElementPreviousElementSiblingPropertyInfo), '("previousSibling", DOMNodePreviousSiblingPropertyInfo), '("scrollHeight", DOMElementScrollHeightPropertyInfo), '("scrollLeft", DOMElementScrollLeftPropertyInfo), '("scrollTop", DOMElementScrollTopPropertyInfo), '("scrollWidth", DOMElementScrollWidthPropertyInfo), '("spellcheck", DOMHTMLElementSpellcheckPropertyInfo), '("style", DOMElementStylePropertyInfo), '("tabIndex", DOMHTMLElementTabIndexPropertyInfo), '("tagName", DOMElementTagNamePropertyInfo), '("textContent", DOMNodeTextContentPropertyInfo), '("title", DOMHTMLElementTitlePropertyInfo), '("translate", DOMHTMLElementTranslatePropertyInfo), '("webkitRegionOverset", DOMElementWebkitRegionOversetPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo)] :: [(Symbol, *)]) +dOMHTMLParagraphElementAlign :: AttrLabelProxy "align" +dOMHTMLParagraphElementAlign = AttrLabelProxy + type instance SignalList DOMHTMLParagraphElement = DOMHTMLParagraphElementSignalList type DOMHTMLParagraphElementSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) @@ -274,7 +280,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLParagraphElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -304,7 +310,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLParagraphElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False diff --git a/GI/WebKit/Objects/DOMHTMLParagraphElement.hs-boot b/GI/WebKit/Objects/DOMHTMLParagraphElement.hs-boot --- a/GI/WebKit/Objects/DOMHTMLParagraphElement.hs-boot +++ b/GI/WebKit/Objects/DOMHTMLParagraphElement.hs-boot @@ -1,8 +1,8 @@ module GI.WebKit.Objects.DOMHTMLParagraphElement where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map diff --git a/GI/WebKit/Objects/DOMHTMLParamElement.hs b/GI/WebKit/Objects/DOMHTMLParamElement.hs --- a/GI/WebKit/Objects/DOMHTMLParamElement.hs +++ b/GI/WebKit/Objects/DOMHTMLParamElement.hs @@ -53,13 +53,16 @@ -- ** Name DOMHTMLParamElementNamePropertyInfo , constructDOMHTMLParamElementName , + dOMHTMLParamElementName , getDOMHTMLParamElementName , setDOMHTMLParamElementName , -- ** Type DOMHTMLParamElementTypePropertyInfo , + clearDOMHTMLParamElementType , constructDOMHTMLParamElementType , + dOMHTMLParamElementType , getDOMHTMLParamElementType , setDOMHTMLParamElementType , @@ -67,6 +70,7 @@ -- ** Value DOMHTMLParamElementValuePropertyInfo , constructDOMHTMLParamElementValue , + dOMHTMLParamElementValue , getDOMHTMLParamElementValue , setDOMHTMLParamElementValue , @@ -74,6 +78,7 @@ -- ** ValueType DOMHTMLParamElementValueTypePropertyInfo, constructDOMHTMLParamElementValueType , + dOMHTMLParamElementValueType , getDOMHTMLParamElementValueType , setDOMHTMLParamElementValueType , @@ -82,9 +87,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map @@ -288,102 +293,125 @@ -- VVV Prop "name" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Just False) -getDOMHTMLParamElementName :: (MonadIO m, DOMHTMLParamElementK o) => o -> m T.Text +getDOMHTMLParamElementName :: (MonadIO m, DOMHTMLParamElementK o) => o -> m (Maybe T.Text) getDOMHTMLParamElementName obj = liftIO $ getObjectPropertyString obj "name" setDOMHTMLParamElementName :: (MonadIO m, DOMHTMLParamElementK o) => o -> T.Text -> m () -setDOMHTMLParamElementName obj val = liftIO $ setObjectPropertyString obj "name" val +setDOMHTMLParamElementName obj val = liftIO $ setObjectPropertyString obj "name" (Just val) constructDOMHTMLParamElementName :: T.Text -> IO ([Char], GValue) -constructDOMHTMLParamElementName val = constructObjectPropertyString "name" val +constructDOMHTMLParamElementName val = constructObjectPropertyString "name" (Just val) data DOMHTMLParamElementNamePropertyInfo instance AttrInfo DOMHTMLParamElementNamePropertyInfo where type AttrAllowedOps DOMHTMLParamElementNamePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint DOMHTMLParamElementNamePropertyInfo = (~) T.Text type AttrBaseTypeConstraint DOMHTMLParamElementNamePropertyInfo = DOMHTMLParamElementK - type AttrGetType DOMHTMLParamElementNamePropertyInfo = T.Text + type AttrGetType DOMHTMLParamElementNamePropertyInfo = (Maybe T.Text) type AttrLabel DOMHTMLParamElementNamePropertyInfo = "name" attrGet _ = getDOMHTMLParamElementName attrSet _ = setDOMHTMLParamElementName attrConstruct _ = constructDOMHTMLParamElementName + attrClear _ = undefined -- VVV Prop "type" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) -getDOMHTMLParamElementType :: (MonadIO m, DOMHTMLParamElementK o) => o -> m T.Text +getDOMHTMLParamElementType :: (MonadIO m, DOMHTMLParamElementK o) => o -> m (Maybe T.Text) getDOMHTMLParamElementType obj = liftIO $ getObjectPropertyString obj "type" setDOMHTMLParamElementType :: (MonadIO m, DOMHTMLParamElementK o) => o -> T.Text -> m () -setDOMHTMLParamElementType obj val = liftIO $ setObjectPropertyString obj "type" val +setDOMHTMLParamElementType obj val = liftIO $ setObjectPropertyString obj "type" (Just val) constructDOMHTMLParamElementType :: T.Text -> IO ([Char], GValue) -constructDOMHTMLParamElementType val = constructObjectPropertyString "type" val +constructDOMHTMLParamElementType val = constructObjectPropertyString "type" (Just val) +clearDOMHTMLParamElementType :: (MonadIO m, DOMHTMLParamElementK o) => o -> m () +clearDOMHTMLParamElementType obj = liftIO $ setObjectPropertyString obj "type" (Nothing :: Maybe T.Text) + data DOMHTMLParamElementTypePropertyInfo instance AttrInfo DOMHTMLParamElementTypePropertyInfo where - type AttrAllowedOps DOMHTMLParamElementTypePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrAllowedOps DOMHTMLParamElementTypePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint DOMHTMLParamElementTypePropertyInfo = (~) T.Text type AttrBaseTypeConstraint DOMHTMLParamElementTypePropertyInfo = DOMHTMLParamElementK - type AttrGetType DOMHTMLParamElementTypePropertyInfo = T.Text + type AttrGetType DOMHTMLParamElementTypePropertyInfo = (Maybe T.Text) type AttrLabel DOMHTMLParamElementTypePropertyInfo = "type" attrGet _ = getDOMHTMLParamElementType attrSet _ = setDOMHTMLParamElementType attrConstruct _ = constructDOMHTMLParamElementType + attrClear _ = clearDOMHTMLParamElementType -- VVV Prop "value" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Just False) -getDOMHTMLParamElementValue :: (MonadIO m, DOMHTMLParamElementK o) => o -> m T.Text +getDOMHTMLParamElementValue :: (MonadIO m, DOMHTMLParamElementK o) => o -> m (Maybe T.Text) getDOMHTMLParamElementValue obj = liftIO $ getObjectPropertyString obj "value" setDOMHTMLParamElementValue :: (MonadIO m, DOMHTMLParamElementK o) => o -> T.Text -> m () -setDOMHTMLParamElementValue obj val = liftIO $ setObjectPropertyString obj "value" val +setDOMHTMLParamElementValue obj val = liftIO $ setObjectPropertyString obj "value" (Just val) constructDOMHTMLParamElementValue :: T.Text -> IO ([Char], GValue) -constructDOMHTMLParamElementValue val = constructObjectPropertyString "value" val +constructDOMHTMLParamElementValue val = constructObjectPropertyString "value" (Just val) data DOMHTMLParamElementValuePropertyInfo instance AttrInfo DOMHTMLParamElementValuePropertyInfo where type AttrAllowedOps DOMHTMLParamElementValuePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint DOMHTMLParamElementValuePropertyInfo = (~) T.Text type AttrBaseTypeConstraint DOMHTMLParamElementValuePropertyInfo = DOMHTMLParamElementK - type AttrGetType DOMHTMLParamElementValuePropertyInfo = T.Text + type AttrGetType DOMHTMLParamElementValuePropertyInfo = (Maybe T.Text) type AttrLabel DOMHTMLParamElementValuePropertyInfo = "value" attrGet _ = getDOMHTMLParamElementValue attrSet _ = setDOMHTMLParamElementValue attrConstruct _ = constructDOMHTMLParamElementValue + attrClear _ = undefined -- VVV Prop "value-type" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Just False) -getDOMHTMLParamElementValueType :: (MonadIO m, DOMHTMLParamElementK o) => o -> m T.Text +getDOMHTMLParamElementValueType :: (MonadIO m, DOMHTMLParamElementK o) => o -> m (Maybe T.Text) getDOMHTMLParamElementValueType obj = liftIO $ getObjectPropertyString obj "value-type" setDOMHTMLParamElementValueType :: (MonadIO m, DOMHTMLParamElementK o) => o -> T.Text -> m () -setDOMHTMLParamElementValueType obj val = liftIO $ setObjectPropertyString obj "value-type" val +setDOMHTMLParamElementValueType obj val = liftIO $ setObjectPropertyString obj "value-type" (Just val) constructDOMHTMLParamElementValueType :: T.Text -> IO ([Char], GValue) -constructDOMHTMLParamElementValueType val = constructObjectPropertyString "value-type" val +constructDOMHTMLParamElementValueType val = constructObjectPropertyString "value-type" (Just val) data DOMHTMLParamElementValueTypePropertyInfo instance AttrInfo DOMHTMLParamElementValueTypePropertyInfo where type AttrAllowedOps DOMHTMLParamElementValueTypePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint DOMHTMLParamElementValueTypePropertyInfo = (~) T.Text type AttrBaseTypeConstraint DOMHTMLParamElementValueTypePropertyInfo = DOMHTMLParamElementK - type AttrGetType DOMHTMLParamElementValueTypePropertyInfo = T.Text + type AttrGetType DOMHTMLParamElementValueTypePropertyInfo = (Maybe T.Text) type AttrLabel DOMHTMLParamElementValueTypePropertyInfo = "value-type" attrGet _ = getDOMHTMLParamElementValueType attrSet _ = setDOMHTMLParamElementValueType attrConstruct _ = constructDOMHTMLParamElementValueType + attrClear _ = undefined type instance AttributeList DOMHTMLParamElement = DOMHTMLParamElementAttributeList type DOMHTMLParamElementAttributeList = ('[ '("accessKey", DOMHTMLElementAccessKeyPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("baseUri", DOMNodeBaseUriPropertyInfo), '("childElementCount", DOMElementChildElementCountPropertyInfo), '("childNodes", DOMNodeChildNodesPropertyInfo), '("children", DOMHTMLElementChildrenPropertyInfo), '("classList", DOMElementClassListPropertyInfo), '("className", DOMElementClassNamePropertyInfo), '("clientHeight", DOMElementClientHeightPropertyInfo), '("clientLeft", DOMElementClientLeftPropertyInfo), '("clientTop", DOMElementClientTopPropertyInfo), '("clientWidth", DOMElementClientWidthPropertyInfo), '("contentEditable", DOMHTMLElementContentEditablePropertyInfo), '("coreObject", DOMObjectCoreObjectPropertyInfo), '("dir", DOMHTMLElementDirPropertyInfo), '("draggable", DOMHTMLElementDraggablePropertyInfo), '("firstChild", DOMNodeFirstChildPropertyInfo), '("firstElementChild", DOMElementFirstElementChildPropertyInfo), '("hidden", DOMHTMLElementHiddenPropertyInfo), '("id", DOMElementIdPropertyInfo), '("innerHtml", DOMHTMLElementInnerHtmlPropertyInfo), '("innerText", DOMHTMLElementInnerTextPropertyInfo), '("isContentEditable", DOMHTMLElementIsContentEditablePropertyInfo), '("lang", DOMHTMLElementLangPropertyInfo), '("lastChild", DOMNodeLastChildPropertyInfo), '("lastElementChild", DOMElementLastElementChildPropertyInfo), '("localName", DOMNodeLocalNamePropertyInfo), '("name", DOMHTMLParamElementNamePropertyInfo), '("namespaceUri", DOMNodeNamespaceUriPropertyInfo), '("nextElementSibling", DOMElementNextElementSiblingPropertyInfo), '("nextSibling", DOMNodeNextSiblingPropertyInfo), '("nodeName", DOMNodeNodeNamePropertyInfo), '("nodeType", DOMNodeNodeTypePropertyInfo), '("nodeValue", DOMNodeNodeValuePropertyInfo), '("offsetHeight", DOMElementOffsetHeightPropertyInfo), '("offsetLeft", DOMElementOffsetLeftPropertyInfo), '("offsetParent", DOMElementOffsetParentPropertyInfo), '("offsetTop", DOMElementOffsetTopPropertyInfo), '("offsetWidth", DOMElementOffsetWidthPropertyInfo), '("outerHtml", DOMHTMLElementOuterHtmlPropertyInfo), '("outerText", DOMHTMLElementOuterTextPropertyInfo), '("ownerDocument", DOMNodeOwnerDocumentPropertyInfo), '("parentElement", DOMNodeParentElementPropertyInfo), '("parentNode", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previousElementSibling", DOMElementPreviousElementSiblingPropertyInfo), '("previousSibling", DOMNodePreviousSiblingPropertyInfo), '("scrollHeight", DOMElementScrollHeightPropertyInfo), '("scrollLeft", DOMElementScrollLeftPropertyInfo), '("scrollTop", DOMElementScrollTopPropertyInfo), '("scrollWidth", DOMElementScrollWidthPropertyInfo), '("spellcheck", DOMHTMLElementSpellcheckPropertyInfo), '("style", DOMElementStylePropertyInfo), '("tabIndex", DOMHTMLElementTabIndexPropertyInfo), '("tagName", DOMElementTagNamePropertyInfo), '("textContent", DOMNodeTextContentPropertyInfo), '("title", DOMHTMLElementTitlePropertyInfo), '("translate", DOMHTMLElementTranslatePropertyInfo), '("type", DOMHTMLParamElementTypePropertyInfo), '("value", DOMHTMLParamElementValuePropertyInfo), '("valueType", DOMHTMLParamElementValueTypePropertyInfo), '("webkitRegionOverset", DOMElementWebkitRegionOversetPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo)] :: [(Symbol, *)]) +dOMHTMLParamElementName :: AttrLabelProxy "name" +dOMHTMLParamElementName = AttrLabelProxy + +dOMHTMLParamElementType :: AttrLabelProxy "type" +dOMHTMLParamElementType = AttrLabelProxy + +dOMHTMLParamElementValue :: AttrLabelProxy "value" +dOMHTMLParamElementValue = AttrLabelProxy + +dOMHTMLParamElementValueType :: AttrLabelProxy "valueType" +dOMHTMLParamElementValueType = AttrLabelProxy + type instance SignalList DOMHTMLParamElement = DOMHTMLParamElementSignalList type DOMHTMLParamElementSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) @@ -391,7 +419,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLParamElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -421,7 +449,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLParamElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -451,7 +479,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLParamElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -481,7 +509,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLParamElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -512,7 +540,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLParamElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -543,7 +571,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLParamElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False diff --git a/GI/WebKit/Objects/DOMHTMLParamElement.hs-boot b/GI/WebKit/Objects/DOMHTMLParamElement.hs-boot --- a/GI/WebKit/Objects/DOMHTMLParamElement.hs-boot +++ b/GI/WebKit/Objects/DOMHTMLParamElement.hs-boot @@ -1,8 +1,8 @@ module GI.WebKit.Objects.DOMHTMLParamElement where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map diff --git a/GI/WebKit/Objects/DOMHTMLPreElement.hs b/GI/WebKit/Objects/DOMHTMLPreElement.hs --- a/GI/WebKit/Objects/DOMHTMLPreElement.hs +++ b/GI/WebKit/Objects/DOMHTMLPreElement.hs @@ -43,6 +43,7 @@ -- ** Width DOMHTMLPreElementWidthPropertyInfo , constructDOMHTMLPreElementWidth , + dOMHTMLPreElementWidth , getDOMHTMLPreElementWidth , setDOMHTMLPreElementWidth , @@ -50,6 +51,7 @@ -- ** Wrap DOMHTMLPreElementWrapPropertyInfo , constructDOMHTMLPreElementWrap , + dOMHTMLPreElementWrap , getDOMHTMLPreElementWrap , setDOMHTMLPreElementWrap , @@ -58,9 +60,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map @@ -260,32 +262,35 @@ #endif -- VVV Prop "width" - -- Type: TBasicType TInt64 + -- Type: TBasicType TLong -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) -getDOMHTMLPreElementWidth :: (MonadIO m, DOMHTMLPreElementK o) => o -> m Int64 -getDOMHTMLPreElementWidth obj = liftIO $ getObjectPropertyInt64 obj "width" +getDOMHTMLPreElementWidth :: (MonadIO m, DOMHTMLPreElementK o) => o -> m CLong +getDOMHTMLPreElementWidth obj = liftIO $ getObjectPropertyLong obj "width" -setDOMHTMLPreElementWidth :: (MonadIO m, DOMHTMLPreElementK o) => o -> Int64 -> m () -setDOMHTMLPreElementWidth obj val = liftIO $ setObjectPropertyInt64 obj "width" val +setDOMHTMLPreElementWidth :: (MonadIO m, DOMHTMLPreElementK o) => o -> CLong -> m () +setDOMHTMLPreElementWidth obj val = liftIO $ setObjectPropertyLong obj "width" val -constructDOMHTMLPreElementWidth :: Int64 -> IO ([Char], GValue) -constructDOMHTMLPreElementWidth val = constructObjectPropertyInt64 "width" val +constructDOMHTMLPreElementWidth :: CLong -> IO ([Char], GValue) +constructDOMHTMLPreElementWidth val = constructObjectPropertyLong "width" val data DOMHTMLPreElementWidthPropertyInfo instance AttrInfo DOMHTMLPreElementWidthPropertyInfo where type AttrAllowedOps DOMHTMLPreElementWidthPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLPreElementWidthPropertyInfo = (~) Int64 + type AttrSetTypeConstraint DOMHTMLPreElementWidthPropertyInfo = (~) CLong type AttrBaseTypeConstraint DOMHTMLPreElementWidthPropertyInfo = DOMHTMLPreElementK - type AttrGetType DOMHTMLPreElementWidthPropertyInfo = Int64 + type AttrGetType DOMHTMLPreElementWidthPropertyInfo = CLong type AttrLabel DOMHTMLPreElementWidthPropertyInfo = "width" attrGet _ = getDOMHTMLPreElementWidth attrSet _ = setDOMHTMLPreElementWidth attrConstruct _ = constructDOMHTMLPreElementWidth + attrClear _ = undefined -- VVV Prop "wrap" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getDOMHTMLPreElementWrap :: (MonadIO m, DOMHTMLPreElementK o) => o -> m Bool getDOMHTMLPreElementWrap obj = liftIO $ getObjectPropertyBool obj "wrap" @@ -306,10 +311,17 @@ attrGet _ = getDOMHTMLPreElementWrap attrSet _ = setDOMHTMLPreElementWrap attrConstruct _ = constructDOMHTMLPreElementWrap + attrClear _ = undefined type instance AttributeList DOMHTMLPreElement = DOMHTMLPreElementAttributeList type DOMHTMLPreElementAttributeList = ('[ '("accessKey", DOMHTMLElementAccessKeyPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("baseUri", DOMNodeBaseUriPropertyInfo), '("childElementCount", DOMElementChildElementCountPropertyInfo), '("childNodes", DOMNodeChildNodesPropertyInfo), '("children", DOMHTMLElementChildrenPropertyInfo), '("classList", DOMElementClassListPropertyInfo), '("className", DOMElementClassNamePropertyInfo), '("clientHeight", DOMElementClientHeightPropertyInfo), '("clientLeft", DOMElementClientLeftPropertyInfo), '("clientTop", DOMElementClientTopPropertyInfo), '("clientWidth", DOMElementClientWidthPropertyInfo), '("contentEditable", DOMHTMLElementContentEditablePropertyInfo), '("coreObject", DOMObjectCoreObjectPropertyInfo), '("dir", DOMHTMLElementDirPropertyInfo), '("draggable", DOMHTMLElementDraggablePropertyInfo), '("firstChild", DOMNodeFirstChildPropertyInfo), '("firstElementChild", DOMElementFirstElementChildPropertyInfo), '("hidden", DOMHTMLElementHiddenPropertyInfo), '("id", DOMElementIdPropertyInfo), '("innerHtml", DOMHTMLElementInnerHtmlPropertyInfo), '("innerText", DOMHTMLElementInnerTextPropertyInfo), '("isContentEditable", DOMHTMLElementIsContentEditablePropertyInfo), '("lang", DOMHTMLElementLangPropertyInfo), '("lastChild", DOMNodeLastChildPropertyInfo), '("lastElementChild", DOMElementLastElementChildPropertyInfo), '("localName", DOMNodeLocalNamePropertyInfo), '("namespaceUri", DOMNodeNamespaceUriPropertyInfo), '("nextElementSibling", DOMElementNextElementSiblingPropertyInfo), '("nextSibling", DOMNodeNextSiblingPropertyInfo), '("nodeName", DOMNodeNodeNamePropertyInfo), '("nodeType", DOMNodeNodeTypePropertyInfo), '("nodeValue", DOMNodeNodeValuePropertyInfo), '("offsetHeight", DOMElementOffsetHeightPropertyInfo), '("offsetLeft", DOMElementOffsetLeftPropertyInfo), '("offsetParent", DOMElementOffsetParentPropertyInfo), '("offsetTop", DOMElementOffsetTopPropertyInfo), '("offsetWidth", DOMElementOffsetWidthPropertyInfo), '("outerHtml", DOMHTMLElementOuterHtmlPropertyInfo), '("outerText", DOMHTMLElementOuterTextPropertyInfo), '("ownerDocument", DOMNodeOwnerDocumentPropertyInfo), '("parentElement", DOMNodeParentElementPropertyInfo), '("parentNode", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previousElementSibling", DOMElementPreviousElementSiblingPropertyInfo), '("previousSibling", DOMNodePreviousSiblingPropertyInfo), '("scrollHeight", DOMElementScrollHeightPropertyInfo), '("scrollLeft", DOMElementScrollLeftPropertyInfo), '("scrollTop", DOMElementScrollTopPropertyInfo), '("scrollWidth", DOMElementScrollWidthPropertyInfo), '("spellcheck", DOMHTMLElementSpellcheckPropertyInfo), '("style", DOMElementStylePropertyInfo), '("tabIndex", DOMHTMLElementTabIndexPropertyInfo), '("tagName", DOMElementTagNamePropertyInfo), '("textContent", DOMNodeTextContentPropertyInfo), '("title", DOMHTMLElementTitlePropertyInfo), '("translate", DOMHTMLElementTranslatePropertyInfo), '("webkitRegionOverset", DOMElementWebkitRegionOversetPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo), '("width", DOMHTMLPreElementWidthPropertyInfo), '("wrap", DOMHTMLPreElementWrapPropertyInfo)] :: [(Symbol, *)]) +dOMHTMLPreElementWidth :: AttrLabelProxy "width" +dOMHTMLPreElementWidth = AttrLabelProxy + +dOMHTMLPreElementWrap :: AttrLabelProxy "wrap" +dOMHTMLPreElementWrap = AttrLabelProxy + type instance SignalList DOMHTMLPreElement = DOMHTMLPreElementSignalList type DOMHTMLPreElementSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) @@ -317,19 +329,19 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLPreElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TInt64 +-- returnType : Just (TBasicType TLong) -- throws : False -- Skip return : False foreign import ccall "webkit_dom_html_pre_element_get_width" webkit_dom_html_pre_element_get_width :: Ptr DOMHTMLPreElement -> -- _obj : TInterface "WebKit" "DOMHTMLPreElement" - IO Int64 + IO CLong dOMHTMLPreElementGetWidth :: (MonadIO m, DOMHTMLPreElementK a) => a -- _obj - -> m Int64 -- result + -> m CLong -- result dOMHTMLPreElementGetWidth _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- webkit_dom_html_pre_element_get_width _obj' @@ -337,14 +349,14 @@ return result data DOMHTMLPreElementGetWidthMethodInfo -instance (signature ~ (m Int64), MonadIO m, DOMHTMLPreElementK a) => MethodInfo DOMHTMLPreElementGetWidthMethodInfo a signature where +instance (signature ~ (m CLong), MonadIO m, DOMHTMLPreElementK a) => MethodInfo DOMHTMLPreElementGetWidthMethodInfo a signature where overloadedMethod _ = dOMHTMLPreElementGetWidth -- method DOMHTMLPreElement::get_wrap -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLPreElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -370,22 +382,22 @@ -- method DOMHTMLPreElement::set_width -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLPreElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLPreElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TLong, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "webkit_dom_html_pre_element_set_width" webkit_dom_html_pre_element_set_width :: Ptr DOMHTMLPreElement -> -- _obj : TInterface "WebKit" "DOMHTMLPreElement" - Int64 -> -- value : TBasicType TInt64 + CLong -> -- value : TBasicType TLong IO () dOMHTMLPreElementSetWidth :: (MonadIO m, DOMHTMLPreElementK a) => a -- _obj - -> Int64 -- value + -> CLong -- value -> m () -- result dOMHTMLPreElementSetWidth _obj value = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj @@ -394,14 +406,14 @@ return () data DOMHTMLPreElementSetWidthMethodInfo -instance (signature ~ (Int64 -> m ()), MonadIO m, DOMHTMLPreElementK a) => MethodInfo DOMHTMLPreElementSetWidthMethodInfo a signature where +instance (signature ~ (CLong -> m ()), MonadIO m, DOMHTMLPreElementK a) => MethodInfo DOMHTMLPreElementSetWidthMethodInfo a signature where overloadedMethod _ = dOMHTMLPreElementSetWidth -- method DOMHTMLPreElement::set_wrap -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLPreElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False diff --git a/GI/WebKit/Objects/DOMHTMLPreElement.hs-boot b/GI/WebKit/Objects/DOMHTMLPreElement.hs-boot --- a/GI/WebKit/Objects/DOMHTMLPreElement.hs-boot +++ b/GI/WebKit/Objects/DOMHTMLPreElement.hs-boot @@ -1,8 +1,8 @@ module GI.WebKit.Objects.DOMHTMLPreElement where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map diff --git a/GI/WebKit/Objects/DOMHTMLPropertiesCollection.hs b/GI/WebKit/Objects/DOMHTMLPropertiesCollection.hs --- a/GI/WebKit/Objects/DOMHTMLPropertiesCollection.hs +++ b/GI/WebKit/Objects/DOMHTMLPropertiesCollection.hs @@ -38,11 +38,13 @@ -- * Properties -- ** Length DOMHTMLPropertiesCollectionLengthPropertyInfo, + dOMHTMLPropertiesCollectionLength , getDOMHTMLPropertiesCollectionLength , -- ** Names DOMHTMLPropertiesCollectionNamesPropertyInfo, + dOMHTMLPropertiesCollectionNames , getDOMHTMLPropertiesCollectionNames , @@ -50,9 +52,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map @@ -116,78 +118,88 @@ #endif -- VVV Prop "length" - -- Type: TBasicType TUInt64 + -- Type: TBasicType TULong -- Flags: [PropertyReadable] + -- Nullable: (Nothing,Nothing) -getDOMHTMLPropertiesCollectionLength :: (MonadIO m, DOMHTMLPropertiesCollectionK o) => o -> m Word64 -getDOMHTMLPropertiesCollectionLength obj = liftIO $ getObjectPropertyUInt64 obj "length" +getDOMHTMLPropertiesCollectionLength :: (MonadIO m, DOMHTMLPropertiesCollectionK o) => o -> m CULong +getDOMHTMLPropertiesCollectionLength obj = liftIO $ getObjectPropertyULong obj "length" data DOMHTMLPropertiesCollectionLengthPropertyInfo instance AttrInfo DOMHTMLPropertiesCollectionLengthPropertyInfo where type AttrAllowedOps DOMHTMLPropertiesCollectionLengthPropertyInfo = '[ 'AttrGet] type AttrSetTypeConstraint DOMHTMLPropertiesCollectionLengthPropertyInfo = (~) () type AttrBaseTypeConstraint DOMHTMLPropertiesCollectionLengthPropertyInfo = DOMHTMLPropertiesCollectionK - type AttrGetType DOMHTMLPropertiesCollectionLengthPropertyInfo = Word64 + type AttrGetType DOMHTMLPropertiesCollectionLengthPropertyInfo = CULong type AttrLabel DOMHTMLPropertiesCollectionLengthPropertyInfo = "length" attrGet _ = getDOMHTMLPropertiesCollectionLength attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "names" -- Type: TInterface "WebKit" "DOMDOMStringList" -- Flags: [PropertyReadable] + -- Nullable: (Nothing,Nothing) -getDOMHTMLPropertiesCollectionNames :: (MonadIO m, DOMHTMLPropertiesCollectionK o) => o -> m DOMDOMStringList +getDOMHTMLPropertiesCollectionNames :: (MonadIO m, DOMHTMLPropertiesCollectionK o) => o -> m (Maybe DOMDOMStringList) getDOMHTMLPropertiesCollectionNames obj = liftIO $ getObjectPropertyObject obj "names" DOMDOMStringList data DOMHTMLPropertiesCollectionNamesPropertyInfo instance AttrInfo DOMHTMLPropertiesCollectionNamesPropertyInfo where - type AttrAllowedOps DOMHTMLPropertiesCollectionNamesPropertyInfo = '[ 'AttrGet] + type AttrAllowedOps DOMHTMLPropertiesCollectionNamesPropertyInfo = '[ 'AttrGet, 'AttrClear] type AttrSetTypeConstraint DOMHTMLPropertiesCollectionNamesPropertyInfo = (~) () type AttrBaseTypeConstraint DOMHTMLPropertiesCollectionNamesPropertyInfo = DOMHTMLPropertiesCollectionK - type AttrGetType DOMHTMLPropertiesCollectionNamesPropertyInfo = DOMDOMStringList + type AttrGetType DOMHTMLPropertiesCollectionNamesPropertyInfo = (Maybe DOMDOMStringList) type AttrLabel DOMHTMLPropertiesCollectionNamesPropertyInfo = "names" attrGet _ = getDOMHTMLPropertiesCollectionNames attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined type instance AttributeList DOMHTMLPropertiesCollection = DOMHTMLPropertiesCollectionAttributeList type DOMHTMLPropertiesCollectionAttributeList = ('[ '("coreObject", DOMObjectCoreObjectPropertyInfo), '("length", DOMHTMLPropertiesCollectionLengthPropertyInfo), '("names", DOMHTMLPropertiesCollectionNamesPropertyInfo)] :: [(Symbol, *)]) +dOMHTMLPropertiesCollectionLength :: AttrLabelProxy "length" +dOMHTMLPropertiesCollectionLength = AttrLabelProxy + +dOMHTMLPropertiesCollectionNames :: AttrLabelProxy "names" +dOMHTMLPropertiesCollectionNames = AttrLabelProxy + type instance SignalList DOMHTMLPropertiesCollection = DOMHTMLPropertiesCollectionSignalList type DOMHTMLPropertiesCollectionSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) -- method DOMHTMLPropertiesCollection::get_length -- method type : MemberFunction --- Args : [Arg {argCName = "self", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "self", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUInt64 +-- returnType : Just (TBasicType TULong) -- throws : False -- Skip return : False foreign import ccall "webkit_dom_html_properties_collection_get_length" webkit_dom_html_properties_collection_get_length :: - Ptr () -> -- self : TBasicType TVoid - IO Word64 + Ptr () -> -- self : TBasicType TPtr + IO CULong {-# DEPRECATED dOMHTMLPropertiesCollectionGetLength ["(Since version 2.2)"]#-} dOMHTMLPropertiesCollectionGetLength :: (MonadIO m) => Ptr () -- self - -> m Word64 -- result + -> m CULong -- result dOMHTMLPropertiesCollectionGetLength self = liftIO $ do result <- webkit_dom_html_properties_collection_get_length self return result -- method DOMHTMLPropertiesCollection::get_names -- method type : MemberFunction --- Args : [Arg {argCName = "self", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "self", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit" "DOMDOMStringList" +-- returnType : Just (TInterface "WebKit" "DOMDOMStringList") -- throws : False -- Skip return : False foreign import ccall "webkit_dom_html_properties_collection_get_names" webkit_dom_html_properties_collection_get_names :: - Ptr () -> -- self : TBasicType TVoid + Ptr () -> -- self : TBasicType TPtr IO (Ptr DOMDOMStringList) {-# DEPRECATED dOMHTMLPropertiesCollectionGetNames ["(Since version 2.2)"]#-} @@ -203,22 +215,22 @@ -- method DOMHTMLPropertiesCollection::item -- method type : MemberFunction --- Args : [Arg {argCName = "self", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "index", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "self", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "index", argType = TBasicType TULong, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit" "DOMNode" +-- returnType : Just (TInterface "WebKit" "DOMNode") -- throws : False -- Skip return : False foreign import ccall "webkit_dom_html_properties_collection_item" webkit_dom_html_properties_collection_item :: - Ptr () -> -- self : TBasicType TVoid - Word64 -> -- index : TBasicType TUInt64 + Ptr () -> -- self : TBasicType TPtr + CULong -> -- index : TBasicType TULong IO (Ptr DOMNode) {-# DEPRECATED dOMHTMLPropertiesCollectionItem ["(Since version 2.2)"]#-} dOMHTMLPropertiesCollectionItem :: (MonadIO m) => Ptr () -- self - -> Word64 -- index + -> CULong -- index -> m DOMNode -- result dOMHTMLPropertiesCollectionItem self index = liftIO $ do result <- webkit_dom_html_properties_collection_item self index @@ -228,27 +240,27 @@ -- method DOMHTMLPropertiesCollection::named_item -- method type : MemberFunction --- Args : [Arg {argCName = "self", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "self", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Just (TBasicType TPtr) -- throws : False -- Skip return : False foreign import ccall "webkit_dom_html_properties_collection_named_item" webkit_dom_html_properties_collection_named_item :: - Ptr () -> -- self : TBasicType TVoid + Ptr () -> -- self : TBasicType TPtr CString -> -- name : TBasicType TUTF8 - IO () + IO (Ptr ()) {-# DEPRECATED dOMHTMLPropertiesCollectionNamedItem ["(Since version 2.2)"]#-} dOMHTMLPropertiesCollectionNamedItem :: (MonadIO m) => Ptr () -- self -> T.Text -- name - -> m () -- result + -> m (Ptr ()) -- result dOMHTMLPropertiesCollectionNamedItem self name = liftIO $ do name' <- textToCString name - webkit_dom_html_properties_collection_named_item self name' + result <- webkit_dom_html_properties_collection_named_item self name' freeMem name' - return () + return result diff --git a/GI/WebKit/Objects/DOMHTMLPropertiesCollection.hs-boot b/GI/WebKit/Objects/DOMHTMLPropertiesCollection.hs-boot --- a/GI/WebKit/Objects/DOMHTMLPropertiesCollection.hs-boot +++ b/GI/WebKit/Objects/DOMHTMLPropertiesCollection.hs-boot @@ -1,8 +1,8 @@ module GI.WebKit.Objects.DOMHTMLPropertiesCollection where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map diff --git a/GI/WebKit/Objects/DOMHTMLQuoteElement.hs b/GI/WebKit/Objects/DOMHTMLQuoteElement.hs --- a/GI/WebKit/Objects/DOMHTMLQuoteElement.hs +++ b/GI/WebKit/Objects/DOMHTMLQuoteElement.hs @@ -33,6 +33,7 @@ -- ** Cite DOMHTMLQuoteElementCitePropertyInfo , constructDOMHTMLQuoteElementCite , + dOMHTMLQuoteElementCite , getDOMHTMLQuoteElementCite , setDOMHTMLQuoteElementCite , @@ -41,9 +42,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map @@ -243,30 +244,35 @@ -- VVV Prop "cite" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Just False) -getDOMHTMLQuoteElementCite :: (MonadIO m, DOMHTMLQuoteElementK o) => o -> m T.Text +getDOMHTMLQuoteElementCite :: (MonadIO m, DOMHTMLQuoteElementK o) => o -> m (Maybe T.Text) getDOMHTMLQuoteElementCite obj = liftIO $ getObjectPropertyString obj "cite" setDOMHTMLQuoteElementCite :: (MonadIO m, DOMHTMLQuoteElementK o) => o -> T.Text -> m () -setDOMHTMLQuoteElementCite obj val = liftIO $ setObjectPropertyString obj "cite" val +setDOMHTMLQuoteElementCite obj val = liftIO $ setObjectPropertyString obj "cite" (Just val) constructDOMHTMLQuoteElementCite :: T.Text -> IO ([Char], GValue) -constructDOMHTMLQuoteElementCite val = constructObjectPropertyString "cite" val +constructDOMHTMLQuoteElementCite val = constructObjectPropertyString "cite" (Just val) data DOMHTMLQuoteElementCitePropertyInfo instance AttrInfo DOMHTMLQuoteElementCitePropertyInfo where type AttrAllowedOps DOMHTMLQuoteElementCitePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint DOMHTMLQuoteElementCitePropertyInfo = (~) T.Text type AttrBaseTypeConstraint DOMHTMLQuoteElementCitePropertyInfo = DOMHTMLQuoteElementK - type AttrGetType DOMHTMLQuoteElementCitePropertyInfo = T.Text + type AttrGetType DOMHTMLQuoteElementCitePropertyInfo = (Maybe T.Text) type AttrLabel DOMHTMLQuoteElementCitePropertyInfo = "cite" attrGet _ = getDOMHTMLQuoteElementCite attrSet _ = setDOMHTMLQuoteElementCite attrConstruct _ = constructDOMHTMLQuoteElementCite + attrClear _ = undefined type instance AttributeList DOMHTMLQuoteElement = DOMHTMLQuoteElementAttributeList type DOMHTMLQuoteElementAttributeList = ('[ '("accessKey", DOMHTMLElementAccessKeyPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("baseUri", DOMNodeBaseUriPropertyInfo), '("childElementCount", DOMElementChildElementCountPropertyInfo), '("childNodes", DOMNodeChildNodesPropertyInfo), '("children", DOMHTMLElementChildrenPropertyInfo), '("cite", DOMHTMLQuoteElementCitePropertyInfo), '("classList", DOMElementClassListPropertyInfo), '("className", DOMElementClassNamePropertyInfo), '("clientHeight", DOMElementClientHeightPropertyInfo), '("clientLeft", DOMElementClientLeftPropertyInfo), '("clientTop", DOMElementClientTopPropertyInfo), '("clientWidth", DOMElementClientWidthPropertyInfo), '("contentEditable", DOMHTMLElementContentEditablePropertyInfo), '("coreObject", DOMObjectCoreObjectPropertyInfo), '("dir", DOMHTMLElementDirPropertyInfo), '("draggable", DOMHTMLElementDraggablePropertyInfo), '("firstChild", DOMNodeFirstChildPropertyInfo), '("firstElementChild", DOMElementFirstElementChildPropertyInfo), '("hidden", DOMHTMLElementHiddenPropertyInfo), '("id", DOMElementIdPropertyInfo), '("innerHtml", DOMHTMLElementInnerHtmlPropertyInfo), '("innerText", DOMHTMLElementInnerTextPropertyInfo), '("isContentEditable", DOMHTMLElementIsContentEditablePropertyInfo), '("lang", DOMHTMLElementLangPropertyInfo), '("lastChild", DOMNodeLastChildPropertyInfo), '("lastElementChild", DOMElementLastElementChildPropertyInfo), '("localName", DOMNodeLocalNamePropertyInfo), '("namespaceUri", DOMNodeNamespaceUriPropertyInfo), '("nextElementSibling", DOMElementNextElementSiblingPropertyInfo), '("nextSibling", DOMNodeNextSiblingPropertyInfo), '("nodeName", DOMNodeNodeNamePropertyInfo), '("nodeType", DOMNodeNodeTypePropertyInfo), '("nodeValue", DOMNodeNodeValuePropertyInfo), '("offsetHeight", DOMElementOffsetHeightPropertyInfo), '("offsetLeft", DOMElementOffsetLeftPropertyInfo), '("offsetParent", DOMElementOffsetParentPropertyInfo), '("offsetTop", DOMElementOffsetTopPropertyInfo), '("offsetWidth", DOMElementOffsetWidthPropertyInfo), '("outerHtml", DOMHTMLElementOuterHtmlPropertyInfo), '("outerText", DOMHTMLElementOuterTextPropertyInfo), '("ownerDocument", DOMNodeOwnerDocumentPropertyInfo), '("parentElement", DOMNodeParentElementPropertyInfo), '("parentNode", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previousElementSibling", DOMElementPreviousElementSiblingPropertyInfo), '("previousSibling", DOMNodePreviousSiblingPropertyInfo), '("scrollHeight", DOMElementScrollHeightPropertyInfo), '("scrollLeft", DOMElementScrollLeftPropertyInfo), '("scrollTop", DOMElementScrollTopPropertyInfo), '("scrollWidth", DOMElementScrollWidthPropertyInfo), '("spellcheck", DOMHTMLElementSpellcheckPropertyInfo), '("style", DOMElementStylePropertyInfo), '("tabIndex", DOMHTMLElementTabIndexPropertyInfo), '("tagName", DOMElementTagNamePropertyInfo), '("textContent", DOMNodeTextContentPropertyInfo), '("title", DOMHTMLElementTitlePropertyInfo), '("translate", DOMHTMLElementTranslatePropertyInfo), '("webkitRegionOverset", DOMElementWebkitRegionOversetPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo)] :: [(Symbol, *)]) +dOMHTMLQuoteElementCite :: AttrLabelProxy "cite" +dOMHTMLQuoteElementCite = AttrLabelProxy + type instance SignalList DOMHTMLQuoteElement = DOMHTMLQuoteElementSignalList type DOMHTMLQuoteElementSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) @@ -274,7 +280,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLQuoteElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -304,7 +310,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLQuoteElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False diff --git a/GI/WebKit/Objects/DOMHTMLQuoteElement.hs-boot b/GI/WebKit/Objects/DOMHTMLQuoteElement.hs-boot --- a/GI/WebKit/Objects/DOMHTMLQuoteElement.hs-boot +++ b/GI/WebKit/Objects/DOMHTMLQuoteElement.hs-boot @@ -1,8 +1,8 @@ module GI.WebKit.Objects.DOMHTMLQuoteElement where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map diff --git a/GI/WebKit/Objects/DOMHTMLScriptElement.hs b/GI/WebKit/Objects/DOMHTMLScriptElement.hs --- a/GI/WebKit/Objects/DOMHTMLScriptElement.hs +++ b/GI/WebKit/Objects/DOMHTMLScriptElement.hs @@ -113,6 +113,7 @@ -- ** Async DOMHTMLScriptElementAsyncPropertyInfo , constructDOMHTMLScriptElementAsync , + dOMHTMLScriptElementAsync , getDOMHTMLScriptElementAsync , setDOMHTMLScriptElementAsync , @@ -120,6 +121,7 @@ -- ** Charset DOMHTMLScriptElementCharsetPropertyInfo , constructDOMHTMLScriptElementCharset , + dOMHTMLScriptElementCharset , getDOMHTMLScriptElementCharset , setDOMHTMLScriptElementCharset , @@ -127,6 +129,7 @@ -- ** CrossOrigin DOMHTMLScriptElementCrossOriginPropertyInfo, constructDOMHTMLScriptElementCrossOrigin, + dOMHTMLScriptElementCrossOrigin , getDOMHTMLScriptElementCrossOrigin , setDOMHTMLScriptElementCrossOrigin , @@ -134,6 +137,7 @@ -- ** Defer DOMHTMLScriptElementDeferPropertyInfo , constructDOMHTMLScriptElementDefer , + dOMHTMLScriptElementDefer , getDOMHTMLScriptElementDefer , setDOMHTMLScriptElementDefer , @@ -141,6 +145,7 @@ -- ** Event DOMHTMLScriptElementEventPropertyInfo , constructDOMHTMLScriptElementEvent , + dOMHTMLScriptElementEvent , getDOMHTMLScriptElementEvent , setDOMHTMLScriptElementEvent , @@ -148,6 +153,7 @@ -- ** HtmlFor DOMHTMLScriptElementHtmlForPropertyInfo , constructDOMHTMLScriptElementHtmlFor , + dOMHTMLScriptElementHtmlFor , getDOMHTMLScriptElementHtmlFor , setDOMHTMLScriptElementHtmlFor , @@ -155,6 +161,7 @@ -- ** Nonce DOMHTMLScriptElementNoncePropertyInfo , constructDOMHTMLScriptElementNonce , + dOMHTMLScriptElementNonce , getDOMHTMLScriptElementNonce , setDOMHTMLScriptElementNonce , @@ -162,6 +169,7 @@ -- ** Src DOMHTMLScriptElementSrcPropertyInfo , constructDOMHTMLScriptElementSrc , + dOMHTMLScriptElementSrc , getDOMHTMLScriptElementSrc , setDOMHTMLScriptElementSrc , @@ -169,13 +177,16 @@ -- ** Text DOMHTMLScriptElementTextPropertyInfo , constructDOMHTMLScriptElementText , + dOMHTMLScriptElementText , getDOMHTMLScriptElementText , setDOMHTMLScriptElementText , -- ** Type DOMHTMLScriptElementTypePropertyInfo , + clearDOMHTMLScriptElementType , constructDOMHTMLScriptElementType , + dOMHTMLScriptElementType , getDOMHTMLScriptElementType , setDOMHTMLScriptElementType , @@ -184,9 +195,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map @@ -402,6 +413,7 @@ -- VVV Prop "async" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getDOMHTMLScriptElementAsync :: (MonadIO m, DOMHTMLScriptElementK o) => o -> m Bool getDOMHTMLScriptElementAsync obj = liftIO $ getObjectPropertyBool obj "async" @@ -422,58 +434,64 @@ attrGet _ = getDOMHTMLScriptElementAsync attrSet _ = setDOMHTMLScriptElementAsync attrConstruct _ = constructDOMHTMLScriptElementAsync + attrClear _ = undefined -- VVV Prop "charset" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Just False) -getDOMHTMLScriptElementCharset :: (MonadIO m, DOMHTMLScriptElementK o) => o -> m T.Text +getDOMHTMLScriptElementCharset :: (MonadIO m, DOMHTMLScriptElementK o) => o -> m (Maybe T.Text) getDOMHTMLScriptElementCharset obj = liftIO $ getObjectPropertyString obj "charset" setDOMHTMLScriptElementCharset :: (MonadIO m, DOMHTMLScriptElementK o) => o -> T.Text -> m () -setDOMHTMLScriptElementCharset obj val = liftIO $ setObjectPropertyString obj "charset" val +setDOMHTMLScriptElementCharset obj val = liftIO $ setObjectPropertyString obj "charset" (Just val) constructDOMHTMLScriptElementCharset :: T.Text -> IO ([Char], GValue) -constructDOMHTMLScriptElementCharset val = constructObjectPropertyString "charset" val +constructDOMHTMLScriptElementCharset val = constructObjectPropertyString "charset" (Just val) data DOMHTMLScriptElementCharsetPropertyInfo instance AttrInfo DOMHTMLScriptElementCharsetPropertyInfo where type AttrAllowedOps DOMHTMLScriptElementCharsetPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint DOMHTMLScriptElementCharsetPropertyInfo = (~) T.Text type AttrBaseTypeConstraint DOMHTMLScriptElementCharsetPropertyInfo = DOMHTMLScriptElementK - type AttrGetType DOMHTMLScriptElementCharsetPropertyInfo = T.Text + type AttrGetType DOMHTMLScriptElementCharsetPropertyInfo = (Maybe T.Text) type AttrLabel DOMHTMLScriptElementCharsetPropertyInfo = "charset" attrGet _ = getDOMHTMLScriptElementCharset attrSet _ = setDOMHTMLScriptElementCharset attrConstruct _ = constructDOMHTMLScriptElementCharset + attrClear _ = undefined -- VVV Prop "cross-origin" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Just False) -getDOMHTMLScriptElementCrossOrigin :: (MonadIO m, DOMHTMLScriptElementK o) => o -> m T.Text +getDOMHTMLScriptElementCrossOrigin :: (MonadIO m, DOMHTMLScriptElementK o) => o -> m (Maybe T.Text) getDOMHTMLScriptElementCrossOrigin obj = liftIO $ getObjectPropertyString obj "cross-origin" setDOMHTMLScriptElementCrossOrigin :: (MonadIO m, DOMHTMLScriptElementK o) => o -> T.Text -> m () -setDOMHTMLScriptElementCrossOrigin obj val = liftIO $ setObjectPropertyString obj "cross-origin" val +setDOMHTMLScriptElementCrossOrigin obj val = liftIO $ setObjectPropertyString obj "cross-origin" (Just val) constructDOMHTMLScriptElementCrossOrigin :: T.Text -> IO ([Char], GValue) -constructDOMHTMLScriptElementCrossOrigin val = constructObjectPropertyString "cross-origin" val +constructDOMHTMLScriptElementCrossOrigin val = constructObjectPropertyString "cross-origin" (Just val) data DOMHTMLScriptElementCrossOriginPropertyInfo instance AttrInfo DOMHTMLScriptElementCrossOriginPropertyInfo where type AttrAllowedOps DOMHTMLScriptElementCrossOriginPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint DOMHTMLScriptElementCrossOriginPropertyInfo = (~) T.Text type AttrBaseTypeConstraint DOMHTMLScriptElementCrossOriginPropertyInfo = DOMHTMLScriptElementK - type AttrGetType DOMHTMLScriptElementCrossOriginPropertyInfo = T.Text + type AttrGetType DOMHTMLScriptElementCrossOriginPropertyInfo = (Maybe T.Text) type AttrLabel DOMHTMLScriptElementCrossOriginPropertyInfo = "cross-origin" attrGet _ = getDOMHTMLScriptElementCrossOrigin attrSet _ = setDOMHTMLScriptElementCrossOrigin attrConstruct _ = constructDOMHTMLScriptElementCrossOrigin + attrClear _ = undefined -- VVV Prop "defer" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getDOMHTMLScriptElementDefer :: (MonadIO m, DOMHTMLScriptElementK o) => o -> m Bool getDOMHTMLScriptElementDefer obj = liftIO $ getObjectPropertyBool obj "defer" @@ -494,154 +512,200 @@ attrGet _ = getDOMHTMLScriptElementDefer attrSet _ = setDOMHTMLScriptElementDefer attrConstruct _ = constructDOMHTMLScriptElementDefer + attrClear _ = undefined -- VVV Prop "event" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Just False) -getDOMHTMLScriptElementEvent :: (MonadIO m, DOMHTMLScriptElementK o) => o -> m T.Text +getDOMHTMLScriptElementEvent :: (MonadIO m, DOMHTMLScriptElementK o) => o -> m (Maybe T.Text) getDOMHTMLScriptElementEvent obj = liftIO $ getObjectPropertyString obj "event" setDOMHTMLScriptElementEvent :: (MonadIO m, DOMHTMLScriptElementK o) => o -> T.Text -> m () -setDOMHTMLScriptElementEvent obj val = liftIO $ setObjectPropertyString obj "event" val +setDOMHTMLScriptElementEvent obj val = liftIO $ setObjectPropertyString obj "event" (Just val) constructDOMHTMLScriptElementEvent :: T.Text -> IO ([Char], GValue) -constructDOMHTMLScriptElementEvent val = constructObjectPropertyString "event" val +constructDOMHTMLScriptElementEvent val = constructObjectPropertyString "event" (Just val) data DOMHTMLScriptElementEventPropertyInfo instance AttrInfo DOMHTMLScriptElementEventPropertyInfo where type AttrAllowedOps DOMHTMLScriptElementEventPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint DOMHTMLScriptElementEventPropertyInfo = (~) T.Text type AttrBaseTypeConstraint DOMHTMLScriptElementEventPropertyInfo = DOMHTMLScriptElementK - type AttrGetType DOMHTMLScriptElementEventPropertyInfo = T.Text + type AttrGetType DOMHTMLScriptElementEventPropertyInfo = (Maybe T.Text) type AttrLabel DOMHTMLScriptElementEventPropertyInfo = "event" attrGet _ = getDOMHTMLScriptElementEvent attrSet _ = setDOMHTMLScriptElementEvent attrConstruct _ = constructDOMHTMLScriptElementEvent + attrClear _ = undefined -- VVV Prop "html-for" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Just False) -getDOMHTMLScriptElementHtmlFor :: (MonadIO m, DOMHTMLScriptElementK o) => o -> m T.Text +getDOMHTMLScriptElementHtmlFor :: (MonadIO m, DOMHTMLScriptElementK o) => o -> m (Maybe T.Text) getDOMHTMLScriptElementHtmlFor obj = liftIO $ getObjectPropertyString obj "html-for" setDOMHTMLScriptElementHtmlFor :: (MonadIO m, DOMHTMLScriptElementK o) => o -> T.Text -> m () -setDOMHTMLScriptElementHtmlFor obj val = liftIO $ setObjectPropertyString obj "html-for" val +setDOMHTMLScriptElementHtmlFor obj val = liftIO $ setObjectPropertyString obj "html-for" (Just val) constructDOMHTMLScriptElementHtmlFor :: T.Text -> IO ([Char], GValue) -constructDOMHTMLScriptElementHtmlFor val = constructObjectPropertyString "html-for" val +constructDOMHTMLScriptElementHtmlFor val = constructObjectPropertyString "html-for" (Just val) data DOMHTMLScriptElementHtmlForPropertyInfo instance AttrInfo DOMHTMLScriptElementHtmlForPropertyInfo where type AttrAllowedOps DOMHTMLScriptElementHtmlForPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint DOMHTMLScriptElementHtmlForPropertyInfo = (~) T.Text type AttrBaseTypeConstraint DOMHTMLScriptElementHtmlForPropertyInfo = DOMHTMLScriptElementK - type AttrGetType DOMHTMLScriptElementHtmlForPropertyInfo = T.Text + type AttrGetType DOMHTMLScriptElementHtmlForPropertyInfo = (Maybe T.Text) type AttrLabel DOMHTMLScriptElementHtmlForPropertyInfo = "html-for" attrGet _ = getDOMHTMLScriptElementHtmlFor attrSet _ = setDOMHTMLScriptElementHtmlFor attrConstruct _ = constructDOMHTMLScriptElementHtmlFor + attrClear _ = undefined -- VVV Prop "nonce" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Just False) -getDOMHTMLScriptElementNonce :: (MonadIO m, DOMHTMLScriptElementK o) => o -> m T.Text +getDOMHTMLScriptElementNonce :: (MonadIO m, DOMHTMLScriptElementK o) => o -> m (Maybe T.Text) getDOMHTMLScriptElementNonce obj = liftIO $ getObjectPropertyString obj "nonce" setDOMHTMLScriptElementNonce :: (MonadIO m, DOMHTMLScriptElementK o) => o -> T.Text -> m () -setDOMHTMLScriptElementNonce obj val = liftIO $ setObjectPropertyString obj "nonce" val +setDOMHTMLScriptElementNonce obj val = liftIO $ setObjectPropertyString obj "nonce" (Just val) constructDOMHTMLScriptElementNonce :: T.Text -> IO ([Char], GValue) -constructDOMHTMLScriptElementNonce val = constructObjectPropertyString "nonce" val +constructDOMHTMLScriptElementNonce val = constructObjectPropertyString "nonce" (Just val) data DOMHTMLScriptElementNoncePropertyInfo instance AttrInfo DOMHTMLScriptElementNoncePropertyInfo where type AttrAllowedOps DOMHTMLScriptElementNoncePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint DOMHTMLScriptElementNoncePropertyInfo = (~) T.Text type AttrBaseTypeConstraint DOMHTMLScriptElementNoncePropertyInfo = DOMHTMLScriptElementK - type AttrGetType DOMHTMLScriptElementNoncePropertyInfo = T.Text + type AttrGetType DOMHTMLScriptElementNoncePropertyInfo = (Maybe T.Text) type AttrLabel DOMHTMLScriptElementNoncePropertyInfo = "nonce" attrGet _ = getDOMHTMLScriptElementNonce attrSet _ = setDOMHTMLScriptElementNonce attrConstruct _ = constructDOMHTMLScriptElementNonce + attrClear _ = undefined -- VVV Prop "src" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Just False) -getDOMHTMLScriptElementSrc :: (MonadIO m, DOMHTMLScriptElementK o) => o -> m T.Text +getDOMHTMLScriptElementSrc :: (MonadIO m, DOMHTMLScriptElementK o) => o -> m (Maybe T.Text) getDOMHTMLScriptElementSrc obj = liftIO $ getObjectPropertyString obj "src" setDOMHTMLScriptElementSrc :: (MonadIO m, DOMHTMLScriptElementK o) => o -> T.Text -> m () -setDOMHTMLScriptElementSrc obj val = liftIO $ setObjectPropertyString obj "src" val +setDOMHTMLScriptElementSrc obj val = liftIO $ setObjectPropertyString obj "src" (Just val) constructDOMHTMLScriptElementSrc :: T.Text -> IO ([Char], GValue) -constructDOMHTMLScriptElementSrc val = constructObjectPropertyString "src" val +constructDOMHTMLScriptElementSrc val = constructObjectPropertyString "src" (Just val) data DOMHTMLScriptElementSrcPropertyInfo instance AttrInfo DOMHTMLScriptElementSrcPropertyInfo where type AttrAllowedOps DOMHTMLScriptElementSrcPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint DOMHTMLScriptElementSrcPropertyInfo = (~) T.Text type AttrBaseTypeConstraint DOMHTMLScriptElementSrcPropertyInfo = DOMHTMLScriptElementK - type AttrGetType DOMHTMLScriptElementSrcPropertyInfo = T.Text + type AttrGetType DOMHTMLScriptElementSrcPropertyInfo = (Maybe T.Text) type AttrLabel DOMHTMLScriptElementSrcPropertyInfo = "src" attrGet _ = getDOMHTMLScriptElementSrc attrSet _ = setDOMHTMLScriptElementSrc attrConstruct _ = constructDOMHTMLScriptElementSrc + attrClear _ = undefined -- VVV Prop "text" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Just False) -getDOMHTMLScriptElementText :: (MonadIO m, DOMHTMLScriptElementK o) => o -> m T.Text +getDOMHTMLScriptElementText :: (MonadIO m, DOMHTMLScriptElementK o) => o -> m (Maybe T.Text) getDOMHTMLScriptElementText obj = liftIO $ getObjectPropertyString obj "text" setDOMHTMLScriptElementText :: (MonadIO m, DOMHTMLScriptElementK o) => o -> T.Text -> m () -setDOMHTMLScriptElementText obj val = liftIO $ setObjectPropertyString obj "text" val +setDOMHTMLScriptElementText obj val = liftIO $ setObjectPropertyString obj "text" (Just val) constructDOMHTMLScriptElementText :: T.Text -> IO ([Char], GValue) -constructDOMHTMLScriptElementText val = constructObjectPropertyString "text" val +constructDOMHTMLScriptElementText val = constructObjectPropertyString "text" (Just val) data DOMHTMLScriptElementTextPropertyInfo instance AttrInfo DOMHTMLScriptElementTextPropertyInfo where type AttrAllowedOps DOMHTMLScriptElementTextPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint DOMHTMLScriptElementTextPropertyInfo = (~) T.Text type AttrBaseTypeConstraint DOMHTMLScriptElementTextPropertyInfo = DOMHTMLScriptElementK - type AttrGetType DOMHTMLScriptElementTextPropertyInfo = T.Text + type AttrGetType DOMHTMLScriptElementTextPropertyInfo = (Maybe T.Text) type AttrLabel DOMHTMLScriptElementTextPropertyInfo = "text" attrGet _ = getDOMHTMLScriptElementText attrSet _ = setDOMHTMLScriptElementText attrConstruct _ = constructDOMHTMLScriptElementText + attrClear _ = undefined -- VVV Prop "type" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) -getDOMHTMLScriptElementType :: (MonadIO m, DOMHTMLScriptElementK o) => o -> m T.Text +getDOMHTMLScriptElementType :: (MonadIO m, DOMHTMLScriptElementK o) => o -> m (Maybe T.Text) getDOMHTMLScriptElementType obj = liftIO $ getObjectPropertyString obj "type" setDOMHTMLScriptElementType :: (MonadIO m, DOMHTMLScriptElementK o) => o -> T.Text -> m () -setDOMHTMLScriptElementType obj val = liftIO $ setObjectPropertyString obj "type" val +setDOMHTMLScriptElementType obj val = liftIO $ setObjectPropertyString obj "type" (Just val) constructDOMHTMLScriptElementType :: T.Text -> IO ([Char], GValue) -constructDOMHTMLScriptElementType val = constructObjectPropertyString "type" val +constructDOMHTMLScriptElementType val = constructObjectPropertyString "type" (Just val) +clearDOMHTMLScriptElementType :: (MonadIO m, DOMHTMLScriptElementK o) => o -> m () +clearDOMHTMLScriptElementType obj = liftIO $ setObjectPropertyString obj "type" (Nothing :: Maybe T.Text) + data DOMHTMLScriptElementTypePropertyInfo instance AttrInfo DOMHTMLScriptElementTypePropertyInfo where - type AttrAllowedOps DOMHTMLScriptElementTypePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrAllowedOps DOMHTMLScriptElementTypePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint DOMHTMLScriptElementTypePropertyInfo = (~) T.Text type AttrBaseTypeConstraint DOMHTMLScriptElementTypePropertyInfo = DOMHTMLScriptElementK - type AttrGetType DOMHTMLScriptElementTypePropertyInfo = T.Text + type AttrGetType DOMHTMLScriptElementTypePropertyInfo = (Maybe T.Text) type AttrLabel DOMHTMLScriptElementTypePropertyInfo = "type" attrGet _ = getDOMHTMLScriptElementType attrSet _ = setDOMHTMLScriptElementType attrConstruct _ = constructDOMHTMLScriptElementType + attrClear _ = clearDOMHTMLScriptElementType type instance AttributeList DOMHTMLScriptElement = DOMHTMLScriptElementAttributeList type DOMHTMLScriptElementAttributeList = ('[ '("accessKey", DOMHTMLElementAccessKeyPropertyInfo), '("async", DOMHTMLScriptElementAsyncPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("baseUri", DOMNodeBaseUriPropertyInfo), '("charset", DOMHTMLScriptElementCharsetPropertyInfo), '("childElementCount", DOMElementChildElementCountPropertyInfo), '("childNodes", DOMNodeChildNodesPropertyInfo), '("children", DOMHTMLElementChildrenPropertyInfo), '("classList", DOMElementClassListPropertyInfo), '("className", DOMElementClassNamePropertyInfo), '("clientHeight", DOMElementClientHeightPropertyInfo), '("clientLeft", DOMElementClientLeftPropertyInfo), '("clientTop", DOMElementClientTopPropertyInfo), '("clientWidth", DOMElementClientWidthPropertyInfo), '("contentEditable", DOMHTMLElementContentEditablePropertyInfo), '("coreObject", DOMObjectCoreObjectPropertyInfo), '("crossOrigin", DOMHTMLScriptElementCrossOriginPropertyInfo), '("defer", DOMHTMLScriptElementDeferPropertyInfo), '("dir", DOMHTMLElementDirPropertyInfo), '("draggable", DOMHTMLElementDraggablePropertyInfo), '("event", DOMHTMLScriptElementEventPropertyInfo), '("firstChild", DOMNodeFirstChildPropertyInfo), '("firstElementChild", DOMElementFirstElementChildPropertyInfo), '("hidden", DOMHTMLElementHiddenPropertyInfo), '("htmlFor", DOMHTMLScriptElementHtmlForPropertyInfo), '("id", DOMElementIdPropertyInfo), '("innerHtml", DOMHTMLElementInnerHtmlPropertyInfo), '("innerText", DOMHTMLElementInnerTextPropertyInfo), '("isContentEditable", DOMHTMLElementIsContentEditablePropertyInfo), '("lang", DOMHTMLElementLangPropertyInfo), '("lastChild", DOMNodeLastChildPropertyInfo), '("lastElementChild", DOMElementLastElementChildPropertyInfo), '("localName", DOMNodeLocalNamePropertyInfo), '("namespaceUri", DOMNodeNamespaceUriPropertyInfo), '("nextElementSibling", DOMElementNextElementSiblingPropertyInfo), '("nextSibling", DOMNodeNextSiblingPropertyInfo), '("nodeName", DOMNodeNodeNamePropertyInfo), '("nodeType", DOMNodeNodeTypePropertyInfo), '("nodeValue", DOMNodeNodeValuePropertyInfo), '("nonce", DOMHTMLScriptElementNoncePropertyInfo), '("offsetHeight", DOMElementOffsetHeightPropertyInfo), '("offsetLeft", DOMElementOffsetLeftPropertyInfo), '("offsetParent", DOMElementOffsetParentPropertyInfo), '("offsetTop", DOMElementOffsetTopPropertyInfo), '("offsetWidth", DOMElementOffsetWidthPropertyInfo), '("outerHtml", DOMHTMLElementOuterHtmlPropertyInfo), '("outerText", DOMHTMLElementOuterTextPropertyInfo), '("ownerDocument", DOMNodeOwnerDocumentPropertyInfo), '("parentElement", DOMNodeParentElementPropertyInfo), '("parentNode", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previousElementSibling", DOMElementPreviousElementSiblingPropertyInfo), '("previousSibling", DOMNodePreviousSiblingPropertyInfo), '("scrollHeight", DOMElementScrollHeightPropertyInfo), '("scrollLeft", DOMElementScrollLeftPropertyInfo), '("scrollTop", DOMElementScrollTopPropertyInfo), '("scrollWidth", DOMElementScrollWidthPropertyInfo), '("spellcheck", DOMHTMLElementSpellcheckPropertyInfo), '("src", DOMHTMLScriptElementSrcPropertyInfo), '("style", DOMElementStylePropertyInfo), '("tabIndex", DOMHTMLElementTabIndexPropertyInfo), '("tagName", DOMElementTagNamePropertyInfo), '("text", DOMHTMLScriptElementTextPropertyInfo), '("textContent", DOMNodeTextContentPropertyInfo), '("title", DOMHTMLElementTitlePropertyInfo), '("translate", DOMHTMLElementTranslatePropertyInfo), '("type", DOMHTMLScriptElementTypePropertyInfo), '("webkitRegionOverset", DOMElementWebkitRegionOversetPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo)] :: [(Symbol, *)]) +dOMHTMLScriptElementAsync :: AttrLabelProxy "async" +dOMHTMLScriptElementAsync = AttrLabelProxy + +dOMHTMLScriptElementCharset :: AttrLabelProxy "charset" +dOMHTMLScriptElementCharset = AttrLabelProxy + +dOMHTMLScriptElementCrossOrigin :: AttrLabelProxy "crossOrigin" +dOMHTMLScriptElementCrossOrigin = AttrLabelProxy + +dOMHTMLScriptElementDefer :: AttrLabelProxy "defer" +dOMHTMLScriptElementDefer = AttrLabelProxy + +dOMHTMLScriptElementEvent :: AttrLabelProxy "event" +dOMHTMLScriptElementEvent = AttrLabelProxy + +dOMHTMLScriptElementHtmlFor :: AttrLabelProxy "htmlFor" +dOMHTMLScriptElementHtmlFor = AttrLabelProxy + +dOMHTMLScriptElementNonce :: AttrLabelProxy "nonce" +dOMHTMLScriptElementNonce = AttrLabelProxy + +dOMHTMLScriptElementSrc :: AttrLabelProxy "src" +dOMHTMLScriptElementSrc = AttrLabelProxy + +dOMHTMLScriptElementText :: AttrLabelProxy "text" +dOMHTMLScriptElementText = AttrLabelProxy + +dOMHTMLScriptElementType :: AttrLabelProxy "type" +dOMHTMLScriptElementType = AttrLabelProxy + type instance SignalList DOMHTMLScriptElement = DOMHTMLScriptElementSignalList type DOMHTMLScriptElementSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) @@ -649,7 +713,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLScriptElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -677,7 +741,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLScriptElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -707,7 +771,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLScriptElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -737,7 +801,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLScriptElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -765,7 +829,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLScriptElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -795,7 +859,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLScriptElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -825,7 +889,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLScriptElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -855,7 +919,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLScriptElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -885,7 +949,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLScriptElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -915,7 +979,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLScriptElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -945,7 +1009,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLScriptElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -976,7 +1040,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLScriptElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1007,7 +1071,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLScriptElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1037,7 +1101,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLScriptElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1068,7 +1132,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLScriptElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1099,7 +1163,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLScriptElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1130,7 +1194,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLScriptElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1161,7 +1225,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLScriptElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False diff --git a/GI/WebKit/Objects/DOMHTMLScriptElement.hs-boot b/GI/WebKit/Objects/DOMHTMLScriptElement.hs-boot --- a/GI/WebKit/Objects/DOMHTMLScriptElement.hs-boot +++ b/GI/WebKit/Objects/DOMHTMLScriptElement.hs-boot @@ -1,8 +1,8 @@ module GI.WebKit.Objects.DOMHTMLScriptElement where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map diff --git a/GI/WebKit/Objects/DOMHTMLSelectElement.hs b/GI/WebKit/Objects/DOMHTMLSelectElement.hs --- a/GI/WebKit/Objects/DOMHTMLSelectElement.hs +++ b/GI/WebKit/Objects/DOMHTMLSelectElement.hs @@ -178,6 +178,7 @@ -- ** Autofocus DOMHTMLSelectElementAutofocusPropertyInfo, constructDOMHTMLSelectElementAutofocus , + dOMHTMLSelectElementAutofocus , getDOMHTMLSelectElementAutofocus , setDOMHTMLSelectElementAutofocus , @@ -185,23 +186,27 @@ -- ** Disabled DOMHTMLSelectElementDisabledPropertyInfo, constructDOMHTMLSelectElementDisabled , + dOMHTMLSelectElementDisabled , getDOMHTMLSelectElementDisabled , setDOMHTMLSelectElementDisabled , -- ** Form DOMHTMLSelectElementFormPropertyInfo , + dOMHTMLSelectElementForm , getDOMHTMLSelectElementForm , -- ** Labels DOMHTMLSelectElementLabelsPropertyInfo , + dOMHTMLSelectElementLabels , getDOMHTMLSelectElementLabels , -- ** Length DOMHTMLSelectElementLengthPropertyInfo , constructDOMHTMLSelectElementLength , + dOMHTMLSelectElementLength , getDOMHTMLSelectElementLength , setDOMHTMLSelectElementLength , @@ -209,6 +214,7 @@ -- ** Multiple DOMHTMLSelectElementMultiplePropertyInfo, constructDOMHTMLSelectElementMultiple , + dOMHTMLSelectElementMultiple , getDOMHTMLSelectElementMultiple , setDOMHTMLSelectElementMultiple , @@ -216,18 +222,21 @@ -- ** Name DOMHTMLSelectElementNamePropertyInfo , constructDOMHTMLSelectElementName , + dOMHTMLSelectElementName , getDOMHTMLSelectElementName , setDOMHTMLSelectElementName , -- ** Options DOMHTMLSelectElementOptionsPropertyInfo , + dOMHTMLSelectElementOptions , getDOMHTMLSelectElementOptions , -- ** Required DOMHTMLSelectElementRequiredPropertyInfo, constructDOMHTMLSelectElementRequired , + dOMHTMLSelectElementRequired , getDOMHTMLSelectElementRequired , setDOMHTMLSelectElementRequired , @@ -235,46 +244,54 @@ -- ** SelectedIndex DOMHTMLSelectElementSelectedIndexPropertyInfo, constructDOMHTMLSelectElementSelectedIndex, + dOMHTMLSelectElementSelectedIndex , getDOMHTMLSelectElementSelectedIndex , setDOMHTMLSelectElementSelectedIndex , -- ** SelectedOptions DOMHTMLSelectElementSelectedOptionsPropertyInfo, + dOMHTMLSelectElementSelectedOptions , getDOMHTMLSelectElementSelectedOptions , -- ** Size DOMHTMLSelectElementSizePropertyInfo , constructDOMHTMLSelectElementSize , + dOMHTMLSelectElementSize , getDOMHTMLSelectElementSize , setDOMHTMLSelectElementSize , -- ** Type DOMHTMLSelectElementTypePropertyInfo , + dOMHTMLSelectElementType , getDOMHTMLSelectElementType , -- ** ValidationMessage DOMHTMLSelectElementValidationMessagePropertyInfo, + dOMHTMLSelectElementValidationMessage , getDOMHTMLSelectElementValidationMessage, -- ** Validity DOMHTMLSelectElementValidityPropertyInfo, + dOMHTMLSelectElementValidity , getDOMHTMLSelectElementValidity , -- ** Value DOMHTMLSelectElementValuePropertyInfo , constructDOMHTMLSelectElementValue , + dOMHTMLSelectElementValue , getDOMHTMLSelectElementValue , setDOMHTMLSelectElementValue , -- ** WillValidate DOMHTMLSelectElementWillValidatePropertyInfo, + dOMHTMLSelectElementWillValidate , getDOMHTMLSelectElementWillValidate , @@ -282,9 +299,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map @@ -511,6 +528,7 @@ -- VVV Prop "autofocus" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getDOMHTMLSelectElementAutofocus :: (MonadIO m, DOMHTMLSelectElementK o) => o -> m Bool getDOMHTMLSelectElementAutofocus obj = liftIO $ getObjectPropertyBool obj "autofocus" @@ -531,10 +549,12 @@ attrGet _ = getDOMHTMLSelectElementAutofocus attrSet _ = setDOMHTMLSelectElementAutofocus attrConstruct _ = constructDOMHTMLSelectElementAutofocus + attrClear _ = undefined -- VVV Prop "disabled" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getDOMHTMLSelectElementDisabled :: (MonadIO m, DOMHTMLSelectElementK o) => o -> m Bool getDOMHTMLSelectElementDisabled obj = liftIO $ getObjectPropertyBool obj "disabled" @@ -555,17 +575,19 @@ attrGet _ = getDOMHTMLSelectElementDisabled attrSet _ = setDOMHTMLSelectElementDisabled attrConstruct _ = constructDOMHTMLSelectElementDisabled + attrClear _ = undefined -- VVV Prop "form" -- Type: TInterface "WebKit" "DOMHTMLFormElement" -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) getDOMHTMLSelectElementForm :: (MonadIO m, DOMHTMLSelectElementK o) => o -> m DOMHTMLFormElement -getDOMHTMLSelectElementForm obj = liftIO $ getObjectPropertyObject obj "form" DOMHTMLFormElement +getDOMHTMLSelectElementForm obj = liftIO $ checkUnexpectedNothing "getDOMHTMLSelectElementForm" $ getObjectPropertyObject obj "form" DOMHTMLFormElement data DOMHTMLSelectElementFormPropertyInfo instance AttrInfo DOMHTMLSelectElementFormPropertyInfo where - type AttrAllowedOps DOMHTMLSelectElementFormPropertyInfo = '[ 'AttrGet] + type AttrAllowedOps DOMHTMLSelectElementFormPropertyInfo = '[ 'AttrGet, 'AttrClear] type AttrSetTypeConstraint DOMHTMLSelectElementFormPropertyInfo = (~) () type AttrBaseTypeConstraint DOMHTMLSelectElementFormPropertyInfo = DOMHTMLSelectElementK type AttrGetType DOMHTMLSelectElementFormPropertyInfo = DOMHTMLFormElement @@ -573,52 +595,58 @@ attrGet _ = getDOMHTMLSelectElementForm attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "labels" -- Type: TInterface "WebKit" "DOMNodeList" -- Flags: [PropertyReadable] + -- Nullable: (Nothing,Nothing) -getDOMHTMLSelectElementLabels :: (MonadIO m, DOMHTMLSelectElementK o) => o -> m DOMNodeList +getDOMHTMLSelectElementLabels :: (MonadIO m, DOMHTMLSelectElementK o) => o -> m (Maybe DOMNodeList) getDOMHTMLSelectElementLabels obj = liftIO $ getObjectPropertyObject obj "labels" DOMNodeList data DOMHTMLSelectElementLabelsPropertyInfo instance AttrInfo DOMHTMLSelectElementLabelsPropertyInfo where - type AttrAllowedOps DOMHTMLSelectElementLabelsPropertyInfo = '[ 'AttrGet] + type AttrAllowedOps DOMHTMLSelectElementLabelsPropertyInfo = '[ 'AttrGet, 'AttrClear] type AttrSetTypeConstraint DOMHTMLSelectElementLabelsPropertyInfo = (~) () type AttrBaseTypeConstraint DOMHTMLSelectElementLabelsPropertyInfo = DOMHTMLSelectElementK - type AttrGetType DOMHTMLSelectElementLabelsPropertyInfo = DOMNodeList + type AttrGetType DOMHTMLSelectElementLabelsPropertyInfo = (Maybe DOMNodeList) type AttrLabel DOMHTMLSelectElementLabelsPropertyInfo = "labels" attrGet _ = getDOMHTMLSelectElementLabels attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "length" - -- Type: TBasicType TUInt64 + -- Type: TBasicType TULong -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Nothing) -getDOMHTMLSelectElementLength :: (MonadIO m, DOMHTMLSelectElementK o) => o -> m Word64 -getDOMHTMLSelectElementLength obj = liftIO $ getObjectPropertyUInt64 obj "length" +getDOMHTMLSelectElementLength :: (MonadIO m, DOMHTMLSelectElementK o) => o -> m CULong +getDOMHTMLSelectElementLength obj = liftIO $ getObjectPropertyULong obj "length" -setDOMHTMLSelectElementLength :: (MonadIO m, DOMHTMLSelectElementK o) => o -> Word64 -> m () -setDOMHTMLSelectElementLength obj val = liftIO $ setObjectPropertyUInt64 obj "length" val +setDOMHTMLSelectElementLength :: (MonadIO m, DOMHTMLSelectElementK o) => o -> CULong -> m () +setDOMHTMLSelectElementLength obj val = liftIO $ setObjectPropertyULong obj "length" val -constructDOMHTMLSelectElementLength :: Word64 -> IO ([Char], GValue) -constructDOMHTMLSelectElementLength val = constructObjectPropertyUInt64 "length" val +constructDOMHTMLSelectElementLength :: CULong -> IO ([Char], GValue) +constructDOMHTMLSelectElementLength val = constructObjectPropertyULong "length" val data DOMHTMLSelectElementLengthPropertyInfo instance AttrInfo DOMHTMLSelectElementLengthPropertyInfo where type AttrAllowedOps DOMHTMLSelectElementLengthPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLSelectElementLengthPropertyInfo = (~) Word64 + type AttrSetTypeConstraint DOMHTMLSelectElementLengthPropertyInfo = (~) CULong type AttrBaseTypeConstraint DOMHTMLSelectElementLengthPropertyInfo = DOMHTMLSelectElementK - type AttrGetType DOMHTMLSelectElementLengthPropertyInfo = Word64 + type AttrGetType DOMHTMLSelectElementLengthPropertyInfo = CULong type AttrLabel DOMHTMLSelectElementLengthPropertyInfo = "length" attrGet _ = getDOMHTMLSelectElementLength attrSet _ = setDOMHTMLSelectElementLength attrConstruct _ = constructDOMHTMLSelectElementLength + attrClear _ = undefined -- VVV Prop "multiple" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getDOMHTMLSelectElementMultiple :: (MonadIO m, DOMHTMLSelectElementK o) => o -> m Bool getDOMHTMLSelectElementMultiple obj = liftIO $ getObjectPropertyBool obj "multiple" @@ -639,52 +667,58 @@ attrGet _ = getDOMHTMLSelectElementMultiple attrSet _ = setDOMHTMLSelectElementMultiple attrConstruct _ = constructDOMHTMLSelectElementMultiple + attrClear _ = undefined -- VVV Prop "name" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Just False) -getDOMHTMLSelectElementName :: (MonadIO m, DOMHTMLSelectElementK o) => o -> m T.Text +getDOMHTMLSelectElementName :: (MonadIO m, DOMHTMLSelectElementK o) => o -> m (Maybe T.Text) getDOMHTMLSelectElementName obj = liftIO $ getObjectPropertyString obj "name" setDOMHTMLSelectElementName :: (MonadIO m, DOMHTMLSelectElementK o) => o -> T.Text -> m () -setDOMHTMLSelectElementName obj val = liftIO $ setObjectPropertyString obj "name" val +setDOMHTMLSelectElementName obj val = liftIO $ setObjectPropertyString obj "name" (Just val) constructDOMHTMLSelectElementName :: T.Text -> IO ([Char], GValue) -constructDOMHTMLSelectElementName val = constructObjectPropertyString "name" val +constructDOMHTMLSelectElementName val = constructObjectPropertyString "name" (Just val) data DOMHTMLSelectElementNamePropertyInfo instance AttrInfo DOMHTMLSelectElementNamePropertyInfo where type AttrAllowedOps DOMHTMLSelectElementNamePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint DOMHTMLSelectElementNamePropertyInfo = (~) T.Text type AttrBaseTypeConstraint DOMHTMLSelectElementNamePropertyInfo = DOMHTMLSelectElementK - type AttrGetType DOMHTMLSelectElementNamePropertyInfo = T.Text + type AttrGetType DOMHTMLSelectElementNamePropertyInfo = (Maybe T.Text) type AttrLabel DOMHTMLSelectElementNamePropertyInfo = "name" attrGet _ = getDOMHTMLSelectElementName attrSet _ = setDOMHTMLSelectElementName attrConstruct _ = constructDOMHTMLSelectElementName + attrClear _ = undefined -- VVV Prop "options" -- Type: TInterface "WebKit" "DOMHTMLOptionsCollection" -- Flags: [PropertyReadable] + -- Nullable: (Nothing,Nothing) -getDOMHTMLSelectElementOptions :: (MonadIO m, DOMHTMLSelectElementK o) => o -> m DOMHTMLOptionsCollection +getDOMHTMLSelectElementOptions :: (MonadIO m, DOMHTMLSelectElementK o) => o -> m (Maybe DOMHTMLOptionsCollection) getDOMHTMLSelectElementOptions obj = liftIO $ getObjectPropertyObject obj "options" DOMHTMLOptionsCollection data DOMHTMLSelectElementOptionsPropertyInfo instance AttrInfo DOMHTMLSelectElementOptionsPropertyInfo where - type AttrAllowedOps DOMHTMLSelectElementOptionsPropertyInfo = '[ 'AttrGet] + type AttrAllowedOps DOMHTMLSelectElementOptionsPropertyInfo = '[ 'AttrGet, 'AttrClear] type AttrSetTypeConstraint DOMHTMLSelectElementOptionsPropertyInfo = (~) () type AttrBaseTypeConstraint DOMHTMLSelectElementOptionsPropertyInfo = DOMHTMLSelectElementK - type AttrGetType DOMHTMLSelectElementOptionsPropertyInfo = DOMHTMLOptionsCollection + type AttrGetType DOMHTMLSelectElementOptionsPropertyInfo = (Maybe DOMHTMLOptionsCollection) type AttrLabel DOMHTMLSelectElementOptionsPropertyInfo = "options" attrGet _ = getDOMHTMLSelectElementOptions attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "required" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getDOMHTMLSelectElementRequired :: (MonadIO m, DOMHTMLSelectElementK o) => o -> m Bool getDOMHTMLSelectElementRequired obj = liftIO $ getObjectPropertyBool obj "required" @@ -705,154 +739,170 @@ attrGet _ = getDOMHTMLSelectElementRequired attrSet _ = setDOMHTMLSelectElementRequired attrConstruct _ = constructDOMHTMLSelectElementRequired + attrClear _ = undefined -- VVV Prop "selected-index" - -- Type: TBasicType TInt64 + -- Type: TBasicType TLong -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) -getDOMHTMLSelectElementSelectedIndex :: (MonadIO m, DOMHTMLSelectElementK o) => o -> m Int64 -getDOMHTMLSelectElementSelectedIndex obj = liftIO $ getObjectPropertyInt64 obj "selected-index" +getDOMHTMLSelectElementSelectedIndex :: (MonadIO m, DOMHTMLSelectElementK o) => o -> m CLong +getDOMHTMLSelectElementSelectedIndex obj = liftIO $ getObjectPropertyLong obj "selected-index" -setDOMHTMLSelectElementSelectedIndex :: (MonadIO m, DOMHTMLSelectElementK o) => o -> Int64 -> m () -setDOMHTMLSelectElementSelectedIndex obj val = liftIO $ setObjectPropertyInt64 obj "selected-index" val +setDOMHTMLSelectElementSelectedIndex :: (MonadIO m, DOMHTMLSelectElementK o) => o -> CLong -> m () +setDOMHTMLSelectElementSelectedIndex obj val = liftIO $ setObjectPropertyLong obj "selected-index" val -constructDOMHTMLSelectElementSelectedIndex :: Int64 -> IO ([Char], GValue) -constructDOMHTMLSelectElementSelectedIndex val = constructObjectPropertyInt64 "selected-index" val +constructDOMHTMLSelectElementSelectedIndex :: CLong -> IO ([Char], GValue) +constructDOMHTMLSelectElementSelectedIndex val = constructObjectPropertyLong "selected-index" val data DOMHTMLSelectElementSelectedIndexPropertyInfo instance AttrInfo DOMHTMLSelectElementSelectedIndexPropertyInfo where type AttrAllowedOps DOMHTMLSelectElementSelectedIndexPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLSelectElementSelectedIndexPropertyInfo = (~) Int64 + type AttrSetTypeConstraint DOMHTMLSelectElementSelectedIndexPropertyInfo = (~) CLong type AttrBaseTypeConstraint DOMHTMLSelectElementSelectedIndexPropertyInfo = DOMHTMLSelectElementK - type AttrGetType DOMHTMLSelectElementSelectedIndexPropertyInfo = Int64 + type AttrGetType DOMHTMLSelectElementSelectedIndexPropertyInfo = CLong type AttrLabel DOMHTMLSelectElementSelectedIndexPropertyInfo = "selected-index" attrGet _ = getDOMHTMLSelectElementSelectedIndex attrSet _ = setDOMHTMLSelectElementSelectedIndex attrConstruct _ = constructDOMHTMLSelectElementSelectedIndex + attrClear _ = undefined -- VVV Prop "selected-options" -- Type: TInterface "WebKit" "DOMHTMLCollection" -- Flags: [PropertyReadable] + -- Nullable: (Nothing,Nothing) -getDOMHTMLSelectElementSelectedOptions :: (MonadIO m, DOMHTMLSelectElementK o) => o -> m DOMHTMLCollection +getDOMHTMLSelectElementSelectedOptions :: (MonadIO m, DOMHTMLSelectElementK o) => o -> m (Maybe DOMHTMLCollection) getDOMHTMLSelectElementSelectedOptions obj = liftIO $ getObjectPropertyObject obj "selected-options" DOMHTMLCollection data DOMHTMLSelectElementSelectedOptionsPropertyInfo instance AttrInfo DOMHTMLSelectElementSelectedOptionsPropertyInfo where - type AttrAllowedOps DOMHTMLSelectElementSelectedOptionsPropertyInfo = '[ 'AttrGet] + type AttrAllowedOps DOMHTMLSelectElementSelectedOptionsPropertyInfo = '[ 'AttrGet, 'AttrClear] type AttrSetTypeConstraint DOMHTMLSelectElementSelectedOptionsPropertyInfo = (~) () type AttrBaseTypeConstraint DOMHTMLSelectElementSelectedOptionsPropertyInfo = DOMHTMLSelectElementK - type AttrGetType DOMHTMLSelectElementSelectedOptionsPropertyInfo = DOMHTMLCollection + type AttrGetType DOMHTMLSelectElementSelectedOptionsPropertyInfo = (Maybe DOMHTMLCollection) type AttrLabel DOMHTMLSelectElementSelectedOptionsPropertyInfo = "selected-options" attrGet _ = getDOMHTMLSelectElementSelectedOptions attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "size" - -- Type: TBasicType TInt64 + -- Type: TBasicType TLong -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) -getDOMHTMLSelectElementSize :: (MonadIO m, DOMHTMLSelectElementK o) => o -> m Int64 -getDOMHTMLSelectElementSize obj = liftIO $ getObjectPropertyInt64 obj "size" +getDOMHTMLSelectElementSize :: (MonadIO m, DOMHTMLSelectElementK o) => o -> m CLong +getDOMHTMLSelectElementSize obj = liftIO $ getObjectPropertyLong obj "size" -setDOMHTMLSelectElementSize :: (MonadIO m, DOMHTMLSelectElementK o) => o -> Int64 -> m () -setDOMHTMLSelectElementSize obj val = liftIO $ setObjectPropertyInt64 obj "size" val +setDOMHTMLSelectElementSize :: (MonadIO m, DOMHTMLSelectElementK o) => o -> CLong -> m () +setDOMHTMLSelectElementSize obj val = liftIO $ setObjectPropertyLong obj "size" val -constructDOMHTMLSelectElementSize :: Int64 -> IO ([Char], GValue) -constructDOMHTMLSelectElementSize val = constructObjectPropertyInt64 "size" val +constructDOMHTMLSelectElementSize :: CLong -> IO ([Char], GValue) +constructDOMHTMLSelectElementSize val = constructObjectPropertyLong "size" val data DOMHTMLSelectElementSizePropertyInfo instance AttrInfo DOMHTMLSelectElementSizePropertyInfo where type AttrAllowedOps DOMHTMLSelectElementSizePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLSelectElementSizePropertyInfo = (~) Int64 + type AttrSetTypeConstraint DOMHTMLSelectElementSizePropertyInfo = (~) CLong type AttrBaseTypeConstraint DOMHTMLSelectElementSizePropertyInfo = DOMHTMLSelectElementK - type AttrGetType DOMHTMLSelectElementSizePropertyInfo = Int64 + type AttrGetType DOMHTMLSelectElementSizePropertyInfo = CLong type AttrLabel DOMHTMLSelectElementSizePropertyInfo = "size" attrGet _ = getDOMHTMLSelectElementSize attrSet _ = setDOMHTMLSelectElementSize attrConstruct _ = constructDOMHTMLSelectElementSize + attrClear _ = undefined -- VVV Prop "type" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable] + -- Nullable: (Nothing,Nothing) -getDOMHTMLSelectElementType :: (MonadIO m, DOMHTMLSelectElementK o) => o -> m T.Text +getDOMHTMLSelectElementType :: (MonadIO m, DOMHTMLSelectElementK o) => o -> m (Maybe T.Text) getDOMHTMLSelectElementType obj = liftIO $ getObjectPropertyString obj "type" data DOMHTMLSelectElementTypePropertyInfo instance AttrInfo DOMHTMLSelectElementTypePropertyInfo where - type AttrAllowedOps DOMHTMLSelectElementTypePropertyInfo = '[ 'AttrGet] + type AttrAllowedOps DOMHTMLSelectElementTypePropertyInfo = '[ 'AttrGet, 'AttrClear] type AttrSetTypeConstraint DOMHTMLSelectElementTypePropertyInfo = (~) () type AttrBaseTypeConstraint DOMHTMLSelectElementTypePropertyInfo = DOMHTMLSelectElementK - type AttrGetType DOMHTMLSelectElementTypePropertyInfo = T.Text + type AttrGetType DOMHTMLSelectElementTypePropertyInfo = (Maybe T.Text) type AttrLabel DOMHTMLSelectElementTypePropertyInfo = "type" attrGet _ = getDOMHTMLSelectElementType attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "validation-message" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable] + -- Nullable: (Nothing,Nothing) -getDOMHTMLSelectElementValidationMessage :: (MonadIO m, DOMHTMLSelectElementK o) => o -> m T.Text +getDOMHTMLSelectElementValidationMessage :: (MonadIO m, DOMHTMLSelectElementK o) => o -> m (Maybe T.Text) getDOMHTMLSelectElementValidationMessage obj = liftIO $ getObjectPropertyString obj "validation-message" data DOMHTMLSelectElementValidationMessagePropertyInfo instance AttrInfo DOMHTMLSelectElementValidationMessagePropertyInfo where - type AttrAllowedOps DOMHTMLSelectElementValidationMessagePropertyInfo = '[ 'AttrGet] + type AttrAllowedOps DOMHTMLSelectElementValidationMessagePropertyInfo = '[ 'AttrGet, 'AttrClear] type AttrSetTypeConstraint DOMHTMLSelectElementValidationMessagePropertyInfo = (~) () type AttrBaseTypeConstraint DOMHTMLSelectElementValidationMessagePropertyInfo = DOMHTMLSelectElementK - type AttrGetType DOMHTMLSelectElementValidationMessagePropertyInfo = T.Text + type AttrGetType DOMHTMLSelectElementValidationMessagePropertyInfo = (Maybe T.Text) type AttrLabel DOMHTMLSelectElementValidationMessagePropertyInfo = "validation-message" attrGet _ = getDOMHTMLSelectElementValidationMessage attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "validity" -- Type: TInterface "WebKit" "DOMValidityState" -- Flags: [PropertyReadable] + -- Nullable: (Nothing,Nothing) -getDOMHTMLSelectElementValidity :: (MonadIO m, DOMHTMLSelectElementK o) => o -> m DOMValidityState +getDOMHTMLSelectElementValidity :: (MonadIO m, DOMHTMLSelectElementK o) => o -> m (Maybe DOMValidityState) getDOMHTMLSelectElementValidity obj = liftIO $ getObjectPropertyObject obj "validity" DOMValidityState data DOMHTMLSelectElementValidityPropertyInfo instance AttrInfo DOMHTMLSelectElementValidityPropertyInfo where - type AttrAllowedOps DOMHTMLSelectElementValidityPropertyInfo = '[ 'AttrGet] + type AttrAllowedOps DOMHTMLSelectElementValidityPropertyInfo = '[ 'AttrGet, 'AttrClear] type AttrSetTypeConstraint DOMHTMLSelectElementValidityPropertyInfo = (~) () type AttrBaseTypeConstraint DOMHTMLSelectElementValidityPropertyInfo = DOMHTMLSelectElementK - type AttrGetType DOMHTMLSelectElementValidityPropertyInfo = DOMValidityState + type AttrGetType DOMHTMLSelectElementValidityPropertyInfo = (Maybe DOMValidityState) type AttrLabel DOMHTMLSelectElementValidityPropertyInfo = "validity" attrGet _ = getDOMHTMLSelectElementValidity attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "value" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Just False) -getDOMHTMLSelectElementValue :: (MonadIO m, DOMHTMLSelectElementK o) => o -> m T.Text +getDOMHTMLSelectElementValue :: (MonadIO m, DOMHTMLSelectElementK o) => o -> m (Maybe T.Text) getDOMHTMLSelectElementValue obj = liftIO $ getObjectPropertyString obj "value" setDOMHTMLSelectElementValue :: (MonadIO m, DOMHTMLSelectElementK o) => o -> T.Text -> m () -setDOMHTMLSelectElementValue obj val = liftIO $ setObjectPropertyString obj "value" val +setDOMHTMLSelectElementValue obj val = liftIO $ setObjectPropertyString obj "value" (Just val) constructDOMHTMLSelectElementValue :: T.Text -> IO ([Char], GValue) -constructDOMHTMLSelectElementValue val = constructObjectPropertyString "value" val +constructDOMHTMLSelectElementValue val = constructObjectPropertyString "value" (Just val) data DOMHTMLSelectElementValuePropertyInfo instance AttrInfo DOMHTMLSelectElementValuePropertyInfo where type AttrAllowedOps DOMHTMLSelectElementValuePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint DOMHTMLSelectElementValuePropertyInfo = (~) T.Text type AttrBaseTypeConstraint DOMHTMLSelectElementValuePropertyInfo = DOMHTMLSelectElementK - type AttrGetType DOMHTMLSelectElementValuePropertyInfo = T.Text + type AttrGetType DOMHTMLSelectElementValuePropertyInfo = (Maybe T.Text) type AttrLabel DOMHTMLSelectElementValuePropertyInfo = "value" attrGet _ = getDOMHTMLSelectElementValue attrSet _ = setDOMHTMLSelectElementValue attrConstruct _ = constructDOMHTMLSelectElementValue + attrClear _ = undefined -- VVV Prop "will-validate" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) getDOMHTMLSelectElementWillValidate :: (MonadIO m, DOMHTMLSelectElementK o) => o -> m Bool getDOMHTMLSelectElementWillValidate obj = liftIO $ getObjectPropertyBool obj "will-validate" @@ -867,10 +917,62 @@ attrGet _ = getDOMHTMLSelectElementWillValidate attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined type instance AttributeList DOMHTMLSelectElement = DOMHTMLSelectElementAttributeList type DOMHTMLSelectElementAttributeList = ('[ '("accessKey", DOMHTMLElementAccessKeyPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("autofocus", DOMHTMLSelectElementAutofocusPropertyInfo), '("baseUri", DOMNodeBaseUriPropertyInfo), '("childElementCount", DOMElementChildElementCountPropertyInfo), '("childNodes", DOMNodeChildNodesPropertyInfo), '("children", DOMHTMLElementChildrenPropertyInfo), '("classList", DOMElementClassListPropertyInfo), '("className", DOMElementClassNamePropertyInfo), '("clientHeight", DOMElementClientHeightPropertyInfo), '("clientLeft", DOMElementClientLeftPropertyInfo), '("clientTop", DOMElementClientTopPropertyInfo), '("clientWidth", DOMElementClientWidthPropertyInfo), '("contentEditable", DOMHTMLElementContentEditablePropertyInfo), '("coreObject", DOMObjectCoreObjectPropertyInfo), '("dir", DOMHTMLElementDirPropertyInfo), '("disabled", DOMHTMLSelectElementDisabledPropertyInfo), '("draggable", DOMHTMLElementDraggablePropertyInfo), '("firstChild", DOMNodeFirstChildPropertyInfo), '("firstElementChild", DOMElementFirstElementChildPropertyInfo), '("form", DOMHTMLSelectElementFormPropertyInfo), '("hidden", DOMHTMLElementHiddenPropertyInfo), '("id", DOMElementIdPropertyInfo), '("innerHtml", DOMHTMLElementInnerHtmlPropertyInfo), '("innerText", DOMHTMLElementInnerTextPropertyInfo), '("isContentEditable", DOMHTMLElementIsContentEditablePropertyInfo), '("labels", DOMHTMLSelectElementLabelsPropertyInfo), '("lang", DOMHTMLElementLangPropertyInfo), '("lastChild", DOMNodeLastChildPropertyInfo), '("lastElementChild", DOMElementLastElementChildPropertyInfo), '("length", DOMHTMLSelectElementLengthPropertyInfo), '("localName", DOMNodeLocalNamePropertyInfo), '("multiple", DOMHTMLSelectElementMultiplePropertyInfo), '("name", DOMHTMLSelectElementNamePropertyInfo), '("namespaceUri", DOMNodeNamespaceUriPropertyInfo), '("nextElementSibling", DOMElementNextElementSiblingPropertyInfo), '("nextSibling", DOMNodeNextSiblingPropertyInfo), '("nodeName", DOMNodeNodeNamePropertyInfo), '("nodeType", DOMNodeNodeTypePropertyInfo), '("nodeValue", DOMNodeNodeValuePropertyInfo), '("offsetHeight", DOMElementOffsetHeightPropertyInfo), '("offsetLeft", DOMElementOffsetLeftPropertyInfo), '("offsetParent", DOMElementOffsetParentPropertyInfo), '("offsetTop", DOMElementOffsetTopPropertyInfo), '("offsetWidth", DOMElementOffsetWidthPropertyInfo), '("options", DOMHTMLSelectElementOptionsPropertyInfo), '("outerHtml", DOMHTMLElementOuterHtmlPropertyInfo), '("outerText", DOMHTMLElementOuterTextPropertyInfo), '("ownerDocument", DOMNodeOwnerDocumentPropertyInfo), '("parentElement", DOMNodeParentElementPropertyInfo), '("parentNode", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previousElementSibling", DOMElementPreviousElementSiblingPropertyInfo), '("previousSibling", DOMNodePreviousSiblingPropertyInfo), '("required", DOMHTMLSelectElementRequiredPropertyInfo), '("scrollHeight", DOMElementScrollHeightPropertyInfo), '("scrollLeft", DOMElementScrollLeftPropertyInfo), '("scrollTop", DOMElementScrollTopPropertyInfo), '("scrollWidth", DOMElementScrollWidthPropertyInfo), '("selectedIndex", DOMHTMLSelectElementSelectedIndexPropertyInfo), '("selectedOptions", DOMHTMLSelectElementSelectedOptionsPropertyInfo), '("size", DOMHTMLSelectElementSizePropertyInfo), '("spellcheck", DOMHTMLElementSpellcheckPropertyInfo), '("style", DOMElementStylePropertyInfo), '("tabIndex", DOMHTMLElementTabIndexPropertyInfo), '("tagName", DOMElementTagNamePropertyInfo), '("textContent", DOMNodeTextContentPropertyInfo), '("title", DOMHTMLElementTitlePropertyInfo), '("translate", DOMHTMLElementTranslatePropertyInfo), '("type", DOMHTMLSelectElementTypePropertyInfo), '("validationMessage", DOMHTMLSelectElementValidationMessagePropertyInfo), '("validity", DOMHTMLSelectElementValidityPropertyInfo), '("value", DOMHTMLSelectElementValuePropertyInfo), '("webkitRegionOverset", DOMElementWebkitRegionOversetPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo), '("willValidate", DOMHTMLSelectElementWillValidatePropertyInfo)] :: [(Symbol, *)]) +dOMHTMLSelectElementAutofocus :: AttrLabelProxy "autofocus" +dOMHTMLSelectElementAutofocus = AttrLabelProxy + +dOMHTMLSelectElementDisabled :: AttrLabelProxy "disabled" +dOMHTMLSelectElementDisabled = AttrLabelProxy + +dOMHTMLSelectElementForm :: AttrLabelProxy "form" +dOMHTMLSelectElementForm = AttrLabelProxy + +dOMHTMLSelectElementLabels :: AttrLabelProxy "labels" +dOMHTMLSelectElementLabels = AttrLabelProxy + +dOMHTMLSelectElementLength :: AttrLabelProxy "length" +dOMHTMLSelectElementLength = AttrLabelProxy + +dOMHTMLSelectElementMultiple :: AttrLabelProxy "multiple" +dOMHTMLSelectElementMultiple = AttrLabelProxy + +dOMHTMLSelectElementName :: AttrLabelProxy "name" +dOMHTMLSelectElementName = AttrLabelProxy + +dOMHTMLSelectElementOptions :: AttrLabelProxy "options" +dOMHTMLSelectElementOptions = AttrLabelProxy + +dOMHTMLSelectElementRequired :: AttrLabelProxy "required" +dOMHTMLSelectElementRequired = AttrLabelProxy + +dOMHTMLSelectElementSelectedIndex :: AttrLabelProxy "selectedIndex" +dOMHTMLSelectElementSelectedIndex = AttrLabelProxy + +dOMHTMLSelectElementSelectedOptions :: AttrLabelProxy "selectedOptions" +dOMHTMLSelectElementSelectedOptions = AttrLabelProxy + +dOMHTMLSelectElementSize :: AttrLabelProxy "size" +dOMHTMLSelectElementSize = AttrLabelProxy + +dOMHTMLSelectElementType :: AttrLabelProxy "type" +dOMHTMLSelectElementType = AttrLabelProxy + +dOMHTMLSelectElementValidationMessage :: AttrLabelProxy "validationMessage" +dOMHTMLSelectElementValidationMessage = AttrLabelProxy + +dOMHTMLSelectElementValidity :: AttrLabelProxy "validity" +dOMHTMLSelectElementValidity = AttrLabelProxy + +dOMHTMLSelectElementValue :: AttrLabelProxy "value" +dOMHTMLSelectElementValue = AttrLabelProxy + +dOMHTMLSelectElementWillValidate :: AttrLabelProxy "willValidate" +dOMHTMLSelectElementWillValidate = AttrLabelProxy + type instance SignalList DOMHTMLSelectElement = DOMHTMLSelectElementSignalList type DOMHTMLSelectElementSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) @@ -878,7 +980,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLSelectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "element", argType = TInterface "WebKit" "DOMHTMLElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "before", argType = TInterface "WebKit" "DOMHTMLElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : True -- Skip return : False @@ -918,7 +1020,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLSelectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -946,7 +1048,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLSelectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -974,7 +1076,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLSelectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -1002,7 +1104,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLSelectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit" "DOMHTMLFormElement" +-- returnType : Just (TInterface "WebKit" "DOMHTMLFormElement") -- throws : False -- Skip return : False @@ -1031,7 +1133,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLSelectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit" "DOMNodeList" +-- returnType : Just (TInterface "WebKit" "DOMNodeList") -- throws : False -- Skip return : False @@ -1060,19 +1162,19 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLSelectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUInt64 +-- returnType : Just (TBasicType TULong) -- throws : False -- Skip return : False foreign import ccall "webkit_dom_html_select_element_get_length" webkit_dom_html_select_element_get_length :: Ptr DOMHTMLSelectElement -> -- _obj : TInterface "WebKit" "DOMHTMLSelectElement" - IO Word64 + IO CULong dOMHTMLSelectElementGetLength :: (MonadIO m, DOMHTMLSelectElementK a) => a -- _obj - -> m Word64 -- result + -> m CULong -- result dOMHTMLSelectElementGetLength _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- webkit_dom_html_select_element_get_length _obj' @@ -1080,14 +1182,14 @@ return result data DOMHTMLSelectElementGetLengthMethodInfo -instance (signature ~ (m Word64), MonadIO m, DOMHTMLSelectElementK a) => MethodInfo DOMHTMLSelectElementGetLengthMethodInfo a signature where +instance (signature ~ (m CULong), MonadIO m, DOMHTMLSelectElementK a) => MethodInfo DOMHTMLSelectElementGetLengthMethodInfo a signature where overloadedMethod _ = dOMHTMLSelectElementGetLength -- method DOMHTMLSelectElement::get_multiple -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLSelectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -1115,7 +1217,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLSelectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -1145,7 +1247,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLSelectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit" "DOMHTMLOptionsCollection" +-- returnType : Just (TInterface "WebKit" "DOMHTMLOptionsCollection") -- throws : False -- Skip return : False @@ -1174,7 +1276,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLSelectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -1202,19 +1304,19 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLSelectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TInt64 +-- returnType : Just (TBasicType TLong) -- throws : False -- Skip return : False foreign import ccall "webkit_dom_html_select_element_get_selected_index" webkit_dom_html_select_element_get_selected_index :: Ptr DOMHTMLSelectElement -> -- _obj : TInterface "WebKit" "DOMHTMLSelectElement" - IO Int64 + IO CLong dOMHTMLSelectElementGetSelectedIndex :: (MonadIO m, DOMHTMLSelectElementK a) => a -- _obj - -> m Int64 -- result + -> m CLong -- result dOMHTMLSelectElementGetSelectedIndex _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- webkit_dom_html_select_element_get_selected_index _obj' @@ -1222,14 +1324,14 @@ return result data DOMHTMLSelectElementGetSelectedIndexMethodInfo -instance (signature ~ (m Int64), MonadIO m, DOMHTMLSelectElementK a) => MethodInfo DOMHTMLSelectElementGetSelectedIndexMethodInfo a signature where +instance (signature ~ (m CLong), MonadIO m, DOMHTMLSelectElementK a) => MethodInfo DOMHTMLSelectElementGetSelectedIndexMethodInfo a signature where overloadedMethod _ = dOMHTMLSelectElementGetSelectedIndex -- method DOMHTMLSelectElement::get_selected_options -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLSelectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit" "DOMHTMLCollection" +-- returnType : Just (TInterface "WebKit" "DOMHTMLCollection") -- throws : False -- Skip return : False @@ -1258,19 +1360,19 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLSelectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TInt64 +-- returnType : Just (TBasicType TLong) -- throws : False -- Skip return : False foreign import ccall "webkit_dom_html_select_element_get_size" webkit_dom_html_select_element_get_size :: Ptr DOMHTMLSelectElement -> -- _obj : TInterface "WebKit" "DOMHTMLSelectElement" - IO Int64 + IO CLong dOMHTMLSelectElementGetSize :: (MonadIO m, DOMHTMLSelectElementK a) => a -- _obj - -> m Int64 -- result + -> m CLong -- result dOMHTMLSelectElementGetSize _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- webkit_dom_html_select_element_get_size _obj' @@ -1278,14 +1380,14 @@ return result data DOMHTMLSelectElementGetSizeMethodInfo -instance (signature ~ (m Int64), MonadIO m, DOMHTMLSelectElementK a) => MethodInfo DOMHTMLSelectElementGetSizeMethodInfo a signature where +instance (signature ~ (m CLong), MonadIO m, DOMHTMLSelectElementK a) => MethodInfo DOMHTMLSelectElementGetSizeMethodInfo a signature where overloadedMethod _ = dOMHTMLSelectElementGetSize -- method DOMHTMLSelectElement::get_validation_message -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLSelectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -1315,7 +1417,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLSelectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit" "DOMValidityState" +-- returnType : Just (TInterface "WebKit" "DOMValidityState") -- throws : False -- Skip return : False @@ -1344,7 +1446,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLSelectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -1374,7 +1476,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLSelectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -1400,22 +1502,22 @@ -- method DOMHTMLSelectElement::item -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLSelectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "index", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLSelectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "index", argType = TBasicType TULong, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit" "DOMNode" +-- returnType : Just (TInterface "WebKit" "DOMNode") -- throws : False -- Skip return : False foreign import ccall "webkit_dom_html_select_element_item" webkit_dom_html_select_element_item :: Ptr DOMHTMLSelectElement -> -- _obj : TInterface "WebKit" "DOMHTMLSelectElement" - Word64 -> -- index : TBasicType TUInt64 + CULong -> -- index : TBasicType TULong IO (Ptr DOMNode) dOMHTMLSelectElementItem :: (MonadIO m, DOMHTMLSelectElementK a) => a -- _obj - -> Word64 -- index + -> CULong -- index -> m DOMNode -- result dOMHTMLSelectElementItem _obj index = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj @@ -1426,14 +1528,14 @@ return result' data DOMHTMLSelectElementItemMethodInfo -instance (signature ~ (Word64 -> m DOMNode), MonadIO m, DOMHTMLSelectElementK a) => MethodInfo DOMHTMLSelectElementItemMethodInfo a signature where +instance (signature ~ (CULong -> m DOMNode), MonadIO m, DOMHTMLSelectElementK a) => MethodInfo DOMHTMLSelectElementItemMethodInfo a signature where overloadedMethod _ = dOMHTMLSelectElementItem -- method DOMHTMLSelectElement::named_item -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLSelectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit" "DOMNode" +-- returnType : Just (TInterface "WebKit" "DOMNode") -- throws : False -- Skip return : False @@ -1464,22 +1566,22 @@ -- method DOMHTMLSelectElement::remove -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLSelectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "index", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLSelectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "index", argType = TBasicType TLong, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "webkit_dom_html_select_element_remove" webkit_dom_html_select_element_remove :: Ptr DOMHTMLSelectElement -> -- _obj : TInterface "WebKit" "DOMHTMLSelectElement" - Int64 -> -- index : TBasicType TInt64 + CLong -> -- index : TBasicType TLong IO () dOMHTMLSelectElementRemove :: (MonadIO m, DOMHTMLSelectElementK a) => a -- _obj - -> Int64 -- index + -> CLong -- index -> m () -- result dOMHTMLSelectElementRemove _obj index = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj @@ -1488,14 +1590,14 @@ return () data DOMHTMLSelectElementRemoveMethodInfo -instance (signature ~ (Int64 -> m ()), MonadIO m, DOMHTMLSelectElementK a) => MethodInfo DOMHTMLSelectElementRemoveMethodInfo a signature where +instance (signature ~ (CLong -> m ()), MonadIO m, DOMHTMLSelectElementK a) => MethodInfo DOMHTMLSelectElementRemoveMethodInfo a signature where overloadedMethod _ = dOMHTMLSelectElementRemove -- method DOMHTMLSelectElement::set_autofocus -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLSelectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1525,7 +1627,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLSelectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "error", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1556,7 +1658,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLSelectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1584,15 +1686,15 @@ -- method DOMHTMLSelectElement::set_length -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLSelectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLSelectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TULong, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : True -- Skip return : False foreign import ccall "webkit_dom_html_select_element_set_length" webkit_dom_html_select_element_set_length :: Ptr DOMHTMLSelectElement -> -- _obj : TInterface "WebKit" "DOMHTMLSelectElement" - Word64 -> -- value : TBasicType TUInt64 + CULong -> -- value : TBasicType TULong Ptr (Ptr GError) -> -- error IO () @@ -1600,7 +1702,7 @@ dOMHTMLSelectElementSetLength :: (MonadIO m, DOMHTMLSelectElementK a) => a -- _obj - -> Word64 -- value + -> CULong -- value -> m () -- result dOMHTMLSelectElementSetLength _obj value = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj @@ -1613,14 +1715,14 @@ ) data DOMHTMLSelectElementSetLengthMethodInfo -instance (signature ~ (Word64 -> m ()), MonadIO m, DOMHTMLSelectElementK a) => MethodInfo DOMHTMLSelectElementSetLengthMethodInfo a signature where +instance (signature ~ (CULong -> m ()), MonadIO m, DOMHTMLSelectElementK a) => MethodInfo DOMHTMLSelectElementSetLengthMethodInfo a signature where overloadedMethod _ = dOMHTMLSelectElementSetLength -- method DOMHTMLSelectElement::set_multiple -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLSelectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1650,7 +1752,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLSelectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1681,7 +1783,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLSelectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1709,22 +1811,22 @@ -- method DOMHTMLSelectElement::set_selected_index -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLSelectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLSelectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TLong, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "webkit_dom_html_select_element_set_selected_index" webkit_dom_html_select_element_set_selected_index :: Ptr DOMHTMLSelectElement -> -- _obj : TInterface "WebKit" "DOMHTMLSelectElement" - Int64 -> -- value : TBasicType TInt64 + CLong -> -- value : TBasicType TLong IO () dOMHTMLSelectElementSetSelectedIndex :: (MonadIO m, DOMHTMLSelectElementK a) => a -- _obj - -> Int64 -- value + -> CLong -- value -> m () -- result dOMHTMLSelectElementSetSelectedIndex _obj value = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj @@ -1733,27 +1835,27 @@ return () data DOMHTMLSelectElementSetSelectedIndexMethodInfo -instance (signature ~ (Int64 -> m ()), MonadIO m, DOMHTMLSelectElementK a) => MethodInfo DOMHTMLSelectElementSetSelectedIndexMethodInfo a signature where +instance (signature ~ (CLong -> m ()), MonadIO m, DOMHTMLSelectElementK a) => MethodInfo DOMHTMLSelectElementSetSelectedIndexMethodInfo a signature where overloadedMethod _ = dOMHTMLSelectElementSetSelectedIndex -- method DOMHTMLSelectElement::set_size -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLSelectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLSelectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TLong, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "webkit_dom_html_select_element_set_size" webkit_dom_html_select_element_set_size :: Ptr DOMHTMLSelectElement -> -- _obj : TInterface "WebKit" "DOMHTMLSelectElement" - Int64 -> -- value : TBasicType TInt64 + CLong -> -- value : TBasicType TLong IO () dOMHTMLSelectElementSetSize :: (MonadIO m, DOMHTMLSelectElementK a) => a -- _obj - -> Int64 -- value + -> CLong -- value -> m () -- result dOMHTMLSelectElementSetSize _obj value = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj @@ -1762,14 +1864,14 @@ return () data DOMHTMLSelectElementSetSizeMethodInfo -instance (signature ~ (Int64 -> m ()), MonadIO m, DOMHTMLSelectElementK a) => MethodInfo DOMHTMLSelectElementSetSizeMethodInfo a signature where +instance (signature ~ (CLong -> m ()), MonadIO m, DOMHTMLSelectElementK a) => MethodInfo DOMHTMLSelectElementSetSizeMethodInfo a signature where overloadedMethod _ = dOMHTMLSelectElementSetSize -- method DOMHTMLSelectElement::set_value -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLSelectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False diff --git a/GI/WebKit/Objects/DOMHTMLSelectElement.hs-boot b/GI/WebKit/Objects/DOMHTMLSelectElement.hs-boot --- a/GI/WebKit/Objects/DOMHTMLSelectElement.hs-boot +++ b/GI/WebKit/Objects/DOMHTMLSelectElement.hs-boot @@ -1,8 +1,8 @@ module GI.WebKit.Objects.DOMHTMLSelectElement where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map diff --git a/GI/WebKit/Objects/DOMHTMLStyleElement.hs b/GI/WebKit/Objects/DOMHTMLStyleElement.hs --- a/GI/WebKit/Objects/DOMHTMLStyleElement.hs +++ b/GI/WebKit/Objects/DOMHTMLStyleElement.hs @@ -58,6 +58,7 @@ -- ** Disabled DOMHTMLStyleElementDisabledPropertyInfo , constructDOMHTMLStyleElementDisabled , + dOMHTMLStyleElementDisabled , getDOMHTMLStyleElementDisabled , setDOMHTMLStyleElementDisabled , @@ -65,18 +66,22 @@ -- ** Media DOMHTMLStyleElementMediaPropertyInfo , constructDOMHTMLStyleElementMedia , + dOMHTMLStyleElementMedia , getDOMHTMLStyleElementMedia , setDOMHTMLStyleElementMedia , -- ** Sheet DOMHTMLStyleElementSheetPropertyInfo , + dOMHTMLStyleElementSheet , getDOMHTMLStyleElementSheet , -- ** Type DOMHTMLStyleElementTypePropertyInfo , + clearDOMHTMLStyleElementType , constructDOMHTMLStyleElementType , + dOMHTMLStyleElementType , getDOMHTMLStyleElementType , setDOMHTMLStyleElementType , @@ -85,9 +90,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map @@ -292,6 +297,7 @@ -- VVV Prop "disabled" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getDOMHTMLStyleElementDisabled :: (MonadIO m, DOMHTMLStyleElementK o) => o -> m Bool getDOMHTMLStyleElementDisabled obj = liftIO $ getObjectPropertyBool obj "disabled" @@ -312,76 +318,98 @@ attrGet _ = getDOMHTMLStyleElementDisabled attrSet _ = setDOMHTMLStyleElementDisabled attrConstruct _ = constructDOMHTMLStyleElementDisabled + attrClear _ = undefined -- VVV Prop "media" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Just False) -getDOMHTMLStyleElementMedia :: (MonadIO m, DOMHTMLStyleElementK o) => o -> m T.Text +getDOMHTMLStyleElementMedia :: (MonadIO m, DOMHTMLStyleElementK o) => o -> m (Maybe T.Text) getDOMHTMLStyleElementMedia obj = liftIO $ getObjectPropertyString obj "media" setDOMHTMLStyleElementMedia :: (MonadIO m, DOMHTMLStyleElementK o) => o -> T.Text -> m () -setDOMHTMLStyleElementMedia obj val = liftIO $ setObjectPropertyString obj "media" val +setDOMHTMLStyleElementMedia obj val = liftIO $ setObjectPropertyString obj "media" (Just val) constructDOMHTMLStyleElementMedia :: T.Text -> IO ([Char], GValue) -constructDOMHTMLStyleElementMedia val = constructObjectPropertyString "media" val +constructDOMHTMLStyleElementMedia val = constructObjectPropertyString "media" (Just val) data DOMHTMLStyleElementMediaPropertyInfo instance AttrInfo DOMHTMLStyleElementMediaPropertyInfo where type AttrAllowedOps DOMHTMLStyleElementMediaPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint DOMHTMLStyleElementMediaPropertyInfo = (~) T.Text type AttrBaseTypeConstraint DOMHTMLStyleElementMediaPropertyInfo = DOMHTMLStyleElementK - type AttrGetType DOMHTMLStyleElementMediaPropertyInfo = T.Text + type AttrGetType DOMHTMLStyleElementMediaPropertyInfo = (Maybe T.Text) type AttrLabel DOMHTMLStyleElementMediaPropertyInfo = "media" attrGet _ = getDOMHTMLStyleElementMedia attrSet _ = setDOMHTMLStyleElementMedia attrConstruct _ = constructDOMHTMLStyleElementMedia + attrClear _ = undefined -- VVV Prop "sheet" -- Type: TInterface "WebKit" "DOMStyleSheet" -- Flags: [PropertyReadable] + -- Nullable: (Nothing,Nothing) -getDOMHTMLStyleElementSheet :: (MonadIO m, DOMHTMLStyleElementK o) => o -> m DOMStyleSheet +getDOMHTMLStyleElementSheet :: (MonadIO m, DOMHTMLStyleElementK o) => o -> m (Maybe DOMStyleSheet) getDOMHTMLStyleElementSheet obj = liftIO $ getObjectPropertyObject obj "sheet" DOMStyleSheet data DOMHTMLStyleElementSheetPropertyInfo instance AttrInfo DOMHTMLStyleElementSheetPropertyInfo where - type AttrAllowedOps DOMHTMLStyleElementSheetPropertyInfo = '[ 'AttrGet] + type AttrAllowedOps DOMHTMLStyleElementSheetPropertyInfo = '[ 'AttrGet, 'AttrClear] type AttrSetTypeConstraint DOMHTMLStyleElementSheetPropertyInfo = (~) () type AttrBaseTypeConstraint DOMHTMLStyleElementSheetPropertyInfo = DOMHTMLStyleElementK - type AttrGetType DOMHTMLStyleElementSheetPropertyInfo = DOMStyleSheet + type AttrGetType DOMHTMLStyleElementSheetPropertyInfo = (Maybe DOMStyleSheet) type AttrLabel DOMHTMLStyleElementSheetPropertyInfo = "sheet" attrGet _ = getDOMHTMLStyleElementSheet attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "type" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) -getDOMHTMLStyleElementType :: (MonadIO m, DOMHTMLStyleElementK o) => o -> m T.Text +getDOMHTMLStyleElementType :: (MonadIO m, DOMHTMLStyleElementK o) => o -> m (Maybe T.Text) getDOMHTMLStyleElementType obj = liftIO $ getObjectPropertyString obj "type" setDOMHTMLStyleElementType :: (MonadIO m, DOMHTMLStyleElementK o) => o -> T.Text -> m () -setDOMHTMLStyleElementType obj val = liftIO $ setObjectPropertyString obj "type" val +setDOMHTMLStyleElementType obj val = liftIO $ setObjectPropertyString obj "type" (Just val) constructDOMHTMLStyleElementType :: T.Text -> IO ([Char], GValue) -constructDOMHTMLStyleElementType val = constructObjectPropertyString "type" val +constructDOMHTMLStyleElementType val = constructObjectPropertyString "type" (Just val) +clearDOMHTMLStyleElementType :: (MonadIO m, DOMHTMLStyleElementK o) => o -> m () +clearDOMHTMLStyleElementType obj = liftIO $ setObjectPropertyString obj "type" (Nothing :: Maybe T.Text) + data DOMHTMLStyleElementTypePropertyInfo instance AttrInfo DOMHTMLStyleElementTypePropertyInfo where - type AttrAllowedOps DOMHTMLStyleElementTypePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrAllowedOps DOMHTMLStyleElementTypePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint DOMHTMLStyleElementTypePropertyInfo = (~) T.Text type AttrBaseTypeConstraint DOMHTMLStyleElementTypePropertyInfo = DOMHTMLStyleElementK - type AttrGetType DOMHTMLStyleElementTypePropertyInfo = T.Text + type AttrGetType DOMHTMLStyleElementTypePropertyInfo = (Maybe T.Text) type AttrLabel DOMHTMLStyleElementTypePropertyInfo = "type" attrGet _ = getDOMHTMLStyleElementType attrSet _ = setDOMHTMLStyleElementType attrConstruct _ = constructDOMHTMLStyleElementType + attrClear _ = clearDOMHTMLStyleElementType type instance AttributeList DOMHTMLStyleElement = DOMHTMLStyleElementAttributeList type DOMHTMLStyleElementAttributeList = ('[ '("accessKey", DOMHTMLElementAccessKeyPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("baseUri", DOMNodeBaseUriPropertyInfo), '("childElementCount", DOMElementChildElementCountPropertyInfo), '("childNodes", DOMNodeChildNodesPropertyInfo), '("children", DOMHTMLElementChildrenPropertyInfo), '("classList", DOMElementClassListPropertyInfo), '("className", DOMElementClassNamePropertyInfo), '("clientHeight", DOMElementClientHeightPropertyInfo), '("clientLeft", DOMElementClientLeftPropertyInfo), '("clientTop", DOMElementClientTopPropertyInfo), '("clientWidth", DOMElementClientWidthPropertyInfo), '("contentEditable", DOMHTMLElementContentEditablePropertyInfo), '("coreObject", DOMObjectCoreObjectPropertyInfo), '("dir", DOMHTMLElementDirPropertyInfo), '("disabled", DOMHTMLStyleElementDisabledPropertyInfo), '("draggable", DOMHTMLElementDraggablePropertyInfo), '("firstChild", DOMNodeFirstChildPropertyInfo), '("firstElementChild", DOMElementFirstElementChildPropertyInfo), '("hidden", DOMHTMLElementHiddenPropertyInfo), '("id", DOMElementIdPropertyInfo), '("innerHtml", DOMHTMLElementInnerHtmlPropertyInfo), '("innerText", DOMHTMLElementInnerTextPropertyInfo), '("isContentEditable", DOMHTMLElementIsContentEditablePropertyInfo), '("lang", DOMHTMLElementLangPropertyInfo), '("lastChild", DOMNodeLastChildPropertyInfo), '("lastElementChild", DOMElementLastElementChildPropertyInfo), '("localName", DOMNodeLocalNamePropertyInfo), '("media", DOMHTMLStyleElementMediaPropertyInfo), '("namespaceUri", DOMNodeNamespaceUriPropertyInfo), '("nextElementSibling", DOMElementNextElementSiblingPropertyInfo), '("nextSibling", DOMNodeNextSiblingPropertyInfo), '("nodeName", DOMNodeNodeNamePropertyInfo), '("nodeType", DOMNodeNodeTypePropertyInfo), '("nodeValue", DOMNodeNodeValuePropertyInfo), '("offsetHeight", DOMElementOffsetHeightPropertyInfo), '("offsetLeft", DOMElementOffsetLeftPropertyInfo), '("offsetParent", DOMElementOffsetParentPropertyInfo), '("offsetTop", DOMElementOffsetTopPropertyInfo), '("offsetWidth", DOMElementOffsetWidthPropertyInfo), '("outerHtml", DOMHTMLElementOuterHtmlPropertyInfo), '("outerText", DOMHTMLElementOuterTextPropertyInfo), '("ownerDocument", DOMNodeOwnerDocumentPropertyInfo), '("parentElement", DOMNodeParentElementPropertyInfo), '("parentNode", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previousElementSibling", DOMElementPreviousElementSiblingPropertyInfo), '("previousSibling", DOMNodePreviousSiblingPropertyInfo), '("scrollHeight", DOMElementScrollHeightPropertyInfo), '("scrollLeft", DOMElementScrollLeftPropertyInfo), '("scrollTop", DOMElementScrollTopPropertyInfo), '("scrollWidth", DOMElementScrollWidthPropertyInfo), '("sheet", DOMHTMLStyleElementSheetPropertyInfo), '("spellcheck", DOMHTMLElementSpellcheckPropertyInfo), '("style", DOMElementStylePropertyInfo), '("tabIndex", DOMHTMLElementTabIndexPropertyInfo), '("tagName", DOMElementTagNamePropertyInfo), '("textContent", DOMNodeTextContentPropertyInfo), '("title", DOMHTMLElementTitlePropertyInfo), '("translate", DOMHTMLElementTranslatePropertyInfo), '("type", DOMHTMLStyleElementTypePropertyInfo), '("webkitRegionOverset", DOMElementWebkitRegionOversetPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo)] :: [(Symbol, *)]) +dOMHTMLStyleElementDisabled :: AttrLabelProxy "disabled" +dOMHTMLStyleElementDisabled = AttrLabelProxy + +dOMHTMLStyleElementMedia :: AttrLabelProxy "media" +dOMHTMLStyleElementMedia = AttrLabelProxy + +dOMHTMLStyleElementSheet :: AttrLabelProxy "sheet" +dOMHTMLStyleElementSheet = AttrLabelProxy + +dOMHTMLStyleElementType :: AttrLabelProxy "type" +dOMHTMLStyleElementType = AttrLabelProxy + type instance SignalList DOMHTMLStyleElement = DOMHTMLStyleElementSignalList type DOMHTMLStyleElementSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) @@ -389,7 +417,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLStyleElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -417,7 +445,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLStyleElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -447,7 +475,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLStyleElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -475,7 +503,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLStyleElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit" "DOMStyleSheet" +-- returnType : Just (TInterface "WebKit" "DOMStyleSheet") -- throws : False -- Skip return : False @@ -504,7 +532,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLStyleElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -534,7 +562,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLStyleElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -565,7 +593,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLStyleElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False diff --git a/GI/WebKit/Objects/DOMHTMLStyleElement.hs-boot b/GI/WebKit/Objects/DOMHTMLStyleElement.hs-boot --- a/GI/WebKit/Objects/DOMHTMLStyleElement.hs-boot +++ b/GI/WebKit/Objects/DOMHTMLStyleElement.hs-boot @@ -1,8 +1,8 @@ module GI.WebKit.Objects.DOMHTMLStyleElement where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map diff --git a/GI/WebKit/Objects/DOMHTMLTableCaptionElement.hs b/GI/WebKit/Objects/DOMHTMLTableCaptionElement.hs --- a/GI/WebKit/Objects/DOMHTMLTableCaptionElement.hs +++ b/GI/WebKit/Objects/DOMHTMLTableCaptionElement.hs @@ -33,6 +33,7 @@ -- ** Align DOMHTMLTableCaptionElementAlignPropertyInfo, constructDOMHTMLTableCaptionElementAlign, + dOMHTMLTableCaptionElementAlign , getDOMHTMLTableCaptionElementAlign , setDOMHTMLTableCaptionElementAlign , @@ -41,9 +42,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map @@ -243,30 +244,35 @@ -- VVV Prop "align" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Just False) -getDOMHTMLTableCaptionElementAlign :: (MonadIO m, DOMHTMLTableCaptionElementK o) => o -> m T.Text +getDOMHTMLTableCaptionElementAlign :: (MonadIO m, DOMHTMLTableCaptionElementK o) => o -> m (Maybe T.Text) getDOMHTMLTableCaptionElementAlign obj = liftIO $ getObjectPropertyString obj "align" setDOMHTMLTableCaptionElementAlign :: (MonadIO m, DOMHTMLTableCaptionElementK o) => o -> T.Text -> m () -setDOMHTMLTableCaptionElementAlign obj val = liftIO $ setObjectPropertyString obj "align" val +setDOMHTMLTableCaptionElementAlign obj val = liftIO $ setObjectPropertyString obj "align" (Just val) constructDOMHTMLTableCaptionElementAlign :: T.Text -> IO ([Char], GValue) -constructDOMHTMLTableCaptionElementAlign val = constructObjectPropertyString "align" val +constructDOMHTMLTableCaptionElementAlign val = constructObjectPropertyString "align" (Just val) data DOMHTMLTableCaptionElementAlignPropertyInfo instance AttrInfo DOMHTMLTableCaptionElementAlignPropertyInfo where type AttrAllowedOps DOMHTMLTableCaptionElementAlignPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint DOMHTMLTableCaptionElementAlignPropertyInfo = (~) T.Text type AttrBaseTypeConstraint DOMHTMLTableCaptionElementAlignPropertyInfo = DOMHTMLTableCaptionElementK - type AttrGetType DOMHTMLTableCaptionElementAlignPropertyInfo = T.Text + type AttrGetType DOMHTMLTableCaptionElementAlignPropertyInfo = (Maybe T.Text) type AttrLabel DOMHTMLTableCaptionElementAlignPropertyInfo = "align" attrGet _ = getDOMHTMLTableCaptionElementAlign attrSet _ = setDOMHTMLTableCaptionElementAlign attrConstruct _ = constructDOMHTMLTableCaptionElementAlign + attrClear _ = undefined type instance AttributeList DOMHTMLTableCaptionElement = DOMHTMLTableCaptionElementAttributeList type DOMHTMLTableCaptionElementAttributeList = ('[ '("accessKey", DOMHTMLElementAccessKeyPropertyInfo), '("align", DOMHTMLTableCaptionElementAlignPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("baseUri", DOMNodeBaseUriPropertyInfo), '("childElementCount", DOMElementChildElementCountPropertyInfo), '("childNodes", DOMNodeChildNodesPropertyInfo), '("children", DOMHTMLElementChildrenPropertyInfo), '("classList", DOMElementClassListPropertyInfo), '("className", DOMElementClassNamePropertyInfo), '("clientHeight", DOMElementClientHeightPropertyInfo), '("clientLeft", DOMElementClientLeftPropertyInfo), '("clientTop", DOMElementClientTopPropertyInfo), '("clientWidth", DOMElementClientWidthPropertyInfo), '("contentEditable", DOMHTMLElementContentEditablePropertyInfo), '("coreObject", DOMObjectCoreObjectPropertyInfo), '("dir", DOMHTMLElementDirPropertyInfo), '("draggable", DOMHTMLElementDraggablePropertyInfo), '("firstChild", DOMNodeFirstChildPropertyInfo), '("firstElementChild", DOMElementFirstElementChildPropertyInfo), '("hidden", DOMHTMLElementHiddenPropertyInfo), '("id", DOMElementIdPropertyInfo), '("innerHtml", DOMHTMLElementInnerHtmlPropertyInfo), '("innerText", DOMHTMLElementInnerTextPropertyInfo), '("isContentEditable", DOMHTMLElementIsContentEditablePropertyInfo), '("lang", DOMHTMLElementLangPropertyInfo), '("lastChild", DOMNodeLastChildPropertyInfo), '("lastElementChild", DOMElementLastElementChildPropertyInfo), '("localName", DOMNodeLocalNamePropertyInfo), '("namespaceUri", DOMNodeNamespaceUriPropertyInfo), '("nextElementSibling", DOMElementNextElementSiblingPropertyInfo), '("nextSibling", DOMNodeNextSiblingPropertyInfo), '("nodeName", DOMNodeNodeNamePropertyInfo), '("nodeType", DOMNodeNodeTypePropertyInfo), '("nodeValue", DOMNodeNodeValuePropertyInfo), '("offsetHeight", DOMElementOffsetHeightPropertyInfo), '("offsetLeft", DOMElementOffsetLeftPropertyInfo), '("offsetParent", DOMElementOffsetParentPropertyInfo), '("offsetTop", DOMElementOffsetTopPropertyInfo), '("offsetWidth", DOMElementOffsetWidthPropertyInfo), '("outerHtml", DOMHTMLElementOuterHtmlPropertyInfo), '("outerText", DOMHTMLElementOuterTextPropertyInfo), '("ownerDocument", DOMNodeOwnerDocumentPropertyInfo), '("parentElement", DOMNodeParentElementPropertyInfo), '("parentNode", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previousElementSibling", DOMElementPreviousElementSiblingPropertyInfo), '("previousSibling", DOMNodePreviousSiblingPropertyInfo), '("scrollHeight", DOMElementScrollHeightPropertyInfo), '("scrollLeft", DOMElementScrollLeftPropertyInfo), '("scrollTop", DOMElementScrollTopPropertyInfo), '("scrollWidth", DOMElementScrollWidthPropertyInfo), '("spellcheck", DOMHTMLElementSpellcheckPropertyInfo), '("style", DOMElementStylePropertyInfo), '("tabIndex", DOMHTMLElementTabIndexPropertyInfo), '("tagName", DOMElementTagNamePropertyInfo), '("textContent", DOMNodeTextContentPropertyInfo), '("title", DOMHTMLElementTitlePropertyInfo), '("translate", DOMHTMLElementTranslatePropertyInfo), '("webkitRegionOverset", DOMElementWebkitRegionOversetPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo)] :: [(Symbol, *)]) +dOMHTMLTableCaptionElementAlign :: AttrLabelProxy "align" +dOMHTMLTableCaptionElementAlign = AttrLabelProxy + type instance SignalList DOMHTMLTableCaptionElement = DOMHTMLTableCaptionElementSignalList type DOMHTMLTableCaptionElementSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) @@ -274,7 +280,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableCaptionElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -304,7 +310,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableCaptionElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False diff --git a/GI/WebKit/Objects/DOMHTMLTableCaptionElement.hs-boot b/GI/WebKit/Objects/DOMHTMLTableCaptionElement.hs-boot --- a/GI/WebKit/Objects/DOMHTMLTableCaptionElement.hs-boot +++ b/GI/WebKit/Objects/DOMHTMLTableCaptionElement.hs-boot @@ -1,8 +1,8 @@ module GI.WebKit.Objects.DOMHTMLTableCaptionElement where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map diff --git a/GI/WebKit/Objects/DOMHTMLTableCellElement.hs b/GI/WebKit/Objects/DOMHTMLTableCellElement.hs --- a/GI/WebKit/Objects/DOMHTMLTableCellElement.hs +++ b/GI/WebKit/Objects/DOMHTMLTableCellElement.hs @@ -168,6 +168,7 @@ -- ** Abbr DOMHTMLTableCellElementAbbrPropertyInfo , constructDOMHTMLTableCellElementAbbr , + dOMHTMLTableCellElementAbbr , getDOMHTMLTableCellElementAbbr , setDOMHTMLTableCellElementAbbr , @@ -175,6 +176,7 @@ -- ** Align DOMHTMLTableCellElementAlignPropertyInfo, constructDOMHTMLTableCellElementAlign , + dOMHTMLTableCellElementAlign , getDOMHTMLTableCellElementAlign , setDOMHTMLTableCellElementAlign , @@ -182,6 +184,7 @@ -- ** Axis DOMHTMLTableCellElementAxisPropertyInfo , constructDOMHTMLTableCellElementAxis , + dOMHTMLTableCellElementAxis , getDOMHTMLTableCellElementAxis , setDOMHTMLTableCellElementAxis , @@ -189,18 +192,21 @@ -- ** BgColor DOMHTMLTableCellElementBgColorPropertyInfo, constructDOMHTMLTableCellElementBgColor , + dOMHTMLTableCellElementBgColor , getDOMHTMLTableCellElementBgColor , setDOMHTMLTableCellElementBgColor , -- ** CellIndex DOMHTMLTableCellElementCellIndexPropertyInfo, + dOMHTMLTableCellElementCellIndex , getDOMHTMLTableCellElementCellIndex , -- ** Ch DOMHTMLTableCellElementChPropertyInfo , constructDOMHTMLTableCellElementCh , + dOMHTMLTableCellElementCh , getDOMHTMLTableCellElementCh , setDOMHTMLTableCellElementCh , @@ -208,6 +214,7 @@ -- ** ChOff DOMHTMLTableCellElementChOffPropertyInfo, constructDOMHTMLTableCellElementChOff , + dOMHTMLTableCellElementChOff , getDOMHTMLTableCellElementChOff , setDOMHTMLTableCellElementChOff , @@ -215,6 +222,7 @@ -- ** ColSpan DOMHTMLTableCellElementColSpanPropertyInfo, constructDOMHTMLTableCellElementColSpan , + dOMHTMLTableCellElementColSpan , getDOMHTMLTableCellElementColSpan , setDOMHTMLTableCellElementColSpan , @@ -222,6 +230,7 @@ -- ** Headers DOMHTMLTableCellElementHeadersPropertyInfo, constructDOMHTMLTableCellElementHeaders , + dOMHTMLTableCellElementHeaders , getDOMHTMLTableCellElementHeaders , setDOMHTMLTableCellElementHeaders , @@ -229,6 +238,7 @@ -- ** Height DOMHTMLTableCellElementHeightPropertyInfo, constructDOMHTMLTableCellElementHeight , + dOMHTMLTableCellElementHeight , getDOMHTMLTableCellElementHeight , setDOMHTMLTableCellElementHeight , @@ -236,6 +246,7 @@ -- ** NoWrap DOMHTMLTableCellElementNoWrapPropertyInfo, constructDOMHTMLTableCellElementNoWrap , + dOMHTMLTableCellElementNoWrap , getDOMHTMLTableCellElementNoWrap , setDOMHTMLTableCellElementNoWrap , @@ -243,6 +254,7 @@ -- ** RowSpan DOMHTMLTableCellElementRowSpanPropertyInfo, constructDOMHTMLTableCellElementRowSpan , + dOMHTMLTableCellElementRowSpan , getDOMHTMLTableCellElementRowSpan , setDOMHTMLTableCellElementRowSpan , @@ -250,6 +262,7 @@ -- ** Scope DOMHTMLTableCellElementScopePropertyInfo, constructDOMHTMLTableCellElementScope , + dOMHTMLTableCellElementScope , getDOMHTMLTableCellElementScope , setDOMHTMLTableCellElementScope , @@ -257,6 +270,7 @@ -- ** VAlign DOMHTMLTableCellElementVAlignPropertyInfo, constructDOMHTMLTableCellElementVAlign , + dOMHTMLTableCellElementVAlign , getDOMHTMLTableCellElementVAlign , setDOMHTMLTableCellElementVAlign , @@ -264,6 +278,7 @@ -- ** Width DOMHTMLTableCellElementWidthPropertyInfo, constructDOMHTMLTableCellElementWidth , + dOMHTMLTableCellElementWidth , getDOMHTMLTableCellElementWidth , setDOMHTMLTableCellElementWidth , @@ -272,9 +287,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map @@ -501,240 +516,261 @@ -- VVV Prop "abbr" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Just False) -getDOMHTMLTableCellElementAbbr :: (MonadIO m, DOMHTMLTableCellElementK o) => o -> m T.Text +getDOMHTMLTableCellElementAbbr :: (MonadIO m, DOMHTMLTableCellElementK o) => o -> m (Maybe T.Text) getDOMHTMLTableCellElementAbbr obj = liftIO $ getObjectPropertyString obj "abbr" setDOMHTMLTableCellElementAbbr :: (MonadIO m, DOMHTMLTableCellElementK o) => o -> T.Text -> m () -setDOMHTMLTableCellElementAbbr obj val = liftIO $ setObjectPropertyString obj "abbr" val +setDOMHTMLTableCellElementAbbr obj val = liftIO $ setObjectPropertyString obj "abbr" (Just val) constructDOMHTMLTableCellElementAbbr :: T.Text -> IO ([Char], GValue) -constructDOMHTMLTableCellElementAbbr val = constructObjectPropertyString "abbr" val +constructDOMHTMLTableCellElementAbbr val = constructObjectPropertyString "abbr" (Just val) data DOMHTMLTableCellElementAbbrPropertyInfo instance AttrInfo DOMHTMLTableCellElementAbbrPropertyInfo where type AttrAllowedOps DOMHTMLTableCellElementAbbrPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint DOMHTMLTableCellElementAbbrPropertyInfo = (~) T.Text type AttrBaseTypeConstraint DOMHTMLTableCellElementAbbrPropertyInfo = DOMHTMLTableCellElementK - type AttrGetType DOMHTMLTableCellElementAbbrPropertyInfo = T.Text + type AttrGetType DOMHTMLTableCellElementAbbrPropertyInfo = (Maybe T.Text) type AttrLabel DOMHTMLTableCellElementAbbrPropertyInfo = "abbr" attrGet _ = getDOMHTMLTableCellElementAbbr attrSet _ = setDOMHTMLTableCellElementAbbr attrConstruct _ = constructDOMHTMLTableCellElementAbbr + attrClear _ = undefined -- VVV Prop "align" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Just False) -getDOMHTMLTableCellElementAlign :: (MonadIO m, DOMHTMLTableCellElementK o) => o -> m T.Text +getDOMHTMLTableCellElementAlign :: (MonadIO m, DOMHTMLTableCellElementK o) => o -> m (Maybe T.Text) getDOMHTMLTableCellElementAlign obj = liftIO $ getObjectPropertyString obj "align" setDOMHTMLTableCellElementAlign :: (MonadIO m, DOMHTMLTableCellElementK o) => o -> T.Text -> m () -setDOMHTMLTableCellElementAlign obj val = liftIO $ setObjectPropertyString obj "align" val +setDOMHTMLTableCellElementAlign obj val = liftIO $ setObjectPropertyString obj "align" (Just val) constructDOMHTMLTableCellElementAlign :: T.Text -> IO ([Char], GValue) -constructDOMHTMLTableCellElementAlign val = constructObjectPropertyString "align" val +constructDOMHTMLTableCellElementAlign val = constructObjectPropertyString "align" (Just val) data DOMHTMLTableCellElementAlignPropertyInfo instance AttrInfo DOMHTMLTableCellElementAlignPropertyInfo where type AttrAllowedOps DOMHTMLTableCellElementAlignPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint DOMHTMLTableCellElementAlignPropertyInfo = (~) T.Text type AttrBaseTypeConstraint DOMHTMLTableCellElementAlignPropertyInfo = DOMHTMLTableCellElementK - type AttrGetType DOMHTMLTableCellElementAlignPropertyInfo = T.Text + type AttrGetType DOMHTMLTableCellElementAlignPropertyInfo = (Maybe T.Text) type AttrLabel DOMHTMLTableCellElementAlignPropertyInfo = "align" attrGet _ = getDOMHTMLTableCellElementAlign attrSet _ = setDOMHTMLTableCellElementAlign attrConstruct _ = constructDOMHTMLTableCellElementAlign + attrClear _ = undefined -- VVV Prop "axis" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Just False) -getDOMHTMLTableCellElementAxis :: (MonadIO m, DOMHTMLTableCellElementK o) => o -> m T.Text +getDOMHTMLTableCellElementAxis :: (MonadIO m, DOMHTMLTableCellElementK o) => o -> m (Maybe T.Text) getDOMHTMLTableCellElementAxis obj = liftIO $ getObjectPropertyString obj "axis" setDOMHTMLTableCellElementAxis :: (MonadIO m, DOMHTMLTableCellElementK o) => o -> T.Text -> m () -setDOMHTMLTableCellElementAxis obj val = liftIO $ setObjectPropertyString obj "axis" val +setDOMHTMLTableCellElementAxis obj val = liftIO $ setObjectPropertyString obj "axis" (Just val) constructDOMHTMLTableCellElementAxis :: T.Text -> IO ([Char], GValue) -constructDOMHTMLTableCellElementAxis val = constructObjectPropertyString "axis" val +constructDOMHTMLTableCellElementAxis val = constructObjectPropertyString "axis" (Just val) data DOMHTMLTableCellElementAxisPropertyInfo instance AttrInfo DOMHTMLTableCellElementAxisPropertyInfo where type AttrAllowedOps DOMHTMLTableCellElementAxisPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint DOMHTMLTableCellElementAxisPropertyInfo = (~) T.Text type AttrBaseTypeConstraint DOMHTMLTableCellElementAxisPropertyInfo = DOMHTMLTableCellElementK - type AttrGetType DOMHTMLTableCellElementAxisPropertyInfo = T.Text + type AttrGetType DOMHTMLTableCellElementAxisPropertyInfo = (Maybe T.Text) type AttrLabel DOMHTMLTableCellElementAxisPropertyInfo = "axis" attrGet _ = getDOMHTMLTableCellElementAxis attrSet _ = setDOMHTMLTableCellElementAxis attrConstruct _ = constructDOMHTMLTableCellElementAxis + attrClear _ = undefined -- VVV Prop "bg-color" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Just False) -getDOMHTMLTableCellElementBgColor :: (MonadIO m, DOMHTMLTableCellElementK o) => o -> m T.Text +getDOMHTMLTableCellElementBgColor :: (MonadIO m, DOMHTMLTableCellElementK o) => o -> m (Maybe T.Text) getDOMHTMLTableCellElementBgColor obj = liftIO $ getObjectPropertyString obj "bg-color" setDOMHTMLTableCellElementBgColor :: (MonadIO m, DOMHTMLTableCellElementK o) => o -> T.Text -> m () -setDOMHTMLTableCellElementBgColor obj val = liftIO $ setObjectPropertyString obj "bg-color" val +setDOMHTMLTableCellElementBgColor obj val = liftIO $ setObjectPropertyString obj "bg-color" (Just val) constructDOMHTMLTableCellElementBgColor :: T.Text -> IO ([Char], GValue) -constructDOMHTMLTableCellElementBgColor val = constructObjectPropertyString "bg-color" val +constructDOMHTMLTableCellElementBgColor val = constructObjectPropertyString "bg-color" (Just val) data DOMHTMLTableCellElementBgColorPropertyInfo instance AttrInfo DOMHTMLTableCellElementBgColorPropertyInfo where type AttrAllowedOps DOMHTMLTableCellElementBgColorPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint DOMHTMLTableCellElementBgColorPropertyInfo = (~) T.Text type AttrBaseTypeConstraint DOMHTMLTableCellElementBgColorPropertyInfo = DOMHTMLTableCellElementK - type AttrGetType DOMHTMLTableCellElementBgColorPropertyInfo = T.Text + type AttrGetType DOMHTMLTableCellElementBgColorPropertyInfo = (Maybe T.Text) type AttrLabel DOMHTMLTableCellElementBgColorPropertyInfo = "bg-color" attrGet _ = getDOMHTMLTableCellElementBgColor attrSet _ = setDOMHTMLTableCellElementBgColor attrConstruct _ = constructDOMHTMLTableCellElementBgColor + attrClear _ = undefined -- VVV Prop "cell-index" - -- Type: TBasicType TInt64 + -- Type: TBasicType TLong -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) -getDOMHTMLTableCellElementCellIndex :: (MonadIO m, DOMHTMLTableCellElementK o) => o -> m Int64 -getDOMHTMLTableCellElementCellIndex obj = liftIO $ getObjectPropertyInt64 obj "cell-index" +getDOMHTMLTableCellElementCellIndex :: (MonadIO m, DOMHTMLTableCellElementK o) => o -> m CLong +getDOMHTMLTableCellElementCellIndex obj = liftIO $ getObjectPropertyLong obj "cell-index" data DOMHTMLTableCellElementCellIndexPropertyInfo instance AttrInfo DOMHTMLTableCellElementCellIndexPropertyInfo where type AttrAllowedOps DOMHTMLTableCellElementCellIndexPropertyInfo = '[ 'AttrGet] type AttrSetTypeConstraint DOMHTMLTableCellElementCellIndexPropertyInfo = (~) () type AttrBaseTypeConstraint DOMHTMLTableCellElementCellIndexPropertyInfo = DOMHTMLTableCellElementK - type AttrGetType DOMHTMLTableCellElementCellIndexPropertyInfo = Int64 + type AttrGetType DOMHTMLTableCellElementCellIndexPropertyInfo = CLong type AttrLabel DOMHTMLTableCellElementCellIndexPropertyInfo = "cell-index" attrGet _ = getDOMHTMLTableCellElementCellIndex attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "ch" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Just False) -getDOMHTMLTableCellElementCh :: (MonadIO m, DOMHTMLTableCellElementK o) => o -> m T.Text +getDOMHTMLTableCellElementCh :: (MonadIO m, DOMHTMLTableCellElementK o) => o -> m (Maybe T.Text) getDOMHTMLTableCellElementCh obj = liftIO $ getObjectPropertyString obj "ch" setDOMHTMLTableCellElementCh :: (MonadIO m, DOMHTMLTableCellElementK o) => o -> T.Text -> m () -setDOMHTMLTableCellElementCh obj val = liftIO $ setObjectPropertyString obj "ch" val +setDOMHTMLTableCellElementCh obj val = liftIO $ setObjectPropertyString obj "ch" (Just val) constructDOMHTMLTableCellElementCh :: T.Text -> IO ([Char], GValue) -constructDOMHTMLTableCellElementCh val = constructObjectPropertyString "ch" val +constructDOMHTMLTableCellElementCh val = constructObjectPropertyString "ch" (Just val) data DOMHTMLTableCellElementChPropertyInfo instance AttrInfo DOMHTMLTableCellElementChPropertyInfo where type AttrAllowedOps DOMHTMLTableCellElementChPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint DOMHTMLTableCellElementChPropertyInfo = (~) T.Text type AttrBaseTypeConstraint DOMHTMLTableCellElementChPropertyInfo = DOMHTMLTableCellElementK - type AttrGetType DOMHTMLTableCellElementChPropertyInfo = T.Text + type AttrGetType DOMHTMLTableCellElementChPropertyInfo = (Maybe T.Text) type AttrLabel DOMHTMLTableCellElementChPropertyInfo = "ch" attrGet _ = getDOMHTMLTableCellElementCh attrSet _ = setDOMHTMLTableCellElementCh attrConstruct _ = constructDOMHTMLTableCellElementCh + attrClear _ = undefined -- VVV Prop "ch-off" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Just False) -getDOMHTMLTableCellElementChOff :: (MonadIO m, DOMHTMLTableCellElementK o) => o -> m T.Text +getDOMHTMLTableCellElementChOff :: (MonadIO m, DOMHTMLTableCellElementK o) => o -> m (Maybe T.Text) getDOMHTMLTableCellElementChOff obj = liftIO $ getObjectPropertyString obj "ch-off" setDOMHTMLTableCellElementChOff :: (MonadIO m, DOMHTMLTableCellElementK o) => o -> T.Text -> m () -setDOMHTMLTableCellElementChOff obj val = liftIO $ setObjectPropertyString obj "ch-off" val +setDOMHTMLTableCellElementChOff obj val = liftIO $ setObjectPropertyString obj "ch-off" (Just val) constructDOMHTMLTableCellElementChOff :: T.Text -> IO ([Char], GValue) -constructDOMHTMLTableCellElementChOff val = constructObjectPropertyString "ch-off" val +constructDOMHTMLTableCellElementChOff val = constructObjectPropertyString "ch-off" (Just val) data DOMHTMLTableCellElementChOffPropertyInfo instance AttrInfo DOMHTMLTableCellElementChOffPropertyInfo where type AttrAllowedOps DOMHTMLTableCellElementChOffPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint DOMHTMLTableCellElementChOffPropertyInfo = (~) T.Text type AttrBaseTypeConstraint DOMHTMLTableCellElementChOffPropertyInfo = DOMHTMLTableCellElementK - type AttrGetType DOMHTMLTableCellElementChOffPropertyInfo = T.Text + type AttrGetType DOMHTMLTableCellElementChOffPropertyInfo = (Maybe T.Text) type AttrLabel DOMHTMLTableCellElementChOffPropertyInfo = "ch-off" attrGet _ = getDOMHTMLTableCellElementChOff attrSet _ = setDOMHTMLTableCellElementChOff attrConstruct _ = constructDOMHTMLTableCellElementChOff + attrClear _ = undefined -- VVV Prop "col-span" - -- Type: TBasicType TInt64 + -- Type: TBasicType TLong -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) -getDOMHTMLTableCellElementColSpan :: (MonadIO m, DOMHTMLTableCellElementK o) => o -> m Int64 -getDOMHTMLTableCellElementColSpan obj = liftIO $ getObjectPropertyInt64 obj "col-span" +getDOMHTMLTableCellElementColSpan :: (MonadIO m, DOMHTMLTableCellElementK o) => o -> m CLong +getDOMHTMLTableCellElementColSpan obj = liftIO $ getObjectPropertyLong obj "col-span" -setDOMHTMLTableCellElementColSpan :: (MonadIO m, DOMHTMLTableCellElementK o) => o -> Int64 -> m () -setDOMHTMLTableCellElementColSpan obj val = liftIO $ setObjectPropertyInt64 obj "col-span" val +setDOMHTMLTableCellElementColSpan :: (MonadIO m, DOMHTMLTableCellElementK o) => o -> CLong -> m () +setDOMHTMLTableCellElementColSpan obj val = liftIO $ setObjectPropertyLong obj "col-span" val -constructDOMHTMLTableCellElementColSpan :: Int64 -> IO ([Char], GValue) -constructDOMHTMLTableCellElementColSpan val = constructObjectPropertyInt64 "col-span" val +constructDOMHTMLTableCellElementColSpan :: CLong -> IO ([Char], GValue) +constructDOMHTMLTableCellElementColSpan val = constructObjectPropertyLong "col-span" val data DOMHTMLTableCellElementColSpanPropertyInfo instance AttrInfo DOMHTMLTableCellElementColSpanPropertyInfo where type AttrAllowedOps DOMHTMLTableCellElementColSpanPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLTableCellElementColSpanPropertyInfo = (~) Int64 + type AttrSetTypeConstraint DOMHTMLTableCellElementColSpanPropertyInfo = (~) CLong type AttrBaseTypeConstraint DOMHTMLTableCellElementColSpanPropertyInfo = DOMHTMLTableCellElementK - type AttrGetType DOMHTMLTableCellElementColSpanPropertyInfo = Int64 + type AttrGetType DOMHTMLTableCellElementColSpanPropertyInfo = CLong type AttrLabel DOMHTMLTableCellElementColSpanPropertyInfo = "col-span" attrGet _ = getDOMHTMLTableCellElementColSpan attrSet _ = setDOMHTMLTableCellElementColSpan attrConstruct _ = constructDOMHTMLTableCellElementColSpan + attrClear _ = undefined -- VVV Prop "headers" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Just False) -getDOMHTMLTableCellElementHeaders :: (MonadIO m, DOMHTMLTableCellElementK o) => o -> m T.Text +getDOMHTMLTableCellElementHeaders :: (MonadIO m, DOMHTMLTableCellElementK o) => o -> m (Maybe T.Text) getDOMHTMLTableCellElementHeaders obj = liftIO $ getObjectPropertyString obj "headers" setDOMHTMLTableCellElementHeaders :: (MonadIO m, DOMHTMLTableCellElementK o) => o -> T.Text -> m () -setDOMHTMLTableCellElementHeaders obj val = liftIO $ setObjectPropertyString obj "headers" val +setDOMHTMLTableCellElementHeaders obj val = liftIO $ setObjectPropertyString obj "headers" (Just val) constructDOMHTMLTableCellElementHeaders :: T.Text -> IO ([Char], GValue) -constructDOMHTMLTableCellElementHeaders val = constructObjectPropertyString "headers" val +constructDOMHTMLTableCellElementHeaders val = constructObjectPropertyString "headers" (Just val) data DOMHTMLTableCellElementHeadersPropertyInfo instance AttrInfo DOMHTMLTableCellElementHeadersPropertyInfo where type AttrAllowedOps DOMHTMLTableCellElementHeadersPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint DOMHTMLTableCellElementHeadersPropertyInfo = (~) T.Text type AttrBaseTypeConstraint DOMHTMLTableCellElementHeadersPropertyInfo = DOMHTMLTableCellElementK - type AttrGetType DOMHTMLTableCellElementHeadersPropertyInfo = T.Text + type AttrGetType DOMHTMLTableCellElementHeadersPropertyInfo = (Maybe T.Text) type AttrLabel DOMHTMLTableCellElementHeadersPropertyInfo = "headers" attrGet _ = getDOMHTMLTableCellElementHeaders attrSet _ = setDOMHTMLTableCellElementHeaders attrConstruct _ = constructDOMHTMLTableCellElementHeaders + attrClear _ = undefined -- VVV Prop "height" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Just False) -getDOMHTMLTableCellElementHeight :: (MonadIO m, DOMHTMLTableCellElementK o) => o -> m T.Text +getDOMHTMLTableCellElementHeight :: (MonadIO m, DOMHTMLTableCellElementK o) => o -> m (Maybe T.Text) getDOMHTMLTableCellElementHeight obj = liftIO $ getObjectPropertyString obj "height" setDOMHTMLTableCellElementHeight :: (MonadIO m, DOMHTMLTableCellElementK o) => o -> T.Text -> m () -setDOMHTMLTableCellElementHeight obj val = liftIO $ setObjectPropertyString obj "height" val +setDOMHTMLTableCellElementHeight obj val = liftIO $ setObjectPropertyString obj "height" (Just val) constructDOMHTMLTableCellElementHeight :: T.Text -> IO ([Char], GValue) -constructDOMHTMLTableCellElementHeight val = constructObjectPropertyString "height" val +constructDOMHTMLTableCellElementHeight val = constructObjectPropertyString "height" (Just val) data DOMHTMLTableCellElementHeightPropertyInfo instance AttrInfo DOMHTMLTableCellElementHeightPropertyInfo where type AttrAllowedOps DOMHTMLTableCellElementHeightPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint DOMHTMLTableCellElementHeightPropertyInfo = (~) T.Text type AttrBaseTypeConstraint DOMHTMLTableCellElementHeightPropertyInfo = DOMHTMLTableCellElementK - type AttrGetType DOMHTMLTableCellElementHeightPropertyInfo = T.Text + type AttrGetType DOMHTMLTableCellElementHeightPropertyInfo = (Maybe T.Text) type AttrLabel DOMHTMLTableCellElementHeightPropertyInfo = "height" attrGet _ = getDOMHTMLTableCellElementHeight attrSet _ = setDOMHTMLTableCellElementHeight attrConstruct _ = constructDOMHTMLTableCellElementHeight + attrClear _ = undefined -- VVV Prop "no-wrap" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getDOMHTMLTableCellElementNoWrap :: (MonadIO m, DOMHTMLTableCellElementK o) => o -> m Bool getDOMHTMLTableCellElementNoWrap obj = liftIO $ getObjectPropertyBool obj "no-wrap" @@ -755,106 +791,160 @@ attrGet _ = getDOMHTMLTableCellElementNoWrap attrSet _ = setDOMHTMLTableCellElementNoWrap attrConstruct _ = constructDOMHTMLTableCellElementNoWrap + attrClear _ = undefined -- VVV Prop "row-span" - -- Type: TBasicType TInt64 + -- Type: TBasicType TLong -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) -getDOMHTMLTableCellElementRowSpan :: (MonadIO m, DOMHTMLTableCellElementK o) => o -> m Int64 -getDOMHTMLTableCellElementRowSpan obj = liftIO $ getObjectPropertyInt64 obj "row-span" +getDOMHTMLTableCellElementRowSpan :: (MonadIO m, DOMHTMLTableCellElementK o) => o -> m CLong +getDOMHTMLTableCellElementRowSpan obj = liftIO $ getObjectPropertyLong obj "row-span" -setDOMHTMLTableCellElementRowSpan :: (MonadIO m, DOMHTMLTableCellElementK o) => o -> Int64 -> m () -setDOMHTMLTableCellElementRowSpan obj val = liftIO $ setObjectPropertyInt64 obj "row-span" val +setDOMHTMLTableCellElementRowSpan :: (MonadIO m, DOMHTMLTableCellElementK o) => o -> CLong -> m () +setDOMHTMLTableCellElementRowSpan obj val = liftIO $ setObjectPropertyLong obj "row-span" val -constructDOMHTMLTableCellElementRowSpan :: Int64 -> IO ([Char], GValue) -constructDOMHTMLTableCellElementRowSpan val = constructObjectPropertyInt64 "row-span" val +constructDOMHTMLTableCellElementRowSpan :: CLong -> IO ([Char], GValue) +constructDOMHTMLTableCellElementRowSpan val = constructObjectPropertyLong "row-span" val data DOMHTMLTableCellElementRowSpanPropertyInfo instance AttrInfo DOMHTMLTableCellElementRowSpanPropertyInfo where type AttrAllowedOps DOMHTMLTableCellElementRowSpanPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLTableCellElementRowSpanPropertyInfo = (~) Int64 + type AttrSetTypeConstraint DOMHTMLTableCellElementRowSpanPropertyInfo = (~) CLong type AttrBaseTypeConstraint DOMHTMLTableCellElementRowSpanPropertyInfo = DOMHTMLTableCellElementK - type AttrGetType DOMHTMLTableCellElementRowSpanPropertyInfo = Int64 + type AttrGetType DOMHTMLTableCellElementRowSpanPropertyInfo = CLong type AttrLabel DOMHTMLTableCellElementRowSpanPropertyInfo = "row-span" attrGet _ = getDOMHTMLTableCellElementRowSpan attrSet _ = setDOMHTMLTableCellElementRowSpan attrConstruct _ = constructDOMHTMLTableCellElementRowSpan + attrClear _ = undefined -- VVV Prop "scope" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Just False) -getDOMHTMLTableCellElementScope :: (MonadIO m, DOMHTMLTableCellElementK o) => o -> m T.Text +getDOMHTMLTableCellElementScope :: (MonadIO m, DOMHTMLTableCellElementK o) => o -> m (Maybe T.Text) getDOMHTMLTableCellElementScope obj = liftIO $ getObjectPropertyString obj "scope" setDOMHTMLTableCellElementScope :: (MonadIO m, DOMHTMLTableCellElementK o) => o -> T.Text -> m () -setDOMHTMLTableCellElementScope obj val = liftIO $ setObjectPropertyString obj "scope" val +setDOMHTMLTableCellElementScope obj val = liftIO $ setObjectPropertyString obj "scope" (Just val) constructDOMHTMLTableCellElementScope :: T.Text -> IO ([Char], GValue) -constructDOMHTMLTableCellElementScope val = constructObjectPropertyString "scope" val +constructDOMHTMLTableCellElementScope val = constructObjectPropertyString "scope" (Just val) data DOMHTMLTableCellElementScopePropertyInfo instance AttrInfo DOMHTMLTableCellElementScopePropertyInfo where type AttrAllowedOps DOMHTMLTableCellElementScopePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint DOMHTMLTableCellElementScopePropertyInfo = (~) T.Text type AttrBaseTypeConstraint DOMHTMLTableCellElementScopePropertyInfo = DOMHTMLTableCellElementK - type AttrGetType DOMHTMLTableCellElementScopePropertyInfo = T.Text + type AttrGetType DOMHTMLTableCellElementScopePropertyInfo = (Maybe T.Text) type AttrLabel DOMHTMLTableCellElementScopePropertyInfo = "scope" attrGet _ = getDOMHTMLTableCellElementScope attrSet _ = setDOMHTMLTableCellElementScope attrConstruct _ = constructDOMHTMLTableCellElementScope + attrClear _ = undefined -- VVV Prop "v-align" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Just False) -getDOMHTMLTableCellElementVAlign :: (MonadIO m, DOMHTMLTableCellElementK o) => o -> m T.Text +getDOMHTMLTableCellElementVAlign :: (MonadIO m, DOMHTMLTableCellElementK o) => o -> m (Maybe T.Text) getDOMHTMLTableCellElementVAlign obj = liftIO $ getObjectPropertyString obj "v-align" setDOMHTMLTableCellElementVAlign :: (MonadIO m, DOMHTMLTableCellElementK o) => o -> T.Text -> m () -setDOMHTMLTableCellElementVAlign obj val = liftIO $ setObjectPropertyString obj "v-align" val +setDOMHTMLTableCellElementVAlign obj val = liftIO $ setObjectPropertyString obj "v-align" (Just val) constructDOMHTMLTableCellElementVAlign :: T.Text -> IO ([Char], GValue) -constructDOMHTMLTableCellElementVAlign val = constructObjectPropertyString "v-align" val +constructDOMHTMLTableCellElementVAlign val = constructObjectPropertyString "v-align" (Just val) data DOMHTMLTableCellElementVAlignPropertyInfo instance AttrInfo DOMHTMLTableCellElementVAlignPropertyInfo where type AttrAllowedOps DOMHTMLTableCellElementVAlignPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint DOMHTMLTableCellElementVAlignPropertyInfo = (~) T.Text type AttrBaseTypeConstraint DOMHTMLTableCellElementVAlignPropertyInfo = DOMHTMLTableCellElementK - type AttrGetType DOMHTMLTableCellElementVAlignPropertyInfo = T.Text + type AttrGetType DOMHTMLTableCellElementVAlignPropertyInfo = (Maybe T.Text) type AttrLabel DOMHTMLTableCellElementVAlignPropertyInfo = "v-align" attrGet _ = getDOMHTMLTableCellElementVAlign attrSet _ = setDOMHTMLTableCellElementVAlign attrConstruct _ = constructDOMHTMLTableCellElementVAlign + attrClear _ = undefined -- VVV Prop "width" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Just False) -getDOMHTMLTableCellElementWidth :: (MonadIO m, DOMHTMLTableCellElementK o) => o -> m T.Text +getDOMHTMLTableCellElementWidth :: (MonadIO m, DOMHTMLTableCellElementK o) => o -> m (Maybe T.Text) getDOMHTMLTableCellElementWidth obj = liftIO $ getObjectPropertyString obj "width" setDOMHTMLTableCellElementWidth :: (MonadIO m, DOMHTMLTableCellElementK o) => o -> T.Text -> m () -setDOMHTMLTableCellElementWidth obj val = liftIO $ setObjectPropertyString obj "width" val +setDOMHTMLTableCellElementWidth obj val = liftIO $ setObjectPropertyString obj "width" (Just val) constructDOMHTMLTableCellElementWidth :: T.Text -> IO ([Char], GValue) -constructDOMHTMLTableCellElementWidth val = constructObjectPropertyString "width" val +constructDOMHTMLTableCellElementWidth val = constructObjectPropertyString "width" (Just val) data DOMHTMLTableCellElementWidthPropertyInfo instance AttrInfo DOMHTMLTableCellElementWidthPropertyInfo where type AttrAllowedOps DOMHTMLTableCellElementWidthPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint DOMHTMLTableCellElementWidthPropertyInfo = (~) T.Text type AttrBaseTypeConstraint DOMHTMLTableCellElementWidthPropertyInfo = DOMHTMLTableCellElementK - type AttrGetType DOMHTMLTableCellElementWidthPropertyInfo = T.Text + type AttrGetType DOMHTMLTableCellElementWidthPropertyInfo = (Maybe T.Text) type AttrLabel DOMHTMLTableCellElementWidthPropertyInfo = "width" attrGet _ = getDOMHTMLTableCellElementWidth attrSet _ = setDOMHTMLTableCellElementWidth attrConstruct _ = constructDOMHTMLTableCellElementWidth + attrClear _ = undefined type instance AttributeList DOMHTMLTableCellElement = DOMHTMLTableCellElementAttributeList type DOMHTMLTableCellElementAttributeList = ('[ '("abbr", DOMHTMLTableCellElementAbbrPropertyInfo), '("accessKey", DOMHTMLElementAccessKeyPropertyInfo), '("align", DOMHTMLTableCellElementAlignPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("axis", DOMHTMLTableCellElementAxisPropertyInfo), '("baseUri", DOMNodeBaseUriPropertyInfo), '("bgColor", DOMHTMLTableCellElementBgColorPropertyInfo), '("cellIndex", DOMHTMLTableCellElementCellIndexPropertyInfo), '("ch", DOMHTMLTableCellElementChPropertyInfo), '("chOff", DOMHTMLTableCellElementChOffPropertyInfo), '("childElementCount", DOMElementChildElementCountPropertyInfo), '("childNodes", DOMNodeChildNodesPropertyInfo), '("children", DOMHTMLElementChildrenPropertyInfo), '("classList", DOMElementClassListPropertyInfo), '("className", DOMElementClassNamePropertyInfo), '("clientHeight", DOMElementClientHeightPropertyInfo), '("clientLeft", DOMElementClientLeftPropertyInfo), '("clientTop", DOMElementClientTopPropertyInfo), '("clientWidth", DOMElementClientWidthPropertyInfo), '("colSpan", DOMHTMLTableCellElementColSpanPropertyInfo), '("contentEditable", DOMHTMLElementContentEditablePropertyInfo), '("coreObject", DOMObjectCoreObjectPropertyInfo), '("dir", DOMHTMLElementDirPropertyInfo), '("draggable", DOMHTMLElementDraggablePropertyInfo), '("firstChild", DOMNodeFirstChildPropertyInfo), '("firstElementChild", DOMElementFirstElementChildPropertyInfo), '("headers", DOMHTMLTableCellElementHeadersPropertyInfo), '("height", DOMHTMLTableCellElementHeightPropertyInfo), '("hidden", DOMHTMLElementHiddenPropertyInfo), '("id", DOMElementIdPropertyInfo), '("innerHtml", DOMHTMLElementInnerHtmlPropertyInfo), '("innerText", DOMHTMLElementInnerTextPropertyInfo), '("isContentEditable", DOMHTMLElementIsContentEditablePropertyInfo), '("lang", DOMHTMLElementLangPropertyInfo), '("lastChild", DOMNodeLastChildPropertyInfo), '("lastElementChild", DOMElementLastElementChildPropertyInfo), '("localName", DOMNodeLocalNamePropertyInfo), '("namespaceUri", DOMNodeNamespaceUriPropertyInfo), '("nextElementSibling", DOMElementNextElementSiblingPropertyInfo), '("nextSibling", DOMNodeNextSiblingPropertyInfo), '("noWrap", DOMHTMLTableCellElementNoWrapPropertyInfo), '("nodeName", DOMNodeNodeNamePropertyInfo), '("nodeType", DOMNodeNodeTypePropertyInfo), '("nodeValue", DOMNodeNodeValuePropertyInfo), '("offsetHeight", DOMElementOffsetHeightPropertyInfo), '("offsetLeft", DOMElementOffsetLeftPropertyInfo), '("offsetParent", DOMElementOffsetParentPropertyInfo), '("offsetTop", DOMElementOffsetTopPropertyInfo), '("offsetWidth", DOMElementOffsetWidthPropertyInfo), '("outerHtml", DOMHTMLElementOuterHtmlPropertyInfo), '("outerText", DOMHTMLElementOuterTextPropertyInfo), '("ownerDocument", DOMNodeOwnerDocumentPropertyInfo), '("parentElement", DOMNodeParentElementPropertyInfo), '("parentNode", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previousElementSibling", DOMElementPreviousElementSiblingPropertyInfo), '("previousSibling", DOMNodePreviousSiblingPropertyInfo), '("rowSpan", DOMHTMLTableCellElementRowSpanPropertyInfo), '("scope", DOMHTMLTableCellElementScopePropertyInfo), '("scrollHeight", DOMElementScrollHeightPropertyInfo), '("scrollLeft", DOMElementScrollLeftPropertyInfo), '("scrollTop", DOMElementScrollTopPropertyInfo), '("scrollWidth", DOMElementScrollWidthPropertyInfo), '("spellcheck", DOMHTMLElementSpellcheckPropertyInfo), '("style", DOMElementStylePropertyInfo), '("tabIndex", DOMHTMLElementTabIndexPropertyInfo), '("tagName", DOMElementTagNamePropertyInfo), '("textContent", DOMNodeTextContentPropertyInfo), '("title", DOMHTMLElementTitlePropertyInfo), '("translate", DOMHTMLElementTranslatePropertyInfo), '("vAlign", DOMHTMLTableCellElementVAlignPropertyInfo), '("webkitRegionOverset", DOMElementWebkitRegionOversetPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo), '("width", DOMHTMLTableCellElementWidthPropertyInfo)] :: [(Symbol, *)]) +dOMHTMLTableCellElementAbbr :: AttrLabelProxy "abbr" +dOMHTMLTableCellElementAbbr = AttrLabelProxy + +dOMHTMLTableCellElementAlign :: AttrLabelProxy "align" +dOMHTMLTableCellElementAlign = AttrLabelProxy + +dOMHTMLTableCellElementAxis :: AttrLabelProxy "axis" +dOMHTMLTableCellElementAxis = AttrLabelProxy + +dOMHTMLTableCellElementBgColor :: AttrLabelProxy "bgColor" +dOMHTMLTableCellElementBgColor = AttrLabelProxy + +dOMHTMLTableCellElementCellIndex :: AttrLabelProxy "cellIndex" +dOMHTMLTableCellElementCellIndex = AttrLabelProxy + +dOMHTMLTableCellElementCh :: AttrLabelProxy "ch" +dOMHTMLTableCellElementCh = AttrLabelProxy + +dOMHTMLTableCellElementChOff :: AttrLabelProxy "chOff" +dOMHTMLTableCellElementChOff = AttrLabelProxy + +dOMHTMLTableCellElementColSpan :: AttrLabelProxy "colSpan" +dOMHTMLTableCellElementColSpan = AttrLabelProxy + +dOMHTMLTableCellElementHeaders :: AttrLabelProxy "headers" +dOMHTMLTableCellElementHeaders = AttrLabelProxy + +dOMHTMLTableCellElementHeight :: AttrLabelProxy "height" +dOMHTMLTableCellElementHeight = AttrLabelProxy + +dOMHTMLTableCellElementNoWrap :: AttrLabelProxy "noWrap" +dOMHTMLTableCellElementNoWrap = AttrLabelProxy + +dOMHTMLTableCellElementRowSpan :: AttrLabelProxy "rowSpan" +dOMHTMLTableCellElementRowSpan = AttrLabelProxy + +dOMHTMLTableCellElementScope :: AttrLabelProxy "scope" +dOMHTMLTableCellElementScope = AttrLabelProxy + +dOMHTMLTableCellElementVAlign :: AttrLabelProxy "vAlign" +dOMHTMLTableCellElementVAlign = AttrLabelProxy + +dOMHTMLTableCellElementWidth :: AttrLabelProxy "width" +dOMHTMLTableCellElementWidth = AttrLabelProxy + type instance SignalList DOMHTMLTableCellElement = DOMHTMLTableCellElementSignalList type DOMHTMLTableCellElementSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) @@ -862,7 +952,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableCellElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -892,7 +982,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableCellElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -922,7 +1012,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableCellElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -952,7 +1042,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableCellElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -982,19 +1072,19 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableCellElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TInt64 +-- returnType : Just (TBasicType TLong) -- throws : False -- Skip return : False foreign import ccall "webkit_dom_html_table_cell_element_get_cell_index" webkit_dom_html_table_cell_element_get_cell_index :: Ptr DOMHTMLTableCellElement -> -- _obj : TInterface "WebKit" "DOMHTMLTableCellElement" - IO Int64 + IO CLong dOMHTMLTableCellElementGetCellIndex :: (MonadIO m, DOMHTMLTableCellElementK a) => a -- _obj - -> m Int64 -- result + -> m CLong -- result dOMHTMLTableCellElementGetCellIndex _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- webkit_dom_html_table_cell_element_get_cell_index _obj' @@ -1002,14 +1092,14 @@ return result data DOMHTMLTableCellElementGetCellIndexMethodInfo -instance (signature ~ (m Int64), MonadIO m, DOMHTMLTableCellElementK a) => MethodInfo DOMHTMLTableCellElementGetCellIndexMethodInfo a signature where +instance (signature ~ (m CLong), MonadIO m, DOMHTMLTableCellElementK a) => MethodInfo DOMHTMLTableCellElementGetCellIndexMethodInfo a signature where overloadedMethod _ = dOMHTMLTableCellElementGetCellIndex -- method DOMHTMLTableCellElement::get_ch -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableCellElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -1039,7 +1129,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableCellElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -1069,19 +1159,19 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableCellElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TInt64 +-- returnType : Just (TBasicType TLong) -- throws : False -- Skip return : False foreign import ccall "webkit_dom_html_table_cell_element_get_col_span" webkit_dom_html_table_cell_element_get_col_span :: Ptr DOMHTMLTableCellElement -> -- _obj : TInterface "WebKit" "DOMHTMLTableCellElement" - IO Int64 + IO CLong dOMHTMLTableCellElementGetColSpan :: (MonadIO m, DOMHTMLTableCellElementK a) => a -- _obj - -> m Int64 -- result + -> m CLong -- result dOMHTMLTableCellElementGetColSpan _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- webkit_dom_html_table_cell_element_get_col_span _obj' @@ -1089,14 +1179,14 @@ return result data DOMHTMLTableCellElementGetColSpanMethodInfo -instance (signature ~ (m Int64), MonadIO m, DOMHTMLTableCellElementK a) => MethodInfo DOMHTMLTableCellElementGetColSpanMethodInfo a signature where +instance (signature ~ (m CLong), MonadIO m, DOMHTMLTableCellElementK a) => MethodInfo DOMHTMLTableCellElementGetColSpanMethodInfo a signature where overloadedMethod _ = dOMHTMLTableCellElementGetColSpan -- method DOMHTMLTableCellElement::get_headers -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableCellElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -1126,7 +1216,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableCellElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -1156,7 +1246,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableCellElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -1184,19 +1274,19 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableCellElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TInt64 +-- returnType : Just (TBasicType TLong) -- throws : False -- Skip return : False foreign import ccall "webkit_dom_html_table_cell_element_get_row_span" webkit_dom_html_table_cell_element_get_row_span :: Ptr DOMHTMLTableCellElement -> -- _obj : TInterface "WebKit" "DOMHTMLTableCellElement" - IO Int64 + IO CLong dOMHTMLTableCellElementGetRowSpan :: (MonadIO m, DOMHTMLTableCellElementK a) => a -- _obj - -> m Int64 -- result + -> m CLong -- result dOMHTMLTableCellElementGetRowSpan _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- webkit_dom_html_table_cell_element_get_row_span _obj' @@ -1204,14 +1294,14 @@ return result data DOMHTMLTableCellElementGetRowSpanMethodInfo -instance (signature ~ (m Int64), MonadIO m, DOMHTMLTableCellElementK a) => MethodInfo DOMHTMLTableCellElementGetRowSpanMethodInfo a signature where +instance (signature ~ (m CLong), MonadIO m, DOMHTMLTableCellElementK a) => MethodInfo DOMHTMLTableCellElementGetRowSpanMethodInfo a signature where overloadedMethod _ = dOMHTMLTableCellElementGetRowSpan -- method DOMHTMLTableCellElement::get_scope -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableCellElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -1241,7 +1331,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableCellElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -1271,7 +1361,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableCellElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -1301,7 +1391,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableCellElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1332,7 +1422,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableCellElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1363,7 +1453,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableCellElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1394,7 +1484,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableCellElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1425,7 +1515,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableCellElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1456,7 +1546,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableCellElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1485,22 +1575,22 @@ -- method DOMHTMLTableCellElement::set_col_span -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableCellElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableCellElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TLong, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "webkit_dom_html_table_cell_element_set_col_span" webkit_dom_html_table_cell_element_set_col_span :: Ptr DOMHTMLTableCellElement -> -- _obj : TInterface "WebKit" "DOMHTMLTableCellElement" - Int64 -> -- value : TBasicType TInt64 + CLong -> -- value : TBasicType TLong IO () dOMHTMLTableCellElementSetColSpan :: (MonadIO m, DOMHTMLTableCellElementK a) => a -- _obj - -> Int64 -- value + -> CLong -- value -> m () -- result dOMHTMLTableCellElementSetColSpan _obj value = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj @@ -1509,14 +1599,14 @@ return () data DOMHTMLTableCellElementSetColSpanMethodInfo -instance (signature ~ (Int64 -> m ()), MonadIO m, DOMHTMLTableCellElementK a) => MethodInfo DOMHTMLTableCellElementSetColSpanMethodInfo a signature where +instance (signature ~ (CLong -> m ()), MonadIO m, DOMHTMLTableCellElementK a) => MethodInfo DOMHTMLTableCellElementSetColSpanMethodInfo a signature where overloadedMethod _ = dOMHTMLTableCellElementSetColSpan -- method DOMHTMLTableCellElement::set_headers -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableCellElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1547,7 +1637,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableCellElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1578,7 +1668,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableCellElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1606,22 +1696,22 @@ -- method DOMHTMLTableCellElement::set_row_span -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableCellElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableCellElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TLong, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "webkit_dom_html_table_cell_element_set_row_span" webkit_dom_html_table_cell_element_set_row_span :: Ptr DOMHTMLTableCellElement -> -- _obj : TInterface "WebKit" "DOMHTMLTableCellElement" - Int64 -> -- value : TBasicType TInt64 + CLong -> -- value : TBasicType TLong IO () dOMHTMLTableCellElementSetRowSpan :: (MonadIO m, DOMHTMLTableCellElementK a) => a -- _obj - -> Int64 -- value + -> CLong -- value -> m () -- result dOMHTMLTableCellElementSetRowSpan _obj value = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj @@ -1630,14 +1720,14 @@ return () data DOMHTMLTableCellElementSetRowSpanMethodInfo -instance (signature ~ (Int64 -> m ()), MonadIO m, DOMHTMLTableCellElementK a) => MethodInfo DOMHTMLTableCellElementSetRowSpanMethodInfo a signature where +instance (signature ~ (CLong -> m ()), MonadIO m, DOMHTMLTableCellElementK a) => MethodInfo DOMHTMLTableCellElementSetRowSpanMethodInfo a signature where overloadedMethod _ = dOMHTMLTableCellElementSetRowSpan -- method DOMHTMLTableCellElement::set_scope -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableCellElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1668,7 +1758,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableCellElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1699,7 +1789,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableCellElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False diff --git a/GI/WebKit/Objects/DOMHTMLTableCellElement.hs-boot b/GI/WebKit/Objects/DOMHTMLTableCellElement.hs-boot --- a/GI/WebKit/Objects/DOMHTMLTableCellElement.hs-boot +++ b/GI/WebKit/Objects/DOMHTMLTableCellElement.hs-boot @@ -1,8 +1,8 @@ module GI.WebKit.Objects.DOMHTMLTableCellElement where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map diff --git a/GI/WebKit/Objects/DOMHTMLTableColElement.hs b/GI/WebKit/Objects/DOMHTMLTableColElement.hs --- a/GI/WebKit/Objects/DOMHTMLTableColElement.hs +++ b/GI/WebKit/Objects/DOMHTMLTableColElement.hs @@ -83,6 +83,7 @@ -- ** Align DOMHTMLTableColElementAlignPropertyInfo , constructDOMHTMLTableColElementAlign , + dOMHTMLTableColElementAlign , getDOMHTMLTableColElementAlign , setDOMHTMLTableColElementAlign , @@ -90,6 +91,7 @@ -- ** Ch DOMHTMLTableColElementChPropertyInfo , constructDOMHTMLTableColElementCh , + dOMHTMLTableColElementCh , getDOMHTMLTableColElementCh , setDOMHTMLTableColElementCh , @@ -97,6 +99,7 @@ -- ** ChOff DOMHTMLTableColElementChOffPropertyInfo , constructDOMHTMLTableColElementChOff , + dOMHTMLTableColElementChOff , getDOMHTMLTableColElementChOff , setDOMHTMLTableColElementChOff , @@ -104,6 +107,7 @@ -- ** Span DOMHTMLTableColElementSpanPropertyInfo , constructDOMHTMLTableColElementSpan , + dOMHTMLTableColElementSpan , getDOMHTMLTableColElementSpan , setDOMHTMLTableColElementSpan , @@ -111,6 +115,7 @@ -- ** VAlign DOMHTMLTableColElementVAlignPropertyInfo, constructDOMHTMLTableColElementVAlign , + dOMHTMLTableColElementVAlign , getDOMHTMLTableColElementVAlign , setDOMHTMLTableColElementVAlign , @@ -118,6 +123,7 @@ -- ** Width DOMHTMLTableColElementWidthPropertyInfo , constructDOMHTMLTableColElementWidth , + dOMHTMLTableColElementWidth , getDOMHTMLTableColElementWidth , setDOMHTMLTableColElementWidth , @@ -126,9 +132,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map @@ -338,150 +344,180 @@ -- VVV Prop "align" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Just False) -getDOMHTMLTableColElementAlign :: (MonadIO m, DOMHTMLTableColElementK o) => o -> m T.Text +getDOMHTMLTableColElementAlign :: (MonadIO m, DOMHTMLTableColElementK o) => o -> m (Maybe T.Text) getDOMHTMLTableColElementAlign obj = liftIO $ getObjectPropertyString obj "align" setDOMHTMLTableColElementAlign :: (MonadIO m, DOMHTMLTableColElementK o) => o -> T.Text -> m () -setDOMHTMLTableColElementAlign obj val = liftIO $ setObjectPropertyString obj "align" val +setDOMHTMLTableColElementAlign obj val = liftIO $ setObjectPropertyString obj "align" (Just val) constructDOMHTMLTableColElementAlign :: T.Text -> IO ([Char], GValue) -constructDOMHTMLTableColElementAlign val = constructObjectPropertyString "align" val +constructDOMHTMLTableColElementAlign val = constructObjectPropertyString "align" (Just val) data DOMHTMLTableColElementAlignPropertyInfo instance AttrInfo DOMHTMLTableColElementAlignPropertyInfo where type AttrAllowedOps DOMHTMLTableColElementAlignPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint DOMHTMLTableColElementAlignPropertyInfo = (~) T.Text type AttrBaseTypeConstraint DOMHTMLTableColElementAlignPropertyInfo = DOMHTMLTableColElementK - type AttrGetType DOMHTMLTableColElementAlignPropertyInfo = T.Text + type AttrGetType DOMHTMLTableColElementAlignPropertyInfo = (Maybe T.Text) type AttrLabel DOMHTMLTableColElementAlignPropertyInfo = "align" attrGet _ = getDOMHTMLTableColElementAlign attrSet _ = setDOMHTMLTableColElementAlign attrConstruct _ = constructDOMHTMLTableColElementAlign + attrClear _ = undefined -- VVV Prop "ch" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Just False) -getDOMHTMLTableColElementCh :: (MonadIO m, DOMHTMLTableColElementK o) => o -> m T.Text +getDOMHTMLTableColElementCh :: (MonadIO m, DOMHTMLTableColElementK o) => o -> m (Maybe T.Text) getDOMHTMLTableColElementCh obj = liftIO $ getObjectPropertyString obj "ch" setDOMHTMLTableColElementCh :: (MonadIO m, DOMHTMLTableColElementK o) => o -> T.Text -> m () -setDOMHTMLTableColElementCh obj val = liftIO $ setObjectPropertyString obj "ch" val +setDOMHTMLTableColElementCh obj val = liftIO $ setObjectPropertyString obj "ch" (Just val) constructDOMHTMLTableColElementCh :: T.Text -> IO ([Char], GValue) -constructDOMHTMLTableColElementCh val = constructObjectPropertyString "ch" val +constructDOMHTMLTableColElementCh val = constructObjectPropertyString "ch" (Just val) data DOMHTMLTableColElementChPropertyInfo instance AttrInfo DOMHTMLTableColElementChPropertyInfo where type AttrAllowedOps DOMHTMLTableColElementChPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint DOMHTMLTableColElementChPropertyInfo = (~) T.Text type AttrBaseTypeConstraint DOMHTMLTableColElementChPropertyInfo = DOMHTMLTableColElementK - type AttrGetType DOMHTMLTableColElementChPropertyInfo = T.Text + type AttrGetType DOMHTMLTableColElementChPropertyInfo = (Maybe T.Text) type AttrLabel DOMHTMLTableColElementChPropertyInfo = "ch" attrGet _ = getDOMHTMLTableColElementCh attrSet _ = setDOMHTMLTableColElementCh attrConstruct _ = constructDOMHTMLTableColElementCh + attrClear _ = undefined -- VVV Prop "ch-off" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Just False) -getDOMHTMLTableColElementChOff :: (MonadIO m, DOMHTMLTableColElementK o) => o -> m T.Text +getDOMHTMLTableColElementChOff :: (MonadIO m, DOMHTMLTableColElementK o) => o -> m (Maybe T.Text) getDOMHTMLTableColElementChOff obj = liftIO $ getObjectPropertyString obj "ch-off" setDOMHTMLTableColElementChOff :: (MonadIO m, DOMHTMLTableColElementK o) => o -> T.Text -> m () -setDOMHTMLTableColElementChOff obj val = liftIO $ setObjectPropertyString obj "ch-off" val +setDOMHTMLTableColElementChOff obj val = liftIO $ setObjectPropertyString obj "ch-off" (Just val) constructDOMHTMLTableColElementChOff :: T.Text -> IO ([Char], GValue) -constructDOMHTMLTableColElementChOff val = constructObjectPropertyString "ch-off" val +constructDOMHTMLTableColElementChOff val = constructObjectPropertyString "ch-off" (Just val) data DOMHTMLTableColElementChOffPropertyInfo instance AttrInfo DOMHTMLTableColElementChOffPropertyInfo where type AttrAllowedOps DOMHTMLTableColElementChOffPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint DOMHTMLTableColElementChOffPropertyInfo = (~) T.Text type AttrBaseTypeConstraint DOMHTMLTableColElementChOffPropertyInfo = DOMHTMLTableColElementK - type AttrGetType DOMHTMLTableColElementChOffPropertyInfo = T.Text + type AttrGetType DOMHTMLTableColElementChOffPropertyInfo = (Maybe T.Text) type AttrLabel DOMHTMLTableColElementChOffPropertyInfo = "ch-off" attrGet _ = getDOMHTMLTableColElementChOff attrSet _ = setDOMHTMLTableColElementChOff attrConstruct _ = constructDOMHTMLTableColElementChOff + attrClear _ = undefined -- VVV Prop "span" - -- Type: TBasicType TInt64 + -- Type: TBasicType TLong -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) -getDOMHTMLTableColElementSpan :: (MonadIO m, DOMHTMLTableColElementK o) => o -> m Int64 -getDOMHTMLTableColElementSpan obj = liftIO $ getObjectPropertyInt64 obj "span" +getDOMHTMLTableColElementSpan :: (MonadIO m, DOMHTMLTableColElementK o) => o -> m CLong +getDOMHTMLTableColElementSpan obj = liftIO $ getObjectPropertyLong obj "span" -setDOMHTMLTableColElementSpan :: (MonadIO m, DOMHTMLTableColElementK o) => o -> Int64 -> m () -setDOMHTMLTableColElementSpan obj val = liftIO $ setObjectPropertyInt64 obj "span" val +setDOMHTMLTableColElementSpan :: (MonadIO m, DOMHTMLTableColElementK o) => o -> CLong -> m () +setDOMHTMLTableColElementSpan obj val = liftIO $ setObjectPropertyLong obj "span" val -constructDOMHTMLTableColElementSpan :: Int64 -> IO ([Char], GValue) -constructDOMHTMLTableColElementSpan val = constructObjectPropertyInt64 "span" val +constructDOMHTMLTableColElementSpan :: CLong -> IO ([Char], GValue) +constructDOMHTMLTableColElementSpan val = constructObjectPropertyLong "span" val data DOMHTMLTableColElementSpanPropertyInfo instance AttrInfo DOMHTMLTableColElementSpanPropertyInfo where type AttrAllowedOps DOMHTMLTableColElementSpanPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLTableColElementSpanPropertyInfo = (~) Int64 + type AttrSetTypeConstraint DOMHTMLTableColElementSpanPropertyInfo = (~) CLong type AttrBaseTypeConstraint DOMHTMLTableColElementSpanPropertyInfo = DOMHTMLTableColElementK - type AttrGetType DOMHTMLTableColElementSpanPropertyInfo = Int64 + type AttrGetType DOMHTMLTableColElementSpanPropertyInfo = CLong type AttrLabel DOMHTMLTableColElementSpanPropertyInfo = "span" attrGet _ = getDOMHTMLTableColElementSpan attrSet _ = setDOMHTMLTableColElementSpan attrConstruct _ = constructDOMHTMLTableColElementSpan + attrClear _ = undefined -- VVV Prop "v-align" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Just False) -getDOMHTMLTableColElementVAlign :: (MonadIO m, DOMHTMLTableColElementK o) => o -> m T.Text +getDOMHTMLTableColElementVAlign :: (MonadIO m, DOMHTMLTableColElementK o) => o -> m (Maybe T.Text) getDOMHTMLTableColElementVAlign obj = liftIO $ getObjectPropertyString obj "v-align" setDOMHTMLTableColElementVAlign :: (MonadIO m, DOMHTMLTableColElementK o) => o -> T.Text -> m () -setDOMHTMLTableColElementVAlign obj val = liftIO $ setObjectPropertyString obj "v-align" val +setDOMHTMLTableColElementVAlign obj val = liftIO $ setObjectPropertyString obj "v-align" (Just val) constructDOMHTMLTableColElementVAlign :: T.Text -> IO ([Char], GValue) -constructDOMHTMLTableColElementVAlign val = constructObjectPropertyString "v-align" val +constructDOMHTMLTableColElementVAlign val = constructObjectPropertyString "v-align" (Just val) data DOMHTMLTableColElementVAlignPropertyInfo instance AttrInfo DOMHTMLTableColElementVAlignPropertyInfo where type AttrAllowedOps DOMHTMLTableColElementVAlignPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint DOMHTMLTableColElementVAlignPropertyInfo = (~) T.Text type AttrBaseTypeConstraint DOMHTMLTableColElementVAlignPropertyInfo = DOMHTMLTableColElementK - type AttrGetType DOMHTMLTableColElementVAlignPropertyInfo = T.Text + type AttrGetType DOMHTMLTableColElementVAlignPropertyInfo = (Maybe T.Text) type AttrLabel DOMHTMLTableColElementVAlignPropertyInfo = "v-align" attrGet _ = getDOMHTMLTableColElementVAlign attrSet _ = setDOMHTMLTableColElementVAlign attrConstruct _ = constructDOMHTMLTableColElementVAlign + attrClear _ = undefined -- VVV Prop "width" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Just False) -getDOMHTMLTableColElementWidth :: (MonadIO m, DOMHTMLTableColElementK o) => o -> m T.Text +getDOMHTMLTableColElementWidth :: (MonadIO m, DOMHTMLTableColElementK o) => o -> m (Maybe T.Text) getDOMHTMLTableColElementWidth obj = liftIO $ getObjectPropertyString obj "width" setDOMHTMLTableColElementWidth :: (MonadIO m, DOMHTMLTableColElementK o) => o -> T.Text -> m () -setDOMHTMLTableColElementWidth obj val = liftIO $ setObjectPropertyString obj "width" val +setDOMHTMLTableColElementWidth obj val = liftIO $ setObjectPropertyString obj "width" (Just val) constructDOMHTMLTableColElementWidth :: T.Text -> IO ([Char], GValue) -constructDOMHTMLTableColElementWidth val = constructObjectPropertyString "width" val +constructDOMHTMLTableColElementWidth val = constructObjectPropertyString "width" (Just val) data DOMHTMLTableColElementWidthPropertyInfo instance AttrInfo DOMHTMLTableColElementWidthPropertyInfo where type AttrAllowedOps DOMHTMLTableColElementWidthPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint DOMHTMLTableColElementWidthPropertyInfo = (~) T.Text type AttrBaseTypeConstraint DOMHTMLTableColElementWidthPropertyInfo = DOMHTMLTableColElementK - type AttrGetType DOMHTMLTableColElementWidthPropertyInfo = T.Text + type AttrGetType DOMHTMLTableColElementWidthPropertyInfo = (Maybe T.Text) type AttrLabel DOMHTMLTableColElementWidthPropertyInfo = "width" attrGet _ = getDOMHTMLTableColElementWidth attrSet _ = setDOMHTMLTableColElementWidth attrConstruct _ = constructDOMHTMLTableColElementWidth + attrClear _ = undefined type instance AttributeList DOMHTMLTableColElement = DOMHTMLTableColElementAttributeList type DOMHTMLTableColElementAttributeList = ('[ '("accessKey", DOMHTMLElementAccessKeyPropertyInfo), '("align", DOMHTMLTableColElementAlignPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("baseUri", DOMNodeBaseUriPropertyInfo), '("ch", DOMHTMLTableColElementChPropertyInfo), '("chOff", DOMHTMLTableColElementChOffPropertyInfo), '("childElementCount", DOMElementChildElementCountPropertyInfo), '("childNodes", DOMNodeChildNodesPropertyInfo), '("children", DOMHTMLElementChildrenPropertyInfo), '("classList", DOMElementClassListPropertyInfo), '("className", DOMElementClassNamePropertyInfo), '("clientHeight", DOMElementClientHeightPropertyInfo), '("clientLeft", DOMElementClientLeftPropertyInfo), '("clientTop", DOMElementClientTopPropertyInfo), '("clientWidth", DOMElementClientWidthPropertyInfo), '("contentEditable", DOMHTMLElementContentEditablePropertyInfo), '("coreObject", DOMObjectCoreObjectPropertyInfo), '("dir", DOMHTMLElementDirPropertyInfo), '("draggable", DOMHTMLElementDraggablePropertyInfo), '("firstChild", DOMNodeFirstChildPropertyInfo), '("firstElementChild", DOMElementFirstElementChildPropertyInfo), '("hidden", DOMHTMLElementHiddenPropertyInfo), '("id", DOMElementIdPropertyInfo), '("innerHtml", DOMHTMLElementInnerHtmlPropertyInfo), '("innerText", DOMHTMLElementInnerTextPropertyInfo), '("isContentEditable", DOMHTMLElementIsContentEditablePropertyInfo), '("lang", DOMHTMLElementLangPropertyInfo), '("lastChild", DOMNodeLastChildPropertyInfo), '("lastElementChild", DOMElementLastElementChildPropertyInfo), '("localName", DOMNodeLocalNamePropertyInfo), '("namespaceUri", DOMNodeNamespaceUriPropertyInfo), '("nextElementSibling", DOMElementNextElementSiblingPropertyInfo), '("nextSibling", DOMNodeNextSiblingPropertyInfo), '("nodeName", DOMNodeNodeNamePropertyInfo), '("nodeType", DOMNodeNodeTypePropertyInfo), '("nodeValue", DOMNodeNodeValuePropertyInfo), '("offsetHeight", DOMElementOffsetHeightPropertyInfo), '("offsetLeft", DOMElementOffsetLeftPropertyInfo), '("offsetParent", DOMElementOffsetParentPropertyInfo), '("offsetTop", DOMElementOffsetTopPropertyInfo), '("offsetWidth", DOMElementOffsetWidthPropertyInfo), '("outerHtml", DOMHTMLElementOuterHtmlPropertyInfo), '("outerText", DOMHTMLElementOuterTextPropertyInfo), '("ownerDocument", DOMNodeOwnerDocumentPropertyInfo), '("parentElement", DOMNodeParentElementPropertyInfo), '("parentNode", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previousElementSibling", DOMElementPreviousElementSiblingPropertyInfo), '("previousSibling", DOMNodePreviousSiblingPropertyInfo), '("scrollHeight", DOMElementScrollHeightPropertyInfo), '("scrollLeft", DOMElementScrollLeftPropertyInfo), '("scrollTop", DOMElementScrollTopPropertyInfo), '("scrollWidth", DOMElementScrollWidthPropertyInfo), '("span", DOMHTMLTableColElementSpanPropertyInfo), '("spellcheck", DOMHTMLElementSpellcheckPropertyInfo), '("style", DOMElementStylePropertyInfo), '("tabIndex", DOMHTMLElementTabIndexPropertyInfo), '("tagName", DOMElementTagNamePropertyInfo), '("textContent", DOMNodeTextContentPropertyInfo), '("title", DOMHTMLElementTitlePropertyInfo), '("translate", DOMHTMLElementTranslatePropertyInfo), '("vAlign", DOMHTMLTableColElementVAlignPropertyInfo), '("webkitRegionOverset", DOMElementWebkitRegionOversetPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo), '("width", DOMHTMLTableColElementWidthPropertyInfo)] :: [(Symbol, *)]) +dOMHTMLTableColElementAlign :: AttrLabelProxy "align" +dOMHTMLTableColElementAlign = AttrLabelProxy + +dOMHTMLTableColElementCh :: AttrLabelProxy "ch" +dOMHTMLTableColElementCh = AttrLabelProxy + +dOMHTMLTableColElementChOff :: AttrLabelProxy "chOff" +dOMHTMLTableColElementChOff = AttrLabelProxy + +dOMHTMLTableColElementSpan :: AttrLabelProxy "span" +dOMHTMLTableColElementSpan = AttrLabelProxy + +dOMHTMLTableColElementVAlign :: AttrLabelProxy "vAlign" +dOMHTMLTableColElementVAlign = AttrLabelProxy + +dOMHTMLTableColElementWidth :: AttrLabelProxy "width" +dOMHTMLTableColElementWidth = AttrLabelProxy + type instance SignalList DOMHTMLTableColElement = DOMHTMLTableColElementSignalList type DOMHTMLTableColElementSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) @@ -489,7 +525,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableColElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -519,7 +555,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableColElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -549,7 +585,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableColElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -579,19 +615,19 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableColElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TInt64 +-- returnType : Just (TBasicType TLong) -- throws : False -- Skip return : False foreign import ccall "webkit_dom_html_table_col_element_get_span" webkit_dom_html_table_col_element_get_span :: Ptr DOMHTMLTableColElement -> -- _obj : TInterface "WebKit" "DOMHTMLTableColElement" - IO Int64 + IO CLong dOMHTMLTableColElementGetSpan :: (MonadIO m, DOMHTMLTableColElementK a) => a -- _obj - -> m Int64 -- result + -> m CLong -- result dOMHTMLTableColElementGetSpan _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- webkit_dom_html_table_col_element_get_span _obj' @@ -599,14 +635,14 @@ return result data DOMHTMLTableColElementGetSpanMethodInfo -instance (signature ~ (m Int64), MonadIO m, DOMHTMLTableColElementK a) => MethodInfo DOMHTMLTableColElementGetSpanMethodInfo a signature where +instance (signature ~ (m CLong), MonadIO m, DOMHTMLTableColElementK a) => MethodInfo DOMHTMLTableColElementGetSpanMethodInfo a signature where overloadedMethod _ = dOMHTMLTableColElementGetSpan -- method DOMHTMLTableColElement::get_v_align -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableColElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -636,7 +672,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableColElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -666,7 +702,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableColElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -697,7 +733,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableColElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -728,7 +764,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableColElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -757,22 +793,22 @@ -- method DOMHTMLTableColElement::set_span -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableColElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableColElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TLong, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "webkit_dom_html_table_col_element_set_span" webkit_dom_html_table_col_element_set_span :: Ptr DOMHTMLTableColElement -> -- _obj : TInterface "WebKit" "DOMHTMLTableColElement" - Int64 -> -- value : TBasicType TInt64 + CLong -> -- value : TBasicType TLong IO () dOMHTMLTableColElementSetSpan :: (MonadIO m, DOMHTMLTableColElementK a) => a -- _obj - -> Int64 -- value + -> CLong -- value -> m () -- result dOMHTMLTableColElementSetSpan _obj value = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj @@ -781,14 +817,14 @@ return () data DOMHTMLTableColElementSetSpanMethodInfo -instance (signature ~ (Int64 -> m ()), MonadIO m, DOMHTMLTableColElementK a) => MethodInfo DOMHTMLTableColElementSetSpanMethodInfo a signature where +instance (signature ~ (CLong -> m ()), MonadIO m, DOMHTMLTableColElementK a) => MethodInfo DOMHTMLTableColElementSetSpanMethodInfo a signature where overloadedMethod _ = dOMHTMLTableColElementSetSpan -- method DOMHTMLTableColElement::set_v_align -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableColElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -819,7 +855,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableColElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False diff --git a/GI/WebKit/Objects/DOMHTMLTableColElement.hs-boot b/GI/WebKit/Objects/DOMHTMLTableColElement.hs-boot --- a/GI/WebKit/Objects/DOMHTMLTableColElement.hs-boot +++ b/GI/WebKit/Objects/DOMHTMLTableColElement.hs-boot @@ -1,8 +1,8 @@ module GI.WebKit.Objects.DOMHTMLTableColElement where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map diff --git a/GI/WebKit/Objects/DOMHTMLTableElement.hs b/GI/WebKit/Objects/DOMHTMLTableElement.hs --- a/GI/WebKit/Objects/DOMHTMLTableElement.hs +++ b/GI/WebKit/Objects/DOMHTMLTableElement.hs @@ -198,6 +198,7 @@ -- ** Align DOMHTMLTableElementAlignPropertyInfo , constructDOMHTMLTableElementAlign , + dOMHTMLTableElementAlign , getDOMHTMLTableElementAlign , setDOMHTMLTableElementAlign , @@ -205,6 +206,7 @@ -- ** BgColor DOMHTMLTableElementBgColorPropertyInfo , constructDOMHTMLTableElementBgColor , + dOMHTMLTableElementBgColor , getDOMHTMLTableElementBgColor , setDOMHTMLTableElementBgColor , @@ -212,18 +214,21 @@ -- ** Border DOMHTMLTableElementBorderPropertyInfo , constructDOMHTMLTableElementBorder , + dOMHTMLTableElementBorder , getDOMHTMLTableElementBorder , setDOMHTMLTableElementBorder , -- ** Caption DOMHTMLTableElementCaptionPropertyInfo , + dOMHTMLTableElementCaption , getDOMHTMLTableElementCaption , -- ** CellPadding DOMHTMLTableElementCellPaddingPropertyInfo, constructDOMHTMLTableElementCellPadding , + dOMHTMLTableElementCellPadding , getDOMHTMLTableElementCellPadding , setDOMHTMLTableElementCellPadding , @@ -231,6 +236,7 @@ -- ** CellSpacing DOMHTMLTableElementCellSpacingPropertyInfo, constructDOMHTMLTableElementCellSpacing , + dOMHTMLTableElementCellSpacing , getDOMHTMLTableElementCellSpacing , setDOMHTMLTableElementCellSpacing , @@ -238,18 +244,21 @@ -- ** Frame DOMHTMLTableElementFramePropertyInfo , constructDOMHTMLTableElementFrame , + dOMHTMLTableElementFrame , getDOMHTMLTableElementFrame , setDOMHTMLTableElementFrame , -- ** Rows DOMHTMLTableElementRowsPropertyInfo , + dOMHTMLTableElementRows , getDOMHTMLTableElementRows , -- ** Rules DOMHTMLTableElementRulesPropertyInfo , constructDOMHTMLTableElementRules , + dOMHTMLTableElementRules , getDOMHTMLTableElementRules , setDOMHTMLTableElementRules , @@ -257,28 +266,33 @@ -- ** Summary DOMHTMLTableElementSummaryPropertyInfo , constructDOMHTMLTableElementSummary , + dOMHTMLTableElementSummary , getDOMHTMLTableElementSummary , setDOMHTMLTableElementSummary , -- ** TBodies DOMHTMLTableElementTBodiesPropertyInfo , + dOMHTMLTableElementTBodies , getDOMHTMLTableElementTBodies , -- ** TFoot DOMHTMLTableElementTFootPropertyInfo , + dOMHTMLTableElementTFoot , getDOMHTMLTableElementTFoot , -- ** THead DOMHTMLTableElementTHeadPropertyInfo , + dOMHTMLTableElementTHead , getDOMHTMLTableElementTHead , -- ** Width DOMHTMLTableElementWidthPropertyInfo , constructDOMHTMLTableElementWidth , + dOMHTMLTableElementWidth , getDOMHTMLTableElementWidth , setDOMHTMLTableElementWidth , @@ -287,9 +301,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map @@ -522,85 +536,92 @@ -- VVV Prop "align" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Just False) -getDOMHTMLTableElementAlign :: (MonadIO m, DOMHTMLTableElementK o) => o -> m T.Text +getDOMHTMLTableElementAlign :: (MonadIO m, DOMHTMLTableElementK o) => o -> m (Maybe T.Text) getDOMHTMLTableElementAlign obj = liftIO $ getObjectPropertyString obj "align" setDOMHTMLTableElementAlign :: (MonadIO m, DOMHTMLTableElementK o) => o -> T.Text -> m () -setDOMHTMLTableElementAlign obj val = liftIO $ setObjectPropertyString obj "align" val +setDOMHTMLTableElementAlign obj val = liftIO $ setObjectPropertyString obj "align" (Just val) constructDOMHTMLTableElementAlign :: T.Text -> IO ([Char], GValue) -constructDOMHTMLTableElementAlign val = constructObjectPropertyString "align" val +constructDOMHTMLTableElementAlign val = constructObjectPropertyString "align" (Just val) data DOMHTMLTableElementAlignPropertyInfo instance AttrInfo DOMHTMLTableElementAlignPropertyInfo where type AttrAllowedOps DOMHTMLTableElementAlignPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint DOMHTMLTableElementAlignPropertyInfo = (~) T.Text type AttrBaseTypeConstraint DOMHTMLTableElementAlignPropertyInfo = DOMHTMLTableElementK - type AttrGetType DOMHTMLTableElementAlignPropertyInfo = T.Text + type AttrGetType DOMHTMLTableElementAlignPropertyInfo = (Maybe T.Text) type AttrLabel DOMHTMLTableElementAlignPropertyInfo = "align" attrGet _ = getDOMHTMLTableElementAlign attrSet _ = setDOMHTMLTableElementAlign attrConstruct _ = constructDOMHTMLTableElementAlign + attrClear _ = undefined -- VVV Prop "bg-color" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Just False) -getDOMHTMLTableElementBgColor :: (MonadIO m, DOMHTMLTableElementK o) => o -> m T.Text +getDOMHTMLTableElementBgColor :: (MonadIO m, DOMHTMLTableElementK o) => o -> m (Maybe T.Text) getDOMHTMLTableElementBgColor obj = liftIO $ getObjectPropertyString obj "bg-color" setDOMHTMLTableElementBgColor :: (MonadIO m, DOMHTMLTableElementK o) => o -> T.Text -> m () -setDOMHTMLTableElementBgColor obj val = liftIO $ setObjectPropertyString obj "bg-color" val +setDOMHTMLTableElementBgColor obj val = liftIO $ setObjectPropertyString obj "bg-color" (Just val) constructDOMHTMLTableElementBgColor :: T.Text -> IO ([Char], GValue) -constructDOMHTMLTableElementBgColor val = constructObjectPropertyString "bg-color" val +constructDOMHTMLTableElementBgColor val = constructObjectPropertyString "bg-color" (Just val) data DOMHTMLTableElementBgColorPropertyInfo instance AttrInfo DOMHTMLTableElementBgColorPropertyInfo where type AttrAllowedOps DOMHTMLTableElementBgColorPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint DOMHTMLTableElementBgColorPropertyInfo = (~) T.Text type AttrBaseTypeConstraint DOMHTMLTableElementBgColorPropertyInfo = DOMHTMLTableElementK - type AttrGetType DOMHTMLTableElementBgColorPropertyInfo = T.Text + type AttrGetType DOMHTMLTableElementBgColorPropertyInfo = (Maybe T.Text) type AttrLabel DOMHTMLTableElementBgColorPropertyInfo = "bg-color" attrGet _ = getDOMHTMLTableElementBgColor attrSet _ = setDOMHTMLTableElementBgColor attrConstruct _ = constructDOMHTMLTableElementBgColor + attrClear _ = undefined -- VVV Prop "border" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Just False) -getDOMHTMLTableElementBorder :: (MonadIO m, DOMHTMLTableElementK o) => o -> m T.Text +getDOMHTMLTableElementBorder :: (MonadIO m, DOMHTMLTableElementK o) => o -> m (Maybe T.Text) getDOMHTMLTableElementBorder obj = liftIO $ getObjectPropertyString obj "border" setDOMHTMLTableElementBorder :: (MonadIO m, DOMHTMLTableElementK o) => o -> T.Text -> m () -setDOMHTMLTableElementBorder obj val = liftIO $ setObjectPropertyString obj "border" val +setDOMHTMLTableElementBorder obj val = liftIO $ setObjectPropertyString obj "border" (Just val) constructDOMHTMLTableElementBorder :: T.Text -> IO ([Char], GValue) -constructDOMHTMLTableElementBorder val = constructObjectPropertyString "border" val +constructDOMHTMLTableElementBorder val = constructObjectPropertyString "border" (Just val) data DOMHTMLTableElementBorderPropertyInfo instance AttrInfo DOMHTMLTableElementBorderPropertyInfo where type AttrAllowedOps DOMHTMLTableElementBorderPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint DOMHTMLTableElementBorderPropertyInfo = (~) T.Text type AttrBaseTypeConstraint DOMHTMLTableElementBorderPropertyInfo = DOMHTMLTableElementK - type AttrGetType DOMHTMLTableElementBorderPropertyInfo = T.Text + type AttrGetType DOMHTMLTableElementBorderPropertyInfo = (Maybe T.Text) type AttrLabel DOMHTMLTableElementBorderPropertyInfo = "border" attrGet _ = getDOMHTMLTableElementBorder attrSet _ = setDOMHTMLTableElementBorder attrConstruct _ = constructDOMHTMLTableElementBorder + attrClear _ = undefined -- VVV Prop "caption" -- Type: TInterface "WebKit" "DOMHTMLTableCaptionElement" -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) getDOMHTMLTableElementCaption :: (MonadIO m, DOMHTMLTableElementK o) => o -> m DOMHTMLTableCaptionElement -getDOMHTMLTableElementCaption obj = liftIO $ getObjectPropertyObject obj "caption" DOMHTMLTableCaptionElement +getDOMHTMLTableElementCaption obj = liftIO $ checkUnexpectedNothing "getDOMHTMLTableElementCaption" $ getObjectPropertyObject obj "caption" DOMHTMLTableCaptionElement data DOMHTMLTableElementCaptionPropertyInfo instance AttrInfo DOMHTMLTableElementCaptionPropertyInfo where - type AttrAllowedOps DOMHTMLTableElementCaptionPropertyInfo = '[ 'AttrGet] + type AttrAllowedOps DOMHTMLTableElementCaptionPropertyInfo = '[ 'AttrGet, 'AttrClear] type AttrSetTypeConstraint DOMHTMLTableElementCaptionPropertyInfo = (~) () type AttrBaseTypeConstraint DOMHTMLTableElementCaptionPropertyInfo = DOMHTMLTableElementK type AttrGetType DOMHTMLTableElementCaptionPropertyInfo = DOMHTMLTableCaptionElement @@ -608,173 +629,189 @@ attrGet _ = getDOMHTMLTableElementCaption attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "cell-padding" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Just False) -getDOMHTMLTableElementCellPadding :: (MonadIO m, DOMHTMLTableElementK o) => o -> m T.Text +getDOMHTMLTableElementCellPadding :: (MonadIO m, DOMHTMLTableElementK o) => o -> m (Maybe T.Text) getDOMHTMLTableElementCellPadding obj = liftIO $ getObjectPropertyString obj "cell-padding" setDOMHTMLTableElementCellPadding :: (MonadIO m, DOMHTMLTableElementK o) => o -> T.Text -> m () -setDOMHTMLTableElementCellPadding obj val = liftIO $ setObjectPropertyString obj "cell-padding" val +setDOMHTMLTableElementCellPadding obj val = liftIO $ setObjectPropertyString obj "cell-padding" (Just val) constructDOMHTMLTableElementCellPadding :: T.Text -> IO ([Char], GValue) -constructDOMHTMLTableElementCellPadding val = constructObjectPropertyString "cell-padding" val +constructDOMHTMLTableElementCellPadding val = constructObjectPropertyString "cell-padding" (Just val) data DOMHTMLTableElementCellPaddingPropertyInfo instance AttrInfo DOMHTMLTableElementCellPaddingPropertyInfo where type AttrAllowedOps DOMHTMLTableElementCellPaddingPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint DOMHTMLTableElementCellPaddingPropertyInfo = (~) T.Text type AttrBaseTypeConstraint DOMHTMLTableElementCellPaddingPropertyInfo = DOMHTMLTableElementK - type AttrGetType DOMHTMLTableElementCellPaddingPropertyInfo = T.Text + type AttrGetType DOMHTMLTableElementCellPaddingPropertyInfo = (Maybe T.Text) type AttrLabel DOMHTMLTableElementCellPaddingPropertyInfo = "cell-padding" attrGet _ = getDOMHTMLTableElementCellPadding attrSet _ = setDOMHTMLTableElementCellPadding attrConstruct _ = constructDOMHTMLTableElementCellPadding + attrClear _ = undefined -- VVV Prop "cell-spacing" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Just False) -getDOMHTMLTableElementCellSpacing :: (MonadIO m, DOMHTMLTableElementK o) => o -> m T.Text +getDOMHTMLTableElementCellSpacing :: (MonadIO m, DOMHTMLTableElementK o) => o -> m (Maybe T.Text) getDOMHTMLTableElementCellSpacing obj = liftIO $ getObjectPropertyString obj "cell-spacing" setDOMHTMLTableElementCellSpacing :: (MonadIO m, DOMHTMLTableElementK o) => o -> T.Text -> m () -setDOMHTMLTableElementCellSpacing obj val = liftIO $ setObjectPropertyString obj "cell-spacing" val +setDOMHTMLTableElementCellSpacing obj val = liftIO $ setObjectPropertyString obj "cell-spacing" (Just val) constructDOMHTMLTableElementCellSpacing :: T.Text -> IO ([Char], GValue) -constructDOMHTMLTableElementCellSpacing val = constructObjectPropertyString "cell-spacing" val +constructDOMHTMLTableElementCellSpacing val = constructObjectPropertyString "cell-spacing" (Just val) data DOMHTMLTableElementCellSpacingPropertyInfo instance AttrInfo DOMHTMLTableElementCellSpacingPropertyInfo where type AttrAllowedOps DOMHTMLTableElementCellSpacingPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint DOMHTMLTableElementCellSpacingPropertyInfo = (~) T.Text type AttrBaseTypeConstraint DOMHTMLTableElementCellSpacingPropertyInfo = DOMHTMLTableElementK - type AttrGetType DOMHTMLTableElementCellSpacingPropertyInfo = T.Text + type AttrGetType DOMHTMLTableElementCellSpacingPropertyInfo = (Maybe T.Text) type AttrLabel DOMHTMLTableElementCellSpacingPropertyInfo = "cell-spacing" attrGet _ = getDOMHTMLTableElementCellSpacing attrSet _ = setDOMHTMLTableElementCellSpacing attrConstruct _ = constructDOMHTMLTableElementCellSpacing + attrClear _ = undefined -- VVV Prop "frame" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Just False) -getDOMHTMLTableElementFrame :: (MonadIO m, DOMHTMLTableElementK o) => o -> m T.Text +getDOMHTMLTableElementFrame :: (MonadIO m, DOMHTMLTableElementK o) => o -> m (Maybe T.Text) getDOMHTMLTableElementFrame obj = liftIO $ getObjectPropertyString obj "frame" setDOMHTMLTableElementFrame :: (MonadIO m, DOMHTMLTableElementK o) => o -> T.Text -> m () -setDOMHTMLTableElementFrame obj val = liftIO $ setObjectPropertyString obj "frame" val +setDOMHTMLTableElementFrame obj val = liftIO $ setObjectPropertyString obj "frame" (Just val) constructDOMHTMLTableElementFrame :: T.Text -> IO ([Char], GValue) -constructDOMHTMLTableElementFrame val = constructObjectPropertyString "frame" val +constructDOMHTMLTableElementFrame val = constructObjectPropertyString "frame" (Just val) data DOMHTMLTableElementFramePropertyInfo instance AttrInfo DOMHTMLTableElementFramePropertyInfo where type AttrAllowedOps DOMHTMLTableElementFramePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint DOMHTMLTableElementFramePropertyInfo = (~) T.Text type AttrBaseTypeConstraint DOMHTMLTableElementFramePropertyInfo = DOMHTMLTableElementK - type AttrGetType DOMHTMLTableElementFramePropertyInfo = T.Text + type AttrGetType DOMHTMLTableElementFramePropertyInfo = (Maybe T.Text) type AttrLabel DOMHTMLTableElementFramePropertyInfo = "frame" attrGet _ = getDOMHTMLTableElementFrame attrSet _ = setDOMHTMLTableElementFrame attrConstruct _ = constructDOMHTMLTableElementFrame + attrClear _ = undefined -- VVV Prop "rows" -- Type: TInterface "WebKit" "DOMHTMLCollection" -- Flags: [PropertyReadable] + -- Nullable: (Nothing,Nothing) -getDOMHTMLTableElementRows :: (MonadIO m, DOMHTMLTableElementK o) => o -> m DOMHTMLCollection +getDOMHTMLTableElementRows :: (MonadIO m, DOMHTMLTableElementK o) => o -> m (Maybe DOMHTMLCollection) getDOMHTMLTableElementRows obj = liftIO $ getObjectPropertyObject obj "rows" DOMHTMLCollection data DOMHTMLTableElementRowsPropertyInfo instance AttrInfo DOMHTMLTableElementRowsPropertyInfo where - type AttrAllowedOps DOMHTMLTableElementRowsPropertyInfo = '[ 'AttrGet] + type AttrAllowedOps DOMHTMLTableElementRowsPropertyInfo = '[ 'AttrGet, 'AttrClear] type AttrSetTypeConstraint DOMHTMLTableElementRowsPropertyInfo = (~) () type AttrBaseTypeConstraint DOMHTMLTableElementRowsPropertyInfo = DOMHTMLTableElementK - type AttrGetType DOMHTMLTableElementRowsPropertyInfo = DOMHTMLCollection + type AttrGetType DOMHTMLTableElementRowsPropertyInfo = (Maybe DOMHTMLCollection) type AttrLabel DOMHTMLTableElementRowsPropertyInfo = "rows" attrGet _ = getDOMHTMLTableElementRows attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "rules" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Just False) -getDOMHTMLTableElementRules :: (MonadIO m, DOMHTMLTableElementK o) => o -> m T.Text +getDOMHTMLTableElementRules :: (MonadIO m, DOMHTMLTableElementK o) => o -> m (Maybe T.Text) getDOMHTMLTableElementRules obj = liftIO $ getObjectPropertyString obj "rules" setDOMHTMLTableElementRules :: (MonadIO m, DOMHTMLTableElementK o) => o -> T.Text -> m () -setDOMHTMLTableElementRules obj val = liftIO $ setObjectPropertyString obj "rules" val +setDOMHTMLTableElementRules obj val = liftIO $ setObjectPropertyString obj "rules" (Just val) constructDOMHTMLTableElementRules :: T.Text -> IO ([Char], GValue) -constructDOMHTMLTableElementRules val = constructObjectPropertyString "rules" val +constructDOMHTMLTableElementRules val = constructObjectPropertyString "rules" (Just val) data DOMHTMLTableElementRulesPropertyInfo instance AttrInfo DOMHTMLTableElementRulesPropertyInfo where type AttrAllowedOps DOMHTMLTableElementRulesPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint DOMHTMLTableElementRulesPropertyInfo = (~) T.Text type AttrBaseTypeConstraint DOMHTMLTableElementRulesPropertyInfo = DOMHTMLTableElementK - type AttrGetType DOMHTMLTableElementRulesPropertyInfo = T.Text + type AttrGetType DOMHTMLTableElementRulesPropertyInfo = (Maybe T.Text) type AttrLabel DOMHTMLTableElementRulesPropertyInfo = "rules" attrGet _ = getDOMHTMLTableElementRules attrSet _ = setDOMHTMLTableElementRules attrConstruct _ = constructDOMHTMLTableElementRules + attrClear _ = undefined -- VVV Prop "summary" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Just False) -getDOMHTMLTableElementSummary :: (MonadIO m, DOMHTMLTableElementK o) => o -> m T.Text +getDOMHTMLTableElementSummary :: (MonadIO m, DOMHTMLTableElementK o) => o -> m (Maybe T.Text) getDOMHTMLTableElementSummary obj = liftIO $ getObjectPropertyString obj "summary" setDOMHTMLTableElementSummary :: (MonadIO m, DOMHTMLTableElementK o) => o -> T.Text -> m () -setDOMHTMLTableElementSummary obj val = liftIO $ setObjectPropertyString obj "summary" val +setDOMHTMLTableElementSummary obj val = liftIO $ setObjectPropertyString obj "summary" (Just val) constructDOMHTMLTableElementSummary :: T.Text -> IO ([Char], GValue) -constructDOMHTMLTableElementSummary val = constructObjectPropertyString "summary" val +constructDOMHTMLTableElementSummary val = constructObjectPropertyString "summary" (Just val) data DOMHTMLTableElementSummaryPropertyInfo instance AttrInfo DOMHTMLTableElementSummaryPropertyInfo where type AttrAllowedOps DOMHTMLTableElementSummaryPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint DOMHTMLTableElementSummaryPropertyInfo = (~) T.Text type AttrBaseTypeConstraint DOMHTMLTableElementSummaryPropertyInfo = DOMHTMLTableElementK - type AttrGetType DOMHTMLTableElementSummaryPropertyInfo = T.Text + type AttrGetType DOMHTMLTableElementSummaryPropertyInfo = (Maybe T.Text) type AttrLabel DOMHTMLTableElementSummaryPropertyInfo = "summary" attrGet _ = getDOMHTMLTableElementSummary attrSet _ = setDOMHTMLTableElementSummary attrConstruct _ = constructDOMHTMLTableElementSummary + attrClear _ = undefined -- VVV Prop "t-bodies" -- Type: TInterface "WebKit" "DOMHTMLCollection" -- Flags: [PropertyReadable] + -- Nullable: (Nothing,Nothing) -getDOMHTMLTableElementTBodies :: (MonadIO m, DOMHTMLTableElementK o) => o -> m DOMHTMLCollection +getDOMHTMLTableElementTBodies :: (MonadIO m, DOMHTMLTableElementK o) => o -> m (Maybe DOMHTMLCollection) getDOMHTMLTableElementTBodies obj = liftIO $ getObjectPropertyObject obj "t-bodies" DOMHTMLCollection data DOMHTMLTableElementTBodiesPropertyInfo instance AttrInfo DOMHTMLTableElementTBodiesPropertyInfo where - type AttrAllowedOps DOMHTMLTableElementTBodiesPropertyInfo = '[ 'AttrGet] + type AttrAllowedOps DOMHTMLTableElementTBodiesPropertyInfo = '[ 'AttrGet, 'AttrClear] type AttrSetTypeConstraint DOMHTMLTableElementTBodiesPropertyInfo = (~) () type AttrBaseTypeConstraint DOMHTMLTableElementTBodiesPropertyInfo = DOMHTMLTableElementK - type AttrGetType DOMHTMLTableElementTBodiesPropertyInfo = DOMHTMLCollection + type AttrGetType DOMHTMLTableElementTBodiesPropertyInfo = (Maybe DOMHTMLCollection) type AttrLabel DOMHTMLTableElementTBodiesPropertyInfo = "t-bodies" attrGet _ = getDOMHTMLTableElementTBodies attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "t-foot" -- Type: TInterface "WebKit" "DOMHTMLTableSectionElement" -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) getDOMHTMLTableElementTFoot :: (MonadIO m, DOMHTMLTableElementK o) => o -> m DOMHTMLTableSectionElement -getDOMHTMLTableElementTFoot obj = liftIO $ getObjectPropertyObject obj "t-foot" DOMHTMLTableSectionElement +getDOMHTMLTableElementTFoot obj = liftIO $ checkUnexpectedNothing "getDOMHTMLTableElementTFoot" $ getObjectPropertyObject obj "t-foot" DOMHTMLTableSectionElement data DOMHTMLTableElementTFootPropertyInfo instance AttrInfo DOMHTMLTableElementTFootPropertyInfo where - type AttrAllowedOps DOMHTMLTableElementTFootPropertyInfo = '[ 'AttrGet] + type AttrAllowedOps DOMHTMLTableElementTFootPropertyInfo = '[ 'AttrGet, 'AttrClear] type AttrSetTypeConstraint DOMHTMLTableElementTFootPropertyInfo = (~) () type AttrBaseTypeConstraint DOMHTMLTableElementTFootPropertyInfo = DOMHTMLTableElementK type AttrGetType DOMHTMLTableElementTFootPropertyInfo = DOMHTMLTableSectionElement @@ -782,17 +819,19 @@ attrGet _ = getDOMHTMLTableElementTFoot attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "t-head" -- Type: TInterface "WebKit" "DOMHTMLTableSectionElement" -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) getDOMHTMLTableElementTHead :: (MonadIO m, DOMHTMLTableElementK o) => o -> m DOMHTMLTableSectionElement -getDOMHTMLTableElementTHead obj = liftIO $ getObjectPropertyObject obj "t-head" DOMHTMLTableSectionElement +getDOMHTMLTableElementTHead obj = liftIO $ checkUnexpectedNothing "getDOMHTMLTableElementTHead" $ getObjectPropertyObject obj "t-head" DOMHTMLTableSectionElement data DOMHTMLTableElementTHeadPropertyInfo instance AttrInfo DOMHTMLTableElementTHeadPropertyInfo where - type AttrAllowedOps DOMHTMLTableElementTHeadPropertyInfo = '[ 'AttrGet] + type AttrAllowedOps DOMHTMLTableElementTHeadPropertyInfo = '[ 'AttrGet, 'AttrClear] type AttrSetTypeConstraint DOMHTMLTableElementTHeadPropertyInfo = (~) () type AttrBaseTypeConstraint DOMHTMLTableElementTHeadPropertyInfo = DOMHTMLTableElementK type AttrGetType DOMHTMLTableElementTHeadPropertyInfo = DOMHTMLTableSectionElement @@ -800,34 +839,79 @@ attrGet _ = getDOMHTMLTableElementTHead attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "width" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Just False) -getDOMHTMLTableElementWidth :: (MonadIO m, DOMHTMLTableElementK o) => o -> m T.Text +getDOMHTMLTableElementWidth :: (MonadIO m, DOMHTMLTableElementK o) => o -> m (Maybe T.Text) getDOMHTMLTableElementWidth obj = liftIO $ getObjectPropertyString obj "width" setDOMHTMLTableElementWidth :: (MonadIO m, DOMHTMLTableElementK o) => o -> T.Text -> m () -setDOMHTMLTableElementWidth obj val = liftIO $ setObjectPropertyString obj "width" val +setDOMHTMLTableElementWidth obj val = liftIO $ setObjectPropertyString obj "width" (Just val) constructDOMHTMLTableElementWidth :: T.Text -> IO ([Char], GValue) -constructDOMHTMLTableElementWidth val = constructObjectPropertyString "width" val +constructDOMHTMLTableElementWidth val = constructObjectPropertyString "width" (Just val) data DOMHTMLTableElementWidthPropertyInfo instance AttrInfo DOMHTMLTableElementWidthPropertyInfo where type AttrAllowedOps DOMHTMLTableElementWidthPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint DOMHTMLTableElementWidthPropertyInfo = (~) T.Text type AttrBaseTypeConstraint DOMHTMLTableElementWidthPropertyInfo = DOMHTMLTableElementK - type AttrGetType DOMHTMLTableElementWidthPropertyInfo = T.Text + type AttrGetType DOMHTMLTableElementWidthPropertyInfo = (Maybe T.Text) type AttrLabel DOMHTMLTableElementWidthPropertyInfo = "width" attrGet _ = getDOMHTMLTableElementWidth attrSet _ = setDOMHTMLTableElementWidth attrConstruct _ = constructDOMHTMLTableElementWidth + attrClear _ = undefined type instance AttributeList DOMHTMLTableElement = DOMHTMLTableElementAttributeList type DOMHTMLTableElementAttributeList = ('[ '("accessKey", DOMHTMLElementAccessKeyPropertyInfo), '("align", DOMHTMLTableElementAlignPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("baseUri", DOMNodeBaseUriPropertyInfo), '("bgColor", DOMHTMLTableElementBgColorPropertyInfo), '("border", DOMHTMLTableElementBorderPropertyInfo), '("caption", DOMHTMLTableElementCaptionPropertyInfo), '("cellPadding", DOMHTMLTableElementCellPaddingPropertyInfo), '("cellSpacing", DOMHTMLTableElementCellSpacingPropertyInfo), '("childElementCount", DOMElementChildElementCountPropertyInfo), '("childNodes", DOMNodeChildNodesPropertyInfo), '("children", DOMHTMLElementChildrenPropertyInfo), '("classList", DOMElementClassListPropertyInfo), '("className", DOMElementClassNamePropertyInfo), '("clientHeight", DOMElementClientHeightPropertyInfo), '("clientLeft", DOMElementClientLeftPropertyInfo), '("clientTop", DOMElementClientTopPropertyInfo), '("clientWidth", DOMElementClientWidthPropertyInfo), '("contentEditable", DOMHTMLElementContentEditablePropertyInfo), '("coreObject", DOMObjectCoreObjectPropertyInfo), '("dir", DOMHTMLElementDirPropertyInfo), '("draggable", DOMHTMLElementDraggablePropertyInfo), '("firstChild", DOMNodeFirstChildPropertyInfo), '("firstElementChild", DOMElementFirstElementChildPropertyInfo), '("frame", DOMHTMLTableElementFramePropertyInfo), '("hidden", DOMHTMLElementHiddenPropertyInfo), '("id", DOMElementIdPropertyInfo), '("innerHtml", DOMHTMLElementInnerHtmlPropertyInfo), '("innerText", DOMHTMLElementInnerTextPropertyInfo), '("isContentEditable", DOMHTMLElementIsContentEditablePropertyInfo), '("lang", DOMHTMLElementLangPropertyInfo), '("lastChild", DOMNodeLastChildPropertyInfo), '("lastElementChild", DOMElementLastElementChildPropertyInfo), '("localName", DOMNodeLocalNamePropertyInfo), '("namespaceUri", DOMNodeNamespaceUriPropertyInfo), '("nextElementSibling", DOMElementNextElementSiblingPropertyInfo), '("nextSibling", DOMNodeNextSiblingPropertyInfo), '("nodeName", DOMNodeNodeNamePropertyInfo), '("nodeType", DOMNodeNodeTypePropertyInfo), '("nodeValue", DOMNodeNodeValuePropertyInfo), '("offsetHeight", DOMElementOffsetHeightPropertyInfo), '("offsetLeft", DOMElementOffsetLeftPropertyInfo), '("offsetParent", DOMElementOffsetParentPropertyInfo), '("offsetTop", DOMElementOffsetTopPropertyInfo), '("offsetWidth", DOMElementOffsetWidthPropertyInfo), '("outerHtml", DOMHTMLElementOuterHtmlPropertyInfo), '("outerText", DOMHTMLElementOuterTextPropertyInfo), '("ownerDocument", DOMNodeOwnerDocumentPropertyInfo), '("parentElement", DOMNodeParentElementPropertyInfo), '("parentNode", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previousElementSibling", DOMElementPreviousElementSiblingPropertyInfo), '("previousSibling", DOMNodePreviousSiblingPropertyInfo), '("rows", DOMHTMLTableElementRowsPropertyInfo), '("rules", DOMHTMLTableElementRulesPropertyInfo), '("scrollHeight", DOMElementScrollHeightPropertyInfo), '("scrollLeft", DOMElementScrollLeftPropertyInfo), '("scrollTop", DOMElementScrollTopPropertyInfo), '("scrollWidth", DOMElementScrollWidthPropertyInfo), '("spellcheck", DOMHTMLElementSpellcheckPropertyInfo), '("style", DOMElementStylePropertyInfo), '("summary", DOMHTMLTableElementSummaryPropertyInfo), '("tBodies", DOMHTMLTableElementTBodiesPropertyInfo), '("tFoot", DOMHTMLTableElementTFootPropertyInfo), '("tHead", DOMHTMLTableElementTHeadPropertyInfo), '("tabIndex", DOMHTMLElementTabIndexPropertyInfo), '("tagName", DOMElementTagNamePropertyInfo), '("textContent", DOMNodeTextContentPropertyInfo), '("title", DOMHTMLElementTitlePropertyInfo), '("translate", DOMHTMLElementTranslatePropertyInfo), '("webkitRegionOverset", DOMElementWebkitRegionOversetPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo), '("width", DOMHTMLTableElementWidthPropertyInfo)] :: [(Symbol, *)]) +dOMHTMLTableElementAlign :: AttrLabelProxy "align" +dOMHTMLTableElementAlign = AttrLabelProxy + +dOMHTMLTableElementBgColor :: AttrLabelProxy "bgColor" +dOMHTMLTableElementBgColor = AttrLabelProxy + +dOMHTMLTableElementBorder :: AttrLabelProxy "border" +dOMHTMLTableElementBorder = AttrLabelProxy + +dOMHTMLTableElementCaption :: AttrLabelProxy "caption" +dOMHTMLTableElementCaption = AttrLabelProxy + +dOMHTMLTableElementCellPadding :: AttrLabelProxy "cellPadding" +dOMHTMLTableElementCellPadding = AttrLabelProxy + +dOMHTMLTableElementCellSpacing :: AttrLabelProxy "cellSpacing" +dOMHTMLTableElementCellSpacing = AttrLabelProxy + +dOMHTMLTableElementFrame :: AttrLabelProxy "frame" +dOMHTMLTableElementFrame = AttrLabelProxy + +dOMHTMLTableElementRows :: AttrLabelProxy "rows" +dOMHTMLTableElementRows = AttrLabelProxy + +dOMHTMLTableElementRules :: AttrLabelProxy "rules" +dOMHTMLTableElementRules = AttrLabelProxy + +dOMHTMLTableElementSummary :: AttrLabelProxy "summary" +dOMHTMLTableElementSummary = AttrLabelProxy + +dOMHTMLTableElementTBodies :: AttrLabelProxy "tBodies" +dOMHTMLTableElementTBodies = AttrLabelProxy + +dOMHTMLTableElementTFoot :: AttrLabelProxy "tFoot" +dOMHTMLTableElementTFoot = AttrLabelProxy + +dOMHTMLTableElementTHead :: AttrLabelProxy "tHead" +dOMHTMLTableElementTHead = AttrLabelProxy + +dOMHTMLTableElementWidth :: AttrLabelProxy "width" +dOMHTMLTableElementWidth = AttrLabelProxy + type instance SignalList DOMHTMLTableElement = DOMHTMLTableElementSignalList type DOMHTMLTableElementSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) @@ -835,7 +919,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit" "DOMHTMLElement" +-- returnType : Just (TInterface "WebKit" "DOMHTMLElement") -- throws : False -- Skip return : False @@ -864,7 +948,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit" "DOMHTMLElement" +-- returnType : Just (TInterface "WebKit" "DOMHTMLElement") -- throws : False -- Skip return : False @@ -893,7 +977,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit" "DOMHTMLElement" +-- returnType : Just (TInterface "WebKit" "DOMHTMLElement") -- throws : False -- Skip return : False @@ -922,7 +1006,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit" "DOMHTMLElement" +-- returnType : Just (TInterface "WebKit" "DOMHTMLElement") -- throws : False -- Skip return : False @@ -951,7 +1035,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -976,15 +1060,15 @@ -- method DOMHTMLTableElement::delete_row -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "index", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "index", argType = TBasicType TLong, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : True -- Skip return : False foreign import ccall "webkit_dom_html_table_element_delete_row" webkit_dom_html_table_element_delete_row :: Ptr DOMHTMLTableElement -> -- _obj : TInterface "WebKit" "DOMHTMLTableElement" - Int64 -> -- index : TBasicType TInt64 + CLong -> -- index : TBasicType TLong Ptr (Ptr GError) -> -- error IO () @@ -992,7 +1076,7 @@ dOMHTMLTableElementDeleteRow :: (MonadIO m, DOMHTMLTableElementK a) => a -- _obj - -> Int64 -- index + -> CLong -- index -> m () -- result dOMHTMLTableElementDeleteRow _obj index = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj @@ -1005,14 +1089,14 @@ ) data DOMHTMLTableElementDeleteRowMethodInfo -instance (signature ~ (Int64 -> m ()), MonadIO m, DOMHTMLTableElementK a) => MethodInfo DOMHTMLTableElementDeleteRowMethodInfo a signature where +instance (signature ~ (CLong -> m ()), MonadIO m, DOMHTMLTableElementK a) => MethodInfo DOMHTMLTableElementDeleteRowMethodInfo a signature where overloadedMethod _ = dOMHTMLTableElementDeleteRow -- method DOMHTMLTableElement::delete_t_foot -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1039,7 +1123,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1066,7 +1150,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -1096,7 +1180,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -1126,7 +1210,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -1156,7 +1240,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit" "DOMHTMLTableCaptionElement" +-- returnType : Just (TInterface "WebKit" "DOMHTMLTableCaptionElement") -- throws : False -- Skip return : False @@ -1185,7 +1269,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -1215,7 +1299,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -1245,7 +1329,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -1275,7 +1359,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit" "DOMHTMLCollection" +-- returnType : Just (TInterface "WebKit" "DOMHTMLCollection") -- throws : False -- Skip return : False @@ -1304,7 +1388,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -1334,7 +1418,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -1364,7 +1448,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit" "DOMHTMLCollection" +-- returnType : Just (TInterface "WebKit" "DOMHTMLCollection") -- throws : False -- Skip return : False @@ -1393,7 +1477,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit" "DOMHTMLTableSectionElement" +-- returnType : Just (TInterface "WebKit" "DOMHTMLTableSectionElement") -- throws : False -- Skip return : False @@ -1422,7 +1506,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit" "DOMHTMLTableSectionElement" +-- returnType : Just (TInterface "WebKit" "DOMHTMLTableSectionElement") -- throws : False -- Skip return : False @@ -1451,7 +1535,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -1479,15 +1563,15 @@ -- method DOMHTMLTableElement::insert_row -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "index", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "index", argType = TBasicType TLong, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit" "DOMHTMLElement" +-- returnType : Just (TInterface "WebKit" "DOMHTMLElement") -- throws : True -- Skip return : False foreign import ccall "webkit_dom_html_table_element_insert_row" webkit_dom_html_table_element_insert_row :: Ptr DOMHTMLTableElement -> -- _obj : TInterface "WebKit" "DOMHTMLTableElement" - Int64 -> -- index : TBasicType TInt64 + CLong -> -- index : TBasicType TLong Ptr (Ptr GError) -> -- error IO (Ptr DOMHTMLElement) @@ -1495,7 +1579,7 @@ dOMHTMLTableElementInsertRow :: (MonadIO m, DOMHTMLTableElementK a) => a -- _obj - -> Int64 -- index + -> CLong -- index -> m DOMHTMLElement -- result dOMHTMLTableElementInsertRow _obj index = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj @@ -1510,14 +1594,14 @@ ) data DOMHTMLTableElementInsertRowMethodInfo -instance (signature ~ (Int64 -> m DOMHTMLElement), MonadIO m, DOMHTMLTableElementK a) => MethodInfo DOMHTMLTableElementInsertRowMethodInfo a signature where +instance (signature ~ (CLong -> m DOMHTMLElement), MonadIO m, DOMHTMLTableElementK a) => MethodInfo DOMHTMLTableElementInsertRowMethodInfo a signature where overloadedMethod _ = dOMHTMLTableElementInsertRow -- method DOMHTMLTableElement::set_align -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1548,7 +1632,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1579,7 +1663,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1610,7 +1694,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TInterface "WebKit" "DOMHTMLTableCaptionElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : True -- Skip return : False @@ -1646,7 +1730,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1677,7 +1761,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1708,7 +1792,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1739,7 +1823,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1770,7 +1854,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1801,7 +1885,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TInterface "WebKit" "DOMHTMLTableSectionElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : True -- Skip return : False @@ -1837,7 +1921,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TInterface "WebKit" "DOMHTMLTableSectionElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : True -- Skip return : False @@ -1873,7 +1957,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False diff --git a/GI/WebKit/Objects/DOMHTMLTableElement.hs-boot b/GI/WebKit/Objects/DOMHTMLTableElement.hs-boot --- a/GI/WebKit/Objects/DOMHTMLTableElement.hs-boot +++ b/GI/WebKit/Objects/DOMHTMLTableElement.hs-boot @@ -1,8 +1,8 @@ module GI.WebKit.Objects.DOMHTMLTableElement where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map diff --git a/GI/WebKit/Objects/DOMHTMLTableRowElement.hs b/GI/WebKit/Objects/DOMHTMLTableRowElement.hs --- a/GI/WebKit/Objects/DOMHTMLTableRowElement.hs +++ b/GI/WebKit/Objects/DOMHTMLTableRowElement.hs @@ -98,6 +98,7 @@ -- ** Align DOMHTMLTableRowElementAlignPropertyInfo , constructDOMHTMLTableRowElementAlign , + dOMHTMLTableRowElementAlign , getDOMHTMLTableRowElementAlign , setDOMHTMLTableRowElementAlign , @@ -105,18 +106,21 @@ -- ** BgColor DOMHTMLTableRowElementBgColorPropertyInfo, constructDOMHTMLTableRowElementBgColor , + dOMHTMLTableRowElementBgColor , getDOMHTMLTableRowElementBgColor , setDOMHTMLTableRowElementBgColor , -- ** Cells DOMHTMLTableRowElementCellsPropertyInfo , + dOMHTMLTableRowElementCells , getDOMHTMLTableRowElementCells , -- ** Ch DOMHTMLTableRowElementChPropertyInfo , constructDOMHTMLTableRowElementCh , + dOMHTMLTableRowElementCh , getDOMHTMLTableRowElementCh , setDOMHTMLTableRowElementCh , @@ -124,23 +128,27 @@ -- ** ChOff DOMHTMLTableRowElementChOffPropertyInfo , constructDOMHTMLTableRowElementChOff , + dOMHTMLTableRowElementChOff , getDOMHTMLTableRowElementChOff , setDOMHTMLTableRowElementChOff , -- ** RowIndex DOMHTMLTableRowElementRowIndexPropertyInfo, + dOMHTMLTableRowElementRowIndex , getDOMHTMLTableRowElementRowIndex , -- ** SectionRowIndex DOMHTMLTableRowElementSectionRowIndexPropertyInfo, + dOMHTMLTableRowElementSectionRowIndex , getDOMHTMLTableRowElementSectionRowIndex, -- ** VAlign DOMHTMLTableRowElementVAlignPropertyInfo, constructDOMHTMLTableRowElementVAlign , + dOMHTMLTableRowElementVAlign , getDOMHTMLTableRowElementVAlign , setDOMHTMLTableRowElementVAlign , @@ -149,9 +157,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map @@ -364,194 +372,234 @@ -- VVV Prop "align" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Just False) -getDOMHTMLTableRowElementAlign :: (MonadIO m, DOMHTMLTableRowElementK o) => o -> m T.Text +getDOMHTMLTableRowElementAlign :: (MonadIO m, DOMHTMLTableRowElementK o) => o -> m (Maybe T.Text) getDOMHTMLTableRowElementAlign obj = liftIO $ getObjectPropertyString obj "align" setDOMHTMLTableRowElementAlign :: (MonadIO m, DOMHTMLTableRowElementK o) => o -> T.Text -> m () -setDOMHTMLTableRowElementAlign obj val = liftIO $ setObjectPropertyString obj "align" val +setDOMHTMLTableRowElementAlign obj val = liftIO $ setObjectPropertyString obj "align" (Just val) constructDOMHTMLTableRowElementAlign :: T.Text -> IO ([Char], GValue) -constructDOMHTMLTableRowElementAlign val = constructObjectPropertyString "align" val +constructDOMHTMLTableRowElementAlign val = constructObjectPropertyString "align" (Just val) data DOMHTMLTableRowElementAlignPropertyInfo instance AttrInfo DOMHTMLTableRowElementAlignPropertyInfo where type AttrAllowedOps DOMHTMLTableRowElementAlignPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint DOMHTMLTableRowElementAlignPropertyInfo = (~) T.Text type AttrBaseTypeConstraint DOMHTMLTableRowElementAlignPropertyInfo = DOMHTMLTableRowElementK - type AttrGetType DOMHTMLTableRowElementAlignPropertyInfo = T.Text + type AttrGetType DOMHTMLTableRowElementAlignPropertyInfo = (Maybe T.Text) type AttrLabel DOMHTMLTableRowElementAlignPropertyInfo = "align" attrGet _ = getDOMHTMLTableRowElementAlign attrSet _ = setDOMHTMLTableRowElementAlign attrConstruct _ = constructDOMHTMLTableRowElementAlign + attrClear _ = undefined -- VVV Prop "bg-color" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Just False) -getDOMHTMLTableRowElementBgColor :: (MonadIO m, DOMHTMLTableRowElementK o) => o -> m T.Text +getDOMHTMLTableRowElementBgColor :: (MonadIO m, DOMHTMLTableRowElementK o) => o -> m (Maybe T.Text) getDOMHTMLTableRowElementBgColor obj = liftIO $ getObjectPropertyString obj "bg-color" setDOMHTMLTableRowElementBgColor :: (MonadIO m, DOMHTMLTableRowElementK o) => o -> T.Text -> m () -setDOMHTMLTableRowElementBgColor obj val = liftIO $ setObjectPropertyString obj "bg-color" val +setDOMHTMLTableRowElementBgColor obj val = liftIO $ setObjectPropertyString obj "bg-color" (Just val) constructDOMHTMLTableRowElementBgColor :: T.Text -> IO ([Char], GValue) -constructDOMHTMLTableRowElementBgColor val = constructObjectPropertyString "bg-color" val +constructDOMHTMLTableRowElementBgColor val = constructObjectPropertyString "bg-color" (Just val) data DOMHTMLTableRowElementBgColorPropertyInfo instance AttrInfo DOMHTMLTableRowElementBgColorPropertyInfo where type AttrAllowedOps DOMHTMLTableRowElementBgColorPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint DOMHTMLTableRowElementBgColorPropertyInfo = (~) T.Text type AttrBaseTypeConstraint DOMHTMLTableRowElementBgColorPropertyInfo = DOMHTMLTableRowElementK - type AttrGetType DOMHTMLTableRowElementBgColorPropertyInfo = T.Text + type AttrGetType DOMHTMLTableRowElementBgColorPropertyInfo = (Maybe T.Text) type AttrLabel DOMHTMLTableRowElementBgColorPropertyInfo = "bg-color" attrGet _ = getDOMHTMLTableRowElementBgColor attrSet _ = setDOMHTMLTableRowElementBgColor attrConstruct _ = constructDOMHTMLTableRowElementBgColor + attrClear _ = undefined -- VVV Prop "cells" -- Type: TInterface "WebKit" "DOMHTMLCollection" -- Flags: [PropertyReadable] + -- Nullable: (Nothing,Nothing) -getDOMHTMLTableRowElementCells :: (MonadIO m, DOMHTMLTableRowElementK o) => o -> m DOMHTMLCollection +getDOMHTMLTableRowElementCells :: (MonadIO m, DOMHTMLTableRowElementK o) => o -> m (Maybe DOMHTMLCollection) getDOMHTMLTableRowElementCells obj = liftIO $ getObjectPropertyObject obj "cells" DOMHTMLCollection data DOMHTMLTableRowElementCellsPropertyInfo instance AttrInfo DOMHTMLTableRowElementCellsPropertyInfo where - type AttrAllowedOps DOMHTMLTableRowElementCellsPropertyInfo = '[ 'AttrGet] + type AttrAllowedOps DOMHTMLTableRowElementCellsPropertyInfo = '[ 'AttrGet, 'AttrClear] type AttrSetTypeConstraint DOMHTMLTableRowElementCellsPropertyInfo = (~) () type AttrBaseTypeConstraint DOMHTMLTableRowElementCellsPropertyInfo = DOMHTMLTableRowElementK - type AttrGetType DOMHTMLTableRowElementCellsPropertyInfo = DOMHTMLCollection + type AttrGetType DOMHTMLTableRowElementCellsPropertyInfo = (Maybe DOMHTMLCollection) type AttrLabel DOMHTMLTableRowElementCellsPropertyInfo = "cells" attrGet _ = getDOMHTMLTableRowElementCells attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "ch" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Just False) -getDOMHTMLTableRowElementCh :: (MonadIO m, DOMHTMLTableRowElementK o) => o -> m T.Text +getDOMHTMLTableRowElementCh :: (MonadIO m, DOMHTMLTableRowElementK o) => o -> m (Maybe T.Text) getDOMHTMLTableRowElementCh obj = liftIO $ getObjectPropertyString obj "ch" setDOMHTMLTableRowElementCh :: (MonadIO m, DOMHTMLTableRowElementK o) => o -> T.Text -> m () -setDOMHTMLTableRowElementCh obj val = liftIO $ setObjectPropertyString obj "ch" val +setDOMHTMLTableRowElementCh obj val = liftIO $ setObjectPropertyString obj "ch" (Just val) constructDOMHTMLTableRowElementCh :: T.Text -> IO ([Char], GValue) -constructDOMHTMLTableRowElementCh val = constructObjectPropertyString "ch" val +constructDOMHTMLTableRowElementCh val = constructObjectPropertyString "ch" (Just val) data DOMHTMLTableRowElementChPropertyInfo instance AttrInfo DOMHTMLTableRowElementChPropertyInfo where type AttrAllowedOps DOMHTMLTableRowElementChPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint DOMHTMLTableRowElementChPropertyInfo = (~) T.Text type AttrBaseTypeConstraint DOMHTMLTableRowElementChPropertyInfo = DOMHTMLTableRowElementK - type AttrGetType DOMHTMLTableRowElementChPropertyInfo = T.Text + type AttrGetType DOMHTMLTableRowElementChPropertyInfo = (Maybe T.Text) type AttrLabel DOMHTMLTableRowElementChPropertyInfo = "ch" attrGet _ = getDOMHTMLTableRowElementCh attrSet _ = setDOMHTMLTableRowElementCh attrConstruct _ = constructDOMHTMLTableRowElementCh + attrClear _ = undefined -- VVV Prop "ch-off" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Just False) -getDOMHTMLTableRowElementChOff :: (MonadIO m, DOMHTMLTableRowElementK o) => o -> m T.Text +getDOMHTMLTableRowElementChOff :: (MonadIO m, DOMHTMLTableRowElementK o) => o -> m (Maybe T.Text) getDOMHTMLTableRowElementChOff obj = liftIO $ getObjectPropertyString obj "ch-off" setDOMHTMLTableRowElementChOff :: (MonadIO m, DOMHTMLTableRowElementK o) => o -> T.Text -> m () -setDOMHTMLTableRowElementChOff obj val = liftIO $ setObjectPropertyString obj "ch-off" val +setDOMHTMLTableRowElementChOff obj val = liftIO $ setObjectPropertyString obj "ch-off" (Just val) constructDOMHTMLTableRowElementChOff :: T.Text -> IO ([Char], GValue) -constructDOMHTMLTableRowElementChOff val = constructObjectPropertyString "ch-off" val +constructDOMHTMLTableRowElementChOff val = constructObjectPropertyString "ch-off" (Just val) data DOMHTMLTableRowElementChOffPropertyInfo instance AttrInfo DOMHTMLTableRowElementChOffPropertyInfo where type AttrAllowedOps DOMHTMLTableRowElementChOffPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint DOMHTMLTableRowElementChOffPropertyInfo = (~) T.Text type AttrBaseTypeConstraint DOMHTMLTableRowElementChOffPropertyInfo = DOMHTMLTableRowElementK - type AttrGetType DOMHTMLTableRowElementChOffPropertyInfo = T.Text + type AttrGetType DOMHTMLTableRowElementChOffPropertyInfo = (Maybe T.Text) type AttrLabel DOMHTMLTableRowElementChOffPropertyInfo = "ch-off" attrGet _ = getDOMHTMLTableRowElementChOff attrSet _ = setDOMHTMLTableRowElementChOff attrConstruct _ = constructDOMHTMLTableRowElementChOff + attrClear _ = undefined -- VVV Prop "row-index" - -- Type: TBasicType TInt64 + -- Type: TBasicType TLong -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) -getDOMHTMLTableRowElementRowIndex :: (MonadIO m, DOMHTMLTableRowElementK o) => o -> m Int64 -getDOMHTMLTableRowElementRowIndex obj = liftIO $ getObjectPropertyInt64 obj "row-index" +getDOMHTMLTableRowElementRowIndex :: (MonadIO m, DOMHTMLTableRowElementK o) => o -> m CLong +getDOMHTMLTableRowElementRowIndex obj = liftIO $ getObjectPropertyLong obj "row-index" data DOMHTMLTableRowElementRowIndexPropertyInfo instance AttrInfo DOMHTMLTableRowElementRowIndexPropertyInfo where type AttrAllowedOps DOMHTMLTableRowElementRowIndexPropertyInfo = '[ 'AttrGet] type AttrSetTypeConstraint DOMHTMLTableRowElementRowIndexPropertyInfo = (~) () type AttrBaseTypeConstraint DOMHTMLTableRowElementRowIndexPropertyInfo = DOMHTMLTableRowElementK - type AttrGetType DOMHTMLTableRowElementRowIndexPropertyInfo = Int64 + type AttrGetType DOMHTMLTableRowElementRowIndexPropertyInfo = CLong type AttrLabel DOMHTMLTableRowElementRowIndexPropertyInfo = "row-index" attrGet _ = getDOMHTMLTableRowElementRowIndex attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "section-row-index" - -- Type: TBasicType TInt64 + -- Type: TBasicType TLong -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) -getDOMHTMLTableRowElementSectionRowIndex :: (MonadIO m, DOMHTMLTableRowElementK o) => o -> m Int64 -getDOMHTMLTableRowElementSectionRowIndex obj = liftIO $ getObjectPropertyInt64 obj "section-row-index" +getDOMHTMLTableRowElementSectionRowIndex :: (MonadIO m, DOMHTMLTableRowElementK o) => o -> m CLong +getDOMHTMLTableRowElementSectionRowIndex obj = liftIO $ getObjectPropertyLong obj "section-row-index" data DOMHTMLTableRowElementSectionRowIndexPropertyInfo instance AttrInfo DOMHTMLTableRowElementSectionRowIndexPropertyInfo where type AttrAllowedOps DOMHTMLTableRowElementSectionRowIndexPropertyInfo = '[ 'AttrGet] type AttrSetTypeConstraint DOMHTMLTableRowElementSectionRowIndexPropertyInfo = (~) () type AttrBaseTypeConstraint DOMHTMLTableRowElementSectionRowIndexPropertyInfo = DOMHTMLTableRowElementK - type AttrGetType DOMHTMLTableRowElementSectionRowIndexPropertyInfo = Int64 + type AttrGetType DOMHTMLTableRowElementSectionRowIndexPropertyInfo = CLong type AttrLabel DOMHTMLTableRowElementSectionRowIndexPropertyInfo = "section-row-index" attrGet _ = getDOMHTMLTableRowElementSectionRowIndex attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "v-align" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Just False) -getDOMHTMLTableRowElementVAlign :: (MonadIO m, DOMHTMLTableRowElementK o) => o -> m T.Text +getDOMHTMLTableRowElementVAlign :: (MonadIO m, DOMHTMLTableRowElementK o) => o -> m (Maybe T.Text) getDOMHTMLTableRowElementVAlign obj = liftIO $ getObjectPropertyString obj "v-align" setDOMHTMLTableRowElementVAlign :: (MonadIO m, DOMHTMLTableRowElementK o) => o -> T.Text -> m () -setDOMHTMLTableRowElementVAlign obj val = liftIO $ setObjectPropertyString obj "v-align" val +setDOMHTMLTableRowElementVAlign obj val = liftIO $ setObjectPropertyString obj "v-align" (Just val) constructDOMHTMLTableRowElementVAlign :: T.Text -> IO ([Char], GValue) -constructDOMHTMLTableRowElementVAlign val = constructObjectPropertyString "v-align" val +constructDOMHTMLTableRowElementVAlign val = constructObjectPropertyString "v-align" (Just val) data DOMHTMLTableRowElementVAlignPropertyInfo instance AttrInfo DOMHTMLTableRowElementVAlignPropertyInfo where type AttrAllowedOps DOMHTMLTableRowElementVAlignPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint DOMHTMLTableRowElementVAlignPropertyInfo = (~) T.Text type AttrBaseTypeConstraint DOMHTMLTableRowElementVAlignPropertyInfo = DOMHTMLTableRowElementK - type AttrGetType DOMHTMLTableRowElementVAlignPropertyInfo = T.Text + type AttrGetType DOMHTMLTableRowElementVAlignPropertyInfo = (Maybe T.Text) type AttrLabel DOMHTMLTableRowElementVAlignPropertyInfo = "v-align" attrGet _ = getDOMHTMLTableRowElementVAlign attrSet _ = setDOMHTMLTableRowElementVAlign attrConstruct _ = constructDOMHTMLTableRowElementVAlign + attrClear _ = undefined type instance AttributeList DOMHTMLTableRowElement = DOMHTMLTableRowElementAttributeList type DOMHTMLTableRowElementAttributeList = ('[ '("accessKey", DOMHTMLElementAccessKeyPropertyInfo), '("align", DOMHTMLTableRowElementAlignPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("baseUri", DOMNodeBaseUriPropertyInfo), '("bgColor", DOMHTMLTableRowElementBgColorPropertyInfo), '("cells", DOMHTMLTableRowElementCellsPropertyInfo), '("ch", DOMHTMLTableRowElementChPropertyInfo), '("chOff", DOMHTMLTableRowElementChOffPropertyInfo), '("childElementCount", DOMElementChildElementCountPropertyInfo), '("childNodes", DOMNodeChildNodesPropertyInfo), '("children", DOMHTMLElementChildrenPropertyInfo), '("classList", DOMElementClassListPropertyInfo), '("className", DOMElementClassNamePropertyInfo), '("clientHeight", DOMElementClientHeightPropertyInfo), '("clientLeft", DOMElementClientLeftPropertyInfo), '("clientTop", DOMElementClientTopPropertyInfo), '("clientWidth", DOMElementClientWidthPropertyInfo), '("contentEditable", DOMHTMLElementContentEditablePropertyInfo), '("coreObject", DOMObjectCoreObjectPropertyInfo), '("dir", DOMHTMLElementDirPropertyInfo), '("draggable", DOMHTMLElementDraggablePropertyInfo), '("firstChild", DOMNodeFirstChildPropertyInfo), '("firstElementChild", DOMElementFirstElementChildPropertyInfo), '("hidden", DOMHTMLElementHiddenPropertyInfo), '("id", DOMElementIdPropertyInfo), '("innerHtml", DOMHTMLElementInnerHtmlPropertyInfo), '("innerText", DOMHTMLElementInnerTextPropertyInfo), '("isContentEditable", DOMHTMLElementIsContentEditablePropertyInfo), '("lang", DOMHTMLElementLangPropertyInfo), '("lastChild", DOMNodeLastChildPropertyInfo), '("lastElementChild", DOMElementLastElementChildPropertyInfo), '("localName", DOMNodeLocalNamePropertyInfo), '("namespaceUri", DOMNodeNamespaceUriPropertyInfo), '("nextElementSibling", DOMElementNextElementSiblingPropertyInfo), '("nextSibling", DOMNodeNextSiblingPropertyInfo), '("nodeName", DOMNodeNodeNamePropertyInfo), '("nodeType", DOMNodeNodeTypePropertyInfo), '("nodeValue", DOMNodeNodeValuePropertyInfo), '("offsetHeight", DOMElementOffsetHeightPropertyInfo), '("offsetLeft", DOMElementOffsetLeftPropertyInfo), '("offsetParent", DOMElementOffsetParentPropertyInfo), '("offsetTop", DOMElementOffsetTopPropertyInfo), '("offsetWidth", DOMElementOffsetWidthPropertyInfo), '("outerHtml", DOMHTMLElementOuterHtmlPropertyInfo), '("outerText", DOMHTMLElementOuterTextPropertyInfo), '("ownerDocument", DOMNodeOwnerDocumentPropertyInfo), '("parentElement", DOMNodeParentElementPropertyInfo), '("parentNode", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previousElementSibling", DOMElementPreviousElementSiblingPropertyInfo), '("previousSibling", DOMNodePreviousSiblingPropertyInfo), '("rowIndex", DOMHTMLTableRowElementRowIndexPropertyInfo), '("scrollHeight", DOMElementScrollHeightPropertyInfo), '("scrollLeft", DOMElementScrollLeftPropertyInfo), '("scrollTop", DOMElementScrollTopPropertyInfo), '("scrollWidth", DOMElementScrollWidthPropertyInfo), '("sectionRowIndex", DOMHTMLTableRowElementSectionRowIndexPropertyInfo), '("spellcheck", DOMHTMLElementSpellcheckPropertyInfo), '("style", DOMElementStylePropertyInfo), '("tabIndex", DOMHTMLElementTabIndexPropertyInfo), '("tagName", DOMElementTagNamePropertyInfo), '("textContent", DOMNodeTextContentPropertyInfo), '("title", DOMHTMLElementTitlePropertyInfo), '("translate", DOMHTMLElementTranslatePropertyInfo), '("vAlign", DOMHTMLTableRowElementVAlignPropertyInfo), '("webkitRegionOverset", DOMElementWebkitRegionOversetPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo)] :: [(Symbol, *)]) +dOMHTMLTableRowElementAlign :: AttrLabelProxy "align" +dOMHTMLTableRowElementAlign = AttrLabelProxy + +dOMHTMLTableRowElementBgColor :: AttrLabelProxy "bgColor" +dOMHTMLTableRowElementBgColor = AttrLabelProxy + +dOMHTMLTableRowElementCells :: AttrLabelProxy "cells" +dOMHTMLTableRowElementCells = AttrLabelProxy + +dOMHTMLTableRowElementCh :: AttrLabelProxy "ch" +dOMHTMLTableRowElementCh = AttrLabelProxy + +dOMHTMLTableRowElementChOff :: AttrLabelProxy "chOff" +dOMHTMLTableRowElementChOff = AttrLabelProxy + +dOMHTMLTableRowElementRowIndex :: AttrLabelProxy "rowIndex" +dOMHTMLTableRowElementRowIndex = AttrLabelProxy + +dOMHTMLTableRowElementSectionRowIndex :: AttrLabelProxy "sectionRowIndex" +dOMHTMLTableRowElementSectionRowIndex = AttrLabelProxy + +dOMHTMLTableRowElementVAlign :: AttrLabelProxy "vAlign" +dOMHTMLTableRowElementVAlign = AttrLabelProxy + type instance SignalList DOMHTMLTableRowElement = DOMHTMLTableRowElementSignalList type DOMHTMLTableRowElementSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) -- method DOMHTMLTableRowElement::delete_cell -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableRowElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "index", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableRowElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "index", argType = TBasicType TLong, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : True -- Skip return : False foreign import ccall "webkit_dom_html_table_row_element_delete_cell" webkit_dom_html_table_row_element_delete_cell :: Ptr DOMHTMLTableRowElement -> -- _obj : TInterface "WebKit" "DOMHTMLTableRowElement" - Int64 -> -- index : TBasicType TInt64 + CLong -> -- index : TBasicType TLong Ptr (Ptr GError) -> -- error IO () @@ -559,7 +607,7 @@ dOMHTMLTableRowElementDeleteCell :: (MonadIO m, DOMHTMLTableRowElementK a) => a -- _obj - -> Int64 -- index + -> CLong -- index -> m () -- result dOMHTMLTableRowElementDeleteCell _obj index = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj @@ -572,14 +620,14 @@ ) data DOMHTMLTableRowElementDeleteCellMethodInfo -instance (signature ~ (Int64 -> m ()), MonadIO m, DOMHTMLTableRowElementK a) => MethodInfo DOMHTMLTableRowElementDeleteCellMethodInfo a signature where +instance (signature ~ (CLong -> m ()), MonadIO m, DOMHTMLTableRowElementK a) => MethodInfo DOMHTMLTableRowElementDeleteCellMethodInfo a signature where overloadedMethod _ = dOMHTMLTableRowElementDeleteCell -- method DOMHTMLTableRowElement::get_align -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableRowElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -609,7 +657,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableRowElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -639,7 +687,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableRowElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit" "DOMHTMLCollection" +-- returnType : Just (TInterface "WebKit" "DOMHTMLCollection") -- throws : False -- Skip return : False @@ -668,7 +716,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableRowElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -698,7 +746,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableRowElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -728,19 +776,19 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableRowElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TInt64 +-- returnType : Just (TBasicType TLong) -- throws : False -- Skip return : False foreign import ccall "webkit_dom_html_table_row_element_get_row_index" webkit_dom_html_table_row_element_get_row_index :: Ptr DOMHTMLTableRowElement -> -- _obj : TInterface "WebKit" "DOMHTMLTableRowElement" - IO Int64 + IO CLong dOMHTMLTableRowElementGetRowIndex :: (MonadIO m, DOMHTMLTableRowElementK a) => a -- _obj - -> m Int64 -- result + -> m CLong -- result dOMHTMLTableRowElementGetRowIndex _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- webkit_dom_html_table_row_element_get_row_index _obj' @@ -748,26 +796,26 @@ return result data DOMHTMLTableRowElementGetRowIndexMethodInfo -instance (signature ~ (m Int64), MonadIO m, DOMHTMLTableRowElementK a) => MethodInfo DOMHTMLTableRowElementGetRowIndexMethodInfo a signature where +instance (signature ~ (m CLong), MonadIO m, DOMHTMLTableRowElementK a) => MethodInfo DOMHTMLTableRowElementGetRowIndexMethodInfo a signature where overloadedMethod _ = dOMHTMLTableRowElementGetRowIndex -- method DOMHTMLTableRowElement::get_section_row_index -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableRowElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TInt64 +-- returnType : Just (TBasicType TLong) -- throws : False -- Skip return : False foreign import ccall "webkit_dom_html_table_row_element_get_section_row_index" webkit_dom_html_table_row_element_get_section_row_index :: Ptr DOMHTMLTableRowElement -> -- _obj : TInterface "WebKit" "DOMHTMLTableRowElement" - IO Int64 + IO CLong dOMHTMLTableRowElementGetSectionRowIndex :: (MonadIO m, DOMHTMLTableRowElementK a) => a -- _obj - -> m Int64 -- result + -> m CLong -- result dOMHTMLTableRowElementGetSectionRowIndex _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- webkit_dom_html_table_row_element_get_section_row_index _obj' @@ -775,14 +823,14 @@ return result data DOMHTMLTableRowElementGetSectionRowIndexMethodInfo -instance (signature ~ (m Int64), MonadIO m, DOMHTMLTableRowElementK a) => MethodInfo DOMHTMLTableRowElementGetSectionRowIndexMethodInfo a signature where +instance (signature ~ (m CLong), MonadIO m, DOMHTMLTableRowElementK a) => MethodInfo DOMHTMLTableRowElementGetSectionRowIndexMethodInfo a signature where overloadedMethod _ = dOMHTMLTableRowElementGetSectionRowIndex -- method DOMHTMLTableRowElement::get_v_align -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableRowElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -810,15 +858,15 @@ -- method DOMHTMLTableRowElement::insert_cell -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableRowElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "index", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableRowElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "index", argType = TBasicType TLong, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit" "DOMHTMLElement" +-- returnType : Just (TInterface "WebKit" "DOMHTMLElement") -- throws : True -- Skip return : False foreign import ccall "webkit_dom_html_table_row_element_insert_cell" webkit_dom_html_table_row_element_insert_cell :: Ptr DOMHTMLTableRowElement -> -- _obj : TInterface "WebKit" "DOMHTMLTableRowElement" - Int64 -> -- index : TBasicType TInt64 + CLong -> -- index : TBasicType TLong Ptr (Ptr GError) -> -- error IO (Ptr DOMHTMLElement) @@ -826,7 +874,7 @@ dOMHTMLTableRowElementInsertCell :: (MonadIO m, DOMHTMLTableRowElementK a) => a -- _obj - -> Int64 -- index + -> CLong -- index -> m DOMHTMLElement -- result dOMHTMLTableRowElementInsertCell _obj index = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj @@ -841,14 +889,14 @@ ) data DOMHTMLTableRowElementInsertCellMethodInfo -instance (signature ~ (Int64 -> m DOMHTMLElement), MonadIO m, DOMHTMLTableRowElementK a) => MethodInfo DOMHTMLTableRowElementInsertCellMethodInfo a signature where +instance (signature ~ (CLong -> m DOMHTMLElement), MonadIO m, DOMHTMLTableRowElementK a) => MethodInfo DOMHTMLTableRowElementInsertCellMethodInfo a signature where overloadedMethod _ = dOMHTMLTableRowElementInsertCell -- method DOMHTMLTableRowElement::set_align -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableRowElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -879,7 +927,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableRowElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -910,7 +958,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableRowElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -941,7 +989,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableRowElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -972,7 +1020,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableRowElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False diff --git a/GI/WebKit/Objects/DOMHTMLTableRowElement.hs-boot b/GI/WebKit/Objects/DOMHTMLTableRowElement.hs-boot --- a/GI/WebKit/Objects/DOMHTMLTableRowElement.hs-boot +++ b/GI/WebKit/Objects/DOMHTMLTableRowElement.hs-boot @@ -1,8 +1,8 @@ module GI.WebKit.Objects.DOMHTMLTableRowElement where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map diff --git a/GI/WebKit/Objects/DOMHTMLTableSectionElement.hs b/GI/WebKit/Objects/DOMHTMLTableSectionElement.hs --- a/GI/WebKit/Objects/DOMHTMLTableSectionElement.hs +++ b/GI/WebKit/Objects/DOMHTMLTableSectionElement.hs @@ -78,6 +78,7 @@ -- ** Align DOMHTMLTableSectionElementAlignPropertyInfo, constructDOMHTMLTableSectionElementAlign, + dOMHTMLTableSectionElementAlign , getDOMHTMLTableSectionElementAlign , setDOMHTMLTableSectionElementAlign , @@ -85,6 +86,7 @@ -- ** Ch DOMHTMLTableSectionElementChPropertyInfo, constructDOMHTMLTableSectionElementCh , + dOMHTMLTableSectionElementCh , getDOMHTMLTableSectionElementCh , setDOMHTMLTableSectionElementCh , @@ -92,18 +94,21 @@ -- ** ChOff DOMHTMLTableSectionElementChOffPropertyInfo, constructDOMHTMLTableSectionElementChOff, + dOMHTMLTableSectionElementChOff , getDOMHTMLTableSectionElementChOff , setDOMHTMLTableSectionElementChOff , -- ** Rows DOMHTMLTableSectionElementRowsPropertyInfo, + dOMHTMLTableSectionElementRows , getDOMHTMLTableSectionElementRows , -- ** VAlign DOMHTMLTableSectionElementVAlignPropertyInfo, constructDOMHTMLTableSectionElementVAlign, + dOMHTMLTableSectionElementVAlign , getDOMHTMLTableSectionElementVAlign , setDOMHTMLTableSectionElementVAlign , @@ -112,9 +117,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map @@ -323,134 +328,159 @@ -- VVV Prop "align" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Just False) -getDOMHTMLTableSectionElementAlign :: (MonadIO m, DOMHTMLTableSectionElementK o) => o -> m T.Text +getDOMHTMLTableSectionElementAlign :: (MonadIO m, DOMHTMLTableSectionElementK o) => o -> m (Maybe T.Text) getDOMHTMLTableSectionElementAlign obj = liftIO $ getObjectPropertyString obj "align" setDOMHTMLTableSectionElementAlign :: (MonadIO m, DOMHTMLTableSectionElementK o) => o -> T.Text -> m () -setDOMHTMLTableSectionElementAlign obj val = liftIO $ setObjectPropertyString obj "align" val +setDOMHTMLTableSectionElementAlign obj val = liftIO $ setObjectPropertyString obj "align" (Just val) constructDOMHTMLTableSectionElementAlign :: T.Text -> IO ([Char], GValue) -constructDOMHTMLTableSectionElementAlign val = constructObjectPropertyString "align" val +constructDOMHTMLTableSectionElementAlign val = constructObjectPropertyString "align" (Just val) data DOMHTMLTableSectionElementAlignPropertyInfo instance AttrInfo DOMHTMLTableSectionElementAlignPropertyInfo where type AttrAllowedOps DOMHTMLTableSectionElementAlignPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint DOMHTMLTableSectionElementAlignPropertyInfo = (~) T.Text type AttrBaseTypeConstraint DOMHTMLTableSectionElementAlignPropertyInfo = DOMHTMLTableSectionElementK - type AttrGetType DOMHTMLTableSectionElementAlignPropertyInfo = T.Text + type AttrGetType DOMHTMLTableSectionElementAlignPropertyInfo = (Maybe T.Text) type AttrLabel DOMHTMLTableSectionElementAlignPropertyInfo = "align" attrGet _ = getDOMHTMLTableSectionElementAlign attrSet _ = setDOMHTMLTableSectionElementAlign attrConstruct _ = constructDOMHTMLTableSectionElementAlign + attrClear _ = undefined -- VVV Prop "ch" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Just False) -getDOMHTMLTableSectionElementCh :: (MonadIO m, DOMHTMLTableSectionElementK o) => o -> m T.Text +getDOMHTMLTableSectionElementCh :: (MonadIO m, DOMHTMLTableSectionElementK o) => o -> m (Maybe T.Text) getDOMHTMLTableSectionElementCh obj = liftIO $ getObjectPropertyString obj "ch" setDOMHTMLTableSectionElementCh :: (MonadIO m, DOMHTMLTableSectionElementK o) => o -> T.Text -> m () -setDOMHTMLTableSectionElementCh obj val = liftIO $ setObjectPropertyString obj "ch" val +setDOMHTMLTableSectionElementCh obj val = liftIO $ setObjectPropertyString obj "ch" (Just val) constructDOMHTMLTableSectionElementCh :: T.Text -> IO ([Char], GValue) -constructDOMHTMLTableSectionElementCh val = constructObjectPropertyString "ch" val +constructDOMHTMLTableSectionElementCh val = constructObjectPropertyString "ch" (Just val) data DOMHTMLTableSectionElementChPropertyInfo instance AttrInfo DOMHTMLTableSectionElementChPropertyInfo where type AttrAllowedOps DOMHTMLTableSectionElementChPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint DOMHTMLTableSectionElementChPropertyInfo = (~) T.Text type AttrBaseTypeConstraint DOMHTMLTableSectionElementChPropertyInfo = DOMHTMLTableSectionElementK - type AttrGetType DOMHTMLTableSectionElementChPropertyInfo = T.Text + type AttrGetType DOMHTMLTableSectionElementChPropertyInfo = (Maybe T.Text) type AttrLabel DOMHTMLTableSectionElementChPropertyInfo = "ch" attrGet _ = getDOMHTMLTableSectionElementCh attrSet _ = setDOMHTMLTableSectionElementCh attrConstruct _ = constructDOMHTMLTableSectionElementCh + attrClear _ = undefined -- VVV Prop "ch-off" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Just False) -getDOMHTMLTableSectionElementChOff :: (MonadIO m, DOMHTMLTableSectionElementK o) => o -> m T.Text +getDOMHTMLTableSectionElementChOff :: (MonadIO m, DOMHTMLTableSectionElementK o) => o -> m (Maybe T.Text) getDOMHTMLTableSectionElementChOff obj = liftIO $ getObjectPropertyString obj "ch-off" setDOMHTMLTableSectionElementChOff :: (MonadIO m, DOMHTMLTableSectionElementK o) => o -> T.Text -> m () -setDOMHTMLTableSectionElementChOff obj val = liftIO $ setObjectPropertyString obj "ch-off" val +setDOMHTMLTableSectionElementChOff obj val = liftIO $ setObjectPropertyString obj "ch-off" (Just val) constructDOMHTMLTableSectionElementChOff :: T.Text -> IO ([Char], GValue) -constructDOMHTMLTableSectionElementChOff val = constructObjectPropertyString "ch-off" val +constructDOMHTMLTableSectionElementChOff val = constructObjectPropertyString "ch-off" (Just val) data DOMHTMLTableSectionElementChOffPropertyInfo instance AttrInfo DOMHTMLTableSectionElementChOffPropertyInfo where type AttrAllowedOps DOMHTMLTableSectionElementChOffPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint DOMHTMLTableSectionElementChOffPropertyInfo = (~) T.Text type AttrBaseTypeConstraint DOMHTMLTableSectionElementChOffPropertyInfo = DOMHTMLTableSectionElementK - type AttrGetType DOMHTMLTableSectionElementChOffPropertyInfo = T.Text + type AttrGetType DOMHTMLTableSectionElementChOffPropertyInfo = (Maybe T.Text) type AttrLabel DOMHTMLTableSectionElementChOffPropertyInfo = "ch-off" attrGet _ = getDOMHTMLTableSectionElementChOff attrSet _ = setDOMHTMLTableSectionElementChOff attrConstruct _ = constructDOMHTMLTableSectionElementChOff + attrClear _ = undefined -- VVV Prop "rows" -- Type: TInterface "WebKit" "DOMHTMLCollection" -- Flags: [PropertyReadable] + -- Nullable: (Nothing,Nothing) -getDOMHTMLTableSectionElementRows :: (MonadIO m, DOMHTMLTableSectionElementK o) => o -> m DOMHTMLCollection +getDOMHTMLTableSectionElementRows :: (MonadIO m, DOMHTMLTableSectionElementK o) => o -> m (Maybe DOMHTMLCollection) getDOMHTMLTableSectionElementRows obj = liftIO $ getObjectPropertyObject obj "rows" DOMHTMLCollection data DOMHTMLTableSectionElementRowsPropertyInfo instance AttrInfo DOMHTMLTableSectionElementRowsPropertyInfo where - type AttrAllowedOps DOMHTMLTableSectionElementRowsPropertyInfo = '[ 'AttrGet] + type AttrAllowedOps DOMHTMLTableSectionElementRowsPropertyInfo = '[ 'AttrGet, 'AttrClear] type AttrSetTypeConstraint DOMHTMLTableSectionElementRowsPropertyInfo = (~) () type AttrBaseTypeConstraint DOMHTMLTableSectionElementRowsPropertyInfo = DOMHTMLTableSectionElementK - type AttrGetType DOMHTMLTableSectionElementRowsPropertyInfo = DOMHTMLCollection + type AttrGetType DOMHTMLTableSectionElementRowsPropertyInfo = (Maybe DOMHTMLCollection) type AttrLabel DOMHTMLTableSectionElementRowsPropertyInfo = "rows" attrGet _ = getDOMHTMLTableSectionElementRows attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "v-align" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Just False) -getDOMHTMLTableSectionElementVAlign :: (MonadIO m, DOMHTMLTableSectionElementK o) => o -> m T.Text +getDOMHTMLTableSectionElementVAlign :: (MonadIO m, DOMHTMLTableSectionElementK o) => o -> m (Maybe T.Text) getDOMHTMLTableSectionElementVAlign obj = liftIO $ getObjectPropertyString obj "v-align" setDOMHTMLTableSectionElementVAlign :: (MonadIO m, DOMHTMLTableSectionElementK o) => o -> T.Text -> m () -setDOMHTMLTableSectionElementVAlign obj val = liftIO $ setObjectPropertyString obj "v-align" val +setDOMHTMLTableSectionElementVAlign obj val = liftIO $ setObjectPropertyString obj "v-align" (Just val) constructDOMHTMLTableSectionElementVAlign :: T.Text -> IO ([Char], GValue) -constructDOMHTMLTableSectionElementVAlign val = constructObjectPropertyString "v-align" val +constructDOMHTMLTableSectionElementVAlign val = constructObjectPropertyString "v-align" (Just val) data DOMHTMLTableSectionElementVAlignPropertyInfo instance AttrInfo DOMHTMLTableSectionElementVAlignPropertyInfo where type AttrAllowedOps DOMHTMLTableSectionElementVAlignPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint DOMHTMLTableSectionElementVAlignPropertyInfo = (~) T.Text type AttrBaseTypeConstraint DOMHTMLTableSectionElementVAlignPropertyInfo = DOMHTMLTableSectionElementK - type AttrGetType DOMHTMLTableSectionElementVAlignPropertyInfo = T.Text + type AttrGetType DOMHTMLTableSectionElementVAlignPropertyInfo = (Maybe T.Text) type AttrLabel DOMHTMLTableSectionElementVAlignPropertyInfo = "v-align" attrGet _ = getDOMHTMLTableSectionElementVAlign attrSet _ = setDOMHTMLTableSectionElementVAlign attrConstruct _ = constructDOMHTMLTableSectionElementVAlign + attrClear _ = undefined type instance AttributeList DOMHTMLTableSectionElement = DOMHTMLTableSectionElementAttributeList type DOMHTMLTableSectionElementAttributeList = ('[ '("accessKey", DOMHTMLElementAccessKeyPropertyInfo), '("align", DOMHTMLTableSectionElementAlignPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("baseUri", DOMNodeBaseUriPropertyInfo), '("ch", DOMHTMLTableSectionElementChPropertyInfo), '("chOff", DOMHTMLTableSectionElementChOffPropertyInfo), '("childElementCount", DOMElementChildElementCountPropertyInfo), '("childNodes", DOMNodeChildNodesPropertyInfo), '("children", DOMHTMLElementChildrenPropertyInfo), '("classList", DOMElementClassListPropertyInfo), '("className", DOMElementClassNamePropertyInfo), '("clientHeight", DOMElementClientHeightPropertyInfo), '("clientLeft", DOMElementClientLeftPropertyInfo), '("clientTop", DOMElementClientTopPropertyInfo), '("clientWidth", DOMElementClientWidthPropertyInfo), '("contentEditable", DOMHTMLElementContentEditablePropertyInfo), '("coreObject", DOMObjectCoreObjectPropertyInfo), '("dir", DOMHTMLElementDirPropertyInfo), '("draggable", DOMHTMLElementDraggablePropertyInfo), '("firstChild", DOMNodeFirstChildPropertyInfo), '("firstElementChild", DOMElementFirstElementChildPropertyInfo), '("hidden", DOMHTMLElementHiddenPropertyInfo), '("id", DOMElementIdPropertyInfo), '("innerHtml", DOMHTMLElementInnerHtmlPropertyInfo), '("innerText", DOMHTMLElementInnerTextPropertyInfo), '("isContentEditable", DOMHTMLElementIsContentEditablePropertyInfo), '("lang", DOMHTMLElementLangPropertyInfo), '("lastChild", DOMNodeLastChildPropertyInfo), '("lastElementChild", DOMElementLastElementChildPropertyInfo), '("localName", DOMNodeLocalNamePropertyInfo), '("namespaceUri", DOMNodeNamespaceUriPropertyInfo), '("nextElementSibling", DOMElementNextElementSiblingPropertyInfo), '("nextSibling", DOMNodeNextSiblingPropertyInfo), '("nodeName", DOMNodeNodeNamePropertyInfo), '("nodeType", DOMNodeNodeTypePropertyInfo), '("nodeValue", DOMNodeNodeValuePropertyInfo), '("offsetHeight", DOMElementOffsetHeightPropertyInfo), '("offsetLeft", DOMElementOffsetLeftPropertyInfo), '("offsetParent", DOMElementOffsetParentPropertyInfo), '("offsetTop", DOMElementOffsetTopPropertyInfo), '("offsetWidth", DOMElementOffsetWidthPropertyInfo), '("outerHtml", DOMHTMLElementOuterHtmlPropertyInfo), '("outerText", DOMHTMLElementOuterTextPropertyInfo), '("ownerDocument", DOMNodeOwnerDocumentPropertyInfo), '("parentElement", DOMNodeParentElementPropertyInfo), '("parentNode", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previousElementSibling", DOMElementPreviousElementSiblingPropertyInfo), '("previousSibling", DOMNodePreviousSiblingPropertyInfo), '("rows", DOMHTMLTableSectionElementRowsPropertyInfo), '("scrollHeight", DOMElementScrollHeightPropertyInfo), '("scrollLeft", DOMElementScrollLeftPropertyInfo), '("scrollTop", DOMElementScrollTopPropertyInfo), '("scrollWidth", DOMElementScrollWidthPropertyInfo), '("spellcheck", DOMHTMLElementSpellcheckPropertyInfo), '("style", DOMElementStylePropertyInfo), '("tabIndex", DOMHTMLElementTabIndexPropertyInfo), '("tagName", DOMElementTagNamePropertyInfo), '("textContent", DOMNodeTextContentPropertyInfo), '("title", DOMHTMLElementTitlePropertyInfo), '("translate", DOMHTMLElementTranslatePropertyInfo), '("vAlign", DOMHTMLTableSectionElementVAlignPropertyInfo), '("webkitRegionOverset", DOMElementWebkitRegionOversetPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo)] :: [(Symbol, *)]) +dOMHTMLTableSectionElementAlign :: AttrLabelProxy "align" +dOMHTMLTableSectionElementAlign = AttrLabelProxy + +dOMHTMLTableSectionElementCh :: AttrLabelProxy "ch" +dOMHTMLTableSectionElementCh = AttrLabelProxy + +dOMHTMLTableSectionElementChOff :: AttrLabelProxy "chOff" +dOMHTMLTableSectionElementChOff = AttrLabelProxy + +dOMHTMLTableSectionElementRows :: AttrLabelProxy "rows" +dOMHTMLTableSectionElementRows = AttrLabelProxy + +dOMHTMLTableSectionElementVAlign :: AttrLabelProxy "vAlign" +dOMHTMLTableSectionElementVAlign = AttrLabelProxy + type instance SignalList DOMHTMLTableSectionElement = DOMHTMLTableSectionElementSignalList type DOMHTMLTableSectionElementSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) -- method DOMHTMLTableSectionElement::delete_row -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableSectionElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "index", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableSectionElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "index", argType = TBasicType TLong, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : True -- Skip return : False foreign import ccall "webkit_dom_html_table_section_element_delete_row" webkit_dom_html_table_section_element_delete_row :: Ptr DOMHTMLTableSectionElement -> -- _obj : TInterface "WebKit" "DOMHTMLTableSectionElement" - Int64 -> -- index : TBasicType TInt64 + CLong -> -- index : TBasicType TLong Ptr (Ptr GError) -> -- error IO () @@ -458,7 +488,7 @@ dOMHTMLTableSectionElementDeleteRow :: (MonadIO m, DOMHTMLTableSectionElementK a) => a -- _obj - -> Int64 -- index + -> CLong -- index -> m () -- result dOMHTMLTableSectionElementDeleteRow _obj index = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj @@ -471,14 +501,14 @@ ) data DOMHTMLTableSectionElementDeleteRowMethodInfo -instance (signature ~ (Int64 -> m ()), MonadIO m, DOMHTMLTableSectionElementK a) => MethodInfo DOMHTMLTableSectionElementDeleteRowMethodInfo a signature where +instance (signature ~ (CLong -> m ()), MonadIO m, DOMHTMLTableSectionElementK a) => MethodInfo DOMHTMLTableSectionElementDeleteRowMethodInfo a signature where overloadedMethod _ = dOMHTMLTableSectionElementDeleteRow -- method DOMHTMLTableSectionElement::get_align -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableSectionElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -508,7 +538,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableSectionElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -538,7 +568,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableSectionElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -568,7 +598,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableSectionElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit" "DOMHTMLCollection" +-- returnType : Just (TInterface "WebKit" "DOMHTMLCollection") -- throws : False -- Skip return : False @@ -597,7 +627,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableSectionElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -625,15 +655,15 @@ -- method DOMHTMLTableSectionElement::insert_row -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableSectionElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "index", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableSectionElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "index", argType = TBasicType TLong, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit" "DOMHTMLElement" +-- returnType : Just (TInterface "WebKit" "DOMHTMLElement") -- throws : True -- Skip return : False foreign import ccall "webkit_dom_html_table_section_element_insert_row" webkit_dom_html_table_section_element_insert_row :: Ptr DOMHTMLTableSectionElement -> -- _obj : TInterface "WebKit" "DOMHTMLTableSectionElement" - Int64 -> -- index : TBasicType TInt64 + CLong -> -- index : TBasicType TLong Ptr (Ptr GError) -> -- error IO (Ptr DOMHTMLElement) @@ -641,7 +671,7 @@ dOMHTMLTableSectionElementInsertRow :: (MonadIO m, DOMHTMLTableSectionElementK a) => a -- _obj - -> Int64 -- index + -> CLong -- index -> m DOMHTMLElement -- result dOMHTMLTableSectionElementInsertRow _obj index = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj @@ -656,14 +686,14 @@ ) data DOMHTMLTableSectionElementInsertRowMethodInfo -instance (signature ~ (Int64 -> m DOMHTMLElement), MonadIO m, DOMHTMLTableSectionElementK a) => MethodInfo DOMHTMLTableSectionElementInsertRowMethodInfo a signature where +instance (signature ~ (CLong -> m DOMHTMLElement), MonadIO m, DOMHTMLTableSectionElementK a) => MethodInfo DOMHTMLTableSectionElementInsertRowMethodInfo a signature where overloadedMethod _ = dOMHTMLTableSectionElementInsertRow -- method DOMHTMLTableSectionElement::set_align -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableSectionElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -694,7 +724,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableSectionElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -725,7 +755,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableSectionElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -756,7 +786,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableSectionElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False diff --git a/GI/WebKit/Objects/DOMHTMLTableSectionElement.hs-boot b/GI/WebKit/Objects/DOMHTMLTableSectionElement.hs-boot --- a/GI/WebKit/Objects/DOMHTMLTableSectionElement.hs-boot +++ b/GI/WebKit/Objects/DOMHTMLTableSectionElement.hs-boot @@ -1,8 +1,8 @@ module GI.WebKit.Objects.DOMHTMLTableSectionElement where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map diff --git a/GI/WebKit/Objects/DOMHTMLTextAreaElement.hs b/GI/WebKit/Objects/DOMHTMLTextAreaElement.hs --- a/GI/WebKit/Objects/DOMHTMLTextAreaElement.hs +++ b/GI/WebKit/Objects/DOMHTMLTextAreaElement.hs @@ -263,6 +263,7 @@ -- ** Autocapitalize DOMHTMLTextAreaElementAutocapitalizePropertyInfo, constructDOMHTMLTextAreaElementAutocapitalize, + dOMHTMLTextAreaElementAutocapitalize , getDOMHTMLTextAreaElementAutocapitalize , setDOMHTMLTextAreaElementAutocapitalize , @@ -270,6 +271,7 @@ -- ** Autocorrect DOMHTMLTextAreaElementAutocorrectPropertyInfo, constructDOMHTMLTextAreaElementAutocorrect, + dOMHTMLTextAreaElementAutocorrect , getDOMHTMLTextAreaElementAutocorrect , setDOMHTMLTextAreaElementAutocorrect , @@ -277,6 +279,7 @@ -- ** Autofocus DOMHTMLTextAreaElementAutofocusPropertyInfo, constructDOMHTMLTextAreaElementAutofocus, + dOMHTMLTextAreaElementAutofocus , getDOMHTMLTextAreaElementAutofocus , setDOMHTMLTextAreaElementAutofocus , @@ -284,6 +287,7 @@ -- ** Cols DOMHTMLTextAreaElementColsPropertyInfo , constructDOMHTMLTextAreaElementCols , + dOMHTMLTextAreaElementCols , getDOMHTMLTextAreaElementCols , setDOMHTMLTextAreaElementCols , @@ -291,6 +295,7 @@ -- ** DefaultValue DOMHTMLTextAreaElementDefaultValuePropertyInfo, constructDOMHTMLTextAreaElementDefaultValue, + dOMHTMLTextAreaElementDefaultValue , getDOMHTMLTextAreaElementDefaultValue , setDOMHTMLTextAreaElementDefaultValue , @@ -298,6 +303,7 @@ -- ** DirName DOMHTMLTextAreaElementDirNamePropertyInfo, constructDOMHTMLTextAreaElementDirName , + dOMHTMLTextAreaElementDirName , getDOMHTMLTextAreaElementDirName , setDOMHTMLTextAreaElementDirName , @@ -305,23 +311,27 @@ -- ** Disabled DOMHTMLTextAreaElementDisabledPropertyInfo, constructDOMHTMLTextAreaElementDisabled , + dOMHTMLTextAreaElementDisabled , getDOMHTMLTextAreaElementDisabled , setDOMHTMLTextAreaElementDisabled , -- ** Form DOMHTMLTextAreaElementFormPropertyInfo , + dOMHTMLTextAreaElementForm , getDOMHTMLTextAreaElementForm , -- ** Labels DOMHTMLTextAreaElementLabelsPropertyInfo, + dOMHTMLTextAreaElementLabels , getDOMHTMLTextAreaElementLabels , -- ** MaxLength DOMHTMLTextAreaElementMaxLengthPropertyInfo, constructDOMHTMLTextAreaElementMaxLength, + dOMHTMLTextAreaElementMaxLength , getDOMHTMLTextAreaElementMaxLength , setDOMHTMLTextAreaElementMaxLength , @@ -329,6 +339,7 @@ -- ** Name DOMHTMLTextAreaElementNamePropertyInfo , constructDOMHTMLTextAreaElementName , + dOMHTMLTextAreaElementName , getDOMHTMLTextAreaElementName , setDOMHTMLTextAreaElementName , @@ -336,6 +347,7 @@ -- ** Placeholder DOMHTMLTextAreaElementPlaceholderPropertyInfo, constructDOMHTMLTextAreaElementPlaceholder, + dOMHTMLTextAreaElementPlaceholder , getDOMHTMLTextAreaElementPlaceholder , setDOMHTMLTextAreaElementPlaceholder , @@ -343,6 +355,7 @@ -- ** ReadOnly DOMHTMLTextAreaElementReadOnlyPropertyInfo, constructDOMHTMLTextAreaElementReadOnly , + dOMHTMLTextAreaElementReadOnly , getDOMHTMLTextAreaElementReadOnly , setDOMHTMLTextAreaElementReadOnly , @@ -350,6 +363,7 @@ -- ** Required DOMHTMLTextAreaElementRequiredPropertyInfo, constructDOMHTMLTextAreaElementRequired , + dOMHTMLTextAreaElementRequired , getDOMHTMLTextAreaElementRequired , setDOMHTMLTextAreaElementRequired , @@ -357,6 +371,7 @@ -- ** Rows DOMHTMLTextAreaElementRowsPropertyInfo , constructDOMHTMLTextAreaElementRows , + dOMHTMLTextAreaElementRows , getDOMHTMLTextAreaElementRows , setDOMHTMLTextAreaElementRows , @@ -364,6 +379,7 @@ -- ** SelectionDirection DOMHTMLTextAreaElementSelectionDirectionPropertyInfo, constructDOMHTMLTextAreaElementSelectionDirection, + dOMHTMLTextAreaElementSelectionDirection, getDOMHTMLTextAreaElementSelectionDirection, setDOMHTMLTextAreaElementSelectionDirection, @@ -371,6 +387,7 @@ -- ** SelectionEnd DOMHTMLTextAreaElementSelectionEndPropertyInfo, constructDOMHTMLTextAreaElementSelectionEnd, + dOMHTMLTextAreaElementSelectionEnd , getDOMHTMLTextAreaElementSelectionEnd , setDOMHTMLTextAreaElementSelectionEnd , @@ -378,45 +395,53 @@ -- ** SelectionStart DOMHTMLTextAreaElementSelectionStartPropertyInfo, constructDOMHTMLTextAreaElementSelectionStart, + dOMHTMLTextAreaElementSelectionStart , getDOMHTMLTextAreaElementSelectionStart , setDOMHTMLTextAreaElementSelectionStart , -- ** TextLength DOMHTMLTextAreaElementTextLengthPropertyInfo, + dOMHTMLTextAreaElementTextLength , getDOMHTMLTextAreaElementTextLength , -- ** Type DOMHTMLTextAreaElementTypePropertyInfo , + dOMHTMLTextAreaElementType , getDOMHTMLTextAreaElementType , -- ** ValidationMessage DOMHTMLTextAreaElementValidationMessagePropertyInfo, + dOMHTMLTextAreaElementValidationMessage , getDOMHTMLTextAreaElementValidationMessage, -- ** Validity DOMHTMLTextAreaElementValidityPropertyInfo, + dOMHTMLTextAreaElementValidity , getDOMHTMLTextAreaElementValidity , -- ** Value DOMHTMLTextAreaElementValuePropertyInfo , constructDOMHTMLTextAreaElementValue , + dOMHTMLTextAreaElementValue , getDOMHTMLTextAreaElementValue , setDOMHTMLTextAreaElementValue , -- ** WillValidate DOMHTMLTextAreaElementWillValidatePropertyInfo, + dOMHTMLTextAreaElementWillValidate , getDOMHTMLTextAreaElementWillValidate , -- ** Wrap DOMHTMLTextAreaElementWrapPropertyInfo , constructDOMHTMLTextAreaElementWrap , + dOMHTMLTextAreaElementWrap , getDOMHTMLTextAreaElementWrap , setDOMHTMLTextAreaElementWrap , @@ -425,9 +450,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map @@ -673,30 +698,33 @@ -- VVV Prop "autocapitalize" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Just False) -getDOMHTMLTextAreaElementAutocapitalize :: (MonadIO m, DOMHTMLTextAreaElementK o) => o -> m T.Text +getDOMHTMLTextAreaElementAutocapitalize :: (MonadIO m, DOMHTMLTextAreaElementK o) => o -> m (Maybe T.Text) getDOMHTMLTextAreaElementAutocapitalize obj = liftIO $ getObjectPropertyString obj "autocapitalize" setDOMHTMLTextAreaElementAutocapitalize :: (MonadIO m, DOMHTMLTextAreaElementK o) => o -> T.Text -> m () -setDOMHTMLTextAreaElementAutocapitalize obj val = liftIO $ setObjectPropertyString obj "autocapitalize" val +setDOMHTMLTextAreaElementAutocapitalize obj val = liftIO $ setObjectPropertyString obj "autocapitalize" (Just val) constructDOMHTMLTextAreaElementAutocapitalize :: T.Text -> IO ([Char], GValue) -constructDOMHTMLTextAreaElementAutocapitalize val = constructObjectPropertyString "autocapitalize" val +constructDOMHTMLTextAreaElementAutocapitalize val = constructObjectPropertyString "autocapitalize" (Just val) data DOMHTMLTextAreaElementAutocapitalizePropertyInfo instance AttrInfo DOMHTMLTextAreaElementAutocapitalizePropertyInfo where type AttrAllowedOps DOMHTMLTextAreaElementAutocapitalizePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint DOMHTMLTextAreaElementAutocapitalizePropertyInfo = (~) T.Text type AttrBaseTypeConstraint DOMHTMLTextAreaElementAutocapitalizePropertyInfo = DOMHTMLTextAreaElementK - type AttrGetType DOMHTMLTextAreaElementAutocapitalizePropertyInfo = T.Text + type AttrGetType DOMHTMLTextAreaElementAutocapitalizePropertyInfo = (Maybe T.Text) type AttrLabel DOMHTMLTextAreaElementAutocapitalizePropertyInfo = "autocapitalize" attrGet _ = getDOMHTMLTextAreaElementAutocapitalize attrSet _ = setDOMHTMLTextAreaElementAutocapitalize attrConstruct _ = constructDOMHTMLTextAreaElementAutocapitalize + attrClear _ = undefined -- VVV Prop "autocorrect" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getDOMHTMLTextAreaElementAutocorrect :: (MonadIO m, DOMHTMLTextAreaElementK o) => o -> m Bool getDOMHTMLTextAreaElementAutocorrect obj = liftIO $ getObjectPropertyBool obj "autocorrect" @@ -717,10 +745,12 @@ attrGet _ = getDOMHTMLTextAreaElementAutocorrect attrSet _ = setDOMHTMLTextAreaElementAutocorrect attrConstruct _ = constructDOMHTMLTextAreaElementAutocorrect + attrClear _ = undefined -- VVV Prop "autofocus" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getDOMHTMLTextAreaElementAutofocus :: (MonadIO m, DOMHTMLTextAreaElementK o) => o -> m Bool getDOMHTMLTextAreaElementAutofocus obj = liftIO $ getObjectPropertyBool obj "autofocus" @@ -741,82 +771,90 @@ attrGet _ = getDOMHTMLTextAreaElementAutofocus attrSet _ = setDOMHTMLTextAreaElementAutofocus attrConstruct _ = constructDOMHTMLTextAreaElementAutofocus + attrClear _ = undefined -- VVV Prop "cols" - -- Type: TBasicType TInt64 + -- Type: TBasicType TLong -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) -getDOMHTMLTextAreaElementCols :: (MonadIO m, DOMHTMLTextAreaElementK o) => o -> m Int64 -getDOMHTMLTextAreaElementCols obj = liftIO $ getObjectPropertyInt64 obj "cols" +getDOMHTMLTextAreaElementCols :: (MonadIO m, DOMHTMLTextAreaElementK o) => o -> m CLong +getDOMHTMLTextAreaElementCols obj = liftIO $ getObjectPropertyLong obj "cols" -setDOMHTMLTextAreaElementCols :: (MonadIO m, DOMHTMLTextAreaElementK o) => o -> Int64 -> m () -setDOMHTMLTextAreaElementCols obj val = liftIO $ setObjectPropertyInt64 obj "cols" val +setDOMHTMLTextAreaElementCols :: (MonadIO m, DOMHTMLTextAreaElementK o) => o -> CLong -> m () +setDOMHTMLTextAreaElementCols obj val = liftIO $ setObjectPropertyLong obj "cols" val -constructDOMHTMLTextAreaElementCols :: Int64 -> IO ([Char], GValue) -constructDOMHTMLTextAreaElementCols val = constructObjectPropertyInt64 "cols" val +constructDOMHTMLTextAreaElementCols :: CLong -> IO ([Char], GValue) +constructDOMHTMLTextAreaElementCols val = constructObjectPropertyLong "cols" val data DOMHTMLTextAreaElementColsPropertyInfo instance AttrInfo DOMHTMLTextAreaElementColsPropertyInfo where type AttrAllowedOps DOMHTMLTextAreaElementColsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLTextAreaElementColsPropertyInfo = (~) Int64 + type AttrSetTypeConstraint DOMHTMLTextAreaElementColsPropertyInfo = (~) CLong type AttrBaseTypeConstraint DOMHTMLTextAreaElementColsPropertyInfo = DOMHTMLTextAreaElementK - type AttrGetType DOMHTMLTextAreaElementColsPropertyInfo = Int64 + type AttrGetType DOMHTMLTextAreaElementColsPropertyInfo = CLong type AttrLabel DOMHTMLTextAreaElementColsPropertyInfo = "cols" attrGet _ = getDOMHTMLTextAreaElementCols attrSet _ = setDOMHTMLTextAreaElementCols attrConstruct _ = constructDOMHTMLTextAreaElementCols + attrClear _ = undefined -- VVV Prop "default-value" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Just False) -getDOMHTMLTextAreaElementDefaultValue :: (MonadIO m, DOMHTMLTextAreaElementK o) => o -> m T.Text +getDOMHTMLTextAreaElementDefaultValue :: (MonadIO m, DOMHTMLTextAreaElementK o) => o -> m (Maybe T.Text) getDOMHTMLTextAreaElementDefaultValue obj = liftIO $ getObjectPropertyString obj "default-value" setDOMHTMLTextAreaElementDefaultValue :: (MonadIO m, DOMHTMLTextAreaElementK o) => o -> T.Text -> m () -setDOMHTMLTextAreaElementDefaultValue obj val = liftIO $ setObjectPropertyString obj "default-value" val +setDOMHTMLTextAreaElementDefaultValue obj val = liftIO $ setObjectPropertyString obj "default-value" (Just val) constructDOMHTMLTextAreaElementDefaultValue :: T.Text -> IO ([Char], GValue) -constructDOMHTMLTextAreaElementDefaultValue val = constructObjectPropertyString "default-value" val +constructDOMHTMLTextAreaElementDefaultValue val = constructObjectPropertyString "default-value" (Just val) data DOMHTMLTextAreaElementDefaultValuePropertyInfo instance AttrInfo DOMHTMLTextAreaElementDefaultValuePropertyInfo where type AttrAllowedOps DOMHTMLTextAreaElementDefaultValuePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint DOMHTMLTextAreaElementDefaultValuePropertyInfo = (~) T.Text type AttrBaseTypeConstraint DOMHTMLTextAreaElementDefaultValuePropertyInfo = DOMHTMLTextAreaElementK - type AttrGetType DOMHTMLTextAreaElementDefaultValuePropertyInfo = T.Text + type AttrGetType DOMHTMLTextAreaElementDefaultValuePropertyInfo = (Maybe T.Text) type AttrLabel DOMHTMLTextAreaElementDefaultValuePropertyInfo = "default-value" attrGet _ = getDOMHTMLTextAreaElementDefaultValue attrSet _ = setDOMHTMLTextAreaElementDefaultValue attrConstruct _ = constructDOMHTMLTextAreaElementDefaultValue + attrClear _ = undefined -- VVV Prop "dir-name" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Just False) -getDOMHTMLTextAreaElementDirName :: (MonadIO m, DOMHTMLTextAreaElementK o) => o -> m T.Text +getDOMHTMLTextAreaElementDirName :: (MonadIO m, DOMHTMLTextAreaElementK o) => o -> m (Maybe T.Text) getDOMHTMLTextAreaElementDirName obj = liftIO $ getObjectPropertyString obj "dir-name" setDOMHTMLTextAreaElementDirName :: (MonadIO m, DOMHTMLTextAreaElementK o) => o -> T.Text -> m () -setDOMHTMLTextAreaElementDirName obj val = liftIO $ setObjectPropertyString obj "dir-name" val +setDOMHTMLTextAreaElementDirName obj val = liftIO $ setObjectPropertyString obj "dir-name" (Just val) constructDOMHTMLTextAreaElementDirName :: T.Text -> IO ([Char], GValue) -constructDOMHTMLTextAreaElementDirName val = constructObjectPropertyString "dir-name" val +constructDOMHTMLTextAreaElementDirName val = constructObjectPropertyString "dir-name" (Just val) data DOMHTMLTextAreaElementDirNamePropertyInfo instance AttrInfo DOMHTMLTextAreaElementDirNamePropertyInfo where type AttrAllowedOps DOMHTMLTextAreaElementDirNamePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint DOMHTMLTextAreaElementDirNamePropertyInfo = (~) T.Text type AttrBaseTypeConstraint DOMHTMLTextAreaElementDirNamePropertyInfo = DOMHTMLTextAreaElementK - type AttrGetType DOMHTMLTextAreaElementDirNamePropertyInfo = T.Text + type AttrGetType DOMHTMLTextAreaElementDirNamePropertyInfo = (Maybe T.Text) type AttrLabel DOMHTMLTextAreaElementDirNamePropertyInfo = "dir-name" attrGet _ = getDOMHTMLTextAreaElementDirName attrSet _ = setDOMHTMLTextAreaElementDirName attrConstruct _ = constructDOMHTMLTextAreaElementDirName + attrClear _ = undefined -- VVV Prop "disabled" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getDOMHTMLTextAreaElementDisabled :: (MonadIO m, DOMHTMLTextAreaElementK o) => o -> m Bool getDOMHTMLTextAreaElementDisabled obj = liftIO $ getObjectPropertyBool obj "disabled" @@ -837,17 +875,19 @@ attrGet _ = getDOMHTMLTextAreaElementDisabled attrSet _ = setDOMHTMLTextAreaElementDisabled attrConstruct _ = constructDOMHTMLTextAreaElementDisabled + attrClear _ = undefined -- VVV Prop "form" -- Type: TInterface "WebKit" "DOMHTMLFormElement" -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) getDOMHTMLTextAreaElementForm :: (MonadIO m, DOMHTMLTextAreaElementK o) => o -> m DOMHTMLFormElement -getDOMHTMLTextAreaElementForm obj = liftIO $ getObjectPropertyObject obj "form" DOMHTMLFormElement +getDOMHTMLTextAreaElementForm obj = liftIO $ checkUnexpectedNothing "getDOMHTMLTextAreaElementForm" $ getObjectPropertyObject obj "form" DOMHTMLFormElement data DOMHTMLTextAreaElementFormPropertyInfo instance AttrInfo DOMHTMLTextAreaElementFormPropertyInfo where - type AttrAllowedOps DOMHTMLTextAreaElementFormPropertyInfo = '[ 'AttrGet] + type AttrAllowedOps DOMHTMLTextAreaElementFormPropertyInfo = '[ 'AttrGet, 'AttrClear] type AttrSetTypeConstraint DOMHTMLTextAreaElementFormPropertyInfo = (~) () type AttrBaseTypeConstraint DOMHTMLTextAreaElementFormPropertyInfo = DOMHTMLTextAreaElementK type AttrGetType DOMHTMLTextAreaElementFormPropertyInfo = DOMHTMLFormElement @@ -855,100 +895,110 @@ attrGet _ = getDOMHTMLTextAreaElementForm attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "labels" -- Type: TInterface "WebKit" "DOMNodeList" -- Flags: [PropertyReadable] + -- Nullable: (Nothing,Nothing) -getDOMHTMLTextAreaElementLabels :: (MonadIO m, DOMHTMLTextAreaElementK o) => o -> m DOMNodeList +getDOMHTMLTextAreaElementLabels :: (MonadIO m, DOMHTMLTextAreaElementK o) => o -> m (Maybe DOMNodeList) getDOMHTMLTextAreaElementLabels obj = liftIO $ getObjectPropertyObject obj "labels" DOMNodeList data DOMHTMLTextAreaElementLabelsPropertyInfo instance AttrInfo DOMHTMLTextAreaElementLabelsPropertyInfo where - type AttrAllowedOps DOMHTMLTextAreaElementLabelsPropertyInfo = '[ 'AttrGet] + type AttrAllowedOps DOMHTMLTextAreaElementLabelsPropertyInfo = '[ 'AttrGet, 'AttrClear] type AttrSetTypeConstraint DOMHTMLTextAreaElementLabelsPropertyInfo = (~) () type AttrBaseTypeConstraint DOMHTMLTextAreaElementLabelsPropertyInfo = DOMHTMLTextAreaElementK - type AttrGetType DOMHTMLTextAreaElementLabelsPropertyInfo = DOMNodeList + type AttrGetType DOMHTMLTextAreaElementLabelsPropertyInfo = (Maybe DOMNodeList) type AttrLabel DOMHTMLTextAreaElementLabelsPropertyInfo = "labels" attrGet _ = getDOMHTMLTextAreaElementLabels attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "max-length" - -- Type: TBasicType TInt64 + -- Type: TBasicType TLong -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Nothing) -getDOMHTMLTextAreaElementMaxLength :: (MonadIO m, DOMHTMLTextAreaElementK o) => o -> m Int64 -getDOMHTMLTextAreaElementMaxLength obj = liftIO $ getObjectPropertyInt64 obj "max-length" +getDOMHTMLTextAreaElementMaxLength :: (MonadIO m, DOMHTMLTextAreaElementK o) => o -> m CLong +getDOMHTMLTextAreaElementMaxLength obj = liftIO $ getObjectPropertyLong obj "max-length" -setDOMHTMLTextAreaElementMaxLength :: (MonadIO m, DOMHTMLTextAreaElementK o) => o -> Int64 -> m () -setDOMHTMLTextAreaElementMaxLength obj val = liftIO $ setObjectPropertyInt64 obj "max-length" val +setDOMHTMLTextAreaElementMaxLength :: (MonadIO m, DOMHTMLTextAreaElementK o) => o -> CLong -> m () +setDOMHTMLTextAreaElementMaxLength obj val = liftIO $ setObjectPropertyLong obj "max-length" val -constructDOMHTMLTextAreaElementMaxLength :: Int64 -> IO ([Char], GValue) -constructDOMHTMLTextAreaElementMaxLength val = constructObjectPropertyInt64 "max-length" val +constructDOMHTMLTextAreaElementMaxLength :: CLong -> IO ([Char], GValue) +constructDOMHTMLTextAreaElementMaxLength val = constructObjectPropertyLong "max-length" val data DOMHTMLTextAreaElementMaxLengthPropertyInfo instance AttrInfo DOMHTMLTextAreaElementMaxLengthPropertyInfo where type AttrAllowedOps DOMHTMLTextAreaElementMaxLengthPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLTextAreaElementMaxLengthPropertyInfo = (~) Int64 + type AttrSetTypeConstraint DOMHTMLTextAreaElementMaxLengthPropertyInfo = (~) CLong type AttrBaseTypeConstraint DOMHTMLTextAreaElementMaxLengthPropertyInfo = DOMHTMLTextAreaElementK - type AttrGetType DOMHTMLTextAreaElementMaxLengthPropertyInfo = Int64 + type AttrGetType DOMHTMLTextAreaElementMaxLengthPropertyInfo = CLong type AttrLabel DOMHTMLTextAreaElementMaxLengthPropertyInfo = "max-length" attrGet _ = getDOMHTMLTextAreaElementMaxLength attrSet _ = setDOMHTMLTextAreaElementMaxLength attrConstruct _ = constructDOMHTMLTextAreaElementMaxLength + attrClear _ = undefined -- VVV Prop "name" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Just False) -getDOMHTMLTextAreaElementName :: (MonadIO m, DOMHTMLTextAreaElementK o) => o -> m T.Text +getDOMHTMLTextAreaElementName :: (MonadIO m, DOMHTMLTextAreaElementK o) => o -> m (Maybe T.Text) getDOMHTMLTextAreaElementName obj = liftIO $ getObjectPropertyString obj "name" setDOMHTMLTextAreaElementName :: (MonadIO m, DOMHTMLTextAreaElementK o) => o -> T.Text -> m () -setDOMHTMLTextAreaElementName obj val = liftIO $ setObjectPropertyString obj "name" val +setDOMHTMLTextAreaElementName obj val = liftIO $ setObjectPropertyString obj "name" (Just val) constructDOMHTMLTextAreaElementName :: T.Text -> IO ([Char], GValue) -constructDOMHTMLTextAreaElementName val = constructObjectPropertyString "name" val +constructDOMHTMLTextAreaElementName val = constructObjectPropertyString "name" (Just val) data DOMHTMLTextAreaElementNamePropertyInfo instance AttrInfo DOMHTMLTextAreaElementNamePropertyInfo where type AttrAllowedOps DOMHTMLTextAreaElementNamePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint DOMHTMLTextAreaElementNamePropertyInfo = (~) T.Text type AttrBaseTypeConstraint DOMHTMLTextAreaElementNamePropertyInfo = DOMHTMLTextAreaElementK - type AttrGetType DOMHTMLTextAreaElementNamePropertyInfo = T.Text + type AttrGetType DOMHTMLTextAreaElementNamePropertyInfo = (Maybe T.Text) type AttrLabel DOMHTMLTextAreaElementNamePropertyInfo = "name" attrGet _ = getDOMHTMLTextAreaElementName attrSet _ = setDOMHTMLTextAreaElementName attrConstruct _ = constructDOMHTMLTextAreaElementName + attrClear _ = undefined -- VVV Prop "placeholder" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Just False) -getDOMHTMLTextAreaElementPlaceholder :: (MonadIO m, DOMHTMLTextAreaElementK o) => o -> m T.Text +getDOMHTMLTextAreaElementPlaceholder :: (MonadIO m, DOMHTMLTextAreaElementK o) => o -> m (Maybe T.Text) getDOMHTMLTextAreaElementPlaceholder obj = liftIO $ getObjectPropertyString obj "placeholder" setDOMHTMLTextAreaElementPlaceholder :: (MonadIO m, DOMHTMLTextAreaElementK o) => o -> T.Text -> m () -setDOMHTMLTextAreaElementPlaceholder obj val = liftIO $ setObjectPropertyString obj "placeholder" val +setDOMHTMLTextAreaElementPlaceholder obj val = liftIO $ setObjectPropertyString obj "placeholder" (Just val) constructDOMHTMLTextAreaElementPlaceholder :: T.Text -> IO ([Char], GValue) -constructDOMHTMLTextAreaElementPlaceholder val = constructObjectPropertyString "placeholder" val +constructDOMHTMLTextAreaElementPlaceholder val = constructObjectPropertyString "placeholder" (Just val) data DOMHTMLTextAreaElementPlaceholderPropertyInfo instance AttrInfo DOMHTMLTextAreaElementPlaceholderPropertyInfo where type AttrAllowedOps DOMHTMLTextAreaElementPlaceholderPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint DOMHTMLTextAreaElementPlaceholderPropertyInfo = (~) T.Text type AttrBaseTypeConstraint DOMHTMLTextAreaElementPlaceholderPropertyInfo = DOMHTMLTextAreaElementK - type AttrGetType DOMHTMLTextAreaElementPlaceholderPropertyInfo = T.Text + type AttrGetType DOMHTMLTextAreaElementPlaceholderPropertyInfo = (Maybe T.Text) type AttrLabel DOMHTMLTextAreaElementPlaceholderPropertyInfo = "placeholder" attrGet _ = getDOMHTMLTextAreaElementPlaceholder attrSet _ = setDOMHTMLTextAreaElementPlaceholder attrConstruct _ = constructDOMHTMLTextAreaElementPlaceholder + attrClear _ = undefined -- VVV Prop "read-only" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getDOMHTMLTextAreaElementReadOnly :: (MonadIO m, DOMHTMLTextAreaElementK o) => o -> m Bool getDOMHTMLTextAreaElementReadOnly obj = liftIO $ getObjectPropertyBool obj "read-only" @@ -969,10 +1019,12 @@ attrGet _ = getDOMHTMLTextAreaElementReadOnly attrSet _ = setDOMHTMLTextAreaElementReadOnly attrConstruct _ = constructDOMHTMLTextAreaElementReadOnly + attrClear _ = undefined -- VVV Prop "required" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getDOMHTMLTextAreaElementRequired :: (MonadIO m, DOMHTMLTextAreaElementK o) => o -> m Bool getDOMHTMLTextAreaElementRequired obj = liftIO $ getObjectPropertyBool obj "required" @@ -993,202 +1045,222 @@ attrGet _ = getDOMHTMLTextAreaElementRequired attrSet _ = setDOMHTMLTextAreaElementRequired attrConstruct _ = constructDOMHTMLTextAreaElementRequired + attrClear _ = undefined -- VVV Prop "rows" - -- Type: TBasicType TInt64 + -- Type: TBasicType TLong -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) -getDOMHTMLTextAreaElementRows :: (MonadIO m, DOMHTMLTextAreaElementK o) => o -> m Int64 -getDOMHTMLTextAreaElementRows obj = liftIO $ getObjectPropertyInt64 obj "rows" +getDOMHTMLTextAreaElementRows :: (MonadIO m, DOMHTMLTextAreaElementK o) => o -> m CLong +getDOMHTMLTextAreaElementRows obj = liftIO $ getObjectPropertyLong obj "rows" -setDOMHTMLTextAreaElementRows :: (MonadIO m, DOMHTMLTextAreaElementK o) => o -> Int64 -> m () -setDOMHTMLTextAreaElementRows obj val = liftIO $ setObjectPropertyInt64 obj "rows" val +setDOMHTMLTextAreaElementRows :: (MonadIO m, DOMHTMLTextAreaElementK o) => o -> CLong -> m () +setDOMHTMLTextAreaElementRows obj val = liftIO $ setObjectPropertyLong obj "rows" val -constructDOMHTMLTextAreaElementRows :: Int64 -> IO ([Char], GValue) -constructDOMHTMLTextAreaElementRows val = constructObjectPropertyInt64 "rows" val +constructDOMHTMLTextAreaElementRows :: CLong -> IO ([Char], GValue) +constructDOMHTMLTextAreaElementRows val = constructObjectPropertyLong "rows" val data DOMHTMLTextAreaElementRowsPropertyInfo instance AttrInfo DOMHTMLTextAreaElementRowsPropertyInfo where type AttrAllowedOps DOMHTMLTextAreaElementRowsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLTextAreaElementRowsPropertyInfo = (~) Int64 + type AttrSetTypeConstraint DOMHTMLTextAreaElementRowsPropertyInfo = (~) CLong type AttrBaseTypeConstraint DOMHTMLTextAreaElementRowsPropertyInfo = DOMHTMLTextAreaElementK - type AttrGetType DOMHTMLTextAreaElementRowsPropertyInfo = Int64 + type AttrGetType DOMHTMLTextAreaElementRowsPropertyInfo = CLong type AttrLabel DOMHTMLTextAreaElementRowsPropertyInfo = "rows" attrGet _ = getDOMHTMLTextAreaElementRows attrSet _ = setDOMHTMLTextAreaElementRows attrConstruct _ = constructDOMHTMLTextAreaElementRows + attrClear _ = undefined -- VVV Prop "selection-direction" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Just False) -getDOMHTMLTextAreaElementSelectionDirection :: (MonadIO m, DOMHTMLTextAreaElementK o) => o -> m T.Text +getDOMHTMLTextAreaElementSelectionDirection :: (MonadIO m, DOMHTMLTextAreaElementK o) => o -> m (Maybe T.Text) getDOMHTMLTextAreaElementSelectionDirection obj = liftIO $ getObjectPropertyString obj "selection-direction" setDOMHTMLTextAreaElementSelectionDirection :: (MonadIO m, DOMHTMLTextAreaElementK o) => o -> T.Text -> m () -setDOMHTMLTextAreaElementSelectionDirection obj val = liftIO $ setObjectPropertyString obj "selection-direction" val +setDOMHTMLTextAreaElementSelectionDirection obj val = liftIO $ setObjectPropertyString obj "selection-direction" (Just val) constructDOMHTMLTextAreaElementSelectionDirection :: T.Text -> IO ([Char], GValue) -constructDOMHTMLTextAreaElementSelectionDirection val = constructObjectPropertyString "selection-direction" val +constructDOMHTMLTextAreaElementSelectionDirection val = constructObjectPropertyString "selection-direction" (Just val) data DOMHTMLTextAreaElementSelectionDirectionPropertyInfo instance AttrInfo DOMHTMLTextAreaElementSelectionDirectionPropertyInfo where type AttrAllowedOps DOMHTMLTextAreaElementSelectionDirectionPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint DOMHTMLTextAreaElementSelectionDirectionPropertyInfo = (~) T.Text type AttrBaseTypeConstraint DOMHTMLTextAreaElementSelectionDirectionPropertyInfo = DOMHTMLTextAreaElementK - type AttrGetType DOMHTMLTextAreaElementSelectionDirectionPropertyInfo = T.Text + type AttrGetType DOMHTMLTextAreaElementSelectionDirectionPropertyInfo = (Maybe T.Text) type AttrLabel DOMHTMLTextAreaElementSelectionDirectionPropertyInfo = "selection-direction" attrGet _ = getDOMHTMLTextAreaElementSelectionDirection attrSet _ = setDOMHTMLTextAreaElementSelectionDirection attrConstruct _ = constructDOMHTMLTextAreaElementSelectionDirection + attrClear _ = undefined -- VVV Prop "selection-end" - -- Type: TBasicType TInt64 + -- Type: TBasicType TLong -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) -getDOMHTMLTextAreaElementSelectionEnd :: (MonadIO m, DOMHTMLTextAreaElementK o) => o -> m Int64 -getDOMHTMLTextAreaElementSelectionEnd obj = liftIO $ getObjectPropertyInt64 obj "selection-end" +getDOMHTMLTextAreaElementSelectionEnd :: (MonadIO m, DOMHTMLTextAreaElementK o) => o -> m CLong +getDOMHTMLTextAreaElementSelectionEnd obj = liftIO $ getObjectPropertyLong obj "selection-end" -setDOMHTMLTextAreaElementSelectionEnd :: (MonadIO m, DOMHTMLTextAreaElementK o) => o -> Int64 -> m () -setDOMHTMLTextAreaElementSelectionEnd obj val = liftIO $ setObjectPropertyInt64 obj "selection-end" val +setDOMHTMLTextAreaElementSelectionEnd :: (MonadIO m, DOMHTMLTextAreaElementK o) => o -> CLong -> m () +setDOMHTMLTextAreaElementSelectionEnd obj val = liftIO $ setObjectPropertyLong obj "selection-end" val -constructDOMHTMLTextAreaElementSelectionEnd :: Int64 -> IO ([Char], GValue) -constructDOMHTMLTextAreaElementSelectionEnd val = constructObjectPropertyInt64 "selection-end" val +constructDOMHTMLTextAreaElementSelectionEnd :: CLong -> IO ([Char], GValue) +constructDOMHTMLTextAreaElementSelectionEnd val = constructObjectPropertyLong "selection-end" val data DOMHTMLTextAreaElementSelectionEndPropertyInfo instance AttrInfo DOMHTMLTextAreaElementSelectionEndPropertyInfo where type AttrAllowedOps DOMHTMLTextAreaElementSelectionEndPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLTextAreaElementSelectionEndPropertyInfo = (~) Int64 + type AttrSetTypeConstraint DOMHTMLTextAreaElementSelectionEndPropertyInfo = (~) CLong type AttrBaseTypeConstraint DOMHTMLTextAreaElementSelectionEndPropertyInfo = DOMHTMLTextAreaElementK - type AttrGetType DOMHTMLTextAreaElementSelectionEndPropertyInfo = Int64 + type AttrGetType DOMHTMLTextAreaElementSelectionEndPropertyInfo = CLong type AttrLabel DOMHTMLTextAreaElementSelectionEndPropertyInfo = "selection-end" attrGet _ = getDOMHTMLTextAreaElementSelectionEnd attrSet _ = setDOMHTMLTextAreaElementSelectionEnd attrConstruct _ = constructDOMHTMLTextAreaElementSelectionEnd + attrClear _ = undefined -- VVV Prop "selection-start" - -- Type: TBasicType TInt64 + -- Type: TBasicType TLong -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) -getDOMHTMLTextAreaElementSelectionStart :: (MonadIO m, DOMHTMLTextAreaElementK o) => o -> m Int64 -getDOMHTMLTextAreaElementSelectionStart obj = liftIO $ getObjectPropertyInt64 obj "selection-start" +getDOMHTMLTextAreaElementSelectionStart :: (MonadIO m, DOMHTMLTextAreaElementK o) => o -> m CLong +getDOMHTMLTextAreaElementSelectionStart obj = liftIO $ getObjectPropertyLong obj "selection-start" -setDOMHTMLTextAreaElementSelectionStart :: (MonadIO m, DOMHTMLTextAreaElementK o) => o -> Int64 -> m () -setDOMHTMLTextAreaElementSelectionStart obj val = liftIO $ setObjectPropertyInt64 obj "selection-start" val +setDOMHTMLTextAreaElementSelectionStart :: (MonadIO m, DOMHTMLTextAreaElementK o) => o -> CLong -> m () +setDOMHTMLTextAreaElementSelectionStart obj val = liftIO $ setObjectPropertyLong obj "selection-start" val -constructDOMHTMLTextAreaElementSelectionStart :: Int64 -> IO ([Char], GValue) -constructDOMHTMLTextAreaElementSelectionStart val = constructObjectPropertyInt64 "selection-start" val +constructDOMHTMLTextAreaElementSelectionStart :: CLong -> IO ([Char], GValue) +constructDOMHTMLTextAreaElementSelectionStart val = constructObjectPropertyLong "selection-start" val data DOMHTMLTextAreaElementSelectionStartPropertyInfo instance AttrInfo DOMHTMLTextAreaElementSelectionStartPropertyInfo where type AttrAllowedOps DOMHTMLTextAreaElementSelectionStartPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLTextAreaElementSelectionStartPropertyInfo = (~) Int64 + type AttrSetTypeConstraint DOMHTMLTextAreaElementSelectionStartPropertyInfo = (~) CLong type AttrBaseTypeConstraint DOMHTMLTextAreaElementSelectionStartPropertyInfo = DOMHTMLTextAreaElementK - type AttrGetType DOMHTMLTextAreaElementSelectionStartPropertyInfo = Int64 + type AttrGetType DOMHTMLTextAreaElementSelectionStartPropertyInfo = CLong type AttrLabel DOMHTMLTextAreaElementSelectionStartPropertyInfo = "selection-start" attrGet _ = getDOMHTMLTextAreaElementSelectionStart attrSet _ = setDOMHTMLTextAreaElementSelectionStart attrConstruct _ = constructDOMHTMLTextAreaElementSelectionStart + attrClear _ = undefined -- VVV Prop "text-length" - -- Type: TBasicType TUInt64 + -- Type: TBasicType TULong -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) -getDOMHTMLTextAreaElementTextLength :: (MonadIO m, DOMHTMLTextAreaElementK o) => o -> m Word64 -getDOMHTMLTextAreaElementTextLength obj = liftIO $ getObjectPropertyUInt64 obj "text-length" +getDOMHTMLTextAreaElementTextLength :: (MonadIO m, DOMHTMLTextAreaElementK o) => o -> m CULong +getDOMHTMLTextAreaElementTextLength obj = liftIO $ getObjectPropertyULong obj "text-length" data DOMHTMLTextAreaElementTextLengthPropertyInfo instance AttrInfo DOMHTMLTextAreaElementTextLengthPropertyInfo where type AttrAllowedOps DOMHTMLTextAreaElementTextLengthPropertyInfo = '[ 'AttrGet] type AttrSetTypeConstraint DOMHTMLTextAreaElementTextLengthPropertyInfo = (~) () type AttrBaseTypeConstraint DOMHTMLTextAreaElementTextLengthPropertyInfo = DOMHTMLTextAreaElementK - type AttrGetType DOMHTMLTextAreaElementTextLengthPropertyInfo = Word64 + type AttrGetType DOMHTMLTextAreaElementTextLengthPropertyInfo = CULong type AttrLabel DOMHTMLTextAreaElementTextLengthPropertyInfo = "text-length" attrGet _ = getDOMHTMLTextAreaElementTextLength attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "type" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable] + -- Nullable: (Nothing,Nothing) -getDOMHTMLTextAreaElementType :: (MonadIO m, DOMHTMLTextAreaElementK o) => o -> m T.Text +getDOMHTMLTextAreaElementType :: (MonadIO m, DOMHTMLTextAreaElementK o) => o -> m (Maybe T.Text) getDOMHTMLTextAreaElementType obj = liftIO $ getObjectPropertyString obj "type" data DOMHTMLTextAreaElementTypePropertyInfo instance AttrInfo DOMHTMLTextAreaElementTypePropertyInfo where - type AttrAllowedOps DOMHTMLTextAreaElementTypePropertyInfo = '[ 'AttrGet] + type AttrAllowedOps DOMHTMLTextAreaElementTypePropertyInfo = '[ 'AttrGet, 'AttrClear] type AttrSetTypeConstraint DOMHTMLTextAreaElementTypePropertyInfo = (~) () type AttrBaseTypeConstraint DOMHTMLTextAreaElementTypePropertyInfo = DOMHTMLTextAreaElementK - type AttrGetType DOMHTMLTextAreaElementTypePropertyInfo = T.Text + type AttrGetType DOMHTMLTextAreaElementTypePropertyInfo = (Maybe T.Text) type AttrLabel DOMHTMLTextAreaElementTypePropertyInfo = "type" attrGet _ = getDOMHTMLTextAreaElementType attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "validation-message" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable] + -- Nullable: (Nothing,Nothing) -getDOMHTMLTextAreaElementValidationMessage :: (MonadIO m, DOMHTMLTextAreaElementK o) => o -> m T.Text +getDOMHTMLTextAreaElementValidationMessage :: (MonadIO m, DOMHTMLTextAreaElementK o) => o -> m (Maybe T.Text) getDOMHTMLTextAreaElementValidationMessage obj = liftIO $ getObjectPropertyString obj "validation-message" data DOMHTMLTextAreaElementValidationMessagePropertyInfo instance AttrInfo DOMHTMLTextAreaElementValidationMessagePropertyInfo where - type AttrAllowedOps DOMHTMLTextAreaElementValidationMessagePropertyInfo = '[ 'AttrGet] + type AttrAllowedOps DOMHTMLTextAreaElementValidationMessagePropertyInfo = '[ 'AttrGet, 'AttrClear] type AttrSetTypeConstraint DOMHTMLTextAreaElementValidationMessagePropertyInfo = (~) () type AttrBaseTypeConstraint DOMHTMLTextAreaElementValidationMessagePropertyInfo = DOMHTMLTextAreaElementK - type AttrGetType DOMHTMLTextAreaElementValidationMessagePropertyInfo = T.Text + type AttrGetType DOMHTMLTextAreaElementValidationMessagePropertyInfo = (Maybe T.Text) type AttrLabel DOMHTMLTextAreaElementValidationMessagePropertyInfo = "validation-message" attrGet _ = getDOMHTMLTextAreaElementValidationMessage attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "validity" -- Type: TInterface "WebKit" "DOMValidityState" -- Flags: [PropertyReadable] + -- Nullable: (Nothing,Nothing) -getDOMHTMLTextAreaElementValidity :: (MonadIO m, DOMHTMLTextAreaElementK o) => o -> m DOMValidityState +getDOMHTMLTextAreaElementValidity :: (MonadIO m, DOMHTMLTextAreaElementK o) => o -> m (Maybe DOMValidityState) getDOMHTMLTextAreaElementValidity obj = liftIO $ getObjectPropertyObject obj "validity" DOMValidityState data DOMHTMLTextAreaElementValidityPropertyInfo instance AttrInfo DOMHTMLTextAreaElementValidityPropertyInfo where - type AttrAllowedOps DOMHTMLTextAreaElementValidityPropertyInfo = '[ 'AttrGet] + type AttrAllowedOps DOMHTMLTextAreaElementValidityPropertyInfo = '[ 'AttrGet, 'AttrClear] type AttrSetTypeConstraint DOMHTMLTextAreaElementValidityPropertyInfo = (~) () type AttrBaseTypeConstraint DOMHTMLTextAreaElementValidityPropertyInfo = DOMHTMLTextAreaElementK - type AttrGetType DOMHTMLTextAreaElementValidityPropertyInfo = DOMValidityState + type AttrGetType DOMHTMLTextAreaElementValidityPropertyInfo = (Maybe DOMValidityState) type AttrLabel DOMHTMLTextAreaElementValidityPropertyInfo = "validity" attrGet _ = getDOMHTMLTextAreaElementValidity attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "value" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Just False) -getDOMHTMLTextAreaElementValue :: (MonadIO m, DOMHTMLTextAreaElementK o) => o -> m T.Text +getDOMHTMLTextAreaElementValue :: (MonadIO m, DOMHTMLTextAreaElementK o) => o -> m (Maybe T.Text) getDOMHTMLTextAreaElementValue obj = liftIO $ getObjectPropertyString obj "value" setDOMHTMLTextAreaElementValue :: (MonadIO m, DOMHTMLTextAreaElementK o) => o -> T.Text -> m () -setDOMHTMLTextAreaElementValue obj val = liftIO $ setObjectPropertyString obj "value" val +setDOMHTMLTextAreaElementValue obj val = liftIO $ setObjectPropertyString obj "value" (Just val) constructDOMHTMLTextAreaElementValue :: T.Text -> IO ([Char], GValue) -constructDOMHTMLTextAreaElementValue val = constructObjectPropertyString "value" val +constructDOMHTMLTextAreaElementValue val = constructObjectPropertyString "value" (Just val) data DOMHTMLTextAreaElementValuePropertyInfo instance AttrInfo DOMHTMLTextAreaElementValuePropertyInfo where type AttrAllowedOps DOMHTMLTextAreaElementValuePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint DOMHTMLTextAreaElementValuePropertyInfo = (~) T.Text type AttrBaseTypeConstraint DOMHTMLTextAreaElementValuePropertyInfo = DOMHTMLTextAreaElementK - type AttrGetType DOMHTMLTextAreaElementValuePropertyInfo = T.Text + type AttrGetType DOMHTMLTextAreaElementValuePropertyInfo = (Maybe T.Text) type AttrLabel DOMHTMLTextAreaElementValuePropertyInfo = "value" attrGet _ = getDOMHTMLTextAreaElementValue attrSet _ = setDOMHTMLTextAreaElementValue attrConstruct _ = constructDOMHTMLTextAreaElementValue + attrClear _ = undefined -- VVV Prop "will-validate" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) getDOMHTMLTextAreaElementWillValidate :: (MonadIO m, DOMHTMLTextAreaElementK o) => o -> m Bool getDOMHTMLTextAreaElementWillValidate obj = liftIO $ getObjectPropertyBool obj "will-validate" @@ -1203,34 +1275,112 @@ attrGet _ = getDOMHTMLTextAreaElementWillValidate attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "wrap" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Just False) -getDOMHTMLTextAreaElementWrap :: (MonadIO m, DOMHTMLTextAreaElementK o) => o -> m T.Text +getDOMHTMLTextAreaElementWrap :: (MonadIO m, DOMHTMLTextAreaElementK o) => o -> m (Maybe T.Text) getDOMHTMLTextAreaElementWrap obj = liftIO $ getObjectPropertyString obj "wrap" setDOMHTMLTextAreaElementWrap :: (MonadIO m, DOMHTMLTextAreaElementK o) => o -> T.Text -> m () -setDOMHTMLTextAreaElementWrap obj val = liftIO $ setObjectPropertyString obj "wrap" val +setDOMHTMLTextAreaElementWrap obj val = liftIO $ setObjectPropertyString obj "wrap" (Just val) constructDOMHTMLTextAreaElementWrap :: T.Text -> IO ([Char], GValue) -constructDOMHTMLTextAreaElementWrap val = constructObjectPropertyString "wrap" val +constructDOMHTMLTextAreaElementWrap val = constructObjectPropertyString "wrap" (Just val) data DOMHTMLTextAreaElementWrapPropertyInfo instance AttrInfo DOMHTMLTextAreaElementWrapPropertyInfo where type AttrAllowedOps DOMHTMLTextAreaElementWrapPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint DOMHTMLTextAreaElementWrapPropertyInfo = (~) T.Text type AttrBaseTypeConstraint DOMHTMLTextAreaElementWrapPropertyInfo = DOMHTMLTextAreaElementK - type AttrGetType DOMHTMLTextAreaElementWrapPropertyInfo = T.Text + type AttrGetType DOMHTMLTextAreaElementWrapPropertyInfo = (Maybe T.Text) type AttrLabel DOMHTMLTextAreaElementWrapPropertyInfo = "wrap" attrGet _ = getDOMHTMLTextAreaElementWrap attrSet _ = setDOMHTMLTextAreaElementWrap attrConstruct _ = constructDOMHTMLTextAreaElementWrap + attrClear _ = undefined type instance AttributeList DOMHTMLTextAreaElement = DOMHTMLTextAreaElementAttributeList type DOMHTMLTextAreaElementAttributeList = ('[ '("accessKey", DOMHTMLElementAccessKeyPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("autocapitalize", DOMHTMLTextAreaElementAutocapitalizePropertyInfo), '("autocorrect", DOMHTMLTextAreaElementAutocorrectPropertyInfo), '("autofocus", DOMHTMLTextAreaElementAutofocusPropertyInfo), '("baseUri", DOMNodeBaseUriPropertyInfo), '("childElementCount", DOMElementChildElementCountPropertyInfo), '("childNodes", DOMNodeChildNodesPropertyInfo), '("children", DOMHTMLElementChildrenPropertyInfo), '("classList", DOMElementClassListPropertyInfo), '("className", DOMElementClassNamePropertyInfo), '("clientHeight", DOMElementClientHeightPropertyInfo), '("clientLeft", DOMElementClientLeftPropertyInfo), '("clientTop", DOMElementClientTopPropertyInfo), '("clientWidth", DOMElementClientWidthPropertyInfo), '("cols", DOMHTMLTextAreaElementColsPropertyInfo), '("contentEditable", DOMHTMLElementContentEditablePropertyInfo), '("coreObject", DOMObjectCoreObjectPropertyInfo), '("defaultValue", DOMHTMLTextAreaElementDefaultValuePropertyInfo), '("dir", DOMHTMLElementDirPropertyInfo), '("dirName", DOMHTMLTextAreaElementDirNamePropertyInfo), '("disabled", DOMHTMLTextAreaElementDisabledPropertyInfo), '("draggable", DOMHTMLElementDraggablePropertyInfo), '("firstChild", DOMNodeFirstChildPropertyInfo), '("firstElementChild", DOMElementFirstElementChildPropertyInfo), '("form", DOMHTMLTextAreaElementFormPropertyInfo), '("hidden", DOMHTMLElementHiddenPropertyInfo), '("id", DOMElementIdPropertyInfo), '("innerHtml", DOMHTMLElementInnerHtmlPropertyInfo), '("innerText", DOMHTMLElementInnerTextPropertyInfo), '("isContentEditable", DOMHTMLElementIsContentEditablePropertyInfo), '("labels", DOMHTMLTextAreaElementLabelsPropertyInfo), '("lang", DOMHTMLElementLangPropertyInfo), '("lastChild", DOMNodeLastChildPropertyInfo), '("lastElementChild", DOMElementLastElementChildPropertyInfo), '("localName", DOMNodeLocalNamePropertyInfo), '("maxLength", DOMHTMLTextAreaElementMaxLengthPropertyInfo), '("name", DOMHTMLTextAreaElementNamePropertyInfo), '("namespaceUri", DOMNodeNamespaceUriPropertyInfo), '("nextElementSibling", DOMElementNextElementSiblingPropertyInfo), '("nextSibling", DOMNodeNextSiblingPropertyInfo), '("nodeName", DOMNodeNodeNamePropertyInfo), '("nodeType", DOMNodeNodeTypePropertyInfo), '("nodeValue", DOMNodeNodeValuePropertyInfo), '("offsetHeight", DOMElementOffsetHeightPropertyInfo), '("offsetLeft", DOMElementOffsetLeftPropertyInfo), '("offsetParent", DOMElementOffsetParentPropertyInfo), '("offsetTop", DOMElementOffsetTopPropertyInfo), '("offsetWidth", DOMElementOffsetWidthPropertyInfo), '("outerHtml", DOMHTMLElementOuterHtmlPropertyInfo), '("outerText", DOMHTMLElementOuterTextPropertyInfo), '("ownerDocument", DOMNodeOwnerDocumentPropertyInfo), '("parentElement", DOMNodeParentElementPropertyInfo), '("parentNode", DOMNodeParentNodePropertyInfo), '("placeholder", DOMHTMLTextAreaElementPlaceholderPropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previousElementSibling", DOMElementPreviousElementSiblingPropertyInfo), '("previousSibling", DOMNodePreviousSiblingPropertyInfo), '("readOnly", DOMHTMLTextAreaElementReadOnlyPropertyInfo), '("required", DOMHTMLTextAreaElementRequiredPropertyInfo), '("rows", DOMHTMLTextAreaElementRowsPropertyInfo), '("scrollHeight", DOMElementScrollHeightPropertyInfo), '("scrollLeft", DOMElementScrollLeftPropertyInfo), '("scrollTop", DOMElementScrollTopPropertyInfo), '("scrollWidth", DOMElementScrollWidthPropertyInfo), '("selectionDirection", DOMHTMLTextAreaElementSelectionDirectionPropertyInfo), '("selectionEnd", DOMHTMLTextAreaElementSelectionEndPropertyInfo), '("selectionStart", DOMHTMLTextAreaElementSelectionStartPropertyInfo), '("spellcheck", DOMHTMLElementSpellcheckPropertyInfo), '("style", DOMElementStylePropertyInfo), '("tabIndex", DOMHTMLElementTabIndexPropertyInfo), '("tagName", DOMElementTagNamePropertyInfo), '("textContent", DOMNodeTextContentPropertyInfo), '("textLength", DOMHTMLTextAreaElementTextLengthPropertyInfo), '("title", DOMHTMLElementTitlePropertyInfo), '("translate", DOMHTMLElementTranslatePropertyInfo), '("type", DOMHTMLTextAreaElementTypePropertyInfo), '("validationMessage", DOMHTMLTextAreaElementValidationMessagePropertyInfo), '("validity", DOMHTMLTextAreaElementValidityPropertyInfo), '("value", DOMHTMLTextAreaElementValuePropertyInfo), '("webkitRegionOverset", DOMElementWebkitRegionOversetPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo), '("willValidate", DOMHTMLTextAreaElementWillValidatePropertyInfo), '("wrap", DOMHTMLTextAreaElementWrapPropertyInfo)] :: [(Symbol, *)]) +dOMHTMLTextAreaElementAutocapitalize :: AttrLabelProxy "autocapitalize" +dOMHTMLTextAreaElementAutocapitalize = AttrLabelProxy + +dOMHTMLTextAreaElementAutocorrect :: AttrLabelProxy "autocorrect" +dOMHTMLTextAreaElementAutocorrect = AttrLabelProxy + +dOMHTMLTextAreaElementAutofocus :: AttrLabelProxy "autofocus" +dOMHTMLTextAreaElementAutofocus = AttrLabelProxy + +dOMHTMLTextAreaElementCols :: AttrLabelProxy "cols" +dOMHTMLTextAreaElementCols = AttrLabelProxy + +dOMHTMLTextAreaElementDefaultValue :: AttrLabelProxy "defaultValue" +dOMHTMLTextAreaElementDefaultValue = AttrLabelProxy + +dOMHTMLTextAreaElementDirName :: AttrLabelProxy "dirName" +dOMHTMLTextAreaElementDirName = AttrLabelProxy + +dOMHTMLTextAreaElementDisabled :: AttrLabelProxy "disabled" +dOMHTMLTextAreaElementDisabled = AttrLabelProxy + +dOMHTMLTextAreaElementForm :: AttrLabelProxy "form" +dOMHTMLTextAreaElementForm = AttrLabelProxy + +dOMHTMLTextAreaElementLabels :: AttrLabelProxy "labels" +dOMHTMLTextAreaElementLabels = AttrLabelProxy + +dOMHTMLTextAreaElementMaxLength :: AttrLabelProxy "maxLength" +dOMHTMLTextAreaElementMaxLength = AttrLabelProxy + +dOMHTMLTextAreaElementName :: AttrLabelProxy "name" +dOMHTMLTextAreaElementName = AttrLabelProxy + +dOMHTMLTextAreaElementPlaceholder :: AttrLabelProxy "placeholder" +dOMHTMLTextAreaElementPlaceholder = AttrLabelProxy + +dOMHTMLTextAreaElementReadOnly :: AttrLabelProxy "readOnly" +dOMHTMLTextAreaElementReadOnly = AttrLabelProxy + +dOMHTMLTextAreaElementRequired :: AttrLabelProxy "required" +dOMHTMLTextAreaElementRequired = AttrLabelProxy + +dOMHTMLTextAreaElementRows :: AttrLabelProxy "rows" +dOMHTMLTextAreaElementRows = AttrLabelProxy + +dOMHTMLTextAreaElementSelectionDirection :: AttrLabelProxy "selectionDirection" +dOMHTMLTextAreaElementSelectionDirection = AttrLabelProxy + +dOMHTMLTextAreaElementSelectionEnd :: AttrLabelProxy "selectionEnd" +dOMHTMLTextAreaElementSelectionEnd = AttrLabelProxy + +dOMHTMLTextAreaElementSelectionStart :: AttrLabelProxy "selectionStart" +dOMHTMLTextAreaElementSelectionStart = AttrLabelProxy + +dOMHTMLTextAreaElementTextLength :: AttrLabelProxy "textLength" +dOMHTMLTextAreaElementTextLength = AttrLabelProxy + +dOMHTMLTextAreaElementType :: AttrLabelProxy "type" +dOMHTMLTextAreaElementType = AttrLabelProxy + +dOMHTMLTextAreaElementValidationMessage :: AttrLabelProxy "validationMessage" +dOMHTMLTextAreaElementValidationMessage = AttrLabelProxy + +dOMHTMLTextAreaElementValidity :: AttrLabelProxy "validity" +dOMHTMLTextAreaElementValidity = AttrLabelProxy + +dOMHTMLTextAreaElementValue :: AttrLabelProxy "value" +dOMHTMLTextAreaElementValue = AttrLabelProxy + +dOMHTMLTextAreaElementWillValidate :: AttrLabelProxy "willValidate" +dOMHTMLTextAreaElementWillValidate = AttrLabelProxy + +dOMHTMLTextAreaElementWrap :: AttrLabelProxy "wrap" +dOMHTMLTextAreaElementWrap = AttrLabelProxy + type instance SignalList DOMHTMLTextAreaElement = DOMHTMLTextAreaElementSignalList type DOMHTMLTextAreaElementSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) @@ -1238,7 +1388,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLTextAreaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -1266,7 +1416,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLTextAreaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -1296,7 +1446,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLTextAreaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -1324,7 +1474,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLTextAreaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -1352,19 +1502,19 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLTextAreaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TInt64 +-- returnType : Just (TBasicType TLong) -- throws : False -- Skip return : False foreign import ccall "webkit_dom_html_text_area_element_get_cols" webkit_dom_html_text_area_element_get_cols :: Ptr DOMHTMLTextAreaElement -> -- _obj : TInterface "WebKit" "DOMHTMLTextAreaElement" - IO Int64 + IO CLong dOMHTMLTextAreaElementGetCols :: (MonadIO m, DOMHTMLTextAreaElementK a) => a -- _obj - -> m Int64 -- result + -> m CLong -- result dOMHTMLTextAreaElementGetCols _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- webkit_dom_html_text_area_element_get_cols _obj' @@ -1372,14 +1522,14 @@ return result data DOMHTMLTextAreaElementGetColsMethodInfo -instance (signature ~ (m Int64), MonadIO m, DOMHTMLTextAreaElementK a) => MethodInfo DOMHTMLTextAreaElementGetColsMethodInfo a signature where +instance (signature ~ (m CLong), MonadIO m, DOMHTMLTextAreaElementK a) => MethodInfo DOMHTMLTextAreaElementGetColsMethodInfo a signature where overloadedMethod _ = dOMHTMLTextAreaElementGetCols -- method DOMHTMLTextAreaElement::get_default_value -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLTextAreaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -1409,7 +1559,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLTextAreaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -1439,7 +1589,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLTextAreaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -1467,7 +1617,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLTextAreaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit" "DOMHTMLFormElement" +-- returnType : Just (TInterface "WebKit" "DOMHTMLFormElement") -- throws : False -- Skip return : False @@ -1496,7 +1646,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLTextAreaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit" "DOMNodeList" +-- returnType : Just (TInterface "WebKit" "DOMNodeList") -- throws : False -- Skip return : False @@ -1525,19 +1675,19 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLTextAreaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TInt64 +-- returnType : Just (TBasicType TLong) -- throws : False -- Skip return : False foreign import ccall "webkit_dom_html_text_area_element_get_max_length" webkit_dom_html_text_area_element_get_max_length :: Ptr DOMHTMLTextAreaElement -> -- _obj : TInterface "WebKit" "DOMHTMLTextAreaElement" - IO Int64 + IO CLong dOMHTMLTextAreaElementGetMaxLength :: (MonadIO m, DOMHTMLTextAreaElementK a) => a -- _obj - -> m Int64 -- result + -> m CLong -- result dOMHTMLTextAreaElementGetMaxLength _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- webkit_dom_html_text_area_element_get_max_length _obj' @@ -1545,14 +1695,14 @@ return result data DOMHTMLTextAreaElementGetMaxLengthMethodInfo -instance (signature ~ (m Int64), MonadIO m, DOMHTMLTextAreaElementK a) => MethodInfo DOMHTMLTextAreaElementGetMaxLengthMethodInfo a signature where +instance (signature ~ (m CLong), MonadIO m, DOMHTMLTextAreaElementK a) => MethodInfo DOMHTMLTextAreaElementGetMaxLengthMethodInfo a signature where overloadedMethod _ = dOMHTMLTextAreaElementGetMaxLength -- method DOMHTMLTextAreaElement::get_name -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLTextAreaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -1582,7 +1732,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLTextAreaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -1612,7 +1762,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLTextAreaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -1640,7 +1790,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLTextAreaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -1668,19 +1818,19 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLTextAreaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TInt64 +-- returnType : Just (TBasicType TLong) -- throws : False -- Skip return : False foreign import ccall "webkit_dom_html_text_area_element_get_rows" webkit_dom_html_text_area_element_get_rows :: Ptr DOMHTMLTextAreaElement -> -- _obj : TInterface "WebKit" "DOMHTMLTextAreaElement" - IO Int64 + IO CLong dOMHTMLTextAreaElementGetRows :: (MonadIO m, DOMHTMLTextAreaElementK a) => a -- _obj - -> m Int64 -- result + -> m CLong -- result dOMHTMLTextAreaElementGetRows _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- webkit_dom_html_text_area_element_get_rows _obj' @@ -1688,14 +1838,14 @@ return result data DOMHTMLTextAreaElementGetRowsMethodInfo -instance (signature ~ (m Int64), MonadIO m, DOMHTMLTextAreaElementK a) => MethodInfo DOMHTMLTextAreaElementGetRowsMethodInfo a signature where +instance (signature ~ (m CLong), MonadIO m, DOMHTMLTextAreaElementK a) => MethodInfo DOMHTMLTextAreaElementGetRowsMethodInfo a signature where overloadedMethod _ = dOMHTMLTextAreaElementGetRows -- method DOMHTMLTextAreaElement::get_selection_direction -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLTextAreaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -1725,19 +1875,19 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLTextAreaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TInt64 +-- returnType : Just (TBasicType TLong) -- throws : False -- Skip return : False foreign import ccall "webkit_dom_html_text_area_element_get_selection_end" webkit_dom_html_text_area_element_get_selection_end :: Ptr DOMHTMLTextAreaElement -> -- _obj : TInterface "WebKit" "DOMHTMLTextAreaElement" - IO Int64 + IO CLong dOMHTMLTextAreaElementGetSelectionEnd :: (MonadIO m, DOMHTMLTextAreaElementK a) => a -- _obj - -> m Int64 -- result + -> m CLong -- result dOMHTMLTextAreaElementGetSelectionEnd _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- webkit_dom_html_text_area_element_get_selection_end _obj' @@ -1745,26 +1895,26 @@ return result data DOMHTMLTextAreaElementGetSelectionEndMethodInfo -instance (signature ~ (m Int64), MonadIO m, DOMHTMLTextAreaElementK a) => MethodInfo DOMHTMLTextAreaElementGetSelectionEndMethodInfo a signature where +instance (signature ~ (m CLong), MonadIO m, DOMHTMLTextAreaElementK a) => MethodInfo DOMHTMLTextAreaElementGetSelectionEndMethodInfo a signature where overloadedMethod _ = dOMHTMLTextAreaElementGetSelectionEnd -- method DOMHTMLTextAreaElement::get_selection_start -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLTextAreaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TInt64 +-- returnType : Just (TBasicType TLong) -- throws : False -- Skip return : False foreign import ccall "webkit_dom_html_text_area_element_get_selection_start" webkit_dom_html_text_area_element_get_selection_start :: Ptr DOMHTMLTextAreaElement -> -- _obj : TInterface "WebKit" "DOMHTMLTextAreaElement" - IO Int64 + IO CLong dOMHTMLTextAreaElementGetSelectionStart :: (MonadIO m, DOMHTMLTextAreaElementK a) => a -- _obj - -> m Int64 -- result + -> m CLong -- result dOMHTMLTextAreaElementGetSelectionStart _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- webkit_dom_html_text_area_element_get_selection_start _obj' @@ -1772,26 +1922,26 @@ return result data DOMHTMLTextAreaElementGetSelectionStartMethodInfo -instance (signature ~ (m Int64), MonadIO m, DOMHTMLTextAreaElementK a) => MethodInfo DOMHTMLTextAreaElementGetSelectionStartMethodInfo a signature where +instance (signature ~ (m CLong), MonadIO m, DOMHTMLTextAreaElementK a) => MethodInfo DOMHTMLTextAreaElementGetSelectionStartMethodInfo a signature where overloadedMethod _ = dOMHTMLTextAreaElementGetSelectionStart -- method DOMHTMLTextAreaElement::get_text_length -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLTextAreaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUInt64 +-- returnType : Just (TBasicType TULong) -- throws : False -- Skip return : False foreign import ccall "webkit_dom_html_text_area_element_get_text_length" webkit_dom_html_text_area_element_get_text_length :: Ptr DOMHTMLTextAreaElement -> -- _obj : TInterface "WebKit" "DOMHTMLTextAreaElement" - IO Word64 + IO CULong dOMHTMLTextAreaElementGetTextLength :: (MonadIO m, DOMHTMLTextAreaElementK a) => a -- _obj - -> m Word64 -- result + -> m CULong -- result dOMHTMLTextAreaElementGetTextLength _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- webkit_dom_html_text_area_element_get_text_length _obj' @@ -1799,14 +1949,14 @@ return result data DOMHTMLTextAreaElementGetTextLengthMethodInfo -instance (signature ~ (m Word64), MonadIO m, DOMHTMLTextAreaElementK a) => MethodInfo DOMHTMLTextAreaElementGetTextLengthMethodInfo a signature where +instance (signature ~ (m CULong), MonadIO m, DOMHTMLTextAreaElementK a) => MethodInfo DOMHTMLTextAreaElementGetTextLengthMethodInfo a signature where overloadedMethod _ = dOMHTMLTextAreaElementGetTextLength -- method DOMHTMLTextAreaElement::get_validation_message -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLTextAreaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -1836,7 +1986,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLTextAreaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit" "DOMValidityState" +-- returnType : Just (TInterface "WebKit" "DOMValidityState") -- throws : False -- Skip return : False @@ -1865,7 +2015,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLTextAreaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -1895,7 +2045,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLTextAreaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -1923,7 +2073,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLTextAreaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -1953,7 +2103,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLTextAreaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -1981,7 +2131,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLTextAreaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -2008,7 +2158,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLTextAreaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -2039,7 +2189,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLTextAreaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -2069,7 +2219,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLTextAreaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -2097,22 +2247,22 @@ -- method DOMHTMLTextAreaElement::set_cols -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLTextAreaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLTextAreaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TLong, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "webkit_dom_html_text_area_element_set_cols" webkit_dom_html_text_area_element_set_cols :: Ptr DOMHTMLTextAreaElement -> -- _obj : TInterface "WebKit" "DOMHTMLTextAreaElement" - Int64 -> -- value : TBasicType TInt64 + CLong -> -- value : TBasicType TLong IO () dOMHTMLTextAreaElementSetCols :: (MonadIO m, DOMHTMLTextAreaElementK a) => a -- _obj - -> Int64 -- value + -> CLong -- value -> m () -- result dOMHTMLTextAreaElementSetCols _obj value = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj @@ -2121,14 +2271,14 @@ return () data DOMHTMLTextAreaElementSetColsMethodInfo -instance (signature ~ (Int64 -> m ()), MonadIO m, DOMHTMLTextAreaElementK a) => MethodInfo DOMHTMLTextAreaElementSetColsMethodInfo a signature where +instance (signature ~ (CLong -> m ()), MonadIO m, DOMHTMLTextAreaElementK a) => MethodInfo DOMHTMLTextAreaElementSetColsMethodInfo a signature where overloadedMethod _ = dOMHTMLTextAreaElementSetCols -- method DOMHTMLTextAreaElement::set_custom_validity -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLTextAreaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "error", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -2159,7 +2309,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLTextAreaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -2190,7 +2340,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLTextAreaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -2221,7 +2371,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLTextAreaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -2249,15 +2399,15 @@ -- method DOMHTMLTextAreaElement::set_max_length -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLTextAreaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLTextAreaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TLong, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : True -- Skip return : False foreign import ccall "webkit_dom_html_text_area_element_set_max_length" webkit_dom_html_text_area_element_set_max_length :: Ptr DOMHTMLTextAreaElement -> -- _obj : TInterface "WebKit" "DOMHTMLTextAreaElement" - Int64 -> -- value : TBasicType TInt64 + CLong -> -- value : TBasicType TLong Ptr (Ptr GError) -> -- error IO () @@ -2265,7 +2415,7 @@ dOMHTMLTextAreaElementSetMaxLength :: (MonadIO m, DOMHTMLTextAreaElementK a) => a -- _obj - -> Int64 -- value + -> CLong -- value -> m () -- result dOMHTMLTextAreaElementSetMaxLength _obj value = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj @@ -2278,14 +2428,14 @@ ) data DOMHTMLTextAreaElementSetMaxLengthMethodInfo -instance (signature ~ (Int64 -> m ()), MonadIO m, DOMHTMLTextAreaElementK a) => MethodInfo DOMHTMLTextAreaElementSetMaxLengthMethodInfo a signature where +instance (signature ~ (CLong -> m ()), MonadIO m, DOMHTMLTextAreaElementK a) => MethodInfo DOMHTMLTextAreaElementSetMaxLengthMethodInfo a signature where overloadedMethod _ = dOMHTMLTextAreaElementSetMaxLength -- method DOMHTMLTextAreaElement::set_name -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLTextAreaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -2316,7 +2466,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLTextAreaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -2345,17 +2495,17 @@ -- method DOMHTMLTextAreaElement::set_range_text -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLTextAreaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "replacement", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "start", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "end", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "selectionMode", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLTextAreaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "replacement", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "start", argType = TBasicType TULong, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "end", argType = TBasicType TULong, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "selectionMode", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : True -- Skip return : False foreign import ccall "webkit_dom_html_text_area_element_set_range_text" webkit_dom_html_text_area_element_set_range_text :: Ptr DOMHTMLTextAreaElement -> -- _obj : TInterface "WebKit" "DOMHTMLTextAreaElement" CString -> -- replacement : TBasicType TUTF8 - Word64 -> -- start : TBasicType TUInt64 - Word64 -> -- end : TBasicType TUInt64 + CULong -> -- start : TBasicType TULong + CULong -> -- end : TBasicType TULong CString -> -- selectionMode : TBasicType TUTF8 Ptr (Ptr GError) -> -- error IO () @@ -2365,8 +2515,8 @@ (MonadIO m, DOMHTMLTextAreaElementK a) => a -- _obj -> T.Text -- replacement - -> Word64 -- start - -> Word64 -- end + -> CULong -- start + -> CULong -- end -> T.Text -- selectionMode -> m () -- result dOMHTMLTextAreaElementSetRangeText _obj replacement start end selectionMode = liftIO $ do @@ -2385,14 +2535,14 @@ ) data DOMHTMLTextAreaElementSetRangeTextMethodInfo -instance (signature ~ (T.Text -> Word64 -> Word64 -> T.Text -> m ()), MonadIO m, DOMHTMLTextAreaElementK a) => MethodInfo DOMHTMLTextAreaElementSetRangeTextMethodInfo a signature where +instance (signature ~ (T.Text -> CULong -> CULong -> T.Text -> m ()), MonadIO m, DOMHTMLTextAreaElementK a) => MethodInfo DOMHTMLTextAreaElementSetRangeTextMethodInfo a signature where overloadedMethod _ = dOMHTMLTextAreaElementSetRangeText -- method DOMHTMLTextAreaElement::set_read_only -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLTextAreaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -2422,7 +2572,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLTextAreaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -2450,22 +2600,22 @@ -- method DOMHTMLTextAreaElement::set_rows -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLTextAreaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLTextAreaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TLong, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "webkit_dom_html_text_area_element_set_rows" webkit_dom_html_text_area_element_set_rows :: Ptr DOMHTMLTextAreaElement -> -- _obj : TInterface "WebKit" "DOMHTMLTextAreaElement" - Int64 -> -- value : TBasicType TInt64 + CLong -> -- value : TBasicType TLong IO () dOMHTMLTextAreaElementSetRows :: (MonadIO m, DOMHTMLTextAreaElementK a) => a -- _obj - -> Int64 -- value + -> CLong -- value -> m () -- result dOMHTMLTextAreaElementSetRows _obj value = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj @@ -2474,14 +2624,14 @@ return () data DOMHTMLTextAreaElementSetRowsMethodInfo -instance (signature ~ (Int64 -> m ()), MonadIO m, DOMHTMLTextAreaElementK a) => MethodInfo DOMHTMLTextAreaElementSetRowsMethodInfo a signature where +instance (signature ~ (CLong -> m ()), MonadIO m, DOMHTMLTextAreaElementK a) => MethodInfo DOMHTMLTextAreaElementSetRowsMethodInfo a signature where overloadedMethod _ = dOMHTMLTextAreaElementSetRows -- method DOMHTMLTextAreaElement::set_selection_direction -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLTextAreaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -2510,22 +2660,22 @@ -- method DOMHTMLTextAreaElement::set_selection_end -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLTextAreaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLTextAreaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TLong, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "webkit_dom_html_text_area_element_set_selection_end" webkit_dom_html_text_area_element_set_selection_end :: Ptr DOMHTMLTextAreaElement -> -- _obj : TInterface "WebKit" "DOMHTMLTextAreaElement" - Int64 -> -- value : TBasicType TInt64 + CLong -> -- value : TBasicType TLong IO () dOMHTMLTextAreaElementSetSelectionEnd :: (MonadIO m, DOMHTMLTextAreaElementK a) => a -- _obj - -> Int64 -- value + -> CLong -- value -> m () -- result dOMHTMLTextAreaElementSetSelectionEnd _obj value = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj @@ -2534,21 +2684,21 @@ return () data DOMHTMLTextAreaElementSetSelectionEndMethodInfo -instance (signature ~ (Int64 -> m ()), MonadIO m, DOMHTMLTextAreaElementK a) => MethodInfo DOMHTMLTextAreaElementSetSelectionEndMethodInfo a signature where +instance (signature ~ (CLong -> m ()), MonadIO m, DOMHTMLTextAreaElementK a) => MethodInfo DOMHTMLTextAreaElementSetSelectionEndMethodInfo a signature where overloadedMethod _ = dOMHTMLTextAreaElementSetSelectionEnd -- method DOMHTMLTextAreaElement::set_selection_range -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLTextAreaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "start", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "end", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "direction", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLTextAreaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "start", argType = TBasicType TLong, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "end", argType = TBasicType TLong, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "direction", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "webkit_dom_html_text_area_element_set_selection_range" webkit_dom_html_text_area_element_set_selection_range :: Ptr DOMHTMLTextAreaElement -> -- _obj : TInterface "WebKit" "DOMHTMLTextAreaElement" - Int64 -> -- start : TBasicType TInt64 - Int64 -> -- end : TBasicType TInt64 + CLong -> -- start : TBasicType TLong + CLong -> -- end : TBasicType TLong CString -> -- direction : TBasicType TUTF8 IO () @@ -2556,8 +2706,8 @@ dOMHTMLTextAreaElementSetSelectionRange :: (MonadIO m, DOMHTMLTextAreaElementK a) => a -- _obj - -> Int64 -- start - -> Int64 -- end + -> CLong -- start + -> CLong -- end -> T.Text -- direction -> m () -- result dOMHTMLTextAreaElementSetSelectionRange _obj start end direction = liftIO $ do @@ -2569,27 +2719,27 @@ return () data DOMHTMLTextAreaElementSetSelectionRangeMethodInfo -instance (signature ~ (Int64 -> Int64 -> T.Text -> m ()), MonadIO m, DOMHTMLTextAreaElementK a) => MethodInfo DOMHTMLTextAreaElementSetSelectionRangeMethodInfo a signature where +instance (signature ~ (CLong -> CLong -> T.Text -> m ()), MonadIO m, DOMHTMLTextAreaElementK a) => MethodInfo DOMHTMLTextAreaElementSetSelectionRangeMethodInfo a signature where overloadedMethod _ = dOMHTMLTextAreaElementSetSelectionRange -- method DOMHTMLTextAreaElement::set_selection_start -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLTextAreaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLTextAreaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TLong, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "webkit_dom_html_text_area_element_set_selection_start" webkit_dom_html_text_area_element_set_selection_start :: Ptr DOMHTMLTextAreaElement -> -- _obj : TInterface "WebKit" "DOMHTMLTextAreaElement" - Int64 -> -- value : TBasicType TInt64 + CLong -> -- value : TBasicType TLong IO () dOMHTMLTextAreaElementSetSelectionStart :: (MonadIO m, DOMHTMLTextAreaElementK a) => a -- _obj - -> Int64 -- value + -> CLong -- value -> m () -- result dOMHTMLTextAreaElementSetSelectionStart _obj value = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj @@ -2598,14 +2748,14 @@ return () data DOMHTMLTextAreaElementSetSelectionStartMethodInfo -instance (signature ~ (Int64 -> m ()), MonadIO m, DOMHTMLTextAreaElementK a) => MethodInfo DOMHTMLTextAreaElementSetSelectionStartMethodInfo a signature where +instance (signature ~ (CLong -> m ()), MonadIO m, DOMHTMLTextAreaElementK a) => MethodInfo DOMHTMLTextAreaElementSetSelectionStartMethodInfo a signature where overloadedMethod _ = dOMHTMLTextAreaElementSetSelectionStart -- method DOMHTMLTextAreaElement::set_value -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLTextAreaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -2636,7 +2786,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLTextAreaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False diff --git a/GI/WebKit/Objects/DOMHTMLTextAreaElement.hs-boot b/GI/WebKit/Objects/DOMHTMLTextAreaElement.hs-boot --- a/GI/WebKit/Objects/DOMHTMLTextAreaElement.hs-boot +++ b/GI/WebKit/Objects/DOMHTMLTextAreaElement.hs-boot @@ -1,8 +1,8 @@ module GI.WebKit.Objects.DOMHTMLTextAreaElement where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map diff --git a/GI/WebKit/Objects/DOMHTMLTitleElement.hs b/GI/WebKit/Objects/DOMHTMLTitleElement.hs --- a/GI/WebKit/Objects/DOMHTMLTitleElement.hs +++ b/GI/WebKit/Objects/DOMHTMLTitleElement.hs @@ -33,6 +33,7 @@ -- ** Text DOMHTMLTitleElementTextPropertyInfo , constructDOMHTMLTitleElementText , + dOMHTMLTitleElementText , getDOMHTMLTitleElementText , setDOMHTMLTitleElementText , @@ -41,9 +42,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map @@ -243,30 +244,35 @@ -- VVV Prop "text" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Just False) -getDOMHTMLTitleElementText :: (MonadIO m, DOMHTMLTitleElementK o) => o -> m T.Text +getDOMHTMLTitleElementText :: (MonadIO m, DOMHTMLTitleElementK o) => o -> m (Maybe T.Text) getDOMHTMLTitleElementText obj = liftIO $ getObjectPropertyString obj "text" setDOMHTMLTitleElementText :: (MonadIO m, DOMHTMLTitleElementK o) => o -> T.Text -> m () -setDOMHTMLTitleElementText obj val = liftIO $ setObjectPropertyString obj "text" val +setDOMHTMLTitleElementText obj val = liftIO $ setObjectPropertyString obj "text" (Just val) constructDOMHTMLTitleElementText :: T.Text -> IO ([Char], GValue) -constructDOMHTMLTitleElementText val = constructObjectPropertyString "text" val +constructDOMHTMLTitleElementText val = constructObjectPropertyString "text" (Just val) data DOMHTMLTitleElementTextPropertyInfo instance AttrInfo DOMHTMLTitleElementTextPropertyInfo where type AttrAllowedOps DOMHTMLTitleElementTextPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint DOMHTMLTitleElementTextPropertyInfo = (~) T.Text type AttrBaseTypeConstraint DOMHTMLTitleElementTextPropertyInfo = DOMHTMLTitleElementK - type AttrGetType DOMHTMLTitleElementTextPropertyInfo = T.Text + type AttrGetType DOMHTMLTitleElementTextPropertyInfo = (Maybe T.Text) type AttrLabel DOMHTMLTitleElementTextPropertyInfo = "text" attrGet _ = getDOMHTMLTitleElementText attrSet _ = setDOMHTMLTitleElementText attrConstruct _ = constructDOMHTMLTitleElementText + attrClear _ = undefined type instance AttributeList DOMHTMLTitleElement = DOMHTMLTitleElementAttributeList type DOMHTMLTitleElementAttributeList = ('[ '("accessKey", DOMHTMLElementAccessKeyPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("baseUri", DOMNodeBaseUriPropertyInfo), '("childElementCount", DOMElementChildElementCountPropertyInfo), '("childNodes", DOMNodeChildNodesPropertyInfo), '("children", DOMHTMLElementChildrenPropertyInfo), '("classList", DOMElementClassListPropertyInfo), '("className", DOMElementClassNamePropertyInfo), '("clientHeight", DOMElementClientHeightPropertyInfo), '("clientLeft", DOMElementClientLeftPropertyInfo), '("clientTop", DOMElementClientTopPropertyInfo), '("clientWidth", DOMElementClientWidthPropertyInfo), '("contentEditable", DOMHTMLElementContentEditablePropertyInfo), '("coreObject", DOMObjectCoreObjectPropertyInfo), '("dir", DOMHTMLElementDirPropertyInfo), '("draggable", DOMHTMLElementDraggablePropertyInfo), '("firstChild", DOMNodeFirstChildPropertyInfo), '("firstElementChild", DOMElementFirstElementChildPropertyInfo), '("hidden", DOMHTMLElementHiddenPropertyInfo), '("id", DOMElementIdPropertyInfo), '("innerHtml", DOMHTMLElementInnerHtmlPropertyInfo), '("innerText", DOMHTMLElementInnerTextPropertyInfo), '("isContentEditable", DOMHTMLElementIsContentEditablePropertyInfo), '("lang", DOMHTMLElementLangPropertyInfo), '("lastChild", DOMNodeLastChildPropertyInfo), '("lastElementChild", DOMElementLastElementChildPropertyInfo), '("localName", DOMNodeLocalNamePropertyInfo), '("namespaceUri", DOMNodeNamespaceUriPropertyInfo), '("nextElementSibling", DOMElementNextElementSiblingPropertyInfo), '("nextSibling", DOMNodeNextSiblingPropertyInfo), '("nodeName", DOMNodeNodeNamePropertyInfo), '("nodeType", DOMNodeNodeTypePropertyInfo), '("nodeValue", DOMNodeNodeValuePropertyInfo), '("offsetHeight", DOMElementOffsetHeightPropertyInfo), '("offsetLeft", DOMElementOffsetLeftPropertyInfo), '("offsetParent", DOMElementOffsetParentPropertyInfo), '("offsetTop", DOMElementOffsetTopPropertyInfo), '("offsetWidth", DOMElementOffsetWidthPropertyInfo), '("outerHtml", DOMHTMLElementOuterHtmlPropertyInfo), '("outerText", DOMHTMLElementOuterTextPropertyInfo), '("ownerDocument", DOMNodeOwnerDocumentPropertyInfo), '("parentElement", DOMNodeParentElementPropertyInfo), '("parentNode", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previousElementSibling", DOMElementPreviousElementSiblingPropertyInfo), '("previousSibling", DOMNodePreviousSiblingPropertyInfo), '("scrollHeight", DOMElementScrollHeightPropertyInfo), '("scrollLeft", DOMElementScrollLeftPropertyInfo), '("scrollTop", DOMElementScrollTopPropertyInfo), '("scrollWidth", DOMElementScrollWidthPropertyInfo), '("spellcheck", DOMHTMLElementSpellcheckPropertyInfo), '("style", DOMElementStylePropertyInfo), '("tabIndex", DOMHTMLElementTabIndexPropertyInfo), '("tagName", DOMElementTagNamePropertyInfo), '("text", DOMHTMLTitleElementTextPropertyInfo), '("textContent", DOMNodeTextContentPropertyInfo), '("title", DOMHTMLElementTitlePropertyInfo), '("translate", DOMHTMLElementTranslatePropertyInfo), '("webkitRegionOverset", DOMElementWebkitRegionOversetPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo)] :: [(Symbol, *)]) +dOMHTMLTitleElementText :: AttrLabelProxy "text" +dOMHTMLTitleElementText = AttrLabelProxy + type instance SignalList DOMHTMLTitleElement = DOMHTMLTitleElementSignalList type DOMHTMLTitleElementSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) @@ -274,7 +280,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLTitleElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -304,7 +310,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLTitleElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False diff --git a/GI/WebKit/Objects/DOMHTMLTitleElement.hs-boot b/GI/WebKit/Objects/DOMHTMLTitleElement.hs-boot --- a/GI/WebKit/Objects/DOMHTMLTitleElement.hs-boot +++ b/GI/WebKit/Objects/DOMHTMLTitleElement.hs-boot @@ -1,8 +1,8 @@ module GI.WebKit.Objects.DOMHTMLTitleElement where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map diff --git a/GI/WebKit/Objects/DOMHTMLUListElement.hs b/GI/WebKit/Objects/DOMHTMLUListElement.hs --- a/GI/WebKit/Objects/DOMHTMLUListElement.hs +++ b/GI/WebKit/Objects/DOMHTMLUListElement.hs @@ -33,13 +33,16 @@ -- ** Compact DOMHTMLUListElementCompactPropertyInfo , constructDOMHTMLUListElementCompact , + dOMHTMLUListElementCompact , getDOMHTMLUListElementCompact , setDOMHTMLUListElementCompact , -- ** Type DOMHTMLUListElementTypePropertyInfo , + clearDOMHTMLUListElementType , constructDOMHTMLUListElementType , + dOMHTMLUListElementType , getDOMHTMLUListElementType , setDOMHTMLUListElementType , @@ -48,9 +51,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map @@ -250,6 +253,7 @@ -- VVV Prop "compact" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getDOMHTMLUListElementCompact :: (MonadIO m, DOMHTMLUListElementK o) => o -> m Bool getDOMHTMLUListElementCompact obj = liftIO $ getObjectPropertyBool obj "compact" @@ -270,34 +274,46 @@ attrGet _ = getDOMHTMLUListElementCompact attrSet _ = setDOMHTMLUListElementCompact attrConstruct _ = constructDOMHTMLUListElementCompact + attrClear _ = undefined -- VVV Prop "type" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) -getDOMHTMLUListElementType :: (MonadIO m, DOMHTMLUListElementK o) => o -> m T.Text +getDOMHTMLUListElementType :: (MonadIO m, DOMHTMLUListElementK o) => o -> m (Maybe T.Text) getDOMHTMLUListElementType obj = liftIO $ getObjectPropertyString obj "type" setDOMHTMLUListElementType :: (MonadIO m, DOMHTMLUListElementK o) => o -> T.Text -> m () -setDOMHTMLUListElementType obj val = liftIO $ setObjectPropertyString obj "type" val +setDOMHTMLUListElementType obj val = liftIO $ setObjectPropertyString obj "type" (Just val) constructDOMHTMLUListElementType :: T.Text -> IO ([Char], GValue) -constructDOMHTMLUListElementType val = constructObjectPropertyString "type" val +constructDOMHTMLUListElementType val = constructObjectPropertyString "type" (Just val) +clearDOMHTMLUListElementType :: (MonadIO m, DOMHTMLUListElementK o) => o -> m () +clearDOMHTMLUListElementType obj = liftIO $ setObjectPropertyString obj "type" (Nothing :: Maybe T.Text) + data DOMHTMLUListElementTypePropertyInfo instance AttrInfo DOMHTMLUListElementTypePropertyInfo where - type AttrAllowedOps DOMHTMLUListElementTypePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrAllowedOps DOMHTMLUListElementTypePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint DOMHTMLUListElementTypePropertyInfo = (~) T.Text type AttrBaseTypeConstraint DOMHTMLUListElementTypePropertyInfo = DOMHTMLUListElementK - type AttrGetType DOMHTMLUListElementTypePropertyInfo = T.Text + type AttrGetType DOMHTMLUListElementTypePropertyInfo = (Maybe T.Text) type AttrLabel DOMHTMLUListElementTypePropertyInfo = "type" attrGet _ = getDOMHTMLUListElementType attrSet _ = setDOMHTMLUListElementType attrConstruct _ = constructDOMHTMLUListElementType + attrClear _ = clearDOMHTMLUListElementType type instance AttributeList DOMHTMLUListElement = DOMHTMLUListElementAttributeList type DOMHTMLUListElementAttributeList = ('[ '("accessKey", DOMHTMLElementAccessKeyPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("baseUri", DOMNodeBaseUriPropertyInfo), '("childElementCount", DOMElementChildElementCountPropertyInfo), '("childNodes", DOMNodeChildNodesPropertyInfo), '("children", DOMHTMLElementChildrenPropertyInfo), '("classList", DOMElementClassListPropertyInfo), '("className", DOMElementClassNamePropertyInfo), '("clientHeight", DOMElementClientHeightPropertyInfo), '("clientLeft", DOMElementClientLeftPropertyInfo), '("clientTop", DOMElementClientTopPropertyInfo), '("clientWidth", DOMElementClientWidthPropertyInfo), '("compact", DOMHTMLUListElementCompactPropertyInfo), '("contentEditable", DOMHTMLElementContentEditablePropertyInfo), '("coreObject", DOMObjectCoreObjectPropertyInfo), '("dir", DOMHTMLElementDirPropertyInfo), '("draggable", DOMHTMLElementDraggablePropertyInfo), '("firstChild", DOMNodeFirstChildPropertyInfo), '("firstElementChild", DOMElementFirstElementChildPropertyInfo), '("hidden", DOMHTMLElementHiddenPropertyInfo), '("id", DOMElementIdPropertyInfo), '("innerHtml", DOMHTMLElementInnerHtmlPropertyInfo), '("innerText", DOMHTMLElementInnerTextPropertyInfo), '("isContentEditable", DOMHTMLElementIsContentEditablePropertyInfo), '("lang", DOMHTMLElementLangPropertyInfo), '("lastChild", DOMNodeLastChildPropertyInfo), '("lastElementChild", DOMElementLastElementChildPropertyInfo), '("localName", DOMNodeLocalNamePropertyInfo), '("namespaceUri", DOMNodeNamespaceUriPropertyInfo), '("nextElementSibling", DOMElementNextElementSiblingPropertyInfo), '("nextSibling", DOMNodeNextSiblingPropertyInfo), '("nodeName", DOMNodeNodeNamePropertyInfo), '("nodeType", DOMNodeNodeTypePropertyInfo), '("nodeValue", DOMNodeNodeValuePropertyInfo), '("offsetHeight", DOMElementOffsetHeightPropertyInfo), '("offsetLeft", DOMElementOffsetLeftPropertyInfo), '("offsetParent", DOMElementOffsetParentPropertyInfo), '("offsetTop", DOMElementOffsetTopPropertyInfo), '("offsetWidth", DOMElementOffsetWidthPropertyInfo), '("outerHtml", DOMHTMLElementOuterHtmlPropertyInfo), '("outerText", DOMHTMLElementOuterTextPropertyInfo), '("ownerDocument", DOMNodeOwnerDocumentPropertyInfo), '("parentElement", DOMNodeParentElementPropertyInfo), '("parentNode", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previousElementSibling", DOMElementPreviousElementSiblingPropertyInfo), '("previousSibling", DOMNodePreviousSiblingPropertyInfo), '("scrollHeight", DOMElementScrollHeightPropertyInfo), '("scrollLeft", DOMElementScrollLeftPropertyInfo), '("scrollTop", DOMElementScrollTopPropertyInfo), '("scrollWidth", DOMElementScrollWidthPropertyInfo), '("spellcheck", DOMHTMLElementSpellcheckPropertyInfo), '("style", DOMElementStylePropertyInfo), '("tabIndex", DOMHTMLElementTabIndexPropertyInfo), '("tagName", DOMElementTagNamePropertyInfo), '("textContent", DOMNodeTextContentPropertyInfo), '("title", DOMHTMLElementTitlePropertyInfo), '("translate", DOMHTMLElementTranslatePropertyInfo), '("type", DOMHTMLUListElementTypePropertyInfo), '("webkitRegionOverset", DOMElementWebkitRegionOversetPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo)] :: [(Symbol, *)]) +dOMHTMLUListElementCompact :: AttrLabelProxy "compact" +dOMHTMLUListElementCompact = AttrLabelProxy + +dOMHTMLUListElementType :: AttrLabelProxy "type" +dOMHTMLUListElementType = AttrLabelProxy + type instance SignalList DOMHTMLUListElement = DOMHTMLUListElementSignalList type DOMHTMLUListElementSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) @@ -305,7 +321,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLUListElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -333,7 +349,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLUListElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False diff --git a/GI/WebKit/Objects/DOMHTMLUListElement.hs-boot b/GI/WebKit/Objects/DOMHTMLUListElement.hs-boot --- a/GI/WebKit/Objects/DOMHTMLUListElement.hs-boot +++ b/GI/WebKit/Objects/DOMHTMLUListElement.hs-boot @@ -1,8 +1,8 @@ module GI.WebKit.Objects.DOMHTMLUListElement where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map diff --git a/GI/WebKit/Objects/DOMHTMLVideoElement.hs b/GI/WebKit/Objects/DOMHTMLVideoElement.hs --- a/GI/WebKit/Objects/DOMHTMLVideoElement.hs +++ b/GI/WebKit/Objects/DOMHTMLVideoElement.hs @@ -113,6 +113,7 @@ -- ** Height DOMHTMLVideoElementHeightPropertyInfo , constructDOMHTMLVideoElementHeight , + dOMHTMLVideoElementHeight , getDOMHTMLVideoElementHeight , setDOMHTMLVideoElementHeight , @@ -120,43 +121,51 @@ -- ** Poster DOMHTMLVideoElementPosterPropertyInfo , constructDOMHTMLVideoElementPoster , + dOMHTMLVideoElementPoster , getDOMHTMLVideoElementPoster , setDOMHTMLVideoElementPoster , -- ** VideoHeight DOMHTMLVideoElementVideoHeightPropertyInfo, + dOMHTMLVideoElementVideoHeight , getDOMHTMLVideoElementVideoHeight , -- ** VideoWidth DOMHTMLVideoElementVideoWidthPropertyInfo, + dOMHTMLVideoElementVideoWidth , getDOMHTMLVideoElementVideoWidth , -- ** WebkitDecodedFrameCount DOMHTMLVideoElementWebkitDecodedFrameCountPropertyInfo, + dOMHTMLVideoElementWebkitDecodedFrameCount, getDOMHTMLVideoElementWebkitDecodedFrameCount, -- ** WebkitDisplayingFullscreen DOMHTMLVideoElementWebkitDisplayingFullscreenPropertyInfo, + dOMHTMLVideoElementWebkitDisplayingFullscreen, getDOMHTMLVideoElementWebkitDisplayingFullscreen, -- ** WebkitDroppedFrameCount DOMHTMLVideoElementWebkitDroppedFrameCountPropertyInfo, + dOMHTMLVideoElementWebkitDroppedFrameCount, getDOMHTMLVideoElementWebkitDroppedFrameCount, -- ** WebkitSupportsFullscreen DOMHTMLVideoElementWebkitSupportsFullscreenPropertyInfo, + dOMHTMLVideoElementWebkitSupportsFullscreen, getDOMHTMLVideoElementWebkitSupportsFullscreen, -- ** WebkitWirelessVideoPlaybackDisabled DOMHTMLVideoElementWebkitWirelessVideoPlaybackDisabledPropertyInfo, constructDOMHTMLVideoElementWebkitWirelessVideoPlaybackDisabled, + dOMHTMLVideoElementWebkitWirelessVideoPlaybackDisabled, getDOMHTMLVideoElementWebkitWirelessVideoPlaybackDisabled, setDOMHTMLVideoElementWebkitWirelessVideoPlaybackDisabled, @@ -164,6 +173,7 @@ -- ** Width DOMHTMLVideoElementWidthPropertyInfo , constructDOMHTMLVideoElementWidth , + dOMHTMLVideoElementWidth , getDOMHTMLVideoElementWidth , setDOMHTMLVideoElementWidth , @@ -172,9 +182,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map @@ -444,110 +454,121 @@ #endif -- VVV Prop "height" - -- Type: TBasicType TUInt64 + -- Type: TBasicType TULong -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) -getDOMHTMLVideoElementHeight :: (MonadIO m, DOMHTMLVideoElementK o) => o -> m Word64 -getDOMHTMLVideoElementHeight obj = liftIO $ getObjectPropertyUInt64 obj "height" +getDOMHTMLVideoElementHeight :: (MonadIO m, DOMHTMLVideoElementK o) => o -> m CULong +getDOMHTMLVideoElementHeight obj = liftIO $ getObjectPropertyULong obj "height" -setDOMHTMLVideoElementHeight :: (MonadIO m, DOMHTMLVideoElementK o) => o -> Word64 -> m () -setDOMHTMLVideoElementHeight obj val = liftIO $ setObjectPropertyUInt64 obj "height" val +setDOMHTMLVideoElementHeight :: (MonadIO m, DOMHTMLVideoElementK o) => o -> CULong -> m () +setDOMHTMLVideoElementHeight obj val = liftIO $ setObjectPropertyULong obj "height" val -constructDOMHTMLVideoElementHeight :: Word64 -> IO ([Char], GValue) -constructDOMHTMLVideoElementHeight val = constructObjectPropertyUInt64 "height" val +constructDOMHTMLVideoElementHeight :: CULong -> IO ([Char], GValue) +constructDOMHTMLVideoElementHeight val = constructObjectPropertyULong "height" val data DOMHTMLVideoElementHeightPropertyInfo instance AttrInfo DOMHTMLVideoElementHeightPropertyInfo where type AttrAllowedOps DOMHTMLVideoElementHeightPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLVideoElementHeightPropertyInfo = (~) Word64 + type AttrSetTypeConstraint DOMHTMLVideoElementHeightPropertyInfo = (~) CULong type AttrBaseTypeConstraint DOMHTMLVideoElementHeightPropertyInfo = DOMHTMLVideoElementK - type AttrGetType DOMHTMLVideoElementHeightPropertyInfo = Word64 + type AttrGetType DOMHTMLVideoElementHeightPropertyInfo = CULong type AttrLabel DOMHTMLVideoElementHeightPropertyInfo = "height" attrGet _ = getDOMHTMLVideoElementHeight attrSet _ = setDOMHTMLVideoElementHeight attrConstruct _ = constructDOMHTMLVideoElementHeight + attrClear _ = undefined -- VVV Prop "poster" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Just False) -getDOMHTMLVideoElementPoster :: (MonadIO m, DOMHTMLVideoElementK o) => o -> m T.Text +getDOMHTMLVideoElementPoster :: (MonadIO m, DOMHTMLVideoElementK o) => o -> m (Maybe T.Text) getDOMHTMLVideoElementPoster obj = liftIO $ getObjectPropertyString obj "poster" setDOMHTMLVideoElementPoster :: (MonadIO m, DOMHTMLVideoElementK o) => o -> T.Text -> m () -setDOMHTMLVideoElementPoster obj val = liftIO $ setObjectPropertyString obj "poster" val +setDOMHTMLVideoElementPoster obj val = liftIO $ setObjectPropertyString obj "poster" (Just val) constructDOMHTMLVideoElementPoster :: T.Text -> IO ([Char], GValue) -constructDOMHTMLVideoElementPoster val = constructObjectPropertyString "poster" val +constructDOMHTMLVideoElementPoster val = constructObjectPropertyString "poster" (Just val) data DOMHTMLVideoElementPosterPropertyInfo instance AttrInfo DOMHTMLVideoElementPosterPropertyInfo where type AttrAllowedOps DOMHTMLVideoElementPosterPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint DOMHTMLVideoElementPosterPropertyInfo = (~) T.Text type AttrBaseTypeConstraint DOMHTMLVideoElementPosterPropertyInfo = DOMHTMLVideoElementK - type AttrGetType DOMHTMLVideoElementPosterPropertyInfo = T.Text + type AttrGetType DOMHTMLVideoElementPosterPropertyInfo = (Maybe T.Text) type AttrLabel DOMHTMLVideoElementPosterPropertyInfo = "poster" attrGet _ = getDOMHTMLVideoElementPoster attrSet _ = setDOMHTMLVideoElementPoster attrConstruct _ = constructDOMHTMLVideoElementPoster + attrClear _ = undefined -- VVV Prop "video-height" - -- Type: TBasicType TUInt64 + -- Type: TBasicType TULong -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) -getDOMHTMLVideoElementVideoHeight :: (MonadIO m, DOMHTMLVideoElementK o) => o -> m Word64 -getDOMHTMLVideoElementVideoHeight obj = liftIO $ getObjectPropertyUInt64 obj "video-height" +getDOMHTMLVideoElementVideoHeight :: (MonadIO m, DOMHTMLVideoElementK o) => o -> m CULong +getDOMHTMLVideoElementVideoHeight obj = liftIO $ getObjectPropertyULong obj "video-height" data DOMHTMLVideoElementVideoHeightPropertyInfo instance AttrInfo DOMHTMLVideoElementVideoHeightPropertyInfo where type AttrAllowedOps DOMHTMLVideoElementVideoHeightPropertyInfo = '[ 'AttrGet] type AttrSetTypeConstraint DOMHTMLVideoElementVideoHeightPropertyInfo = (~) () type AttrBaseTypeConstraint DOMHTMLVideoElementVideoHeightPropertyInfo = DOMHTMLVideoElementK - type AttrGetType DOMHTMLVideoElementVideoHeightPropertyInfo = Word64 + type AttrGetType DOMHTMLVideoElementVideoHeightPropertyInfo = CULong type AttrLabel DOMHTMLVideoElementVideoHeightPropertyInfo = "video-height" attrGet _ = getDOMHTMLVideoElementVideoHeight attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "video-width" - -- Type: TBasicType TUInt64 + -- Type: TBasicType TULong -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) -getDOMHTMLVideoElementVideoWidth :: (MonadIO m, DOMHTMLVideoElementK o) => o -> m Word64 -getDOMHTMLVideoElementVideoWidth obj = liftIO $ getObjectPropertyUInt64 obj "video-width" +getDOMHTMLVideoElementVideoWidth :: (MonadIO m, DOMHTMLVideoElementK o) => o -> m CULong +getDOMHTMLVideoElementVideoWidth obj = liftIO $ getObjectPropertyULong obj "video-width" data DOMHTMLVideoElementVideoWidthPropertyInfo instance AttrInfo DOMHTMLVideoElementVideoWidthPropertyInfo where type AttrAllowedOps DOMHTMLVideoElementVideoWidthPropertyInfo = '[ 'AttrGet] type AttrSetTypeConstraint DOMHTMLVideoElementVideoWidthPropertyInfo = (~) () type AttrBaseTypeConstraint DOMHTMLVideoElementVideoWidthPropertyInfo = DOMHTMLVideoElementK - type AttrGetType DOMHTMLVideoElementVideoWidthPropertyInfo = Word64 + type AttrGetType DOMHTMLVideoElementVideoWidthPropertyInfo = CULong type AttrLabel DOMHTMLVideoElementVideoWidthPropertyInfo = "video-width" attrGet _ = getDOMHTMLVideoElementVideoWidth attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "webkit-decoded-frame-count" - -- Type: TBasicType TUInt64 + -- Type: TBasicType TULong -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) -getDOMHTMLVideoElementWebkitDecodedFrameCount :: (MonadIO m, DOMHTMLVideoElementK o) => o -> m Word64 -getDOMHTMLVideoElementWebkitDecodedFrameCount obj = liftIO $ getObjectPropertyUInt64 obj "webkit-decoded-frame-count" +getDOMHTMLVideoElementWebkitDecodedFrameCount :: (MonadIO m, DOMHTMLVideoElementK o) => o -> m CULong +getDOMHTMLVideoElementWebkitDecodedFrameCount obj = liftIO $ getObjectPropertyULong obj "webkit-decoded-frame-count" data DOMHTMLVideoElementWebkitDecodedFrameCountPropertyInfo instance AttrInfo DOMHTMLVideoElementWebkitDecodedFrameCountPropertyInfo where type AttrAllowedOps DOMHTMLVideoElementWebkitDecodedFrameCountPropertyInfo = '[ 'AttrGet] type AttrSetTypeConstraint DOMHTMLVideoElementWebkitDecodedFrameCountPropertyInfo = (~) () type AttrBaseTypeConstraint DOMHTMLVideoElementWebkitDecodedFrameCountPropertyInfo = DOMHTMLVideoElementK - type AttrGetType DOMHTMLVideoElementWebkitDecodedFrameCountPropertyInfo = Word64 + type AttrGetType DOMHTMLVideoElementWebkitDecodedFrameCountPropertyInfo = CULong type AttrLabel DOMHTMLVideoElementWebkitDecodedFrameCountPropertyInfo = "webkit-decoded-frame-count" attrGet _ = getDOMHTMLVideoElementWebkitDecodedFrameCount attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "webkit-displaying-fullscreen" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) getDOMHTMLVideoElementWebkitDisplayingFullscreen :: (MonadIO m, DOMHTMLVideoElementK o) => o -> m Bool getDOMHTMLVideoElementWebkitDisplayingFullscreen obj = liftIO $ getObjectPropertyBool obj "webkit-displaying-fullscreen" @@ -562,28 +583,32 @@ attrGet _ = getDOMHTMLVideoElementWebkitDisplayingFullscreen attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "webkit-dropped-frame-count" - -- Type: TBasicType TUInt64 + -- Type: TBasicType TULong -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) -getDOMHTMLVideoElementWebkitDroppedFrameCount :: (MonadIO m, DOMHTMLVideoElementK o) => o -> m Word64 -getDOMHTMLVideoElementWebkitDroppedFrameCount obj = liftIO $ getObjectPropertyUInt64 obj "webkit-dropped-frame-count" +getDOMHTMLVideoElementWebkitDroppedFrameCount :: (MonadIO m, DOMHTMLVideoElementK o) => o -> m CULong +getDOMHTMLVideoElementWebkitDroppedFrameCount obj = liftIO $ getObjectPropertyULong obj "webkit-dropped-frame-count" data DOMHTMLVideoElementWebkitDroppedFrameCountPropertyInfo instance AttrInfo DOMHTMLVideoElementWebkitDroppedFrameCountPropertyInfo where type AttrAllowedOps DOMHTMLVideoElementWebkitDroppedFrameCountPropertyInfo = '[ 'AttrGet] type AttrSetTypeConstraint DOMHTMLVideoElementWebkitDroppedFrameCountPropertyInfo = (~) () type AttrBaseTypeConstraint DOMHTMLVideoElementWebkitDroppedFrameCountPropertyInfo = DOMHTMLVideoElementK - type AttrGetType DOMHTMLVideoElementWebkitDroppedFrameCountPropertyInfo = Word64 + type AttrGetType DOMHTMLVideoElementWebkitDroppedFrameCountPropertyInfo = CULong type AttrLabel DOMHTMLVideoElementWebkitDroppedFrameCountPropertyInfo = "webkit-dropped-frame-count" attrGet _ = getDOMHTMLVideoElementWebkitDroppedFrameCount attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "webkit-supports-fullscreen" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) getDOMHTMLVideoElementWebkitSupportsFullscreen :: (MonadIO m, DOMHTMLVideoElementK o) => o -> m Bool getDOMHTMLVideoElementWebkitSupportsFullscreen obj = liftIO $ getObjectPropertyBool obj "webkit-supports-fullscreen" @@ -598,10 +623,12 @@ attrGet _ = getDOMHTMLVideoElementWebkitSupportsFullscreen attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "webkit-wireless-video-playback-disabled" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getDOMHTMLVideoElementWebkitWirelessVideoPlaybackDisabled :: (MonadIO m, DOMHTMLVideoElementK o) => o -> m Bool getDOMHTMLVideoElementWebkitWirelessVideoPlaybackDisabled obj = liftIO $ getObjectPropertyBool obj "webkit-wireless-video-playback-disabled" @@ -622,34 +649,67 @@ attrGet _ = getDOMHTMLVideoElementWebkitWirelessVideoPlaybackDisabled attrSet _ = setDOMHTMLVideoElementWebkitWirelessVideoPlaybackDisabled attrConstruct _ = constructDOMHTMLVideoElementWebkitWirelessVideoPlaybackDisabled + attrClear _ = undefined -- VVV Prop "width" - -- Type: TBasicType TUInt64 + -- Type: TBasicType TULong -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) -getDOMHTMLVideoElementWidth :: (MonadIO m, DOMHTMLVideoElementK o) => o -> m Word64 -getDOMHTMLVideoElementWidth obj = liftIO $ getObjectPropertyUInt64 obj "width" +getDOMHTMLVideoElementWidth :: (MonadIO m, DOMHTMLVideoElementK o) => o -> m CULong +getDOMHTMLVideoElementWidth obj = liftIO $ getObjectPropertyULong obj "width" -setDOMHTMLVideoElementWidth :: (MonadIO m, DOMHTMLVideoElementK o) => o -> Word64 -> m () -setDOMHTMLVideoElementWidth obj val = liftIO $ setObjectPropertyUInt64 obj "width" val +setDOMHTMLVideoElementWidth :: (MonadIO m, DOMHTMLVideoElementK o) => o -> CULong -> m () +setDOMHTMLVideoElementWidth obj val = liftIO $ setObjectPropertyULong obj "width" val -constructDOMHTMLVideoElementWidth :: Word64 -> IO ([Char], GValue) -constructDOMHTMLVideoElementWidth val = constructObjectPropertyUInt64 "width" val +constructDOMHTMLVideoElementWidth :: CULong -> IO ([Char], GValue) +constructDOMHTMLVideoElementWidth val = constructObjectPropertyULong "width" val data DOMHTMLVideoElementWidthPropertyInfo instance AttrInfo DOMHTMLVideoElementWidthPropertyInfo where type AttrAllowedOps DOMHTMLVideoElementWidthPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLVideoElementWidthPropertyInfo = (~) Word64 + type AttrSetTypeConstraint DOMHTMLVideoElementWidthPropertyInfo = (~) CULong type AttrBaseTypeConstraint DOMHTMLVideoElementWidthPropertyInfo = DOMHTMLVideoElementK - type AttrGetType DOMHTMLVideoElementWidthPropertyInfo = Word64 + type AttrGetType DOMHTMLVideoElementWidthPropertyInfo = CULong type AttrLabel DOMHTMLVideoElementWidthPropertyInfo = "width" attrGet _ = getDOMHTMLVideoElementWidth attrSet _ = setDOMHTMLVideoElementWidth attrConstruct _ = constructDOMHTMLVideoElementWidth + attrClear _ = undefined type instance AttributeList DOMHTMLVideoElement = DOMHTMLVideoElementAttributeList type DOMHTMLVideoElementAttributeList = ('[ '("accessKey", DOMHTMLElementAccessKeyPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("audioTracks", DOMHTMLMediaElementAudioTracksPropertyInfo), '("autoplay", DOMHTMLMediaElementAutoplayPropertyInfo), '("baseUri", DOMNodeBaseUriPropertyInfo), '("buffered", DOMHTMLMediaElementBufferedPropertyInfo), '("childElementCount", DOMElementChildElementCountPropertyInfo), '("childNodes", DOMNodeChildNodesPropertyInfo), '("children", DOMHTMLElementChildrenPropertyInfo), '("classList", DOMElementClassListPropertyInfo), '("className", DOMElementClassNamePropertyInfo), '("clientHeight", DOMElementClientHeightPropertyInfo), '("clientLeft", DOMElementClientLeftPropertyInfo), '("clientTop", DOMElementClientTopPropertyInfo), '("clientWidth", DOMElementClientWidthPropertyInfo), '("contentEditable", DOMHTMLElementContentEditablePropertyInfo), '("controller", DOMHTMLMediaElementControllerPropertyInfo), '("controls", DOMHTMLMediaElementControlsPropertyInfo), '("coreObject", DOMObjectCoreObjectPropertyInfo), '("currentSrc", DOMHTMLMediaElementCurrentSrcPropertyInfo), '("currentTime", DOMHTMLMediaElementCurrentTimePropertyInfo), '("defaultMuted", DOMHTMLMediaElementDefaultMutedPropertyInfo), '("defaultPlaybackRate", DOMHTMLMediaElementDefaultPlaybackRatePropertyInfo), '("dir", DOMHTMLElementDirPropertyInfo), '("draggable", DOMHTMLElementDraggablePropertyInfo), '("duration", DOMHTMLMediaElementDurationPropertyInfo), '("ended", DOMHTMLMediaElementEndedPropertyInfo), '("error", DOMHTMLMediaElementErrorPropertyInfo), '("firstChild", DOMNodeFirstChildPropertyInfo), '("firstElementChild", DOMElementFirstElementChildPropertyInfo), '("height", DOMHTMLVideoElementHeightPropertyInfo), '("hidden", DOMHTMLElementHiddenPropertyInfo), '("id", DOMElementIdPropertyInfo), '("innerHtml", DOMHTMLElementInnerHtmlPropertyInfo), '("innerText", DOMHTMLElementInnerTextPropertyInfo), '("isContentEditable", DOMHTMLElementIsContentEditablePropertyInfo), '("lang", DOMHTMLElementLangPropertyInfo), '("lastChild", DOMNodeLastChildPropertyInfo), '("lastElementChild", DOMElementLastElementChildPropertyInfo), '("localName", DOMNodeLocalNamePropertyInfo), '("loop", DOMHTMLMediaElementLoopPropertyInfo), '("mediaGroup", DOMHTMLMediaElementMediaGroupPropertyInfo), '("muted", DOMHTMLMediaElementMutedPropertyInfo), '("namespaceUri", DOMNodeNamespaceUriPropertyInfo), '("networkState", DOMHTMLMediaElementNetworkStatePropertyInfo), '("nextElementSibling", DOMElementNextElementSiblingPropertyInfo), '("nextSibling", DOMNodeNextSiblingPropertyInfo), '("nodeName", DOMNodeNodeNamePropertyInfo), '("nodeType", DOMNodeNodeTypePropertyInfo), '("nodeValue", DOMNodeNodeValuePropertyInfo), '("offsetHeight", DOMElementOffsetHeightPropertyInfo), '("offsetLeft", DOMElementOffsetLeftPropertyInfo), '("offsetParent", DOMElementOffsetParentPropertyInfo), '("offsetTop", DOMElementOffsetTopPropertyInfo), '("offsetWidth", DOMElementOffsetWidthPropertyInfo), '("outerHtml", DOMHTMLElementOuterHtmlPropertyInfo), '("outerText", DOMHTMLElementOuterTextPropertyInfo), '("ownerDocument", DOMNodeOwnerDocumentPropertyInfo), '("parentElement", DOMNodeParentElementPropertyInfo), '("parentNode", DOMNodeParentNodePropertyInfo), '("paused", DOMHTMLMediaElementPausedPropertyInfo), '("playbackRate", DOMHTMLMediaElementPlaybackRatePropertyInfo), '("played", DOMHTMLMediaElementPlayedPropertyInfo), '("poster", DOMHTMLVideoElementPosterPropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("preload", DOMHTMLMediaElementPreloadPropertyInfo), '("previousElementSibling", DOMElementPreviousElementSiblingPropertyInfo), '("previousSibling", DOMNodePreviousSiblingPropertyInfo), '("readyState", DOMHTMLMediaElementReadyStatePropertyInfo), '("scrollHeight", DOMElementScrollHeightPropertyInfo), '("scrollLeft", DOMElementScrollLeftPropertyInfo), '("scrollTop", DOMElementScrollTopPropertyInfo), '("scrollWidth", DOMElementScrollWidthPropertyInfo), '("seekable", DOMHTMLMediaElementSeekablePropertyInfo), '("seeking", DOMHTMLMediaElementSeekingPropertyInfo), '("spellcheck", DOMHTMLElementSpellcheckPropertyInfo), '("src", DOMHTMLMediaElementSrcPropertyInfo), '("style", DOMElementStylePropertyInfo), '("tabIndex", DOMHTMLElementTabIndexPropertyInfo), '("tagName", DOMElementTagNamePropertyInfo), '("textContent", DOMNodeTextContentPropertyInfo), '("textTracks", DOMHTMLMediaElementTextTracksPropertyInfo), '("title", DOMHTMLElementTitlePropertyInfo), '("translate", DOMHTMLElementTranslatePropertyInfo), '("videoHeight", DOMHTMLVideoElementVideoHeightPropertyInfo), '("videoTracks", DOMHTMLMediaElementVideoTracksPropertyInfo), '("videoWidth", DOMHTMLVideoElementVideoWidthPropertyInfo), '("volume", DOMHTMLMediaElementVolumePropertyInfo), '("webkitAudioDecodedByteCount", DOMHTMLMediaElementWebkitAudioDecodedByteCountPropertyInfo), '("webkitClosedCaptionsVisible", DOMHTMLMediaElementWebkitClosedCaptionsVisiblePropertyInfo), '("webkitCurrentPlaybackTargetIsWireless", DOMHTMLMediaElementWebkitCurrentPlaybackTargetIsWirelessPropertyInfo), '("webkitDecodedFrameCount", DOMHTMLVideoElementWebkitDecodedFrameCountPropertyInfo), '("webkitDisplayingFullscreen", DOMHTMLVideoElementWebkitDisplayingFullscreenPropertyInfo), '("webkitDroppedFrameCount", DOMHTMLVideoElementWebkitDroppedFrameCountPropertyInfo), '("webkitHasClosedCaptions", DOMHTMLMediaElementWebkitHasClosedCaptionsPropertyInfo), '("webkitPreservesPitch", DOMHTMLMediaElementWebkitPreservesPitchPropertyInfo), '("webkitRegionOverset", DOMElementWebkitRegionOversetPropertyInfo), '("webkitSupportsFullscreen", DOMHTMLVideoElementWebkitSupportsFullscreenPropertyInfo), '("webkitVideoDecodedByteCount", DOMHTMLMediaElementWebkitVideoDecodedByteCountPropertyInfo), '("webkitWirelessVideoPlaybackDisabled", DOMHTMLVideoElementWebkitWirelessVideoPlaybackDisabledPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo), '("width", DOMHTMLVideoElementWidthPropertyInfo)] :: [(Symbol, *)]) +dOMHTMLVideoElementHeight :: AttrLabelProxy "height" +dOMHTMLVideoElementHeight = AttrLabelProxy + +dOMHTMLVideoElementPoster :: AttrLabelProxy "poster" +dOMHTMLVideoElementPoster = AttrLabelProxy + +dOMHTMLVideoElementVideoHeight :: AttrLabelProxy "videoHeight" +dOMHTMLVideoElementVideoHeight = AttrLabelProxy + +dOMHTMLVideoElementVideoWidth :: AttrLabelProxy "videoWidth" +dOMHTMLVideoElementVideoWidth = AttrLabelProxy + +dOMHTMLVideoElementWebkitDecodedFrameCount :: AttrLabelProxy "webkitDecodedFrameCount" +dOMHTMLVideoElementWebkitDecodedFrameCount = AttrLabelProxy + +dOMHTMLVideoElementWebkitDisplayingFullscreen :: AttrLabelProxy "webkitDisplayingFullscreen" +dOMHTMLVideoElementWebkitDisplayingFullscreen = AttrLabelProxy + +dOMHTMLVideoElementWebkitDroppedFrameCount :: AttrLabelProxy "webkitDroppedFrameCount" +dOMHTMLVideoElementWebkitDroppedFrameCount = AttrLabelProxy + +dOMHTMLVideoElementWebkitSupportsFullscreen :: AttrLabelProxy "webkitSupportsFullscreen" +dOMHTMLVideoElementWebkitSupportsFullscreen = AttrLabelProxy + +dOMHTMLVideoElementWebkitWirelessVideoPlaybackDisabled :: AttrLabelProxy "webkitWirelessVideoPlaybackDisabled" +dOMHTMLVideoElementWebkitWirelessVideoPlaybackDisabled = AttrLabelProxy + +dOMHTMLVideoElementWidth :: AttrLabelProxy "width" +dOMHTMLVideoElementWidth = AttrLabelProxy + type instance SignalList DOMHTMLVideoElement = DOMHTMLVideoElementSignalList type DOMHTMLVideoElementSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) @@ -657,19 +717,19 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLVideoElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUInt64 +-- returnType : Just (TBasicType TULong) -- throws : False -- Skip return : False foreign import ccall "webkit_dom_html_video_element_get_height" webkit_dom_html_video_element_get_height :: Ptr DOMHTMLVideoElement -> -- _obj : TInterface "WebKit" "DOMHTMLVideoElement" - IO Word64 + IO CULong dOMHTMLVideoElementGetHeight :: (MonadIO m, DOMHTMLVideoElementK a) => a -- _obj - -> m Word64 -- result + -> m CULong -- result dOMHTMLVideoElementGetHeight _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- webkit_dom_html_video_element_get_height _obj' @@ -677,14 +737,14 @@ return result data DOMHTMLVideoElementGetHeightMethodInfo -instance (signature ~ (m Word64), MonadIO m, DOMHTMLVideoElementK a) => MethodInfo DOMHTMLVideoElementGetHeightMethodInfo a signature where +instance (signature ~ (m CULong), MonadIO m, DOMHTMLVideoElementK a) => MethodInfo DOMHTMLVideoElementGetHeightMethodInfo a signature where overloadedMethod _ = dOMHTMLVideoElementGetHeight -- method DOMHTMLVideoElement::get_poster -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLVideoElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -714,19 +774,19 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLVideoElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUInt64 +-- returnType : Just (TBasicType TULong) -- throws : False -- Skip return : False foreign import ccall "webkit_dom_html_video_element_get_video_height" webkit_dom_html_video_element_get_video_height :: Ptr DOMHTMLVideoElement -> -- _obj : TInterface "WebKit" "DOMHTMLVideoElement" - IO Word64 + IO CULong dOMHTMLVideoElementGetVideoHeight :: (MonadIO m, DOMHTMLVideoElementK a) => a -- _obj - -> m Word64 -- result + -> m CULong -- result dOMHTMLVideoElementGetVideoHeight _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- webkit_dom_html_video_element_get_video_height _obj' @@ -734,26 +794,26 @@ return result data DOMHTMLVideoElementGetVideoHeightMethodInfo -instance (signature ~ (m Word64), MonadIO m, DOMHTMLVideoElementK a) => MethodInfo DOMHTMLVideoElementGetVideoHeightMethodInfo a signature where +instance (signature ~ (m CULong), MonadIO m, DOMHTMLVideoElementK a) => MethodInfo DOMHTMLVideoElementGetVideoHeightMethodInfo a signature where overloadedMethod _ = dOMHTMLVideoElementGetVideoHeight -- method DOMHTMLVideoElement::get_video_width -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLVideoElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUInt64 +-- returnType : Just (TBasicType TULong) -- throws : False -- Skip return : False foreign import ccall "webkit_dom_html_video_element_get_video_width" webkit_dom_html_video_element_get_video_width :: Ptr DOMHTMLVideoElement -> -- _obj : TInterface "WebKit" "DOMHTMLVideoElement" - IO Word64 + IO CULong dOMHTMLVideoElementGetVideoWidth :: (MonadIO m, DOMHTMLVideoElementK a) => a -- _obj - -> m Word64 -- result + -> m CULong -- result dOMHTMLVideoElementGetVideoWidth _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- webkit_dom_html_video_element_get_video_width _obj' @@ -761,26 +821,26 @@ return result data DOMHTMLVideoElementGetVideoWidthMethodInfo -instance (signature ~ (m Word64), MonadIO m, DOMHTMLVideoElementK a) => MethodInfo DOMHTMLVideoElementGetVideoWidthMethodInfo a signature where +instance (signature ~ (m CULong), MonadIO m, DOMHTMLVideoElementK a) => MethodInfo DOMHTMLVideoElementGetVideoWidthMethodInfo a signature where overloadedMethod _ = dOMHTMLVideoElementGetVideoWidth -- method DOMHTMLVideoElement::get_webkit_decoded_frame_count -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLVideoElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUInt64 +-- returnType : Just (TBasicType TULong) -- throws : False -- Skip return : False foreign import ccall "webkit_dom_html_video_element_get_webkit_decoded_frame_count" webkit_dom_html_video_element_get_webkit_decoded_frame_count :: Ptr DOMHTMLVideoElement -> -- _obj : TInterface "WebKit" "DOMHTMLVideoElement" - IO Word64 + IO CULong dOMHTMLVideoElementGetWebkitDecodedFrameCount :: (MonadIO m, DOMHTMLVideoElementK a) => a -- _obj - -> m Word64 -- result + -> m CULong -- result dOMHTMLVideoElementGetWebkitDecodedFrameCount _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- webkit_dom_html_video_element_get_webkit_decoded_frame_count _obj' @@ -788,14 +848,14 @@ return result data DOMHTMLVideoElementGetWebkitDecodedFrameCountMethodInfo -instance (signature ~ (m Word64), MonadIO m, DOMHTMLVideoElementK a) => MethodInfo DOMHTMLVideoElementGetWebkitDecodedFrameCountMethodInfo a signature where +instance (signature ~ (m CULong), MonadIO m, DOMHTMLVideoElementK a) => MethodInfo DOMHTMLVideoElementGetWebkitDecodedFrameCountMethodInfo a signature where overloadedMethod _ = dOMHTMLVideoElementGetWebkitDecodedFrameCount -- method DOMHTMLVideoElement::get_webkit_displaying_fullscreen -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLVideoElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -823,19 +883,19 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLVideoElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUInt64 +-- returnType : Just (TBasicType TULong) -- throws : False -- Skip return : False foreign import ccall "webkit_dom_html_video_element_get_webkit_dropped_frame_count" webkit_dom_html_video_element_get_webkit_dropped_frame_count :: Ptr DOMHTMLVideoElement -> -- _obj : TInterface "WebKit" "DOMHTMLVideoElement" - IO Word64 + IO CULong dOMHTMLVideoElementGetWebkitDroppedFrameCount :: (MonadIO m, DOMHTMLVideoElementK a) => a -- _obj - -> m Word64 -- result + -> m CULong -- result dOMHTMLVideoElementGetWebkitDroppedFrameCount _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- webkit_dom_html_video_element_get_webkit_dropped_frame_count _obj' @@ -843,14 +903,14 @@ return result data DOMHTMLVideoElementGetWebkitDroppedFrameCountMethodInfo -instance (signature ~ (m Word64), MonadIO m, DOMHTMLVideoElementK a) => MethodInfo DOMHTMLVideoElementGetWebkitDroppedFrameCountMethodInfo a signature where +instance (signature ~ (m CULong), MonadIO m, DOMHTMLVideoElementK a) => MethodInfo DOMHTMLVideoElementGetWebkitDroppedFrameCountMethodInfo a signature where overloadedMethod _ = dOMHTMLVideoElementGetWebkitDroppedFrameCount -- method DOMHTMLVideoElement::get_webkit_supports_fullscreen -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLVideoElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -878,7 +938,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLVideoElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -906,19 +966,19 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLVideoElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUInt64 +-- returnType : Just (TBasicType TULong) -- throws : False -- Skip return : False foreign import ccall "webkit_dom_html_video_element_get_width" webkit_dom_html_video_element_get_width :: Ptr DOMHTMLVideoElement -> -- _obj : TInterface "WebKit" "DOMHTMLVideoElement" - IO Word64 + IO CULong dOMHTMLVideoElementGetWidth :: (MonadIO m, DOMHTMLVideoElementK a) => a -- _obj - -> m Word64 -- result + -> m CULong -- result dOMHTMLVideoElementGetWidth _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- webkit_dom_html_video_element_get_width _obj' @@ -926,27 +986,27 @@ return result data DOMHTMLVideoElementGetWidthMethodInfo -instance (signature ~ (m Word64), MonadIO m, DOMHTMLVideoElementK a) => MethodInfo DOMHTMLVideoElementGetWidthMethodInfo a signature where +instance (signature ~ (m CULong), MonadIO m, DOMHTMLVideoElementK a) => MethodInfo DOMHTMLVideoElementGetWidthMethodInfo a signature where overloadedMethod _ = dOMHTMLVideoElementGetWidth -- method DOMHTMLVideoElement::set_height -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLVideoElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLVideoElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TULong, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "webkit_dom_html_video_element_set_height" webkit_dom_html_video_element_set_height :: Ptr DOMHTMLVideoElement -> -- _obj : TInterface "WebKit" "DOMHTMLVideoElement" - Word64 -> -- value : TBasicType TUInt64 + CULong -> -- value : TBasicType TULong IO () dOMHTMLVideoElementSetHeight :: (MonadIO m, DOMHTMLVideoElementK a) => a -- _obj - -> Word64 -- value + -> CULong -- value -> m () -- result dOMHTMLVideoElementSetHeight _obj value = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj @@ -955,14 +1015,14 @@ return () data DOMHTMLVideoElementSetHeightMethodInfo -instance (signature ~ (Word64 -> m ()), MonadIO m, DOMHTMLVideoElementK a) => MethodInfo DOMHTMLVideoElementSetHeightMethodInfo a signature where +instance (signature ~ (CULong -> m ()), MonadIO m, DOMHTMLVideoElementK a) => MethodInfo DOMHTMLVideoElementSetHeightMethodInfo a signature where overloadedMethod _ = dOMHTMLVideoElementSetHeight -- method DOMHTMLVideoElement::set_poster -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLVideoElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -993,7 +1053,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLVideoElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1021,22 +1081,22 @@ -- method DOMHTMLVideoElement::set_width -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLVideoElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLVideoElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TULong, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "webkit_dom_html_video_element_set_width" webkit_dom_html_video_element_set_width :: Ptr DOMHTMLVideoElement -> -- _obj : TInterface "WebKit" "DOMHTMLVideoElement" - Word64 -> -- value : TBasicType TUInt64 + CULong -> -- value : TBasicType TULong IO () dOMHTMLVideoElementSetWidth :: (MonadIO m, DOMHTMLVideoElementK a) => a -- _obj - -> Word64 -- value + -> CULong -- value -> m () -- result dOMHTMLVideoElementSetWidth _obj value = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj @@ -1045,14 +1105,14 @@ return () data DOMHTMLVideoElementSetWidthMethodInfo -instance (signature ~ (Word64 -> m ()), MonadIO m, DOMHTMLVideoElementK a) => MethodInfo DOMHTMLVideoElementSetWidthMethodInfo a signature where +instance (signature ~ (CULong -> m ()), MonadIO m, DOMHTMLVideoElementK a) => MethodInfo DOMHTMLVideoElementSetWidthMethodInfo a signature where overloadedMethod _ = dOMHTMLVideoElementSetWidth -- method DOMHTMLVideoElement::webkit_enter_full_screen -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLVideoElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : True -- Skip return : False @@ -1084,7 +1144,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLVideoElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : True -- Skip return : False @@ -1116,7 +1176,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLVideoElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1143,7 +1203,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHTMLVideoElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False diff --git a/GI/WebKit/Objects/DOMHTMLVideoElement.hs-boot b/GI/WebKit/Objects/DOMHTMLVideoElement.hs-boot --- a/GI/WebKit/Objects/DOMHTMLVideoElement.hs-boot +++ b/GI/WebKit/Objects/DOMHTMLVideoElement.hs-boot @@ -1,8 +1,8 @@ module GI.WebKit.Objects.DOMHTMLVideoElement where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map diff --git a/GI/WebKit/Objects/DOMHistory.hs b/GI/WebKit/Objects/DOMHistory.hs --- a/GI/WebKit/Objects/DOMHistory.hs +++ b/GI/WebKit/Objects/DOMHistory.hs @@ -42,6 +42,7 @@ -- * Properties -- ** Length DOMHistoryLengthPropertyInfo , + dOMHistoryLength , getDOMHistoryLength , @@ -49,9 +50,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map @@ -119,26 +120,31 @@ #endif -- VVV Prop "length" - -- Type: TBasicType TUInt64 + -- Type: TBasicType TULong -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) -getDOMHistoryLength :: (MonadIO m, DOMHistoryK o) => o -> m Word64 -getDOMHistoryLength obj = liftIO $ getObjectPropertyUInt64 obj "length" +getDOMHistoryLength :: (MonadIO m, DOMHistoryK o) => o -> m CULong +getDOMHistoryLength obj = liftIO $ getObjectPropertyULong obj "length" data DOMHistoryLengthPropertyInfo instance AttrInfo DOMHistoryLengthPropertyInfo where type AttrAllowedOps DOMHistoryLengthPropertyInfo = '[ 'AttrGet] type AttrSetTypeConstraint DOMHistoryLengthPropertyInfo = (~) () type AttrBaseTypeConstraint DOMHistoryLengthPropertyInfo = DOMHistoryK - type AttrGetType DOMHistoryLengthPropertyInfo = Word64 + type AttrGetType DOMHistoryLengthPropertyInfo = CULong type AttrLabel DOMHistoryLengthPropertyInfo = "length" attrGet _ = getDOMHistoryLength attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined type instance AttributeList DOMHistory = DOMHistoryAttributeList type DOMHistoryAttributeList = ('[ '("coreObject", DOMObjectCoreObjectPropertyInfo), '("length", DOMHistoryLengthPropertyInfo)] :: [(Symbol, *)]) +dOMHistoryLength :: AttrLabelProxy "length" +dOMHistoryLength = AttrLabelProxy + type instance SignalList DOMHistory = DOMHistorySignalList type DOMHistorySignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) @@ -146,7 +152,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHistory", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -173,7 +179,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHistory", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -200,19 +206,19 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHistory", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUInt64 +-- returnType : Just (TBasicType TULong) -- throws : False -- Skip return : False foreign import ccall "webkit_dom_history_get_length" webkit_dom_history_get_length :: Ptr DOMHistory -> -- _obj : TInterface "WebKit" "DOMHistory" - IO Word64 + IO CULong dOMHistoryGetLength :: (MonadIO m, DOMHistoryK a) => a -- _obj - -> m Word64 -- result + -> m CULong -- result dOMHistoryGetLength _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- webkit_dom_history_get_length _obj' @@ -220,27 +226,27 @@ return result data DOMHistoryGetLengthMethodInfo -instance (signature ~ (m Word64), MonadIO m, DOMHistoryK a) => MethodInfo DOMHistoryGetLengthMethodInfo a signature where +instance (signature ~ (m CULong), MonadIO m, DOMHistoryK a) => MethodInfo DOMHistoryGetLengthMethodInfo a signature where overloadedMethod _ = dOMHistoryGetLength -- method DOMHistory::go -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHistory", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "distance", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMHistory", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "distance", argType = TBasicType TLong, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "webkit_dom_history_go" webkit_dom_history_go :: Ptr DOMHistory -> -- _obj : TInterface "WebKit" "DOMHistory" - Int64 -> -- distance : TBasicType TInt64 + CLong -> -- distance : TBasicType TLong IO () dOMHistoryGo :: (MonadIO m, DOMHistoryK a) => a -- _obj - -> Int64 -- distance + -> CLong -- distance -> m () -- result dOMHistoryGo _obj distance = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj @@ -249,7 +255,7 @@ return () data DOMHistoryGoMethodInfo -instance (signature ~ (Int64 -> m ()), MonadIO m, DOMHistoryK a) => MethodInfo DOMHistoryGoMethodInfo a signature where +instance (signature ~ (CLong -> m ()), MonadIO m, DOMHistoryK a) => MethodInfo DOMHistoryGoMethodInfo a signature where overloadedMethod _ = dOMHistoryGo diff --git a/GI/WebKit/Objects/DOMHistory.hs-boot b/GI/WebKit/Objects/DOMHistory.hs-boot --- a/GI/WebKit/Objects/DOMHistory.hs-boot +++ b/GI/WebKit/Objects/DOMHistory.hs-boot @@ -1,8 +1,8 @@ module GI.WebKit.Objects.DOMHistory where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map diff --git a/GI/WebKit/Objects/DOMKeyboardEvent.hs b/GI/WebKit/Objects/DOMKeyboardEvent.hs --- a/GI/WebKit/Objects/DOMKeyboardEvent.hs +++ b/GI/WebKit/Objects/DOMKeyboardEvent.hs @@ -67,36 +67,43 @@ -- * Properties -- ** AltGraphKey DOMKeyboardEventAltGraphKeyPropertyInfo , + dOMKeyboardEventAltGraphKey , getDOMKeyboardEventAltGraphKey , -- ** AltKey DOMKeyboardEventAltKeyPropertyInfo , + dOMKeyboardEventAltKey , getDOMKeyboardEventAltKey , -- ** CtrlKey DOMKeyboardEventCtrlKeyPropertyInfo , + dOMKeyboardEventCtrlKey , getDOMKeyboardEventCtrlKey , -- ** KeyIdentifier DOMKeyboardEventKeyIdentifierPropertyInfo, + dOMKeyboardEventKeyIdentifier , getDOMKeyboardEventKeyIdentifier , -- ** KeyLocation DOMKeyboardEventKeyLocationPropertyInfo , + dOMKeyboardEventKeyLocation , getDOMKeyboardEventKeyLocation , -- ** MetaKey DOMKeyboardEventMetaKeyPropertyInfo , + dOMKeyboardEventMetaKey , getDOMKeyboardEventMetaKey , -- ** ShiftKey DOMKeyboardEventShiftKeyPropertyInfo , + dOMKeyboardEventShiftKey , getDOMKeyboardEventShiftKey , @@ -104,9 +111,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map @@ -207,6 +214,7 @@ -- VVV Prop "alt-graph-key" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) getDOMKeyboardEventAltGraphKey :: (MonadIO m, DOMKeyboardEventK o) => o -> m Bool getDOMKeyboardEventAltGraphKey obj = liftIO $ getObjectPropertyBool obj "alt-graph-key" @@ -221,10 +229,12 @@ attrGet _ = getDOMKeyboardEventAltGraphKey attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "alt-key" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) getDOMKeyboardEventAltKey :: (MonadIO m, DOMKeyboardEventK o) => o -> m Bool getDOMKeyboardEventAltKey obj = liftIO $ getObjectPropertyBool obj "alt-key" @@ -239,10 +249,12 @@ attrGet _ = getDOMKeyboardEventAltKey attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "ctrl-key" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) getDOMKeyboardEventCtrlKey :: (MonadIO m, DOMKeyboardEventK o) => o -> m Bool getDOMKeyboardEventCtrlKey obj = liftIO $ getObjectPropertyBool obj "ctrl-key" @@ -257,46 +269,52 @@ attrGet _ = getDOMKeyboardEventCtrlKey attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "key-identifier" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable] + -- Nullable: (Nothing,Nothing) -getDOMKeyboardEventKeyIdentifier :: (MonadIO m, DOMKeyboardEventK o) => o -> m T.Text +getDOMKeyboardEventKeyIdentifier :: (MonadIO m, DOMKeyboardEventK o) => o -> m (Maybe T.Text) getDOMKeyboardEventKeyIdentifier obj = liftIO $ getObjectPropertyString obj "key-identifier" data DOMKeyboardEventKeyIdentifierPropertyInfo instance AttrInfo DOMKeyboardEventKeyIdentifierPropertyInfo where - type AttrAllowedOps DOMKeyboardEventKeyIdentifierPropertyInfo = '[ 'AttrGet] + type AttrAllowedOps DOMKeyboardEventKeyIdentifierPropertyInfo = '[ 'AttrGet, 'AttrClear] type AttrSetTypeConstraint DOMKeyboardEventKeyIdentifierPropertyInfo = (~) () type AttrBaseTypeConstraint DOMKeyboardEventKeyIdentifierPropertyInfo = DOMKeyboardEventK - type AttrGetType DOMKeyboardEventKeyIdentifierPropertyInfo = T.Text + type AttrGetType DOMKeyboardEventKeyIdentifierPropertyInfo = (Maybe T.Text) type AttrLabel DOMKeyboardEventKeyIdentifierPropertyInfo = "key-identifier" attrGet _ = getDOMKeyboardEventKeyIdentifier attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "key-location" - -- Type: TBasicType TUInt64 + -- Type: TBasicType TULong -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) -getDOMKeyboardEventKeyLocation :: (MonadIO m, DOMKeyboardEventK o) => o -> m Word64 -getDOMKeyboardEventKeyLocation obj = liftIO $ getObjectPropertyUInt64 obj "key-location" +getDOMKeyboardEventKeyLocation :: (MonadIO m, DOMKeyboardEventK o) => o -> m CULong +getDOMKeyboardEventKeyLocation obj = liftIO $ getObjectPropertyULong obj "key-location" data DOMKeyboardEventKeyLocationPropertyInfo instance AttrInfo DOMKeyboardEventKeyLocationPropertyInfo where type AttrAllowedOps DOMKeyboardEventKeyLocationPropertyInfo = '[ 'AttrGet] type AttrSetTypeConstraint DOMKeyboardEventKeyLocationPropertyInfo = (~) () type AttrBaseTypeConstraint DOMKeyboardEventKeyLocationPropertyInfo = DOMKeyboardEventK - type AttrGetType DOMKeyboardEventKeyLocationPropertyInfo = Word64 + type AttrGetType DOMKeyboardEventKeyLocationPropertyInfo = CULong type AttrLabel DOMKeyboardEventKeyLocationPropertyInfo = "key-location" attrGet _ = getDOMKeyboardEventKeyLocation attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "meta-key" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) getDOMKeyboardEventMetaKey :: (MonadIO m, DOMKeyboardEventK o) => o -> m Bool getDOMKeyboardEventMetaKey obj = liftIO $ getObjectPropertyBool obj "meta-key" @@ -311,10 +329,12 @@ attrGet _ = getDOMKeyboardEventMetaKey attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "shift-key" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) getDOMKeyboardEventShiftKey :: (MonadIO m, DOMKeyboardEventK o) => o -> m Bool getDOMKeyboardEventShiftKey obj = liftIO $ getObjectPropertyBool obj "shift-key" @@ -329,10 +349,32 @@ attrGet _ = getDOMKeyboardEventShiftKey attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined type instance AttributeList DOMKeyboardEvent = DOMKeyboardEventAttributeList type DOMKeyboardEventAttributeList = ('[ '("altGraphKey", DOMKeyboardEventAltGraphKeyPropertyInfo), '("altKey", DOMKeyboardEventAltKeyPropertyInfo), '("bubbles", DOMEventBubblesPropertyInfo), '("cancelBubble", DOMEventCancelBubblePropertyInfo), '("cancelable", DOMEventCancelablePropertyInfo), '("charCode", DOMUIEventCharCodePropertyInfo), '("coreObject", DOMObjectCoreObjectPropertyInfo), '("ctrlKey", DOMKeyboardEventCtrlKeyPropertyInfo), '("currentTarget", DOMEventCurrentTargetPropertyInfo), '("defaultPrevented", DOMEventDefaultPreventedPropertyInfo), '("detail", DOMUIEventDetailPropertyInfo), '("eventPhase", DOMEventEventPhasePropertyInfo), '("keyCode", DOMUIEventKeyCodePropertyInfo), '("keyIdentifier", DOMKeyboardEventKeyIdentifierPropertyInfo), '("keyLocation", DOMKeyboardEventKeyLocationPropertyInfo), '("layerX", DOMUIEventLayerXPropertyInfo), '("layerY", DOMUIEventLayerYPropertyInfo), '("metaKey", DOMKeyboardEventMetaKeyPropertyInfo), '("pageX", DOMUIEventPageXPropertyInfo), '("pageY", DOMUIEventPageYPropertyInfo), '("returnValue", DOMEventReturnValuePropertyInfo), '("shiftKey", DOMKeyboardEventShiftKeyPropertyInfo), '("srcElement", DOMEventSrcElementPropertyInfo), '("target", DOMEventTargetPropertyInfo), '("timeStamp", DOMEventTimeStampPropertyInfo), '("type", DOMEventTypePropertyInfo), '("view", DOMUIEventViewPropertyInfo), '("which", DOMUIEventWhichPropertyInfo)] :: [(Symbol, *)]) +dOMKeyboardEventAltGraphKey :: AttrLabelProxy "altGraphKey" +dOMKeyboardEventAltGraphKey = AttrLabelProxy + +dOMKeyboardEventAltKey :: AttrLabelProxy "altKey" +dOMKeyboardEventAltKey = AttrLabelProxy + +dOMKeyboardEventCtrlKey :: AttrLabelProxy "ctrlKey" +dOMKeyboardEventCtrlKey = AttrLabelProxy + +dOMKeyboardEventKeyIdentifier :: AttrLabelProxy "keyIdentifier" +dOMKeyboardEventKeyIdentifier = AttrLabelProxy + +dOMKeyboardEventKeyLocation :: AttrLabelProxy "keyLocation" +dOMKeyboardEventKeyLocation = AttrLabelProxy + +dOMKeyboardEventMetaKey :: AttrLabelProxy "metaKey" +dOMKeyboardEventMetaKey = AttrLabelProxy + +dOMKeyboardEventShiftKey :: AttrLabelProxy "shiftKey" +dOMKeyboardEventShiftKey = AttrLabelProxy + type instance SignalList DOMKeyboardEvent = DOMKeyboardEventSignalList type DOMKeyboardEventSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) @@ -340,7 +382,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMKeyboardEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -368,7 +410,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMKeyboardEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -396,7 +438,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMKeyboardEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -424,7 +466,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMKeyboardEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -454,19 +496,19 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMKeyboardEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUInt64 +-- returnType : Just (TBasicType TULong) -- throws : False -- Skip return : False foreign import ccall "webkit_dom_keyboard_event_get_key_location" webkit_dom_keyboard_event_get_key_location :: Ptr DOMKeyboardEvent -> -- _obj : TInterface "WebKit" "DOMKeyboardEvent" - IO Word64 + IO CULong dOMKeyboardEventGetKeyLocation :: (MonadIO m, DOMKeyboardEventK a) => a -- _obj - -> m Word64 -- result + -> m CULong -- result dOMKeyboardEventGetKeyLocation _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- webkit_dom_keyboard_event_get_key_location _obj' @@ -474,14 +516,14 @@ return result data DOMKeyboardEventGetKeyLocationMethodInfo -instance (signature ~ (m Word64), MonadIO m, DOMKeyboardEventK a) => MethodInfo DOMKeyboardEventGetKeyLocationMethodInfo a signature where +instance (signature ~ (m CULong), MonadIO m, DOMKeyboardEventK a) => MethodInfo DOMKeyboardEventGetKeyLocationMethodInfo a signature where overloadedMethod _ = dOMKeyboardEventGetKeyLocation -- method DOMKeyboardEvent::get_meta_key -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMKeyboardEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -509,7 +551,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMKeyboardEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "keyIdentifierArg", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -541,7 +583,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMKeyboardEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -567,9 +609,9 @@ -- method DOMKeyboardEvent::init_keyboard_event -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMKeyboardEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "canBubble", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancelable", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "view", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "keyIdentifier", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "location", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "ctrlKey", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "altKey", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "shiftKey", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "metaKey", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "altGraphKey", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMKeyboardEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "canBubble", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancelable", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "view", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "keyIdentifier", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "location", argType = TBasicType TULong, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "ctrlKey", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "altKey", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "shiftKey", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "metaKey", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "altGraphKey", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -580,7 +622,7 @@ CInt -> -- cancelable : TBasicType TBoolean Ptr DOMDOMWindow -> -- view : TInterface "WebKit" "DOMDOMWindow" CString -> -- keyIdentifier : TBasicType TUTF8 - Word64 -> -- location : TBasicType TUInt64 + CULong -> -- location : TBasicType TULong CInt -> -- ctrlKey : TBasicType TBoolean CInt -> -- altKey : TBasicType TBoolean CInt -> -- shiftKey : TBasicType TBoolean @@ -597,7 +639,7 @@ -> Bool -- cancelable -> b -- view -> T.Text -- keyIdentifier - -> Word64 -- location + -> CULong -- location -> Bool -- ctrlKey -> Bool -- altKey -> Bool -- shiftKey @@ -624,7 +666,7 @@ return () data DOMKeyboardEventInitKeyboardEventMethodInfo -instance (signature ~ (T.Text -> Bool -> Bool -> b -> T.Text -> Word64 -> Bool -> Bool -> Bool -> Bool -> Bool -> m ()), MonadIO m, DOMKeyboardEventK a, DOMDOMWindowK b) => MethodInfo DOMKeyboardEventInitKeyboardEventMethodInfo a signature where +instance (signature ~ (T.Text -> Bool -> Bool -> b -> T.Text -> CULong -> Bool -> Bool -> Bool -> Bool -> Bool -> m ()), MonadIO m, DOMKeyboardEventK a, DOMDOMWindowK b) => MethodInfo DOMKeyboardEventInitKeyboardEventMethodInfo a signature where overloadedMethod _ = dOMKeyboardEventInitKeyboardEvent diff --git a/GI/WebKit/Objects/DOMKeyboardEvent.hs-boot b/GI/WebKit/Objects/DOMKeyboardEvent.hs-boot --- a/GI/WebKit/Objects/DOMKeyboardEvent.hs-boot +++ b/GI/WebKit/Objects/DOMKeyboardEvent.hs-boot @@ -1,8 +1,8 @@ module GI.WebKit.Objects.DOMKeyboardEvent where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map diff --git a/GI/WebKit/Objects/DOMLocation.hs b/GI/WebKit/Objects/DOMLocation.hs --- a/GI/WebKit/Objects/DOMLocation.hs +++ b/GI/WebKit/Objects/DOMLocation.hs @@ -72,51 +72,61 @@ -- * Properties -- ** AncestorOrigins DOMLocationAncestorOriginsPropertyInfo , + dOMLocationAncestorOrigins , getDOMLocationAncestorOrigins , -- ** Hash DOMLocationHashPropertyInfo , + dOMLocationHash , getDOMLocationHash , -- ** Host DOMLocationHostPropertyInfo , + dOMLocationHost , getDOMLocationHost , -- ** Hostname DOMLocationHostnamePropertyInfo , + dOMLocationHostname , getDOMLocationHostname , -- ** Href DOMLocationHrefPropertyInfo , + dOMLocationHref , getDOMLocationHref , -- ** Origin DOMLocationOriginPropertyInfo , + dOMLocationOrigin , getDOMLocationOrigin , -- ** Pathname DOMLocationPathnamePropertyInfo , + dOMLocationPathname , getDOMLocationPathname , -- ** Port DOMLocationPortPropertyInfo , + dOMLocationPort , getDOMLocationPort , -- ** Protocol DOMLocationProtocolPropertyInfo , + dOMLocationProtocol , getDOMLocationProtocol , -- ** Search DOMLocationSearchPropertyInfo , + dOMLocationSearch , getDOMLocationSearch , @@ -124,9 +134,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map @@ -202,186 +212,236 @@ -- VVV Prop "ancestor-origins" -- Type: TInterface "WebKit" "DOMDOMStringList" -- Flags: [PropertyReadable] + -- Nullable: (Nothing,Nothing) -getDOMLocationAncestorOrigins :: (MonadIO m, DOMLocationK o) => o -> m DOMDOMStringList +getDOMLocationAncestorOrigins :: (MonadIO m, DOMLocationK o) => o -> m (Maybe DOMDOMStringList) getDOMLocationAncestorOrigins obj = liftIO $ getObjectPropertyObject obj "ancestor-origins" DOMDOMStringList data DOMLocationAncestorOriginsPropertyInfo instance AttrInfo DOMLocationAncestorOriginsPropertyInfo where - type AttrAllowedOps DOMLocationAncestorOriginsPropertyInfo = '[ 'AttrGet] + type AttrAllowedOps DOMLocationAncestorOriginsPropertyInfo = '[ 'AttrGet, 'AttrClear] type AttrSetTypeConstraint DOMLocationAncestorOriginsPropertyInfo = (~) () type AttrBaseTypeConstraint DOMLocationAncestorOriginsPropertyInfo = DOMLocationK - type AttrGetType DOMLocationAncestorOriginsPropertyInfo = DOMDOMStringList + type AttrGetType DOMLocationAncestorOriginsPropertyInfo = (Maybe DOMDOMStringList) type AttrLabel DOMLocationAncestorOriginsPropertyInfo = "ancestor-origins" attrGet _ = getDOMLocationAncestorOrigins attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "hash" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable] + -- Nullable: (Nothing,Nothing) -getDOMLocationHash :: (MonadIO m, DOMLocationK o) => o -> m T.Text +getDOMLocationHash :: (MonadIO m, DOMLocationK o) => o -> m (Maybe T.Text) getDOMLocationHash obj = liftIO $ getObjectPropertyString obj "hash" data DOMLocationHashPropertyInfo instance AttrInfo DOMLocationHashPropertyInfo where - type AttrAllowedOps DOMLocationHashPropertyInfo = '[ 'AttrGet] + type AttrAllowedOps DOMLocationHashPropertyInfo = '[ 'AttrGet, 'AttrClear] type AttrSetTypeConstraint DOMLocationHashPropertyInfo = (~) () type AttrBaseTypeConstraint DOMLocationHashPropertyInfo = DOMLocationK - type AttrGetType DOMLocationHashPropertyInfo = T.Text + type AttrGetType DOMLocationHashPropertyInfo = (Maybe T.Text) type AttrLabel DOMLocationHashPropertyInfo = "hash" attrGet _ = getDOMLocationHash attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "host" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable] + -- Nullable: (Nothing,Nothing) -getDOMLocationHost :: (MonadIO m, DOMLocationK o) => o -> m T.Text +getDOMLocationHost :: (MonadIO m, DOMLocationK o) => o -> m (Maybe T.Text) getDOMLocationHost obj = liftIO $ getObjectPropertyString obj "host" data DOMLocationHostPropertyInfo instance AttrInfo DOMLocationHostPropertyInfo where - type AttrAllowedOps DOMLocationHostPropertyInfo = '[ 'AttrGet] + type AttrAllowedOps DOMLocationHostPropertyInfo = '[ 'AttrGet, 'AttrClear] type AttrSetTypeConstraint DOMLocationHostPropertyInfo = (~) () type AttrBaseTypeConstraint DOMLocationHostPropertyInfo = DOMLocationK - type AttrGetType DOMLocationHostPropertyInfo = T.Text + type AttrGetType DOMLocationHostPropertyInfo = (Maybe T.Text) type AttrLabel DOMLocationHostPropertyInfo = "host" attrGet _ = getDOMLocationHost attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "hostname" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable] + -- Nullable: (Nothing,Nothing) -getDOMLocationHostname :: (MonadIO m, DOMLocationK o) => o -> m T.Text +getDOMLocationHostname :: (MonadIO m, DOMLocationK o) => o -> m (Maybe T.Text) getDOMLocationHostname obj = liftIO $ getObjectPropertyString obj "hostname" data DOMLocationHostnamePropertyInfo instance AttrInfo DOMLocationHostnamePropertyInfo where - type AttrAllowedOps DOMLocationHostnamePropertyInfo = '[ 'AttrGet] + type AttrAllowedOps DOMLocationHostnamePropertyInfo = '[ 'AttrGet, 'AttrClear] type AttrSetTypeConstraint DOMLocationHostnamePropertyInfo = (~) () type AttrBaseTypeConstraint DOMLocationHostnamePropertyInfo = DOMLocationK - type AttrGetType DOMLocationHostnamePropertyInfo = T.Text + type AttrGetType DOMLocationHostnamePropertyInfo = (Maybe T.Text) type AttrLabel DOMLocationHostnamePropertyInfo = "hostname" attrGet _ = getDOMLocationHostname attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "href" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable] + -- Nullable: (Nothing,Nothing) -getDOMLocationHref :: (MonadIO m, DOMLocationK o) => o -> m T.Text +getDOMLocationHref :: (MonadIO m, DOMLocationK o) => o -> m (Maybe T.Text) getDOMLocationHref obj = liftIO $ getObjectPropertyString obj "href" data DOMLocationHrefPropertyInfo instance AttrInfo DOMLocationHrefPropertyInfo where - type AttrAllowedOps DOMLocationHrefPropertyInfo = '[ 'AttrGet] + type AttrAllowedOps DOMLocationHrefPropertyInfo = '[ 'AttrGet, 'AttrClear] type AttrSetTypeConstraint DOMLocationHrefPropertyInfo = (~) () type AttrBaseTypeConstraint DOMLocationHrefPropertyInfo = DOMLocationK - type AttrGetType DOMLocationHrefPropertyInfo = T.Text + type AttrGetType DOMLocationHrefPropertyInfo = (Maybe T.Text) type AttrLabel DOMLocationHrefPropertyInfo = "href" attrGet _ = getDOMLocationHref attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "origin" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable] + -- Nullable: (Nothing,Nothing) -getDOMLocationOrigin :: (MonadIO m, DOMLocationK o) => o -> m T.Text +getDOMLocationOrigin :: (MonadIO m, DOMLocationK o) => o -> m (Maybe T.Text) getDOMLocationOrigin obj = liftIO $ getObjectPropertyString obj "origin" data DOMLocationOriginPropertyInfo instance AttrInfo DOMLocationOriginPropertyInfo where - type AttrAllowedOps DOMLocationOriginPropertyInfo = '[ 'AttrGet] + type AttrAllowedOps DOMLocationOriginPropertyInfo = '[ 'AttrGet, 'AttrClear] type AttrSetTypeConstraint DOMLocationOriginPropertyInfo = (~) () type AttrBaseTypeConstraint DOMLocationOriginPropertyInfo = DOMLocationK - type AttrGetType DOMLocationOriginPropertyInfo = T.Text + type AttrGetType DOMLocationOriginPropertyInfo = (Maybe T.Text) type AttrLabel DOMLocationOriginPropertyInfo = "origin" attrGet _ = getDOMLocationOrigin attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "pathname" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable] + -- Nullable: (Nothing,Nothing) -getDOMLocationPathname :: (MonadIO m, DOMLocationK o) => o -> m T.Text +getDOMLocationPathname :: (MonadIO m, DOMLocationK o) => o -> m (Maybe T.Text) getDOMLocationPathname obj = liftIO $ getObjectPropertyString obj "pathname" data DOMLocationPathnamePropertyInfo instance AttrInfo DOMLocationPathnamePropertyInfo where - type AttrAllowedOps DOMLocationPathnamePropertyInfo = '[ 'AttrGet] + type AttrAllowedOps DOMLocationPathnamePropertyInfo = '[ 'AttrGet, 'AttrClear] type AttrSetTypeConstraint DOMLocationPathnamePropertyInfo = (~) () type AttrBaseTypeConstraint DOMLocationPathnamePropertyInfo = DOMLocationK - type AttrGetType DOMLocationPathnamePropertyInfo = T.Text + type AttrGetType DOMLocationPathnamePropertyInfo = (Maybe T.Text) type AttrLabel DOMLocationPathnamePropertyInfo = "pathname" attrGet _ = getDOMLocationPathname attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "port" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable] + -- Nullable: (Nothing,Nothing) -getDOMLocationPort :: (MonadIO m, DOMLocationK o) => o -> m T.Text +getDOMLocationPort :: (MonadIO m, DOMLocationK o) => o -> m (Maybe T.Text) getDOMLocationPort obj = liftIO $ getObjectPropertyString obj "port" data DOMLocationPortPropertyInfo instance AttrInfo DOMLocationPortPropertyInfo where - type AttrAllowedOps DOMLocationPortPropertyInfo = '[ 'AttrGet] + type AttrAllowedOps DOMLocationPortPropertyInfo = '[ 'AttrGet, 'AttrClear] type AttrSetTypeConstraint DOMLocationPortPropertyInfo = (~) () type AttrBaseTypeConstraint DOMLocationPortPropertyInfo = DOMLocationK - type AttrGetType DOMLocationPortPropertyInfo = T.Text + type AttrGetType DOMLocationPortPropertyInfo = (Maybe T.Text) type AttrLabel DOMLocationPortPropertyInfo = "port" attrGet _ = getDOMLocationPort attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "protocol" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable] + -- Nullable: (Nothing,Nothing) -getDOMLocationProtocol :: (MonadIO m, DOMLocationK o) => o -> m T.Text +getDOMLocationProtocol :: (MonadIO m, DOMLocationK o) => o -> m (Maybe T.Text) getDOMLocationProtocol obj = liftIO $ getObjectPropertyString obj "protocol" data DOMLocationProtocolPropertyInfo instance AttrInfo DOMLocationProtocolPropertyInfo where - type AttrAllowedOps DOMLocationProtocolPropertyInfo = '[ 'AttrGet] + type AttrAllowedOps DOMLocationProtocolPropertyInfo = '[ 'AttrGet, 'AttrClear] type AttrSetTypeConstraint DOMLocationProtocolPropertyInfo = (~) () type AttrBaseTypeConstraint DOMLocationProtocolPropertyInfo = DOMLocationK - type AttrGetType DOMLocationProtocolPropertyInfo = T.Text + type AttrGetType DOMLocationProtocolPropertyInfo = (Maybe T.Text) type AttrLabel DOMLocationProtocolPropertyInfo = "protocol" attrGet _ = getDOMLocationProtocol attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "search" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable] + -- Nullable: (Nothing,Nothing) -getDOMLocationSearch :: (MonadIO m, DOMLocationK o) => o -> m T.Text +getDOMLocationSearch :: (MonadIO m, DOMLocationK o) => o -> m (Maybe T.Text) getDOMLocationSearch obj = liftIO $ getObjectPropertyString obj "search" data DOMLocationSearchPropertyInfo instance AttrInfo DOMLocationSearchPropertyInfo where - type AttrAllowedOps DOMLocationSearchPropertyInfo = '[ 'AttrGet] + type AttrAllowedOps DOMLocationSearchPropertyInfo = '[ 'AttrGet, 'AttrClear] type AttrSetTypeConstraint DOMLocationSearchPropertyInfo = (~) () type AttrBaseTypeConstraint DOMLocationSearchPropertyInfo = DOMLocationK - type AttrGetType DOMLocationSearchPropertyInfo = T.Text + type AttrGetType DOMLocationSearchPropertyInfo = (Maybe T.Text) type AttrLabel DOMLocationSearchPropertyInfo = "search" attrGet _ = getDOMLocationSearch attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined type instance AttributeList DOMLocation = DOMLocationAttributeList type DOMLocationAttributeList = ('[ '("ancestorOrigins", DOMLocationAncestorOriginsPropertyInfo), '("coreObject", DOMObjectCoreObjectPropertyInfo), '("hash", DOMLocationHashPropertyInfo), '("host", DOMLocationHostPropertyInfo), '("hostname", DOMLocationHostnamePropertyInfo), '("href", DOMLocationHrefPropertyInfo), '("origin", DOMLocationOriginPropertyInfo), '("pathname", DOMLocationPathnamePropertyInfo), '("port", DOMLocationPortPropertyInfo), '("protocol", DOMLocationProtocolPropertyInfo), '("search", DOMLocationSearchPropertyInfo)] :: [(Symbol, *)]) +dOMLocationAncestorOrigins :: AttrLabelProxy "ancestorOrigins" +dOMLocationAncestorOrigins = AttrLabelProxy + +dOMLocationHash :: AttrLabelProxy "hash" +dOMLocationHash = AttrLabelProxy + +dOMLocationHost :: AttrLabelProxy "host" +dOMLocationHost = AttrLabelProxy + +dOMLocationHostname :: AttrLabelProxy "hostname" +dOMLocationHostname = AttrLabelProxy + +dOMLocationHref :: AttrLabelProxy "href" +dOMLocationHref = AttrLabelProxy + +dOMLocationOrigin :: AttrLabelProxy "origin" +dOMLocationOrigin = AttrLabelProxy + +dOMLocationPathname :: AttrLabelProxy "pathname" +dOMLocationPathname = AttrLabelProxy + +dOMLocationPort :: AttrLabelProxy "port" +dOMLocationPort = AttrLabelProxy + +dOMLocationProtocol :: AttrLabelProxy "protocol" +dOMLocationProtocol = AttrLabelProxy + +dOMLocationSearch :: AttrLabelProxy "search" +dOMLocationSearch = AttrLabelProxy + type instance SignalList DOMLocation = DOMLocationSignalList type DOMLocationSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) @@ -389,7 +449,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMLocation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit" "DOMDOMStringList" +-- returnType : Just (TInterface "WebKit" "DOMDOMStringList") -- throws : False -- Skip return : False @@ -418,7 +478,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMLocation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -448,7 +508,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMLocation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -478,7 +538,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMLocation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -508,7 +568,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMLocation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -538,7 +598,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMLocation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -568,7 +628,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMLocation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -598,7 +658,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMLocation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -628,7 +688,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMLocation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -658,7 +718,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMLocation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False diff --git a/GI/WebKit/Objects/DOMLocation.hs-boot b/GI/WebKit/Objects/DOMLocation.hs-boot --- a/GI/WebKit/Objects/DOMLocation.hs-boot +++ b/GI/WebKit/Objects/DOMLocation.hs-boot @@ -1,8 +1,8 @@ module GI.WebKit.Objects.DOMLocation where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map diff --git a/GI/WebKit/Objects/DOMMediaController.hs b/GI/WebKit/Objects/DOMMediaController.hs --- a/GI/WebKit/Objects/DOMMediaController.hs +++ b/GI/WebKit/Objects/DOMMediaController.hs @@ -117,12 +117,14 @@ -- * Properties -- ** Buffered DOMMediaControllerBufferedPropertyInfo , + dOMMediaControllerBuffered , getDOMMediaControllerBuffered , -- ** CurrentTime DOMMediaControllerCurrentTimePropertyInfo, constructDOMMediaControllerCurrentTime , + dOMMediaControllerCurrentTime , getDOMMediaControllerCurrentTime , setDOMMediaControllerCurrentTime , @@ -130,52 +132,61 @@ -- ** DefaultPlaybackRate DOMMediaControllerDefaultPlaybackRatePropertyInfo, constructDOMMediaControllerDefaultPlaybackRate, + dOMMediaControllerDefaultPlaybackRate , getDOMMediaControllerDefaultPlaybackRate, setDOMMediaControllerDefaultPlaybackRate, -- ** Duration DOMMediaControllerDurationPropertyInfo , + dOMMediaControllerDuration , getDOMMediaControllerDuration , -- ** Muted DOMMediaControllerMutedPropertyInfo , constructDOMMediaControllerMuted , + dOMMediaControllerMuted , getDOMMediaControllerMuted , setDOMMediaControllerMuted , -- ** Paused DOMMediaControllerPausedPropertyInfo , + dOMMediaControllerPaused , getDOMMediaControllerPaused , -- ** PlaybackRate DOMMediaControllerPlaybackRatePropertyInfo, constructDOMMediaControllerPlaybackRate , + dOMMediaControllerPlaybackRate , getDOMMediaControllerPlaybackRate , setDOMMediaControllerPlaybackRate , -- ** PlaybackState DOMMediaControllerPlaybackStatePropertyInfo, + dOMMediaControllerPlaybackState , getDOMMediaControllerPlaybackState , -- ** Played DOMMediaControllerPlayedPropertyInfo , + dOMMediaControllerPlayed , getDOMMediaControllerPlayed , -- ** Seekable DOMMediaControllerSeekablePropertyInfo , + dOMMediaControllerSeekable , getDOMMediaControllerSeekable , -- ** Volume DOMMediaControllerVolumePropertyInfo , constructDOMMediaControllerVolume , + dOMMediaControllerVolume , getDOMMediaControllerVolume , setDOMMediaControllerVolume , @@ -184,9 +195,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map @@ -274,24 +285,27 @@ -- VVV Prop "buffered" -- Type: TInterface "WebKit" "DOMTimeRanges" -- Flags: [PropertyReadable] + -- Nullable: (Nothing,Nothing) -getDOMMediaControllerBuffered :: (MonadIO m, DOMMediaControllerK o) => o -> m DOMTimeRanges +getDOMMediaControllerBuffered :: (MonadIO m, DOMMediaControllerK o) => o -> m (Maybe DOMTimeRanges) getDOMMediaControllerBuffered obj = liftIO $ getObjectPropertyObject obj "buffered" DOMTimeRanges data DOMMediaControllerBufferedPropertyInfo instance AttrInfo DOMMediaControllerBufferedPropertyInfo where - type AttrAllowedOps DOMMediaControllerBufferedPropertyInfo = '[ 'AttrGet] + type AttrAllowedOps DOMMediaControllerBufferedPropertyInfo = '[ 'AttrGet, 'AttrClear] type AttrSetTypeConstraint DOMMediaControllerBufferedPropertyInfo = (~) () type AttrBaseTypeConstraint DOMMediaControllerBufferedPropertyInfo = DOMMediaControllerK - type AttrGetType DOMMediaControllerBufferedPropertyInfo = DOMTimeRanges + type AttrGetType DOMMediaControllerBufferedPropertyInfo = (Maybe DOMTimeRanges) type AttrLabel DOMMediaControllerBufferedPropertyInfo = "buffered" attrGet _ = getDOMMediaControllerBuffered attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "current-time" -- Type: TBasicType TDouble -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getDOMMediaControllerCurrentTime :: (MonadIO m, DOMMediaControllerK o) => o -> m Double getDOMMediaControllerCurrentTime obj = liftIO $ getObjectPropertyDouble obj "current-time" @@ -312,10 +326,12 @@ attrGet _ = getDOMMediaControllerCurrentTime attrSet _ = setDOMMediaControllerCurrentTime attrConstruct _ = constructDOMMediaControllerCurrentTime + attrClear _ = undefined -- VVV Prop "default-playback-rate" -- Type: TBasicType TDouble -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getDOMMediaControllerDefaultPlaybackRate :: (MonadIO m, DOMMediaControllerK o) => o -> m Double getDOMMediaControllerDefaultPlaybackRate obj = liftIO $ getObjectPropertyDouble obj "default-playback-rate" @@ -336,10 +352,12 @@ attrGet _ = getDOMMediaControllerDefaultPlaybackRate attrSet _ = setDOMMediaControllerDefaultPlaybackRate attrConstruct _ = constructDOMMediaControllerDefaultPlaybackRate + attrClear _ = undefined -- VVV Prop "duration" -- Type: TBasicType TDouble -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) getDOMMediaControllerDuration :: (MonadIO m, DOMMediaControllerK o) => o -> m Double getDOMMediaControllerDuration obj = liftIO $ getObjectPropertyDouble obj "duration" @@ -354,10 +372,12 @@ attrGet _ = getDOMMediaControllerDuration attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "muted" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getDOMMediaControllerMuted :: (MonadIO m, DOMMediaControllerK o) => o -> m Bool getDOMMediaControllerMuted obj = liftIO $ getObjectPropertyBool obj "muted" @@ -378,10 +398,12 @@ attrGet _ = getDOMMediaControllerMuted attrSet _ = setDOMMediaControllerMuted attrConstruct _ = constructDOMMediaControllerMuted + attrClear _ = undefined -- VVV Prop "paused" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) getDOMMediaControllerPaused :: (MonadIO m, DOMMediaControllerK o) => o -> m Bool getDOMMediaControllerPaused obj = liftIO $ getObjectPropertyBool obj "paused" @@ -396,10 +418,12 @@ attrGet _ = getDOMMediaControllerPaused attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "playback-rate" -- Type: TBasicType TDouble -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getDOMMediaControllerPlaybackRate :: (MonadIO m, DOMMediaControllerK o) => o -> m Double getDOMMediaControllerPlaybackRate obj = liftIO $ getObjectPropertyDouble obj "playback-rate" @@ -420,64 +444,72 @@ attrGet _ = getDOMMediaControllerPlaybackRate attrSet _ = setDOMMediaControllerPlaybackRate attrConstruct _ = constructDOMMediaControllerPlaybackRate + attrClear _ = undefined -- VVV Prop "playback-state" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable] + -- Nullable: (Nothing,Nothing) -getDOMMediaControllerPlaybackState :: (MonadIO m, DOMMediaControllerK o) => o -> m T.Text +getDOMMediaControllerPlaybackState :: (MonadIO m, DOMMediaControllerK o) => o -> m (Maybe T.Text) getDOMMediaControllerPlaybackState obj = liftIO $ getObjectPropertyString obj "playback-state" data DOMMediaControllerPlaybackStatePropertyInfo instance AttrInfo DOMMediaControllerPlaybackStatePropertyInfo where - type AttrAllowedOps DOMMediaControllerPlaybackStatePropertyInfo = '[ 'AttrGet] + type AttrAllowedOps DOMMediaControllerPlaybackStatePropertyInfo = '[ 'AttrGet, 'AttrClear] type AttrSetTypeConstraint DOMMediaControllerPlaybackStatePropertyInfo = (~) () type AttrBaseTypeConstraint DOMMediaControllerPlaybackStatePropertyInfo = DOMMediaControllerK - type AttrGetType DOMMediaControllerPlaybackStatePropertyInfo = T.Text + type AttrGetType DOMMediaControllerPlaybackStatePropertyInfo = (Maybe T.Text) type AttrLabel DOMMediaControllerPlaybackStatePropertyInfo = "playback-state" attrGet _ = getDOMMediaControllerPlaybackState attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "played" -- Type: TInterface "WebKit" "DOMTimeRanges" -- Flags: [PropertyReadable] + -- Nullable: (Nothing,Nothing) -getDOMMediaControllerPlayed :: (MonadIO m, DOMMediaControllerK o) => o -> m DOMTimeRanges +getDOMMediaControllerPlayed :: (MonadIO m, DOMMediaControllerK o) => o -> m (Maybe DOMTimeRanges) getDOMMediaControllerPlayed obj = liftIO $ getObjectPropertyObject obj "played" DOMTimeRanges data DOMMediaControllerPlayedPropertyInfo instance AttrInfo DOMMediaControllerPlayedPropertyInfo where - type AttrAllowedOps DOMMediaControllerPlayedPropertyInfo = '[ 'AttrGet] + type AttrAllowedOps DOMMediaControllerPlayedPropertyInfo = '[ 'AttrGet, 'AttrClear] type AttrSetTypeConstraint DOMMediaControllerPlayedPropertyInfo = (~) () type AttrBaseTypeConstraint DOMMediaControllerPlayedPropertyInfo = DOMMediaControllerK - type AttrGetType DOMMediaControllerPlayedPropertyInfo = DOMTimeRanges + type AttrGetType DOMMediaControllerPlayedPropertyInfo = (Maybe DOMTimeRanges) type AttrLabel DOMMediaControllerPlayedPropertyInfo = "played" attrGet _ = getDOMMediaControllerPlayed attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "seekable" -- Type: TInterface "WebKit" "DOMTimeRanges" -- Flags: [PropertyReadable] + -- Nullable: (Nothing,Nothing) -getDOMMediaControllerSeekable :: (MonadIO m, DOMMediaControllerK o) => o -> m DOMTimeRanges +getDOMMediaControllerSeekable :: (MonadIO m, DOMMediaControllerK o) => o -> m (Maybe DOMTimeRanges) getDOMMediaControllerSeekable obj = liftIO $ getObjectPropertyObject obj "seekable" DOMTimeRanges data DOMMediaControllerSeekablePropertyInfo instance AttrInfo DOMMediaControllerSeekablePropertyInfo where - type AttrAllowedOps DOMMediaControllerSeekablePropertyInfo = '[ 'AttrGet] + type AttrAllowedOps DOMMediaControllerSeekablePropertyInfo = '[ 'AttrGet, 'AttrClear] type AttrSetTypeConstraint DOMMediaControllerSeekablePropertyInfo = (~) () type AttrBaseTypeConstraint DOMMediaControllerSeekablePropertyInfo = DOMMediaControllerK - type AttrGetType DOMMediaControllerSeekablePropertyInfo = DOMTimeRanges + type AttrGetType DOMMediaControllerSeekablePropertyInfo = (Maybe DOMTimeRanges) type AttrLabel DOMMediaControllerSeekablePropertyInfo = "seekable" attrGet _ = getDOMMediaControllerSeekable attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "volume" -- Type: TBasicType TDouble -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Nothing) getDOMMediaControllerVolume :: (MonadIO m, DOMMediaControllerK o) => o -> m Double getDOMMediaControllerVolume obj = liftIO $ getObjectPropertyDouble obj "volume" @@ -498,10 +530,44 @@ attrGet _ = getDOMMediaControllerVolume attrSet _ = setDOMMediaControllerVolume attrConstruct _ = constructDOMMediaControllerVolume + attrClear _ = undefined type instance AttributeList DOMMediaController = DOMMediaControllerAttributeList type DOMMediaControllerAttributeList = ('[ '("buffered", DOMMediaControllerBufferedPropertyInfo), '("coreObject", DOMObjectCoreObjectPropertyInfo), '("currentTime", DOMMediaControllerCurrentTimePropertyInfo), '("defaultPlaybackRate", DOMMediaControllerDefaultPlaybackRatePropertyInfo), '("duration", DOMMediaControllerDurationPropertyInfo), '("muted", DOMMediaControllerMutedPropertyInfo), '("paused", DOMMediaControllerPausedPropertyInfo), '("playbackRate", DOMMediaControllerPlaybackRatePropertyInfo), '("playbackState", DOMMediaControllerPlaybackStatePropertyInfo), '("played", DOMMediaControllerPlayedPropertyInfo), '("seekable", DOMMediaControllerSeekablePropertyInfo), '("volume", DOMMediaControllerVolumePropertyInfo)] :: [(Symbol, *)]) +dOMMediaControllerBuffered :: AttrLabelProxy "buffered" +dOMMediaControllerBuffered = AttrLabelProxy + +dOMMediaControllerCurrentTime :: AttrLabelProxy "currentTime" +dOMMediaControllerCurrentTime = AttrLabelProxy + +dOMMediaControllerDefaultPlaybackRate :: AttrLabelProxy "defaultPlaybackRate" +dOMMediaControllerDefaultPlaybackRate = AttrLabelProxy + +dOMMediaControllerDuration :: AttrLabelProxy "duration" +dOMMediaControllerDuration = AttrLabelProxy + +dOMMediaControllerMuted :: AttrLabelProxy "muted" +dOMMediaControllerMuted = AttrLabelProxy + +dOMMediaControllerPaused :: AttrLabelProxy "paused" +dOMMediaControllerPaused = AttrLabelProxy + +dOMMediaControllerPlaybackRate :: AttrLabelProxy "playbackRate" +dOMMediaControllerPlaybackRate = AttrLabelProxy + +dOMMediaControllerPlaybackState :: AttrLabelProxy "playbackState" +dOMMediaControllerPlaybackState = AttrLabelProxy + +dOMMediaControllerPlayed :: AttrLabelProxy "played" +dOMMediaControllerPlayed = AttrLabelProxy + +dOMMediaControllerSeekable :: AttrLabelProxy "seekable" +dOMMediaControllerSeekable = AttrLabelProxy + +dOMMediaControllerVolume :: AttrLabelProxy "volume" +dOMMediaControllerVolume = AttrLabelProxy + type instance SignalList DOMMediaController = DOMMediaControllerSignalList type DOMMediaControllerSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) @@ -509,7 +575,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMMediaController", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit" "DOMTimeRanges" +-- returnType : Just (TInterface "WebKit" "DOMTimeRanges") -- throws : False -- Skip return : False @@ -538,7 +604,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMMediaController", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TDouble +-- returnType : Just (TBasicType TDouble) -- throws : False -- Skip return : False @@ -566,7 +632,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMMediaController", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TDouble +-- returnType : Just (TBasicType TDouble) -- throws : False -- Skip return : False @@ -594,7 +660,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMMediaController", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TDouble +-- returnType : Just (TBasicType TDouble) -- throws : False -- Skip return : False @@ -622,7 +688,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMMediaController", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -650,7 +716,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMMediaController", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -678,7 +744,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMMediaController", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TDouble +-- returnType : Just (TBasicType TDouble) -- throws : False -- Skip return : False @@ -706,7 +772,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMMediaController", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -736,7 +802,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMMediaController", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit" "DOMTimeRanges" +-- returnType : Just (TInterface "WebKit" "DOMTimeRanges") -- throws : False -- Skip return : False @@ -765,7 +831,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMMediaController", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit" "DOMTimeRanges" +-- returnType : Just (TInterface "WebKit" "DOMTimeRanges") -- throws : False -- Skip return : False @@ -794,7 +860,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMMediaController", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TDouble +-- returnType : Just (TBasicType TDouble) -- throws : False -- Skip return : False @@ -822,7 +888,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMMediaController", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -849,7 +915,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMMediaController", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -876,7 +942,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMMediaController", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -906,7 +972,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMMediaController", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -936,7 +1002,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMMediaController", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -966,7 +1032,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMMediaController", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -996,7 +1062,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMMediaController", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : True -- Skip return : False @@ -1031,7 +1097,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMMediaController", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False diff --git a/GI/WebKit/Objects/DOMMediaController.hs-boot b/GI/WebKit/Objects/DOMMediaController.hs-boot --- a/GI/WebKit/Objects/DOMMediaController.hs-boot +++ b/GI/WebKit/Objects/DOMMediaController.hs-boot @@ -1,8 +1,8 @@ module GI.WebKit.Objects.DOMMediaController where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map diff --git a/GI/WebKit/Objects/DOMMediaError.hs b/GI/WebKit/Objects/DOMMediaError.hs --- a/GI/WebKit/Objects/DOMMediaError.hs +++ b/GI/WebKit/Objects/DOMMediaError.hs @@ -27,6 +27,7 @@ -- * Properties -- ** Code DOMMediaErrorCodePropertyInfo , + dOMMediaErrorCode , getDOMMediaErrorCode , @@ -34,9 +35,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map @@ -101,11 +102,12 @@ #endif -- VVV Prop "code" - -- Type: TBasicType TUInt32 + -- Type: TBasicType TUInt -- Flags: [PropertyReadable] + -- Nullable: (Nothing,Nothing) getDOMMediaErrorCode :: (MonadIO m, DOMMediaErrorK o) => o -> m Word32 -getDOMMediaErrorCode obj = liftIO $ getObjectPropertyCUInt obj "code" +getDOMMediaErrorCode obj = liftIO $ getObjectPropertyUInt32 obj "code" data DOMMediaErrorCodePropertyInfo instance AttrInfo DOMMediaErrorCodePropertyInfo where @@ -117,10 +119,14 @@ attrGet _ = getDOMMediaErrorCode attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined type instance AttributeList DOMMediaError = DOMMediaErrorAttributeList type DOMMediaErrorAttributeList = ('[ '("code", DOMMediaErrorCodePropertyInfo), '("coreObject", DOMObjectCoreObjectPropertyInfo)] :: [(Symbol, *)]) +dOMMediaErrorCode :: AttrLabelProxy "code" +dOMMediaErrorCode = AttrLabelProxy + type instance SignalList DOMMediaError = DOMMediaErrorSignalList type DOMMediaErrorSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) @@ -128,7 +134,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMMediaError", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUInt16 +-- returnType : Just (TBasicType TUInt16) -- throws : False -- Skip return : False diff --git a/GI/WebKit/Objects/DOMMediaError.hs-boot b/GI/WebKit/Objects/DOMMediaError.hs-boot --- a/GI/WebKit/Objects/DOMMediaError.hs-boot +++ b/GI/WebKit/Objects/DOMMediaError.hs-boot @@ -1,8 +1,8 @@ module GI.WebKit.Objects.DOMMediaError where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map diff --git a/GI/WebKit/Objects/DOMMediaList.hs b/GI/WebKit/Objects/DOMMediaList.hs --- a/GI/WebKit/Objects/DOMMediaList.hs +++ b/GI/WebKit/Objects/DOMMediaList.hs @@ -52,12 +52,15 @@ -- * Properties -- ** Length DOMMediaListLengthPropertyInfo , + dOMMediaListLength , getDOMMediaListLength , -- ** MediaText DOMMediaListMediaTextPropertyInfo , + clearDOMMediaListMediaText , constructDOMMediaListMediaText , + dOMMediaListMediaText , getDOMMediaListMediaText , setDOMMediaListMediaText , @@ -66,9 +69,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map @@ -138,50 +141,63 @@ #endif -- VVV Prop "length" - -- Type: TBasicType TUInt64 + -- Type: TBasicType TULong -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) -getDOMMediaListLength :: (MonadIO m, DOMMediaListK o) => o -> m Word64 -getDOMMediaListLength obj = liftIO $ getObjectPropertyUInt64 obj "length" +getDOMMediaListLength :: (MonadIO m, DOMMediaListK o) => o -> m CULong +getDOMMediaListLength obj = liftIO $ getObjectPropertyULong obj "length" data DOMMediaListLengthPropertyInfo instance AttrInfo DOMMediaListLengthPropertyInfo where type AttrAllowedOps DOMMediaListLengthPropertyInfo = '[ 'AttrGet] type AttrSetTypeConstraint DOMMediaListLengthPropertyInfo = (~) () type AttrBaseTypeConstraint DOMMediaListLengthPropertyInfo = DOMMediaListK - type AttrGetType DOMMediaListLengthPropertyInfo = Word64 + type AttrGetType DOMMediaListLengthPropertyInfo = CULong type AttrLabel DOMMediaListLengthPropertyInfo = "length" attrGet _ = getDOMMediaListLength attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "media-text" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) -getDOMMediaListMediaText :: (MonadIO m, DOMMediaListK o) => o -> m T.Text +getDOMMediaListMediaText :: (MonadIO m, DOMMediaListK o) => o -> m (Maybe T.Text) getDOMMediaListMediaText obj = liftIO $ getObjectPropertyString obj "media-text" setDOMMediaListMediaText :: (MonadIO m, DOMMediaListK o) => o -> T.Text -> m () -setDOMMediaListMediaText obj val = liftIO $ setObjectPropertyString obj "media-text" val +setDOMMediaListMediaText obj val = liftIO $ setObjectPropertyString obj "media-text" (Just val) constructDOMMediaListMediaText :: T.Text -> IO ([Char], GValue) -constructDOMMediaListMediaText val = constructObjectPropertyString "media-text" val +constructDOMMediaListMediaText val = constructObjectPropertyString "media-text" (Just val) +clearDOMMediaListMediaText :: (MonadIO m, DOMMediaListK o) => o -> m () +clearDOMMediaListMediaText obj = liftIO $ setObjectPropertyString obj "media-text" (Nothing :: Maybe T.Text) + data DOMMediaListMediaTextPropertyInfo instance AttrInfo DOMMediaListMediaTextPropertyInfo where - type AttrAllowedOps DOMMediaListMediaTextPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrAllowedOps DOMMediaListMediaTextPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint DOMMediaListMediaTextPropertyInfo = (~) T.Text type AttrBaseTypeConstraint DOMMediaListMediaTextPropertyInfo = DOMMediaListK - type AttrGetType DOMMediaListMediaTextPropertyInfo = T.Text + type AttrGetType DOMMediaListMediaTextPropertyInfo = (Maybe T.Text) type AttrLabel DOMMediaListMediaTextPropertyInfo = "media-text" attrGet _ = getDOMMediaListMediaText attrSet _ = setDOMMediaListMediaText attrConstruct _ = constructDOMMediaListMediaText + attrClear _ = clearDOMMediaListMediaText type instance AttributeList DOMMediaList = DOMMediaListAttributeList type DOMMediaListAttributeList = ('[ '("coreObject", DOMObjectCoreObjectPropertyInfo), '("length", DOMMediaListLengthPropertyInfo), '("mediaText", DOMMediaListMediaTextPropertyInfo)] :: [(Symbol, *)]) +dOMMediaListLength :: AttrLabelProxy "length" +dOMMediaListLength = AttrLabelProxy + +dOMMediaListMediaText :: AttrLabelProxy "mediaText" +dOMMediaListMediaText = AttrLabelProxy + type instance SignalList DOMMediaList = DOMMediaListSignalList type DOMMediaListSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) @@ -189,7 +205,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMMediaList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "newMedium", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : True -- Skip return : False @@ -225,7 +241,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMMediaList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "oldMedium", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : True -- Skip return : False @@ -261,19 +277,19 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMMediaList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUInt64 +-- returnType : Just (TBasicType TULong) -- throws : False -- Skip return : False foreign import ccall "webkit_dom_media_list_get_length" webkit_dom_media_list_get_length :: Ptr DOMMediaList -> -- _obj : TInterface "WebKit" "DOMMediaList" - IO Word64 + IO CULong dOMMediaListGetLength :: (MonadIO m, DOMMediaListK a) => a -- _obj - -> m Word64 -- result + -> m CULong -- result dOMMediaListGetLength _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- webkit_dom_media_list_get_length _obj' @@ -281,14 +297,14 @@ return result data DOMMediaListGetLengthMethodInfo -instance (signature ~ (m Word64), MonadIO m, DOMMediaListK a) => MethodInfo DOMMediaListGetLengthMethodInfo a signature where +instance (signature ~ (m CULong), MonadIO m, DOMMediaListK a) => MethodInfo DOMMediaListGetLengthMethodInfo a signature where overloadedMethod _ = dOMMediaListGetLength -- method DOMMediaList::get_media_text -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMMediaList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -316,22 +332,22 @@ -- method DOMMediaList::item -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMMediaList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "index", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMMediaList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "index", argType = TBasicType TULong, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False foreign import ccall "webkit_dom_media_list_item" webkit_dom_media_list_item :: Ptr DOMMediaList -> -- _obj : TInterface "WebKit" "DOMMediaList" - Word64 -> -- index : TBasicType TUInt64 + CULong -> -- index : TBasicType TULong IO CString dOMMediaListItem :: (MonadIO m, DOMMediaListK a) => a -- _obj - -> Word64 -- index + -> CULong -- index -> m T.Text -- result dOMMediaListItem _obj index = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj @@ -343,14 +359,14 @@ return result' data DOMMediaListItemMethodInfo -instance (signature ~ (Word64 -> m T.Text), MonadIO m, DOMMediaListK a) => MethodInfo DOMMediaListItemMethodInfo a signature where +instance (signature ~ (CULong -> m T.Text), MonadIO m, DOMMediaListK a) => MethodInfo DOMMediaListItemMethodInfo a signature where overloadedMethod _ = dOMMediaListItem -- method DOMMediaList::set_media_text -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMMediaList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : True -- Skip return : False diff --git a/GI/WebKit/Objects/DOMMediaList.hs-boot b/GI/WebKit/Objects/DOMMediaList.hs-boot --- a/GI/WebKit/Objects/DOMMediaList.hs-boot +++ b/GI/WebKit/Objects/DOMMediaList.hs-boot @@ -1,8 +1,8 @@ module GI.WebKit.Objects.DOMMediaList where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map diff --git a/GI/WebKit/Objects/DOMMediaQueryList.hs b/GI/WebKit/Objects/DOMMediaQueryList.hs --- a/GI/WebKit/Objects/DOMMediaQueryList.hs +++ b/GI/WebKit/Objects/DOMMediaQueryList.hs @@ -32,11 +32,13 @@ -- * Properties -- ** Matches DOMMediaQueryListMatchesPropertyInfo , + dOMMediaQueryListMatches , getDOMMediaQueryListMatches , -- ** Media DOMMediaQueryListMediaPropertyInfo , + dOMMediaQueryListMedia , getDOMMediaQueryListMedia , @@ -44,9 +46,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map @@ -114,6 +116,7 @@ -- VVV Prop "matches" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) getDOMMediaQueryListMatches :: (MonadIO m, DOMMediaQueryListK o) => o -> m Bool getDOMMediaQueryListMatches obj = liftIO $ getObjectPropertyBool obj "matches" @@ -128,28 +131,37 @@ attrGet _ = getDOMMediaQueryListMatches attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "media" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable] + -- Nullable: (Nothing,Nothing) -getDOMMediaQueryListMedia :: (MonadIO m, DOMMediaQueryListK o) => o -> m T.Text +getDOMMediaQueryListMedia :: (MonadIO m, DOMMediaQueryListK o) => o -> m (Maybe T.Text) getDOMMediaQueryListMedia obj = liftIO $ getObjectPropertyString obj "media" data DOMMediaQueryListMediaPropertyInfo instance AttrInfo DOMMediaQueryListMediaPropertyInfo where - type AttrAllowedOps DOMMediaQueryListMediaPropertyInfo = '[ 'AttrGet] + type AttrAllowedOps DOMMediaQueryListMediaPropertyInfo = '[ 'AttrGet, 'AttrClear] type AttrSetTypeConstraint DOMMediaQueryListMediaPropertyInfo = (~) () type AttrBaseTypeConstraint DOMMediaQueryListMediaPropertyInfo = DOMMediaQueryListK - type AttrGetType DOMMediaQueryListMediaPropertyInfo = T.Text + type AttrGetType DOMMediaQueryListMediaPropertyInfo = (Maybe T.Text) type AttrLabel DOMMediaQueryListMediaPropertyInfo = "media" attrGet _ = getDOMMediaQueryListMedia attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined type instance AttributeList DOMMediaQueryList = DOMMediaQueryListAttributeList type DOMMediaQueryListAttributeList = ('[ '("coreObject", DOMObjectCoreObjectPropertyInfo), '("matches", DOMMediaQueryListMatchesPropertyInfo), '("media", DOMMediaQueryListMediaPropertyInfo)] :: [(Symbol, *)]) +dOMMediaQueryListMatches :: AttrLabelProxy "matches" +dOMMediaQueryListMatches = AttrLabelProxy + +dOMMediaQueryListMedia :: AttrLabelProxy "media" +dOMMediaQueryListMedia = AttrLabelProxy + type instance SignalList DOMMediaQueryList = DOMMediaQueryListSignalList type DOMMediaQueryListSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) @@ -157,7 +169,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMMediaQueryList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -185,7 +197,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMMediaQueryList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False diff --git a/GI/WebKit/Objects/DOMMediaQueryList.hs-boot b/GI/WebKit/Objects/DOMMediaQueryList.hs-boot --- a/GI/WebKit/Objects/DOMMediaQueryList.hs-boot +++ b/GI/WebKit/Objects/DOMMediaQueryList.hs-boot @@ -1,8 +1,8 @@ module GI.WebKit.Objects.DOMMediaQueryList where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map diff --git a/GI/WebKit/Objects/DOMMemoryInfo.hs b/GI/WebKit/Objects/DOMMemoryInfo.hs --- a/GI/WebKit/Objects/DOMMemoryInfo.hs +++ b/GI/WebKit/Objects/DOMMemoryInfo.hs @@ -34,16 +34,19 @@ -- * Properties -- ** JsHeapSizeLimit DOMMemoryInfoJsHeapSizeLimitPropertyInfo, + dOMMemoryInfoJsHeapSizeLimit , getDOMMemoryInfoJsHeapSizeLimit , -- ** TotalJsHeapSize DOMMemoryInfoTotalJsHeapSizePropertyInfo, + dOMMemoryInfoTotalJsHeapSize , getDOMMemoryInfoTotalJsHeapSize , -- ** UsedJsHeapSize DOMMemoryInfoUsedJsHeapSizePropertyInfo , + dOMMemoryInfoUsedJsHeapSize , getDOMMemoryInfoUsedJsHeapSize , @@ -51,9 +54,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map @@ -117,124 +120,139 @@ #endif -- VVV Prop "js-heap-size-limit" - -- Type: TBasicType TUInt64 + -- Type: TBasicType TULong -- Flags: [PropertyReadable] + -- Nullable: (Nothing,Nothing) -getDOMMemoryInfoJsHeapSizeLimit :: (MonadIO m, DOMMemoryInfoK o) => o -> m Word64 -getDOMMemoryInfoJsHeapSizeLimit obj = liftIO $ getObjectPropertyUInt64 obj "js-heap-size-limit" +getDOMMemoryInfoJsHeapSizeLimit :: (MonadIO m, DOMMemoryInfoK o) => o -> m CULong +getDOMMemoryInfoJsHeapSizeLimit obj = liftIO $ getObjectPropertyULong obj "js-heap-size-limit" data DOMMemoryInfoJsHeapSizeLimitPropertyInfo instance AttrInfo DOMMemoryInfoJsHeapSizeLimitPropertyInfo where type AttrAllowedOps DOMMemoryInfoJsHeapSizeLimitPropertyInfo = '[ 'AttrGet] type AttrSetTypeConstraint DOMMemoryInfoJsHeapSizeLimitPropertyInfo = (~) () type AttrBaseTypeConstraint DOMMemoryInfoJsHeapSizeLimitPropertyInfo = DOMMemoryInfoK - type AttrGetType DOMMemoryInfoJsHeapSizeLimitPropertyInfo = Word64 + type AttrGetType DOMMemoryInfoJsHeapSizeLimitPropertyInfo = CULong type AttrLabel DOMMemoryInfoJsHeapSizeLimitPropertyInfo = "js-heap-size-limit" attrGet _ = getDOMMemoryInfoJsHeapSizeLimit attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "total-js-heap-size" - -- Type: TBasicType TUInt64 + -- Type: TBasicType TULong -- Flags: [PropertyReadable] + -- Nullable: (Nothing,Nothing) -getDOMMemoryInfoTotalJsHeapSize :: (MonadIO m, DOMMemoryInfoK o) => o -> m Word64 -getDOMMemoryInfoTotalJsHeapSize obj = liftIO $ getObjectPropertyUInt64 obj "total-js-heap-size" +getDOMMemoryInfoTotalJsHeapSize :: (MonadIO m, DOMMemoryInfoK o) => o -> m CULong +getDOMMemoryInfoTotalJsHeapSize obj = liftIO $ getObjectPropertyULong obj "total-js-heap-size" data DOMMemoryInfoTotalJsHeapSizePropertyInfo instance AttrInfo DOMMemoryInfoTotalJsHeapSizePropertyInfo where type AttrAllowedOps DOMMemoryInfoTotalJsHeapSizePropertyInfo = '[ 'AttrGet] type AttrSetTypeConstraint DOMMemoryInfoTotalJsHeapSizePropertyInfo = (~) () type AttrBaseTypeConstraint DOMMemoryInfoTotalJsHeapSizePropertyInfo = DOMMemoryInfoK - type AttrGetType DOMMemoryInfoTotalJsHeapSizePropertyInfo = Word64 + type AttrGetType DOMMemoryInfoTotalJsHeapSizePropertyInfo = CULong type AttrLabel DOMMemoryInfoTotalJsHeapSizePropertyInfo = "total-js-heap-size" attrGet _ = getDOMMemoryInfoTotalJsHeapSize attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "used-js-heap-size" - -- Type: TBasicType TUInt64 + -- Type: TBasicType TULong -- Flags: [PropertyReadable] + -- Nullable: (Nothing,Nothing) -getDOMMemoryInfoUsedJsHeapSize :: (MonadIO m, DOMMemoryInfoK o) => o -> m Word64 -getDOMMemoryInfoUsedJsHeapSize obj = liftIO $ getObjectPropertyUInt64 obj "used-js-heap-size" +getDOMMemoryInfoUsedJsHeapSize :: (MonadIO m, DOMMemoryInfoK o) => o -> m CULong +getDOMMemoryInfoUsedJsHeapSize obj = liftIO $ getObjectPropertyULong obj "used-js-heap-size" data DOMMemoryInfoUsedJsHeapSizePropertyInfo instance AttrInfo DOMMemoryInfoUsedJsHeapSizePropertyInfo where type AttrAllowedOps DOMMemoryInfoUsedJsHeapSizePropertyInfo = '[ 'AttrGet] type AttrSetTypeConstraint DOMMemoryInfoUsedJsHeapSizePropertyInfo = (~) () type AttrBaseTypeConstraint DOMMemoryInfoUsedJsHeapSizePropertyInfo = DOMMemoryInfoK - type AttrGetType DOMMemoryInfoUsedJsHeapSizePropertyInfo = Word64 + type AttrGetType DOMMemoryInfoUsedJsHeapSizePropertyInfo = CULong type AttrLabel DOMMemoryInfoUsedJsHeapSizePropertyInfo = "used-js-heap-size" attrGet _ = getDOMMemoryInfoUsedJsHeapSize attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined type instance AttributeList DOMMemoryInfo = DOMMemoryInfoAttributeList type DOMMemoryInfoAttributeList = ('[ '("coreObject", DOMObjectCoreObjectPropertyInfo), '("jsHeapSizeLimit", DOMMemoryInfoJsHeapSizeLimitPropertyInfo), '("totalJsHeapSize", DOMMemoryInfoTotalJsHeapSizePropertyInfo), '("usedJsHeapSize", DOMMemoryInfoUsedJsHeapSizePropertyInfo)] :: [(Symbol, *)]) +dOMMemoryInfoJsHeapSizeLimit :: AttrLabelProxy "jsHeapSizeLimit" +dOMMemoryInfoJsHeapSizeLimit = AttrLabelProxy + +dOMMemoryInfoTotalJsHeapSize :: AttrLabelProxy "totalJsHeapSize" +dOMMemoryInfoTotalJsHeapSize = AttrLabelProxy + +dOMMemoryInfoUsedJsHeapSize :: AttrLabelProxy "usedJsHeapSize" +dOMMemoryInfoUsedJsHeapSize = AttrLabelProxy + type instance SignalList DOMMemoryInfo = DOMMemoryInfoSignalList type DOMMemoryInfoSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) -- method DOMMemoryInfo::get_js_heap_size_limit -- method type : MemberFunction --- Args : [Arg {argCName = "self", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "self", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUInt64 +-- returnType : Just (TBasicType TULong) -- throws : False -- Skip return : False foreign import ccall "webkit_dom_memory_info_get_js_heap_size_limit" webkit_dom_memory_info_get_js_heap_size_limit :: - Ptr () -> -- self : TBasicType TVoid - IO Word64 + Ptr () -> -- self : TBasicType TPtr + IO CULong {-# DEPRECATED dOMMemoryInfoGetJsHeapSizeLimit ["(Since version 2.2)"]#-} dOMMemoryInfoGetJsHeapSizeLimit :: (MonadIO m) => Ptr () -- self - -> m Word64 -- result + -> m CULong -- result dOMMemoryInfoGetJsHeapSizeLimit self = liftIO $ do result <- webkit_dom_memory_info_get_js_heap_size_limit self return result -- method DOMMemoryInfo::get_total_js_heap_size -- method type : MemberFunction --- Args : [Arg {argCName = "self", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "self", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUInt64 +-- returnType : Just (TBasicType TULong) -- throws : False -- Skip return : False foreign import ccall "webkit_dom_memory_info_get_total_js_heap_size" webkit_dom_memory_info_get_total_js_heap_size :: - Ptr () -> -- self : TBasicType TVoid - IO Word64 + Ptr () -> -- self : TBasicType TPtr + IO CULong {-# DEPRECATED dOMMemoryInfoGetTotalJsHeapSize ["(Since version 2.2)"]#-} dOMMemoryInfoGetTotalJsHeapSize :: (MonadIO m) => Ptr () -- self - -> m Word64 -- result + -> m CULong -- result dOMMemoryInfoGetTotalJsHeapSize self = liftIO $ do result <- webkit_dom_memory_info_get_total_js_heap_size self return result -- method DOMMemoryInfo::get_used_js_heap_size -- method type : MemberFunction --- Args : [Arg {argCName = "self", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "self", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUInt64 +-- returnType : Just (TBasicType TULong) -- throws : False -- Skip return : False foreign import ccall "webkit_dom_memory_info_get_used_js_heap_size" webkit_dom_memory_info_get_used_js_heap_size :: - Ptr () -> -- self : TBasicType TVoid - IO Word64 + Ptr () -> -- self : TBasicType TPtr + IO CULong {-# DEPRECATED dOMMemoryInfoGetUsedJsHeapSize ["(Since version 2.2)"]#-} dOMMemoryInfoGetUsedJsHeapSize :: (MonadIO m) => Ptr () -- self - -> m Word64 -- result + -> m CULong -- result dOMMemoryInfoGetUsedJsHeapSize self = liftIO $ do result <- webkit_dom_memory_info_get_used_js_heap_size self return result diff --git a/GI/WebKit/Objects/DOMMemoryInfo.hs-boot b/GI/WebKit/Objects/DOMMemoryInfo.hs-boot --- a/GI/WebKit/Objects/DOMMemoryInfo.hs-boot +++ b/GI/WebKit/Objects/DOMMemoryInfo.hs-boot @@ -1,8 +1,8 @@ module GI.WebKit.Objects.DOMMemoryInfo where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map diff --git a/GI/WebKit/Objects/DOMMessagePort.hs b/GI/WebKit/Objects/DOMMessagePort.hs --- a/GI/WebKit/Objects/DOMMessagePort.hs +++ b/GI/WebKit/Objects/DOMMessagePort.hs @@ -18,9 +18,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map diff --git a/GI/WebKit/Objects/DOMMessagePort.hs-boot b/GI/WebKit/Objects/DOMMessagePort.hs-boot --- a/GI/WebKit/Objects/DOMMessagePort.hs-boot +++ b/GI/WebKit/Objects/DOMMessagePort.hs-boot @@ -1,8 +1,8 @@ module GI.WebKit.Objects.DOMMessagePort where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map diff --git a/GI/WebKit/Objects/DOMMicroDataItemValue.hs b/GI/WebKit/Objects/DOMMicroDataItemValue.hs --- a/GI/WebKit/Objects/DOMMicroDataItemValue.hs +++ b/GI/WebKit/Objects/DOMMicroDataItemValue.hs @@ -18,9 +18,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map diff --git a/GI/WebKit/Objects/DOMMicroDataItemValue.hs-boot b/GI/WebKit/Objects/DOMMicroDataItemValue.hs-boot --- a/GI/WebKit/Objects/DOMMicroDataItemValue.hs-boot +++ b/GI/WebKit/Objects/DOMMicroDataItemValue.hs-boot @@ -1,8 +1,8 @@ module GI.WebKit.Objects.DOMMicroDataItemValue where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map diff --git a/GI/WebKit/Objects/DOMMouseEvent.hs b/GI/WebKit/Objects/DOMMouseEvent.hs --- a/GI/WebKit/Objects/DOMMouseEvent.hs +++ b/GI/WebKit/Objects/DOMMouseEvent.hs @@ -117,91 +117,109 @@ -- * Properties -- ** AltKey DOMMouseEventAltKeyPropertyInfo , + dOMMouseEventAltKey , getDOMMouseEventAltKey , -- ** Button DOMMouseEventButtonPropertyInfo , + dOMMouseEventButton , getDOMMouseEventButton , -- ** ClientX DOMMouseEventClientXPropertyInfo , + dOMMouseEventClientX , getDOMMouseEventClientX , -- ** ClientY DOMMouseEventClientYPropertyInfo , + dOMMouseEventClientY , getDOMMouseEventClientY , -- ** CtrlKey DOMMouseEventCtrlKeyPropertyInfo , + dOMMouseEventCtrlKey , getDOMMouseEventCtrlKey , -- ** FromElement DOMMouseEventFromElementPropertyInfo , + dOMMouseEventFromElement , getDOMMouseEventFromElement , -- ** MetaKey DOMMouseEventMetaKeyPropertyInfo , + dOMMouseEventMetaKey , getDOMMouseEventMetaKey , -- ** OffsetX DOMMouseEventOffsetXPropertyInfo , + dOMMouseEventOffsetX , getDOMMouseEventOffsetX , -- ** OffsetY DOMMouseEventOffsetYPropertyInfo , + dOMMouseEventOffsetY , getDOMMouseEventOffsetY , -- ** RelatedTarget DOMMouseEventRelatedTargetPropertyInfo , + dOMMouseEventRelatedTarget , getDOMMouseEventRelatedTarget , -- ** ScreenX DOMMouseEventScreenXPropertyInfo , + dOMMouseEventScreenX , getDOMMouseEventScreenX , -- ** ScreenY DOMMouseEventScreenYPropertyInfo , + dOMMouseEventScreenY , getDOMMouseEventScreenY , -- ** ShiftKey DOMMouseEventShiftKeyPropertyInfo , + dOMMouseEventShiftKey , getDOMMouseEventShiftKey , -- ** ToElement DOMMouseEventToElementPropertyInfo , + dOMMouseEventToElement , getDOMMouseEventToElement , -- ** WebkitMovementX DOMMouseEventWebkitMovementXPropertyInfo, + dOMMouseEventWebkitMovementX , getDOMMouseEventWebkitMovementX , -- ** WebkitMovementY DOMMouseEventWebkitMovementYPropertyInfo, + dOMMouseEventWebkitMovementY , getDOMMouseEventWebkitMovementY , -- ** X DOMMouseEventXPropertyInfo , + dOMMouseEventX , getDOMMouseEventX , -- ** Y DOMMouseEventYPropertyInfo , + dOMMouseEventY , getDOMMouseEventY , @@ -209,9 +227,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map @@ -322,6 +340,7 @@ -- VVV Prop "alt-key" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) getDOMMouseEventAltKey :: (MonadIO m, DOMMouseEventK o) => o -> m Bool getDOMMouseEventAltKey obj = liftIO $ getObjectPropertyBool obj "alt-key" @@ -336,13 +355,15 @@ attrGet _ = getDOMMouseEventAltKey attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "button" - -- Type: TBasicType TUInt32 + -- Type: TBasicType TUInt -- Flags: [PropertyReadable] + -- Nullable: (Nothing,Nothing) getDOMMouseEventButton :: (MonadIO m, DOMMouseEventK o) => o -> m Word32 -getDOMMouseEventButton obj = liftIO $ getObjectPropertyCUInt obj "button" +getDOMMouseEventButton obj = liftIO $ getObjectPropertyUInt32 obj "button" data DOMMouseEventButtonPropertyInfo instance AttrInfo DOMMouseEventButtonPropertyInfo where @@ -354,46 +375,52 @@ attrGet _ = getDOMMouseEventButton attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "client-x" - -- Type: TBasicType TInt64 + -- Type: TBasicType TLong -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) -getDOMMouseEventClientX :: (MonadIO m, DOMMouseEventK o) => o -> m Int64 -getDOMMouseEventClientX obj = liftIO $ getObjectPropertyInt64 obj "client-x" +getDOMMouseEventClientX :: (MonadIO m, DOMMouseEventK o) => o -> m CLong +getDOMMouseEventClientX obj = liftIO $ getObjectPropertyLong obj "client-x" data DOMMouseEventClientXPropertyInfo instance AttrInfo DOMMouseEventClientXPropertyInfo where type AttrAllowedOps DOMMouseEventClientXPropertyInfo = '[ 'AttrGet] type AttrSetTypeConstraint DOMMouseEventClientXPropertyInfo = (~) () type AttrBaseTypeConstraint DOMMouseEventClientXPropertyInfo = DOMMouseEventK - type AttrGetType DOMMouseEventClientXPropertyInfo = Int64 + type AttrGetType DOMMouseEventClientXPropertyInfo = CLong type AttrLabel DOMMouseEventClientXPropertyInfo = "client-x" attrGet _ = getDOMMouseEventClientX attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "client-y" - -- Type: TBasicType TInt64 + -- Type: TBasicType TLong -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) -getDOMMouseEventClientY :: (MonadIO m, DOMMouseEventK o) => o -> m Int64 -getDOMMouseEventClientY obj = liftIO $ getObjectPropertyInt64 obj "client-y" +getDOMMouseEventClientY :: (MonadIO m, DOMMouseEventK o) => o -> m CLong +getDOMMouseEventClientY obj = liftIO $ getObjectPropertyLong obj "client-y" data DOMMouseEventClientYPropertyInfo instance AttrInfo DOMMouseEventClientYPropertyInfo where type AttrAllowedOps DOMMouseEventClientYPropertyInfo = '[ 'AttrGet] type AttrSetTypeConstraint DOMMouseEventClientYPropertyInfo = (~) () type AttrBaseTypeConstraint DOMMouseEventClientYPropertyInfo = DOMMouseEventK - type AttrGetType DOMMouseEventClientYPropertyInfo = Int64 + type AttrGetType DOMMouseEventClientYPropertyInfo = CLong type AttrLabel DOMMouseEventClientYPropertyInfo = "client-y" attrGet _ = getDOMMouseEventClientY attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "ctrl-key" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) getDOMMouseEventCtrlKey :: (MonadIO m, DOMMouseEventK o) => o -> m Bool getDOMMouseEventCtrlKey obj = liftIO $ getObjectPropertyBool obj "ctrl-key" @@ -408,17 +435,19 @@ attrGet _ = getDOMMouseEventCtrlKey attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "from-element" -- Type: TInterface "WebKit" "DOMNode" -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) getDOMMouseEventFromElement :: (MonadIO m, DOMMouseEventK o) => o -> m DOMNode -getDOMMouseEventFromElement obj = liftIO $ getObjectPropertyObject obj "from-element" DOMNode +getDOMMouseEventFromElement obj = liftIO $ checkUnexpectedNothing "getDOMMouseEventFromElement" $ getObjectPropertyObject obj "from-element" DOMNode data DOMMouseEventFromElementPropertyInfo instance AttrInfo DOMMouseEventFromElementPropertyInfo where - type AttrAllowedOps DOMMouseEventFromElementPropertyInfo = '[ 'AttrGet] + type AttrAllowedOps DOMMouseEventFromElementPropertyInfo = '[ 'AttrGet, 'AttrClear] type AttrSetTypeConstraint DOMMouseEventFromElementPropertyInfo = (~) () type AttrBaseTypeConstraint DOMMouseEventFromElementPropertyInfo = DOMMouseEventK type AttrGetType DOMMouseEventFromElementPropertyInfo = DOMNode @@ -426,10 +455,12 @@ attrGet _ = getDOMMouseEventFromElement attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "meta-key" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) getDOMMouseEventMetaKey :: (MonadIO m, DOMMouseEventK o) => o -> m Bool getDOMMouseEventMetaKey obj = liftIO $ getObjectPropertyBool obj "meta-key" @@ -444,100 +475,112 @@ attrGet _ = getDOMMouseEventMetaKey attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "offset-x" - -- Type: TBasicType TInt64 + -- Type: TBasicType TLong -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) -getDOMMouseEventOffsetX :: (MonadIO m, DOMMouseEventK o) => o -> m Int64 -getDOMMouseEventOffsetX obj = liftIO $ getObjectPropertyInt64 obj "offset-x" +getDOMMouseEventOffsetX :: (MonadIO m, DOMMouseEventK o) => o -> m CLong +getDOMMouseEventOffsetX obj = liftIO $ getObjectPropertyLong obj "offset-x" data DOMMouseEventOffsetXPropertyInfo instance AttrInfo DOMMouseEventOffsetXPropertyInfo where type AttrAllowedOps DOMMouseEventOffsetXPropertyInfo = '[ 'AttrGet] type AttrSetTypeConstraint DOMMouseEventOffsetXPropertyInfo = (~) () type AttrBaseTypeConstraint DOMMouseEventOffsetXPropertyInfo = DOMMouseEventK - type AttrGetType DOMMouseEventOffsetXPropertyInfo = Int64 + type AttrGetType DOMMouseEventOffsetXPropertyInfo = CLong type AttrLabel DOMMouseEventOffsetXPropertyInfo = "offset-x" attrGet _ = getDOMMouseEventOffsetX attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "offset-y" - -- Type: TBasicType TInt64 + -- Type: TBasicType TLong -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) -getDOMMouseEventOffsetY :: (MonadIO m, DOMMouseEventK o) => o -> m Int64 -getDOMMouseEventOffsetY obj = liftIO $ getObjectPropertyInt64 obj "offset-y" +getDOMMouseEventOffsetY :: (MonadIO m, DOMMouseEventK o) => o -> m CLong +getDOMMouseEventOffsetY obj = liftIO $ getObjectPropertyLong obj "offset-y" data DOMMouseEventOffsetYPropertyInfo instance AttrInfo DOMMouseEventOffsetYPropertyInfo where type AttrAllowedOps DOMMouseEventOffsetYPropertyInfo = '[ 'AttrGet] type AttrSetTypeConstraint DOMMouseEventOffsetYPropertyInfo = (~) () type AttrBaseTypeConstraint DOMMouseEventOffsetYPropertyInfo = DOMMouseEventK - type AttrGetType DOMMouseEventOffsetYPropertyInfo = Int64 + type AttrGetType DOMMouseEventOffsetYPropertyInfo = CLong type AttrLabel DOMMouseEventOffsetYPropertyInfo = "offset-y" attrGet _ = getDOMMouseEventOffsetY attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "related-target" -- Type: TInterface "WebKit" "DOMEventTarget" -- Flags: [PropertyReadable] + -- Nullable: (Nothing,Nothing) -getDOMMouseEventRelatedTarget :: (MonadIO m, DOMMouseEventK o) => o -> m DOMEventTarget +getDOMMouseEventRelatedTarget :: (MonadIO m, DOMMouseEventK o) => o -> m (Maybe DOMEventTarget) getDOMMouseEventRelatedTarget obj = liftIO $ getObjectPropertyObject obj "related-target" DOMEventTarget data DOMMouseEventRelatedTargetPropertyInfo instance AttrInfo DOMMouseEventRelatedTargetPropertyInfo where - type AttrAllowedOps DOMMouseEventRelatedTargetPropertyInfo = '[ 'AttrGet] + type AttrAllowedOps DOMMouseEventRelatedTargetPropertyInfo = '[ 'AttrGet, 'AttrClear] type AttrSetTypeConstraint DOMMouseEventRelatedTargetPropertyInfo = (~) () type AttrBaseTypeConstraint DOMMouseEventRelatedTargetPropertyInfo = DOMMouseEventK - type AttrGetType DOMMouseEventRelatedTargetPropertyInfo = DOMEventTarget + type AttrGetType DOMMouseEventRelatedTargetPropertyInfo = (Maybe DOMEventTarget) type AttrLabel DOMMouseEventRelatedTargetPropertyInfo = "related-target" attrGet _ = getDOMMouseEventRelatedTarget attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "screen-x" - -- Type: TBasicType TInt64 + -- Type: TBasicType TLong -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) -getDOMMouseEventScreenX :: (MonadIO m, DOMMouseEventK o) => o -> m Int64 -getDOMMouseEventScreenX obj = liftIO $ getObjectPropertyInt64 obj "screen-x" +getDOMMouseEventScreenX :: (MonadIO m, DOMMouseEventK o) => o -> m CLong +getDOMMouseEventScreenX obj = liftIO $ getObjectPropertyLong obj "screen-x" data DOMMouseEventScreenXPropertyInfo instance AttrInfo DOMMouseEventScreenXPropertyInfo where type AttrAllowedOps DOMMouseEventScreenXPropertyInfo = '[ 'AttrGet] type AttrSetTypeConstraint DOMMouseEventScreenXPropertyInfo = (~) () type AttrBaseTypeConstraint DOMMouseEventScreenXPropertyInfo = DOMMouseEventK - type AttrGetType DOMMouseEventScreenXPropertyInfo = Int64 + type AttrGetType DOMMouseEventScreenXPropertyInfo = CLong type AttrLabel DOMMouseEventScreenXPropertyInfo = "screen-x" attrGet _ = getDOMMouseEventScreenX attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "screen-y" - -- Type: TBasicType TInt64 + -- Type: TBasicType TLong -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) -getDOMMouseEventScreenY :: (MonadIO m, DOMMouseEventK o) => o -> m Int64 -getDOMMouseEventScreenY obj = liftIO $ getObjectPropertyInt64 obj "screen-y" +getDOMMouseEventScreenY :: (MonadIO m, DOMMouseEventK o) => o -> m CLong +getDOMMouseEventScreenY obj = liftIO $ getObjectPropertyLong obj "screen-y" data DOMMouseEventScreenYPropertyInfo instance AttrInfo DOMMouseEventScreenYPropertyInfo where type AttrAllowedOps DOMMouseEventScreenYPropertyInfo = '[ 'AttrGet] type AttrSetTypeConstraint DOMMouseEventScreenYPropertyInfo = (~) () type AttrBaseTypeConstraint DOMMouseEventScreenYPropertyInfo = DOMMouseEventK - type AttrGetType DOMMouseEventScreenYPropertyInfo = Int64 + type AttrGetType DOMMouseEventScreenYPropertyInfo = CLong type AttrLabel DOMMouseEventScreenYPropertyInfo = "screen-y" attrGet _ = getDOMMouseEventScreenY attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "shift-key" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) getDOMMouseEventShiftKey :: (MonadIO m, DOMMouseEventK o) => o -> m Bool getDOMMouseEventShiftKey obj = liftIO $ getObjectPropertyBool obj "shift-key" @@ -552,17 +595,19 @@ attrGet _ = getDOMMouseEventShiftKey attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "to-element" -- Type: TInterface "WebKit" "DOMNode" -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) getDOMMouseEventToElement :: (MonadIO m, DOMMouseEventK o) => o -> m DOMNode -getDOMMouseEventToElement obj = liftIO $ getObjectPropertyObject obj "to-element" DOMNode +getDOMMouseEventToElement obj = liftIO $ checkUnexpectedNothing "getDOMMouseEventToElement" $ getObjectPropertyObject obj "to-element" DOMNode data DOMMouseEventToElementPropertyInfo instance AttrInfo DOMMouseEventToElementPropertyInfo where - type AttrAllowedOps DOMMouseEventToElementPropertyInfo = '[ 'AttrGet] + type AttrAllowedOps DOMMouseEventToElementPropertyInfo = '[ 'AttrGet, 'AttrClear] type AttrSetTypeConstraint DOMMouseEventToElementPropertyInfo = (~) () type AttrBaseTypeConstraint DOMMouseEventToElementPropertyInfo = DOMMouseEventK type AttrGetType DOMMouseEventToElementPropertyInfo = DOMNode @@ -570,82 +615,145 @@ attrGet _ = getDOMMouseEventToElement attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "webkit-movement-x" - -- Type: TBasicType TInt64 + -- Type: TBasicType TLong -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) -getDOMMouseEventWebkitMovementX :: (MonadIO m, DOMMouseEventK o) => o -> m Int64 -getDOMMouseEventWebkitMovementX obj = liftIO $ getObjectPropertyInt64 obj "webkit-movement-x" +getDOMMouseEventWebkitMovementX :: (MonadIO m, DOMMouseEventK o) => o -> m CLong +getDOMMouseEventWebkitMovementX obj = liftIO $ getObjectPropertyLong obj "webkit-movement-x" data DOMMouseEventWebkitMovementXPropertyInfo instance AttrInfo DOMMouseEventWebkitMovementXPropertyInfo where type AttrAllowedOps DOMMouseEventWebkitMovementXPropertyInfo = '[ 'AttrGet] type AttrSetTypeConstraint DOMMouseEventWebkitMovementXPropertyInfo = (~) () type AttrBaseTypeConstraint DOMMouseEventWebkitMovementXPropertyInfo = DOMMouseEventK - type AttrGetType DOMMouseEventWebkitMovementXPropertyInfo = Int64 + type AttrGetType DOMMouseEventWebkitMovementXPropertyInfo = CLong type AttrLabel DOMMouseEventWebkitMovementXPropertyInfo = "webkit-movement-x" attrGet _ = getDOMMouseEventWebkitMovementX attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "webkit-movement-y" - -- Type: TBasicType TInt64 + -- Type: TBasicType TLong -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) -getDOMMouseEventWebkitMovementY :: (MonadIO m, DOMMouseEventK o) => o -> m Int64 -getDOMMouseEventWebkitMovementY obj = liftIO $ getObjectPropertyInt64 obj "webkit-movement-y" +getDOMMouseEventWebkitMovementY :: (MonadIO m, DOMMouseEventK o) => o -> m CLong +getDOMMouseEventWebkitMovementY obj = liftIO $ getObjectPropertyLong obj "webkit-movement-y" data DOMMouseEventWebkitMovementYPropertyInfo instance AttrInfo DOMMouseEventWebkitMovementYPropertyInfo where type AttrAllowedOps DOMMouseEventWebkitMovementYPropertyInfo = '[ 'AttrGet] type AttrSetTypeConstraint DOMMouseEventWebkitMovementYPropertyInfo = (~) () type AttrBaseTypeConstraint DOMMouseEventWebkitMovementYPropertyInfo = DOMMouseEventK - type AttrGetType DOMMouseEventWebkitMovementYPropertyInfo = Int64 + type AttrGetType DOMMouseEventWebkitMovementYPropertyInfo = CLong type AttrLabel DOMMouseEventWebkitMovementYPropertyInfo = "webkit-movement-y" attrGet _ = getDOMMouseEventWebkitMovementY attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "x" - -- Type: TBasicType TInt64 + -- Type: TBasicType TLong -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) -getDOMMouseEventX :: (MonadIO m, DOMMouseEventK o) => o -> m Int64 -getDOMMouseEventX obj = liftIO $ getObjectPropertyInt64 obj "x" +getDOMMouseEventX :: (MonadIO m, DOMMouseEventK o) => o -> m CLong +getDOMMouseEventX obj = liftIO $ getObjectPropertyLong obj "x" data DOMMouseEventXPropertyInfo instance AttrInfo DOMMouseEventXPropertyInfo where type AttrAllowedOps DOMMouseEventXPropertyInfo = '[ 'AttrGet] type AttrSetTypeConstraint DOMMouseEventXPropertyInfo = (~) () type AttrBaseTypeConstraint DOMMouseEventXPropertyInfo = DOMMouseEventK - type AttrGetType DOMMouseEventXPropertyInfo = Int64 + type AttrGetType DOMMouseEventXPropertyInfo = CLong type AttrLabel DOMMouseEventXPropertyInfo = "x" attrGet _ = getDOMMouseEventX attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "y" - -- Type: TBasicType TInt64 + -- Type: TBasicType TLong -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) -getDOMMouseEventY :: (MonadIO m, DOMMouseEventK o) => o -> m Int64 -getDOMMouseEventY obj = liftIO $ getObjectPropertyInt64 obj "y" +getDOMMouseEventY :: (MonadIO m, DOMMouseEventK o) => o -> m CLong +getDOMMouseEventY obj = liftIO $ getObjectPropertyLong obj "y" data DOMMouseEventYPropertyInfo instance AttrInfo DOMMouseEventYPropertyInfo where type AttrAllowedOps DOMMouseEventYPropertyInfo = '[ 'AttrGet] type AttrSetTypeConstraint DOMMouseEventYPropertyInfo = (~) () type AttrBaseTypeConstraint DOMMouseEventYPropertyInfo = DOMMouseEventK - type AttrGetType DOMMouseEventYPropertyInfo = Int64 + type AttrGetType DOMMouseEventYPropertyInfo = CLong type AttrLabel DOMMouseEventYPropertyInfo = "y" attrGet _ = getDOMMouseEventY attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined type instance AttributeList DOMMouseEvent = DOMMouseEventAttributeList type DOMMouseEventAttributeList = ('[ '("altKey", DOMMouseEventAltKeyPropertyInfo), '("bubbles", DOMEventBubblesPropertyInfo), '("button", DOMMouseEventButtonPropertyInfo), '("cancelBubble", DOMEventCancelBubblePropertyInfo), '("cancelable", DOMEventCancelablePropertyInfo), '("charCode", DOMUIEventCharCodePropertyInfo), '("clientX", DOMMouseEventClientXPropertyInfo), '("clientY", DOMMouseEventClientYPropertyInfo), '("coreObject", DOMObjectCoreObjectPropertyInfo), '("ctrlKey", DOMMouseEventCtrlKeyPropertyInfo), '("currentTarget", DOMEventCurrentTargetPropertyInfo), '("defaultPrevented", DOMEventDefaultPreventedPropertyInfo), '("detail", DOMUIEventDetailPropertyInfo), '("eventPhase", DOMEventEventPhasePropertyInfo), '("fromElement", DOMMouseEventFromElementPropertyInfo), '("keyCode", DOMUIEventKeyCodePropertyInfo), '("layerX", DOMUIEventLayerXPropertyInfo), '("layerY", DOMUIEventLayerYPropertyInfo), '("metaKey", DOMMouseEventMetaKeyPropertyInfo), '("offsetX", DOMMouseEventOffsetXPropertyInfo), '("offsetY", DOMMouseEventOffsetYPropertyInfo), '("pageX", DOMUIEventPageXPropertyInfo), '("pageY", DOMUIEventPageYPropertyInfo), '("relatedTarget", DOMMouseEventRelatedTargetPropertyInfo), '("returnValue", DOMEventReturnValuePropertyInfo), '("screenX", DOMMouseEventScreenXPropertyInfo), '("screenY", DOMMouseEventScreenYPropertyInfo), '("shiftKey", DOMMouseEventShiftKeyPropertyInfo), '("srcElement", DOMEventSrcElementPropertyInfo), '("target", DOMEventTargetPropertyInfo), '("timeStamp", DOMEventTimeStampPropertyInfo), '("toElement", DOMMouseEventToElementPropertyInfo), '("type", DOMEventTypePropertyInfo), '("view", DOMUIEventViewPropertyInfo), '("webkitMovementX", DOMMouseEventWebkitMovementXPropertyInfo), '("webkitMovementY", DOMMouseEventWebkitMovementYPropertyInfo), '("which", DOMUIEventWhichPropertyInfo), '("x", DOMMouseEventXPropertyInfo), '("y", DOMMouseEventYPropertyInfo)] :: [(Symbol, *)]) +dOMMouseEventAltKey :: AttrLabelProxy "altKey" +dOMMouseEventAltKey = AttrLabelProxy + +dOMMouseEventButton :: AttrLabelProxy "button" +dOMMouseEventButton = AttrLabelProxy + +dOMMouseEventClientX :: AttrLabelProxy "clientX" +dOMMouseEventClientX = AttrLabelProxy + +dOMMouseEventClientY :: AttrLabelProxy "clientY" +dOMMouseEventClientY = AttrLabelProxy + +dOMMouseEventCtrlKey :: AttrLabelProxy "ctrlKey" +dOMMouseEventCtrlKey = AttrLabelProxy + +dOMMouseEventFromElement :: AttrLabelProxy "fromElement" +dOMMouseEventFromElement = AttrLabelProxy + +dOMMouseEventMetaKey :: AttrLabelProxy "metaKey" +dOMMouseEventMetaKey = AttrLabelProxy + +dOMMouseEventOffsetX :: AttrLabelProxy "offsetX" +dOMMouseEventOffsetX = AttrLabelProxy + +dOMMouseEventOffsetY :: AttrLabelProxy "offsetY" +dOMMouseEventOffsetY = AttrLabelProxy + +dOMMouseEventRelatedTarget :: AttrLabelProxy "relatedTarget" +dOMMouseEventRelatedTarget = AttrLabelProxy + +dOMMouseEventScreenX :: AttrLabelProxy "screenX" +dOMMouseEventScreenX = AttrLabelProxy + +dOMMouseEventScreenY :: AttrLabelProxy "screenY" +dOMMouseEventScreenY = AttrLabelProxy + +dOMMouseEventShiftKey :: AttrLabelProxy "shiftKey" +dOMMouseEventShiftKey = AttrLabelProxy + +dOMMouseEventToElement :: AttrLabelProxy "toElement" +dOMMouseEventToElement = AttrLabelProxy + +dOMMouseEventWebkitMovementX :: AttrLabelProxy "webkitMovementX" +dOMMouseEventWebkitMovementX = AttrLabelProxy + +dOMMouseEventWebkitMovementY :: AttrLabelProxy "webkitMovementY" +dOMMouseEventWebkitMovementY = AttrLabelProxy + +dOMMouseEventX :: AttrLabelProxy "x" +dOMMouseEventX = AttrLabelProxy + +dOMMouseEventY :: AttrLabelProxy "y" +dOMMouseEventY = AttrLabelProxy + type instance SignalList DOMMouseEvent = DOMMouseEventSignalList type DOMMouseEventSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) @@ -653,7 +761,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMMouseEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -681,7 +789,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMMouseEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUInt16 +-- returnType : Just (TBasicType TUInt16) -- throws : False -- Skip return : False @@ -708,19 +816,19 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMMouseEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TInt64 +-- returnType : Just (TBasicType TLong) -- throws : False -- Skip return : False foreign import ccall "webkit_dom_mouse_event_get_client_x" webkit_dom_mouse_event_get_client_x :: Ptr DOMMouseEvent -> -- _obj : TInterface "WebKit" "DOMMouseEvent" - IO Int64 + IO CLong dOMMouseEventGetClientX :: (MonadIO m, DOMMouseEventK a) => a -- _obj - -> m Int64 -- result + -> m CLong -- result dOMMouseEventGetClientX _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- webkit_dom_mouse_event_get_client_x _obj' @@ -728,26 +836,26 @@ return result data DOMMouseEventGetClientXMethodInfo -instance (signature ~ (m Int64), MonadIO m, DOMMouseEventK a) => MethodInfo DOMMouseEventGetClientXMethodInfo a signature where +instance (signature ~ (m CLong), MonadIO m, DOMMouseEventK a) => MethodInfo DOMMouseEventGetClientXMethodInfo a signature where overloadedMethod _ = dOMMouseEventGetClientX -- method DOMMouseEvent::get_client_y -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMMouseEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TInt64 +-- returnType : Just (TBasicType TLong) -- throws : False -- Skip return : False foreign import ccall "webkit_dom_mouse_event_get_client_y" webkit_dom_mouse_event_get_client_y :: Ptr DOMMouseEvent -> -- _obj : TInterface "WebKit" "DOMMouseEvent" - IO Int64 + IO CLong dOMMouseEventGetClientY :: (MonadIO m, DOMMouseEventK a) => a -- _obj - -> m Int64 -- result + -> m CLong -- result dOMMouseEventGetClientY _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- webkit_dom_mouse_event_get_client_y _obj' @@ -755,14 +863,14 @@ return result data DOMMouseEventGetClientYMethodInfo -instance (signature ~ (m Int64), MonadIO m, DOMMouseEventK a) => MethodInfo DOMMouseEventGetClientYMethodInfo a signature where +instance (signature ~ (m CLong), MonadIO m, DOMMouseEventK a) => MethodInfo DOMMouseEventGetClientYMethodInfo a signature where overloadedMethod _ = dOMMouseEventGetClientY -- method DOMMouseEvent::get_ctrl_key -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMMouseEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -790,7 +898,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMMouseEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit" "DOMNode" +-- returnType : Just (TInterface "WebKit" "DOMNode") -- throws : False -- Skip return : False @@ -819,7 +927,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMMouseEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -847,19 +955,19 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMMouseEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TInt64 +-- returnType : Just (TBasicType TLong) -- throws : False -- Skip return : False foreign import ccall "webkit_dom_mouse_event_get_offset_x" webkit_dom_mouse_event_get_offset_x :: Ptr DOMMouseEvent -> -- _obj : TInterface "WebKit" "DOMMouseEvent" - IO Int64 + IO CLong dOMMouseEventGetOffsetX :: (MonadIO m, DOMMouseEventK a) => a -- _obj - -> m Int64 -- result + -> m CLong -- result dOMMouseEventGetOffsetX _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- webkit_dom_mouse_event_get_offset_x _obj' @@ -867,26 +975,26 @@ return result data DOMMouseEventGetOffsetXMethodInfo -instance (signature ~ (m Int64), MonadIO m, DOMMouseEventK a) => MethodInfo DOMMouseEventGetOffsetXMethodInfo a signature where +instance (signature ~ (m CLong), MonadIO m, DOMMouseEventK a) => MethodInfo DOMMouseEventGetOffsetXMethodInfo a signature where overloadedMethod _ = dOMMouseEventGetOffsetX -- method DOMMouseEvent::get_offset_y -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMMouseEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TInt64 +-- returnType : Just (TBasicType TLong) -- throws : False -- Skip return : False foreign import ccall "webkit_dom_mouse_event_get_offset_y" webkit_dom_mouse_event_get_offset_y :: Ptr DOMMouseEvent -> -- _obj : TInterface "WebKit" "DOMMouseEvent" - IO Int64 + IO CLong dOMMouseEventGetOffsetY :: (MonadIO m, DOMMouseEventK a) => a -- _obj - -> m Int64 -- result + -> m CLong -- result dOMMouseEventGetOffsetY _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- webkit_dom_mouse_event_get_offset_y _obj' @@ -894,14 +1002,14 @@ return result data DOMMouseEventGetOffsetYMethodInfo -instance (signature ~ (m Int64), MonadIO m, DOMMouseEventK a) => MethodInfo DOMMouseEventGetOffsetYMethodInfo a signature where +instance (signature ~ (m CLong), MonadIO m, DOMMouseEventK a) => MethodInfo DOMMouseEventGetOffsetYMethodInfo a signature where overloadedMethod _ = dOMMouseEventGetOffsetY -- method DOMMouseEvent::get_related_target -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMMouseEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit" "DOMEventTarget" +-- returnType : Just (TInterface "WebKit" "DOMEventTarget") -- throws : False -- Skip return : False @@ -930,19 +1038,19 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMMouseEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TInt64 +-- returnType : Just (TBasicType TLong) -- throws : False -- Skip return : False foreign import ccall "webkit_dom_mouse_event_get_screen_x" webkit_dom_mouse_event_get_screen_x :: Ptr DOMMouseEvent -> -- _obj : TInterface "WebKit" "DOMMouseEvent" - IO Int64 + IO CLong dOMMouseEventGetScreenX :: (MonadIO m, DOMMouseEventK a) => a -- _obj - -> m Int64 -- result + -> m CLong -- result dOMMouseEventGetScreenX _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- webkit_dom_mouse_event_get_screen_x _obj' @@ -950,26 +1058,26 @@ return result data DOMMouseEventGetScreenXMethodInfo -instance (signature ~ (m Int64), MonadIO m, DOMMouseEventK a) => MethodInfo DOMMouseEventGetScreenXMethodInfo a signature where +instance (signature ~ (m CLong), MonadIO m, DOMMouseEventK a) => MethodInfo DOMMouseEventGetScreenXMethodInfo a signature where overloadedMethod _ = dOMMouseEventGetScreenX -- method DOMMouseEvent::get_screen_y -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMMouseEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TInt64 +-- returnType : Just (TBasicType TLong) -- throws : False -- Skip return : False foreign import ccall "webkit_dom_mouse_event_get_screen_y" webkit_dom_mouse_event_get_screen_y :: Ptr DOMMouseEvent -> -- _obj : TInterface "WebKit" "DOMMouseEvent" - IO Int64 + IO CLong dOMMouseEventGetScreenY :: (MonadIO m, DOMMouseEventK a) => a -- _obj - -> m Int64 -- result + -> m CLong -- result dOMMouseEventGetScreenY _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- webkit_dom_mouse_event_get_screen_y _obj' @@ -977,14 +1085,14 @@ return result data DOMMouseEventGetScreenYMethodInfo -instance (signature ~ (m Int64), MonadIO m, DOMMouseEventK a) => MethodInfo DOMMouseEventGetScreenYMethodInfo a signature where +instance (signature ~ (m CLong), MonadIO m, DOMMouseEventK a) => MethodInfo DOMMouseEventGetScreenYMethodInfo a signature where overloadedMethod _ = dOMMouseEventGetScreenY -- method DOMMouseEvent::get_shift_key -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMMouseEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -1012,7 +1120,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMMouseEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit" "DOMNode" +-- returnType : Just (TInterface "WebKit" "DOMNode") -- throws : False -- Skip return : False @@ -1041,19 +1149,19 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMMouseEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TInt64 +-- returnType : Just (TBasicType TLong) -- throws : False -- Skip return : False foreign import ccall "webkit_dom_mouse_event_get_webkit_movement_x" webkit_dom_mouse_event_get_webkit_movement_x :: Ptr DOMMouseEvent -> -- _obj : TInterface "WebKit" "DOMMouseEvent" - IO Int64 + IO CLong dOMMouseEventGetWebkitMovementX :: (MonadIO m, DOMMouseEventK a) => a -- _obj - -> m Int64 -- result + -> m CLong -- result dOMMouseEventGetWebkitMovementX _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- webkit_dom_mouse_event_get_webkit_movement_x _obj' @@ -1061,26 +1169,26 @@ return result data DOMMouseEventGetWebkitMovementXMethodInfo -instance (signature ~ (m Int64), MonadIO m, DOMMouseEventK a) => MethodInfo DOMMouseEventGetWebkitMovementXMethodInfo a signature where +instance (signature ~ (m CLong), MonadIO m, DOMMouseEventK a) => MethodInfo DOMMouseEventGetWebkitMovementXMethodInfo a signature where overloadedMethod _ = dOMMouseEventGetWebkitMovementX -- method DOMMouseEvent::get_webkit_movement_y -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMMouseEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TInt64 +-- returnType : Just (TBasicType TLong) -- throws : False -- Skip return : False foreign import ccall "webkit_dom_mouse_event_get_webkit_movement_y" webkit_dom_mouse_event_get_webkit_movement_y :: Ptr DOMMouseEvent -> -- _obj : TInterface "WebKit" "DOMMouseEvent" - IO Int64 + IO CLong dOMMouseEventGetWebkitMovementY :: (MonadIO m, DOMMouseEventK a) => a -- _obj - -> m Int64 -- result + -> m CLong -- result dOMMouseEventGetWebkitMovementY _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- webkit_dom_mouse_event_get_webkit_movement_y _obj' @@ -1088,26 +1196,26 @@ return result data DOMMouseEventGetWebkitMovementYMethodInfo -instance (signature ~ (m Int64), MonadIO m, DOMMouseEventK a) => MethodInfo DOMMouseEventGetWebkitMovementYMethodInfo a signature where +instance (signature ~ (m CLong), MonadIO m, DOMMouseEventK a) => MethodInfo DOMMouseEventGetWebkitMovementYMethodInfo a signature where overloadedMethod _ = dOMMouseEventGetWebkitMovementY -- method DOMMouseEvent::get_x -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMMouseEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TInt64 +-- returnType : Just (TBasicType TLong) -- throws : False -- Skip return : False foreign import ccall "webkit_dom_mouse_event_get_x" webkit_dom_mouse_event_get_x :: Ptr DOMMouseEvent -> -- _obj : TInterface "WebKit" "DOMMouseEvent" - IO Int64 + IO CLong dOMMouseEventGetX :: (MonadIO m, DOMMouseEventK a) => a -- _obj - -> m Int64 -- result + -> m CLong -- result dOMMouseEventGetX _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- webkit_dom_mouse_event_get_x _obj' @@ -1115,26 +1223,26 @@ return result data DOMMouseEventGetXMethodInfo -instance (signature ~ (m Int64), MonadIO m, DOMMouseEventK a) => MethodInfo DOMMouseEventGetXMethodInfo a signature where +instance (signature ~ (m CLong), MonadIO m, DOMMouseEventK a) => MethodInfo DOMMouseEventGetXMethodInfo a signature where overloadedMethod _ = dOMMouseEventGetX -- method DOMMouseEvent::get_y -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMMouseEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TInt64 +-- returnType : Just (TBasicType TLong) -- throws : False -- Skip return : False foreign import ccall "webkit_dom_mouse_event_get_y" webkit_dom_mouse_event_get_y :: Ptr DOMMouseEvent -> -- _obj : TInterface "WebKit" "DOMMouseEvent" - IO Int64 + IO CLong dOMMouseEventGetY :: (MonadIO m, DOMMouseEventK a) => a -- _obj - -> m Int64 -- result + -> m CLong -- result dOMMouseEventGetY _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- webkit_dom_mouse_event_get_y _obj' @@ -1142,14 +1250,14 @@ return result data DOMMouseEventGetYMethodInfo -instance (signature ~ (m Int64), MonadIO m, DOMMouseEventK a) => MethodInfo DOMMouseEventGetYMethodInfo a signature where +instance (signature ~ (m CLong), MonadIO m, DOMMouseEventK a) => MethodInfo DOMMouseEventGetYMethodInfo a signature where overloadedMethod _ = dOMMouseEventGetY -- method DOMMouseEvent::init_mouse_event -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMMouseEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "canBubble", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancelable", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "view", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "detail", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "screenX", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "screenY", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "clientX", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "clientY", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "ctrlKey", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "altKey", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "shiftKey", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "metaKey", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "button", argType = TBasicType TUInt16, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "relatedTarget", argType = TInterface "WebKit" "DOMEventTarget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMMouseEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "canBubble", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancelable", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "view", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "detail", argType = TBasicType TLong, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "screenX", argType = TBasicType TLong, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "screenY", argType = TBasicType TLong, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "clientX", argType = TBasicType TLong, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "clientY", argType = TBasicType TLong, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "ctrlKey", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "altKey", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "shiftKey", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "metaKey", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "button", argType = TBasicType TUInt16, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "relatedTarget", argType = TInterface "WebKit" "DOMEventTarget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1159,11 +1267,11 @@ CInt -> -- canBubble : TBasicType TBoolean CInt -> -- cancelable : TBasicType TBoolean Ptr DOMDOMWindow -> -- view : TInterface "WebKit" "DOMDOMWindow" - Int64 -> -- detail : TBasicType TInt64 - Int64 -> -- screenX : TBasicType TInt64 - Int64 -> -- screenY : TBasicType TInt64 - Int64 -> -- clientX : TBasicType TInt64 - Int64 -> -- clientY : TBasicType TInt64 + CLong -> -- detail : TBasicType TLong + CLong -> -- screenX : TBasicType TLong + CLong -> -- screenY : TBasicType TLong + CLong -> -- clientX : TBasicType TLong + CLong -> -- clientY : TBasicType TLong CInt -> -- ctrlKey : TBasicType TBoolean CInt -> -- altKey : TBasicType TBoolean CInt -> -- shiftKey : TBasicType TBoolean @@ -1180,11 +1288,11 @@ -> Bool -- canBubble -> Bool -- cancelable -> b -- view - -> Int64 -- detail - -> Int64 -- screenX - -> Int64 -- screenY - -> Int64 -- clientX - -> Int64 -- clientY + -> CLong -- detail + -> CLong -- screenX + -> CLong -- screenY + -> CLong -- clientX + -> CLong -- clientY -> Bool -- ctrlKey -> Bool -- altKey -> Bool -- shiftKey @@ -1211,7 +1319,7 @@ return () data DOMMouseEventInitMouseEventMethodInfo -instance (signature ~ (T.Text -> Bool -> Bool -> b -> Int64 -> Int64 -> Int64 -> Int64 -> Int64 -> Bool -> Bool -> Bool -> Bool -> Word16 -> c -> m ()), MonadIO m, DOMMouseEventK a, DOMDOMWindowK b, DOMEventTargetK c) => MethodInfo DOMMouseEventInitMouseEventMethodInfo a signature where +instance (signature ~ (T.Text -> Bool -> Bool -> b -> CLong -> CLong -> CLong -> CLong -> CLong -> Bool -> Bool -> Bool -> Bool -> Word16 -> c -> m ()), MonadIO m, DOMMouseEventK a, DOMDOMWindowK b, DOMEventTargetK c) => MethodInfo DOMMouseEventInitMouseEventMethodInfo a signature where overloadedMethod _ = dOMMouseEventInitMouseEvent diff --git a/GI/WebKit/Objects/DOMMouseEvent.hs-boot b/GI/WebKit/Objects/DOMMouseEvent.hs-boot --- a/GI/WebKit/Objects/DOMMouseEvent.hs-boot +++ b/GI/WebKit/Objects/DOMMouseEvent.hs-boot @@ -1,8 +1,8 @@ module GI.WebKit.Objects.DOMMouseEvent where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map diff --git a/GI/WebKit/Objects/DOMNamedNodeMap.hs b/GI/WebKit/Objects/DOMNamedNodeMap.hs --- a/GI/WebKit/Objects/DOMNamedNodeMap.hs +++ b/GI/WebKit/Objects/DOMNamedNodeMap.hs @@ -62,6 +62,7 @@ -- * Properties -- ** Length DOMNamedNodeMapLengthPropertyInfo , + dOMNamedNodeMapLength , getDOMNamedNodeMapLength , @@ -69,9 +70,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map @@ -143,26 +144,31 @@ #endif -- VVV Prop "length" - -- Type: TBasicType TUInt64 + -- Type: TBasicType TULong -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) -getDOMNamedNodeMapLength :: (MonadIO m, DOMNamedNodeMapK o) => o -> m Word64 -getDOMNamedNodeMapLength obj = liftIO $ getObjectPropertyUInt64 obj "length" +getDOMNamedNodeMapLength :: (MonadIO m, DOMNamedNodeMapK o) => o -> m CULong +getDOMNamedNodeMapLength obj = liftIO $ getObjectPropertyULong obj "length" data DOMNamedNodeMapLengthPropertyInfo instance AttrInfo DOMNamedNodeMapLengthPropertyInfo where type AttrAllowedOps DOMNamedNodeMapLengthPropertyInfo = '[ 'AttrGet] type AttrSetTypeConstraint DOMNamedNodeMapLengthPropertyInfo = (~) () type AttrBaseTypeConstraint DOMNamedNodeMapLengthPropertyInfo = DOMNamedNodeMapK - type AttrGetType DOMNamedNodeMapLengthPropertyInfo = Word64 + type AttrGetType DOMNamedNodeMapLengthPropertyInfo = CULong type AttrLabel DOMNamedNodeMapLengthPropertyInfo = "length" attrGet _ = getDOMNamedNodeMapLength attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined type instance AttributeList DOMNamedNodeMap = DOMNamedNodeMapAttributeList type DOMNamedNodeMapAttributeList = ('[ '("coreObject", DOMObjectCoreObjectPropertyInfo), '("length", DOMNamedNodeMapLengthPropertyInfo)] :: [(Symbol, *)]) +dOMNamedNodeMapLength :: AttrLabelProxy "length" +dOMNamedNodeMapLength = AttrLabelProxy + type instance SignalList DOMNamedNodeMap = DOMNamedNodeMapSignalList type DOMNamedNodeMapSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) @@ -170,19 +176,19 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMNamedNodeMap", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUInt64 +-- returnType : Just (TBasicType TULong) -- throws : False -- Skip return : False foreign import ccall "webkit_dom_named_node_map_get_length" webkit_dom_named_node_map_get_length :: Ptr DOMNamedNodeMap -> -- _obj : TInterface "WebKit" "DOMNamedNodeMap" - IO Word64 + IO CULong dOMNamedNodeMapGetLength :: (MonadIO m, DOMNamedNodeMapK a) => a -- _obj - -> m Word64 -- result + -> m CULong -- result dOMNamedNodeMapGetLength _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- webkit_dom_named_node_map_get_length _obj' @@ -190,14 +196,14 @@ return result data DOMNamedNodeMapGetLengthMethodInfo -instance (signature ~ (m Word64), MonadIO m, DOMNamedNodeMapK a) => MethodInfo DOMNamedNodeMapGetLengthMethodInfo a signature where +instance (signature ~ (m CULong), MonadIO m, DOMNamedNodeMapK a) => MethodInfo DOMNamedNodeMapGetLengthMethodInfo a signature where overloadedMethod _ = dOMNamedNodeMapGetLength -- method DOMNamedNodeMap::get_named_item -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMNamedNodeMap", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit" "DOMNode" +-- returnType : Just (TInterface "WebKit" "DOMNode") -- throws : False -- Skip return : False @@ -230,7 +236,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMNamedNodeMap", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "namespaceURI", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "localName", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit" "DOMNode" +-- returnType : Just (TInterface "WebKit" "DOMNode") -- throws : False -- Skip return : False @@ -265,22 +271,22 @@ -- method DOMNamedNodeMap::item -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMNamedNodeMap", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "index", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMNamedNodeMap", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "index", argType = TBasicType TULong, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit" "DOMNode" +-- returnType : Just (TInterface "WebKit" "DOMNode") -- throws : False -- Skip return : False foreign import ccall "webkit_dom_named_node_map_item" webkit_dom_named_node_map_item :: Ptr DOMNamedNodeMap -> -- _obj : TInterface "WebKit" "DOMNamedNodeMap" - Word64 -> -- index : TBasicType TUInt64 + CULong -> -- index : TBasicType TULong IO (Ptr DOMNode) dOMNamedNodeMapItem :: (MonadIO m, DOMNamedNodeMapK a) => a -- _obj - -> Word64 -- index + -> CULong -- index -> m DOMNode -- result dOMNamedNodeMapItem _obj index = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj @@ -291,14 +297,14 @@ return result' data DOMNamedNodeMapItemMethodInfo -instance (signature ~ (Word64 -> m DOMNode), MonadIO m, DOMNamedNodeMapK a) => MethodInfo DOMNamedNodeMapItemMethodInfo a signature where +instance (signature ~ (CULong -> m DOMNode), MonadIO m, DOMNamedNodeMapK a) => MethodInfo DOMNamedNodeMapItemMethodInfo a signature where overloadedMethod _ = dOMNamedNodeMapItem -- method DOMNamedNodeMap::remove_named_item -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMNamedNodeMap", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit" "DOMNode" +-- returnType : Just (TInterface "WebKit" "DOMNode") -- throws : True -- Skip return : False @@ -336,7 +342,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMNamedNodeMap", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "namespaceURI", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "localName", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit" "DOMNode" +-- returnType : Just (TInterface "WebKit" "DOMNode") -- throws : True -- Skip return : False @@ -379,7 +385,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMNamedNodeMap", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "node", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit" "DOMNode" +-- returnType : Just (TInterface "WebKit" "DOMNode") -- throws : True -- Skip return : False @@ -417,7 +423,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMNamedNodeMap", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "node", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit" "DOMNode" +-- returnType : Just (TInterface "WebKit" "DOMNode") -- throws : True -- Skip return : False diff --git a/GI/WebKit/Objects/DOMNamedNodeMap.hs-boot b/GI/WebKit/Objects/DOMNamedNodeMap.hs-boot --- a/GI/WebKit/Objects/DOMNamedNodeMap.hs-boot +++ b/GI/WebKit/Objects/DOMNamedNodeMap.hs-boot @@ -1,8 +1,8 @@ module GI.WebKit.Objects.DOMNamedNodeMap where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map diff --git a/GI/WebKit/Objects/DOMNavigator.hs b/GI/WebKit/Objects/DOMNavigator.hs --- a/GI/WebKit/Objects/DOMNavigator.hs +++ b/GI/WebKit/Objects/DOMNavigator.hs @@ -142,91 +142,109 @@ -- * Properties -- ** AppCodeName DOMNavigatorAppCodeNamePropertyInfo , + dOMNavigatorAppCodeName , getDOMNavigatorAppCodeName , -- ** AppName DOMNavigatorAppNamePropertyInfo , + dOMNavigatorAppName , getDOMNavigatorAppName , -- ** AppVersion DOMNavigatorAppVersionPropertyInfo , + dOMNavigatorAppVersion , getDOMNavigatorAppVersion , -- ** CookieEnabled DOMNavigatorCookieEnabledPropertyInfo , + dOMNavigatorCookieEnabled , getDOMNavigatorCookieEnabled , -- ** Geolocation DOMNavigatorGeolocationPropertyInfo , + dOMNavigatorGeolocation , getDOMNavigatorGeolocation , -- ** Language DOMNavigatorLanguagePropertyInfo , + dOMNavigatorLanguage , getDOMNavigatorLanguage , -- ** MimeTypes DOMNavigatorMimeTypesPropertyInfo , + dOMNavigatorMimeTypes , getDOMNavigatorMimeTypes , -- ** OnLine DOMNavigatorOnLinePropertyInfo , + dOMNavigatorOnLine , getDOMNavigatorOnLine , -- ** Platform DOMNavigatorPlatformPropertyInfo , + dOMNavigatorPlatform , getDOMNavigatorPlatform , -- ** Plugins DOMNavigatorPluginsPropertyInfo , + dOMNavigatorPlugins , getDOMNavigatorPlugins , -- ** Product DOMNavigatorProductPropertyInfo , + dOMNavigatorProduct , getDOMNavigatorProduct , -- ** ProductSub DOMNavigatorProductSubPropertyInfo , + dOMNavigatorProductSub , getDOMNavigatorProductSub , -- ** UserAgent DOMNavigatorUserAgentPropertyInfo , + dOMNavigatorUserAgent , getDOMNavigatorUserAgent , -- ** Vendor DOMNavigatorVendorPropertyInfo , + dOMNavigatorVendor , getDOMNavigatorVendor , -- ** VendorSub DOMNavigatorVendorSubPropertyInfo , + dOMNavigatorVendorSub , getDOMNavigatorVendorSub , -- ** WebkitBattery DOMNavigatorWebkitBatteryPropertyInfo , + dOMNavigatorWebkitBattery , getDOMNavigatorWebkitBattery , -- ** WebkitPersistentStorage DOMNavigatorWebkitPersistentStoragePropertyInfo, + dOMNavigatorWebkitPersistentStorage , getDOMNavigatorWebkitPersistentStorage , -- ** WebkitTemporaryStorage DOMNavigatorWebkitTemporaryStoragePropertyInfo, + dOMNavigatorWebkitTemporaryStorage , getDOMNavigatorWebkitTemporaryStorage , @@ -234,9 +252,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map @@ -326,60 +344,67 @@ -- VVV Prop "app-code-name" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable] + -- Nullable: (Nothing,Nothing) -getDOMNavigatorAppCodeName :: (MonadIO m, DOMNavigatorK o) => o -> m T.Text +getDOMNavigatorAppCodeName :: (MonadIO m, DOMNavigatorK o) => o -> m (Maybe T.Text) getDOMNavigatorAppCodeName obj = liftIO $ getObjectPropertyString obj "app-code-name" data DOMNavigatorAppCodeNamePropertyInfo instance AttrInfo DOMNavigatorAppCodeNamePropertyInfo where - type AttrAllowedOps DOMNavigatorAppCodeNamePropertyInfo = '[ 'AttrGet] + type AttrAllowedOps DOMNavigatorAppCodeNamePropertyInfo = '[ 'AttrGet, 'AttrClear] type AttrSetTypeConstraint DOMNavigatorAppCodeNamePropertyInfo = (~) () type AttrBaseTypeConstraint DOMNavigatorAppCodeNamePropertyInfo = DOMNavigatorK - type AttrGetType DOMNavigatorAppCodeNamePropertyInfo = T.Text + type AttrGetType DOMNavigatorAppCodeNamePropertyInfo = (Maybe T.Text) type AttrLabel DOMNavigatorAppCodeNamePropertyInfo = "app-code-name" attrGet _ = getDOMNavigatorAppCodeName attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "app-name" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable] + -- Nullable: (Nothing,Nothing) -getDOMNavigatorAppName :: (MonadIO m, DOMNavigatorK o) => o -> m T.Text +getDOMNavigatorAppName :: (MonadIO m, DOMNavigatorK o) => o -> m (Maybe T.Text) getDOMNavigatorAppName obj = liftIO $ getObjectPropertyString obj "app-name" data DOMNavigatorAppNamePropertyInfo instance AttrInfo DOMNavigatorAppNamePropertyInfo where - type AttrAllowedOps DOMNavigatorAppNamePropertyInfo = '[ 'AttrGet] + type AttrAllowedOps DOMNavigatorAppNamePropertyInfo = '[ 'AttrGet, 'AttrClear] type AttrSetTypeConstraint DOMNavigatorAppNamePropertyInfo = (~) () type AttrBaseTypeConstraint DOMNavigatorAppNamePropertyInfo = DOMNavigatorK - type AttrGetType DOMNavigatorAppNamePropertyInfo = T.Text + type AttrGetType DOMNavigatorAppNamePropertyInfo = (Maybe T.Text) type AttrLabel DOMNavigatorAppNamePropertyInfo = "app-name" attrGet _ = getDOMNavigatorAppName attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "app-version" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable] + -- Nullable: (Nothing,Nothing) -getDOMNavigatorAppVersion :: (MonadIO m, DOMNavigatorK o) => o -> m T.Text +getDOMNavigatorAppVersion :: (MonadIO m, DOMNavigatorK o) => o -> m (Maybe T.Text) getDOMNavigatorAppVersion obj = liftIO $ getObjectPropertyString obj "app-version" data DOMNavigatorAppVersionPropertyInfo instance AttrInfo DOMNavigatorAppVersionPropertyInfo where - type AttrAllowedOps DOMNavigatorAppVersionPropertyInfo = '[ 'AttrGet] + type AttrAllowedOps DOMNavigatorAppVersionPropertyInfo = '[ 'AttrGet, 'AttrClear] type AttrSetTypeConstraint DOMNavigatorAppVersionPropertyInfo = (~) () type AttrBaseTypeConstraint DOMNavigatorAppVersionPropertyInfo = DOMNavigatorK - type AttrGetType DOMNavigatorAppVersionPropertyInfo = T.Text + type AttrGetType DOMNavigatorAppVersionPropertyInfo = (Maybe T.Text) type AttrLabel DOMNavigatorAppVersionPropertyInfo = "app-version" attrGet _ = getDOMNavigatorAppVersion attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "cookie-enabled" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) getDOMNavigatorCookieEnabled :: (MonadIO m, DOMNavigatorK o) => o -> m Bool getDOMNavigatorCookieEnabled obj = liftIO $ getObjectPropertyBool obj "cookie-enabled" @@ -394,64 +419,72 @@ attrGet _ = getDOMNavigatorCookieEnabled attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "geolocation" -- Type: TInterface "WebKit" "DOMGeolocation" -- Flags: [PropertyReadable] + -- Nullable: (Nothing,Nothing) -getDOMNavigatorGeolocation :: (MonadIO m, DOMNavigatorK o) => o -> m DOMGeolocation +getDOMNavigatorGeolocation :: (MonadIO m, DOMNavigatorK o) => o -> m (Maybe DOMGeolocation) getDOMNavigatorGeolocation obj = liftIO $ getObjectPropertyObject obj "geolocation" DOMGeolocation data DOMNavigatorGeolocationPropertyInfo instance AttrInfo DOMNavigatorGeolocationPropertyInfo where - type AttrAllowedOps DOMNavigatorGeolocationPropertyInfo = '[ 'AttrGet] + type AttrAllowedOps DOMNavigatorGeolocationPropertyInfo = '[ 'AttrGet, 'AttrClear] type AttrSetTypeConstraint DOMNavigatorGeolocationPropertyInfo = (~) () type AttrBaseTypeConstraint DOMNavigatorGeolocationPropertyInfo = DOMNavigatorK - type AttrGetType DOMNavigatorGeolocationPropertyInfo = DOMGeolocation + type AttrGetType DOMNavigatorGeolocationPropertyInfo = (Maybe DOMGeolocation) type AttrLabel DOMNavigatorGeolocationPropertyInfo = "geolocation" attrGet _ = getDOMNavigatorGeolocation attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "language" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable] + -- Nullable: (Nothing,Nothing) -getDOMNavigatorLanguage :: (MonadIO m, DOMNavigatorK o) => o -> m T.Text +getDOMNavigatorLanguage :: (MonadIO m, DOMNavigatorK o) => o -> m (Maybe T.Text) getDOMNavigatorLanguage obj = liftIO $ getObjectPropertyString obj "language" data DOMNavigatorLanguagePropertyInfo instance AttrInfo DOMNavigatorLanguagePropertyInfo where - type AttrAllowedOps DOMNavigatorLanguagePropertyInfo = '[ 'AttrGet] + type AttrAllowedOps DOMNavigatorLanguagePropertyInfo = '[ 'AttrGet, 'AttrClear] type AttrSetTypeConstraint DOMNavigatorLanguagePropertyInfo = (~) () type AttrBaseTypeConstraint DOMNavigatorLanguagePropertyInfo = DOMNavigatorK - type AttrGetType DOMNavigatorLanguagePropertyInfo = T.Text + type AttrGetType DOMNavigatorLanguagePropertyInfo = (Maybe T.Text) type AttrLabel DOMNavigatorLanguagePropertyInfo = "language" attrGet _ = getDOMNavigatorLanguage attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "mime-types" -- Type: TInterface "WebKit" "DOMDOMMimeTypeArray" -- Flags: [PropertyReadable] + -- Nullable: (Nothing,Nothing) -getDOMNavigatorMimeTypes :: (MonadIO m, DOMNavigatorK o) => o -> m DOMDOMMimeTypeArray +getDOMNavigatorMimeTypes :: (MonadIO m, DOMNavigatorK o) => o -> m (Maybe DOMDOMMimeTypeArray) getDOMNavigatorMimeTypes obj = liftIO $ getObjectPropertyObject obj "mime-types" DOMDOMMimeTypeArray data DOMNavigatorMimeTypesPropertyInfo instance AttrInfo DOMNavigatorMimeTypesPropertyInfo where - type AttrAllowedOps DOMNavigatorMimeTypesPropertyInfo = '[ 'AttrGet] + type AttrAllowedOps DOMNavigatorMimeTypesPropertyInfo = '[ 'AttrGet, 'AttrClear] type AttrSetTypeConstraint DOMNavigatorMimeTypesPropertyInfo = (~) () type AttrBaseTypeConstraint DOMNavigatorMimeTypesPropertyInfo = DOMNavigatorK - type AttrGetType DOMNavigatorMimeTypesPropertyInfo = DOMDOMMimeTypeArray + type AttrGetType DOMNavigatorMimeTypesPropertyInfo = (Maybe DOMDOMMimeTypeArray) type AttrLabel DOMNavigatorMimeTypesPropertyInfo = "mime-types" attrGet _ = getDOMNavigatorMimeTypes attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "on-line" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) getDOMNavigatorOnLine :: (MonadIO m, DOMNavigatorK o) => o -> m Bool getDOMNavigatorOnLine obj = liftIO $ getObjectPropertyBool obj "on-line" @@ -466,161 +499,179 @@ attrGet _ = getDOMNavigatorOnLine attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "platform" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable] + -- Nullable: (Nothing,Nothing) -getDOMNavigatorPlatform :: (MonadIO m, DOMNavigatorK o) => o -> m T.Text +getDOMNavigatorPlatform :: (MonadIO m, DOMNavigatorK o) => o -> m (Maybe T.Text) getDOMNavigatorPlatform obj = liftIO $ getObjectPropertyString obj "platform" data DOMNavigatorPlatformPropertyInfo instance AttrInfo DOMNavigatorPlatformPropertyInfo where - type AttrAllowedOps DOMNavigatorPlatformPropertyInfo = '[ 'AttrGet] + type AttrAllowedOps DOMNavigatorPlatformPropertyInfo = '[ 'AttrGet, 'AttrClear] type AttrSetTypeConstraint DOMNavigatorPlatformPropertyInfo = (~) () type AttrBaseTypeConstraint DOMNavigatorPlatformPropertyInfo = DOMNavigatorK - type AttrGetType DOMNavigatorPlatformPropertyInfo = T.Text + type AttrGetType DOMNavigatorPlatformPropertyInfo = (Maybe T.Text) type AttrLabel DOMNavigatorPlatformPropertyInfo = "platform" attrGet _ = getDOMNavigatorPlatform attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "plugins" -- Type: TInterface "WebKit" "DOMDOMPluginArray" -- Flags: [PropertyReadable] + -- Nullable: (Nothing,Nothing) -getDOMNavigatorPlugins :: (MonadIO m, DOMNavigatorK o) => o -> m DOMDOMPluginArray +getDOMNavigatorPlugins :: (MonadIO m, DOMNavigatorK o) => o -> m (Maybe DOMDOMPluginArray) getDOMNavigatorPlugins obj = liftIO $ getObjectPropertyObject obj "plugins" DOMDOMPluginArray data DOMNavigatorPluginsPropertyInfo instance AttrInfo DOMNavigatorPluginsPropertyInfo where - type AttrAllowedOps DOMNavigatorPluginsPropertyInfo = '[ 'AttrGet] + type AttrAllowedOps DOMNavigatorPluginsPropertyInfo = '[ 'AttrGet, 'AttrClear] type AttrSetTypeConstraint DOMNavigatorPluginsPropertyInfo = (~) () type AttrBaseTypeConstraint DOMNavigatorPluginsPropertyInfo = DOMNavigatorK - type AttrGetType DOMNavigatorPluginsPropertyInfo = DOMDOMPluginArray + type AttrGetType DOMNavigatorPluginsPropertyInfo = (Maybe DOMDOMPluginArray) type AttrLabel DOMNavigatorPluginsPropertyInfo = "plugins" attrGet _ = getDOMNavigatorPlugins attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "product" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable] + -- Nullable: (Nothing,Nothing) -getDOMNavigatorProduct :: (MonadIO m, DOMNavigatorK o) => o -> m T.Text +getDOMNavigatorProduct :: (MonadIO m, DOMNavigatorK o) => o -> m (Maybe T.Text) getDOMNavigatorProduct obj = liftIO $ getObjectPropertyString obj "product" data DOMNavigatorProductPropertyInfo instance AttrInfo DOMNavigatorProductPropertyInfo where - type AttrAllowedOps DOMNavigatorProductPropertyInfo = '[ 'AttrGet] + type AttrAllowedOps DOMNavigatorProductPropertyInfo = '[ 'AttrGet, 'AttrClear] type AttrSetTypeConstraint DOMNavigatorProductPropertyInfo = (~) () type AttrBaseTypeConstraint DOMNavigatorProductPropertyInfo = DOMNavigatorK - type AttrGetType DOMNavigatorProductPropertyInfo = T.Text + type AttrGetType DOMNavigatorProductPropertyInfo = (Maybe T.Text) type AttrLabel DOMNavigatorProductPropertyInfo = "product" attrGet _ = getDOMNavigatorProduct attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "product-sub" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable] + -- Nullable: (Nothing,Nothing) -getDOMNavigatorProductSub :: (MonadIO m, DOMNavigatorK o) => o -> m T.Text +getDOMNavigatorProductSub :: (MonadIO m, DOMNavigatorK o) => o -> m (Maybe T.Text) getDOMNavigatorProductSub obj = liftIO $ getObjectPropertyString obj "product-sub" data DOMNavigatorProductSubPropertyInfo instance AttrInfo DOMNavigatorProductSubPropertyInfo where - type AttrAllowedOps DOMNavigatorProductSubPropertyInfo = '[ 'AttrGet] + type AttrAllowedOps DOMNavigatorProductSubPropertyInfo = '[ 'AttrGet, 'AttrClear] type AttrSetTypeConstraint DOMNavigatorProductSubPropertyInfo = (~) () type AttrBaseTypeConstraint DOMNavigatorProductSubPropertyInfo = DOMNavigatorK - type AttrGetType DOMNavigatorProductSubPropertyInfo = T.Text + type AttrGetType DOMNavigatorProductSubPropertyInfo = (Maybe T.Text) type AttrLabel DOMNavigatorProductSubPropertyInfo = "product-sub" attrGet _ = getDOMNavigatorProductSub attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "user-agent" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable] + -- Nullable: (Nothing,Nothing) -getDOMNavigatorUserAgent :: (MonadIO m, DOMNavigatorK o) => o -> m T.Text +getDOMNavigatorUserAgent :: (MonadIO m, DOMNavigatorK o) => o -> m (Maybe T.Text) getDOMNavigatorUserAgent obj = liftIO $ getObjectPropertyString obj "user-agent" data DOMNavigatorUserAgentPropertyInfo instance AttrInfo DOMNavigatorUserAgentPropertyInfo where - type AttrAllowedOps DOMNavigatorUserAgentPropertyInfo = '[ 'AttrGet] + type AttrAllowedOps DOMNavigatorUserAgentPropertyInfo = '[ 'AttrGet, 'AttrClear] type AttrSetTypeConstraint DOMNavigatorUserAgentPropertyInfo = (~) () type AttrBaseTypeConstraint DOMNavigatorUserAgentPropertyInfo = DOMNavigatorK - type AttrGetType DOMNavigatorUserAgentPropertyInfo = T.Text + type AttrGetType DOMNavigatorUserAgentPropertyInfo = (Maybe T.Text) type AttrLabel DOMNavigatorUserAgentPropertyInfo = "user-agent" attrGet _ = getDOMNavigatorUserAgent attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "vendor" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable] + -- Nullable: (Nothing,Nothing) -getDOMNavigatorVendor :: (MonadIO m, DOMNavigatorK o) => o -> m T.Text +getDOMNavigatorVendor :: (MonadIO m, DOMNavigatorK o) => o -> m (Maybe T.Text) getDOMNavigatorVendor obj = liftIO $ getObjectPropertyString obj "vendor" data DOMNavigatorVendorPropertyInfo instance AttrInfo DOMNavigatorVendorPropertyInfo where - type AttrAllowedOps DOMNavigatorVendorPropertyInfo = '[ 'AttrGet] + type AttrAllowedOps DOMNavigatorVendorPropertyInfo = '[ 'AttrGet, 'AttrClear] type AttrSetTypeConstraint DOMNavigatorVendorPropertyInfo = (~) () type AttrBaseTypeConstraint DOMNavigatorVendorPropertyInfo = DOMNavigatorK - type AttrGetType DOMNavigatorVendorPropertyInfo = T.Text + type AttrGetType DOMNavigatorVendorPropertyInfo = (Maybe T.Text) type AttrLabel DOMNavigatorVendorPropertyInfo = "vendor" attrGet _ = getDOMNavigatorVendor attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "vendor-sub" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable] + -- Nullable: (Nothing,Nothing) -getDOMNavigatorVendorSub :: (MonadIO m, DOMNavigatorK o) => o -> m T.Text +getDOMNavigatorVendorSub :: (MonadIO m, DOMNavigatorK o) => o -> m (Maybe T.Text) getDOMNavigatorVendorSub obj = liftIO $ getObjectPropertyString obj "vendor-sub" data DOMNavigatorVendorSubPropertyInfo instance AttrInfo DOMNavigatorVendorSubPropertyInfo where - type AttrAllowedOps DOMNavigatorVendorSubPropertyInfo = '[ 'AttrGet] + type AttrAllowedOps DOMNavigatorVendorSubPropertyInfo = '[ 'AttrGet, 'AttrClear] type AttrSetTypeConstraint DOMNavigatorVendorSubPropertyInfo = (~) () type AttrBaseTypeConstraint DOMNavigatorVendorSubPropertyInfo = DOMNavigatorK - type AttrGetType DOMNavigatorVendorSubPropertyInfo = T.Text + type AttrGetType DOMNavigatorVendorSubPropertyInfo = (Maybe T.Text) type AttrLabel DOMNavigatorVendorSubPropertyInfo = "vendor-sub" attrGet _ = getDOMNavigatorVendorSub attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "webkit-battery" -- Type: TInterface "WebKit" "DOMBatteryManager" -- Flags: [PropertyReadable] + -- Nullable: (Nothing,Nothing) -getDOMNavigatorWebkitBattery :: (MonadIO m, DOMNavigatorK o) => o -> m DOMBatteryManager +getDOMNavigatorWebkitBattery :: (MonadIO m, DOMNavigatorK o) => o -> m (Maybe DOMBatteryManager) getDOMNavigatorWebkitBattery obj = liftIO $ getObjectPropertyObject obj "webkit-battery" DOMBatteryManager data DOMNavigatorWebkitBatteryPropertyInfo instance AttrInfo DOMNavigatorWebkitBatteryPropertyInfo where - type AttrAllowedOps DOMNavigatorWebkitBatteryPropertyInfo = '[ 'AttrGet] + type AttrAllowedOps DOMNavigatorWebkitBatteryPropertyInfo = '[ 'AttrGet, 'AttrClear] type AttrSetTypeConstraint DOMNavigatorWebkitBatteryPropertyInfo = (~) () type AttrBaseTypeConstraint DOMNavigatorWebkitBatteryPropertyInfo = DOMNavigatorK - type AttrGetType DOMNavigatorWebkitBatteryPropertyInfo = DOMBatteryManager + type AttrGetType DOMNavigatorWebkitBatteryPropertyInfo = (Maybe DOMBatteryManager) type AttrLabel DOMNavigatorWebkitBatteryPropertyInfo = "webkit-battery" attrGet _ = getDOMNavigatorWebkitBattery attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "webkit-persistent-storage" -- Type: TInterface "WebKit" "DOMStorageQuota" -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) getDOMNavigatorWebkitPersistentStorage :: (MonadIO m, DOMNavigatorK o) => o -> m DOMStorageQuota -getDOMNavigatorWebkitPersistentStorage obj = liftIO $ getObjectPropertyObject obj "webkit-persistent-storage" DOMStorageQuota +getDOMNavigatorWebkitPersistentStorage obj = liftIO $ checkUnexpectedNothing "getDOMNavigatorWebkitPersistentStorage" $ getObjectPropertyObject obj "webkit-persistent-storage" DOMStorageQuota data DOMNavigatorWebkitPersistentStoragePropertyInfo instance AttrInfo DOMNavigatorWebkitPersistentStoragePropertyInfo where - type AttrAllowedOps DOMNavigatorWebkitPersistentStoragePropertyInfo = '[ 'AttrGet] + type AttrAllowedOps DOMNavigatorWebkitPersistentStoragePropertyInfo = '[ 'AttrGet, 'AttrClear] type AttrSetTypeConstraint DOMNavigatorWebkitPersistentStoragePropertyInfo = (~) () type AttrBaseTypeConstraint DOMNavigatorWebkitPersistentStoragePropertyInfo = DOMNavigatorK type AttrGetType DOMNavigatorWebkitPersistentStoragePropertyInfo = DOMStorageQuota @@ -628,17 +679,19 @@ attrGet _ = getDOMNavigatorWebkitPersistentStorage attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "webkit-temporary-storage" -- Type: TInterface "WebKit" "DOMStorageQuota" -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) getDOMNavigatorWebkitTemporaryStorage :: (MonadIO m, DOMNavigatorK o) => o -> m DOMStorageQuota -getDOMNavigatorWebkitTemporaryStorage obj = liftIO $ getObjectPropertyObject obj "webkit-temporary-storage" DOMStorageQuota +getDOMNavigatorWebkitTemporaryStorage obj = liftIO $ checkUnexpectedNothing "getDOMNavigatorWebkitTemporaryStorage" $ getObjectPropertyObject obj "webkit-temporary-storage" DOMStorageQuota data DOMNavigatorWebkitTemporaryStoragePropertyInfo instance AttrInfo DOMNavigatorWebkitTemporaryStoragePropertyInfo where - type AttrAllowedOps DOMNavigatorWebkitTemporaryStoragePropertyInfo = '[ 'AttrGet] + type AttrAllowedOps DOMNavigatorWebkitTemporaryStoragePropertyInfo = '[ 'AttrGet, 'AttrClear] type AttrSetTypeConstraint DOMNavigatorWebkitTemporaryStoragePropertyInfo = (~) () type AttrBaseTypeConstraint DOMNavigatorWebkitTemporaryStoragePropertyInfo = DOMNavigatorK type AttrGetType DOMNavigatorWebkitTemporaryStoragePropertyInfo = DOMStorageQuota @@ -646,10 +699,65 @@ attrGet _ = getDOMNavigatorWebkitTemporaryStorage attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined type instance AttributeList DOMNavigator = DOMNavigatorAttributeList type DOMNavigatorAttributeList = ('[ '("appCodeName", DOMNavigatorAppCodeNamePropertyInfo), '("appName", DOMNavigatorAppNamePropertyInfo), '("appVersion", DOMNavigatorAppVersionPropertyInfo), '("cookieEnabled", DOMNavigatorCookieEnabledPropertyInfo), '("coreObject", DOMObjectCoreObjectPropertyInfo), '("geolocation", DOMNavigatorGeolocationPropertyInfo), '("language", DOMNavigatorLanguagePropertyInfo), '("mimeTypes", DOMNavigatorMimeTypesPropertyInfo), '("onLine", DOMNavigatorOnLinePropertyInfo), '("platform", DOMNavigatorPlatformPropertyInfo), '("plugins", DOMNavigatorPluginsPropertyInfo), '("product", DOMNavigatorProductPropertyInfo), '("productSub", DOMNavigatorProductSubPropertyInfo), '("userAgent", DOMNavigatorUserAgentPropertyInfo), '("vendor", DOMNavigatorVendorPropertyInfo), '("vendorSub", DOMNavigatorVendorSubPropertyInfo), '("webkitBattery", DOMNavigatorWebkitBatteryPropertyInfo), '("webkitPersistentStorage", DOMNavigatorWebkitPersistentStoragePropertyInfo), '("webkitTemporaryStorage", DOMNavigatorWebkitTemporaryStoragePropertyInfo)] :: [(Symbol, *)]) +dOMNavigatorAppCodeName :: AttrLabelProxy "appCodeName" +dOMNavigatorAppCodeName = AttrLabelProxy + +dOMNavigatorAppName :: AttrLabelProxy "appName" +dOMNavigatorAppName = AttrLabelProxy + +dOMNavigatorAppVersion :: AttrLabelProxy "appVersion" +dOMNavigatorAppVersion = AttrLabelProxy + +dOMNavigatorCookieEnabled :: AttrLabelProxy "cookieEnabled" +dOMNavigatorCookieEnabled = AttrLabelProxy + +dOMNavigatorGeolocation :: AttrLabelProxy "geolocation" +dOMNavigatorGeolocation = AttrLabelProxy + +dOMNavigatorLanguage :: AttrLabelProxy "language" +dOMNavigatorLanguage = AttrLabelProxy + +dOMNavigatorMimeTypes :: AttrLabelProxy "mimeTypes" +dOMNavigatorMimeTypes = AttrLabelProxy + +dOMNavigatorOnLine :: AttrLabelProxy "onLine" +dOMNavigatorOnLine = AttrLabelProxy + +dOMNavigatorPlatform :: AttrLabelProxy "platform" +dOMNavigatorPlatform = AttrLabelProxy + +dOMNavigatorPlugins :: AttrLabelProxy "plugins" +dOMNavigatorPlugins = AttrLabelProxy + +dOMNavigatorProduct :: AttrLabelProxy "product" +dOMNavigatorProduct = AttrLabelProxy + +dOMNavigatorProductSub :: AttrLabelProxy "productSub" +dOMNavigatorProductSub = AttrLabelProxy + +dOMNavigatorUserAgent :: AttrLabelProxy "userAgent" +dOMNavigatorUserAgent = AttrLabelProxy + +dOMNavigatorVendor :: AttrLabelProxy "vendor" +dOMNavigatorVendor = AttrLabelProxy + +dOMNavigatorVendorSub :: AttrLabelProxy "vendorSub" +dOMNavigatorVendorSub = AttrLabelProxy + +dOMNavigatorWebkitBattery :: AttrLabelProxy "webkitBattery" +dOMNavigatorWebkitBattery = AttrLabelProxy + +dOMNavigatorWebkitPersistentStorage :: AttrLabelProxy "webkitPersistentStorage" +dOMNavigatorWebkitPersistentStorage = AttrLabelProxy + +dOMNavigatorWebkitTemporaryStorage :: AttrLabelProxy "webkitTemporaryStorage" +dOMNavigatorWebkitTemporaryStorage = AttrLabelProxy + type instance SignalList DOMNavigator = DOMNavigatorSignalList type DOMNavigatorSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) @@ -657,7 +765,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMNavigator", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -687,7 +795,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMNavigator", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -717,7 +825,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMNavigator", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -747,7 +855,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMNavigator", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -775,7 +883,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMNavigator", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit" "DOMGeolocation" +-- returnType : Just (TInterface "WebKit" "DOMGeolocation") -- throws : False -- Skip return : False @@ -804,7 +912,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMNavigator", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -834,7 +942,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMNavigator", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit" "DOMDOMMimeTypeArray" +-- returnType : Just (TInterface "WebKit" "DOMDOMMimeTypeArray") -- throws : False -- Skip return : False @@ -863,7 +971,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMNavigator", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -891,7 +999,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMNavigator", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -921,7 +1029,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMNavigator", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit" "DOMDOMPluginArray" +-- returnType : Just (TInterface "WebKit" "DOMDOMPluginArray") -- throws : False -- Skip return : False @@ -950,7 +1058,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMNavigator", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -980,7 +1088,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMNavigator", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -1010,7 +1118,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMNavigator", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1037,7 +1145,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMNavigator", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -1067,7 +1175,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMNavigator", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -1097,7 +1205,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMNavigator", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -1127,7 +1235,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMNavigator", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit" "DOMBatteryManager" +-- returnType : Just (TInterface "WebKit" "DOMBatteryManager") -- throws : False -- Skip return : False @@ -1156,7 +1264,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMNavigator", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit" "DOMStorageQuota" +-- returnType : Just (TInterface "WebKit" "DOMStorageQuota") -- throws : False -- Skip return : False @@ -1185,7 +1293,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMNavigator", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit" "DOMStorageQuota" +-- returnType : Just (TInterface "WebKit" "DOMStorageQuota") -- throws : False -- Skip return : False @@ -1214,7 +1322,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMNavigator", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "scheme", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "url", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : True -- Skip return : False @@ -1258,7 +1366,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMNavigator", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -1286,7 +1394,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMNavigator", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "scheme", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "url", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "title", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : True -- Skip return : False @@ -1332,7 +1440,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMNavigator", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "scheme", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "url", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : True -- Skip return : False @@ -1373,7 +1481,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMNavigator", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit" "DOMGamepadList" +-- returnType : Just (TInterface "WebKit" "DOMGamepadList") -- throws : False -- Skip return : False diff --git a/GI/WebKit/Objects/DOMNavigator.hs-boot b/GI/WebKit/Objects/DOMNavigator.hs-boot --- a/GI/WebKit/Objects/DOMNavigator.hs-boot +++ b/GI/WebKit/Objects/DOMNavigator.hs-boot @@ -1,8 +1,8 @@ module GI.WebKit.Objects.DOMNavigator where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map diff --git a/GI/WebKit/Objects/DOMNode.hs b/GI/WebKit/Objects/DOMNode.hs --- a/GI/WebKit/Objects/DOMNode.hs +++ b/GI/WebKit/Objects/DOMNode.hs @@ -207,86 +207,105 @@ -- * Properties -- ** BaseUri DOMNodeBaseUriPropertyInfo , + dOMNodeBaseUri , getDOMNodeBaseUri , -- ** ChildNodes DOMNodeChildNodesPropertyInfo , + dOMNodeChildNodes , getDOMNodeChildNodes , -- ** FirstChild DOMNodeFirstChildPropertyInfo , + dOMNodeFirstChild , getDOMNodeFirstChild , -- ** LastChild DOMNodeLastChildPropertyInfo , + dOMNodeLastChild , getDOMNodeLastChild , -- ** LocalName DOMNodeLocalNamePropertyInfo , + dOMNodeLocalName , getDOMNodeLocalName , -- ** NamespaceUri DOMNodeNamespaceUriPropertyInfo , + dOMNodeNamespaceUri , getDOMNodeNamespaceUri , -- ** NextSibling DOMNodeNextSiblingPropertyInfo , + dOMNodeNextSibling , getDOMNodeNextSibling , -- ** NodeName DOMNodeNodeNamePropertyInfo , + dOMNodeNodeName , getDOMNodeNodeName , -- ** NodeType DOMNodeNodeTypePropertyInfo , + dOMNodeNodeType , getDOMNodeNodeType , -- ** NodeValue DOMNodeNodeValuePropertyInfo , + clearDOMNodeNodeValue , constructDOMNodeNodeValue , + dOMNodeNodeValue , getDOMNodeNodeValue , setDOMNodeNodeValue , -- ** OwnerDocument DOMNodeOwnerDocumentPropertyInfo , + dOMNodeOwnerDocument , getDOMNodeOwnerDocument , -- ** ParentElement DOMNodeParentElementPropertyInfo , + dOMNodeParentElement , getDOMNodeParentElement , -- ** ParentNode DOMNodeParentNodePropertyInfo , + dOMNodeParentNode , getDOMNodeParentNode , -- ** Prefix DOMNodePrefixPropertyInfo , + clearDOMNodePrefix , constructDOMNodePrefix , + dOMNodePrefix , getDOMNodePrefix , setDOMNodePrefix , -- ** PreviousSibling DOMNodePreviousSiblingPropertyInfo , + dOMNodePreviousSibling , getDOMNodePreviousSibling , -- ** TextContent DOMNodeTextContentPropertyInfo , + clearDOMNodeTextContent , constructDOMNodeTextContent , + dOMNodeTextContent , getDOMNodeTextContent , setDOMNodeTextContent , @@ -295,9 +314,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map @@ -401,49 +420,54 @@ -- VVV Prop "base-uri" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable] + -- Nullable: (Nothing,Nothing) -getDOMNodeBaseUri :: (MonadIO m, DOMNodeK o) => o -> m T.Text +getDOMNodeBaseUri :: (MonadIO m, DOMNodeK o) => o -> m (Maybe T.Text) getDOMNodeBaseUri obj = liftIO $ getObjectPropertyString obj "base-uri" data DOMNodeBaseUriPropertyInfo instance AttrInfo DOMNodeBaseUriPropertyInfo where - type AttrAllowedOps DOMNodeBaseUriPropertyInfo = '[ 'AttrGet] + type AttrAllowedOps DOMNodeBaseUriPropertyInfo = '[ 'AttrGet, 'AttrClear] type AttrSetTypeConstraint DOMNodeBaseUriPropertyInfo = (~) () type AttrBaseTypeConstraint DOMNodeBaseUriPropertyInfo = DOMNodeK - type AttrGetType DOMNodeBaseUriPropertyInfo = T.Text + type AttrGetType DOMNodeBaseUriPropertyInfo = (Maybe T.Text) type AttrLabel DOMNodeBaseUriPropertyInfo = "base-uri" attrGet _ = getDOMNodeBaseUri attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "child-nodes" -- Type: TInterface "WebKit" "DOMNodeList" -- Flags: [PropertyReadable] + -- Nullable: (Nothing,Nothing) -getDOMNodeChildNodes :: (MonadIO m, DOMNodeK o) => o -> m DOMNodeList +getDOMNodeChildNodes :: (MonadIO m, DOMNodeK o) => o -> m (Maybe DOMNodeList) getDOMNodeChildNodes obj = liftIO $ getObjectPropertyObject obj "child-nodes" DOMNodeList data DOMNodeChildNodesPropertyInfo instance AttrInfo DOMNodeChildNodesPropertyInfo where - type AttrAllowedOps DOMNodeChildNodesPropertyInfo = '[ 'AttrGet] + type AttrAllowedOps DOMNodeChildNodesPropertyInfo = '[ 'AttrGet, 'AttrClear] type AttrSetTypeConstraint DOMNodeChildNodesPropertyInfo = (~) () type AttrBaseTypeConstraint DOMNodeChildNodesPropertyInfo = DOMNodeK - type AttrGetType DOMNodeChildNodesPropertyInfo = DOMNodeList + type AttrGetType DOMNodeChildNodesPropertyInfo = (Maybe DOMNodeList) type AttrLabel DOMNodeChildNodesPropertyInfo = "child-nodes" attrGet _ = getDOMNodeChildNodes attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "first-child" -- Type: TInterface "WebKit" "DOMNode" -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) getDOMNodeFirstChild :: (MonadIO m, DOMNodeK o) => o -> m DOMNode -getDOMNodeFirstChild obj = liftIO $ getObjectPropertyObject obj "first-child" DOMNode +getDOMNodeFirstChild obj = liftIO $ checkUnexpectedNothing "getDOMNodeFirstChild" $ getObjectPropertyObject obj "first-child" DOMNode data DOMNodeFirstChildPropertyInfo instance AttrInfo DOMNodeFirstChildPropertyInfo where - type AttrAllowedOps DOMNodeFirstChildPropertyInfo = '[ 'AttrGet] + type AttrAllowedOps DOMNodeFirstChildPropertyInfo = '[ 'AttrGet, 'AttrClear] type AttrSetTypeConstraint DOMNodeFirstChildPropertyInfo = (~) () type AttrBaseTypeConstraint DOMNodeFirstChildPropertyInfo = DOMNodeK type AttrGetType DOMNodeFirstChildPropertyInfo = DOMNode @@ -451,17 +475,19 @@ attrGet _ = getDOMNodeFirstChild attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "last-child" -- Type: TInterface "WebKit" "DOMNode" -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) getDOMNodeLastChild :: (MonadIO m, DOMNodeK o) => o -> m DOMNode -getDOMNodeLastChild obj = liftIO $ getObjectPropertyObject obj "last-child" DOMNode +getDOMNodeLastChild obj = liftIO $ checkUnexpectedNothing "getDOMNodeLastChild" $ getObjectPropertyObject obj "last-child" DOMNode data DOMNodeLastChildPropertyInfo instance AttrInfo DOMNodeLastChildPropertyInfo where - type AttrAllowedOps DOMNodeLastChildPropertyInfo = '[ 'AttrGet] + type AttrAllowedOps DOMNodeLastChildPropertyInfo = '[ 'AttrGet, 'AttrClear] type AttrSetTypeConstraint DOMNodeLastChildPropertyInfo = (~) () type AttrBaseTypeConstraint DOMNodeLastChildPropertyInfo = DOMNodeK type AttrGetType DOMNodeLastChildPropertyInfo = DOMNode @@ -469,53 +495,59 @@ attrGet _ = getDOMNodeLastChild attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "local-name" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable] + -- Nullable: (Nothing,Nothing) -getDOMNodeLocalName :: (MonadIO m, DOMNodeK o) => o -> m T.Text +getDOMNodeLocalName :: (MonadIO m, DOMNodeK o) => o -> m (Maybe T.Text) getDOMNodeLocalName obj = liftIO $ getObjectPropertyString obj "local-name" data DOMNodeLocalNamePropertyInfo instance AttrInfo DOMNodeLocalNamePropertyInfo where - type AttrAllowedOps DOMNodeLocalNamePropertyInfo = '[ 'AttrGet] + type AttrAllowedOps DOMNodeLocalNamePropertyInfo = '[ 'AttrGet, 'AttrClear] type AttrSetTypeConstraint DOMNodeLocalNamePropertyInfo = (~) () type AttrBaseTypeConstraint DOMNodeLocalNamePropertyInfo = DOMNodeK - type AttrGetType DOMNodeLocalNamePropertyInfo = T.Text + type AttrGetType DOMNodeLocalNamePropertyInfo = (Maybe T.Text) type AttrLabel DOMNodeLocalNamePropertyInfo = "local-name" attrGet _ = getDOMNodeLocalName attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "namespace-uri" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable] + -- Nullable: (Nothing,Nothing) -getDOMNodeNamespaceUri :: (MonadIO m, DOMNodeK o) => o -> m T.Text +getDOMNodeNamespaceUri :: (MonadIO m, DOMNodeK o) => o -> m (Maybe T.Text) getDOMNodeNamespaceUri obj = liftIO $ getObjectPropertyString obj "namespace-uri" data DOMNodeNamespaceUriPropertyInfo instance AttrInfo DOMNodeNamespaceUriPropertyInfo where - type AttrAllowedOps DOMNodeNamespaceUriPropertyInfo = '[ 'AttrGet] + type AttrAllowedOps DOMNodeNamespaceUriPropertyInfo = '[ 'AttrGet, 'AttrClear] type AttrSetTypeConstraint DOMNodeNamespaceUriPropertyInfo = (~) () type AttrBaseTypeConstraint DOMNodeNamespaceUriPropertyInfo = DOMNodeK - type AttrGetType DOMNodeNamespaceUriPropertyInfo = T.Text + type AttrGetType DOMNodeNamespaceUriPropertyInfo = (Maybe T.Text) type AttrLabel DOMNodeNamespaceUriPropertyInfo = "namespace-uri" attrGet _ = getDOMNodeNamespaceUri attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "next-sibling" -- Type: TInterface "WebKit" "DOMNode" -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) getDOMNodeNextSibling :: (MonadIO m, DOMNodeK o) => o -> m DOMNode -getDOMNodeNextSibling obj = liftIO $ getObjectPropertyObject obj "next-sibling" DOMNode +getDOMNodeNextSibling obj = liftIO $ checkUnexpectedNothing "getDOMNodeNextSibling" $ getObjectPropertyObject obj "next-sibling" DOMNode data DOMNodeNextSiblingPropertyInfo instance AttrInfo DOMNodeNextSiblingPropertyInfo where - type AttrAllowedOps DOMNodeNextSiblingPropertyInfo = '[ 'AttrGet] + type AttrAllowedOps DOMNodeNextSiblingPropertyInfo = '[ 'AttrGet, 'AttrClear] type AttrSetTypeConstraint DOMNodeNextSiblingPropertyInfo = (~) () type AttrBaseTypeConstraint DOMNodeNextSiblingPropertyInfo = DOMNodeK type AttrGetType DOMNodeNextSiblingPropertyInfo = DOMNode @@ -523,31 +555,35 @@ attrGet _ = getDOMNodeNextSibling attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "node-name" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable] + -- Nullable: (Nothing,Nothing) -getDOMNodeNodeName :: (MonadIO m, DOMNodeK o) => o -> m T.Text +getDOMNodeNodeName :: (MonadIO m, DOMNodeK o) => o -> m (Maybe T.Text) getDOMNodeNodeName obj = liftIO $ getObjectPropertyString obj "node-name" data DOMNodeNodeNamePropertyInfo instance AttrInfo DOMNodeNodeNamePropertyInfo where - type AttrAllowedOps DOMNodeNodeNamePropertyInfo = '[ 'AttrGet] + type AttrAllowedOps DOMNodeNodeNamePropertyInfo = '[ 'AttrGet, 'AttrClear] type AttrSetTypeConstraint DOMNodeNodeNamePropertyInfo = (~) () type AttrBaseTypeConstraint DOMNodeNodeNamePropertyInfo = DOMNodeK - type AttrGetType DOMNodeNodeNamePropertyInfo = T.Text + type AttrGetType DOMNodeNodeNamePropertyInfo = (Maybe T.Text) type AttrLabel DOMNodeNodeNamePropertyInfo = "node-name" attrGet _ = getDOMNodeNodeName attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "node-type" - -- Type: TBasicType TUInt32 + -- Type: TBasicType TUInt -- Flags: [PropertyReadable] + -- Nullable: (Nothing,Nothing) getDOMNodeNodeType :: (MonadIO m, DOMNodeK o) => o -> m Word32 -getDOMNodeNodeType obj = liftIO $ getObjectPropertyCUInt obj "node-type" +getDOMNodeNodeType obj = liftIO $ getObjectPropertyUInt32 obj "node-type" data DOMNodeNodeTypePropertyInfo instance AttrInfo DOMNodeNodeTypePropertyInfo where @@ -559,41 +595,48 @@ attrGet _ = getDOMNodeNodeType attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "node-value" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) -getDOMNodeNodeValue :: (MonadIO m, DOMNodeK o) => o -> m T.Text +getDOMNodeNodeValue :: (MonadIO m, DOMNodeK o) => o -> m (Maybe T.Text) getDOMNodeNodeValue obj = liftIO $ getObjectPropertyString obj "node-value" setDOMNodeNodeValue :: (MonadIO m, DOMNodeK o) => o -> T.Text -> m () -setDOMNodeNodeValue obj val = liftIO $ setObjectPropertyString obj "node-value" val +setDOMNodeNodeValue obj val = liftIO $ setObjectPropertyString obj "node-value" (Just val) constructDOMNodeNodeValue :: T.Text -> IO ([Char], GValue) -constructDOMNodeNodeValue val = constructObjectPropertyString "node-value" val +constructDOMNodeNodeValue val = constructObjectPropertyString "node-value" (Just val) +clearDOMNodeNodeValue :: (MonadIO m, DOMNodeK o) => o -> m () +clearDOMNodeNodeValue obj = liftIO $ setObjectPropertyString obj "node-value" (Nothing :: Maybe T.Text) + data DOMNodeNodeValuePropertyInfo instance AttrInfo DOMNodeNodeValuePropertyInfo where - type AttrAllowedOps DOMNodeNodeValuePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrAllowedOps DOMNodeNodeValuePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint DOMNodeNodeValuePropertyInfo = (~) T.Text type AttrBaseTypeConstraint DOMNodeNodeValuePropertyInfo = DOMNodeK - type AttrGetType DOMNodeNodeValuePropertyInfo = T.Text + type AttrGetType DOMNodeNodeValuePropertyInfo = (Maybe T.Text) type AttrLabel DOMNodeNodeValuePropertyInfo = "node-value" attrGet _ = getDOMNodeNodeValue attrSet _ = setDOMNodeNodeValue attrConstruct _ = constructDOMNodeNodeValue + attrClear _ = clearDOMNodeNodeValue -- VVV Prop "owner-document" -- Type: TInterface "WebKit" "DOMDocument" -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) getDOMNodeOwnerDocument :: (MonadIO m, DOMNodeK o) => o -> m DOMDocument -getDOMNodeOwnerDocument obj = liftIO $ getObjectPropertyObject obj "owner-document" DOMDocument +getDOMNodeOwnerDocument obj = liftIO $ checkUnexpectedNothing "getDOMNodeOwnerDocument" $ getObjectPropertyObject obj "owner-document" DOMDocument data DOMNodeOwnerDocumentPropertyInfo instance AttrInfo DOMNodeOwnerDocumentPropertyInfo where - type AttrAllowedOps DOMNodeOwnerDocumentPropertyInfo = '[ 'AttrGet] + type AttrAllowedOps DOMNodeOwnerDocumentPropertyInfo = '[ 'AttrGet, 'AttrClear] type AttrSetTypeConstraint DOMNodeOwnerDocumentPropertyInfo = (~) () type AttrBaseTypeConstraint DOMNodeOwnerDocumentPropertyInfo = DOMNodeK type AttrGetType DOMNodeOwnerDocumentPropertyInfo = DOMDocument @@ -601,17 +644,19 @@ attrGet _ = getDOMNodeOwnerDocument attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "parent-element" -- Type: TInterface "WebKit" "DOMElement" -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) getDOMNodeParentElement :: (MonadIO m, DOMNodeK o) => o -> m DOMElement -getDOMNodeParentElement obj = liftIO $ getObjectPropertyObject obj "parent-element" DOMElement +getDOMNodeParentElement obj = liftIO $ checkUnexpectedNothing "getDOMNodeParentElement" $ getObjectPropertyObject obj "parent-element" DOMElement data DOMNodeParentElementPropertyInfo instance AttrInfo DOMNodeParentElementPropertyInfo where - type AttrAllowedOps DOMNodeParentElementPropertyInfo = '[ 'AttrGet] + type AttrAllowedOps DOMNodeParentElementPropertyInfo = '[ 'AttrGet, 'AttrClear] type AttrSetTypeConstraint DOMNodeParentElementPropertyInfo = (~) () type AttrBaseTypeConstraint DOMNodeParentElementPropertyInfo = DOMNodeK type AttrGetType DOMNodeParentElementPropertyInfo = DOMElement @@ -619,17 +664,19 @@ attrGet _ = getDOMNodeParentElement attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "parent-node" -- Type: TInterface "WebKit" "DOMNode" -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) getDOMNodeParentNode :: (MonadIO m, DOMNodeK o) => o -> m DOMNode -getDOMNodeParentNode obj = liftIO $ getObjectPropertyObject obj "parent-node" DOMNode +getDOMNodeParentNode obj = liftIO $ checkUnexpectedNothing "getDOMNodeParentNode" $ getObjectPropertyObject obj "parent-node" DOMNode data DOMNodeParentNodePropertyInfo instance AttrInfo DOMNodeParentNodePropertyInfo where - type AttrAllowedOps DOMNodeParentNodePropertyInfo = '[ 'AttrGet] + type AttrAllowedOps DOMNodeParentNodePropertyInfo = '[ 'AttrGet, 'AttrClear] type AttrSetTypeConstraint DOMNodeParentNodePropertyInfo = (~) () type AttrBaseTypeConstraint DOMNodeParentNodePropertyInfo = DOMNodeK type AttrGetType DOMNodeParentNodePropertyInfo = DOMNode @@ -637,41 +684,48 @@ attrGet _ = getDOMNodeParentNode attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "prefix" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) -getDOMNodePrefix :: (MonadIO m, DOMNodeK o) => o -> m T.Text +getDOMNodePrefix :: (MonadIO m, DOMNodeK o) => o -> m (Maybe T.Text) getDOMNodePrefix obj = liftIO $ getObjectPropertyString obj "prefix" setDOMNodePrefix :: (MonadIO m, DOMNodeK o) => o -> T.Text -> m () -setDOMNodePrefix obj val = liftIO $ setObjectPropertyString obj "prefix" val +setDOMNodePrefix obj val = liftIO $ setObjectPropertyString obj "prefix" (Just val) constructDOMNodePrefix :: T.Text -> IO ([Char], GValue) -constructDOMNodePrefix val = constructObjectPropertyString "prefix" val +constructDOMNodePrefix val = constructObjectPropertyString "prefix" (Just val) +clearDOMNodePrefix :: (MonadIO m, DOMNodeK o) => o -> m () +clearDOMNodePrefix obj = liftIO $ setObjectPropertyString obj "prefix" (Nothing :: Maybe T.Text) + data DOMNodePrefixPropertyInfo instance AttrInfo DOMNodePrefixPropertyInfo where - type AttrAllowedOps DOMNodePrefixPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrAllowedOps DOMNodePrefixPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint DOMNodePrefixPropertyInfo = (~) T.Text type AttrBaseTypeConstraint DOMNodePrefixPropertyInfo = DOMNodeK - type AttrGetType DOMNodePrefixPropertyInfo = T.Text + type AttrGetType DOMNodePrefixPropertyInfo = (Maybe T.Text) type AttrLabel DOMNodePrefixPropertyInfo = "prefix" attrGet _ = getDOMNodePrefix attrSet _ = setDOMNodePrefix attrConstruct _ = constructDOMNodePrefix + attrClear _ = clearDOMNodePrefix -- VVV Prop "previous-sibling" -- Type: TInterface "WebKit" "DOMNode" -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) getDOMNodePreviousSibling :: (MonadIO m, DOMNodeK o) => o -> m DOMNode -getDOMNodePreviousSibling obj = liftIO $ getObjectPropertyObject obj "previous-sibling" DOMNode +getDOMNodePreviousSibling obj = liftIO $ checkUnexpectedNothing "getDOMNodePreviousSibling" $ getObjectPropertyObject obj "previous-sibling" DOMNode data DOMNodePreviousSiblingPropertyInfo instance AttrInfo DOMNodePreviousSiblingPropertyInfo where - type AttrAllowedOps DOMNodePreviousSiblingPropertyInfo = '[ 'AttrGet] + type AttrAllowedOps DOMNodePreviousSiblingPropertyInfo = '[ 'AttrGet, 'AttrClear] type AttrSetTypeConstraint DOMNodePreviousSiblingPropertyInfo = (~) () type AttrBaseTypeConstraint DOMNodePreviousSiblingPropertyInfo = DOMNodeK type AttrGetType DOMNodePreviousSiblingPropertyInfo = DOMNode @@ -679,34 +733,88 @@ attrGet _ = getDOMNodePreviousSibling attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "text-content" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) -getDOMNodeTextContent :: (MonadIO m, DOMNodeK o) => o -> m T.Text +getDOMNodeTextContent :: (MonadIO m, DOMNodeK o) => o -> m (Maybe T.Text) getDOMNodeTextContent obj = liftIO $ getObjectPropertyString obj "text-content" setDOMNodeTextContent :: (MonadIO m, DOMNodeK o) => o -> T.Text -> m () -setDOMNodeTextContent obj val = liftIO $ setObjectPropertyString obj "text-content" val +setDOMNodeTextContent obj val = liftIO $ setObjectPropertyString obj "text-content" (Just val) constructDOMNodeTextContent :: T.Text -> IO ([Char], GValue) -constructDOMNodeTextContent val = constructObjectPropertyString "text-content" val +constructDOMNodeTextContent val = constructObjectPropertyString "text-content" (Just val) +clearDOMNodeTextContent :: (MonadIO m, DOMNodeK o) => o -> m () +clearDOMNodeTextContent obj = liftIO $ setObjectPropertyString obj "text-content" (Nothing :: Maybe T.Text) + data DOMNodeTextContentPropertyInfo instance AttrInfo DOMNodeTextContentPropertyInfo where - type AttrAllowedOps DOMNodeTextContentPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrAllowedOps DOMNodeTextContentPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint DOMNodeTextContentPropertyInfo = (~) T.Text type AttrBaseTypeConstraint DOMNodeTextContentPropertyInfo = DOMNodeK - type AttrGetType DOMNodeTextContentPropertyInfo = T.Text + type AttrGetType DOMNodeTextContentPropertyInfo = (Maybe T.Text) type AttrLabel DOMNodeTextContentPropertyInfo = "text-content" attrGet _ = getDOMNodeTextContent attrSet _ = setDOMNodeTextContent attrConstruct _ = constructDOMNodeTextContent + attrClear _ = clearDOMNodeTextContent type instance AttributeList DOMNode = DOMNodeAttributeList type DOMNodeAttributeList = ('[ '("baseUri", DOMNodeBaseUriPropertyInfo), '("childNodes", DOMNodeChildNodesPropertyInfo), '("coreObject", DOMObjectCoreObjectPropertyInfo), '("firstChild", DOMNodeFirstChildPropertyInfo), '("lastChild", DOMNodeLastChildPropertyInfo), '("localName", DOMNodeLocalNamePropertyInfo), '("namespaceUri", DOMNodeNamespaceUriPropertyInfo), '("nextSibling", DOMNodeNextSiblingPropertyInfo), '("nodeName", DOMNodeNodeNamePropertyInfo), '("nodeType", DOMNodeNodeTypePropertyInfo), '("nodeValue", DOMNodeNodeValuePropertyInfo), '("ownerDocument", DOMNodeOwnerDocumentPropertyInfo), '("parentElement", DOMNodeParentElementPropertyInfo), '("parentNode", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previousSibling", DOMNodePreviousSiblingPropertyInfo), '("textContent", DOMNodeTextContentPropertyInfo)] :: [(Symbol, *)]) +dOMNodeBaseUri :: AttrLabelProxy "baseUri" +dOMNodeBaseUri = AttrLabelProxy + +dOMNodeChildNodes :: AttrLabelProxy "childNodes" +dOMNodeChildNodes = AttrLabelProxy + +dOMNodeFirstChild :: AttrLabelProxy "firstChild" +dOMNodeFirstChild = AttrLabelProxy + +dOMNodeLastChild :: AttrLabelProxy "lastChild" +dOMNodeLastChild = AttrLabelProxy + +dOMNodeLocalName :: AttrLabelProxy "localName" +dOMNodeLocalName = AttrLabelProxy + +dOMNodeNamespaceUri :: AttrLabelProxy "namespaceUri" +dOMNodeNamespaceUri = AttrLabelProxy + +dOMNodeNextSibling :: AttrLabelProxy "nextSibling" +dOMNodeNextSibling = AttrLabelProxy + +dOMNodeNodeName :: AttrLabelProxy "nodeName" +dOMNodeNodeName = AttrLabelProxy + +dOMNodeNodeType :: AttrLabelProxy "nodeType" +dOMNodeNodeType = AttrLabelProxy + +dOMNodeNodeValue :: AttrLabelProxy "nodeValue" +dOMNodeNodeValue = AttrLabelProxy + +dOMNodeOwnerDocument :: AttrLabelProxy "ownerDocument" +dOMNodeOwnerDocument = AttrLabelProxy + +dOMNodeParentElement :: AttrLabelProxy "parentElement" +dOMNodeParentElement = AttrLabelProxy + +dOMNodeParentNode :: AttrLabelProxy "parentNode" +dOMNodeParentNode = AttrLabelProxy + +dOMNodePrefix :: AttrLabelProxy "prefix" +dOMNodePrefix = AttrLabelProxy + +dOMNodePreviousSibling :: AttrLabelProxy "previousSibling" +dOMNodePreviousSibling = AttrLabelProxy + +dOMNodeTextContent :: AttrLabelProxy "textContent" +dOMNodeTextContent = AttrLabelProxy + type instance SignalList DOMNode = DOMNodeSignalList type DOMNodeSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) @@ -714,7 +822,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "newChild", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit" "DOMNode" +-- returnType : Just (TInterface "WebKit" "DOMNode") -- throws : True -- Skip return : False @@ -752,7 +860,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "deep", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit" "DOMNode" +-- returnType : Just (TInterface "WebKit" "DOMNode") -- throws : False -- Skip return : False @@ -784,7 +892,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "other", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUInt16 +-- returnType : Just (TBasicType TUInt16) -- throws : False -- Skip return : False @@ -815,7 +923,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "other", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -847,7 +955,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "event", argType = TInterface "WebKit" "DOMEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : True -- Skip return : False @@ -883,7 +991,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit" "DOMNamedNodeMap" +-- returnType : Just (TInterface "WebKit" "DOMNamedNodeMap") -- throws : False -- Skip return : False @@ -912,7 +1020,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -942,7 +1050,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit" "DOMNodeList" +-- returnType : Just (TInterface "WebKit" "DOMNodeList") -- throws : False -- Skip return : False @@ -971,7 +1079,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit" "DOMNode" +-- returnType : Just (TInterface "WebKit" "DOMNode") -- throws : False -- Skip return : False @@ -1000,7 +1108,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit" "DOMNode" +-- returnType : Just (TInterface "WebKit" "DOMNode") -- throws : False -- Skip return : False @@ -1029,7 +1137,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -1059,7 +1167,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -1089,7 +1197,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit" "DOMNode" +-- returnType : Just (TInterface "WebKit" "DOMNode") -- throws : False -- Skip return : False @@ -1118,7 +1226,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -1148,7 +1256,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUInt16 +-- returnType : Just (TBasicType TUInt16) -- throws : False -- Skip return : False @@ -1175,7 +1283,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -1205,7 +1313,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit" "DOMDocument" +-- returnType : Just (TInterface "WebKit" "DOMDocument") -- throws : False -- Skip return : False @@ -1234,7 +1342,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit" "DOMElement" +-- returnType : Just (TInterface "WebKit" "DOMElement") -- throws : False -- Skip return : False @@ -1263,7 +1371,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit" "DOMNode" +-- returnType : Just (TInterface "WebKit" "DOMNode") -- throws : False -- Skip return : False @@ -1292,7 +1400,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -1322,7 +1430,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit" "DOMNode" +-- returnType : Just (TInterface "WebKit" "DOMNode") -- throws : False -- Skip return : False @@ -1351,7 +1459,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -1381,7 +1489,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -1409,7 +1517,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -1437,7 +1545,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "newChild", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "refChild", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit" "DOMNode" +-- returnType : Just (TInterface "WebKit" "DOMNode") -- throws : True -- Skip return : False @@ -1483,7 +1591,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "namespaceURI", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -1515,7 +1623,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "other", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -1547,7 +1655,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "other", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -1579,7 +1687,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "feature", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "version", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -1615,7 +1723,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "prefix", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -1649,7 +1757,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "namespaceURI", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -1683,7 +1791,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1710,7 +1818,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "oldChild", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit" "DOMNode" +-- returnType : Just (TInterface "WebKit" "DOMNode") -- throws : True -- Skip return : False @@ -1748,7 +1856,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "newChild", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "oldChild", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit" "DOMNode" +-- returnType : Just (TInterface "WebKit" "DOMNode") -- throws : True -- Skip return : False @@ -1790,7 +1898,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : True -- Skip return : False @@ -1826,7 +1934,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : True -- Skip return : False @@ -1862,7 +1970,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : True -- Skip return : False diff --git a/GI/WebKit/Objects/DOMNode.hs-boot b/GI/WebKit/Objects/DOMNode.hs-boot --- a/GI/WebKit/Objects/DOMNode.hs-boot +++ b/GI/WebKit/Objects/DOMNode.hs-boot @@ -1,8 +1,8 @@ module GI.WebKit.Objects.DOMNode where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map diff --git a/GI/WebKit/Objects/DOMNodeFilter.hs b/GI/WebKit/Objects/DOMNodeFilter.hs --- a/GI/WebKit/Objects/DOMNodeFilter.hs +++ b/GI/WebKit/Objects/DOMNodeFilter.hs @@ -26,9 +26,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map @@ -102,7 +102,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMNodeFilter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TInt16 +-- returnType : Just (TBasicType TInt16) -- throws : False -- Skip return : False diff --git a/GI/WebKit/Objects/DOMNodeFilter.hs-boot b/GI/WebKit/Objects/DOMNodeFilter.hs-boot --- a/GI/WebKit/Objects/DOMNodeFilter.hs-boot +++ b/GI/WebKit/Objects/DOMNodeFilter.hs-boot @@ -1,8 +1,8 @@ module GI.WebKit.Objects.DOMNodeFilter where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map diff --git a/GI/WebKit/Objects/DOMNodeIterator.hs b/GI/WebKit/Objects/DOMNodeIterator.hs --- a/GI/WebKit/Objects/DOMNodeIterator.hs +++ b/GI/WebKit/Objects/DOMNodeIterator.hs @@ -67,31 +67,37 @@ -- * Properties -- ** ExpandEntityReferences DOMNodeIteratorExpandEntityReferencesPropertyInfo, + dOMNodeIteratorExpandEntityReferences , getDOMNodeIteratorExpandEntityReferences, -- ** Filter DOMNodeIteratorFilterPropertyInfo , + dOMNodeIteratorFilter , getDOMNodeIteratorFilter , -- ** PointerBeforeReferenceNode DOMNodeIteratorPointerBeforeReferenceNodePropertyInfo, + dOMNodeIteratorPointerBeforeReferenceNode, getDOMNodeIteratorPointerBeforeReferenceNode, -- ** ReferenceNode DOMNodeIteratorReferenceNodePropertyInfo, + dOMNodeIteratorReferenceNode , getDOMNodeIteratorReferenceNode , -- ** Root DOMNodeIteratorRootPropertyInfo , + dOMNodeIteratorRoot , getDOMNodeIteratorRoot , -- ** WhatToShow DOMNodeIteratorWhatToShowPropertyInfo , + dOMNodeIteratorWhatToShow , getDOMNodeIteratorWhatToShow , @@ -99,9 +105,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map @@ -176,6 +182,7 @@ -- VVV Prop "expand-entity-references" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) getDOMNodeIteratorExpandEntityReferences :: (MonadIO m, DOMNodeIteratorK o) => o -> m Bool getDOMNodeIteratorExpandEntityReferences obj = liftIO $ getObjectPropertyBool obj "expand-entity-references" @@ -190,28 +197,32 @@ attrGet _ = getDOMNodeIteratorExpandEntityReferences attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "filter" -- Type: TInterface "WebKit" "DOMNodeFilter" -- Flags: [PropertyReadable] + -- Nullable: (Nothing,Nothing) -getDOMNodeIteratorFilter :: (MonadIO m, DOMNodeIteratorK o) => o -> m DOMNodeFilter +getDOMNodeIteratorFilter :: (MonadIO m, DOMNodeIteratorK o) => o -> m (Maybe DOMNodeFilter) getDOMNodeIteratorFilter obj = liftIO $ getObjectPropertyObject obj "filter" DOMNodeFilter data DOMNodeIteratorFilterPropertyInfo instance AttrInfo DOMNodeIteratorFilterPropertyInfo where - type AttrAllowedOps DOMNodeIteratorFilterPropertyInfo = '[ 'AttrGet] + type AttrAllowedOps DOMNodeIteratorFilterPropertyInfo = '[ 'AttrGet, 'AttrClear] type AttrSetTypeConstraint DOMNodeIteratorFilterPropertyInfo = (~) () type AttrBaseTypeConstraint DOMNodeIteratorFilterPropertyInfo = DOMNodeIteratorK - type AttrGetType DOMNodeIteratorFilterPropertyInfo = DOMNodeFilter + type AttrGetType DOMNodeIteratorFilterPropertyInfo = (Maybe DOMNodeFilter) type AttrLabel DOMNodeIteratorFilterPropertyInfo = "filter" attrGet _ = getDOMNodeIteratorFilter attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "pointer-before-reference-node" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) getDOMNodeIteratorPointerBeforeReferenceNode :: (MonadIO m, DOMNodeIteratorK o) => o -> m Bool getDOMNodeIteratorPointerBeforeReferenceNode obj = liftIO $ getObjectPropertyBool obj "pointer-before-reference-node" @@ -226,17 +237,19 @@ attrGet _ = getDOMNodeIteratorPointerBeforeReferenceNode attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "reference-node" -- Type: TInterface "WebKit" "DOMNode" -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) getDOMNodeIteratorReferenceNode :: (MonadIO m, DOMNodeIteratorK o) => o -> m DOMNode -getDOMNodeIteratorReferenceNode obj = liftIO $ getObjectPropertyObject obj "reference-node" DOMNode +getDOMNodeIteratorReferenceNode obj = liftIO $ checkUnexpectedNothing "getDOMNodeIteratorReferenceNode" $ getObjectPropertyObject obj "reference-node" DOMNode data DOMNodeIteratorReferenceNodePropertyInfo instance AttrInfo DOMNodeIteratorReferenceNodePropertyInfo where - type AttrAllowedOps DOMNodeIteratorReferenceNodePropertyInfo = '[ 'AttrGet] + type AttrAllowedOps DOMNodeIteratorReferenceNodePropertyInfo = '[ 'AttrGet, 'AttrClear] type AttrSetTypeConstraint DOMNodeIteratorReferenceNodePropertyInfo = (~) () type AttrBaseTypeConstraint DOMNodeIteratorReferenceNodePropertyInfo = DOMNodeIteratorK type AttrGetType DOMNodeIteratorReferenceNodePropertyInfo = DOMNode @@ -244,17 +257,19 @@ attrGet _ = getDOMNodeIteratorReferenceNode attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "root" -- Type: TInterface "WebKit" "DOMNode" -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) getDOMNodeIteratorRoot :: (MonadIO m, DOMNodeIteratorK o) => o -> m DOMNode -getDOMNodeIteratorRoot obj = liftIO $ getObjectPropertyObject obj "root" DOMNode +getDOMNodeIteratorRoot obj = liftIO $ checkUnexpectedNothing "getDOMNodeIteratorRoot" $ getObjectPropertyObject obj "root" DOMNode data DOMNodeIteratorRootPropertyInfo instance AttrInfo DOMNodeIteratorRootPropertyInfo where - type AttrAllowedOps DOMNodeIteratorRootPropertyInfo = '[ 'AttrGet] + type AttrAllowedOps DOMNodeIteratorRootPropertyInfo = '[ 'AttrGet, 'AttrClear] type AttrSetTypeConstraint DOMNodeIteratorRootPropertyInfo = (~) () type AttrBaseTypeConstraint DOMNodeIteratorRootPropertyInfo = DOMNodeIteratorK type AttrGetType DOMNodeIteratorRootPropertyInfo = DOMNode @@ -262,28 +277,49 @@ attrGet _ = getDOMNodeIteratorRoot attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "what-to-show" - -- Type: TBasicType TUInt64 + -- Type: TBasicType TULong -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) -getDOMNodeIteratorWhatToShow :: (MonadIO m, DOMNodeIteratorK o) => o -> m Word64 -getDOMNodeIteratorWhatToShow obj = liftIO $ getObjectPropertyUInt64 obj "what-to-show" +getDOMNodeIteratorWhatToShow :: (MonadIO m, DOMNodeIteratorK o) => o -> m CULong +getDOMNodeIteratorWhatToShow obj = liftIO $ getObjectPropertyULong obj "what-to-show" data DOMNodeIteratorWhatToShowPropertyInfo instance AttrInfo DOMNodeIteratorWhatToShowPropertyInfo where type AttrAllowedOps DOMNodeIteratorWhatToShowPropertyInfo = '[ 'AttrGet] type AttrSetTypeConstraint DOMNodeIteratorWhatToShowPropertyInfo = (~) () type AttrBaseTypeConstraint DOMNodeIteratorWhatToShowPropertyInfo = DOMNodeIteratorK - type AttrGetType DOMNodeIteratorWhatToShowPropertyInfo = Word64 + type AttrGetType DOMNodeIteratorWhatToShowPropertyInfo = CULong type AttrLabel DOMNodeIteratorWhatToShowPropertyInfo = "what-to-show" attrGet _ = getDOMNodeIteratorWhatToShow attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined type instance AttributeList DOMNodeIterator = DOMNodeIteratorAttributeList type DOMNodeIteratorAttributeList = ('[ '("coreObject", DOMObjectCoreObjectPropertyInfo), '("expandEntityReferences", DOMNodeIteratorExpandEntityReferencesPropertyInfo), '("filter", DOMNodeIteratorFilterPropertyInfo), '("pointerBeforeReferenceNode", DOMNodeIteratorPointerBeforeReferenceNodePropertyInfo), '("referenceNode", DOMNodeIteratorReferenceNodePropertyInfo), '("root", DOMNodeIteratorRootPropertyInfo), '("whatToShow", DOMNodeIteratorWhatToShowPropertyInfo)] :: [(Symbol, *)]) +dOMNodeIteratorExpandEntityReferences :: AttrLabelProxy "expandEntityReferences" +dOMNodeIteratorExpandEntityReferences = AttrLabelProxy + +dOMNodeIteratorFilter :: AttrLabelProxy "filter" +dOMNodeIteratorFilter = AttrLabelProxy + +dOMNodeIteratorPointerBeforeReferenceNode :: AttrLabelProxy "pointerBeforeReferenceNode" +dOMNodeIteratorPointerBeforeReferenceNode = AttrLabelProxy + +dOMNodeIteratorReferenceNode :: AttrLabelProxy "referenceNode" +dOMNodeIteratorReferenceNode = AttrLabelProxy + +dOMNodeIteratorRoot :: AttrLabelProxy "root" +dOMNodeIteratorRoot = AttrLabelProxy + +dOMNodeIteratorWhatToShow :: AttrLabelProxy "whatToShow" +dOMNodeIteratorWhatToShow = AttrLabelProxy + type instance SignalList DOMNodeIterator = DOMNodeIteratorSignalList type DOMNodeIteratorSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) @@ -291,7 +327,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMNodeIterator", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -318,7 +354,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMNodeIterator", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -346,7 +382,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMNodeIterator", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit" "DOMNodeFilter" +-- returnType : Just (TInterface "WebKit" "DOMNodeFilter") -- throws : False -- Skip return : False @@ -375,7 +411,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMNodeIterator", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -403,7 +439,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMNodeIterator", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit" "DOMNode" +-- returnType : Just (TInterface "WebKit" "DOMNode") -- throws : False -- Skip return : False @@ -432,7 +468,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMNodeIterator", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit" "DOMNode" +-- returnType : Just (TInterface "WebKit" "DOMNode") -- throws : False -- Skip return : False @@ -461,19 +497,19 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMNodeIterator", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUInt64 +-- returnType : Just (TBasicType TULong) -- throws : False -- Skip return : False foreign import ccall "webkit_dom_node_iterator_get_what_to_show" webkit_dom_node_iterator_get_what_to_show :: Ptr DOMNodeIterator -> -- _obj : TInterface "WebKit" "DOMNodeIterator" - IO Word64 + IO CULong dOMNodeIteratorGetWhatToShow :: (MonadIO m, DOMNodeIteratorK a) => a -- _obj - -> m Word64 -- result + -> m CULong -- result dOMNodeIteratorGetWhatToShow _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- webkit_dom_node_iterator_get_what_to_show _obj' @@ -481,14 +517,14 @@ return result data DOMNodeIteratorGetWhatToShowMethodInfo -instance (signature ~ (m Word64), MonadIO m, DOMNodeIteratorK a) => MethodInfo DOMNodeIteratorGetWhatToShowMethodInfo a signature where +instance (signature ~ (m CULong), MonadIO m, DOMNodeIteratorK a) => MethodInfo DOMNodeIteratorGetWhatToShowMethodInfo a signature where overloadedMethod _ = dOMNodeIteratorGetWhatToShow -- method DOMNodeIterator::next_node -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMNodeIterator", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit" "DOMNode" +-- returnType : Just (TInterface "WebKit" "DOMNode") -- throws : True -- Skip return : False @@ -522,7 +558,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMNodeIterator", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit" "DOMNode" +-- returnType : Just (TInterface "WebKit" "DOMNode") -- throws : True -- Skip return : False diff --git a/GI/WebKit/Objects/DOMNodeIterator.hs-boot b/GI/WebKit/Objects/DOMNodeIterator.hs-boot --- a/GI/WebKit/Objects/DOMNodeIterator.hs-boot +++ b/GI/WebKit/Objects/DOMNodeIterator.hs-boot @@ -1,8 +1,8 @@ module GI.WebKit.Objects.DOMNodeIterator where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map diff --git a/GI/WebKit/Objects/DOMNodeList.hs b/GI/WebKit/Objects/DOMNodeList.hs --- a/GI/WebKit/Objects/DOMNodeList.hs +++ b/GI/WebKit/Objects/DOMNodeList.hs @@ -32,6 +32,7 @@ -- * Properties -- ** Length DOMNodeListLengthPropertyInfo , + dOMNodeListLength , getDOMNodeListLength , @@ -39,9 +40,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map @@ -107,26 +108,31 @@ #endif -- VVV Prop "length" - -- Type: TBasicType TUInt64 + -- Type: TBasicType TULong -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) -getDOMNodeListLength :: (MonadIO m, DOMNodeListK o) => o -> m Word64 -getDOMNodeListLength obj = liftIO $ getObjectPropertyUInt64 obj "length" +getDOMNodeListLength :: (MonadIO m, DOMNodeListK o) => o -> m CULong +getDOMNodeListLength obj = liftIO $ getObjectPropertyULong obj "length" data DOMNodeListLengthPropertyInfo instance AttrInfo DOMNodeListLengthPropertyInfo where type AttrAllowedOps DOMNodeListLengthPropertyInfo = '[ 'AttrGet] type AttrSetTypeConstraint DOMNodeListLengthPropertyInfo = (~) () type AttrBaseTypeConstraint DOMNodeListLengthPropertyInfo = DOMNodeListK - type AttrGetType DOMNodeListLengthPropertyInfo = Word64 + type AttrGetType DOMNodeListLengthPropertyInfo = CULong type AttrLabel DOMNodeListLengthPropertyInfo = "length" attrGet _ = getDOMNodeListLength attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined type instance AttributeList DOMNodeList = DOMNodeListAttributeList type DOMNodeListAttributeList = ('[ '("coreObject", DOMObjectCoreObjectPropertyInfo), '("length", DOMNodeListLengthPropertyInfo)] :: [(Symbol, *)]) +dOMNodeListLength :: AttrLabelProxy "length" +dOMNodeListLength = AttrLabelProxy + type instance SignalList DOMNodeList = DOMNodeListSignalList type DOMNodeListSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) @@ -134,19 +140,19 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMNodeList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUInt64 +-- returnType : Just (TBasicType TULong) -- throws : False -- Skip return : False foreign import ccall "webkit_dom_node_list_get_length" webkit_dom_node_list_get_length :: Ptr DOMNodeList -> -- _obj : TInterface "WebKit" "DOMNodeList" - IO Word64 + IO CULong dOMNodeListGetLength :: (MonadIO m, DOMNodeListK a) => a -- _obj - -> m Word64 -- result + -> m CULong -- result dOMNodeListGetLength _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- webkit_dom_node_list_get_length _obj' @@ -154,27 +160,27 @@ return result data DOMNodeListGetLengthMethodInfo -instance (signature ~ (m Word64), MonadIO m, DOMNodeListK a) => MethodInfo DOMNodeListGetLengthMethodInfo a signature where +instance (signature ~ (m CULong), MonadIO m, DOMNodeListK a) => MethodInfo DOMNodeListGetLengthMethodInfo a signature where overloadedMethod _ = dOMNodeListGetLength -- method DOMNodeList::item -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMNodeList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "index", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMNodeList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "index", argType = TBasicType TULong, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit" "DOMNode" +-- returnType : Just (TInterface "WebKit" "DOMNode") -- throws : False -- Skip return : False foreign import ccall "webkit_dom_node_list_item" webkit_dom_node_list_item :: Ptr DOMNodeList -> -- _obj : TInterface "WebKit" "DOMNodeList" - Word64 -> -- index : TBasicType TUInt64 + CULong -> -- index : TBasicType TULong IO (Ptr DOMNode) dOMNodeListItem :: (MonadIO m, DOMNodeListK a) => a -- _obj - -> Word64 -- index + -> CULong -- index -> m DOMNode -- result dOMNodeListItem _obj index = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj @@ -185,7 +191,7 @@ return result' data DOMNodeListItemMethodInfo -instance (signature ~ (Word64 -> m DOMNode), MonadIO m, DOMNodeListK a) => MethodInfo DOMNodeListItemMethodInfo a signature where +instance (signature ~ (CULong -> m DOMNode), MonadIO m, DOMNodeListK a) => MethodInfo DOMNodeListItemMethodInfo a signature where overloadedMethod _ = dOMNodeListItem diff --git a/GI/WebKit/Objects/DOMNodeList.hs-boot b/GI/WebKit/Objects/DOMNodeList.hs-boot --- a/GI/WebKit/Objects/DOMNodeList.hs-boot +++ b/GI/WebKit/Objects/DOMNodeList.hs-boot @@ -1,8 +1,8 @@ module GI.WebKit.Objects.DOMNodeList where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map diff --git a/GI/WebKit/Objects/DOMObject.hs b/GI/WebKit/Objects/DOMObject.hs --- a/GI/WebKit/Objects/DOMObject.hs +++ b/GI/WebKit/Objects/DOMObject.hs @@ -20,15 +20,16 @@ -- ** CoreObject DOMObjectCoreObjectPropertyInfo , constructDOMObjectCoreObject , + dOMObjectCoreObject , ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map @@ -92,10 +93,11 @@ #endif -- VVV Prop "core-object" - -- Type: TBasicType TVoid + -- Type: TBasicType TPtr -- Flags: [PropertyWritable,PropertyConstructOnly] + -- Nullable: (Nothing,Nothing) -constructDOMObjectCoreObject :: (Ptr ()) -> IO ([Char], GValue) +constructDOMObjectCoreObject :: Ptr () -> IO ([Char], GValue) constructDOMObjectCoreObject val = constructObjectPropertyPtr "core-object" val data DOMObjectCoreObjectPropertyInfo @@ -108,9 +110,13 @@ attrGet _ = undefined attrSet _ = undefined attrConstruct _ = constructDOMObjectCoreObject + attrClear _ = undefined type instance AttributeList DOMObject = DOMObjectAttributeList type DOMObjectAttributeList = ('[ '("coreObject", DOMObjectCoreObjectPropertyInfo)] :: [(Symbol, *)]) + +dOMObjectCoreObject :: AttrLabelProxy "coreObject" +dOMObjectCoreObject = AttrLabelProxy type instance SignalList DOMObject = DOMObjectSignalList type DOMObjectSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) diff --git a/GI/WebKit/Objects/DOMObject.hs-boot b/GI/WebKit/Objects/DOMObject.hs-boot --- a/GI/WebKit/Objects/DOMObject.hs-boot +++ b/GI/WebKit/Objects/DOMObject.hs-boot @@ -1,8 +1,8 @@ module GI.WebKit.Objects.DOMObject where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map diff --git a/GI/WebKit/Objects/DOMPerformance.hs b/GI/WebKit/Objects/DOMPerformance.hs --- a/GI/WebKit/Objects/DOMPerformance.hs +++ b/GI/WebKit/Objects/DOMPerformance.hs @@ -42,11 +42,13 @@ -- * Properties -- ** Navigation DOMPerformanceNavigationPropertyInfo , + dOMPerformanceNavigation , getDOMPerformanceNavigation , -- ** Timing DOMPerformanceTimingPropertyInfo , + dOMPerformanceTiming , getDOMPerformanceTiming , @@ -54,9 +56,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map @@ -129,42 +131,52 @@ -- VVV Prop "navigation" -- Type: TInterface "WebKit" "DOMPerformanceNavigation" -- Flags: [PropertyReadable] + -- Nullable: (Nothing,Nothing) -getDOMPerformanceNavigation :: (MonadIO m, DOMPerformanceK o) => o -> m DOMPerformanceNavigation +getDOMPerformanceNavigation :: (MonadIO m, DOMPerformanceK o) => o -> m (Maybe DOMPerformanceNavigation) getDOMPerformanceNavigation obj = liftIO $ getObjectPropertyObject obj "navigation" DOMPerformanceNavigation data DOMPerformanceNavigationPropertyInfo instance AttrInfo DOMPerformanceNavigationPropertyInfo where - type AttrAllowedOps DOMPerformanceNavigationPropertyInfo = '[ 'AttrGet] + type AttrAllowedOps DOMPerformanceNavigationPropertyInfo = '[ 'AttrGet, 'AttrClear] type AttrSetTypeConstraint DOMPerformanceNavigationPropertyInfo = (~) () type AttrBaseTypeConstraint DOMPerformanceNavigationPropertyInfo = DOMPerformanceK - type AttrGetType DOMPerformanceNavigationPropertyInfo = DOMPerformanceNavigation + type AttrGetType DOMPerformanceNavigationPropertyInfo = (Maybe DOMPerformanceNavigation) type AttrLabel DOMPerformanceNavigationPropertyInfo = "navigation" attrGet _ = getDOMPerformanceNavigation attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "timing" -- Type: TInterface "WebKit" "DOMPerformanceTiming" -- Flags: [PropertyReadable] + -- Nullable: (Nothing,Nothing) -getDOMPerformanceTiming :: (MonadIO m, DOMPerformanceK o) => o -> m DOMPerformanceTiming +getDOMPerformanceTiming :: (MonadIO m, DOMPerformanceK o) => o -> m (Maybe DOMPerformanceTiming) getDOMPerformanceTiming obj = liftIO $ getObjectPropertyObject obj "timing" DOMPerformanceTiming data DOMPerformanceTimingPropertyInfo instance AttrInfo DOMPerformanceTimingPropertyInfo where - type AttrAllowedOps DOMPerformanceTimingPropertyInfo = '[ 'AttrGet] + type AttrAllowedOps DOMPerformanceTimingPropertyInfo = '[ 'AttrGet, 'AttrClear] type AttrSetTypeConstraint DOMPerformanceTimingPropertyInfo = (~) () type AttrBaseTypeConstraint DOMPerformanceTimingPropertyInfo = DOMPerformanceK - type AttrGetType DOMPerformanceTimingPropertyInfo = DOMPerformanceTiming + type AttrGetType DOMPerformanceTimingPropertyInfo = (Maybe DOMPerformanceTiming) type AttrLabel DOMPerformanceTimingPropertyInfo = "timing" attrGet _ = getDOMPerformanceTiming attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined type instance AttributeList DOMPerformance = DOMPerformanceAttributeList type DOMPerformanceAttributeList = ('[ '("coreObject", DOMObjectCoreObjectPropertyInfo), '("navigation", DOMPerformanceNavigationPropertyInfo), '("timing", DOMPerformanceTimingPropertyInfo)] :: [(Symbol, *)]) +dOMPerformanceNavigation :: AttrLabelProxy "navigation" +dOMPerformanceNavigation = AttrLabelProxy + +dOMPerformanceTiming :: AttrLabelProxy "timing" +dOMPerformanceTiming = AttrLabelProxy + type instance SignalList DOMPerformance = DOMPerformanceSignalList type DOMPerformanceSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) @@ -172,34 +184,34 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMPerformance", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Just (TBasicType TPtr) -- throws : False -- Skip return : False foreign import ccall "webkit_dom_performance_get_memory" webkit_dom_performance_get_memory :: Ptr DOMPerformance -> -- _obj : TInterface "WebKit" "DOMPerformance" - IO () + IO (Ptr ()) {-# DEPRECATED dOMPerformanceGetMemory ["(Since version 2.2)"]#-} dOMPerformanceGetMemory :: (MonadIO m, DOMPerformanceK a) => a -- _obj - -> m () -- result + -> m (Ptr ()) -- result dOMPerformanceGetMemory _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - webkit_dom_performance_get_memory _obj' + result <- webkit_dom_performance_get_memory _obj' touchManagedPtr _obj - return () + return result data DOMPerformanceGetMemoryMethodInfo -instance (signature ~ (m ()), MonadIO m, DOMPerformanceK a) => MethodInfo DOMPerformanceGetMemoryMethodInfo a signature where +instance (signature ~ (m (Ptr ())), MonadIO m, DOMPerformanceK a) => MethodInfo DOMPerformanceGetMemoryMethodInfo a signature where overloadedMethod _ = dOMPerformanceGetMemory -- method DOMPerformance::get_navigation -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMPerformance", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit" "DOMPerformanceNavigation" +-- returnType : Just (TInterface "WebKit" "DOMPerformanceNavigation") -- throws : False -- Skip return : False @@ -228,7 +240,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMPerformance", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit" "DOMPerformanceTiming" +-- returnType : Just (TInterface "WebKit" "DOMPerformanceTiming") -- throws : False -- Skip return : False @@ -257,7 +269,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMPerformance", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TDouble +-- returnType : Just (TBasicType TDouble) -- throws : False -- Skip return : False diff --git a/GI/WebKit/Objects/DOMPerformance.hs-boot b/GI/WebKit/Objects/DOMPerformance.hs-boot --- a/GI/WebKit/Objects/DOMPerformance.hs-boot +++ b/GI/WebKit/Objects/DOMPerformance.hs-boot @@ -1,8 +1,8 @@ module GI.WebKit.Objects.DOMPerformance where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map diff --git a/GI/WebKit/Objects/DOMPerformanceEntry.hs b/GI/WebKit/Objects/DOMPerformanceEntry.hs --- a/GI/WebKit/Objects/DOMPerformanceEntry.hs +++ b/GI/WebKit/Objects/DOMPerformanceEntry.hs @@ -42,21 +42,25 @@ -- * Properties -- ** Duration DOMPerformanceEntryDurationPropertyInfo , + dOMPerformanceEntryDuration , getDOMPerformanceEntryDuration , -- ** EntryType DOMPerformanceEntryEntryTypePropertyInfo, + dOMPerformanceEntryEntryType , getDOMPerformanceEntryEntryType , -- ** Name DOMPerformanceEntryNamePropertyInfo , + dOMPerformanceEntryName , getDOMPerformanceEntryName , -- ** StartTime DOMPerformanceEntryStartTimePropertyInfo, + dOMPerformanceEntryStartTime , getDOMPerformanceEntryStartTime , @@ -64,9 +68,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map @@ -136,6 +140,7 @@ -- VVV Prop "duration" -- Type: TBasicType TDouble -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) getDOMPerformanceEntryDuration :: (MonadIO m, DOMPerformanceEntryK o) => o -> m Double getDOMPerformanceEntryDuration obj = liftIO $ getObjectPropertyDouble obj "duration" @@ -150,46 +155,52 @@ attrGet _ = getDOMPerformanceEntryDuration attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "entry-type" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable] + -- Nullable: (Nothing,Nothing) -getDOMPerformanceEntryEntryType :: (MonadIO m, DOMPerformanceEntryK o) => o -> m T.Text +getDOMPerformanceEntryEntryType :: (MonadIO m, DOMPerformanceEntryK o) => o -> m (Maybe T.Text) getDOMPerformanceEntryEntryType obj = liftIO $ getObjectPropertyString obj "entry-type" data DOMPerformanceEntryEntryTypePropertyInfo instance AttrInfo DOMPerformanceEntryEntryTypePropertyInfo where - type AttrAllowedOps DOMPerformanceEntryEntryTypePropertyInfo = '[ 'AttrGet] + type AttrAllowedOps DOMPerformanceEntryEntryTypePropertyInfo = '[ 'AttrGet, 'AttrClear] type AttrSetTypeConstraint DOMPerformanceEntryEntryTypePropertyInfo = (~) () type AttrBaseTypeConstraint DOMPerformanceEntryEntryTypePropertyInfo = DOMPerformanceEntryK - type AttrGetType DOMPerformanceEntryEntryTypePropertyInfo = T.Text + type AttrGetType DOMPerformanceEntryEntryTypePropertyInfo = (Maybe T.Text) type AttrLabel DOMPerformanceEntryEntryTypePropertyInfo = "entry-type" attrGet _ = getDOMPerformanceEntryEntryType attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "name" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable] + -- Nullable: (Nothing,Nothing) -getDOMPerformanceEntryName :: (MonadIO m, DOMPerformanceEntryK o) => o -> m T.Text +getDOMPerformanceEntryName :: (MonadIO m, DOMPerformanceEntryK o) => o -> m (Maybe T.Text) getDOMPerformanceEntryName obj = liftIO $ getObjectPropertyString obj "name" data DOMPerformanceEntryNamePropertyInfo instance AttrInfo DOMPerformanceEntryNamePropertyInfo where - type AttrAllowedOps DOMPerformanceEntryNamePropertyInfo = '[ 'AttrGet] + type AttrAllowedOps DOMPerformanceEntryNamePropertyInfo = '[ 'AttrGet, 'AttrClear] type AttrSetTypeConstraint DOMPerformanceEntryNamePropertyInfo = (~) () type AttrBaseTypeConstraint DOMPerformanceEntryNamePropertyInfo = DOMPerformanceEntryK - type AttrGetType DOMPerformanceEntryNamePropertyInfo = T.Text + type AttrGetType DOMPerformanceEntryNamePropertyInfo = (Maybe T.Text) type AttrLabel DOMPerformanceEntryNamePropertyInfo = "name" attrGet _ = getDOMPerformanceEntryName attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "start-time" -- Type: TBasicType TDouble -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) getDOMPerformanceEntryStartTime :: (MonadIO m, DOMPerformanceEntryK o) => o -> m Double getDOMPerformanceEntryStartTime obj = liftIO $ getObjectPropertyDouble obj "start-time" @@ -204,10 +215,23 @@ attrGet _ = getDOMPerformanceEntryStartTime attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined type instance AttributeList DOMPerformanceEntry = DOMPerformanceEntryAttributeList type DOMPerformanceEntryAttributeList = ('[ '("coreObject", DOMObjectCoreObjectPropertyInfo), '("duration", DOMPerformanceEntryDurationPropertyInfo), '("entryType", DOMPerformanceEntryEntryTypePropertyInfo), '("name", DOMPerformanceEntryNamePropertyInfo), '("startTime", DOMPerformanceEntryStartTimePropertyInfo)] :: [(Symbol, *)]) +dOMPerformanceEntryDuration :: AttrLabelProxy "duration" +dOMPerformanceEntryDuration = AttrLabelProxy + +dOMPerformanceEntryEntryType :: AttrLabelProxy "entryType" +dOMPerformanceEntryEntryType = AttrLabelProxy + +dOMPerformanceEntryName :: AttrLabelProxy "name" +dOMPerformanceEntryName = AttrLabelProxy + +dOMPerformanceEntryStartTime :: AttrLabelProxy "startTime" +dOMPerformanceEntryStartTime = AttrLabelProxy + type instance SignalList DOMPerformanceEntry = DOMPerformanceEntrySignalList type DOMPerformanceEntrySignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) @@ -215,7 +239,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMPerformanceEntry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TDouble +-- returnType : Just (TBasicType TDouble) -- throws : False -- Skip return : False @@ -243,7 +267,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMPerformanceEntry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -273,7 +297,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMPerformanceEntry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -303,7 +327,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMPerformanceEntry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TDouble +-- returnType : Just (TBasicType TDouble) -- throws : False -- Skip return : False diff --git a/GI/WebKit/Objects/DOMPerformanceEntry.hs-boot b/GI/WebKit/Objects/DOMPerformanceEntry.hs-boot --- a/GI/WebKit/Objects/DOMPerformanceEntry.hs-boot +++ b/GI/WebKit/Objects/DOMPerformanceEntry.hs-boot @@ -1,8 +1,8 @@ module GI.WebKit.Objects.DOMPerformanceEntry where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map diff --git a/GI/WebKit/Objects/DOMPerformanceEntryList.hs b/GI/WebKit/Objects/DOMPerformanceEntryList.hs --- a/GI/WebKit/Objects/DOMPerformanceEntryList.hs +++ b/GI/WebKit/Objects/DOMPerformanceEntryList.hs @@ -32,6 +32,7 @@ -- * Properties -- ** Length DOMPerformanceEntryListLengthPropertyInfo, + dOMPerformanceEntryListLength , getDOMPerformanceEntryListLength , @@ -39,9 +40,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map @@ -107,26 +108,31 @@ #endif -- VVV Prop "length" - -- Type: TBasicType TUInt64 + -- Type: TBasicType TULong -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) -getDOMPerformanceEntryListLength :: (MonadIO m, DOMPerformanceEntryListK o) => o -> m Word64 -getDOMPerformanceEntryListLength obj = liftIO $ getObjectPropertyUInt64 obj "length" +getDOMPerformanceEntryListLength :: (MonadIO m, DOMPerformanceEntryListK o) => o -> m CULong +getDOMPerformanceEntryListLength obj = liftIO $ getObjectPropertyULong obj "length" data DOMPerformanceEntryListLengthPropertyInfo instance AttrInfo DOMPerformanceEntryListLengthPropertyInfo where type AttrAllowedOps DOMPerformanceEntryListLengthPropertyInfo = '[ 'AttrGet] type AttrSetTypeConstraint DOMPerformanceEntryListLengthPropertyInfo = (~) () type AttrBaseTypeConstraint DOMPerformanceEntryListLengthPropertyInfo = DOMPerformanceEntryListK - type AttrGetType DOMPerformanceEntryListLengthPropertyInfo = Word64 + type AttrGetType DOMPerformanceEntryListLengthPropertyInfo = CULong type AttrLabel DOMPerformanceEntryListLengthPropertyInfo = "length" attrGet _ = getDOMPerformanceEntryListLength attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined type instance AttributeList DOMPerformanceEntryList = DOMPerformanceEntryListAttributeList type DOMPerformanceEntryListAttributeList = ('[ '("coreObject", DOMObjectCoreObjectPropertyInfo), '("length", DOMPerformanceEntryListLengthPropertyInfo)] :: [(Symbol, *)]) +dOMPerformanceEntryListLength :: AttrLabelProxy "length" +dOMPerformanceEntryListLength = AttrLabelProxy + type instance SignalList DOMPerformanceEntryList = DOMPerformanceEntryListSignalList type DOMPerformanceEntryListSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) @@ -134,19 +140,19 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMPerformanceEntryList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUInt64 +-- returnType : Just (TBasicType TULong) -- throws : False -- Skip return : False foreign import ccall "webkit_dom_performance_entry_list_get_length" webkit_dom_performance_entry_list_get_length :: Ptr DOMPerformanceEntryList -> -- _obj : TInterface "WebKit" "DOMPerformanceEntryList" - IO Word64 + IO CULong dOMPerformanceEntryListGetLength :: (MonadIO m, DOMPerformanceEntryListK a) => a -- _obj - -> m Word64 -- result + -> m CULong -- result dOMPerformanceEntryListGetLength _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- webkit_dom_performance_entry_list_get_length _obj' @@ -154,27 +160,27 @@ return result data DOMPerformanceEntryListGetLengthMethodInfo -instance (signature ~ (m Word64), MonadIO m, DOMPerformanceEntryListK a) => MethodInfo DOMPerformanceEntryListGetLengthMethodInfo a signature where +instance (signature ~ (m CULong), MonadIO m, DOMPerformanceEntryListK a) => MethodInfo DOMPerformanceEntryListGetLengthMethodInfo a signature where overloadedMethod _ = dOMPerformanceEntryListGetLength -- method DOMPerformanceEntryList::item -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMPerformanceEntryList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "index", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMPerformanceEntryList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "index", argType = TBasicType TULong, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit" "DOMPerformanceEntry" +-- returnType : Just (TInterface "WebKit" "DOMPerformanceEntry") -- throws : False -- Skip return : False foreign import ccall "webkit_dom_performance_entry_list_item" webkit_dom_performance_entry_list_item :: Ptr DOMPerformanceEntryList -> -- _obj : TInterface "WebKit" "DOMPerformanceEntryList" - Word64 -> -- index : TBasicType TUInt64 + CULong -> -- index : TBasicType TULong IO (Ptr DOMPerformanceEntry) dOMPerformanceEntryListItem :: (MonadIO m, DOMPerformanceEntryListK a) => a -- _obj - -> Word64 -- index + -> CULong -- index -> m DOMPerformanceEntry -- result dOMPerformanceEntryListItem _obj index = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj @@ -185,7 +191,7 @@ return result' data DOMPerformanceEntryListItemMethodInfo -instance (signature ~ (Word64 -> m DOMPerformanceEntry), MonadIO m, DOMPerformanceEntryListK a) => MethodInfo DOMPerformanceEntryListItemMethodInfo a signature where +instance (signature ~ (CULong -> m DOMPerformanceEntry), MonadIO m, DOMPerformanceEntryListK a) => MethodInfo DOMPerformanceEntryListItemMethodInfo a signature where overloadedMethod _ = dOMPerformanceEntryListItem diff --git a/GI/WebKit/Objects/DOMPerformanceEntryList.hs-boot b/GI/WebKit/Objects/DOMPerformanceEntryList.hs-boot --- a/GI/WebKit/Objects/DOMPerformanceEntryList.hs-boot +++ b/GI/WebKit/Objects/DOMPerformanceEntryList.hs-boot @@ -1,8 +1,8 @@ module GI.WebKit.Objects.DOMPerformanceEntryList where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map diff --git a/GI/WebKit/Objects/DOMPerformanceNavigation.hs b/GI/WebKit/Objects/DOMPerformanceNavigation.hs --- a/GI/WebKit/Objects/DOMPerformanceNavigation.hs +++ b/GI/WebKit/Objects/DOMPerformanceNavigation.hs @@ -27,11 +27,13 @@ -- * Properties -- ** RedirectCount DOMPerformanceNavigationRedirectCountPropertyInfo, + dOMPerformanceNavigationRedirectCount , getDOMPerformanceNavigationRedirectCount, -- ** Type DOMPerformanceNavigationTypePropertyInfo, + dOMPerformanceNavigationType , getDOMPerformanceNavigationType , @@ -39,9 +41,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map @@ -106,11 +108,12 @@ #endif -- VVV Prop "redirect-count" - -- Type: TBasicType TUInt32 + -- Type: TBasicType TUInt -- Flags: [PropertyReadable] + -- Nullable: (Nothing,Nothing) getDOMPerformanceNavigationRedirectCount :: (MonadIO m, DOMPerformanceNavigationK o) => o -> m Word32 -getDOMPerformanceNavigationRedirectCount obj = liftIO $ getObjectPropertyCUInt obj "redirect-count" +getDOMPerformanceNavigationRedirectCount obj = liftIO $ getObjectPropertyUInt32 obj "redirect-count" data DOMPerformanceNavigationRedirectCountPropertyInfo instance AttrInfo DOMPerformanceNavigationRedirectCountPropertyInfo where @@ -122,13 +125,15 @@ attrGet _ = getDOMPerformanceNavigationRedirectCount attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "type" - -- Type: TBasicType TUInt32 + -- Type: TBasicType TUInt -- Flags: [PropertyReadable] + -- Nullable: (Nothing,Nothing) getDOMPerformanceNavigationType :: (MonadIO m, DOMPerformanceNavigationK o) => o -> m Word32 -getDOMPerformanceNavigationType obj = liftIO $ getObjectPropertyCUInt obj "type" +getDOMPerformanceNavigationType obj = liftIO $ getObjectPropertyUInt32 obj "type" data DOMPerformanceNavigationTypePropertyInfo instance AttrInfo DOMPerformanceNavigationTypePropertyInfo where @@ -140,10 +145,17 @@ attrGet _ = getDOMPerformanceNavigationType attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined type instance AttributeList DOMPerformanceNavigation = DOMPerformanceNavigationAttributeList type DOMPerformanceNavigationAttributeList = ('[ '("coreObject", DOMObjectCoreObjectPropertyInfo), '("redirectCount", DOMPerformanceNavigationRedirectCountPropertyInfo), '("type", DOMPerformanceNavigationTypePropertyInfo)] :: [(Symbol, *)]) +dOMPerformanceNavigationRedirectCount :: AttrLabelProxy "redirectCount" +dOMPerformanceNavigationRedirectCount = AttrLabelProxy + +dOMPerformanceNavigationType :: AttrLabelProxy "type" +dOMPerformanceNavigationType = AttrLabelProxy + type instance SignalList DOMPerformanceNavigation = DOMPerformanceNavigationSignalList type DOMPerformanceNavigationSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) @@ -151,7 +163,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMPerformanceNavigation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUInt16 +-- returnType : Just (TBasicType TUInt16) -- throws : False -- Skip return : False diff --git a/GI/WebKit/Objects/DOMPerformanceNavigation.hs-boot b/GI/WebKit/Objects/DOMPerformanceNavigation.hs-boot --- a/GI/WebKit/Objects/DOMPerformanceNavigation.hs-boot +++ b/GI/WebKit/Objects/DOMPerformanceNavigation.hs-boot @@ -1,8 +1,8 @@ module GI.WebKit.Objects.DOMPerformanceNavigation where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map diff --git a/GI/WebKit/Objects/DOMPerformanceTiming.hs b/GI/WebKit/Objects/DOMPerformanceTiming.hs --- a/GI/WebKit/Objects/DOMPerformanceTiming.hs +++ b/GI/WebKit/Objects/DOMPerformanceTiming.hs @@ -127,106 +127,127 @@ -- * Properties -- ** ConnectEnd DOMPerformanceTimingConnectEndPropertyInfo, + dOMPerformanceTimingConnectEnd , getDOMPerformanceTimingConnectEnd , -- ** ConnectStart DOMPerformanceTimingConnectStartPropertyInfo, + dOMPerformanceTimingConnectStart , getDOMPerformanceTimingConnectStart , -- ** DomComplete DOMPerformanceTimingDomCompletePropertyInfo, + dOMPerformanceTimingDomComplete , getDOMPerformanceTimingDomComplete , -- ** DomContentLoadedEventEnd DOMPerformanceTimingDomContentLoadedEventEndPropertyInfo, + dOMPerformanceTimingDomContentLoadedEventEnd, getDOMPerformanceTimingDomContentLoadedEventEnd, -- ** DomContentLoadedEventStart DOMPerformanceTimingDomContentLoadedEventStartPropertyInfo, + dOMPerformanceTimingDomContentLoadedEventStart, getDOMPerformanceTimingDomContentLoadedEventStart, -- ** DomInteractive DOMPerformanceTimingDomInteractivePropertyInfo, + dOMPerformanceTimingDomInteractive , getDOMPerformanceTimingDomInteractive , -- ** DomLoading DOMPerformanceTimingDomLoadingPropertyInfo, + dOMPerformanceTimingDomLoading , getDOMPerformanceTimingDomLoading , -- ** DomainLookupEnd DOMPerformanceTimingDomainLookupEndPropertyInfo, + dOMPerformanceTimingDomainLookupEnd , getDOMPerformanceTimingDomainLookupEnd , -- ** DomainLookupStart DOMPerformanceTimingDomainLookupStartPropertyInfo, + dOMPerformanceTimingDomainLookupStart , getDOMPerformanceTimingDomainLookupStart, -- ** FetchStart DOMPerformanceTimingFetchStartPropertyInfo, + dOMPerformanceTimingFetchStart , getDOMPerformanceTimingFetchStart , -- ** LoadEventEnd DOMPerformanceTimingLoadEventEndPropertyInfo, + dOMPerformanceTimingLoadEventEnd , getDOMPerformanceTimingLoadEventEnd , -- ** LoadEventStart DOMPerformanceTimingLoadEventStartPropertyInfo, + dOMPerformanceTimingLoadEventStart , getDOMPerformanceTimingLoadEventStart , -- ** NavigationStart DOMPerformanceTimingNavigationStartPropertyInfo, + dOMPerformanceTimingNavigationStart , getDOMPerformanceTimingNavigationStart , -- ** RedirectEnd DOMPerformanceTimingRedirectEndPropertyInfo, + dOMPerformanceTimingRedirectEnd , getDOMPerformanceTimingRedirectEnd , -- ** RedirectStart DOMPerformanceTimingRedirectStartPropertyInfo, + dOMPerformanceTimingRedirectStart , getDOMPerformanceTimingRedirectStart , -- ** RequestStart DOMPerformanceTimingRequestStartPropertyInfo, + dOMPerformanceTimingRequestStart , getDOMPerformanceTimingRequestStart , -- ** ResponseEnd DOMPerformanceTimingResponseEndPropertyInfo, + dOMPerformanceTimingResponseEnd , getDOMPerformanceTimingResponseEnd , -- ** ResponseStart DOMPerformanceTimingResponseStartPropertyInfo, + dOMPerformanceTimingResponseStart , getDOMPerformanceTimingResponseStart , -- ** SecureConnectionStart DOMPerformanceTimingSecureConnectionStartPropertyInfo, + dOMPerformanceTimingSecureConnectionStart, getDOMPerformanceTimingSecureConnectionStart, -- ** UnloadEventEnd DOMPerformanceTimingUnloadEventEndPropertyInfo, + dOMPerformanceTimingUnloadEventEnd , getDOMPerformanceTimingUnloadEventEnd , -- ** UnloadEventStart DOMPerformanceTimingUnloadEventStartPropertyInfo, + dOMPerformanceTimingUnloadEventStart , getDOMPerformanceTimingUnloadEventStart , @@ -234,9 +255,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map @@ -323,6 +344,7 @@ -- VVV Prop "connect-end" -- Type: TBasicType TUInt64 -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) getDOMPerformanceTimingConnectEnd :: (MonadIO m, DOMPerformanceTimingK o) => o -> m Word64 getDOMPerformanceTimingConnectEnd obj = liftIO $ getObjectPropertyUInt64 obj "connect-end" @@ -337,10 +359,12 @@ attrGet _ = getDOMPerformanceTimingConnectEnd attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "connect-start" -- Type: TBasicType TUInt64 -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) getDOMPerformanceTimingConnectStart :: (MonadIO m, DOMPerformanceTimingK o) => o -> m Word64 getDOMPerformanceTimingConnectStart obj = liftIO $ getObjectPropertyUInt64 obj "connect-start" @@ -355,10 +379,12 @@ attrGet _ = getDOMPerformanceTimingConnectStart attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "dom-complete" -- Type: TBasicType TUInt64 -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) getDOMPerformanceTimingDomComplete :: (MonadIO m, DOMPerformanceTimingK o) => o -> m Word64 getDOMPerformanceTimingDomComplete obj = liftIO $ getObjectPropertyUInt64 obj "dom-complete" @@ -373,10 +399,12 @@ attrGet _ = getDOMPerformanceTimingDomComplete attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "dom-content-loaded-event-end" -- Type: TBasicType TUInt64 -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) getDOMPerformanceTimingDomContentLoadedEventEnd :: (MonadIO m, DOMPerformanceTimingK o) => o -> m Word64 getDOMPerformanceTimingDomContentLoadedEventEnd obj = liftIO $ getObjectPropertyUInt64 obj "dom-content-loaded-event-end" @@ -391,10 +419,12 @@ attrGet _ = getDOMPerformanceTimingDomContentLoadedEventEnd attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "dom-content-loaded-event-start" -- Type: TBasicType TUInt64 -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) getDOMPerformanceTimingDomContentLoadedEventStart :: (MonadIO m, DOMPerformanceTimingK o) => o -> m Word64 getDOMPerformanceTimingDomContentLoadedEventStart obj = liftIO $ getObjectPropertyUInt64 obj "dom-content-loaded-event-start" @@ -409,10 +439,12 @@ attrGet _ = getDOMPerformanceTimingDomContentLoadedEventStart attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "dom-interactive" -- Type: TBasicType TUInt64 -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) getDOMPerformanceTimingDomInteractive :: (MonadIO m, DOMPerformanceTimingK o) => o -> m Word64 getDOMPerformanceTimingDomInteractive obj = liftIO $ getObjectPropertyUInt64 obj "dom-interactive" @@ -427,10 +459,12 @@ attrGet _ = getDOMPerformanceTimingDomInteractive attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "dom-loading" -- Type: TBasicType TUInt64 -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) getDOMPerformanceTimingDomLoading :: (MonadIO m, DOMPerformanceTimingK o) => o -> m Word64 getDOMPerformanceTimingDomLoading obj = liftIO $ getObjectPropertyUInt64 obj "dom-loading" @@ -445,10 +479,12 @@ attrGet _ = getDOMPerformanceTimingDomLoading attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "domain-lookup-end" -- Type: TBasicType TUInt64 -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) getDOMPerformanceTimingDomainLookupEnd :: (MonadIO m, DOMPerformanceTimingK o) => o -> m Word64 getDOMPerformanceTimingDomainLookupEnd obj = liftIO $ getObjectPropertyUInt64 obj "domain-lookup-end" @@ -463,10 +499,12 @@ attrGet _ = getDOMPerformanceTimingDomainLookupEnd attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "domain-lookup-start" -- Type: TBasicType TUInt64 -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) getDOMPerformanceTimingDomainLookupStart :: (MonadIO m, DOMPerformanceTimingK o) => o -> m Word64 getDOMPerformanceTimingDomainLookupStart obj = liftIO $ getObjectPropertyUInt64 obj "domain-lookup-start" @@ -481,10 +519,12 @@ attrGet _ = getDOMPerformanceTimingDomainLookupStart attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "fetch-start" -- Type: TBasicType TUInt64 -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) getDOMPerformanceTimingFetchStart :: (MonadIO m, DOMPerformanceTimingK o) => o -> m Word64 getDOMPerformanceTimingFetchStart obj = liftIO $ getObjectPropertyUInt64 obj "fetch-start" @@ -499,10 +539,12 @@ attrGet _ = getDOMPerformanceTimingFetchStart attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "load-event-end" -- Type: TBasicType TUInt64 -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) getDOMPerformanceTimingLoadEventEnd :: (MonadIO m, DOMPerformanceTimingK o) => o -> m Word64 getDOMPerformanceTimingLoadEventEnd obj = liftIO $ getObjectPropertyUInt64 obj "load-event-end" @@ -517,10 +559,12 @@ attrGet _ = getDOMPerformanceTimingLoadEventEnd attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "load-event-start" -- Type: TBasicType TUInt64 -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) getDOMPerformanceTimingLoadEventStart :: (MonadIO m, DOMPerformanceTimingK o) => o -> m Word64 getDOMPerformanceTimingLoadEventStart obj = liftIO $ getObjectPropertyUInt64 obj "load-event-start" @@ -535,10 +579,12 @@ attrGet _ = getDOMPerformanceTimingLoadEventStart attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "navigation-start" -- Type: TBasicType TUInt64 -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) getDOMPerformanceTimingNavigationStart :: (MonadIO m, DOMPerformanceTimingK o) => o -> m Word64 getDOMPerformanceTimingNavigationStart obj = liftIO $ getObjectPropertyUInt64 obj "navigation-start" @@ -553,10 +599,12 @@ attrGet _ = getDOMPerformanceTimingNavigationStart attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "redirect-end" -- Type: TBasicType TUInt64 -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) getDOMPerformanceTimingRedirectEnd :: (MonadIO m, DOMPerformanceTimingK o) => o -> m Word64 getDOMPerformanceTimingRedirectEnd obj = liftIO $ getObjectPropertyUInt64 obj "redirect-end" @@ -571,10 +619,12 @@ attrGet _ = getDOMPerformanceTimingRedirectEnd attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "redirect-start" -- Type: TBasicType TUInt64 -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) getDOMPerformanceTimingRedirectStart :: (MonadIO m, DOMPerformanceTimingK o) => o -> m Word64 getDOMPerformanceTimingRedirectStart obj = liftIO $ getObjectPropertyUInt64 obj "redirect-start" @@ -589,10 +639,12 @@ attrGet _ = getDOMPerformanceTimingRedirectStart attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "request-start" -- Type: TBasicType TUInt64 -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) getDOMPerformanceTimingRequestStart :: (MonadIO m, DOMPerformanceTimingK o) => o -> m Word64 getDOMPerformanceTimingRequestStart obj = liftIO $ getObjectPropertyUInt64 obj "request-start" @@ -607,10 +659,12 @@ attrGet _ = getDOMPerformanceTimingRequestStart attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "response-end" -- Type: TBasicType TUInt64 -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) getDOMPerformanceTimingResponseEnd :: (MonadIO m, DOMPerformanceTimingK o) => o -> m Word64 getDOMPerformanceTimingResponseEnd obj = liftIO $ getObjectPropertyUInt64 obj "response-end" @@ -625,10 +679,12 @@ attrGet _ = getDOMPerformanceTimingResponseEnd attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "response-start" -- Type: TBasicType TUInt64 -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) getDOMPerformanceTimingResponseStart :: (MonadIO m, DOMPerformanceTimingK o) => o -> m Word64 getDOMPerformanceTimingResponseStart obj = liftIO $ getObjectPropertyUInt64 obj "response-start" @@ -643,10 +699,12 @@ attrGet _ = getDOMPerformanceTimingResponseStart attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "secure-connection-start" -- Type: TBasicType TUInt64 -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) getDOMPerformanceTimingSecureConnectionStart :: (MonadIO m, DOMPerformanceTimingK o) => o -> m Word64 getDOMPerformanceTimingSecureConnectionStart obj = liftIO $ getObjectPropertyUInt64 obj "secure-connection-start" @@ -661,10 +719,12 @@ attrGet _ = getDOMPerformanceTimingSecureConnectionStart attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "unload-event-end" -- Type: TBasicType TUInt64 -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) getDOMPerformanceTimingUnloadEventEnd :: (MonadIO m, DOMPerformanceTimingK o) => o -> m Word64 getDOMPerformanceTimingUnloadEventEnd obj = liftIO $ getObjectPropertyUInt64 obj "unload-event-end" @@ -679,10 +739,12 @@ attrGet _ = getDOMPerformanceTimingUnloadEventEnd attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "unload-event-start" -- Type: TBasicType TUInt64 -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) getDOMPerformanceTimingUnloadEventStart :: (MonadIO m, DOMPerformanceTimingK o) => o -> m Word64 getDOMPerformanceTimingUnloadEventStart obj = liftIO $ getObjectPropertyUInt64 obj "unload-event-start" @@ -697,10 +759,74 @@ attrGet _ = getDOMPerformanceTimingUnloadEventStart attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined type instance AttributeList DOMPerformanceTiming = DOMPerformanceTimingAttributeList type DOMPerformanceTimingAttributeList = ('[ '("connectEnd", DOMPerformanceTimingConnectEndPropertyInfo), '("connectStart", DOMPerformanceTimingConnectStartPropertyInfo), '("coreObject", DOMObjectCoreObjectPropertyInfo), '("domComplete", DOMPerformanceTimingDomCompletePropertyInfo), '("domContentLoadedEventEnd", DOMPerformanceTimingDomContentLoadedEventEndPropertyInfo), '("domContentLoadedEventStart", DOMPerformanceTimingDomContentLoadedEventStartPropertyInfo), '("domInteractive", DOMPerformanceTimingDomInteractivePropertyInfo), '("domLoading", DOMPerformanceTimingDomLoadingPropertyInfo), '("domainLookupEnd", DOMPerformanceTimingDomainLookupEndPropertyInfo), '("domainLookupStart", DOMPerformanceTimingDomainLookupStartPropertyInfo), '("fetchStart", DOMPerformanceTimingFetchStartPropertyInfo), '("loadEventEnd", DOMPerformanceTimingLoadEventEndPropertyInfo), '("loadEventStart", DOMPerformanceTimingLoadEventStartPropertyInfo), '("navigationStart", DOMPerformanceTimingNavigationStartPropertyInfo), '("redirectEnd", DOMPerformanceTimingRedirectEndPropertyInfo), '("redirectStart", DOMPerformanceTimingRedirectStartPropertyInfo), '("requestStart", DOMPerformanceTimingRequestStartPropertyInfo), '("responseEnd", DOMPerformanceTimingResponseEndPropertyInfo), '("responseStart", DOMPerformanceTimingResponseStartPropertyInfo), '("secureConnectionStart", DOMPerformanceTimingSecureConnectionStartPropertyInfo), '("unloadEventEnd", DOMPerformanceTimingUnloadEventEndPropertyInfo), '("unloadEventStart", DOMPerformanceTimingUnloadEventStartPropertyInfo)] :: [(Symbol, *)]) +dOMPerformanceTimingConnectEnd :: AttrLabelProxy "connectEnd" +dOMPerformanceTimingConnectEnd = AttrLabelProxy + +dOMPerformanceTimingConnectStart :: AttrLabelProxy "connectStart" +dOMPerformanceTimingConnectStart = AttrLabelProxy + +dOMPerformanceTimingDomComplete :: AttrLabelProxy "domComplete" +dOMPerformanceTimingDomComplete = AttrLabelProxy + +dOMPerformanceTimingDomContentLoadedEventEnd :: AttrLabelProxy "domContentLoadedEventEnd" +dOMPerformanceTimingDomContentLoadedEventEnd = AttrLabelProxy + +dOMPerformanceTimingDomContentLoadedEventStart :: AttrLabelProxy "domContentLoadedEventStart" +dOMPerformanceTimingDomContentLoadedEventStart = AttrLabelProxy + +dOMPerformanceTimingDomInteractive :: AttrLabelProxy "domInteractive" +dOMPerformanceTimingDomInteractive = AttrLabelProxy + +dOMPerformanceTimingDomLoading :: AttrLabelProxy "domLoading" +dOMPerformanceTimingDomLoading = AttrLabelProxy + +dOMPerformanceTimingDomainLookupEnd :: AttrLabelProxy "domainLookupEnd" +dOMPerformanceTimingDomainLookupEnd = AttrLabelProxy + +dOMPerformanceTimingDomainLookupStart :: AttrLabelProxy "domainLookupStart" +dOMPerformanceTimingDomainLookupStart = AttrLabelProxy + +dOMPerformanceTimingFetchStart :: AttrLabelProxy "fetchStart" +dOMPerformanceTimingFetchStart = AttrLabelProxy + +dOMPerformanceTimingLoadEventEnd :: AttrLabelProxy "loadEventEnd" +dOMPerformanceTimingLoadEventEnd = AttrLabelProxy + +dOMPerformanceTimingLoadEventStart :: AttrLabelProxy "loadEventStart" +dOMPerformanceTimingLoadEventStart = AttrLabelProxy + +dOMPerformanceTimingNavigationStart :: AttrLabelProxy "navigationStart" +dOMPerformanceTimingNavigationStart = AttrLabelProxy + +dOMPerformanceTimingRedirectEnd :: AttrLabelProxy "redirectEnd" +dOMPerformanceTimingRedirectEnd = AttrLabelProxy + +dOMPerformanceTimingRedirectStart :: AttrLabelProxy "redirectStart" +dOMPerformanceTimingRedirectStart = AttrLabelProxy + +dOMPerformanceTimingRequestStart :: AttrLabelProxy "requestStart" +dOMPerformanceTimingRequestStart = AttrLabelProxy + +dOMPerformanceTimingResponseEnd :: AttrLabelProxy "responseEnd" +dOMPerformanceTimingResponseEnd = AttrLabelProxy + +dOMPerformanceTimingResponseStart :: AttrLabelProxy "responseStart" +dOMPerformanceTimingResponseStart = AttrLabelProxy + +dOMPerformanceTimingSecureConnectionStart :: AttrLabelProxy "secureConnectionStart" +dOMPerformanceTimingSecureConnectionStart = AttrLabelProxy + +dOMPerformanceTimingUnloadEventEnd :: AttrLabelProxy "unloadEventEnd" +dOMPerformanceTimingUnloadEventEnd = AttrLabelProxy + +dOMPerformanceTimingUnloadEventStart :: AttrLabelProxy "unloadEventStart" +dOMPerformanceTimingUnloadEventStart = AttrLabelProxy + type instance SignalList DOMPerformanceTiming = DOMPerformanceTimingSignalList type DOMPerformanceTimingSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) @@ -708,7 +834,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMPerformanceTiming", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUInt64 +-- returnType : Just (TBasicType TUInt64) -- throws : False -- Skip return : False @@ -735,7 +861,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMPerformanceTiming", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUInt64 +-- returnType : Just (TBasicType TUInt64) -- throws : False -- Skip return : False @@ -762,7 +888,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMPerformanceTiming", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUInt64 +-- returnType : Just (TBasicType TUInt64) -- throws : False -- Skip return : False @@ -789,7 +915,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMPerformanceTiming", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUInt64 +-- returnType : Just (TBasicType TUInt64) -- throws : False -- Skip return : False @@ -816,7 +942,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMPerformanceTiming", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUInt64 +-- returnType : Just (TBasicType TUInt64) -- throws : False -- Skip return : False @@ -843,7 +969,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMPerformanceTiming", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUInt64 +-- returnType : Just (TBasicType TUInt64) -- throws : False -- Skip return : False @@ -870,7 +996,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMPerformanceTiming", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUInt64 +-- returnType : Just (TBasicType TUInt64) -- throws : False -- Skip return : False @@ -897,7 +1023,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMPerformanceTiming", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUInt64 +-- returnType : Just (TBasicType TUInt64) -- throws : False -- Skip return : False @@ -924,7 +1050,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMPerformanceTiming", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUInt64 +-- returnType : Just (TBasicType TUInt64) -- throws : False -- Skip return : False @@ -951,7 +1077,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMPerformanceTiming", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUInt64 +-- returnType : Just (TBasicType TUInt64) -- throws : False -- Skip return : False @@ -978,7 +1104,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMPerformanceTiming", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUInt64 +-- returnType : Just (TBasicType TUInt64) -- throws : False -- Skip return : False @@ -1005,7 +1131,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMPerformanceTiming", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUInt64 +-- returnType : Just (TBasicType TUInt64) -- throws : False -- Skip return : False @@ -1032,7 +1158,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMPerformanceTiming", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUInt64 +-- returnType : Just (TBasicType TUInt64) -- throws : False -- Skip return : False @@ -1059,7 +1185,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMPerformanceTiming", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUInt64 +-- returnType : Just (TBasicType TUInt64) -- throws : False -- Skip return : False @@ -1086,7 +1212,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMPerformanceTiming", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUInt64 +-- returnType : Just (TBasicType TUInt64) -- throws : False -- Skip return : False @@ -1113,7 +1239,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMPerformanceTiming", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUInt64 +-- returnType : Just (TBasicType TUInt64) -- throws : False -- Skip return : False @@ -1140,7 +1266,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMPerformanceTiming", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUInt64 +-- returnType : Just (TBasicType TUInt64) -- throws : False -- Skip return : False @@ -1167,7 +1293,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMPerformanceTiming", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUInt64 +-- returnType : Just (TBasicType TUInt64) -- throws : False -- Skip return : False @@ -1194,7 +1320,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMPerformanceTiming", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUInt64 +-- returnType : Just (TBasicType TUInt64) -- throws : False -- Skip return : False @@ -1221,7 +1347,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMPerformanceTiming", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUInt64 +-- returnType : Just (TBasicType TUInt64) -- throws : False -- Skip return : False @@ -1248,7 +1374,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMPerformanceTiming", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUInt64 +-- returnType : Just (TBasicType TUInt64) -- throws : False -- Skip return : False diff --git a/GI/WebKit/Objects/DOMPerformanceTiming.hs-boot b/GI/WebKit/Objects/DOMPerformanceTiming.hs-boot --- a/GI/WebKit/Objects/DOMPerformanceTiming.hs-boot +++ b/GI/WebKit/Objects/DOMPerformanceTiming.hs-boot @@ -1,8 +1,8 @@ module GI.WebKit.Objects.DOMPerformanceTiming where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map diff --git a/GI/WebKit/Objects/DOMProcessingInstruction.hs b/GI/WebKit/Objects/DOMProcessingInstruction.hs --- a/GI/WebKit/Objects/DOMProcessingInstruction.hs +++ b/GI/WebKit/Objects/DOMProcessingInstruction.hs @@ -42,11 +42,13 @@ -- * Properties -- ** Sheet DOMProcessingInstructionSheetPropertyInfo, + dOMProcessingInstructionSheet , getDOMProcessingInstructionSheet , -- ** Target DOMProcessingInstructionTargetPropertyInfo, + dOMProcessingInstructionTarget , getDOMProcessingInstructionTarget , @@ -54,9 +56,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map @@ -165,42 +167,52 @@ -- VVV Prop "sheet" -- Type: TInterface "WebKit" "DOMStyleSheet" -- Flags: [PropertyReadable] + -- Nullable: (Nothing,Nothing) -getDOMProcessingInstructionSheet :: (MonadIO m, DOMProcessingInstructionK o) => o -> m DOMStyleSheet +getDOMProcessingInstructionSheet :: (MonadIO m, DOMProcessingInstructionK o) => o -> m (Maybe DOMStyleSheet) getDOMProcessingInstructionSheet obj = liftIO $ getObjectPropertyObject obj "sheet" DOMStyleSheet data DOMProcessingInstructionSheetPropertyInfo instance AttrInfo DOMProcessingInstructionSheetPropertyInfo where - type AttrAllowedOps DOMProcessingInstructionSheetPropertyInfo = '[ 'AttrGet] + type AttrAllowedOps DOMProcessingInstructionSheetPropertyInfo = '[ 'AttrGet, 'AttrClear] type AttrSetTypeConstraint DOMProcessingInstructionSheetPropertyInfo = (~) () type AttrBaseTypeConstraint DOMProcessingInstructionSheetPropertyInfo = DOMProcessingInstructionK - type AttrGetType DOMProcessingInstructionSheetPropertyInfo = DOMStyleSheet + type AttrGetType DOMProcessingInstructionSheetPropertyInfo = (Maybe DOMStyleSheet) type AttrLabel DOMProcessingInstructionSheetPropertyInfo = "sheet" attrGet _ = getDOMProcessingInstructionSheet attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "target" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable] + -- Nullable: (Nothing,Nothing) -getDOMProcessingInstructionTarget :: (MonadIO m, DOMProcessingInstructionK o) => o -> m T.Text +getDOMProcessingInstructionTarget :: (MonadIO m, DOMProcessingInstructionK o) => o -> m (Maybe T.Text) getDOMProcessingInstructionTarget obj = liftIO $ getObjectPropertyString obj "target" data DOMProcessingInstructionTargetPropertyInfo instance AttrInfo DOMProcessingInstructionTargetPropertyInfo where - type AttrAllowedOps DOMProcessingInstructionTargetPropertyInfo = '[ 'AttrGet] + type AttrAllowedOps DOMProcessingInstructionTargetPropertyInfo = '[ 'AttrGet, 'AttrClear] type AttrSetTypeConstraint DOMProcessingInstructionTargetPropertyInfo = (~) () type AttrBaseTypeConstraint DOMProcessingInstructionTargetPropertyInfo = DOMProcessingInstructionK - type AttrGetType DOMProcessingInstructionTargetPropertyInfo = T.Text + type AttrGetType DOMProcessingInstructionTargetPropertyInfo = (Maybe T.Text) type AttrLabel DOMProcessingInstructionTargetPropertyInfo = "target" attrGet _ = getDOMProcessingInstructionTarget attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined type instance AttributeList DOMProcessingInstruction = DOMProcessingInstructionAttributeList type DOMProcessingInstructionAttributeList = ('[ '("baseUri", DOMNodeBaseUriPropertyInfo), '("childNodes", DOMNodeChildNodesPropertyInfo), '("coreObject", DOMObjectCoreObjectPropertyInfo), '("data", DOMCharacterDataDataPropertyInfo), '("firstChild", DOMNodeFirstChildPropertyInfo), '("lastChild", DOMNodeLastChildPropertyInfo), '("length", DOMCharacterDataLengthPropertyInfo), '("localName", DOMNodeLocalNamePropertyInfo), '("namespaceUri", DOMNodeNamespaceUriPropertyInfo), '("nextSibling", DOMNodeNextSiblingPropertyInfo), '("nodeName", DOMNodeNodeNamePropertyInfo), '("nodeType", DOMNodeNodeTypePropertyInfo), '("nodeValue", DOMNodeNodeValuePropertyInfo), '("ownerDocument", DOMNodeOwnerDocumentPropertyInfo), '("parentElement", DOMNodeParentElementPropertyInfo), '("parentNode", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previousSibling", DOMNodePreviousSiblingPropertyInfo), '("sheet", DOMProcessingInstructionSheetPropertyInfo), '("target", DOMProcessingInstructionTargetPropertyInfo), '("textContent", DOMNodeTextContentPropertyInfo)] :: [(Symbol, *)]) +dOMProcessingInstructionSheet :: AttrLabelProxy "sheet" +dOMProcessingInstructionSheet = AttrLabelProxy + +dOMProcessingInstructionTarget :: AttrLabelProxy "target" +dOMProcessingInstructionTarget = AttrLabelProxy + type instance SignalList DOMProcessingInstruction = DOMProcessingInstructionSignalList type DOMProcessingInstructionSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) @@ -208,7 +220,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMProcessingInstruction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -238,7 +250,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMProcessingInstruction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit" "DOMStyleSheet" +-- returnType : Just (TInterface "WebKit" "DOMStyleSheet") -- throws : False -- Skip return : False @@ -267,7 +279,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMProcessingInstruction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -297,7 +309,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMProcessingInstruction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : True -- Skip return : False diff --git a/GI/WebKit/Objects/DOMProcessingInstruction.hs-boot b/GI/WebKit/Objects/DOMProcessingInstruction.hs-boot --- a/GI/WebKit/Objects/DOMProcessingInstruction.hs-boot +++ b/GI/WebKit/Objects/DOMProcessingInstruction.hs-boot @@ -1,8 +1,8 @@ module GI.WebKit.Objects.DOMProcessingInstruction where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map diff --git a/GI/WebKit/Objects/DOMPropertyNodeList.hs b/GI/WebKit/Objects/DOMPropertyNodeList.hs --- a/GI/WebKit/Objects/DOMPropertyNodeList.hs +++ b/GI/WebKit/Objects/DOMPropertyNodeList.hs @@ -30,6 +30,7 @@ -- * Properties -- ** Length DOMPropertyNodeListLengthPropertyInfo , + dOMPropertyNodeListLength , getDOMPropertyNodeListLength , @@ -37,9 +38,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map @@ -103,68 +104,73 @@ #endif -- VVV Prop "length" - -- Type: TBasicType TUInt64 + -- Type: TBasicType TULong -- Flags: [PropertyReadable] + -- Nullable: (Nothing,Nothing) -getDOMPropertyNodeListLength :: (MonadIO m, DOMPropertyNodeListK o) => o -> m Word64 -getDOMPropertyNodeListLength obj = liftIO $ getObjectPropertyUInt64 obj "length" +getDOMPropertyNodeListLength :: (MonadIO m, DOMPropertyNodeListK o) => o -> m CULong +getDOMPropertyNodeListLength obj = liftIO $ getObjectPropertyULong obj "length" data DOMPropertyNodeListLengthPropertyInfo instance AttrInfo DOMPropertyNodeListLengthPropertyInfo where type AttrAllowedOps DOMPropertyNodeListLengthPropertyInfo = '[ 'AttrGet] type AttrSetTypeConstraint DOMPropertyNodeListLengthPropertyInfo = (~) () type AttrBaseTypeConstraint DOMPropertyNodeListLengthPropertyInfo = DOMPropertyNodeListK - type AttrGetType DOMPropertyNodeListLengthPropertyInfo = Word64 + type AttrGetType DOMPropertyNodeListLengthPropertyInfo = CULong type AttrLabel DOMPropertyNodeListLengthPropertyInfo = "length" attrGet _ = getDOMPropertyNodeListLength attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined type instance AttributeList DOMPropertyNodeList = DOMPropertyNodeListAttributeList type DOMPropertyNodeListAttributeList = ('[ '("coreObject", DOMObjectCoreObjectPropertyInfo), '("length", DOMPropertyNodeListLengthPropertyInfo)] :: [(Symbol, *)]) +dOMPropertyNodeListLength :: AttrLabelProxy "length" +dOMPropertyNodeListLength = AttrLabelProxy + type instance SignalList DOMPropertyNodeList = DOMPropertyNodeListSignalList type DOMPropertyNodeListSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) -- method DOMPropertyNodeList::get_length -- method type : MemberFunction --- Args : [Arg {argCName = "self", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "self", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUInt64 +-- returnType : Just (TBasicType TULong) -- throws : False -- Skip return : False foreign import ccall "webkit_dom_property_node_list_get_length" webkit_dom_property_node_list_get_length :: - Ptr () -> -- self : TBasicType TVoid - IO Word64 + Ptr () -> -- self : TBasicType TPtr + IO CULong {-# DEPRECATED dOMPropertyNodeListGetLength ["(Since version 2.2)"]#-} dOMPropertyNodeListGetLength :: (MonadIO m) => Ptr () -- self - -> m Word64 -- result + -> m CULong -- result dOMPropertyNodeListGetLength self = liftIO $ do result <- webkit_dom_property_node_list_get_length self return result -- method DOMPropertyNodeList::item -- method type : MemberFunction --- Args : [Arg {argCName = "self", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "index", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "self", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "index", argType = TBasicType TULong, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit" "DOMNode" +-- returnType : Just (TInterface "WebKit" "DOMNode") -- throws : False -- Skip return : False foreign import ccall "webkit_dom_property_node_list_item" webkit_dom_property_node_list_item :: - Ptr () -> -- self : TBasicType TVoid - Word64 -> -- index : TBasicType TUInt64 + Ptr () -> -- self : TBasicType TPtr + CULong -> -- index : TBasicType TULong IO (Ptr DOMNode) {-# DEPRECATED dOMPropertyNodeListItem ["(Since version 2.2)"]#-} dOMPropertyNodeListItem :: (MonadIO m) => Ptr () -- self - -> Word64 -- index + -> CULong -- index -> m DOMNode -- result dOMPropertyNodeListItem self index = liftIO $ do result <- webkit_dom_property_node_list_item self index diff --git a/GI/WebKit/Objects/DOMPropertyNodeList.hs-boot b/GI/WebKit/Objects/DOMPropertyNodeList.hs-boot --- a/GI/WebKit/Objects/DOMPropertyNodeList.hs-boot +++ b/GI/WebKit/Objects/DOMPropertyNodeList.hs-boot @@ -1,8 +1,8 @@ module GI.WebKit.Objects.DOMPropertyNodeList where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map diff --git a/GI/WebKit/Objects/DOMRange.hs b/GI/WebKit/Objects/DOMRange.hs --- a/GI/WebKit/Objects/DOMRange.hs +++ b/GI/WebKit/Objects/DOMRange.hs @@ -177,36 +177,43 @@ -- * Properties -- ** Collapsed DOMRangeCollapsedPropertyInfo , + dOMRangeCollapsed , getDOMRangeCollapsed , -- ** CommonAncestorContainer DOMRangeCommonAncestorContainerPropertyInfo, + dOMRangeCommonAncestorContainer , getDOMRangeCommonAncestorContainer , -- ** EndContainer DOMRangeEndContainerPropertyInfo , + dOMRangeEndContainer , getDOMRangeEndContainer , -- ** EndOffset DOMRangeEndOffsetPropertyInfo , + dOMRangeEndOffset , getDOMRangeEndOffset , -- ** StartContainer DOMRangeStartContainerPropertyInfo , + dOMRangeStartContainer , getDOMRangeStartContainer , -- ** StartOffset DOMRangeStartOffsetPropertyInfo , + dOMRangeStartOffset , getDOMRangeStartOffset , -- ** Text DOMRangeTextPropertyInfo , + dOMRangeText , getDOMRangeText , @@ -214,9 +221,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map @@ -313,6 +320,7 @@ -- VVV Prop "collapsed" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable] + -- Nullable: (Nothing,Nothing) getDOMRangeCollapsed :: (MonadIO m, DOMRangeK o) => o -> m Bool getDOMRangeCollapsed obj = liftIO $ getObjectPropertyBool obj "collapsed" @@ -327,118 +335,152 @@ attrGet _ = getDOMRangeCollapsed attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "common-ancestor-container" -- Type: TInterface "WebKit" "DOMNode" -- Flags: [PropertyReadable] + -- Nullable: (Nothing,Nothing) -getDOMRangeCommonAncestorContainer :: (MonadIO m, DOMRangeK o) => o -> m DOMNode +getDOMRangeCommonAncestorContainer :: (MonadIO m, DOMRangeK o) => o -> m (Maybe DOMNode) getDOMRangeCommonAncestorContainer obj = liftIO $ getObjectPropertyObject obj "common-ancestor-container" DOMNode data DOMRangeCommonAncestorContainerPropertyInfo instance AttrInfo DOMRangeCommonAncestorContainerPropertyInfo where - type AttrAllowedOps DOMRangeCommonAncestorContainerPropertyInfo = '[ 'AttrGet] + type AttrAllowedOps DOMRangeCommonAncestorContainerPropertyInfo = '[ 'AttrGet, 'AttrClear] type AttrSetTypeConstraint DOMRangeCommonAncestorContainerPropertyInfo = (~) () type AttrBaseTypeConstraint DOMRangeCommonAncestorContainerPropertyInfo = DOMRangeK - type AttrGetType DOMRangeCommonAncestorContainerPropertyInfo = DOMNode + type AttrGetType DOMRangeCommonAncestorContainerPropertyInfo = (Maybe DOMNode) type AttrLabel DOMRangeCommonAncestorContainerPropertyInfo = "common-ancestor-container" attrGet _ = getDOMRangeCommonAncestorContainer attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "end-container" -- Type: TInterface "WebKit" "DOMNode" -- Flags: [PropertyReadable] + -- Nullable: (Nothing,Nothing) -getDOMRangeEndContainer :: (MonadIO m, DOMRangeK o) => o -> m DOMNode +getDOMRangeEndContainer :: (MonadIO m, DOMRangeK o) => o -> m (Maybe DOMNode) getDOMRangeEndContainer obj = liftIO $ getObjectPropertyObject obj "end-container" DOMNode data DOMRangeEndContainerPropertyInfo instance AttrInfo DOMRangeEndContainerPropertyInfo where - type AttrAllowedOps DOMRangeEndContainerPropertyInfo = '[ 'AttrGet] + type AttrAllowedOps DOMRangeEndContainerPropertyInfo = '[ 'AttrGet, 'AttrClear] type AttrSetTypeConstraint DOMRangeEndContainerPropertyInfo = (~) () type AttrBaseTypeConstraint DOMRangeEndContainerPropertyInfo = DOMRangeK - type AttrGetType DOMRangeEndContainerPropertyInfo = DOMNode + type AttrGetType DOMRangeEndContainerPropertyInfo = (Maybe DOMNode) type AttrLabel DOMRangeEndContainerPropertyInfo = "end-container" attrGet _ = getDOMRangeEndContainer attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "end-offset" - -- Type: TBasicType TInt64 + -- Type: TBasicType TLong -- Flags: [PropertyReadable] + -- Nullable: (Nothing,Nothing) -getDOMRangeEndOffset :: (MonadIO m, DOMRangeK o) => o -> m Int64 -getDOMRangeEndOffset obj = liftIO $ getObjectPropertyInt64 obj "end-offset" +getDOMRangeEndOffset :: (MonadIO m, DOMRangeK o) => o -> m CLong +getDOMRangeEndOffset obj = liftIO $ getObjectPropertyLong obj "end-offset" data DOMRangeEndOffsetPropertyInfo instance AttrInfo DOMRangeEndOffsetPropertyInfo where type AttrAllowedOps DOMRangeEndOffsetPropertyInfo = '[ 'AttrGet] type AttrSetTypeConstraint DOMRangeEndOffsetPropertyInfo = (~) () type AttrBaseTypeConstraint DOMRangeEndOffsetPropertyInfo = DOMRangeK - type AttrGetType DOMRangeEndOffsetPropertyInfo = Int64 + type AttrGetType DOMRangeEndOffsetPropertyInfo = CLong type AttrLabel DOMRangeEndOffsetPropertyInfo = "end-offset" attrGet _ = getDOMRangeEndOffset attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "start-container" -- Type: TInterface "WebKit" "DOMNode" -- Flags: [PropertyReadable] + -- Nullable: (Nothing,Nothing) -getDOMRangeStartContainer :: (MonadIO m, DOMRangeK o) => o -> m DOMNode +getDOMRangeStartContainer :: (MonadIO m, DOMRangeK o) => o -> m (Maybe DOMNode) getDOMRangeStartContainer obj = liftIO $ getObjectPropertyObject obj "start-container" DOMNode data DOMRangeStartContainerPropertyInfo instance AttrInfo DOMRangeStartContainerPropertyInfo where - type AttrAllowedOps DOMRangeStartContainerPropertyInfo = '[ 'AttrGet] + type AttrAllowedOps DOMRangeStartContainerPropertyInfo = '[ 'AttrGet, 'AttrClear] type AttrSetTypeConstraint DOMRangeStartContainerPropertyInfo = (~) () type AttrBaseTypeConstraint DOMRangeStartContainerPropertyInfo = DOMRangeK - type AttrGetType DOMRangeStartContainerPropertyInfo = DOMNode + type AttrGetType DOMRangeStartContainerPropertyInfo = (Maybe DOMNode) type AttrLabel DOMRangeStartContainerPropertyInfo = "start-container" attrGet _ = getDOMRangeStartContainer attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "start-offset" - -- Type: TBasicType TInt64 + -- Type: TBasicType TLong -- Flags: [PropertyReadable] + -- Nullable: (Nothing,Nothing) -getDOMRangeStartOffset :: (MonadIO m, DOMRangeK o) => o -> m Int64 -getDOMRangeStartOffset obj = liftIO $ getObjectPropertyInt64 obj "start-offset" +getDOMRangeStartOffset :: (MonadIO m, DOMRangeK o) => o -> m CLong +getDOMRangeStartOffset obj = liftIO $ getObjectPropertyLong obj "start-offset" data DOMRangeStartOffsetPropertyInfo instance AttrInfo DOMRangeStartOffsetPropertyInfo where type AttrAllowedOps DOMRangeStartOffsetPropertyInfo = '[ 'AttrGet] type AttrSetTypeConstraint DOMRangeStartOffsetPropertyInfo = (~) () type AttrBaseTypeConstraint DOMRangeStartOffsetPropertyInfo = DOMRangeK - type AttrGetType DOMRangeStartOffsetPropertyInfo = Int64 + type AttrGetType DOMRangeStartOffsetPropertyInfo = CLong type AttrLabel DOMRangeStartOffsetPropertyInfo = "start-offset" attrGet _ = getDOMRangeStartOffset attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "text" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable] + -- Nullable: (Nothing,Nothing) -getDOMRangeText :: (MonadIO m, DOMRangeK o) => o -> m T.Text +getDOMRangeText :: (MonadIO m, DOMRangeK o) => o -> m (Maybe T.Text) getDOMRangeText obj = liftIO $ getObjectPropertyString obj "text" data DOMRangeTextPropertyInfo instance AttrInfo DOMRangeTextPropertyInfo where - type AttrAllowedOps DOMRangeTextPropertyInfo = '[ 'AttrGet] + type AttrAllowedOps DOMRangeTextPropertyInfo = '[ 'AttrGet, 'AttrClear] type AttrSetTypeConstraint DOMRangeTextPropertyInfo = (~) () type AttrBaseTypeConstraint DOMRangeTextPropertyInfo = DOMRangeK - type AttrGetType DOMRangeTextPropertyInfo = T.Text + type AttrGetType DOMRangeTextPropertyInfo = (Maybe T.Text) type AttrLabel DOMRangeTextPropertyInfo = "text" attrGet _ = getDOMRangeText attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined type instance AttributeList DOMRange = DOMRangeAttributeList type DOMRangeAttributeList = ('[ '("collapsed", DOMRangeCollapsedPropertyInfo), '("commonAncestorContainer", DOMRangeCommonAncestorContainerPropertyInfo), '("coreObject", DOMObjectCoreObjectPropertyInfo), '("endContainer", DOMRangeEndContainerPropertyInfo), '("endOffset", DOMRangeEndOffsetPropertyInfo), '("startContainer", DOMRangeStartContainerPropertyInfo), '("startOffset", DOMRangeStartOffsetPropertyInfo), '("text", DOMRangeTextPropertyInfo)] :: [(Symbol, *)]) +dOMRangeCollapsed :: AttrLabelProxy "collapsed" +dOMRangeCollapsed = AttrLabelProxy + +dOMRangeCommonAncestorContainer :: AttrLabelProxy "commonAncestorContainer" +dOMRangeCommonAncestorContainer = AttrLabelProxy + +dOMRangeEndContainer :: AttrLabelProxy "endContainer" +dOMRangeEndContainer = AttrLabelProxy + +dOMRangeEndOffset :: AttrLabelProxy "endOffset" +dOMRangeEndOffset = AttrLabelProxy + +dOMRangeStartContainer :: AttrLabelProxy "startContainer" +dOMRangeStartContainer = AttrLabelProxy + +dOMRangeStartOffset :: AttrLabelProxy "startOffset" +dOMRangeStartOffset = AttrLabelProxy + +dOMRangeText :: AttrLabelProxy "text" +dOMRangeText = AttrLabelProxy + type instance SignalList DOMRange = DOMRangeSignalList type DOMRangeSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) @@ -446,7 +488,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMRange", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit" "DOMDocumentFragment" +-- returnType : Just (TInterface "WebKit" "DOMDocumentFragment") -- throws : True -- Skip return : False @@ -480,7 +522,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMRange", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit" "DOMRange" +-- returnType : Just (TInterface "WebKit" "DOMRange") -- throws : True -- Skip return : False @@ -514,7 +556,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMRange", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "toStart", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : True -- Skip return : False @@ -549,7 +591,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMRange", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "how", argType = TBasicType TUInt16, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "sourceRange", argType = TInterface "WebKit" "DOMRange", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TInt16 +-- returnType : Just (TBasicType TInt16) -- throws : True -- Skip return : False @@ -587,7 +629,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMRange", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "refNode", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TInt16 +-- returnType : Just (TBasicType TInt16) -- throws : True -- Skip return : False @@ -621,16 +663,16 @@ -- method DOMRange::compare_point -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMRange", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "refNode", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "offset", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMRange", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "refNode", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "offset", argType = TBasicType TLong, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TInt16 +-- returnType : Just (TBasicType TInt16) -- throws : True -- Skip return : False foreign import ccall "webkit_dom_range_compare_point" webkit_dom_range_compare_point :: Ptr DOMRange -> -- _obj : TInterface "WebKit" "DOMRange" Ptr DOMNode -> -- refNode : TInterface "WebKit" "DOMNode" - Int64 -> -- offset : TBasicType TInt64 + CLong -> -- offset : TBasicType TLong Ptr (Ptr GError) -> -- error IO Int16 @@ -639,7 +681,7 @@ (MonadIO m, DOMRangeK a, DOMNodeK b) => a -- _obj -> b -- refNode - -> Int64 -- offset + -> CLong -- offset -> m Int16 -- result dOMRangeComparePoint _obj refNode offset = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj @@ -654,14 +696,14 @@ ) data DOMRangeComparePointMethodInfo -instance (signature ~ (b -> Int64 -> m Int16), MonadIO m, DOMRangeK a, DOMNodeK b) => MethodInfo DOMRangeComparePointMethodInfo a signature where +instance (signature ~ (b -> CLong -> m Int16), MonadIO m, DOMRangeK a, DOMNodeK b) => MethodInfo DOMRangeComparePointMethodInfo a signature where overloadedMethod _ = dOMRangeComparePoint -- method DOMRange::create_contextual_fragment -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMRange", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "html", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit" "DOMDocumentFragment" +-- returnType : Just (TInterface "WebKit" "DOMDocumentFragment") -- throws : True -- Skip return : False @@ -699,7 +741,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMRange", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : True -- Skip return : False @@ -731,7 +773,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMRange", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : True -- Skip return : False @@ -763,7 +805,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMRange", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "unit", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : True -- Skip return : False @@ -799,7 +841,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMRange", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit" "DOMDocumentFragment" +-- returnType : Just (TInterface "WebKit" "DOMDocumentFragment") -- throws : True -- Skip return : False @@ -833,7 +875,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMRange", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : True -- Skip return : False @@ -865,7 +907,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMRange", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit" "DOMNode" +-- returnType : Just (TInterface "WebKit" "DOMNode") -- throws : True -- Skip return : False @@ -899,7 +941,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMRange", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit" "DOMNode" +-- returnType : Just (TInterface "WebKit" "DOMNode") -- throws : True -- Skip return : False @@ -933,20 +975,20 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMRange", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TInt64 +-- returnType : Just (TBasicType TLong) -- throws : True -- Skip return : False foreign import ccall "webkit_dom_range_get_end_offset" webkit_dom_range_get_end_offset :: Ptr DOMRange -> -- _obj : TInterface "WebKit" "DOMRange" Ptr (Ptr GError) -> -- error - IO Int64 + IO CLong dOMRangeGetEndOffset :: (MonadIO m, DOMRangeK a) => a -- _obj - -> m Int64 -- result + -> m CLong -- result dOMRangeGetEndOffset _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj onException (do @@ -958,14 +1000,14 @@ ) data DOMRangeGetEndOffsetMethodInfo -instance (signature ~ (m Int64), MonadIO m, DOMRangeK a) => MethodInfo DOMRangeGetEndOffsetMethodInfo a signature where +instance (signature ~ (m CLong), MonadIO m, DOMRangeK a) => MethodInfo DOMRangeGetEndOffsetMethodInfo a signature where overloadedMethod _ = dOMRangeGetEndOffset -- method DOMRange::get_start_container -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMRange", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit" "DOMNode" +-- returnType : Just (TInterface "WebKit" "DOMNode") -- throws : True -- Skip return : False @@ -999,20 +1041,20 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMRange", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TInt64 +-- returnType : Just (TBasicType TLong) -- throws : True -- Skip return : False foreign import ccall "webkit_dom_range_get_start_offset" webkit_dom_range_get_start_offset :: Ptr DOMRange -> -- _obj : TInterface "WebKit" "DOMRange" Ptr (Ptr GError) -> -- error - IO Int64 + IO CLong dOMRangeGetStartOffset :: (MonadIO m, DOMRangeK a) => a -- _obj - -> m Int64 -- result + -> m CLong -- result dOMRangeGetStartOffset _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj onException (do @@ -1024,14 +1066,14 @@ ) data DOMRangeGetStartOffsetMethodInfo -instance (signature ~ (m Int64), MonadIO m, DOMRangeK a) => MethodInfo DOMRangeGetStartOffsetMethodInfo a signature where +instance (signature ~ (m CLong), MonadIO m, DOMRangeK a) => MethodInfo DOMRangeGetStartOffsetMethodInfo a signature where overloadedMethod _ = dOMRangeGetStartOffset -- method DOMRange::get_text -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMRange", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -1061,7 +1103,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMRange", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "newNode", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : True -- Skip return : False @@ -1097,7 +1139,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMRange", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "refNode", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : True -- Skip return : False @@ -1131,16 +1173,16 @@ -- method DOMRange::is_point_in_range -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMRange", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "refNode", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "offset", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMRange", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "refNode", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "offset", argType = TBasicType TLong, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : True -- Skip return : False foreign import ccall "webkit_dom_range_is_point_in_range" webkit_dom_range_is_point_in_range :: Ptr DOMRange -> -- _obj : TInterface "WebKit" "DOMRange" Ptr DOMNode -> -- refNode : TInterface "WebKit" "DOMNode" - Int64 -> -- offset : TBasicType TInt64 + CLong -> -- offset : TBasicType TLong Ptr (Ptr GError) -> -- error IO CInt @@ -1149,7 +1191,7 @@ (MonadIO m, DOMRangeK a, DOMNodeK b) => a -- _obj -> b -- refNode - -> Int64 -- offset + -> CLong -- offset -> m () -- result dOMRangeIsPointInRange _obj refNode offset = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj @@ -1164,14 +1206,14 @@ ) data DOMRangeIsPointInRangeMethodInfo -instance (signature ~ (b -> Int64 -> m ()), MonadIO m, DOMRangeK a, DOMNodeK b) => MethodInfo DOMRangeIsPointInRangeMethodInfo a signature where +instance (signature ~ (b -> CLong -> m ()), MonadIO m, DOMRangeK a, DOMNodeK b) => MethodInfo DOMRangeIsPointInRangeMethodInfo a signature where overloadedMethod _ = dOMRangeIsPointInRange -- method DOMRange::select_node -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMRange", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "refNode", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : True -- Skip return : False @@ -1207,7 +1249,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMRange", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "refNode", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : True -- Skip return : False @@ -1241,16 +1283,16 @@ -- method DOMRange::set_end -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMRange", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "refNode", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "offset", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMRange", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "refNode", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "offset", argType = TBasicType TLong, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : True -- Skip return : False foreign import ccall "webkit_dom_range_set_end" webkit_dom_range_set_end :: Ptr DOMRange -> -- _obj : TInterface "WebKit" "DOMRange" Ptr DOMNode -> -- refNode : TInterface "WebKit" "DOMNode" - Int64 -> -- offset : TBasicType TInt64 + CLong -> -- offset : TBasicType TLong Ptr (Ptr GError) -> -- error IO () @@ -1259,7 +1301,7 @@ (MonadIO m, DOMRangeK a, DOMNodeK b) => a -- _obj -> b -- refNode - -> Int64 -- offset + -> CLong -- offset -> m () -- result dOMRangeSetEnd _obj refNode offset = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj @@ -1274,14 +1316,14 @@ ) data DOMRangeSetEndMethodInfo -instance (signature ~ (b -> Int64 -> m ()), MonadIO m, DOMRangeK a, DOMNodeK b) => MethodInfo DOMRangeSetEndMethodInfo a signature where +instance (signature ~ (b -> CLong -> m ()), MonadIO m, DOMRangeK a, DOMNodeK b) => MethodInfo DOMRangeSetEndMethodInfo a signature where overloadedMethod _ = dOMRangeSetEnd -- method DOMRange::set_end_after -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMRange", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "refNode", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : True -- Skip return : False @@ -1317,7 +1359,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMRange", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "refNode", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : True -- Skip return : False @@ -1351,16 +1393,16 @@ -- method DOMRange::set_start -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMRange", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "refNode", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "offset", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMRange", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "refNode", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "offset", argType = TBasicType TLong, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : True -- Skip return : False foreign import ccall "webkit_dom_range_set_start" webkit_dom_range_set_start :: Ptr DOMRange -> -- _obj : TInterface "WebKit" "DOMRange" Ptr DOMNode -> -- refNode : TInterface "WebKit" "DOMNode" - Int64 -> -- offset : TBasicType TInt64 + CLong -> -- offset : TBasicType TLong Ptr (Ptr GError) -> -- error IO () @@ -1369,7 +1411,7 @@ (MonadIO m, DOMRangeK a, DOMNodeK b) => a -- _obj -> b -- refNode - -> Int64 -- offset + -> CLong -- offset -> m () -- result dOMRangeSetStart _obj refNode offset = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj @@ -1384,14 +1426,14 @@ ) data DOMRangeSetStartMethodInfo -instance (signature ~ (b -> Int64 -> m ()), MonadIO m, DOMRangeK a, DOMNodeK b) => MethodInfo DOMRangeSetStartMethodInfo a signature where +instance (signature ~ (b -> CLong -> m ()), MonadIO m, DOMRangeK a, DOMNodeK b) => MethodInfo DOMRangeSetStartMethodInfo a signature where overloadedMethod _ = dOMRangeSetStart -- method DOMRange::set_start_after -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMRange", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "refNode", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : True -- Skip return : False @@ -1427,7 +1469,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMRange", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "refNode", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : True -- Skip return : False @@ -1463,7 +1505,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMRange", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "newParent", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : True -- Skip return : False @@ -1499,7 +1541,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMRange", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : True -- Skip return : False diff --git a/GI/WebKit/Objects/DOMRange.hs-boot b/GI/WebKit/Objects/DOMRange.hs-boot --- a/GI/WebKit/Objects/DOMRange.hs-boot +++ b/GI/WebKit/Objects/DOMRange.hs-boot @@ -1,8 +1,8 @@ module GI.WebKit.Objects.DOMRange where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map diff --git a/GI/WebKit/Objects/DOMScreen.hs b/GI/WebKit/Objects/DOMScreen.hs --- a/GI/WebKit/Objects/DOMScreen.hs +++ b/GI/WebKit/Objects/DOMScreen.hs @@ -62,41 +62,49 @@ -- * Properties -- ** AvailHeight DOMScreenAvailHeightPropertyInfo , + dOMScreenAvailHeight , getDOMScreenAvailHeight , -- ** AvailLeft DOMScreenAvailLeftPropertyInfo , + dOMScreenAvailLeft , getDOMScreenAvailLeft , -- ** AvailTop DOMScreenAvailTopPropertyInfo , + dOMScreenAvailTop , getDOMScreenAvailTop , -- ** AvailWidth DOMScreenAvailWidthPropertyInfo , + dOMScreenAvailWidth , getDOMScreenAvailWidth , -- ** ColorDepth DOMScreenColorDepthPropertyInfo , + dOMScreenColorDepth , getDOMScreenColorDepth , -- ** Height DOMScreenHeightPropertyInfo , + dOMScreenHeight , getDOMScreenHeight , -- ** PixelDepth DOMScreenPixelDepthPropertyInfo , + dOMScreenPixelDepth , getDOMScreenPixelDepth , -- ** Width DOMScreenWidthPropertyInfo , + dOMScreenWidth , getDOMScreenWidth , @@ -104,9 +112,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map @@ -178,152 +186,192 @@ #endif -- VVV Prop "avail-height" - -- Type: TBasicType TUInt64 + -- Type: TBasicType TULong -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) -getDOMScreenAvailHeight :: (MonadIO m, DOMScreenK o) => o -> m Word64 -getDOMScreenAvailHeight obj = liftIO $ getObjectPropertyUInt64 obj "avail-height" +getDOMScreenAvailHeight :: (MonadIO m, DOMScreenK o) => o -> m CULong +getDOMScreenAvailHeight obj = liftIO $ getObjectPropertyULong obj "avail-height" data DOMScreenAvailHeightPropertyInfo instance AttrInfo DOMScreenAvailHeightPropertyInfo where type AttrAllowedOps DOMScreenAvailHeightPropertyInfo = '[ 'AttrGet] type AttrSetTypeConstraint DOMScreenAvailHeightPropertyInfo = (~) () type AttrBaseTypeConstraint DOMScreenAvailHeightPropertyInfo = DOMScreenK - type AttrGetType DOMScreenAvailHeightPropertyInfo = Word64 + type AttrGetType DOMScreenAvailHeightPropertyInfo = CULong type AttrLabel DOMScreenAvailHeightPropertyInfo = "avail-height" attrGet _ = getDOMScreenAvailHeight attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "avail-left" - -- Type: TBasicType TInt64 + -- Type: TBasicType TLong -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) -getDOMScreenAvailLeft :: (MonadIO m, DOMScreenK o) => o -> m Int64 -getDOMScreenAvailLeft obj = liftIO $ getObjectPropertyInt64 obj "avail-left" +getDOMScreenAvailLeft :: (MonadIO m, DOMScreenK o) => o -> m CLong +getDOMScreenAvailLeft obj = liftIO $ getObjectPropertyLong obj "avail-left" data DOMScreenAvailLeftPropertyInfo instance AttrInfo DOMScreenAvailLeftPropertyInfo where type AttrAllowedOps DOMScreenAvailLeftPropertyInfo = '[ 'AttrGet] type AttrSetTypeConstraint DOMScreenAvailLeftPropertyInfo = (~) () type AttrBaseTypeConstraint DOMScreenAvailLeftPropertyInfo = DOMScreenK - type AttrGetType DOMScreenAvailLeftPropertyInfo = Int64 + type AttrGetType DOMScreenAvailLeftPropertyInfo = CLong type AttrLabel DOMScreenAvailLeftPropertyInfo = "avail-left" attrGet _ = getDOMScreenAvailLeft attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "avail-top" - -- Type: TBasicType TInt64 + -- Type: TBasicType TLong -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) -getDOMScreenAvailTop :: (MonadIO m, DOMScreenK o) => o -> m Int64 -getDOMScreenAvailTop obj = liftIO $ getObjectPropertyInt64 obj "avail-top" +getDOMScreenAvailTop :: (MonadIO m, DOMScreenK o) => o -> m CLong +getDOMScreenAvailTop obj = liftIO $ getObjectPropertyLong obj "avail-top" data DOMScreenAvailTopPropertyInfo instance AttrInfo DOMScreenAvailTopPropertyInfo where type AttrAllowedOps DOMScreenAvailTopPropertyInfo = '[ 'AttrGet] type AttrSetTypeConstraint DOMScreenAvailTopPropertyInfo = (~) () type AttrBaseTypeConstraint DOMScreenAvailTopPropertyInfo = DOMScreenK - type AttrGetType DOMScreenAvailTopPropertyInfo = Int64 + type AttrGetType DOMScreenAvailTopPropertyInfo = CLong type AttrLabel DOMScreenAvailTopPropertyInfo = "avail-top" attrGet _ = getDOMScreenAvailTop attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "avail-width" - -- Type: TBasicType TUInt64 + -- Type: TBasicType TULong -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) -getDOMScreenAvailWidth :: (MonadIO m, DOMScreenK o) => o -> m Word64 -getDOMScreenAvailWidth obj = liftIO $ getObjectPropertyUInt64 obj "avail-width" +getDOMScreenAvailWidth :: (MonadIO m, DOMScreenK o) => o -> m CULong +getDOMScreenAvailWidth obj = liftIO $ getObjectPropertyULong obj "avail-width" data DOMScreenAvailWidthPropertyInfo instance AttrInfo DOMScreenAvailWidthPropertyInfo where type AttrAllowedOps DOMScreenAvailWidthPropertyInfo = '[ 'AttrGet] type AttrSetTypeConstraint DOMScreenAvailWidthPropertyInfo = (~) () type AttrBaseTypeConstraint DOMScreenAvailWidthPropertyInfo = DOMScreenK - type AttrGetType DOMScreenAvailWidthPropertyInfo = Word64 + type AttrGetType DOMScreenAvailWidthPropertyInfo = CULong type AttrLabel DOMScreenAvailWidthPropertyInfo = "avail-width" attrGet _ = getDOMScreenAvailWidth attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "color-depth" - -- Type: TBasicType TUInt64 + -- Type: TBasicType TULong -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) -getDOMScreenColorDepth :: (MonadIO m, DOMScreenK o) => o -> m Word64 -getDOMScreenColorDepth obj = liftIO $ getObjectPropertyUInt64 obj "color-depth" +getDOMScreenColorDepth :: (MonadIO m, DOMScreenK o) => o -> m CULong +getDOMScreenColorDepth obj = liftIO $ getObjectPropertyULong obj "color-depth" data DOMScreenColorDepthPropertyInfo instance AttrInfo DOMScreenColorDepthPropertyInfo where type AttrAllowedOps DOMScreenColorDepthPropertyInfo = '[ 'AttrGet] type AttrSetTypeConstraint DOMScreenColorDepthPropertyInfo = (~) () type AttrBaseTypeConstraint DOMScreenColorDepthPropertyInfo = DOMScreenK - type AttrGetType DOMScreenColorDepthPropertyInfo = Word64 + type AttrGetType DOMScreenColorDepthPropertyInfo = CULong type AttrLabel DOMScreenColorDepthPropertyInfo = "color-depth" attrGet _ = getDOMScreenColorDepth attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "height" - -- Type: TBasicType TUInt64 + -- Type: TBasicType TULong -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) -getDOMScreenHeight :: (MonadIO m, DOMScreenK o) => o -> m Word64 -getDOMScreenHeight obj = liftIO $ getObjectPropertyUInt64 obj "height" +getDOMScreenHeight :: (MonadIO m, DOMScreenK o) => o -> m CULong +getDOMScreenHeight obj = liftIO $ getObjectPropertyULong obj "height" data DOMScreenHeightPropertyInfo instance AttrInfo DOMScreenHeightPropertyInfo where type AttrAllowedOps DOMScreenHeightPropertyInfo = '[ 'AttrGet] type AttrSetTypeConstraint DOMScreenHeightPropertyInfo = (~) () type AttrBaseTypeConstraint DOMScreenHeightPropertyInfo = DOMScreenK - type AttrGetType DOMScreenHeightPropertyInfo = Word64 + type AttrGetType DOMScreenHeightPropertyInfo = CULong type AttrLabel DOMScreenHeightPropertyInfo = "height" attrGet _ = getDOMScreenHeight attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "pixel-depth" - -- Type: TBasicType TUInt64 + -- Type: TBasicType TULong -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) -getDOMScreenPixelDepth :: (MonadIO m, DOMScreenK o) => o -> m Word64 -getDOMScreenPixelDepth obj = liftIO $ getObjectPropertyUInt64 obj "pixel-depth" +getDOMScreenPixelDepth :: (MonadIO m, DOMScreenK o) => o -> m CULong +getDOMScreenPixelDepth obj = liftIO $ getObjectPropertyULong obj "pixel-depth" data DOMScreenPixelDepthPropertyInfo instance AttrInfo DOMScreenPixelDepthPropertyInfo where type AttrAllowedOps DOMScreenPixelDepthPropertyInfo = '[ 'AttrGet] type AttrSetTypeConstraint DOMScreenPixelDepthPropertyInfo = (~) () type AttrBaseTypeConstraint DOMScreenPixelDepthPropertyInfo = DOMScreenK - type AttrGetType DOMScreenPixelDepthPropertyInfo = Word64 + type AttrGetType DOMScreenPixelDepthPropertyInfo = CULong type AttrLabel DOMScreenPixelDepthPropertyInfo = "pixel-depth" attrGet _ = getDOMScreenPixelDepth attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "width" - -- Type: TBasicType TUInt64 + -- Type: TBasicType TULong -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) -getDOMScreenWidth :: (MonadIO m, DOMScreenK o) => o -> m Word64 -getDOMScreenWidth obj = liftIO $ getObjectPropertyUInt64 obj "width" +getDOMScreenWidth :: (MonadIO m, DOMScreenK o) => o -> m CULong +getDOMScreenWidth obj = liftIO $ getObjectPropertyULong obj "width" data DOMScreenWidthPropertyInfo instance AttrInfo DOMScreenWidthPropertyInfo where type AttrAllowedOps DOMScreenWidthPropertyInfo = '[ 'AttrGet] type AttrSetTypeConstraint DOMScreenWidthPropertyInfo = (~) () type AttrBaseTypeConstraint DOMScreenWidthPropertyInfo = DOMScreenK - type AttrGetType DOMScreenWidthPropertyInfo = Word64 + type AttrGetType DOMScreenWidthPropertyInfo = CULong type AttrLabel DOMScreenWidthPropertyInfo = "width" attrGet _ = getDOMScreenWidth attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined type instance AttributeList DOMScreen = DOMScreenAttributeList type DOMScreenAttributeList = ('[ '("availHeight", DOMScreenAvailHeightPropertyInfo), '("availLeft", DOMScreenAvailLeftPropertyInfo), '("availTop", DOMScreenAvailTopPropertyInfo), '("availWidth", DOMScreenAvailWidthPropertyInfo), '("colorDepth", DOMScreenColorDepthPropertyInfo), '("coreObject", DOMObjectCoreObjectPropertyInfo), '("height", DOMScreenHeightPropertyInfo), '("pixelDepth", DOMScreenPixelDepthPropertyInfo), '("width", DOMScreenWidthPropertyInfo)] :: [(Symbol, *)]) +dOMScreenAvailHeight :: AttrLabelProxy "availHeight" +dOMScreenAvailHeight = AttrLabelProxy + +dOMScreenAvailLeft :: AttrLabelProxy "availLeft" +dOMScreenAvailLeft = AttrLabelProxy + +dOMScreenAvailTop :: AttrLabelProxy "availTop" +dOMScreenAvailTop = AttrLabelProxy + +dOMScreenAvailWidth :: AttrLabelProxy "availWidth" +dOMScreenAvailWidth = AttrLabelProxy + +dOMScreenColorDepth :: AttrLabelProxy "colorDepth" +dOMScreenColorDepth = AttrLabelProxy + +dOMScreenHeight :: AttrLabelProxy "height" +dOMScreenHeight = AttrLabelProxy + +dOMScreenPixelDepth :: AttrLabelProxy "pixelDepth" +dOMScreenPixelDepth = AttrLabelProxy + +dOMScreenWidth :: AttrLabelProxy "width" +dOMScreenWidth = AttrLabelProxy + type instance SignalList DOMScreen = DOMScreenSignalList type DOMScreenSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) @@ -331,19 +379,19 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMScreen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUInt64 +-- returnType : Just (TBasicType TULong) -- throws : False -- Skip return : False foreign import ccall "webkit_dom_screen_get_avail_height" webkit_dom_screen_get_avail_height :: Ptr DOMScreen -> -- _obj : TInterface "WebKit" "DOMScreen" - IO Word64 + IO CULong dOMScreenGetAvailHeight :: (MonadIO m, DOMScreenK a) => a -- _obj - -> m Word64 -- result + -> m CULong -- result dOMScreenGetAvailHeight _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- webkit_dom_screen_get_avail_height _obj' @@ -351,26 +399,26 @@ return result data DOMScreenGetAvailHeightMethodInfo -instance (signature ~ (m Word64), MonadIO m, DOMScreenK a) => MethodInfo DOMScreenGetAvailHeightMethodInfo a signature where +instance (signature ~ (m CULong), MonadIO m, DOMScreenK a) => MethodInfo DOMScreenGetAvailHeightMethodInfo a signature where overloadedMethod _ = dOMScreenGetAvailHeight -- method DOMScreen::get_avail_left -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMScreen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TInt64 +-- returnType : Just (TBasicType TLong) -- throws : False -- Skip return : False foreign import ccall "webkit_dom_screen_get_avail_left" webkit_dom_screen_get_avail_left :: Ptr DOMScreen -> -- _obj : TInterface "WebKit" "DOMScreen" - IO Int64 + IO CLong dOMScreenGetAvailLeft :: (MonadIO m, DOMScreenK a) => a -- _obj - -> m Int64 -- result + -> m CLong -- result dOMScreenGetAvailLeft _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- webkit_dom_screen_get_avail_left _obj' @@ -378,26 +426,26 @@ return result data DOMScreenGetAvailLeftMethodInfo -instance (signature ~ (m Int64), MonadIO m, DOMScreenK a) => MethodInfo DOMScreenGetAvailLeftMethodInfo a signature where +instance (signature ~ (m CLong), MonadIO m, DOMScreenK a) => MethodInfo DOMScreenGetAvailLeftMethodInfo a signature where overloadedMethod _ = dOMScreenGetAvailLeft -- method DOMScreen::get_avail_top -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMScreen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TInt64 +-- returnType : Just (TBasicType TLong) -- throws : False -- Skip return : False foreign import ccall "webkit_dom_screen_get_avail_top" webkit_dom_screen_get_avail_top :: Ptr DOMScreen -> -- _obj : TInterface "WebKit" "DOMScreen" - IO Int64 + IO CLong dOMScreenGetAvailTop :: (MonadIO m, DOMScreenK a) => a -- _obj - -> m Int64 -- result + -> m CLong -- result dOMScreenGetAvailTop _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- webkit_dom_screen_get_avail_top _obj' @@ -405,26 +453,26 @@ return result data DOMScreenGetAvailTopMethodInfo -instance (signature ~ (m Int64), MonadIO m, DOMScreenK a) => MethodInfo DOMScreenGetAvailTopMethodInfo a signature where +instance (signature ~ (m CLong), MonadIO m, DOMScreenK a) => MethodInfo DOMScreenGetAvailTopMethodInfo a signature where overloadedMethod _ = dOMScreenGetAvailTop -- method DOMScreen::get_avail_width -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMScreen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUInt64 +-- returnType : Just (TBasicType TULong) -- throws : False -- Skip return : False foreign import ccall "webkit_dom_screen_get_avail_width" webkit_dom_screen_get_avail_width :: Ptr DOMScreen -> -- _obj : TInterface "WebKit" "DOMScreen" - IO Word64 + IO CULong dOMScreenGetAvailWidth :: (MonadIO m, DOMScreenK a) => a -- _obj - -> m Word64 -- result + -> m CULong -- result dOMScreenGetAvailWidth _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- webkit_dom_screen_get_avail_width _obj' @@ -432,26 +480,26 @@ return result data DOMScreenGetAvailWidthMethodInfo -instance (signature ~ (m Word64), MonadIO m, DOMScreenK a) => MethodInfo DOMScreenGetAvailWidthMethodInfo a signature where +instance (signature ~ (m CULong), MonadIO m, DOMScreenK a) => MethodInfo DOMScreenGetAvailWidthMethodInfo a signature where overloadedMethod _ = dOMScreenGetAvailWidth -- method DOMScreen::get_color_depth -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMScreen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUInt64 +-- returnType : Just (TBasicType TULong) -- throws : False -- Skip return : False foreign import ccall "webkit_dom_screen_get_color_depth" webkit_dom_screen_get_color_depth :: Ptr DOMScreen -> -- _obj : TInterface "WebKit" "DOMScreen" - IO Word64 + IO CULong dOMScreenGetColorDepth :: (MonadIO m, DOMScreenK a) => a -- _obj - -> m Word64 -- result + -> m CULong -- result dOMScreenGetColorDepth _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- webkit_dom_screen_get_color_depth _obj' @@ -459,26 +507,26 @@ return result data DOMScreenGetColorDepthMethodInfo -instance (signature ~ (m Word64), MonadIO m, DOMScreenK a) => MethodInfo DOMScreenGetColorDepthMethodInfo a signature where +instance (signature ~ (m CULong), MonadIO m, DOMScreenK a) => MethodInfo DOMScreenGetColorDepthMethodInfo a signature where overloadedMethod _ = dOMScreenGetColorDepth -- method DOMScreen::get_height -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMScreen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUInt64 +-- returnType : Just (TBasicType TULong) -- throws : False -- Skip return : False foreign import ccall "webkit_dom_screen_get_height" webkit_dom_screen_get_height :: Ptr DOMScreen -> -- _obj : TInterface "WebKit" "DOMScreen" - IO Word64 + IO CULong dOMScreenGetHeight :: (MonadIO m, DOMScreenK a) => a -- _obj - -> m Word64 -- result + -> m CULong -- result dOMScreenGetHeight _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- webkit_dom_screen_get_height _obj' @@ -486,26 +534,26 @@ return result data DOMScreenGetHeightMethodInfo -instance (signature ~ (m Word64), MonadIO m, DOMScreenK a) => MethodInfo DOMScreenGetHeightMethodInfo a signature where +instance (signature ~ (m CULong), MonadIO m, DOMScreenK a) => MethodInfo DOMScreenGetHeightMethodInfo a signature where overloadedMethod _ = dOMScreenGetHeight -- method DOMScreen::get_pixel_depth -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMScreen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUInt64 +-- returnType : Just (TBasicType TULong) -- throws : False -- Skip return : False foreign import ccall "webkit_dom_screen_get_pixel_depth" webkit_dom_screen_get_pixel_depth :: Ptr DOMScreen -> -- _obj : TInterface "WebKit" "DOMScreen" - IO Word64 + IO CULong dOMScreenGetPixelDepth :: (MonadIO m, DOMScreenK a) => a -- _obj - -> m Word64 -- result + -> m CULong -- result dOMScreenGetPixelDepth _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- webkit_dom_screen_get_pixel_depth _obj' @@ -513,26 +561,26 @@ return result data DOMScreenGetPixelDepthMethodInfo -instance (signature ~ (m Word64), MonadIO m, DOMScreenK a) => MethodInfo DOMScreenGetPixelDepthMethodInfo a signature where +instance (signature ~ (m CULong), MonadIO m, DOMScreenK a) => MethodInfo DOMScreenGetPixelDepthMethodInfo a signature where overloadedMethod _ = dOMScreenGetPixelDepth -- method DOMScreen::get_width -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMScreen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUInt64 +-- returnType : Just (TBasicType TULong) -- throws : False -- Skip return : False foreign import ccall "webkit_dom_screen_get_width" webkit_dom_screen_get_width :: Ptr DOMScreen -> -- _obj : TInterface "WebKit" "DOMScreen" - IO Word64 + IO CULong dOMScreenGetWidth :: (MonadIO m, DOMScreenK a) => a -- _obj - -> m Word64 -- result + -> m CULong -- result dOMScreenGetWidth _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- webkit_dom_screen_get_width _obj' @@ -540,7 +588,7 @@ return result data DOMScreenGetWidthMethodInfo -instance (signature ~ (m Word64), MonadIO m, DOMScreenK a) => MethodInfo DOMScreenGetWidthMethodInfo a signature where +instance (signature ~ (m CULong), MonadIO m, DOMScreenK a) => MethodInfo DOMScreenGetWidthMethodInfo a signature where overloadedMethod _ = dOMScreenGetWidth diff --git a/GI/WebKit/Objects/DOMScreen.hs-boot b/GI/WebKit/Objects/DOMScreen.hs-boot --- a/GI/WebKit/Objects/DOMScreen.hs-boot +++ b/GI/WebKit/Objects/DOMScreen.hs-boot @@ -1,8 +1,8 @@ module GI.WebKit.Objects.DOMScreen where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map diff --git a/GI/WebKit/Objects/DOMShadowRoot.hs b/GI/WebKit/Objects/DOMShadowRoot.hs --- a/GI/WebKit/Objects/DOMShadowRoot.hs +++ b/GI/WebKit/Objects/DOMShadowRoot.hs @@ -87,19 +87,23 @@ -- * Properties -- ** ActiveElement DOMShadowRootActiveElementPropertyInfo , + dOMShadowRootActiveElement , getDOMShadowRootActiveElement , -- ** ApplyAuthorStyles DOMShadowRootApplyAuthorStylesPropertyInfo, constructDOMShadowRootApplyAuthorStyles , + dOMShadowRootApplyAuthorStyles , getDOMShadowRootApplyAuthorStyles , setDOMShadowRootApplyAuthorStyles , -- ** InnerHtml DOMShadowRootInnerHtmlPropertyInfo , + clearDOMShadowRootInnerHtml , constructDOMShadowRootInnerHtml , + dOMShadowRootInnerHtml , getDOMShadowRootInnerHtml , setDOMShadowRootInnerHtml , @@ -107,6 +111,7 @@ -- ** ResetStyleInheritance DOMShadowRootResetStyleInheritancePropertyInfo, constructDOMShadowRootResetStyleInheritance, + dOMShadowRootResetStyleInheritance , getDOMShadowRootResetStyleInheritance , setDOMShadowRootResetStyleInheritance , @@ -115,9 +120,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map @@ -236,13 +241,14 @@ -- VVV Prop "active-element" -- Type: TInterface "WebKit" "DOMElement" -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) getDOMShadowRootActiveElement :: (MonadIO m, DOMShadowRootK o) => o -> m DOMElement -getDOMShadowRootActiveElement obj = liftIO $ getObjectPropertyObject obj "active-element" DOMElement +getDOMShadowRootActiveElement obj = liftIO $ checkUnexpectedNothing "getDOMShadowRootActiveElement" $ getObjectPropertyObject obj "active-element" DOMElement data DOMShadowRootActiveElementPropertyInfo instance AttrInfo DOMShadowRootActiveElementPropertyInfo where - type AttrAllowedOps DOMShadowRootActiveElementPropertyInfo = '[ 'AttrGet] + type AttrAllowedOps DOMShadowRootActiveElementPropertyInfo = '[ 'AttrGet, 'AttrClear] type AttrSetTypeConstraint DOMShadowRootActiveElementPropertyInfo = (~) () type AttrBaseTypeConstraint DOMShadowRootActiveElementPropertyInfo = DOMShadowRootK type AttrGetType DOMShadowRootActiveElementPropertyInfo = DOMElement @@ -250,10 +256,12 @@ attrGet _ = getDOMShadowRootActiveElement attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "apply-author-styles" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getDOMShadowRootApplyAuthorStyles :: (MonadIO m, DOMShadowRootK o) => o -> m Bool getDOMShadowRootApplyAuthorStyles obj = liftIO $ getObjectPropertyBool obj "apply-author-styles" @@ -274,34 +282,41 @@ attrGet _ = getDOMShadowRootApplyAuthorStyles attrSet _ = setDOMShadowRootApplyAuthorStyles attrConstruct _ = constructDOMShadowRootApplyAuthorStyles + attrClear _ = undefined -- VVV Prop "inner-html" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) -getDOMShadowRootInnerHtml :: (MonadIO m, DOMShadowRootK o) => o -> m T.Text +getDOMShadowRootInnerHtml :: (MonadIO m, DOMShadowRootK o) => o -> m (Maybe T.Text) getDOMShadowRootInnerHtml obj = liftIO $ getObjectPropertyString obj "inner-html" setDOMShadowRootInnerHtml :: (MonadIO m, DOMShadowRootK o) => o -> T.Text -> m () -setDOMShadowRootInnerHtml obj val = liftIO $ setObjectPropertyString obj "inner-html" val +setDOMShadowRootInnerHtml obj val = liftIO $ setObjectPropertyString obj "inner-html" (Just val) constructDOMShadowRootInnerHtml :: T.Text -> IO ([Char], GValue) -constructDOMShadowRootInnerHtml val = constructObjectPropertyString "inner-html" val +constructDOMShadowRootInnerHtml val = constructObjectPropertyString "inner-html" (Just val) +clearDOMShadowRootInnerHtml :: (MonadIO m, DOMShadowRootK o) => o -> m () +clearDOMShadowRootInnerHtml obj = liftIO $ setObjectPropertyString obj "inner-html" (Nothing :: Maybe T.Text) + data DOMShadowRootInnerHtmlPropertyInfo instance AttrInfo DOMShadowRootInnerHtmlPropertyInfo where - type AttrAllowedOps DOMShadowRootInnerHtmlPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrAllowedOps DOMShadowRootInnerHtmlPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint DOMShadowRootInnerHtmlPropertyInfo = (~) T.Text type AttrBaseTypeConstraint DOMShadowRootInnerHtmlPropertyInfo = DOMShadowRootK - type AttrGetType DOMShadowRootInnerHtmlPropertyInfo = T.Text + type AttrGetType DOMShadowRootInnerHtmlPropertyInfo = (Maybe T.Text) type AttrLabel DOMShadowRootInnerHtmlPropertyInfo = "inner-html" attrGet _ = getDOMShadowRootInnerHtml attrSet _ = setDOMShadowRootInnerHtml attrConstruct _ = constructDOMShadowRootInnerHtml + attrClear _ = clearDOMShadowRootInnerHtml -- VVV Prop "reset-style-inheritance" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getDOMShadowRootResetStyleInheritance :: (MonadIO m, DOMShadowRootK o) => o -> m Bool getDOMShadowRootResetStyleInheritance obj = liftIO $ getObjectPropertyBool obj "reset-style-inheritance" @@ -322,33 +337,46 @@ attrGet _ = getDOMShadowRootResetStyleInheritance attrSet _ = setDOMShadowRootResetStyleInheritance attrConstruct _ = constructDOMShadowRootResetStyleInheritance + attrClear _ = undefined type instance AttributeList DOMShadowRoot = DOMShadowRootAttributeList type DOMShadowRootAttributeList = ('[ '("activeElement", DOMShadowRootActiveElementPropertyInfo), '("applyAuthorStyles", DOMShadowRootApplyAuthorStylesPropertyInfo), '("baseUri", DOMNodeBaseUriPropertyInfo), '("childNodes", DOMNodeChildNodesPropertyInfo), '("coreObject", DOMObjectCoreObjectPropertyInfo), '("firstChild", DOMNodeFirstChildPropertyInfo), '("innerHtml", DOMShadowRootInnerHtmlPropertyInfo), '("lastChild", DOMNodeLastChildPropertyInfo), '("localName", DOMNodeLocalNamePropertyInfo), '("namespaceUri", DOMNodeNamespaceUriPropertyInfo), '("nextSibling", DOMNodeNextSiblingPropertyInfo), '("nodeName", DOMNodeNodeNamePropertyInfo), '("nodeType", DOMNodeNodeTypePropertyInfo), '("nodeValue", DOMNodeNodeValuePropertyInfo), '("ownerDocument", DOMNodeOwnerDocumentPropertyInfo), '("parentElement", DOMNodeParentElementPropertyInfo), '("parentNode", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previousSibling", DOMNodePreviousSiblingPropertyInfo), '("resetStyleInheritance", DOMShadowRootResetStyleInheritancePropertyInfo), '("textContent", DOMNodeTextContentPropertyInfo)] :: [(Symbol, *)]) +dOMShadowRootActiveElement :: AttrLabelProxy "activeElement" +dOMShadowRootActiveElement = AttrLabelProxy + +dOMShadowRootApplyAuthorStyles :: AttrLabelProxy "applyAuthorStyles" +dOMShadowRootApplyAuthorStyles = AttrLabelProxy + +dOMShadowRootInnerHtml :: AttrLabelProxy "innerHtml" +dOMShadowRootInnerHtml = AttrLabelProxy + +dOMShadowRootResetStyleInheritance :: AttrLabelProxy "resetStyleInheritance" +dOMShadowRootResetStyleInheritance = AttrLabelProxy + type instance SignalList DOMShadowRoot = DOMShadowRootSignalList type DOMShadowRootSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) -- method DOMShadowRoot::element_from_point -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMShadowRoot", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMShadowRoot", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TLong, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y", argType = TBasicType TLong, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit" "DOMElement" +-- returnType : Just (TInterface "WebKit" "DOMElement") -- throws : False -- Skip return : False foreign import ccall "webkit_dom_shadow_root_element_from_point" webkit_dom_shadow_root_element_from_point :: Ptr DOMShadowRoot -> -- _obj : TInterface "WebKit" "DOMShadowRoot" - Int64 -> -- x : TBasicType TInt64 - Int64 -> -- y : TBasicType TInt64 + CLong -> -- x : TBasicType TLong + CLong -> -- y : TBasicType TLong IO (Ptr DOMElement) dOMShadowRootElementFromPoint :: (MonadIO m, DOMShadowRootK a) => a -- _obj - -> Int64 -- x - -> Int64 -- y + -> CLong -- x + -> CLong -- y -> m DOMElement -- result dOMShadowRootElementFromPoint _obj x y = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj @@ -359,14 +387,14 @@ return result' data DOMShadowRootElementFromPointMethodInfo -instance (signature ~ (Int64 -> Int64 -> m DOMElement), MonadIO m, DOMShadowRootK a) => MethodInfo DOMShadowRootElementFromPointMethodInfo a signature where +instance (signature ~ (CLong -> CLong -> m DOMElement), MonadIO m, DOMShadowRootK a) => MethodInfo DOMShadowRootElementFromPointMethodInfo a signature where overloadedMethod _ = dOMShadowRootElementFromPoint -- method DOMShadowRoot::get_active_element -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMShadowRoot", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit" "DOMElement" +-- returnType : Just (TInterface "WebKit" "DOMElement") -- throws : False -- Skip return : False @@ -395,7 +423,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMShadowRoot", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -423,7 +451,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMShadowRoot", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "elementId", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit" "DOMElement" +-- returnType : Just (TInterface "WebKit" "DOMElement") -- throws : False -- Skip return : False @@ -456,7 +484,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMShadowRoot", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "className", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit" "DOMNodeList" +-- returnType : Just (TInterface "WebKit" "DOMNodeList") -- throws : False -- Skip return : False @@ -489,7 +517,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMShadowRoot", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "tagName", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit" "DOMNodeList" +-- returnType : Just (TInterface "WebKit" "DOMNodeList") -- throws : False -- Skip return : False @@ -522,7 +550,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMShadowRoot", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "namespaceURI", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "localName", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit" "DOMNodeList" +-- returnType : Just (TInterface "WebKit" "DOMNodeList") -- throws : False -- Skip return : False @@ -559,7 +587,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMShadowRoot", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -589,7 +617,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMShadowRoot", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -617,7 +645,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMShadowRoot", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit" "DOMDOMSelection" +-- returnType : Just (TInterface "WebKit" "DOMDOMSelection") -- throws : False -- Skip return : False @@ -646,7 +674,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMShadowRoot", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -676,7 +704,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMShadowRoot", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : True -- Skip return : False @@ -712,7 +740,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMShadowRoot", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False diff --git a/GI/WebKit/Objects/DOMShadowRoot.hs-boot b/GI/WebKit/Objects/DOMShadowRoot.hs-boot --- a/GI/WebKit/Objects/DOMShadowRoot.hs-boot +++ b/GI/WebKit/Objects/DOMShadowRoot.hs-boot @@ -1,8 +1,8 @@ module GI.WebKit.Objects.DOMShadowRoot where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map diff --git a/GI/WebKit/Objects/DOMStorage.hs b/GI/WebKit/Objects/DOMStorage.hs --- a/GI/WebKit/Objects/DOMStorage.hs +++ b/GI/WebKit/Objects/DOMStorage.hs @@ -52,6 +52,7 @@ -- * Properties -- ** Length DOMStorageLengthPropertyInfo , + dOMStorageLength , getDOMStorageLength , @@ -59,9 +60,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map @@ -131,26 +132,31 @@ #endif -- VVV Prop "length" - -- Type: TBasicType TUInt64 + -- Type: TBasicType TULong -- Flags: [PropertyReadable] + -- Nullable: (Nothing,Nothing) -getDOMStorageLength :: (MonadIO m, DOMStorageK o) => o -> m Word64 -getDOMStorageLength obj = liftIO $ getObjectPropertyUInt64 obj "length" +getDOMStorageLength :: (MonadIO m, DOMStorageK o) => o -> m CULong +getDOMStorageLength obj = liftIO $ getObjectPropertyULong obj "length" data DOMStorageLengthPropertyInfo instance AttrInfo DOMStorageLengthPropertyInfo where type AttrAllowedOps DOMStorageLengthPropertyInfo = '[ 'AttrGet] type AttrSetTypeConstraint DOMStorageLengthPropertyInfo = (~) () type AttrBaseTypeConstraint DOMStorageLengthPropertyInfo = DOMStorageK - type AttrGetType DOMStorageLengthPropertyInfo = Word64 + type AttrGetType DOMStorageLengthPropertyInfo = CULong type AttrLabel DOMStorageLengthPropertyInfo = "length" attrGet _ = getDOMStorageLength attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined type instance AttributeList DOMStorage = DOMStorageAttributeList type DOMStorageAttributeList = ('[ '("coreObject", DOMObjectCoreObjectPropertyInfo), '("length", DOMStorageLengthPropertyInfo)] :: [(Symbol, *)]) +dOMStorageLength :: AttrLabelProxy "length" +dOMStorageLength = AttrLabelProxy + type instance SignalList DOMStorage = DOMStorageSignalList type DOMStorageSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) @@ -158,7 +164,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMStorage", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : True -- Skip return : False @@ -190,7 +196,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMStorage", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : True -- Skip return : False @@ -229,20 +235,20 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMStorage", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUInt64 +-- returnType : Just (TBasicType TULong) -- throws : True -- Skip return : False foreign import ccall "webkit_dom_storage_get_length" webkit_dom_storage_get_length :: Ptr DOMStorage -> -- _obj : TInterface "WebKit" "DOMStorage" Ptr (Ptr GError) -> -- error - IO Word64 + IO CULong dOMStorageGetLength :: (MonadIO m, DOMStorageK a) => a -- _obj - -> m Word64 -- result + -> m CULong -- result dOMStorageGetLength _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj onException (do @@ -254,20 +260,20 @@ ) data DOMStorageGetLengthMethodInfo -instance (signature ~ (m Word64), MonadIO m, DOMStorageK a) => MethodInfo DOMStorageGetLengthMethodInfo a signature where +instance (signature ~ (m CULong), MonadIO m, DOMStorageK a) => MethodInfo DOMStorageGetLengthMethodInfo a signature where overloadedMethod _ = dOMStorageGetLength -- method DOMStorage::key -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMStorage", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "index", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMStorage", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "index", argType = TBasicType TULong, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : True -- Skip return : False foreign import ccall "webkit_dom_storage_key" webkit_dom_storage_key :: Ptr DOMStorage -> -- _obj : TInterface "WebKit" "DOMStorage" - Word64 -> -- index : TBasicType TUInt64 + CULong -> -- index : TBasicType TULong Ptr (Ptr GError) -> -- error IO CString @@ -275,7 +281,7 @@ dOMStorageKey :: (MonadIO m, DOMStorageK a) => a -- _obj - -> Word64 -- index + -> CULong -- index -> m T.Text -- result dOMStorageKey _obj index = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj @@ -291,14 +297,14 @@ ) data DOMStorageKeyMethodInfo -instance (signature ~ (Word64 -> m T.Text), MonadIO m, DOMStorageK a) => MethodInfo DOMStorageKeyMethodInfo a signature where +instance (signature ~ (CULong -> m T.Text), MonadIO m, DOMStorageK a) => MethodInfo DOMStorageKeyMethodInfo a signature where overloadedMethod _ = dOMStorageKey -- method DOMStorage::remove_item -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMStorage", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : True -- Skip return : False @@ -334,7 +340,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMStorage", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "data", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : True -- Skip return : False diff --git a/GI/WebKit/Objects/DOMStorage.hs-boot b/GI/WebKit/Objects/DOMStorage.hs-boot --- a/GI/WebKit/Objects/DOMStorage.hs-boot +++ b/GI/WebKit/Objects/DOMStorage.hs-boot @@ -1,8 +1,8 @@ module GI.WebKit.Objects.DOMStorage where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map diff --git a/GI/WebKit/Objects/DOMStorageInfo.hs b/GI/WebKit/Objects/DOMStorageInfo.hs --- a/GI/WebKit/Objects/DOMStorageInfo.hs +++ b/GI/WebKit/Objects/DOMStorageInfo.hs @@ -18,9 +18,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map diff --git a/GI/WebKit/Objects/DOMStorageInfo.hs-boot b/GI/WebKit/Objects/DOMStorageInfo.hs-boot --- a/GI/WebKit/Objects/DOMStorageInfo.hs-boot +++ b/GI/WebKit/Objects/DOMStorageInfo.hs-boot @@ -1,8 +1,8 @@ module GI.WebKit.Objects.DOMStorageInfo where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map diff --git a/GI/WebKit/Objects/DOMStorageQuota.hs b/GI/WebKit/Objects/DOMStorageQuota.hs --- a/GI/WebKit/Objects/DOMStorageQuota.hs +++ b/GI/WebKit/Objects/DOMStorageQuota.hs @@ -18,9 +18,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map diff --git a/GI/WebKit/Objects/DOMStorageQuota.hs-boot b/GI/WebKit/Objects/DOMStorageQuota.hs-boot --- a/GI/WebKit/Objects/DOMStorageQuota.hs-boot +++ b/GI/WebKit/Objects/DOMStorageQuota.hs-boot @@ -1,8 +1,8 @@ module GI.WebKit.Objects.DOMStorageQuota where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map diff --git a/GI/WebKit/Objects/DOMStyleMedia.hs b/GI/WebKit/Objects/DOMStyleMedia.hs --- a/GI/WebKit/Objects/DOMStyleMedia.hs +++ b/GI/WebKit/Objects/DOMStyleMedia.hs @@ -27,6 +27,7 @@ -- * Properties -- ** Type DOMStyleMediaTypePropertyInfo , + dOMStyleMediaType , getDOMStyleMediaType , @@ -34,9 +35,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map @@ -103,24 +104,29 @@ -- VVV Prop "type" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable] + -- Nullable: (Nothing,Nothing) -getDOMStyleMediaType :: (MonadIO m, DOMStyleMediaK o) => o -> m T.Text +getDOMStyleMediaType :: (MonadIO m, DOMStyleMediaK o) => o -> m (Maybe T.Text) getDOMStyleMediaType obj = liftIO $ getObjectPropertyString obj "type" data DOMStyleMediaTypePropertyInfo instance AttrInfo DOMStyleMediaTypePropertyInfo where - type AttrAllowedOps DOMStyleMediaTypePropertyInfo = '[ 'AttrGet] + type AttrAllowedOps DOMStyleMediaTypePropertyInfo = '[ 'AttrGet, 'AttrClear] type AttrSetTypeConstraint DOMStyleMediaTypePropertyInfo = (~) () type AttrBaseTypeConstraint DOMStyleMediaTypePropertyInfo = DOMStyleMediaK - type AttrGetType DOMStyleMediaTypePropertyInfo = T.Text + type AttrGetType DOMStyleMediaTypePropertyInfo = (Maybe T.Text) type AttrLabel DOMStyleMediaTypePropertyInfo = "type" attrGet _ = getDOMStyleMediaType attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined type instance AttributeList DOMStyleMedia = DOMStyleMediaAttributeList type DOMStyleMediaAttributeList = ('[ '("coreObject", DOMObjectCoreObjectPropertyInfo), '("type", DOMStyleMediaTypePropertyInfo)] :: [(Symbol, *)]) +dOMStyleMediaType :: AttrLabelProxy "type" +dOMStyleMediaType = AttrLabelProxy + type instance SignalList DOMStyleMedia = DOMStyleMediaSignalList type DOMStyleMediaSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) @@ -128,7 +134,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMStyleMedia", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "mediaquery", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False diff --git a/GI/WebKit/Objects/DOMStyleMedia.hs-boot b/GI/WebKit/Objects/DOMStyleMedia.hs-boot --- a/GI/WebKit/Objects/DOMStyleMedia.hs-boot +++ b/GI/WebKit/Objects/DOMStyleMedia.hs-boot @@ -1,8 +1,8 @@ module GI.WebKit.Objects.DOMStyleMedia where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map diff --git a/GI/WebKit/Objects/DOMStyleSheet.hs b/GI/WebKit/Objects/DOMStyleSheet.hs --- a/GI/WebKit/Objects/DOMStyleSheet.hs +++ b/GI/WebKit/Objects/DOMStyleSheet.hs @@ -58,37 +58,44 @@ -- ** Disabled DOMStyleSheetDisabledPropertyInfo , constructDOMStyleSheetDisabled , + dOMStyleSheetDisabled , getDOMStyleSheetDisabled , setDOMStyleSheetDisabled , -- ** Href DOMStyleSheetHrefPropertyInfo , + dOMStyleSheetHref , getDOMStyleSheetHref , -- ** Media DOMStyleSheetMediaPropertyInfo , + dOMStyleSheetMedia , getDOMStyleSheetMedia , -- ** OwnerNode DOMStyleSheetOwnerNodePropertyInfo , + dOMStyleSheetOwnerNode , getDOMStyleSheetOwnerNode , -- ** ParentStyleSheet DOMStyleSheetParentStyleSheetPropertyInfo, + dOMStyleSheetParentStyleSheet , getDOMStyleSheetParentStyleSheet , -- ** Title DOMStyleSheetTitlePropertyInfo , + dOMStyleSheetTitle , getDOMStyleSheetTitle , -- ** Type DOMStyleSheetTypePropertyInfo , + dOMStyleSheetType , getDOMStyleSheetType , @@ -96,9 +103,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map @@ -171,6 +178,7 @@ -- VVV Prop "disabled" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getDOMStyleSheetDisabled :: (MonadIO m, DOMStyleSheetK o) => o -> m Bool getDOMStyleSheetDisabled obj = liftIO $ getObjectPropertyBool obj "disabled" @@ -191,53 +199,59 @@ attrGet _ = getDOMStyleSheetDisabled attrSet _ = setDOMStyleSheetDisabled attrConstruct _ = constructDOMStyleSheetDisabled + attrClear _ = undefined -- VVV Prop "href" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable] + -- Nullable: (Nothing,Nothing) -getDOMStyleSheetHref :: (MonadIO m, DOMStyleSheetK o) => o -> m T.Text +getDOMStyleSheetHref :: (MonadIO m, DOMStyleSheetK o) => o -> m (Maybe T.Text) getDOMStyleSheetHref obj = liftIO $ getObjectPropertyString obj "href" data DOMStyleSheetHrefPropertyInfo instance AttrInfo DOMStyleSheetHrefPropertyInfo where - type AttrAllowedOps DOMStyleSheetHrefPropertyInfo = '[ 'AttrGet] + type AttrAllowedOps DOMStyleSheetHrefPropertyInfo = '[ 'AttrGet, 'AttrClear] type AttrSetTypeConstraint DOMStyleSheetHrefPropertyInfo = (~) () type AttrBaseTypeConstraint DOMStyleSheetHrefPropertyInfo = DOMStyleSheetK - type AttrGetType DOMStyleSheetHrefPropertyInfo = T.Text + type AttrGetType DOMStyleSheetHrefPropertyInfo = (Maybe T.Text) type AttrLabel DOMStyleSheetHrefPropertyInfo = "href" attrGet _ = getDOMStyleSheetHref attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "media" -- Type: TInterface "WebKit" "DOMMediaList" -- Flags: [PropertyReadable] + -- Nullable: (Nothing,Nothing) -getDOMStyleSheetMedia :: (MonadIO m, DOMStyleSheetK o) => o -> m DOMMediaList +getDOMStyleSheetMedia :: (MonadIO m, DOMStyleSheetK o) => o -> m (Maybe DOMMediaList) getDOMStyleSheetMedia obj = liftIO $ getObjectPropertyObject obj "media" DOMMediaList data DOMStyleSheetMediaPropertyInfo instance AttrInfo DOMStyleSheetMediaPropertyInfo where - type AttrAllowedOps DOMStyleSheetMediaPropertyInfo = '[ 'AttrGet] + type AttrAllowedOps DOMStyleSheetMediaPropertyInfo = '[ 'AttrGet, 'AttrClear] type AttrSetTypeConstraint DOMStyleSheetMediaPropertyInfo = (~) () type AttrBaseTypeConstraint DOMStyleSheetMediaPropertyInfo = DOMStyleSheetK - type AttrGetType DOMStyleSheetMediaPropertyInfo = DOMMediaList + type AttrGetType DOMStyleSheetMediaPropertyInfo = (Maybe DOMMediaList) type AttrLabel DOMStyleSheetMediaPropertyInfo = "media" attrGet _ = getDOMStyleSheetMedia attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "owner-node" -- Type: TInterface "WebKit" "DOMNode" -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) getDOMStyleSheetOwnerNode :: (MonadIO m, DOMStyleSheetK o) => o -> m DOMNode -getDOMStyleSheetOwnerNode obj = liftIO $ getObjectPropertyObject obj "owner-node" DOMNode +getDOMStyleSheetOwnerNode obj = liftIO $ checkUnexpectedNothing "getDOMStyleSheetOwnerNode" $ getObjectPropertyObject obj "owner-node" DOMNode data DOMStyleSheetOwnerNodePropertyInfo instance AttrInfo DOMStyleSheetOwnerNodePropertyInfo where - type AttrAllowedOps DOMStyleSheetOwnerNodePropertyInfo = '[ 'AttrGet] + type AttrAllowedOps DOMStyleSheetOwnerNodePropertyInfo = '[ 'AttrGet, 'AttrClear] type AttrSetTypeConstraint DOMStyleSheetOwnerNodePropertyInfo = (~) () type AttrBaseTypeConstraint DOMStyleSheetOwnerNodePropertyInfo = DOMStyleSheetK type AttrGetType DOMStyleSheetOwnerNodePropertyInfo = DOMNode @@ -245,64 +259,92 @@ attrGet _ = getDOMStyleSheetOwnerNode attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "parent-style-sheet" -- Type: TInterface "WebKit" "DOMStyleSheet" -- Flags: [PropertyReadable] + -- Nullable: (Nothing,Nothing) -getDOMStyleSheetParentStyleSheet :: (MonadIO m, DOMStyleSheetK o) => o -> m DOMStyleSheet +getDOMStyleSheetParentStyleSheet :: (MonadIO m, DOMStyleSheetK o) => o -> m (Maybe DOMStyleSheet) getDOMStyleSheetParentStyleSheet obj = liftIO $ getObjectPropertyObject obj "parent-style-sheet" DOMStyleSheet data DOMStyleSheetParentStyleSheetPropertyInfo instance AttrInfo DOMStyleSheetParentStyleSheetPropertyInfo where - type AttrAllowedOps DOMStyleSheetParentStyleSheetPropertyInfo = '[ 'AttrGet] + type AttrAllowedOps DOMStyleSheetParentStyleSheetPropertyInfo = '[ 'AttrGet, 'AttrClear] type AttrSetTypeConstraint DOMStyleSheetParentStyleSheetPropertyInfo = (~) () type AttrBaseTypeConstraint DOMStyleSheetParentStyleSheetPropertyInfo = DOMStyleSheetK - type AttrGetType DOMStyleSheetParentStyleSheetPropertyInfo = DOMStyleSheet + type AttrGetType DOMStyleSheetParentStyleSheetPropertyInfo = (Maybe DOMStyleSheet) type AttrLabel DOMStyleSheetParentStyleSheetPropertyInfo = "parent-style-sheet" attrGet _ = getDOMStyleSheetParentStyleSheet attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "title" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable] + -- Nullable: (Nothing,Nothing) -getDOMStyleSheetTitle :: (MonadIO m, DOMStyleSheetK o) => o -> m T.Text +getDOMStyleSheetTitle :: (MonadIO m, DOMStyleSheetK o) => o -> m (Maybe T.Text) getDOMStyleSheetTitle obj = liftIO $ getObjectPropertyString obj "title" data DOMStyleSheetTitlePropertyInfo instance AttrInfo DOMStyleSheetTitlePropertyInfo where - type AttrAllowedOps DOMStyleSheetTitlePropertyInfo = '[ 'AttrGet] + type AttrAllowedOps DOMStyleSheetTitlePropertyInfo = '[ 'AttrGet, 'AttrClear] type AttrSetTypeConstraint DOMStyleSheetTitlePropertyInfo = (~) () type AttrBaseTypeConstraint DOMStyleSheetTitlePropertyInfo = DOMStyleSheetK - type AttrGetType DOMStyleSheetTitlePropertyInfo = T.Text + type AttrGetType DOMStyleSheetTitlePropertyInfo = (Maybe T.Text) type AttrLabel DOMStyleSheetTitlePropertyInfo = "title" attrGet _ = getDOMStyleSheetTitle attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "type" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable] + -- Nullable: (Nothing,Nothing) -getDOMStyleSheetType :: (MonadIO m, DOMStyleSheetK o) => o -> m T.Text +getDOMStyleSheetType :: (MonadIO m, DOMStyleSheetK o) => o -> m (Maybe T.Text) getDOMStyleSheetType obj = liftIO $ getObjectPropertyString obj "type" data DOMStyleSheetTypePropertyInfo instance AttrInfo DOMStyleSheetTypePropertyInfo where - type AttrAllowedOps DOMStyleSheetTypePropertyInfo = '[ 'AttrGet] + type AttrAllowedOps DOMStyleSheetTypePropertyInfo = '[ 'AttrGet, 'AttrClear] type AttrSetTypeConstraint DOMStyleSheetTypePropertyInfo = (~) () type AttrBaseTypeConstraint DOMStyleSheetTypePropertyInfo = DOMStyleSheetK - type AttrGetType DOMStyleSheetTypePropertyInfo = T.Text + type AttrGetType DOMStyleSheetTypePropertyInfo = (Maybe T.Text) type AttrLabel DOMStyleSheetTypePropertyInfo = "type" attrGet _ = getDOMStyleSheetType attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined type instance AttributeList DOMStyleSheet = DOMStyleSheetAttributeList type DOMStyleSheetAttributeList = ('[ '("coreObject", DOMObjectCoreObjectPropertyInfo), '("disabled", DOMStyleSheetDisabledPropertyInfo), '("href", DOMStyleSheetHrefPropertyInfo), '("media", DOMStyleSheetMediaPropertyInfo), '("ownerNode", DOMStyleSheetOwnerNodePropertyInfo), '("parentStyleSheet", DOMStyleSheetParentStyleSheetPropertyInfo), '("title", DOMStyleSheetTitlePropertyInfo), '("type", DOMStyleSheetTypePropertyInfo)] :: [(Symbol, *)]) +dOMStyleSheetDisabled :: AttrLabelProxy "disabled" +dOMStyleSheetDisabled = AttrLabelProxy + +dOMStyleSheetHref :: AttrLabelProxy "href" +dOMStyleSheetHref = AttrLabelProxy + +dOMStyleSheetMedia :: AttrLabelProxy "media" +dOMStyleSheetMedia = AttrLabelProxy + +dOMStyleSheetOwnerNode :: AttrLabelProxy "ownerNode" +dOMStyleSheetOwnerNode = AttrLabelProxy + +dOMStyleSheetParentStyleSheet :: AttrLabelProxy "parentStyleSheet" +dOMStyleSheetParentStyleSheet = AttrLabelProxy + +dOMStyleSheetTitle :: AttrLabelProxy "title" +dOMStyleSheetTitle = AttrLabelProxy + +dOMStyleSheetType :: AttrLabelProxy "type" +dOMStyleSheetType = AttrLabelProxy + type instance SignalList DOMStyleSheet = DOMStyleSheetSignalList type DOMStyleSheetSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) @@ -310,7 +352,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMStyleSheet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -338,7 +380,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMStyleSheet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -368,7 +410,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMStyleSheet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit" "DOMMediaList" +-- returnType : Just (TInterface "WebKit" "DOMMediaList") -- throws : False -- Skip return : False @@ -397,7 +439,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMStyleSheet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit" "DOMNode" +-- returnType : Just (TInterface "WebKit" "DOMNode") -- throws : False -- Skip return : False @@ -426,7 +468,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMStyleSheet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit" "DOMStyleSheet" +-- returnType : Just (TInterface "WebKit" "DOMStyleSheet") -- throws : False -- Skip return : False @@ -455,7 +497,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMStyleSheet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -485,7 +527,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMStyleSheet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False diff --git a/GI/WebKit/Objects/DOMStyleSheet.hs-boot b/GI/WebKit/Objects/DOMStyleSheet.hs-boot --- a/GI/WebKit/Objects/DOMStyleSheet.hs-boot +++ b/GI/WebKit/Objects/DOMStyleSheet.hs-boot @@ -1,8 +1,8 @@ module GI.WebKit.Objects.DOMStyleSheet where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map diff --git a/GI/WebKit/Objects/DOMStyleSheetList.hs b/GI/WebKit/Objects/DOMStyleSheetList.hs --- a/GI/WebKit/Objects/DOMStyleSheetList.hs +++ b/GI/WebKit/Objects/DOMStyleSheetList.hs @@ -32,6 +32,7 @@ -- * Properties -- ** Length DOMStyleSheetListLengthPropertyInfo , + dOMStyleSheetListLength , getDOMStyleSheetListLength , @@ -39,9 +40,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map @@ -107,26 +108,31 @@ #endif -- VVV Prop "length" - -- Type: TBasicType TUInt64 + -- Type: TBasicType TULong -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) -getDOMStyleSheetListLength :: (MonadIO m, DOMStyleSheetListK o) => o -> m Word64 -getDOMStyleSheetListLength obj = liftIO $ getObjectPropertyUInt64 obj "length" +getDOMStyleSheetListLength :: (MonadIO m, DOMStyleSheetListK o) => o -> m CULong +getDOMStyleSheetListLength obj = liftIO $ getObjectPropertyULong obj "length" data DOMStyleSheetListLengthPropertyInfo instance AttrInfo DOMStyleSheetListLengthPropertyInfo where type AttrAllowedOps DOMStyleSheetListLengthPropertyInfo = '[ 'AttrGet] type AttrSetTypeConstraint DOMStyleSheetListLengthPropertyInfo = (~) () type AttrBaseTypeConstraint DOMStyleSheetListLengthPropertyInfo = DOMStyleSheetListK - type AttrGetType DOMStyleSheetListLengthPropertyInfo = Word64 + type AttrGetType DOMStyleSheetListLengthPropertyInfo = CULong type AttrLabel DOMStyleSheetListLengthPropertyInfo = "length" attrGet _ = getDOMStyleSheetListLength attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined type instance AttributeList DOMStyleSheetList = DOMStyleSheetListAttributeList type DOMStyleSheetListAttributeList = ('[ '("coreObject", DOMObjectCoreObjectPropertyInfo), '("length", DOMStyleSheetListLengthPropertyInfo)] :: [(Symbol, *)]) +dOMStyleSheetListLength :: AttrLabelProxy "length" +dOMStyleSheetListLength = AttrLabelProxy + type instance SignalList DOMStyleSheetList = DOMStyleSheetListSignalList type DOMStyleSheetListSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) @@ -134,19 +140,19 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMStyleSheetList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUInt64 +-- returnType : Just (TBasicType TULong) -- throws : False -- Skip return : False foreign import ccall "webkit_dom_style_sheet_list_get_length" webkit_dom_style_sheet_list_get_length :: Ptr DOMStyleSheetList -> -- _obj : TInterface "WebKit" "DOMStyleSheetList" - IO Word64 + IO CULong dOMStyleSheetListGetLength :: (MonadIO m, DOMStyleSheetListK a) => a -- _obj - -> m Word64 -- result + -> m CULong -- result dOMStyleSheetListGetLength _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- webkit_dom_style_sheet_list_get_length _obj' @@ -154,27 +160,27 @@ return result data DOMStyleSheetListGetLengthMethodInfo -instance (signature ~ (m Word64), MonadIO m, DOMStyleSheetListK a) => MethodInfo DOMStyleSheetListGetLengthMethodInfo a signature where +instance (signature ~ (m CULong), MonadIO m, DOMStyleSheetListK a) => MethodInfo DOMStyleSheetListGetLengthMethodInfo a signature where overloadedMethod _ = dOMStyleSheetListGetLength -- method DOMStyleSheetList::item -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMStyleSheetList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "index", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMStyleSheetList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "index", argType = TBasicType TULong, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit" "DOMStyleSheet" +-- returnType : Just (TInterface "WebKit" "DOMStyleSheet") -- throws : False -- Skip return : False foreign import ccall "webkit_dom_style_sheet_list_item" webkit_dom_style_sheet_list_item :: Ptr DOMStyleSheetList -> -- _obj : TInterface "WebKit" "DOMStyleSheetList" - Word64 -> -- index : TBasicType TUInt64 + CULong -> -- index : TBasicType TULong IO (Ptr DOMStyleSheet) dOMStyleSheetListItem :: (MonadIO m, DOMStyleSheetListK a) => a -- _obj - -> Word64 -- index + -> CULong -- index -> m DOMStyleSheet -- result dOMStyleSheetListItem _obj index = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj @@ -185,7 +191,7 @@ return result' data DOMStyleSheetListItemMethodInfo -instance (signature ~ (Word64 -> m DOMStyleSheet), MonadIO m, DOMStyleSheetListK a) => MethodInfo DOMStyleSheetListItemMethodInfo a signature where +instance (signature ~ (CULong -> m DOMStyleSheet), MonadIO m, DOMStyleSheetListK a) => MethodInfo DOMStyleSheetListItemMethodInfo a signature where overloadedMethod _ = dOMStyleSheetListItem diff --git a/GI/WebKit/Objects/DOMStyleSheetList.hs-boot b/GI/WebKit/Objects/DOMStyleSheetList.hs-boot --- a/GI/WebKit/Objects/DOMStyleSheetList.hs-boot +++ b/GI/WebKit/Objects/DOMStyleSheetList.hs-boot @@ -1,8 +1,8 @@ module GI.WebKit.Objects.DOMStyleSheetList where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map diff --git a/GI/WebKit/Objects/DOMText.hs b/GI/WebKit/Objects/DOMText.hs --- a/GI/WebKit/Objects/DOMText.hs +++ b/GI/WebKit/Objects/DOMText.hs @@ -37,6 +37,7 @@ -- * Properties -- ** WholeText DOMTextWholeTextPropertyInfo , + dOMTextWholeText , getDOMTextWholeText , @@ -44,9 +45,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map @@ -156,24 +157,29 @@ -- VVV Prop "whole-text" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable] + -- Nullable: (Nothing,Nothing) -getDOMTextWholeText :: (MonadIO m, DOMTextK o) => o -> m T.Text +getDOMTextWholeText :: (MonadIO m, DOMTextK o) => o -> m (Maybe T.Text) getDOMTextWholeText obj = liftIO $ getObjectPropertyString obj "whole-text" data DOMTextWholeTextPropertyInfo instance AttrInfo DOMTextWholeTextPropertyInfo where - type AttrAllowedOps DOMTextWholeTextPropertyInfo = '[ 'AttrGet] + type AttrAllowedOps DOMTextWholeTextPropertyInfo = '[ 'AttrGet, 'AttrClear] type AttrSetTypeConstraint DOMTextWholeTextPropertyInfo = (~) () type AttrBaseTypeConstraint DOMTextWholeTextPropertyInfo = DOMTextK - type AttrGetType DOMTextWholeTextPropertyInfo = T.Text + type AttrGetType DOMTextWholeTextPropertyInfo = (Maybe T.Text) type AttrLabel DOMTextWholeTextPropertyInfo = "whole-text" attrGet _ = getDOMTextWholeText attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined type instance AttributeList DOMText = DOMTextAttributeList type DOMTextAttributeList = ('[ '("baseUri", DOMNodeBaseUriPropertyInfo), '("childNodes", DOMNodeChildNodesPropertyInfo), '("coreObject", DOMObjectCoreObjectPropertyInfo), '("data", DOMCharacterDataDataPropertyInfo), '("firstChild", DOMNodeFirstChildPropertyInfo), '("lastChild", DOMNodeLastChildPropertyInfo), '("length", DOMCharacterDataLengthPropertyInfo), '("localName", DOMNodeLocalNamePropertyInfo), '("namespaceUri", DOMNodeNamespaceUriPropertyInfo), '("nextSibling", DOMNodeNextSiblingPropertyInfo), '("nodeName", DOMNodeNodeNamePropertyInfo), '("nodeType", DOMNodeNodeTypePropertyInfo), '("nodeValue", DOMNodeNodeValuePropertyInfo), '("ownerDocument", DOMNodeOwnerDocumentPropertyInfo), '("parentElement", DOMNodeParentElementPropertyInfo), '("parentNode", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previousSibling", DOMNodePreviousSiblingPropertyInfo), '("textContent", DOMNodeTextContentPropertyInfo), '("wholeText", DOMTextWholeTextPropertyInfo)] :: [(Symbol, *)]) +dOMTextWholeText :: AttrLabelProxy "wholeText" +dOMTextWholeText = AttrLabelProxy + type instance SignalList DOMText = DOMTextSignalList type DOMTextSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) @@ -181,7 +187,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMText", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -211,7 +217,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMText", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "content", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit" "DOMText" +-- returnType : Just (TInterface "WebKit" "DOMText") -- throws : True -- Skip return : False @@ -247,15 +253,15 @@ -- method DOMText::split_text -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMText", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "offset", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMText", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "offset", argType = TBasicType TULong, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit" "DOMText" +-- returnType : Just (TInterface "WebKit" "DOMText") -- throws : True -- Skip return : False foreign import ccall "webkit_dom_text_split_text" webkit_dom_text_split_text :: Ptr DOMText -> -- _obj : TInterface "WebKit" "DOMText" - Word64 -> -- offset : TBasicType TUInt64 + CULong -> -- offset : TBasicType TULong Ptr (Ptr GError) -> -- error IO (Ptr DOMText) @@ -263,7 +269,7 @@ dOMTextSplitText :: (MonadIO m, DOMTextK a) => a -- _obj - -> Word64 -- offset + -> CULong -- offset -> m DOMText -- result dOMTextSplitText _obj offset = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj @@ -278,7 +284,7 @@ ) data DOMTextSplitTextMethodInfo -instance (signature ~ (Word64 -> m DOMText), MonadIO m, DOMTextK a) => MethodInfo DOMTextSplitTextMethodInfo a signature where +instance (signature ~ (CULong -> m DOMText), MonadIO m, DOMTextK a) => MethodInfo DOMTextSplitTextMethodInfo a signature where overloadedMethod _ = dOMTextSplitText diff --git a/GI/WebKit/Objects/DOMText.hs-boot b/GI/WebKit/Objects/DOMText.hs-boot --- a/GI/WebKit/Objects/DOMText.hs-boot +++ b/GI/WebKit/Objects/DOMText.hs-boot @@ -1,8 +1,8 @@ module GI.WebKit.Objects.DOMText where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map diff --git a/GI/WebKit/Objects/DOMTextTrack.hs b/GI/WebKit/Objects/DOMTextTrack.hs --- a/GI/WebKit/Objects/DOMTextTrack.hs +++ b/GI/WebKit/Objects/DOMTextTrack.hs @@ -77,37 +77,44 @@ -- * Properties -- ** ActiveCues DOMTextTrackActiveCuesPropertyInfo , + dOMTextTrackActiveCues , getDOMTextTrackActiveCues , -- ** Cues DOMTextTrackCuesPropertyInfo , + dOMTextTrackCues , getDOMTextTrackCues , -- ** Id DOMTextTrackIdPropertyInfo , + dOMTextTrackId , getDOMTextTrackId , -- ** Kind DOMTextTrackKindPropertyInfo , + dOMTextTrackKind , getDOMTextTrackKind , -- ** Label DOMTextTrackLabelPropertyInfo , + dOMTextTrackLabel , getDOMTextTrackLabel , -- ** Language DOMTextTrackLanguagePropertyInfo , + dOMTextTrackLanguage , getDOMTextTrackLanguage , -- ** Mode DOMTextTrackModePropertyInfo , constructDOMTextTrackMode , + dOMTextTrackMode , getDOMTextTrackMode , setDOMTextTrackMode , @@ -116,9 +123,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map @@ -196,138 +203,173 @@ -- VVV Prop "active-cues" -- Type: TInterface "WebKit" "DOMTextTrackCueList" -- Flags: [PropertyReadable] + -- Nullable: (Nothing,Nothing) -getDOMTextTrackActiveCues :: (MonadIO m, DOMTextTrackK o) => o -> m DOMTextTrackCueList +getDOMTextTrackActiveCues :: (MonadIO m, DOMTextTrackK o) => o -> m (Maybe DOMTextTrackCueList) getDOMTextTrackActiveCues obj = liftIO $ getObjectPropertyObject obj "active-cues" DOMTextTrackCueList data DOMTextTrackActiveCuesPropertyInfo instance AttrInfo DOMTextTrackActiveCuesPropertyInfo where - type AttrAllowedOps DOMTextTrackActiveCuesPropertyInfo = '[ 'AttrGet] + type AttrAllowedOps DOMTextTrackActiveCuesPropertyInfo = '[ 'AttrGet, 'AttrClear] type AttrSetTypeConstraint DOMTextTrackActiveCuesPropertyInfo = (~) () type AttrBaseTypeConstraint DOMTextTrackActiveCuesPropertyInfo = DOMTextTrackK - type AttrGetType DOMTextTrackActiveCuesPropertyInfo = DOMTextTrackCueList + type AttrGetType DOMTextTrackActiveCuesPropertyInfo = (Maybe DOMTextTrackCueList) type AttrLabel DOMTextTrackActiveCuesPropertyInfo = "active-cues" attrGet _ = getDOMTextTrackActiveCues attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "cues" -- Type: TInterface "WebKit" "DOMTextTrackCueList" -- Flags: [PropertyReadable] + -- Nullable: (Nothing,Nothing) -getDOMTextTrackCues :: (MonadIO m, DOMTextTrackK o) => o -> m DOMTextTrackCueList +getDOMTextTrackCues :: (MonadIO m, DOMTextTrackK o) => o -> m (Maybe DOMTextTrackCueList) getDOMTextTrackCues obj = liftIO $ getObjectPropertyObject obj "cues" DOMTextTrackCueList data DOMTextTrackCuesPropertyInfo instance AttrInfo DOMTextTrackCuesPropertyInfo where - type AttrAllowedOps DOMTextTrackCuesPropertyInfo = '[ 'AttrGet] + type AttrAllowedOps DOMTextTrackCuesPropertyInfo = '[ 'AttrGet, 'AttrClear] type AttrSetTypeConstraint DOMTextTrackCuesPropertyInfo = (~) () type AttrBaseTypeConstraint DOMTextTrackCuesPropertyInfo = DOMTextTrackK - type AttrGetType DOMTextTrackCuesPropertyInfo = DOMTextTrackCueList + type AttrGetType DOMTextTrackCuesPropertyInfo = (Maybe DOMTextTrackCueList) type AttrLabel DOMTextTrackCuesPropertyInfo = "cues" attrGet _ = getDOMTextTrackCues attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "id" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable] + -- Nullable: (Nothing,Nothing) -getDOMTextTrackId :: (MonadIO m, DOMTextTrackK o) => o -> m T.Text +getDOMTextTrackId :: (MonadIO m, DOMTextTrackK o) => o -> m (Maybe T.Text) getDOMTextTrackId obj = liftIO $ getObjectPropertyString obj "id" data DOMTextTrackIdPropertyInfo instance AttrInfo DOMTextTrackIdPropertyInfo where - type AttrAllowedOps DOMTextTrackIdPropertyInfo = '[ 'AttrGet] + type AttrAllowedOps DOMTextTrackIdPropertyInfo = '[ 'AttrGet, 'AttrClear] type AttrSetTypeConstraint DOMTextTrackIdPropertyInfo = (~) () type AttrBaseTypeConstraint DOMTextTrackIdPropertyInfo = DOMTextTrackK - type AttrGetType DOMTextTrackIdPropertyInfo = T.Text + type AttrGetType DOMTextTrackIdPropertyInfo = (Maybe T.Text) type AttrLabel DOMTextTrackIdPropertyInfo = "id" attrGet _ = getDOMTextTrackId attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "kind" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable] + -- Nullable: (Nothing,Nothing) -getDOMTextTrackKind :: (MonadIO m, DOMTextTrackK o) => o -> m T.Text +getDOMTextTrackKind :: (MonadIO m, DOMTextTrackK o) => o -> m (Maybe T.Text) getDOMTextTrackKind obj = liftIO $ getObjectPropertyString obj "kind" data DOMTextTrackKindPropertyInfo instance AttrInfo DOMTextTrackKindPropertyInfo where - type AttrAllowedOps DOMTextTrackKindPropertyInfo = '[ 'AttrGet] + type AttrAllowedOps DOMTextTrackKindPropertyInfo = '[ 'AttrGet, 'AttrClear] type AttrSetTypeConstraint DOMTextTrackKindPropertyInfo = (~) () type AttrBaseTypeConstraint DOMTextTrackKindPropertyInfo = DOMTextTrackK - type AttrGetType DOMTextTrackKindPropertyInfo = T.Text + type AttrGetType DOMTextTrackKindPropertyInfo = (Maybe T.Text) type AttrLabel DOMTextTrackKindPropertyInfo = "kind" attrGet _ = getDOMTextTrackKind attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "label" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable] + -- Nullable: (Nothing,Nothing) -getDOMTextTrackLabel :: (MonadIO m, DOMTextTrackK o) => o -> m T.Text +getDOMTextTrackLabel :: (MonadIO m, DOMTextTrackK o) => o -> m (Maybe T.Text) getDOMTextTrackLabel obj = liftIO $ getObjectPropertyString obj "label" data DOMTextTrackLabelPropertyInfo instance AttrInfo DOMTextTrackLabelPropertyInfo where - type AttrAllowedOps DOMTextTrackLabelPropertyInfo = '[ 'AttrGet] + type AttrAllowedOps DOMTextTrackLabelPropertyInfo = '[ 'AttrGet, 'AttrClear] type AttrSetTypeConstraint DOMTextTrackLabelPropertyInfo = (~) () type AttrBaseTypeConstraint DOMTextTrackLabelPropertyInfo = DOMTextTrackK - type AttrGetType DOMTextTrackLabelPropertyInfo = T.Text + type AttrGetType DOMTextTrackLabelPropertyInfo = (Maybe T.Text) type AttrLabel DOMTextTrackLabelPropertyInfo = "label" attrGet _ = getDOMTextTrackLabel attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "language" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable] + -- Nullable: (Nothing,Nothing) -getDOMTextTrackLanguage :: (MonadIO m, DOMTextTrackK o) => o -> m T.Text +getDOMTextTrackLanguage :: (MonadIO m, DOMTextTrackK o) => o -> m (Maybe T.Text) getDOMTextTrackLanguage obj = liftIO $ getObjectPropertyString obj "language" data DOMTextTrackLanguagePropertyInfo instance AttrInfo DOMTextTrackLanguagePropertyInfo where - type AttrAllowedOps DOMTextTrackLanguagePropertyInfo = '[ 'AttrGet] + type AttrAllowedOps DOMTextTrackLanguagePropertyInfo = '[ 'AttrGet, 'AttrClear] type AttrSetTypeConstraint DOMTextTrackLanguagePropertyInfo = (~) () type AttrBaseTypeConstraint DOMTextTrackLanguagePropertyInfo = DOMTextTrackK - type AttrGetType DOMTextTrackLanguagePropertyInfo = T.Text + type AttrGetType DOMTextTrackLanguagePropertyInfo = (Maybe T.Text) type AttrLabel DOMTextTrackLanguagePropertyInfo = "language" attrGet _ = getDOMTextTrackLanguage attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "mode" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Just False) -getDOMTextTrackMode :: (MonadIO m, DOMTextTrackK o) => o -> m T.Text +getDOMTextTrackMode :: (MonadIO m, DOMTextTrackK o) => o -> m (Maybe T.Text) getDOMTextTrackMode obj = liftIO $ getObjectPropertyString obj "mode" setDOMTextTrackMode :: (MonadIO m, DOMTextTrackK o) => o -> T.Text -> m () -setDOMTextTrackMode obj val = liftIO $ setObjectPropertyString obj "mode" val +setDOMTextTrackMode obj val = liftIO $ setObjectPropertyString obj "mode" (Just val) constructDOMTextTrackMode :: T.Text -> IO ([Char], GValue) -constructDOMTextTrackMode val = constructObjectPropertyString "mode" val +constructDOMTextTrackMode val = constructObjectPropertyString "mode" (Just val) data DOMTextTrackModePropertyInfo instance AttrInfo DOMTextTrackModePropertyInfo where type AttrAllowedOps DOMTextTrackModePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint DOMTextTrackModePropertyInfo = (~) T.Text type AttrBaseTypeConstraint DOMTextTrackModePropertyInfo = DOMTextTrackK - type AttrGetType DOMTextTrackModePropertyInfo = T.Text + type AttrGetType DOMTextTrackModePropertyInfo = (Maybe T.Text) type AttrLabel DOMTextTrackModePropertyInfo = "mode" attrGet _ = getDOMTextTrackMode attrSet _ = setDOMTextTrackMode attrConstruct _ = constructDOMTextTrackMode + attrClear _ = undefined type instance AttributeList DOMTextTrack = DOMTextTrackAttributeList type DOMTextTrackAttributeList = ('[ '("activeCues", DOMTextTrackActiveCuesPropertyInfo), '("coreObject", DOMObjectCoreObjectPropertyInfo), '("cues", DOMTextTrackCuesPropertyInfo), '("id", DOMTextTrackIdPropertyInfo), '("kind", DOMTextTrackKindPropertyInfo), '("label", DOMTextTrackLabelPropertyInfo), '("language", DOMTextTrackLanguagePropertyInfo), '("mode", DOMTextTrackModePropertyInfo)] :: [(Symbol, *)]) +dOMTextTrackActiveCues :: AttrLabelProxy "activeCues" +dOMTextTrackActiveCues = AttrLabelProxy + +dOMTextTrackCues :: AttrLabelProxy "cues" +dOMTextTrackCues = AttrLabelProxy + +dOMTextTrackId :: AttrLabelProxy "id" +dOMTextTrackId = AttrLabelProxy + +dOMTextTrackKind :: AttrLabelProxy "kind" +dOMTextTrackKind = AttrLabelProxy + +dOMTextTrackLabel :: AttrLabelProxy "label" +dOMTextTrackLabel = AttrLabelProxy + +dOMTextTrackLanguage :: AttrLabelProxy "language" +dOMTextTrackLanguage = AttrLabelProxy + +dOMTextTrackMode :: AttrLabelProxy "mode" +dOMTextTrackMode = AttrLabelProxy + type instance SignalList DOMTextTrack = DOMTextTrackSignalList type DOMTextTrackSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) @@ -335,7 +377,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMTextTrack", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cue", argType = TInterface "WebKit" "DOMTextTrackCue", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -366,7 +408,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMTextTrack", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "evt", argType = TInterface "WebKit" "DOMEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : True -- Skip return : False @@ -402,7 +444,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMTextTrack", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit" "DOMTextTrackCueList" +-- returnType : Just (TInterface "WebKit" "DOMTextTrackCueList") -- throws : False -- Skip return : False @@ -431,7 +473,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMTextTrack", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit" "DOMTextTrackCueList" +-- returnType : Just (TInterface "WebKit" "DOMTextTrackCueList") -- throws : False -- Skip return : False @@ -460,7 +502,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMTextTrack", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -490,7 +532,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMTextTrack", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -520,7 +562,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMTextTrack", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -550,7 +592,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMTextTrack", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -580,7 +622,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMTextTrack", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -610,7 +652,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMTextTrack", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cue", argType = TInterface "WebKit" "DOMTextTrackCue", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : True -- Skip return : False @@ -646,7 +688,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMTextTrack", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False diff --git a/GI/WebKit/Objects/DOMTextTrack.hs-boot b/GI/WebKit/Objects/DOMTextTrack.hs-boot --- a/GI/WebKit/Objects/DOMTextTrack.hs-boot +++ b/GI/WebKit/Objects/DOMTextTrack.hs-boot @@ -1,8 +1,8 @@ module GI.WebKit.Objects.DOMTextTrack where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map diff --git a/GI/WebKit/Objects/DOMTextTrackCue.hs b/GI/WebKit/Objects/DOMTextTrackCue.hs --- a/GI/WebKit/Objects/DOMTextTrackCue.hs +++ b/GI/WebKit/Objects/DOMTextTrackCue.hs @@ -147,7 +147,9 @@ -- * Properties -- ** Align DOMTextTrackCueAlignPropertyInfo , + clearDOMTextTrackCueAlign , constructDOMTextTrackCueAlign , + dOMTextTrackCueAlign , getDOMTextTrackCueAlign , setDOMTextTrackCueAlign , @@ -155,6 +157,7 @@ -- ** EndTime DOMTextTrackCueEndTimePropertyInfo , constructDOMTextTrackCueEndTime , + dOMTextTrackCueEndTime , getDOMTextTrackCueEndTime , setDOMTextTrackCueEndTime , @@ -162,6 +165,7 @@ -- ** Id DOMTextTrackCueIdPropertyInfo , constructDOMTextTrackCueId , + dOMTextTrackCueId , getDOMTextTrackCueId , setDOMTextTrackCueId , @@ -169,6 +173,7 @@ -- ** Line DOMTextTrackCueLinePropertyInfo , constructDOMTextTrackCueLine , + dOMTextTrackCueLine , getDOMTextTrackCueLine , setDOMTextTrackCueLine , @@ -176,6 +181,7 @@ -- ** PauseOnExit DOMTextTrackCuePauseOnExitPropertyInfo , constructDOMTextTrackCuePauseOnExit , + dOMTextTrackCuePauseOnExit , getDOMTextTrackCuePauseOnExit , setDOMTextTrackCuePauseOnExit , @@ -183,6 +189,7 @@ -- ** Position DOMTextTrackCuePositionPropertyInfo , constructDOMTextTrackCuePosition , + dOMTextTrackCuePosition , getDOMTextTrackCuePosition , setDOMTextTrackCuePosition , @@ -190,6 +197,7 @@ -- ** Size DOMTextTrackCueSizePropertyInfo , constructDOMTextTrackCueSize , + dOMTextTrackCueSize , getDOMTextTrackCueSize , setDOMTextTrackCueSize , @@ -197,6 +205,7 @@ -- ** SnapToLines DOMTextTrackCueSnapToLinesPropertyInfo , constructDOMTextTrackCueSnapToLines , + dOMTextTrackCueSnapToLines , getDOMTextTrackCueSnapToLines , setDOMTextTrackCueSnapToLines , @@ -204,6 +213,7 @@ -- ** StartTime DOMTextTrackCueStartTimePropertyInfo , constructDOMTextTrackCueStartTime , + dOMTextTrackCueStartTime , getDOMTextTrackCueStartTime , setDOMTextTrackCueStartTime , @@ -211,18 +221,22 @@ -- ** Text DOMTextTrackCueTextPropertyInfo , constructDOMTextTrackCueText , + dOMTextTrackCueText , getDOMTextTrackCueText , setDOMTextTrackCueText , -- ** Track DOMTextTrackCueTrackPropertyInfo , + dOMTextTrackCueTrack , getDOMTextTrackCueTrack , -- ** Vertical DOMTextTrackCueVerticalPropertyInfo , + clearDOMTextTrackCueVertical , constructDOMTextTrackCueVertical , + dOMTextTrackCueVertical , getDOMTextTrackCueVertical , setDOMTextTrackCueVertical , @@ -231,9 +245,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map @@ -325,30 +339,36 @@ -- VVV Prop "align" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) -getDOMTextTrackCueAlign :: (MonadIO m, DOMTextTrackCueK o) => o -> m T.Text +getDOMTextTrackCueAlign :: (MonadIO m, DOMTextTrackCueK o) => o -> m (Maybe T.Text) getDOMTextTrackCueAlign obj = liftIO $ getObjectPropertyString obj "align" setDOMTextTrackCueAlign :: (MonadIO m, DOMTextTrackCueK o) => o -> T.Text -> m () -setDOMTextTrackCueAlign obj val = liftIO $ setObjectPropertyString obj "align" val +setDOMTextTrackCueAlign obj val = liftIO $ setObjectPropertyString obj "align" (Just val) constructDOMTextTrackCueAlign :: T.Text -> IO ([Char], GValue) -constructDOMTextTrackCueAlign val = constructObjectPropertyString "align" val +constructDOMTextTrackCueAlign val = constructObjectPropertyString "align" (Just val) +clearDOMTextTrackCueAlign :: (MonadIO m, DOMTextTrackCueK o) => o -> m () +clearDOMTextTrackCueAlign obj = liftIO $ setObjectPropertyString obj "align" (Nothing :: Maybe T.Text) + data DOMTextTrackCueAlignPropertyInfo instance AttrInfo DOMTextTrackCueAlignPropertyInfo where - type AttrAllowedOps DOMTextTrackCueAlignPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrAllowedOps DOMTextTrackCueAlignPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint DOMTextTrackCueAlignPropertyInfo = (~) T.Text type AttrBaseTypeConstraint DOMTextTrackCueAlignPropertyInfo = DOMTextTrackCueK - type AttrGetType DOMTextTrackCueAlignPropertyInfo = T.Text + type AttrGetType DOMTextTrackCueAlignPropertyInfo = (Maybe T.Text) type AttrLabel DOMTextTrackCueAlignPropertyInfo = "align" attrGet _ = getDOMTextTrackCueAlign attrSet _ = setDOMTextTrackCueAlign attrConstruct _ = constructDOMTextTrackCueAlign + attrClear _ = clearDOMTextTrackCueAlign -- VVV Prop "end-time" -- Type: TBasicType TDouble -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Nothing) getDOMTextTrackCueEndTime :: (MonadIO m, DOMTextTrackCueK o) => o -> m Double getDOMTextTrackCueEndTime obj = liftIO $ getObjectPropertyDouble obj "end-time" @@ -369,58 +389,64 @@ attrGet _ = getDOMTextTrackCueEndTime attrSet _ = setDOMTextTrackCueEndTime attrConstruct _ = constructDOMTextTrackCueEndTime + attrClear _ = undefined -- VVV Prop "id" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Just False) -getDOMTextTrackCueId :: (MonadIO m, DOMTextTrackCueK o) => o -> m T.Text +getDOMTextTrackCueId :: (MonadIO m, DOMTextTrackCueK o) => o -> m (Maybe T.Text) getDOMTextTrackCueId obj = liftIO $ getObjectPropertyString obj "id" setDOMTextTrackCueId :: (MonadIO m, DOMTextTrackCueK o) => o -> T.Text -> m () -setDOMTextTrackCueId obj val = liftIO $ setObjectPropertyString obj "id" val +setDOMTextTrackCueId obj val = liftIO $ setObjectPropertyString obj "id" (Just val) constructDOMTextTrackCueId :: T.Text -> IO ([Char], GValue) -constructDOMTextTrackCueId val = constructObjectPropertyString "id" val +constructDOMTextTrackCueId val = constructObjectPropertyString "id" (Just val) data DOMTextTrackCueIdPropertyInfo instance AttrInfo DOMTextTrackCueIdPropertyInfo where type AttrAllowedOps DOMTextTrackCueIdPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint DOMTextTrackCueIdPropertyInfo = (~) T.Text type AttrBaseTypeConstraint DOMTextTrackCueIdPropertyInfo = DOMTextTrackCueK - type AttrGetType DOMTextTrackCueIdPropertyInfo = T.Text + type AttrGetType DOMTextTrackCueIdPropertyInfo = (Maybe T.Text) type AttrLabel DOMTextTrackCueIdPropertyInfo = "id" attrGet _ = getDOMTextTrackCueId attrSet _ = setDOMTextTrackCueId attrConstruct _ = constructDOMTextTrackCueId + attrClear _ = undefined -- VVV Prop "line" - -- Type: TBasicType TInt64 + -- Type: TBasicType TLong -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Nothing) -getDOMTextTrackCueLine :: (MonadIO m, DOMTextTrackCueK o) => o -> m Int64 -getDOMTextTrackCueLine obj = liftIO $ getObjectPropertyInt64 obj "line" +getDOMTextTrackCueLine :: (MonadIO m, DOMTextTrackCueK o) => o -> m CLong +getDOMTextTrackCueLine obj = liftIO $ getObjectPropertyLong obj "line" -setDOMTextTrackCueLine :: (MonadIO m, DOMTextTrackCueK o) => o -> Int64 -> m () -setDOMTextTrackCueLine obj val = liftIO $ setObjectPropertyInt64 obj "line" val +setDOMTextTrackCueLine :: (MonadIO m, DOMTextTrackCueK o) => o -> CLong -> m () +setDOMTextTrackCueLine obj val = liftIO $ setObjectPropertyLong obj "line" val -constructDOMTextTrackCueLine :: Int64 -> IO ([Char], GValue) -constructDOMTextTrackCueLine val = constructObjectPropertyInt64 "line" val +constructDOMTextTrackCueLine :: CLong -> IO ([Char], GValue) +constructDOMTextTrackCueLine val = constructObjectPropertyLong "line" val data DOMTextTrackCueLinePropertyInfo instance AttrInfo DOMTextTrackCueLinePropertyInfo where type AttrAllowedOps DOMTextTrackCueLinePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMTextTrackCueLinePropertyInfo = (~) Int64 + type AttrSetTypeConstraint DOMTextTrackCueLinePropertyInfo = (~) CLong type AttrBaseTypeConstraint DOMTextTrackCueLinePropertyInfo = DOMTextTrackCueK - type AttrGetType DOMTextTrackCueLinePropertyInfo = Int64 + type AttrGetType DOMTextTrackCueLinePropertyInfo = CLong type AttrLabel DOMTextTrackCueLinePropertyInfo = "line" attrGet _ = getDOMTextTrackCueLine attrSet _ = setDOMTextTrackCueLine attrConstruct _ = constructDOMTextTrackCueLine + attrClear _ = undefined -- VVV Prop "pause-on-exit" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getDOMTextTrackCuePauseOnExit :: (MonadIO m, DOMTextTrackCueK o) => o -> m Bool getDOMTextTrackCuePauseOnExit obj = liftIO $ getObjectPropertyBool obj "pause-on-exit" @@ -441,58 +467,64 @@ attrGet _ = getDOMTextTrackCuePauseOnExit attrSet _ = setDOMTextTrackCuePauseOnExit attrConstruct _ = constructDOMTextTrackCuePauseOnExit + attrClear _ = undefined -- VVV Prop "position" - -- Type: TBasicType TInt64 + -- Type: TBasicType TLong -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Nothing) -getDOMTextTrackCuePosition :: (MonadIO m, DOMTextTrackCueK o) => o -> m Int64 -getDOMTextTrackCuePosition obj = liftIO $ getObjectPropertyInt64 obj "position" +getDOMTextTrackCuePosition :: (MonadIO m, DOMTextTrackCueK o) => o -> m CLong +getDOMTextTrackCuePosition obj = liftIO $ getObjectPropertyLong obj "position" -setDOMTextTrackCuePosition :: (MonadIO m, DOMTextTrackCueK o) => o -> Int64 -> m () -setDOMTextTrackCuePosition obj val = liftIO $ setObjectPropertyInt64 obj "position" val +setDOMTextTrackCuePosition :: (MonadIO m, DOMTextTrackCueK o) => o -> CLong -> m () +setDOMTextTrackCuePosition obj val = liftIO $ setObjectPropertyLong obj "position" val -constructDOMTextTrackCuePosition :: Int64 -> IO ([Char], GValue) -constructDOMTextTrackCuePosition val = constructObjectPropertyInt64 "position" val +constructDOMTextTrackCuePosition :: CLong -> IO ([Char], GValue) +constructDOMTextTrackCuePosition val = constructObjectPropertyLong "position" val data DOMTextTrackCuePositionPropertyInfo instance AttrInfo DOMTextTrackCuePositionPropertyInfo where type AttrAllowedOps DOMTextTrackCuePositionPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMTextTrackCuePositionPropertyInfo = (~) Int64 + type AttrSetTypeConstraint DOMTextTrackCuePositionPropertyInfo = (~) CLong type AttrBaseTypeConstraint DOMTextTrackCuePositionPropertyInfo = DOMTextTrackCueK - type AttrGetType DOMTextTrackCuePositionPropertyInfo = Int64 + type AttrGetType DOMTextTrackCuePositionPropertyInfo = CLong type AttrLabel DOMTextTrackCuePositionPropertyInfo = "position" attrGet _ = getDOMTextTrackCuePosition attrSet _ = setDOMTextTrackCuePosition attrConstruct _ = constructDOMTextTrackCuePosition + attrClear _ = undefined -- VVV Prop "size" - -- Type: TBasicType TInt64 + -- Type: TBasicType TLong -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Nothing) -getDOMTextTrackCueSize :: (MonadIO m, DOMTextTrackCueK o) => o -> m Int64 -getDOMTextTrackCueSize obj = liftIO $ getObjectPropertyInt64 obj "size" +getDOMTextTrackCueSize :: (MonadIO m, DOMTextTrackCueK o) => o -> m CLong +getDOMTextTrackCueSize obj = liftIO $ getObjectPropertyLong obj "size" -setDOMTextTrackCueSize :: (MonadIO m, DOMTextTrackCueK o) => o -> Int64 -> m () -setDOMTextTrackCueSize obj val = liftIO $ setObjectPropertyInt64 obj "size" val +setDOMTextTrackCueSize :: (MonadIO m, DOMTextTrackCueK o) => o -> CLong -> m () +setDOMTextTrackCueSize obj val = liftIO $ setObjectPropertyLong obj "size" val -constructDOMTextTrackCueSize :: Int64 -> IO ([Char], GValue) -constructDOMTextTrackCueSize val = constructObjectPropertyInt64 "size" val +constructDOMTextTrackCueSize :: CLong -> IO ([Char], GValue) +constructDOMTextTrackCueSize val = constructObjectPropertyLong "size" val data DOMTextTrackCueSizePropertyInfo instance AttrInfo DOMTextTrackCueSizePropertyInfo where type AttrAllowedOps DOMTextTrackCueSizePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMTextTrackCueSizePropertyInfo = (~) Int64 + type AttrSetTypeConstraint DOMTextTrackCueSizePropertyInfo = (~) CLong type AttrBaseTypeConstraint DOMTextTrackCueSizePropertyInfo = DOMTextTrackCueK - type AttrGetType DOMTextTrackCueSizePropertyInfo = Int64 + type AttrGetType DOMTextTrackCueSizePropertyInfo = CLong type AttrLabel DOMTextTrackCueSizePropertyInfo = "size" attrGet _ = getDOMTextTrackCueSize attrSet _ = setDOMTextTrackCueSize attrConstruct _ = constructDOMTextTrackCueSize + attrClear _ = undefined -- VVV Prop "snap-to-lines" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getDOMTextTrackCueSnapToLines :: (MonadIO m, DOMTextTrackCueK o) => o -> m Bool getDOMTextTrackCueSnapToLines obj = liftIO $ getObjectPropertyBool obj "snap-to-lines" @@ -513,10 +545,12 @@ attrGet _ = getDOMTextTrackCueSnapToLines attrSet _ = setDOMTextTrackCueSnapToLines attrConstruct _ = constructDOMTextTrackCueSnapToLines + attrClear _ = undefined -- VVV Prop "start-time" -- Type: TBasicType TDouble -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Nothing) getDOMTextTrackCueStartTime :: (MonadIO m, DOMTextTrackCueK o) => o -> m Double getDOMTextTrackCueStartTime obj = liftIO $ getObjectPropertyDouble obj "start-time" @@ -537,76 +571,122 @@ attrGet _ = getDOMTextTrackCueStartTime attrSet _ = setDOMTextTrackCueStartTime attrConstruct _ = constructDOMTextTrackCueStartTime + attrClear _ = undefined -- VVV Prop "text" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Just False) -getDOMTextTrackCueText :: (MonadIO m, DOMTextTrackCueK o) => o -> m T.Text +getDOMTextTrackCueText :: (MonadIO m, DOMTextTrackCueK o) => o -> m (Maybe T.Text) getDOMTextTrackCueText obj = liftIO $ getObjectPropertyString obj "text" setDOMTextTrackCueText :: (MonadIO m, DOMTextTrackCueK o) => o -> T.Text -> m () -setDOMTextTrackCueText obj val = liftIO $ setObjectPropertyString obj "text" val +setDOMTextTrackCueText obj val = liftIO $ setObjectPropertyString obj "text" (Just val) constructDOMTextTrackCueText :: T.Text -> IO ([Char], GValue) -constructDOMTextTrackCueText val = constructObjectPropertyString "text" val +constructDOMTextTrackCueText val = constructObjectPropertyString "text" (Just val) data DOMTextTrackCueTextPropertyInfo instance AttrInfo DOMTextTrackCueTextPropertyInfo where type AttrAllowedOps DOMTextTrackCueTextPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint DOMTextTrackCueTextPropertyInfo = (~) T.Text type AttrBaseTypeConstraint DOMTextTrackCueTextPropertyInfo = DOMTextTrackCueK - type AttrGetType DOMTextTrackCueTextPropertyInfo = T.Text + type AttrGetType DOMTextTrackCueTextPropertyInfo = (Maybe T.Text) type AttrLabel DOMTextTrackCueTextPropertyInfo = "text" attrGet _ = getDOMTextTrackCueText attrSet _ = setDOMTextTrackCueText attrConstruct _ = constructDOMTextTrackCueText + attrClear _ = undefined -- VVV Prop "track" -- Type: TInterface "WebKit" "DOMTextTrack" -- Flags: [PropertyReadable] + -- Nullable: (Nothing,Nothing) -getDOMTextTrackCueTrack :: (MonadIO m, DOMTextTrackCueK o) => o -> m DOMTextTrack +getDOMTextTrackCueTrack :: (MonadIO m, DOMTextTrackCueK o) => o -> m (Maybe DOMTextTrack) getDOMTextTrackCueTrack obj = liftIO $ getObjectPropertyObject obj "track" DOMTextTrack data DOMTextTrackCueTrackPropertyInfo instance AttrInfo DOMTextTrackCueTrackPropertyInfo where - type AttrAllowedOps DOMTextTrackCueTrackPropertyInfo = '[ 'AttrGet] + type AttrAllowedOps DOMTextTrackCueTrackPropertyInfo = '[ 'AttrGet, 'AttrClear] type AttrSetTypeConstraint DOMTextTrackCueTrackPropertyInfo = (~) () type AttrBaseTypeConstraint DOMTextTrackCueTrackPropertyInfo = DOMTextTrackCueK - type AttrGetType DOMTextTrackCueTrackPropertyInfo = DOMTextTrack + type AttrGetType DOMTextTrackCueTrackPropertyInfo = (Maybe DOMTextTrack) type AttrLabel DOMTextTrackCueTrackPropertyInfo = "track" attrGet _ = getDOMTextTrackCueTrack attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "vertical" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) -getDOMTextTrackCueVertical :: (MonadIO m, DOMTextTrackCueK o) => o -> m T.Text +getDOMTextTrackCueVertical :: (MonadIO m, DOMTextTrackCueK o) => o -> m (Maybe T.Text) getDOMTextTrackCueVertical obj = liftIO $ getObjectPropertyString obj "vertical" setDOMTextTrackCueVertical :: (MonadIO m, DOMTextTrackCueK o) => o -> T.Text -> m () -setDOMTextTrackCueVertical obj val = liftIO $ setObjectPropertyString obj "vertical" val +setDOMTextTrackCueVertical obj val = liftIO $ setObjectPropertyString obj "vertical" (Just val) constructDOMTextTrackCueVertical :: T.Text -> IO ([Char], GValue) -constructDOMTextTrackCueVertical val = constructObjectPropertyString "vertical" val +constructDOMTextTrackCueVertical val = constructObjectPropertyString "vertical" (Just val) +clearDOMTextTrackCueVertical :: (MonadIO m, DOMTextTrackCueK o) => o -> m () +clearDOMTextTrackCueVertical obj = liftIO $ setObjectPropertyString obj "vertical" (Nothing :: Maybe T.Text) + data DOMTextTrackCueVerticalPropertyInfo instance AttrInfo DOMTextTrackCueVerticalPropertyInfo where - type AttrAllowedOps DOMTextTrackCueVerticalPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrAllowedOps DOMTextTrackCueVerticalPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint DOMTextTrackCueVerticalPropertyInfo = (~) T.Text type AttrBaseTypeConstraint DOMTextTrackCueVerticalPropertyInfo = DOMTextTrackCueK - type AttrGetType DOMTextTrackCueVerticalPropertyInfo = T.Text + type AttrGetType DOMTextTrackCueVerticalPropertyInfo = (Maybe T.Text) type AttrLabel DOMTextTrackCueVerticalPropertyInfo = "vertical" attrGet _ = getDOMTextTrackCueVertical attrSet _ = setDOMTextTrackCueVertical attrConstruct _ = constructDOMTextTrackCueVertical + attrClear _ = clearDOMTextTrackCueVertical type instance AttributeList DOMTextTrackCue = DOMTextTrackCueAttributeList type DOMTextTrackCueAttributeList = ('[ '("align", DOMTextTrackCueAlignPropertyInfo), '("coreObject", DOMObjectCoreObjectPropertyInfo), '("endTime", DOMTextTrackCueEndTimePropertyInfo), '("id", DOMTextTrackCueIdPropertyInfo), '("line", DOMTextTrackCueLinePropertyInfo), '("pauseOnExit", DOMTextTrackCuePauseOnExitPropertyInfo), '("position", DOMTextTrackCuePositionPropertyInfo), '("size", DOMTextTrackCueSizePropertyInfo), '("snapToLines", DOMTextTrackCueSnapToLinesPropertyInfo), '("startTime", DOMTextTrackCueStartTimePropertyInfo), '("text", DOMTextTrackCueTextPropertyInfo), '("track", DOMTextTrackCueTrackPropertyInfo), '("vertical", DOMTextTrackCueVerticalPropertyInfo)] :: [(Symbol, *)]) +dOMTextTrackCueAlign :: AttrLabelProxy "align" +dOMTextTrackCueAlign = AttrLabelProxy + +dOMTextTrackCueEndTime :: AttrLabelProxy "endTime" +dOMTextTrackCueEndTime = AttrLabelProxy + +dOMTextTrackCueId :: AttrLabelProxy "id" +dOMTextTrackCueId = AttrLabelProxy + +dOMTextTrackCueLine :: AttrLabelProxy "line" +dOMTextTrackCueLine = AttrLabelProxy + +dOMTextTrackCuePauseOnExit :: AttrLabelProxy "pauseOnExit" +dOMTextTrackCuePauseOnExit = AttrLabelProxy + +dOMTextTrackCuePosition :: AttrLabelProxy "position" +dOMTextTrackCuePosition = AttrLabelProxy + +dOMTextTrackCueSize :: AttrLabelProxy "size" +dOMTextTrackCueSize = AttrLabelProxy + +dOMTextTrackCueSnapToLines :: AttrLabelProxy "snapToLines" +dOMTextTrackCueSnapToLines = AttrLabelProxy + +dOMTextTrackCueStartTime :: AttrLabelProxy "startTime" +dOMTextTrackCueStartTime = AttrLabelProxy + +dOMTextTrackCueText :: AttrLabelProxy "text" +dOMTextTrackCueText = AttrLabelProxy + +dOMTextTrackCueTrack :: AttrLabelProxy "track" +dOMTextTrackCueTrack = AttrLabelProxy + +dOMTextTrackCueVertical :: AttrLabelProxy "vertical" +dOMTextTrackCueVertical = AttrLabelProxy + type instance SignalList DOMTextTrackCue = DOMTextTrackCueSignalList type DOMTextTrackCueSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) @@ -614,7 +694,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMTextTrackCue", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "evt", argType = TInterface "WebKit" "DOMEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : True -- Skip return : False @@ -650,7 +730,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMTextTrackCue", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -680,7 +760,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMTextTrackCue", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit" "DOMDocumentFragment" +-- returnType : Just (TInterface "WebKit" "DOMDocumentFragment") -- throws : False -- Skip return : False @@ -709,7 +789,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMTextTrackCue", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TDouble +-- returnType : Just (TBasicType TDouble) -- throws : False -- Skip return : False @@ -737,7 +817,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMTextTrackCue", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -767,19 +847,19 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMTextTrackCue", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TInt64 +-- returnType : Just (TBasicType TLong) -- throws : False -- Skip return : False foreign import ccall "webkit_dom_text_track_cue_get_line" webkit_dom_text_track_cue_get_line :: Ptr DOMTextTrackCue -> -- _obj : TInterface "WebKit" "DOMTextTrackCue" - IO Int64 + IO CLong dOMTextTrackCueGetLine :: (MonadIO m, DOMTextTrackCueK a) => a -- _obj - -> m Int64 -- result + -> m CLong -- result dOMTextTrackCueGetLine _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- webkit_dom_text_track_cue_get_line _obj' @@ -787,14 +867,14 @@ return result data DOMTextTrackCueGetLineMethodInfo -instance (signature ~ (m Int64), MonadIO m, DOMTextTrackCueK a) => MethodInfo DOMTextTrackCueGetLineMethodInfo a signature where +instance (signature ~ (m CLong), MonadIO m, DOMTextTrackCueK a) => MethodInfo DOMTextTrackCueGetLineMethodInfo a signature where overloadedMethod _ = dOMTextTrackCueGetLine -- method DOMTextTrackCue::get_pause_on_exit -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMTextTrackCue", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -822,19 +902,19 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMTextTrackCue", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TInt64 +-- returnType : Just (TBasicType TLong) -- throws : False -- Skip return : False foreign import ccall "webkit_dom_text_track_cue_get_position" webkit_dom_text_track_cue_get_position :: Ptr DOMTextTrackCue -> -- _obj : TInterface "WebKit" "DOMTextTrackCue" - IO Int64 + IO CLong dOMTextTrackCueGetPosition :: (MonadIO m, DOMTextTrackCueK a) => a -- _obj - -> m Int64 -- result + -> m CLong -- result dOMTextTrackCueGetPosition _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- webkit_dom_text_track_cue_get_position _obj' @@ -842,26 +922,26 @@ return result data DOMTextTrackCueGetPositionMethodInfo -instance (signature ~ (m Int64), MonadIO m, DOMTextTrackCueK a) => MethodInfo DOMTextTrackCueGetPositionMethodInfo a signature where +instance (signature ~ (m CLong), MonadIO m, DOMTextTrackCueK a) => MethodInfo DOMTextTrackCueGetPositionMethodInfo a signature where overloadedMethod _ = dOMTextTrackCueGetPosition -- method DOMTextTrackCue::get_size -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMTextTrackCue", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TInt64 +-- returnType : Just (TBasicType TLong) -- throws : False -- Skip return : False foreign import ccall "webkit_dom_text_track_cue_get_size" webkit_dom_text_track_cue_get_size :: Ptr DOMTextTrackCue -> -- _obj : TInterface "WebKit" "DOMTextTrackCue" - IO Int64 + IO CLong dOMTextTrackCueGetSize :: (MonadIO m, DOMTextTrackCueK a) => a -- _obj - -> m Int64 -- result + -> m CLong -- result dOMTextTrackCueGetSize _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- webkit_dom_text_track_cue_get_size _obj' @@ -869,14 +949,14 @@ return result data DOMTextTrackCueGetSizeMethodInfo -instance (signature ~ (m Int64), MonadIO m, DOMTextTrackCueK a) => MethodInfo DOMTextTrackCueGetSizeMethodInfo a signature where +instance (signature ~ (m CLong), MonadIO m, DOMTextTrackCueK a) => MethodInfo DOMTextTrackCueGetSizeMethodInfo a signature where overloadedMethod _ = dOMTextTrackCueGetSize -- method DOMTextTrackCue::get_snap_to_lines -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMTextTrackCue", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -904,7 +984,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMTextTrackCue", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TDouble +-- returnType : Just (TBasicType TDouble) -- throws : False -- Skip return : False @@ -932,7 +1012,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMTextTrackCue", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -962,7 +1042,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMTextTrackCue", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit" "DOMTextTrack" +-- returnType : Just (TInterface "WebKit" "DOMTextTrack") -- throws : False -- Skip return : False @@ -991,7 +1071,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMTextTrackCue", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -1021,7 +1101,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMTextTrackCue", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : True -- Skip return : False @@ -1057,7 +1137,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMTextTrackCue", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : True -- Skip return : False @@ -1092,7 +1172,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMTextTrackCue", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1121,15 +1201,15 @@ -- method DOMTextTrackCue::set_line -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMTextTrackCue", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMTextTrackCue", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TLong, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : True -- Skip return : False foreign import ccall "webkit_dom_text_track_cue_set_line" webkit_dom_text_track_cue_set_line :: Ptr DOMTextTrackCue -> -- _obj : TInterface "WebKit" "DOMTextTrackCue" - Int64 -> -- value : TBasicType TInt64 + CLong -> -- value : TBasicType TLong Ptr (Ptr GError) -> -- error IO () @@ -1137,7 +1217,7 @@ dOMTextTrackCueSetLine :: (MonadIO m, DOMTextTrackCueK a) => a -- _obj - -> Int64 -- value + -> CLong -- value -> m () -- result dOMTextTrackCueSetLine _obj value = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj @@ -1150,14 +1230,14 @@ ) data DOMTextTrackCueSetLineMethodInfo -instance (signature ~ (Int64 -> m ()), MonadIO m, DOMTextTrackCueK a) => MethodInfo DOMTextTrackCueSetLineMethodInfo a signature where +instance (signature ~ (CLong -> m ()), MonadIO m, DOMTextTrackCueK a) => MethodInfo DOMTextTrackCueSetLineMethodInfo a signature where overloadedMethod _ = dOMTextTrackCueSetLine -- method DOMTextTrackCue::set_pause_on_exit -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMTextTrackCue", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1185,15 +1265,15 @@ -- method DOMTextTrackCue::set_position -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMTextTrackCue", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMTextTrackCue", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TLong, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : True -- Skip return : False foreign import ccall "webkit_dom_text_track_cue_set_position" webkit_dom_text_track_cue_set_position :: Ptr DOMTextTrackCue -> -- _obj : TInterface "WebKit" "DOMTextTrackCue" - Int64 -> -- value : TBasicType TInt64 + CLong -> -- value : TBasicType TLong Ptr (Ptr GError) -> -- error IO () @@ -1201,7 +1281,7 @@ dOMTextTrackCueSetPosition :: (MonadIO m, DOMTextTrackCueK a) => a -- _obj - -> Int64 -- value + -> CLong -- value -> m () -- result dOMTextTrackCueSetPosition _obj value = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj @@ -1214,20 +1294,20 @@ ) data DOMTextTrackCueSetPositionMethodInfo -instance (signature ~ (Int64 -> m ()), MonadIO m, DOMTextTrackCueK a) => MethodInfo DOMTextTrackCueSetPositionMethodInfo a signature where +instance (signature ~ (CLong -> m ()), MonadIO m, DOMTextTrackCueK a) => MethodInfo DOMTextTrackCueSetPositionMethodInfo a signature where overloadedMethod _ = dOMTextTrackCueSetPosition -- method DOMTextTrackCue::set_size -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMTextTrackCue", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMTextTrackCue", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TLong, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : True -- Skip return : False foreign import ccall "webkit_dom_text_track_cue_set_size" webkit_dom_text_track_cue_set_size :: Ptr DOMTextTrackCue -> -- _obj : TInterface "WebKit" "DOMTextTrackCue" - Int64 -> -- value : TBasicType TInt64 + CLong -> -- value : TBasicType TLong Ptr (Ptr GError) -> -- error IO () @@ -1235,7 +1315,7 @@ dOMTextTrackCueSetSize :: (MonadIO m, DOMTextTrackCueK a) => a -- _obj - -> Int64 -- value + -> CLong -- value -> m () -- result dOMTextTrackCueSetSize _obj value = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj @@ -1248,14 +1328,14 @@ ) data DOMTextTrackCueSetSizeMethodInfo -instance (signature ~ (Int64 -> m ()), MonadIO m, DOMTextTrackCueK a) => MethodInfo DOMTextTrackCueSetSizeMethodInfo a signature where +instance (signature ~ (CLong -> m ()), MonadIO m, DOMTextTrackCueK a) => MethodInfo DOMTextTrackCueSetSizeMethodInfo a signature where overloadedMethod _ = dOMTextTrackCueSetSize -- method DOMTextTrackCue::set_snap_to_lines -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMTextTrackCue", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1285,7 +1365,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMTextTrackCue", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : True -- Skip return : False @@ -1320,7 +1400,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMTextTrackCue", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1351,7 +1431,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMTextTrackCue", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : True -- Skip return : False diff --git a/GI/WebKit/Objects/DOMTextTrackCue.hs-boot b/GI/WebKit/Objects/DOMTextTrackCue.hs-boot --- a/GI/WebKit/Objects/DOMTextTrackCue.hs-boot +++ b/GI/WebKit/Objects/DOMTextTrackCue.hs-boot @@ -1,8 +1,8 @@ module GI.WebKit.Objects.DOMTextTrackCue where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map diff --git a/GI/WebKit/Objects/DOMTextTrackCueList.hs b/GI/WebKit/Objects/DOMTextTrackCueList.hs --- a/GI/WebKit/Objects/DOMTextTrackCueList.hs +++ b/GI/WebKit/Objects/DOMTextTrackCueList.hs @@ -37,6 +37,7 @@ -- * Properties -- ** Length DOMTextTrackCueListLengthPropertyInfo , + dOMTextTrackCueListLength , getDOMTextTrackCueListLength , @@ -44,9 +45,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map @@ -113,26 +114,31 @@ #endif -- VVV Prop "length" - -- Type: TBasicType TUInt64 + -- Type: TBasicType TULong -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) -getDOMTextTrackCueListLength :: (MonadIO m, DOMTextTrackCueListK o) => o -> m Word64 -getDOMTextTrackCueListLength obj = liftIO $ getObjectPropertyUInt64 obj "length" +getDOMTextTrackCueListLength :: (MonadIO m, DOMTextTrackCueListK o) => o -> m CULong +getDOMTextTrackCueListLength obj = liftIO $ getObjectPropertyULong obj "length" data DOMTextTrackCueListLengthPropertyInfo instance AttrInfo DOMTextTrackCueListLengthPropertyInfo where type AttrAllowedOps DOMTextTrackCueListLengthPropertyInfo = '[ 'AttrGet] type AttrSetTypeConstraint DOMTextTrackCueListLengthPropertyInfo = (~) () type AttrBaseTypeConstraint DOMTextTrackCueListLengthPropertyInfo = DOMTextTrackCueListK - type AttrGetType DOMTextTrackCueListLengthPropertyInfo = Word64 + type AttrGetType DOMTextTrackCueListLengthPropertyInfo = CULong type AttrLabel DOMTextTrackCueListLengthPropertyInfo = "length" attrGet _ = getDOMTextTrackCueListLength attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined type instance AttributeList DOMTextTrackCueList = DOMTextTrackCueListAttributeList type DOMTextTrackCueListAttributeList = ('[ '("coreObject", DOMObjectCoreObjectPropertyInfo), '("length", DOMTextTrackCueListLengthPropertyInfo)] :: [(Symbol, *)]) +dOMTextTrackCueListLength :: AttrLabelProxy "length" +dOMTextTrackCueListLength = AttrLabelProxy + type instance SignalList DOMTextTrackCueList = DOMTextTrackCueListSignalList type DOMTextTrackCueListSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) @@ -140,7 +146,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMTextTrackCueList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit" "DOMTextTrackCue" +-- returnType : Just (TInterface "WebKit" "DOMTextTrackCue") -- throws : False -- Skip return : False @@ -173,19 +179,19 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMTextTrackCueList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUInt64 +-- returnType : Just (TBasicType TULong) -- throws : False -- Skip return : False foreign import ccall "webkit_dom_text_track_cue_list_get_length" webkit_dom_text_track_cue_list_get_length :: Ptr DOMTextTrackCueList -> -- _obj : TInterface "WebKit" "DOMTextTrackCueList" - IO Word64 + IO CULong dOMTextTrackCueListGetLength :: (MonadIO m, DOMTextTrackCueListK a) => a -- _obj - -> m Word64 -- result + -> m CULong -- result dOMTextTrackCueListGetLength _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- webkit_dom_text_track_cue_list_get_length _obj' @@ -193,27 +199,27 @@ return result data DOMTextTrackCueListGetLengthMethodInfo -instance (signature ~ (m Word64), MonadIO m, DOMTextTrackCueListK a) => MethodInfo DOMTextTrackCueListGetLengthMethodInfo a signature where +instance (signature ~ (m CULong), MonadIO m, DOMTextTrackCueListK a) => MethodInfo DOMTextTrackCueListGetLengthMethodInfo a signature where overloadedMethod _ = dOMTextTrackCueListGetLength -- method DOMTextTrackCueList::item -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMTextTrackCueList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "index", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMTextTrackCueList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "index", argType = TBasicType TULong, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit" "DOMTextTrackCue" +-- returnType : Just (TInterface "WebKit" "DOMTextTrackCue") -- throws : False -- Skip return : False foreign import ccall "webkit_dom_text_track_cue_list_item" webkit_dom_text_track_cue_list_item :: Ptr DOMTextTrackCueList -> -- _obj : TInterface "WebKit" "DOMTextTrackCueList" - Word64 -> -- index : TBasicType TUInt64 + CULong -> -- index : TBasicType TULong IO (Ptr DOMTextTrackCue) dOMTextTrackCueListItem :: (MonadIO m, DOMTextTrackCueListK a) => a -- _obj - -> Word64 -- index + -> CULong -- index -> m DOMTextTrackCue -- result dOMTextTrackCueListItem _obj index = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj @@ -224,7 +230,7 @@ return result' data DOMTextTrackCueListItemMethodInfo -instance (signature ~ (Word64 -> m DOMTextTrackCue), MonadIO m, DOMTextTrackCueListK a) => MethodInfo DOMTextTrackCueListItemMethodInfo a signature where +instance (signature ~ (CULong -> m DOMTextTrackCue), MonadIO m, DOMTextTrackCueListK a) => MethodInfo DOMTextTrackCueListItemMethodInfo a signature where overloadedMethod _ = dOMTextTrackCueListItem diff --git a/GI/WebKit/Objects/DOMTextTrackCueList.hs-boot b/GI/WebKit/Objects/DOMTextTrackCueList.hs-boot --- a/GI/WebKit/Objects/DOMTextTrackCueList.hs-boot +++ b/GI/WebKit/Objects/DOMTextTrackCueList.hs-boot @@ -1,8 +1,8 @@ module GI.WebKit.Objects.DOMTextTrackCueList where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map diff --git a/GI/WebKit/Objects/DOMTextTrackList.hs b/GI/WebKit/Objects/DOMTextTrackList.hs --- a/GI/WebKit/Objects/DOMTextTrackList.hs +++ b/GI/WebKit/Objects/DOMTextTrackList.hs @@ -42,6 +42,7 @@ -- * Properties -- ** Length DOMTextTrackListLengthPropertyInfo , + dOMTextTrackListLength , getDOMTextTrackListLength , @@ -49,9 +50,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map @@ -120,26 +121,31 @@ #endif -- VVV Prop "length" - -- Type: TBasicType TUInt64 + -- Type: TBasicType TULong -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) -getDOMTextTrackListLength :: (MonadIO m, DOMTextTrackListK o) => o -> m Word64 -getDOMTextTrackListLength obj = liftIO $ getObjectPropertyUInt64 obj "length" +getDOMTextTrackListLength :: (MonadIO m, DOMTextTrackListK o) => o -> m CULong +getDOMTextTrackListLength obj = liftIO $ getObjectPropertyULong obj "length" data DOMTextTrackListLengthPropertyInfo instance AttrInfo DOMTextTrackListLengthPropertyInfo where type AttrAllowedOps DOMTextTrackListLengthPropertyInfo = '[ 'AttrGet] type AttrSetTypeConstraint DOMTextTrackListLengthPropertyInfo = (~) () type AttrBaseTypeConstraint DOMTextTrackListLengthPropertyInfo = DOMTextTrackListK - type AttrGetType DOMTextTrackListLengthPropertyInfo = Word64 + type AttrGetType DOMTextTrackListLengthPropertyInfo = CULong type AttrLabel DOMTextTrackListLengthPropertyInfo = "length" attrGet _ = getDOMTextTrackListLength attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined type instance AttributeList DOMTextTrackList = DOMTextTrackListAttributeList type DOMTextTrackListAttributeList = ('[ '("coreObject", DOMObjectCoreObjectPropertyInfo), '("length", DOMTextTrackListLengthPropertyInfo)] :: [(Symbol, *)]) +dOMTextTrackListLength :: AttrLabelProxy "length" +dOMTextTrackListLength = AttrLabelProxy + type instance SignalList DOMTextTrackList = DOMTextTrackListSignalList type DOMTextTrackListSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) @@ -147,7 +153,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMTextTrackList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "evt", argType = TInterface "WebKit" "DOMEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : True -- Skip return : False @@ -183,19 +189,19 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMTextTrackList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUInt64 +-- returnType : Just (TBasicType TULong) -- throws : False -- Skip return : False foreign import ccall "webkit_dom_text_track_list_get_length" webkit_dom_text_track_list_get_length :: Ptr DOMTextTrackList -> -- _obj : TInterface "WebKit" "DOMTextTrackList" - IO Word64 + IO CULong dOMTextTrackListGetLength :: (MonadIO m, DOMTextTrackListK a) => a -- _obj - -> m Word64 -- result + -> m CULong -- result dOMTextTrackListGetLength _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- webkit_dom_text_track_list_get_length _obj' @@ -203,14 +209,14 @@ return result data DOMTextTrackListGetLengthMethodInfo -instance (signature ~ (m Word64), MonadIO m, DOMTextTrackListK a) => MethodInfo DOMTextTrackListGetLengthMethodInfo a signature where +instance (signature ~ (m CULong), MonadIO m, DOMTextTrackListK a) => MethodInfo DOMTextTrackListGetLengthMethodInfo a signature where overloadedMethod _ = dOMTextTrackListGetLength -- method DOMTextTrackList::get_track_by_id -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMTextTrackList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit" "DOMTextTrack" +-- returnType : Just (TInterface "WebKit" "DOMTextTrack") -- throws : False -- Skip return : False @@ -241,22 +247,22 @@ -- method DOMTextTrackList::item -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMTextTrackList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "index", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMTextTrackList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "index", argType = TBasicType TULong, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit" "DOMTextTrack" +-- returnType : Just (TInterface "WebKit" "DOMTextTrack") -- throws : False -- Skip return : False foreign import ccall "webkit_dom_text_track_list_item" webkit_dom_text_track_list_item :: Ptr DOMTextTrackList -> -- _obj : TInterface "WebKit" "DOMTextTrackList" - Word64 -> -- index : TBasicType TUInt64 + CULong -> -- index : TBasicType TULong IO (Ptr DOMTextTrack) dOMTextTrackListItem :: (MonadIO m, DOMTextTrackListK a) => a -- _obj - -> Word64 -- index + -> CULong -- index -> m DOMTextTrack -- result dOMTextTrackListItem _obj index = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj @@ -267,7 +273,7 @@ return result' data DOMTextTrackListItemMethodInfo -instance (signature ~ (Word64 -> m DOMTextTrack), MonadIO m, DOMTextTrackListK a) => MethodInfo DOMTextTrackListItemMethodInfo a signature where +instance (signature ~ (CULong -> m DOMTextTrack), MonadIO m, DOMTextTrackListK a) => MethodInfo DOMTextTrackListItemMethodInfo a signature where overloadedMethod _ = dOMTextTrackListItem diff --git a/GI/WebKit/Objects/DOMTextTrackList.hs-boot b/GI/WebKit/Objects/DOMTextTrackList.hs-boot --- a/GI/WebKit/Objects/DOMTextTrackList.hs-boot +++ b/GI/WebKit/Objects/DOMTextTrackList.hs-boot @@ -1,8 +1,8 @@ module GI.WebKit.Objects.DOMTextTrackList where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map diff --git a/GI/WebKit/Objects/DOMTimeRanges.hs b/GI/WebKit/Objects/DOMTimeRanges.hs --- a/GI/WebKit/Objects/DOMTimeRanges.hs +++ b/GI/WebKit/Objects/DOMTimeRanges.hs @@ -37,6 +37,7 @@ -- * Properties -- ** Length DOMTimeRangesLengthPropertyInfo , + dOMTimeRangesLength , getDOMTimeRangesLength , @@ -44,9 +45,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map @@ -113,40 +114,45 @@ #endif -- VVV Prop "length" - -- Type: TBasicType TUInt64 + -- Type: TBasicType TULong -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) -getDOMTimeRangesLength :: (MonadIO m, DOMTimeRangesK o) => o -> m Word64 -getDOMTimeRangesLength obj = liftIO $ getObjectPropertyUInt64 obj "length" +getDOMTimeRangesLength :: (MonadIO m, DOMTimeRangesK o) => o -> m CULong +getDOMTimeRangesLength obj = liftIO $ getObjectPropertyULong obj "length" data DOMTimeRangesLengthPropertyInfo instance AttrInfo DOMTimeRangesLengthPropertyInfo where type AttrAllowedOps DOMTimeRangesLengthPropertyInfo = '[ 'AttrGet] type AttrSetTypeConstraint DOMTimeRangesLengthPropertyInfo = (~) () type AttrBaseTypeConstraint DOMTimeRangesLengthPropertyInfo = DOMTimeRangesK - type AttrGetType DOMTimeRangesLengthPropertyInfo = Word64 + type AttrGetType DOMTimeRangesLengthPropertyInfo = CULong type AttrLabel DOMTimeRangesLengthPropertyInfo = "length" attrGet _ = getDOMTimeRangesLength attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined type instance AttributeList DOMTimeRanges = DOMTimeRangesAttributeList type DOMTimeRangesAttributeList = ('[ '("coreObject", DOMObjectCoreObjectPropertyInfo), '("length", DOMTimeRangesLengthPropertyInfo)] :: [(Symbol, *)]) +dOMTimeRangesLength :: AttrLabelProxy "length" +dOMTimeRangesLength = AttrLabelProxy + type instance SignalList DOMTimeRanges = DOMTimeRangesSignalList type DOMTimeRangesSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) -- method DOMTimeRanges::end -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMTimeRanges", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "index", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMTimeRanges", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "index", argType = TBasicType TULong, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TDouble +-- returnType : Just (TBasicType TDouble) -- throws : True -- Skip return : False foreign import ccall "webkit_dom_time_ranges_end" webkit_dom_time_ranges_end :: Ptr DOMTimeRanges -> -- _obj : TInterface "WebKit" "DOMTimeRanges" - Word64 -> -- index : TBasicType TUInt64 + CULong -> -- index : TBasicType TULong Ptr (Ptr GError) -> -- error IO CDouble @@ -154,7 +160,7 @@ dOMTimeRangesEnd :: (MonadIO m, DOMTimeRangesK a) => a -- _obj - -> Word64 -- index + -> CULong -- index -> m Double -- result dOMTimeRangesEnd _obj index = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj @@ -168,26 +174,26 @@ ) data DOMTimeRangesEndMethodInfo -instance (signature ~ (Word64 -> m Double), MonadIO m, DOMTimeRangesK a) => MethodInfo DOMTimeRangesEndMethodInfo a signature where +instance (signature ~ (CULong -> m Double), MonadIO m, DOMTimeRangesK a) => MethodInfo DOMTimeRangesEndMethodInfo a signature where overloadedMethod _ = dOMTimeRangesEnd -- method DOMTimeRanges::get_length -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMTimeRanges", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUInt64 +-- returnType : Just (TBasicType TULong) -- throws : False -- Skip return : False foreign import ccall "webkit_dom_time_ranges_get_length" webkit_dom_time_ranges_get_length :: Ptr DOMTimeRanges -> -- _obj : TInterface "WebKit" "DOMTimeRanges" - IO Word64 + IO CULong dOMTimeRangesGetLength :: (MonadIO m, DOMTimeRangesK a) => a -- _obj - -> m Word64 -- result + -> m CULong -- result dOMTimeRangesGetLength _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- webkit_dom_time_ranges_get_length _obj' @@ -195,20 +201,20 @@ return result data DOMTimeRangesGetLengthMethodInfo -instance (signature ~ (m Word64), MonadIO m, DOMTimeRangesK a) => MethodInfo DOMTimeRangesGetLengthMethodInfo a signature where +instance (signature ~ (m CULong), MonadIO m, DOMTimeRangesK a) => MethodInfo DOMTimeRangesGetLengthMethodInfo a signature where overloadedMethod _ = dOMTimeRangesGetLength -- method DOMTimeRanges::start -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMTimeRanges", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "index", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMTimeRanges", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "index", argType = TBasicType TULong, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TDouble +-- returnType : Just (TBasicType TDouble) -- throws : True -- Skip return : False foreign import ccall "webkit_dom_time_ranges_start" webkit_dom_time_ranges_start :: Ptr DOMTimeRanges -> -- _obj : TInterface "WebKit" "DOMTimeRanges" - Word64 -> -- index : TBasicType TUInt64 + CULong -> -- index : TBasicType TULong Ptr (Ptr GError) -> -- error IO CDouble @@ -216,7 +222,7 @@ dOMTimeRangesStart :: (MonadIO m, DOMTimeRangesK a) => a -- _obj - -> Word64 -- index + -> CULong -- index -> m Double -- result dOMTimeRangesStart _obj index = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj @@ -230,7 +236,7 @@ ) data DOMTimeRangesStartMethodInfo -instance (signature ~ (Word64 -> m Double), MonadIO m, DOMTimeRangesK a) => MethodInfo DOMTimeRangesStartMethodInfo a signature where +instance (signature ~ (CULong -> m Double), MonadIO m, DOMTimeRangesK a) => MethodInfo DOMTimeRangesStartMethodInfo a signature where overloadedMethod _ = dOMTimeRangesStart diff --git a/GI/WebKit/Objects/DOMTimeRanges.hs-boot b/GI/WebKit/Objects/DOMTimeRanges.hs-boot --- a/GI/WebKit/Objects/DOMTimeRanges.hs-boot +++ b/GI/WebKit/Objects/DOMTimeRanges.hs-boot @@ -1,8 +1,8 @@ module GI.WebKit.Objects.DOMTimeRanges where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map diff --git a/GI/WebKit/Objects/DOMTouch.hs b/GI/WebKit/Objects/DOMTouch.hs --- a/GI/WebKit/Objects/DOMTouch.hs +++ b/GI/WebKit/Objects/DOMTouch.hs @@ -82,61 +82,73 @@ -- * Properties -- ** ClientX DOMTouchClientXPropertyInfo , + dOMTouchClientX , getDOMTouchClientX , -- ** ClientY DOMTouchClientYPropertyInfo , + dOMTouchClientY , getDOMTouchClientY , -- ** Identifier DOMTouchIdentifierPropertyInfo , + dOMTouchIdentifier , getDOMTouchIdentifier , -- ** PageX DOMTouchPageXPropertyInfo , + dOMTouchPageX , getDOMTouchPageX , -- ** PageY DOMTouchPageYPropertyInfo , + dOMTouchPageY , getDOMTouchPageY , -- ** ScreenX DOMTouchScreenXPropertyInfo , + dOMTouchScreenX , getDOMTouchScreenX , -- ** ScreenY DOMTouchScreenYPropertyInfo , + dOMTouchScreenY , getDOMTouchScreenY , -- ** Target DOMTouchTargetPropertyInfo , + dOMTouchTarget , getDOMTouchTarget , -- ** WebkitForce DOMTouchWebkitForcePropertyInfo , + dOMTouchWebkitForce , getDOMTouchWebkitForce , -- ** WebkitRadiusX DOMTouchWebkitRadiusXPropertyInfo , + dOMTouchWebkitRadiusX , getDOMTouchWebkitRadiusX , -- ** WebkitRadiusY DOMTouchWebkitRadiusYPropertyInfo , + dOMTouchWebkitRadiusY , getDOMTouchWebkitRadiusY , -- ** WebkitRotationAngle DOMTouchWebkitRotationAnglePropertyInfo , + dOMTouchWebkitRotationAngle , getDOMTouchWebkitRotationAngle , @@ -144,9 +156,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map @@ -222,152 +234,169 @@ #endif -- VVV Prop "client-x" - -- Type: TBasicType TInt64 + -- Type: TBasicType TLong -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) -getDOMTouchClientX :: (MonadIO m, DOMTouchK o) => o -> m Int64 -getDOMTouchClientX obj = liftIO $ getObjectPropertyInt64 obj "client-x" +getDOMTouchClientX :: (MonadIO m, DOMTouchK o) => o -> m CLong +getDOMTouchClientX obj = liftIO $ getObjectPropertyLong obj "client-x" data DOMTouchClientXPropertyInfo instance AttrInfo DOMTouchClientXPropertyInfo where type AttrAllowedOps DOMTouchClientXPropertyInfo = '[ 'AttrGet] type AttrSetTypeConstraint DOMTouchClientXPropertyInfo = (~) () type AttrBaseTypeConstraint DOMTouchClientXPropertyInfo = DOMTouchK - type AttrGetType DOMTouchClientXPropertyInfo = Int64 + type AttrGetType DOMTouchClientXPropertyInfo = CLong type AttrLabel DOMTouchClientXPropertyInfo = "client-x" attrGet _ = getDOMTouchClientX attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "client-y" - -- Type: TBasicType TInt64 + -- Type: TBasicType TLong -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) -getDOMTouchClientY :: (MonadIO m, DOMTouchK o) => o -> m Int64 -getDOMTouchClientY obj = liftIO $ getObjectPropertyInt64 obj "client-y" +getDOMTouchClientY :: (MonadIO m, DOMTouchK o) => o -> m CLong +getDOMTouchClientY obj = liftIO $ getObjectPropertyLong obj "client-y" data DOMTouchClientYPropertyInfo instance AttrInfo DOMTouchClientYPropertyInfo where type AttrAllowedOps DOMTouchClientYPropertyInfo = '[ 'AttrGet] type AttrSetTypeConstraint DOMTouchClientYPropertyInfo = (~) () type AttrBaseTypeConstraint DOMTouchClientYPropertyInfo = DOMTouchK - type AttrGetType DOMTouchClientYPropertyInfo = Int64 + type AttrGetType DOMTouchClientYPropertyInfo = CLong type AttrLabel DOMTouchClientYPropertyInfo = "client-y" attrGet _ = getDOMTouchClientY attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "identifier" - -- Type: TBasicType TUInt64 + -- Type: TBasicType TULong -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) -getDOMTouchIdentifier :: (MonadIO m, DOMTouchK o) => o -> m Word64 -getDOMTouchIdentifier obj = liftIO $ getObjectPropertyUInt64 obj "identifier" +getDOMTouchIdentifier :: (MonadIO m, DOMTouchK o) => o -> m CULong +getDOMTouchIdentifier obj = liftIO $ getObjectPropertyULong obj "identifier" data DOMTouchIdentifierPropertyInfo instance AttrInfo DOMTouchIdentifierPropertyInfo where type AttrAllowedOps DOMTouchIdentifierPropertyInfo = '[ 'AttrGet] type AttrSetTypeConstraint DOMTouchIdentifierPropertyInfo = (~) () type AttrBaseTypeConstraint DOMTouchIdentifierPropertyInfo = DOMTouchK - type AttrGetType DOMTouchIdentifierPropertyInfo = Word64 + type AttrGetType DOMTouchIdentifierPropertyInfo = CULong type AttrLabel DOMTouchIdentifierPropertyInfo = "identifier" attrGet _ = getDOMTouchIdentifier attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "page-x" - -- Type: TBasicType TInt64 + -- Type: TBasicType TLong -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) -getDOMTouchPageX :: (MonadIO m, DOMTouchK o) => o -> m Int64 -getDOMTouchPageX obj = liftIO $ getObjectPropertyInt64 obj "page-x" +getDOMTouchPageX :: (MonadIO m, DOMTouchK o) => o -> m CLong +getDOMTouchPageX obj = liftIO $ getObjectPropertyLong obj "page-x" data DOMTouchPageXPropertyInfo instance AttrInfo DOMTouchPageXPropertyInfo where type AttrAllowedOps DOMTouchPageXPropertyInfo = '[ 'AttrGet] type AttrSetTypeConstraint DOMTouchPageXPropertyInfo = (~) () type AttrBaseTypeConstraint DOMTouchPageXPropertyInfo = DOMTouchK - type AttrGetType DOMTouchPageXPropertyInfo = Int64 + type AttrGetType DOMTouchPageXPropertyInfo = CLong type AttrLabel DOMTouchPageXPropertyInfo = "page-x" attrGet _ = getDOMTouchPageX attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "page-y" - -- Type: TBasicType TInt64 + -- Type: TBasicType TLong -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) -getDOMTouchPageY :: (MonadIO m, DOMTouchK o) => o -> m Int64 -getDOMTouchPageY obj = liftIO $ getObjectPropertyInt64 obj "page-y" +getDOMTouchPageY :: (MonadIO m, DOMTouchK o) => o -> m CLong +getDOMTouchPageY obj = liftIO $ getObjectPropertyLong obj "page-y" data DOMTouchPageYPropertyInfo instance AttrInfo DOMTouchPageYPropertyInfo where type AttrAllowedOps DOMTouchPageYPropertyInfo = '[ 'AttrGet] type AttrSetTypeConstraint DOMTouchPageYPropertyInfo = (~) () type AttrBaseTypeConstraint DOMTouchPageYPropertyInfo = DOMTouchK - type AttrGetType DOMTouchPageYPropertyInfo = Int64 + type AttrGetType DOMTouchPageYPropertyInfo = CLong type AttrLabel DOMTouchPageYPropertyInfo = "page-y" attrGet _ = getDOMTouchPageY attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "screen-x" - -- Type: TBasicType TInt64 + -- Type: TBasicType TLong -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) -getDOMTouchScreenX :: (MonadIO m, DOMTouchK o) => o -> m Int64 -getDOMTouchScreenX obj = liftIO $ getObjectPropertyInt64 obj "screen-x" +getDOMTouchScreenX :: (MonadIO m, DOMTouchK o) => o -> m CLong +getDOMTouchScreenX obj = liftIO $ getObjectPropertyLong obj "screen-x" data DOMTouchScreenXPropertyInfo instance AttrInfo DOMTouchScreenXPropertyInfo where type AttrAllowedOps DOMTouchScreenXPropertyInfo = '[ 'AttrGet] type AttrSetTypeConstraint DOMTouchScreenXPropertyInfo = (~) () type AttrBaseTypeConstraint DOMTouchScreenXPropertyInfo = DOMTouchK - type AttrGetType DOMTouchScreenXPropertyInfo = Int64 + type AttrGetType DOMTouchScreenXPropertyInfo = CLong type AttrLabel DOMTouchScreenXPropertyInfo = "screen-x" attrGet _ = getDOMTouchScreenX attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "screen-y" - -- Type: TBasicType TInt64 + -- Type: TBasicType TLong -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) -getDOMTouchScreenY :: (MonadIO m, DOMTouchK o) => o -> m Int64 -getDOMTouchScreenY obj = liftIO $ getObjectPropertyInt64 obj "screen-y" +getDOMTouchScreenY :: (MonadIO m, DOMTouchK o) => o -> m CLong +getDOMTouchScreenY obj = liftIO $ getObjectPropertyLong obj "screen-y" data DOMTouchScreenYPropertyInfo instance AttrInfo DOMTouchScreenYPropertyInfo where type AttrAllowedOps DOMTouchScreenYPropertyInfo = '[ 'AttrGet] type AttrSetTypeConstraint DOMTouchScreenYPropertyInfo = (~) () type AttrBaseTypeConstraint DOMTouchScreenYPropertyInfo = DOMTouchK - type AttrGetType DOMTouchScreenYPropertyInfo = Int64 + type AttrGetType DOMTouchScreenYPropertyInfo = CLong type AttrLabel DOMTouchScreenYPropertyInfo = "screen-y" attrGet _ = getDOMTouchScreenY attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "target" -- Type: TInterface "WebKit" "DOMEventTarget" -- Flags: [PropertyReadable] + -- Nullable: (Nothing,Nothing) -getDOMTouchTarget :: (MonadIO m, DOMTouchK o) => o -> m DOMEventTarget +getDOMTouchTarget :: (MonadIO m, DOMTouchK o) => o -> m (Maybe DOMEventTarget) getDOMTouchTarget obj = liftIO $ getObjectPropertyObject obj "target" DOMEventTarget data DOMTouchTargetPropertyInfo instance AttrInfo DOMTouchTargetPropertyInfo where - type AttrAllowedOps DOMTouchTargetPropertyInfo = '[ 'AttrGet] + type AttrAllowedOps DOMTouchTargetPropertyInfo = '[ 'AttrGet, 'AttrClear] type AttrSetTypeConstraint DOMTouchTargetPropertyInfo = (~) () type AttrBaseTypeConstraint DOMTouchTargetPropertyInfo = DOMTouchK - type AttrGetType DOMTouchTargetPropertyInfo = DOMEventTarget + type AttrGetType DOMTouchTargetPropertyInfo = (Maybe DOMEventTarget) type AttrLabel DOMTouchTargetPropertyInfo = "target" attrGet _ = getDOMTouchTarget attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "webkit-force" -- Type: TBasicType TFloat -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) getDOMTouchWebkitForce :: (MonadIO m, DOMTouchK o) => o -> m Float getDOMTouchWebkitForce obj = liftIO $ getObjectPropertyFloat obj "webkit-force" @@ -382,46 +411,52 @@ attrGet _ = getDOMTouchWebkitForce attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "webkit-radius-x" - -- Type: TBasicType TInt64 + -- Type: TBasicType TLong -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) -getDOMTouchWebkitRadiusX :: (MonadIO m, DOMTouchK o) => o -> m Int64 -getDOMTouchWebkitRadiusX obj = liftIO $ getObjectPropertyInt64 obj "webkit-radius-x" +getDOMTouchWebkitRadiusX :: (MonadIO m, DOMTouchK o) => o -> m CLong +getDOMTouchWebkitRadiusX obj = liftIO $ getObjectPropertyLong obj "webkit-radius-x" data DOMTouchWebkitRadiusXPropertyInfo instance AttrInfo DOMTouchWebkitRadiusXPropertyInfo where type AttrAllowedOps DOMTouchWebkitRadiusXPropertyInfo = '[ 'AttrGet] type AttrSetTypeConstraint DOMTouchWebkitRadiusXPropertyInfo = (~) () type AttrBaseTypeConstraint DOMTouchWebkitRadiusXPropertyInfo = DOMTouchK - type AttrGetType DOMTouchWebkitRadiusXPropertyInfo = Int64 + type AttrGetType DOMTouchWebkitRadiusXPropertyInfo = CLong type AttrLabel DOMTouchWebkitRadiusXPropertyInfo = "webkit-radius-x" attrGet _ = getDOMTouchWebkitRadiusX attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "webkit-radius-y" - -- Type: TBasicType TInt64 + -- Type: TBasicType TLong -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) -getDOMTouchWebkitRadiusY :: (MonadIO m, DOMTouchK o) => o -> m Int64 -getDOMTouchWebkitRadiusY obj = liftIO $ getObjectPropertyInt64 obj "webkit-radius-y" +getDOMTouchWebkitRadiusY :: (MonadIO m, DOMTouchK o) => o -> m CLong +getDOMTouchWebkitRadiusY obj = liftIO $ getObjectPropertyLong obj "webkit-radius-y" data DOMTouchWebkitRadiusYPropertyInfo instance AttrInfo DOMTouchWebkitRadiusYPropertyInfo where type AttrAllowedOps DOMTouchWebkitRadiusYPropertyInfo = '[ 'AttrGet] type AttrSetTypeConstraint DOMTouchWebkitRadiusYPropertyInfo = (~) () type AttrBaseTypeConstraint DOMTouchWebkitRadiusYPropertyInfo = DOMTouchK - type AttrGetType DOMTouchWebkitRadiusYPropertyInfo = Int64 + type AttrGetType DOMTouchWebkitRadiusYPropertyInfo = CLong type AttrLabel DOMTouchWebkitRadiusYPropertyInfo = "webkit-radius-y" attrGet _ = getDOMTouchWebkitRadiusY attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "webkit-rotation-angle" -- Type: TBasicType TFloat -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) getDOMTouchWebkitRotationAngle :: (MonadIO m, DOMTouchK o) => o -> m Float getDOMTouchWebkitRotationAngle obj = liftIO $ getObjectPropertyFloat obj "webkit-rotation-angle" @@ -436,10 +471,47 @@ attrGet _ = getDOMTouchWebkitRotationAngle attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined type instance AttributeList DOMTouch = DOMTouchAttributeList type DOMTouchAttributeList = ('[ '("clientX", DOMTouchClientXPropertyInfo), '("clientY", DOMTouchClientYPropertyInfo), '("coreObject", DOMObjectCoreObjectPropertyInfo), '("identifier", DOMTouchIdentifierPropertyInfo), '("pageX", DOMTouchPageXPropertyInfo), '("pageY", DOMTouchPageYPropertyInfo), '("screenX", DOMTouchScreenXPropertyInfo), '("screenY", DOMTouchScreenYPropertyInfo), '("target", DOMTouchTargetPropertyInfo), '("webkitForce", DOMTouchWebkitForcePropertyInfo), '("webkitRadiusX", DOMTouchWebkitRadiusXPropertyInfo), '("webkitRadiusY", DOMTouchWebkitRadiusYPropertyInfo), '("webkitRotationAngle", DOMTouchWebkitRotationAnglePropertyInfo)] :: [(Symbol, *)]) +dOMTouchClientX :: AttrLabelProxy "clientX" +dOMTouchClientX = AttrLabelProxy + +dOMTouchClientY :: AttrLabelProxy "clientY" +dOMTouchClientY = AttrLabelProxy + +dOMTouchIdentifier :: AttrLabelProxy "identifier" +dOMTouchIdentifier = AttrLabelProxy + +dOMTouchPageX :: AttrLabelProxy "pageX" +dOMTouchPageX = AttrLabelProxy + +dOMTouchPageY :: AttrLabelProxy "pageY" +dOMTouchPageY = AttrLabelProxy + +dOMTouchScreenX :: AttrLabelProxy "screenX" +dOMTouchScreenX = AttrLabelProxy + +dOMTouchScreenY :: AttrLabelProxy "screenY" +dOMTouchScreenY = AttrLabelProxy + +dOMTouchTarget :: AttrLabelProxy "target" +dOMTouchTarget = AttrLabelProxy + +dOMTouchWebkitForce :: AttrLabelProxy "webkitForce" +dOMTouchWebkitForce = AttrLabelProxy + +dOMTouchWebkitRadiusX :: AttrLabelProxy "webkitRadiusX" +dOMTouchWebkitRadiusX = AttrLabelProxy + +dOMTouchWebkitRadiusY :: AttrLabelProxy "webkitRadiusY" +dOMTouchWebkitRadiusY = AttrLabelProxy + +dOMTouchWebkitRotationAngle :: AttrLabelProxy "webkitRotationAngle" +dOMTouchWebkitRotationAngle = AttrLabelProxy + type instance SignalList DOMTouch = DOMTouchSignalList type DOMTouchSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) @@ -447,19 +519,19 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMTouch", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TInt64 +-- returnType : Just (TBasicType TLong) -- throws : False -- Skip return : False foreign import ccall "webkit_dom_touch_get_client_x" webkit_dom_touch_get_client_x :: Ptr DOMTouch -> -- _obj : TInterface "WebKit" "DOMTouch" - IO Int64 + IO CLong dOMTouchGetClientX :: (MonadIO m, DOMTouchK a) => a -- _obj - -> m Int64 -- result + -> m CLong -- result dOMTouchGetClientX _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- webkit_dom_touch_get_client_x _obj' @@ -467,26 +539,26 @@ return result data DOMTouchGetClientXMethodInfo -instance (signature ~ (m Int64), MonadIO m, DOMTouchK a) => MethodInfo DOMTouchGetClientXMethodInfo a signature where +instance (signature ~ (m CLong), MonadIO m, DOMTouchK a) => MethodInfo DOMTouchGetClientXMethodInfo a signature where overloadedMethod _ = dOMTouchGetClientX -- method DOMTouch::get_client_y -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMTouch", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TInt64 +-- returnType : Just (TBasicType TLong) -- throws : False -- Skip return : False foreign import ccall "webkit_dom_touch_get_client_y" webkit_dom_touch_get_client_y :: Ptr DOMTouch -> -- _obj : TInterface "WebKit" "DOMTouch" - IO Int64 + IO CLong dOMTouchGetClientY :: (MonadIO m, DOMTouchK a) => a -- _obj - -> m Int64 -- result + -> m CLong -- result dOMTouchGetClientY _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- webkit_dom_touch_get_client_y _obj' @@ -494,26 +566,26 @@ return result data DOMTouchGetClientYMethodInfo -instance (signature ~ (m Int64), MonadIO m, DOMTouchK a) => MethodInfo DOMTouchGetClientYMethodInfo a signature where +instance (signature ~ (m CLong), MonadIO m, DOMTouchK a) => MethodInfo DOMTouchGetClientYMethodInfo a signature where overloadedMethod _ = dOMTouchGetClientY -- method DOMTouch::get_identifier -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMTouch", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUInt64 +-- returnType : Just (TBasicType TULong) -- throws : False -- Skip return : False foreign import ccall "webkit_dom_touch_get_identifier" webkit_dom_touch_get_identifier :: Ptr DOMTouch -> -- _obj : TInterface "WebKit" "DOMTouch" - IO Word64 + IO CULong dOMTouchGetIdentifier :: (MonadIO m, DOMTouchK a) => a -- _obj - -> m Word64 -- result + -> m CULong -- result dOMTouchGetIdentifier _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- webkit_dom_touch_get_identifier _obj' @@ -521,26 +593,26 @@ return result data DOMTouchGetIdentifierMethodInfo -instance (signature ~ (m Word64), MonadIO m, DOMTouchK a) => MethodInfo DOMTouchGetIdentifierMethodInfo a signature where +instance (signature ~ (m CULong), MonadIO m, DOMTouchK a) => MethodInfo DOMTouchGetIdentifierMethodInfo a signature where overloadedMethod _ = dOMTouchGetIdentifier -- method DOMTouch::get_page_x -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMTouch", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TInt64 +-- returnType : Just (TBasicType TLong) -- throws : False -- Skip return : False foreign import ccall "webkit_dom_touch_get_page_x" webkit_dom_touch_get_page_x :: Ptr DOMTouch -> -- _obj : TInterface "WebKit" "DOMTouch" - IO Int64 + IO CLong dOMTouchGetPageX :: (MonadIO m, DOMTouchK a) => a -- _obj - -> m Int64 -- result + -> m CLong -- result dOMTouchGetPageX _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- webkit_dom_touch_get_page_x _obj' @@ -548,26 +620,26 @@ return result data DOMTouchGetPageXMethodInfo -instance (signature ~ (m Int64), MonadIO m, DOMTouchK a) => MethodInfo DOMTouchGetPageXMethodInfo a signature where +instance (signature ~ (m CLong), MonadIO m, DOMTouchK a) => MethodInfo DOMTouchGetPageXMethodInfo a signature where overloadedMethod _ = dOMTouchGetPageX -- method DOMTouch::get_page_y -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMTouch", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TInt64 +-- returnType : Just (TBasicType TLong) -- throws : False -- Skip return : False foreign import ccall "webkit_dom_touch_get_page_y" webkit_dom_touch_get_page_y :: Ptr DOMTouch -> -- _obj : TInterface "WebKit" "DOMTouch" - IO Int64 + IO CLong dOMTouchGetPageY :: (MonadIO m, DOMTouchK a) => a -- _obj - -> m Int64 -- result + -> m CLong -- result dOMTouchGetPageY _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- webkit_dom_touch_get_page_y _obj' @@ -575,26 +647,26 @@ return result data DOMTouchGetPageYMethodInfo -instance (signature ~ (m Int64), MonadIO m, DOMTouchK a) => MethodInfo DOMTouchGetPageYMethodInfo a signature where +instance (signature ~ (m CLong), MonadIO m, DOMTouchK a) => MethodInfo DOMTouchGetPageYMethodInfo a signature where overloadedMethod _ = dOMTouchGetPageY -- method DOMTouch::get_screen_x -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMTouch", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TInt64 +-- returnType : Just (TBasicType TLong) -- throws : False -- Skip return : False foreign import ccall "webkit_dom_touch_get_screen_x" webkit_dom_touch_get_screen_x :: Ptr DOMTouch -> -- _obj : TInterface "WebKit" "DOMTouch" - IO Int64 + IO CLong dOMTouchGetScreenX :: (MonadIO m, DOMTouchK a) => a -- _obj - -> m Int64 -- result + -> m CLong -- result dOMTouchGetScreenX _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- webkit_dom_touch_get_screen_x _obj' @@ -602,26 +674,26 @@ return result data DOMTouchGetScreenXMethodInfo -instance (signature ~ (m Int64), MonadIO m, DOMTouchK a) => MethodInfo DOMTouchGetScreenXMethodInfo a signature where +instance (signature ~ (m CLong), MonadIO m, DOMTouchK a) => MethodInfo DOMTouchGetScreenXMethodInfo a signature where overloadedMethod _ = dOMTouchGetScreenX -- method DOMTouch::get_screen_y -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMTouch", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TInt64 +-- returnType : Just (TBasicType TLong) -- throws : False -- Skip return : False foreign import ccall "webkit_dom_touch_get_screen_y" webkit_dom_touch_get_screen_y :: Ptr DOMTouch -> -- _obj : TInterface "WebKit" "DOMTouch" - IO Int64 + IO CLong dOMTouchGetScreenY :: (MonadIO m, DOMTouchK a) => a -- _obj - -> m Int64 -- result + -> m CLong -- result dOMTouchGetScreenY _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- webkit_dom_touch_get_screen_y _obj' @@ -629,14 +701,14 @@ return result data DOMTouchGetScreenYMethodInfo -instance (signature ~ (m Int64), MonadIO m, DOMTouchK a) => MethodInfo DOMTouchGetScreenYMethodInfo a signature where +instance (signature ~ (m CLong), MonadIO m, DOMTouchK a) => MethodInfo DOMTouchGetScreenYMethodInfo a signature where overloadedMethod _ = dOMTouchGetScreenY -- method DOMTouch::get_target -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMTouch", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit" "DOMEventTarget" +-- returnType : Just (TInterface "WebKit" "DOMEventTarget") -- throws : False -- Skip return : False @@ -665,7 +737,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMTouch", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TFloat +-- returnType : Just (TBasicType TFloat) -- throws : False -- Skip return : False @@ -693,19 +765,19 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMTouch", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TInt64 +-- returnType : Just (TBasicType TLong) -- throws : False -- Skip return : False foreign import ccall "webkit_dom_touch_get_webkit_radius_x" webkit_dom_touch_get_webkit_radius_x :: Ptr DOMTouch -> -- _obj : TInterface "WebKit" "DOMTouch" - IO Int64 + IO CLong dOMTouchGetWebkitRadiusX :: (MonadIO m, DOMTouchK a) => a -- _obj - -> m Int64 -- result + -> m CLong -- result dOMTouchGetWebkitRadiusX _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- webkit_dom_touch_get_webkit_radius_x _obj' @@ -713,26 +785,26 @@ return result data DOMTouchGetWebkitRadiusXMethodInfo -instance (signature ~ (m Int64), MonadIO m, DOMTouchK a) => MethodInfo DOMTouchGetWebkitRadiusXMethodInfo a signature where +instance (signature ~ (m CLong), MonadIO m, DOMTouchK a) => MethodInfo DOMTouchGetWebkitRadiusXMethodInfo a signature where overloadedMethod _ = dOMTouchGetWebkitRadiusX -- method DOMTouch::get_webkit_radius_y -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMTouch", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TInt64 +-- returnType : Just (TBasicType TLong) -- throws : False -- Skip return : False foreign import ccall "webkit_dom_touch_get_webkit_radius_y" webkit_dom_touch_get_webkit_radius_y :: Ptr DOMTouch -> -- _obj : TInterface "WebKit" "DOMTouch" - IO Int64 + IO CLong dOMTouchGetWebkitRadiusY :: (MonadIO m, DOMTouchK a) => a -- _obj - -> m Int64 -- result + -> m CLong -- result dOMTouchGetWebkitRadiusY _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- webkit_dom_touch_get_webkit_radius_y _obj' @@ -740,14 +812,14 @@ return result data DOMTouchGetWebkitRadiusYMethodInfo -instance (signature ~ (m Int64), MonadIO m, DOMTouchK a) => MethodInfo DOMTouchGetWebkitRadiusYMethodInfo a signature where +instance (signature ~ (m CLong), MonadIO m, DOMTouchK a) => MethodInfo DOMTouchGetWebkitRadiusYMethodInfo a signature where overloadedMethod _ = dOMTouchGetWebkitRadiusY -- method DOMTouch::get_webkit_rotation_angle -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMTouch", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TFloat +-- returnType : Just (TBasicType TFloat) -- throws : False -- Skip return : False diff --git a/GI/WebKit/Objects/DOMTouch.hs-boot b/GI/WebKit/Objects/DOMTouch.hs-boot --- a/GI/WebKit/Objects/DOMTouch.hs-boot +++ b/GI/WebKit/Objects/DOMTouch.hs-boot @@ -1,8 +1,8 @@ module GI.WebKit.Objects.DOMTouch where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map diff --git a/GI/WebKit/Objects/DOMTrackEvent.hs b/GI/WebKit/Objects/DOMTrackEvent.hs --- a/GI/WebKit/Objects/DOMTrackEvent.hs +++ b/GI/WebKit/Objects/DOMTrackEvent.hs @@ -18,9 +18,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map diff --git a/GI/WebKit/Objects/DOMTrackEvent.hs-boot b/GI/WebKit/Objects/DOMTrackEvent.hs-boot --- a/GI/WebKit/Objects/DOMTrackEvent.hs-boot +++ b/GI/WebKit/Objects/DOMTrackEvent.hs-boot @@ -1,8 +1,8 @@ module GI.WebKit.Objects.DOMTrackEvent where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map diff --git a/GI/WebKit/Objects/DOMTreeWalker.hs b/GI/WebKit/Objects/DOMTreeWalker.hs --- a/GI/WebKit/Objects/DOMTreeWalker.hs +++ b/GI/WebKit/Objects/DOMTreeWalker.hs @@ -87,26 +87,31 @@ -- * Properties -- ** CurrentNode DOMTreeWalkerCurrentNodePropertyInfo , + dOMTreeWalkerCurrentNode , getDOMTreeWalkerCurrentNode , -- ** ExpandEntityReferences DOMTreeWalkerExpandEntityReferencesPropertyInfo, + dOMTreeWalkerExpandEntityReferences , getDOMTreeWalkerExpandEntityReferences , -- ** Filter DOMTreeWalkerFilterPropertyInfo , + dOMTreeWalkerFilter , getDOMTreeWalkerFilter , -- ** Root DOMTreeWalkerRootPropertyInfo , + dOMTreeWalkerRoot , getDOMTreeWalkerRoot , -- ** WhatToShow DOMTreeWalkerWhatToShowPropertyInfo , + dOMTreeWalkerWhatToShow , getDOMTreeWalkerWhatToShow , @@ -114,9 +119,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map @@ -195,13 +200,14 @@ -- VVV Prop "current-node" -- Type: TInterface "WebKit" "DOMNode" -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) getDOMTreeWalkerCurrentNode :: (MonadIO m, DOMTreeWalkerK o) => o -> m DOMNode -getDOMTreeWalkerCurrentNode obj = liftIO $ getObjectPropertyObject obj "current-node" DOMNode +getDOMTreeWalkerCurrentNode obj = liftIO $ checkUnexpectedNothing "getDOMTreeWalkerCurrentNode" $ getObjectPropertyObject obj "current-node" DOMNode data DOMTreeWalkerCurrentNodePropertyInfo instance AttrInfo DOMTreeWalkerCurrentNodePropertyInfo where - type AttrAllowedOps DOMTreeWalkerCurrentNodePropertyInfo = '[ 'AttrGet] + type AttrAllowedOps DOMTreeWalkerCurrentNodePropertyInfo = '[ 'AttrGet, 'AttrClear] type AttrSetTypeConstraint DOMTreeWalkerCurrentNodePropertyInfo = (~) () type AttrBaseTypeConstraint DOMTreeWalkerCurrentNodePropertyInfo = DOMTreeWalkerK type AttrGetType DOMTreeWalkerCurrentNodePropertyInfo = DOMNode @@ -209,10 +215,12 @@ attrGet _ = getDOMTreeWalkerCurrentNode attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "expand-entity-references" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) getDOMTreeWalkerExpandEntityReferences :: (MonadIO m, DOMTreeWalkerK o) => o -> m Bool getDOMTreeWalkerExpandEntityReferences obj = liftIO $ getObjectPropertyBool obj "expand-entity-references" @@ -227,35 +235,39 @@ attrGet _ = getDOMTreeWalkerExpandEntityReferences attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "filter" -- Type: TInterface "WebKit" "DOMNodeFilter" -- Flags: [PropertyReadable] + -- Nullable: (Nothing,Nothing) -getDOMTreeWalkerFilter :: (MonadIO m, DOMTreeWalkerK o) => o -> m DOMNodeFilter +getDOMTreeWalkerFilter :: (MonadIO m, DOMTreeWalkerK o) => o -> m (Maybe DOMNodeFilter) getDOMTreeWalkerFilter obj = liftIO $ getObjectPropertyObject obj "filter" DOMNodeFilter data DOMTreeWalkerFilterPropertyInfo instance AttrInfo DOMTreeWalkerFilterPropertyInfo where - type AttrAllowedOps DOMTreeWalkerFilterPropertyInfo = '[ 'AttrGet] + type AttrAllowedOps DOMTreeWalkerFilterPropertyInfo = '[ 'AttrGet, 'AttrClear] type AttrSetTypeConstraint DOMTreeWalkerFilterPropertyInfo = (~) () type AttrBaseTypeConstraint DOMTreeWalkerFilterPropertyInfo = DOMTreeWalkerK - type AttrGetType DOMTreeWalkerFilterPropertyInfo = DOMNodeFilter + type AttrGetType DOMTreeWalkerFilterPropertyInfo = (Maybe DOMNodeFilter) type AttrLabel DOMTreeWalkerFilterPropertyInfo = "filter" attrGet _ = getDOMTreeWalkerFilter attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "root" -- Type: TInterface "WebKit" "DOMNode" -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) getDOMTreeWalkerRoot :: (MonadIO m, DOMTreeWalkerK o) => o -> m DOMNode -getDOMTreeWalkerRoot obj = liftIO $ getObjectPropertyObject obj "root" DOMNode +getDOMTreeWalkerRoot obj = liftIO $ checkUnexpectedNothing "getDOMTreeWalkerRoot" $ getObjectPropertyObject obj "root" DOMNode data DOMTreeWalkerRootPropertyInfo instance AttrInfo DOMTreeWalkerRootPropertyInfo where - type AttrAllowedOps DOMTreeWalkerRootPropertyInfo = '[ 'AttrGet] + type AttrAllowedOps DOMTreeWalkerRootPropertyInfo = '[ 'AttrGet, 'AttrClear] type AttrSetTypeConstraint DOMTreeWalkerRootPropertyInfo = (~) () type AttrBaseTypeConstraint DOMTreeWalkerRootPropertyInfo = DOMTreeWalkerK type AttrGetType DOMTreeWalkerRootPropertyInfo = DOMNode @@ -263,28 +275,46 @@ attrGet _ = getDOMTreeWalkerRoot attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "what-to-show" - -- Type: TBasicType TUInt64 + -- Type: TBasicType TULong -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) -getDOMTreeWalkerWhatToShow :: (MonadIO m, DOMTreeWalkerK o) => o -> m Word64 -getDOMTreeWalkerWhatToShow obj = liftIO $ getObjectPropertyUInt64 obj "what-to-show" +getDOMTreeWalkerWhatToShow :: (MonadIO m, DOMTreeWalkerK o) => o -> m CULong +getDOMTreeWalkerWhatToShow obj = liftIO $ getObjectPropertyULong obj "what-to-show" data DOMTreeWalkerWhatToShowPropertyInfo instance AttrInfo DOMTreeWalkerWhatToShowPropertyInfo where type AttrAllowedOps DOMTreeWalkerWhatToShowPropertyInfo = '[ 'AttrGet] type AttrSetTypeConstraint DOMTreeWalkerWhatToShowPropertyInfo = (~) () type AttrBaseTypeConstraint DOMTreeWalkerWhatToShowPropertyInfo = DOMTreeWalkerK - type AttrGetType DOMTreeWalkerWhatToShowPropertyInfo = Word64 + type AttrGetType DOMTreeWalkerWhatToShowPropertyInfo = CULong type AttrLabel DOMTreeWalkerWhatToShowPropertyInfo = "what-to-show" attrGet _ = getDOMTreeWalkerWhatToShow attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined type instance AttributeList DOMTreeWalker = DOMTreeWalkerAttributeList type DOMTreeWalkerAttributeList = ('[ '("coreObject", DOMObjectCoreObjectPropertyInfo), '("currentNode", DOMTreeWalkerCurrentNodePropertyInfo), '("expandEntityReferences", DOMTreeWalkerExpandEntityReferencesPropertyInfo), '("filter", DOMTreeWalkerFilterPropertyInfo), '("root", DOMTreeWalkerRootPropertyInfo), '("whatToShow", DOMTreeWalkerWhatToShowPropertyInfo)] :: [(Symbol, *)]) +dOMTreeWalkerCurrentNode :: AttrLabelProxy "currentNode" +dOMTreeWalkerCurrentNode = AttrLabelProxy + +dOMTreeWalkerExpandEntityReferences :: AttrLabelProxy "expandEntityReferences" +dOMTreeWalkerExpandEntityReferences = AttrLabelProxy + +dOMTreeWalkerFilter :: AttrLabelProxy "filter" +dOMTreeWalkerFilter = AttrLabelProxy + +dOMTreeWalkerRoot :: AttrLabelProxy "root" +dOMTreeWalkerRoot = AttrLabelProxy + +dOMTreeWalkerWhatToShow :: AttrLabelProxy "whatToShow" +dOMTreeWalkerWhatToShow = AttrLabelProxy + type instance SignalList DOMTreeWalker = DOMTreeWalkerSignalList type DOMTreeWalkerSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) @@ -292,7 +322,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMTreeWalker", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit" "DOMNode" +-- returnType : Just (TInterface "WebKit" "DOMNode") -- throws : False -- Skip return : False @@ -321,7 +351,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMTreeWalker", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit" "DOMNode" +-- returnType : Just (TInterface "WebKit" "DOMNode") -- throws : False -- Skip return : False @@ -350,7 +380,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMTreeWalker", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -378,7 +408,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMTreeWalker", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit" "DOMNodeFilter" +-- returnType : Just (TInterface "WebKit" "DOMNodeFilter") -- throws : False -- Skip return : False @@ -407,7 +437,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMTreeWalker", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit" "DOMNode" +-- returnType : Just (TInterface "WebKit" "DOMNode") -- throws : False -- Skip return : False @@ -436,19 +466,19 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMTreeWalker", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUInt64 +-- returnType : Just (TBasicType TULong) -- throws : False -- Skip return : False foreign import ccall "webkit_dom_tree_walker_get_what_to_show" webkit_dom_tree_walker_get_what_to_show :: Ptr DOMTreeWalker -> -- _obj : TInterface "WebKit" "DOMTreeWalker" - IO Word64 + IO CULong dOMTreeWalkerGetWhatToShow :: (MonadIO m, DOMTreeWalkerK a) => a -- _obj - -> m Word64 -- result + -> m CULong -- result dOMTreeWalkerGetWhatToShow _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- webkit_dom_tree_walker_get_what_to_show _obj' @@ -456,14 +486,14 @@ return result data DOMTreeWalkerGetWhatToShowMethodInfo -instance (signature ~ (m Word64), MonadIO m, DOMTreeWalkerK a) => MethodInfo DOMTreeWalkerGetWhatToShowMethodInfo a signature where +instance (signature ~ (m CULong), MonadIO m, DOMTreeWalkerK a) => MethodInfo DOMTreeWalkerGetWhatToShowMethodInfo a signature where overloadedMethod _ = dOMTreeWalkerGetWhatToShow -- method DOMTreeWalker::last_child -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMTreeWalker", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit" "DOMNode" +-- returnType : Just (TInterface "WebKit" "DOMNode") -- throws : False -- Skip return : False @@ -492,7 +522,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMTreeWalker", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit" "DOMNode" +-- returnType : Just (TInterface "WebKit" "DOMNode") -- throws : False -- Skip return : False @@ -521,7 +551,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMTreeWalker", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit" "DOMNode" +-- returnType : Just (TInterface "WebKit" "DOMNode") -- throws : False -- Skip return : False @@ -550,7 +580,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMTreeWalker", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit" "DOMNode" +-- returnType : Just (TInterface "WebKit" "DOMNode") -- throws : False -- Skip return : False @@ -579,7 +609,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMTreeWalker", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit" "DOMNode" +-- returnType : Just (TInterface "WebKit" "DOMNode") -- throws : False -- Skip return : False @@ -608,7 +638,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMTreeWalker", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit" "DOMNode" +-- returnType : Just (TInterface "WebKit" "DOMNode") -- throws : False -- Skip return : False @@ -637,7 +667,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMTreeWalker", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : True -- Skip return : False diff --git a/GI/WebKit/Objects/DOMTreeWalker.hs-boot b/GI/WebKit/Objects/DOMTreeWalker.hs-boot --- a/GI/WebKit/Objects/DOMTreeWalker.hs-boot +++ b/GI/WebKit/Objects/DOMTreeWalker.hs-boot @@ -1,8 +1,8 @@ module GI.WebKit.Objects.DOMTreeWalker where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map diff --git a/GI/WebKit/Objects/DOMUIEvent.hs b/GI/WebKit/Objects/DOMUIEvent.hs --- a/GI/WebKit/Objects/DOMUIEvent.hs +++ b/GI/WebKit/Objects/DOMUIEvent.hs @@ -72,46 +72,55 @@ -- * Properties -- ** CharCode DOMUIEventCharCodePropertyInfo , + dOMUIEventCharCode , getDOMUIEventCharCode , -- ** Detail DOMUIEventDetailPropertyInfo , + dOMUIEventDetail , getDOMUIEventDetail , -- ** KeyCode DOMUIEventKeyCodePropertyInfo , + dOMUIEventKeyCode , getDOMUIEventKeyCode , -- ** LayerX DOMUIEventLayerXPropertyInfo , + dOMUIEventLayerX , getDOMUIEventLayerX , -- ** LayerY DOMUIEventLayerYPropertyInfo , + dOMUIEventLayerY , getDOMUIEventLayerY , -- ** PageX DOMUIEventPageXPropertyInfo , + dOMUIEventPageX , getDOMUIEventPageX , -- ** PageY DOMUIEventPageYPropertyInfo , + dOMUIEventPageY , getDOMUIEventPageY , -- ** View DOMUIEventViewPropertyInfo , + dOMUIEventView , getDOMUIEventView , -- ** Which DOMUIEventWhichPropertyInfo , + dOMUIEventWhich , getDOMUIEventWhich , @@ -119,9 +128,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map @@ -211,170 +220,215 @@ #endif -- VVV Prop "char-code" - -- Type: TBasicType TInt64 + -- Type: TBasicType TLong -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) -getDOMUIEventCharCode :: (MonadIO m, DOMUIEventK o) => o -> m Int64 -getDOMUIEventCharCode obj = liftIO $ getObjectPropertyInt64 obj "char-code" +getDOMUIEventCharCode :: (MonadIO m, DOMUIEventK o) => o -> m CLong +getDOMUIEventCharCode obj = liftIO $ getObjectPropertyLong obj "char-code" data DOMUIEventCharCodePropertyInfo instance AttrInfo DOMUIEventCharCodePropertyInfo where type AttrAllowedOps DOMUIEventCharCodePropertyInfo = '[ 'AttrGet] type AttrSetTypeConstraint DOMUIEventCharCodePropertyInfo = (~) () type AttrBaseTypeConstraint DOMUIEventCharCodePropertyInfo = DOMUIEventK - type AttrGetType DOMUIEventCharCodePropertyInfo = Int64 + type AttrGetType DOMUIEventCharCodePropertyInfo = CLong type AttrLabel DOMUIEventCharCodePropertyInfo = "char-code" attrGet _ = getDOMUIEventCharCode attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "detail" - -- Type: TBasicType TInt64 + -- Type: TBasicType TLong -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) -getDOMUIEventDetail :: (MonadIO m, DOMUIEventK o) => o -> m Int64 -getDOMUIEventDetail obj = liftIO $ getObjectPropertyInt64 obj "detail" +getDOMUIEventDetail :: (MonadIO m, DOMUIEventK o) => o -> m CLong +getDOMUIEventDetail obj = liftIO $ getObjectPropertyLong obj "detail" data DOMUIEventDetailPropertyInfo instance AttrInfo DOMUIEventDetailPropertyInfo where type AttrAllowedOps DOMUIEventDetailPropertyInfo = '[ 'AttrGet] type AttrSetTypeConstraint DOMUIEventDetailPropertyInfo = (~) () type AttrBaseTypeConstraint DOMUIEventDetailPropertyInfo = DOMUIEventK - type AttrGetType DOMUIEventDetailPropertyInfo = Int64 + type AttrGetType DOMUIEventDetailPropertyInfo = CLong type AttrLabel DOMUIEventDetailPropertyInfo = "detail" attrGet _ = getDOMUIEventDetail attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "key-code" - -- Type: TBasicType TInt64 + -- Type: TBasicType TLong -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) -getDOMUIEventKeyCode :: (MonadIO m, DOMUIEventK o) => o -> m Int64 -getDOMUIEventKeyCode obj = liftIO $ getObjectPropertyInt64 obj "key-code" +getDOMUIEventKeyCode :: (MonadIO m, DOMUIEventK o) => o -> m CLong +getDOMUIEventKeyCode obj = liftIO $ getObjectPropertyLong obj "key-code" data DOMUIEventKeyCodePropertyInfo instance AttrInfo DOMUIEventKeyCodePropertyInfo where type AttrAllowedOps DOMUIEventKeyCodePropertyInfo = '[ 'AttrGet] type AttrSetTypeConstraint DOMUIEventKeyCodePropertyInfo = (~) () type AttrBaseTypeConstraint DOMUIEventKeyCodePropertyInfo = DOMUIEventK - type AttrGetType DOMUIEventKeyCodePropertyInfo = Int64 + type AttrGetType DOMUIEventKeyCodePropertyInfo = CLong type AttrLabel DOMUIEventKeyCodePropertyInfo = "key-code" attrGet _ = getDOMUIEventKeyCode attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "layer-x" - -- Type: TBasicType TInt64 + -- Type: TBasicType TLong -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) -getDOMUIEventLayerX :: (MonadIO m, DOMUIEventK o) => o -> m Int64 -getDOMUIEventLayerX obj = liftIO $ getObjectPropertyInt64 obj "layer-x" +getDOMUIEventLayerX :: (MonadIO m, DOMUIEventK o) => o -> m CLong +getDOMUIEventLayerX obj = liftIO $ getObjectPropertyLong obj "layer-x" data DOMUIEventLayerXPropertyInfo instance AttrInfo DOMUIEventLayerXPropertyInfo where type AttrAllowedOps DOMUIEventLayerXPropertyInfo = '[ 'AttrGet] type AttrSetTypeConstraint DOMUIEventLayerXPropertyInfo = (~) () type AttrBaseTypeConstraint DOMUIEventLayerXPropertyInfo = DOMUIEventK - type AttrGetType DOMUIEventLayerXPropertyInfo = Int64 + type AttrGetType DOMUIEventLayerXPropertyInfo = CLong type AttrLabel DOMUIEventLayerXPropertyInfo = "layer-x" attrGet _ = getDOMUIEventLayerX attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "layer-y" - -- Type: TBasicType TInt64 + -- Type: TBasicType TLong -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) -getDOMUIEventLayerY :: (MonadIO m, DOMUIEventK o) => o -> m Int64 -getDOMUIEventLayerY obj = liftIO $ getObjectPropertyInt64 obj "layer-y" +getDOMUIEventLayerY :: (MonadIO m, DOMUIEventK o) => o -> m CLong +getDOMUIEventLayerY obj = liftIO $ getObjectPropertyLong obj "layer-y" data DOMUIEventLayerYPropertyInfo instance AttrInfo DOMUIEventLayerYPropertyInfo where type AttrAllowedOps DOMUIEventLayerYPropertyInfo = '[ 'AttrGet] type AttrSetTypeConstraint DOMUIEventLayerYPropertyInfo = (~) () type AttrBaseTypeConstraint DOMUIEventLayerYPropertyInfo = DOMUIEventK - type AttrGetType DOMUIEventLayerYPropertyInfo = Int64 + type AttrGetType DOMUIEventLayerYPropertyInfo = CLong type AttrLabel DOMUIEventLayerYPropertyInfo = "layer-y" attrGet _ = getDOMUIEventLayerY attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "page-x" - -- Type: TBasicType TInt64 + -- Type: TBasicType TLong -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) -getDOMUIEventPageX :: (MonadIO m, DOMUIEventK o) => o -> m Int64 -getDOMUIEventPageX obj = liftIO $ getObjectPropertyInt64 obj "page-x" +getDOMUIEventPageX :: (MonadIO m, DOMUIEventK o) => o -> m CLong +getDOMUIEventPageX obj = liftIO $ getObjectPropertyLong obj "page-x" data DOMUIEventPageXPropertyInfo instance AttrInfo DOMUIEventPageXPropertyInfo where type AttrAllowedOps DOMUIEventPageXPropertyInfo = '[ 'AttrGet] type AttrSetTypeConstraint DOMUIEventPageXPropertyInfo = (~) () type AttrBaseTypeConstraint DOMUIEventPageXPropertyInfo = DOMUIEventK - type AttrGetType DOMUIEventPageXPropertyInfo = Int64 + type AttrGetType DOMUIEventPageXPropertyInfo = CLong type AttrLabel DOMUIEventPageXPropertyInfo = "page-x" attrGet _ = getDOMUIEventPageX attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "page-y" - -- Type: TBasicType TInt64 + -- Type: TBasicType TLong -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) -getDOMUIEventPageY :: (MonadIO m, DOMUIEventK o) => o -> m Int64 -getDOMUIEventPageY obj = liftIO $ getObjectPropertyInt64 obj "page-y" +getDOMUIEventPageY :: (MonadIO m, DOMUIEventK o) => o -> m CLong +getDOMUIEventPageY obj = liftIO $ getObjectPropertyLong obj "page-y" data DOMUIEventPageYPropertyInfo instance AttrInfo DOMUIEventPageYPropertyInfo where type AttrAllowedOps DOMUIEventPageYPropertyInfo = '[ 'AttrGet] type AttrSetTypeConstraint DOMUIEventPageYPropertyInfo = (~) () type AttrBaseTypeConstraint DOMUIEventPageYPropertyInfo = DOMUIEventK - type AttrGetType DOMUIEventPageYPropertyInfo = Int64 + type AttrGetType DOMUIEventPageYPropertyInfo = CLong type AttrLabel DOMUIEventPageYPropertyInfo = "page-y" attrGet _ = getDOMUIEventPageY attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "view" -- Type: TInterface "WebKit" "DOMDOMWindow" -- Flags: [PropertyReadable] + -- Nullable: (Nothing,Nothing) -getDOMUIEventView :: (MonadIO m, DOMUIEventK o) => o -> m DOMDOMWindow +getDOMUIEventView :: (MonadIO m, DOMUIEventK o) => o -> m (Maybe DOMDOMWindow) getDOMUIEventView obj = liftIO $ getObjectPropertyObject obj "view" DOMDOMWindow data DOMUIEventViewPropertyInfo instance AttrInfo DOMUIEventViewPropertyInfo where - type AttrAllowedOps DOMUIEventViewPropertyInfo = '[ 'AttrGet] + type AttrAllowedOps DOMUIEventViewPropertyInfo = '[ 'AttrGet, 'AttrClear] type AttrSetTypeConstraint DOMUIEventViewPropertyInfo = (~) () type AttrBaseTypeConstraint DOMUIEventViewPropertyInfo = DOMUIEventK - type AttrGetType DOMUIEventViewPropertyInfo = DOMDOMWindow + type AttrGetType DOMUIEventViewPropertyInfo = (Maybe DOMDOMWindow) type AttrLabel DOMUIEventViewPropertyInfo = "view" attrGet _ = getDOMUIEventView attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "which" - -- Type: TBasicType TInt64 + -- Type: TBasicType TLong -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) -getDOMUIEventWhich :: (MonadIO m, DOMUIEventK o) => o -> m Int64 -getDOMUIEventWhich obj = liftIO $ getObjectPropertyInt64 obj "which" +getDOMUIEventWhich :: (MonadIO m, DOMUIEventK o) => o -> m CLong +getDOMUIEventWhich obj = liftIO $ getObjectPropertyLong obj "which" data DOMUIEventWhichPropertyInfo instance AttrInfo DOMUIEventWhichPropertyInfo where type AttrAllowedOps DOMUIEventWhichPropertyInfo = '[ 'AttrGet] type AttrSetTypeConstraint DOMUIEventWhichPropertyInfo = (~) () type AttrBaseTypeConstraint DOMUIEventWhichPropertyInfo = DOMUIEventK - type AttrGetType DOMUIEventWhichPropertyInfo = Int64 + type AttrGetType DOMUIEventWhichPropertyInfo = CLong type AttrLabel DOMUIEventWhichPropertyInfo = "which" attrGet _ = getDOMUIEventWhich attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined type instance AttributeList DOMUIEvent = DOMUIEventAttributeList type DOMUIEventAttributeList = ('[ '("bubbles", DOMEventBubblesPropertyInfo), '("cancelBubble", DOMEventCancelBubblePropertyInfo), '("cancelable", DOMEventCancelablePropertyInfo), '("charCode", DOMUIEventCharCodePropertyInfo), '("coreObject", DOMObjectCoreObjectPropertyInfo), '("currentTarget", DOMEventCurrentTargetPropertyInfo), '("defaultPrevented", DOMEventDefaultPreventedPropertyInfo), '("detail", DOMUIEventDetailPropertyInfo), '("eventPhase", DOMEventEventPhasePropertyInfo), '("keyCode", DOMUIEventKeyCodePropertyInfo), '("layerX", DOMUIEventLayerXPropertyInfo), '("layerY", DOMUIEventLayerYPropertyInfo), '("pageX", DOMUIEventPageXPropertyInfo), '("pageY", DOMUIEventPageYPropertyInfo), '("returnValue", DOMEventReturnValuePropertyInfo), '("srcElement", DOMEventSrcElementPropertyInfo), '("target", DOMEventTargetPropertyInfo), '("timeStamp", DOMEventTimeStampPropertyInfo), '("type", DOMEventTypePropertyInfo), '("view", DOMUIEventViewPropertyInfo), '("which", DOMUIEventWhichPropertyInfo)] :: [(Symbol, *)]) +dOMUIEventCharCode :: AttrLabelProxy "charCode" +dOMUIEventCharCode = AttrLabelProxy + +dOMUIEventDetail :: AttrLabelProxy "detail" +dOMUIEventDetail = AttrLabelProxy + +dOMUIEventKeyCode :: AttrLabelProxy "keyCode" +dOMUIEventKeyCode = AttrLabelProxy + +dOMUIEventLayerX :: AttrLabelProxy "layerX" +dOMUIEventLayerX = AttrLabelProxy + +dOMUIEventLayerY :: AttrLabelProxy "layerY" +dOMUIEventLayerY = AttrLabelProxy + +dOMUIEventPageX :: AttrLabelProxy "pageX" +dOMUIEventPageX = AttrLabelProxy + +dOMUIEventPageY :: AttrLabelProxy "pageY" +dOMUIEventPageY = AttrLabelProxy + +dOMUIEventView :: AttrLabelProxy "view" +dOMUIEventView = AttrLabelProxy + +dOMUIEventWhich :: AttrLabelProxy "which" +dOMUIEventWhich = AttrLabelProxy + type instance SignalList DOMUIEvent = DOMUIEventSignalList type DOMUIEventSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) @@ -382,19 +436,19 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMUIEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TInt64 +-- returnType : Just (TBasicType TLong) -- throws : False -- Skip return : False foreign import ccall "webkit_dom_ui_event_get_char_code" webkit_dom_ui_event_get_char_code :: Ptr DOMUIEvent -> -- _obj : TInterface "WebKit" "DOMUIEvent" - IO Int64 + IO CLong dOMUIEventGetCharCode :: (MonadIO m, DOMUIEventK a) => a -- _obj - -> m Int64 -- result + -> m CLong -- result dOMUIEventGetCharCode _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- webkit_dom_ui_event_get_char_code _obj' @@ -402,26 +456,26 @@ return result data DOMUIEventGetCharCodeMethodInfo -instance (signature ~ (m Int64), MonadIO m, DOMUIEventK a) => MethodInfo DOMUIEventGetCharCodeMethodInfo a signature where +instance (signature ~ (m CLong), MonadIO m, DOMUIEventK a) => MethodInfo DOMUIEventGetCharCodeMethodInfo a signature where overloadedMethod _ = dOMUIEventGetCharCode -- method DOMUIEvent::get_detail -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMUIEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TInt64 +-- returnType : Just (TBasicType TLong) -- throws : False -- Skip return : False foreign import ccall "webkit_dom_ui_event_get_detail" webkit_dom_ui_event_get_detail :: Ptr DOMUIEvent -> -- _obj : TInterface "WebKit" "DOMUIEvent" - IO Int64 + IO CLong dOMUIEventGetDetail :: (MonadIO m, DOMUIEventK a) => a -- _obj - -> m Int64 -- result + -> m CLong -- result dOMUIEventGetDetail _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- webkit_dom_ui_event_get_detail _obj' @@ -429,26 +483,26 @@ return result data DOMUIEventGetDetailMethodInfo -instance (signature ~ (m Int64), MonadIO m, DOMUIEventK a) => MethodInfo DOMUIEventGetDetailMethodInfo a signature where +instance (signature ~ (m CLong), MonadIO m, DOMUIEventK a) => MethodInfo DOMUIEventGetDetailMethodInfo a signature where overloadedMethod _ = dOMUIEventGetDetail -- method DOMUIEvent::get_key_code -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMUIEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TInt64 +-- returnType : Just (TBasicType TLong) -- throws : False -- Skip return : False foreign import ccall "webkit_dom_ui_event_get_key_code" webkit_dom_ui_event_get_key_code :: Ptr DOMUIEvent -> -- _obj : TInterface "WebKit" "DOMUIEvent" - IO Int64 + IO CLong dOMUIEventGetKeyCode :: (MonadIO m, DOMUIEventK a) => a -- _obj - -> m Int64 -- result + -> m CLong -- result dOMUIEventGetKeyCode _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- webkit_dom_ui_event_get_key_code _obj' @@ -456,26 +510,26 @@ return result data DOMUIEventGetKeyCodeMethodInfo -instance (signature ~ (m Int64), MonadIO m, DOMUIEventK a) => MethodInfo DOMUIEventGetKeyCodeMethodInfo a signature where +instance (signature ~ (m CLong), MonadIO m, DOMUIEventK a) => MethodInfo DOMUIEventGetKeyCodeMethodInfo a signature where overloadedMethod _ = dOMUIEventGetKeyCode -- method DOMUIEvent::get_layer_x -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMUIEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TInt64 +-- returnType : Just (TBasicType TLong) -- throws : False -- Skip return : False foreign import ccall "webkit_dom_ui_event_get_layer_x" webkit_dom_ui_event_get_layer_x :: Ptr DOMUIEvent -> -- _obj : TInterface "WebKit" "DOMUIEvent" - IO Int64 + IO CLong dOMUIEventGetLayerX :: (MonadIO m, DOMUIEventK a) => a -- _obj - -> m Int64 -- result + -> m CLong -- result dOMUIEventGetLayerX _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- webkit_dom_ui_event_get_layer_x _obj' @@ -483,26 +537,26 @@ return result data DOMUIEventGetLayerXMethodInfo -instance (signature ~ (m Int64), MonadIO m, DOMUIEventK a) => MethodInfo DOMUIEventGetLayerXMethodInfo a signature where +instance (signature ~ (m CLong), MonadIO m, DOMUIEventK a) => MethodInfo DOMUIEventGetLayerXMethodInfo a signature where overloadedMethod _ = dOMUIEventGetLayerX -- method DOMUIEvent::get_layer_y -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMUIEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TInt64 +-- returnType : Just (TBasicType TLong) -- throws : False -- Skip return : False foreign import ccall "webkit_dom_ui_event_get_layer_y" webkit_dom_ui_event_get_layer_y :: Ptr DOMUIEvent -> -- _obj : TInterface "WebKit" "DOMUIEvent" - IO Int64 + IO CLong dOMUIEventGetLayerY :: (MonadIO m, DOMUIEventK a) => a -- _obj - -> m Int64 -- result + -> m CLong -- result dOMUIEventGetLayerY _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- webkit_dom_ui_event_get_layer_y _obj' @@ -510,26 +564,26 @@ return result data DOMUIEventGetLayerYMethodInfo -instance (signature ~ (m Int64), MonadIO m, DOMUIEventK a) => MethodInfo DOMUIEventGetLayerYMethodInfo a signature where +instance (signature ~ (m CLong), MonadIO m, DOMUIEventK a) => MethodInfo DOMUIEventGetLayerYMethodInfo a signature where overloadedMethod _ = dOMUIEventGetLayerY -- method DOMUIEvent::get_page_x -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMUIEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TInt64 +-- returnType : Just (TBasicType TLong) -- throws : False -- Skip return : False foreign import ccall "webkit_dom_ui_event_get_page_x" webkit_dom_ui_event_get_page_x :: Ptr DOMUIEvent -> -- _obj : TInterface "WebKit" "DOMUIEvent" - IO Int64 + IO CLong dOMUIEventGetPageX :: (MonadIO m, DOMUIEventK a) => a -- _obj - -> m Int64 -- result + -> m CLong -- result dOMUIEventGetPageX _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- webkit_dom_ui_event_get_page_x _obj' @@ -537,26 +591,26 @@ return result data DOMUIEventGetPageXMethodInfo -instance (signature ~ (m Int64), MonadIO m, DOMUIEventK a) => MethodInfo DOMUIEventGetPageXMethodInfo a signature where +instance (signature ~ (m CLong), MonadIO m, DOMUIEventK a) => MethodInfo DOMUIEventGetPageXMethodInfo a signature where overloadedMethod _ = dOMUIEventGetPageX -- method DOMUIEvent::get_page_y -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMUIEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TInt64 +-- returnType : Just (TBasicType TLong) -- throws : False -- Skip return : False foreign import ccall "webkit_dom_ui_event_get_page_y" webkit_dom_ui_event_get_page_y :: Ptr DOMUIEvent -> -- _obj : TInterface "WebKit" "DOMUIEvent" - IO Int64 + IO CLong dOMUIEventGetPageY :: (MonadIO m, DOMUIEventK a) => a -- _obj - -> m Int64 -- result + -> m CLong -- result dOMUIEventGetPageY _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- webkit_dom_ui_event_get_page_y _obj' @@ -564,14 +618,14 @@ return result data DOMUIEventGetPageYMethodInfo -instance (signature ~ (m Int64), MonadIO m, DOMUIEventK a) => MethodInfo DOMUIEventGetPageYMethodInfo a signature where +instance (signature ~ (m CLong), MonadIO m, DOMUIEventK a) => MethodInfo DOMUIEventGetPageYMethodInfo a signature where overloadedMethod _ = dOMUIEventGetPageY -- method DOMUIEvent::get_view -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMUIEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit" "DOMDOMWindow" +-- returnType : Just (TInterface "WebKit" "DOMDOMWindow") -- throws : False -- Skip return : False @@ -600,19 +654,19 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMUIEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TInt64 +-- returnType : Just (TBasicType TLong) -- throws : False -- Skip return : False foreign import ccall "webkit_dom_ui_event_get_which" webkit_dom_ui_event_get_which :: Ptr DOMUIEvent -> -- _obj : TInterface "WebKit" "DOMUIEvent" - IO Int64 + IO CLong dOMUIEventGetWhich :: (MonadIO m, DOMUIEventK a) => a -- _obj - -> m Int64 -- result + -> m CLong -- result dOMUIEventGetWhich _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- webkit_dom_ui_event_get_which _obj' @@ -620,14 +674,14 @@ return result data DOMUIEventGetWhichMethodInfo -instance (signature ~ (m Int64), MonadIO m, DOMUIEventK a) => MethodInfo DOMUIEventGetWhichMethodInfo a signature where +instance (signature ~ (m CLong), MonadIO m, DOMUIEventK a) => MethodInfo DOMUIEventGetWhichMethodInfo a signature where overloadedMethod _ = dOMUIEventGetWhich -- method DOMUIEvent::init_ui_event -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMUIEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "canBubble", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancelable", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "view", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "detail", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMUIEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "canBubble", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancelable", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "view", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "detail", argType = TBasicType TLong, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -637,7 +691,7 @@ CInt -> -- canBubble : TBasicType TBoolean CInt -> -- cancelable : TBasicType TBoolean Ptr DOMDOMWindow -> -- view : TInterface "WebKit" "DOMDOMWindow" - Int64 -> -- detail : TBasicType TInt64 + CLong -> -- detail : TBasicType TLong IO () @@ -648,7 +702,7 @@ -> Bool -- canBubble -> Bool -- cancelable -> b -- view - -> Int64 -- detail + -> CLong -- detail -> m () -- result dOMUIEventInitUiEvent _obj type_ canBubble cancelable view detail = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj @@ -663,7 +717,7 @@ return () data DOMUIEventInitUiEventMethodInfo -instance (signature ~ (T.Text -> Bool -> Bool -> b -> Int64 -> m ()), MonadIO m, DOMUIEventK a, DOMDOMWindowK b) => MethodInfo DOMUIEventInitUiEventMethodInfo a signature where +instance (signature ~ (T.Text -> Bool -> Bool -> b -> CLong -> m ()), MonadIO m, DOMUIEventK a, DOMDOMWindowK b) => MethodInfo DOMUIEventInitUiEventMethodInfo a signature where overloadedMethod _ = dOMUIEventInitUiEvent diff --git a/GI/WebKit/Objects/DOMUIEvent.hs-boot b/GI/WebKit/Objects/DOMUIEvent.hs-boot --- a/GI/WebKit/Objects/DOMUIEvent.hs-boot +++ b/GI/WebKit/Objects/DOMUIEvent.hs-boot @@ -1,8 +1,8 @@ module GI.WebKit.Objects.DOMUIEvent where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map diff --git a/GI/WebKit/Objects/DOMValidityState.hs b/GI/WebKit/Objects/DOMValidityState.hs --- a/GI/WebKit/Objects/DOMValidityState.hs +++ b/GI/WebKit/Objects/DOMValidityState.hs @@ -72,51 +72,61 @@ -- * Properties -- ** BadInput DOMValidityStateBadInputPropertyInfo , + dOMValidityStateBadInput , getDOMValidityStateBadInput , -- ** CustomError DOMValidityStateCustomErrorPropertyInfo , + dOMValidityStateCustomError , getDOMValidityStateCustomError , -- ** PatternMismatch DOMValidityStatePatternMismatchPropertyInfo, + dOMValidityStatePatternMismatch , getDOMValidityStatePatternMismatch , -- ** RangeOverflow DOMValidityStateRangeOverflowPropertyInfo, + dOMValidityStateRangeOverflow , getDOMValidityStateRangeOverflow , -- ** RangeUnderflow DOMValidityStateRangeUnderflowPropertyInfo, + dOMValidityStateRangeUnderflow , getDOMValidityStateRangeUnderflow , -- ** StepMismatch DOMValidityStateStepMismatchPropertyInfo, + dOMValidityStateStepMismatch , getDOMValidityStateStepMismatch , -- ** TooLong DOMValidityStateTooLongPropertyInfo , + dOMValidityStateTooLong , getDOMValidityStateTooLong , -- ** TypeMismatch DOMValidityStateTypeMismatchPropertyInfo, + dOMValidityStateTypeMismatch , getDOMValidityStateTypeMismatch , -- ** Valid DOMValidityStateValidPropertyInfo , + dOMValidityStateValid , getDOMValidityStateValid , -- ** ValueMissing DOMValidityStateValueMissingPropertyInfo, + dOMValidityStateValueMissing , getDOMValidityStateValueMissing , @@ -124,9 +134,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map @@ -202,6 +212,7 @@ -- VVV Prop "bad-input" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) getDOMValidityStateBadInput :: (MonadIO m, DOMValidityStateK o) => o -> m Bool getDOMValidityStateBadInput obj = liftIO $ getObjectPropertyBool obj "bad-input" @@ -216,10 +227,12 @@ attrGet _ = getDOMValidityStateBadInput attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "custom-error" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) getDOMValidityStateCustomError :: (MonadIO m, DOMValidityStateK o) => o -> m Bool getDOMValidityStateCustomError obj = liftIO $ getObjectPropertyBool obj "custom-error" @@ -234,10 +247,12 @@ attrGet _ = getDOMValidityStateCustomError attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "pattern-mismatch" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) getDOMValidityStatePatternMismatch :: (MonadIO m, DOMValidityStateK o) => o -> m Bool getDOMValidityStatePatternMismatch obj = liftIO $ getObjectPropertyBool obj "pattern-mismatch" @@ -252,10 +267,12 @@ attrGet _ = getDOMValidityStatePatternMismatch attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "range-overflow" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) getDOMValidityStateRangeOverflow :: (MonadIO m, DOMValidityStateK o) => o -> m Bool getDOMValidityStateRangeOverflow obj = liftIO $ getObjectPropertyBool obj "range-overflow" @@ -270,10 +287,12 @@ attrGet _ = getDOMValidityStateRangeOverflow attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "range-underflow" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) getDOMValidityStateRangeUnderflow :: (MonadIO m, DOMValidityStateK o) => o -> m Bool getDOMValidityStateRangeUnderflow obj = liftIO $ getObjectPropertyBool obj "range-underflow" @@ -288,10 +307,12 @@ attrGet _ = getDOMValidityStateRangeUnderflow attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "step-mismatch" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) getDOMValidityStateStepMismatch :: (MonadIO m, DOMValidityStateK o) => o -> m Bool getDOMValidityStateStepMismatch obj = liftIO $ getObjectPropertyBool obj "step-mismatch" @@ -306,10 +327,12 @@ attrGet _ = getDOMValidityStateStepMismatch attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "too-long" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) getDOMValidityStateTooLong :: (MonadIO m, DOMValidityStateK o) => o -> m Bool getDOMValidityStateTooLong obj = liftIO $ getObjectPropertyBool obj "too-long" @@ -324,10 +347,12 @@ attrGet _ = getDOMValidityStateTooLong attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "type-mismatch" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) getDOMValidityStateTypeMismatch :: (MonadIO m, DOMValidityStateK o) => o -> m Bool getDOMValidityStateTypeMismatch obj = liftIO $ getObjectPropertyBool obj "type-mismatch" @@ -342,10 +367,12 @@ attrGet _ = getDOMValidityStateTypeMismatch attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "valid" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) getDOMValidityStateValid :: (MonadIO m, DOMValidityStateK o) => o -> m Bool getDOMValidityStateValid obj = liftIO $ getObjectPropertyBool obj "valid" @@ -360,10 +387,12 @@ attrGet _ = getDOMValidityStateValid attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "value-missing" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) getDOMValidityStateValueMissing :: (MonadIO m, DOMValidityStateK o) => o -> m Bool getDOMValidityStateValueMissing obj = liftIO $ getObjectPropertyBool obj "value-missing" @@ -378,10 +407,41 @@ attrGet _ = getDOMValidityStateValueMissing attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined type instance AttributeList DOMValidityState = DOMValidityStateAttributeList type DOMValidityStateAttributeList = ('[ '("badInput", DOMValidityStateBadInputPropertyInfo), '("coreObject", DOMObjectCoreObjectPropertyInfo), '("customError", DOMValidityStateCustomErrorPropertyInfo), '("patternMismatch", DOMValidityStatePatternMismatchPropertyInfo), '("rangeOverflow", DOMValidityStateRangeOverflowPropertyInfo), '("rangeUnderflow", DOMValidityStateRangeUnderflowPropertyInfo), '("stepMismatch", DOMValidityStateStepMismatchPropertyInfo), '("tooLong", DOMValidityStateTooLongPropertyInfo), '("typeMismatch", DOMValidityStateTypeMismatchPropertyInfo), '("valid", DOMValidityStateValidPropertyInfo), '("valueMissing", DOMValidityStateValueMissingPropertyInfo)] :: [(Symbol, *)]) +dOMValidityStateBadInput :: AttrLabelProxy "badInput" +dOMValidityStateBadInput = AttrLabelProxy + +dOMValidityStateCustomError :: AttrLabelProxy "customError" +dOMValidityStateCustomError = AttrLabelProxy + +dOMValidityStatePatternMismatch :: AttrLabelProxy "patternMismatch" +dOMValidityStatePatternMismatch = AttrLabelProxy + +dOMValidityStateRangeOverflow :: AttrLabelProxy "rangeOverflow" +dOMValidityStateRangeOverflow = AttrLabelProxy + +dOMValidityStateRangeUnderflow :: AttrLabelProxy "rangeUnderflow" +dOMValidityStateRangeUnderflow = AttrLabelProxy + +dOMValidityStateStepMismatch :: AttrLabelProxy "stepMismatch" +dOMValidityStateStepMismatch = AttrLabelProxy + +dOMValidityStateTooLong :: AttrLabelProxy "tooLong" +dOMValidityStateTooLong = AttrLabelProxy + +dOMValidityStateTypeMismatch :: AttrLabelProxy "typeMismatch" +dOMValidityStateTypeMismatch = AttrLabelProxy + +dOMValidityStateValid :: AttrLabelProxy "valid" +dOMValidityStateValid = AttrLabelProxy + +dOMValidityStateValueMissing :: AttrLabelProxy "valueMissing" +dOMValidityStateValueMissing = AttrLabelProxy + type instance SignalList DOMValidityState = DOMValidityStateSignalList type DOMValidityStateSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) @@ -389,7 +449,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMValidityState", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -417,7 +477,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMValidityState", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -445,7 +505,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMValidityState", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -473,7 +533,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMValidityState", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -501,7 +561,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMValidityState", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -529,7 +589,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMValidityState", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -557,7 +617,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMValidityState", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -585,7 +645,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMValidityState", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -613,7 +673,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMValidityState", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -641,7 +701,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMValidityState", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False diff --git a/GI/WebKit/Objects/DOMValidityState.hs-boot b/GI/WebKit/Objects/DOMValidityState.hs-boot --- a/GI/WebKit/Objects/DOMValidityState.hs-boot +++ b/GI/WebKit/Objects/DOMValidityState.hs-boot @@ -1,8 +1,8 @@ module GI.WebKit.Objects.DOMValidityState where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map diff --git a/GI/WebKit/Objects/DOMVideoPlaybackQuality.hs b/GI/WebKit/Objects/DOMVideoPlaybackQuality.hs --- a/GI/WebKit/Objects/DOMVideoPlaybackQuality.hs +++ b/GI/WebKit/Objects/DOMVideoPlaybackQuality.hs @@ -47,26 +47,31 @@ -- * Properties -- ** CorruptedVideoFrames DOMVideoPlaybackQualityCorruptedVideoFramesPropertyInfo, + dOMVideoPlaybackQualityCorruptedVideoFrames, getDOMVideoPlaybackQualityCorruptedVideoFrames, -- ** CreationTime DOMVideoPlaybackQualityCreationTimePropertyInfo, + dOMVideoPlaybackQualityCreationTime , getDOMVideoPlaybackQualityCreationTime , -- ** DroppedVideoFrames DOMVideoPlaybackQualityDroppedVideoFramesPropertyInfo, + dOMVideoPlaybackQualityDroppedVideoFrames, getDOMVideoPlaybackQualityDroppedVideoFrames, -- ** TotalFrameDelay DOMVideoPlaybackQualityTotalFrameDelayPropertyInfo, + dOMVideoPlaybackQualityTotalFrameDelay , getDOMVideoPlaybackQualityTotalFrameDelay, -- ** TotalVideoFrames DOMVideoPlaybackQualityTotalVideoFramesPropertyInfo, + dOMVideoPlaybackQualityTotalVideoFrames , getDOMVideoPlaybackQualityTotalVideoFrames, @@ -74,9 +79,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map @@ -145,26 +150,29 @@ #endif -- VVV Prop "corrupted-video-frames" - -- Type: TBasicType TUInt64 + -- Type: TBasicType TULong -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) -getDOMVideoPlaybackQualityCorruptedVideoFrames :: (MonadIO m, DOMVideoPlaybackQualityK o) => o -> m Word64 -getDOMVideoPlaybackQualityCorruptedVideoFrames obj = liftIO $ getObjectPropertyUInt64 obj "corrupted-video-frames" +getDOMVideoPlaybackQualityCorruptedVideoFrames :: (MonadIO m, DOMVideoPlaybackQualityK o) => o -> m CULong +getDOMVideoPlaybackQualityCorruptedVideoFrames obj = liftIO $ getObjectPropertyULong obj "corrupted-video-frames" data DOMVideoPlaybackQualityCorruptedVideoFramesPropertyInfo instance AttrInfo DOMVideoPlaybackQualityCorruptedVideoFramesPropertyInfo where type AttrAllowedOps DOMVideoPlaybackQualityCorruptedVideoFramesPropertyInfo = '[ 'AttrGet] type AttrSetTypeConstraint DOMVideoPlaybackQualityCorruptedVideoFramesPropertyInfo = (~) () type AttrBaseTypeConstraint DOMVideoPlaybackQualityCorruptedVideoFramesPropertyInfo = DOMVideoPlaybackQualityK - type AttrGetType DOMVideoPlaybackQualityCorruptedVideoFramesPropertyInfo = Word64 + type AttrGetType DOMVideoPlaybackQualityCorruptedVideoFramesPropertyInfo = CULong type AttrLabel DOMVideoPlaybackQualityCorruptedVideoFramesPropertyInfo = "corrupted-video-frames" attrGet _ = getDOMVideoPlaybackQualityCorruptedVideoFrames attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "creation-time" -- Type: TBasicType TDouble -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) getDOMVideoPlaybackQualityCreationTime :: (MonadIO m, DOMVideoPlaybackQualityK o) => o -> m Double getDOMVideoPlaybackQualityCreationTime obj = liftIO $ getObjectPropertyDouble obj "creation-time" @@ -179,28 +187,32 @@ attrGet _ = getDOMVideoPlaybackQualityCreationTime attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "dropped-video-frames" - -- Type: TBasicType TUInt64 + -- Type: TBasicType TULong -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) -getDOMVideoPlaybackQualityDroppedVideoFrames :: (MonadIO m, DOMVideoPlaybackQualityK o) => o -> m Word64 -getDOMVideoPlaybackQualityDroppedVideoFrames obj = liftIO $ getObjectPropertyUInt64 obj "dropped-video-frames" +getDOMVideoPlaybackQualityDroppedVideoFrames :: (MonadIO m, DOMVideoPlaybackQualityK o) => o -> m CULong +getDOMVideoPlaybackQualityDroppedVideoFrames obj = liftIO $ getObjectPropertyULong obj "dropped-video-frames" data DOMVideoPlaybackQualityDroppedVideoFramesPropertyInfo instance AttrInfo DOMVideoPlaybackQualityDroppedVideoFramesPropertyInfo where type AttrAllowedOps DOMVideoPlaybackQualityDroppedVideoFramesPropertyInfo = '[ 'AttrGet] type AttrSetTypeConstraint DOMVideoPlaybackQualityDroppedVideoFramesPropertyInfo = (~) () type AttrBaseTypeConstraint DOMVideoPlaybackQualityDroppedVideoFramesPropertyInfo = DOMVideoPlaybackQualityK - type AttrGetType DOMVideoPlaybackQualityDroppedVideoFramesPropertyInfo = Word64 + type AttrGetType DOMVideoPlaybackQualityDroppedVideoFramesPropertyInfo = CULong type AttrLabel DOMVideoPlaybackQualityDroppedVideoFramesPropertyInfo = "dropped-video-frames" attrGet _ = getDOMVideoPlaybackQualityDroppedVideoFrames attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "total-frame-delay" -- Type: TBasicType TDouble -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) getDOMVideoPlaybackQualityTotalFrameDelay :: (MonadIO m, DOMVideoPlaybackQualityK o) => o -> m Double getDOMVideoPlaybackQualityTotalFrameDelay obj = liftIO $ getObjectPropertyDouble obj "total-frame-delay" @@ -215,28 +227,46 @@ attrGet _ = getDOMVideoPlaybackQualityTotalFrameDelay attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "total-video-frames" - -- Type: TBasicType TUInt64 + -- Type: TBasicType TULong -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) -getDOMVideoPlaybackQualityTotalVideoFrames :: (MonadIO m, DOMVideoPlaybackQualityK o) => o -> m Word64 -getDOMVideoPlaybackQualityTotalVideoFrames obj = liftIO $ getObjectPropertyUInt64 obj "total-video-frames" +getDOMVideoPlaybackQualityTotalVideoFrames :: (MonadIO m, DOMVideoPlaybackQualityK o) => o -> m CULong +getDOMVideoPlaybackQualityTotalVideoFrames obj = liftIO $ getObjectPropertyULong obj "total-video-frames" data DOMVideoPlaybackQualityTotalVideoFramesPropertyInfo instance AttrInfo DOMVideoPlaybackQualityTotalVideoFramesPropertyInfo where type AttrAllowedOps DOMVideoPlaybackQualityTotalVideoFramesPropertyInfo = '[ 'AttrGet] type AttrSetTypeConstraint DOMVideoPlaybackQualityTotalVideoFramesPropertyInfo = (~) () type AttrBaseTypeConstraint DOMVideoPlaybackQualityTotalVideoFramesPropertyInfo = DOMVideoPlaybackQualityK - type AttrGetType DOMVideoPlaybackQualityTotalVideoFramesPropertyInfo = Word64 + type AttrGetType DOMVideoPlaybackQualityTotalVideoFramesPropertyInfo = CULong type AttrLabel DOMVideoPlaybackQualityTotalVideoFramesPropertyInfo = "total-video-frames" attrGet _ = getDOMVideoPlaybackQualityTotalVideoFrames attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined type instance AttributeList DOMVideoPlaybackQuality = DOMVideoPlaybackQualityAttributeList type DOMVideoPlaybackQualityAttributeList = ('[ '("coreObject", DOMObjectCoreObjectPropertyInfo), '("corruptedVideoFrames", DOMVideoPlaybackQualityCorruptedVideoFramesPropertyInfo), '("creationTime", DOMVideoPlaybackQualityCreationTimePropertyInfo), '("droppedVideoFrames", DOMVideoPlaybackQualityDroppedVideoFramesPropertyInfo), '("totalFrameDelay", DOMVideoPlaybackQualityTotalFrameDelayPropertyInfo), '("totalVideoFrames", DOMVideoPlaybackQualityTotalVideoFramesPropertyInfo)] :: [(Symbol, *)]) +dOMVideoPlaybackQualityCorruptedVideoFrames :: AttrLabelProxy "corruptedVideoFrames" +dOMVideoPlaybackQualityCorruptedVideoFrames = AttrLabelProxy + +dOMVideoPlaybackQualityCreationTime :: AttrLabelProxy "creationTime" +dOMVideoPlaybackQualityCreationTime = AttrLabelProxy + +dOMVideoPlaybackQualityDroppedVideoFrames :: AttrLabelProxy "droppedVideoFrames" +dOMVideoPlaybackQualityDroppedVideoFrames = AttrLabelProxy + +dOMVideoPlaybackQualityTotalFrameDelay :: AttrLabelProxy "totalFrameDelay" +dOMVideoPlaybackQualityTotalFrameDelay = AttrLabelProxy + +dOMVideoPlaybackQualityTotalVideoFrames :: AttrLabelProxy "totalVideoFrames" +dOMVideoPlaybackQualityTotalVideoFrames = AttrLabelProxy + type instance SignalList DOMVideoPlaybackQuality = DOMVideoPlaybackQualitySignalList type DOMVideoPlaybackQualitySignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) @@ -244,19 +274,19 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMVideoPlaybackQuality", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUInt64 +-- returnType : Just (TBasicType TULong) -- throws : False -- Skip return : False foreign import ccall "webkit_dom_video_playback_quality_get_corrupted_video_frames" webkit_dom_video_playback_quality_get_corrupted_video_frames :: Ptr DOMVideoPlaybackQuality -> -- _obj : TInterface "WebKit" "DOMVideoPlaybackQuality" - IO Word64 + IO CULong dOMVideoPlaybackQualityGetCorruptedVideoFrames :: (MonadIO m, DOMVideoPlaybackQualityK a) => a -- _obj - -> m Word64 -- result + -> m CULong -- result dOMVideoPlaybackQualityGetCorruptedVideoFrames _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- webkit_dom_video_playback_quality_get_corrupted_video_frames _obj' @@ -264,14 +294,14 @@ return result data DOMVideoPlaybackQualityGetCorruptedVideoFramesMethodInfo -instance (signature ~ (m Word64), MonadIO m, DOMVideoPlaybackQualityK a) => MethodInfo DOMVideoPlaybackQualityGetCorruptedVideoFramesMethodInfo a signature where +instance (signature ~ (m CULong), MonadIO m, DOMVideoPlaybackQualityK a) => MethodInfo DOMVideoPlaybackQualityGetCorruptedVideoFramesMethodInfo a signature where overloadedMethod _ = dOMVideoPlaybackQualityGetCorruptedVideoFrames -- method DOMVideoPlaybackQuality::get_creation_time -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMVideoPlaybackQuality", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TDouble +-- returnType : Just (TBasicType TDouble) -- throws : False -- Skip return : False @@ -299,19 +329,19 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMVideoPlaybackQuality", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUInt64 +-- returnType : Just (TBasicType TULong) -- throws : False -- Skip return : False foreign import ccall "webkit_dom_video_playback_quality_get_dropped_video_frames" webkit_dom_video_playback_quality_get_dropped_video_frames :: Ptr DOMVideoPlaybackQuality -> -- _obj : TInterface "WebKit" "DOMVideoPlaybackQuality" - IO Word64 + IO CULong dOMVideoPlaybackQualityGetDroppedVideoFrames :: (MonadIO m, DOMVideoPlaybackQualityK a) => a -- _obj - -> m Word64 -- result + -> m CULong -- result dOMVideoPlaybackQualityGetDroppedVideoFrames _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- webkit_dom_video_playback_quality_get_dropped_video_frames _obj' @@ -319,14 +349,14 @@ return result data DOMVideoPlaybackQualityGetDroppedVideoFramesMethodInfo -instance (signature ~ (m Word64), MonadIO m, DOMVideoPlaybackQualityK a) => MethodInfo DOMVideoPlaybackQualityGetDroppedVideoFramesMethodInfo a signature where +instance (signature ~ (m CULong), MonadIO m, DOMVideoPlaybackQualityK a) => MethodInfo DOMVideoPlaybackQualityGetDroppedVideoFramesMethodInfo a signature where overloadedMethod _ = dOMVideoPlaybackQualityGetDroppedVideoFrames -- method DOMVideoPlaybackQuality::get_total_frame_delay -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMVideoPlaybackQuality", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TDouble +-- returnType : Just (TBasicType TDouble) -- throws : False -- Skip return : False @@ -354,19 +384,19 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMVideoPlaybackQuality", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUInt64 +-- returnType : Just (TBasicType TULong) -- throws : False -- Skip return : False foreign import ccall "webkit_dom_video_playback_quality_get_total_video_frames" webkit_dom_video_playback_quality_get_total_video_frames :: Ptr DOMVideoPlaybackQuality -> -- _obj : TInterface "WebKit" "DOMVideoPlaybackQuality" - IO Word64 + IO CULong dOMVideoPlaybackQualityGetTotalVideoFrames :: (MonadIO m, DOMVideoPlaybackQualityK a) => a -- _obj - -> m Word64 -- result + -> m CULong -- result dOMVideoPlaybackQualityGetTotalVideoFrames _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- webkit_dom_video_playback_quality_get_total_video_frames _obj' @@ -374,7 +404,7 @@ return result data DOMVideoPlaybackQualityGetTotalVideoFramesMethodInfo -instance (signature ~ (m Word64), MonadIO m, DOMVideoPlaybackQualityK a) => MethodInfo DOMVideoPlaybackQualityGetTotalVideoFramesMethodInfo a signature where +instance (signature ~ (m CULong), MonadIO m, DOMVideoPlaybackQualityK a) => MethodInfo DOMVideoPlaybackQualityGetTotalVideoFramesMethodInfo a signature where overloadedMethod _ = dOMVideoPlaybackQualityGetTotalVideoFrames diff --git a/GI/WebKit/Objects/DOMVideoPlaybackQuality.hs-boot b/GI/WebKit/Objects/DOMVideoPlaybackQuality.hs-boot --- a/GI/WebKit/Objects/DOMVideoPlaybackQuality.hs-boot +++ b/GI/WebKit/Objects/DOMVideoPlaybackQuality.hs-boot @@ -1,8 +1,8 @@ module GI.WebKit.Objects.DOMVideoPlaybackQuality where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map diff --git a/GI/WebKit/Objects/DOMVideoTrack.hs b/GI/WebKit/Objects/DOMVideoTrack.hs --- a/GI/WebKit/Objects/DOMVideoTrack.hs +++ b/GI/WebKit/Objects/DOMVideoTrack.hs @@ -52,27 +52,32 @@ -- * Properties -- ** Id DOMVideoTrackIdPropertyInfo , + dOMVideoTrackId , getDOMVideoTrackId , -- ** Kind DOMVideoTrackKindPropertyInfo , + dOMVideoTrackKind , getDOMVideoTrackKind , -- ** Label DOMVideoTrackLabelPropertyInfo , + dOMVideoTrackLabel , getDOMVideoTrackLabel , -- ** Language DOMVideoTrackLanguagePropertyInfo , + dOMVideoTrackLanguage , getDOMVideoTrackLanguage , -- ** Selected DOMVideoTrackSelectedPropertyInfo , constructDOMVideoTrackSelected , + dOMVideoTrackSelected , getDOMVideoTrackSelected , setDOMVideoTrackSelected , @@ -81,9 +86,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map @@ -155,78 +160,87 @@ -- VVV Prop "id" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable] + -- Nullable: (Nothing,Nothing) -getDOMVideoTrackId :: (MonadIO m, DOMVideoTrackK o) => o -> m T.Text +getDOMVideoTrackId :: (MonadIO m, DOMVideoTrackK o) => o -> m (Maybe T.Text) getDOMVideoTrackId obj = liftIO $ getObjectPropertyString obj "id" data DOMVideoTrackIdPropertyInfo instance AttrInfo DOMVideoTrackIdPropertyInfo where - type AttrAllowedOps DOMVideoTrackIdPropertyInfo = '[ 'AttrGet] + type AttrAllowedOps DOMVideoTrackIdPropertyInfo = '[ 'AttrGet, 'AttrClear] type AttrSetTypeConstraint DOMVideoTrackIdPropertyInfo = (~) () type AttrBaseTypeConstraint DOMVideoTrackIdPropertyInfo = DOMVideoTrackK - type AttrGetType DOMVideoTrackIdPropertyInfo = T.Text + type AttrGetType DOMVideoTrackIdPropertyInfo = (Maybe T.Text) type AttrLabel DOMVideoTrackIdPropertyInfo = "id" attrGet _ = getDOMVideoTrackId attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "kind" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable] + -- Nullable: (Nothing,Nothing) -getDOMVideoTrackKind :: (MonadIO m, DOMVideoTrackK o) => o -> m T.Text +getDOMVideoTrackKind :: (MonadIO m, DOMVideoTrackK o) => o -> m (Maybe T.Text) getDOMVideoTrackKind obj = liftIO $ getObjectPropertyString obj "kind" data DOMVideoTrackKindPropertyInfo instance AttrInfo DOMVideoTrackKindPropertyInfo where - type AttrAllowedOps DOMVideoTrackKindPropertyInfo = '[ 'AttrGet] + type AttrAllowedOps DOMVideoTrackKindPropertyInfo = '[ 'AttrGet, 'AttrClear] type AttrSetTypeConstraint DOMVideoTrackKindPropertyInfo = (~) () type AttrBaseTypeConstraint DOMVideoTrackKindPropertyInfo = DOMVideoTrackK - type AttrGetType DOMVideoTrackKindPropertyInfo = T.Text + type AttrGetType DOMVideoTrackKindPropertyInfo = (Maybe T.Text) type AttrLabel DOMVideoTrackKindPropertyInfo = "kind" attrGet _ = getDOMVideoTrackKind attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "label" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable] + -- Nullable: (Nothing,Nothing) -getDOMVideoTrackLabel :: (MonadIO m, DOMVideoTrackK o) => o -> m T.Text +getDOMVideoTrackLabel :: (MonadIO m, DOMVideoTrackK o) => o -> m (Maybe T.Text) getDOMVideoTrackLabel obj = liftIO $ getObjectPropertyString obj "label" data DOMVideoTrackLabelPropertyInfo instance AttrInfo DOMVideoTrackLabelPropertyInfo where - type AttrAllowedOps DOMVideoTrackLabelPropertyInfo = '[ 'AttrGet] + type AttrAllowedOps DOMVideoTrackLabelPropertyInfo = '[ 'AttrGet, 'AttrClear] type AttrSetTypeConstraint DOMVideoTrackLabelPropertyInfo = (~) () type AttrBaseTypeConstraint DOMVideoTrackLabelPropertyInfo = DOMVideoTrackK - type AttrGetType DOMVideoTrackLabelPropertyInfo = T.Text + type AttrGetType DOMVideoTrackLabelPropertyInfo = (Maybe T.Text) type AttrLabel DOMVideoTrackLabelPropertyInfo = "label" attrGet _ = getDOMVideoTrackLabel attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "language" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable] + -- Nullable: (Nothing,Nothing) -getDOMVideoTrackLanguage :: (MonadIO m, DOMVideoTrackK o) => o -> m T.Text +getDOMVideoTrackLanguage :: (MonadIO m, DOMVideoTrackK o) => o -> m (Maybe T.Text) getDOMVideoTrackLanguage obj = liftIO $ getObjectPropertyString obj "language" data DOMVideoTrackLanguagePropertyInfo instance AttrInfo DOMVideoTrackLanguagePropertyInfo where - type AttrAllowedOps DOMVideoTrackLanguagePropertyInfo = '[ 'AttrGet] + type AttrAllowedOps DOMVideoTrackLanguagePropertyInfo = '[ 'AttrGet, 'AttrClear] type AttrSetTypeConstraint DOMVideoTrackLanguagePropertyInfo = (~) () type AttrBaseTypeConstraint DOMVideoTrackLanguagePropertyInfo = DOMVideoTrackK - type AttrGetType DOMVideoTrackLanguagePropertyInfo = T.Text + type AttrGetType DOMVideoTrackLanguagePropertyInfo = (Maybe T.Text) type AttrLabel DOMVideoTrackLanguagePropertyInfo = "language" attrGet _ = getDOMVideoTrackLanguage attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "selected" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getDOMVideoTrackSelected :: (MonadIO m, DOMVideoTrackK o) => o -> m Bool getDOMVideoTrackSelected obj = liftIO $ getObjectPropertyBool obj "selected" @@ -247,10 +261,26 @@ attrGet _ = getDOMVideoTrackSelected attrSet _ = setDOMVideoTrackSelected attrConstruct _ = constructDOMVideoTrackSelected + attrClear _ = undefined type instance AttributeList DOMVideoTrack = DOMVideoTrackAttributeList type DOMVideoTrackAttributeList = ('[ '("coreObject", DOMObjectCoreObjectPropertyInfo), '("id", DOMVideoTrackIdPropertyInfo), '("kind", DOMVideoTrackKindPropertyInfo), '("label", DOMVideoTrackLabelPropertyInfo), '("language", DOMVideoTrackLanguagePropertyInfo), '("selected", DOMVideoTrackSelectedPropertyInfo)] :: [(Symbol, *)]) +dOMVideoTrackId :: AttrLabelProxy "id" +dOMVideoTrackId = AttrLabelProxy + +dOMVideoTrackKind :: AttrLabelProxy "kind" +dOMVideoTrackKind = AttrLabelProxy + +dOMVideoTrackLabel :: AttrLabelProxy "label" +dOMVideoTrackLabel = AttrLabelProxy + +dOMVideoTrackLanguage :: AttrLabelProxy "language" +dOMVideoTrackLanguage = AttrLabelProxy + +dOMVideoTrackSelected :: AttrLabelProxy "selected" +dOMVideoTrackSelected = AttrLabelProxy + type instance SignalList DOMVideoTrack = DOMVideoTrackSignalList type DOMVideoTrackSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) @@ -258,7 +288,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMVideoTrack", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -288,7 +318,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMVideoTrack", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -318,7 +348,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMVideoTrack", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -348,7 +378,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMVideoTrack", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -378,7 +408,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMVideoTrack", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -406,7 +436,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMVideoTrack", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False diff --git a/GI/WebKit/Objects/DOMVideoTrack.hs-boot b/GI/WebKit/Objects/DOMVideoTrack.hs-boot --- a/GI/WebKit/Objects/DOMVideoTrack.hs-boot +++ b/GI/WebKit/Objects/DOMVideoTrack.hs-boot @@ -1,8 +1,8 @@ module GI.WebKit.Objects.DOMVideoTrack where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map diff --git a/GI/WebKit/Objects/DOMVideoTrackList.hs b/GI/WebKit/Objects/DOMVideoTrackList.hs --- a/GI/WebKit/Objects/DOMVideoTrackList.hs +++ b/GI/WebKit/Objects/DOMVideoTrackList.hs @@ -42,6 +42,7 @@ -- * Properties -- ** Length DOMVideoTrackListLengthPropertyInfo , + dOMVideoTrackListLength , getDOMVideoTrackListLength , @@ -49,9 +50,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map @@ -120,26 +121,31 @@ #endif -- VVV Prop "length" - -- Type: TBasicType TUInt64 + -- Type: TBasicType TULong -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) -getDOMVideoTrackListLength :: (MonadIO m, DOMVideoTrackListK o) => o -> m Word64 -getDOMVideoTrackListLength obj = liftIO $ getObjectPropertyUInt64 obj "length" +getDOMVideoTrackListLength :: (MonadIO m, DOMVideoTrackListK o) => o -> m CULong +getDOMVideoTrackListLength obj = liftIO $ getObjectPropertyULong obj "length" data DOMVideoTrackListLengthPropertyInfo instance AttrInfo DOMVideoTrackListLengthPropertyInfo where type AttrAllowedOps DOMVideoTrackListLengthPropertyInfo = '[ 'AttrGet] type AttrSetTypeConstraint DOMVideoTrackListLengthPropertyInfo = (~) () type AttrBaseTypeConstraint DOMVideoTrackListLengthPropertyInfo = DOMVideoTrackListK - type AttrGetType DOMVideoTrackListLengthPropertyInfo = Word64 + type AttrGetType DOMVideoTrackListLengthPropertyInfo = CULong type AttrLabel DOMVideoTrackListLengthPropertyInfo = "length" attrGet _ = getDOMVideoTrackListLength attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined type instance AttributeList DOMVideoTrackList = DOMVideoTrackListAttributeList type DOMVideoTrackListAttributeList = ('[ '("coreObject", DOMObjectCoreObjectPropertyInfo), '("length", DOMVideoTrackListLengthPropertyInfo)] :: [(Symbol, *)]) +dOMVideoTrackListLength :: AttrLabelProxy "length" +dOMVideoTrackListLength = AttrLabelProxy + type instance SignalList DOMVideoTrackList = DOMVideoTrackListSignalList type DOMVideoTrackListSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) @@ -147,7 +153,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMVideoTrackList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "evt", argType = TInterface "WebKit" "DOMEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : True -- Skip return : False @@ -183,19 +189,19 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMVideoTrackList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUInt64 +-- returnType : Just (TBasicType TULong) -- throws : False -- Skip return : False foreign import ccall "webkit_dom_video_track_list_get_length" webkit_dom_video_track_list_get_length :: Ptr DOMVideoTrackList -> -- _obj : TInterface "WebKit" "DOMVideoTrackList" - IO Word64 + IO CULong dOMVideoTrackListGetLength :: (MonadIO m, DOMVideoTrackListK a) => a -- _obj - -> m Word64 -- result + -> m CULong -- result dOMVideoTrackListGetLength _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- webkit_dom_video_track_list_get_length _obj' @@ -203,14 +209,14 @@ return result data DOMVideoTrackListGetLengthMethodInfo -instance (signature ~ (m Word64), MonadIO m, DOMVideoTrackListK a) => MethodInfo DOMVideoTrackListGetLengthMethodInfo a signature where +instance (signature ~ (m CULong), MonadIO m, DOMVideoTrackListK a) => MethodInfo DOMVideoTrackListGetLengthMethodInfo a signature where overloadedMethod _ = dOMVideoTrackListGetLength -- method DOMVideoTrackList::get_track_by_id -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMVideoTrackList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit" "DOMVideoTrack" +-- returnType : Just (TInterface "WebKit" "DOMVideoTrack") -- throws : False -- Skip return : False @@ -241,22 +247,22 @@ -- method DOMVideoTrackList::item -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMVideoTrackList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "index", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMVideoTrackList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "index", argType = TBasicType TULong, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit" "DOMVideoTrack" +-- returnType : Just (TInterface "WebKit" "DOMVideoTrack") -- throws : False -- Skip return : False foreign import ccall "webkit_dom_video_track_list_item" webkit_dom_video_track_list_item :: Ptr DOMVideoTrackList -> -- _obj : TInterface "WebKit" "DOMVideoTrackList" - Word64 -> -- index : TBasicType TUInt64 + CULong -> -- index : TBasicType TULong IO (Ptr DOMVideoTrack) dOMVideoTrackListItem :: (MonadIO m, DOMVideoTrackListK a) => a -- _obj - -> Word64 -- index + -> CULong -- index -> m DOMVideoTrack -- result dOMVideoTrackListItem _obj index = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj @@ -267,7 +273,7 @@ return result' data DOMVideoTrackListItemMethodInfo -instance (signature ~ (Word64 -> m DOMVideoTrack), MonadIO m, DOMVideoTrackListK a) => MethodInfo DOMVideoTrackListItemMethodInfo a signature where +instance (signature ~ (CULong -> m DOMVideoTrack), MonadIO m, DOMVideoTrackListK a) => MethodInfo DOMVideoTrackListItemMethodInfo a signature where overloadedMethod _ = dOMVideoTrackListItem diff --git a/GI/WebKit/Objects/DOMVideoTrackList.hs-boot b/GI/WebKit/Objects/DOMVideoTrackList.hs-boot --- a/GI/WebKit/Objects/DOMVideoTrackList.hs-boot +++ b/GI/WebKit/Objects/DOMVideoTrackList.hs-boot @@ -1,8 +1,8 @@ module GI.WebKit.Objects.DOMVideoTrackList where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map diff --git a/GI/WebKit/Objects/DOMWebKitNamedFlow.hs b/GI/WebKit/Objects/DOMWebKitNamedFlow.hs --- a/GI/WebKit/Objects/DOMWebKitNamedFlow.hs +++ b/GI/WebKit/Objects/DOMWebKitNamedFlow.hs @@ -72,16 +72,19 @@ -- * Properties -- ** FirstEmptyRegionIndex DOMWebKitNamedFlowFirstEmptyRegionIndexPropertyInfo, + dOMWebKitNamedFlowFirstEmptyRegionIndex , getDOMWebKitNamedFlowFirstEmptyRegionIndex, -- ** Name DOMWebKitNamedFlowNamePropertyInfo , + dOMWebKitNamedFlowName , getDOMWebKitNamedFlowName , -- ** Overset DOMWebKitNamedFlowOversetPropertyInfo , + dOMWebKitNamedFlowOverset , getDOMWebKitNamedFlowOverset , @@ -89,9 +92,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map @@ -166,44 +169,49 @@ #endif -- VVV Prop "first-empty-region-index" - -- Type: TBasicType TInt64 + -- Type: TBasicType TLong -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) -getDOMWebKitNamedFlowFirstEmptyRegionIndex :: (MonadIO m, DOMWebKitNamedFlowK o) => o -> m Int64 -getDOMWebKitNamedFlowFirstEmptyRegionIndex obj = liftIO $ getObjectPropertyInt64 obj "first-empty-region-index" +getDOMWebKitNamedFlowFirstEmptyRegionIndex :: (MonadIO m, DOMWebKitNamedFlowK o) => o -> m CLong +getDOMWebKitNamedFlowFirstEmptyRegionIndex obj = liftIO $ getObjectPropertyLong obj "first-empty-region-index" data DOMWebKitNamedFlowFirstEmptyRegionIndexPropertyInfo instance AttrInfo DOMWebKitNamedFlowFirstEmptyRegionIndexPropertyInfo where type AttrAllowedOps DOMWebKitNamedFlowFirstEmptyRegionIndexPropertyInfo = '[ 'AttrGet] type AttrSetTypeConstraint DOMWebKitNamedFlowFirstEmptyRegionIndexPropertyInfo = (~) () type AttrBaseTypeConstraint DOMWebKitNamedFlowFirstEmptyRegionIndexPropertyInfo = DOMWebKitNamedFlowK - type AttrGetType DOMWebKitNamedFlowFirstEmptyRegionIndexPropertyInfo = Int64 + type AttrGetType DOMWebKitNamedFlowFirstEmptyRegionIndexPropertyInfo = CLong type AttrLabel DOMWebKitNamedFlowFirstEmptyRegionIndexPropertyInfo = "first-empty-region-index" attrGet _ = getDOMWebKitNamedFlowFirstEmptyRegionIndex attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "name" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable] + -- Nullable: (Nothing,Nothing) -getDOMWebKitNamedFlowName :: (MonadIO m, DOMWebKitNamedFlowK o) => o -> m T.Text +getDOMWebKitNamedFlowName :: (MonadIO m, DOMWebKitNamedFlowK o) => o -> m (Maybe T.Text) getDOMWebKitNamedFlowName obj = liftIO $ getObjectPropertyString obj "name" data DOMWebKitNamedFlowNamePropertyInfo instance AttrInfo DOMWebKitNamedFlowNamePropertyInfo where - type AttrAllowedOps DOMWebKitNamedFlowNamePropertyInfo = '[ 'AttrGet] + type AttrAllowedOps DOMWebKitNamedFlowNamePropertyInfo = '[ 'AttrGet, 'AttrClear] type AttrSetTypeConstraint DOMWebKitNamedFlowNamePropertyInfo = (~) () type AttrBaseTypeConstraint DOMWebKitNamedFlowNamePropertyInfo = DOMWebKitNamedFlowK - type AttrGetType DOMWebKitNamedFlowNamePropertyInfo = T.Text + type AttrGetType DOMWebKitNamedFlowNamePropertyInfo = (Maybe T.Text) type AttrLabel DOMWebKitNamedFlowNamePropertyInfo = "name" attrGet _ = getDOMWebKitNamedFlowName attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "overset" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) getDOMWebKitNamedFlowOverset :: (MonadIO m, DOMWebKitNamedFlowK o) => o -> m Bool getDOMWebKitNamedFlowOverset obj = liftIO $ getObjectPropertyBool obj "overset" @@ -218,10 +226,20 @@ attrGet _ = getDOMWebKitNamedFlowOverset attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined type instance AttributeList DOMWebKitNamedFlow = DOMWebKitNamedFlowAttributeList type DOMWebKitNamedFlowAttributeList = ('[ '("coreObject", DOMObjectCoreObjectPropertyInfo), '("firstEmptyRegionIndex", DOMWebKitNamedFlowFirstEmptyRegionIndexPropertyInfo), '("name", DOMWebKitNamedFlowNamePropertyInfo), '("overset", DOMWebKitNamedFlowOversetPropertyInfo)] :: [(Symbol, *)]) +dOMWebKitNamedFlowFirstEmptyRegionIndex :: AttrLabelProxy "firstEmptyRegionIndex" +dOMWebKitNamedFlowFirstEmptyRegionIndex = AttrLabelProxy + +dOMWebKitNamedFlowName :: AttrLabelProxy "name" +dOMWebKitNamedFlowName = AttrLabelProxy + +dOMWebKitNamedFlowOverset :: AttrLabelProxy "overset" +dOMWebKitNamedFlowOverset = AttrLabelProxy + type instance SignalList DOMWebKitNamedFlow = DOMWebKitNamedFlowSignalList type DOMWebKitNamedFlowSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) @@ -229,7 +247,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMWebKitNamedFlow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "event", argType = TInterface "WebKit" "DOMEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : True -- Skip return : False @@ -265,7 +283,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMWebKitNamedFlow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit" "DOMNodeList" +-- returnType : Just (TInterface "WebKit" "DOMNodeList") -- throws : False -- Skip return : False @@ -294,7 +312,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMWebKitNamedFlow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit" "DOMNodeList" +-- returnType : Just (TInterface "WebKit" "DOMNodeList") -- throws : False -- Skip return : False @@ -323,19 +341,19 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMWebKitNamedFlow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TInt64 +-- returnType : Just (TBasicType TLong) -- throws : False -- Skip return : False foreign import ccall "webkit_dom_webkit_named_flow_get_first_empty_region_index" webkit_dom_webkit_named_flow_get_first_empty_region_index :: Ptr DOMWebKitNamedFlow -> -- _obj : TInterface "WebKit" "DOMWebKitNamedFlow" - IO Int64 + IO CLong dOMWebKitNamedFlowGetFirstEmptyRegionIndex :: (MonadIO m, DOMWebKitNamedFlowK a) => a -- _obj - -> m Int64 -- result + -> m CLong -- result dOMWebKitNamedFlowGetFirstEmptyRegionIndex _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- webkit_dom_webkit_named_flow_get_first_empty_region_index _obj' @@ -343,14 +361,14 @@ return result data DOMWebKitNamedFlowGetFirstEmptyRegionIndexMethodInfo -instance (signature ~ (m Int64), MonadIO m, DOMWebKitNamedFlowK a) => MethodInfo DOMWebKitNamedFlowGetFirstEmptyRegionIndexMethodInfo a signature where +instance (signature ~ (m CLong), MonadIO m, DOMWebKitNamedFlowK a) => MethodInfo DOMWebKitNamedFlowGetFirstEmptyRegionIndexMethodInfo a signature where overloadedMethod _ = dOMWebKitNamedFlowGetFirstEmptyRegionIndex -- method DOMWebKitNamedFlow::get_name -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMWebKitNamedFlow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -380,7 +398,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMWebKitNamedFlow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -408,7 +426,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMWebKitNamedFlow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -436,7 +454,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMWebKitNamedFlow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit" "DOMNodeList" +-- returnType : Just (TInterface "WebKit" "DOMNodeList") -- throws : False -- Skip return : False @@ -465,7 +483,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMWebKitNamedFlow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "contentNode", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit" "DOMNodeList" +-- returnType : Just (TInterface "WebKit" "DOMNodeList") -- throws : False -- Skip return : False @@ -498,7 +516,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMWebKitNamedFlow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "content_node", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit" "DOMNodeList" +-- returnType : Just (TInterface "WebKit" "DOMNodeList") -- throws : False -- Skip return : False diff --git a/GI/WebKit/Objects/DOMWebKitNamedFlow.hs-boot b/GI/WebKit/Objects/DOMWebKitNamedFlow.hs-boot --- a/GI/WebKit/Objects/DOMWebKitNamedFlow.hs-boot +++ b/GI/WebKit/Objects/DOMWebKitNamedFlow.hs-boot @@ -1,8 +1,8 @@ module GI.WebKit.Objects.DOMWebKitNamedFlow where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map diff --git a/GI/WebKit/Objects/DOMWebKitPoint.hs b/GI/WebKit/Objects/DOMWebKitPoint.hs --- a/GI/WebKit/Objects/DOMWebKitPoint.hs +++ b/GI/WebKit/Objects/DOMWebKitPoint.hs @@ -43,6 +43,7 @@ -- ** X DOMWebKitPointXPropertyInfo , constructDOMWebKitPointX , + dOMWebKitPointX , getDOMWebKitPointX , setDOMWebKitPointX , @@ -50,6 +51,7 @@ -- ** Y DOMWebKitPointYPropertyInfo , constructDOMWebKitPointY , + dOMWebKitPointY , getDOMWebKitPointY , setDOMWebKitPointY , @@ -58,9 +60,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map @@ -130,6 +132,7 @@ -- VVV Prop "x" -- Type: TBasicType TFloat -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getDOMWebKitPointX :: (MonadIO m, DOMWebKitPointK o) => o -> m Float getDOMWebKitPointX obj = liftIO $ getObjectPropertyFloat obj "x" @@ -150,10 +153,12 @@ attrGet _ = getDOMWebKitPointX attrSet _ = setDOMWebKitPointX attrConstruct _ = constructDOMWebKitPointX + attrClear _ = undefined -- VVV Prop "y" -- Type: TBasicType TFloat -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getDOMWebKitPointY :: (MonadIO m, DOMWebKitPointK o) => o -> m Float getDOMWebKitPointY obj = liftIO $ getObjectPropertyFloat obj "y" @@ -174,10 +179,17 @@ attrGet _ = getDOMWebKitPointY attrSet _ = setDOMWebKitPointY attrConstruct _ = constructDOMWebKitPointY + attrClear _ = undefined type instance AttributeList DOMWebKitPoint = DOMWebKitPointAttributeList type DOMWebKitPointAttributeList = ('[ '("coreObject", DOMObjectCoreObjectPropertyInfo), '("x", DOMWebKitPointXPropertyInfo), '("y", DOMWebKitPointYPropertyInfo)] :: [(Symbol, *)]) +dOMWebKitPointX :: AttrLabelProxy "x" +dOMWebKitPointX = AttrLabelProxy + +dOMWebKitPointY :: AttrLabelProxy "y" +dOMWebKitPointY = AttrLabelProxy + type instance SignalList DOMWebKitPoint = DOMWebKitPointSignalList type DOMWebKitPointSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) @@ -185,7 +197,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMWebKitPoint", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TFloat +-- returnType : Just (TBasicType TFloat) -- throws : False -- Skip return : False @@ -213,7 +225,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMWebKitPoint", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TFloat +-- returnType : Just (TBasicType TFloat) -- throws : False -- Skip return : False @@ -241,7 +253,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMWebKitPoint", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -271,7 +283,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMWebKitPoint", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False diff --git a/GI/WebKit/Objects/DOMWebKitPoint.hs-boot b/GI/WebKit/Objects/DOMWebKitPoint.hs-boot --- a/GI/WebKit/Objects/DOMWebKitPoint.hs-boot +++ b/GI/WebKit/Objects/DOMWebKitPoint.hs-boot @@ -1,8 +1,8 @@ module GI.WebKit.Objects.DOMWebKitPoint where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map diff --git a/GI/WebKit/Objects/DOMWheelEvent.hs b/GI/WebKit/Objects/DOMWheelEvent.hs --- a/GI/WebKit/Objects/DOMWheelEvent.hs +++ b/GI/WebKit/Objects/DOMWheelEvent.hs @@ -67,41 +67,49 @@ -- * Properties -- ** DeltaMode DOMWheelEventDeltaModePropertyInfo , + dOMWheelEventDeltaMode , getDOMWheelEventDeltaMode , -- ** DeltaX DOMWheelEventDeltaXPropertyInfo , + dOMWheelEventDeltaX , getDOMWheelEventDeltaX , -- ** DeltaY DOMWheelEventDeltaYPropertyInfo , + dOMWheelEventDeltaY , getDOMWheelEventDeltaY , -- ** DeltaZ DOMWheelEventDeltaZPropertyInfo , + dOMWheelEventDeltaZ , getDOMWheelEventDeltaZ , -- ** WebkitDirectionInvertedFromDevice DOMWheelEventWebkitDirectionInvertedFromDevicePropertyInfo, + dOMWheelEventWebkitDirectionInvertedFromDevice, getDOMWheelEventWebkitDirectionInvertedFromDevice, -- ** WheelDelta DOMWheelEventWheelDeltaPropertyInfo , + dOMWheelEventWheelDelta , getDOMWheelEventWheelDelta , -- ** WheelDeltaX DOMWheelEventWheelDeltaXPropertyInfo , + dOMWheelEventWheelDeltaX , getDOMWheelEventWheelDeltaX , -- ** WheelDeltaY DOMWheelEventWheelDeltaYPropertyInfo , + dOMWheelEventWheelDeltaY , getDOMWheelEventWheelDeltaY , @@ -109,9 +117,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map @@ -229,26 +237,29 @@ #endif -- VVV Prop "delta-mode" - -- Type: TBasicType TUInt64 + -- Type: TBasicType TULong -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) -getDOMWheelEventDeltaMode :: (MonadIO m, DOMWheelEventK o) => o -> m Word64 -getDOMWheelEventDeltaMode obj = liftIO $ getObjectPropertyUInt64 obj "delta-mode" +getDOMWheelEventDeltaMode :: (MonadIO m, DOMWheelEventK o) => o -> m CULong +getDOMWheelEventDeltaMode obj = liftIO $ getObjectPropertyULong obj "delta-mode" data DOMWheelEventDeltaModePropertyInfo instance AttrInfo DOMWheelEventDeltaModePropertyInfo where type AttrAllowedOps DOMWheelEventDeltaModePropertyInfo = '[ 'AttrGet] type AttrSetTypeConstraint DOMWheelEventDeltaModePropertyInfo = (~) () type AttrBaseTypeConstraint DOMWheelEventDeltaModePropertyInfo = DOMWheelEventK - type AttrGetType DOMWheelEventDeltaModePropertyInfo = Word64 + type AttrGetType DOMWheelEventDeltaModePropertyInfo = CULong type AttrLabel DOMWheelEventDeltaModePropertyInfo = "delta-mode" attrGet _ = getDOMWheelEventDeltaMode attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "delta-x" -- Type: TBasicType TDouble -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) getDOMWheelEventDeltaX :: (MonadIO m, DOMWheelEventK o) => o -> m Double getDOMWheelEventDeltaX obj = liftIO $ getObjectPropertyDouble obj "delta-x" @@ -263,10 +274,12 @@ attrGet _ = getDOMWheelEventDeltaX attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "delta-y" -- Type: TBasicType TDouble -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) getDOMWheelEventDeltaY :: (MonadIO m, DOMWheelEventK o) => o -> m Double getDOMWheelEventDeltaY obj = liftIO $ getObjectPropertyDouble obj "delta-y" @@ -281,10 +294,12 @@ attrGet _ = getDOMWheelEventDeltaY attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "delta-z" -- Type: TBasicType TDouble -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) getDOMWheelEventDeltaZ :: (MonadIO m, DOMWheelEventK o) => o -> m Double getDOMWheelEventDeltaZ obj = liftIO $ getObjectPropertyDouble obj "delta-z" @@ -299,10 +314,12 @@ attrGet _ = getDOMWheelEventDeltaZ attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "webkit-direction-inverted-from-device" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) getDOMWheelEventWebkitDirectionInvertedFromDevice :: (MonadIO m, DOMWheelEventK o) => o -> m Bool getDOMWheelEventWebkitDirectionInvertedFromDevice obj = liftIO $ getObjectPropertyBool obj "webkit-direction-inverted-from-device" @@ -317,64 +334,95 @@ attrGet _ = getDOMWheelEventWebkitDirectionInvertedFromDevice attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "wheel-delta" - -- Type: TBasicType TInt64 + -- Type: TBasicType TLong -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) -getDOMWheelEventWheelDelta :: (MonadIO m, DOMWheelEventK o) => o -> m Int64 -getDOMWheelEventWheelDelta obj = liftIO $ getObjectPropertyInt64 obj "wheel-delta" +getDOMWheelEventWheelDelta :: (MonadIO m, DOMWheelEventK o) => o -> m CLong +getDOMWheelEventWheelDelta obj = liftIO $ getObjectPropertyLong obj "wheel-delta" data DOMWheelEventWheelDeltaPropertyInfo instance AttrInfo DOMWheelEventWheelDeltaPropertyInfo where type AttrAllowedOps DOMWheelEventWheelDeltaPropertyInfo = '[ 'AttrGet] type AttrSetTypeConstraint DOMWheelEventWheelDeltaPropertyInfo = (~) () type AttrBaseTypeConstraint DOMWheelEventWheelDeltaPropertyInfo = DOMWheelEventK - type AttrGetType DOMWheelEventWheelDeltaPropertyInfo = Int64 + type AttrGetType DOMWheelEventWheelDeltaPropertyInfo = CLong type AttrLabel DOMWheelEventWheelDeltaPropertyInfo = "wheel-delta" attrGet _ = getDOMWheelEventWheelDelta attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "wheel-delta-x" - -- Type: TBasicType TInt64 + -- Type: TBasicType TLong -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) -getDOMWheelEventWheelDeltaX :: (MonadIO m, DOMWheelEventK o) => o -> m Int64 -getDOMWheelEventWheelDeltaX obj = liftIO $ getObjectPropertyInt64 obj "wheel-delta-x" +getDOMWheelEventWheelDeltaX :: (MonadIO m, DOMWheelEventK o) => o -> m CLong +getDOMWheelEventWheelDeltaX obj = liftIO $ getObjectPropertyLong obj "wheel-delta-x" data DOMWheelEventWheelDeltaXPropertyInfo instance AttrInfo DOMWheelEventWheelDeltaXPropertyInfo where type AttrAllowedOps DOMWheelEventWheelDeltaXPropertyInfo = '[ 'AttrGet] type AttrSetTypeConstraint DOMWheelEventWheelDeltaXPropertyInfo = (~) () type AttrBaseTypeConstraint DOMWheelEventWheelDeltaXPropertyInfo = DOMWheelEventK - type AttrGetType DOMWheelEventWheelDeltaXPropertyInfo = Int64 + type AttrGetType DOMWheelEventWheelDeltaXPropertyInfo = CLong type AttrLabel DOMWheelEventWheelDeltaXPropertyInfo = "wheel-delta-x" attrGet _ = getDOMWheelEventWheelDeltaX attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "wheel-delta-y" - -- Type: TBasicType TInt64 + -- Type: TBasicType TLong -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) -getDOMWheelEventWheelDeltaY :: (MonadIO m, DOMWheelEventK o) => o -> m Int64 -getDOMWheelEventWheelDeltaY obj = liftIO $ getObjectPropertyInt64 obj "wheel-delta-y" +getDOMWheelEventWheelDeltaY :: (MonadIO m, DOMWheelEventK o) => o -> m CLong +getDOMWheelEventWheelDeltaY obj = liftIO $ getObjectPropertyLong obj "wheel-delta-y" data DOMWheelEventWheelDeltaYPropertyInfo instance AttrInfo DOMWheelEventWheelDeltaYPropertyInfo where type AttrAllowedOps DOMWheelEventWheelDeltaYPropertyInfo = '[ 'AttrGet] type AttrSetTypeConstraint DOMWheelEventWheelDeltaYPropertyInfo = (~) () type AttrBaseTypeConstraint DOMWheelEventWheelDeltaYPropertyInfo = DOMWheelEventK - type AttrGetType DOMWheelEventWheelDeltaYPropertyInfo = Int64 + type AttrGetType DOMWheelEventWheelDeltaYPropertyInfo = CLong type AttrLabel DOMWheelEventWheelDeltaYPropertyInfo = "wheel-delta-y" attrGet _ = getDOMWheelEventWheelDeltaY attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined type instance AttributeList DOMWheelEvent = DOMWheelEventAttributeList type DOMWheelEventAttributeList = ('[ '("altKey", DOMMouseEventAltKeyPropertyInfo), '("bubbles", DOMEventBubblesPropertyInfo), '("button", DOMMouseEventButtonPropertyInfo), '("cancelBubble", DOMEventCancelBubblePropertyInfo), '("cancelable", DOMEventCancelablePropertyInfo), '("charCode", DOMUIEventCharCodePropertyInfo), '("clientX", DOMMouseEventClientXPropertyInfo), '("clientY", DOMMouseEventClientYPropertyInfo), '("coreObject", DOMObjectCoreObjectPropertyInfo), '("ctrlKey", DOMMouseEventCtrlKeyPropertyInfo), '("currentTarget", DOMEventCurrentTargetPropertyInfo), '("defaultPrevented", DOMEventDefaultPreventedPropertyInfo), '("deltaMode", DOMWheelEventDeltaModePropertyInfo), '("deltaX", DOMWheelEventDeltaXPropertyInfo), '("deltaY", DOMWheelEventDeltaYPropertyInfo), '("deltaZ", DOMWheelEventDeltaZPropertyInfo), '("detail", DOMUIEventDetailPropertyInfo), '("eventPhase", DOMEventEventPhasePropertyInfo), '("fromElement", DOMMouseEventFromElementPropertyInfo), '("keyCode", DOMUIEventKeyCodePropertyInfo), '("layerX", DOMUIEventLayerXPropertyInfo), '("layerY", DOMUIEventLayerYPropertyInfo), '("metaKey", DOMMouseEventMetaKeyPropertyInfo), '("offsetX", DOMMouseEventOffsetXPropertyInfo), '("offsetY", DOMMouseEventOffsetYPropertyInfo), '("pageX", DOMUIEventPageXPropertyInfo), '("pageY", DOMUIEventPageYPropertyInfo), '("relatedTarget", DOMMouseEventRelatedTargetPropertyInfo), '("returnValue", DOMEventReturnValuePropertyInfo), '("screenX", DOMMouseEventScreenXPropertyInfo), '("screenY", DOMMouseEventScreenYPropertyInfo), '("shiftKey", DOMMouseEventShiftKeyPropertyInfo), '("srcElement", DOMEventSrcElementPropertyInfo), '("target", DOMEventTargetPropertyInfo), '("timeStamp", DOMEventTimeStampPropertyInfo), '("toElement", DOMMouseEventToElementPropertyInfo), '("type", DOMEventTypePropertyInfo), '("view", DOMUIEventViewPropertyInfo), '("webkitDirectionInvertedFromDevice", DOMWheelEventWebkitDirectionInvertedFromDevicePropertyInfo), '("webkitMovementX", DOMMouseEventWebkitMovementXPropertyInfo), '("webkitMovementY", DOMMouseEventWebkitMovementYPropertyInfo), '("wheelDelta", DOMWheelEventWheelDeltaPropertyInfo), '("wheelDeltaX", DOMWheelEventWheelDeltaXPropertyInfo), '("wheelDeltaY", DOMWheelEventWheelDeltaYPropertyInfo), '("which", DOMUIEventWhichPropertyInfo), '("x", DOMMouseEventXPropertyInfo), '("y", DOMMouseEventYPropertyInfo)] :: [(Symbol, *)]) +dOMWheelEventDeltaMode :: AttrLabelProxy "deltaMode" +dOMWheelEventDeltaMode = AttrLabelProxy + +dOMWheelEventDeltaX :: AttrLabelProxy "deltaX" +dOMWheelEventDeltaX = AttrLabelProxy + +dOMWheelEventDeltaY :: AttrLabelProxy "deltaY" +dOMWheelEventDeltaY = AttrLabelProxy + +dOMWheelEventDeltaZ :: AttrLabelProxy "deltaZ" +dOMWheelEventDeltaZ = AttrLabelProxy + +dOMWheelEventWebkitDirectionInvertedFromDevice :: AttrLabelProxy "webkitDirectionInvertedFromDevice" +dOMWheelEventWebkitDirectionInvertedFromDevice = AttrLabelProxy + +dOMWheelEventWheelDelta :: AttrLabelProxy "wheelDelta" +dOMWheelEventWheelDelta = AttrLabelProxy + +dOMWheelEventWheelDeltaX :: AttrLabelProxy "wheelDeltaX" +dOMWheelEventWheelDeltaX = AttrLabelProxy + +dOMWheelEventWheelDeltaY :: AttrLabelProxy "wheelDeltaY" +dOMWheelEventWheelDeltaY = AttrLabelProxy + type instance SignalList DOMWheelEvent = DOMWheelEventSignalList type DOMWheelEventSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) @@ -382,19 +430,19 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMWheelEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUInt64 +-- returnType : Just (TBasicType TULong) -- throws : False -- Skip return : False foreign import ccall "webkit_dom_wheel_event_get_delta_mode" webkit_dom_wheel_event_get_delta_mode :: Ptr DOMWheelEvent -> -- _obj : TInterface "WebKit" "DOMWheelEvent" - IO Word64 + IO CULong dOMWheelEventGetDeltaMode :: (MonadIO m, DOMWheelEventK a) => a -- _obj - -> m Word64 -- result + -> m CULong -- result dOMWheelEventGetDeltaMode _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- webkit_dom_wheel_event_get_delta_mode _obj' @@ -402,14 +450,14 @@ return result data DOMWheelEventGetDeltaModeMethodInfo -instance (signature ~ (m Word64), MonadIO m, DOMWheelEventK a) => MethodInfo DOMWheelEventGetDeltaModeMethodInfo a signature where +instance (signature ~ (m CULong), MonadIO m, DOMWheelEventK a) => MethodInfo DOMWheelEventGetDeltaModeMethodInfo a signature where overloadedMethod _ = dOMWheelEventGetDeltaMode -- method DOMWheelEvent::get_delta_x -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMWheelEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TDouble +-- returnType : Just (TBasicType TDouble) -- throws : False -- Skip return : False @@ -437,7 +485,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMWheelEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TDouble +-- returnType : Just (TBasicType TDouble) -- throws : False -- Skip return : False @@ -465,7 +513,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMWheelEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TDouble +-- returnType : Just (TBasicType TDouble) -- throws : False -- Skip return : False @@ -493,7 +541,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMWheelEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -521,19 +569,19 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMWheelEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TInt64 +-- returnType : Just (TBasicType TLong) -- throws : False -- Skip return : False foreign import ccall "webkit_dom_wheel_event_get_wheel_delta" webkit_dom_wheel_event_get_wheel_delta :: Ptr DOMWheelEvent -> -- _obj : TInterface "WebKit" "DOMWheelEvent" - IO Int64 + IO CLong dOMWheelEventGetWheelDelta :: (MonadIO m, DOMWheelEventK a) => a -- _obj - -> m Int64 -- result + -> m CLong -- result dOMWheelEventGetWheelDelta _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- webkit_dom_wheel_event_get_wheel_delta _obj' @@ -541,26 +589,26 @@ return result data DOMWheelEventGetWheelDeltaMethodInfo -instance (signature ~ (m Int64), MonadIO m, DOMWheelEventK a) => MethodInfo DOMWheelEventGetWheelDeltaMethodInfo a signature where +instance (signature ~ (m CLong), MonadIO m, DOMWheelEventK a) => MethodInfo DOMWheelEventGetWheelDeltaMethodInfo a signature where overloadedMethod _ = dOMWheelEventGetWheelDelta -- method DOMWheelEvent::get_wheel_delta_x -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMWheelEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TInt64 +-- returnType : Just (TBasicType TLong) -- throws : False -- Skip return : False foreign import ccall "webkit_dom_wheel_event_get_wheel_delta_x" webkit_dom_wheel_event_get_wheel_delta_x :: Ptr DOMWheelEvent -> -- _obj : TInterface "WebKit" "DOMWheelEvent" - IO Int64 + IO CLong dOMWheelEventGetWheelDeltaX :: (MonadIO m, DOMWheelEventK a) => a -- _obj - -> m Int64 -- result + -> m CLong -- result dOMWheelEventGetWheelDeltaX _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- webkit_dom_wheel_event_get_wheel_delta_x _obj' @@ -568,26 +616,26 @@ return result data DOMWheelEventGetWheelDeltaXMethodInfo -instance (signature ~ (m Int64), MonadIO m, DOMWheelEventK a) => MethodInfo DOMWheelEventGetWheelDeltaXMethodInfo a signature where +instance (signature ~ (m CLong), MonadIO m, DOMWheelEventK a) => MethodInfo DOMWheelEventGetWheelDeltaXMethodInfo a signature where overloadedMethod _ = dOMWheelEventGetWheelDeltaX -- method DOMWheelEvent::get_wheel_delta_y -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMWheelEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TInt64 +-- returnType : Just (TBasicType TLong) -- throws : False -- Skip return : False foreign import ccall "webkit_dom_wheel_event_get_wheel_delta_y" webkit_dom_wheel_event_get_wheel_delta_y :: Ptr DOMWheelEvent -> -- _obj : TInterface "WebKit" "DOMWheelEvent" - IO Int64 + IO CLong dOMWheelEventGetWheelDeltaY :: (MonadIO m, DOMWheelEventK a) => a -- _obj - -> m Int64 -- result + -> m CLong -- result dOMWheelEventGetWheelDeltaY _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- webkit_dom_wheel_event_get_wheel_delta_y _obj' @@ -595,26 +643,26 @@ return result data DOMWheelEventGetWheelDeltaYMethodInfo -instance (signature ~ (m Int64), MonadIO m, DOMWheelEventK a) => MethodInfo DOMWheelEventGetWheelDeltaYMethodInfo a signature where +instance (signature ~ (m CLong), MonadIO m, DOMWheelEventK a) => MethodInfo DOMWheelEventGetWheelDeltaYMethodInfo a signature where overloadedMethod _ = dOMWheelEventGetWheelDeltaY -- method DOMWheelEvent::init_wheel_event -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMWheelEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "wheelDeltaX", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "wheelDeltaY", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "view", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "screenX", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "screenY", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "clientX", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "clientY", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "ctrlKey", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "altKey", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "shiftKey", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "metaKey", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMWheelEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "wheelDeltaX", argType = TBasicType TLong, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "wheelDeltaY", argType = TBasicType TLong, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "view", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "screenX", argType = TBasicType TLong, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "screenY", argType = TBasicType TLong, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "clientX", argType = TBasicType TLong, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "clientY", argType = TBasicType TLong, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "ctrlKey", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "altKey", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "shiftKey", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "metaKey", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "webkit_dom_wheel_event_init_wheel_event" webkit_dom_wheel_event_init_wheel_event :: Ptr DOMWheelEvent -> -- _obj : TInterface "WebKit" "DOMWheelEvent" - Int64 -> -- wheelDeltaX : TBasicType TInt64 - Int64 -> -- wheelDeltaY : TBasicType TInt64 + CLong -> -- wheelDeltaX : TBasicType TLong + CLong -> -- wheelDeltaY : TBasicType TLong Ptr DOMDOMWindow -> -- view : TInterface "WebKit" "DOMDOMWindow" - Int64 -> -- screenX : TBasicType TInt64 - Int64 -> -- screenY : TBasicType TInt64 - Int64 -> -- clientX : TBasicType TInt64 - Int64 -> -- clientY : TBasicType TInt64 + CLong -> -- screenX : TBasicType TLong + CLong -> -- screenY : TBasicType TLong + CLong -> -- clientX : TBasicType TLong + CLong -> -- clientY : TBasicType TLong CInt -> -- ctrlKey : TBasicType TBoolean CInt -> -- altKey : TBasicType TBoolean CInt -> -- shiftKey : TBasicType TBoolean @@ -625,13 +673,13 @@ dOMWheelEventInitWheelEvent :: (MonadIO m, DOMWheelEventK a, DOMDOMWindowK b) => a -- _obj - -> Int64 -- wheelDeltaX - -> Int64 -- wheelDeltaY + -> CLong -- wheelDeltaX + -> CLong -- wheelDeltaY -> b -- view - -> Int64 -- screenX - -> Int64 -- screenY - -> Int64 -- clientX - -> Int64 -- clientY + -> CLong -- screenX + -> CLong -- screenY + -> CLong -- clientX + -> CLong -- clientY -> Bool -- ctrlKey -> Bool -- altKey -> Bool -- shiftKey @@ -650,7 +698,7 @@ return () data DOMWheelEventInitWheelEventMethodInfo -instance (signature ~ (Int64 -> Int64 -> b -> Int64 -> Int64 -> Int64 -> Int64 -> Bool -> Bool -> Bool -> Bool -> m ()), MonadIO m, DOMWheelEventK a, DOMDOMWindowK b) => MethodInfo DOMWheelEventInitWheelEventMethodInfo a signature where +instance (signature ~ (CLong -> CLong -> b -> CLong -> CLong -> CLong -> CLong -> Bool -> Bool -> Bool -> Bool -> m ()), MonadIO m, DOMWheelEventK a, DOMDOMWindowK b) => MethodInfo DOMWheelEventInitWheelEventMethodInfo a signature where overloadedMethod _ = dOMWheelEventInitWheelEvent diff --git a/GI/WebKit/Objects/DOMWheelEvent.hs-boot b/GI/WebKit/Objects/DOMWheelEvent.hs-boot --- a/GI/WebKit/Objects/DOMWheelEvent.hs-boot +++ b/GI/WebKit/Objects/DOMWheelEvent.hs-boot @@ -1,8 +1,8 @@ module GI.WebKit.Objects.DOMWheelEvent where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map diff --git a/GI/WebKit/Objects/DOMXPathExpression.hs b/GI/WebKit/Objects/DOMXPathExpression.hs --- a/GI/WebKit/Objects/DOMXPathExpression.hs +++ b/GI/WebKit/Objects/DOMXPathExpression.hs @@ -26,9 +26,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map @@ -102,7 +102,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMXPathExpression", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "contextNode", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "type", argType = TBasicType TUInt16, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "inResult", argType = TInterface "WebKit" "DOMXPathResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit" "DOMXPathResult" +-- returnType : Just (TInterface "WebKit" "DOMXPathResult") -- throws : True -- Skip return : False diff --git a/GI/WebKit/Objects/DOMXPathExpression.hs-boot b/GI/WebKit/Objects/DOMXPathExpression.hs-boot --- a/GI/WebKit/Objects/DOMXPathExpression.hs-boot +++ b/GI/WebKit/Objects/DOMXPathExpression.hs-boot @@ -1,8 +1,8 @@ module GI.WebKit.Objects.DOMXPathExpression where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map diff --git a/GI/WebKit/Objects/DOMXPathNSResolver.hs b/GI/WebKit/Objects/DOMXPathNSResolver.hs --- a/GI/WebKit/Objects/DOMXPathNSResolver.hs +++ b/GI/WebKit/Objects/DOMXPathNSResolver.hs @@ -26,9 +26,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map @@ -102,7 +102,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMXPathNSResolver", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "prefix", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False diff --git a/GI/WebKit/Objects/DOMXPathNSResolver.hs-boot b/GI/WebKit/Objects/DOMXPathNSResolver.hs-boot --- a/GI/WebKit/Objects/DOMXPathNSResolver.hs-boot +++ b/GI/WebKit/Objects/DOMXPathNSResolver.hs-boot @@ -1,8 +1,8 @@ module GI.WebKit.Objects.DOMXPathNSResolver where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map diff --git a/GI/WebKit/Objects/DOMXPathResult.hs b/GI/WebKit/Objects/DOMXPathResult.hs --- a/GI/WebKit/Objects/DOMXPathResult.hs +++ b/GI/WebKit/Objects/DOMXPathResult.hs @@ -67,36 +67,43 @@ -- * Properties -- ** BooleanValue DOMXPathResultBooleanValuePropertyInfo , + dOMXPathResultBooleanValue , getDOMXPathResultBooleanValue , -- ** InvalidIteratorState DOMXPathResultInvalidIteratorStatePropertyInfo, + dOMXPathResultInvalidIteratorState , getDOMXPathResultInvalidIteratorState , -- ** NumberValue DOMXPathResultNumberValuePropertyInfo , + dOMXPathResultNumberValue , getDOMXPathResultNumberValue , -- ** ResultType DOMXPathResultResultTypePropertyInfo , + dOMXPathResultResultType , getDOMXPathResultResultType , -- ** SingleNodeValue DOMXPathResultSingleNodeValuePropertyInfo, + dOMXPathResultSingleNodeValue , getDOMXPathResultSingleNodeValue , -- ** SnapshotLength DOMXPathResultSnapshotLengthPropertyInfo, + dOMXPathResultSnapshotLength , getDOMXPathResultSnapshotLength , -- ** StringValue DOMXPathResultStringValuePropertyInfo , + dOMXPathResultStringValue , getDOMXPathResultStringValue , @@ -104,9 +111,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map @@ -181,6 +188,7 @@ -- VVV Prop "boolean-value" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable] + -- Nullable: (Nothing,Nothing) getDOMXPathResultBooleanValue :: (MonadIO m, DOMXPathResultK o) => o -> m Bool getDOMXPathResultBooleanValue obj = liftIO $ getObjectPropertyBool obj "boolean-value" @@ -195,10 +203,12 @@ attrGet _ = getDOMXPathResultBooleanValue attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "invalid-iterator-state" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) getDOMXPathResultInvalidIteratorState :: (MonadIO m, DOMXPathResultK o) => o -> m Bool getDOMXPathResultInvalidIteratorState obj = liftIO $ getObjectPropertyBool obj "invalid-iterator-state" @@ -213,10 +223,12 @@ attrGet _ = getDOMXPathResultInvalidIteratorState attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "number-value" -- Type: TBasicType TDouble -- Flags: [PropertyReadable] + -- Nullable: (Nothing,Nothing) getDOMXPathResultNumberValue :: (MonadIO m, DOMXPathResultK o) => o -> m Double getDOMXPathResultNumberValue obj = liftIO $ getObjectPropertyDouble obj "number-value" @@ -231,13 +243,15 @@ attrGet _ = getDOMXPathResultNumberValue attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "result-type" - -- Type: TBasicType TUInt32 + -- Type: TBasicType TUInt -- Flags: [PropertyReadable] + -- Nullable: (Nothing,Nothing) getDOMXPathResultResultType :: (MonadIO m, DOMXPathResultK o) => o -> m Word32 -getDOMXPathResultResultType obj = liftIO $ getObjectPropertyCUInt obj "result-type" +getDOMXPathResultResultType obj = liftIO $ getObjectPropertyUInt32 obj "result-type" data DOMXPathResultResultTypePropertyInfo instance AttrInfo DOMXPathResultResultTypePropertyInfo where @@ -249,64 +263,92 @@ attrGet _ = getDOMXPathResultResultType attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "single-node-value" -- Type: TInterface "WebKit" "DOMNode" -- Flags: [PropertyReadable] + -- Nullable: (Nothing,Nothing) -getDOMXPathResultSingleNodeValue :: (MonadIO m, DOMXPathResultK o) => o -> m DOMNode +getDOMXPathResultSingleNodeValue :: (MonadIO m, DOMXPathResultK o) => o -> m (Maybe DOMNode) getDOMXPathResultSingleNodeValue obj = liftIO $ getObjectPropertyObject obj "single-node-value" DOMNode data DOMXPathResultSingleNodeValuePropertyInfo instance AttrInfo DOMXPathResultSingleNodeValuePropertyInfo where - type AttrAllowedOps DOMXPathResultSingleNodeValuePropertyInfo = '[ 'AttrGet] + type AttrAllowedOps DOMXPathResultSingleNodeValuePropertyInfo = '[ 'AttrGet, 'AttrClear] type AttrSetTypeConstraint DOMXPathResultSingleNodeValuePropertyInfo = (~) () type AttrBaseTypeConstraint DOMXPathResultSingleNodeValuePropertyInfo = DOMXPathResultK - type AttrGetType DOMXPathResultSingleNodeValuePropertyInfo = DOMNode + type AttrGetType DOMXPathResultSingleNodeValuePropertyInfo = (Maybe DOMNode) type AttrLabel DOMXPathResultSingleNodeValuePropertyInfo = "single-node-value" attrGet _ = getDOMXPathResultSingleNodeValue attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "snapshot-length" - -- Type: TBasicType TUInt64 + -- Type: TBasicType TULong -- Flags: [PropertyReadable] + -- Nullable: (Nothing,Nothing) -getDOMXPathResultSnapshotLength :: (MonadIO m, DOMXPathResultK o) => o -> m Word64 -getDOMXPathResultSnapshotLength obj = liftIO $ getObjectPropertyUInt64 obj "snapshot-length" +getDOMXPathResultSnapshotLength :: (MonadIO m, DOMXPathResultK o) => o -> m CULong +getDOMXPathResultSnapshotLength obj = liftIO $ getObjectPropertyULong obj "snapshot-length" data DOMXPathResultSnapshotLengthPropertyInfo instance AttrInfo DOMXPathResultSnapshotLengthPropertyInfo where type AttrAllowedOps DOMXPathResultSnapshotLengthPropertyInfo = '[ 'AttrGet] type AttrSetTypeConstraint DOMXPathResultSnapshotLengthPropertyInfo = (~) () type AttrBaseTypeConstraint DOMXPathResultSnapshotLengthPropertyInfo = DOMXPathResultK - type AttrGetType DOMXPathResultSnapshotLengthPropertyInfo = Word64 + type AttrGetType DOMXPathResultSnapshotLengthPropertyInfo = CULong type AttrLabel DOMXPathResultSnapshotLengthPropertyInfo = "snapshot-length" attrGet _ = getDOMXPathResultSnapshotLength attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "string-value" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable] + -- Nullable: (Nothing,Nothing) -getDOMXPathResultStringValue :: (MonadIO m, DOMXPathResultK o) => o -> m T.Text +getDOMXPathResultStringValue :: (MonadIO m, DOMXPathResultK o) => o -> m (Maybe T.Text) getDOMXPathResultStringValue obj = liftIO $ getObjectPropertyString obj "string-value" data DOMXPathResultStringValuePropertyInfo instance AttrInfo DOMXPathResultStringValuePropertyInfo where - type AttrAllowedOps DOMXPathResultStringValuePropertyInfo = '[ 'AttrGet] + type AttrAllowedOps DOMXPathResultStringValuePropertyInfo = '[ 'AttrGet, 'AttrClear] type AttrSetTypeConstraint DOMXPathResultStringValuePropertyInfo = (~) () type AttrBaseTypeConstraint DOMXPathResultStringValuePropertyInfo = DOMXPathResultK - type AttrGetType DOMXPathResultStringValuePropertyInfo = T.Text + type AttrGetType DOMXPathResultStringValuePropertyInfo = (Maybe T.Text) type AttrLabel DOMXPathResultStringValuePropertyInfo = "string-value" attrGet _ = getDOMXPathResultStringValue attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined type instance AttributeList DOMXPathResult = DOMXPathResultAttributeList type DOMXPathResultAttributeList = ('[ '("booleanValue", DOMXPathResultBooleanValuePropertyInfo), '("coreObject", DOMObjectCoreObjectPropertyInfo), '("invalidIteratorState", DOMXPathResultInvalidIteratorStatePropertyInfo), '("numberValue", DOMXPathResultNumberValuePropertyInfo), '("resultType", DOMXPathResultResultTypePropertyInfo), '("singleNodeValue", DOMXPathResultSingleNodeValuePropertyInfo), '("snapshotLength", DOMXPathResultSnapshotLengthPropertyInfo), '("stringValue", DOMXPathResultStringValuePropertyInfo)] :: [(Symbol, *)]) +dOMXPathResultBooleanValue :: AttrLabelProxy "booleanValue" +dOMXPathResultBooleanValue = AttrLabelProxy + +dOMXPathResultInvalidIteratorState :: AttrLabelProxy "invalidIteratorState" +dOMXPathResultInvalidIteratorState = AttrLabelProxy + +dOMXPathResultNumberValue :: AttrLabelProxy "numberValue" +dOMXPathResultNumberValue = AttrLabelProxy + +dOMXPathResultResultType :: AttrLabelProxy "resultType" +dOMXPathResultResultType = AttrLabelProxy + +dOMXPathResultSingleNodeValue :: AttrLabelProxy "singleNodeValue" +dOMXPathResultSingleNodeValue = AttrLabelProxy + +dOMXPathResultSnapshotLength :: AttrLabelProxy "snapshotLength" +dOMXPathResultSnapshotLength = AttrLabelProxy + +dOMXPathResultStringValue :: AttrLabelProxy "stringValue" +dOMXPathResultStringValue = AttrLabelProxy + type instance SignalList DOMXPathResult = DOMXPathResultSignalList type DOMXPathResultSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) @@ -314,7 +356,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMXPathResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : True -- Skip return : False @@ -346,7 +388,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMXPathResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -374,7 +416,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMXPathResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TDouble +-- returnType : Just (TBasicType TDouble) -- throws : True -- Skip return : False @@ -407,7 +449,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMXPathResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUInt16 +-- returnType : Just (TBasicType TUInt16) -- throws : False -- Skip return : False @@ -434,7 +476,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMXPathResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit" "DOMNode" +-- returnType : Just (TInterface "WebKit" "DOMNode") -- throws : True -- Skip return : False @@ -468,20 +510,20 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMXPathResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUInt64 +-- returnType : Just (TBasicType TULong) -- throws : True -- Skip return : False foreign import ccall "webkit_dom_xpath_result_get_snapshot_length" webkit_dom_xpath_result_get_snapshot_length :: Ptr DOMXPathResult -> -- _obj : TInterface "WebKit" "DOMXPathResult" Ptr (Ptr GError) -> -- error - IO Word64 + IO CULong dOMXPathResultGetSnapshotLength :: (MonadIO m, DOMXPathResultK a) => a -- _obj - -> m Word64 -- result + -> m CULong -- result dOMXPathResultGetSnapshotLength _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj onException (do @@ -493,14 +535,14 @@ ) data DOMXPathResultGetSnapshotLengthMethodInfo -instance (signature ~ (m Word64), MonadIO m, DOMXPathResultK a) => MethodInfo DOMXPathResultGetSnapshotLengthMethodInfo a signature where +instance (signature ~ (m CULong), MonadIO m, DOMXPathResultK a) => MethodInfo DOMXPathResultGetSnapshotLengthMethodInfo a signature where overloadedMethod _ = dOMXPathResultGetSnapshotLength -- method DOMXPathResult::get_string_value -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMXPathResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : True -- Skip return : False @@ -535,7 +577,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMXPathResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit" "DOMNode" +-- returnType : Just (TInterface "WebKit" "DOMNode") -- throws : True -- Skip return : False @@ -567,15 +609,15 @@ -- method DOMXPathResult::snapshot_item -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMXPathResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "index", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMXPathResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "index", argType = TBasicType TULong, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit" "DOMNode" +-- returnType : Just (TInterface "WebKit" "DOMNode") -- throws : True -- Skip return : False foreign import ccall "webkit_dom_xpath_result_snapshot_item" webkit_dom_xpath_result_snapshot_item :: Ptr DOMXPathResult -> -- _obj : TInterface "WebKit" "DOMXPathResult" - Word64 -> -- index : TBasicType TUInt64 + CULong -> -- index : TBasicType TULong Ptr (Ptr GError) -> -- error IO (Ptr DOMNode) @@ -583,7 +625,7 @@ dOMXPathResultSnapshotItem :: (MonadIO m, DOMXPathResultK a) => a -- _obj - -> Word64 -- index + -> CULong -- index -> m DOMNode -- result dOMXPathResultSnapshotItem _obj index = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj @@ -598,7 +640,7 @@ ) data DOMXPathResultSnapshotItemMethodInfo -instance (signature ~ (Word64 -> m DOMNode), MonadIO m, DOMXPathResultK a) => MethodInfo DOMXPathResultSnapshotItemMethodInfo a signature where +instance (signature ~ (CULong -> m DOMNode), MonadIO m, DOMXPathResultK a) => MethodInfo DOMXPathResultSnapshotItemMethodInfo a signature where overloadedMethod _ = dOMXPathResultSnapshotItem diff --git a/GI/WebKit/Objects/DOMXPathResult.hs-boot b/GI/WebKit/Objects/DOMXPathResult.hs-boot --- a/GI/WebKit/Objects/DOMXPathResult.hs-boot +++ b/GI/WebKit/Objects/DOMXPathResult.hs-boot @@ -1,8 +1,8 @@ module GI.WebKit.Objects.DOMXPathResult where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map diff --git a/GI/WebKit/Objects/Download.hs b/GI/WebKit/Objects/Download.hs --- a/GI/WebKit/Objects/Download.hs +++ b/GI/WebKit/Objects/Download.hs @@ -91,12 +91,14 @@ -- * Properties -- ** CurrentSize DownloadCurrentSizePropertyInfo , + downloadCurrentSize , getDownloadCurrentSize , -- ** DestinationUri DownloadDestinationUriPropertyInfo , constructDownloadDestinationUri , + downloadDestinationUri , getDownloadDestinationUri , setDownloadDestinationUri , @@ -104,32 +106,38 @@ -- ** NetworkRequest DownloadNetworkRequestPropertyInfo , constructDownloadNetworkRequest , + downloadNetworkRequest , getDownloadNetworkRequest , -- ** NetworkResponse DownloadNetworkResponsePropertyInfo , constructDownloadNetworkResponse , + downloadNetworkResponse , getDownloadNetworkResponse , -- ** Progress DownloadProgressPropertyInfo , + downloadProgress , getDownloadProgress , -- ** Status DownloadStatusPropertyInfo , + downloadStatus , getDownloadStatus , -- ** SuggestedFilename DownloadSuggestedFilenamePropertyInfo , + downloadSuggestedFilename , getDownloadSuggestedFilename , -- ** TotalSize DownloadTotalSizePropertyInfo , + downloadTotalSize , getDownloadTotalSize , @@ -152,9 +160,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map @@ -283,6 +291,7 @@ -- VVV Prop "current-size" -- Type: TBasicType TUInt64 -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) getDownloadCurrentSize :: (MonadIO m, DownloadK o) => o -> m Word64 getDownloadCurrentSize obj = liftIO $ getObjectPropertyUInt64 obj "current-size" @@ -297,19 +306,21 @@ attrGet _ = getDownloadCurrentSize attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "destination-uri" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getDownloadDestinationUri :: (MonadIO m, DownloadK o) => o -> m T.Text -getDownloadDestinationUri obj = liftIO $ getObjectPropertyString obj "destination-uri" +getDownloadDestinationUri obj = liftIO $ checkUnexpectedNothing "getDownloadDestinationUri" $ getObjectPropertyString obj "destination-uri" setDownloadDestinationUri :: (MonadIO m, DownloadK o) => o -> T.Text -> m () -setDownloadDestinationUri obj val = liftIO $ setObjectPropertyString obj "destination-uri" val +setDownloadDestinationUri obj val = liftIO $ setObjectPropertyString obj "destination-uri" (Just val) constructDownloadDestinationUri :: T.Text -> IO ([Char], GValue) -constructDownloadDestinationUri val = constructObjectPropertyString "destination-uri" val +constructDownloadDestinationUri val = constructObjectPropertyString "destination-uri" (Just val) data DownloadDestinationUriPropertyInfo instance AttrInfo DownloadDestinationUriPropertyInfo where @@ -321,20 +332,22 @@ attrGet _ = getDownloadDestinationUri attrSet _ = setDownloadDestinationUri attrConstruct _ = constructDownloadDestinationUri + attrClear _ = undefined -- VVV Prop "network-request" -- Type: TInterface "WebKit" "NetworkRequest" -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] + -- Nullable: (Just False,Nothing) getDownloadNetworkRequest :: (MonadIO m, DownloadK o) => o -> m NetworkRequest -getDownloadNetworkRequest obj = liftIO $ getObjectPropertyObject obj "network-request" NetworkRequest +getDownloadNetworkRequest obj = liftIO $ checkUnexpectedNothing "getDownloadNetworkRequest" $ getObjectPropertyObject obj "network-request" NetworkRequest constructDownloadNetworkRequest :: (NetworkRequestK a) => a -> IO ([Char], GValue) -constructDownloadNetworkRequest val = constructObjectPropertyObject "network-request" val +constructDownloadNetworkRequest val = constructObjectPropertyObject "network-request" (Just val) data DownloadNetworkRequestPropertyInfo instance AttrInfo DownloadNetworkRequestPropertyInfo where - type AttrAllowedOps DownloadNetworkRequestPropertyInfo = '[ 'AttrConstruct, 'AttrGet] + type AttrAllowedOps DownloadNetworkRequestPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint DownloadNetworkRequestPropertyInfo = NetworkRequestK type AttrBaseTypeConstraint DownloadNetworkRequestPropertyInfo = DownloadK type AttrGetType DownloadNetworkRequestPropertyInfo = NetworkRequest @@ -342,20 +355,22 @@ attrGet _ = getDownloadNetworkRequest attrSet _ = undefined attrConstruct _ = constructDownloadNetworkRequest + attrClear _ = undefined -- VVV Prop "network-response" -- Type: TInterface "WebKit" "NetworkResponse" -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] + -- Nullable: (Just False,Nothing) getDownloadNetworkResponse :: (MonadIO m, DownloadK o) => o -> m NetworkResponse -getDownloadNetworkResponse obj = liftIO $ getObjectPropertyObject obj "network-response" NetworkResponse +getDownloadNetworkResponse obj = liftIO $ checkUnexpectedNothing "getDownloadNetworkResponse" $ getObjectPropertyObject obj "network-response" NetworkResponse constructDownloadNetworkResponse :: (NetworkResponseK a) => a -> IO ([Char], GValue) -constructDownloadNetworkResponse val = constructObjectPropertyObject "network-response" val +constructDownloadNetworkResponse val = constructObjectPropertyObject "network-response" (Just val) data DownloadNetworkResponsePropertyInfo instance AttrInfo DownloadNetworkResponsePropertyInfo where - type AttrAllowedOps DownloadNetworkResponsePropertyInfo = '[ 'AttrConstruct, 'AttrGet] + type AttrAllowedOps DownloadNetworkResponsePropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint DownloadNetworkResponsePropertyInfo = NetworkResponseK type AttrBaseTypeConstraint DownloadNetworkResponsePropertyInfo = DownloadK type AttrGetType DownloadNetworkResponsePropertyInfo = NetworkResponse @@ -363,10 +378,12 @@ attrGet _ = getDownloadNetworkResponse attrSet _ = undefined attrConstruct _ = constructDownloadNetworkResponse + attrClear _ = undefined -- VVV Prop "progress" -- Type: TBasicType TDouble -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) getDownloadProgress :: (MonadIO m, DownloadK o) => o -> m Double getDownloadProgress obj = liftIO $ getObjectPropertyDouble obj "progress" @@ -381,10 +398,12 @@ attrGet _ = getDownloadProgress attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "status" -- Type: TInterface "WebKit" "DownloadStatus" -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) getDownloadStatus :: (MonadIO m, DownloadK o) => o -> m DownloadStatus getDownloadStatus obj = liftIO $ getObjectPropertyEnum obj "status" @@ -399,17 +418,19 @@ attrGet _ = getDownloadStatus attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "suggested-filename" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) getDownloadSuggestedFilename :: (MonadIO m, DownloadK o) => o -> m T.Text -getDownloadSuggestedFilename obj = liftIO $ getObjectPropertyString obj "suggested-filename" +getDownloadSuggestedFilename obj = liftIO $ checkUnexpectedNothing "getDownloadSuggestedFilename" $ getObjectPropertyString obj "suggested-filename" data DownloadSuggestedFilenamePropertyInfo instance AttrInfo DownloadSuggestedFilenamePropertyInfo where - type AttrAllowedOps DownloadSuggestedFilenamePropertyInfo = '[ 'AttrGet] + type AttrAllowedOps DownloadSuggestedFilenamePropertyInfo = '[ 'AttrGet, 'AttrClear] type AttrSetTypeConstraint DownloadSuggestedFilenamePropertyInfo = (~) () type AttrBaseTypeConstraint DownloadSuggestedFilenamePropertyInfo = DownloadK type AttrGetType DownloadSuggestedFilenamePropertyInfo = T.Text @@ -417,10 +438,12 @@ attrGet _ = getDownloadSuggestedFilename attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "total-size" -- Type: TBasicType TUInt64 -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) getDownloadTotalSize :: (MonadIO m, DownloadK o) => o -> m Word64 getDownloadTotalSize obj = liftIO $ getObjectPropertyUInt64 obj "total-size" @@ -435,10 +458,35 @@ attrGet _ = getDownloadTotalSize attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined type instance AttributeList Download = DownloadAttributeList type DownloadAttributeList = ('[ '("currentSize", DownloadCurrentSizePropertyInfo), '("destinationUri", DownloadDestinationUriPropertyInfo), '("networkRequest", DownloadNetworkRequestPropertyInfo), '("networkResponse", DownloadNetworkResponsePropertyInfo), '("progress", DownloadProgressPropertyInfo), '("status", DownloadStatusPropertyInfo), '("suggestedFilename", DownloadSuggestedFilenamePropertyInfo), '("totalSize", DownloadTotalSizePropertyInfo)] :: [(Symbol, *)]) +downloadCurrentSize :: AttrLabelProxy "currentSize" +downloadCurrentSize = AttrLabelProxy + +downloadDestinationUri :: AttrLabelProxy "destinationUri" +downloadDestinationUri = AttrLabelProxy + +downloadNetworkRequest :: AttrLabelProxy "networkRequest" +downloadNetworkRequest = AttrLabelProxy + +downloadNetworkResponse :: AttrLabelProxy "networkResponse" +downloadNetworkResponse = AttrLabelProxy + +downloadProgress :: AttrLabelProxy "progress" +downloadProgress = AttrLabelProxy + +downloadStatus :: AttrLabelProxy "status" +downloadStatus = AttrLabelProxy + +downloadSuggestedFilename :: AttrLabelProxy "suggestedFilename" +downloadSuggestedFilename = AttrLabelProxy + +downloadTotalSize :: AttrLabelProxy "totalSize" +downloadTotalSize = AttrLabelProxy + data DownloadErrorSignalInfo instance SignalInfo DownloadErrorSignalInfo where type HaskellCallbackType DownloadErrorSignalInfo = DownloadErrorCallback @@ -451,7 +499,7 @@ -- method type : Constructor -- Args : [Arg {argCName = "request", argType = TInterface "WebKit" "NetworkRequest", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit" "Download" +-- returnType : Just (TInterface "WebKit" "Download") -- throws : False -- Skip return : False @@ -476,7 +524,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "Download", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -503,7 +551,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "Download", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUInt64 +-- returnType : Just (TBasicType TUInt64) -- throws : False -- Skip return : False @@ -530,7 +578,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "Download", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -559,7 +607,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "Download", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TDouble +-- returnType : Just (TBasicType TDouble) -- throws : False -- Skip return : False @@ -587,7 +635,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "Download", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit" "NetworkRequest" +-- returnType : Just (TInterface "WebKit" "NetworkRequest") -- throws : False -- Skip return : False @@ -616,7 +664,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "Download", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit" "NetworkResponse" +-- returnType : Just (TInterface "WebKit" "NetworkResponse") -- throws : False -- Skip return : False @@ -645,7 +693,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "Download", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TDouble +-- returnType : Just (TBasicType TDouble) -- throws : False -- Skip return : False @@ -673,7 +721,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "Download", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit" "DownloadStatus" +-- returnType : Just (TInterface "WebKit" "DownloadStatus") -- throws : False -- Skip return : False @@ -701,7 +749,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "Download", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -730,7 +778,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "Download", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUInt64 +-- returnType : Just (TBasicType TUInt64) -- throws : False -- Skip return : False @@ -757,7 +805,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "Download", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -786,7 +834,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "Download", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "destination_uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -817,7 +865,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "Download", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False diff --git a/GI/WebKit/Objects/Download.hs-boot b/GI/WebKit/Objects/Download.hs-boot --- a/GI/WebKit/Objects/Download.hs-boot +++ b/GI/WebKit/Objects/Download.hs-boot @@ -1,8 +1,8 @@ module GI.WebKit.Objects.Download where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map diff --git a/GI/WebKit/Objects/FaviconDatabase.hs b/GI/WebKit/Objects/FaviconDatabase.hs --- a/GI/WebKit/Objects/FaviconDatabase.hs +++ b/GI/WebKit/Objects/FaviconDatabase.hs @@ -57,7 +57,9 @@ -- * Properties -- ** Path FaviconDatabasePathPropertyInfo , + clearFaviconDatabasePath , constructFaviconDatabasePath , + faviconDatabasePath , getFaviconDatabasePath , setFaviconDatabasePath , @@ -81,9 +83,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map @@ -200,19 +202,23 @@ -- VVV Prop "path" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just True) getFaviconDatabasePath :: (MonadIO m, FaviconDatabaseK o) => o -> m T.Text -getFaviconDatabasePath obj = liftIO $ getObjectPropertyString obj "path" +getFaviconDatabasePath obj = liftIO $ checkUnexpectedNothing "getFaviconDatabasePath" $ getObjectPropertyString obj "path" setFaviconDatabasePath :: (MonadIO m, FaviconDatabaseK o) => o -> T.Text -> m () -setFaviconDatabasePath obj val = liftIO $ setObjectPropertyString obj "path" val +setFaviconDatabasePath obj val = liftIO $ setObjectPropertyString obj "path" (Just val) constructFaviconDatabasePath :: T.Text -> IO ([Char], GValue) -constructFaviconDatabasePath val = constructObjectPropertyString "path" val +constructFaviconDatabasePath val = constructObjectPropertyString "path" (Just val) +clearFaviconDatabasePath :: (MonadIO m, FaviconDatabaseK o) => o -> m () +clearFaviconDatabasePath obj = liftIO $ setObjectPropertyString obj "path" (Nothing :: Maybe T.Text) + data FaviconDatabasePathPropertyInfo instance AttrInfo FaviconDatabasePathPropertyInfo where - type AttrAllowedOps FaviconDatabasePathPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrAllowedOps FaviconDatabasePathPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint FaviconDatabasePathPropertyInfo = (~) T.Text type AttrBaseTypeConstraint FaviconDatabasePathPropertyInfo = FaviconDatabaseK type AttrGetType FaviconDatabasePathPropertyInfo = T.Text @@ -220,10 +226,14 @@ attrGet _ = getFaviconDatabasePath attrSet _ = setFaviconDatabasePath attrConstruct _ = constructFaviconDatabasePath + attrClear _ = clearFaviconDatabasePath type instance AttributeList FaviconDatabase = FaviconDatabaseAttributeList type FaviconDatabaseAttributeList = ('[ '("path", FaviconDatabasePathPropertyInfo)] :: [(Symbol, *)]) +faviconDatabasePath :: AttrLabelProxy "path" +faviconDatabasePath = AttrLabelProxy + data FaviconDatabaseIconLoadedSignalInfo instance SignalInfo FaviconDatabaseIconLoadedSignalInfo where type HaskellCallbackType FaviconDatabaseIconLoadedSignalInfo = FaviconDatabaseIconLoadedCallback @@ -236,7 +246,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "FaviconDatabase", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -261,20 +271,20 @@ -- method FaviconDatabase::get_favicon_pixbuf -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "FaviconDatabase", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "page_uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "width", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "height", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 6, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "FaviconDatabase", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "page_uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "width", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "height", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 6, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "webkit_favicon_database_get_favicon_pixbuf" webkit_favicon_database_get_favicon_pixbuf :: Ptr FaviconDatabase -> -- _obj : TInterface "WebKit" "FaviconDatabase" CString -> -- page_uri : TBasicType TUTF8 - Word32 -> -- width : TBasicType TUInt32 - Word32 -> -- height : TBasicType TUInt32 + Word32 -> -- width : TBasicType TUInt + Word32 -> -- height : TBasicType TUInt Ptr Gio.Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" FunPtr Gio.AsyncReadyCallbackC -> -- callback : TInterface "Gio" "AsyncReadyCallback" - Ptr () -> -- user_data : TBasicType TVoid + Ptr () -> -- user_data : TBasicType TPtr IO () @@ -317,7 +327,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "FaviconDatabase", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "GdkPixbuf" "Pixbuf" +-- returnType : Just (TInterface "GdkPixbuf" "Pixbuf") -- throws : True -- Skip return : False @@ -355,7 +365,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "FaviconDatabase", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "page_uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -389,7 +399,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "FaviconDatabase", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -418,7 +428,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "FaviconDatabase", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -451,17 +461,17 @@ -- method FaviconDatabase::try_get_favicon_pixbuf -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "FaviconDatabase", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "page_uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "width", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "height", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "FaviconDatabase", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "page_uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "width", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "height", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "GdkPixbuf" "Pixbuf" +-- returnType : Just (TInterface "GdkPixbuf" "Pixbuf") -- throws : False -- Skip return : False foreign import ccall "webkit_favicon_database_try_get_favicon_pixbuf" webkit_favicon_database_try_get_favicon_pixbuf :: Ptr FaviconDatabase -> -- _obj : TInterface "WebKit" "FaviconDatabase" CString -> -- page_uri : TBasicType TUTF8 - Word32 -> -- width : TBasicType TUInt32 - Word32 -> -- height : TBasicType TUInt32 + Word32 -> -- width : TBasicType TUInt + Word32 -> -- height : TBasicType TUInt IO (Ptr GdkPixbuf.Pixbuf) diff --git a/GI/WebKit/Objects/FaviconDatabase.hs-boot b/GI/WebKit/Objects/FaviconDatabase.hs-boot --- a/GI/WebKit/Objects/FaviconDatabase.hs-boot +++ b/GI/WebKit/Objects/FaviconDatabase.hs-boot @@ -1,8 +1,8 @@ module GI.WebKit.Objects.FaviconDatabase where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map diff --git a/GI/WebKit/Objects/FileChooserRequest.hs b/GI/WebKit/Objects/FileChooserRequest.hs --- a/GI/WebKit/Objects/FileChooserRequest.hs +++ b/GI/WebKit/Objects/FileChooserRequest.hs @@ -47,21 +47,25 @@ -- * Properties -- ** Filter FileChooserRequestFilterPropertyInfo , + fileChooserRequestFilter , getFileChooserRequestFilter , -- ** MimeTypes FileChooserRequestMimeTypesPropertyInfo , + fileChooserRequestMimeTypes , getFileChooserRequestMimeTypes , -- ** SelectMultiple FileChooserRequestSelectMultiplePropertyInfo, + fileChooserRequestSelectMultiple , getFileChooserRequestSelectMultiple , -- ** SelectedFiles FileChooserRequestSelectedFilesPropertyInfo, + fileChooserRequestSelectedFiles , getFileChooserRequestSelectedFiles , @@ -69,9 +73,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map @@ -143,31 +147,34 @@ -- VVV Prop "filter" -- Type: TInterface "Gtk" "FileFilter" -- Flags: [PropertyReadable] + -- Nullable: (Nothing,Nothing) -getFileChooserRequestFilter :: (MonadIO m, FileChooserRequestK o) => o -> m Gtk.FileFilter +getFileChooserRequestFilter :: (MonadIO m, FileChooserRequestK o) => o -> m (Maybe Gtk.FileFilter) getFileChooserRequestFilter obj = liftIO $ getObjectPropertyObject obj "filter" Gtk.FileFilter data FileChooserRequestFilterPropertyInfo instance AttrInfo FileChooserRequestFilterPropertyInfo where - type AttrAllowedOps FileChooserRequestFilterPropertyInfo = '[ 'AttrGet] + type AttrAllowedOps FileChooserRequestFilterPropertyInfo = '[ 'AttrGet, 'AttrClear] type AttrSetTypeConstraint FileChooserRequestFilterPropertyInfo = (~) () type AttrBaseTypeConstraint FileChooserRequestFilterPropertyInfo = FileChooserRequestK - type AttrGetType FileChooserRequestFilterPropertyInfo = Gtk.FileFilter + type AttrGetType FileChooserRequestFilterPropertyInfo = (Maybe Gtk.FileFilter) type AttrLabel FileChooserRequestFilterPropertyInfo = "filter" attrGet _ = getFileChooserRequestFilter attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "mime-types" -- Type: TCArray True (-1) (-1) (TBasicType TUTF8) -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) getFileChooserRequestMimeTypes :: (MonadIO m, FileChooserRequestK o) => o -> m [T.Text] -getFileChooserRequestMimeTypes obj = liftIO $ getObjectPropertyStringArray obj "mime-types" +getFileChooserRequestMimeTypes obj = liftIO $ checkUnexpectedNothing "getFileChooserRequestMimeTypes" $ getObjectPropertyStringArray obj "mime-types" data FileChooserRequestMimeTypesPropertyInfo instance AttrInfo FileChooserRequestMimeTypesPropertyInfo where - type AttrAllowedOps FileChooserRequestMimeTypesPropertyInfo = '[ 'AttrGet] + type AttrAllowedOps FileChooserRequestMimeTypesPropertyInfo = '[ 'AttrGet, 'AttrClear] type AttrSetTypeConstraint FileChooserRequestMimeTypesPropertyInfo = (~) () type AttrBaseTypeConstraint FileChooserRequestMimeTypesPropertyInfo = FileChooserRequestK type AttrGetType FileChooserRequestMimeTypesPropertyInfo = [T.Text] @@ -175,10 +182,12 @@ attrGet _ = getFileChooserRequestMimeTypes attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "select-multiple" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) getFileChooserRequestSelectMultiple :: (MonadIO m, FileChooserRequestK o) => o -> m Bool getFileChooserRequestSelectMultiple obj = liftIO $ getObjectPropertyBool obj "select-multiple" @@ -193,17 +202,19 @@ attrGet _ = getFileChooserRequestSelectMultiple attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "selected-files" -- Type: TCArray True (-1) (-1) (TBasicType TUTF8) -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) getFileChooserRequestSelectedFiles :: (MonadIO m, FileChooserRequestK o) => o -> m [T.Text] -getFileChooserRequestSelectedFiles obj = liftIO $ getObjectPropertyStringArray obj "selected-files" +getFileChooserRequestSelectedFiles obj = liftIO $ checkUnexpectedNothing "getFileChooserRequestSelectedFiles" $ getObjectPropertyStringArray obj "selected-files" data FileChooserRequestSelectedFilesPropertyInfo instance AttrInfo FileChooserRequestSelectedFilesPropertyInfo where - type AttrAllowedOps FileChooserRequestSelectedFilesPropertyInfo = '[ 'AttrGet] + type AttrAllowedOps FileChooserRequestSelectedFilesPropertyInfo = '[ 'AttrGet, 'AttrClear] type AttrSetTypeConstraint FileChooserRequestSelectedFilesPropertyInfo = (~) () type AttrBaseTypeConstraint FileChooserRequestSelectedFilesPropertyInfo = FileChooserRequestK type AttrGetType FileChooserRequestSelectedFilesPropertyInfo = [T.Text] @@ -211,10 +222,23 @@ attrGet _ = getFileChooserRequestSelectedFiles attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined type instance AttributeList FileChooserRequest = FileChooserRequestAttributeList type FileChooserRequestAttributeList = ('[ '("filter", FileChooserRequestFilterPropertyInfo), '("mimeTypes", FileChooserRequestMimeTypesPropertyInfo), '("selectMultiple", FileChooserRequestSelectMultiplePropertyInfo), '("selectedFiles", FileChooserRequestSelectedFilesPropertyInfo)] :: [(Symbol, *)]) +fileChooserRequestFilter :: AttrLabelProxy "filter" +fileChooserRequestFilter = AttrLabelProxy + +fileChooserRequestMimeTypes :: AttrLabelProxy "mimeTypes" +fileChooserRequestMimeTypes = AttrLabelProxy + +fileChooserRequestSelectMultiple :: AttrLabelProxy "selectMultiple" +fileChooserRequestSelectMultiple = AttrLabelProxy + +fileChooserRequestSelectedFiles :: AttrLabelProxy "selectedFiles" +fileChooserRequestSelectedFiles = AttrLabelProxy + type instance SignalList FileChooserRequest = FileChooserRequestSignalList type FileChooserRequestSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) @@ -222,7 +246,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "FileChooserRequest", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TCArray True (-1) (-1) (TBasicType TUTF8) +-- returnType : Just (TCArray True (-1) (-1) (TBasicType TUTF8)) -- throws : False -- Skip return : False @@ -251,7 +275,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "FileChooserRequest", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "FileFilter" +-- returnType : Just (TInterface "Gtk" "FileFilter") -- throws : False -- Skip return : False @@ -280,7 +304,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "FileChooserRequest", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -308,7 +332,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "FileChooserRequest", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TCArray True (-1) (-1) (TBasicType TUTF8) +-- returnType : Just (TCArray True (-1) (-1) (TBasicType TUTF8)) -- throws : False -- Skip return : False @@ -337,7 +361,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "FileChooserRequest", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "files", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False diff --git a/GI/WebKit/Objects/FileChooserRequest.hs-boot b/GI/WebKit/Objects/FileChooserRequest.hs-boot --- a/GI/WebKit/Objects/FileChooserRequest.hs-boot +++ b/GI/WebKit/Objects/FileChooserRequest.hs-boot @@ -1,8 +1,8 @@ module GI.WebKit.Objects.FileChooserRequest where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map diff --git a/GI/WebKit/Objects/GeolocationPolicyDecision.hs b/GI/WebKit/Objects/GeolocationPolicyDecision.hs --- a/GI/WebKit/Objects/GeolocationPolicyDecision.hs +++ b/GI/WebKit/Objects/GeolocationPolicyDecision.hs @@ -18,9 +18,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map diff --git a/GI/WebKit/Objects/GeolocationPolicyDecision.hs-boot b/GI/WebKit/Objects/GeolocationPolicyDecision.hs-boot --- a/GI/WebKit/Objects/GeolocationPolicyDecision.hs-boot +++ b/GI/WebKit/Objects/GeolocationPolicyDecision.hs-boot @@ -1,8 +1,8 @@ module GI.WebKit.Objects.GeolocationPolicyDecision where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map diff --git a/GI/WebKit/Objects/HitTestResult.hs b/GI/WebKit/Objects/HitTestResult.hs --- a/GI/WebKit/Objects/HitTestResult.hs +++ b/GI/WebKit/Objects/HitTestResult.hs @@ -21,51 +21,58 @@ HitTestResultContextPropertyInfo , constructHitTestResultContext , getHitTestResultContext , + hitTestResultContext , -- ** ImageUri HitTestResultImageUriPropertyInfo , constructHitTestResultImageUri , getHitTestResultImageUri , + hitTestResultImageUri , -- ** InnerNode HitTestResultInnerNodePropertyInfo , constructHitTestResultInnerNode , getHitTestResultInnerNode , + hitTestResultInnerNode , -- ** LinkUri HitTestResultLinkUriPropertyInfo , constructHitTestResultLinkUri , getHitTestResultLinkUri , + hitTestResultLinkUri , -- ** MediaUri HitTestResultMediaUriPropertyInfo , constructHitTestResultMediaUri , getHitTestResultMediaUri , + hitTestResultMediaUri , -- ** X HitTestResultXPropertyInfo , constructHitTestResultX , getHitTestResultX , + hitTestResultX , -- ** Y HitTestResultYPropertyInfo , constructHitTestResultY , getHitTestResultY , + hitTestResultY , ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map @@ -131,6 +138,7 @@ -- VVV Prop "context" -- Type: TInterface "WebKit" "HitTestResultContext" -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] + -- Nullable: (Nothing,Nothing) getHitTestResultContext :: (MonadIO m, HitTestResultK o) => o -> m [HitTestResultContext] getHitTestResultContext obj = liftIO $ getObjectPropertyFlags obj "context" @@ -148,100 +156,110 @@ attrGet _ = getHitTestResultContext attrSet _ = undefined attrConstruct _ = constructHitTestResultContext + attrClear _ = undefined -- VVV Prop "image-uri" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] + -- Nullable: (Nothing,Nothing) -getHitTestResultImageUri :: (MonadIO m, HitTestResultK o) => o -> m T.Text +getHitTestResultImageUri :: (MonadIO m, HitTestResultK o) => o -> m (Maybe T.Text) getHitTestResultImageUri obj = liftIO $ getObjectPropertyString obj "image-uri" constructHitTestResultImageUri :: T.Text -> IO ([Char], GValue) -constructHitTestResultImageUri val = constructObjectPropertyString "image-uri" val +constructHitTestResultImageUri val = constructObjectPropertyString "image-uri" (Just val) data HitTestResultImageUriPropertyInfo instance AttrInfo HitTestResultImageUriPropertyInfo where - type AttrAllowedOps HitTestResultImageUriPropertyInfo = '[ 'AttrConstruct, 'AttrGet] + type AttrAllowedOps HitTestResultImageUriPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint HitTestResultImageUriPropertyInfo = (~) T.Text type AttrBaseTypeConstraint HitTestResultImageUriPropertyInfo = HitTestResultK - type AttrGetType HitTestResultImageUriPropertyInfo = T.Text + type AttrGetType HitTestResultImageUriPropertyInfo = (Maybe T.Text) type AttrLabel HitTestResultImageUriPropertyInfo = "image-uri" attrGet _ = getHitTestResultImageUri attrSet _ = undefined attrConstruct _ = constructHitTestResultImageUri + attrClear _ = undefined -- VVV Prop "inner-node" -- Type: TInterface "WebKit" "DOMNode" -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] + -- Nullable: (Nothing,Nothing) -getHitTestResultInnerNode :: (MonadIO m, HitTestResultK o) => o -> m DOMNode +getHitTestResultInnerNode :: (MonadIO m, HitTestResultK o) => o -> m (Maybe DOMNode) getHitTestResultInnerNode obj = liftIO $ getObjectPropertyObject obj "inner-node" DOMNode constructHitTestResultInnerNode :: (DOMNodeK a) => a -> IO ([Char], GValue) -constructHitTestResultInnerNode val = constructObjectPropertyObject "inner-node" val +constructHitTestResultInnerNode val = constructObjectPropertyObject "inner-node" (Just val) data HitTestResultInnerNodePropertyInfo instance AttrInfo HitTestResultInnerNodePropertyInfo where - type AttrAllowedOps HitTestResultInnerNodePropertyInfo = '[ 'AttrConstruct, 'AttrGet] + type AttrAllowedOps HitTestResultInnerNodePropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint HitTestResultInnerNodePropertyInfo = DOMNodeK type AttrBaseTypeConstraint HitTestResultInnerNodePropertyInfo = HitTestResultK - type AttrGetType HitTestResultInnerNodePropertyInfo = DOMNode + type AttrGetType HitTestResultInnerNodePropertyInfo = (Maybe DOMNode) type AttrLabel HitTestResultInnerNodePropertyInfo = "inner-node" attrGet _ = getHitTestResultInnerNode attrSet _ = undefined attrConstruct _ = constructHitTestResultInnerNode + attrClear _ = undefined -- VVV Prop "link-uri" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] + -- Nullable: (Nothing,Nothing) -getHitTestResultLinkUri :: (MonadIO m, HitTestResultK o) => o -> m T.Text +getHitTestResultLinkUri :: (MonadIO m, HitTestResultK o) => o -> m (Maybe T.Text) getHitTestResultLinkUri obj = liftIO $ getObjectPropertyString obj "link-uri" constructHitTestResultLinkUri :: T.Text -> IO ([Char], GValue) -constructHitTestResultLinkUri val = constructObjectPropertyString "link-uri" val +constructHitTestResultLinkUri val = constructObjectPropertyString "link-uri" (Just val) data HitTestResultLinkUriPropertyInfo instance AttrInfo HitTestResultLinkUriPropertyInfo where - type AttrAllowedOps HitTestResultLinkUriPropertyInfo = '[ 'AttrConstruct, 'AttrGet] + type AttrAllowedOps HitTestResultLinkUriPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint HitTestResultLinkUriPropertyInfo = (~) T.Text type AttrBaseTypeConstraint HitTestResultLinkUriPropertyInfo = HitTestResultK - type AttrGetType HitTestResultLinkUriPropertyInfo = T.Text + type AttrGetType HitTestResultLinkUriPropertyInfo = (Maybe T.Text) type AttrLabel HitTestResultLinkUriPropertyInfo = "link-uri" attrGet _ = getHitTestResultLinkUri attrSet _ = undefined attrConstruct _ = constructHitTestResultLinkUri + attrClear _ = undefined -- VVV Prop "media-uri" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] + -- Nullable: (Nothing,Nothing) -getHitTestResultMediaUri :: (MonadIO m, HitTestResultK o) => o -> m T.Text +getHitTestResultMediaUri :: (MonadIO m, HitTestResultK o) => o -> m (Maybe T.Text) getHitTestResultMediaUri obj = liftIO $ getObjectPropertyString obj "media-uri" constructHitTestResultMediaUri :: T.Text -> IO ([Char], GValue) -constructHitTestResultMediaUri val = constructObjectPropertyString "media-uri" val +constructHitTestResultMediaUri val = constructObjectPropertyString "media-uri" (Just val) data HitTestResultMediaUriPropertyInfo instance AttrInfo HitTestResultMediaUriPropertyInfo where - type AttrAllowedOps HitTestResultMediaUriPropertyInfo = '[ 'AttrConstruct, 'AttrGet] + type AttrAllowedOps HitTestResultMediaUriPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint HitTestResultMediaUriPropertyInfo = (~) T.Text type AttrBaseTypeConstraint HitTestResultMediaUriPropertyInfo = HitTestResultK - type AttrGetType HitTestResultMediaUriPropertyInfo = T.Text + type AttrGetType HitTestResultMediaUriPropertyInfo = (Maybe T.Text) type AttrLabel HitTestResultMediaUriPropertyInfo = "media-uri" attrGet _ = getHitTestResultMediaUri attrSet _ = undefined attrConstruct _ = constructHitTestResultMediaUri + attrClear _ = undefined -- VVV Prop "x" - -- Type: TBasicType TInt32 + -- Type: TBasicType TInt -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] + -- Nullable: (Nothing,Nothing) getHitTestResultX :: (MonadIO m, HitTestResultK o) => o -> m Int32 -getHitTestResultX obj = liftIO $ getObjectPropertyCInt obj "x" +getHitTestResultX obj = liftIO $ getObjectPropertyInt32 obj "x" constructHitTestResultX :: Int32 -> IO ([Char], GValue) -constructHitTestResultX val = constructObjectPropertyCInt "x" val +constructHitTestResultX val = constructObjectPropertyInt32 "x" val data HitTestResultXPropertyInfo instance AttrInfo HitTestResultXPropertyInfo where @@ -253,16 +271,18 @@ attrGet _ = getHitTestResultX attrSet _ = undefined attrConstruct _ = constructHitTestResultX + attrClear _ = undefined -- VVV Prop "y" - -- Type: TBasicType TInt32 + -- Type: TBasicType TInt -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] + -- Nullable: (Nothing,Nothing) getHitTestResultY :: (MonadIO m, HitTestResultK o) => o -> m Int32 -getHitTestResultY obj = liftIO $ getObjectPropertyCInt obj "y" +getHitTestResultY obj = liftIO $ getObjectPropertyInt32 obj "y" constructHitTestResultY :: Int32 -> IO ([Char], GValue) -constructHitTestResultY val = constructObjectPropertyCInt "y" val +constructHitTestResultY val = constructObjectPropertyInt32 "y" val data HitTestResultYPropertyInfo instance AttrInfo HitTestResultYPropertyInfo where @@ -274,9 +294,31 @@ attrGet _ = getHitTestResultY attrSet _ = undefined attrConstruct _ = constructHitTestResultY + attrClear _ = undefined type instance AttributeList HitTestResult = HitTestResultAttributeList type HitTestResultAttributeList = ('[ '("context", HitTestResultContextPropertyInfo), '("imageUri", HitTestResultImageUriPropertyInfo), '("innerNode", HitTestResultInnerNodePropertyInfo), '("linkUri", HitTestResultLinkUriPropertyInfo), '("mediaUri", HitTestResultMediaUriPropertyInfo), '("x", HitTestResultXPropertyInfo), '("y", HitTestResultYPropertyInfo)] :: [(Symbol, *)]) + +hitTestResultContext :: AttrLabelProxy "context" +hitTestResultContext = AttrLabelProxy + +hitTestResultImageUri :: AttrLabelProxy "imageUri" +hitTestResultImageUri = AttrLabelProxy + +hitTestResultInnerNode :: AttrLabelProxy "innerNode" +hitTestResultInnerNode = AttrLabelProxy + +hitTestResultLinkUri :: AttrLabelProxy "linkUri" +hitTestResultLinkUri = AttrLabelProxy + +hitTestResultMediaUri :: AttrLabelProxy "mediaUri" +hitTestResultMediaUri = AttrLabelProxy + +hitTestResultX :: AttrLabelProxy "x" +hitTestResultX = AttrLabelProxy + +hitTestResultY :: AttrLabelProxy "y" +hitTestResultY = AttrLabelProxy type instance SignalList HitTestResult = HitTestResultSignalList type HitTestResultSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) diff --git a/GI/WebKit/Objects/HitTestResult.hs-boot b/GI/WebKit/Objects/HitTestResult.hs-boot --- a/GI/WebKit/Objects/HitTestResult.hs-boot +++ b/GI/WebKit/Objects/HitTestResult.hs-boot @@ -1,8 +1,8 @@ module GI.WebKit.Objects.HitTestResult where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map diff --git a/GI/WebKit/Objects/IconDatabase.hs b/GI/WebKit/Objects/IconDatabase.hs --- a/GI/WebKit/Objects/IconDatabase.hs +++ b/GI/WebKit/Objects/IconDatabase.hs @@ -49,6 +49,7 @@ IconDatabasePathPropertyInfo , constructIconDatabasePath , getIconDatabasePath , + iconDatabasePath , setIconDatabasePath , @@ -71,9 +72,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map @@ -191,15 +192,16 @@ -- VVV Prop "path" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getIconDatabasePath :: (MonadIO m, IconDatabaseK o) => o -> m T.Text -getIconDatabasePath obj = liftIO $ getObjectPropertyString obj "path" +getIconDatabasePath obj = liftIO $ checkUnexpectedNothing "getIconDatabasePath" $ getObjectPropertyString obj "path" setIconDatabasePath :: (MonadIO m, IconDatabaseK o) => o -> T.Text -> m () -setIconDatabasePath obj val = liftIO $ setObjectPropertyString obj "path" val +setIconDatabasePath obj val = liftIO $ setObjectPropertyString obj "path" (Just val) constructIconDatabasePath :: T.Text -> IO ([Char], GValue) -constructIconDatabasePath val = constructObjectPropertyString "path" val +constructIconDatabasePath val = constructObjectPropertyString "path" (Just val) data IconDatabasePathPropertyInfo instance AttrInfo IconDatabasePathPropertyInfo where @@ -211,10 +213,14 @@ attrGet _ = getIconDatabasePath attrSet _ = setIconDatabasePath attrConstruct _ = constructIconDatabasePath + attrClear _ = undefined type instance AttributeList IconDatabase = IconDatabaseAttributeList type IconDatabaseAttributeList = ('[ '("path", IconDatabasePathPropertyInfo)] :: [(Symbol, *)]) +iconDatabasePath :: AttrLabelProxy "path" +iconDatabasePath = AttrLabelProxy + data IconDatabaseIconLoadedSignalInfo instance SignalInfo IconDatabaseIconLoadedSignalInfo where type HaskellCallbackType IconDatabaseIconLoadedSignalInfo = IconDatabaseIconLoadedCallback @@ -227,7 +233,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "IconDatabase", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -254,7 +260,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "IconDatabase", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "page_uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "GdkPixbuf" "Pixbuf" +-- returnType : Just (TInterface "GdkPixbuf" "Pixbuf") -- throws : False -- Skip return : False @@ -287,7 +293,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "IconDatabase", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "page_uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -321,7 +327,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "IconDatabase", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -350,7 +356,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "IconDatabase", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False diff --git a/GI/WebKit/Objects/IconDatabase.hs-boot b/GI/WebKit/Objects/IconDatabase.hs-boot --- a/GI/WebKit/Objects/IconDatabase.hs-boot +++ b/GI/WebKit/Objects/IconDatabase.hs-boot @@ -1,8 +1,8 @@ module GI.WebKit.Objects.IconDatabase where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map diff --git a/GI/WebKit/Objects/NetworkRequest.hs b/GI/WebKit/Objects/NetworkRequest.hs --- a/GI/WebKit/Objects/NetworkRequest.hs +++ b/GI/WebKit/Objects/NetworkRequest.hs @@ -43,12 +43,14 @@ NetworkRequestMessagePropertyInfo , constructNetworkRequestMessage , getNetworkRequestMessage , + networkRequestMessage , -- ** Uri NetworkRequestUriPropertyInfo , constructNetworkRequestUri , getNetworkRequestUri , + networkRequestUri , setNetworkRequestUri , @@ -56,9 +58,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map @@ -128,16 +130,17 @@ -- VVV Prop "message" -- Type: TInterface "Soup" "Message" -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] + -- Nullable: (Just False,Nothing) getNetworkRequestMessage :: (MonadIO m, NetworkRequestK o) => o -> m Soup.Message -getNetworkRequestMessage obj = liftIO $ getObjectPropertyObject obj "message" Soup.Message +getNetworkRequestMessage obj = liftIO $ checkUnexpectedNothing "getNetworkRequestMessage" $ getObjectPropertyObject obj "message" Soup.Message constructNetworkRequestMessage :: (Soup.MessageK a) => a -> IO ([Char], GValue) -constructNetworkRequestMessage val = constructObjectPropertyObject "message" val +constructNetworkRequestMessage val = constructObjectPropertyObject "message" (Just val) data NetworkRequestMessagePropertyInfo instance AttrInfo NetworkRequestMessagePropertyInfo where - type AttrAllowedOps NetworkRequestMessagePropertyInfo = '[ 'AttrConstruct, 'AttrGet] + type AttrAllowedOps NetworkRequestMessagePropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint NetworkRequestMessagePropertyInfo = Soup.MessageK type AttrBaseTypeConstraint NetworkRequestMessagePropertyInfo = NetworkRequestK type AttrGetType NetworkRequestMessagePropertyInfo = Soup.Message @@ -145,19 +148,21 @@ attrGet _ = getNetworkRequestMessage attrSet _ = undefined attrConstruct _ = constructNetworkRequestMessage + attrClear _ = undefined -- VVV Prop "uri" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getNetworkRequestUri :: (MonadIO m, NetworkRequestK o) => o -> m T.Text -getNetworkRequestUri obj = liftIO $ getObjectPropertyString obj "uri" +getNetworkRequestUri obj = liftIO $ checkUnexpectedNothing "getNetworkRequestUri" $ getObjectPropertyString obj "uri" setNetworkRequestUri :: (MonadIO m, NetworkRequestK o) => o -> T.Text -> m () -setNetworkRequestUri obj val = liftIO $ setObjectPropertyString obj "uri" val +setNetworkRequestUri obj val = liftIO $ setObjectPropertyString obj "uri" (Just val) constructNetworkRequestUri :: T.Text -> IO ([Char], GValue) -constructNetworkRequestUri val = constructObjectPropertyString "uri" val +constructNetworkRequestUri val = constructObjectPropertyString "uri" (Just val) data NetworkRequestUriPropertyInfo instance AttrInfo NetworkRequestUriPropertyInfo where @@ -169,10 +174,17 @@ attrGet _ = getNetworkRequestUri attrSet _ = setNetworkRequestUri attrConstruct _ = constructNetworkRequestUri + attrClear _ = undefined type instance AttributeList NetworkRequest = NetworkRequestAttributeList type NetworkRequestAttributeList = ('[ '("message", NetworkRequestMessagePropertyInfo), '("uri", NetworkRequestUriPropertyInfo)] :: [(Symbol, *)]) +networkRequestMessage :: AttrLabelProxy "message" +networkRequestMessage = AttrLabelProxy + +networkRequestUri :: AttrLabelProxy "uri" +networkRequestUri = AttrLabelProxy + type instance SignalList NetworkRequest = NetworkRequestSignalList type NetworkRequestSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) @@ -180,7 +192,7 @@ -- method type : Constructor -- Args : [Arg {argCName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit" "NetworkRequest" +-- returnType : Just (TInterface "WebKit" "NetworkRequest") -- throws : False -- Skip return : False @@ -205,7 +217,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "NetworkRequest", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Soup" "Message" +-- returnType : Just (TInterface "Soup" "Message") -- throws : False -- Skip return : False @@ -234,7 +246,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "NetworkRequest", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -263,7 +275,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "NetworkRequest", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False diff --git a/GI/WebKit/Objects/NetworkRequest.hs-boot b/GI/WebKit/Objects/NetworkRequest.hs-boot --- a/GI/WebKit/Objects/NetworkRequest.hs-boot +++ b/GI/WebKit/Objects/NetworkRequest.hs-boot @@ -1,8 +1,8 @@ module GI.WebKit.Objects.NetworkRequest where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map diff --git a/GI/WebKit/Objects/NetworkResponse.hs b/GI/WebKit/Objects/NetworkResponse.hs --- a/GI/WebKit/Objects/NetworkResponse.hs +++ b/GI/WebKit/Objects/NetworkResponse.hs @@ -48,17 +48,20 @@ NetworkResponseMessagePropertyInfo , constructNetworkResponseMessage , getNetworkResponseMessage , + networkResponseMessage , -- ** SuggestedFilename NetworkResponseSuggestedFilenamePropertyInfo, getNetworkResponseSuggestedFilename , + networkResponseSuggestedFilename , -- ** Uri NetworkResponseUriPropertyInfo , constructNetworkResponseUri , getNetworkResponseUri , + networkResponseUri , setNetworkResponseUri , @@ -66,9 +69,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map @@ -139,16 +142,17 @@ -- VVV Prop "message" -- Type: TInterface "Soup" "Message" -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] + -- Nullable: (Just False,Nothing) getNetworkResponseMessage :: (MonadIO m, NetworkResponseK o) => o -> m Soup.Message -getNetworkResponseMessage obj = liftIO $ getObjectPropertyObject obj "message" Soup.Message +getNetworkResponseMessage obj = liftIO $ checkUnexpectedNothing "getNetworkResponseMessage" $ getObjectPropertyObject obj "message" Soup.Message constructNetworkResponseMessage :: (Soup.MessageK a) => a -> IO ([Char], GValue) -constructNetworkResponseMessage val = constructObjectPropertyObject "message" val +constructNetworkResponseMessage val = constructObjectPropertyObject "message" (Just val) data NetworkResponseMessagePropertyInfo instance AttrInfo NetworkResponseMessagePropertyInfo where - type AttrAllowedOps NetworkResponseMessagePropertyInfo = '[ 'AttrConstruct, 'AttrGet] + type AttrAllowedOps NetworkResponseMessagePropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint NetworkResponseMessagePropertyInfo = Soup.MessageK type AttrBaseTypeConstraint NetworkResponseMessagePropertyInfo = NetworkResponseK type AttrGetType NetworkResponseMessagePropertyInfo = Soup.Message @@ -156,17 +160,19 @@ attrGet _ = getNetworkResponseMessage attrSet _ = undefined attrConstruct _ = constructNetworkResponseMessage + attrClear _ = undefined -- VVV Prop "suggested-filename" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) getNetworkResponseSuggestedFilename :: (MonadIO m, NetworkResponseK o) => o -> m T.Text -getNetworkResponseSuggestedFilename obj = liftIO $ getObjectPropertyString obj "suggested-filename" +getNetworkResponseSuggestedFilename obj = liftIO $ checkUnexpectedNothing "getNetworkResponseSuggestedFilename" $ getObjectPropertyString obj "suggested-filename" data NetworkResponseSuggestedFilenamePropertyInfo instance AttrInfo NetworkResponseSuggestedFilenamePropertyInfo where - type AttrAllowedOps NetworkResponseSuggestedFilenamePropertyInfo = '[ 'AttrGet] + type AttrAllowedOps NetworkResponseSuggestedFilenamePropertyInfo = '[ 'AttrGet, 'AttrClear] type AttrSetTypeConstraint NetworkResponseSuggestedFilenamePropertyInfo = (~) () type AttrBaseTypeConstraint NetworkResponseSuggestedFilenamePropertyInfo = NetworkResponseK type AttrGetType NetworkResponseSuggestedFilenamePropertyInfo = T.Text @@ -174,19 +180,21 @@ attrGet _ = getNetworkResponseSuggestedFilename attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "uri" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getNetworkResponseUri :: (MonadIO m, NetworkResponseK o) => o -> m T.Text -getNetworkResponseUri obj = liftIO $ getObjectPropertyString obj "uri" +getNetworkResponseUri obj = liftIO $ checkUnexpectedNothing "getNetworkResponseUri" $ getObjectPropertyString obj "uri" setNetworkResponseUri :: (MonadIO m, NetworkResponseK o) => o -> T.Text -> m () -setNetworkResponseUri obj val = liftIO $ setObjectPropertyString obj "uri" val +setNetworkResponseUri obj val = liftIO $ setObjectPropertyString obj "uri" (Just val) constructNetworkResponseUri :: T.Text -> IO ([Char], GValue) -constructNetworkResponseUri val = constructObjectPropertyString "uri" val +constructNetworkResponseUri val = constructObjectPropertyString "uri" (Just val) data NetworkResponseUriPropertyInfo instance AttrInfo NetworkResponseUriPropertyInfo where @@ -198,10 +206,20 @@ attrGet _ = getNetworkResponseUri attrSet _ = setNetworkResponseUri attrConstruct _ = constructNetworkResponseUri + attrClear _ = undefined type instance AttributeList NetworkResponse = NetworkResponseAttributeList type NetworkResponseAttributeList = ('[ '("message", NetworkResponseMessagePropertyInfo), '("suggestedFilename", NetworkResponseSuggestedFilenamePropertyInfo), '("uri", NetworkResponseUriPropertyInfo)] :: [(Symbol, *)]) +networkResponseMessage :: AttrLabelProxy "message" +networkResponseMessage = AttrLabelProxy + +networkResponseSuggestedFilename :: AttrLabelProxy "suggestedFilename" +networkResponseSuggestedFilename = AttrLabelProxy + +networkResponseUri :: AttrLabelProxy "uri" +networkResponseUri = AttrLabelProxy + type instance SignalList NetworkResponse = NetworkResponseSignalList type NetworkResponseSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) @@ -209,7 +227,7 @@ -- method type : Constructor -- Args : [Arg {argCName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit" "NetworkResponse" +-- returnType : Just (TInterface "WebKit" "NetworkResponse") -- throws : False -- Skip return : False @@ -234,7 +252,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "NetworkResponse", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Soup" "Message" +-- returnType : Just (TInterface "Soup" "Message") -- throws : False -- Skip return : False @@ -263,7 +281,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "NetworkResponse", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -292,7 +310,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "NetworkResponse", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -321,7 +339,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "NetworkResponse", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False diff --git a/GI/WebKit/Objects/NetworkResponse.hs-boot b/GI/WebKit/Objects/NetworkResponse.hs-boot --- a/GI/WebKit/Objects/NetworkResponse.hs-boot +++ b/GI/WebKit/Objects/NetworkResponse.hs-boot @@ -1,8 +1,8 @@ module GI.WebKit.Objects.NetworkResponse where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map diff --git a/GI/WebKit/Objects/SecurityOrigin.hs b/GI/WebKit/Objects/SecurityOrigin.hs --- a/GI/WebKit/Objects/SecurityOrigin.hs +++ b/GI/WebKit/Objects/SecurityOrigin.hs @@ -58,37 +58,42 @@ -- ** Host SecurityOriginHostPropertyInfo , getSecurityOriginHost , + securityOriginHost , -- ** Port SecurityOriginPortPropertyInfo , getSecurityOriginPort , + securityOriginPort , -- ** Protocol SecurityOriginProtocolPropertyInfo , getSecurityOriginProtocol , + securityOriginProtocol , -- ** WebDatabaseQuota SecurityOriginWebDatabaseQuotaPropertyInfo, constructSecurityOriginWebDatabaseQuota , getSecurityOriginWebDatabaseQuota , + securityOriginWebDatabaseQuota , setSecurityOriginWebDatabaseQuota , -- ** WebDatabaseUsage SecurityOriginWebDatabaseUsagePropertyInfo, getSecurityOriginWebDatabaseUsage , + securityOriginWebDatabaseUsage , ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map @@ -161,13 +166,14 @@ -- VVV Prop "host" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) getSecurityOriginHost :: (MonadIO m, SecurityOriginK o) => o -> m T.Text -getSecurityOriginHost obj = liftIO $ getObjectPropertyString obj "host" +getSecurityOriginHost obj = liftIO $ checkUnexpectedNothing "getSecurityOriginHost" $ getObjectPropertyString obj "host" data SecurityOriginHostPropertyInfo instance AttrInfo SecurityOriginHostPropertyInfo where - type AttrAllowedOps SecurityOriginHostPropertyInfo = '[ 'AttrGet] + type AttrAllowedOps SecurityOriginHostPropertyInfo = '[ 'AttrGet, 'AttrClear] type AttrSetTypeConstraint SecurityOriginHostPropertyInfo = (~) () type AttrBaseTypeConstraint SecurityOriginHostPropertyInfo = SecurityOriginK type AttrGetType SecurityOriginHostPropertyInfo = T.Text @@ -175,13 +181,15 @@ attrGet _ = getSecurityOriginHost attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "port" - -- Type: TBasicType TUInt32 + -- Type: TBasicType TUInt -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) getSecurityOriginPort :: (MonadIO m, SecurityOriginK o) => o -> m Word32 -getSecurityOriginPort obj = liftIO $ getObjectPropertyCUInt obj "port" +getSecurityOriginPort obj = liftIO $ getObjectPropertyUInt32 obj "port" data SecurityOriginPortPropertyInfo instance AttrInfo SecurityOriginPortPropertyInfo where @@ -193,17 +201,19 @@ attrGet _ = getSecurityOriginPort attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "protocol" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) getSecurityOriginProtocol :: (MonadIO m, SecurityOriginK o) => o -> m T.Text -getSecurityOriginProtocol obj = liftIO $ getObjectPropertyString obj "protocol" +getSecurityOriginProtocol obj = liftIO $ checkUnexpectedNothing "getSecurityOriginProtocol" $ getObjectPropertyString obj "protocol" data SecurityOriginProtocolPropertyInfo instance AttrInfo SecurityOriginProtocolPropertyInfo where - type AttrAllowedOps SecurityOriginProtocolPropertyInfo = '[ 'AttrGet] + type AttrAllowedOps SecurityOriginProtocolPropertyInfo = '[ 'AttrGet, 'AttrClear] type AttrSetTypeConstraint SecurityOriginProtocolPropertyInfo = (~) () type AttrBaseTypeConstraint SecurityOriginProtocolPropertyInfo = SecurityOriginK type AttrGetType SecurityOriginProtocolPropertyInfo = T.Text @@ -211,10 +221,12 @@ attrGet _ = getSecurityOriginProtocol attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "web-database-quota" -- Type: TBasicType TUInt64 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getSecurityOriginWebDatabaseQuota :: (MonadIO m, SecurityOriginK o) => o -> m Word64 getSecurityOriginWebDatabaseQuota obj = liftIO $ getObjectPropertyUInt64 obj "web-database-quota" @@ -235,10 +247,12 @@ attrGet _ = getSecurityOriginWebDatabaseQuota attrSet _ = setSecurityOriginWebDatabaseQuota attrConstruct _ = constructSecurityOriginWebDatabaseQuota + attrClear _ = undefined -- VVV Prop "web-database-usage" -- Type: TBasicType TUInt64 -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) getSecurityOriginWebDatabaseUsage :: (MonadIO m, SecurityOriginK o) => o -> m Word64 getSecurityOriginWebDatabaseUsage obj = liftIO $ getObjectPropertyUInt64 obj "web-database-usage" @@ -253,10 +267,26 @@ attrGet _ = getSecurityOriginWebDatabaseUsage attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined type instance AttributeList SecurityOrigin = SecurityOriginAttributeList type SecurityOriginAttributeList = ('[ '("host", SecurityOriginHostPropertyInfo), '("port", SecurityOriginPortPropertyInfo), '("protocol", SecurityOriginProtocolPropertyInfo), '("webDatabaseQuota", SecurityOriginWebDatabaseQuotaPropertyInfo), '("webDatabaseUsage", SecurityOriginWebDatabaseUsagePropertyInfo)] :: [(Symbol, *)]) +securityOriginHost :: AttrLabelProxy "host" +securityOriginHost = AttrLabelProxy + +securityOriginPort :: AttrLabelProxy "port" +securityOriginPort = AttrLabelProxy + +securityOriginProtocol :: AttrLabelProxy "protocol" +securityOriginProtocol = AttrLabelProxy + +securityOriginWebDatabaseQuota :: AttrLabelProxy "webDatabaseQuota" +securityOriginWebDatabaseQuota = AttrLabelProxy + +securityOriginWebDatabaseUsage :: AttrLabelProxy "webDatabaseUsage" +securityOriginWebDatabaseUsage = AttrLabelProxy + type instance SignalList SecurityOrigin = SecurityOriginSignalList type SecurityOriginSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) @@ -264,7 +294,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "SecurityOrigin", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TGList (TInterface "WebKit" "WebDatabase") +-- returnType : Just (TGList (TInterface "WebKit" "WebDatabase")) -- throws : False -- Skip return : False @@ -280,7 +310,6 @@ securityOriginGetAllWebDatabases _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- webkit_security_origin_get_all_web_databases _obj' - checkUnexpectedReturnNULL "webkit_security_origin_get_all_web_databases" result result' <- unpackGList result result'' <- mapM (newObject WebDatabase) result' g_list_free result @@ -295,7 +324,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "SecurityOrigin", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -324,7 +353,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "SecurityOrigin", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUInt32 +-- returnType : Just (TBasicType TUInt) -- throws : False -- Skip return : False @@ -351,7 +380,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "SecurityOrigin", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -380,7 +409,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "SecurityOrigin", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUInt64 +-- returnType : Just (TBasicType TUInt64) -- throws : False -- Skip return : False @@ -407,7 +436,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "SecurityOrigin", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUInt64 +-- returnType : Just (TBasicType TUInt64) -- throws : False -- Skip return : False @@ -434,7 +463,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "SecurityOrigin", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "quota", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False diff --git a/GI/WebKit/Objects/SecurityOrigin.hs-boot b/GI/WebKit/Objects/SecurityOrigin.hs-boot --- a/GI/WebKit/Objects/SecurityOrigin.hs-boot +++ b/GI/WebKit/Objects/SecurityOrigin.hs-boot @@ -1,8 +1,8 @@ module GI.WebKit.Objects.SecurityOrigin where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map diff --git a/GI/WebKit/Objects/SoupAuthDialog.hs b/GI/WebKit/Objects/SoupAuthDialog.hs --- a/GI/WebKit/Objects/SoupAuthDialog.hs +++ b/GI/WebKit/Objects/SoupAuthDialog.hs @@ -33,9 +33,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map diff --git a/GI/WebKit/Objects/SoupAuthDialog.hs-boot b/GI/WebKit/Objects/SoupAuthDialog.hs-boot --- a/GI/WebKit/Objects/SoupAuthDialog.hs-boot +++ b/GI/WebKit/Objects/SoupAuthDialog.hs-boot @@ -1,8 +1,8 @@ module GI.WebKit.Objects.SoupAuthDialog where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map diff --git a/GI/WebKit/Objects/ViewportAttributes.hs b/GI/WebKit/Objects/ViewportAttributes.hs --- a/GI/WebKit/Objects/ViewportAttributes.hs +++ b/GI/WebKit/Objects/ViewportAttributes.hs @@ -30,6 +30,7 @@ constructViewportAttributesAvailableHeight, getViewportAttributesAvailableHeight , setViewportAttributesAvailableHeight , + viewportAttributesAvailableHeight , -- ** AvailableWidth @@ -37,6 +38,7 @@ constructViewportAttributesAvailableWidth, getViewportAttributesAvailableWidth , setViewportAttributesAvailableWidth , + viewportAttributesAvailableWidth , -- ** DesktopWidth @@ -44,6 +46,7 @@ constructViewportAttributesDesktopWidth , getViewportAttributesDesktopWidth , setViewportAttributesDesktopWidth , + viewportAttributesDesktopWidth , -- ** DeviceDpi @@ -51,6 +54,7 @@ constructViewportAttributesDeviceDpi , getViewportAttributesDeviceDpi , setViewportAttributesDeviceDpi , + viewportAttributesDeviceDpi , -- ** DeviceHeight @@ -58,11 +62,13 @@ constructViewportAttributesDeviceHeight , getViewportAttributesDeviceHeight , setViewportAttributesDeviceHeight , + viewportAttributesDeviceHeight , -- ** DevicePixelRatio ViewportAttributesDevicePixelRatioPropertyInfo, getViewportAttributesDevicePixelRatio , + viewportAttributesDevicePixelRatio , -- ** DeviceWidth @@ -70,50 +76,58 @@ constructViewportAttributesDeviceWidth , getViewportAttributesDeviceWidth , setViewportAttributesDeviceWidth , + viewportAttributesDeviceWidth , -- ** Height ViewportAttributesHeightPropertyInfo , getViewportAttributesHeight , + viewportAttributesHeight , -- ** InitialScaleFactor ViewportAttributesInitialScaleFactorPropertyInfo, getViewportAttributesInitialScaleFactor , + viewportAttributesInitialScaleFactor , -- ** MaximumScaleFactor ViewportAttributesMaximumScaleFactorPropertyInfo, getViewportAttributesMaximumScaleFactor , + viewportAttributesMaximumScaleFactor , -- ** MinimumScaleFactor ViewportAttributesMinimumScaleFactorPropertyInfo, getViewportAttributesMinimumScaleFactor , + viewportAttributesMinimumScaleFactor , -- ** UserScalable ViewportAttributesUserScalablePropertyInfo, getViewportAttributesUserScalable , + viewportAttributesUserScalable , -- ** Valid ViewportAttributesValidPropertyInfo , getViewportAttributesValid , + viewportAttributesValid , -- ** Width ViewportAttributesWidthPropertyInfo , getViewportAttributesWidth , + viewportAttributesWidth , ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map @@ -178,17 +192,18 @@ #endif -- VVV Prop "available-height" - -- Type: TBasicType TInt32 + -- Type: TBasicType TInt -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) getViewportAttributesAvailableHeight :: (MonadIO m, ViewportAttributesK o) => o -> m Int32 -getViewportAttributesAvailableHeight obj = liftIO $ getObjectPropertyCInt obj "available-height" +getViewportAttributesAvailableHeight obj = liftIO $ getObjectPropertyInt32 obj "available-height" setViewportAttributesAvailableHeight :: (MonadIO m, ViewportAttributesK o) => o -> Int32 -> m () -setViewportAttributesAvailableHeight obj val = liftIO $ setObjectPropertyCInt obj "available-height" val +setViewportAttributesAvailableHeight obj val = liftIO $ setObjectPropertyInt32 obj "available-height" val constructViewportAttributesAvailableHeight :: Int32 -> IO ([Char], GValue) -constructViewportAttributesAvailableHeight val = constructObjectPropertyCInt "available-height" val +constructViewportAttributesAvailableHeight val = constructObjectPropertyInt32 "available-height" val data ViewportAttributesAvailableHeightPropertyInfo instance AttrInfo ViewportAttributesAvailableHeightPropertyInfo where @@ -200,19 +215,21 @@ attrGet _ = getViewportAttributesAvailableHeight attrSet _ = setViewportAttributesAvailableHeight attrConstruct _ = constructViewportAttributesAvailableHeight + attrClear _ = undefined -- VVV Prop "available-width" - -- Type: TBasicType TInt32 + -- Type: TBasicType TInt -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) getViewportAttributesAvailableWidth :: (MonadIO m, ViewportAttributesK o) => o -> m Int32 -getViewportAttributesAvailableWidth obj = liftIO $ getObjectPropertyCInt obj "available-width" +getViewportAttributesAvailableWidth obj = liftIO $ getObjectPropertyInt32 obj "available-width" setViewportAttributesAvailableWidth :: (MonadIO m, ViewportAttributesK o) => o -> Int32 -> m () -setViewportAttributesAvailableWidth obj val = liftIO $ setObjectPropertyCInt obj "available-width" val +setViewportAttributesAvailableWidth obj val = liftIO $ setObjectPropertyInt32 obj "available-width" val constructViewportAttributesAvailableWidth :: Int32 -> IO ([Char], GValue) -constructViewportAttributesAvailableWidth val = constructObjectPropertyCInt "available-width" val +constructViewportAttributesAvailableWidth val = constructObjectPropertyInt32 "available-width" val data ViewportAttributesAvailableWidthPropertyInfo instance AttrInfo ViewportAttributesAvailableWidthPropertyInfo where @@ -224,19 +241,21 @@ attrGet _ = getViewportAttributesAvailableWidth attrSet _ = setViewportAttributesAvailableWidth attrConstruct _ = constructViewportAttributesAvailableWidth + attrClear _ = undefined -- VVV Prop "desktop-width" - -- Type: TBasicType TInt32 + -- Type: TBasicType TInt -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) getViewportAttributesDesktopWidth :: (MonadIO m, ViewportAttributesK o) => o -> m Int32 -getViewportAttributesDesktopWidth obj = liftIO $ getObjectPropertyCInt obj "desktop-width" +getViewportAttributesDesktopWidth obj = liftIO $ getObjectPropertyInt32 obj "desktop-width" setViewportAttributesDesktopWidth :: (MonadIO m, ViewportAttributesK o) => o -> Int32 -> m () -setViewportAttributesDesktopWidth obj val = liftIO $ setObjectPropertyCInt obj "desktop-width" val +setViewportAttributesDesktopWidth obj val = liftIO $ setObjectPropertyInt32 obj "desktop-width" val constructViewportAttributesDesktopWidth :: Int32 -> IO ([Char], GValue) -constructViewportAttributesDesktopWidth val = constructObjectPropertyCInt "desktop-width" val +constructViewportAttributesDesktopWidth val = constructObjectPropertyInt32 "desktop-width" val data ViewportAttributesDesktopWidthPropertyInfo instance AttrInfo ViewportAttributesDesktopWidthPropertyInfo where @@ -248,19 +267,21 @@ attrGet _ = getViewportAttributesDesktopWidth attrSet _ = setViewportAttributesDesktopWidth attrConstruct _ = constructViewportAttributesDesktopWidth + attrClear _ = undefined -- VVV Prop "device-dpi" - -- Type: TBasicType TInt32 + -- Type: TBasicType TInt -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) getViewportAttributesDeviceDpi :: (MonadIO m, ViewportAttributesK o) => o -> m Int32 -getViewportAttributesDeviceDpi obj = liftIO $ getObjectPropertyCInt obj "device-dpi" +getViewportAttributesDeviceDpi obj = liftIO $ getObjectPropertyInt32 obj "device-dpi" setViewportAttributesDeviceDpi :: (MonadIO m, ViewportAttributesK o) => o -> Int32 -> m () -setViewportAttributesDeviceDpi obj val = liftIO $ setObjectPropertyCInt obj "device-dpi" val +setViewportAttributesDeviceDpi obj val = liftIO $ setObjectPropertyInt32 obj "device-dpi" val constructViewportAttributesDeviceDpi :: Int32 -> IO ([Char], GValue) -constructViewportAttributesDeviceDpi val = constructObjectPropertyCInt "device-dpi" val +constructViewportAttributesDeviceDpi val = constructObjectPropertyInt32 "device-dpi" val data ViewportAttributesDeviceDpiPropertyInfo instance AttrInfo ViewportAttributesDeviceDpiPropertyInfo where @@ -272,19 +293,21 @@ attrGet _ = getViewportAttributesDeviceDpi attrSet _ = setViewportAttributesDeviceDpi attrConstruct _ = constructViewportAttributesDeviceDpi + attrClear _ = undefined -- VVV Prop "device-height" - -- Type: TBasicType TInt32 + -- Type: TBasicType TInt -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) getViewportAttributesDeviceHeight :: (MonadIO m, ViewportAttributesK o) => o -> m Int32 -getViewportAttributesDeviceHeight obj = liftIO $ getObjectPropertyCInt obj "device-height" +getViewportAttributesDeviceHeight obj = liftIO $ getObjectPropertyInt32 obj "device-height" setViewportAttributesDeviceHeight :: (MonadIO m, ViewportAttributesK o) => o -> Int32 -> m () -setViewportAttributesDeviceHeight obj val = liftIO $ setObjectPropertyCInt obj "device-height" val +setViewportAttributesDeviceHeight obj val = liftIO $ setObjectPropertyInt32 obj "device-height" val constructViewportAttributesDeviceHeight :: Int32 -> IO ([Char], GValue) -constructViewportAttributesDeviceHeight val = constructObjectPropertyCInt "device-height" val +constructViewportAttributesDeviceHeight val = constructObjectPropertyInt32 "device-height" val data ViewportAttributesDeviceHeightPropertyInfo instance AttrInfo ViewportAttributesDeviceHeightPropertyInfo where @@ -296,10 +319,12 @@ attrGet _ = getViewportAttributesDeviceHeight attrSet _ = setViewportAttributesDeviceHeight attrConstruct _ = constructViewportAttributesDeviceHeight + attrClear _ = undefined -- VVV Prop "device-pixel-ratio" -- Type: TBasicType TFloat -- Flags: [PropertyReadable] + -- Nullable: (Nothing,Nothing) getViewportAttributesDevicePixelRatio :: (MonadIO m, ViewportAttributesK o) => o -> m Float getViewportAttributesDevicePixelRatio obj = liftIO $ getObjectPropertyFloat obj "device-pixel-ratio" @@ -314,19 +339,21 @@ attrGet _ = getViewportAttributesDevicePixelRatio attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "device-width" - -- Type: TBasicType TInt32 + -- Type: TBasicType TInt -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) getViewportAttributesDeviceWidth :: (MonadIO m, ViewportAttributesK o) => o -> m Int32 -getViewportAttributesDeviceWidth obj = liftIO $ getObjectPropertyCInt obj "device-width" +getViewportAttributesDeviceWidth obj = liftIO $ getObjectPropertyInt32 obj "device-width" setViewportAttributesDeviceWidth :: (MonadIO m, ViewportAttributesK o) => o -> Int32 -> m () -setViewportAttributesDeviceWidth obj val = liftIO $ setObjectPropertyCInt obj "device-width" val +setViewportAttributesDeviceWidth obj val = liftIO $ setObjectPropertyInt32 obj "device-width" val constructViewportAttributesDeviceWidth :: Int32 -> IO ([Char], GValue) -constructViewportAttributesDeviceWidth val = constructObjectPropertyCInt "device-width" val +constructViewportAttributesDeviceWidth val = constructObjectPropertyInt32 "device-width" val data ViewportAttributesDeviceWidthPropertyInfo instance AttrInfo ViewportAttributesDeviceWidthPropertyInfo where @@ -338,13 +365,15 @@ attrGet _ = getViewportAttributesDeviceWidth attrSet _ = setViewportAttributesDeviceWidth attrConstruct _ = constructViewportAttributesDeviceWidth + attrClear _ = undefined -- VVV Prop "height" - -- Type: TBasicType TInt32 + -- Type: TBasicType TInt -- Flags: [PropertyReadable] + -- Nullable: (Nothing,Nothing) getViewportAttributesHeight :: (MonadIO m, ViewportAttributesK o) => o -> m Int32 -getViewportAttributesHeight obj = liftIO $ getObjectPropertyCInt obj "height" +getViewportAttributesHeight obj = liftIO $ getObjectPropertyInt32 obj "height" data ViewportAttributesHeightPropertyInfo instance AttrInfo ViewportAttributesHeightPropertyInfo where @@ -356,10 +385,12 @@ attrGet _ = getViewportAttributesHeight attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "initial-scale-factor" -- Type: TBasicType TFloat -- Flags: [PropertyReadable] + -- Nullable: (Nothing,Nothing) getViewportAttributesInitialScaleFactor :: (MonadIO m, ViewportAttributesK o) => o -> m Float getViewportAttributesInitialScaleFactor obj = liftIO $ getObjectPropertyFloat obj "initial-scale-factor" @@ -374,10 +405,12 @@ attrGet _ = getViewportAttributesInitialScaleFactor attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "maximum-scale-factor" -- Type: TBasicType TFloat -- Flags: [PropertyReadable] + -- Nullable: (Nothing,Nothing) getViewportAttributesMaximumScaleFactor :: (MonadIO m, ViewportAttributesK o) => o -> m Float getViewportAttributesMaximumScaleFactor obj = liftIO $ getObjectPropertyFloat obj "maximum-scale-factor" @@ -392,10 +425,12 @@ attrGet _ = getViewportAttributesMaximumScaleFactor attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "minimum-scale-factor" -- Type: TBasicType TFloat -- Flags: [PropertyReadable] + -- Nullable: (Nothing,Nothing) getViewportAttributesMinimumScaleFactor :: (MonadIO m, ViewportAttributesK o) => o -> m Float getViewportAttributesMinimumScaleFactor obj = liftIO $ getObjectPropertyFloat obj "minimum-scale-factor" @@ -410,10 +445,12 @@ attrGet _ = getViewportAttributesMinimumScaleFactor attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "user-scalable" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable] + -- Nullable: (Nothing,Nothing) getViewportAttributesUserScalable :: (MonadIO m, ViewportAttributesK o) => o -> m Bool getViewportAttributesUserScalable obj = liftIO $ getObjectPropertyBool obj "user-scalable" @@ -428,10 +465,12 @@ attrGet _ = getViewportAttributesUserScalable attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "valid" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable] + -- Nullable: (Nothing,Nothing) getViewportAttributesValid :: (MonadIO m, ViewportAttributesK o) => o -> m Bool getViewportAttributesValid obj = liftIO $ getObjectPropertyBool obj "valid" @@ -446,13 +485,15 @@ attrGet _ = getViewportAttributesValid attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "width" - -- Type: TBasicType TInt32 + -- Type: TBasicType TInt -- Flags: [PropertyReadable] + -- Nullable: (Nothing,Nothing) getViewportAttributesWidth :: (MonadIO m, ViewportAttributesK o) => o -> m Int32 -getViewportAttributesWidth obj = liftIO $ getObjectPropertyCInt obj "width" +getViewportAttributesWidth obj = liftIO $ getObjectPropertyInt32 obj "width" data ViewportAttributesWidthPropertyInfo instance AttrInfo ViewportAttributesWidthPropertyInfo where @@ -464,10 +505,53 @@ attrGet _ = getViewportAttributesWidth attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined type instance AttributeList ViewportAttributes = ViewportAttributesAttributeList type ViewportAttributesAttributeList = ('[ '("availableHeight", ViewportAttributesAvailableHeightPropertyInfo), '("availableWidth", ViewportAttributesAvailableWidthPropertyInfo), '("desktopWidth", ViewportAttributesDesktopWidthPropertyInfo), '("deviceDpi", ViewportAttributesDeviceDpiPropertyInfo), '("deviceHeight", ViewportAttributesDeviceHeightPropertyInfo), '("devicePixelRatio", ViewportAttributesDevicePixelRatioPropertyInfo), '("deviceWidth", ViewportAttributesDeviceWidthPropertyInfo), '("height", ViewportAttributesHeightPropertyInfo), '("initialScaleFactor", ViewportAttributesInitialScaleFactorPropertyInfo), '("maximumScaleFactor", ViewportAttributesMaximumScaleFactorPropertyInfo), '("minimumScaleFactor", ViewportAttributesMinimumScaleFactorPropertyInfo), '("userScalable", ViewportAttributesUserScalablePropertyInfo), '("valid", ViewportAttributesValidPropertyInfo), '("width", ViewportAttributesWidthPropertyInfo)] :: [(Symbol, *)]) +viewportAttributesAvailableHeight :: AttrLabelProxy "availableHeight" +viewportAttributesAvailableHeight = AttrLabelProxy + +viewportAttributesAvailableWidth :: AttrLabelProxy "availableWidth" +viewportAttributesAvailableWidth = AttrLabelProxy + +viewportAttributesDesktopWidth :: AttrLabelProxy "desktopWidth" +viewportAttributesDesktopWidth = AttrLabelProxy + +viewportAttributesDeviceDpi :: AttrLabelProxy "deviceDpi" +viewportAttributesDeviceDpi = AttrLabelProxy + +viewportAttributesDeviceHeight :: AttrLabelProxy "deviceHeight" +viewportAttributesDeviceHeight = AttrLabelProxy + +viewportAttributesDevicePixelRatio :: AttrLabelProxy "devicePixelRatio" +viewportAttributesDevicePixelRatio = AttrLabelProxy + +viewportAttributesDeviceWidth :: AttrLabelProxy "deviceWidth" +viewportAttributesDeviceWidth = AttrLabelProxy + +viewportAttributesHeight :: AttrLabelProxy "height" +viewportAttributesHeight = AttrLabelProxy + +viewportAttributesInitialScaleFactor :: AttrLabelProxy "initialScaleFactor" +viewportAttributesInitialScaleFactor = AttrLabelProxy + +viewportAttributesMaximumScaleFactor :: AttrLabelProxy "maximumScaleFactor" +viewportAttributesMaximumScaleFactor = AttrLabelProxy + +viewportAttributesMinimumScaleFactor :: AttrLabelProxy "minimumScaleFactor" +viewportAttributesMinimumScaleFactor = AttrLabelProxy + +viewportAttributesUserScalable :: AttrLabelProxy "userScalable" +viewportAttributesUserScalable = AttrLabelProxy + +viewportAttributesValid :: AttrLabelProxy "valid" +viewportAttributesValid = AttrLabelProxy + +viewportAttributesWidth :: AttrLabelProxy "width" +viewportAttributesWidth = AttrLabelProxy + type instance SignalList ViewportAttributes = ViewportAttributesSignalList type ViewportAttributesSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) @@ -475,7 +559,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "ViewportAttributes", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False diff --git a/GI/WebKit/Objects/ViewportAttributes.hs-boot b/GI/WebKit/Objects/ViewportAttributes.hs-boot --- a/GI/WebKit/Objects/ViewportAttributes.hs-boot +++ b/GI/WebKit/Objects/ViewportAttributes.hs-boot @@ -1,8 +1,8 @@ module GI.WebKit.Objects.ViewportAttributes where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map diff --git a/GI/WebKit/Objects/WebBackForwardList.hs b/GI/WebKit/Objects/WebBackForwardList.hs --- a/GI/WebKit/Objects/WebBackForwardList.hs +++ b/GI/WebKit/Objects/WebBackForwardList.hs @@ -101,9 +101,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map @@ -192,7 +192,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "WebBackForwardList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "history_item", argType = TInterface "WebKit" "WebHistoryItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -223,7 +223,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "WebBackForwardList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -250,7 +250,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "WebBackForwardList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "history_item", argType = TInterface "WebKit" "WebHistoryItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -282,7 +282,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "WebBackForwardList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit" "WebHistoryItem" +-- returnType : Just (TInterface "WebKit" "WebHistoryItem") -- throws : False -- Skip return : False @@ -311,7 +311,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "WebBackForwardList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TInt32 +-- returnType : Just (TBasicType TInt) -- throws : False -- Skip return : False @@ -336,15 +336,15 @@ -- method WebBackForwardList::get_back_list_with_limit -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "WebBackForwardList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "limit", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "WebBackForwardList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "limit", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TGList (TInterface "WebKit" "WebHistoryItem") +-- returnType : Just (TGList (TInterface "WebKit" "WebHistoryItem")) -- throws : False -- Skip return : False foreign import ccall "webkit_web_back_forward_list_get_back_list_with_limit" webkit_web_back_forward_list_get_back_list_with_limit :: Ptr WebBackForwardList -> -- _obj : TInterface "WebKit" "WebBackForwardList" - Int32 -> -- limit : TBasicType TInt32 + Int32 -> -- limit : TBasicType TInt IO (Ptr (GList (Ptr WebHistoryItem))) @@ -356,7 +356,6 @@ webBackForwardListGetBackListWithLimit _obj limit = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- webkit_web_back_forward_list_get_back_list_with_limit _obj' limit - checkUnexpectedReturnNULL "webkit_web_back_forward_list_get_back_list_with_limit" result result' <- unpackGList result result'' <- mapM (newObject WebHistoryItem) result' g_list_free result @@ -371,7 +370,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "WebBackForwardList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit" "WebHistoryItem" +-- returnType : Just (TInterface "WebKit" "WebHistoryItem") -- throws : False -- Skip return : False @@ -400,7 +399,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "WebBackForwardList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit" "WebHistoryItem" +-- returnType : Just (TInterface "WebKit" "WebHistoryItem") -- throws : False -- Skip return : False @@ -429,7 +428,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "WebBackForwardList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TInt32 +-- returnType : Just (TBasicType TInt) -- throws : False -- Skip return : False @@ -454,15 +453,15 @@ -- method WebBackForwardList::get_forward_list_with_limit -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "WebBackForwardList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "limit", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "WebBackForwardList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "limit", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TGList (TInterface "WebKit" "WebHistoryItem") +-- returnType : Just (TGList (TInterface "WebKit" "WebHistoryItem")) -- throws : False -- Skip return : False foreign import ccall "webkit_web_back_forward_list_get_forward_list_with_limit" webkit_web_back_forward_list_get_forward_list_with_limit :: Ptr WebBackForwardList -> -- _obj : TInterface "WebKit" "WebBackForwardList" - Int32 -> -- limit : TBasicType TInt32 + Int32 -> -- limit : TBasicType TInt IO (Ptr (GList (Ptr WebHistoryItem))) @@ -474,7 +473,6 @@ webBackForwardListGetForwardListWithLimit _obj limit = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- webkit_web_back_forward_list_get_forward_list_with_limit _obj' limit - checkUnexpectedReturnNULL "webkit_web_back_forward_list_get_forward_list_with_limit" result result' <- unpackGList result result'' <- mapM (newObject WebHistoryItem) result' g_list_free result @@ -489,7 +487,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "WebBackForwardList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TInt32 +-- returnType : Just (TBasicType TInt) -- throws : False -- Skip return : False @@ -514,15 +512,15 @@ -- method WebBackForwardList::get_nth_item -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "WebBackForwardList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "index", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "WebBackForwardList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "index", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit" "WebHistoryItem" +-- returnType : Just (TInterface "WebKit" "WebHistoryItem") -- throws : False -- Skip return : False foreign import ccall "webkit_web_back_forward_list_get_nth_item" webkit_web_back_forward_list_get_nth_item :: Ptr WebBackForwardList -> -- _obj : TInterface "WebKit" "WebBackForwardList" - Int32 -> -- index : TBasicType TInt32 + Int32 -> -- index : TBasicType TInt IO (Ptr WebHistoryItem) @@ -547,7 +545,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "WebBackForwardList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -574,7 +572,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "WebBackForwardList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -601,7 +599,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "WebBackForwardList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "history_item", argType = TInterface "WebKit" "WebHistoryItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -630,15 +628,15 @@ -- method WebBackForwardList::set_limit -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "WebBackForwardList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "limit", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "WebBackForwardList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "limit", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "webkit_web_back_forward_list_set_limit" webkit_web_back_forward_list_set_limit :: Ptr WebBackForwardList -> -- _obj : TInterface "WebKit" "WebBackForwardList" - Int32 -> -- limit : TBasicType TInt32 + Int32 -> -- limit : TBasicType TInt IO () diff --git a/GI/WebKit/Objects/WebBackForwardList.hs-boot b/GI/WebKit/Objects/WebBackForwardList.hs-boot --- a/GI/WebKit/Objects/WebBackForwardList.hs-boot +++ b/GI/WebKit/Objects/WebBackForwardList.hs-boot @@ -1,8 +1,8 @@ module GI.WebKit.Objects.WebBackForwardList where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map diff --git a/GI/WebKit/Objects/WebDataSource.hs b/GI/WebKit/Objects/WebDataSource.hs --- a/GI/WebKit/Objects/WebDataSource.hs +++ b/GI/WebKit/Objects/WebDataSource.hs @@ -74,9 +74,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map @@ -157,7 +157,7 @@ -- method type : Constructor -- Args : [] -- Lengths : [] --- returnType : TInterface "WebKit" "WebDataSource" +-- returnType : Just (TInterface "WebKit" "WebDataSource") -- throws : False -- Skip return : False @@ -178,7 +178,7 @@ -- method type : Constructor -- Args : [Arg {argCName = "request", argType = TInterface "WebKit" "NetworkRequest", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit" "WebDataSource" +-- returnType : Just (TInterface "WebKit" "WebDataSource") -- throws : False -- Skip return : False @@ -203,7 +203,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "WebDataSource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "GLib" "String" +-- returnType : Just (TInterface "GLib" "String") -- throws : False -- Skip return : False @@ -232,7 +232,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "WebDataSource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -261,7 +261,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "WebDataSource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit" "NetworkRequest" +-- returnType : Just (TInterface "WebKit" "NetworkRequest") -- throws : False -- Skip return : False @@ -290,7 +290,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "WebDataSource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit" "WebResource" +-- returnType : Just (TInterface "WebKit" "WebResource") -- throws : False -- Skip return : False @@ -319,7 +319,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "WebDataSource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit" "NetworkRequest" +-- returnType : Just (TInterface "WebKit" "NetworkRequest") -- throws : False -- Skip return : False @@ -348,7 +348,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "WebDataSource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TGList (TInterface "WebKit" "WebResource") +-- returnType : Just (TGList (TInterface "WebKit" "WebResource")) -- throws : False -- Skip return : False @@ -364,7 +364,6 @@ webDataSourceGetSubresources _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- webkit_web_data_source_get_subresources _obj' - checkUnexpectedReturnNULL "webkit_web_data_source_get_subresources" result result' <- unpackGList result result'' <- mapM (newObject WebResource) result' g_list_free result @@ -379,7 +378,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "WebDataSource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -408,7 +407,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "WebDataSource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit" "WebFrame" +-- returnType : Just (TInterface "WebKit" "WebFrame") -- throws : False -- Skip return : False @@ -437,7 +436,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "WebDataSource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False diff --git a/GI/WebKit/Objects/WebDataSource.hs-boot b/GI/WebKit/Objects/WebDataSource.hs-boot --- a/GI/WebKit/Objects/WebDataSource.hs-boot +++ b/GI/WebKit/Objects/WebDataSource.hs-boot @@ -1,8 +1,8 @@ module GI.WebKit.Objects.WebDataSource where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map diff --git a/GI/WebKit/Objects/WebDatabase.hs b/GI/WebKit/Objects/WebDatabase.hs --- a/GI/WebKit/Objects/WebDatabase.hs +++ b/GI/WebKit/Objects/WebDatabase.hs @@ -58,42 +58,48 @@ -- ** DisplayName WebDatabaseDisplayNamePropertyInfo , getWebDatabaseDisplayName , + webDatabaseDisplayName , -- ** ExpectedSize WebDatabaseExpectedSizePropertyInfo , getWebDatabaseExpectedSize , + webDatabaseExpectedSize , -- ** Filename WebDatabaseFilenamePropertyInfo , getWebDatabaseFilename , + webDatabaseFilename , -- ** Name WebDatabaseNamePropertyInfo , constructWebDatabaseName , getWebDatabaseName , + webDatabaseName , -- ** SecurityOrigin WebDatabaseSecurityOriginPropertyInfo , constructWebDatabaseSecurityOrigin , getWebDatabaseSecurityOrigin , + webDatabaseSecurityOrigin , -- ** Size WebDatabaseSizePropertyInfo , getWebDatabaseSize , + webDatabaseSize , ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map @@ -166,13 +172,14 @@ -- VVV Prop "display-name" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) getWebDatabaseDisplayName :: (MonadIO m, WebDatabaseK o) => o -> m T.Text -getWebDatabaseDisplayName obj = liftIO $ getObjectPropertyString obj "display-name" +getWebDatabaseDisplayName obj = liftIO $ checkUnexpectedNothing "getWebDatabaseDisplayName" $ getObjectPropertyString obj "display-name" data WebDatabaseDisplayNamePropertyInfo instance AttrInfo WebDatabaseDisplayNamePropertyInfo where - type AttrAllowedOps WebDatabaseDisplayNamePropertyInfo = '[ 'AttrGet] + type AttrAllowedOps WebDatabaseDisplayNamePropertyInfo = '[ 'AttrGet, 'AttrClear] type AttrSetTypeConstraint WebDatabaseDisplayNamePropertyInfo = (~) () type AttrBaseTypeConstraint WebDatabaseDisplayNamePropertyInfo = WebDatabaseK type AttrGetType WebDatabaseDisplayNamePropertyInfo = T.Text @@ -180,10 +187,12 @@ attrGet _ = getWebDatabaseDisplayName attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "expected-size" -- Type: TBasicType TUInt64 -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) getWebDatabaseExpectedSize :: (MonadIO m, WebDatabaseK o) => o -> m Word64 getWebDatabaseExpectedSize obj = liftIO $ getObjectPropertyUInt64 obj "expected-size" @@ -198,17 +207,19 @@ attrGet _ = getWebDatabaseExpectedSize attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "filename" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) getWebDatabaseFilename :: (MonadIO m, WebDatabaseK o) => o -> m T.Text -getWebDatabaseFilename obj = liftIO $ getObjectPropertyString obj "filename" +getWebDatabaseFilename obj = liftIO $ checkUnexpectedNothing "getWebDatabaseFilename" $ getObjectPropertyString obj "filename" data WebDatabaseFilenamePropertyInfo instance AttrInfo WebDatabaseFilenamePropertyInfo where - type AttrAllowedOps WebDatabaseFilenamePropertyInfo = '[ 'AttrGet] + type AttrAllowedOps WebDatabaseFilenamePropertyInfo = '[ 'AttrGet, 'AttrClear] type AttrSetTypeConstraint WebDatabaseFilenamePropertyInfo = (~) () type AttrBaseTypeConstraint WebDatabaseFilenamePropertyInfo = WebDatabaseK type AttrGetType WebDatabaseFilenamePropertyInfo = T.Text @@ -216,20 +227,22 @@ attrGet _ = getWebDatabaseFilename attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "name" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] + -- Nullable: (Just False,Nothing) getWebDatabaseName :: (MonadIO m, WebDatabaseK o) => o -> m T.Text -getWebDatabaseName obj = liftIO $ getObjectPropertyString obj "name" +getWebDatabaseName obj = liftIO $ checkUnexpectedNothing "getWebDatabaseName" $ getObjectPropertyString obj "name" constructWebDatabaseName :: T.Text -> IO ([Char], GValue) -constructWebDatabaseName val = constructObjectPropertyString "name" val +constructWebDatabaseName val = constructObjectPropertyString "name" (Just val) data WebDatabaseNamePropertyInfo instance AttrInfo WebDatabaseNamePropertyInfo where - type AttrAllowedOps WebDatabaseNamePropertyInfo = '[ 'AttrConstruct, 'AttrGet] + type AttrAllowedOps WebDatabaseNamePropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint WebDatabaseNamePropertyInfo = (~) T.Text type AttrBaseTypeConstraint WebDatabaseNamePropertyInfo = WebDatabaseK type AttrGetType WebDatabaseNamePropertyInfo = T.Text @@ -237,20 +250,22 @@ attrGet _ = getWebDatabaseName attrSet _ = undefined attrConstruct _ = constructWebDatabaseName + attrClear _ = undefined -- VVV Prop "security-origin" -- Type: TInterface "WebKit" "SecurityOrigin" -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] + -- Nullable: (Just False,Nothing) getWebDatabaseSecurityOrigin :: (MonadIO m, WebDatabaseK o) => o -> m SecurityOrigin -getWebDatabaseSecurityOrigin obj = liftIO $ getObjectPropertyObject obj "security-origin" SecurityOrigin +getWebDatabaseSecurityOrigin obj = liftIO $ checkUnexpectedNothing "getWebDatabaseSecurityOrigin" $ getObjectPropertyObject obj "security-origin" SecurityOrigin constructWebDatabaseSecurityOrigin :: (SecurityOriginK a) => a -> IO ([Char], GValue) -constructWebDatabaseSecurityOrigin val = constructObjectPropertyObject "security-origin" val +constructWebDatabaseSecurityOrigin val = constructObjectPropertyObject "security-origin" (Just val) data WebDatabaseSecurityOriginPropertyInfo instance AttrInfo WebDatabaseSecurityOriginPropertyInfo where - type AttrAllowedOps WebDatabaseSecurityOriginPropertyInfo = '[ 'AttrConstruct, 'AttrGet] + type AttrAllowedOps WebDatabaseSecurityOriginPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint WebDatabaseSecurityOriginPropertyInfo = SecurityOriginK type AttrBaseTypeConstraint WebDatabaseSecurityOriginPropertyInfo = WebDatabaseK type AttrGetType WebDatabaseSecurityOriginPropertyInfo = SecurityOrigin @@ -258,10 +273,12 @@ attrGet _ = getWebDatabaseSecurityOrigin attrSet _ = undefined attrConstruct _ = constructWebDatabaseSecurityOrigin + attrClear _ = undefined -- VVV Prop "size" -- Type: TBasicType TUInt64 -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) getWebDatabaseSize :: (MonadIO m, WebDatabaseK o) => o -> m Word64 getWebDatabaseSize obj = liftIO $ getObjectPropertyUInt64 obj "size" @@ -276,10 +293,29 @@ attrGet _ = getWebDatabaseSize attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined type instance AttributeList WebDatabase = WebDatabaseAttributeList type WebDatabaseAttributeList = ('[ '("displayName", WebDatabaseDisplayNamePropertyInfo), '("expectedSize", WebDatabaseExpectedSizePropertyInfo), '("filename", WebDatabaseFilenamePropertyInfo), '("name", WebDatabaseNamePropertyInfo), '("securityOrigin", WebDatabaseSecurityOriginPropertyInfo), '("size", WebDatabaseSizePropertyInfo)] :: [(Symbol, *)]) +webDatabaseDisplayName :: AttrLabelProxy "displayName" +webDatabaseDisplayName = AttrLabelProxy + +webDatabaseExpectedSize :: AttrLabelProxy "expectedSize" +webDatabaseExpectedSize = AttrLabelProxy + +webDatabaseFilename :: AttrLabelProxy "filename" +webDatabaseFilename = AttrLabelProxy + +webDatabaseName :: AttrLabelProxy "name" +webDatabaseName = AttrLabelProxy + +webDatabaseSecurityOrigin :: AttrLabelProxy "securityOrigin" +webDatabaseSecurityOrigin = AttrLabelProxy + +webDatabaseSize :: AttrLabelProxy "size" +webDatabaseSize = AttrLabelProxy + type instance SignalList WebDatabase = WebDatabaseSignalList type WebDatabaseSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) @@ -287,7 +323,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "WebDatabase", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -316,7 +352,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "WebDatabase", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUInt64 +-- returnType : Just (TBasicType TUInt64) -- throws : False -- Skip return : False @@ -343,7 +379,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "WebDatabase", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -372,7 +408,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "WebDatabase", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -401,7 +437,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "WebDatabase", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit" "SecurityOrigin" +-- returnType : Just (TInterface "WebKit" "SecurityOrigin") -- throws : False -- Skip return : False @@ -430,7 +466,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "WebDatabase", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUInt64 +-- returnType : Just (TBasicType TUInt64) -- throws : False -- Skip return : False @@ -457,7 +493,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "WebDatabase", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False diff --git a/GI/WebKit/Objects/WebDatabase.hs-boot b/GI/WebKit/Objects/WebDatabase.hs-boot --- a/GI/WebKit/Objects/WebDatabase.hs-boot +++ b/GI/WebKit/Objects/WebDatabase.hs-boot @@ -1,8 +1,8 @@ module GI.WebKit.Objects.WebDatabase where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map diff --git a/GI/WebKit/Objects/WebFrame.hs b/GI/WebKit/Objects/WebFrame.hs --- a/GI/WebKit/Objects/WebFrame.hs +++ b/GI/WebKit/Objects/WebFrame.hs @@ -152,31 +152,37 @@ -- ** HorizontalScrollbarPolicy WebFrameHorizontalScrollbarPolicyPropertyInfo, getWebFrameHorizontalScrollbarPolicy , + webFrameHorizontalScrollbarPolicy , -- ** LoadStatus WebFrameLoadStatusPropertyInfo , getWebFrameLoadStatus , + webFrameLoadStatus , -- ** Name WebFrameNamePropertyInfo , getWebFrameName , + webFrameName , -- ** Title WebFrameTitlePropertyInfo , getWebFrameTitle , + webFrameTitle , -- ** Uri WebFrameUriPropertyInfo , getWebFrameUri , + webFrameUri , -- ** VerticalScrollbarPolicy WebFrameVerticalScrollbarPolicyPropertyInfo, getWebFrameVerticalScrollbarPolicy , + webFrameVerticalScrollbarPolicy , @@ -318,9 +324,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map @@ -891,6 +897,7 @@ -- VVV Prop "horizontal-scrollbar-policy" -- Type: TInterface "Gtk" "PolicyType" -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) getWebFrameHorizontalScrollbarPolicy :: (MonadIO m, WebFrameK o) => o -> m Gtk.PolicyType getWebFrameHorizontalScrollbarPolicy obj = liftIO $ getObjectPropertyEnum obj "horizontal-scrollbar-policy" @@ -905,10 +912,12 @@ attrGet _ = getWebFrameHorizontalScrollbarPolicy attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "load-status" -- Type: TInterface "WebKit" "LoadStatus" -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) getWebFrameLoadStatus :: (MonadIO m, WebFrameK o) => o -> m LoadStatus getWebFrameLoadStatus obj = liftIO $ getObjectPropertyEnum obj "load-status" @@ -923,17 +932,19 @@ attrGet _ = getWebFrameLoadStatus attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "name" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) getWebFrameName :: (MonadIO m, WebFrameK o) => o -> m T.Text -getWebFrameName obj = liftIO $ getObjectPropertyString obj "name" +getWebFrameName obj = liftIO $ checkUnexpectedNothing "getWebFrameName" $ getObjectPropertyString obj "name" data WebFrameNamePropertyInfo instance AttrInfo WebFrameNamePropertyInfo where - type AttrAllowedOps WebFrameNamePropertyInfo = '[ 'AttrGet] + type AttrAllowedOps WebFrameNamePropertyInfo = '[ 'AttrGet, 'AttrClear] type AttrSetTypeConstraint WebFrameNamePropertyInfo = (~) () type AttrBaseTypeConstraint WebFrameNamePropertyInfo = WebFrameK type AttrGetType WebFrameNamePropertyInfo = T.Text @@ -941,17 +952,19 @@ attrGet _ = getWebFrameName attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "title" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) getWebFrameTitle :: (MonadIO m, WebFrameK o) => o -> m T.Text -getWebFrameTitle obj = liftIO $ getObjectPropertyString obj "title" +getWebFrameTitle obj = liftIO $ checkUnexpectedNothing "getWebFrameTitle" $ getObjectPropertyString obj "title" data WebFrameTitlePropertyInfo instance AttrInfo WebFrameTitlePropertyInfo where - type AttrAllowedOps WebFrameTitlePropertyInfo = '[ 'AttrGet] + type AttrAllowedOps WebFrameTitlePropertyInfo = '[ 'AttrGet, 'AttrClear] type AttrSetTypeConstraint WebFrameTitlePropertyInfo = (~) () type AttrBaseTypeConstraint WebFrameTitlePropertyInfo = WebFrameK type AttrGetType WebFrameTitlePropertyInfo = T.Text @@ -959,17 +972,19 @@ attrGet _ = getWebFrameTitle attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "uri" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) getWebFrameUri :: (MonadIO m, WebFrameK o) => o -> m T.Text -getWebFrameUri obj = liftIO $ getObjectPropertyString obj "uri" +getWebFrameUri obj = liftIO $ checkUnexpectedNothing "getWebFrameUri" $ getObjectPropertyString obj "uri" data WebFrameUriPropertyInfo instance AttrInfo WebFrameUriPropertyInfo where - type AttrAllowedOps WebFrameUriPropertyInfo = '[ 'AttrGet] + type AttrAllowedOps WebFrameUriPropertyInfo = '[ 'AttrGet, 'AttrClear] type AttrSetTypeConstraint WebFrameUriPropertyInfo = (~) () type AttrBaseTypeConstraint WebFrameUriPropertyInfo = WebFrameK type AttrGetType WebFrameUriPropertyInfo = T.Text @@ -977,10 +992,12 @@ attrGet _ = getWebFrameUri attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "vertical-scrollbar-policy" -- Type: TInterface "Gtk" "PolicyType" -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) getWebFrameVerticalScrollbarPolicy :: (MonadIO m, WebFrameK o) => o -> m Gtk.PolicyType getWebFrameVerticalScrollbarPolicy obj = liftIO $ getObjectPropertyEnum obj "vertical-scrollbar-policy" @@ -995,10 +1012,29 @@ attrGet _ = getWebFrameVerticalScrollbarPolicy attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined type instance AttributeList WebFrame = WebFrameAttributeList type WebFrameAttributeList = ('[ '("horizontalScrollbarPolicy", WebFrameHorizontalScrollbarPolicyPropertyInfo), '("loadStatus", WebFrameLoadStatusPropertyInfo), '("name", WebFrameNamePropertyInfo), '("title", WebFrameTitlePropertyInfo), '("uri", WebFrameUriPropertyInfo), '("verticalScrollbarPolicy", WebFrameVerticalScrollbarPolicyPropertyInfo)] :: [(Symbol, *)]) +webFrameHorizontalScrollbarPolicy :: AttrLabelProxy "horizontalScrollbarPolicy" +webFrameHorizontalScrollbarPolicy = AttrLabelProxy + +webFrameLoadStatus :: AttrLabelProxy "loadStatus" +webFrameLoadStatus = AttrLabelProxy + +webFrameName :: AttrLabelProxy "name" +webFrameName = AttrLabelProxy + +webFrameTitle :: AttrLabelProxy "title" +webFrameTitle = AttrLabelProxy + +webFrameUri :: AttrLabelProxy "uri" +webFrameUri = AttrLabelProxy + +webFrameVerticalScrollbarPolicy :: AttrLabelProxy "verticalScrollbarPolicy" +webFrameVerticalScrollbarPolicy = AttrLabelProxy + data WebFrameClearedSignalInfo instance SignalInfo WebFrameClearedSignalInfo where type HaskellCallbackType WebFrameClearedSignalInfo = WebFrameClearedCallback @@ -1061,7 +1097,7 @@ -- method type : Constructor -- Args : [Arg {argCName = "web_view", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit" "WebFrame" +-- returnType : Just (TInterface "WebKit" "WebFrame") -- throws : False -- Skip return : False @@ -1086,7 +1122,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "WebFrame", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit" "WebFrame" +-- returnType : Just (TInterface "WebKit" "WebFrame") -- throws : False -- Skip return : False @@ -1119,7 +1155,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "WebFrame", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit" "WebDataSource" +-- returnType : Just (TInterface "WebKit" "WebDataSource") -- throws : False -- Skip return : False @@ -1148,7 +1184,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "WebFrame", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit" "DOMDocument" +-- returnType : Just (TInterface "WebKit" "DOMDocument") -- throws : False -- Skip return : False @@ -1177,7 +1213,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "WebFrame", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "JavaScriptCore" "GlobalContext" +-- returnType : Just (TInterface "JavaScriptCore" "GlobalContext") -- throws : False -- Skip return : False @@ -1207,7 +1243,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "WebFrame", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "PolicyType" +-- returnType : Just (TInterface "Gtk" "PolicyType") -- throws : False -- Skip return : False @@ -1235,7 +1271,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "WebFrame", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit" "LoadStatus" +-- returnType : Just (TInterface "WebKit" "LoadStatus") -- throws : False -- Skip return : False @@ -1263,7 +1299,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "WebFrame", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -1292,7 +1328,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "WebFrame", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit" "NetworkResponse" +-- returnType : Just (TInterface "WebKit" "NetworkResponse") -- throws : False -- Skip return : False @@ -1321,7 +1357,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "WebFrame", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit" "WebFrame" +-- returnType : Just (TInterface "WebKit" "WebFrame") -- throws : False -- Skip return : False @@ -1350,7 +1386,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "WebFrame", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit" "WebDataSource" +-- returnType : Just (TInterface "WebKit" "WebDataSource") -- throws : False -- Skip return : False @@ -1379,7 +1415,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "WebFrame", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit" "DOMRange" +-- returnType : Just (TInterface "WebKit" "DOMRange") -- throws : False -- Skip return : False @@ -1408,7 +1444,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "WebFrame", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit" "SecurityOrigin" +-- returnType : Just (TInterface "WebKit" "SecurityOrigin") -- throws : False -- Skip return : False @@ -1437,7 +1473,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "WebFrame", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -1466,7 +1502,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "WebFrame", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -1495,7 +1531,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "WebFrame", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "PolicyType" +-- returnType : Just (TInterface "Gtk" "PolicyType") -- throws : False -- Skip return : False @@ -1523,7 +1559,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "WebFrame", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit" "WebView" +-- returnType : Just (TInterface "WebKit" "WebView") -- throws : False -- Skip return : False @@ -1552,7 +1588,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "WebFrame", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "content", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "base_url", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "unreachable_url", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1591,7 +1627,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "WebFrame", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "request", argType = TInterface "WebKit" "NetworkRequest", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1622,7 +1658,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "WebFrame", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "content", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "mime_type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "encoding", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "base_uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1665,7 +1701,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "WebFrame", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1696,7 +1732,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "WebFrame", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1723,7 +1759,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "WebFrame", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "operation", argType = TInterface "Gtk" "PrintOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "action", argType = TInterface "Gtk" "PrintOperationAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "PrintOperationResult" +-- returnType : Just (TInterface "Gtk" "PrintOperationResult") -- throws : True -- Skip return : False @@ -1763,7 +1799,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "WebFrame", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1790,7 +1826,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "WebFrame", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1821,7 +1857,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "WebFrame", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False diff --git a/GI/WebKit/Objects/WebFrame.hs-boot b/GI/WebKit/Objects/WebFrame.hs-boot --- a/GI/WebKit/Objects/WebFrame.hs-boot +++ b/GI/WebKit/Objects/WebFrame.hs-boot @@ -1,8 +1,8 @@ module GI.WebKit.Objects.WebFrame where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map diff --git a/GI/WebKit/Objects/WebHistoryItem.hs b/GI/WebKit/Objects/WebHistoryItem.hs --- a/GI/WebKit/Objects/WebHistoryItem.hs +++ b/GI/WebKit/Objects/WebHistoryItem.hs @@ -68,35 +68,40 @@ constructWebHistoryItemAlternateTitle , getWebHistoryItemAlternateTitle , setWebHistoryItemAlternateTitle , + webHistoryItemAlternateTitle , -- ** LastVisitedTime WebHistoryItemLastVisitedTimePropertyInfo, getWebHistoryItemLastVisitedTime , + webHistoryItemLastVisitedTime , -- ** OriginalUri WebHistoryItemOriginalUriPropertyInfo , getWebHistoryItemOriginalUri , + webHistoryItemOriginalUri , -- ** Title WebHistoryItemTitlePropertyInfo , getWebHistoryItemTitle , + webHistoryItemTitle , -- ** Uri WebHistoryItemUriPropertyInfo , getWebHistoryItemUri , + webHistoryItemUri , ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map @@ -169,15 +174,16 @@ -- VVV Prop "alternate-title" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getWebHistoryItemAlternateTitle :: (MonadIO m, WebHistoryItemK o) => o -> m T.Text -getWebHistoryItemAlternateTitle obj = liftIO $ getObjectPropertyString obj "alternate-title" +getWebHistoryItemAlternateTitle obj = liftIO $ checkUnexpectedNothing "getWebHistoryItemAlternateTitle" $ getObjectPropertyString obj "alternate-title" setWebHistoryItemAlternateTitle :: (MonadIO m, WebHistoryItemK o) => o -> T.Text -> m () -setWebHistoryItemAlternateTitle obj val = liftIO $ setObjectPropertyString obj "alternate-title" val +setWebHistoryItemAlternateTitle obj val = liftIO $ setObjectPropertyString obj "alternate-title" (Just val) constructWebHistoryItemAlternateTitle :: T.Text -> IO ([Char], GValue) -constructWebHistoryItemAlternateTitle val = constructObjectPropertyString "alternate-title" val +constructWebHistoryItemAlternateTitle val = constructObjectPropertyString "alternate-title" (Just val) data WebHistoryItemAlternateTitlePropertyInfo instance AttrInfo WebHistoryItemAlternateTitlePropertyInfo where @@ -189,10 +195,12 @@ attrGet _ = getWebHistoryItemAlternateTitle attrSet _ = setWebHistoryItemAlternateTitle attrConstruct _ = constructWebHistoryItemAlternateTitle + attrClear _ = undefined -- VVV Prop "last-visited-time" -- Type: TBasicType TDouble -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) getWebHistoryItemLastVisitedTime :: (MonadIO m, WebHistoryItemK o) => o -> m Double getWebHistoryItemLastVisitedTime obj = liftIO $ getObjectPropertyDouble obj "last-visited-time" @@ -207,17 +215,19 @@ attrGet _ = getWebHistoryItemLastVisitedTime attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "original-uri" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) getWebHistoryItemOriginalUri :: (MonadIO m, WebHistoryItemK o) => o -> m T.Text -getWebHistoryItemOriginalUri obj = liftIO $ getObjectPropertyString obj "original-uri" +getWebHistoryItemOriginalUri obj = liftIO $ checkUnexpectedNothing "getWebHistoryItemOriginalUri" $ getObjectPropertyString obj "original-uri" data WebHistoryItemOriginalUriPropertyInfo instance AttrInfo WebHistoryItemOriginalUriPropertyInfo where - type AttrAllowedOps WebHistoryItemOriginalUriPropertyInfo = '[ 'AttrGet] + type AttrAllowedOps WebHistoryItemOriginalUriPropertyInfo = '[ 'AttrGet, 'AttrClear] type AttrSetTypeConstraint WebHistoryItemOriginalUriPropertyInfo = (~) () type AttrBaseTypeConstraint WebHistoryItemOriginalUriPropertyInfo = WebHistoryItemK type AttrGetType WebHistoryItemOriginalUriPropertyInfo = T.Text @@ -225,17 +235,19 @@ attrGet _ = getWebHistoryItemOriginalUri attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "title" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) getWebHistoryItemTitle :: (MonadIO m, WebHistoryItemK o) => o -> m T.Text -getWebHistoryItemTitle obj = liftIO $ getObjectPropertyString obj "title" +getWebHistoryItemTitle obj = liftIO $ checkUnexpectedNothing "getWebHistoryItemTitle" $ getObjectPropertyString obj "title" data WebHistoryItemTitlePropertyInfo instance AttrInfo WebHistoryItemTitlePropertyInfo where - type AttrAllowedOps WebHistoryItemTitlePropertyInfo = '[ 'AttrGet] + type AttrAllowedOps WebHistoryItemTitlePropertyInfo = '[ 'AttrGet, 'AttrClear] type AttrSetTypeConstraint WebHistoryItemTitlePropertyInfo = (~) () type AttrBaseTypeConstraint WebHistoryItemTitlePropertyInfo = WebHistoryItemK type AttrGetType WebHistoryItemTitlePropertyInfo = T.Text @@ -243,17 +255,19 @@ attrGet _ = getWebHistoryItemTitle attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "uri" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) getWebHistoryItemUri :: (MonadIO m, WebHistoryItemK o) => o -> m T.Text -getWebHistoryItemUri obj = liftIO $ getObjectPropertyString obj "uri" +getWebHistoryItemUri obj = liftIO $ checkUnexpectedNothing "getWebHistoryItemUri" $ getObjectPropertyString obj "uri" data WebHistoryItemUriPropertyInfo instance AttrInfo WebHistoryItemUriPropertyInfo where - type AttrAllowedOps WebHistoryItemUriPropertyInfo = '[ 'AttrGet] + type AttrAllowedOps WebHistoryItemUriPropertyInfo = '[ 'AttrGet, 'AttrClear] type AttrSetTypeConstraint WebHistoryItemUriPropertyInfo = (~) () type AttrBaseTypeConstraint WebHistoryItemUriPropertyInfo = WebHistoryItemK type AttrGetType WebHistoryItemUriPropertyInfo = T.Text @@ -261,10 +275,26 @@ attrGet _ = getWebHistoryItemUri attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined type instance AttributeList WebHistoryItem = WebHistoryItemAttributeList type WebHistoryItemAttributeList = ('[ '("alternateTitle", WebHistoryItemAlternateTitlePropertyInfo), '("lastVisitedTime", WebHistoryItemLastVisitedTimePropertyInfo), '("originalUri", WebHistoryItemOriginalUriPropertyInfo), '("title", WebHistoryItemTitlePropertyInfo), '("uri", WebHistoryItemUriPropertyInfo)] :: [(Symbol, *)]) +webHistoryItemAlternateTitle :: AttrLabelProxy "alternateTitle" +webHistoryItemAlternateTitle = AttrLabelProxy + +webHistoryItemLastVisitedTime :: AttrLabelProxy "lastVisitedTime" +webHistoryItemLastVisitedTime = AttrLabelProxy + +webHistoryItemOriginalUri :: AttrLabelProxy "originalUri" +webHistoryItemOriginalUri = AttrLabelProxy + +webHistoryItemTitle :: AttrLabelProxy "title" +webHistoryItemTitle = AttrLabelProxy + +webHistoryItemUri :: AttrLabelProxy "uri" +webHistoryItemUri = AttrLabelProxy + type instance SignalList WebHistoryItem = WebHistoryItemSignalList type WebHistoryItemSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) @@ -272,7 +302,7 @@ -- method type : Constructor -- Args : [] -- Lengths : [] --- returnType : TInterface "WebKit" "WebHistoryItem" +-- returnType : Just (TInterface "WebKit" "WebHistoryItem") -- throws : False -- Skip return : False @@ -293,7 +323,7 @@ -- method type : Constructor -- Args : [Arg {argCName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "title", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit" "WebHistoryItem" +-- returnType : Just (TInterface "WebKit" "WebHistoryItem") -- throws : False -- Skip return : False @@ -322,7 +352,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "WebHistoryItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit" "WebHistoryItem" +-- returnType : Just (TInterface "WebKit" "WebHistoryItem") -- throws : False -- Skip return : False @@ -351,7 +381,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "WebHistoryItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -380,7 +410,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "WebHistoryItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TDouble +-- returnType : Just (TBasicType TDouble) -- throws : False -- Skip return : False @@ -408,7 +438,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "WebHistoryItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -437,7 +467,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "WebHistoryItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -466,7 +496,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "WebHistoryItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -495,7 +525,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "WebHistoryItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "title", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False diff --git a/GI/WebKit/Objects/WebHistoryItem.hs-boot b/GI/WebKit/Objects/WebHistoryItem.hs-boot --- a/GI/WebKit/Objects/WebHistoryItem.hs-boot +++ b/GI/WebKit/Objects/WebHistoryItem.hs-boot @@ -1,8 +1,8 @@ module GI.WebKit.Objects.WebHistoryItem where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map diff --git a/GI/WebKit/Objects/WebInspector.hs b/GI/WebKit/Objects/WebInspector.hs --- a/GI/WebKit/Objects/WebInspector.hs +++ b/GI/WebKit/Objects/WebInspector.hs @@ -53,6 +53,7 @@ -- ** InspectedUri WebInspectorInspectedUriPropertyInfo , getWebInspectorInspectedUri , + webInspectorInspectedUri , -- ** JavascriptProfilingEnabled @@ -60,6 +61,7 @@ constructWebInspectorJavascriptProfilingEnabled, getWebInspectorJavascriptProfilingEnabled, setWebInspectorJavascriptProfilingEnabled, + webInspectorJavascriptProfilingEnabled , -- ** TimelineProfilingEnabled @@ -67,11 +69,13 @@ constructWebInspectorTimelineProfilingEnabled, getWebInspectorTimelineProfilingEnabled , setWebInspectorTimelineProfilingEnabled , + webInspectorTimelineProfilingEnabled , -- ** WebView WebInspectorWebViewPropertyInfo , getWebInspectorWebView , + webInspectorWebView , @@ -153,9 +157,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map @@ -469,13 +473,14 @@ -- VVV Prop "inspected-uri" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) getWebInspectorInspectedUri :: (MonadIO m, WebInspectorK o) => o -> m T.Text -getWebInspectorInspectedUri obj = liftIO $ getObjectPropertyString obj "inspected-uri" +getWebInspectorInspectedUri obj = liftIO $ checkUnexpectedNothing "getWebInspectorInspectedUri" $ getObjectPropertyString obj "inspected-uri" data WebInspectorInspectedUriPropertyInfo instance AttrInfo WebInspectorInspectedUriPropertyInfo where - type AttrAllowedOps WebInspectorInspectedUriPropertyInfo = '[ 'AttrGet] + type AttrAllowedOps WebInspectorInspectedUriPropertyInfo = '[ 'AttrGet, 'AttrClear] type AttrSetTypeConstraint WebInspectorInspectedUriPropertyInfo = (~) () type AttrBaseTypeConstraint WebInspectorInspectedUriPropertyInfo = WebInspectorK type AttrGetType WebInspectorInspectedUriPropertyInfo = T.Text @@ -483,10 +488,12 @@ attrGet _ = getWebInspectorInspectedUri attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "javascript-profiling-enabled" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) getWebInspectorJavascriptProfilingEnabled :: (MonadIO m, WebInspectorK o) => o -> m Bool getWebInspectorJavascriptProfilingEnabled obj = liftIO $ getObjectPropertyBool obj "javascript-profiling-enabled" @@ -507,10 +514,12 @@ attrGet _ = getWebInspectorJavascriptProfilingEnabled attrSet _ = setWebInspectorJavascriptProfilingEnabled attrConstruct _ = constructWebInspectorJavascriptProfilingEnabled + attrClear _ = undefined -- VVV Prop "timeline-profiling-enabled" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) getWebInspectorTimelineProfilingEnabled :: (MonadIO m, WebInspectorK o) => o -> m Bool getWebInspectorTimelineProfilingEnabled obj = liftIO $ getObjectPropertyBool obj "timeline-profiling-enabled" @@ -531,17 +540,19 @@ attrGet _ = getWebInspectorTimelineProfilingEnabled attrSet _ = setWebInspectorTimelineProfilingEnabled attrConstruct _ = constructWebInspectorTimelineProfilingEnabled + attrClear _ = undefined -- VVV Prop "web-view" -- Type: TInterface "WebKit" "WebView" -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) getWebInspectorWebView :: (MonadIO m, WebInspectorK o) => o -> m WebView -getWebInspectorWebView obj = liftIO $ getObjectPropertyObject obj "web-view" WebView +getWebInspectorWebView obj = liftIO $ checkUnexpectedNothing "getWebInspectorWebView" $ getObjectPropertyObject obj "web-view" WebView data WebInspectorWebViewPropertyInfo instance AttrInfo WebInspectorWebViewPropertyInfo where - type AttrAllowedOps WebInspectorWebViewPropertyInfo = '[ 'AttrGet] + type AttrAllowedOps WebInspectorWebViewPropertyInfo = '[ 'AttrGet, 'AttrClear] type AttrSetTypeConstraint WebInspectorWebViewPropertyInfo = (~) () type AttrBaseTypeConstraint WebInspectorWebViewPropertyInfo = WebInspectorK type AttrGetType WebInspectorWebViewPropertyInfo = WebView @@ -549,10 +560,23 @@ attrGet _ = getWebInspectorWebView attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined type instance AttributeList WebInspector = WebInspectorAttributeList type WebInspectorAttributeList = ('[ '("inspectedUri", WebInspectorInspectedUriPropertyInfo), '("javascriptProfilingEnabled", WebInspectorJavascriptProfilingEnabledPropertyInfo), '("timelineProfilingEnabled", WebInspectorTimelineProfilingEnabledPropertyInfo), '("webView", WebInspectorWebViewPropertyInfo)] :: [(Symbol, *)]) +webInspectorInspectedUri :: AttrLabelProxy "inspectedUri" +webInspectorInspectedUri = AttrLabelProxy + +webInspectorJavascriptProfilingEnabled :: AttrLabelProxy "javascriptProfilingEnabled" +webInspectorJavascriptProfilingEnabled = AttrLabelProxy + +webInspectorTimelineProfilingEnabled :: AttrLabelProxy "timelineProfilingEnabled" +webInspectorTimelineProfilingEnabled = AttrLabelProxy + +webInspectorWebView :: AttrLabelProxy "webView" +webInspectorWebView = AttrLabelProxy + data WebInspectorAttachWindowSignalInfo instance SignalInfo WebInspectorAttachWindowSignalInfo where type HaskellCallbackType WebInspectorAttachWindowSignalInfo = WebInspectorAttachWindowCallback @@ -590,7 +614,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "WebInspector", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -617,7 +641,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "WebInspector", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -646,7 +670,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "WebInspector", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit" "WebView" +-- returnType : Just (TInterface "WebKit" "WebView") -- throws : False -- Skip return : False @@ -675,7 +699,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "WebInspector", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -708,7 +732,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "WebInspector", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "node", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -739,7 +763,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "WebInspector", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False diff --git a/GI/WebKit/Objects/WebInspector.hs-boot b/GI/WebKit/Objects/WebInspector.hs-boot --- a/GI/WebKit/Objects/WebInspector.hs-boot +++ b/GI/WebKit/Objects/WebInspector.hs-boot @@ -1,8 +1,8 @@ module GI.WebKit.Objects.WebInspector where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map diff --git a/GI/WebKit/Objects/WebNavigationAction.hs b/GI/WebKit/Objects/WebNavigationAction.hs --- a/GI/WebKit/Objects/WebNavigationAction.hs +++ b/GI/WebKit/Objects/WebNavigationAction.hs @@ -59,12 +59,14 @@ WebNavigationActionButtonPropertyInfo , constructWebNavigationActionButton , getWebNavigationActionButton , + webNavigationActionButton , -- ** ModifierState WebNavigationActionModifierStatePropertyInfo, constructWebNavigationActionModifierState, getWebNavigationActionModifierState , + webNavigationActionModifierState , -- ** OriginalUri @@ -72,6 +74,7 @@ constructWebNavigationActionOriginalUri , getWebNavigationActionOriginalUri , setWebNavigationActionOriginalUri , + webNavigationActionOriginalUri , -- ** Reason @@ -79,21 +82,23 @@ constructWebNavigationActionReason , getWebNavigationActionReason , setWebNavigationActionReason , + webNavigationActionReason , -- ** TargetFrame WebNavigationActionTargetFramePropertyInfo, constructWebNavigationActionTargetFrame , getWebNavigationActionTargetFrame , + webNavigationActionTargetFrame , ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map @@ -164,14 +169,15 @@ #endif -- VVV Prop "button" - -- Type: TBasicType TInt32 + -- Type: TBasicType TInt -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] + -- Nullable: (Just False,Nothing) getWebNavigationActionButton :: (MonadIO m, WebNavigationActionK o) => o -> m Int32 -getWebNavigationActionButton obj = liftIO $ getObjectPropertyCInt obj "button" +getWebNavigationActionButton obj = liftIO $ getObjectPropertyInt32 obj "button" constructWebNavigationActionButton :: Int32 -> IO ([Char], GValue) -constructWebNavigationActionButton val = constructObjectPropertyCInt "button" val +constructWebNavigationActionButton val = constructObjectPropertyInt32 "button" val data WebNavigationActionButtonPropertyInfo instance AttrInfo WebNavigationActionButtonPropertyInfo where @@ -183,16 +189,18 @@ attrGet _ = getWebNavigationActionButton attrSet _ = undefined attrConstruct _ = constructWebNavigationActionButton + attrClear _ = undefined -- VVV Prop "modifier-state" - -- Type: TBasicType TInt32 + -- Type: TBasicType TInt -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] + -- Nullable: (Just False,Nothing) getWebNavigationActionModifierState :: (MonadIO m, WebNavigationActionK o) => o -> m Int32 -getWebNavigationActionModifierState obj = liftIO $ getObjectPropertyCInt obj "modifier-state" +getWebNavigationActionModifierState obj = liftIO $ getObjectPropertyInt32 obj "modifier-state" constructWebNavigationActionModifierState :: Int32 -> IO ([Char], GValue) -constructWebNavigationActionModifierState val = constructObjectPropertyCInt "modifier-state" val +constructWebNavigationActionModifierState val = constructObjectPropertyInt32 "modifier-state" val data WebNavigationActionModifierStatePropertyInfo instance AttrInfo WebNavigationActionModifierStatePropertyInfo where @@ -204,19 +212,21 @@ attrGet _ = getWebNavigationActionModifierState attrSet _ = undefined attrConstruct _ = constructWebNavigationActionModifierState + attrClear _ = undefined -- VVV Prop "original-uri" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + -- Nullable: (Just False,Just False) getWebNavigationActionOriginalUri :: (MonadIO m, WebNavigationActionK o) => o -> m T.Text -getWebNavigationActionOriginalUri obj = liftIO $ getObjectPropertyString obj "original-uri" +getWebNavigationActionOriginalUri obj = liftIO $ checkUnexpectedNothing "getWebNavigationActionOriginalUri" $ getObjectPropertyString obj "original-uri" setWebNavigationActionOriginalUri :: (MonadIO m, WebNavigationActionK o) => o -> T.Text -> m () -setWebNavigationActionOriginalUri obj val = liftIO $ setObjectPropertyString obj "original-uri" val +setWebNavigationActionOriginalUri obj val = liftIO $ setObjectPropertyString obj "original-uri" (Just val) constructWebNavigationActionOriginalUri :: T.Text -> IO ([Char], GValue) -constructWebNavigationActionOriginalUri val = constructObjectPropertyString "original-uri" val +constructWebNavigationActionOriginalUri val = constructObjectPropertyString "original-uri" (Just val) data WebNavigationActionOriginalUriPropertyInfo instance AttrInfo WebNavigationActionOriginalUriPropertyInfo where @@ -228,10 +238,12 @@ attrGet _ = getWebNavigationActionOriginalUri attrSet _ = setWebNavigationActionOriginalUri attrConstruct _ = constructWebNavigationActionOriginalUri + attrClear _ = undefined -- VVV Prop "reason" -- Type: TInterface "WebKit" "WebNavigationReason" -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + -- Nullable: (Just False,Just False) getWebNavigationActionReason :: (MonadIO m, WebNavigationActionK o) => o -> m WebNavigationReason getWebNavigationActionReason obj = liftIO $ getObjectPropertyEnum obj "reason" @@ -252,20 +264,22 @@ attrGet _ = getWebNavigationActionReason attrSet _ = setWebNavigationActionReason attrConstruct _ = constructWebNavigationActionReason + attrClear _ = undefined -- VVV Prop "target-frame" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] + -- Nullable: (Just False,Nothing) getWebNavigationActionTargetFrame :: (MonadIO m, WebNavigationActionK o) => o -> m T.Text -getWebNavigationActionTargetFrame obj = liftIO $ getObjectPropertyString obj "target-frame" +getWebNavigationActionTargetFrame obj = liftIO $ checkUnexpectedNothing "getWebNavigationActionTargetFrame" $ getObjectPropertyString obj "target-frame" constructWebNavigationActionTargetFrame :: T.Text -> IO ([Char], GValue) -constructWebNavigationActionTargetFrame val = constructObjectPropertyString "target-frame" val +constructWebNavigationActionTargetFrame val = constructObjectPropertyString "target-frame" (Just val) data WebNavigationActionTargetFramePropertyInfo instance AttrInfo WebNavigationActionTargetFramePropertyInfo where - type AttrAllowedOps WebNavigationActionTargetFramePropertyInfo = '[ 'AttrConstruct, 'AttrGet] + type AttrAllowedOps WebNavigationActionTargetFramePropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint WebNavigationActionTargetFramePropertyInfo = (~) T.Text type AttrBaseTypeConstraint WebNavigationActionTargetFramePropertyInfo = WebNavigationActionK type AttrGetType WebNavigationActionTargetFramePropertyInfo = T.Text @@ -273,10 +287,26 @@ attrGet _ = getWebNavigationActionTargetFrame attrSet _ = undefined attrConstruct _ = constructWebNavigationActionTargetFrame + attrClear _ = undefined type instance AttributeList WebNavigationAction = WebNavigationActionAttributeList type WebNavigationActionAttributeList = ('[ '("button", WebNavigationActionButtonPropertyInfo), '("modifierState", WebNavigationActionModifierStatePropertyInfo), '("originalUri", WebNavigationActionOriginalUriPropertyInfo), '("reason", WebNavigationActionReasonPropertyInfo), '("targetFrame", WebNavigationActionTargetFramePropertyInfo)] :: [(Symbol, *)]) +webNavigationActionButton :: AttrLabelProxy "button" +webNavigationActionButton = AttrLabelProxy + +webNavigationActionModifierState :: AttrLabelProxy "modifierState" +webNavigationActionModifierState = AttrLabelProxy + +webNavigationActionOriginalUri :: AttrLabelProxy "originalUri" +webNavigationActionOriginalUri = AttrLabelProxy + +webNavigationActionReason :: AttrLabelProxy "reason" +webNavigationActionReason = AttrLabelProxy + +webNavigationActionTargetFrame :: AttrLabelProxy "targetFrame" +webNavigationActionTargetFrame = AttrLabelProxy + type instance SignalList WebNavigationAction = WebNavigationActionSignalList type WebNavigationActionSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) @@ -284,7 +314,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "WebNavigationAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TInt32 +-- returnType : Just (TBasicType TInt) -- throws : False -- Skip return : False @@ -311,7 +341,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "WebNavigationAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TInt32 +-- returnType : Just (TBasicType TInt) -- throws : False -- Skip return : False @@ -338,7 +368,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "WebNavigationAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -367,7 +397,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "WebNavigationAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit" "WebNavigationReason" +-- returnType : Just (TInterface "WebKit" "WebNavigationReason") -- throws : False -- Skip return : False @@ -395,7 +425,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "WebNavigationAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -424,7 +454,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "WebNavigationAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "originalUri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -455,7 +485,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "WebNavigationAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "reason", argType = TInterface "WebKit" "WebNavigationReason", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False diff --git a/GI/WebKit/Objects/WebNavigationAction.hs-boot b/GI/WebKit/Objects/WebNavigationAction.hs-boot --- a/GI/WebKit/Objects/WebNavigationAction.hs-boot +++ b/GI/WebKit/Objects/WebNavigationAction.hs-boot @@ -1,8 +1,8 @@ module GI.WebKit.Objects.WebNavigationAction where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map diff --git a/GI/WebKit/Objects/WebPlugin.hs b/GI/WebKit/Objects/WebPlugin.hs --- a/GI/WebKit/Objects/WebPlugin.hs +++ b/GI/WebKit/Objects/WebPlugin.hs @@ -50,15 +50,16 @@ constructWebPluginEnabled , getWebPluginEnabled , setWebPluginEnabled , + webPluginEnabled , ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map @@ -129,6 +130,7 @@ -- VVV Prop "enabled" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getWebPluginEnabled :: (MonadIO m, WebPluginK o) => o -> m Bool getWebPluginEnabled obj = liftIO $ getObjectPropertyBool obj "enabled" @@ -149,10 +151,14 @@ attrGet _ = getWebPluginEnabled attrSet _ = setWebPluginEnabled attrConstruct _ = constructWebPluginEnabled + attrClear _ = undefined type instance AttributeList WebPlugin = WebPluginAttributeList type WebPluginAttributeList = ('[ '("enabled", WebPluginEnabledPropertyInfo)] :: [(Symbol, *)]) +webPluginEnabled :: AttrLabelProxy "enabled" +webPluginEnabled = AttrLabelProxy + type instance SignalList WebPlugin = WebPluginSignalList type WebPluginSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) @@ -160,7 +166,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "WebPlugin", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -189,7 +195,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "WebPlugin", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -217,7 +223,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "WebPlugin", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -246,7 +252,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "WebPlugin", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -275,7 +281,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "WebPlugin", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "enabled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False diff --git a/GI/WebKit/Objects/WebPlugin.hs-boot b/GI/WebKit/Objects/WebPlugin.hs-boot --- a/GI/WebKit/Objects/WebPlugin.hs-boot +++ b/GI/WebKit/Objects/WebPlugin.hs-boot @@ -1,8 +1,8 @@ module GI.WebKit.Objects.WebPlugin where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map diff --git a/GI/WebKit/Objects/WebPluginDatabase.hs b/GI/WebKit/Objects/WebPluginDatabase.hs --- a/GI/WebKit/Objects/WebPluginDatabase.hs +++ b/GI/WebKit/Objects/WebPluginDatabase.hs @@ -40,9 +40,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map @@ -118,7 +118,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "WebPluginDatabase", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "mime_type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit" "WebPlugin" +-- returnType : Just (TInterface "WebKit" "WebPlugin") -- throws : False -- Skip return : False @@ -151,7 +151,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "WebPluginDatabase", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TGSList (TInterface "WebKit" "WebPlugin") +-- returnType : Just (TGSList (TInterface "WebKit" "WebPlugin")) -- throws : False -- Skip return : False @@ -167,7 +167,6 @@ webPluginDatabaseGetPlugins _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- webkit_web_plugin_database_get_plugins _obj' - checkUnexpectedReturnNULL "webkit_web_plugin_database_get_plugins" result result' <- unpackGSList result result'' <- mapM (wrapObject WebPlugin) result' g_slist_free result @@ -182,7 +181,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "WebPluginDatabase", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -209,7 +208,7 @@ -- method type : MemberFunction -- Args : [Arg {argCName = "list", argType = TGSList (TInterface "WebKit" "WebPlugin"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False diff --git a/GI/WebKit/Objects/WebPluginDatabase.hs-boot b/GI/WebKit/Objects/WebPluginDatabase.hs-boot --- a/GI/WebKit/Objects/WebPluginDatabase.hs-boot +++ b/GI/WebKit/Objects/WebPluginDatabase.hs-boot @@ -1,8 +1,8 @@ module GI.WebKit.Objects.WebPluginDatabase where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map diff --git a/GI/WebKit/Objects/WebPolicyDecision.hs b/GI/WebKit/Objects/WebPolicyDecision.hs --- a/GI/WebKit/Objects/WebPolicyDecision.hs +++ b/GI/WebKit/Objects/WebPolicyDecision.hs @@ -36,9 +36,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map @@ -114,7 +114,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "WebPolicyDecision", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -141,7 +141,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "WebPolicyDecision", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -168,7 +168,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "WebPolicyDecision", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False diff --git a/GI/WebKit/Objects/WebPolicyDecision.hs-boot b/GI/WebKit/Objects/WebPolicyDecision.hs-boot --- a/GI/WebKit/Objects/WebPolicyDecision.hs-boot +++ b/GI/WebKit/Objects/WebPolicyDecision.hs-boot @@ -1,8 +1,8 @@ module GI.WebKit.Objects.WebPolicyDecision where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map diff --git a/GI/WebKit/Objects/WebResource.hs b/GI/WebKit/Objects/WebResource.hs --- a/GI/WebKit/Objects/WebResource.hs +++ b/GI/WebKit/Objects/WebResource.hs @@ -52,22 +52,26 @@ -- ** Encoding WebResourceEncodingPropertyInfo , getWebResourceEncoding , + webResourceEncoding , -- ** FrameName WebResourceFrameNamePropertyInfo , getWebResourceFrameName , + webResourceFrameName , -- ** MimeType WebResourceMimeTypePropertyInfo , getWebResourceMimeType , + webResourceMimeType , -- ** Uri WebResourceUriPropertyInfo , constructWebResourceUri , getWebResourceUri , + webResourceUri , @@ -125,9 +129,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map @@ -359,13 +363,14 @@ -- VVV Prop "encoding" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) getWebResourceEncoding :: (MonadIO m, WebResourceK o) => o -> m T.Text -getWebResourceEncoding obj = liftIO $ getObjectPropertyString obj "encoding" +getWebResourceEncoding obj = liftIO $ checkUnexpectedNothing "getWebResourceEncoding" $ getObjectPropertyString obj "encoding" data WebResourceEncodingPropertyInfo instance AttrInfo WebResourceEncodingPropertyInfo where - type AttrAllowedOps WebResourceEncodingPropertyInfo = '[ 'AttrGet] + type AttrAllowedOps WebResourceEncodingPropertyInfo = '[ 'AttrGet, 'AttrClear] type AttrSetTypeConstraint WebResourceEncodingPropertyInfo = (~) () type AttrBaseTypeConstraint WebResourceEncodingPropertyInfo = WebResourceK type AttrGetType WebResourceEncodingPropertyInfo = T.Text @@ -373,17 +378,19 @@ attrGet _ = getWebResourceEncoding attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "frame-name" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) getWebResourceFrameName :: (MonadIO m, WebResourceK o) => o -> m T.Text -getWebResourceFrameName obj = liftIO $ getObjectPropertyString obj "frame-name" +getWebResourceFrameName obj = liftIO $ checkUnexpectedNothing "getWebResourceFrameName" $ getObjectPropertyString obj "frame-name" data WebResourceFrameNamePropertyInfo instance AttrInfo WebResourceFrameNamePropertyInfo where - type AttrAllowedOps WebResourceFrameNamePropertyInfo = '[ 'AttrGet] + type AttrAllowedOps WebResourceFrameNamePropertyInfo = '[ 'AttrGet, 'AttrClear] type AttrSetTypeConstraint WebResourceFrameNamePropertyInfo = (~) () type AttrBaseTypeConstraint WebResourceFrameNamePropertyInfo = WebResourceK type AttrGetType WebResourceFrameNamePropertyInfo = T.Text @@ -391,17 +398,19 @@ attrGet _ = getWebResourceFrameName attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "mime-type" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) getWebResourceMimeType :: (MonadIO m, WebResourceK o) => o -> m T.Text -getWebResourceMimeType obj = liftIO $ getObjectPropertyString obj "mime-type" +getWebResourceMimeType obj = liftIO $ checkUnexpectedNothing "getWebResourceMimeType" $ getObjectPropertyString obj "mime-type" data WebResourceMimeTypePropertyInfo instance AttrInfo WebResourceMimeTypePropertyInfo where - type AttrAllowedOps WebResourceMimeTypePropertyInfo = '[ 'AttrGet] + type AttrAllowedOps WebResourceMimeTypePropertyInfo = '[ 'AttrGet, 'AttrClear] type AttrSetTypeConstraint WebResourceMimeTypePropertyInfo = (~) () type AttrBaseTypeConstraint WebResourceMimeTypePropertyInfo = WebResourceK type AttrGetType WebResourceMimeTypePropertyInfo = T.Text @@ -409,20 +418,22 @@ attrGet _ = getWebResourceMimeType attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "uri" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] + -- Nullable: (Just False,Nothing) getWebResourceUri :: (MonadIO m, WebResourceK o) => o -> m T.Text -getWebResourceUri obj = liftIO $ getObjectPropertyString obj "uri" +getWebResourceUri obj = liftIO $ checkUnexpectedNothing "getWebResourceUri" $ getObjectPropertyString obj "uri" constructWebResourceUri :: T.Text -> IO ([Char], GValue) -constructWebResourceUri val = constructObjectPropertyString "uri" val +constructWebResourceUri val = constructObjectPropertyString "uri" (Just val) data WebResourceUriPropertyInfo instance AttrInfo WebResourceUriPropertyInfo where - type AttrAllowedOps WebResourceUriPropertyInfo = '[ 'AttrConstruct, 'AttrGet] + type AttrAllowedOps WebResourceUriPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint WebResourceUriPropertyInfo = (~) T.Text type AttrBaseTypeConstraint WebResourceUriPropertyInfo = WebResourceK type AttrGetType WebResourceUriPropertyInfo = T.Text @@ -430,10 +441,23 @@ attrGet _ = getWebResourceUri attrSet _ = undefined attrConstruct _ = constructWebResourceUri + attrClear _ = undefined type instance AttributeList WebResource = WebResourceAttributeList type WebResourceAttributeList = ('[ '("encoding", WebResourceEncodingPropertyInfo), '("frameName", WebResourceFrameNamePropertyInfo), '("mimeType", WebResourceMimeTypePropertyInfo), '("uri", WebResourceUriPropertyInfo)] :: [(Symbol, *)]) +webResourceEncoding :: AttrLabelProxy "encoding" +webResourceEncoding = AttrLabelProxy + +webResourceFrameName :: AttrLabelProxy "frameName" +webResourceFrameName = AttrLabelProxy + +webResourceMimeType :: AttrLabelProxy "mimeType" +webResourceMimeType = AttrLabelProxy + +webResourceUri :: AttrLabelProxy "uri" +webResourceUri = AttrLabelProxy + data WebResourceContentLengthReceivedSignalInfo instance SignalInfo WebResourceContentLengthReceivedSignalInfo where type HaskellCallbackType WebResourceContentLengthReceivedSignalInfo = WebResourceContentLengthReceivedCallback @@ -461,7 +485,7 @@ -- method type : Constructor -- Args : [Arg {argCName = "data", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "size", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "mime_type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "encoding", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "frame_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit" "WebResource" +-- returnType : Just (TInterface "WebKit" "WebResource") -- throws : False -- Skip return : False @@ -504,7 +528,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "WebResource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "GLib" "String" +-- returnType : Just (TInterface "GLib" "String") -- throws : False -- Skip return : False @@ -533,7 +557,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "WebResource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -562,7 +586,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "WebResource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -591,7 +615,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "WebResource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -620,7 +644,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "WebResource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False diff --git a/GI/WebKit/Objects/WebResource.hs-boot b/GI/WebKit/Objects/WebResource.hs-boot --- a/GI/WebKit/Objects/WebResource.hs-boot +++ b/GI/WebKit/Objects/WebResource.hs-boot @@ -1,8 +1,8 @@ module GI.WebKit.Objects.WebResource where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map diff --git a/GI/WebKit/Objects/WebSettings.hs b/GI/WebKit/Objects/WebSettings.hs --- a/GI/WebKit/Objects/WebSettings.hs +++ b/GI/WebKit/Objects/WebSettings.hs @@ -39,6 +39,7 @@ constructWebSettingsAutoLoadImages , getWebSettingsAutoLoadImages , setWebSettingsAutoLoadImages , + webSettingsAutoLoadImages , -- ** AutoResizeWindow @@ -46,6 +47,7 @@ constructWebSettingsAutoResizeWindow , getWebSettingsAutoResizeWindow , setWebSettingsAutoResizeWindow , + webSettingsAutoResizeWindow , -- ** AutoShrinkImages @@ -53,27 +55,34 @@ constructWebSettingsAutoShrinkImages , getWebSettingsAutoShrinkImages , setWebSettingsAutoShrinkImages , + webSettingsAutoShrinkImages , -- ** CursiveFontFamily WebSettingsCursiveFontFamilyPropertyInfo, + clearWebSettingsCursiveFontFamily , constructWebSettingsCursiveFontFamily , getWebSettingsCursiveFontFamily , setWebSettingsCursiveFontFamily , + webSettingsCursiveFontFamily , -- ** DefaultEncoding WebSettingsDefaultEncodingPropertyInfo , + clearWebSettingsDefaultEncoding , constructWebSettingsDefaultEncoding , getWebSettingsDefaultEncoding , setWebSettingsDefaultEncoding , + webSettingsDefaultEncoding , -- ** DefaultFontFamily WebSettingsDefaultFontFamilyPropertyInfo, + clearWebSettingsDefaultFontFamily , constructWebSettingsDefaultFontFamily , getWebSettingsDefaultFontFamily , setWebSettingsDefaultFontFamily , + webSettingsDefaultFontFamily , -- ** DefaultFontSize @@ -81,6 +90,7 @@ constructWebSettingsDefaultFontSize , getWebSettingsDefaultFontSize , setWebSettingsDefaultFontSize , + webSettingsDefaultFontSize , -- ** DefaultMonospaceFontSize @@ -88,6 +98,7 @@ constructWebSettingsDefaultMonospaceFontSize, getWebSettingsDefaultMonospaceFontSize , setWebSettingsDefaultMonospaceFontSize , + webSettingsDefaultMonospaceFontSize , -- ** EditingBehavior @@ -95,6 +106,7 @@ constructWebSettingsEditingBehavior , getWebSettingsEditingBehavior , setWebSettingsEditingBehavior , + webSettingsEditingBehavior , -- ** EnableAcceleratedCompositing @@ -102,6 +114,7 @@ constructWebSettingsEnableAcceleratedCompositing, getWebSettingsEnableAcceleratedCompositing, setWebSettingsEnableAcceleratedCompositing, + webSettingsEnableAcceleratedCompositing , -- ** EnableCaretBrowsing @@ -109,6 +122,7 @@ constructWebSettingsEnableCaretBrowsing , getWebSettingsEnableCaretBrowsing , setWebSettingsEnableCaretBrowsing , + webSettingsEnableCaretBrowsing , -- ** EnableDefaultContextMenu @@ -116,6 +130,7 @@ constructWebSettingsEnableDefaultContextMenu, getWebSettingsEnableDefaultContextMenu , setWebSettingsEnableDefaultContextMenu , + webSettingsEnableDefaultContextMenu , -- ** EnableDeveloperExtras @@ -123,6 +138,7 @@ constructWebSettingsEnableDeveloperExtras, getWebSettingsEnableDeveloperExtras , setWebSettingsEnableDeveloperExtras , + webSettingsEnableDeveloperExtras , -- ** EnableDisplayOfInsecureContent @@ -130,6 +146,7 @@ constructWebSettingsEnableDisplayOfInsecureContent, getWebSettingsEnableDisplayOfInsecureContent, setWebSettingsEnableDisplayOfInsecureContent, + webSettingsEnableDisplayOfInsecureContent, -- ** EnableDnsPrefetching @@ -137,6 +154,7 @@ constructWebSettingsEnableDnsPrefetching, getWebSettingsEnableDnsPrefetching , setWebSettingsEnableDnsPrefetching , + webSettingsEnableDnsPrefetching , -- ** EnableDomPaste @@ -144,6 +162,7 @@ constructWebSettingsEnableDomPaste , getWebSettingsEnableDomPaste , setWebSettingsEnableDomPaste , + webSettingsEnableDomPaste , -- ** EnableFileAccessFromFileUris @@ -151,6 +170,7 @@ constructWebSettingsEnableFileAccessFromFileUris, getWebSettingsEnableFileAccessFromFileUris, setWebSettingsEnableFileAccessFromFileUris, + webSettingsEnableFileAccessFromFileUris , -- ** EnableFrameFlattening @@ -158,6 +178,7 @@ constructWebSettingsEnableFrameFlattening, getWebSettingsEnableFrameFlattening , setWebSettingsEnableFrameFlattening , + webSettingsEnableFrameFlattening , -- ** EnableFullscreen @@ -165,6 +186,7 @@ constructWebSettingsEnableFullscreen , getWebSettingsEnableFullscreen , setWebSettingsEnableFullscreen , + webSettingsEnableFullscreen , -- ** EnableHtml5Database @@ -172,6 +194,7 @@ constructWebSettingsEnableHtml5Database , getWebSettingsEnableHtml5Database , setWebSettingsEnableHtml5Database , + webSettingsEnableHtml5Database , -- ** EnableHtml5LocalStorage @@ -179,6 +202,7 @@ constructWebSettingsEnableHtml5LocalStorage, getWebSettingsEnableHtml5LocalStorage , setWebSettingsEnableHtml5LocalStorage , + webSettingsEnableHtml5LocalStorage , -- ** EnableHyperlinkAuditing @@ -186,6 +210,7 @@ constructWebSettingsEnableHyperlinkAuditing, getWebSettingsEnableHyperlinkAuditing , setWebSettingsEnableHyperlinkAuditing , + webSettingsEnableHyperlinkAuditing , -- ** EnableJavaApplet @@ -193,6 +218,7 @@ constructWebSettingsEnableJavaApplet , getWebSettingsEnableJavaApplet , setWebSettingsEnableJavaApplet , + webSettingsEnableJavaApplet , -- ** EnableMediaStream @@ -200,6 +226,7 @@ constructWebSettingsEnableMediaStream , getWebSettingsEnableMediaStream , setWebSettingsEnableMediaStream , + webSettingsEnableMediaStream , -- ** EnableMediasource @@ -207,6 +234,7 @@ constructWebSettingsEnableMediasource , getWebSettingsEnableMediasource , setWebSettingsEnableMediasource , + webSettingsEnableMediasource , -- ** EnableOfflineWebApplicationCache @@ -214,6 +242,7 @@ constructWebSettingsEnableOfflineWebApplicationCache, getWebSettingsEnableOfflineWebApplicationCache, setWebSettingsEnableOfflineWebApplicationCache, + webSettingsEnableOfflineWebApplicationCache, -- ** EnablePageCache @@ -221,6 +250,7 @@ constructWebSettingsEnablePageCache , getWebSettingsEnablePageCache , setWebSettingsEnablePageCache , + webSettingsEnablePageCache , -- ** EnablePlugins @@ -228,6 +258,7 @@ constructWebSettingsEnablePlugins , getWebSettingsEnablePlugins , setWebSettingsEnablePlugins , + webSettingsEnablePlugins , -- ** EnablePrivateBrowsing @@ -235,6 +266,7 @@ constructWebSettingsEnablePrivateBrowsing, getWebSettingsEnablePrivateBrowsing , setWebSettingsEnablePrivateBrowsing , + webSettingsEnablePrivateBrowsing , -- ** EnableRunningOfInsecureContent @@ -242,6 +274,7 @@ constructWebSettingsEnableRunningOfInsecureContent, getWebSettingsEnableRunningOfInsecureContent, setWebSettingsEnableRunningOfInsecureContent, + webSettingsEnableRunningOfInsecureContent, -- ** EnableScripts @@ -249,6 +282,7 @@ constructWebSettingsEnableScripts , getWebSettingsEnableScripts , setWebSettingsEnableScripts , + webSettingsEnableScripts , -- ** EnableSiteSpecificQuirks @@ -256,6 +290,7 @@ constructWebSettingsEnableSiteSpecificQuirks, getWebSettingsEnableSiteSpecificQuirks , setWebSettingsEnableSiteSpecificQuirks , + webSettingsEnableSiteSpecificQuirks , -- ** EnableSmoothScrolling @@ -263,6 +298,7 @@ constructWebSettingsEnableSmoothScrolling, getWebSettingsEnableSmoothScrolling , setWebSettingsEnableSmoothScrolling , + webSettingsEnableSmoothScrolling , -- ** EnableSpatialNavigation @@ -270,6 +306,7 @@ constructWebSettingsEnableSpatialNavigation, getWebSettingsEnableSpatialNavigation , setWebSettingsEnableSpatialNavigation , + webSettingsEnableSpatialNavigation , -- ** EnableSpellChecking @@ -277,6 +314,7 @@ constructWebSettingsEnableSpellChecking , getWebSettingsEnableSpellChecking , setWebSettingsEnableSpellChecking , + webSettingsEnableSpellChecking , -- ** EnableUniversalAccessFromFileUris @@ -284,6 +322,7 @@ constructWebSettingsEnableUniversalAccessFromFileUris, getWebSettingsEnableUniversalAccessFromFileUris, setWebSettingsEnableUniversalAccessFromFileUris, + webSettingsEnableUniversalAccessFromFileUris, -- ** EnableWebaudio @@ -291,6 +330,7 @@ constructWebSettingsEnableWebaudio , getWebSettingsEnableWebaudio , setWebSettingsEnableWebaudio , + webSettingsEnableWebaudio , -- ** EnableWebgl @@ -298,6 +338,7 @@ constructWebSettingsEnableWebgl , getWebSettingsEnableWebgl , setWebSettingsEnableWebgl , + webSettingsEnableWebgl , -- ** EnableXssAuditor @@ -305,6 +346,7 @@ constructWebSettingsEnableXssAuditor , getWebSettingsEnableXssAuditor , setWebSettingsEnableXssAuditor , + webSettingsEnableXssAuditor , -- ** Enforce96Dpi @@ -312,20 +354,25 @@ constructWebSettingsEnforce96Dpi , getWebSettingsEnforce96Dpi , setWebSettingsEnforce96Dpi , + webSettingsEnforce96Dpi , -- ** FantasyFontFamily WebSettingsFantasyFontFamilyPropertyInfo, + clearWebSettingsFantasyFontFamily , constructWebSettingsFantasyFontFamily , getWebSettingsFantasyFontFamily , setWebSettingsFantasyFontFamily , + webSettingsFantasyFontFamily , -- ** Html5LocalStorageDatabasePath WebSettingsHtml5LocalStorageDatabasePathPropertyInfo, + clearWebSettingsHtml5LocalStorageDatabasePath, constructWebSettingsHtml5LocalStorageDatabasePath, getWebSettingsHtml5LocalStorageDatabasePath, setWebSettingsHtml5LocalStorageDatabasePath, + webSettingsHtml5LocalStorageDatabasePath, -- ** JavascriptCanAccessClipboard @@ -333,6 +380,7 @@ constructWebSettingsJavascriptCanAccessClipboard, getWebSettingsJavascriptCanAccessClipboard, setWebSettingsJavascriptCanAccessClipboard, + webSettingsJavascriptCanAccessClipboard , -- ** JavascriptCanOpenWindowsAutomatically @@ -340,6 +388,7 @@ constructWebSettingsJavascriptCanOpenWindowsAutomatically, getWebSettingsJavascriptCanOpenWindowsAutomatically, setWebSettingsJavascriptCanOpenWindowsAutomatically, + webSettingsJavascriptCanOpenWindowsAutomatically, -- ** MediaPlaybackAllowsInline @@ -347,6 +396,7 @@ constructWebSettingsMediaPlaybackAllowsInline, getWebSettingsMediaPlaybackAllowsInline , setWebSettingsMediaPlaybackAllowsInline , + webSettingsMediaPlaybackAllowsInline , -- ** MediaPlaybackRequiresUserGesture @@ -354,6 +404,7 @@ constructWebSettingsMediaPlaybackRequiresUserGesture, getWebSettingsMediaPlaybackRequiresUserGesture, setWebSettingsMediaPlaybackRequiresUserGesture, + webSettingsMediaPlaybackRequiresUserGesture, -- ** MinimumFontSize @@ -361,6 +412,7 @@ constructWebSettingsMinimumFontSize , getWebSettingsMinimumFontSize , setWebSettingsMinimumFontSize , + webSettingsMinimumFontSize , -- ** MinimumLogicalFontSize @@ -368,13 +420,16 @@ constructWebSettingsMinimumLogicalFontSize, getWebSettingsMinimumLogicalFontSize , setWebSettingsMinimumLogicalFontSize , + webSettingsMinimumLogicalFontSize , -- ** MonospaceFontFamily WebSettingsMonospaceFontFamilyPropertyInfo, + clearWebSettingsMonospaceFontFamily , constructWebSettingsMonospaceFontFamily , getWebSettingsMonospaceFontFamily , setWebSettingsMonospaceFontFamily , + webSettingsMonospaceFontFamily , -- ** PrintBackgrounds @@ -382,6 +437,7 @@ constructWebSettingsPrintBackgrounds , getWebSettingsPrintBackgrounds , setWebSettingsPrintBackgrounds , + webSettingsPrintBackgrounds , -- ** ResizableTextAreas @@ -389,6 +445,7 @@ constructWebSettingsResizableTextAreas , getWebSettingsResizableTextAreas , setWebSettingsResizableTextAreas , + webSettingsResizableTextAreas , -- ** RespectImageOrientation @@ -396,27 +453,34 @@ constructWebSettingsRespectImageOrientation, getWebSettingsRespectImageOrientation , setWebSettingsRespectImageOrientation , + webSettingsRespectImageOrientation , -- ** SansSerifFontFamily WebSettingsSansSerifFontFamilyPropertyInfo, + clearWebSettingsSansSerifFontFamily , constructWebSettingsSansSerifFontFamily , getWebSettingsSansSerifFontFamily , setWebSettingsSansSerifFontFamily , + webSettingsSansSerifFontFamily , -- ** SerifFontFamily WebSettingsSerifFontFamilyPropertyInfo , + clearWebSettingsSerifFontFamily , constructWebSettingsSerifFontFamily , getWebSettingsSerifFontFamily , setWebSettingsSerifFontFamily , + webSettingsSerifFontFamily , -- ** SpellCheckingLanguages WebSettingsSpellCheckingLanguagesPropertyInfo, + clearWebSettingsSpellCheckingLanguages , constructWebSettingsSpellCheckingLanguages, getWebSettingsSpellCheckingLanguages , setWebSettingsSpellCheckingLanguages , + webSettingsSpellCheckingLanguages , -- ** TabKeyCyclesThroughElements @@ -424,20 +488,25 @@ constructWebSettingsTabKeyCyclesThroughElements, getWebSettingsTabKeyCyclesThroughElements, setWebSettingsTabKeyCyclesThroughElements, + webSettingsTabKeyCyclesThroughElements , -- ** UserAgent WebSettingsUserAgentPropertyInfo , + clearWebSettingsUserAgent , constructWebSettingsUserAgent , getWebSettingsUserAgent , setWebSettingsUserAgent , + webSettingsUserAgent , -- ** UserStylesheetUri WebSettingsUserStylesheetUriPropertyInfo, + clearWebSettingsUserStylesheetUri , constructWebSettingsUserStylesheetUri , getWebSettingsUserStylesheetUri , setWebSettingsUserStylesheetUri , + webSettingsUserStylesheetUri , -- ** ZoomStep @@ -445,15 +514,16 @@ constructWebSettingsZoomStep , getWebSettingsZoomStep , setWebSettingsZoomStep , + webSettingsZoomStep , ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map @@ -521,6 +591,7 @@ -- VVV Prop "auto-load-images" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + -- Nullable: (Nothing,Nothing) getWebSettingsAutoLoadImages :: (MonadIO m, WebSettingsK o) => o -> m Bool getWebSettingsAutoLoadImages obj = liftIO $ getObjectPropertyBool obj "auto-load-images" @@ -541,10 +612,12 @@ attrGet _ = getWebSettingsAutoLoadImages attrSet _ = setWebSettingsAutoLoadImages attrConstruct _ = constructWebSettingsAutoLoadImages + attrClear _ = undefined -- VVV Prop "auto-resize-window" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + -- Nullable: (Nothing,Nothing) getWebSettingsAutoResizeWindow :: (MonadIO m, WebSettingsK o) => o -> m Bool getWebSettingsAutoResizeWindow obj = liftIO $ getObjectPropertyBool obj "auto-resize-window" @@ -565,10 +638,12 @@ attrGet _ = getWebSettingsAutoResizeWindow attrSet _ = setWebSettingsAutoResizeWindow attrConstruct _ = constructWebSettingsAutoResizeWindow + attrClear _ = undefined -- VVV Prop "auto-shrink-images" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + -- Nullable: (Nothing,Nothing) getWebSettingsAutoShrinkImages :: (MonadIO m, WebSettingsK o) => o -> m Bool getWebSettingsAutoShrinkImages obj = liftIO $ getObjectPropertyBool obj "auto-shrink-images" @@ -589,91 +664,108 @@ attrGet _ = getWebSettingsAutoShrinkImages attrSet _ = setWebSettingsAutoShrinkImages attrConstruct _ = constructWebSettingsAutoShrinkImages + attrClear _ = undefined -- VVV Prop "cursive-font-family" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + -- Nullable: (Nothing,Nothing) -getWebSettingsCursiveFontFamily :: (MonadIO m, WebSettingsK o) => o -> m T.Text +getWebSettingsCursiveFontFamily :: (MonadIO m, WebSettingsK o) => o -> m (Maybe T.Text) getWebSettingsCursiveFontFamily obj = liftIO $ getObjectPropertyString obj "cursive-font-family" setWebSettingsCursiveFontFamily :: (MonadIO m, WebSettingsK o) => o -> T.Text -> m () -setWebSettingsCursiveFontFamily obj val = liftIO $ setObjectPropertyString obj "cursive-font-family" val +setWebSettingsCursiveFontFamily obj val = liftIO $ setObjectPropertyString obj "cursive-font-family" (Just val) constructWebSettingsCursiveFontFamily :: T.Text -> IO ([Char], GValue) -constructWebSettingsCursiveFontFamily val = constructObjectPropertyString "cursive-font-family" val +constructWebSettingsCursiveFontFamily val = constructObjectPropertyString "cursive-font-family" (Just val) +clearWebSettingsCursiveFontFamily :: (MonadIO m, WebSettingsK o) => o -> m () +clearWebSettingsCursiveFontFamily obj = liftIO $ setObjectPropertyString obj "cursive-font-family" (Nothing :: Maybe T.Text) + data WebSettingsCursiveFontFamilyPropertyInfo instance AttrInfo WebSettingsCursiveFontFamilyPropertyInfo where - type AttrAllowedOps WebSettingsCursiveFontFamilyPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrAllowedOps WebSettingsCursiveFontFamilyPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint WebSettingsCursiveFontFamilyPropertyInfo = (~) T.Text type AttrBaseTypeConstraint WebSettingsCursiveFontFamilyPropertyInfo = WebSettingsK - type AttrGetType WebSettingsCursiveFontFamilyPropertyInfo = T.Text + type AttrGetType WebSettingsCursiveFontFamilyPropertyInfo = (Maybe T.Text) type AttrLabel WebSettingsCursiveFontFamilyPropertyInfo = "cursive-font-family" attrGet _ = getWebSettingsCursiveFontFamily attrSet _ = setWebSettingsCursiveFontFamily attrConstruct _ = constructWebSettingsCursiveFontFamily + attrClear _ = clearWebSettingsCursiveFontFamily -- VVV Prop "default-encoding" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + -- Nullable: (Nothing,Nothing) -getWebSettingsDefaultEncoding :: (MonadIO m, WebSettingsK o) => o -> m T.Text +getWebSettingsDefaultEncoding :: (MonadIO m, WebSettingsK o) => o -> m (Maybe T.Text) getWebSettingsDefaultEncoding obj = liftIO $ getObjectPropertyString obj "default-encoding" setWebSettingsDefaultEncoding :: (MonadIO m, WebSettingsK o) => o -> T.Text -> m () -setWebSettingsDefaultEncoding obj val = liftIO $ setObjectPropertyString obj "default-encoding" val +setWebSettingsDefaultEncoding obj val = liftIO $ setObjectPropertyString obj "default-encoding" (Just val) constructWebSettingsDefaultEncoding :: T.Text -> IO ([Char], GValue) -constructWebSettingsDefaultEncoding val = constructObjectPropertyString "default-encoding" val +constructWebSettingsDefaultEncoding val = constructObjectPropertyString "default-encoding" (Just val) +clearWebSettingsDefaultEncoding :: (MonadIO m, WebSettingsK o) => o -> m () +clearWebSettingsDefaultEncoding obj = liftIO $ setObjectPropertyString obj "default-encoding" (Nothing :: Maybe T.Text) + data WebSettingsDefaultEncodingPropertyInfo instance AttrInfo WebSettingsDefaultEncodingPropertyInfo where - type AttrAllowedOps WebSettingsDefaultEncodingPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrAllowedOps WebSettingsDefaultEncodingPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint WebSettingsDefaultEncodingPropertyInfo = (~) T.Text type AttrBaseTypeConstraint WebSettingsDefaultEncodingPropertyInfo = WebSettingsK - type AttrGetType WebSettingsDefaultEncodingPropertyInfo = T.Text + type AttrGetType WebSettingsDefaultEncodingPropertyInfo = (Maybe T.Text) type AttrLabel WebSettingsDefaultEncodingPropertyInfo = "default-encoding" attrGet _ = getWebSettingsDefaultEncoding attrSet _ = setWebSettingsDefaultEncoding attrConstruct _ = constructWebSettingsDefaultEncoding + attrClear _ = clearWebSettingsDefaultEncoding -- VVV Prop "default-font-family" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + -- Nullable: (Nothing,Nothing) -getWebSettingsDefaultFontFamily :: (MonadIO m, WebSettingsK o) => o -> m T.Text +getWebSettingsDefaultFontFamily :: (MonadIO m, WebSettingsK o) => o -> m (Maybe T.Text) getWebSettingsDefaultFontFamily obj = liftIO $ getObjectPropertyString obj "default-font-family" setWebSettingsDefaultFontFamily :: (MonadIO m, WebSettingsK o) => o -> T.Text -> m () -setWebSettingsDefaultFontFamily obj val = liftIO $ setObjectPropertyString obj "default-font-family" val +setWebSettingsDefaultFontFamily obj val = liftIO $ setObjectPropertyString obj "default-font-family" (Just val) constructWebSettingsDefaultFontFamily :: T.Text -> IO ([Char], GValue) -constructWebSettingsDefaultFontFamily val = constructObjectPropertyString "default-font-family" val +constructWebSettingsDefaultFontFamily val = constructObjectPropertyString "default-font-family" (Just val) +clearWebSettingsDefaultFontFamily :: (MonadIO m, WebSettingsK o) => o -> m () +clearWebSettingsDefaultFontFamily obj = liftIO $ setObjectPropertyString obj "default-font-family" (Nothing :: Maybe T.Text) + data WebSettingsDefaultFontFamilyPropertyInfo instance AttrInfo WebSettingsDefaultFontFamilyPropertyInfo where - type AttrAllowedOps WebSettingsDefaultFontFamilyPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrAllowedOps WebSettingsDefaultFontFamilyPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint WebSettingsDefaultFontFamilyPropertyInfo = (~) T.Text type AttrBaseTypeConstraint WebSettingsDefaultFontFamilyPropertyInfo = WebSettingsK - type AttrGetType WebSettingsDefaultFontFamilyPropertyInfo = T.Text + type AttrGetType WebSettingsDefaultFontFamilyPropertyInfo = (Maybe T.Text) type AttrLabel WebSettingsDefaultFontFamilyPropertyInfo = "default-font-family" attrGet _ = getWebSettingsDefaultFontFamily attrSet _ = setWebSettingsDefaultFontFamily attrConstruct _ = constructWebSettingsDefaultFontFamily + attrClear _ = clearWebSettingsDefaultFontFamily -- VVV Prop "default-font-size" - -- Type: TBasicType TInt32 + -- Type: TBasicType TInt -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + -- Nullable: (Nothing,Nothing) getWebSettingsDefaultFontSize :: (MonadIO m, WebSettingsK o) => o -> m Int32 -getWebSettingsDefaultFontSize obj = liftIO $ getObjectPropertyCInt obj "default-font-size" +getWebSettingsDefaultFontSize obj = liftIO $ getObjectPropertyInt32 obj "default-font-size" setWebSettingsDefaultFontSize :: (MonadIO m, WebSettingsK o) => o -> Int32 -> m () -setWebSettingsDefaultFontSize obj val = liftIO $ setObjectPropertyCInt obj "default-font-size" val +setWebSettingsDefaultFontSize obj val = liftIO $ setObjectPropertyInt32 obj "default-font-size" val constructWebSettingsDefaultFontSize :: Int32 -> IO ([Char], GValue) -constructWebSettingsDefaultFontSize val = constructObjectPropertyCInt "default-font-size" val +constructWebSettingsDefaultFontSize val = constructObjectPropertyInt32 "default-font-size" val data WebSettingsDefaultFontSizePropertyInfo instance AttrInfo WebSettingsDefaultFontSizePropertyInfo where @@ -685,19 +777,21 @@ attrGet _ = getWebSettingsDefaultFontSize attrSet _ = setWebSettingsDefaultFontSize attrConstruct _ = constructWebSettingsDefaultFontSize + attrClear _ = undefined -- VVV Prop "default-monospace-font-size" - -- Type: TBasicType TInt32 + -- Type: TBasicType TInt -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + -- Nullable: (Nothing,Nothing) getWebSettingsDefaultMonospaceFontSize :: (MonadIO m, WebSettingsK o) => o -> m Int32 -getWebSettingsDefaultMonospaceFontSize obj = liftIO $ getObjectPropertyCInt obj "default-monospace-font-size" +getWebSettingsDefaultMonospaceFontSize obj = liftIO $ getObjectPropertyInt32 obj "default-monospace-font-size" setWebSettingsDefaultMonospaceFontSize :: (MonadIO m, WebSettingsK o) => o -> Int32 -> m () -setWebSettingsDefaultMonospaceFontSize obj val = liftIO $ setObjectPropertyCInt obj "default-monospace-font-size" val +setWebSettingsDefaultMonospaceFontSize obj val = liftIO $ setObjectPropertyInt32 obj "default-monospace-font-size" val constructWebSettingsDefaultMonospaceFontSize :: Int32 -> IO ([Char], GValue) -constructWebSettingsDefaultMonospaceFontSize val = constructObjectPropertyCInt "default-monospace-font-size" val +constructWebSettingsDefaultMonospaceFontSize val = constructObjectPropertyInt32 "default-monospace-font-size" val data WebSettingsDefaultMonospaceFontSizePropertyInfo instance AttrInfo WebSettingsDefaultMonospaceFontSizePropertyInfo where @@ -709,10 +803,12 @@ attrGet _ = getWebSettingsDefaultMonospaceFontSize attrSet _ = setWebSettingsDefaultMonospaceFontSize attrConstruct _ = constructWebSettingsDefaultMonospaceFontSize + attrClear _ = undefined -- VVV Prop "editing-behavior" -- Type: TInterface "WebKit" "EditingBehavior" -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + -- Nullable: (Nothing,Nothing) getWebSettingsEditingBehavior :: (MonadIO m, WebSettingsK o) => o -> m EditingBehavior getWebSettingsEditingBehavior obj = liftIO $ getObjectPropertyEnum obj "editing-behavior" @@ -733,10 +829,12 @@ attrGet _ = getWebSettingsEditingBehavior attrSet _ = setWebSettingsEditingBehavior attrConstruct _ = constructWebSettingsEditingBehavior + attrClear _ = undefined -- VVV Prop "enable-accelerated-compositing" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + -- Nullable: (Nothing,Nothing) getWebSettingsEnableAcceleratedCompositing :: (MonadIO m, WebSettingsK o) => o -> m Bool getWebSettingsEnableAcceleratedCompositing obj = liftIO $ getObjectPropertyBool obj "enable-accelerated-compositing" @@ -757,10 +855,12 @@ attrGet _ = getWebSettingsEnableAcceleratedCompositing attrSet _ = setWebSettingsEnableAcceleratedCompositing attrConstruct _ = constructWebSettingsEnableAcceleratedCompositing + attrClear _ = undefined -- VVV Prop "enable-caret-browsing" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + -- Nullable: (Nothing,Nothing) getWebSettingsEnableCaretBrowsing :: (MonadIO m, WebSettingsK o) => o -> m Bool getWebSettingsEnableCaretBrowsing obj = liftIO $ getObjectPropertyBool obj "enable-caret-browsing" @@ -781,10 +881,12 @@ attrGet _ = getWebSettingsEnableCaretBrowsing attrSet _ = setWebSettingsEnableCaretBrowsing attrConstruct _ = constructWebSettingsEnableCaretBrowsing + attrClear _ = undefined -- VVV Prop "enable-default-context-menu" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + -- Nullable: (Nothing,Nothing) getWebSettingsEnableDefaultContextMenu :: (MonadIO m, WebSettingsK o) => o -> m Bool getWebSettingsEnableDefaultContextMenu obj = liftIO $ getObjectPropertyBool obj "enable-default-context-menu" @@ -805,10 +907,12 @@ attrGet _ = getWebSettingsEnableDefaultContextMenu attrSet _ = setWebSettingsEnableDefaultContextMenu attrConstruct _ = constructWebSettingsEnableDefaultContextMenu + attrClear _ = undefined -- VVV Prop "enable-developer-extras" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + -- Nullable: (Nothing,Nothing) getWebSettingsEnableDeveloperExtras :: (MonadIO m, WebSettingsK o) => o -> m Bool getWebSettingsEnableDeveloperExtras obj = liftIO $ getObjectPropertyBool obj "enable-developer-extras" @@ -829,10 +933,12 @@ attrGet _ = getWebSettingsEnableDeveloperExtras attrSet _ = setWebSettingsEnableDeveloperExtras attrConstruct _ = constructWebSettingsEnableDeveloperExtras + attrClear _ = undefined -- VVV Prop "enable-display-of-insecure-content" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + -- Nullable: (Nothing,Nothing) getWebSettingsEnableDisplayOfInsecureContent :: (MonadIO m, WebSettingsK o) => o -> m Bool getWebSettingsEnableDisplayOfInsecureContent obj = liftIO $ getObjectPropertyBool obj "enable-display-of-insecure-content" @@ -853,10 +959,12 @@ attrGet _ = getWebSettingsEnableDisplayOfInsecureContent attrSet _ = setWebSettingsEnableDisplayOfInsecureContent attrConstruct _ = constructWebSettingsEnableDisplayOfInsecureContent + attrClear _ = undefined -- VVV Prop "enable-dns-prefetching" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + -- Nullable: (Nothing,Nothing) getWebSettingsEnableDnsPrefetching :: (MonadIO m, WebSettingsK o) => o -> m Bool getWebSettingsEnableDnsPrefetching obj = liftIO $ getObjectPropertyBool obj "enable-dns-prefetching" @@ -877,10 +985,12 @@ attrGet _ = getWebSettingsEnableDnsPrefetching attrSet _ = setWebSettingsEnableDnsPrefetching attrConstruct _ = constructWebSettingsEnableDnsPrefetching + attrClear _ = undefined -- VVV Prop "enable-dom-paste" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + -- Nullable: (Nothing,Nothing) getWebSettingsEnableDomPaste :: (MonadIO m, WebSettingsK o) => o -> m Bool getWebSettingsEnableDomPaste obj = liftIO $ getObjectPropertyBool obj "enable-dom-paste" @@ -901,10 +1011,12 @@ attrGet _ = getWebSettingsEnableDomPaste attrSet _ = setWebSettingsEnableDomPaste attrConstruct _ = constructWebSettingsEnableDomPaste + attrClear _ = undefined -- VVV Prop "enable-file-access-from-file-uris" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + -- Nullable: (Nothing,Nothing) getWebSettingsEnableFileAccessFromFileUris :: (MonadIO m, WebSettingsK o) => o -> m Bool getWebSettingsEnableFileAccessFromFileUris obj = liftIO $ getObjectPropertyBool obj "enable-file-access-from-file-uris" @@ -925,10 +1037,12 @@ attrGet _ = getWebSettingsEnableFileAccessFromFileUris attrSet _ = setWebSettingsEnableFileAccessFromFileUris attrConstruct _ = constructWebSettingsEnableFileAccessFromFileUris + attrClear _ = undefined -- VVV Prop "enable-frame-flattening" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + -- Nullable: (Nothing,Nothing) getWebSettingsEnableFrameFlattening :: (MonadIO m, WebSettingsK o) => o -> m Bool getWebSettingsEnableFrameFlattening obj = liftIO $ getObjectPropertyBool obj "enable-frame-flattening" @@ -949,10 +1063,12 @@ attrGet _ = getWebSettingsEnableFrameFlattening attrSet _ = setWebSettingsEnableFrameFlattening attrConstruct _ = constructWebSettingsEnableFrameFlattening + attrClear _ = undefined -- VVV Prop "enable-fullscreen" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + -- Nullable: (Nothing,Nothing) getWebSettingsEnableFullscreen :: (MonadIO m, WebSettingsK o) => o -> m Bool getWebSettingsEnableFullscreen obj = liftIO $ getObjectPropertyBool obj "enable-fullscreen" @@ -973,10 +1089,12 @@ attrGet _ = getWebSettingsEnableFullscreen attrSet _ = setWebSettingsEnableFullscreen attrConstruct _ = constructWebSettingsEnableFullscreen + attrClear _ = undefined -- VVV Prop "enable-html5-database" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + -- Nullable: (Nothing,Nothing) getWebSettingsEnableHtml5Database :: (MonadIO m, WebSettingsK o) => o -> m Bool getWebSettingsEnableHtml5Database obj = liftIO $ getObjectPropertyBool obj "enable-html5-database" @@ -997,10 +1115,12 @@ attrGet _ = getWebSettingsEnableHtml5Database attrSet _ = setWebSettingsEnableHtml5Database attrConstruct _ = constructWebSettingsEnableHtml5Database + attrClear _ = undefined -- VVV Prop "enable-html5-local-storage" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + -- Nullable: (Nothing,Nothing) getWebSettingsEnableHtml5LocalStorage :: (MonadIO m, WebSettingsK o) => o -> m Bool getWebSettingsEnableHtml5LocalStorage obj = liftIO $ getObjectPropertyBool obj "enable-html5-local-storage" @@ -1021,10 +1141,12 @@ attrGet _ = getWebSettingsEnableHtml5LocalStorage attrSet _ = setWebSettingsEnableHtml5LocalStorage attrConstruct _ = constructWebSettingsEnableHtml5LocalStorage + attrClear _ = undefined -- VVV Prop "enable-hyperlink-auditing" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + -- Nullable: (Nothing,Nothing) getWebSettingsEnableHyperlinkAuditing :: (MonadIO m, WebSettingsK o) => o -> m Bool getWebSettingsEnableHyperlinkAuditing obj = liftIO $ getObjectPropertyBool obj "enable-hyperlink-auditing" @@ -1045,10 +1167,12 @@ attrGet _ = getWebSettingsEnableHyperlinkAuditing attrSet _ = setWebSettingsEnableHyperlinkAuditing attrConstruct _ = constructWebSettingsEnableHyperlinkAuditing + attrClear _ = undefined -- VVV Prop "enable-java-applet" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + -- Nullable: (Nothing,Nothing) getWebSettingsEnableJavaApplet :: (MonadIO m, WebSettingsK o) => o -> m Bool getWebSettingsEnableJavaApplet obj = liftIO $ getObjectPropertyBool obj "enable-java-applet" @@ -1069,10 +1193,12 @@ attrGet _ = getWebSettingsEnableJavaApplet attrSet _ = setWebSettingsEnableJavaApplet attrConstruct _ = constructWebSettingsEnableJavaApplet + attrClear _ = undefined -- VVV Prop "enable-media-stream" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + -- Nullable: (Nothing,Nothing) getWebSettingsEnableMediaStream :: (MonadIO m, WebSettingsK o) => o -> m Bool getWebSettingsEnableMediaStream obj = liftIO $ getObjectPropertyBool obj "enable-media-stream" @@ -1093,10 +1219,12 @@ attrGet _ = getWebSettingsEnableMediaStream attrSet _ = setWebSettingsEnableMediaStream attrConstruct _ = constructWebSettingsEnableMediaStream + attrClear _ = undefined -- VVV Prop "enable-mediasource" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + -- Nullable: (Nothing,Nothing) getWebSettingsEnableMediasource :: (MonadIO m, WebSettingsK o) => o -> m Bool getWebSettingsEnableMediasource obj = liftIO $ getObjectPropertyBool obj "enable-mediasource" @@ -1117,10 +1245,12 @@ attrGet _ = getWebSettingsEnableMediasource attrSet _ = setWebSettingsEnableMediasource attrConstruct _ = constructWebSettingsEnableMediasource + attrClear _ = undefined -- VVV Prop "enable-offline-web-application-cache" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + -- Nullable: (Nothing,Nothing) getWebSettingsEnableOfflineWebApplicationCache :: (MonadIO m, WebSettingsK o) => o -> m Bool getWebSettingsEnableOfflineWebApplicationCache obj = liftIO $ getObjectPropertyBool obj "enable-offline-web-application-cache" @@ -1141,10 +1271,12 @@ attrGet _ = getWebSettingsEnableOfflineWebApplicationCache attrSet _ = setWebSettingsEnableOfflineWebApplicationCache attrConstruct _ = constructWebSettingsEnableOfflineWebApplicationCache + attrClear _ = undefined -- VVV Prop "enable-page-cache" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + -- Nullable: (Nothing,Nothing) getWebSettingsEnablePageCache :: (MonadIO m, WebSettingsK o) => o -> m Bool getWebSettingsEnablePageCache obj = liftIO $ getObjectPropertyBool obj "enable-page-cache" @@ -1165,10 +1297,12 @@ attrGet _ = getWebSettingsEnablePageCache attrSet _ = setWebSettingsEnablePageCache attrConstruct _ = constructWebSettingsEnablePageCache + attrClear _ = undefined -- VVV Prop "enable-plugins" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + -- Nullable: (Nothing,Nothing) getWebSettingsEnablePlugins :: (MonadIO m, WebSettingsK o) => o -> m Bool getWebSettingsEnablePlugins obj = liftIO $ getObjectPropertyBool obj "enable-plugins" @@ -1189,10 +1323,12 @@ attrGet _ = getWebSettingsEnablePlugins attrSet _ = setWebSettingsEnablePlugins attrConstruct _ = constructWebSettingsEnablePlugins + attrClear _ = undefined -- VVV Prop "enable-private-browsing" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + -- Nullable: (Nothing,Nothing) getWebSettingsEnablePrivateBrowsing :: (MonadIO m, WebSettingsK o) => o -> m Bool getWebSettingsEnablePrivateBrowsing obj = liftIO $ getObjectPropertyBool obj "enable-private-browsing" @@ -1213,10 +1349,12 @@ attrGet _ = getWebSettingsEnablePrivateBrowsing attrSet _ = setWebSettingsEnablePrivateBrowsing attrConstruct _ = constructWebSettingsEnablePrivateBrowsing + attrClear _ = undefined -- VVV Prop "enable-running-of-insecure-content" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + -- Nullable: (Nothing,Nothing) getWebSettingsEnableRunningOfInsecureContent :: (MonadIO m, WebSettingsK o) => o -> m Bool getWebSettingsEnableRunningOfInsecureContent obj = liftIO $ getObjectPropertyBool obj "enable-running-of-insecure-content" @@ -1237,10 +1375,12 @@ attrGet _ = getWebSettingsEnableRunningOfInsecureContent attrSet _ = setWebSettingsEnableRunningOfInsecureContent attrConstruct _ = constructWebSettingsEnableRunningOfInsecureContent + attrClear _ = undefined -- VVV Prop "enable-scripts" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + -- Nullable: (Nothing,Nothing) getWebSettingsEnableScripts :: (MonadIO m, WebSettingsK o) => o -> m Bool getWebSettingsEnableScripts obj = liftIO $ getObjectPropertyBool obj "enable-scripts" @@ -1261,10 +1401,12 @@ attrGet _ = getWebSettingsEnableScripts attrSet _ = setWebSettingsEnableScripts attrConstruct _ = constructWebSettingsEnableScripts + attrClear _ = undefined -- VVV Prop "enable-site-specific-quirks" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + -- Nullable: (Nothing,Nothing) getWebSettingsEnableSiteSpecificQuirks :: (MonadIO m, WebSettingsK o) => o -> m Bool getWebSettingsEnableSiteSpecificQuirks obj = liftIO $ getObjectPropertyBool obj "enable-site-specific-quirks" @@ -1285,10 +1427,12 @@ attrGet _ = getWebSettingsEnableSiteSpecificQuirks attrSet _ = setWebSettingsEnableSiteSpecificQuirks attrConstruct _ = constructWebSettingsEnableSiteSpecificQuirks + attrClear _ = undefined -- VVV Prop "enable-smooth-scrolling" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + -- Nullable: (Nothing,Nothing) getWebSettingsEnableSmoothScrolling :: (MonadIO m, WebSettingsK o) => o -> m Bool getWebSettingsEnableSmoothScrolling obj = liftIO $ getObjectPropertyBool obj "enable-smooth-scrolling" @@ -1309,10 +1453,12 @@ attrGet _ = getWebSettingsEnableSmoothScrolling attrSet _ = setWebSettingsEnableSmoothScrolling attrConstruct _ = constructWebSettingsEnableSmoothScrolling + attrClear _ = undefined -- VVV Prop "enable-spatial-navigation" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + -- Nullable: (Nothing,Nothing) getWebSettingsEnableSpatialNavigation :: (MonadIO m, WebSettingsK o) => o -> m Bool getWebSettingsEnableSpatialNavigation obj = liftIO $ getObjectPropertyBool obj "enable-spatial-navigation" @@ -1333,10 +1479,12 @@ attrGet _ = getWebSettingsEnableSpatialNavigation attrSet _ = setWebSettingsEnableSpatialNavigation attrConstruct _ = constructWebSettingsEnableSpatialNavigation + attrClear _ = undefined -- VVV Prop "enable-spell-checking" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + -- Nullable: (Nothing,Nothing) getWebSettingsEnableSpellChecking :: (MonadIO m, WebSettingsK o) => o -> m Bool getWebSettingsEnableSpellChecking obj = liftIO $ getObjectPropertyBool obj "enable-spell-checking" @@ -1357,10 +1505,12 @@ attrGet _ = getWebSettingsEnableSpellChecking attrSet _ = setWebSettingsEnableSpellChecking attrConstruct _ = constructWebSettingsEnableSpellChecking + attrClear _ = undefined -- VVV Prop "enable-universal-access-from-file-uris" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + -- Nullable: (Nothing,Nothing) getWebSettingsEnableUniversalAccessFromFileUris :: (MonadIO m, WebSettingsK o) => o -> m Bool getWebSettingsEnableUniversalAccessFromFileUris obj = liftIO $ getObjectPropertyBool obj "enable-universal-access-from-file-uris" @@ -1381,10 +1531,12 @@ attrGet _ = getWebSettingsEnableUniversalAccessFromFileUris attrSet _ = setWebSettingsEnableUniversalAccessFromFileUris attrConstruct _ = constructWebSettingsEnableUniversalAccessFromFileUris + attrClear _ = undefined -- VVV Prop "enable-webaudio" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + -- Nullable: (Nothing,Nothing) getWebSettingsEnableWebaudio :: (MonadIO m, WebSettingsK o) => o -> m Bool getWebSettingsEnableWebaudio obj = liftIO $ getObjectPropertyBool obj "enable-webaudio" @@ -1405,10 +1557,12 @@ attrGet _ = getWebSettingsEnableWebaudio attrSet _ = setWebSettingsEnableWebaudio attrConstruct _ = constructWebSettingsEnableWebaudio + attrClear _ = undefined -- VVV Prop "enable-webgl" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + -- Nullable: (Nothing,Nothing) getWebSettingsEnableWebgl :: (MonadIO m, WebSettingsK o) => o -> m Bool getWebSettingsEnableWebgl obj = liftIO $ getObjectPropertyBool obj "enable-webgl" @@ -1429,10 +1583,12 @@ attrGet _ = getWebSettingsEnableWebgl attrSet _ = setWebSettingsEnableWebgl attrConstruct _ = constructWebSettingsEnableWebgl + attrClear _ = undefined -- VVV Prop "enable-xss-auditor" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + -- Nullable: (Nothing,Nothing) getWebSettingsEnableXssAuditor :: (MonadIO m, WebSettingsK o) => o -> m Bool getWebSettingsEnableXssAuditor obj = liftIO $ getObjectPropertyBool obj "enable-xss-auditor" @@ -1453,10 +1609,12 @@ attrGet _ = getWebSettingsEnableXssAuditor attrSet _ = setWebSettingsEnableXssAuditor attrConstruct _ = constructWebSettingsEnableXssAuditor + attrClear _ = undefined -- VVV Prop "enforce-96-dpi" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + -- Nullable: (Nothing,Nothing) getWebSettingsEnforce96Dpi :: (MonadIO m, WebSettingsK o) => o -> m Bool getWebSettingsEnforce96Dpi obj = liftIO $ getObjectPropertyBool obj "enforce-96-dpi" @@ -1477,58 +1635,70 @@ attrGet _ = getWebSettingsEnforce96Dpi attrSet _ = setWebSettingsEnforce96Dpi attrConstruct _ = constructWebSettingsEnforce96Dpi + attrClear _ = undefined -- VVV Prop "fantasy-font-family" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + -- Nullable: (Nothing,Nothing) -getWebSettingsFantasyFontFamily :: (MonadIO m, WebSettingsK o) => o -> m T.Text +getWebSettingsFantasyFontFamily :: (MonadIO m, WebSettingsK o) => o -> m (Maybe T.Text) getWebSettingsFantasyFontFamily obj = liftIO $ getObjectPropertyString obj "fantasy-font-family" setWebSettingsFantasyFontFamily :: (MonadIO m, WebSettingsK o) => o -> T.Text -> m () -setWebSettingsFantasyFontFamily obj val = liftIO $ setObjectPropertyString obj "fantasy-font-family" val +setWebSettingsFantasyFontFamily obj val = liftIO $ setObjectPropertyString obj "fantasy-font-family" (Just val) constructWebSettingsFantasyFontFamily :: T.Text -> IO ([Char], GValue) -constructWebSettingsFantasyFontFamily val = constructObjectPropertyString "fantasy-font-family" val +constructWebSettingsFantasyFontFamily val = constructObjectPropertyString "fantasy-font-family" (Just val) +clearWebSettingsFantasyFontFamily :: (MonadIO m, WebSettingsK o) => o -> m () +clearWebSettingsFantasyFontFamily obj = liftIO $ setObjectPropertyString obj "fantasy-font-family" (Nothing :: Maybe T.Text) + data WebSettingsFantasyFontFamilyPropertyInfo instance AttrInfo WebSettingsFantasyFontFamilyPropertyInfo where - type AttrAllowedOps WebSettingsFantasyFontFamilyPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrAllowedOps WebSettingsFantasyFontFamilyPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint WebSettingsFantasyFontFamilyPropertyInfo = (~) T.Text type AttrBaseTypeConstraint WebSettingsFantasyFontFamilyPropertyInfo = WebSettingsK - type AttrGetType WebSettingsFantasyFontFamilyPropertyInfo = T.Text + type AttrGetType WebSettingsFantasyFontFamilyPropertyInfo = (Maybe T.Text) type AttrLabel WebSettingsFantasyFontFamilyPropertyInfo = "fantasy-font-family" attrGet _ = getWebSettingsFantasyFontFamily attrSet _ = setWebSettingsFantasyFontFamily attrConstruct _ = constructWebSettingsFantasyFontFamily + attrClear _ = clearWebSettingsFantasyFontFamily -- VVV Prop "html5-local-storage-database-path" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + -- Nullable: (Nothing,Nothing) -getWebSettingsHtml5LocalStorageDatabasePath :: (MonadIO m, WebSettingsK o) => o -> m T.Text +getWebSettingsHtml5LocalStorageDatabasePath :: (MonadIO m, WebSettingsK o) => o -> m (Maybe T.Text) getWebSettingsHtml5LocalStorageDatabasePath obj = liftIO $ getObjectPropertyString obj "html5-local-storage-database-path" setWebSettingsHtml5LocalStorageDatabasePath :: (MonadIO m, WebSettingsK o) => o -> T.Text -> m () -setWebSettingsHtml5LocalStorageDatabasePath obj val = liftIO $ setObjectPropertyString obj "html5-local-storage-database-path" val +setWebSettingsHtml5LocalStorageDatabasePath obj val = liftIO $ setObjectPropertyString obj "html5-local-storage-database-path" (Just val) constructWebSettingsHtml5LocalStorageDatabasePath :: T.Text -> IO ([Char], GValue) -constructWebSettingsHtml5LocalStorageDatabasePath val = constructObjectPropertyString "html5-local-storage-database-path" val +constructWebSettingsHtml5LocalStorageDatabasePath val = constructObjectPropertyString "html5-local-storage-database-path" (Just val) +clearWebSettingsHtml5LocalStorageDatabasePath :: (MonadIO m, WebSettingsK o) => o -> m () +clearWebSettingsHtml5LocalStorageDatabasePath obj = liftIO $ setObjectPropertyString obj "html5-local-storage-database-path" (Nothing :: Maybe T.Text) + data WebSettingsHtml5LocalStorageDatabasePathPropertyInfo instance AttrInfo WebSettingsHtml5LocalStorageDatabasePathPropertyInfo where - type AttrAllowedOps WebSettingsHtml5LocalStorageDatabasePathPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrAllowedOps WebSettingsHtml5LocalStorageDatabasePathPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint WebSettingsHtml5LocalStorageDatabasePathPropertyInfo = (~) T.Text type AttrBaseTypeConstraint WebSettingsHtml5LocalStorageDatabasePathPropertyInfo = WebSettingsK - type AttrGetType WebSettingsHtml5LocalStorageDatabasePathPropertyInfo = T.Text + type AttrGetType WebSettingsHtml5LocalStorageDatabasePathPropertyInfo = (Maybe T.Text) type AttrLabel WebSettingsHtml5LocalStorageDatabasePathPropertyInfo = "html5-local-storage-database-path" attrGet _ = getWebSettingsHtml5LocalStorageDatabasePath attrSet _ = setWebSettingsHtml5LocalStorageDatabasePath attrConstruct _ = constructWebSettingsHtml5LocalStorageDatabasePath + attrClear _ = clearWebSettingsHtml5LocalStorageDatabasePath -- VVV Prop "javascript-can-access-clipboard" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + -- Nullable: (Nothing,Nothing) getWebSettingsJavascriptCanAccessClipboard :: (MonadIO m, WebSettingsK o) => o -> m Bool getWebSettingsJavascriptCanAccessClipboard obj = liftIO $ getObjectPropertyBool obj "javascript-can-access-clipboard" @@ -1549,10 +1719,12 @@ attrGet _ = getWebSettingsJavascriptCanAccessClipboard attrSet _ = setWebSettingsJavascriptCanAccessClipboard attrConstruct _ = constructWebSettingsJavascriptCanAccessClipboard + attrClear _ = undefined -- VVV Prop "javascript-can-open-windows-automatically" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + -- Nullable: (Nothing,Nothing) getWebSettingsJavascriptCanOpenWindowsAutomatically :: (MonadIO m, WebSettingsK o) => o -> m Bool getWebSettingsJavascriptCanOpenWindowsAutomatically obj = liftIO $ getObjectPropertyBool obj "javascript-can-open-windows-automatically" @@ -1573,10 +1745,12 @@ attrGet _ = getWebSettingsJavascriptCanOpenWindowsAutomatically attrSet _ = setWebSettingsJavascriptCanOpenWindowsAutomatically attrConstruct _ = constructWebSettingsJavascriptCanOpenWindowsAutomatically + attrClear _ = undefined -- VVV Prop "media-playback-allows-inline" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + -- Nullable: (Nothing,Nothing) getWebSettingsMediaPlaybackAllowsInline :: (MonadIO m, WebSettingsK o) => o -> m Bool getWebSettingsMediaPlaybackAllowsInline obj = liftIO $ getObjectPropertyBool obj "media-playback-allows-inline" @@ -1597,10 +1771,12 @@ attrGet _ = getWebSettingsMediaPlaybackAllowsInline attrSet _ = setWebSettingsMediaPlaybackAllowsInline attrConstruct _ = constructWebSettingsMediaPlaybackAllowsInline + attrClear _ = undefined -- VVV Prop "media-playback-requires-user-gesture" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + -- Nullable: (Nothing,Nothing) getWebSettingsMediaPlaybackRequiresUserGesture :: (MonadIO m, WebSettingsK o) => o -> m Bool getWebSettingsMediaPlaybackRequiresUserGesture obj = liftIO $ getObjectPropertyBool obj "media-playback-requires-user-gesture" @@ -1621,19 +1797,21 @@ attrGet _ = getWebSettingsMediaPlaybackRequiresUserGesture attrSet _ = setWebSettingsMediaPlaybackRequiresUserGesture attrConstruct _ = constructWebSettingsMediaPlaybackRequiresUserGesture + attrClear _ = undefined -- VVV Prop "minimum-font-size" - -- Type: TBasicType TInt32 + -- Type: TBasicType TInt -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + -- Nullable: (Nothing,Nothing) getWebSettingsMinimumFontSize :: (MonadIO m, WebSettingsK o) => o -> m Int32 -getWebSettingsMinimumFontSize obj = liftIO $ getObjectPropertyCInt obj "minimum-font-size" +getWebSettingsMinimumFontSize obj = liftIO $ getObjectPropertyInt32 obj "minimum-font-size" setWebSettingsMinimumFontSize :: (MonadIO m, WebSettingsK o) => o -> Int32 -> m () -setWebSettingsMinimumFontSize obj val = liftIO $ setObjectPropertyCInt obj "minimum-font-size" val +setWebSettingsMinimumFontSize obj val = liftIO $ setObjectPropertyInt32 obj "minimum-font-size" val constructWebSettingsMinimumFontSize :: Int32 -> IO ([Char], GValue) -constructWebSettingsMinimumFontSize val = constructObjectPropertyCInt "minimum-font-size" val +constructWebSettingsMinimumFontSize val = constructObjectPropertyInt32 "minimum-font-size" val data WebSettingsMinimumFontSizePropertyInfo instance AttrInfo WebSettingsMinimumFontSizePropertyInfo where @@ -1645,19 +1823,21 @@ attrGet _ = getWebSettingsMinimumFontSize attrSet _ = setWebSettingsMinimumFontSize attrConstruct _ = constructWebSettingsMinimumFontSize + attrClear _ = undefined -- VVV Prop "minimum-logical-font-size" - -- Type: TBasicType TInt32 + -- Type: TBasicType TInt -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + -- Nullable: (Nothing,Nothing) getWebSettingsMinimumLogicalFontSize :: (MonadIO m, WebSettingsK o) => o -> m Int32 -getWebSettingsMinimumLogicalFontSize obj = liftIO $ getObjectPropertyCInt obj "minimum-logical-font-size" +getWebSettingsMinimumLogicalFontSize obj = liftIO $ getObjectPropertyInt32 obj "minimum-logical-font-size" setWebSettingsMinimumLogicalFontSize :: (MonadIO m, WebSettingsK o) => o -> Int32 -> m () -setWebSettingsMinimumLogicalFontSize obj val = liftIO $ setObjectPropertyCInt obj "minimum-logical-font-size" val +setWebSettingsMinimumLogicalFontSize obj val = liftIO $ setObjectPropertyInt32 obj "minimum-logical-font-size" val constructWebSettingsMinimumLogicalFontSize :: Int32 -> IO ([Char], GValue) -constructWebSettingsMinimumLogicalFontSize val = constructObjectPropertyCInt "minimum-logical-font-size" val +constructWebSettingsMinimumLogicalFontSize val = constructObjectPropertyInt32 "minimum-logical-font-size" val data WebSettingsMinimumLogicalFontSizePropertyInfo instance AttrInfo WebSettingsMinimumLogicalFontSizePropertyInfo where @@ -1669,34 +1849,41 @@ attrGet _ = getWebSettingsMinimumLogicalFontSize attrSet _ = setWebSettingsMinimumLogicalFontSize attrConstruct _ = constructWebSettingsMinimumLogicalFontSize + attrClear _ = undefined -- VVV Prop "monospace-font-family" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + -- Nullable: (Nothing,Nothing) -getWebSettingsMonospaceFontFamily :: (MonadIO m, WebSettingsK o) => o -> m T.Text +getWebSettingsMonospaceFontFamily :: (MonadIO m, WebSettingsK o) => o -> m (Maybe T.Text) getWebSettingsMonospaceFontFamily obj = liftIO $ getObjectPropertyString obj "monospace-font-family" setWebSettingsMonospaceFontFamily :: (MonadIO m, WebSettingsK o) => o -> T.Text -> m () -setWebSettingsMonospaceFontFamily obj val = liftIO $ setObjectPropertyString obj "monospace-font-family" val +setWebSettingsMonospaceFontFamily obj val = liftIO $ setObjectPropertyString obj "monospace-font-family" (Just val) constructWebSettingsMonospaceFontFamily :: T.Text -> IO ([Char], GValue) -constructWebSettingsMonospaceFontFamily val = constructObjectPropertyString "monospace-font-family" val +constructWebSettingsMonospaceFontFamily val = constructObjectPropertyString "monospace-font-family" (Just val) +clearWebSettingsMonospaceFontFamily :: (MonadIO m, WebSettingsK o) => o -> m () +clearWebSettingsMonospaceFontFamily obj = liftIO $ setObjectPropertyString obj "monospace-font-family" (Nothing :: Maybe T.Text) + data WebSettingsMonospaceFontFamilyPropertyInfo instance AttrInfo WebSettingsMonospaceFontFamilyPropertyInfo where - type AttrAllowedOps WebSettingsMonospaceFontFamilyPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrAllowedOps WebSettingsMonospaceFontFamilyPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint WebSettingsMonospaceFontFamilyPropertyInfo = (~) T.Text type AttrBaseTypeConstraint WebSettingsMonospaceFontFamilyPropertyInfo = WebSettingsK - type AttrGetType WebSettingsMonospaceFontFamilyPropertyInfo = T.Text + type AttrGetType WebSettingsMonospaceFontFamilyPropertyInfo = (Maybe T.Text) type AttrLabel WebSettingsMonospaceFontFamilyPropertyInfo = "monospace-font-family" attrGet _ = getWebSettingsMonospaceFontFamily attrSet _ = setWebSettingsMonospaceFontFamily attrConstruct _ = constructWebSettingsMonospaceFontFamily + attrClear _ = clearWebSettingsMonospaceFontFamily -- VVV Prop "print-backgrounds" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + -- Nullable: (Nothing,Nothing) getWebSettingsPrintBackgrounds :: (MonadIO m, WebSettingsK o) => o -> m Bool getWebSettingsPrintBackgrounds obj = liftIO $ getObjectPropertyBool obj "print-backgrounds" @@ -1717,10 +1904,12 @@ attrGet _ = getWebSettingsPrintBackgrounds attrSet _ = setWebSettingsPrintBackgrounds attrConstruct _ = constructWebSettingsPrintBackgrounds + attrClear _ = undefined -- VVV Prop "resizable-text-areas" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + -- Nullable: (Nothing,Nothing) getWebSettingsResizableTextAreas :: (MonadIO m, WebSettingsK o) => o -> m Bool getWebSettingsResizableTextAreas obj = liftIO $ getObjectPropertyBool obj "resizable-text-areas" @@ -1741,10 +1930,12 @@ attrGet _ = getWebSettingsResizableTextAreas attrSet _ = setWebSettingsResizableTextAreas attrConstruct _ = constructWebSettingsResizableTextAreas + attrClear _ = undefined -- VVV Prop "respect-image-orientation" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + -- Nullable: (Nothing,Nothing) getWebSettingsRespectImageOrientation :: (MonadIO m, WebSettingsK o) => o -> m Bool getWebSettingsRespectImageOrientation obj = liftIO $ getObjectPropertyBool obj "respect-image-orientation" @@ -1765,82 +1956,99 @@ attrGet _ = getWebSettingsRespectImageOrientation attrSet _ = setWebSettingsRespectImageOrientation attrConstruct _ = constructWebSettingsRespectImageOrientation + attrClear _ = undefined -- VVV Prop "sans-serif-font-family" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + -- Nullable: (Nothing,Nothing) -getWebSettingsSansSerifFontFamily :: (MonadIO m, WebSettingsK o) => o -> m T.Text +getWebSettingsSansSerifFontFamily :: (MonadIO m, WebSettingsK o) => o -> m (Maybe T.Text) getWebSettingsSansSerifFontFamily obj = liftIO $ getObjectPropertyString obj "sans-serif-font-family" setWebSettingsSansSerifFontFamily :: (MonadIO m, WebSettingsK o) => o -> T.Text -> m () -setWebSettingsSansSerifFontFamily obj val = liftIO $ setObjectPropertyString obj "sans-serif-font-family" val +setWebSettingsSansSerifFontFamily obj val = liftIO $ setObjectPropertyString obj "sans-serif-font-family" (Just val) constructWebSettingsSansSerifFontFamily :: T.Text -> IO ([Char], GValue) -constructWebSettingsSansSerifFontFamily val = constructObjectPropertyString "sans-serif-font-family" val +constructWebSettingsSansSerifFontFamily val = constructObjectPropertyString "sans-serif-font-family" (Just val) +clearWebSettingsSansSerifFontFamily :: (MonadIO m, WebSettingsK o) => o -> m () +clearWebSettingsSansSerifFontFamily obj = liftIO $ setObjectPropertyString obj "sans-serif-font-family" (Nothing :: Maybe T.Text) + data WebSettingsSansSerifFontFamilyPropertyInfo instance AttrInfo WebSettingsSansSerifFontFamilyPropertyInfo where - type AttrAllowedOps WebSettingsSansSerifFontFamilyPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrAllowedOps WebSettingsSansSerifFontFamilyPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint WebSettingsSansSerifFontFamilyPropertyInfo = (~) T.Text type AttrBaseTypeConstraint WebSettingsSansSerifFontFamilyPropertyInfo = WebSettingsK - type AttrGetType WebSettingsSansSerifFontFamilyPropertyInfo = T.Text + type AttrGetType WebSettingsSansSerifFontFamilyPropertyInfo = (Maybe T.Text) type AttrLabel WebSettingsSansSerifFontFamilyPropertyInfo = "sans-serif-font-family" attrGet _ = getWebSettingsSansSerifFontFamily attrSet _ = setWebSettingsSansSerifFontFamily attrConstruct _ = constructWebSettingsSansSerifFontFamily + attrClear _ = clearWebSettingsSansSerifFontFamily -- VVV Prop "serif-font-family" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + -- Nullable: (Nothing,Nothing) -getWebSettingsSerifFontFamily :: (MonadIO m, WebSettingsK o) => o -> m T.Text +getWebSettingsSerifFontFamily :: (MonadIO m, WebSettingsK o) => o -> m (Maybe T.Text) getWebSettingsSerifFontFamily obj = liftIO $ getObjectPropertyString obj "serif-font-family" setWebSettingsSerifFontFamily :: (MonadIO m, WebSettingsK o) => o -> T.Text -> m () -setWebSettingsSerifFontFamily obj val = liftIO $ setObjectPropertyString obj "serif-font-family" val +setWebSettingsSerifFontFamily obj val = liftIO $ setObjectPropertyString obj "serif-font-family" (Just val) constructWebSettingsSerifFontFamily :: T.Text -> IO ([Char], GValue) -constructWebSettingsSerifFontFamily val = constructObjectPropertyString "serif-font-family" val +constructWebSettingsSerifFontFamily val = constructObjectPropertyString "serif-font-family" (Just val) +clearWebSettingsSerifFontFamily :: (MonadIO m, WebSettingsK o) => o -> m () +clearWebSettingsSerifFontFamily obj = liftIO $ setObjectPropertyString obj "serif-font-family" (Nothing :: Maybe T.Text) + data WebSettingsSerifFontFamilyPropertyInfo instance AttrInfo WebSettingsSerifFontFamilyPropertyInfo where - type AttrAllowedOps WebSettingsSerifFontFamilyPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrAllowedOps WebSettingsSerifFontFamilyPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint WebSettingsSerifFontFamilyPropertyInfo = (~) T.Text type AttrBaseTypeConstraint WebSettingsSerifFontFamilyPropertyInfo = WebSettingsK - type AttrGetType WebSettingsSerifFontFamilyPropertyInfo = T.Text + type AttrGetType WebSettingsSerifFontFamilyPropertyInfo = (Maybe T.Text) type AttrLabel WebSettingsSerifFontFamilyPropertyInfo = "serif-font-family" attrGet _ = getWebSettingsSerifFontFamily attrSet _ = setWebSettingsSerifFontFamily attrConstruct _ = constructWebSettingsSerifFontFamily + attrClear _ = clearWebSettingsSerifFontFamily -- VVV Prop "spell-checking-languages" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + -- Nullable: (Nothing,Nothing) -getWebSettingsSpellCheckingLanguages :: (MonadIO m, WebSettingsK o) => o -> m T.Text +getWebSettingsSpellCheckingLanguages :: (MonadIO m, WebSettingsK o) => o -> m (Maybe T.Text) getWebSettingsSpellCheckingLanguages obj = liftIO $ getObjectPropertyString obj "spell-checking-languages" setWebSettingsSpellCheckingLanguages :: (MonadIO m, WebSettingsK o) => o -> T.Text -> m () -setWebSettingsSpellCheckingLanguages obj val = liftIO $ setObjectPropertyString obj "spell-checking-languages" val +setWebSettingsSpellCheckingLanguages obj val = liftIO $ setObjectPropertyString obj "spell-checking-languages" (Just val) constructWebSettingsSpellCheckingLanguages :: T.Text -> IO ([Char], GValue) -constructWebSettingsSpellCheckingLanguages val = constructObjectPropertyString "spell-checking-languages" val +constructWebSettingsSpellCheckingLanguages val = constructObjectPropertyString "spell-checking-languages" (Just val) +clearWebSettingsSpellCheckingLanguages :: (MonadIO m, WebSettingsK o) => o -> m () +clearWebSettingsSpellCheckingLanguages obj = liftIO $ setObjectPropertyString obj "spell-checking-languages" (Nothing :: Maybe T.Text) + data WebSettingsSpellCheckingLanguagesPropertyInfo instance AttrInfo WebSettingsSpellCheckingLanguagesPropertyInfo where - type AttrAllowedOps WebSettingsSpellCheckingLanguagesPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrAllowedOps WebSettingsSpellCheckingLanguagesPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint WebSettingsSpellCheckingLanguagesPropertyInfo = (~) T.Text type AttrBaseTypeConstraint WebSettingsSpellCheckingLanguagesPropertyInfo = WebSettingsK - type AttrGetType WebSettingsSpellCheckingLanguagesPropertyInfo = T.Text + type AttrGetType WebSettingsSpellCheckingLanguagesPropertyInfo = (Maybe T.Text) type AttrLabel WebSettingsSpellCheckingLanguagesPropertyInfo = "spell-checking-languages" attrGet _ = getWebSettingsSpellCheckingLanguages attrSet _ = setWebSettingsSpellCheckingLanguages attrConstruct _ = constructWebSettingsSpellCheckingLanguages + attrClear _ = clearWebSettingsSpellCheckingLanguages -- VVV Prop "tab-key-cycles-through-elements" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + -- Nullable: (Nothing,Nothing) getWebSettingsTabKeyCyclesThroughElements :: (MonadIO m, WebSettingsK o) => o -> m Bool getWebSettingsTabKeyCyclesThroughElements obj = liftIO $ getObjectPropertyBool obj "tab-key-cycles-through-elements" @@ -1861,23 +2069,28 @@ attrGet _ = getWebSettingsTabKeyCyclesThroughElements attrSet _ = setWebSettingsTabKeyCyclesThroughElements attrConstruct _ = constructWebSettingsTabKeyCyclesThroughElements + attrClear _ = undefined -- VVV Prop "user-agent" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + -- Nullable: (Just False,Nothing) getWebSettingsUserAgent :: (MonadIO m, WebSettingsK o) => o -> m T.Text -getWebSettingsUserAgent obj = liftIO $ getObjectPropertyString obj "user-agent" +getWebSettingsUserAgent obj = liftIO $ checkUnexpectedNothing "getWebSettingsUserAgent" $ getObjectPropertyString obj "user-agent" setWebSettingsUserAgent :: (MonadIO m, WebSettingsK o) => o -> T.Text -> m () -setWebSettingsUserAgent obj val = liftIO $ setObjectPropertyString obj "user-agent" val +setWebSettingsUserAgent obj val = liftIO $ setObjectPropertyString obj "user-agent" (Just val) constructWebSettingsUserAgent :: T.Text -> IO ([Char], GValue) -constructWebSettingsUserAgent val = constructObjectPropertyString "user-agent" val +constructWebSettingsUserAgent val = constructObjectPropertyString "user-agent" (Just val) +clearWebSettingsUserAgent :: (MonadIO m, WebSettingsK o) => o -> m () +clearWebSettingsUserAgent obj = liftIO $ setObjectPropertyString obj "user-agent" (Nothing :: Maybe T.Text) + data WebSettingsUserAgentPropertyInfo instance AttrInfo WebSettingsUserAgentPropertyInfo where - type AttrAllowedOps WebSettingsUserAgentPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrAllowedOps WebSettingsUserAgentPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint WebSettingsUserAgentPropertyInfo = (~) T.Text type AttrBaseTypeConstraint WebSettingsUserAgentPropertyInfo = WebSettingsK type AttrGetType WebSettingsUserAgentPropertyInfo = T.Text @@ -1885,34 +2098,41 @@ attrGet _ = getWebSettingsUserAgent attrSet _ = setWebSettingsUserAgent attrConstruct _ = constructWebSettingsUserAgent + attrClear _ = clearWebSettingsUserAgent -- VVV Prop "user-stylesheet-uri" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + -- Nullable: (Nothing,Nothing) -getWebSettingsUserStylesheetUri :: (MonadIO m, WebSettingsK o) => o -> m T.Text +getWebSettingsUserStylesheetUri :: (MonadIO m, WebSettingsK o) => o -> m (Maybe T.Text) getWebSettingsUserStylesheetUri obj = liftIO $ getObjectPropertyString obj "user-stylesheet-uri" setWebSettingsUserStylesheetUri :: (MonadIO m, WebSettingsK o) => o -> T.Text -> m () -setWebSettingsUserStylesheetUri obj val = liftIO $ setObjectPropertyString obj "user-stylesheet-uri" val +setWebSettingsUserStylesheetUri obj val = liftIO $ setObjectPropertyString obj "user-stylesheet-uri" (Just val) constructWebSettingsUserStylesheetUri :: T.Text -> IO ([Char], GValue) -constructWebSettingsUserStylesheetUri val = constructObjectPropertyString "user-stylesheet-uri" val +constructWebSettingsUserStylesheetUri val = constructObjectPropertyString "user-stylesheet-uri" (Just val) +clearWebSettingsUserStylesheetUri :: (MonadIO m, WebSettingsK o) => o -> m () +clearWebSettingsUserStylesheetUri obj = liftIO $ setObjectPropertyString obj "user-stylesheet-uri" (Nothing :: Maybe T.Text) + data WebSettingsUserStylesheetUriPropertyInfo instance AttrInfo WebSettingsUserStylesheetUriPropertyInfo where - type AttrAllowedOps WebSettingsUserStylesheetUriPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrAllowedOps WebSettingsUserStylesheetUriPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint WebSettingsUserStylesheetUriPropertyInfo = (~) T.Text type AttrBaseTypeConstraint WebSettingsUserStylesheetUriPropertyInfo = WebSettingsK - type AttrGetType WebSettingsUserStylesheetUriPropertyInfo = T.Text + type AttrGetType WebSettingsUserStylesheetUriPropertyInfo = (Maybe T.Text) type AttrLabel WebSettingsUserStylesheetUriPropertyInfo = "user-stylesheet-uri" attrGet _ = getWebSettingsUserStylesheetUri attrSet _ = setWebSettingsUserStylesheetUri attrConstruct _ = constructWebSettingsUserStylesheetUri + attrClear _ = clearWebSettingsUserStylesheetUri -- VVV Prop "zoom-step" -- Type: TBasicType TFloat -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + -- Nullable: (Nothing,Nothing) getWebSettingsZoomStep :: (MonadIO m, WebSettingsK o) => o -> m Float getWebSettingsZoomStep obj = liftIO $ getObjectPropertyFloat obj "zoom-step" @@ -1933,10 +2153,188 @@ attrGet _ = getWebSettingsZoomStep attrSet _ = setWebSettingsZoomStep attrConstruct _ = constructWebSettingsZoomStep + attrClear _ = undefined type instance AttributeList WebSettings = WebSettingsAttributeList type WebSettingsAttributeList = ('[ '("autoLoadImages", WebSettingsAutoLoadImagesPropertyInfo), '("autoResizeWindow", WebSettingsAutoResizeWindowPropertyInfo), '("autoShrinkImages", WebSettingsAutoShrinkImagesPropertyInfo), '("cursiveFontFamily", WebSettingsCursiveFontFamilyPropertyInfo), '("defaultEncoding", WebSettingsDefaultEncodingPropertyInfo), '("defaultFontFamily", WebSettingsDefaultFontFamilyPropertyInfo), '("defaultFontSize", WebSettingsDefaultFontSizePropertyInfo), '("defaultMonospaceFontSize", WebSettingsDefaultMonospaceFontSizePropertyInfo), '("editingBehavior", WebSettingsEditingBehaviorPropertyInfo), '("enableAcceleratedCompositing", WebSettingsEnableAcceleratedCompositingPropertyInfo), '("enableCaretBrowsing", WebSettingsEnableCaretBrowsingPropertyInfo), '("enableDefaultContextMenu", WebSettingsEnableDefaultContextMenuPropertyInfo), '("enableDeveloperExtras", WebSettingsEnableDeveloperExtrasPropertyInfo), '("enableDisplayOfInsecureContent", WebSettingsEnableDisplayOfInsecureContentPropertyInfo), '("enableDnsPrefetching", WebSettingsEnableDnsPrefetchingPropertyInfo), '("enableDomPaste", WebSettingsEnableDomPastePropertyInfo), '("enableFileAccessFromFileUris", WebSettingsEnableFileAccessFromFileUrisPropertyInfo), '("enableFrameFlattening", WebSettingsEnableFrameFlatteningPropertyInfo), '("enableFullscreen", WebSettingsEnableFullscreenPropertyInfo), '("enableHtml5Database", WebSettingsEnableHtml5DatabasePropertyInfo), '("enableHtml5LocalStorage", WebSettingsEnableHtml5LocalStoragePropertyInfo), '("enableHyperlinkAuditing", WebSettingsEnableHyperlinkAuditingPropertyInfo), '("enableJavaApplet", WebSettingsEnableJavaAppletPropertyInfo), '("enableMediaStream", WebSettingsEnableMediaStreamPropertyInfo), '("enableMediasource", WebSettingsEnableMediasourcePropertyInfo), '("enableOfflineWebApplicationCache", WebSettingsEnableOfflineWebApplicationCachePropertyInfo), '("enablePageCache", WebSettingsEnablePageCachePropertyInfo), '("enablePlugins", WebSettingsEnablePluginsPropertyInfo), '("enablePrivateBrowsing", WebSettingsEnablePrivateBrowsingPropertyInfo), '("enableRunningOfInsecureContent", WebSettingsEnableRunningOfInsecureContentPropertyInfo), '("enableScripts", WebSettingsEnableScriptsPropertyInfo), '("enableSiteSpecificQuirks", WebSettingsEnableSiteSpecificQuirksPropertyInfo), '("enableSmoothScrolling", WebSettingsEnableSmoothScrollingPropertyInfo), '("enableSpatialNavigation", WebSettingsEnableSpatialNavigationPropertyInfo), '("enableSpellChecking", WebSettingsEnableSpellCheckingPropertyInfo), '("enableUniversalAccessFromFileUris", WebSettingsEnableUniversalAccessFromFileUrisPropertyInfo), '("enableWebaudio", WebSettingsEnableWebaudioPropertyInfo), '("enableWebgl", WebSettingsEnableWebglPropertyInfo), '("enableXssAuditor", WebSettingsEnableXssAuditorPropertyInfo), '("enforce96Dpi", WebSettingsEnforce96DpiPropertyInfo), '("fantasyFontFamily", WebSettingsFantasyFontFamilyPropertyInfo), '("html5LocalStorageDatabasePath", WebSettingsHtml5LocalStorageDatabasePathPropertyInfo), '("javascriptCanAccessClipboard", WebSettingsJavascriptCanAccessClipboardPropertyInfo), '("javascriptCanOpenWindowsAutomatically", WebSettingsJavascriptCanOpenWindowsAutomaticallyPropertyInfo), '("mediaPlaybackAllowsInline", WebSettingsMediaPlaybackAllowsInlinePropertyInfo), '("mediaPlaybackRequiresUserGesture", WebSettingsMediaPlaybackRequiresUserGesturePropertyInfo), '("minimumFontSize", WebSettingsMinimumFontSizePropertyInfo), '("minimumLogicalFontSize", WebSettingsMinimumLogicalFontSizePropertyInfo), '("monospaceFontFamily", WebSettingsMonospaceFontFamilyPropertyInfo), '("printBackgrounds", WebSettingsPrintBackgroundsPropertyInfo), '("resizableTextAreas", WebSettingsResizableTextAreasPropertyInfo), '("respectImageOrientation", WebSettingsRespectImageOrientationPropertyInfo), '("sansSerifFontFamily", WebSettingsSansSerifFontFamilyPropertyInfo), '("serifFontFamily", WebSettingsSerifFontFamilyPropertyInfo), '("spellCheckingLanguages", WebSettingsSpellCheckingLanguagesPropertyInfo), '("tabKeyCyclesThroughElements", WebSettingsTabKeyCyclesThroughElementsPropertyInfo), '("userAgent", WebSettingsUserAgentPropertyInfo), '("userStylesheetUri", WebSettingsUserStylesheetUriPropertyInfo), '("zoomStep", WebSettingsZoomStepPropertyInfo)] :: [(Symbol, *)]) +webSettingsAutoLoadImages :: AttrLabelProxy "autoLoadImages" +webSettingsAutoLoadImages = AttrLabelProxy + +webSettingsAutoResizeWindow :: AttrLabelProxy "autoResizeWindow" +webSettingsAutoResizeWindow = AttrLabelProxy + +webSettingsAutoShrinkImages :: AttrLabelProxy "autoShrinkImages" +webSettingsAutoShrinkImages = AttrLabelProxy + +webSettingsCursiveFontFamily :: AttrLabelProxy "cursiveFontFamily" +webSettingsCursiveFontFamily = AttrLabelProxy + +webSettingsDefaultEncoding :: AttrLabelProxy "defaultEncoding" +webSettingsDefaultEncoding = AttrLabelProxy + +webSettingsDefaultFontFamily :: AttrLabelProxy "defaultFontFamily" +webSettingsDefaultFontFamily = AttrLabelProxy + +webSettingsDefaultFontSize :: AttrLabelProxy "defaultFontSize" +webSettingsDefaultFontSize = AttrLabelProxy + +webSettingsDefaultMonospaceFontSize :: AttrLabelProxy "defaultMonospaceFontSize" +webSettingsDefaultMonospaceFontSize = AttrLabelProxy + +webSettingsEditingBehavior :: AttrLabelProxy "editingBehavior" +webSettingsEditingBehavior = AttrLabelProxy + +webSettingsEnableAcceleratedCompositing :: AttrLabelProxy "enableAcceleratedCompositing" +webSettingsEnableAcceleratedCompositing = AttrLabelProxy + +webSettingsEnableCaretBrowsing :: AttrLabelProxy "enableCaretBrowsing" +webSettingsEnableCaretBrowsing = AttrLabelProxy + +webSettingsEnableDefaultContextMenu :: AttrLabelProxy "enableDefaultContextMenu" +webSettingsEnableDefaultContextMenu = AttrLabelProxy + +webSettingsEnableDeveloperExtras :: AttrLabelProxy "enableDeveloperExtras" +webSettingsEnableDeveloperExtras = AttrLabelProxy + +webSettingsEnableDisplayOfInsecureContent :: AttrLabelProxy "enableDisplayOfInsecureContent" +webSettingsEnableDisplayOfInsecureContent = AttrLabelProxy + +webSettingsEnableDnsPrefetching :: AttrLabelProxy "enableDnsPrefetching" +webSettingsEnableDnsPrefetching = AttrLabelProxy + +webSettingsEnableDomPaste :: AttrLabelProxy "enableDomPaste" +webSettingsEnableDomPaste = AttrLabelProxy + +webSettingsEnableFileAccessFromFileUris :: AttrLabelProxy "enableFileAccessFromFileUris" +webSettingsEnableFileAccessFromFileUris = AttrLabelProxy + +webSettingsEnableFrameFlattening :: AttrLabelProxy "enableFrameFlattening" +webSettingsEnableFrameFlattening = AttrLabelProxy + +webSettingsEnableFullscreen :: AttrLabelProxy "enableFullscreen" +webSettingsEnableFullscreen = AttrLabelProxy + +webSettingsEnableHtml5Database :: AttrLabelProxy "enableHtml5Database" +webSettingsEnableHtml5Database = AttrLabelProxy + +webSettingsEnableHtml5LocalStorage :: AttrLabelProxy "enableHtml5LocalStorage" +webSettingsEnableHtml5LocalStorage = AttrLabelProxy + +webSettingsEnableHyperlinkAuditing :: AttrLabelProxy "enableHyperlinkAuditing" +webSettingsEnableHyperlinkAuditing = AttrLabelProxy + +webSettingsEnableJavaApplet :: AttrLabelProxy "enableJavaApplet" +webSettingsEnableJavaApplet = AttrLabelProxy + +webSettingsEnableMediaStream :: AttrLabelProxy "enableMediaStream" +webSettingsEnableMediaStream = AttrLabelProxy + +webSettingsEnableMediasource :: AttrLabelProxy "enableMediasource" +webSettingsEnableMediasource = AttrLabelProxy + +webSettingsEnableOfflineWebApplicationCache :: AttrLabelProxy "enableOfflineWebApplicationCache" +webSettingsEnableOfflineWebApplicationCache = AttrLabelProxy + +webSettingsEnablePageCache :: AttrLabelProxy "enablePageCache" +webSettingsEnablePageCache = AttrLabelProxy + +webSettingsEnablePlugins :: AttrLabelProxy "enablePlugins" +webSettingsEnablePlugins = AttrLabelProxy + +webSettingsEnablePrivateBrowsing :: AttrLabelProxy "enablePrivateBrowsing" +webSettingsEnablePrivateBrowsing = AttrLabelProxy + +webSettingsEnableRunningOfInsecureContent :: AttrLabelProxy "enableRunningOfInsecureContent" +webSettingsEnableRunningOfInsecureContent = AttrLabelProxy + +webSettingsEnableScripts :: AttrLabelProxy "enableScripts" +webSettingsEnableScripts = AttrLabelProxy + +webSettingsEnableSiteSpecificQuirks :: AttrLabelProxy "enableSiteSpecificQuirks" +webSettingsEnableSiteSpecificQuirks = AttrLabelProxy + +webSettingsEnableSmoothScrolling :: AttrLabelProxy "enableSmoothScrolling" +webSettingsEnableSmoothScrolling = AttrLabelProxy + +webSettingsEnableSpatialNavigation :: AttrLabelProxy "enableSpatialNavigation" +webSettingsEnableSpatialNavigation = AttrLabelProxy + +webSettingsEnableSpellChecking :: AttrLabelProxy "enableSpellChecking" +webSettingsEnableSpellChecking = AttrLabelProxy + +webSettingsEnableUniversalAccessFromFileUris :: AttrLabelProxy "enableUniversalAccessFromFileUris" +webSettingsEnableUniversalAccessFromFileUris = AttrLabelProxy + +webSettingsEnableWebaudio :: AttrLabelProxy "enableWebaudio" +webSettingsEnableWebaudio = AttrLabelProxy + +webSettingsEnableWebgl :: AttrLabelProxy "enableWebgl" +webSettingsEnableWebgl = AttrLabelProxy + +webSettingsEnableXssAuditor :: AttrLabelProxy "enableXssAuditor" +webSettingsEnableXssAuditor = AttrLabelProxy + +webSettingsEnforce96Dpi :: AttrLabelProxy "enforce96Dpi" +webSettingsEnforce96Dpi = AttrLabelProxy + +webSettingsFantasyFontFamily :: AttrLabelProxy "fantasyFontFamily" +webSettingsFantasyFontFamily = AttrLabelProxy + +webSettingsHtml5LocalStorageDatabasePath :: AttrLabelProxy "html5LocalStorageDatabasePath" +webSettingsHtml5LocalStorageDatabasePath = AttrLabelProxy + +webSettingsJavascriptCanAccessClipboard :: AttrLabelProxy "javascriptCanAccessClipboard" +webSettingsJavascriptCanAccessClipboard = AttrLabelProxy + +webSettingsJavascriptCanOpenWindowsAutomatically :: AttrLabelProxy "javascriptCanOpenWindowsAutomatically" +webSettingsJavascriptCanOpenWindowsAutomatically = AttrLabelProxy + +webSettingsMediaPlaybackAllowsInline :: AttrLabelProxy "mediaPlaybackAllowsInline" +webSettingsMediaPlaybackAllowsInline = AttrLabelProxy + +webSettingsMediaPlaybackRequiresUserGesture :: AttrLabelProxy "mediaPlaybackRequiresUserGesture" +webSettingsMediaPlaybackRequiresUserGesture = AttrLabelProxy + +webSettingsMinimumFontSize :: AttrLabelProxy "minimumFontSize" +webSettingsMinimumFontSize = AttrLabelProxy + +webSettingsMinimumLogicalFontSize :: AttrLabelProxy "minimumLogicalFontSize" +webSettingsMinimumLogicalFontSize = AttrLabelProxy + +webSettingsMonospaceFontFamily :: AttrLabelProxy "monospaceFontFamily" +webSettingsMonospaceFontFamily = AttrLabelProxy + +webSettingsPrintBackgrounds :: AttrLabelProxy "printBackgrounds" +webSettingsPrintBackgrounds = AttrLabelProxy + +webSettingsResizableTextAreas :: AttrLabelProxy "resizableTextAreas" +webSettingsResizableTextAreas = AttrLabelProxy + +webSettingsRespectImageOrientation :: AttrLabelProxy "respectImageOrientation" +webSettingsRespectImageOrientation = AttrLabelProxy + +webSettingsSansSerifFontFamily :: AttrLabelProxy "sansSerifFontFamily" +webSettingsSansSerifFontFamily = AttrLabelProxy + +webSettingsSerifFontFamily :: AttrLabelProxy "serifFontFamily" +webSettingsSerifFontFamily = AttrLabelProxy + +webSettingsSpellCheckingLanguages :: AttrLabelProxy "spellCheckingLanguages" +webSettingsSpellCheckingLanguages = AttrLabelProxy + +webSettingsTabKeyCyclesThroughElements :: AttrLabelProxy "tabKeyCyclesThroughElements" +webSettingsTabKeyCyclesThroughElements = AttrLabelProxy + +webSettingsUserAgent :: AttrLabelProxy "userAgent" +webSettingsUserAgent = AttrLabelProxy + +webSettingsUserStylesheetUri :: AttrLabelProxy "userStylesheetUri" +webSettingsUserStylesheetUri = AttrLabelProxy + +webSettingsZoomStep :: AttrLabelProxy "zoomStep" +webSettingsZoomStep = AttrLabelProxy + type instance SignalList WebSettings = WebSettingsSignalList type WebSettingsSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) @@ -1944,7 +2342,7 @@ -- method type : Constructor -- Args : [] -- Lengths : [] --- returnType : TInterface "WebKit" "WebSettings" +-- returnType : Just (TInterface "WebKit" "WebSettings") -- throws : False -- Skip return : False @@ -1965,7 +2363,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "WebSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit" "WebSettings" +-- returnType : Just (TInterface "WebKit" "WebSettings") -- throws : False -- Skip return : False @@ -1994,7 +2392,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "WebSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False diff --git a/GI/WebKit/Objects/WebSettings.hs-boot b/GI/WebKit/Objects/WebSettings.hs-boot --- a/GI/WebKit/Objects/WebSettings.hs-boot +++ b/GI/WebKit/Objects/WebSettings.hs-boot @@ -1,8 +1,8 @@ module GI.WebKit.Objects.WebSettings where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map diff --git a/GI/WebKit/Objects/WebView.hs b/GI/WebKit/Objects/WebView.hs --- a/GI/WebKit/Objects/WebView.hs +++ b/GI/WebKit/Objects/WebView.hs @@ -392,6 +392,7 @@ -- ** CopyTargetList WebViewCopyTargetListPropertyInfo , getWebViewCopyTargetList , + webViewCopyTargetList , -- ** CustomEncoding @@ -399,6 +400,7 @@ constructWebViewCustomEncoding , getWebViewCustomEncoding , setWebViewCustomEncoding , + webViewCustomEncoding , -- ** Editable @@ -406,11 +408,13 @@ constructWebViewEditable , getWebViewEditable , setWebViewEditable , + webViewEditable , -- ** Encoding WebViewEncodingPropertyInfo , getWebViewEncoding , + webViewEncoding , -- ** FullContentZoom @@ -418,37 +422,44 @@ constructWebViewFullContentZoom , getWebViewFullContentZoom , setWebViewFullContentZoom , + webViewFullContentZoom , -- ** IconUri WebViewIconUriPropertyInfo , getWebViewIconUri , + webViewIconUri , -- ** ImContext WebViewImContextPropertyInfo , getWebViewImContext , + webViewImContext , -- ** LoadStatus WebViewLoadStatusPropertyInfo , getWebViewLoadStatus , + webViewLoadStatus , -- ** PasteTargetList WebViewPasteTargetListPropertyInfo , getWebViewPasteTargetList , + webViewPasteTargetList , -- ** Progress WebViewProgressPropertyInfo , getWebViewProgress , + webViewProgress , -- ** SelfScrolling WebViewSelfScrollingPropertyInfo , constructWebViewSelfScrolling , getWebViewSelfScrolling , + webViewSelfScrolling , -- ** Settings @@ -456,11 +467,13 @@ constructWebViewSettings , getWebViewSettings , setWebViewSettings , + webViewSettings , -- ** Title WebViewTitlePropertyInfo , getWebViewTitle , + webViewTitle , -- ** Transparent @@ -468,11 +481,13 @@ constructWebViewTransparent , getWebViewTransparent , setWebViewTransparent , + webViewTransparent , -- ** Uri WebViewUriPropertyInfo , getWebViewUri , + webViewUri , -- ** ViewMode @@ -480,23 +495,28 @@ constructWebViewViewMode , getWebViewViewMode , setWebViewViewMode , + webViewViewMode , -- ** ViewportAttributes WebViewViewportAttributesPropertyInfo , getWebViewViewportAttributes , + webViewViewportAttributes , -- ** WebInspector WebViewWebInspectorPropertyInfo , getWebViewWebInspector , + webViewWebInspector , -- ** WindowFeatures WebViewWindowFeaturesPropertyInfo , + clearWebViewWindowFeatures , constructWebViewWindowFeatures , getWebViewWindowFeatures , setWebViewWindowFeatures , + webViewWindowFeatures , -- ** ZoomLevel @@ -504,6 +524,7 @@ constructWebViewZoomLevel , getWebViewZoomLevel , setWebViewZoomLevel , + webViewZoomLevel , @@ -1245,9 +1266,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map @@ -4450,33 +4471,36 @@ -- VVV Prop "copy-target-list" -- Type: TInterface "Gtk" "TargetList" -- Flags: [PropertyReadable] + -- Nullable: (Nothing,Nothing) -getWebViewCopyTargetList :: (MonadIO m, WebViewK o) => o -> m Gtk.TargetList +getWebViewCopyTargetList :: (MonadIO m, WebViewK o) => o -> m (Maybe Gtk.TargetList) getWebViewCopyTargetList obj = liftIO $ getObjectPropertyBoxed obj "copy-target-list" Gtk.TargetList data WebViewCopyTargetListPropertyInfo instance AttrInfo WebViewCopyTargetListPropertyInfo where - type AttrAllowedOps WebViewCopyTargetListPropertyInfo = '[ 'AttrGet] + type AttrAllowedOps WebViewCopyTargetListPropertyInfo = '[ 'AttrGet, 'AttrClear] type AttrSetTypeConstraint WebViewCopyTargetListPropertyInfo = (~) () type AttrBaseTypeConstraint WebViewCopyTargetListPropertyInfo = WebViewK - type AttrGetType WebViewCopyTargetListPropertyInfo = Gtk.TargetList + type AttrGetType WebViewCopyTargetListPropertyInfo = (Maybe Gtk.TargetList) type AttrLabel WebViewCopyTargetListPropertyInfo = "copy-target-list" attrGet _ = getWebViewCopyTargetList attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "custom-encoding" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getWebViewCustomEncoding :: (MonadIO m, WebViewK o) => o -> m T.Text -getWebViewCustomEncoding obj = liftIO $ getObjectPropertyString obj "custom-encoding" +getWebViewCustomEncoding obj = liftIO $ checkUnexpectedNothing "getWebViewCustomEncoding" $ getObjectPropertyString obj "custom-encoding" setWebViewCustomEncoding :: (MonadIO m, WebViewK o) => o -> T.Text -> m () -setWebViewCustomEncoding obj val = liftIO $ setObjectPropertyString obj "custom-encoding" val +setWebViewCustomEncoding obj val = liftIO $ setObjectPropertyString obj "custom-encoding" (Just val) constructWebViewCustomEncoding :: T.Text -> IO ([Char], GValue) -constructWebViewCustomEncoding val = constructObjectPropertyString "custom-encoding" val +constructWebViewCustomEncoding val = constructObjectPropertyString "custom-encoding" (Just val) data WebViewCustomEncodingPropertyInfo instance AttrInfo WebViewCustomEncodingPropertyInfo where @@ -4488,10 +4512,12 @@ attrGet _ = getWebViewCustomEncoding attrSet _ = setWebViewCustomEncoding attrConstruct _ = constructWebViewCustomEncoding + attrClear _ = undefined -- VVV Prop "editable" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getWebViewEditable :: (MonadIO m, WebViewK o) => o -> m Bool getWebViewEditable obj = liftIO $ getObjectPropertyBool obj "editable" @@ -4512,17 +4538,19 @@ attrGet _ = getWebViewEditable attrSet _ = setWebViewEditable attrConstruct _ = constructWebViewEditable + attrClear _ = undefined -- VVV Prop "encoding" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) getWebViewEncoding :: (MonadIO m, WebViewK o) => o -> m T.Text -getWebViewEncoding obj = liftIO $ getObjectPropertyString obj "encoding" +getWebViewEncoding obj = liftIO $ checkUnexpectedNothing "getWebViewEncoding" $ getObjectPropertyString obj "encoding" data WebViewEncodingPropertyInfo instance AttrInfo WebViewEncodingPropertyInfo where - type AttrAllowedOps WebViewEncodingPropertyInfo = '[ 'AttrGet] + type AttrAllowedOps WebViewEncodingPropertyInfo = '[ 'AttrGet, 'AttrClear] type AttrSetTypeConstraint WebViewEncodingPropertyInfo = (~) () type AttrBaseTypeConstraint WebViewEncodingPropertyInfo = WebViewK type AttrGetType WebViewEncodingPropertyInfo = T.Text @@ -4530,10 +4558,12 @@ attrGet _ = getWebViewEncoding attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "full-content-zoom" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getWebViewFullContentZoom :: (MonadIO m, WebViewK o) => o -> m Bool getWebViewFullContentZoom obj = liftIO $ getObjectPropertyBool obj "full-content-zoom" @@ -4554,17 +4584,19 @@ attrGet _ = getWebViewFullContentZoom attrSet _ = setWebViewFullContentZoom attrConstruct _ = constructWebViewFullContentZoom + attrClear _ = undefined -- VVV Prop "icon-uri" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) getWebViewIconUri :: (MonadIO m, WebViewK o) => o -> m T.Text -getWebViewIconUri obj = liftIO $ getObjectPropertyString obj "icon-uri" +getWebViewIconUri obj = liftIO $ checkUnexpectedNothing "getWebViewIconUri" $ getObjectPropertyString obj "icon-uri" data WebViewIconUriPropertyInfo instance AttrInfo WebViewIconUriPropertyInfo where - type AttrAllowedOps WebViewIconUriPropertyInfo = '[ 'AttrGet] + type AttrAllowedOps WebViewIconUriPropertyInfo = '[ 'AttrGet, 'AttrClear] type AttrSetTypeConstraint WebViewIconUriPropertyInfo = (~) () type AttrBaseTypeConstraint WebViewIconUriPropertyInfo = WebViewK type AttrGetType WebViewIconUriPropertyInfo = T.Text @@ -4572,28 +4604,32 @@ attrGet _ = getWebViewIconUri attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "im-context" -- Type: TInterface "Gtk" "IMContext" -- Flags: [PropertyReadable] + -- Nullable: (Nothing,Nothing) -getWebViewImContext :: (MonadIO m, WebViewK o) => o -> m Gtk.IMContext +getWebViewImContext :: (MonadIO m, WebViewK o) => o -> m (Maybe Gtk.IMContext) getWebViewImContext obj = liftIO $ getObjectPropertyObject obj "im-context" Gtk.IMContext data WebViewImContextPropertyInfo instance AttrInfo WebViewImContextPropertyInfo where - type AttrAllowedOps WebViewImContextPropertyInfo = '[ 'AttrGet] + type AttrAllowedOps WebViewImContextPropertyInfo = '[ 'AttrGet, 'AttrClear] type AttrSetTypeConstraint WebViewImContextPropertyInfo = (~) () type AttrBaseTypeConstraint WebViewImContextPropertyInfo = WebViewK - type AttrGetType WebViewImContextPropertyInfo = Gtk.IMContext + type AttrGetType WebViewImContextPropertyInfo = (Maybe Gtk.IMContext) type AttrLabel WebViewImContextPropertyInfo = "im-context" attrGet _ = getWebViewImContext attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "load-status" -- Type: TInterface "WebKit" "LoadStatus" -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) getWebViewLoadStatus :: (MonadIO m, WebViewK o) => o -> m LoadStatus getWebViewLoadStatus obj = liftIO $ getObjectPropertyEnum obj "load-status" @@ -4608,28 +4644,32 @@ attrGet _ = getWebViewLoadStatus attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "paste-target-list" -- Type: TInterface "Gtk" "TargetList" -- Flags: [PropertyReadable] + -- Nullable: (Nothing,Nothing) -getWebViewPasteTargetList :: (MonadIO m, WebViewK o) => o -> m Gtk.TargetList +getWebViewPasteTargetList :: (MonadIO m, WebViewK o) => o -> m (Maybe Gtk.TargetList) getWebViewPasteTargetList obj = liftIO $ getObjectPropertyBoxed obj "paste-target-list" Gtk.TargetList data WebViewPasteTargetListPropertyInfo instance AttrInfo WebViewPasteTargetListPropertyInfo where - type AttrAllowedOps WebViewPasteTargetListPropertyInfo = '[ 'AttrGet] + type AttrAllowedOps WebViewPasteTargetListPropertyInfo = '[ 'AttrGet, 'AttrClear] type AttrSetTypeConstraint WebViewPasteTargetListPropertyInfo = (~) () type AttrBaseTypeConstraint WebViewPasteTargetListPropertyInfo = WebViewK - type AttrGetType WebViewPasteTargetListPropertyInfo = Gtk.TargetList + type AttrGetType WebViewPasteTargetListPropertyInfo = (Maybe Gtk.TargetList) type AttrLabel WebViewPasteTargetListPropertyInfo = "paste-target-list" attrGet _ = getWebViewPasteTargetList attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "progress" -- Type: TBasicType TDouble -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) getWebViewProgress :: (MonadIO m, WebViewK o) => o -> m Double getWebViewProgress obj = liftIO $ getObjectPropertyDouble obj "progress" @@ -4644,10 +4684,12 @@ attrGet _ = getWebViewProgress attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "self-scrolling" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] + -- Nullable: (Nothing,Nothing) getWebViewSelfScrolling :: (MonadIO m, WebViewK o) => o -> m Bool getWebViewSelfScrolling obj = liftIO $ getObjectPropertyBool obj "self-scrolling" @@ -4665,19 +4707,21 @@ attrGet _ = getWebViewSelfScrolling attrSet _ = undefined attrConstruct _ = constructWebViewSelfScrolling + attrClear _ = undefined -- VVV Prop "settings" -- Type: TInterface "WebKit" "WebSettings" -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getWebViewSettings :: (MonadIO m, WebViewK o) => o -> m WebSettings -getWebViewSettings obj = liftIO $ getObjectPropertyObject obj "settings" WebSettings +getWebViewSettings obj = liftIO $ checkUnexpectedNothing "getWebViewSettings" $ getObjectPropertyObject obj "settings" WebSettings setWebViewSettings :: (MonadIO m, WebViewK o, WebSettingsK a) => o -> a -> m () -setWebViewSettings obj val = liftIO $ setObjectPropertyObject obj "settings" val +setWebViewSettings obj val = liftIO $ setObjectPropertyObject obj "settings" (Just val) constructWebViewSettings :: (WebSettingsK a) => a -> IO ([Char], GValue) -constructWebViewSettings val = constructObjectPropertyObject "settings" val +constructWebViewSettings val = constructObjectPropertyObject "settings" (Just val) data WebViewSettingsPropertyInfo instance AttrInfo WebViewSettingsPropertyInfo where @@ -4689,17 +4733,19 @@ attrGet _ = getWebViewSettings attrSet _ = setWebViewSettings attrConstruct _ = constructWebViewSettings + attrClear _ = undefined -- VVV Prop "title" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) getWebViewTitle :: (MonadIO m, WebViewK o) => o -> m T.Text -getWebViewTitle obj = liftIO $ getObjectPropertyString obj "title" +getWebViewTitle obj = liftIO $ checkUnexpectedNothing "getWebViewTitle" $ getObjectPropertyString obj "title" data WebViewTitlePropertyInfo instance AttrInfo WebViewTitlePropertyInfo where - type AttrAllowedOps WebViewTitlePropertyInfo = '[ 'AttrGet] + type AttrAllowedOps WebViewTitlePropertyInfo = '[ 'AttrGet, 'AttrClear] type AttrSetTypeConstraint WebViewTitlePropertyInfo = (~) () type AttrBaseTypeConstraint WebViewTitlePropertyInfo = WebViewK type AttrGetType WebViewTitlePropertyInfo = T.Text @@ -4707,10 +4753,12 @@ attrGet _ = getWebViewTitle attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "transparent" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getWebViewTransparent :: (MonadIO m, WebViewK o) => o -> m Bool getWebViewTransparent obj = liftIO $ getObjectPropertyBool obj "transparent" @@ -4731,28 +4779,32 @@ attrGet _ = getWebViewTransparent attrSet _ = setWebViewTransparent attrConstruct _ = constructWebViewTransparent + attrClear _ = undefined -- VVV Prop "uri" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable] + -- Nullable: (Just True,Nothing) -getWebViewUri :: (MonadIO m, WebViewK o) => o -> m T.Text +getWebViewUri :: (MonadIO m, WebViewK o) => o -> m (Maybe T.Text) getWebViewUri obj = liftIO $ getObjectPropertyString obj "uri" data WebViewUriPropertyInfo instance AttrInfo WebViewUriPropertyInfo where - type AttrAllowedOps WebViewUriPropertyInfo = '[ 'AttrGet] + type AttrAllowedOps WebViewUriPropertyInfo = '[ 'AttrGet, 'AttrClear] type AttrSetTypeConstraint WebViewUriPropertyInfo = (~) () type AttrBaseTypeConstraint WebViewUriPropertyInfo = WebViewK - type AttrGetType WebViewUriPropertyInfo = T.Text + type AttrGetType WebViewUriPropertyInfo = (Maybe T.Text) type AttrLabel WebViewUriPropertyInfo = "uri" attrGet _ = getWebViewUri attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "view-mode" -- Type: TInterface "WebKit" "WebViewViewMode" -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getWebViewViewMode :: (MonadIO m, WebViewK o) => o -> m WebViewViewMode getWebViewViewMode obj = liftIO $ getObjectPropertyEnum obj "view-mode" @@ -4773,17 +4825,19 @@ attrGet _ = getWebViewViewMode attrSet _ = setWebViewViewMode attrConstruct _ = constructWebViewViewMode + attrClear _ = undefined -- VVV Prop "viewport-attributes" -- Type: TInterface "WebKit" "ViewportAttributes" -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) getWebViewViewportAttributes :: (MonadIO m, WebViewK o) => o -> m ViewportAttributes -getWebViewViewportAttributes obj = liftIO $ getObjectPropertyObject obj "viewport-attributes" ViewportAttributes +getWebViewViewportAttributes obj = liftIO $ checkUnexpectedNothing "getWebViewViewportAttributes" $ getObjectPropertyObject obj "viewport-attributes" ViewportAttributes data WebViewViewportAttributesPropertyInfo instance AttrInfo WebViewViewportAttributesPropertyInfo where - type AttrAllowedOps WebViewViewportAttributesPropertyInfo = '[ 'AttrGet] + type AttrAllowedOps WebViewViewportAttributesPropertyInfo = '[ 'AttrGet, 'AttrClear] type AttrSetTypeConstraint WebViewViewportAttributesPropertyInfo = (~) () type AttrBaseTypeConstraint WebViewViewportAttributesPropertyInfo = WebViewK type AttrGetType WebViewViewportAttributesPropertyInfo = ViewportAttributes @@ -4791,41 +4845,48 @@ attrGet _ = getWebViewViewportAttributes attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "web-inspector" -- Type: TInterface "WebKit" "WebInspector" -- Flags: [PropertyReadable] + -- Nullable: (Nothing,Nothing) -getWebViewWebInspector :: (MonadIO m, WebViewK o) => o -> m WebInspector +getWebViewWebInspector :: (MonadIO m, WebViewK o) => o -> m (Maybe WebInspector) getWebViewWebInspector obj = liftIO $ getObjectPropertyObject obj "web-inspector" WebInspector data WebViewWebInspectorPropertyInfo instance AttrInfo WebViewWebInspectorPropertyInfo where - type AttrAllowedOps WebViewWebInspectorPropertyInfo = '[ 'AttrGet] + type AttrAllowedOps WebViewWebInspectorPropertyInfo = '[ 'AttrGet, 'AttrClear] type AttrSetTypeConstraint WebViewWebInspectorPropertyInfo = (~) () type AttrBaseTypeConstraint WebViewWebInspectorPropertyInfo = WebViewK - type AttrGetType WebViewWebInspectorPropertyInfo = WebInspector + type AttrGetType WebViewWebInspectorPropertyInfo = (Maybe WebInspector) type AttrLabel WebViewWebInspectorPropertyInfo = "web-inspector" attrGet _ = getWebViewWebInspector attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "window-features" -- Type: TInterface "WebKit" "WebWindowFeatures" -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Nothing) getWebViewWindowFeatures :: (MonadIO m, WebViewK o) => o -> m WebWindowFeatures -getWebViewWindowFeatures obj = liftIO $ getObjectPropertyObject obj "window-features" WebWindowFeatures +getWebViewWindowFeatures obj = liftIO $ checkUnexpectedNothing "getWebViewWindowFeatures" $ getObjectPropertyObject obj "window-features" WebWindowFeatures setWebViewWindowFeatures :: (MonadIO m, WebViewK o, WebWindowFeaturesK a) => o -> a -> m () -setWebViewWindowFeatures obj val = liftIO $ setObjectPropertyObject obj "window-features" val +setWebViewWindowFeatures obj val = liftIO $ setObjectPropertyObject obj "window-features" (Just val) constructWebViewWindowFeatures :: (WebWindowFeaturesK a) => a -> IO ([Char], GValue) -constructWebViewWindowFeatures val = constructObjectPropertyObject "window-features" val +constructWebViewWindowFeatures val = constructObjectPropertyObject "window-features" (Just val) +clearWebViewWindowFeatures :: (MonadIO m, WebViewK o) => o -> m () +clearWebViewWindowFeatures obj = liftIO $ setObjectPropertyObject obj "window-features" (Nothing :: Maybe WebWindowFeatures) + data WebViewWindowFeaturesPropertyInfo instance AttrInfo WebViewWindowFeaturesPropertyInfo where - type AttrAllowedOps WebViewWindowFeaturesPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrAllowedOps WebViewWindowFeaturesPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint WebViewWindowFeaturesPropertyInfo = WebWindowFeaturesK type AttrBaseTypeConstraint WebViewWindowFeaturesPropertyInfo = WebViewK type AttrGetType WebViewWindowFeaturesPropertyInfo = WebWindowFeatures @@ -4833,10 +4894,12 @@ attrGet _ = getWebViewWindowFeatures attrSet _ = setWebViewWindowFeatures attrConstruct _ = constructWebViewWindowFeatures + attrClear _ = clearWebViewWindowFeatures -- VVV Prop "zoom-level" -- Type: TBasicType TFloat -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getWebViewZoomLevel :: (MonadIO m, WebViewK o) => o -> m Float getWebViewZoomLevel obj = liftIO $ getObjectPropertyFloat obj "zoom-level" @@ -4857,10 +4920,71 @@ attrGet _ = getWebViewZoomLevel attrSet _ = setWebViewZoomLevel attrConstruct _ = constructWebViewZoomLevel + attrClear _ = undefined type instance AttributeList WebView = WebViewAttributeList type WebViewAttributeList = ('[ '("appPaintable", Gtk.WidgetAppPaintablePropertyInfo), '("borderWidth", Gtk.ContainerBorderWidthPropertyInfo), '("canDefault", Gtk.WidgetCanDefaultPropertyInfo), '("canFocus", Gtk.WidgetCanFocusPropertyInfo), '("child", Gtk.ContainerChildPropertyInfo), '("compositeChild", Gtk.WidgetCompositeChildPropertyInfo), '("copyTargetList", WebViewCopyTargetListPropertyInfo), '("customEncoding", WebViewCustomEncodingPropertyInfo), '("doubleBuffered", Gtk.WidgetDoubleBufferedPropertyInfo), '("editable", WebViewEditablePropertyInfo), '("encoding", WebViewEncodingPropertyInfo), '("events", Gtk.WidgetEventsPropertyInfo), '("expand", Gtk.WidgetExpandPropertyInfo), '("fullContentZoom", WebViewFullContentZoomPropertyInfo), '("hadjustment", Gtk.ScrollableHadjustmentPropertyInfo), '("halign", Gtk.WidgetHalignPropertyInfo), '("hasDefault", Gtk.WidgetHasDefaultPropertyInfo), '("hasFocus", Gtk.WidgetHasFocusPropertyInfo), '("hasTooltip", Gtk.WidgetHasTooltipPropertyInfo), '("heightRequest", Gtk.WidgetHeightRequestPropertyInfo), '("hexpand", Gtk.WidgetHexpandPropertyInfo), '("hexpandSet", Gtk.WidgetHexpandSetPropertyInfo), '("hscrollPolicy", Gtk.ScrollableHscrollPolicyPropertyInfo), '("iconUri", WebViewIconUriPropertyInfo), '("imContext", WebViewImContextPropertyInfo), '("isFocus", Gtk.WidgetIsFocusPropertyInfo), '("loadStatus", WebViewLoadStatusPropertyInfo), '("margin", Gtk.WidgetMarginPropertyInfo), '("marginBottom", Gtk.WidgetMarginBottomPropertyInfo), '("marginEnd", Gtk.WidgetMarginEndPropertyInfo), '("marginLeft", Gtk.WidgetMarginLeftPropertyInfo), '("marginRight", Gtk.WidgetMarginRightPropertyInfo), '("marginStart", Gtk.WidgetMarginStartPropertyInfo), '("marginTop", Gtk.WidgetMarginTopPropertyInfo), '("name", Gtk.WidgetNamePropertyInfo), '("noShowAll", Gtk.WidgetNoShowAllPropertyInfo), '("opacity", Gtk.WidgetOpacityPropertyInfo), '("parent", Gtk.WidgetParentPropertyInfo), '("pasteTargetList", WebViewPasteTargetListPropertyInfo), '("progress", WebViewProgressPropertyInfo), '("receivesDefault", Gtk.WidgetReceivesDefaultPropertyInfo), '("resizeMode", Gtk.ContainerResizeModePropertyInfo), '("scaleFactor", Gtk.WidgetScaleFactorPropertyInfo), '("selfScrolling", WebViewSelfScrollingPropertyInfo), '("sensitive", Gtk.WidgetSensitivePropertyInfo), '("settings", WebViewSettingsPropertyInfo), '("style", Gtk.WidgetStylePropertyInfo), '("title", WebViewTitlePropertyInfo), '("tooltipMarkup", Gtk.WidgetTooltipMarkupPropertyInfo), '("tooltipText", Gtk.WidgetTooltipTextPropertyInfo), '("transparent", WebViewTransparentPropertyInfo), '("uri", WebViewUriPropertyInfo), '("vadjustment", Gtk.ScrollableVadjustmentPropertyInfo), '("valign", Gtk.WidgetValignPropertyInfo), '("vexpand", Gtk.WidgetVexpandPropertyInfo), '("vexpandSet", Gtk.WidgetVexpandSetPropertyInfo), '("viewMode", WebViewViewModePropertyInfo), '("viewportAttributes", WebViewViewportAttributesPropertyInfo), '("visible", Gtk.WidgetVisiblePropertyInfo), '("vscrollPolicy", Gtk.ScrollableVscrollPolicyPropertyInfo), '("webInspector", WebViewWebInspectorPropertyInfo), '("widthRequest", Gtk.WidgetWidthRequestPropertyInfo), '("window", Gtk.WidgetWindowPropertyInfo), '("windowFeatures", WebViewWindowFeaturesPropertyInfo), '("zoomLevel", WebViewZoomLevelPropertyInfo)] :: [(Symbol, *)]) +webViewCopyTargetList :: AttrLabelProxy "copyTargetList" +webViewCopyTargetList = AttrLabelProxy + +webViewCustomEncoding :: AttrLabelProxy "customEncoding" +webViewCustomEncoding = AttrLabelProxy + +webViewEditable :: AttrLabelProxy "editable" +webViewEditable = AttrLabelProxy + +webViewEncoding :: AttrLabelProxy "encoding" +webViewEncoding = AttrLabelProxy + +webViewFullContentZoom :: AttrLabelProxy "fullContentZoom" +webViewFullContentZoom = AttrLabelProxy + +webViewIconUri :: AttrLabelProxy "iconUri" +webViewIconUri = AttrLabelProxy + +webViewImContext :: AttrLabelProxy "imContext" +webViewImContext = AttrLabelProxy + +webViewLoadStatus :: AttrLabelProxy "loadStatus" +webViewLoadStatus = AttrLabelProxy + +webViewPasteTargetList :: AttrLabelProxy "pasteTargetList" +webViewPasteTargetList = AttrLabelProxy + +webViewProgress :: AttrLabelProxy "progress" +webViewProgress = AttrLabelProxy + +webViewSelfScrolling :: AttrLabelProxy "selfScrolling" +webViewSelfScrolling = AttrLabelProxy + +webViewSettings :: AttrLabelProxy "settings" +webViewSettings = AttrLabelProxy + +webViewTitle :: AttrLabelProxy "title" +webViewTitle = AttrLabelProxy + +webViewTransparent :: AttrLabelProxy "transparent" +webViewTransparent = AttrLabelProxy + +webViewUri :: AttrLabelProxy "uri" +webViewUri = AttrLabelProxy + +webViewViewMode :: AttrLabelProxy "viewMode" +webViewViewMode = AttrLabelProxy + +webViewViewportAttributes :: AttrLabelProxy "viewportAttributes" +webViewViewportAttributes = AttrLabelProxy + +webViewWebInspector :: AttrLabelProxy "webInspector" +webViewWebInspector = AttrLabelProxy + +webViewWindowFeatures :: AttrLabelProxy "windowFeatures" +webViewWindowFeatures = AttrLabelProxy + +webViewZoomLevel :: AttrLabelProxy "zoomLevel" +webViewZoomLevel = AttrLabelProxy + data WebViewCloseWebViewSignalInfo instance SignalInfo WebViewCloseWebViewSignalInfo where type HaskellCallbackType WebViewCloseWebViewSignalInfo = WebViewCloseWebViewCallback @@ -5173,7 +5297,7 @@ -- method type : Constructor -- Args : [] -- Lengths : [] --- returnType : TInterface "WebKit" "WebView" +-- returnType : Just (TInterface "WebKit" "WebView") -- throws : False -- Skip return : False @@ -5194,7 +5318,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -5222,7 +5346,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -5250,7 +5374,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -5276,15 +5400,15 @@ -- method WebView::can_go_back_or_forward -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "steps", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "steps", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False foreign import ccall "webkit_web_view_can_go_back_or_forward" webkit_web_view_can_go_back_or_forward :: Ptr WebView -> -- _obj : TInterface "WebKit" "WebView" - Int32 -> -- steps : TBasicType TInt32 + Int32 -> -- steps : TBasicType TInt IO CInt @@ -5308,7 +5432,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -5336,7 +5460,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -5364,7 +5488,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -5392,7 +5516,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "mime_type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -5424,7 +5548,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -5452,7 +5576,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -5479,7 +5603,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -5506,7 +5630,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -5533,7 +5657,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "script", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -5564,7 +5688,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit" "WebBackForwardList" +-- returnType : Just (TInterface "WebKit" "WebBackForwardList") -- throws : False -- Skip return : False @@ -5593,7 +5717,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "TargetList" +-- returnType : Just (TInterface "Gtk" "TargetList") -- throws : False -- Skip return : False @@ -5622,7 +5746,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -5651,7 +5775,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit" "DOMDocument" +-- returnType : Just (TInterface "WebKit" "DOMDocument") -- throws : False -- Skip return : False @@ -5680,7 +5804,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -5708,7 +5832,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -5737,7 +5861,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit" "WebFrame" +-- returnType : Just (TInterface "WebKit" "WebFrame") -- throws : False -- Skip return : False @@ -5766,7 +5890,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -5794,7 +5918,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "event", argType = TInterface "Gdk" "EventButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit" "HitTestResult" +-- returnType : Just (TInterface "WebKit" "HitTestResult") -- throws : False -- Skip return : False @@ -5827,7 +5951,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "GdkPixbuf" "Pixbuf" +-- returnType : Just (TInterface "GdkPixbuf" "Pixbuf") -- throws : False -- Skip return : False @@ -5856,7 +5980,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -5885,7 +6009,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit" "WebInspector" +-- returnType : Just (TInterface "WebKit" "WebInspector") -- throws : False -- Skip return : False @@ -5914,7 +6038,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit" "LoadStatus" +-- returnType : Just (TInterface "WebKit" "LoadStatus") -- throws : False -- Skip return : False @@ -5942,7 +6066,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit" "WebFrame" +-- returnType : Just (TInterface "WebKit" "WebFrame") -- throws : False -- Skip return : False @@ -5971,7 +6095,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "TargetList" +-- returnType : Just (TInterface "Gtk" "TargetList") -- throws : False -- Skip return : False @@ -6000,7 +6124,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TDouble +-- returnType : Just (TBasicType TDouble) -- throws : False -- Skip return : False @@ -6028,7 +6152,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit" "WebSettings" +-- returnType : Just (TInterface "WebKit" "WebSettings") -- throws : False -- Skip return : False @@ -6057,7 +6181,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "cairo" "Surface" +-- returnType : Just (TInterface "cairo" "Surface") -- throws : False -- Skip return : False @@ -6086,7 +6210,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -6115,7 +6239,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -6143,7 +6267,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -6155,24 +6279,25 @@ webViewGetUri :: (MonadIO m, WebViewK a) => a -- _obj - -> m T.Text -- result + -> m (Maybe T.Text) -- result webViewGetUri _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- webkit_web_view_get_uri _obj' - checkUnexpectedReturnNULL "webkit_web_view_get_uri" result - result' <- cstringToText result + maybeResult <- convertIfNonNull result $ \result' -> do + result'' <- cstringToText result' + return result'' touchManagedPtr _obj - return result' + return maybeResult data WebViewGetUriMethodInfo -instance (signature ~ (m T.Text), MonadIO m, WebViewK a) => MethodInfo WebViewGetUriMethodInfo a signature where +instance (signature ~ (m (Maybe T.Text)), MonadIO m, WebViewK a) => MethodInfo WebViewGetUriMethodInfo a signature where overloadedMethod _ = webViewGetUri -- method WebView::get_view_mode -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit" "WebViewViewMode" +-- returnType : Just (TInterface "WebKit" "WebViewViewMode") -- throws : False -- Skip return : False @@ -6200,7 +6325,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -6228,7 +6353,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit" "ViewportAttributes" +-- returnType : Just (TInterface "WebKit" "ViewportAttributes") -- throws : False -- Skip return : False @@ -6257,7 +6382,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit" "WebWindowFeatures" +-- returnType : Just (TInterface "WebKit" "WebWindowFeatures") -- throws : False -- Skip return : False @@ -6286,7 +6411,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TFloat +-- returnType : Just (TBasicType TFloat) -- throws : False -- Skip return : False @@ -6314,7 +6439,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -6339,15 +6464,15 @@ -- method WebView::go_back_or_forward -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "steps", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "steps", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "webkit_web_view_go_back_or_forward" webkit_web_view_go_back_or_forward :: Ptr WebView -> -- _obj : TInterface "WebKit" "WebView" - Int32 -> -- steps : TBasicType TInt32 + Int32 -> -- steps : TBasicType TInt IO () @@ -6370,7 +6495,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -6397,7 +6522,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "item", argType = TInterface "WebKit" "WebHistoryItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -6429,7 +6554,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -6457,7 +6582,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "content", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "base_uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -6492,7 +6617,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "request", argType = TInterface "WebKit" "NetworkRequest", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -6523,7 +6648,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "content", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "mime_type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "encoding", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "base_uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -6566,7 +6691,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -6595,9 +6720,9 @@ -- method WebView::mark_text_matches -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "case_sensitive", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "limit", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "case_sensitive", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "limit", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUInt32 +-- returnType : Just (TBasicType TUInt) -- throws : False -- Skip return : False @@ -6605,7 +6730,7 @@ Ptr WebView -> -- _obj : TInterface "WebKit" "WebView" CString -> -- string : TBasicType TUTF8 CInt -> -- case_sensitive : TBasicType TBoolean - Word32 -> -- limit : TBasicType TUInt32 + Word32 -> -- limit : TBasicType TUInt IO Word32 @@ -6631,16 +6756,16 @@ -- method WebView::move_cursor -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "step", argType = TInterface "Gtk" "MovementStep", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "count", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "step", argType = TInterface "Gtk" "MovementStep", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "count", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "webkit_web_view_move_cursor" webkit_web_view_move_cursor :: Ptr WebView -> -- _obj : TInterface "WebKit" "WebView" CUInt -> -- step : TInterface "Gtk" "MovementStep" - Int32 -> -- count : TBasicType TInt32 + Int32 -> -- count : TBasicType TInt IO () @@ -6665,7 +6790,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -6696,7 +6821,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -6723,7 +6848,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -6750,7 +6875,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -6777,7 +6902,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -6804,7 +6929,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "case_sensitive", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "forward", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "wrap", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -6845,7 +6970,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -6872,7 +6997,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "encoding", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -6903,7 +7028,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flag", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -6933,7 +7058,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "full_content_zoom", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -6963,7 +7088,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "highlight", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -6993,7 +7118,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flag", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -7023,7 +7148,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "settings", argType = TInterface "WebKit" "WebSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -7054,7 +7179,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flag", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -7084,7 +7209,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "mode", argType = TInterface "WebKit" "WebViewViewMode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -7114,7 +7239,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "view_source_mode", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -7144,7 +7269,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "zoom_level", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -7174,7 +7299,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -7199,16 +7324,16 @@ -- method WebView::try_get_favicon_pixbuf -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "width", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "height", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "width", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "height", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "GdkPixbuf" "Pixbuf" +-- returnType : Just (TInterface "GdkPixbuf" "Pixbuf") -- throws : False -- Skip return : False foreign import ccall "webkit_web_view_try_get_favicon_pixbuf" webkit_web_view_try_get_favicon_pixbuf :: Ptr WebView -> -- _obj : TInterface "WebKit" "WebView" - Word32 -> -- width : TBasicType TUInt32 - Word32 -> -- height : TBasicType TUInt32 + Word32 -> -- width : TBasicType TUInt + Word32 -> -- height : TBasicType TUInt IO (Ptr GdkPixbuf.Pixbuf) @@ -7234,7 +7359,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -7261,7 +7386,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -7288,7 +7413,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -7315,7 +7440,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False diff --git a/GI/WebKit/Objects/WebView.hs-boot b/GI/WebKit/Objects/WebView.hs-boot --- a/GI/WebKit/Objects/WebView.hs-boot +++ b/GI/WebKit/Objects/WebView.hs-boot @@ -1,8 +1,8 @@ module GI.WebKit.Objects.WebView where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map diff --git a/GI/WebKit/Objects/WebWindowFeatures.hs b/GI/WebKit/Objects/WebWindowFeatures.hs --- a/GI/WebKit/Objects/WebWindowFeatures.hs +++ b/GI/WebKit/Objects/WebWindowFeatures.hs @@ -34,6 +34,7 @@ constructWebWindowFeaturesFullscreen , getWebWindowFeaturesFullscreen , setWebWindowFeaturesFullscreen , + webWindowFeaturesFullscreen , -- ** Height @@ -41,6 +42,7 @@ constructWebWindowFeaturesHeight , getWebWindowFeaturesHeight , setWebWindowFeaturesHeight , + webWindowFeaturesHeight , -- ** LocationbarVisible @@ -48,6 +50,7 @@ constructWebWindowFeaturesLocationbarVisible, getWebWindowFeaturesLocationbarVisible , setWebWindowFeaturesLocationbarVisible , + webWindowFeaturesLocationbarVisible , -- ** MenubarVisible @@ -55,6 +58,7 @@ constructWebWindowFeaturesMenubarVisible, getWebWindowFeaturesMenubarVisible , setWebWindowFeaturesMenubarVisible , + webWindowFeaturesMenubarVisible , -- ** ScrollbarVisible @@ -62,6 +66,7 @@ constructWebWindowFeaturesScrollbarVisible, getWebWindowFeaturesScrollbarVisible , setWebWindowFeaturesScrollbarVisible , + webWindowFeaturesScrollbarVisible , -- ** StatusbarVisible @@ -69,6 +74,7 @@ constructWebWindowFeaturesStatusbarVisible, getWebWindowFeaturesStatusbarVisible , setWebWindowFeaturesStatusbarVisible , + webWindowFeaturesStatusbarVisible , -- ** ToolbarVisible @@ -76,6 +82,7 @@ constructWebWindowFeaturesToolbarVisible, getWebWindowFeaturesToolbarVisible , setWebWindowFeaturesToolbarVisible , + webWindowFeaturesToolbarVisible , -- ** Width @@ -83,6 +90,7 @@ constructWebWindowFeaturesWidth , getWebWindowFeaturesWidth , setWebWindowFeaturesWidth , + webWindowFeaturesWidth , -- ** X @@ -90,6 +98,7 @@ constructWebWindowFeaturesX , getWebWindowFeaturesX , setWebWindowFeaturesX , + webWindowFeaturesX , -- ** Y @@ -97,15 +106,16 @@ constructWebWindowFeaturesY , getWebWindowFeaturesY , setWebWindowFeaturesY , + webWindowFeaturesY , ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map @@ -172,6 +182,7 @@ -- VVV Prop "fullscreen" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + -- Nullable: (Nothing,Nothing) getWebWindowFeaturesFullscreen :: (MonadIO m, WebWindowFeaturesK o) => o -> m Bool getWebWindowFeaturesFullscreen obj = liftIO $ getObjectPropertyBool obj "fullscreen" @@ -192,19 +203,21 @@ attrGet _ = getWebWindowFeaturesFullscreen attrSet _ = setWebWindowFeaturesFullscreen attrConstruct _ = constructWebWindowFeaturesFullscreen + attrClear _ = undefined -- VVV Prop "height" - -- Type: TBasicType TInt32 + -- Type: TBasicType TInt -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + -- Nullable: (Nothing,Nothing) getWebWindowFeaturesHeight :: (MonadIO m, WebWindowFeaturesK o) => o -> m Int32 -getWebWindowFeaturesHeight obj = liftIO $ getObjectPropertyCInt obj "height" +getWebWindowFeaturesHeight obj = liftIO $ getObjectPropertyInt32 obj "height" setWebWindowFeaturesHeight :: (MonadIO m, WebWindowFeaturesK o) => o -> Int32 -> m () -setWebWindowFeaturesHeight obj val = liftIO $ setObjectPropertyCInt obj "height" val +setWebWindowFeaturesHeight obj val = liftIO $ setObjectPropertyInt32 obj "height" val constructWebWindowFeaturesHeight :: Int32 -> IO ([Char], GValue) -constructWebWindowFeaturesHeight val = constructObjectPropertyCInt "height" val +constructWebWindowFeaturesHeight val = constructObjectPropertyInt32 "height" val data WebWindowFeaturesHeightPropertyInfo instance AttrInfo WebWindowFeaturesHeightPropertyInfo where @@ -216,10 +229,12 @@ attrGet _ = getWebWindowFeaturesHeight attrSet _ = setWebWindowFeaturesHeight attrConstruct _ = constructWebWindowFeaturesHeight + attrClear _ = undefined -- VVV Prop "locationbar-visible" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + -- Nullable: (Nothing,Nothing) getWebWindowFeaturesLocationbarVisible :: (MonadIO m, WebWindowFeaturesK o) => o -> m Bool getWebWindowFeaturesLocationbarVisible obj = liftIO $ getObjectPropertyBool obj "locationbar-visible" @@ -240,10 +255,12 @@ attrGet _ = getWebWindowFeaturesLocationbarVisible attrSet _ = setWebWindowFeaturesLocationbarVisible attrConstruct _ = constructWebWindowFeaturesLocationbarVisible + attrClear _ = undefined -- VVV Prop "menubar-visible" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + -- Nullable: (Nothing,Nothing) getWebWindowFeaturesMenubarVisible :: (MonadIO m, WebWindowFeaturesK o) => o -> m Bool getWebWindowFeaturesMenubarVisible obj = liftIO $ getObjectPropertyBool obj "menubar-visible" @@ -264,10 +281,12 @@ attrGet _ = getWebWindowFeaturesMenubarVisible attrSet _ = setWebWindowFeaturesMenubarVisible attrConstruct _ = constructWebWindowFeaturesMenubarVisible + attrClear _ = undefined -- VVV Prop "scrollbar-visible" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + -- Nullable: (Nothing,Nothing) getWebWindowFeaturesScrollbarVisible :: (MonadIO m, WebWindowFeaturesK o) => o -> m Bool getWebWindowFeaturesScrollbarVisible obj = liftIO $ getObjectPropertyBool obj "scrollbar-visible" @@ -288,10 +307,12 @@ attrGet _ = getWebWindowFeaturesScrollbarVisible attrSet _ = setWebWindowFeaturesScrollbarVisible attrConstruct _ = constructWebWindowFeaturesScrollbarVisible + attrClear _ = undefined -- VVV Prop "statusbar-visible" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + -- Nullable: (Nothing,Nothing) getWebWindowFeaturesStatusbarVisible :: (MonadIO m, WebWindowFeaturesK o) => o -> m Bool getWebWindowFeaturesStatusbarVisible obj = liftIO $ getObjectPropertyBool obj "statusbar-visible" @@ -312,10 +333,12 @@ attrGet _ = getWebWindowFeaturesStatusbarVisible attrSet _ = setWebWindowFeaturesStatusbarVisible attrConstruct _ = constructWebWindowFeaturesStatusbarVisible + attrClear _ = undefined -- VVV Prop "toolbar-visible" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + -- Nullable: (Nothing,Nothing) getWebWindowFeaturesToolbarVisible :: (MonadIO m, WebWindowFeaturesK o) => o -> m Bool getWebWindowFeaturesToolbarVisible obj = liftIO $ getObjectPropertyBool obj "toolbar-visible" @@ -336,19 +359,21 @@ attrGet _ = getWebWindowFeaturesToolbarVisible attrSet _ = setWebWindowFeaturesToolbarVisible attrConstruct _ = constructWebWindowFeaturesToolbarVisible + attrClear _ = undefined -- VVV Prop "width" - -- Type: TBasicType TInt32 + -- Type: TBasicType TInt -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + -- Nullable: (Nothing,Nothing) getWebWindowFeaturesWidth :: (MonadIO m, WebWindowFeaturesK o) => o -> m Int32 -getWebWindowFeaturesWidth obj = liftIO $ getObjectPropertyCInt obj "width" +getWebWindowFeaturesWidth obj = liftIO $ getObjectPropertyInt32 obj "width" setWebWindowFeaturesWidth :: (MonadIO m, WebWindowFeaturesK o) => o -> Int32 -> m () -setWebWindowFeaturesWidth obj val = liftIO $ setObjectPropertyCInt obj "width" val +setWebWindowFeaturesWidth obj val = liftIO $ setObjectPropertyInt32 obj "width" val constructWebWindowFeaturesWidth :: Int32 -> IO ([Char], GValue) -constructWebWindowFeaturesWidth val = constructObjectPropertyCInt "width" val +constructWebWindowFeaturesWidth val = constructObjectPropertyInt32 "width" val data WebWindowFeaturesWidthPropertyInfo instance AttrInfo WebWindowFeaturesWidthPropertyInfo where @@ -360,19 +385,21 @@ attrGet _ = getWebWindowFeaturesWidth attrSet _ = setWebWindowFeaturesWidth attrConstruct _ = constructWebWindowFeaturesWidth + attrClear _ = undefined -- VVV Prop "x" - -- Type: TBasicType TInt32 + -- Type: TBasicType TInt -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + -- Nullable: (Nothing,Nothing) getWebWindowFeaturesX :: (MonadIO m, WebWindowFeaturesK o) => o -> m Int32 -getWebWindowFeaturesX obj = liftIO $ getObjectPropertyCInt obj "x" +getWebWindowFeaturesX obj = liftIO $ getObjectPropertyInt32 obj "x" setWebWindowFeaturesX :: (MonadIO m, WebWindowFeaturesK o) => o -> Int32 -> m () -setWebWindowFeaturesX obj val = liftIO $ setObjectPropertyCInt obj "x" val +setWebWindowFeaturesX obj val = liftIO $ setObjectPropertyInt32 obj "x" val constructWebWindowFeaturesX :: Int32 -> IO ([Char], GValue) -constructWebWindowFeaturesX val = constructObjectPropertyCInt "x" val +constructWebWindowFeaturesX val = constructObjectPropertyInt32 "x" val data WebWindowFeaturesXPropertyInfo instance AttrInfo WebWindowFeaturesXPropertyInfo where @@ -384,19 +411,21 @@ attrGet _ = getWebWindowFeaturesX attrSet _ = setWebWindowFeaturesX attrConstruct _ = constructWebWindowFeaturesX + attrClear _ = undefined -- VVV Prop "y" - -- Type: TBasicType TInt32 + -- Type: TBasicType TInt -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + -- Nullable: (Nothing,Nothing) getWebWindowFeaturesY :: (MonadIO m, WebWindowFeaturesK o) => o -> m Int32 -getWebWindowFeaturesY obj = liftIO $ getObjectPropertyCInt obj "y" +getWebWindowFeaturesY obj = liftIO $ getObjectPropertyInt32 obj "y" setWebWindowFeaturesY :: (MonadIO m, WebWindowFeaturesK o) => o -> Int32 -> m () -setWebWindowFeaturesY obj val = liftIO $ setObjectPropertyCInt obj "y" val +setWebWindowFeaturesY obj val = liftIO $ setObjectPropertyInt32 obj "y" val constructWebWindowFeaturesY :: Int32 -> IO ([Char], GValue) -constructWebWindowFeaturesY val = constructObjectPropertyCInt "y" val +constructWebWindowFeaturesY val = constructObjectPropertyInt32 "y" val data WebWindowFeaturesYPropertyInfo instance AttrInfo WebWindowFeaturesYPropertyInfo where @@ -408,10 +437,41 @@ attrGet _ = getWebWindowFeaturesY attrSet _ = setWebWindowFeaturesY attrConstruct _ = constructWebWindowFeaturesY + attrClear _ = undefined type instance AttributeList WebWindowFeatures = WebWindowFeaturesAttributeList type WebWindowFeaturesAttributeList = ('[ '("fullscreen", WebWindowFeaturesFullscreenPropertyInfo), '("height", WebWindowFeaturesHeightPropertyInfo), '("locationbarVisible", WebWindowFeaturesLocationbarVisiblePropertyInfo), '("menubarVisible", WebWindowFeaturesMenubarVisiblePropertyInfo), '("scrollbarVisible", WebWindowFeaturesScrollbarVisiblePropertyInfo), '("statusbarVisible", WebWindowFeaturesStatusbarVisiblePropertyInfo), '("toolbarVisible", WebWindowFeaturesToolbarVisiblePropertyInfo), '("width", WebWindowFeaturesWidthPropertyInfo), '("x", WebWindowFeaturesXPropertyInfo), '("y", WebWindowFeaturesYPropertyInfo)] :: [(Symbol, *)]) +webWindowFeaturesFullscreen :: AttrLabelProxy "fullscreen" +webWindowFeaturesFullscreen = AttrLabelProxy + +webWindowFeaturesHeight :: AttrLabelProxy "height" +webWindowFeaturesHeight = AttrLabelProxy + +webWindowFeaturesLocationbarVisible :: AttrLabelProxy "locationbarVisible" +webWindowFeaturesLocationbarVisible = AttrLabelProxy + +webWindowFeaturesMenubarVisible :: AttrLabelProxy "menubarVisible" +webWindowFeaturesMenubarVisible = AttrLabelProxy + +webWindowFeaturesScrollbarVisible :: AttrLabelProxy "scrollbarVisible" +webWindowFeaturesScrollbarVisible = AttrLabelProxy + +webWindowFeaturesStatusbarVisible :: AttrLabelProxy "statusbarVisible" +webWindowFeaturesStatusbarVisible = AttrLabelProxy + +webWindowFeaturesToolbarVisible :: AttrLabelProxy "toolbarVisible" +webWindowFeaturesToolbarVisible = AttrLabelProxy + +webWindowFeaturesWidth :: AttrLabelProxy "width" +webWindowFeaturesWidth = AttrLabelProxy + +webWindowFeaturesX :: AttrLabelProxy "x" +webWindowFeaturesX = AttrLabelProxy + +webWindowFeaturesY :: AttrLabelProxy "y" +webWindowFeaturesY = AttrLabelProxy + type instance SignalList WebWindowFeatures = WebWindowFeaturesSignalList type WebWindowFeaturesSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) @@ -419,7 +479,7 @@ -- method type : Constructor -- Args : [] -- Lengths : [] --- returnType : TInterface "WebKit" "WebWindowFeatures" +-- returnType : Just (TInterface "WebKit" "WebWindowFeatures") -- throws : False -- Skip return : False @@ -440,7 +500,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "WebWindowFeatures", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "features2", argType = TInterface "WebKit" "WebWindowFeatures", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False diff --git a/GI/WebKit/Objects/WebWindowFeatures.hs-boot b/GI/WebKit/Objects/WebWindowFeatures.hs-boot --- a/GI/WebKit/Objects/WebWindowFeatures.hs-boot +++ b/GI/WebKit/Objects/WebWindowFeatures.hs-boot @@ -1,8 +1,8 @@ module GI.WebKit.Objects.WebWindowFeatures where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map diff --git a/GI/WebKit/Structs.hs b/GI/WebKit/Structs.hs --- a/GI/WebKit/Structs.hs +++ b/GI/WebKit/Structs.hs @@ -16,9 +16,9 @@ import GI.WebKit.Structs.DOMEventTargetClass import GI.WebKit.Structs.WebPluginMIMEType -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map diff --git a/GI/WebKit/Structs/DOMEventTargetClass.hs b/GI/WebKit/Structs/DOMEventTargetClass.hs --- a/GI/WebKit/Structs/DOMEventTargetClass.hs +++ b/GI/WebKit/Structs/DOMEventTargetClass.hs @@ -16,9 +16,9 @@ ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map @@ -29,6 +29,10 @@ newtype DOMEventTargetClass = DOMEventTargetClass (ForeignPtr DOMEventTargetClass) noDOMEventTargetClass :: Maybe DOMEventTargetClass noDOMEventTargetClass = Nothing + + +type instance AttributeList DOMEventTargetClass = DOMEventTargetClassAttributeList +type DOMEventTargetClassAttributeList = ('[ ] :: [(Symbol, *)]) type family ResolveDOMEventTargetClassMethod (t :: Symbol) (o :: *) :: * where ResolveDOMEventTargetClassMethod l o = MethodResolutionFailed l o diff --git a/GI/WebKit/Structs/DOMEventTargetClass.hs-boot b/GI/WebKit/Structs/DOMEventTargetClass.hs-boot --- a/GI/WebKit/Structs/DOMEventTargetClass.hs-boot +++ b/GI/WebKit/Structs/DOMEventTargetClass.hs-boot @@ -1,8 +1,8 @@ module GI.WebKit.Structs.DOMEventTargetClass where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map diff --git a/GI/WebKit/Structs/WebPluginMIMEType.hs b/GI/WebKit/Structs/WebPluginMIMEType.hs --- a/GI/WebKit/Structs/WebPluginMIMEType.hs +++ b/GI/WebKit/Structs/WebPluginMIMEType.hs @@ -22,24 +22,33 @@ -- * Properties -- ** Description + webPluginMIMETypeClearDescription , + webPluginMIMETypeDescription , webPluginMIMETypeReadDescription , + webPluginMIMETypeWriteDescription , -- ** Extensions + webPluginMIMETypeClearExtensions , + webPluginMIMETypeExtensions , webPluginMIMETypeReadExtensions , + webPluginMIMETypeWriteExtensions , -- ** Name + webPluginMIMETypeClearName , + webPluginMIMETypeName , webPluginMIMETypeReadName , + webPluginMIMETypeWriteName , ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map @@ -52,26 +61,115 @@ newZeroWebPluginMIMEType :: MonadIO m => m WebPluginMIMEType newZeroWebPluginMIMEType = liftIO $ callocBytes 24 >>= wrapPtr WebPluginMIMEType +instance tag ~ 'AttrSet => Constructible WebPluginMIMEType tag where + new _ attrs = do + o <- newZeroWebPluginMIMEType + GI.Attributes.set o attrs + return o + + noWebPluginMIMEType :: Maybe WebPluginMIMEType noWebPluginMIMEType = Nothing -webPluginMIMETypeReadName :: WebPluginMIMEType -> IO T.Text -webPluginMIMETypeReadName s = withManagedPtr s $ \ptr -> do +webPluginMIMETypeReadName :: MonadIO m => WebPluginMIMEType -> m (Maybe T.Text) +webPluginMIMETypeReadName s = liftIO $ withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 0) :: IO CString - val' <- cstringToText val - return val' + result <- convertIfNonNull val $ \val' -> do + val'' <- cstringToText val' + return val'' + return result -webPluginMIMETypeReadDescription :: WebPluginMIMEType -> IO T.Text -webPluginMIMETypeReadDescription s = withManagedPtr s $ \ptr -> do +webPluginMIMETypeWriteName :: MonadIO m => WebPluginMIMEType -> CString -> m () +webPluginMIMETypeWriteName s val = liftIO $ withManagedPtr s $ \ptr -> do + poke (ptr `plusPtr` 0) (val :: CString) + +webPluginMIMETypeClearName :: MonadIO m => WebPluginMIMEType -> m () +webPluginMIMETypeClearName s = liftIO $ withManagedPtr s $ \ptr -> do + poke (ptr `plusPtr` 0) (nullPtr :: CString) + +data WebPluginMIMETypeNameFieldInfo +instance AttrInfo WebPluginMIMETypeNameFieldInfo where + type AttrAllowedOps WebPluginMIMETypeNameFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear] + type AttrSetTypeConstraint WebPluginMIMETypeNameFieldInfo = (~) CString + type AttrBaseTypeConstraint WebPluginMIMETypeNameFieldInfo = (~) WebPluginMIMEType + type AttrGetType WebPluginMIMETypeNameFieldInfo = Maybe T.Text + type AttrLabel WebPluginMIMETypeNameFieldInfo = "name" + attrGet _ = webPluginMIMETypeReadName + attrSet _ = webPluginMIMETypeWriteName + attrConstruct = undefined + attrClear _ = webPluginMIMETypeClearName + +webPluginMIMETypeName :: AttrLabelProxy "name" +webPluginMIMETypeName = AttrLabelProxy + + +webPluginMIMETypeReadDescription :: MonadIO m => WebPluginMIMEType -> m (Maybe T.Text) +webPluginMIMETypeReadDescription s = liftIO $ withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 8) :: IO CString - val' <- cstringToText val - return val' + result <- convertIfNonNull val $ \val' -> do + val'' <- cstringToText val' + return val'' + return result -webPluginMIMETypeReadExtensions :: WebPluginMIMEType -> IO T.Text -webPluginMIMETypeReadExtensions s = withManagedPtr s $ \ptr -> do +webPluginMIMETypeWriteDescription :: MonadIO m => WebPluginMIMEType -> CString -> m () +webPluginMIMETypeWriteDescription s val = liftIO $ withManagedPtr s $ \ptr -> do + poke (ptr `plusPtr` 8) (val :: CString) + +webPluginMIMETypeClearDescription :: MonadIO m => WebPluginMIMEType -> m () +webPluginMIMETypeClearDescription s = liftIO $ withManagedPtr s $ \ptr -> do + poke (ptr `plusPtr` 8) (nullPtr :: CString) + +data WebPluginMIMETypeDescriptionFieldInfo +instance AttrInfo WebPluginMIMETypeDescriptionFieldInfo where + type AttrAllowedOps WebPluginMIMETypeDescriptionFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear] + type AttrSetTypeConstraint WebPluginMIMETypeDescriptionFieldInfo = (~) CString + type AttrBaseTypeConstraint WebPluginMIMETypeDescriptionFieldInfo = (~) WebPluginMIMEType + type AttrGetType WebPluginMIMETypeDescriptionFieldInfo = Maybe T.Text + type AttrLabel WebPluginMIMETypeDescriptionFieldInfo = "description" + attrGet _ = webPluginMIMETypeReadDescription + attrSet _ = webPluginMIMETypeWriteDescription + attrConstruct = undefined + attrClear _ = webPluginMIMETypeClearDescription + +webPluginMIMETypeDescription :: AttrLabelProxy "description" +webPluginMIMETypeDescription = AttrLabelProxy + + +webPluginMIMETypeReadExtensions :: MonadIO m => WebPluginMIMEType -> m (Maybe T.Text) +webPluginMIMETypeReadExtensions s = liftIO $ withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 16) :: IO CString - val' <- cstringToText val - return val' + result <- convertIfNonNull val $ \val' -> do + val'' <- cstringToText val' + return val'' + return result + +webPluginMIMETypeWriteExtensions :: MonadIO m => WebPluginMIMEType -> CString -> m () +webPluginMIMETypeWriteExtensions s val = liftIO $ withManagedPtr s $ \ptr -> do + poke (ptr `plusPtr` 16) (val :: CString) + +webPluginMIMETypeClearExtensions :: MonadIO m => WebPluginMIMEType -> m () +webPluginMIMETypeClearExtensions s = liftIO $ withManagedPtr s $ \ptr -> do + poke (ptr `plusPtr` 16) (nullPtr :: CString) + +data WebPluginMIMETypeExtensionsFieldInfo +instance AttrInfo WebPluginMIMETypeExtensionsFieldInfo where + type AttrAllowedOps WebPluginMIMETypeExtensionsFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear] + type AttrSetTypeConstraint WebPluginMIMETypeExtensionsFieldInfo = (~) CString + type AttrBaseTypeConstraint WebPluginMIMETypeExtensionsFieldInfo = (~) WebPluginMIMEType + type AttrGetType WebPluginMIMETypeExtensionsFieldInfo = Maybe T.Text + type AttrLabel WebPluginMIMETypeExtensionsFieldInfo = "extensions" + attrGet _ = webPluginMIMETypeReadExtensions + attrSet _ = webPluginMIMETypeWriteExtensions + attrConstruct = undefined + attrClear _ = webPluginMIMETypeClearExtensions + +webPluginMIMETypeExtensions :: AttrLabelProxy "extensions" +webPluginMIMETypeExtensions = AttrLabelProxy + + + +type instance AttributeList WebPluginMIMEType = WebPluginMIMETypeAttributeList +type WebPluginMIMETypeAttributeList = ('[ '("name", WebPluginMIMETypeNameFieldInfo), '("description", WebPluginMIMETypeDescriptionFieldInfo), '("extensions", WebPluginMIMETypeExtensionsFieldInfo)] :: [(Symbol, *)]) type family ResolveWebPluginMIMETypeMethod (t :: Symbol) (o :: *) :: * where ResolveWebPluginMIMETypeMethod l o = MethodResolutionFailed l o diff --git a/GI/WebKit/Structs/WebPluginMIMEType.hs-boot b/GI/WebKit/Structs/WebPluginMIMEType.hs-boot --- a/GI/WebKit/Structs/WebPluginMIMEType.hs-boot +++ b/GI/WebKit/Structs/WebPluginMIMEType.hs-boot @@ -1,8 +1,8 @@ module GI.WebKit.Structs.WebPluginMIMEType where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map diff --git a/gi-webkit.cabal b/gi-webkit.cabal --- a/gi-webkit.cabal +++ b/gi-webkit.cabal @@ -1,6 +1,6 @@ -- Autogenerated, do not edit. name: gi-webkit -version: 0.2.4.13 +version: 0.2.4.14 synopsis: WebKit bindings description: Bindings for WebKit, autogenerated by haskell-gi. homepage: https://github.com/haskell-gi/haskell-gi @@ -14,7 +14,7 @@ library default-language: Haskell2010 - default-extensions: ScopedTypeVariables, CPP, OverloadedStrings, NegativeLiterals, ConstraintKinds, TypeFamilies, MultiParamTypeClasses, KindSignatures, FlexibleInstances, UndecidableInstances, DataKinds, FlexibleContexts + default-extensions: NoImplicitPrelude, ScopedTypeVariables, CPP, OverloadedStrings, NegativeLiterals, ConstraintKinds, TypeFamilies, MultiParamTypeClasses, KindSignatures, FlexibleInstances, UndecidableInstances, DataKinds, FlexibleContexts other-extensions: PatternSynonyms ViewPatterns ghc-options: -fno-warn-unused-imports -fno-warn-warnings-deprecations exposed-modules: GI.WebKit.Types @@ -219,17 +219,17 @@ GI.WebKit.Structs.WebPluginMIMEType pkgconfig-depends: webkitgtk-3.0 >= 2.4 build-depends: base >= 4.7 && <5, - haskell-gi-base >= 0.13 && < 1, - gi-atk >= 0.2.18.13 && < 0.2.19, - gi-glib >= 0.2.46.13 && < 0.2.47, - gi-gobject >= 0.2.46.13 && < 0.2.47, - gi-gdk >= 0.3.18.13 && < 0.3.19, - gi-gdkpixbuf >= 0.2.32.13 && < 0.2.33, - gi-gio >= 0.2.46.13 && < 0.2.47, - gi-gtk >= 0.3.18.13 && < 0.3.19, - gi-javascriptcore >= 0.2.4.13 && < 0.2.5, - gi-soup >= 0.2.52.13 && < 0.2.53, - gi-cairo >= 0.1.14.13 && < 0.1.15, + haskell-gi-base >= 0.14 && < 1, + gi-atk >= 0.2.18.14 && < 0.2.19, + gi-glib >= 0.2.46.14 && < 0.2.47, + gi-gobject >= 0.2.46.14 && < 0.2.47, + gi-gdk >= 0.3.18.14 && < 0.3.19, + gi-gdkpixbuf >= 0.2.32.14 && < 0.2.33, + gi-gio >= 0.2.46.14 && < 0.2.47, + gi-gtk >= 0.3.18.14 && < 0.3.19, + gi-javascriptcore >= 0.2.4.14 && < 0.2.5, + gi-soup >= 0.2.52.14 && < 0.2.53, + gi-cairo >= 0.1.14.14 && < 0.1.15, bytestring >= 0.10, containers >= 0.5, text >= 1.0,