diff --git a/GI/WebKit2WebExtension.hs b/GI/WebKit2WebExtension.hs --- a/GI/WebKit2WebExtension.hs +++ b/GI/WebKit2WebExtension.hs @@ -30,9 +30,9 @@ import GI.WebKit2WebExtension.Objects import GI.WebKit2WebExtension.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/WebKit2WebExtension/Callbacks.hs b/GI/WebKit2WebExtension/Callbacks.hs --- a/GI/WebKit2WebExtension/Callbacks.hs +++ b/GI/WebKit2WebExtension/Callbacks.hs @@ -32,9 +32,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/WebKit2WebExtension/Constants.hs b/GI/WebKit2WebExtension/Constants.hs --- a/GI/WebKit2WebExtension/Constants.hs +++ b/GI/WebKit2WebExtension/Constants.hs @@ -98,9 +98,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/WebKit2WebExtension/Enums.hs b/GI/WebKit2WebExtension/Enums.hs --- a/GI/WebKit2WebExtension/Enums.hs +++ b/GI/WebKit2WebExtension/Enums.hs @@ -11,13 +11,15 @@ -- * Exported types ContextMenuAction(..) , + ConsoleMessageSource(..) , + ConsoleMessageLevel(..) , ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map @@ -170,5 +172,57 @@ toEnum 43 = ContextMenuActionDownloadAudioToDisk toEnum 10000 = ContextMenuActionCustom toEnum k = AnotherContextMenuAction k + +-- Enum ConsoleMessageSource + +data ConsoleMessageSource = + ConsoleMessageSourceJavascript + | ConsoleMessageSourceNetwork + | ConsoleMessageSourceConsoleApi + | ConsoleMessageSourceSecurity + | ConsoleMessageSourceOther + | AnotherConsoleMessageSource Int + deriving (Show, Eq) + +instance Enum ConsoleMessageSource where + fromEnum ConsoleMessageSourceJavascript = 0 + fromEnum ConsoleMessageSourceNetwork = 1 + fromEnum ConsoleMessageSourceConsoleApi = 2 + fromEnum ConsoleMessageSourceSecurity = 3 + fromEnum ConsoleMessageSourceOther = 4 + fromEnum (AnotherConsoleMessageSource k) = k + + toEnum 0 = ConsoleMessageSourceJavascript + toEnum 1 = ConsoleMessageSourceNetwork + toEnum 2 = ConsoleMessageSourceConsoleApi + toEnum 3 = ConsoleMessageSourceSecurity + toEnum 4 = ConsoleMessageSourceOther + toEnum k = AnotherConsoleMessageSource k + +-- Enum ConsoleMessageLevel + +data ConsoleMessageLevel = + ConsoleMessageLevelInfo + | ConsoleMessageLevelLog + | ConsoleMessageLevelWarning + | ConsoleMessageLevelError + | ConsoleMessageLevelDebug + | AnotherConsoleMessageLevel Int + deriving (Show, Eq) + +instance Enum ConsoleMessageLevel where + fromEnum ConsoleMessageLevelInfo = 0 + fromEnum ConsoleMessageLevelLog = 1 + fromEnum ConsoleMessageLevelWarning = 2 + fromEnum ConsoleMessageLevelError = 3 + fromEnum ConsoleMessageLevelDebug = 4 + fromEnum (AnotherConsoleMessageLevel k) = k + + toEnum 0 = ConsoleMessageLevelInfo + toEnum 1 = ConsoleMessageLevelLog + toEnum 2 = ConsoleMessageLevelWarning + toEnum 3 = ConsoleMessageLevelError + toEnum 4 = ConsoleMessageLevelDebug + toEnum k = AnotherConsoleMessageLevel k diff --git a/GI/WebKit2WebExtension/Flags.hs b/GI/WebKit2WebExtension/Flags.hs --- a/GI/WebKit2WebExtension/Flags.hs +++ b/GI/WebKit2WebExtension/Flags.hs @@ -15,9 +15,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/WebKit2WebExtension/Interfaces.hs b/GI/WebKit2WebExtension/Interfaces.hs --- a/GI/WebKit2WebExtension/Interfaces.hs +++ b/GI/WebKit2WebExtension/Interfaces.hs @@ -18,9 +18,9 @@ import GI.WebKit2WebExtension.Interfaces.DOMNodeFilter import GI.WebKit2WebExtension.Interfaces.DOMXPathNSResolver -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.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/WebKit2WebExtension/Interfaces/DOMEventTarget.hs b/GI/WebKit2WebExtension/Interfaces/DOMEventTarget.hs --- a/GI/WebKit2WebExtension/Interfaces/DOMEventTarget.hs +++ b/GI/WebKit2WebExtension/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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "DOMEventTarget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "event", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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/WebKit2WebExtension/Interfaces/DOMEventTarget.hs-boot b/GI/WebKit2WebExtension/Interfaces/DOMEventTarget.hs-boot --- a/GI/WebKit2WebExtension/Interfaces/DOMEventTarget.hs-boot +++ b/GI/WebKit2WebExtension/Interfaces/DOMEventTarget.hs-boot @@ -1,8 +1,8 @@ module GI.WebKit2WebExtension.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/WebKit2WebExtension/Interfaces/DOMNodeFilter.hs b/GI/WebKit2WebExtension/Interfaces/DOMNodeFilter.hs --- a/GI/WebKit2WebExtension/Interfaces/DOMNodeFilter.hs +++ b/GI/WebKit2WebExtension/Interfaces/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 @@ -104,7 +104,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMNodeFilter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "node", argType = TInterface "WebKit2WebExtension" "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/WebKit2WebExtension/Interfaces/DOMNodeFilter.hs-boot b/GI/WebKit2WebExtension/Interfaces/DOMNodeFilter.hs-boot --- a/GI/WebKit2WebExtension/Interfaces/DOMNodeFilter.hs-boot +++ b/GI/WebKit2WebExtension/Interfaces/DOMNodeFilter.hs-boot @@ -1,8 +1,8 @@ module GI.WebKit2WebExtension.Interfaces.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/WebKit2WebExtension/Interfaces/DOMXPathNSResolver.hs b/GI/WebKit2WebExtension/Interfaces/DOMXPathNSResolver.hs --- a/GI/WebKit2WebExtension/Interfaces/DOMXPathNSResolver.hs +++ b/GI/WebKit2WebExtension/Interfaces/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 @@ -104,7 +104,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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/WebKit2WebExtension/Interfaces/DOMXPathNSResolver.hs-boot b/GI/WebKit2WebExtension/Interfaces/DOMXPathNSResolver.hs-boot --- a/GI/WebKit2WebExtension/Interfaces/DOMXPathNSResolver.hs-boot +++ b/GI/WebKit2WebExtension/Interfaces/DOMXPathNSResolver.hs-boot @@ -1,8 +1,8 @@ module GI.WebKit2WebExtension.Interfaces.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/WebKit2WebExtension/Objects.hs b/GI/WebKit2WebExtension/Objects.hs --- a/GI/WebKit2WebExtension/Objects.hs +++ b/GI/WebKit2WebExtension/Objects.hs @@ -226,9 +226,9 @@ import GI.WebKit2WebExtension.Objects.WebHitTestResult import GI.WebKit2WebExtension.Objects.WebPage -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.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/WebKit2WebExtension/Objects/ContextMenu.hs b/GI/WebKit2WebExtension/Objects/ContextMenu.hs --- a/GI/WebKit2WebExtension/Objects/ContextMenu.hs +++ b/GI/WebKit2WebExtension/Objects/ContextMenu.hs @@ -94,9 +94,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 @@ -182,7 +182,7 @@ -- method type : Constructor -- Args : [] -- Lengths : [] --- returnType : TInterface "WebKit2WebExtension" "ContextMenu" +-- returnType : Just (TInterface "WebKit2WebExtension" "ContextMenu") -- throws : False -- Skip return : False @@ -203,7 +203,7 @@ -- method type : Constructor -- Args : [Arg {argCName = "items", argType = TGList (TInterface "WebKit2WebExtension" "ContextMenuItem"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit2WebExtension" "ContextMenu" +-- returnType : Just (TInterface "WebKit2WebExtension" "ContextMenu") -- throws : False -- Skip return : False @@ -230,7 +230,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "ContextMenu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "item", argType = TInterface "WebKit2WebExtension" "ContextMenuItem", direction = 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,7 +261,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "ContextMenu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit2WebExtension" "ContextMenuItem" +-- returnType : Just (TInterface "WebKit2WebExtension" "ContextMenuItem") -- throws : False -- Skip return : False @@ -288,15 +288,15 @@ -- method ContextMenu::get_item_at_position -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "ContextMenu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "position", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "ContextMenu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "position", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit2WebExtension" "ContextMenuItem" +-- returnType : Just (TInterface "WebKit2WebExtension" "ContextMenuItem") -- throws : False -- Skip return : False foreign import ccall "webkit_context_menu_get_item_at_position" webkit_context_menu_get_item_at_position :: Ptr ContextMenu -> -- _obj : TInterface "WebKit2WebExtension" "ContextMenu" - Word32 -> -- position : TBasicType TUInt32 + Word32 -> -- position : TBasicType TUInt IO (Ptr ContextMenuItem) @@ -321,7 +321,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "ContextMenu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TGList (TInterface "WebKit2WebExtension" "ContextMenuItem") +-- returnType : Just (TGList (TInterface "WebKit2WebExtension" "ContextMenuItem")) -- throws : False -- Skip return : False @@ -337,7 +337,6 @@ contextMenuGetItems _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- webkit_context_menu_get_items _obj' - checkUnexpectedReturnNULL "webkit_context_menu_get_items" result result' <- unpackGList result result'' <- mapM (newObject ContextMenuItem) result' touchManagedPtr _obj @@ -351,7 +350,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "ContextMenu", 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 @@ -378,7 +377,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "ContextMenu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TVariant +-- returnType : Just TVariant -- throws : False -- Skip return : False @@ -405,16 +404,16 @@ -- method ContextMenu::insert -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "ContextMenu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "item", argType = TInterface "WebKit2WebExtension" "ContextMenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "position", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "ContextMenu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "item", argType = TInterface "WebKit2WebExtension" "ContextMenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "position", 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_context_menu_insert" webkit_context_menu_insert :: Ptr ContextMenu -> -- _obj : TInterface "WebKit2WebExtension" "ContextMenu" Ptr ContextMenuItem -> -- item : TInterface "WebKit2WebExtension" "ContextMenuItem" - Int32 -> -- position : TBasicType TInt32 + Int32 -> -- position : TBasicType TInt IO () @@ -440,7 +439,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "ContextMenu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit2WebExtension" "ContextMenuItem" +-- returnType : Just (TInterface "WebKit2WebExtension" "ContextMenuItem") -- throws : False -- Skip return : False @@ -467,16 +466,16 @@ -- method ContextMenu::move_item -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "ContextMenu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "item", argType = TInterface "WebKit2WebExtension" "ContextMenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "position", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "ContextMenu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "item", argType = TInterface "WebKit2WebExtension" "ContextMenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "position", 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_context_menu_move_item" webkit_context_menu_move_item :: Ptr ContextMenu -> -- _obj : TInterface "WebKit2WebExtension" "ContextMenu" Ptr ContextMenuItem -> -- item : TInterface "WebKit2WebExtension" "ContextMenuItem" - Int32 -> -- position : TBasicType TInt32 + Int32 -> -- position : TBasicType TInt IO () @@ -502,7 +501,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "ContextMenu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "item", argType = TInterface "WebKit2WebExtension" "ContextMenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -533,7 +532,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "ContextMenu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "item", argType = TInterface "WebKit2WebExtension" "ContextMenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -564,7 +563,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "ContextMenu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -591,7 +590,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "ContextMenu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TVariant, direction = 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/WebKit2WebExtension/Objects/ContextMenu.hs-boot b/GI/WebKit2WebExtension/Objects/ContextMenu.hs-boot --- a/GI/WebKit2WebExtension/Objects/ContextMenu.hs-boot +++ b/GI/WebKit2WebExtension/Objects/ContextMenu.hs-boot @@ -1,8 +1,8 @@ module GI.WebKit2WebExtension.Objects.ContextMenu where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.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/WebKit2WebExtension/Objects/ContextMenuItem.hs b/GI/WebKit2WebExtension/Objects/ContextMenuItem.hs --- a/GI/WebKit2WebExtension/Objects/ContextMenuItem.hs +++ b/GI/WebKit2WebExtension/Objects/ContextMenuItem.hs @@ -66,9 +66,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 @@ -147,7 +147,7 @@ -- method type : Constructor -- Args : [Arg {argCName = "action", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit2WebExtension" "ContextMenuItem" +-- returnType : Just (TInterface "WebKit2WebExtension" "ContextMenuItem") -- throws : False -- Skip return : False @@ -172,7 +172,7 @@ -- method type : Constructor -- Args : [Arg {argCName = "action", argType = TInterface "WebKit2WebExtension" "ContextMenuAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit2WebExtension" "ContextMenuItem" +-- returnType : Just (TInterface "WebKit2WebExtension" "ContextMenuItem") -- throws : False -- Skip return : False @@ -196,7 +196,7 @@ -- method type : Constructor -- Args : [Arg {argCName = "action", argType = TInterface "WebKit2WebExtension" "ContextMenuAction", 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}] -- Lengths : [] --- returnType : TInterface "WebKit2WebExtension" "ContextMenuItem" +-- returnType : Just (TInterface "WebKit2WebExtension" "ContextMenuItem") -- throws : False -- Skip return : False @@ -224,7 +224,7 @@ -- method type : Constructor -- Args : [] -- Lengths : [] --- returnType : TInterface "WebKit2WebExtension" "ContextMenuItem" +-- returnType : Just (TInterface "WebKit2WebExtension" "ContextMenuItem") -- throws : False -- Skip return : False @@ -245,7 +245,7 @@ -- method type : Constructor -- Args : [Arg {argCName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "submenu", argType = TInterface "WebKit2WebExtension" "ContextMenu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit2WebExtension" "ContextMenuItem" +-- returnType : Just (TInterface "WebKit2WebExtension" "ContextMenuItem") -- throws : False -- Skip return : False @@ -274,7 +274,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "ContextMenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "Action" +-- returnType : Just (TInterface "Gtk" "Action") -- throws : False -- Skip return : False @@ -303,7 +303,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "ContextMenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit2WebExtension" "ContextMenuAction" +-- returnType : Just (TInterface "WebKit2WebExtension" "ContextMenuAction") -- throws : False -- Skip return : False @@ -331,7 +331,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "ContextMenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit2WebExtension" "ContextMenu" +-- returnType : Just (TInterface "WebKit2WebExtension" "ContextMenu") -- throws : False -- Skip return : False @@ -360,7 +360,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "ContextMenuItem", 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 @@ -388,7 +388,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "ContextMenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "submenu", argType = TInterface "WebKit2WebExtension" "ContextMenu", 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/WebKit2WebExtension/Objects/ContextMenuItem.hs-boot b/GI/WebKit2WebExtension/Objects/ContextMenuItem.hs-boot --- a/GI/WebKit2WebExtension/Objects/ContextMenuItem.hs-boot +++ b/GI/WebKit2WebExtension/Objects/ContextMenuItem.hs-boot @@ -1,8 +1,8 @@ module GI.WebKit2WebExtension.Objects.ContextMenuItem where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.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/WebKit2WebExtension/Objects/DOMAttr.hs b/GI/WebKit2WebExtension/Objects/DOMAttr.hs --- a/GI/WebKit2WebExtension/Objects/DOMAttr.hs +++ b/GI/WebKit2WebExtension/Objects/DOMAttr.hs @@ -47,27 +47,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 , @@ -76,9 +82,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 @@ -186,6 +192,7 @@ -- VVV Prop "is-id" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable] + -- Nullable: (Nothing,Nothing) getDOMAttrIsId :: (MonadIO m, DOMAttrK o) => o -> m Bool getDOMAttrIsId obj = liftIO $ getObjectPropertyBool obj "is-id" @@ -200,35 +207,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 "WebKit2WebExtension" "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 @@ -236,10 +247,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" @@ -254,34 +267,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, *)]) +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), '("treeRoot", DOMNodeTreeRootPropertyInfo), '("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, *)]) @@ -289,7 +323,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -319,7 +353,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMAttr", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit2WebExtension" "DOMElement" +-- returnType : Just (TInterface "WebKit2WebExtension" "DOMElement") -- throws : False -- Skip return : False @@ -348,7 +382,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -376,7 +410,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -406,7 +440,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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/WebKit2WebExtension/Objects/DOMAttr.hs-boot b/GI/WebKit2WebExtension/Objects/DOMAttr.hs-boot --- a/GI/WebKit2WebExtension/Objects/DOMAttr.hs-boot +++ b/GI/WebKit2WebExtension/Objects/DOMAttr.hs-boot @@ -1,8 +1,8 @@ module GI.WebKit2WebExtension.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/WebKit2WebExtension/Objects/DOMBlob.hs b/GI/WebKit2WebExtension/Objects/DOMBlob.hs --- a/GI/WebKit2WebExtension/Objects/DOMBlob.hs +++ b/GI/WebKit2WebExtension/Objects/DOMBlob.hs @@ -27,11 +27,13 @@ -- * Properties -- ** Size DOMBlobSizePropertyInfo , + dOMBlobSize , getDOMBlobSize , -- ** Type DOMBlobTypePropertyInfo , + dOMBlobType , getDOMBlobType , @@ -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 @@ -108,6 +110,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" @@ -122,28 +125,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, *)]) @@ -151,7 +163,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 diff --git a/GI/WebKit2WebExtension/Objects/DOMBlob.hs-boot b/GI/WebKit2WebExtension/Objects/DOMBlob.hs-boot --- a/GI/WebKit2WebExtension/Objects/DOMBlob.hs-boot +++ b/GI/WebKit2WebExtension/Objects/DOMBlob.hs-boot @@ -1,8 +1,8 @@ module GI.WebKit2WebExtension.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/WebKit2WebExtension/Objects/DOMCDATASection.hs b/GI/WebKit2WebExtension/Objects/DOMCDATASection.hs --- a/GI/WebKit2WebExtension/Objects/DOMCDATASection.hs +++ b/GI/WebKit2WebExtension/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 @@ -126,7 +126,7 @@ #endif type instance AttributeList DOMCDATASection = DOMCDATASectionAttributeList -type DOMCDATASectionAttributeList = ('[ '("baseUri", DOMNodeBaseUriPropertyInfo), '("childNodes", DOMNodeChildNodesPropertyInfo), '("coreObject", DOMObjectCoreObjectPropertyInfo), '("data", DOMCharacterDataDataPropertyInfo), '("firstChild", DOMNodeFirstChildPropertyInfo), '("lastChild", DOMNodeLastChildPropertyInfo), '("length", DOMCharacterDataLengthPropertyInfo), '("localName", DOMNodeLocalNamePropertyInfo), '("namespaceUri", DOMNodeNamespaceUriPropertyInfo), '("nextElementSibling", DOMCharacterDataNextElementSiblingPropertyInfo), '("nextSibling", DOMNodeNextSiblingPropertyInfo), '("nodeName", DOMNodeNodeNamePropertyInfo), '("nodeType", DOMNodeNodeTypePropertyInfo), '("nodeValue", DOMNodeNodeValuePropertyInfo), '("ownerDocument", DOMNodeOwnerDocumentPropertyInfo), '("parentElement", DOMNodeParentElementPropertyInfo), '("parentNode", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previousElementSibling", DOMCharacterDataPreviousElementSiblingPropertyInfo), '("previousSibling", DOMNodePreviousSiblingPropertyInfo), '("textContent", DOMNodeTextContentPropertyInfo), '("wholeText", DOMTextWholeTextPropertyInfo)] :: [(Symbol, *)]) +type DOMCDATASectionAttributeList = ('[ '("baseUri", DOMNodeBaseUriPropertyInfo), '("childNodes", DOMNodeChildNodesPropertyInfo), '("coreObject", DOMObjectCoreObjectPropertyInfo), '("data", DOMCharacterDataDataPropertyInfo), '("firstChild", DOMNodeFirstChildPropertyInfo), '("lastChild", DOMNodeLastChildPropertyInfo), '("length", DOMCharacterDataLengthPropertyInfo), '("localName", DOMNodeLocalNamePropertyInfo), '("namespaceUri", DOMNodeNamespaceUriPropertyInfo), '("nextElementSibling", DOMCharacterDataNextElementSiblingPropertyInfo), '("nextSibling", DOMNodeNextSiblingPropertyInfo), '("nodeName", DOMNodeNodeNamePropertyInfo), '("nodeType", DOMNodeNodeTypePropertyInfo), '("nodeValue", DOMNodeNodeValuePropertyInfo), '("ownerDocument", DOMNodeOwnerDocumentPropertyInfo), '("parentElement", DOMNodeParentElementPropertyInfo), '("parentNode", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previousElementSibling", DOMCharacterDataPreviousElementSiblingPropertyInfo), '("previousSibling", DOMNodePreviousSiblingPropertyInfo), '("textContent", DOMNodeTextContentPropertyInfo), '("treeRoot", DOMNodeTreeRootPropertyInfo), '("wholeText", DOMTextWholeTextPropertyInfo)] :: [(Symbol, *)]) type instance SignalList DOMCDATASection = DOMCDATASectionSignalList type DOMCDATASectionSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) diff --git a/GI/WebKit2WebExtension/Objects/DOMCDATASection.hs-boot b/GI/WebKit2WebExtension/Objects/DOMCDATASection.hs-boot --- a/GI/WebKit2WebExtension/Objects/DOMCDATASection.hs-boot +++ b/GI/WebKit2WebExtension/Objects/DOMCDATASection.hs-boot @@ -1,8 +1,8 @@ module GI.WebKit2WebExtension.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/WebKit2WebExtension/Objects/DOMCSSRule.hs b/GI/WebKit2WebExtension/Objects/DOMCSSRule.hs --- a/GI/WebKit2WebExtension/Objects/DOMCSSRule.hs +++ b/GI/WebKit2WebExtension/Objects/DOMCSSRule.hs @@ -47,23 +47,28 @@ -- * Properties -- ** CssText DOMCSSRuleCssTextPropertyInfo , + clearDOMCSSRuleCssText , constructDOMCSSRuleCssText , + dOMCSSRuleCssText , getDOMCSSRuleCssText , setDOMCSSRuleCssText , -- ** ParentRule DOMCSSRuleParentRulePropertyInfo , + dOMCSSRuleParentRule , getDOMCSSRuleParentRule , -- ** ParentStyleSheet DOMCSSRuleParentStyleSheetPropertyInfo , + dOMCSSRuleParentStyleSheet , getDOMCSSRuleParentStyleSheet , -- ** Type DOMCSSRuleTypePropertyInfo , + dOMCSSRuleType , getDOMCSSRuleType , @@ -71,9 +76,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 @@ -144,69 +149,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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 @@ -218,10 +233,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, *)]) @@ -229,7 +257,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -259,7 +287,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMCSSRule", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit2WebExtension" "DOMCSSRule" +-- returnType : Just (TInterface "WebKit2WebExtension" "DOMCSSRule") -- throws : False -- Skip return : False @@ -288,7 +316,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMCSSRule", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit2WebExtension" "DOMCSSStyleSheet" +-- returnType : Just (TInterface "WebKit2WebExtension" "DOMCSSStyleSheet") -- throws : False -- Skip return : False @@ -317,7 +345,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMCSSRule", 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 @@ -344,7 +372,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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/WebKit2WebExtension/Objects/DOMCSSRule.hs-boot b/GI/WebKit2WebExtension/Objects/DOMCSSRule.hs-boot --- a/GI/WebKit2WebExtension/Objects/DOMCSSRule.hs-boot +++ b/GI/WebKit2WebExtension/Objects/DOMCSSRule.hs-boot @@ -1,8 +1,8 @@ module GI.WebKit2WebExtension.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/WebKit2WebExtension/Objects/DOMCSSRuleList.hs b/GI/WebKit2WebExtension/Objects/DOMCSSRuleList.hs --- a/GI/WebKit2WebExtension/Objects/DOMCSSRuleList.hs +++ b/GI/WebKit2WebExtension/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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "DOMCSSRule" +-- returnType : Just (TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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/WebKit2WebExtension/Objects/DOMCSSRuleList.hs-boot b/GI/WebKit2WebExtension/Objects/DOMCSSRuleList.hs-boot --- a/GI/WebKit2WebExtension/Objects/DOMCSSRuleList.hs-boot +++ b/GI/WebKit2WebExtension/Objects/DOMCSSRuleList.hs-boot @@ -1,8 +1,8 @@ module GI.WebKit2WebExtension.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/WebKit2WebExtension/Objects/DOMCSSStyleDeclaration.hs b/GI/WebKit2WebExtension/Objects/DOMCSSStyleDeclaration.hs --- a/GI/WebKit2WebExtension/Objects/DOMCSSStyleDeclaration.hs +++ b/GI/WebKit2WebExtension/Objects/DOMCSSStyleDeclaration.hs @@ -77,18 +77,22 @@ -- * Properties -- ** CssText DOMCSSStyleDeclarationCssTextPropertyInfo, + clearDOMCSSStyleDeclarationCssText , constructDOMCSSStyleDeclarationCssText , + dOMCSSStyleDeclarationCssText , getDOMCSSStyleDeclarationCssText , setDOMCSSStyleDeclarationCssText , -- ** Length DOMCSSStyleDeclarationLengthPropertyInfo, + dOMCSSStyleDeclarationLength , getDOMCSSStyleDeclarationLength , -- ** ParentRule DOMCSSStyleDeclarationParentRulePropertyInfo, + dOMCSSStyleDeclarationParentRule , getDOMCSSStyleDeclarationParentRule , @@ -96,9 +100,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 @@ -173,66 +177,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 "WebKit2WebExtension" "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, *)]) @@ -240,7 +262,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -270,19 +292,19 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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' @@ -290,14 +312,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 "WebKit2WebExtension" "DOMCSSStyleDeclaration", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit2WebExtension" "DOMCSSRule" +-- returnType : Just (TInterface "WebKit2WebExtension" "DOMCSSRule") -- throws : False -- Skip return : False @@ -326,7 +348,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -360,7 +382,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -394,7 +416,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -428,7 +450,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -458,22 +480,22 @@ -- method DOMCSSStyleDeclaration::item -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 @@ -485,14 +507,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 "WebKit2WebExtension" "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 @@ -531,7 +553,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -567,7 +589,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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/WebKit2WebExtension/Objects/DOMCSSStyleDeclaration.hs-boot b/GI/WebKit2WebExtension/Objects/DOMCSSStyleDeclaration.hs-boot --- a/GI/WebKit2WebExtension/Objects/DOMCSSStyleDeclaration.hs-boot +++ b/GI/WebKit2WebExtension/Objects/DOMCSSStyleDeclaration.hs-boot @@ -1,8 +1,8 @@ module GI.WebKit2WebExtension.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/WebKit2WebExtension/Objects/DOMCSSStyleSheet.hs b/GI/WebKit2WebExtension/Objects/DOMCSSStyleSheet.hs --- a/GI/WebKit2WebExtension/Objects/DOMCSSStyleSheet.hs +++ b/GI/WebKit2WebExtension/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 @@ -157,68 +160,83 @@ -- VVV Prop "css-rules" -- Type: TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 @@ -226,9 +244,9 @@ Ptr DOMCSSStyleSheet -> -- _obj : TInterface "WebKit2WebExtension" "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 :: @@ -236,8 +254,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 @@ -254,20 +272,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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "DOMCSSStyleSheet" - Word64 -> -- index : TBasicType TUInt64 + CULong -> -- index : TBasicType TULong Ptr (Ptr GError) -> -- error IO () @@ -275,7 +293,7 @@ dOMCSSStyleSheetDeleteRule :: (MonadIO m, DOMCSSStyleSheetK a) => a -- _obj - -> Word64 -- index + -> CULong -- index -> m () -- result dOMCSSStyleSheetDeleteRule _obj index = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj @@ -288,14 +306,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 "WebKit2WebExtension" "DOMCSSStyleSheet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit2WebExtension" "DOMCSSRuleList" +-- returnType : Just (TInterface "WebKit2WebExtension" "DOMCSSRuleList") -- throws : False -- Skip return : False @@ -324,7 +342,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMCSSStyleSheet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit2WebExtension" "DOMCSSRule" +-- returnType : Just (TInterface "WebKit2WebExtension" "DOMCSSRule") -- throws : False -- Skip return : False @@ -353,7 +371,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMCSSStyleSheet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit2WebExtension" "DOMCSSRuleList" +-- returnType : Just (TInterface "WebKit2WebExtension" "DOMCSSRuleList") -- throws : False -- Skip return : False @@ -380,26 +398,26 @@ -- method DOMCSSStyleSheet::insert_rule -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 @@ -413,20 +431,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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "DOMCSSStyleSheet" - Word64 -> -- index : TBasicType TUInt64 + CULong -> -- index : TBasicType TULong Ptr (Ptr GError) -> -- error IO () @@ -434,7 +452,7 @@ dOMCSSStyleSheetRemoveRule :: (MonadIO m, DOMCSSStyleSheetK a) => a -- _obj - -> Word64 -- index + -> CULong -- index -> m () -- result dOMCSSStyleSheetRemoveRule _obj index = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj @@ -447,7 +465,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/WebKit2WebExtension/Objects/DOMCSSStyleSheet.hs-boot b/GI/WebKit2WebExtension/Objects/DOMCSSStyleSheet.hs-boot --- a/GI/WebKit2WebExtension/Objects/DOMCSSStyleSheet.hs-boot +++ b/GI/WebKit2WebExtension/Objects/DOMCSSStyleSheet.hs-boot @@ -1,8 +1,8 @@ module GI.WebKit2WebExtension.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/WebKit2WebExtension/Objects/DOMCSSValue.hs b/GI/WebKit2WebExtension/Objects/DOMCSSValue.hs --- a/GI/WebKit2WebExtension/Objects/DOMCSSValue.hs +++ b/GI/WebKit2WebExtension/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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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/WebKit2WebExtension/Objects/DOMCSSValue.hs-boot b/GI/WebKit2WebExtension/Objects/DOMCSSValue.hs-boot --- a/GI/WebKit2WebExtension/Objects/DOMCSSValue.hs-boot +++ b/GI/WebKit2WebExtension/Objects/DOMCSSValue.hs-boot @@ -1,8 +1,8 @@ module GI.WebKit2WebExtension.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/WebKit2WebExtension/Objects/DOMCharacterData.hs b/GI/WebKit2WebExtension/Objects/DOMCharacterData.hs --- a/GI/WebKit2WebExtension/Objects/DOMCharacterData.hs +++ b/GI/WebKit2WebExtension/Objects/DOMCharacterData.hs @@ -62,23 +62,28 @@ -- * Properties -- ** Data DOMCharacterDataDataPropertyInfo , + clearDOMCharacterDataData , constructDOMCharacterDataData , + dOMCharacterDataData , getDOMCharacterDataData , setDOMCharacterDataData , -- ** Length DOMCharacterDataLengthPropertyInfo , + dOMCharacterDataLength , getDOMCharacterDataLength , -- ** NextElementSibling DOMCharacterDataNextElementSiblingPropertyInfo, + dOMCharacterDataNextElementSibling , getDOMCharacterDataNextElementSibling , -- ** PreviousElementSibling DOMCharacterDataPreviousElementSiblingPropertyInfo, + dOMCharacterDataPreviousElementSibling , getDOMCharacterDataPreviousElementSibling, @@ -86,9 +91,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,84 +198,107 @@ -- 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 -- VVV Prop "next-element-sibling" -- Type: TInterface "WebKit2WebExtension" "DOMElement" -- Flags: [PropertyReadable] + -- Nullable: (Nothing,Nothing) -getDOMCharacterDataNextElementSibling :: (MonadIO m, DOMCharacterDataK o) => o -> m DOMElement +getDOMCharacterDataNextElementSibling :: (MonadIO m, DOMCharacterDataK o) => o -> m (Maybe DOMElement) getDOMCharacterDataNextElementSibling obj = liftIO $ getObjectPropertyObject obj "next-element-sibling" DOMElement data DOMCharacterDataNextElementSiblingPropertyInfo instance AttrInfo DOMCharacterDataNextElementSiblingPropertyInfo where - type AttrAllowedOps DOMCharacterDataNextElementSiblingPropertyInfo = '[ 'AttrGet] + type AttrAllowedOps DOMCharacterDataNextElementSiblingPropertyInfo = '[ 'AttrGet, 'AttrClear] type AttrSetTypeConstraint DOMCharacterDataNextElementSiblingPropertyInfo = (~) () type AttrBaseTypeConstraint DOMCharacterDataNextElementSiblingPropertyInfo = DOMCharacterDataK - type AttrGetType DOMCharacterDataNextElementSiblingPropertyInfo = DOMElement + type AttrGetType DOMCharacterDataNextElementSiblingPropertyInfo = (Maybe DOMElement) type AttrLabel DOMCharacterDataNextElementSiblingPropertyInfo = "next-element-sibling" attrGet _ = getDOMCharacterDataNextElementSibling attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "previous-element-sibling" -- Type: TInterface "WebKit2WebExtension" "DOMElement" -- Flags: [PropertyReadable] + -- Nullable: (Nothing,Nothing) -getDOMCharacterDataPreviousElementSibling :: (MonadIO m, DOMCharacterDataK o) => o -> m DOMElement +getDOMCharacterDataPreviousElementSibling :: (MonadIO m, DOMCharacterDataK o) => o -> m (Maybe DOMElement) getDOMCharacterDataPreviousElementSibling obj = liftIO $ getObjectPropertyObject obj "previous-element-sibling" DOMElement data DOMCharacterDataPreviousElementSiblingPropertyInfo instance AttrInfo DOMCharacterDataPreviousElementSiblingPropertyInfo where - type AttrAllowedOps DOMCharacterDataPreviousElementSiblingPropertyInfo = '[ 'AttrGet] + type AttrAllowedOps DOMCharacterDataPreviousElementSiblingPropertyInfo = '[ 'AttrGet, 'AttrClear] type AttrSetTypeConstraint DOMCharacterDataPreviousElementSiblingPropertyInfo = (~) () type AttrBaseTypeConstraint DOMCharacterDataPreviousElementSiblingPropertyInfo = DOMCharacterDataK - type AttrGetType DOMCharacterDataPreviousElementSiblingPropertyInfo = DOMElement + type AttrGetType DOMCharacterDataPreviousElementSiblingPropertyInfo = (Maybe DOMElement) type AttrLabel DOMCharacterDataPreviousElementSiblingPropertyInfo = "previous-element-sibling" attrGet _ = getDOMCharacterDataPreviousElementSibling 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), '("nextElementSibling", DOMCharacterDataNextElementSiblingPropertyInfo), '("nextSibling", DOMNodeNextSiblingPropertyInfo), '("nodeName", DOMNodeNodeNamePropertyInfo), '("nodeType", DOMNodeNodeTypePropertyInfo), '("nodeValue", DOMNodeNodeValuePropertyInfo), '("ownerDocument", DOMNodeOwnerDocumentPropertyInfo), '("parentElement", DOMNodeParentElementPropertyInfo), '("parentNode", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previousElementSibling", DOMCharacterDataPreviousElementSiblingPropertyInfo), '("previousSibling", DOMNodePreviousSiblingPropertyInfo), '("textContent", DOMNodeTextContentPropertyInfo)] :: [(Symbol, *)]) +type DOMCharacterDataAttributeList = ('[ '("baseUri", DOMNodeBaseUriPropertyInfo), '("childNodes", DOMNodeChildNodesPropertyInfo), '("coreObject", DOMObjectCoreObjectPropertyInfo), '("data", DOMCharacterDataDataPropertyInfo), '("firstChild", DOMNodeFirstChildPropertyInfo), '("lastChild", DOMNodeLastChildPropertyInfo), '("length", DOMCharacterDataLengthPropertyInfo), '("localName", DOMNodeLocalNamePropertyInfo), '("namespaceUri", DOMNodeNamespaceUriPropertyInfo), '("nextElementSibling", DOMCharacterDataNextElementSiblingPropertyInfo), '("nextSibling", DOMNodeNextSiblingPropertyInfo), '("nodeName", DOMNodeNodeNamePropertyInfo), '("nodeType", DOMNodeNodeTypePropertyInfo), '("nodeValue", DOMNodeNodeValuePropertyInfo), '("ownerDocument", DOMNodeOwnerDocumentPropertyInfo), '("parentElement", DOMNodeParentElementPropertyInfo), '("parentNode", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previousElementSibling", DOMCharacterDataPreviousElementSiblingPropertyInfo), '("previousSibling", DOMNodePreviousSiblingPropertyInfo), '("textContent", DOMNodeTextContentPropertyInfo), '("treeRoot", DOMNodeTreeRootPropertyInfo)] :: [(Symbol, *)]) +dOMCharacterDataData :: AttrLabelProxy "data" +dOMCharacterDataData = AttrLabelProxy + +dOMCharacterDataLength :: AttrLabelProxy "length" +dOMCharacterDataLength = AttrLabelProxy + +dOMCharacterDataNextElementSibling :: AttrLabelProxy "nextElementSibling" +dOMCharacterDataNextElementSibling = AttrLabelProxy + +dOMCharacterDataPreviousElementSibling :: AttrLabelProxy "previousElementSibling" +dOMCharacterDataPreviousElementSibling = AttrLabelProxy + type instance SignalList DOMCharacterData = DOMCharacterDataSignalList type DOMCharacterDataSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) @@ -278,7 +306,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -312,16 +340,16 @@ -- method DOMCharacterData::delete_data -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "DOMCharacterData" - Word64 -> -- offset : TBasicType TUInt64 - Word64 -> -- length : TBasicType TUInt64 + CULong -> -- offset : TBasicType TULong + CULong -> -- length : TBasicType TULong Ptr (Ptr GError) -> -- error IO () @@ -329,8 +357,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 @@ -343,14 +371,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 "WebKit2WebExtension" "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 @@ -380,19 +408,19 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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' @@ -400,20 +428,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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "DOMCharacterData" - Word64 -> -- offset : TBasicType TUInt64 + CULong -> -- offset : TBasicType TULong CString -> -- data : TBasicType TUTF8 Ptr (Ptr GError) -> -- error IO () @@ -422,7 +450,7 @@ dOMCharacterDataInsertData :: (MonadIO m, DOMCharacterDataK a) => a -- _obj - -> Word64 -- offset + -> CULong -- offset -> T.Text -- data_ -> m () -- result dOMCharacterDataInsertData _obj offset data_ = liftIO $ do @@ -438,21 +466,21 @@ ) 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::replace_data -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 () @@ -461,8 +489,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 @@ -478,14 +506,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 "WebKit2WebExtension" "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 @@ -519,16 +547,16 @@ -- method DOMCharacterData::substring_data -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "DOMCharacterData" - Word64 -> -- offset : TBasicType TUInt64 - Word64 -> -- length : TBasicType TUInt64 + CULong -> -- offset : TBasicType TULong + CULong -> -- length : TBasicType TULong Ptr (Ptr GError) -> -- error IO CString @@ -536,8 +564,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 @@ -553,7 +581,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/WebKit2WebExtension/Objects/DOMCharacterData.hs-boot b/GI/WebKit2WebExtension/Objects/DOMCharacterData.hs-boot --- a/GI/WebKit2WebExtension/Objects/DOMCharacterData.hs-boot +++ b/GI/WebKit2WebExtension/Objects/DOMCharacterData.hs-boot @@ -1,8 +1,8 @@ module GI.WebKit2WebExtension.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/WebKit2WebExtension/Objects/DOMComment.hs b/GI/WebKit2WebExtension/Objects/DOMComment.hs --- a/GI/WebKit2WebExtension/Objects/DOMComment.hs +++ b/GI/WebKit2WebExtension/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 @@ -123,7 +123,7 @@ #endif type instance AttributeList DOMComment = DOMCommentAttributeList -type DOMCommentAttributeList = ('[ '("baseUri", DOMNodeBaseUriPropertyInfo), '("childNodes", DOMNodeChildNodesPropertyInfo), '("coreObject", DOMObjectCoreObjectPropertyInfo), '("data", DOMCharacterDataDataPropertyInfo), '("firstChild", DOMNodeFirstChildPropertyInfo), '("lastChild", DOMNodeLastChildPropertyInfo), '("length", DOMCharacterDataLengthPropertyInfo), '("localName", DOMNodeLocalNamePropertyInfo), '("namespaceUri", DOMNodeNamespaceUriPropertyInfo), '("nextElementSibling", DOMCharacterDataNextElementSiblingPropertyInfo), '("nextSibling", DOMNodeNextSiblingPropertyInfo), '("nodeName", DOMNodeNodeNamePropertyInfo), '("nodeType", DOMNodeNodeTypePropertyInfo), '("nodeValue", DOMNodeNodeValuePropertyInfo), '("ownerDocument", DOMNodeOwnerDocumentPropertyInfo), '("parentElement", DOMNodeParentElementPropertyInfo), '("parentNode", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previousElementSibling", DOMCharacterDataPreviousElementSiblingPropertyInfo), '("previousSibling", DOMNodePreviousSiblingPropertyInfo), '("textContent", DOMNodeTextContentPropertyInfo)] :: [(Symbol, *)]) +type DOMCommentAttributeList = ('[ '("baseUri", DOMNodeBaseUriPropertyInfo), '("childNodes", DOMNodeChildNodesPropertyInfo), '("coreObject", DOMObjectCoreObjectPropertyInfo), '("data", DOMCharacterDataDataPropertyInfo), '("firstChild", DOMNodeFirstChildPropertyInfo), '("lastChild", DOMNodeLastChildPropertyInfo), '("length", DOMCharacterDataLengthPropertyInfo), '("localName", DOMNodeLocalNamePropertyInfo), '("namespaceUri", DOMNodeNamespaceUriPropertyInfo), '("nextElementSibling", DOMCharacterDataNextElementSiblingPropertyInfo), '("nextSibling", DOMNodeNextSiblingPropertyInfo), '("nodeName", DOMNodeNodeNamePropertyInfo), '("nodeType", DOMNodeNodeTypePropertyInfo), '("nodeValue", DOMNodeNodeValuePropertyInfo), '("ownerDocument", DOMNodeOwnerDocumentPropertyInfo), '("parentElement", DOMNodeParentElementPropertyInfo), '("parentNode", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previousElementSibling", DOMCharacterDataPreviousElementSiblingPropertyInfo), '("previousSibling", DOMNodePreviousSiblingPropertyInfo), '("textContent", DOMNodeTextContentPropertyInfo), '("treeRoot", DOMNodeTreeRootPropertyInfo)] :: [(Symbol, *)]) type instance SignalList DOMComment = DOMCommentSignalList type DOMCommentSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) diff --git a/GI/WebKit2WebExtension/Objects/DOMComment.hs-boot b/GI/WebKit2WebExtension/Objects/DOMComment.hs-boot --- a/GI/WebKit2WebExtension/Objects/DOMComment.hs-boot +++ b/GI/WebKit2WebExtension/Objects/DOMComment.hs-boot @@ -1,8 +1,8 @@ module GI.WebKit2WebExtension.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/WebKit2WebExtension/Objects/DOMDOMImplementation.hs b/GI/WebKit2WebExtension/Objects/DOMDOMImplementation.hs --- a/GI/WebKit2WebExtension/Objects/DOMDOMImplementation.hs +++ b/GI/WebKit2WebExtension/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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "DOMCSSStyleSheet" +-- returnType : Just (TInterface "WebKit2WebExtension" "DOMCSSStyleSheet") -- throws : True -- Skip return : False @@ -169,7 +169,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "DOMDocumentType", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit2WebExtension" "DOMDocument" +-- returnType : Just (TInterface "WebKit2WebExtension" "DOMDocument") -- throws : True -- Skip return : False @@ -224,7 +224,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "DOMDocumentType" +-- returnType : Just (TInterface "WebKit2WebExtension" "DOMDocumentType") -- throws : True -- Skip return : False @@ -272,7 +272,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "DOMHTMLDocument" +-- returnType : Just (TInterface "WebKit2WebExtension" "DOMHTMLDocument") -- throws : False -- Skip return : False @@ -305,7 +305,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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/WebKit2WebExtension/Objects/DOMDOMImplementation.hs-boot b/GI/WebKit2WebExtension/Objects/DOMDOMImplementation.hs-boot --- a/GI/WebKit2WebExtension/Objects/DOMDOMImplementation.hs-boot +++ b/GI/WebKit2WebExtension/Objects/DOMDOMImplementation.hs-boot @@ -1,8 +1,8 @@ module GI.WebKit2WebExtension.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/WebKit2WebExtension/Objects/DOMDOMWindow.hs b/GI/WebKit2WebExtension/Objects/DOMDOMWindow.hs --- a/GI/WebKit2WebExtension/Objects/DOMDOMWindow.hs +++ b/GI/WebKit2WebExtension/Objects/DOMDOMWindow.hs @@ -27,147 +27,178 @@ -- * Properties -- ** Closed DOMDOMWindowClosedPropertyInfo , + dOMDOMWindowClosed , getDOMDOMWindowClosed , -- ** DefaultStatus DOMDOMWindowDefaultStatusPropertyInfo , + clearDOMDOMWindowDefaultStatus , constructDOMDOMWindowDefaultStatus , + dOMDOMWindowDefaultStatus , getDOMDOMWindowDefaultStatus , setDOMDOMWindowDefaultStatus , -- ** DevicePixelRatio DOMDOMWindowDevicePixelRatioPropertyInfo, + dOMDOMWindowDevicePixelRatio , getDOMDOMWindowDevicePixelRatio , -- ** Document DOMDOMWindowDocumentPropertyInfo , + dOMDOMWindowDocument , getDOMDOMWindowDocument , -- ** FrameElement DOMDOMWindowFrameElementPropertyInfo , + dOMDOMWindowFrameElement , getDOMDOMWindowFrameElement , -- ** Frames DOMDOMWindowFramesPropertyInfo , + dOMDOMWindowFrames , getDOMDOMWindowFrames , -- ** InnerHeight DOMDOMWindowInnerHeightPropertyInfo , + dOMDOMWindowInnerHeight , getDOMDOMWindowInnerHeight , -- ** InnerWidth DOMDOMWindowInnerWidthPropertyInfo , + dOMDOMWindowInnerWidth , getDOMDOMWindowInnerWidth , -- ** Length DOMDOMWindowLengthPropertyInfo , + dOMDOMWindowLength , getDOMDOMWindowLength , -- ** Name DOMDOMWindowNamePropertyInfo , + clearDOMDOMWindowName , constructDOMDOMWindowName , + dOMDOMWindowName , getDOMDOMWindowName , setDOMDOMWindowName , -- ** OffscreenBuffering DOMDOMWindowOffscreenBufferingPropertyInfo, + dOMDOMWindowOffscreenBuffering , getDOMDOMWindowOffscreenBuffering , -- ** Opener DOMDOMWindowOpenerPropertyInfo , + dOMDOMWindowOpener , getDOMDOMWindowOpener , -- ** Orientation DOMDOMWindowOrientationPropertyInfo , + dOMDOMWindowOrientation , getDOMDOMWindowOrientation , -- ** OuterHeight DOMDOMWindowOuterHeightPropertyInfo , + dOMDOMWindowOuterHeight , getDOMDOMWindowOuterHeight , -- ** OuterWidth DOMDOMWindowOuterWidthPropertyInfo , + dOMDOMWindowOuterWidth , getDOMDOMWindowOuterWidth , -- ** PageXOffset DOMDOMWindowPageXOffsetPropertyInfo , + dOMDOMWindowPageXOffset , getDOMDOMWindowPageXOffset , -- ** PageYOffset DOMDOMWindowPageYOffsetPropertyInfo , + dOMDOMWindowPageYOffset , getDOMDOMWindowPageYOffset , -- ** Parent DOMDOMWindowParentPropertyInfo , + dOMDOMWindowParent , getDOMDOMWindowParent , -- ** ScreenLeft DOMDOMWindowScreenLeftPropertyInfo , + dOMDOMWindowScreenLeft , getDOMDOMWindowScreenLeft , -- ** ScreenTop DOMDOMWindowScreenTopPropertyInfo , + dOMDOMWindowScreenTop , getDOMDOMWindowScreenTop , -- ** ScreenX DOMDOMWindowScreenXPropertyInfo , + dOMDOMWindowScreenX , getDOMDOMWindowScreenX , -- ** ScreenY DOMDOMWindowScreenYPropertyInfo , + dOMDOMWindowScreenY , getDOMDOMWindowScreenY , -- ** ScrollX DOMDOMWindowScrollXPropertyInfo , + dOMDOMWindowScrollX , getDOMDOMWindowScrollX , -- ** ScrollY DOMDOMWindowScrollYPropertyInfo , + dOMDOMWindowScrollY , getDOMDOMWindowScrollY , -- ** Self DOMDOMWindowSelfPropertyInfo , + dOMDOMWindowSelf , getDOMDOMWindowSelf , -- ** Status DOMDOMWindowStatusPropertyInfo , + clearDOMDOMWindowStatus , constructDOMDOMWindowStatus , + dOMDOMWindowStatus , getDOMDOMWindowStatus , setDOMDOMWindowStatus , -- ** Top DOMDOMWindowTopPropertyInfo , + dOMDOMWindowTop , getDOMDOMWindowTop , -- ** Window DOMDOMWindowWindowPropertyInfo , + dOMDOMWindowWindow , getDOMDOMWindowWindow , @@ -175,9 +206,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 +278,7 @@ -- VVV Prop "closed" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable] + -- Nullable: (Nothing,Nothing) getDOMDOMWindowClosed :: (MonadIO m, DOMDOMWindowK o) => o -> m Bool getDOMDOMWindowClosed obj = liftIO $ getObjectPropertyBool obj "closed" @@ -261,34 +293,41 @@ attrGet _ = getDOMDOMWindowClosed attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "default-status" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) -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) +clearDOMDOMWindowDefaultStatus :: (MonadIO m, DOMDOMWindowK o) => o -> m () +clearDOMDOMWindowDefaultStatus obj = liftIO $ setObjectPropertyString obj "default-status" (Nothing :: Maybe T.Text) + data DOMDOMWindowDefaultStatusPropertyInfo instance AttrInfo DOMDOMWindowDefaultStatusPropertyInfo where - type AttrAllowedOps DOMDOMWindowDefaultStatusPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrAllowedOps DOMDOMWindowDefaultStatusPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] 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 _ = clearDOMDOMWindowDefaultStatus -- VVV Prop "device-pixel-ratio" -- Type: TBasicType TDouble -- Flags: [PropertyReadable] + -- Nullable: (Nothing,Nothing) getDOMDOMWindowDevicePixelRatio :: (MonadIO m, DOMDOMWindowK o) => o -> m Double getDOMDOMWindowDevicePixelRatio obj = liftIO $ getObjectPropertyDouble obj "device-pixel-ratio" @@ -303,142 +342,161 @@ attrGet _ = getDOMDOMWindowDevicePixelRatio attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "document" -- Type: TInterface "WebKit2WebExtension" "DOMDocument" -- Flags: [PropertyReadable] + -- Nullable: (Nothing,Nothing) -getDOMDOMWindowDocument :: (MonadIO m, DOMDOMWindowK o) => o -> m DOMDocument +getDOMDOMWindowDocument :: (MonadIO m, DOMDOMWindowK o) => o -> m (Maybe DOMDocument) getDOMDOMWindowDocument obj = liftIO $ 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 + type AttrGetType DOMDOMWindowDocumentPropertyInfo = (Maybe DOMDocument) type AttrLabel DOMDOMWindowDocumentPropertyInfo = "document" attrGet _ = getDOMDOMWindowDocument attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "frame-element" -- Type: TInterface "WebKit2WebExtension" "DOMElement" -- Flags: [PropertyReadable] + -- Nullable: (Nothing,Nothing) -getDOMDOMWindowFrameElement :: (MonadIO m, DOMDOMWindowK o) => o -> m DOMElement +getDOMDOMWindowFrameElement :: (MonadIO m, DOMDOMWindowK o) => o -> m (Maybe DOMElement) getDOMDOMWindowFrameElement obj = liftIO $ 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 + type AttrGetType DOMDOMWindowFrameElementPropertyInfo = (Maybe DOMElement) type AttrLabel DOMDOMWindowFrameElementPropertyInfo = "frame-element" attrGet _ = getDOMDOMWindowFrameElement attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "frames" -- Type: TInterface "WebKit2WebExtension" "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 "inner-height" - -- Type: TBasicType TInt64 + -- Type: TBasicType TLong -- Flags: [PropertyReadable] + -- Nullable: (Nothing,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: (Nothing,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: (Nothing,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 "name" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) -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) +clearDOMDOMWindowName :: (MonadIO m, DOMDOMWindowK o) => o -> m () +clearDOMDOMWindowName obj = liftIO $ setObjectPropertyString obj "name" (Nothing :: Maybe T.Text) + data DOMDOMWindowNamePropertyInfo instance AttrInfo DOMDOMWindowNamePropertyInfo where - type AttrAllowedOps DOMDOMWindowNamePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrAllowedOps DOMDOMWindowNamePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] 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 _ = clearDOMDOMWindowName -- VVV Prop "offscreen-buffering" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable] + -- Nullable: (Nothing,Nothing) getDOMDOMWindowOffscreenBuffering :: (MonadIO m, DOMDOMWindowK o) => o -> m Bool getDOMDOMWindowOffscreenBuffering obj = liftIO $ getObjectPropertyBool obj "offscreen-buffering" @@ -453,322 +511,444 @@ attrGet _ = getDOMDOMWindowOffscreenBuffering attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "opener" -- Type: TInterface "WebKit2WebExtension" "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 "orientation" - -- Type: TBasicType TInt64 + -- Type: TBasicType TLong -- Flags: [PropertyReadable] + -- Nullable: (Nothing,Nothing) -getDOMDOMWindowOrientation :: (MonadIO m, DOMDOMWindowK o) => o -> m Int64 -getDOMDOMWindowOrientation obj = liftIO $ getObjectPropertyInt64 obj "orientation" +getDOMDOMWindowOrientation :: (MonadIO m, DOMDOMWindowK o) => o -> m CLong +getDOMDOMWindowOrientation obj = liftIO $ getObjectPropertyLong obj "orientation" data DOMDOMWindowOrientationPropertyInfo instance AttrInfo DOMDOMWindowOrientationPropertyInfo where type AttrAllowedOps DOMDOMWindowOrientationPropertyInfo = '[ 'AttrGet] type AttrSetTypeConstraint DOMDOMWindowOrientationPropertyInfo = (~) () type AttrBaseTypeConstraint DOMDOMWindowOrientationPropertyInfo = DOMDOMWindowK - type AttrGetType DOMDOMWindowOrientationPropertyInfo = Int64 + type AttrGetType DOMDOMWindowOrientationPropertyInfo = CLong type AttrLabel DOMDOMWindowOrientationPropertyInfo = "orientation" attrGet _ = getDOMDOMWindowOrientation attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "outer-height" - -- Type: TBasicType TInt64 + -- Type: TBasicType TLong -- Flags: [PropertyReadable] + -- Nullable: (Nothing,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: (Nothing,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: (Nothing,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: (Nothing,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 "WebKit2WebExtension" "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 "screen-left" - -- Type: TBasicType TInt64 + -- Type: TBasicType TLong -- Flags: [PropertyReadable] + -- Nullable: (Nothing,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: (Nothing,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: (Nothing,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: (Nothing,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: (Nothing,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: (Nothing,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 "self" -- Type: TInterface "WebKit2WebExtension" "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 "status" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) -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) +clearDOMDOMWindowStatus :: (MonadIO m, DOMDOMWindowK o) => o -> m () +clearDOMDOMWindowStatus obj = liftIO $ setObjectPropertyString obj "status" (Nothing :: Maybe T.Text) + data DOMDOMWindowStatusPropertyInfo instance AttrInfo DOMDOMWindowStatusPropertyInfo where - type AttrAllowedOps DOMDOMWindowStatusPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrAllowedOps DOMDOMWindowStatusPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] 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 _ = clearDOMDOMWindowStatus -- VVV Prop "top" -- Type: TInterface "WebKit2WebExtension" "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 "window" -- Type: TInterface "WebKit2WebExtension" "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 = ('[ '("closed", DOMDOMWindowClosedPropertyInfo), '("coreObject", DOMObjectCoreObjectPropertyInfo), '("defaultStatus", DOMDOMWindowDefaultStatusPropertyInfo), '("devicePixelRatio", DOMDOMWindowDevicePixelRatioPropertyInfo), '("document", DOMDOMWindowDocumentPropertyInfo), '("frameElement", DOMDOMWindowFrameElementPropertyInfo), '("frames", DOMDOMWindowFramesPropertyInfo), '("innerHeight", DOMDOMWindowInnerHeightPropertyInfo), '("innerWidth", DOMDOMWindowInnerWidthPropertyInfo), '("length", DOMDOMWindowLengthPropertyInfo), '("name", DOMDOMWindowNamePropertyInfo), '("offscreenBuffering", DOMDOMWindowOffscreenBufferingPropertyInfo), '("opener", DOMDOMWindowOpenerPropertyInfo), '("orientation", DOMDOMWindowOrientationPropertyInfo), '("outerHeight", DOMDOMWindowOuterHeightPropertyInfo), '("outerWidth", DOMDOMWindowOuterWidthPropertyInfo), '("pageXOffset", DOMDOMWindowPageXOffsetPropertyInfo), '("pageYOffset", DOMDOMWindowPageYOffsetPropertyInfo), '("parent", DOMDOMWindowParentPropertyInfo), '("screenLeft", DOMDOMWindowScreenLeftPropertyInfo), '("screenTop", DOMDOMWindowScreenTopPropertyInfo), '("screenX", DOMDOMWindowScreenXPropertyInfo), '("screenY", DOMDOMWindowScreenYPropertyInfo), '("scrollX", DOMDOMWindowScrollXPropertyInfo), '("scrollY", DOMDOMWindowScrollYPropertyInfo), '("self", DOMDOMWindowSelfPropertyInfo), '("status", DOMDOMWindowStatusPropertyInfo), '("top", DOMDOMWindowTopPropertyInfo), '("window", DOMDOMWindowWindowPropertyInfo)] :: [(Symbol, *)]) +dOMDOMWindowClosed :: AttrLabelProxy "closed" +dOMDOMWindowClosed = 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 + +dOMDOMWindowInnerHeight :: AttrLabelProxy "innerHeight" +dOMDOMWindowInnerHeight = AttrLabelProxy + +dOMDOMWindowInnerWidth :: AttrLabelProxy "innerWidth" +dOMDOMWindowInnerWidth = AttrLabelProxy + +dOMDOMWindowLength :: AttrLabelProxy "length" +dOMDOMWindowLength = AttrLabelProxy + +dOMDOMWindowName :: AttrLabelProxy "name" +dOMDOMWindowName = AttrLabelProxy + +dOMDOMWindowOffscreenBuffering :: AttrLabelProxy "offscreenBuffering" +dOMDOMWindowOffscreenBuffering = AttrLabelProxy + +dOMDOMWindowOpener :: AttrLabelProxy "opener" +dOMDOMWindowOpener = AttrLabelProxy + +dOMDOMWindowOrientation :: AttrLabelProxy "orientation" +dOMDOMWindowOrientation = 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 + +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 + +dOMDOMWindowSelf :: AttrLabelProxy "self" +dOMDOMWindowSelf = AttrLabelProxy + +dOMDOMWindowStatus :: AttrLabelProxy "status" +dOMDOMWindowStatus = AttrLabelProxy + +dOMDOMWindowTop :: AttrLabelProxy "top" +dOMDOMWindowTop = AttrLabelProxy + +dOMDOMWindowWindow :: AttrLabelProxy "window" +dOMDOMWindowWindow = AttrLabelProxy + type instance SignalList DOMDOMWindow = DOMDOMWindowSignalList type DOMDOMWindowSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) @@ -776,7 +956,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "handler", argType = TBasicType TUTF8, 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 diff --git a/GI/WebKit2WebExtension/Objects/DOMDOMWindow.hs-boot b/GI/WebKit2WebExtension/Objects/DOMDOMWindow.hs-boot --- a/GI/WebKit2WebExtension/Objects/DOMDOMWindow.hs-boot +++ b/GI/WebKit2WebExtension/Objects/DOMDOMWindow.hs-boot @@ -1,8 +1,8 @@ module GI.WebKit2WebExtension.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/WebKit2WebExtension/Objects/DOMDocument.hs b/GI/WebKit2WebExtension/Objects/DOMDocument.hs --- a/GI/WebKit2WebExtension/Objects/DOMDocument.hs +++ b/GI/WebKit2WebExtension/Objects/DOMDocument.hs @@ -197,6 +197,11 @@ dOMDocumentGetElementsByClassName , +-- ** dOMDocumentGetElementsByClassNameAsHtmlCollection + DOMDocumentGetElementsByClassNameAsHtmlCollectionMethodInfo, + dOMDocumentGetElementsByClassNameAsHtmlCollection, + + -- ** dOMDocumentGetElementsByName DOMDocumentGetElementsByNameMethodInfo , dOMDocumentGetElementsByName , @@ -207,11 +212,21 @@ dOMDocumentGetElementsByTagName , +-- ** dOMDocumentGetElementsByTagNameAsHtmlCollection + DOMDocumentGetElementsByTagNameAsHtmlCollectionMethodInfo, + dOMDocumentGetElementsByTagNameAsHtmlCollection, + + -- ** dOMDocumentGetElementsByTagNameNs DOMDocumentGetElementsByTagNameNsMethodInfo, dOMDocumentGetElementsByTagNameNs , +-- ** dOMDocumentGetElementsByTagNameNsAsHtmlCollection + DOMDocumentGetElementsByTagNameNsAsHtmlCollectionMethodInfo, + dOMDocumentGetElementsByTagNameNsAsHtmlCollection, + + -- ** dOMDocumentGetForms DOMDocumentGetFormsMethodInfo , dOMDocumentGetForms , @@ -392,249 +407,298 @@ -- * Properties -- ** ActiveElement DOMDocumentActiveElementPropertyInfo , + dOMDocumentActiveElement , getDOMDocumentActiveElement , -- ** Anchors DOMDocumentAnchorsPropertyInfo , + dOMDocumentAnchors , getDOMDocumentAnchors , -- ** Applets DOMDocumentAppletsPropertyInfo , + dOMDocumentApplets , getDOMDocumentApplets , -- ** Body DOMDocumentBodyPropertyInfo , + dOMDocumentBody , getDOMDocumentBody , -- ** CharacterSet DOMDocumentCharacterSetPropertyInfo , + dOMDocumentCharacterSet , getDOMDocumentCharacterSet , -- ** Charset DOMDocumentCharsetPropertyInfo , constructDOMDocumentCharset , + dOMDocumentCharset , getDOMDocumentCharset , setDOMDocumentCharset , -- ** ChildElementCount DOMDocumentChildElementCountPropertyInfo, + dOMDocumentChildElementCount , getDOMDocumentChildElementCount , -- ** Children DOMDocumentChildrenPropertyInfo , + dOMDocumentChildren , getDOMDocumentChildren , -- ** CompatMode DOMDocumentCompatModePropertyInfo , + dOMDocumentCompatMode , getDOMDocumentCompatMode , -- ** ContentType DOMDocumentContentTypePropertyInfo , + dOMDocumentContentType , getDOMDocumentContentType , -- ** 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 , -- ** FirstElementChild DOMDocumentFirstElementChildPropertyInfo, + dOMDocumentFirstElementChild , getDOMDocumentFirstElementChild , -- ** Forms DOMDocumentFormsPropertyInfo , + dOMDocumentForms , getDOMDocumentForms , -- ** Head DOMDocumentHeadPropertyInfo , + dOMDocumentHead , getDOMDocumentHead , -- ** Hidden DOMDocumentHiddenPropertyInfo , + dOMDocumentHidden , getDOMDocumentHidden , -- ** Images DOMDocumentImagesPropertyInfo , + dOMDocumentImages , getDOMDocumentImages , -- ** Implementation DOMDocumentImplementationPropertyInfo , + dOMDocumentImplementation , getDOMDocumentImplementation , -- ** InputEncoding DOMDocumentInputEncodingPropertyInfo , + dOMDocumentInputEncoding , getDOMDocumentInputEncoding , -- ** LastElementChild DOMDocumentLastElementChildPropertyInfo , + dOMDocumentLastElementChild , getDOMDocumentLastElementChild , -- ** LastModified DOMDocumentLastModifiedPropertyInfo , + dOMDocumentLastModified , getDOMDocumentLastModified , -- ** Links DOMDocumentLinksPropertyInfo , + dOMDocumentLinks , getDOMDocumentLinks , -- ** Origin DOMDocumentOriginPropertyInfo , + dOMDocumentOrigin , getDOMDocumentOrigin , -- ** PointerLockElement DOMDocumentPointerLockElementPropertyInfo, + dOMDocumentPointerLockElement , getDOMDocumentPointerLockElement , -- ** PreferredStylesheetSet DOMDocumentPreferredStylesheetSetPropertyInfo, + dOMDocumentPreferredStylesheetSet , getDOMDocumentPreferredStylesheetSet , -- ** ReadyState DOMDocumentReadyStatePropertyInfo , + dOMDocumentReadyState , getDOMDocumentReadyState , -- ** Referrer DOMDocumentReferrerPropertyInfo , + dOMDocumentReferrer , getDOMDocumentReferrer , -- ** ScrollingElement DOMDocumentScrollingElementPropertyInfo , + dOMDocumentScrollingElement , getDOMDocumentScrollingElement , -- ** 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 , -- ** XmlEncoding DOMDocumentXmlEncodingPropertyInfo , + dOMDocumentXmlEncoding , getDOMDocumentXmlEncoding , -- ** XmlStandalone DOMDocumentXmlStandalonePropertyInfo , constructDOMDocumentXmlStandalone , + dOMDocumentXmlStandalone , getDOMDocumentXmlStandalone , setDOMDocumentXmlStandalone , -- ** XmlVersion DOMDocumentXmlVersionPropertyInfo , + clearDOMDocumentXmlVersion , constructDOMDocumentXmlVersion , + dOMDocumentXmlVersion , getDOMDocumentXmlVersion , setDOMDocumentXmlVersion , @@ -643,9 +707,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 @@ -759,9 +823,12 @@ ResolveDOMDocumentMethod "getDomain" o = DOMDocumentGetDomainMethodInfo ResolveDOMDocumentMethod "getElementById" o = DOMDocumentGetElementByIdMethodInfo ResolveDOMDocumentMethod "getElementsByClassName" o = DOMDocumentGetElementsByClassNameMethodInfo + ResolveDOMDocumentMethod "getElementsByClassNameAsHtmlCollection" o = DOMDocumentGetElementsByClassNameAsHtmlCollectionMethodInfo ResolveDOMDocumentMethod "getElementsByName" o = DOMDocumentGetElementsByNameMethodInfo ResolveDOMDocumentMethod "getElementsByTagName" o = DOMDocumentGetElementsByTagNameMethodInfo + ResolveDOMDocumentMethod "getElementsByTagNameAsHtmlCollection" o = DOMDocumentGetElementsByTagNameAsHtmlCollectionMethodInfo ResolveDOMDocumentMethod "getElementsByTagNameNs" o = DOMDocumentGetElementsByTagNameNsMethodInfo + ResolveDOMDocumentMethod "getElementsByTagNameNsAsHtmlCollection" o = DOMDocumentGetElementsByTagNameNsAsHtmlCollectionMethodInfo ResolveDOMDocumentMethod "getFirstChild" o = DOMNodeGetFirstChildMethodInfo ResolveDOMDocumentMethod "getForms" o = DOMDocumentGetFormsMethodInfo ResolveDOMDocumentMethod "getHead" o = DOMDocumentGetHeadMethodInfo @@ -822,13 +889,14 @@ -- VVV Prop "active-element" -- Type: TInterface "WebKit2WebExtension" "DOMElement" -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) getDOMDocumentActiveElement :: (MonadIO m, DOMDocumentK o) => o -> m DOMElement -getDOMDocumentActiveElement obj = liftIO $ getObjectPropertyObject obj "active-element" DOMElement +getDOMDocumentActiveElement obj = liftIO $ checkUnexpectedNothing "getDOMDocumentActiveElement" $ getObjectPropertyObject obj "active-element" DOMElement data DOMDocumentActiveElementPropertyInfo instance AttrInfo DOMDocumentActiveElementPropertyInfo where - type AttrAllowedOps DOMDocumentActiveElementPropertyInfo = '[ 'AttrGet] + type AttrAllowedOps DOMDocumentActiveElementPropertyInfo = '[ 'AttrGet, 'AttrClear] type AttrSetTypeConstraint DOMDocumentActiveElementPropertyInfo = (~) () type AttrBaseTypeConstraint DOMDocumentActiveElementPropertyInfo = DOMDocumentK type AttrGetType DOMDocumentActiveElementPropertyInfo = DOMElement @@ -836,53 +904,59 @@ attrGet _ = getDOMDocumentActiveElement attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "anchors" -- Type: TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 @@ -890,209 +964,234 @@ 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 "child-element-count" - -- Type: TBasicType TUInt64 + -- Type: TBasicType TULong -- Flags: [PropertyReadable] + -- Nullable: (Nothing,Nothing) -getDOMDocumentChildElementCount :: (MonadIO m, DOMDocumentK o) => o -> m Word64 -getDOMDocumentChildElementCount obj = liftIO $ getObjectPropertyUInt64 obj "child-element-count" +getDOMDocumentChildElementCount :: (MonadIO m, DOMDocumentK o) => o -> m CULong +getDOMDocumentChildElementCount obj = liftIO $ getObjectPropertyULong obj "child-element-count" data DOMDocumentChildElementCountPropertyInfo instance AttrInfo DOMDocumentChildElementCountPropertyInfo where type AttrAllowedOps DOMDocumentChildElementCountPropertyInfo = '[ 'AttrGet] type AttrSetTypeConstraint DOMDocumentChildElementCountPropertyInfo = (~) () type AttrBaseTypeConstraint DOMDocumentChildElementCountPropertyInfo = DOMDocumentK - type AttrGetType DOMDocumentChildElementCountPropertyInfo = Word64 + type AttrGetType DOMDocumentChildElementCountPropertyInfo = CULong type AttrLabel DOMDocumentChildElementCountPropertyInfo = "child-element-count" attrGet _ = getDOMDocumentChildElementCount attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "children" -- Type: TInterface "WebKit2WebExtension" "DOMHTMLCollection" -- Flags: [PropertyReadable] + -- Nullable: (Nothing,Nothing) -getDOMDocumentChildren :: (MonadIO m, DOMDocumentK o) => o -> m DOMHTMLCollection +getDOMDocumentChildren :: (MonadIO m, DOMDocumentK o) => o -> m (Maybe DOMHTMLCollection) getDOMDocumentChildren obj = liftIO $ getObjectPropertyObject obj "children" DOMHTMLCollection data DOMDocumentChildrenPropertyInfo instance AttrInfo DOMDocumentChildrenPropertyInfo where - type AttrAllowedOps DOMDocumentChildrenPropertyInfo = '[ 'AttrGet] + type AttrAllowedOps DOMDocumentChildrenPropertyInfo = '[ 'AttrGet, 'AttrClear] type AttrSetTypeConstraint DOMDocumentChildrenPropertyInfo = (~) () type AttrBaseTypeConstraint DOMDocumentChildrenPropertyInfo = DOMDocumentK - type AttrGetType DOMDocumentChildrenPropertyInfo = DOMHTMLCollection + type AttrGetType DOMDocumentChildrenPropertyInfo = (Maybe DOMHTMLCollection) type AttrLabel DOMDocumentChildrenPropertyInfo = "children" attrGet _ = getDOMDocumentChildren attrSet _ = undefined attrConstruct _ = undefined + 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 "content-type" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable] + -- Nullable: (Nothing,Nothing) -getDOMDocumentContentType :: (MonadIO m, DOMDocumentK o) => o -> m T.Text +getDOMDocumentContentType :: (MonadIO m, DOMDocumentK o) => o -> m (Maybe T.Text) getDOMDocumentContentType obj = liftIO $ getObjectPropertyString obj "content-type" data DOMDocumentContentTypePropertyInfo instance AttrInfo DOMDocumentContentTypePropertyInfo where - type AttrAllowedOps DOMDocumentContentTypePropertyInfo = '[ 'AttrGet] + type AttrAllowedOps DOMDocumentContentTypePropertyInfo = '[ 'AttrGet, 'AttrClear] type AttrSetTypeConstraint DOMDocumentContentTypePropertyInfo = (~) () type AttrBaseTypeConstraint DOMDocumentContentTypePropertyInfo = DOMDocumentK - type AttrGetType DOMDocumentContentTypePropertyInfo = T.Text + type AttrGetType DOMDocumentContentTypePropertyInfo = (Maybe T.Text) type AttrLabel DOMDocumentContentTypePropertyInfo = "content-type" attrGet _ = getDOMDocumentContentType 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 "WebKit2WebExtension" "DOMHTMLScriptElement" -- Flags: [PropertyReadable] + -- Nullable: (Nothing,Nothing) -getDOMDocumentCurrentScript :: (MonadIO m, DOMDocumentK o) => o -> m DOMHTMLScriptElement +getDOMDocumentCurrentScript :: (MonadIO m, DOMDocumentK o) => o -> m (Maybe DOMHTMLScriptElement) getDOMDocumentCurrentScript obj = liftIO $ 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 + type AttrGetType DOMDocumentCurrentScriptPropertyInfo = (Maybe DOMHTMLScriptElement) type AttrLabel DOMDocumentCurrentScriptPropertyInfo = "current-script" 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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 @@ -1100,17 +1199,19 @@ attrGet _ = getDOMDocumentDoctype attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "document-element" -- Type: TInterface "WebKit2WebExtension" "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 @@ -1118,95 +1219,105 @@ 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 "first-element-child" -- Type: TInterface "WebKit2WebExtension" "DOMElement" -- Flags: [PropertyReadable] + -- Nullable: (Nothing,Nothing) -getDOMDocumentFirstElementChild :: (MonadIO m, DOMDocumentK o) => o -> m DOMElement +getDOMDocumentFirstElementChild :: (MonadIO m, DOMDocumentK o) => o -> m (Maybe DOMElement) getDOMDocumentFirstElementChild obj = liftIO $ getObjectPropertyObject obj "first-element-child" DOMElement data DOMDocumentFirstElementChildPropertyInfo instance AttrInfo DOMDocumentFirstElementChildPropertyInfo where - type AttrAllowedOps DOMDocumentFirstElementChildPropertyInfo = '[ 'AttrGet] + type AttrAllowedOps DOMDocumentFirstElementChildPropertyInfo = '[ 'AttrGet, 'AttrClear] type AttrSetTypeConstraint DOMDocumentFirstElementChildPropertyInfo = (~) () type AttrBaseTypeConstraint DOMDocumentFirstElementChildPropertyInfo = DOMDocumentK - type AttrGetType DOMDocumentFirstElementChildPropertyInfo = DOMElement + type AttrGetType DOMDocumentFirstElementChildPropertyInfo = (Maybe DOMElement) type AttrLabel DOMDocumentFirstElementChildPropertyInfo = "first-element-child" attrGet _ = getDOMDocumentFirstElementChild attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "forms" -- Type: TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 @@ -1214,10 +1325,12 @@ attrGet _ = getDOMDocumentHead attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "hidden" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable] + -- Nullable: (Nothing,Nothing) getDOMDocumentHidden :: (MonadIO m, DOMDocumentK o) => o -> m Bool getDOMDocumentHidden obj = liftIO $ getObjectPropertyBool obj "hidden" @@ -1232,257 +1345,285 @@ attrGet _ = getDOMDocumentHidden attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "images" -- Type: TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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-element-child" -- Type: TInterface "WebKit2WebExtension" "DOMElement" -- Flags: [PropertyReadable] + -- Nullable: (Nothing,Nothing) -getDOMDocumentLastElementChild :: (MonadIO m, DOMDocumentK o) => o -> m DOMElement +getDOMDocumentLastElementChild :: (MonadIO m, DOMDocumentK o) => o -> m (Maybe DOMElement) getDOMDocumentLastElementChild obj = liftIO $ getObjectPropertyObject obj "last-element-child" DOMElement data DOMDocumentLastElementChildPropertyInfo instance AttrInfo DOMDocumentLastElementChildPropertyInfo where - type AttrAllowedOps DOMDocumentLastElementChildPropertyInfo = '[ 'AttrGet] + type AttrAllowedOps DOMDocumentLastElementChildPropertyInfo = '[ 'AttrGet, 'AttrClear] type AttrSetTypeConstraint DOMDocumentLastElementChildPropertyInfo = (~) () type AttrBaseTypeConstraint DOMDocumentLastElementChildPropertyInfo = DOMDocumentK - type AttrGetType DOMDocumentLastElementChildPropertyInfo = DOMElement + type AttrGetType DOMDocumentLastElementChildPropertyInfo = (Maybe DOMElement) type AttrLabel DOMDocumentLastElementChildPropertyInfo = "last-element-child" attrGet _ = getDOMDocumentLastElementChild 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 "WebKit2WebExtension" "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 "origin" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable] + -- Nullable: (Nothing,Nothing) -getDOMDocumentOrigin :: (MonadIO m, DOMDocumentK o) => o -> m T.Text +getDOMDocumentOrigin :: (MonadIO m, DOMDocumentK o) => o -> m (Maybe T.Text) getDOMDocumentOrigin obj = liftIO $ getObjectPropertyString obj "origin" data DOMDocumentOriginPropertyInfo instance AttrInfo DOMDocumentOriginPropertyInfo where - type AttrAllowedOps DOMDocumentOriginPropertyInfo = '[ 'AttrGet] + type AttrAllowedOps DOMDocumentOriginPropertyInfo = '[ 'AttrGet, 'AttrClear] type AttrSetTypeConstraint DOMDocumentOriginPropertyInfo = (~) () type AttrBaseTypeConstraint DOMDocumentOriginPropertyInfo = DOMDocumentK - type AttrGetType DOMDocumentOriginPropertyInfo = T.Text + type AttrGetType DOMDocumentOriginPropertyInfo = (Maybe T.Text) type AttrLabel DOMDocumentOriginPropertyInfo = "origin" attrGet _ = getDOMDocumentOrigin attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "pointer-lock-element" -- Type: TInterface "WebKit2WebExtension" "DOMElement" -- Flags: [PropertyReadable] + -- Nullable: (Nothing,Nothing) -getDOMDocumentPointerLockElement :: (MonadIO m, DOMDocumentK o) => o -> m DOMElement +getDOMDocumentPointerLockElement :: (MonadIO m, DOMDocumentK o) => o -> m (Maybe DOMElement) getDOMDocumentPointerLockElement obj = liftIO $ getObjectPropertyObject obj "pointer-lock-element" DOMElement data DOMDocumentPointerLockElementPropertyInfo instance AttrInfo DOMDocumentPointerLockElementPropertyInfo where - type AttrAllowedOps DOMDocumentPointerLockElementPropertyInfo = '[ 'AttrGet] + type AttrAllowedOps DOMDocumentPointerLockElementPropertyInfo = '[ 'AttrGet, 'AttrClear] type AttrSetTypeConstraint DOMDocumentPointerLockElementPropertyInfo = (~) () type AttrBaseTypeConstraint DOMDocumentPointerLockElementPropertyInfo = DOMDocumentK - type AttrGetType DOMDocumentPointerLockElementPropertyInfo = DOMElement + type AttrGetType DOMDocumentPointerLockElementPropertyInfo = (Maybe DOMElement) type AttrLabel DOMDocumentPointerLockElementPropertyInfo = "pointer-lock-element" attrGet _ = getDOMDocumentPointerLockElement 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 "scrolling-element" -- Type: TInterface "WebKit2WebExtension" "DOMElement" -- Flags: [PropertyReadable] + -- Nullable: (Nothing,Nothing) -getDOMDocumentScrollingElement :: (MonadIO m, DOMDocumentK o) => o -> m DOMElement +getDOMDocumentScrollingElement :: (MonadIO m, DOMDocumentK o) => o -> m (Maybe DOMElement) getDOMDocumentScrollingElement obj = liftIO $ getObjectPropertyObject obj "scrolling-element" DOMElement data DOMDocumentScrollingElementPropertyInfo instance AttrInfo DOMDocumentScrollingElementPropertyInfo where - type AttrAllowedOps DOMDocumentScrollingElementPropertyInfo = '[ 'AttrGet] + type AttrAllowedOps DOMDocumentScrollingElementPropertyInfo = '[ 'AttrGet, 'AttrClear] type AttrSetTypeConstraint DOMDocumentScrollingElementPropertyInfo = (~) () type AttrBaseTypeConstraint DOMDocumentScrollingElementPropertyInfo = DOMDocumentK - type AttrGetType DOMDocumentScrollingElementPropertyInfo = DOMElement + type AttrGetType DOMDocumentScrollingElementPropertyInfo = (Maybe DOMElement) type AttrLabel DOMDocumentScrollingElementPropertyInfo = "scrolling-element" attrGet _ = getDOMDocumentScrollingElement 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 "WebKit2WebExtension" "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 @@ -1490,88 +1631,98 @@ 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 "WebKit2WebExtension" "DOMElement" -- Flags: [PropertyReadable] + -- Nullable: (Nothing,Nothing) -getDOMDocumentWebkitCurrentFullScreenElement :: (MonadIO m, DOMDocumentK o) => o -> m DOMElement +getDOMDocumentWebkitCurrentFullScreenElement :: (MonadIO m, DOMDocumentK o) => o -> m (Maybe DOMElement) getDOMDocumentWebkitCurrentFullScreenElement obj = liftIO $ 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 + type AttrGetType DOMDocumentWebkitCurrentFullScreenElementPropertyInfo = (Maybe DOMElement) type AttrLabel DOMDocumentWebkitCurrentFullScreenElementPropertyInfo = "webkit-current-full-screen-element" attrGet _ = getDOMDocumentWebkitCurrentFullScreenElement attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "webkit-full-screen-keyboard-input-allowed" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable] + -- Nullable: (Nothing,Nothing) getDOMDocumentWebkitFullScreenKeyboardInputAllowed :: (MonadIO m, DOMDocumentK o) => o -> m Bool getDOMDocumentWebkitFullScreenKeyboardInputAllowed obj = liftIO $ getObjectPropertyBool obj "webkit-full-screen-keyboard-input-allowed" @@ -1586,28 +1737,32 @@ attrGet _ = getDOMDocumentWebkitFullScreenKeyboardInputAllowed attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "webkit-fullscreen-element" -- Type: TInterface "WebKit2WebExtension" "DOMElement" -- Flags: [PropertyReadable] + -- Nullable: (Nothing,Nothing) -getDOMDocumentWebkitFullscreenElement :: (MonadIO m, DOMDocumentK o) => o -> m DOMElement +getDOMDocumentWebkitFullscreenElement :: (MonadIO m, DOMDocumentK o) => o -> m (Maybe DOMElement) getDOMDocumentWebkitFullscreenElement obj = liftIO $ 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 + type AttrGetType DOMDocumentWebkitFullscreenElementPropertyInfo = (Maybe DOMElement) type AttrLabel DOMDocumentWebkitFullscreenElementPropertyInfo = "webkit-fullscreen-element" attrGet _ = getDOMDocumentWebkitFullscreenElement attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "webkit-fullscreen-enabled" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable] + -- Nullable: (Nothing,Nothing) getDOMDocumentWebkitFullscreenEnabled :: (MonadIO m, DOMDocumentK o) => o -> m Bool getDOMDocumentWebkitFullscreenEnabled obj = liftIO $ getObjectPropertyBool obj "webkit-fullscreen-enabled" @@ -1622,10 +1777,12 @@ attrGet _ = getDOMDocumentWebkitFullscreenEnabled attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "webkit-is-full-screen" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable] + -- Nullable: (Nothing,Nothing) getDOMDocumentWebkitIsFullScreen :: (MonadIO m, DOMDocumentK o) => o -> m Bool getDOMDocumentWebkitIsFullScreen obj = liftIO $ getObjectPropertyBool obj "webkit-is-full-screen" @@ -1640,28 +1797,32 @@ attrGet _ = getDOMDocumentWebkitIsFullScreen 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" @@ -1682,34 +1843,181 @@ 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 = ('[ '("activeElement", DOMDocumentActiveElementPropertyInfo), '("anchors", DOMDocumentAnchorsPropertyInfo), '("applets", DOMDocumentAppletsPropertyInfo), '("baseUri", DOMNodeBaseUriPropertyInfo), '("body", DOMDocumentBodyPropertyInfo), '("characterSet", DOMDocumentCharacterSetPropertyInfo), '("charset", DOMDocumentCharsetPropertyInfo), '("childElementCount", DOMDocumentChildElementCountPropertyInfo), '("childNodes", DOMNodeChildNodesPropertyInfo), '("children", DOMDocumentChildrenPropertyInfo), '("compatMode", DOMDocumentCompatModePropertyInfo), '("contentType", DOMDocumentContentTypePropertyInfo), '("cookie", DOMDocumentCookiePropertyInfo), '("coreObject", DOMObjectCoreObjectPropertyInfo), '("currentScript", DOMDocumentCurrentScriptPropertyInfo), '("defaultCharset", DOMDocumentDefaultCharsetPropertyInfo), '("defaultView", DOMDocumentDefaultViewPropertyInfo), '("doctype", DOMDocumentDoctypePropertyInfo), '("documentElement", DOMDocumentDocumentElementPropertyInfo), '("documentUri", DOMDocumentDocumentUriPropertyInfo), '("domain", DOMDocumentDomainPropertyInfo), '("firstChild", DOMNodeFirstChildPropertyInfo), '("firstElementChild", DOMDocumentFirstElementChildPropertyInfo), '("forms", DOMDocumentFormsPropertyInfo), '("head", DOMDocumentHeadPropertyInfo), '("hidden", DOMDocumentHiddenPropertyInfo), '("images", DOMDocumentImagesPropertyInfo), '("implementation", DOMDocumentImplementationPropertyInfo), '("inputEncoding", DOMDocumentInputEncodingPropertyInfo), '("lastChild", DOMNodeLastChildPropertyInfo), '("lastElementChild", DOMDocumentLastElementChildPropertyInfo), '("lastModified", DOMDocumentLastModifiedPropertyInfo), '("links", DOMDocumentLinksPropertyInfo), '("localName", DOMNodeLocalNamePropertyInfo), '("namespaceUri", DOMNodeNamespaceUriPropertyInfo), '("nextSibling", DOMNodeNextSiblingPropertyInfo), '("nodeName", DOMNodeNodeNamePropertyInfo), '("nodeType", DOMNodeNodeTypePropertyInfo), '("nodeValue", DOMNodeNodeValuePropertyInfo), '("origin", DOMDocumentOriginPropertyInfo), '("ownerDocument", DOMNodeOwnerDocumentPropertyInfo), '("parentElement", DOMNodeParentElementPropertyInfo), '("parentNode", DOMNodeParentNodePropertyInfo), '("pointerLockElement", DOMDocumentPointerLockElementPropertyInfo), '("preferredStylesheetSet", DOMDocumentPreferredStylesheetSetPropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previousSibling", DOMNodePreviousSiblingPropertyInfo), '("readyState", DOMDocumentReadyStatePropertyInfo), '("referrer", DOMDocumentReferrerPropertyInfo), '("scrollingElement", DOMDocumentScrollingElementPropertyInfo), '("selectedStylesheetSet", DOMDocumentSelectedStylesheetSetPropertyInfo), '("styleSheets", DOMDocumentStyleSheetsPropertyInfo), '("textContent", DOMNodeTextContentPropertyInfo), '("title", DOMDocumentTitlePropertyInfo), '("url", DOMDocumentUrlPropertyInfo), '("visibilityState", DOMDocumentVisibilityStatePropertyInfo), '("webkitCurrentFullScreenElement", DOMDocumentWebkitCurrentFullScreenElementPropertyInfo), '("webkitFullScreenKeyboardInputAllowed", DOMDocumentWebkitFullScreenKeyboardInputAllowedPropertyInfo), '("webkitFullscreenElement", DOMDocumentWebkitFullscreenElementPropertyInfo), '("webkitFullscreenEnabled", DOMDocumentWebkitFullscreenEnabledPropertyInfo), '("webkitIsFullScreen", DOMDocumentWebkitIsFullScreenPropertyInfo), '("xmlEncoding", DOMDocumentXmlEncodingPropertyInfo), '("xmlStandalone", DOMDocumentXmlStandalonePropertyInfo), '("xmlVersion", DOMDocumentXmlVersionPropertyInfo)] :: [(Symbol, *)]) +type DOMDocumentAttributeList = ('[ '("activeElement", DOMDocumentActiveElementPropertyInfo), '("anchors", DOMDocumentAnchorsPropertyInfo), '("applets", DOMDocumentAppletsPropertyInfo), '("baseUri", DOMNodeBaseUriPropertyInfo), '("body", DOMDocumentBodyPropertyInfo), '("characterSet", DOMDocumentCharacterSetPropertyInfo), '("charset", DOMDocumentCharsetPropertyInfo), '("childElementCount", DOMDocumentChildElementCountPropertyInfo), '("childNodes", DOMNodeChildNodesPropertyInfo), '("children", DOMDocumentChildrenPropertyInfo), '("compatMode", DOMDocumentCompatModePropertyInfo), '("contentType", DOMDocumentContentTypePropertyInfo), '("cookie", DOMDocumentCookiePropertyInfo), '("coreObject", DOMObjectCoreObjectPropertyInfo), '("currentScript", DOMDocumentCurrentScriptPropertyInfo), '("defaultCharset", DOMDocumentDefaultCharsetPropertyInfo), '("defaultView", DOMDocumentDefaultViewPropertyInfo), '("doctype", DOMDocumentDoctypePropertyInfo), '("documentElement", DOMDocumentDocumentElementPropertyInfo), '("documentUri", DOMDocumentDocumentUriPropertyInfo), '("domain", DOMDocumentDomainPropertyInfo), '("firstChild", DOMNodeFirstChildPropertyInfo), '("firstElementChild", DOMDocumentFirstElementChildPropertyInfo), '("forms", DOMDocumentFormsPropertyInfo), '("head", DOMDocumentHeadPropertyInfo), '("hidden", DOMDocumentHiddenPropertyInfo), '("images", DOMDocumentImagesPropertyInfo), '("implementation", DOMDocumentImplementationPropertyInfo), '("inputEncoding", DOMDocumentInputEncodingPropertyInfo), '("lastChild", DOMNodeLastChildPropertyInfo), '("lastElementChild", DOMDocumentLastElementChildPropertyInfo), '("lastModified", DOMDocumentLastModifiedPropertyInfo), '("links", DOMDocumentLinksPropertyInfo), '("localName", DOMNodeLocalNamePropertyInfo), '("namespaceUri", DOMNodeNamespaceUriPropertyInfo), '("nextSibling", DOMNodeNextSiblingPropertyInfo), '("nodeName", DOMNodeNodeNamePropertyInfo), '("nodeType", DOMNodeNodeTypePropertyInfo), '("nodeValue", DOMNodeNodeValuePropertyInfo), '("origin", DOMDocumentOriginPropertyInfo), '("ownerDocument", DOMNodeOwnerDocumentPropertyInfo), '("parentElement", DOMNodeParentElementPropertyInfo), '("parentNode", DOMNodeParentNodePropertyInfo), '("pointerLockElement", DOMDocumentPointerLockElementPropertyInfo), '("preferredStylesheetSet", DOMDocumentPreferredStylesheetSetPropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previousSibling", DOMNodePreviousSiblingPropertyInfo), '("readyState", DOMDocumentReadyStatePropertyInfo), '("referrer", DOMDocumentReferrerPropertyInfo), '("scrollingElement", DOMDocumentScrollingElementPropertyInfo), '("selectedStylesheetSet", DOMDocumentSelectedStylesheetSetPropertyInfo), '("styleSheets", DOMDocumentStyleSheetsPropertyInfo), '("textContent", DOMNodeTextContentPropertyInfo), '("title", DOMDocumentTitlePropertyInfo), '("treeRoot", DOMNodeTreeRootPropertyInfo), '("url", DOMDocumentUrlPropertyInfo), '("visibilityState", DOMDocumentVisibilityStatePropertyInfo), '("webkitCurrentFullScreenElement", DOMDocumentWebkitCurrentFullScreenElementPropertyInfo), '("webkitFullScreenKeyboardInputAllowed", DOMDocumentWebkitFullScreenKeyboardInputAllowedPropertyInfo), '("webkitFullscreenElement", DOMDocumentWebkitFullscreenElementPropertyInfo), '("webkitFullscreenEnabled", DOMDocumentWebkitFullscreenEnabledPropertyInfo), '("webkitIsFullScreen", DOMDocumentWebkitIsFullScreenPropertyInfo), '("xmlEncoding", DOMDocumentXmlEncodingPropertyInfo), '("xmlStandalone", DOMDocumentXmlStandalonePropertyInfo), '("xmlVersion", DOMDocumentXmlVersionPropertyInfo)] :: [(Symbol, *)]) +dOMDocumentActiveElement :: AttrLabelProxy "activeElement" +dOMDocumentActiveElement = AttrLabelProxy + +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 + +dOMDocumentChildElementCount :: AttrLabelProxy "childElementCount" +dOMDocumentChildElementCount = AttrLabelProxy + +dOMDocumentChildren :: AttrLabelProxy "children" +dOMDocumentChildren = AttrLabelProxy + +dOMDocumentCompatMode :: AttrLabelProxy "compatMode" +dOMDocumentCompatMode = AttrLabelProxy + +dOMDocumentContentType :: AttrLabelProxy "contentType" +dOMDocumentContentType = 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 + +dOMDocumentFirstElementChild :: AttrLabelProxy "firstElementChild" +dOMDocumentFirstElementChild = 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 + +dOMDocumentLastElementChild :: AttrLabelProxy "lastElementChild" +dOMDocumentLastElementChild = AttrLabelProxy + +dOMDocumentLastModified :: AttrLabelProxy "lastModified" +dOMDocumentLastModified = AttrLabelProxy + +dOMDocumentLinks :: AttrLabelProxy "links" +dOMDocumentLinks = AttrLabelProxy + +dOMDocumentOrigin :: AttrLabelProxy "origin" +dOMDocumentOrigin = AttrLabelProxy + +dOMDocumentPointerLockElement :: AttrLabelProxy "pointerLockElement" +dOMDocumentPointerLockElement = AttrLabelProxy + +dOMDocumentPreferredStylesheetSet :: AttrLabelProxy "preferredStylesheetSet" +dOMDocumentPreferredStylesheetSet = AttrLabelProxy + +dOMDocumentReadyState :: AttrLabelProxy "readyState" +dOMDocumentReadyState = AttrLabelProxy + +dOMDocumentReferrer :: AttrLabelProxy "referrer" +dOMDocumentReferrer = AttrLabelProxy + +dOMDocumentScrollingElement :: AttrLabelProxy "scrollingElement" +dOMDocumentScrollingElement = 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 + +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, *)]) @@ -1717,7 +2025,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "source", argType = TInterface "WebKit2WebExtension" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit2WebExtension" "DOMNode" +-- returnType : Just (TInterface "WebKit2WebExtension" "DOMNode") -- throws : True -- Skip return : False @@ -1755,7 +2063,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "DOMAttr" +-- returnType : Just (TInterface "WebKit2WebExtension" "DOMAttr") -- throws : True -- Skip return : False @@ -1793,7 +2101,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "DOMAttr" +-- returnType : Just (TInterface "WebKit2WebExtension" "DOMAttr") -- throws : True -- Skip return : False @@ -1840,7 +2148,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "DOMCDATASection" +-- returnType : Just (TInterface "WebKit2WebExtension" "DOMCDATASection") -- throws : True -- Skip return : False @@ -1878,7 +2186,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "DOMComment" +-- returnType : Just (TInterface "WebKit2WebExtension" "DOMComment") -- throws : False -- Skip return : False @@ -1911,7 +2219,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit2WebExtension" "DOMCSSStyleDeclaration" +-- returnType : Just (TInterface "WebKit2WebExtension" "DOMCSSStyleDeclaration") -- throws : False -- Skip return : False @@ -1940,7 +2248,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit2WebExtension" "DOMDocumentFragment" +-- returnType : Just (TInterface "WebKit2WebExtension" "DOMDocumentFragment") -- throws : False -- Skip return : False @@ -1969,7 +2277,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "DOMElement" +-- returnType : Just (TInterface "WebKit2WebExtension" "DOMElement") -- throws : True -- Skip return : False @@ -2007,7 +2315,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "DOMElement" +-- returnType : Just (TInterface "WebKit2WebExtension" "DOMElement") -- throws : True -- Skip return : False @@ -2054,7 +2362,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "DOMEntityReference" +-- returnType : Just (TInterface "WebKit2WebExtension" "DOMEntityReference") -- throws : True -- Skip return : False @@ -2064,7 +2372,7 @@ Ptr (Ptr GError) -> -- error IO (Ptr DOMEntityReference) - +{-# DEPRECATED dOMDocumentCreateEntityReference ["(Since version 2.12)"]#-} dOMDocumentCreateEntityReference :: (MonadIO m, DOMDocumentK a) => a -- _obj @@ -2096,7 +2404,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "DOMEvent" +-- returnType : Just (TInterface "WebKit2WebExtension" "DOMEvent") -- throws : True -- Skip return : False @@ -2134,7 +2442,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "DOMXPathNSResolver", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit2WebExtension" "DOMXPathExpression" +-- returnType : Just (TInterface "WebKit2WebExtension" "DOMXPathExpression") -- throws : True -- Skip return : False @@ -2174,16 +2482,16 @@ -- method DOMDocument::create_node_iterator -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "root", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "DOMNodeFilter", direction = DirectionIn, mayBeNull = True, 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 "WebKit2WebExtension" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "root", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "DOMNodeFilter", direction = DirectionIn, mayBeNull = True, 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 "WebKit2WebExtension" "DOMNodeIterator" +-- returnType : Just (TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "DOMDocument" Ptr DOMNode -> -- root : TInterface "WebKit2WebExtension" "DOMNode" - Word64 -> -- whatToShow : TBasicType TUInt64 + CULong -> -- whatToShow : TBasicType TULong Ptr DOMNodeFilter -> -- filter : TInterface "WebKit2WebExtension" "DOMNodeFilter" CInt -> -- expandEntityReferences : TBasicType TBoolean Ptr (Ptr GError) -> -- error @@ -2194,7 +2502,7 @@ (MonadIO m, DOMDocumentK a, DOMNodeK b, DOMNodeFilterK c) => a -- _obj -> b -- root - -> Word64 -- whatToShow + -> CULong -- whatToShow -> Maybe (c) -- filter -> Bool -- expandEntityReferences -> m DOMNodeIterator -- result @@ -2220,14 +2528,14 @@ ) data DOMDocumentCreateNodeIteratorMethodInfo -instance (signature ~ (b -> Word64 -> Maybe (c) -> Bool -> m DOMNodeIterator), MonadIO m, DOMDocumentK a, DOMNodeK b, DOMNodeFilterK c) => MethodInfo DOMDocumentCreateNodeIteratorMethodInfo a signature where +instance (signature ~ (b -> CULong -> Maybe (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 "WebKit2WebExtension" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "nodeResolver", argType = TInterface "WebKit2WebExtension" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit2WebExtension" "DOMXPathNSResolver" +-- returnType : Just (TInterface "WebKit2WebExtension" "DOMXPathNSResolver") -- throws : False -- Skip return : False @@ -2260,7 +2568,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "DOMProcessingInstruction" +-- returnType : Just (TInterface "WebKit2WebExtension" "DOMProcessingInstruction") -- throws : True -- Skip return : False @@ -2303,7 +2611,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit2WebExtension" "DOMRange" +-- returnType : Just (TInterface "WebKit2WebExtension" "DOMRange") -- throws : False -- Skip return : False @@ -2332,7 +2640,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "DOMText" +-- returnType : Just (TInterface "WebKit2WebExtension" "DOMText") -- throws : False -- Skip return : False @@ -2363,16 +2671,16 @@ -- method DOMDocument::create_tree_walker -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "root", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "DOMNodeFilter", direction = DirectionIn, mayBeNull = True, 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 "WebKit2WebExtension" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "root", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "DOMNodeFilter", direction = DirectionIn, mayBeNull = True, 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 "WebKit2WebExtension" "DOMTreeWalker" +-- returnType : Just (TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "DOMDocument" Ptr DOMNode -> -- root : TInterface "WebKit2WebExtension" "DOMNode" - Word64 -> -- whatToShow : TBasicType TUInt64 + CULong -> -- whatToShow : TBasicType TULong Ptr DOMNodeFilter -> -- filter : TInterface "WebKit2WebExtension" "DOMNodeFilter" CInt -> -- expandEntityReferences : TBasicType TBoolean Ptr (Ptr GError) -> -- error @@ -2383,7 +2691,7 @@ (MonadIO m, DOMDocumentK a, DOMNodeK b, DOMNodeFilterK c) => a -- _obj -> b -- root - -> Word64 -- whatToShow + -> CULong -- whatToShow -> Maybe (c) -- filter -> Bool -- expandEntityReferences -> m DOMTreeWalker -- result @@ -2409,29 +2717,29 @@ ) data DOMDocumentCreateTreeWalkerMethodInfo -instance (signature ~ (b -> Word64 -> Maybe (c) -> Bool -> m DOMTreeWalker), MonadIO m, DOMDocumentK a, DOMNodeK b, DOMNodeFilterK c) => MethodInfo DOMDocumentCreateTreeWalkerMethodInfo a signature where +instance (signature ~ (b -> CULong -> Maybe (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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "DOMElement" +-- returnType : Just (TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 @@ -2442,14 +2750,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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "resolver", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "DOMXPathResult", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit2WebExtension" "DOMXPathResult" +-- returnType : Just (TInterface "WebKit2WebExtension" "DOMXPathResult") -- throws : True -- Skip return : False @@ -2509,7 +2817,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -2548,7 +2856,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit2WebExtension" "DOMElement" +-- returnType : Just (TInterface "WebKit2WebExtension" "DOMElement") -- throws : False -- Skip return : False @@ -2577,7 +2885,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit2WebExtension" "DOMHTMLCollection" +-- returnType : Just (TInterface "WebKit2WebExtension" "DOMHTMLCollection") -- throws : False -- Skip return : False @@ -2606,7 +2914,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit2WebExtension" "DOMHTMLCollection" +-- returnType : Just (TInterface "WebKit2WebExtension" "DOMHTMLCollection") -- throws : False -- Skip return : False @@ -2635,7 +2943,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit2WebExtension" "DOMHTMLElement" +-- returnType : Just (TInterface "WebKit2WebExtension" "DOMHTMLElement") -- throws : False -- Skip return : False @@ -2664,7 +2972,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 +3002,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 +3032,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -2759,7 +3067,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -2789,7 +3097,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit2WebExtension" "DOMDOMWindow" +-- returnType : Just (TInterface "WebKit2WebExtension" "DOMDOMWindow") -- throws : False -- Skip return : False @@ -2818,7 +3126,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit2WebExtension" "DOMDocumentType" +-- returnType : Just (TInterface "WebKit2WebExtension" "DOMDocumentType") -- throws : False -- Skip return : False @@ -2847,7 +3155,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit2WebExtension" "DOMElement" +-- returnType : Just (TInterface "WebKit2WebExtension" "DOMElement") -- throws : False -- Skip return : False @@ -2876,7 +3184,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -2906,7 +3214,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -2936,7 +3244,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "DOMElement" +-- returnType : Just (TInterface "WebKit2WebExtension" "DOMElement") -- throws : False -- Skip return : False @@ -2967,42 +3275,75 @@ -- method DOMDocument::get_elements_by_class_name -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "classNames", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "class_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit2WebExtension" "DOMNodeList" +-- returnType : Just (TInterface "WebKit2WebExtension" "DOMNodeList") -- throws : False -- Skip return : False foreign import ccall "webkit_dom_document_get_elements_by_class_name" webkit_dom_document_get_elements_by_class_name :: Ptr DOMDocument -> -- _obj : TInterface "WebKit2WebExtension" "DOMDocument" - CString -> -- classNames : TBasicType TUTF8 + CString -> -- class_name : TBasicType TUTF8 IO (Ptr DOMNodeList) - +{-# DEPRECATED dOMDocumentGetElementsByClassName ["(Since version 2.12)","Use webkit_dom_document_get_elements_by_class_name_as_html_collection() instead."]#-} dOMDocumentGetElementsByClassName :: (MonadIO m, DOMDocumentK a) => a -- _obj - -> T.Text -- classNames + -> T.Text -- className -> m DOMNodeList -- result -dOMDocumentGetElementsByClassName _obj classNames = liftIO $ do +dOMDocumentGetElementsByClassName _obj className = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - classNames' <- textToCString classNames - result <- webkit_dom_document_get_elements_by_class_name _obj' classNames' + className' <- textToCString className + result <- webkit_dom_document_get_elements_by_class_name _obj' className' checkUnexpectedReturnNULL "webkit_dom_document_get_elements_by_class_name" result result' <- (wrapObject DOMNodeList) result touchManagedPtr _obj - freeMem classNames' + freeMem className' return result' data DOMDocumentGetElementsByClassNameMethodInfo instance (signature ~ (T.Text -> m DOMNodeList), MonadIO m, DOMDocumentK a) => MethodInfo DOMDocumentGetElementsByClassNameMethodInfo a signature where overloadedMethod _ = dOMDocumentGetElementsByClassName +-- method DOMDocument::get_elements_by_class_name_as_html_collection +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "classNames", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Just (TInterface "WebKit2WebExtension" "DOMHTMLCollection") +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_document_get_elements_by_class_name_as_html_collection" webkit_dom_document_get_elements_by_class_name_as_html_collection :: + Ptr DOMDocument -> -- _obj : TInterface "WebKit2WebExtension" "DOMDocument" + CString -> -- classNames : TBasicType TUTF8 + IO (Ptr DOMHTMLCollection) + + +dOMDocumentGetElementsByClassNameAsHtmlCollection :: + (MonadIO m, DOMDocumentK a) => + a -- _obj + -> T.Text -- classNames + -> m DOMHTMLCollection -- result +dOMDocumentGetElementsByClassNameAsHtmlCollection _obj classNames = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + classNames' <- textToCString classNames + result <- webkit_dom_document_get_elements_by_class_name_as_html_collection _obj' classNames' + checkUnexpectedReturnNULL "webkit_dom_document_get_elements_by_class_name_as_html_collection" result + result' <- (wrapObject DOMHTMLCollection) result + touchManagedPtr _obj + freeMem classNames' + return result' + +data DOMDocumentGetElementsByClassNameAsHtmlCollectionMethodInfo +instance (signature ~ (T.Text -> m DOMHTMLCollection), MonadIO m, DOMDocumentK a) => MethodInfo DOMDocumentGetElementsByClassNameAsHtmlCollectionMethodInfo a signature where + overloadedMethod _ = dOMDocumentGetElementsByClassNameAsHtmlCollection + -- method DOMDocument::get_elements_by_name -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "DOMNodeList" +-- returnType : Just (TInterface "WebKit2WebExtension" "DOMNodeList") -- throws : False -- Skip return : False @@ -3033,79 +3374,149 @@ -- method DOMDocument::get_elements_by_tag_name -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "tag_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit2WebExtension" "DOMNodeList" +-- returnType : Just (TInterface "WebKit2WebExtension" "DOMNodeList") -- throws : False -- Skip return : False foreign import ccall "webkit_dom_document_get_elements_by_tag_name" webkit_dom_document_get_elements_by_tag_name :: Ptr DOMDocument -> -- _obj : TInterface "WebKit2WebExtension" "DOMDocument" - CString -> -- tagname : TBasicType TUTF8 + CString -> -- tag_name : TBasicType TUTF8 IO (Ptr DOMNodeList) - +{-# DEPRECATED dOMDocumentGetElementsByTagName ["(Since version 2.12)","Use webkit_dom_document_get_elements_by_tag_name_as_html_collection() instead."]#-} dOMDocumentGetElementsByTagName :: (MonadIO m, DOMDocumentK a) => a -- _obj - -> T.Text -- tagname + -> T.Text -- tagName -> m DOMNodeList -- result -dOMDocumentGetElementsByTagName _obj tagname = liftIO $ do +dOMDocumentGetElementsByTagName _obj tagName = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - tagname' <- textToCString tagname - result <- webkit_dom_document_get_elements_by_tag_name _obj' tagname' + tagName' <- textToCString tagName + result <- webkit_dom_document_get_elements_by_tag_name _obj' tagName' checkUnexpectedReturnNULL "webkit_dom_document_get_elements_by_tag_name" result result' <- (wrapObject DOMNodeList) result touchManagedPtr _obj - freeMem tagname' + freeMem tagName' return result' data DOMDocumentGetElementsByTagNameMethodInfo instance (signature ~ (T.Text -> m DOMNodeList), MonadIO m, DOMDocumentK a) => MethodInfo DOMDocumentGetElementsByTagNameMethodInfo a signature where overloadedMethod _ = dOMDocumentGetElementsByTagName +-- method DOMDocument::get_elements_by_tag_name_as_html_collection +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 : Just (TInterface "WebKit2WebExtension" "DOMHTMLCollection") +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_document_get_elements_by_tag_name_as_html_collection" webkit_dom_document_get_elements_by_tag_name_as_html_collection :: + Ptr DOMDocument -> -- _obj : TInterface "WebKit2WebExtension" "DOMDocument" + CString -> -- tagname : TBasicType TUTF8 + IO (Ptr DOMHTMLCollection) + + +dOMDocumentGetElementsByTagNameAsHtmlCollection :: + (MonadIO m, DOMDocumentK a) => + a -- _obj + -> T.Text -- tagname + -> m DOMHTMLCollection -- result +dOMDocumentGetElementsByTagNameAsHtmlCollection _obj tagname = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + tagname' <- textToCString tagname + result <- webkit_dom_document_get_elements_by_tag_name_as_html_collection _obj' tagname' + checkUnexpectedReturnNULL "webkit_dom_document_get_elements_by_tag_name_as_html_collection" result + result' <- (wrapObject DOMHTMLCollection) result + touchManagedPtr _obj + freeMem tagname' + return result' + +data DOMDocumentGetElementsByTagNameAsHtmlCollectionMethodInfo +instance (signature ~ (T.Text -> m DOMHTMLCollection), MonadIO m, DOMDocumentK a) => MethodInfo DOMDocumentGetElementsByTagNameAsHtmlCollectionMethodInfo a signature where + overloadedMethod _ = dOMDocumentGetElementsByTagNameAsHtmlCollection + -- method DOMDocument::get_elements_by_tag_name_ns -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "namespace_uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "tag_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit2WebExtension" "DOMNodeList" +-- returnType : Just (TInterface "WebKit2WebExtension" "DOMNodeList") -- throws : False -- Skip return : False foreign import ccall "webkit_dom_document_get_elements_by_tag_name_ns" webkit_dom_document_get_elements_by_tag_name_ns :: Ptr DOMDocument -> -- _obj : TInterface "WebKit2WebExtension" "DOMDocument" + CString -> -- namespace_uri : TBasicType TUTF8 + CString -> -- tag_name : TBasicType TUTF8 + IO (Ptr DOMNodeList) + +{-# DEPRECATED dOMDocumentGetElementsByTagNameNs ["(Since version 2.12)","Use webkit_dom_document_get_elements_by_tag_name_ns_as_html_collection() instead."]#-} +dOMDocumentGetElementsByTagNameNs :: + (MonadIO m, DOMDocumentK a) => + a -- _obj + -> T.Text -- namespaceUri + -> T.Text -- tagName + -> m DOMNodeList -- result +dOMDocumentGetElementsByTagNameNs _obj namespaceUri tagName = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + namespaceUri' <- textToCString namespaceUri + tagName' <- textToCString tagName + result <- webkit_dom_document_get_elements_by_tag_name_ns _obj' namespaceUri' tagName' + checkUnexpectedReturnNULL "webkit_dom_document_get_elements_by_tag_name_ns" result + result' <- (wrapObject DOMNodeList) result + touchManagedPtr _obj + freeMem namespaceUri' + freeMem tagName' + return result' + +data DOMDocumentGetElementsByTagNameNsMethodInfo +instance (signature ~ (T.Text -> T.Text -> m DOMNodeList), MonadIO m, DOMDocumentK a) => MethodInfo DOMDocumentGetElementsByTagNameNsMethodInfo a signature where + overloadedMethod _ = dOMDocumentGetElementsByTagNameNs + +-- method DOMDocument::get_elements_by_tag_name_ns_as_html_collection +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 : Just (TInterface "WebKit2WebExtension" "DOMHTMLCollection") +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_document_get_elements_by_tag_name_ns_as_html_collection" webkit_dom_document_get_elements_by_tag_name_ns_as_html_collection :: + Ptr DOMDocument -> -- _obj : TInterface "WebKit2WebExtension" "DOMDocument" CString -> -- namespaceURI : TBasicType TUTF8 CString -> -- localName : TBasicType TUTF8 - IO (Ptr DOMNodeList) + IO (Ptr DOMHTMLCollection) -dOMDocumentGetElementsByTagNameNs :: +dOMDocumentGetElementsByTagNameNsAsHtmlCollection :: (MonadIO m, DOMDocumentK a) => a -- _obj -> T.Text -- namespaceURI -> T.Text -- localName - -> m DOMNodeList -- result -dOMDocumentGetElementsByTagNameNs _obj namespaceURI localName = liftIO $ do + -> m DOMHTMLCollection -- result +dOMDocumentGetElementsByTagNameNsAsHtmlCollection _obj namespaceURI localName = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj namespaceURI' <- textToCString namespaceURI localName' <- textToCString localName - result <- webkit_dom_document_get_elements_by_tag_name_ns _obj' namespaceURI' localName' - checkUnexpectedReturnNULL "webkit_dom_document_get_elements_by_tag_name_ns" result - result' <- (wrapObject DOMNodeList) result + result <- webkit_dom_document_get_elements_by_tag_name_ns_as_html_collection _obj' namespaceURI' localName' + checkUnexpectedReturnNULL "webkit_dom_document_get_elements_by_tag_name_ns_as_html_collection" result + result' <- (wrapObject DOMHTMLCollection) result touchManagedPtr _obj freeMem namespaceURI' freeMem localName' return result' -data DOMDocumentGetElementsByTagNameNsMethodInfo -instance (signature ~ (T.Text -> T.Text -> m DOMNodeList), MonadIO m, DOMDocumentK a) => MethodInfo DOMDocumentGetElementsByTagNameNsMethodInfo a signature where - overloadedMethod _ = dOMDocumentGetElementsByTagNameNs +data DOMDocumentGetElementsByTagNameNsAsHtmlCollectionMethodInfo +instance (signature ~ (T.Text -> T.Text -> m DOMHTMLCollection), MonadIO m, DOMDocumentK a) => MethodInfo DOMDocumentGetElementsByTagNameNsAsHtmlCollectionMethodInfo a signature where + overloadedMethod _ = dOMDocumentGetElementsByTagNameNsAsHtmlCollection -- method DOMDocument::get_forms -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit2WebExtension" "DOMHTMLCollection" +-- returnType : Just (TInterface "WebKit2WebExtension" "DOMHTMLCollection") -- throws : False -- Skip return : False @@ -3134,7 +3545,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit2WebExtension" "DOMHTMLHeadElement" +-- returnType : Just (TInterface "WebKit2WebExtension" "DOMHTMLHeadElement") -- throws : False -- Skip return : False @@ -3163,7 +3574,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit2WebExtension" "DOMHTMLCollection" +-- returnType : Just (TInterface "WebKit2WebExtension" "DOMHTMLCollection") -- throws : False -- Skip return : False @@ -3192,7 +3603,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit2WebExtension" "DOMDOMImplementation" +-- returnType : Just (TInterface "WebKit2WebExtension" "DOMDOMImplementation") -- throws : False -- Skip return : False @@ -3221,7 +3632,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -3251,7 +3662,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -3281,7 +3692,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit2WebExtension" "DOMHTMLCollection" +-- returnType : Just (TInterface "WebKit2WebExtension" "DOMHTMLCollection") -- throws : False -- Skip return : False @@ -3310,7 +3721,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "element", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "DOMCSSStyleDeclaration" +-- returnType : Just (TInterface "WebKit2WebExtension" "DOMCSSStyleDeclaration") -- throws : False -- Skip return : False @@ -3351,7 +3762,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -3381,7 +3792,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -3411,7 +3822,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -3441,7 +3852,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -3471,7 +3882,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit2WebExtension" "DOMStyleSheetList" +-- returnType : Just (TInterface "WebKit2WebExtension" "DOMStyleSheetList") -- throws : False -- Skip return : False @@ -3500,7 +3911,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -3530,7 +3941,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -3560,7 +3971,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -3590,7 +4001,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -3618,7 +4029,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -3648,7 +4059,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -3676,7 +4087,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "importedNode", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "DOMNode" +-- returnType : Just (TInterface "WebKit2WebExtension" "DOMNode") -- throws : True -- Skip return : False @@ -3717,7 +4128,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -3749,7 +4160,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -3781,7 +4192,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -3813,7 +4224,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -3845,7 +4256,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -3879,7 +4290,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "DOMElement" +-- returnType : Just (TInterface "WebKit2WebExtension" "DOMElement") -- throws : True -- Skip return : False @@ -3917,7 +4328,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "DOMNodeList" +-- returnType : Just (TInterface "WebKit2WebExtension" "DOMNodeList") -- throws : True -- Skip return : False @@ -3955,7 +4366,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TInterface "WebKit2WebExtension" "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 @@ -3991,7 +4402,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -4022,7 +4433,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -4058,7 +4469,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -4089,7 +4500,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -4120,7 +4531,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -4151,7 +4562,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -4186,7 +4597,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 diff --git a/GI/WebKit2WebExtension/Objects/DOMDocument.hs-boot b/GI/WebKit2WebExtension/Objects/DOMDocument.hs-boot --- a/GI/WebKit2WebExtension/Objects/DOMDocument.hs-boot +++ b/GI/WebKit2WebExtension/Objects/DOMDocument.hs-boot @@ -1,8 +1,8 @@ module GI.WebKit2WebExtension.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 @@ -94,9 +94,12 @@ data DOMDocumentGetDomainMethodInfo data DOMDocumentGetElementByIdMethodInfo data DOMDocumentGetElementsByClassNameMethodInfo +data DOMDocumentGetElementsByClassNameAsHtmlCollectionMethodInfo data DOMDocumentGetElementsByNameMethodInfo data DOMDocumentGetElementsByTagNameMethodInfo +data DOMDocumentGetElementsByTagNameAsHtmlCollectionMethodInfo data DOMDocumentGetElementsByTagNameNsMethodInfo +data DOMDocumentGetElementsByTagNameNsAsHtmlCollectionMethodInfo data DOMDocumentGetFormsMethodInfo data DOMDocumentGetHeadMethodInfo data DOMDocumentGetImagesMethodInfo diff --git a/GI/WebKit2WebExtension/Objects/DOMDocumentFragment.hs b/GI/WebKit2WebExtension/Objects/DOMDocumentFragment.hs --- a/GI/WebKit2WebExtension/Objects/DOMDocumentFragment.hs +++ b/GI/WebKit2WebExtension/Objects/DOMDocumentFragment.hs @@ -19,21 +19,25 @@ -- * Properties -- ** ChildElementCount DOMDocumentFragmentChildElementCountPropertyInfo, + dOMDocumentFragmentChildElementCount , getDOMDocumentFragmentChildElementCount , -- ** Children DOMDocumentFragmentChildrenPropertyInfo , + dOMDocumentFragmentChildren , getDOMDocumentFragmentChildren , -- ** FirstElementChild DOMDocumentFragmentFirstElementChildPropertyInfo, + dOMDocumentFragmentFirstElementChild , getDOMDocumentFragmentFirstElementChild , -- ** LastElementChild DOMDocumentFragmentLastElementChildPropertyInfo, + dOMDocumentFragmentLastElementChild , getDOMDocumentFragmentLastElementChild , @@ -41,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 @@ -144,79 +148,99 @@ #endif -- VVV Prop "child-element-count" - -- Type: TBasicType TUInt64 + -- Type: TBasicType TULong -- Flags: [PropertyReadable] + -- Nullable: (Nothing,Nothing) -getDOMDocumentFragmentChildElementCount :: (MonadIO m, DOMDocumentFragmentK o) => o -> m Word64 -getDOMDocumentFragmentChildElementCount obj = liftIO $ getObjectPropertyUInt64 obj "child-element-count" +getDOMDocumentFragmentChildElementCount :: (MonadIO m, DOMDocumentFragmentK o) => o -> m CULong +getDOMDocumentFragmentChildElementCount obj = liftIO $ getObjectPropertyULong obj "child-element-count" data DOMDocumentFragmentChildElementCountPropertyInfo instance AttrInfo DOMDocumentFragmentChildElementCountPropertyInfo where type AttrAllowedOps DOMDocumentFragmentChildElementCountPropertyInfo = '[ 'AttrGet] type AttrSetTypeConstraint DOMDocumentFragmentChildElementCountPropertyInfo = (~) () type AttrBaseTypeConstraint DOMDocumentFragmentChildElementCountPropertyInfo = DOMDocumentFragmentK - type AttrGetType DOMDocumentFragmentChildElementCountPropertyInfo = Word64 + type AttrGetType DOMDocumentFragmentChildElementCountPropertyInfo = CULong type AttrLabel DOMDocumentFragmentChildElementCountPropertyInfo = "child-element-count" attrGet _ = getDOMDocumentFragmentChildElementCount attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "children" -- Type: TInterface "WebKit2WebExtension" "DOMHTMLCollection" -- Flags: [PropertyReadable] + -- Nullable: (Nothing,Nothing) -getDOMDocumentFragmentChildren :: (MonadIO m, DOMDocumentFragmentK o) => o -> m DOMHTMLCollection +getDOMDocumentFragmentChildren :: (MonadIO m, DOMDocumentFragmentK o) => o -> m (Maybe DOMHTMLCollection) getDOMDocumentFragmentChildren obj = liftIO $ getObjectPropertyObject obj "children" DOMHTMLCollection data DOMDocumentFragmentChildrenPropertyInfo instance AttrInfo DOMDocumentFragmentChildrenPropertyInfo where - type AttrAllowedOps DOMDocumentFragmentChildrenPropertyInfo = '[ 'AttrGet] + type AttrAllowedOps DOMDocumentFragmentChildrenPropertyInfo = '[ 'AttrGet, 'AttrClear] type AttrSetTypeConstraint DOMDocumentFragmentChildrenPropertyInfo = (~) () type AttrBaseTypeConstraint DOMDocumentFragmentChildrenPropertyInfo = DOMDocumentFragmentK - type AttrGetType DOMDocumentFragmentChildrenPropertyInfo = DOMHTMLCollection + type AttrGetType DOMDocumentFragmentChildrenPropertyInfo = (Maybe DOMHTMLCollection) type AttrLabel DOMDocumentFragmentChildrenPropertyInfo = "children" attrGet _ = getDOMDocumentFragmentChildren attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "first-element-child" -- Type: TInterface "WebKit2WebExtension" "DOMElement" -- Flags: [PropertyReadable] + -- Nullable: (Nothing,Nothing) -getDOMDocumentFragmentFirstElementChild :: (MonadIO m, DOMDocumentFragmentK o) => o -> m DOMElement +getDOMDocumentFragmentFirstElementChild :: (MonadIO m, DOMDocumentFragmentK o) => o -> m (Maybe DOMElement) getDOMDocumentFragmentFirstElementChild obj = liftIO $ getObjectPropertyObject obj "first-element-child" DOMElement data DOMDocumentFragmentFirstElementChildPropertyInfo instance AttrInfo DOMDocumentFragmentFirstElementChildPropertyInfo where - type AttrAllowedOps DOMDocumentFragmentFirstElementChildPropertyInfo = '[ 'AttrGet] + type AttrAllowedOps DOMDocumentFragmentFirstElementChildPropertyInfo = '[ 'AttrGet, 'AttrClear] type AttrSetTypeConstraint DOMDocumentFragmentFirstElementChildPropertyInfo = (~) () type AttrBaseTypeConstraint DOMDocumentFragmentFirstElementChildPropertyInfo = DOMDocumentFragmentK - type AttrGetType DOMDocumentFragmentFirstElementChildPropertyInfo = DOMElement + type AttrGetType DOMDocumentFragmentFirstElementChildPropertyInfo = (Maybe DOMElement) type AttrLabel DOMDocumentFragmentFirstElementChildPropertyInfo = "first-element-child" attrGet _ = getDOMDocumentFragmentFirstElementChild attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "last-element-child" -- Type: TInterface "WebKit2WebExtension" "DOMElement" -- Flags: [PropertyReadable] + -- Nullable: (Nothing,Nothing) -getDOMDocumentFragmentLastElementChild :: (MonadIO m, DOMDocumentFragmentK o) => o -> m DOMElement +getDOMDocumentFragmentLastElementChild :: (MonadIO m, DOMDocumentFragmentK o) => o -> m (Maybe DOMElement) getDOMDocumentFragmentLastElementChild obj = liftIO $ getObjectPropertyObject obj "last-element-child" DOMElement data DOMDocumentFragmentLastElementChildPropertyInfo instance AttrInfo DOMDocumentFragmentLastElementChildPropertyInfo where - type AttrAllowedOps DOMDocumentFragmentLastElementChildPropertyInfo = '[ 'AttrGet] + type AttrAllowedOps DOMDocumentFragmentLastElementChildPropertyInfo = '[ 'AttrGet, 'AttrClear] type AttrSetTypeConstraint DOMDocumentFragmentLastElementChildPropertyInfo = (~) () type AttrBaseTypeConstraint DOMDocumentFragmentLastElementChildPropertyInfo = DOMDocumentFragmentK - type AttrGetType DOMDocumentFragmentLastElementChildPropertyInfo = DOMElement + type AttrGetType DOMDocumentFragmentLastElementChildPropertyInfo = (Maybe DOMElement) type AttrLabel DOMDocumentFragmentLastElementChildPropertyInfo = "last-element-child" attrGet _ = getDOMDocumentFragmentLastElementChild attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined type instance AttributeList DOMDocumentFragment = DOMDocumentFragmentAttributeList -type DOMDocumentFragmentAttributeList = ('[ '("baseUri", DOMNodeBaseUriPropertyInfo), '("childElementCount", DOMDocumentFragmentChildElementCountPropertyInfo), '("childNodes", DOMNodeChildNodesPropertyInfo), '("children", DOMDocumentFragmentChildrenPropertyInfo), '("coreObject", DOMObjectCoreObjectPropertyInfo), '("firstChild", DOMNodeFirstChildPropertyInfo), '("firstElementChild", DOMDocumentFragmentFirstElementChildPropertyInfo), '("lastChild", DOMNodeLastChildPropertyInfo), '("lastElementChild", DOMDocumentFragmentLastElementChildPropertyInfo), '("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, *)]) +type DOMDocumentFragmentAttributeList = ('[ '("baseUri", DOMNodeBaseUriPropertyInfo), '("childElementCount", DOMDocumentFragmentChildElementCountPropertyInfo), '("childNodes", DOMNodeChildNodesPropertyInfo), '("children", DOMDocumentFragmentChildrenPropertyInfo), '("coreObject", DOMObjectCoreObjectPropertyInfo), '("firstChild", DOMNodeFirstChildPropertyInfo), '("firstElementChild", DOMDocumentFragmentFirstElementChildPropertyInfo), '("lastChild", DOMNodeLastChildPropertyInfo), '("lastElementChild", DOMDocumentFragmentLastElementChildPropertyInfo), '("localName", DOMNodeLocalNamePropertyInfo), '("namespaceUri", DOMNodeNamespaceUriPropertyInfo), '("nextSibling", DOMNodeNextSiblingPropertyInfo), '("nodeName", DOMNodeNodeNamePropertyInfo), '("nodeType", DOMNodeNodeTypePropertyInfo), '("nodeValue", DOMNodeNodeValuePropertyInfo), '("ownerDocument", DOMNodeOwnerDocumentPropertyInfo), '("parentElement", DOMNodeParentElementPropertyInfo), '("parentNode", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previousSibling", DOMNodePreviousSiblingPropertyInfo), '("textContent", DOMNodeTextContentPropertyInfo), '("treeRoot", DOMNodeTreeRootPropertyInfo)] :: [(Symbol, *)]) + +dOMDocumentFragmentChildElementCount :: AttrLabelProxy "childElementCount" +dOMDocumentFragmentChildElementCount = AttrLabelProxy + +dOMDocumentFragmentChildren :: AttrLabelProxy "children" +dOMDocumentFragmentChildren = AttrLabelProxy + +dOMDocumentFragmentFirstElementChild :: AttrLabelProxy "firstElementChild" +dOMDocumentFragmentFirstElementChild = AttrLabelProxy + +dOMDocumentFragmentLastElementChild :: AttrLabelProxy "lastElementChild" +dOMDocumentFragmentLastElementChild = AttrLabelProxy type instance SignalList DOMDocumentFragment = DOMDocumentFragmentSignalList type DOMDocumentFragmentSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) diff --git a/GI/WebKit2WebExtension/Objects/DOMDocumentFragment.hs-boot b/GI/WebKit2WebExtension/Objects/DOMDocumentFragment.hs-boot --- a/GI/WebKit2WebExtension/Objects/DOMDocumentFragment.hs-boot +++ b/GI/WebKit2WebExtension/Objects/DOMDocumentFragment.hs-boot @@ -1,8 +1,8 @@ module GI.WebKit2WebExtension.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/WebKit2WebExtension/Objects/DOMDocumentType.hs b/GI/WebKit2WebExtension/Objects/DOMDocumentType.hs --- a/GI/WebKit2WebExtension/Objects/DOMDocumentType.hs +++ b/GI/WebKit2WebExtension/Objects/DOMDocumentType.hs @@ -52,31 +52,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 , @@ -84,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 @@ -195,114 +201,144 @@ -- VVV Prop "entities" -- Type: TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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, *)]) +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), '("treeRoot", DOMNodeTreeRootPropertyInfo)] :: [(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, *)]) @@ -310,7 +346,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMDocumentType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit2WebExtension" "DOMNamedNodeMap" +-- returnType : Just (TInterface "WebKit2WebExtension" "DOMNamedNodeMap") -- throws : False -- Skip return : False @@ -339,7 +375,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -369,7 +405,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -399,7 +435,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMDocumentType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit2WebExtension" "DOMNamedNodeMap" +-- returnType : Just (TInterface "WebKit2WebExtension" "DOMNamedNodeMap") -- throws : False -- Skip return : False @@ -428,7 +464,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -458,7 +494,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 diff --git a/GI/WebKit2WebExtension/Objects/DOMDocumentType.hs-boot b/GI/WebKit2WebExtension/Objects/DOMDocumentType.hs-boot --- a/GI/WebKit2WebExtension/Objects/DOMDocumentType.hs-boot +++ b/GI/WebKit2WebExtension/Objects/DOMDocumentType.hs-boot @@ -1,8 +1,8 @@ module GI.WebKit2WebExtension.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/WebKit2WebExtension/Objects/DOMElement.hs b/GI/WebKit2WebExtension/Objects/DOMElement.hs --- a/GI/WebKit2WebExtension/Objects/DOMElement.hs +++ b/GI/WebKit2WebExtension/Objects/DOMElement.hs @@ -92,16 +92,31 @@ dOMElementGetElementsByClassName , +-- ** dOMElementGetElementsByClassNameAsHtmlCollection + DOMElementGetElementsByClassNameAsHtmlCollectionMethodInfo, + dOMElementGetElementsByClassNameAsHtmlCollection, + + -- ** dOMElementGetElementsByTagName DOMElementGetElementsByTagNameMethodInfo, dOMElementGetElementsByTagName , +-- ** dOMElementGetElementsByTagNameAsHtmlCollection + DOMElementGetElementsByTagNameAsHtmlCollectionMethodInfo, + dOMElementGetElementsByTagNameAsHtmlCollection, + + -- ** dOMElementGetElementsByTagNameNs DOMElementGetElementsByTagNameNsMethodInfo, dOMElementGetElementsByTagNameNs , +-- ** dOMElementGetElementsByTagNameNsAsHtmlCollection + DOMElementGetElementsByTagNameNsAsHtmlCollectionMethodInfo, + dOMElementGetElementsByTagNameNsAsHtmlCollection, + + -- ** dOMElementGetFirstElementChild DOMElementGetFirstElementChildMethodInfo, dOMElementGetFirstElementChild , @@ -307,120 +322,144 @@ -- * Properties -- ** Attributes DOMElementAttributesPropertyInfo , + dOMElementAttributes , getDOMElementAttributes , -- ** ChildElementCount DOMElementChildElementCountPropertyInfo , + dOMElementChildElementCount , getDOMElementChildElementCount , -- ** Children DOMElementChildrenPropertyInfo , + dOMElementChildren , getDOMElementChildren , -- ** 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 , -- ** InnerHtml DOMElementInnerHtmlPropertyInfo , + clearDOMElementInnerHtml , constructDOMElementInnerHtml , + dOMElementInnerHtml , getDOMElementInnerHtml , setDOMElementInnerHtml , -- ** 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 , -- ** OuterHtml DOMElementOuterHtmlPropertyInfo , + clearDOMElementOuterHtml , constructDOMElementOuterHtml , + dOMElementOuterHtml , getDOMElementOuterHtml , setDOMElementOuterHtml , -- ** PreviousElementSibling DOMElementPreviousElementSiblingPropertyInfo, + dOMElementPreviousElementSibling , getDOMElementPreviousElementSibling , -- ** ScrollHeight DOMElementScrollHeightPropertyInfo , + dOMElementScrollHeight , getDOMElementScrollHeight , -- ** ScrollLeft DOMElementScrollLeftPropertyInfo , constructDOMElementScrollLeft , + dOMElementScrollLeft , getDOMElementScrollLeft , setDOMElementScrollLeft , @@ -428,27 +467,32 @@ -- ** ScrollTop DOMElementScrollTopPropertyInfo , constructDOMElementScrollTop , + dOMElementScrollTop , getDOMElementScrollTop , setDOMElementScrollTop , -- ** ScrollWidth DOMElementScrollWidthPropertyInfo , + dOMElementScrollWidth , getDOMElementScrollWidth , -- ** Style DOMElementStylePropertyInfo , + dOMElementStyle , getDOMElementStyle , -- ** TagName DOMElementTagNamePropertyInfo , + dOMElementTagName , getDOMElementTagName , -- ** WebkitRegionOverset DOMElementWebkitRegionOversetPropertyInfo, + dOMElementWebkitRegionOverset , getDOMElementWebkitRegionOverset , @@ -456,9 +500,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 @@ -554,8 +598,11 @@ ResolveDOMElementMethod "getClientWidth" o = DOMElementGetClientWidthMethodInfo ResolveDOMElementMethod "getData" o = GObject.ObjectGetDataMethodInfo ResolveDOMElementMethod "getElementsByClassName" o = DOMElementGetElementsByClassNameMethodInfo + ResolveDOMElementMethod "getElementsByClassNameAsHtmlCollection" o = DOMElementGetElementsByClassNameAsHtmlCollectionMethodInfo ResolveDOMElementMethod "getElementsByTagName" o = DOMElementGetElementsByTagNameMethodInfo + ResolveDOMElementMethod "getElementsByTagNameAsHtmlCollection" o = DOMElementGetElementsByTagNameAsHtmlCollectionMethodInfo ResolveDOMElementMethod "getElementsByTagNameNs" o = DOMElementGetElementsByTagNameNsMethodInfo + ResolveDOMElementMethod "getElementsByTagNameNsAsHtmlCollection" o = DOMElementGetElementsByTagNameNsAsHtmlCollectionMethodInfo ResolveDOMElementMethod "getFirstChild" o = DOMNodeGetFirstChildMethodInfo ResolveDOMElementMethod "getFirstElementChild" o = DOMElementGetFirstElementChildMethodInfo ResolveDOMElementMethod "getId" o = DOMElementGetIdMethodInfo @@ -618,84 +665,93 @@ -- VVV Prop "attributes" -- Type: TInterface "WebKit2WebExtension" "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 "children" -- Type: TInterface "WebKit2WebExtension" "DOMHTMLCollection" -- Flags: [PropertyReadable] + -- Nullable: (Nothing,Nothing) -getDOMElementChildren :: (MonadIO m, DOMElementK o) => o -> m DOMHTMLCollection +getDOMElementChildren :: (MonadIO m, DOMElementK o) => o -> m (Maybe DOMHTMLCollection) getDOMElementChildren obj = liftIO $ getObjectPropertyObject obj "children" DOMHTMLCollection data DOMElementChildrenPropertyInfo instance AttrInfo DOMElementChildrenPropertyInfo where - type AttrAllowedOps DOMElementChildrenPropertyInfo = '[ 'AttrGet] + type AttrAllowedOps DOMElementChildrenPropertyInfo = '[ 'AttrGet, 'AttrClear] type AttrSetTypeConstraint DOMElementChildrenPropertyInfo = (~) () type AttrBaseTypeConstraint DOMElementChildrenPropertyInfo = DOMElementK - type AttrGetType DOMElementChildrenPropertyInfo = DOMHTMLCollection + type AttrGetType DOMElementChildrenPropertyInfo = (Maybe DOMHTMLCollection) type AttrLabel DOMElementChildrenPropertyInfo = "children" attrGet _ = getDOMElementChildren 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 TDouble -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) getDOMElementClientHeight :: (MonadIO m, DOMElementK o) => o -> m Double getDOMElementClientHeight obj = liftIO $ getObjectPropertyDouble obj "client-height" @@ -710,10 +766,12 @@ attrGet _ = getDOMElementClientHeight attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "client-left" -- Type: TBasicType TDouble -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) getDOMElementClientLeft :: (MonadIO m, DOMElementK o) => o -> m Double getDOMElementClientLeft obj = liftIO $ getObjectPropertyDouble obj "client-left" @@ -728,10 +786,12 @@ attrGet _ = getDOMElementClientLeft attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "client-top" -- Type: TBasicType TDouble -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) getDOMElementClientTop :: (MonadIO m, DOMElementK o) => o -> m Double getDOMElementClientTop obj = liftIO $ getObjectPropertyDouble obj "client-top" @@ -746,10 +806,12 @@ attrGet _ = getDOMElementClientTop attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "client-width" -- Type: TBasicType TDouble -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) getDOMElementClientWidth :: (MonadIO m, DOMElementK o) => o -> m Double getDOMElementClientWidth obj = liftIO $ getObjectPropertyDouble obj "client-width" @@ -764,17 +826,19 @@ attrGet _ = getDOMElementClientWidth attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "first-element-child" -- Type: TInterface "WebKit2WebExtension" "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 @@ -782,65 +846,74 @@ 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 "inner-html" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) -getDOMElementInnerHtml :: (MonadIO m, DOMElementK o) => o -> m T.Text +getDOMElementInnerHtml :: (MonadIO m, DOMElementK o) => o -> m (Maybe T.Text) getDOMElementInnerHtml obj = liftIO $ getObjectPropertyString obj "inner-html" setDOMElementInnerHtml :: (MonadIO m, DOMElementK o) => o -> T.Text -> m () -setDOMElementInnerHtml obj val = liftIO $ setObjectPropertyString obj "inner-html" val +setDOMElementInnerHtml obj val = liftIO $ setObjectPropertyString obj "inner-html" (Just val) constructDOMElementInnerHtml :: T.Text -> IO ([Char], GValue) -constructDOMElementInnerHtml val = constructObjectPropertyString "inner-html" val +constructDOMElementInnerHtml val = constructObjectPropertyString "inner-html" (Just val) +clearDOMElementInnerHtml :: (MonadIO m, DOMElementK o) => o -> m () +clearDOMElementInnerHtml obj = liftIO $ setObjectPropertyString obj "inner-html" (Nothing :: Maybe T.Text) + data DOMElementInnerHtmlPropertyInfo instance AttrInfo DOMElementInnerHtmlPropertyInfo where - type AttrAllowedOps DOMElementInnerHtmlPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrAllowedOps DOMElementInnerHtmlPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint DOMElementInnerHtmlPropertyInfo = (~) T.Text type AttrBaseTypeConstraint DOMElementInnerHtmlPropertyInfo = DOMElementK - type AttrGetType DOMElementInnerHtmlPropertyInfo = T.Text + type AttrGetType DOMElementInnerHtmlPropertyInfo = (Maybe T.Text) type AttrLabel DOMElementInnerHtmlPropertyInfo = "inner-html" attrGet _ = getDOMElementInnerHtml attrSet _ = setDOMElementInnerHtml attrConstruct _ = constructDOMElementInnerHtml + attrClear _ = clearDOMElementInnerHtml -- VVV Prop "last-element-child" -- Type: TInterface "WebKit2WebExtension" "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 @@ -848,17 +921,19 @@ attrGet _ = getDOMElementLastElementChild attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "next-element-sibling" -- Type: TInterface "WebKit2WebExtension" "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 @@ -866,10 +941,12 @@ attrGet _ = getDOMElementNextElementSibling attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "offset-height" -- Type: TBasicType TDouble -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) getDOMElementOffsetHeight :: (MonadIO m, DOMElementK o) => o -> m Double getDOMElementOffsetHeight obj = liftIO $ getObjectPropertyDouble obj "offset-height" @@ -884,10 +961,12 @@ attrGet _ = getDOMElementOffsetHeight attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "offset-left" -- Type: TBasicType TDouble -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) getDOMElementOffsetLeft :: (MonadIO m, DOMElementK o) => o -> m Double getDOMElementOffsetLeft obj = liftIO $ getObjectPropertyDouble obj "offset-left" @@ -902,17 +981,19 @@ attrGet _ = getDOMElementOffsetLeft attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "offset-parent" -- Type: TInterface "WebKit2WebExtension" "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 @@ -920,10 +1001,12 @@ attrGet _ = getDOMElementOffsetParent attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "offset-top" -- Type: TBasicType TDouble -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) getDOMElementOffsetTop :: (MonadIO m, DOMElementK o) => o -> m Double getDOMElementOffsetTop obj = liftIO $ getObjectPropertyDouble obj "offset-top" @@ -938,10 +1021,12 @@ attrGet _ = getDOMElementOffsetTop attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "offset-width" -- Type: TBasicType TDouble -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) getDOMElementOffsetWidth :: (MonadIO m, DOMElementK o) => o -> m Double getDOMElementOffsetWidth obj = liftIO $ getObjectPropertyDouble obj "offset-width" @@ -956,41 +1041,48 @@ attrGet _ = getDOMElementOffsetWidth attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "outer-html" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) -getDOMElementOuterHtml :: (MonadIO m, DOMElementK o) => o -> m T.Text +getDOMElementOuterHtml :: (MonadIO m, DOMElementK o) => o -> m (Maybe T.Text) getDOMElementOuterHtml obj = liftIO $ getObjectPropertyString obj "outer-html" setDOMElementOuterHtml :: (MonadIO m, DOMElementK o) => o -> T.Text -> m () -setDOMElementOuterHtml obj val = liftIO $ setObjectPropertyString obj "outer-html" val +setDOMElementOuterHtml obj val = liftIO $ setObjectPropertyString obj "outer-html" (Just val) constructDOMElementOuterHtml :: T.Text -> IO ([Char], GValue) -constructDOMElementOuterHtml val = constructObjectPropertyString "outer-html" val +constructDOMElementOuterHtml val = constructObjectPropertyString "outer-html" (Just val) +clearDOMElementOuterHtml :: (MonadIO m, DOMElementK o) => o -> m () +clearDOMElementOuterHtml obj = liftIO $ setObjectPropertyString obj "outer-html" (Nothing :: Maybe T.Text) + data DOMElementOuterHtmlPropertyInfo instance AttrInfo DOMElementOuterHtmlPropertyInfo where - type AttrAllowedOps DOMElementOuterHtmlPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrAllowedOps DOMElementOuterHtmlPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint DOMElementOuterHtmlPropertyInfo = (~) T.Text type AttrBaseTypeConstraint DOMElementOuterHtmlPropertyInfo = DOMElementK - type AttrGetType DOMElementOuterHtmlPropertyInfo = T.Text + type AttrGetType DOMElementOuterHtmlPropertyInfo = (Maybe T.Text) type AttrLabel DOMElementOuterHtmlPropertyInfo = "outer-html" attrGet _ = getDOMElementOuterHtml attrSet _ = setDOMElementOuterHtml attrConstruct _ = constructDOMElementOuterHtml + attrClear _ = clearDOMElementOuterHtml -- VVV Prop "previous-element-sibling" -- Type: TInterface "WebKit2WebExtension" "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 @@ -998,148 +1090,244 @@ 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 "WebKit2WebExtension" "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), '("children", DOMElementChildrenPropertyInfo), '("className", DOMElementClassNamePropertyInfo), '("clientHeight", DOMElementClientHeightPropertyInfo), '("clientLeft", DOMElementClientLeftPropertyInfo), '("clientTop", DOMElementClientTopPropertyInfo), '("clientWidth", DOMElementClientWidthPropertyInfo), '("coreObject", DOMObjectCoreObjectPropertyInfo), '("firstChild", DOMNodeFirstChildPropertyInfo), '("firstElementChild", DOMElementFirstElementChildPropertyInfo), '("id", DOMElementIdPropertyInfo), '("innerHtml", DOMElementInnerHtmlPropertyInfo), '("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", DOMElementOuterHtmlPropertyInfo), '("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, *)]) +type DOMElementAttributeList = ('[ '("attributes", DOMElementAttributesPropertyInfo), '("baseUri", DOMNodeBaseUriPropertyInfo), '("childElementCount", DOMElementChildElementCountPropertyInfo), '("childNodes", DOMNodeChildNodesPropertyInfo), '("children", DOMElementChildrenPropertyInfo), '("className", DOMElementClassNamePropertyInfo), '("clientHeight", DOMElementClientHeightPropertyInfo), '("clientLeft", DOMElementClientLeftPropertyInfo), '("clientTop", DOMElementClientTopPropertyInfo), '("clientWidth", DOMElementClientWidthPropertyInfo), '("coreObject", DOMObjectCoreObjectPropertyInfo), '("firstChild", DOMNodeFirstChildPropertyInfo), '("firstElementChild", DOMElementFirstElementChildPropertyInfo), '("id", DOMElementIdPropertyInfo), '("innerHtml", DOMElementInnerHtmlPropertyInfo), '("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", DOMElementOuterHtmlPropertyInfo), '("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), '("treeRoot", DOMNodeTreeRootPropertyInfo), '("webkitRegionOverset", DOMElementWebkitRegionOversetPropertyInfo)] :: [(Symbol, *)]) +dOMElementAttributes :: AttrLabelProxy "attributes" +dOMElementAttributes = AttrLabelProxy + +dOMElementChildElementCount :: AttrLabelProxy "childElementCount" +dOMElementChildElementCount = AttrLabelProxy + +dOMElementChildren :: AttrLabelProxy "children" +dOMElementChildren = 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 + +dOMElementInnerHtml :: AttrLabelProxy "innerHtml" +dOMElementInnerHtml = 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 + +dOMElementOuterHtml :: AttrLabelProxy "outerHtml" +dOMElementOuterHtml = 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, *)]) @@ -1147,7 +1335,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -1174,7 +1362,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -1201,7 +1389,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -1235,7 +1423,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "DOMAttr" +-- returnType : Just (TInterface "WebKit2WebExtension" "DOMAttr") -- throws : False -- Skip return : False @@ -1268,7 +1456,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "DOMAttr" +-- returnType : Just (TInterface "WebKit2WebExtension" "DOMAttr") -- throws : False -- Skip return : False @@ -1305,7 +1493,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -1343,7 +1531,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit2WebExtension" "DOMNamedNodeMap" +-- returnType : Just (TInterface "WebKit2WebExtension" "DOMNamedNodeMap") -- throws : False -- Skip return : False @@ -1372,19 +1560,19 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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' @@ -1392,14 +1580,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_children -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit2WebExtension" "DOMHTMLCollection" +-- returnType : Just (TInterface "WebKit2WebExtension" "DOMHTMLCollection") -- throws : False -- Skip return : False @@ -1428,7 +1616,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -1458,7 +1646,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMElement", 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 @@ -1486,7 +1674,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMElement", 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 @@ -1514,7 +1702,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMElement", 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 @@ -1542,7 +1730,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMElement", 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 @@ -1568,112 +1756,215 @@ -- method DOMElement::get_elements_by_class_name -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "class_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit2WebExtension" "DOMNodeList" +-- returnType : Just (TInterface "WebKit2WebExtension" "DOMNodeList") -- throws : False -- Skip return : False foreign import ccall "webkit_dom_element_get_elements_by_class_name" webkit_dom_element_get_elements_by_class_name :: Ptr DOMElement -> -- _obj : TInterface "WebKit2WebExtension" "DOMElement" - CString -> -- name : TBasicType TUTF8 + CString -> -- class_name : TBasicType TUTF8 IO (Ptr DOMNodeList) - +{-# DEPRECATED dOMElementGetElementsByClassName ["(Since version 2.12)","Use webkit_dom_element_get_elements_by_class_name_as_html_collection() instead."]#-} dOMElementGetElementsByClassName :: (MonadIO m, DOMElementK a) => a -- _obj - -> T.Text -- name + -> T.Text -- className -> m DOMNodeList -- result -dOMElementGetElementsByClassName _obj name = liftIO $ do +dOMElementGetElementsByClassName _obj className = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - name' <- textToCString name - result <- webkit_dom_element_get_elements_by_class_name _obj' name' + className' <- textToCString className + result <- webkit_dom_element_get_elements_by_class_name _obj' className' checkUnexpectedReturnNULL "webkit_dom_element_get_elements_by_class_name" result result' <- (wrapObject DOMNodeList) result touchManagedPtr _obj - freeMem name' + freeMem className' return result' data DOMElementGetElementsByClassNameMethodInfo instance (signature ~ (T.Text -> m DOMNodeList), MonadIO m, DOMElementK a) => MethodInfo DOMElementGetElementsByClassNameMethodInfo a signature where overloadedMethod _ = dOMElementGetElementsByClassName --- method DOMElement::get_elements_by_tag_name +-- method DOMElement::get_elements_by_class_name_as_html_collection -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "DOMNodeList" +-- returnType : Just (TInterface "WebKit2WebExtension" "DOMHTMLCollection") -- throws : False -- Skip return : False -foreign import ccall "webkit_dom_element_get_elements_by_tag_name" webkit_dom_element_get_elements_by_tag_name :: +foreign import ccall "webkit_dom_element_get_elements_by_class_name_as_html_collection" webkit_dom_element_get_elements_by_class_name_as_html_collection :: Ptr DOMElement -> -- _obj : TInterface "WebKit2WebExtension" "DOMElement" CString -> -- name : TBasicType TUTF8 - IO (Ptr DOMNodeList) + IO (Ptr DOMHTMLCollection) -dOMElementGetElementsByTagName :: +dOMElementGetElementsByClassNameAsHtmlCollection :: (MonadIO m, DOMElementK a) => a -- _obj -> T.Text -- name - -> m DOMNodeList -- result -dOMElementGetElementsByTagName _obj name = liftIO $ do + -> m DOMHTMLCollection -- result +dOMElementGetElementsByClassNameAsHtmlCollection _obj name = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj name' <- textToCString name - result <- webkit_dom_element_get_elements_by_tag_name _obj' name' + result <- webkit_dom_element_get_elements_by_class_name_as_html_collection _obj' name' + checkUnexpectedReturnNULL "webkit_dom_element_get_elements_by_class_name_as_html_collection" result + result' <- (wrapObject DOMHTMLCollection) result + touchManagedPtr _obj + freeMem name' + return result' + +data DOMElementGetElementsByClassNameAsHtmlCollectionMethodInfo +instance (signature ~ (T.Text -> m DOMHTMLCollection), MonadIO m, DOMElementK a) => MethodInfo DOMElementGetElementsByClassNameAsHtmlCollectionMethodInfo a signature where + overloadedMethod _ = dOMElementGetElementsByClassNameAsHtmlCollection + +-- method DOMElement::get_elements_by_tag_name +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "tag_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Just (TInterface "WebKit2WebExtension" "DOMNodeList") +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_element_get_elements_by_tag_name" webkit_dom_element_get_elements_by_tag_name :: + Ptr DOMElement -> -- _obj : TInterface "WebKit2WebExtension" "DOMElement" + CString -> -- tag_name : TBasicType TUTF8 + IO (Ptr DOMNodeList) + +{-# DEPRECATED dOMElementGetElementsByTagName ["(Since version 2.12)","Use webkit_dom_element_get_elements_by_tag_name_as_html_collection() instead."]#-} +dOMElementGetElementsByTagName :: + (MonadIO m, DOMElementK a) => + a -- _obj + -> T.Text -- tagName + -> m DOMNodeList -- result +dOMElementGetElementsByTagName _obj tagName = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + tagName' <- textToCString tagName + result <- webkit_dom_element_get_elements_by_tag_name _obj' tagName' checkUnexpectedReturnNULL "webkit_dom_element_get_elements_by_tag_name" result result' <- (wrapObject DOMNodeList) result touchManagedPtr _obj - freeMem name' + freeMem tagName' return result' data DOMElementGetElementsByTagNameMethodInfo instance (signature ~ (T.Text -> m DOMNodeList), MonadIO m, DOMElementK a) => MethodInfo DOMElementGetElementsByTagNameMethodInfo a signature where overloadedMethod _ = dOMElementGetElementsByTagName +-- method DOMElement::get_elements_by_tag_name_as_html_collection +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 : Just (TInterface "WebKit2WebExtension" "DOMHTMLCollection") +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_element_get_elements_by_tag_name_as_html_collection" webkit_dom_element_get_elements_by_tag_name_as_html_collection :: + Ptr DOMElement -> -- _obj : TInterface "WebKit2WebExtension" "DOMElement" + CString -> -- name : TBasicType TUTF8 + IO (Ptr DOMHTMLCollection) + + +dOMElementGetElementsByTagNameAsHtmlCollection :: + (MonadIO m, DOMElementK a) => + a -- _obj + -> T.Text -- name + -> m DOMHTMLCollection -- result +dOMElementGetElementsByTagNameAsHtmlCollection _obj name = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + name' <- textToCString name + result <- webkit_dom_element_get_elements_by_tag_name_as_html_collection _obj' name' + checkUnexpectedReturnNULL "webkit_dom_element_get_elements_by_tag_name_as_html_collection" result + result' <- (wrapObject DOMHTMLCollection) result + touchManagedPtr _obj + freeMem name' + return result' + +data DOMElementGetElementsByTagNameAsHtmlCollectionMethodInfo +instance (signature ~ (T.Text -> m DOMHTMLCollection), MonadIO m, DOMElementK a) => MethodInfo DOMElementGetElementsByTagNameAsHtmlCollectionMethodInfo a signature where + overloadedMethod _ = dOMElementGetElementsByTagNameAsHtmlCollection + -- method DOMElement::get_elements_by_tag_name_ns -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "namespace_uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "tag_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit2WebExtension" "DOMNodeList" +-- returnType : Just (TInterface "WebKit2WebExtension" "DOMNodeList") -- throws : False -- Skip return : False foreign import ccall "webkit_dom_element_get_elements_by_tag_name_ns" webkit_dom_element_get_elements_by_tag_name_ns :: Ptr DOMElement -> -- _obj : TInterface "WebKit2WebExtension" "DOMElement" + CString -> -- namespace_uri : TBasicType TUTF8 + CString -> -- tag_name : TBasicType TUTF8 + IO (Ptr DOMNodeList) + +{-# DEPRECATED dOMElementGetElementsByTagNameNs ["(Since version 2.12)","Use webkit_dom_element_get_elements_by_tag_name_ns_as_html_collection() instead."]#-} +dOMElementGetElementsByTagNameNs :: + (MonadIO m, DOMElementK a) => + a -- _obj + -> T.Text -- namespaceUri + -> T.Text -- tagName + -> m DOMNodeList -- result +dOMElementGetElementsByTagNameNs _obj namespaceUri tagName = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + namespaceUri' <- textToCString namespaceUri + tagName' <- textToCString tagName + result <- webkit_dom_element_get_elements_by_tag_name_ns _obj' namespaceUri' tagName' + checkUnexpectedReturnNULL "webkit_dom_element_get_elements_by_tag_name_ns" result + result' <- (wrapObject DOMNodeList) result + touchManagedPtr _obj + freeMem namespaceUri' + freeMem tagName' + return result' + +data DOMElementGetElementsByTagNameNsMethodInfo +instance (signature ~ (T.Text -> T.Text -> m DOMNodeList), MonadIO m, DOMElementK a) => MethodInfo DOMElementGetElementsByTagNameNsMethodInfo a signature where + overloadedMethod _ = dOMElementGetElementsByTagNameNs + +-- method DOMElement::get_elements_by_tag_name_ns_as_html_collection +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 : Just (TInterface "WebKit2WebExtension" "DOMHTMLCollection") +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_dom_element_get_elements_by_tag_name_ns_as_html_collection" webkit_dom_element_get_elements_by_tag_name_ns_as_html_collection :: + Ptr DOMElement -> -- _obj : TInterface "WebKit2WebExtension" "DOMElement" CString -> -- namespaceURI : TBasicType TUTF8 CString -> -- localName : TBasicType TUTF8 - IO (Ptr DOMNodeList) + IO (Ptr DOMHTMLCollection) -dOMElementGetElementsByTagNameNs :: +dOMElementGetElementsByTagNameNsAsHtmlCollection :: (MonadIO m, DOMElementK a) => a -- _obj -> T.Text -- namespaceURI -> T.Text -- localName - -> m DOMNodeList -- result -dOMElementGetElementsByTagNameNs _obj namespaceURI localName = liftIO $ do + -> m DOMHTMLCollection -- result +dOMElementGetElementsByTagNameNsAsHtmlCollection _obj namespaceURI localName = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj namespaceURI' <- textToCString namespaceURI localName' <- textToCString localName - result <- webkit_dom_element_get_elements_by_tag_name_ns _obj' namespaceURI' localName' - checkUnexpectedReturnNULL "webkit_dom_element_get_elements_by_tag_name_ns" result - result' <- (wrapObject DOMNodeList) result + result <- webkit_dom_element_get_elements_by_tag_name_ns_as_html_collection _obj' namespaceURI' localName' + checkUnexpectedReturnNULL "webkit_dom_element_get_elements_by_tag_name_ns_as_html_collection" result + result' <- (wrapObject DOMHTMLCollection) result touchManagedPtr _obj freeMem namespaceURI' freeMem localName' return result' -data DOMElementGetElementsByTagNameNsMethodInfo -instance (signature ~ (T.Text -> T.Text -> m DOMNodeList), MonadIO m, DOMElementK a) => MethodInfo DOMElementGetElementsByTagNameNsMethodInfo a signature where - overloadedMethod _ = dOMElementGetElementsByTagNameNs +data DOMElementGetElementsByTagNameNsAsHtmlCollectionMethodInfo +instance (signature ~ (T.Text -> T.Text -> m DOMHTMLCollection), MonadIO m, DOMElementK a) => MethodInfo DOMElementGetElementsByTagNameNsAsHtmlCollectionMethodInfo a signature where + overloadedMethod _ = dOMElementGetElementsByTagNameNsAsHtmlCollection -- method DOMElement::get_first_element_child -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit2WebExtension" "DOMElement" +-- returnType : Just (TInterface "WebKit2WebExtension" "DOMElement") -- throws : False -- Skip return : False @@ -1702,7 +1993,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -1732,7 +2023,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -1762,7 +2053,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit2WebExtension" "DOMElement" +-- returnType : Just (TInterface "WebKit2WebExtension" "DOMElement") -- throws : False -- Skip return : False @@ -1791,7 +2082,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit2WebExtension" "DOMElement" +-- returnType : Just (TInterface "WebKit2WebExtension" "DOMElement") -- throws : False -- Skip return : False @@ -1820,7 +2111,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMElement", 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 @@ -1848,7 +2139,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMElement", 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 @@ -1876,7 +2167,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit2WebExtension" "DOMElement" +-- returnType : Just (TInterface "WebKit2WebExtension" "DOMElement") -- throws : False -- Skip return : False @@ -1905,7 +2196,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMElement", 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 @@ -1933,7 +2224,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMElement", 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 @@ -1961,7 +2252,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -1991,7 +2282,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit2WebExtension" "DOMElement" +-- returnType : Just (TInterface "WebKit2WebExtension" "DOMElement") -- throws : False -- Skip return : False @@ -2020,19 +2311,19 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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' @@ -2040,26 +2331,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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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' @@ -2067,26 +2358,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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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' @@ -2094,26 +2385,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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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' @@ -2121,14 +2412,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 "WebKit2WebExtension" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit2WebExtension" "DOMCSSStyleDeclaration" +-- returnType : Just (TInterface "WebKit2WebExtension" "DOMCSSStyleDeclaration") -- throws : False -- Skip return : False @@ -2157,7 +2448,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -2187,7 +2478,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -2219,7 +2510,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -2255,7 +2546,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -2283,7 +2574,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "DOMElement" +-- returnType : Just (TInterface "WebKit2WebExtension" "DOMElement") -- throws : True -- Skip return : False @@ -2321,7 +2612,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "DOMNodeList" +-- returnType : Just (TInterface "WebKit2WebExtension" "DOMNodeList") -- throws : True -- Skip return : False @@ -2359,7 +2650,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -2390,7 +2681,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "oldAttr", argType = TInterface "WebKit2WebExtension" "DOMAttr", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit2WebExtension" "DOMAttr" +-- returnType : Just (TInterface "WebKit2WebExtension" "DOMAttr") -- throws : True -- Skip return : False @@ -2428,7 +2719,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -2461,22 +2752,22 @@ -- method DOMElement::scroll_by_lines -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 @@ -2485,27 +2776,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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 @@ -2514,14 +2805,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 "WebKit2WebExtension" "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 @@ -2551,7 +2842,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -2581,7 +2872,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -2622,7 +2913,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "newAttr", argType = TInterface "WebKit2WebExtension" "DOMAttr", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit2WebExtension" "DOMAttr" +-- returnType : Just (TInterface "WebKit2WebExtension" "DOMAttr") -- throws : True -- Skip return : False @@ -2660,7 +2951,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "newAttr", argType = TInterface "WebKit2WebExtension" "DOMAttr", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit2WebExtension" "DOMAttr" +-- returnType : Just (TInterface "WebKit2WebExtension" "DOMAttr") -- throws : True -- Skip return : False @@ -2698,7 +2989,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -2748,7 +3039,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -2779,7 +3070,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -2810,7 +3101,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 : True -- Skip return : False @@ -2846,7 +3137,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 : True -- Skip return : False @@ -2880,22 +3171,22 @@ -- method DOMElement::set_scroll_left -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 @@ -2904,27 +3195,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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 @@ -2933,7 +3224,7 @@ 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 diff --git a/GI/WebKit2WebExtension/Objects/DOMElement.hs-boot b/GI/WebKit2WebExtension/Objects/DOMElement.hs-boot --- a/GI/WebKit2WebExtension/Objects/DOMElement.hs-boot +++ b/GI/WebKit2WebExtension/Objects/DOMElement.hs-boot @@ -1,8 +1,8 @@ module GI.WebKit2WebExtension.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 @@ -53,8 +53,11 @@ data DOMElementGetClientTopMethodInfo data DOMElementGetClientWidthMethodInfo data DOMElementGetElementsByClassNameMethodInfo +data DOMElementGetElementsByClassNameAsHtmlCollectionMethodInfo data DOMElementGetElementsByTagNameMethodInfo +data DOMElementGetElementsByTagNameAsHtmlCollectionMethodInfo data DOMElementGetElementsByTagNameNsMethodInfo +data DOMElementGetElementsByTagNameNsAsHtmlCollectionMethodInfo data DOMElementGetFirstElementChildMethodInfo data DOMElementGetIdMethodInfo data DOMElementGetInnerHtmlMethodInfo diff --git a/GI/WebKit2WebExtension/Objects/DOMEntityReference.hs b/GI/WebKit2WebExtension/Objects/DOMEntityReference.hs --- a/GI/WebKit2WebExtension/Objects/DOMEntityReference.hs +++ b/GI/WebKit2WebExtension/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 @@ -121,7 +121,7 @@ #endif type instance AttributeList DOMEntityReference = DOMEntityReferenceAttributeList -type DOMEntityReferenceAttributeList = ('[ '("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, *)]) +type DOMEntityReferenceAttributeList = ('[ '("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), '("treeRoot", DOMNodeTreeRootPropertyInfo)] :: [(Symbol, *)]) type instance SignalList DOMEntityReference = DOMEntityReferenceSignalList type DOMEntityReferenceSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) diff --git a/GI/WebKit2WebExtension/Objects/DOMEntityReference.hs-boot b/GI/WebKit2WebExtension/Objects/DOMEntityReference.hs-boot --- a/GI/WebKit2WebExtension/Objects/DOMEntityReference.hs-boot +++ b/GI/WebKit2WebExtension/Objects/DOMEntityReference.hs-boot @@ -1,8 +1,8 @@ module GI.WebKit2WebExtension.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/WebKit2WebExtension/Objects/DOMEvent.hs b/GI/WebKit2WebExtension/Objects/DOMEvent.hs --- a/GI/WebKit2WebExtension/Objects/DOMEvent.hs +++ b/GI/WebKit2WebExtension/Objects/DOMEvent.hs @@ -97,60 +97,77 @@ -- * 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 , +-- ** IsTrusted + DOMEventIsTrustedPropertyInfo , + dOMEventIsTrusted , + getDOMEventIsTrusted , + + -- ** ReturnValue DOMEventReturnValuePropertyInfo , constructDOMEventReturnValue , + dOMEventReturnValue , getDOMEventReturnValue , setDOMEventReturnValue , -- ** SrcElement DOMEventSrcElementPropertyInfo , + dOMEventSrcElement , getDOMEventSrcElement , -- ** Target DOMEventTargetPropertyInfo , + dOMEventTarget , getDOMEventTarget , -- ** TimeStamp DOMEventTimeStampPropertyInfo , + dOMEventTimeStamp , getDOMEventTimeStamp , -- ** Type DOMEventTypePropertyInfo , + dOMEventType , getDOMEventType , @@ -158,9 +175,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 @@ -241,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" @@ -255,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" @@ -279,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" @@ -297,28 +319,32 @@ attrGet _ = getDOMEventCancelable attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "current-target" -- Type: TInterface "WebKit2WebExtension" "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: (Nothing,Nothing) getDOMEventDefaultPrevented :: (MonadIO m, DOMEventK o) => o -> m Bool getDOMEventDefaultPrevented obj = liftIO $ getObjectPropertyBool obj "default-prevented" @@ -333,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 @@ -351,10 +379,32 @@ attrGet _ = getDOMEventEventPhase attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined +-- VVV Prop "is-trusted" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable] + -- Nullable: (Nothing,Nothing) + +getDOMEventIsTrusted :: (MonadIO m, DOMEventK o) => o -> m Bool +getDOMEventIsTrusted obj = liftIO $ getObjectPropertyBool obj "is-trusted" + +data DOMEventIsTrustedPropertyInfo +instance AttrInfo DOMEventIsTrustedPropertyInfo where + type AttrAllowedOps DOMEventIsTrustedPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMEventIsTrustedPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMEventIsTrustedPropertyInfo = DOMEventK + type AttrGetType DOMEventIsTrustedPropertyInfo = Bool + type AttrLabel DOMEventIsTrustedPropertyInfo = "is-trusted" + attrGet _ = getDOMEventIsTrusted + 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" @@ -375,49 +425,55 @@ attrGet _ = getDOMEventReturnValue attrSet _ = setDOMEventReturnValue attrConstruct _ = constructDOMEventReturnValue + attrClear _ = undefined -- VVV Prop "src-element" -- Type: TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 @@ -429,28 +485,67 @@ 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, *)]) +type DOMEventAttributeList = ('[ '("bubbles", DOMEventBubblesPropertyInfo), '("cancelBubble", DOMEventCancelBubblePropertyInfo), '("cancelable", DOMEventCancelablePropertyInfo), '("coreObject", DOMObjectCoreObjectPropertyInfo), '("currentTarget", DOMEventCurrentTargetPropertyInfo), '("defaultPrevented", DOMEventDefaultPreventedPropertyInfo), '("eventPhase", DOMEventEventPhasePropertyInfo), '("isTrusted", DOMEventIsTrustedPropertyInfo), '("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 + +dOMEventIsTrusted :: AttrLabelProxy "isTrusted" +dOMEventIsTrusted = 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, *)]) @@ -458,7 +553,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -486,7 +581,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -514,7 +609,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -542,7 +637,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit2WebExtension" "DOMEventTarget" +-- returnType : Just (TInterface "WebKit2WebExtension" "DOMEventTarget") -- throws : False -- Skip return : False @@ -571,7 +666,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -598,7 +693,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMEvent", direction = DirectionIn, mayBeNull = 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 +723,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -656,7 +751,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit2WebExtension" "DOMEventTarget" +-- returnType : Just (TInterface "WebKit2WebExtension" "DOMEventTarget") -- throws : False -- Skip return : False @@ -685,7 +780,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit2WebExtension" "DOMEventTarget" +-- returnType : Just (TInterface "WebKit2WebExtension" "DOMEventTarget") -- throws : False -- Skip return : False @@ -714,7 +809,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -741,7 +836,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -778,7 +873,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -805,7 +900,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -835,7 +930,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -865,7 +960,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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/WebKit2WebExtension/Objects/DOMEvent.hs-boot b/GI/WebKit2WebExtension/Objects/DOMEvent.hs-boot --- a/GI/WebKit2WebExtension/Objects/DOMEvent.hs-boot +++ b/GI/WebKit2WebExtension/Objects/DOMEvent.hs-boot @@ -1,8 +1,8 @@ module GI.WebKit2WebExtension.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 @@ -17,6 +17,7 @@ data DOMEventCurrentTargetPropertyInfo data DOMEventDefaultPreventedPropertyInfo data DOMEventEventPhasePropertyInfo +data DOMEventIsTrustedPropertyInfo data DOMEventReturnValuePropertyInfo data DOMEventSrcElementPropertyInfo data DOMEventTargetPropertyInfo diff --git a/GI/WebKit2WebExtension/Objects/DOMFile.hs b/GI/WebKit2WebExtension/Objects/DOMFile.hs --- a/GI/WebKit2WebExtension/Objects/DOMFile.hs +++ b/GI/WebKit2WebExtension/Objects/DOMFile.hs @@ -27,6 +27,7 @@ -- * Properties -- ** Name DOMFileNamePropertyInfo , + dOMFileName , getDOMFileName , @@ -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 @@ -104,24 +105,29 @@ -- 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 type instance AttributeList DOMFile = DOMFileAttributeList type DOMFileAttributeList = ('[ '("coreObject", DOMObjectCoreObjectPropertyInfo), '("name", DOMFileNamePropertyInfo), '("size", DOMBlobSizePropertyInfo), '("type", DOMBlobTypePropertyInfo)] :: [(Symbol, *)]) +dOMFileName :: AttrLabelProxy "name" +dOMFileName = AttrLabelProxy + type instance SignalList DOMFile = DOMFileSignalList type DOMFileSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) @@ -129,7 +135,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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/WebKit2WebExtension/Objects/DOMFile.hs-boot b/GI/WebKit2WebExtension/Objects/DOMFile.hs-boot --- a/GI/WebKit2WebExtension/Objects/DOMFile.hs-boot +++ b/GI/WebKit2WebExtension/Objects/DOMFile.hs-boot @@ -1,8 +1,8 @@ module GI.WebKit2WebExtension.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/WebKit2WebExtension/Objects/DOMFileList.hs b/GI/WebKit2WebExtension/Objects/DOMFileList.hs --- a/GI/WebKit2WebExtension/Objects/DOMFileList.hs +++ b/GI/WebKit2WebExtension/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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "DOMFile" +-- returnType : Just (TInterface "WebKit2WebExtension" "DOMFile") -- throws : False -- Skip return : False foreign import ccall "webkit_dom_file_list_item" webkit_dom_file_list_item :: Ptr DOMFileList -> -- _obj : TInterface "WebKit2WebExtension" "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/WebKit2WebExtension/Objects/DOMFileList.hs-boot b/GI/WebKit2WebExtension/Objects/DOMFileList.hs-boot --- a/GI/WebKit2WebExtension/Objects/DOMFileList.hs-boot +++ b/GI/WebKit2WebExtension/Objects/DOMFileList.hs-boot @@ -1,8 +1,8 @@ module GI.WebKit2WebExtension.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/WebKit2WebExtension/Objects/DOMHTMLAnchorElement.hs b/GI/WebKit2WebExtension/Objects/DOMHTMLAnchorElement.hs --- a/GI/WebKit2WebExtension/Objects/DOMHTMLAnchorElement.hs +++ b/GI/WebKit2WebExtension/Objects/DOMHTMLAnchorElement.hs @@ -198,6 +198,7 @@ -- ** Charset DOMHTMLAnchorElementCharsetPropertyInfo , constructDOMHTMLAnchorElementCharset , + dOMHTMLAnchorElementCharset , getDOMHTMLAnchorElementCharset , setDOMHTMLAnchorElementCharset , @@ -205,13 +206,16 @@ -- ** Coords DOMHTMLAnchorElementCoordsPropertyInfo , constructDOMHTMLAnchorElementCoords , + dOMHTMLAnchorElementCoords , getDOMHTMLAnchorElementCoords , setDOMHTMLAnchorElementCoords , -- ** Download DOMHTMLAnchorElementDownloadPropertyInfo, + clearDOMHTMLAnchorElementDownload , constructDOMHTMLAnchorElementDownload , + dOMHTMLAnchorElementDownload , getDOMHTMLAnchorElementDownload , setDOMHTMLAnchorElementDownload , @@ -219,6 +223,7 @@ -- ** Hash DOMHTMLAnchorElementHashPropertyInfo , constructDOMHTMLAnchorElementHash , + dOMHTMLAnchorElementHash , getDOMHTMLAnchorElementHash , setDOMHTMLAnchorElementHash , @@ -226,6 +231,7 @@ -- ** Host DOMHTMLAnchorElementHostPropertyInfo , constructDOMHTMLAnchorElementHost , + dOMHTMLAnchorElementHost , getDOMHTMLAnchorElementHost , setDOMHTMLAnchorElementHost , @@ -233,6 +239,7 @@ -- ** Hostname DOMHTMLAnchorElementHostnamePropertyInfo, constructDOMHTMLAnchorElementHostname , + dOMHTMLAnchorElementHostname , getDOMHTMLAnchorElementHostname , setDOMHTMLAnchorElementHostname , @@ -240,6 +247,7 @@ -- ** Href DOMHTMLAnchorElementHrefPropertyInfo , constructDOMHTMLAnchorElementHref , + dOMHTMLAnchorElementHref , getDOMHTMLAnchorElementHref , setDOMHTMLAnchorElementHref , @@ -247,6 +255,7 @@ -- ** Hreflang DOMHTMLAnchorElementHreflangPropertyInfo, constructDOMHTMLAnchorElementHreflang , + dOMHTMLAnchorElementHreflang , getDOMHTMLAnchorElementHreflang , setDOMHTMLAnchorElementHreflang , @@ -254,25 +263,30 @@ -- ** Name DOMHTMLAnchorElementNamePropertyInfo , constructDOMHTMLAnchorElementName , + dOMHTMLAnchorElementName , getDOMHTMLAnchorElementName , setDOMHTMLAnchorElementName , -- ** Origin DOMHTMLAnchorElementOriginPropertyInfo , + dOMHTMLAnchorElementOrigin , getDOMHTMLAnchorElementOrigin , -- ** Pathname DOMHTMLAnchorElementPathnamePropertyInfo, constructDOMHTMLAnchorElementPathname , + dOMHTMLAnchorElementPathname , getDOMHTMLAnchorElementPathname , setDOMHTMLAnchorElementPathname , -- ** Ping DOMHTMLAnchorElementPingPropertyInfo , + clearDOMHTMLAnchorElementPing , constructDOMHTMLAnchorElementPing , + dOMHTMLAnchorElementPing , getDOMHTMLAnchorElementPing , setDOMHTMLAnchorElementPing , @@ -280,6 +294,7 @@ -- ** Port DOMHTMLAnchorElementPortPropertyInfo , constructDOMHTMLAnchorElementPort , + dOMHTMLAnchorElementPort , getDOMHTMLAnchorElementPort , setDOMHTMLAnchorElementPort , @@ -287,6 +302,7 @@ -- ** Protocol DOMHTMLAnchorElementProtocolPropertyInfo, constructDOMHTMLAnchorElementProtocol , + dOMHTMLAnchorElementProtocol , getDOMHTMLAnchorElementProtocol , setDOMHTMLAnchorElementProtocol , @@ -294,6 +310,7 @@ -- ** Rel DOMHTMLAnchorElementRelPropertyInfo , constructDOMHTMLAnchorElementRel , + dOMHTMLAnchorElementRel , getDOMHTMLAnchorElementRel , setDOMHTMLAnchorElementRel , @@ -301,6 +318,7 @@ -- ** Rev DOMHTMLAnchorElementRevPropertyInfo , constructDOMHTMLAnchorElementRev , + dOMHTMLAnchorElementRev , getDOMHTMLAnchorElementRev , setDOMHTMLAnchorElementRev , @@ -308,6 +326,7 @@ -- ** Search DOMHTMLAnchorElementSearchPropertyInfo , constructDOMHTMLAnchorElementSearch , + dOMHTMLAnchorElementSearch , getDOMHTMLAnchorElementSearch , setDOMHTMLAnchorElementSearch , @@ -315,6 +334,7 @@ -- ** Shape DOMHTMLAnchorElementShapePropertyInfo , constructDOMHTMLAnchorElementShape , + dOMHTMLAnchorElementShape , getDOMHTMLAnchorElementShape , setDOMHTMLAnchorElementShape , @@ -322,20 +342,25 @@ -- ** Target DOMHTMLAnchorElementTargetPropertyInfo , constructDOMHTMLAnchorElementTarget , + dOMHTMLAnchorElementTarget , getDOMHTMLAnchorElementTarget , setDOMHTMLAnchorElementTarget , -- ** Text DOMHTMLAnchorElementTextPropertyInfo , + clearDOMHTMLAnchorElementText , constructDOMHTMLAnchorElementText , + dOMHTMLAnchorElementText , getDOMHTMLAnchorElementText , setDOMHTMLAnchorElementText , -- ** Type DOMHTMLAnchorElementTypePropertyInfo , + clearDOMHTMLAnchorElementType , constructDOMHTMLAnchorElementType , + dOMHTMLAnchorElementType , getDOMHTMLAnchorElementType , setDOMHTMLAnchorElementType , @@ -344,9 +369,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 @@ -447,8 +472,11 @@ ResolveDOMHTMLAnchorElementMethod "getData" o = GObject.ObjectGetDataMethodInfo ResolveDOMHTMLAnchorElementMethod "getDir" o = DOMHTMLElementGetDirMethodInfo ResolveDOMHTMLAnchorElementMethod "getElementsByClassName" o = DOMElementGetElementsByClassNameMethodInfo + ResolveDOMHTMLAnchorElementMethod "getElementsByClassNameAsHtmlCollection" o = DOMElementGetElementsByClassNameAsHtmlCollectionMethodInfo ResolveDOMHTMLAnchorElementMethod "getElementsByTagName" o = DOMElementGetElementsByTagNameMethodInfo + ResolveDOMHTMLAnchorElementMethod "getElementsByTagNameAsHtmlCollection" o = DOMElementGetElementsByTagNameAsHtmlCollectionMethodInfo ResolveDOMHTMLAnchorElementMethod "getElementsByTagNameNs" o = DOMElementGetElementsByTagNameNsMethodInfo + ResolveDOMHTMLAnchorElementMethod "getElementsByTagNameNsAsHtmlCollection" o = DOMElementGetElementsByTagNameNsAsHtmlCollectionMethodInfo ResolveDOMHTMLAnchorElementMethod "getFirstChild" o = DOMNodeGetFirstChildMethodInfo ResolveDOMHTMLAnchorElementMethod "getFirstElementChild" o = DOMElementGetFirstElementChildMethodInfo ResolveDOMHTMLAnchorElementMethod "getHash" o = DOMHTMLAnchorElementGetHashMethodInfo @@ -554,504 +582,621 @@ -- 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,Nothing) -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) +clearDOMHTMLAnchorElementDownload :: (MonadIO m, DOMHTMLAnchorElementK o) => o -> m () +clearDOMHTMLAnchorElementDownload obj = liftIO $ setObjectPropertyString obj "download" (Nothing :: Maybe T.Text) + data DOMHTMLAnchorElementDownloadPropertyInfo instance AttrInfo DOMHTMLAnchorElementDownloadPropertyInfo where - type AttrAllowedOps DOMHTMLAnchorElementDownloadPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrAllowedOps DOMHTMLAnchorElementDownloadPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] 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 _ = clearDOMHTMLAnchorElementDownload -- 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,Nothing) -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) +clearDOMHTMLAnchorElementPing :: (MonadIO m, DOMHTMLAnchorElementK o) => o -> m () +clearDOMHTMLAnchorElementPing obj = liftIO $ setObjectPropertyString obj "ping" (Nothing :: Maybe T.Text) + data DOMHTMLAnchorElementPingPropertyInfo instance AttrInfo DOMHTMLAnchorElementPingPropertyInfo where - type AttrAllowedOps DOMHTMLAnchorElementPingPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrAllowedOps DOMHTMLAnchorElementPingPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] 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 _ = clearDOMHTMLAnchorElementPing -- 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,PropertyWritable] + -- 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" setDOMHTMLAnchorElementText :: (MonadIO m, DOMHTMLAnchorElementK o) => o -> T.Text -> m () -setDOMHTMLAnchorElementText obj val = liftIO $ setObjectPropertyString obj "text" val +setDOMHTMLAnchorElementText obj val = liftIO $ setObjectPropertyString obj "text" (Just val) constructDOMHTMLAnchorElementText :: T.Text -> IO ([Char], GValue) -constructDOMHTMLAnchorElementText val = constructObjectPropertyString "text" val +constructDOMHTMLAnchorElementText val = constructObjectPropertyString "text" (Just val) +clearDOMHTMLAnchorElementText :: (MonadIO m, DOMHTMLAnchorElementK o) => o -> m () +clearDOMHTMLAnchorElementText obj = liftIO $ setObjectPropertyString obj "text" (Nothing :: Maybe T.Text) + data DOMHTMLAnchorElementTextPropertyInfo instance AttrInfo DOMHTMLAnchorElementTextPropertyInfo where - type AttrAllowedOps DOMHTMLAnchorElementTextPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrAllowedOps DOMHTMLAnchorElementTextPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint DOMHTMLAnchorElementTextPropertyInfo = (~) T.Text type AttrBaseTypeConstraint DOMHTMLAnchorElementTextPropertyInfo = DOMHTMLAnchorElementK - type AttrGetType DOMHTMLAnchorElementTextPropertyInfo = T.Text + type AttrGetType DOMHTMLAnchorElementTextPropertyInfo = (Maybe T.Text) type AttrLabel DOMHTMLAnchorElementTextPropertyInfo = "text" attrGet _ = getDOMHTMLAnchorElementText attrSet _ = setDOMHTMLAnchorElementText attrConstruct _ = constructDOMHTMLAnchorElementText + attrClear _ = clearDOMHTMLAnchorElementText -- 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", DOMElementChildrenPropertyInfo), '("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", DOMElementInnerHtmlPropertyInfo), '("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", DOMElementOuterHtmlPropertyInfo), '("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, *)]) +type DOMHTMLAnchorElementAttributeList = ('[ '("accessKey", DOMHTMLElementAccessKeyPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("baseUri", DOMNodeBaseUriPropertyInfo), '("charset", DOMHTMLAnchorElementCharsetPropertyInfo), '("childElementCount", DOMElementChildElementCountPropertyInfo), '("childNodes", DOMNodeChildNodesPropertyInfo), '("children", DOMElementChildrenPropertyInfo), '("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", DOMElementInnerHtmlPropertyInfo), '("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", DOMElementOuterHtmlPropertyInfo), '("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), '("treeRoot", DOMNodeTreeRootPropertyInfo), '("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, *)]) @@ -1059,7 +1204,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -1089,7 +1234,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -1119,7 +1264,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -1149,7 +1294,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -1179,7 +1324,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -1209,7 +1354,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -1239,7 +1384,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -1269,7 +1414,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -1299,7 +1444,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -1329,7 +1474,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -1359,7 +1504,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -1389,7 +1534,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -1419,7 +1564,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -1449,7 +1594,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -1479,7 +1624,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -1509,7 +1654,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -1539,7 +1684,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -1569,7 +1714,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -1599,7 +1744,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -1630,7 +1775,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -1661,7 +1806,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -1692,7 +1837,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -1723,7 +1868,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -1754,7 +1899,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -1785,7 +1930,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -1816,7 +1961,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -1847,7 +1992,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -1878,7 +2023,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -1909,7 +2054,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -1940,7 +2085,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -1971,7 +2116,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -2002,7 +2147,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -2033,7 +2178,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -2064,7 +2209,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -2095,7 +2240,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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/WebKit2WebExtension/Objects/DOMHTMLAnchorElement.hs-boot b/GI/WebKit2WebExtension/Objects/DOMHTMLAnchorElement.hs-boot --- a/GI/WebKit2WebExtension/Objects/DOMHTMLAnchorElement.hs-boot +++ b/GI/WebKit2WebExtension/Objects/DOMHTMLAnchorElement.hs-boot @@ -1,8 +1,8 @@ module GI.WebKit2WebExtension.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/WebKit2WebExtension/Objects/DOMHTMLAppletElement.hs b/GI/WebKit2WebExtension/Objects/DOMHTMLAppletElement.hs --- a/GI/WebKit2WebExtension/Objects/DOMHTMLAppletElement.hs +++ b/GI/WebKit2WebExtension/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 @@ -317,8 +328,11 @@ ResolveDOMHTMLAppletElementMethod "getData" o = GObject.ObjectGetDataMethodInfo ResolveDOMHTMLAppletElementMethod "getDir" o = DOMHTMLElementGetDirMethodInfo ResolveDOMHTMLAppletElementMethod "getElementsByClassName" o = DOMElementGetElementsByClassNameMethodInfo + ResolveDOMHTMLAppletElementMethod "getElementsByClassNameAsHtmlCollection" o = DOMElementGetElementsByClassNameAsHtmlCollectionMethodInfo ResolveDOMHTMLAppletElementMethod "getElementsByTagName" o = DOMElementGetElementsByTagNameMethodInfo + ResolveDOMHTMLAppletElementMethod "getElementsByTagNameAsHtmlCollection" o = DOMElementGetElementsByTagNameAsHtmlCollectionMethodInfo ResolveDOMHTMLAppletElementMethod "getElementsByTagNameNs" o = DOMElementGetElementsByTagNameNsMethodInfo + ResolveDOMHTMLAppletElementMethod "getElementsByTagNameNsAsHtmlCollection" o = DOMElementGetElementsByTagNameNsAsHtmlCollectionMethodInfo ResolveDOMHTMLAppletElementMethod "getFirstChild" o = DOMNodeGetFirstChildMethodInfo ResolveDOMHTMLAppletElementMethod "getFirstElementChild" o = DOMElementGetFirstElementChildMethodInfo ResolveDOMHTMLAppletElementMethod "getHeight" o = DOMHTMLAppletElementGetHeightMethodInfo @@ -408,270 +422,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", DOMElementChildrenPropertyInfo), '("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", DOMElementInnerHtmlPropertyInfo), '("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", DOMElementOuterHtmlPropertyInfo), '("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, *)]) +type DOMHTMLAppletElementAttributeList = ('[ '("accessKey", DOMHTMLElementAccessKeyPropertyInfo), '("align", DOMHTMLAppletElementAlignPropertyInfo), '("alt", DOMHTMLAppletElementAltPropertyInfo), '("archive", DOMHTMLAppletElementArchivePropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("baseUri", DOMNodeBaseUriPropertyInfo), '("childElementCount", DOMElementChildElementCountPropertyInfo), '("childNodes", DOMNodeChildNodesPropertyInfo), '("children", DOMElementChildrenPropertyInfo), '("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", DOMElementInnerHtmlPropertyInfo), '("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", DOMElementOuterHtmlPropertyInfo), '("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), '("treeRoot", DOMNodeTreeRootPropertyInfo), '("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, *)]) @@ -679,7 +748,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -709,7 +778,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -739,7 +808,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -769,7 +838,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -799,7 +868,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -829,7 +898,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -859,19 +928,19 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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' @@ -879,14 +948,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 "WebKit2WebExtension" "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 @@ -916,7 +985,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -946,19 +1015,19 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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' @@ -966,14 +1035,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 "WebKit2WebExtension" "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 @@ -1003,7 +1072,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -1034,7 +1103,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -1065,7 +1134,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -1096,7 +1165,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -1127,7 +1196,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -1158,7 +1227,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -1187,22 +1256,22 @@ -- method DOMHTMLAppletElement::set_hspace -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 @@ -1211,14 +1280,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 "WebKit2WebExtension" "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 @@ -1249,7 +1318,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -1278,22 +1347,22 @@ -- method DOMHTMLAppletElement::set_vspace -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 @@ -1302,14 +1371,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 "WebKit2WebExtension" "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/WebKit2WebExtension/Objects/DOMHTMLAppletElement.hs-boot b/GI/WebKit2WebExtension/Objects/DOMHTMLAppletElement.hs-boot --- a/GI/WebKit2WebExtension/Objects/DOMHTMLAppletElement.hs-boot +++ b/GI/WebKit2WebExtension/Objects/DOMHTMLAppletElement.hs-boot @@ -1,8 +1,8 @@ module GI.WebKit2WebExtension.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/WebKit2WebExtension/Objects/DOMHTMLAreaElement.hs b/GI/WebKit2WebExtension/Objects/DOMHTMLAreaElement.hs --- a/GI/WebKit2WebExtension/Objects/DOMHTMLAreaElement.hs +++ b/GI/WebKit2WebExtension/Objects/DOMHTMLAreaElement.hs @@ -118,6 +118,7 @@ -- ** Alt DOMHTMLAreaElementAltPropertyInfo , constructDOMHTMLAreaElementAlt , + dOMHTMLAreaElementAlt , getDOMHTMLAreaElementAlt , setDOMHTMLAreaElementAlt , @@ -125,28 +126,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 , @@ -154,47 +160,57 @@ -- ** NoHref DOMHTMLAreaElementNoHrefPropertyInfo , constructDOMHTMLAreaElementNoHref , + dOMHTMLAreaElementNoHref , getDOMHTMLAreaElementNoHref , setDOMHTMLAreaElementNoHref , -- ** Pathname DOMHTMLAreaElementPathnamePropertyInfo , + dOMHTMLAreaElementPathname , getDOMHTMLAreaElementPathname , -- ** Ping DOMHTMLAreaElementPingPropertyInfo , + clearDOMHTMLAreaElementPing , constructDOMHTMLAreaElementPing , + dOMHTMLAreaElementPing , getDOMHTMLAreaElementPing , setDOMHTMLAreaElementPing , -- ** Port DOMHTMLAreaElementPortPropertyInfo , + dOMHTMLAreaElementPort , getDOMHTMLAreaElementPort , -- ** Protocol DOMHTMLAreaElementProtocolPropertyInfo , + dOMHTMLAreaElementProtocol , getDOMHTMLAreaElementProtocol , -- ** Rel DOMHTMLAreaElementRelPropertyInfo , + clearDOMHTMLAreaElementRel , constructDOMHTMLAreaElementRel , + dOMHTMLAreaElementRel , getDOMHTMLAreaElementRel , setDOMHTMLAreaElementRel , -- ** Search DOMHTMLAreaElementSearchPropertyInfo , + dOMHTMLAreaElementSearch , getDOMHTMLAreaElementSearch , -- ** Shape DOMHTMLAreaElementShapePropertyInfo , constructDOMHTMLAreaElementShape , + dOMHTMLAreaElementShape , getDOMHTMLAreaElementShape , setDOMHTMLAreaElementShape , @@ -202,6 +218,7 @@ -- ** Target DOMHTMLAreaElementTargetPropertyInfo , constructDOMHTMLAreaElementTarget , + dOMHTMLAreaElementTarget , getDOMHTMLAreaElementTarget , setDOMHTMLAreaElementTarget , @@ -210,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 @@ -313,8 +330,11 @@ ResolveDOMHTMLAreaElementMethod "getData" o = GObject.ObjectGetDataMethodInfo ResolveDOMHTMLAreaElementMethod "getDir" o = DOMHTMLElementGetDirMethodInfo ResolveDOMHTMLAreaElementMethod "getElementsByClassName" o = DOMElementGetElementsByClassNameMethodInfo + ResolveDOMHTMLAreaElementMethod "getElementsByClassNameAsHtmlCollection" o = DOMElementGetElementsByClassNameAsHtmlCollectionMethodInfo ResolveDOMHTMLAreaElementMethod "getElementsByTagName" o = DOMElementGetElementsByTagNameMethodInfo + ResolveDOMHTMLAreaElementMethod "getElementsByTagNameAsHtmlCollection" o = DOMElementGetElementsByTagNameAsHtmlCollectionMethodInfo ResolveDOMHTMLAreaElementMethod "getElementsByTagNameNs" o = DOMElementGetElementsByTagNameNsMethodInfo + ResolveDOMHTMLAreaElementMethod "getElementsByTagNameNsAsHtmlCollection" o = DOMElementGetElementsByTagNameNsAsHtmlCollectionMethodInfo ResolveDOMHTMLAreaElementMethod "getFirstChild" o = DOMNodeGetFirstChildMethodInfo ResolveDOMHTMLAreaElementMethod "getFirstElementChild" o = DOMElementGetFirstElementChildMethodInfo ResolveDOMHTMLAreaElementMethod "getHash" o = DOMHTMLAreaElementGetHashMethodInfo @@ -404,132 +424,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" @@ -550,178 +583,246 @@ 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,Nothing) -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) +clearDOMHTMLAreaElementPing :: (MonadIO m, DOMHTMLAreaElementK o) => o -> m () +clearDOMHTMLAreaElementPing obj = liftIO $ setObjectPropertyString obj "ping" (Nothing :: Maybe T.Text) + data DOMHTMLAreaElementPingPropertyInfo instance AttrInfo DOMHTMLAreaElementPingPropertyInfo where - type AttrAllowedOps DOMHTMLAreaElementPingPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrAllowedOps DOMHTMLAreaElementPingPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] 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 _ = clearDOMHTMLAreaElementPing -- 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 "rel" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) -getDOMHTMLAreaElementRel :: (MonadIO m, DOMHTMLAreaElementK o) => o -> m T.Text +getDOMHTMLAreaElementRel :: (MonadIO m, DOMHTMLAreaElementK o) => o -> m (Maybe T.Text) getDOMHTMLAreaElementRel obj = liftIO $ getObjectPropertyString obj "rel" setDOMHTMLAreaElementRel :: (MonadIO m, DOMHTMLAreaElementK o) => o -> T.Text -> m () -setDOMHTMLAreaElementRel obj val = liftIO $ setObjectPropertyString obj "rel" val +setDOMHTMLAreaElementRel obj val = liftIO $ setObjectPropertyString obj "rel" (Just val) constructDOMHTMLAreaElementRel :: T.Text -> IO ([Char], GValue) -constructDOMHTMLAreaElementRel val = constructObjectPropertyString "rel" val +constructDOMHTMLAreaElementRel val = constructObjectPropertyString "rel" (Just val) +clearDOMHTMLAreaElementRel :: (MonadIO m, DOMHTMLAreaElementK o) => o -> m () +clearDOMHTMLAreaElementRel obj = liftIO $ setObjectPropertyString obj "rel" (Nothing :: Maybe T.Text) + data DOMHTMLAreaElementRelPropertyInfo instance AttrInfo DOMHTMLAreaElementRelPropertyInfo where - type AttrAllowedOps DOMHTMLAreaElementRelPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrAllowedOps DOMHTMLAreaElementRelPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint DOMHTMLAreaElementRelPropertyInfo = (~) T.Text type AttrBaseTypeConstraint DOMHTMLAreaElementRelPropertyInfo = DOMHTMLAreaElementK - type AttrGetType DOMHTMLAreaElementRelPropertyInfo = T.Text + type AttrGetType DOMHTMLAreaElementRelPropertyInfo = (Maybe T.Text) type AttrLabel DOMHTMLAreaElementRelPropertyInfo = "rel" attrGet _ = getDOMHTMLAreaElementRel attrSet _ = setDOMHTMLAreaElementRel attrConstruct _ = constructDOMHTMLAreaElementRel + attrClear _ = clearDOMHTMLAreaElementRel -- 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", DOMElementChildrenPropertyInfo), '("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", DOMElementInnerHtmlPropertyInfo), '("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", DOMElementOuterHtmlPropertyInfo), '("outerText", DOMHTMLElementOuterTextPropertyInfo), '("ownerDocument", DOMNodeOwnerDocumentPropertyInfo), '("parentElement", DOMNodeParentElementPropertyInfo), '("parentNode", DOMNodeParentNodePropertyInfo), '("pathname", DOMHTMLAreaElementPathnamePropertyInfo), '("ping", DOMHTMLAreaElementPingPropertyInfo), '("port", DOMHTMLAreaElementPortPropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previousElementSibling", DOMElementPreviousElementSiblingPropertyInfo), '("previousSibling", DOMNodePreviousSiblingPropertyInfo), '("protocol", DOMHTMLAreaElementProtocolPropertyInfo), '("rel", DOMHTMLAreaElementRelPropertyInfo), '("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, *)]) +type DOMHTMLAreaElementAttributeList = ('[ '("accessKey", DOMHTMLElementAccessKeyPropertyInfo), '("alt", DOMHTMLAreaElementAltPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("baseUri", DOMNodeBaseUriPropertyInfo), '("childElementCount", DOMElementChildElementCountPropertyInfo), '("childNodes", DOMNodeChildNodesPropertyInfo), '("children", DOMElementChildrenPropertyInfo), '("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", DOMElementInnerHtmlPropertyInfo), '("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", DOMElementOuterHtmlPropertyInfo), '("outerText", DOMHTMLElementOuterTextPropertyInfo), '("ownerDocument", DOMNodeOwnerDocumentPropertyInfo), '("parentElement", DOMNodeParentElementPropertyInfo), '("parentNode", DOMNodeParentNodePropertyInfo), '("pathname", DOMHTMLAreaElementPathnamePropertyInfo), '("ping", DOMHTMLAreaElementPingPropertyInfo), '("port", DOMHTMLAreaElementPortPropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previousElementSibling", DOMElementPreviousElementSiblingPropertyInfo), '("previousSibling", DOMNodePreviousSiblingPropertyInfo), '("protocol", DOMHTMLAreaElementProtocolPropertyInfo), '("rel", DOMHTMLAreaElementRelPropertyInfo), '("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), '("treeRoot", DOMNodeTreeRootPropertyInfo), '("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 + +dOMHTMLAreaElementRel :: AttrLabelProxy "rel" +dOMHTMLAreaElementRel = 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, *)]) @@ -729,7 +830,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -759,7 +860,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -789,7 +890,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -819,7 +920,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -849,7 +950,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -879,7 +980,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -909,7 +1010,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -937,7 +1038,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -967,7 +1068,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -997,7 +1098,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -1027,7 +1128,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -1057,7 +1158,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -1087,7 +1188,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -1117,7 +1218,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -1148,7 +1249,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -1179,7 +1280,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -1210,7 +1311,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -1240,7 +1341,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -1271,7 +1372,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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/WebKit2WebExtension/Objects/DOMHTMLAreaElement.hs-boot b/GI/WebKit2WebExtension/Objects/DOMHTMLAreaElement.hs-boot --- a/GI/WebKit2WebExtension/Objects/DOMHTMLAreaElement.hs-boot +++ b/GI/WebKit2WebExtension/Objects/DOMHTMLAreaElement.hs-boot @@ -1,8 +1,8 @@ module GI.WebKit2WebExtension.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/WebKit2WebExtension/Objects/DOMHTMLBRElement.hs b/GI/WebKit2WebExtension/Objects/DOMHTMLBRElement.hs --- a/GI/WebKit2WebExtension/Objects/DOMHTMLBRElement.hs +++ b/GI/WebKit2WebExtension/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 @@ -143,8 +144,11 @@ ResolveDOMHTMLBRElementMethod "getData" o = GObject.ObjectGetDataMethodInfo ResolveDOMHTMLBRElementMethod "getDir" o = DOMHTMLElementGetDirMethodInfo ResolveDOMHTMLBRElementMethod "getElementsByClassName" o = DOMElementGetElementsByClassNameMethodInfo + ResolveDOMHTMLBRElementMethod "getElementsByClassNameAsHtmlCollection" o = DOMElementGetElementsByClassNameAsHtmlCollectionMethodInfo ResolveDOMHTMLBRElementMethod "getElementsByTagName" o = DOMElementGetElementsByTagNameMethodInfo + ResolveDOMHTMLBRElementMethod "getElementsByTagNameAsHtmlCollection" o = DOMElementGetElementsByTagNameAsHtmlCollectionMethodInfo ResolveDOMHTMLBRElementMethod "getElementsByTagNameNs" o = DOMElementGetElementsByTagNameNsMethodInfo + ResolveDOMHTMLBRElementMethod "getElementsByTagNameNsAsHtmlCollection" o = DOMElementGetElementsByTagNameNsAsHtmlCollectionMethodInfo ResolveDOMHTMLBRElementMethod "getFirstChild" o = DOMNodeGetFirstChildMethodInfo ResolveDOMHTMLBRElementMethod "getFirstElementChild" o = DOMElementGetFirstElementChildMethodInfo ResolveDOMHTMLBRElementMethod "getId" o = DOMElementGetIdMethodInfo @@ -218,30 +222,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", DOMElementChildrenPropertyInfo), '("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", DOMElementInnerHtmlPropertyInfo), '("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", DOMElementOuterHtmlPropertyInfo), '("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, *)]) +type DOMHTMLBRElementAttributeList = ('[ '("accessKey", DOMHTMLElementAccessKeyPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("baseUri", DOMNodeBaseUriPropertyInfo), '("childElementCount", DOMElementChildElementCountPropertyInfo), '("childNodes", DOMNodeChildNodesPropertyInfo), '("children", DOMElementChildrenPropertyInfo), '("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", DOMElementInnerHtmlPropertyInfo), '("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", DOMElementOuterHtmlPropertyInfo), '("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), '("treeRoot", DOMNodeTreeRootPropertyInfo), '("webkitRegionOverset", DOMElementWebkitRegionOversetPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo)] :: [(Symbol, *)]) +dOMHTMLBRElementClear :: AttrLabelProxy "clear" +dOMHTMLBRElementClear = AttrLabelProxy + type instance SignalList DOMHTMLBRElement = DOMHTMLBRElementSignalList type DOMHTMLBRElementSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) @@ -249,7 +258,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -279,7 +288,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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/WebKit2WebExtension/Objects/DOMHTMLBRElement.hs-boot b/GI/WebKit2WebExtension/Objects/DOMHTMLBRElement.hs-boot --- a/GI/WebKit2WebExtension/Objects/DOMHTMLBRElement.hs-boot +++ b/GI/WebKit2WebExtension/Objects/DOMHTMLBRElement.hs-boot @@ -1,8 +1,8 @@ module GI.WebKit2WebExtension.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/WebKit2WebExtension/Objects/DOMHTMLBaseElement.hs b/GI/WebKit2WebExtension/Objects/DOMHTMLBaseElement.hs --- a/GI/WebKit2WebExtension/Objects/DOMHTMLBaseElement.hs +++ b/GI/WebKit2WebExtension/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 @@ -159,8 +161,11 @@ ResolveDOMHTMLBaseElementMethod "getData" o = GObject.ObjectGetDataMethodInfo ResolveDOMHTMLBaseElementMethod "getDir" o = DOMHTMLElementGetDirMethodInfo ResolveDOMHTMLBaseElementMethod "getElementsByClassName" o = DOMElementGetElementsByClassNameMethodInfo + ResolveDOMHTMLBaseElementMethod "getElementsByClassNameAsHtmlCollection" o = DOMElementGetElementsByClassNameAsHtmlCollectionMethodInfo ResolveDOMHTMLBaseElementMethod "getElementsByTagName" o = DOMElementGetElementsByTagNameMethodInfo + ResolveDOMHTMLBaseElementMethod "getElementsByTagNameAsHtmlCollection" o = DOMElementGetElementsByTagNameAsHtmlCollectionMethodInfo ResolveDOMHTMLBaseElementMethod "getElementsByTagNameNs" o = DOMElementGetElementsByTagNameNsMethodInfo + ResolveDOMHTMLBaseElementMethod "getElementsByTagNameNsAsHtmlCollection" o = DOMElementGetElementsByTagNameNsAsHtmlCollectionMethodInfo ResolveDOMHTMLBaseElementMethod "getFirstChild" o = DOMNodeGetFirstChildMethodInfo ResolveDOMHTMLBaseElementMethod "getFirstElementChild" o = DOMElementGetFirstElementChildMethodInfo ResolveDOMHTMLBaseElementMethod "getHref" o = DOMHTMLBaseElementGetHrefMethodInfo @@ -237,54 +242,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", DOMElementChildrenPropertyInfo), '("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", DOMElementInnerHtmlPropertyInfo), '("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", DOMElementOuterHtmlPropertyInfo), '("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, *)]) +type DOMHTMLBaseElementAttributeList = ('[ '("accessKey", DOMHTMLElementAccessKeyPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("baseUri", DOMNodeBaseUriPropertyInfo), '("childElementCount", DOMElementChildElementCountPropertyInfo), '("childNodes", DOMNodeChildNodesPropertyInfo), '("children", DOMElementChildrenPropertyInfo), '("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", DOMElementInnerHtmlPropertyInfo), '("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", DOMElementOuterHtmlPropertyInfo), '("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), '("treeRoot", DOMNodeTreeRootPropertyInfo), '("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, *)]) @@ -292,7 +307,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -322,7 +337,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -352,7 +367,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -383,7 +398,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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/WebKit2WebExtension/Objects/DOMHTMLBaseElement.hs-boot b/GI/WebKit2WebExtension/Objects/DOMHTMLBaseElement.hs-boot --- a/GI/WebKit2WebExtension/Objects/DOMHTMLBaseElement.hs-boot +++ b/GI/WebKit2WebExtension/Objects/DOMHTMLBaseElement.hs-boot @@ -1,8 +1,8 @@ module GI.WebKit2WebExtension.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/WebKit2WebExtension/Objects/DOMHTMLBaseFontElement.hs b/GI/WebKit2WebExtension/Objects/DOMHTMLBaseFontElement.hs --- a/GI/WebKit2WebExtension/Objects/DOMHTMLBaseFontElement.hs +++ b/GI/WebKit2WebExtension/Objects/DOMHTMLBaseFontElement.hs @@ -49,35 +49,11 @@ - -- * Properties --- ** Color - DOMHTMLBaseFontElementColorPropertyInfo , - constructDOMHTMLBaseFontElementColor , - getDOMHTMLBaseFontElementColor , - setDOMHTMLBaseFontElementColor , - - --- ** Face - DOMHTMLBaseFontElementFacePropertyInfo , - constructDOMHTMLBaseFontElementFace , - getDOMHTMLBaseFontElementFace , - setDOMHTMLBaseFontElementFace , - - --- ** Size - DOMHTMLBaseFontElementSizePropertyInfo , - constructDOMHTMLBaseFontElementSize , - getDOMHTMLBaseFontElementSize , - setDOMHTMLBaseFontElementSize , - - - - ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map @@ -177,8 +153,11 @@ ResolveDOMHTMLBaseFontElementMethod "getData" o = GObject.ObjectGetDataMethodInfo ResolveDOMHTMLBaseFontElementMethod "getDir" o = DOMHTMLElementGetDirMethodInfo ResolveDOMHTMLBaseFontElementMethod "getElementsByClassName" o = DOMElementGetElementsByClassNameMethodInfo + ResolveDOMHTMLBaseFontElementMethod "getElementsByClassNameAsHtmlCollection" o = DOMElementGetElementsByClassNameAsHtmlCollectionMethodInfo ResolveDOMHTMLBaseFontElementMethod "getElementsByTagName" o = DOMElementGetElementsByTagNameMethodInfo + ResolveDOMHTMLBaseFontElementMethod "getElementsByTagNameAsHtmlCollection" o = DOMElementGetElementsByTagNameAsHtmlCollectionMethodInfo ResolveDOMHTMLBaseFontElementMethod "getElementsByTagNameNs" o = DOMElementGetElementsByTagNameNsMethodInfo + ResolveDOMHTMLBaseFontElementMethod "getElementsByTagNameNsAsHtmlCollection" o = DOMElementGetElementsByTagNameNsAsHtmlCollectionMethodInfo ResolveDOMHTMLBaseFontElementMethod "getFace" o = DOMHTMLBaseFontElementGetFaceMethodInfo ResolveDOMHTMLBaseFontElementMethod "getFirstChild" o = DOMNodeGetFirstChildMethodInfo ResolveDOMHTMLBaseFontElementMethod "getFirstElementChild" o = DOMElementGetFirstElementChildMethodInfo @@ -253,80 +232,8 @@ fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) #endif --- VVV Prop "color" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLBaseFontElementColor :: (MonadIO m, DOMHTMLBaseFontElementK o) => o -> m 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 - -constructDOMHTMLBaseFontElementColor :: T.Text -> IO ([Char], GValue) -constructDOMHTMLBaseFontElementColor val = constructObjectPropertyString "color" 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 AttrLabel DOMHTMLBaseFontElementColorPropertyInfo = "color" - attrGet _ = getDOMHTMLBaseFontElementColor - attrSet _ = setDOMHTMLBaseFontElementColor - attrConstruct _ = constructDOMHTMLBaseFontElementColor - --- VVV Prop "face" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLBaseFontElementFace :: (MonadIO m, DOMHTMLBaseFontElementK o) => o -> m 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 - -constructDOMHTMLBaseFontElementFace :: T.Text -> IO ([Char], GValue) -constructDOMHTMLBaseFontElementFace val = constructObjectPropertyString "face" 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 AttrLabel DOMHTMLBaseFontElementFacePropertyInfo = "face" - attrGet _ = getDOMHTMLBaseFontElementFace - attrSet _ = setDOMHTMLBaseFontElementFace - attrConstruct _ = constructDOMHTMLBaseFontElementFace - --- VVV Prop "size" - -- Type: TBasicType TInt64 - -- Flags: [PropertyReadable,PropertyWritable] - -getDOMHTMLBaseFontElementSize :: (MonadIO m, DOMHTMLBaseFontElementK o) => o -> m Int64 -getDOMHTMLBaseFontElementSize obj = liftIO $ getObjectPropertyInt64 obj "size" - -setDOMHTMLBaseFontElementSize :: (MonadIO m, DOMHTMLBaseFontElementK o) => o -> Int64 -> m () -setDOMHTMLBaseFontElementSize obj val = liftIO $ setObjectPropertyInt64 obj "size" val - -constructDOMHTMLBaseFontElementSize :: Int64 -> IO ([Char], GValue) -constructDOMHTMLBaseFontElementSize val = constructObjectPropertyInt64 "size" val - -data DOMHTMLBaseFontElementSizePropertyInfo -instance AttrInfo DOMHTMLBaseFontElementSizePropertyInfo where - type AttrAllowedOps DOMHTMLBaseFontElementSizePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLBaseFontElementSizePropertyInfo = (~) Int64 - type AttrBaseTypeConstraint DOMHTMLBaseFontElementSizePropertyInfo = DOMHTMLBaseFontElementK - type AttrGetType DOMHTMLBaseFontElementSizePropertyInfo = Int64 - type AttrLabel DOMHTMLBaseFontElementSizePropertyInfo = "size" - attrGet _ = getDOMHTMLBaseFontElementSize - attrSet _ = setDOMHTMLBaseFontElementSize - attrConstruct _ = constructDOMHTMLBaseFontElementSize - type instance AttributeList DOMHTMLBaseFontElement = DOMHTMLBaseFontElementAttributeList -type DOMHTMLBaseFontElementAttributeList = ('[ '("accessKey", DOMHTMLElementAccessKeyPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("baseUri", DOMNodeBaseUriPropertyInfo), '("childElementCount", DOMElementChildElementCountPropertyInfo), '("childNodes", DOMNodeChildNodesPropertyInfo), '("children", DOMElementChildrenPropertyInfo), '("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", DOMElementInnerHtmlPropertyInfo), '("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", DOMElementOuterHtmlPropertyInfo), '("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, *)]) +type DOMHTMLBaseFontElementAttributeList = ('[ '("accessKey", DOMHTMLElementAccessKeyPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("baseUri", DOMNodeBaseUriPropertyInfo), '("childElementCount", DOMElementChildElementCountPropertyInfo), '("childNodes", DOMNodeChildNodesPropertyInfo), '("children", DOMElementChildrenPropertyInfo), '("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", DOMElementInnerHtmlPropertyInfo), '("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", DOMElementOuterHtmlPropertyInfo), '("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), '("treeRoot", DOMNodeTreeRootPropertyInfo), '("webkitRegionOverset", DOMElementWebkitRegionOversetPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo)] :: [(Symbol, *)]) type instance SignalList DOMHTMLBaseFontElement = DOMHTMLBaseFontElementSignalList type DOMHTMLBaseFontElementSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) @@ -335,7 +242,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -343,7 +250,7 @@ Ptr DOMHTMLBaseFontElement -> -- _obj : TInterface "WebKit2WebExtension" "DOMHTMLBaseFontElement" IO CString - +{-# DEPRECATED dOMHTMLBaseFontElementGetColor ["(Since version 2.12)"]#-} dOMHTMLBaseFontElementGetColor :: (MonadIO m, DOMHTMLBaseFontElementK a) => a -- _obj @@ -365,7 +272,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -373,7 +280,7 @@ Ptr DOMHTMLBaseFontElement -> -- _obj : TInterface "WebKit2WebExtension" "DOMHTMLBaseFontElement" IO CString - +{-# DEPRECATED dOMHTMLBaseFontElementGetFace ["(Since version 2.12)"]#-} dOMHTMLBaseFontElementGetFace :: (MonadIO m, DOMHTMLBaseFontElementK a) => a -- _obj @@ -395,19 +302,19 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "DOMHTMLBaseFontElement" - IO Int64 - + IO CLong +{-# DEPRECATED dOMHTMLBaseFontElementGetSize ["(Since version 2.12)"]#-} 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' @@ -415,14 +322,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 "WebKit2WebExtension" "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 @@ -431,7 +338,7 @@ CString -> -- value : TBasicType TUTF8 IO () - +{-# DEPRECATED dOMHTMLBaseFontElementSetColor ["(Since version 2.12)"]#-} dOMHTMLBaseFontElementSetColor :: (MonadIO m, DOMHTMLBaseFontElementK a) => a -- _obj @@ -453,7 +360,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -462,7 +369,7 @@ CString -> -- value : TBasicType TUTF8 IO () - +{-# DEPRECATED dOMHTMLBaseFontElementSetFace ["(Since version 2.12)"]#-} dOMHTMLBaseFontElementSetFace :: (MonadIO m, DOMHTMLBaseFontElementK a) => a -- _obj @@ -482,22 +389,22 @@ -- method DOMHTMLBaseFontElement::set_size -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "DOMHTMLBaseFontElement" - Int64 -> -- value : TBasicType TInt64 + CLong -> -- value : TBasicType TLong IO () - +{-# DEPRECATED dOMHTMLBaseFontElementSetSize ["(Since version 2.12)"]#-} dOMHTMLBaseFontElementSetSize :: (MonadIO m, DOMHTMLBaseFontElementK a) => a -- _obj - -> Int64 -- value + -> CLong -- value -> m () -- result dOMHTMLBaseFontElementSetSize _obj value = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj @@ -506,7 +413,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/WebKit2WebExtension/Objects/DOMHTMLBaseFontElement.hs-boot b/GI/WebKit2WebExtension/Objects/DOMHTMLBaseFontElement.hs-boot --- a/GI/WebKit2WebExtension/Objects/DOMHTMLBaseFontElement.hs-boot +++ b/GI/WebKit2WebExtension/Objects/DOMHTMLBaseFontElement.hs-boot @@ -1,8 +1,8 @@ module GI.WebKit2WebExtension.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 @@ -11,9 +11,6 @@ instance GObject DOMHTMLBaseFontElement where class GObject o => DOMHTMLBaseFontElementK o instance (GObject o, IsDescendantOf DOMHTMLBaseFontElement o) => DOMHTMLBaseFontElementK o -data DOMHTMLBaseFontElementColorPropertyInfo -data DOMHTMLBaseFontElementFacePropertyInfo -data DOMHTMLBaseFontElementSizePropertyInfo data DOMHTMLBaseFontElementGetColorMethodInfo data DOMHTMLBaseFontElementGetFaceMethodInfo data DOMHTMLBaseFontElementGetSizeMethodInfo diff --git a/GI/WebKit2WebExtension/Objects/DOMHTMLBodyElement.hs b/GI/WebKit2WebExtension/Objects/DOMHTMLBodyElement.hs --- a/GI/WebKit2WebExtension/Objects/DOMHTMLBodyElement.hs +++ b/GI/WebKit2WebExtension/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 @@ -230,8 +236,11 @@ ResolveDOMHTMLBodyElementMethod "getData" o = GObject.ObjectGetDataMethodInfo ResolveDOMHTMLBodyElementMethod "getDir" o = DOMHTMLElementGetDirMethodInfo ResolveDOMHTMLBodyElementMethod "getElementsByClassName" o = DOMElementGetElementsByClassNameMethodInfo + ResolveDOMHTMLBodyElementMethod "getElementsByClassNameAsHtmlCollection" o = DOMElementGetElementsByClassNameAsHtmlCollectionMethodInfo ResolveDOMHTMLBodyElementMethod "getElementsByTagName" o = DOMElementGetElementsByTagNameMethodInfo + ResolveDOMHTMLBodyElementMethod "getElementsByTagNameAsHtmlCollection" o = DOMElementGetElementsByTagNameAsHtmlCollectionMethodInfo ResolveDOMHTMLBodyElementMethod "getElementsByTagNameNs" o = DOMElementGetElementsByTagNameNsMethodInfo + ResolveDOMHTMLBodyElementMethod "getElementsByTagNameNsAsHtmlCollection" o = DOMElementGetElementsByTagNameNsAsHtmlCollectionMethodInfo ResolveDOMHTMLBodyElementMethod "getFirstChild" o = DOMNodeGetFirstChildMethodInfo ResolveDOMHTMLBodyElementMethod "getFirstElementChild" o = DOMElementGetFirstElementChildMethodInfo ResolveDOMHTMLBodyElementMethod "getId" o = DOMElementGetIdMethodInfo @@ -313,150 +322,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", DOMElementChildrenPropertyInfo), '("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", DOMElementInnerHtmlPropertyInfo), '("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", DOMElementOuterHtmlPropertyInfo), '("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, *)]) +type DOMHTMLBodyElementAttributeList = ('[ '("aLink", DOMHTMLBodyElementALinkPropertyInfo), '("accessKey", DOMHTMLElementAccessKeyPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("background", DOMHTMLBodyElementBackgroundPropertyInfo), '("baseUri", DOMNodeBaseUriPropertyInfo), '("bgColor", DOMHTMLBodyElementBgColorPropertyInfo), '("childElementCount", DOMElementChildElementCountPropertyInfo), '("childNodes", DOMNodeChildNodesPropertyInfo), '("children", DOMElementChildrenPropertyInfo), '("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", DOMElementInnerHtmlPropertyInfo), '("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", DOMElementOuterHtmlPropertyInfo), '("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), '("treeRoot", DOMNodeTreeRootPropertyInfo), '("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, *)]) @@ -464,7 +503,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -494,7 +533,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -524,7 +563,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -554,7 +593,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -584,7 +623,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -614,7 +653,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -644,7 +683,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -675,7 +714,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -706,7 +745,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -737,7 +776,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -768,7 +807,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -799,7 +838,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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/WebKit2WebExtension/Objects/DOMHTMLBodyElement.hs-boot b/GI/WebKit2WebExtension/Objects/DOMHTMLBodyElement.hs-boot --- a/GI/WebKit2WebExtension/Objects/DOMHTMLBodyElement.hs-boot +++ b/GI/WebKit2WebExtension/Objects/DOMHTMLBodyElement.hs-boot @@ -1,8 +1,8 @@ module GI.WebKit2WebExtension.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/WebKit2WebExtension/Objects/DOMHTMLButtonElement.hs b/GI/WebKit2WebExtension/Objects/DOMHTMLButtonElement.hs --- a/GI/WebKit2WebExtension/Objects/DOMHTMLButtonElement.hs +++ b/GI/WebKit2WebExtension/Objects/DOMHTMLButtonElement.hs @@ -83,6 +83,7 @@ -- ** Autofocus DOMHTMLButtonElementAutofocusPropertyInfo, constructDOMHTMLButtonElementAutofocus , + dOMHTMLButtonElementAutofocus , getDOMHTMLButtonElementAutofocus , setDOMHTMLButtonElementAutofocus , @@ -90,32 +91,40 @@ -- ** Disabled DOMHTMLButtonElementDisabledPropertyInfo, constructDOMHTMLButtonElementDisabled , + dOMHTMLButtonElementDisabled , getDOMHTMLButtonElementDisabled , setDOMHTMLButtonElementDisabled , -- ** Form DOMHTMLButtonElementFormPropertyInfo , + dOMHTMLButtonElementForm , getDOMHTMLButtonElementForm , -- ** FormAction DOMHTMLButtonElementFormActionPropertyInfo, + clearDOMHTMLButtonElementFormAction , constructDOMHTMLButtonElementFormAction , + dOMHTMLButtonElementFormAction , getDOMHTMLButtonElementFormAction , setDOMHTMLButtonElementFormAction , -- ** FormEnctype DOMHTMLButtonElementFormEnctypePropertyInfo, + clearDOMHTMLButtonElementFormEnctype , constructDOMHTMLButtonElementFormEnctype, + dOMHTMLButtonElementFormEnctype , getDOMHTMLButtonElementFormEnctype , setDOMHTMLButtonElementFormEnctype , -- ** FormMethod DOMHTMLButtonElementFormMethodPropertyInfo, + clearDOMHTMLButtonElementFormMethod , constructDOMHTMLButtonElementFormMethod , + dOMHTMLButtonElementFormMethod , getDOMHTMLButtonElementFormMethod , setDOMHTMLButtonElementFormMethod , @@ -123,50 +132,60 @@ -- ** FormNoValidate DOMHTMLButtonElementFormNoValidatePropertyInfo, constructDOMHTMLButtonElementFormNoValidate, + dOMHTMLButtonElementFormNoValidate , getDOMHTMLButtonElementFormNoValidate , setDOMHTMLButtonElementFormNoValidate , -- ** FormTarget DOMHTMLButtonElementFormTargetPropertyInfo, + clearDOMHTMLButtonElementFormTarget , 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, -- ** Value DOMHTMLButtonElementValuePropertyInfo , constructDOMHTMLButtonElementValue , + dOMHTMLButtonElementValue , getDOMHTMLButtonElementValue , setDOMHTMLButtonElementValue , -- ** WillValidate DOMHTMLButtonElementWillValidatePropertyInfo, + dOMHTMLButtonElementWillValidate , getDOMHTMLButtonElementWillValidate , @@ -174,9 +193,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 @@ -278,8 +297,11 @@ ResolveDOMHTMLButtonElementMethod "getDir" o = DOMHTMLElementGetDirMethodInfo ResolveDOMHTMLButtonElementMethod "getDisabled" o = DOMHTMLButtonElementGetDisabledMethodInfo ResolveDOMHTMLButtonElementMethod "getElementsByClassName" o = DOMElementGetElementsByClassNameMethodInfo + ResolveDOMHTMLButtonElementMethod "getElementsByClassNameAsHtmlCollection" o = DOMElementGetElementsByClassNameAsHtmlCollectionMethodInfo ResolveDOMHTMLButtonElementMethod "getElementsByTagName" o = DOMElementGetElementsByTagNameMethodInfo + ResolveDOMHTMLButtonElementMethod "getElementsByTagNameAsHtmlCollection" o = DOMElementGetElementsByTagNameAsHtmlCollectionMethodInfo ResolveDOMHTMLButtonElementMethod "getElementsByTagNameNs" o = DOMElementGetElementsByTagNameNsMethodInfo + ResolveDOMHTMLButtonElementMethod "getElementsByTagNameNsAsHtmlCollection" o = DOMElementGetElementsByTagNameNsAsHtmlCollectionMethodInfo ResolveDOMHTMLButtonElementMethod "getFirstChild" o = DOMNodeGetFirstChildMethodInfo ResolveDOMHTMLButtonElementMethod "getFirstElementChild" o = DOMElementGetFirstElementChildMethodInfo ResolveDOMHTMLButtonElementMethod "getForm" o = DOMHTMLButtonElementGetFormMethodInfo @@ -361,6 +383,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" @@ -381,10 +404,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" @@ -405,17 +430,19 @@ attrGet _ = getDOMHTMLButtonElementDisabled attrSet _ = setDOMHTMLButtonElementDisabled attrConstruct _ = constructDOMHTMLButtonElementDisabled + attrClear _ = undefined -- VVV Prop "form" -- Type: TInterface "WebKit2WebExtension" "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 @@ -423,82 +450,99 @@ attrGet _ = getDOMHTMLButtonElementForm attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "form-action" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) -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) +clearDOMHTMLButtonElementFormAction :: (MonadIO m, DOMHTMLButtonElementK o) => o -> m () +clearDOMHTMLButtonElementFormAction obj = liftIO $ setObjectPropertyString obj "form-action" (Nothing :: Maybe T.Text) + data DOMHTMLButtonElementFormActionPropertyInfo instance AttrInfo DOMHTMLButtonElementFormActionPropertyInfo where - type AttrAllowedOps DOMHTMLButtonElementFormActionPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrAllowedOps DOMHTMLButtonElementFormActionPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] 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 _ = clearDOMHTMLButtonElementFormAction -- VVV Prop "form-enctype" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) -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) +clearDOMHTMLButtonElementFormEnctype :: (MonadIO m, DOMHTMLButtonElementK o) => o -> m () +clearDOMHTMLButtonElementFormEnctype obj = liftIO $ setObjectPropertyString obj "form-enctype" (Nothing :: Maybe T.Text) + data DOMHTMLButtonElementFormEnctypePropertyInfo instance AttrInfo DOMHTMLButtonElementFormEnctypePropertyInfo where - type AttrAllowedOps DOMHTMLButtonElementFormEnctypePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrAllowedOps DOMHTMLButtonElementFormEnctypePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] 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 _ = clearDOMHTMLButtonElementFormEnctype -- VVV Prop "form-method" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) -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) +clearDOMHTMLButtonElementFormMethod :: (MonadIO m, DOMHTMLButtonElementK o) => o -> m () +clearDOMHTMLButtonElementFormMethod obj = liftIO $ setObjectPropertyString obj "form-method" (Nothing :: Maybe T.Text) + data DOMHTMLButtonElementFormMethodPropertyInfo instance AttrInfo DOMHTMLButtonElementFormMethodPropertyInfo where - type AttrAllowedOps DOMHTMLButtonElementFormMethodPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrAllowedOps DOMHTMLButtonElementFormMethodPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] 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 _ = clearDOMHTMLButtonElementFormMethod -- VVV Prop "form-no-validate" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) getDOMHTMLButtonElementFormNoValidate :: (MonadIO m, DOMHTMLButtonElementK o) => o -> m Bool getDOMHTMLButtonElementFormNoValidate obj = liftIO $ getObjectPropertyBool obj "form-no-validate" @@ -519,142 +563,162 @@ attrGet _ = getDOMHTMLButtonElementFormNoValidate attrSet _ = setDOMHTMLButtonElementFormNoValidate attrConstruct _ = constructDOMHTMLButtonElementFormNoValidate + attrClear _ = undefined -- VVV Prop "form-target" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) -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) +clearDOMHTMLButtonElementFormTarget :: (MonadIO m, DOMHTMLButtonElementK o) => o -> m () +clearDOMHTMLButtonElementFormTarget obj = liftIO $ setObjectPropertyString obj "form-target" (Nothing :: Maybe T.Text) + data DOMHTMLButtonElementFormTargetPropertyInfo instance AttrInfo DOMHTMLButtonElementFormTargetPropertyInfo where - type AttrAllowedOps DOMHTMLButtonElementFormTargetPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrAllowedOps DOMHTMLButtonElementFormTargetPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] 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 _ = clearDOMHTMLButtonElementFormTarget -- VVV Prop "labels" -- Type: TInterface "WebKit2WebExtension" "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 "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" @@ -669,10 +733,53 @@ 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", DOMElementChildrenPropertyInfo), '("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", DOMElementInnerHtmlPropertyInfo), '("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", DOMElementOuterHtmlPropertyInfo), '("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), '("value", DOMHTMLButtonElementValuePropertyInfo), '("webkitRegionOverset", DOMElementWebkitRegionOversetPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo), '("willValidate", DOMHTMLButtonElementWillValidatePropertyInfo)] :: [(Symbol, *)]) +type DOMHTMLButtonElementAttributeList = ('[ '("accessKey", DOMHTMLElementAccessKeyPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("autofocus", DOMHTMLButtonElementAutofocusPropertyInfo), '("baseUri", DOMNodeBaseUriPropertyInfo), '("childElementCount", DOMElementChildElementCountPropertyInfo), '("childNodes", DOMNodeChildNodesPropertyInfo), '("children", DOMElementChildrenPropertyInfo), '("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", DOMElementInnerHtmlPropertyInfo), '("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", DOMElementOuterHtmlPropertyInfo), '("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), '("treeRoot", DOMNodeTreeRootPropertyInfo), '("type", DOMHTMLButtonElementTypePropertyInfo), '("validationMessage", DOMHTMLButtonElementValidationMessagePropertyInfo), '("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 + +dOMHTMLButtonElementValue :: AttrLabelProxy "value" +dOMHTMLButtonElementValue = AttrLabelProxy + +dOMHTMLButtonElementWillValidate :: AttrLabelProxy "willValidate" +dOMHTMLButtonElementWillValidate = AttrLabelProxy + type instance SignalList DOMHTMLButtonElement = DOMHTMLButtonElementSignalList type DOMHTMLButtonElementSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) @@ -680,7 +787,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -708,7 +815,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -738,7 +845,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -766,7 +873,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLButtonElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit2WebExtension" "DOMHTMLFormElement" +-- returnType : Just (TInterface "WebKit2WebExtension" "DOMHTMLFormElement") -- throws : False -- Skip return : False @@ -795,7 +902,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -825,7 +932,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -855,7 +962,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -883,7 +990,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -913,7 +1020,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -944,7 +1051,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -974,7 +1081,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -1005,7 +1112,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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/WebKit2WebExtension/Objects/DOMHTMLButtonElement.hs-boot b/GI/WebKit2WebExtension/Objects/DOMHTMLButtonElement.hs-boot --- a/GI/WebKit2WebExtension/Objects/DOMHTMLButtonElement.hs-boot +++ b/GI/WebKit2WebExtension/Objects/DOMHTMLButtonElement.hs-boot @@ -1,8 +1,8 @@ module GI.WebKit2WebExtension.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/WebKit2WebExtension/Objects/DOMHTMLCanvasElement.hs b/GI/WebKit2WebExtension/Objects/DOMHTMLCanvasElement.hs --- a/GI/WebKit2WebExtension/Objects/DOMHTMLCanvasElement.hs +++ b/GI/WebKit2WebExtension/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 @@ -159,8 +161,11 @@ ResolveDOMHTMLCanvasElementMethod "getData" o = GObject.ObjectGetDataMethodInfo ResolveDOMHTMLCanvasElementMethod "getDir" o = DOMHTMLElementGetDirMethodInfo ResolveDOMHTMLCanvasElementMethod "getElementsByClassName" o = DOMElementGetElementsByClassNameMethodInfo + ResolveDOMHTMLCanvasElementMethod "getElementsByClassNameAsHtmlCollection" o = DOMElementGetElementsByClassNameAsHtmlCollectionMethodInfo ResolveDOMHTMLCanvasElementMethod "getElementsByTagName" o = DOMElementGetElementsByTagNameMethodInfo + ResolveDOMHTMLCanvasElementMethod "getElementsByTagNameAsHtmlCollection" o = DOMElementGetElementsByTagNameAsHtmlCollectionMethodInfo ResolveDOMHTMLCanvasElementMethod "getElementsByTagNameNs" o = DOMElementGetElementsByTagNameNsMethodInfo + ResolveDOMHTMLCanvasElementMethod "getElementsByTagNameNsAsHtmlCollection" o = DOMElementGetElementsByTagNameNsAsHtmlCollectionMethodInfo ResolveDOMHTMLCanvasElementMethod "getFirstChild" o = DOMNodeGetFirstChildMethodInfo ResolveDOMHTMLCanvasElementMethod "getFirstElementChild" o = DOMElementGetFirstElementChildMethodInfo ResolveDOMHTMLCanvasElementMethod "getHeight" o = DOMHTMLCanvasElementGetHeightMethodInfo @@ -235,56 +240,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", DOMElementChildrenPropertyInfo), '("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", DOMElementInnerHtmlPropertyInfo), '("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", DOMElementOuterHtmlPropertyInfo), '("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, *)]) +type DOMHTMLCanvasElementAttributeList = ('[ '("accessKey", DOMHTMLElementAccessKeyPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("baseUri", DOMNodeBaseUriPropertyInfo), '("childElementCount", DOMElementChildElementCountPropertyInfo), '("childNodes", DOMNodeChildNodesPropertyInfo), '("children", DOMElementChildrenPropertyInfo), '("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", DOMElementInnerHtmlPropertyInfo), '("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", DOMElementOuterHtmlPropertyInfo), '("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), '("treeRoot", DOMNodeTreeRootPropertyInfo), '("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, *)]) @@ -292,19 +307,19 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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' @@ -312,26 +327,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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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' @@ -339,27 +354,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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 @@ -368,27 +383,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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 @@ -397,7 +412,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/WebKit2WebExtension/Objects/DOMHTMLCanvasElement.hs-boot b/GI/WebKit2WebExtension/Objects/DOMHTMLCanvasElement.hs-boot --- a/GI/WebKit2WebExtension/Objects/DOMHTMLCanvasElement.hs-boot +++ b/GI/WebKit2WebExtension/Objects/DOMHTMLCanvasElement.hs-boot @@ -1,8 +1,8 @@ module GI.WebKit2WebExtension.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/WebKit2WebExtension/Objects/DOMHTMLCollection.hs b/GI/WebKit2WebExtension/Objects/DOMHTMLCollection.hs --- a/GI/WebKit2WebExtension/Objects/DOMHTMLCollection.hs +++ b/GI/WebKit2WebExtension/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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "DOMNode" +-- returnType : Just (TInterface "WebKit2WebExtension" "DOMNode") -- throws : False -- Skip return : False foreign import ccall "webkit_dom_html_collection_item" webkit_dom_html_collection_item :: Ptr DOMHTMLCollection -> -- _obj : TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "DOMNode" +-- returnType : Just (TInterface "WebKit2WebExtension" "DOMNode") -- throws : False -- Skip return : False diff --git a/GI/WebKit2WebExtension/Objects/DOMHTMLCollection.hs-boot b/GI/WebKit2WebExtension/Objects/DOMHTMLCollection.hs-boot --- a/GI/WebKit2WebExtension/Objects/DOMHTMLCollection.hs-boot +++ b/GI/WebKit2WebExtension/Objects/DOMHTMLCollection.hs-boot @@ -1,8 +1,8 @@ module GI.WebKit2WebExtension.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/WebKit2WebExtension/Objects/DOMHTMLDListElement.hs b/GI/WebKit2WebExtension/Objects/DOMHTMLDListElement.hs --- a/GI/WebKit2WebExtension/Objects/DOMHTMLDListElement.hs +++ b/GI/WebKit2WebExtension/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 @@ -143,8 +144,11 @@ ResolveDOMHTMLDListElementMethod "getData" o = GObject.ObjectGetDataMethodInfo ResolveDOMHTMLDListElementMethod "getDir" o = DOMHTMLElementGetDirMethodInfo ResolveDOMHTMLDListElementMethod "getElementsByClassName" o = DOMElementGetElementsByClassNameMethodInfo + ResolveDOMHTMLDListElementMethod "getElementsByClassNameAsHtmlCollection" o = DOMElementGetElementsByClassNameAsHtmlCollectionMethodInfo ResolveDOMHTMLDListElementMethod "getElementsByTagName" o = DOMElementGetElementsByTagNameMethodInfo + ResolveDOMHTMLDListElementMethod "getElementsByTagNameAsHtmlCollection" o = DOMElementGetElementsByTagNameAsHtmlCollectionMethodInfo ResolveDOMHTMLDListElementMethod "getElementsByTagNameNs" o = DOMElementGetElementsByTagNameNsMethodInfo + ResolveDOMHTMLDListElementMethod "getElementsByTagNameNsAsHtmlCollection" o = DOMElementGetElementsByTagNameNsAsHtmlCollectionMethodInfo ResolveDOMHTMLDListElementMethod "getFirstChild" o = DOMNodeGetFirstChildMethodInfo ResolveDOMHTMLDListElementMethod "getFirstElementChild" o = DOMElementGetFirstElementChildMethodInfo ResolveDOMHTMLDListElementMethod "getId" o = DOMElementGetIdMethodInfo @@ -218,6 +222,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" @@ -238,10 +243,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", DOMElementChildrenPropertyInfo), '("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", DOMElementInnerHtmlPropertyInfo), '("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", DOMElementOuterHtmlPropertyInfo), '("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, *)]) +type DOMHTMLDListElementAttributeList = ('[ '("accessKey", DOMHTMLElementAccessKeyPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("baseUri", DOMNodeBaseUriPropertyInfo), '("childElementCount", DOMElementChildElementCountPropertyInfo), '("childNodes", DOMNodeChildNodesPropertyInfo), '("children", DOMElementChildrenPropertyInfo), '("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", DOMElementInnerHtmlPropertyInfo), '("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", DOMElementOuterHtmlPropertyInfo), '("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), '("treeRoot", DOMNodeTreeRootPropertyInfo), '("webkitRegionOverset", DOMElementWebkitRegionOversetPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo)] :: [(Symbol, *)]) +dOMHTMLDListElementCompact :: AttrLabelProxy "compact" +dOMHTMLDListElementCompact = AttrLabelProxy + type instance SignalList DOMHTMLDListElement = DOMHTMLDListElementSignalList type DOMHTMLDListElementSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) @@ -249,7 +258,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -277,7 +286,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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/WebKit2WebExtension/Objects/DOMHTMLDListElement.hs-boot b/GI/WebKit2WebExtension/Objects/DOMHTMLDListElement.hs-boot --- a/GI/WebKit2WebExtension/Objects/DOMHTMLDListElement.hs-boot +++ b/GI/WebKit2WebExtension/Objects/DOMHTMLDListElement.hs-boot @@ -1,8 +1,8 @@ module GI.WebKit2WebExtension.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/WebKit2WebExtension/Objects/DOMHTMLDirectoryElement.hs b/GI/WebKit2WebExtension/Objects/DOMHTMLDirectoryElement.hs --- a/GI/WebKit2WebExtension/Objects/DOMHTMLDirectoryElement.hs +++ b/GI/WebKit2WebExtension/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 @@ -143,8 +144,11 @@ ResolveDOMHTMLDirectoryElementMethod "getData" o = GObject.ObjectGetDataMethodInfo ResolveDOMHTMLDirectoryElementMethod "getDir" o = DOMHTMLElementGetDirMethodInfo ResolveDOMHTMLDirectoryElementMethod "getElementsByClassName" o = DOMElementGetElementsByClassNameMethodInfo + ResolveDOMHTMLDirectoryElementMethod "getElementsByClassNameAsHtmlCollection" o = DOMElementGetElementsByClassNameAsHtmlCollectionMethodInfo ResolveDOMHTMLDirectoryElementMethod "getElementsByTagName" o = DOMElementGetElementsByTagNameMethodInfo + ResolveDOMHTMLDirectoryElementMethod "getElementsByTagNameAsHtmlCollection" o = DOMElementGetElementsByTagNameAsHtmlCollectionMethodInfo ResolveDOMHTMLDirectoryElementMethod "getElementsByTagNameNs" o = DOMElementGetElementsByTagNameNsMethodInfo + ResolveDOMHTMLDirectoryElementMethod "getElementsByTagNameNsAsHtmlCollection" o = DOMElementGetElementsByTagNameNsAsHtmlCollectionMethodInfo ResolveDOMHTMLDirectoryElementMethod "getFirstChild" o = DOMNodeGetFirstChildMethodInfo ResolveDOMHTMLDirectoryElementMethod "getFirstElementChild" o = DOMElementGetFirstElementChildMethodInfo ResolveDOMHTMLDirectoryElementMethod "getId" o = DOMElementGetIdMethodInfo @@ -218,6 +222,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" @@ -238,10 +243,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", DOMElementChildrenPropertyInfo), '("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", DOMElementInnerHtmlPropertyInfo), '("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", DOMElementOuterHtmlPropertyInfo), '("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, *)]) +type DOMHTMLDirectoryElementAttributeList = ('[ '("accessKey", DOMHTMLElementAccessKeyPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("baseUri", DOMNodeBaseUriPropertyInfo), '("childElementCount", DOMElementChildElementCountPropertyInfo), '("childNodes", DOMNodeChildNodesPropertyInfo), '("children", DOMElementChildrenPropertyInfo), '("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", DOMElementInnerHtmlPropertyInfo), '("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", DOMElementOuterHtmlPropertyInfo), '("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), '("treeRoot", DOMNodeTreeRootPropertyInfo), '("webkitRegionOverset", DOMElementWebkitRegionOversetPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo)] :: [(Symbol, *)]) +dOMHTMLDirectoryElementCompact :: AttrLabelProxy "compact" +dOMHTMLDirectoryElementCompact = AttrLabelProxy + type instance SignalList DOMHTMLDirectoryElement = DOMHTMLDirectoryElementSignalList type DOMHTMLDirectoryElementSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) @@ -249,7 +258,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -277,7 +286,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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/WebKit2WebExtension/Objects/DOMHTMLDirectoryElement.hs-boot b/GI/WebKit2WebExtension/Objects/DOMHTMLDirectoryElement.hs-boot --- a/GI/WebKit2WebExtension/Objects/DOMHTMLDirectoryElement.hs-boot +++ b/GI/WebKit2WebExtension/Objects/DOMHTMLDirectoryElement.hs-boot @@ -1,8 +1,8 @@ module GI.WebKit2WebExtension.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/WebKit2WebExtension/Objects/DOMHTMLDivElement.hs b/GI/WebKit2WebExtension/Objects/DOMHTMLDivElement.hs --- a/GI/WebKit2WebExtension/Objects/DOMHTMLDivElement.hs +++ b/GI/WebKit2WebExtension/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 @@ -143,8 +144,11 @@ ResolveDOMHTMLDivElementMethod "getData" o = GObject.ObjectGetDataMethodInfo ResolveDOMHTMLDivElementMethod "getDir" o = DOMHTMLElementGetDirMethodInfo ResolveDOMHTMLDivElementMethod "getElementsByClassName" o = DOMElementGetElementsByClassNameMethodInfo + ResolveDOMHTMLDivElementMethod "getElementsByClassNameAsHtmlCollection" o = DOMElementGetElementsByClassNameAsHtmlCollectionMethodInfo ResolveDOMHTMLDivElementMethod "getElementsByTagName" o = DOMElementGetElementsByTagNameMethodInfo + ResolveDOMHTMLDivElementMethod "getElementsByTagNameAsHtmlCollection" o = DOMElementGetElementsByTagNameAsHtmlCollectionMethodInfo ResolveDOMHTMLDivElementMethod "getElementsByTagNameNs" o = DOMElementGetElementsByTagNameNsMethodInfo + ResolveDOMHTMLDivElementMethod "getElementsByTagNameNsAsHtmlCollection" o = DOMElementGetElementsByTagNameNsAsHtmlCollectionMethodInfo ResolveDOMHTMLDivElementMethod "getFirstChild" o = DOMNodeGetFirstChildMethodInfo ResolveDOMHTMLDivElementMethod "getFirstElementChild" o = DOMElementGetFirstElementChildMethodInfo ResolveDOMHTMLDivElementMethod "getId" o = DOMElementGetIdMethodInfo @@ -218,30 +222,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", DOMElementChildrenPropertyInfo), '("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", DOMElementInnerHtmlPropertyInfo), '("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", DOMElementOuterHtmlPropertyInfo), '("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, *)]) +type DOMHTMLDivElementAttributeList = ('[ '("accessKey", DOMHTMLElementAccessKeyPropertyInfo), '("align", DOMHTMLDivElementAlignPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("baseUri", DOMNodeBaseUriPropertyInfo), '("childElementCount", DOMElementChildElementCountPropertyInfo), '("childNodes", DOMNodeChildNodesPropertyInfo), '("children", DOMElementChildrenPropertyInfo), '("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", DOMElementInnerHtmlPropertyInfo), '("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", DOMElementOuterHtmlPropertyInfo), '("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), '("treeRoot", DOMNodeTreeRootPropertyInfo), '("webkitRegionOverset", DOMElementWebkitRegionOversetPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo)] :: [(Symbol, *)]) +dOMHTMLDivElementAlign :: AttrLabelProxy "align" +dOMHTMLDivElementAlign = AttrLabelProxy + type instance SignalList DOMHTMLDivElement = DOMHTMLDivElementSignalList type DOMHTMLDivElementSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) @@ -249,7 +258,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -279,7 +288,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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/WebKit2WebExtension/Objects/DOMHTMLDivElement.hs-boot b/GI/WebKit2WebExtension/Objects/DOMHTMLDivElement.hs-boot --- a/GI/WebKit2WebExtension/Objects/DOMHTMLDivElement.hs-boot +++ b/GI/WebKit2WebExtension/Objects/DOMHTMLDivElement.hs-boot @@ -1,8 +1,8 @@ module GI.WebKit2WebExtension.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/WebKit2WebExtension/Objects/DOMHTMLDocument.hs b/GI/WebKit2WebExtension/Objects/DOMHTMLDocument.hs --- a/GI/WebKit2WebExtension/Objects/DOMHTMLDocument.hs +++ b/GI/WebKit2WebExtension/Objects/DOMHTMLDocument.hs @@ -143,6 +143,7 @@ -- ** AlinkColor DOMHTMLDocumentAlinkColorPropertyInfo , constructDOMHTMLDocumentAlinkColor , + dOMHTMLDocumentAlinkColor , getDOMHTMLDocumentAlinkColor , setDOMHTMLDocumentAlinkColor , @@ -150,18 +151,21 @@ -- ** BgColor DOMHTMLDocumentBgColorPropertyInfo , constructDOMHTMLDocumentBgColor , + dOMHTMLDocumentBgColor , getDOMHTMLDocumentBgColor , setDOMHTMLDocumentBgColor , -- ** CompatMode DOMHTMLDocumentCompatModePropertyInfo , + dOMHTMLDocumentCompatMode , getDOMHTMLDocumentCompatMode , -- ** DesignMode DOMHTMLDocumentDesignModePropertyInfo , constructDOMHTMLDocumentDesignMode , + dOMHTMLDocumentDesignMode , getDOMHTMLDocumentDesignMode , setDOMHTMLDocumentDesignMode , @@ -169,53 +173,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 , @@ -223,9 +236,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 @@ -348,9 +361,12 @@ ResolveDOMHTMLDocumentMethod "getDomain" o = DOMDocumentGetDomainMethodInfo ResolveDOMHTMLDocumentMethod "getElementById" o = DOMDocumentGetElementByIdMethodInfo ResolveDOMHTMLDocumentMethod "getElementsByClassName" o = DOMDocumentGetElementsByClassNameMethodInfo + ResolveDOMHTMLDocumentMethod "getElementsByClassNameAsHtmlCollection" o = DOMDocumentGetElementsByClassNameAsHtmlCollectionMethodInfo ResolveDOMHTMLDocumentMethod "getElementsByName" o = DOMDocumentGetElementsByNameMethodInfo ResolveDOMHTMLDocumentMethod "getElementsByTagName" o = DOMDocumentGetElementsByTagNameMethodInfo + ResolveDOMHTMLDocumentMethod "getElementsByTagNameAsHtmlCollection" o = DOMDocumentGetElementsByTagNameAsHtmlCollectionMethodInfo ResolveDOMHTMLDocumentMethod "getElementsByTagNameNs" o = DOMDocumentGetElementsByTagNameNsMethodInfo + ResolveDOMHTMLDocumentMethod "getElementsByTagNameNsAsHtmlCollection" o = DOMDocumentGetElementsByTagNameNsAsHtmlCollectionMethodInfo ResolveDOMHTMLDocumentMethod "getEmbeds" o = DOMHTMLDocumentGetEmbedsMethodInfo ResolveDOMHTMLDocumentMethod "getFgColor" o = DOMHTMLDocumentGetFgColorMethodInfo ResolveDOMHTMLDocumentMethod "getFirstChild" o = DOMNodeGetFirstChildMethodInfo @@ -426,282 +442,347 @@ -- 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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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", DOMDocumentActiveElementPropertyInfo), '("alinkColor", DOMHTMLDocumentAlinkColorPropertyInfo), '("anchors", DOMDocumentAnchorsPropertyInfo), '("applets", DOMDocumentAppletsPropertyInfo), '("baseUri", DOMNodeBaseUriPropertyInfo), '("bgColor", DOMHTMLDocumentBgColorPropertyInfo), '("body", DOMDocumentBodyPropertyInfo), '("characterSet", DOMDocumentCharacterSetPropertyInfo), '("charset", DOMDocumentCharsetPropertyInfo), '("childElementCount", DOMDocumentChildElementCountPropertyInfo), '("childNodes", DOMNodeChildNodesPropertyInfo), '("children", DOMDocumentChildrenPropertyInfo), '("compatMode", DOMHTMLDocumentCompatModePropertyInfo), '("contentType", DOMDocumentContentTypePropertyInfo), '("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), '("firstElementChild", DOMDocumentFirstElementChildPropertyInfo), '("forms", DOMDocumentFormsPropertyInfo), '("head", DOMDocumentHeadPropertyInfo), '("height", DOMHTMLDocumentHeightPropertyInfo), '("hidden", DOMDocumentHiddenPropertyInfo), '("images", DOMDocumentImagesPropertyInfo), '("implementation", DOMDocumentImplementationPropertyInfo), '("inputEncoding", DOMDocumentInputEncodingPropertyInfo), '("lastChild", DOMNodeLastChildPropertyInfo), '("lastElementChild", DOMDocumentLastElementChildPropertyInfo), '("lastModified", DOMDocumentLastModifiedPropertyInfo), '("linkColor", DOMHTMLDocumentLinkColorPropertyInfo), '("links", DOMDocumentLinksPropertyInfo), '("localName", DOMNodeLocalNamePropertyInfo), '("namespaceUri", DOMNodeNamespaceUriPropertyInfo), '("nextSibling", DOMNodeNextSiblingPropertyInfo), '("nodeName", DOMNodeNodeNamePropertyInfo), '("nodeType", DOMNodeNodeTypePropertyInfo), '("nodeValue", DOMNodeNodeValuePropertyInfo), '("origin", DOMDocumentOriginPropertyInfo), '("ownerDocument", DOMNodeOwnerDocumentPropertyInfo), '("parentElement", DOMNodeParentElementPropertyInfo), '("parentNode", DOMNodeParentNodePropertyInfo), '("plugins", DOMHTMLDocumentPluginsPropertyInfo), '("pointerLockElement", DOMDocumentPointerLockElementPropertyInfo), '("preferredStylesheetSet", DOMDocumentPreferredStylesheetSetPropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previousSibling", DOMNodePreviousSiblingPropertyInfo), '("readyState", DOMDocumentReadyStatePropertyInfo), '("referrer", DOMDocumentReferrerPropertyInfo), '("scripts", DOMHTMLDocumentScriptsPropertyInfo), '("scrollingElement", DOMDocumentScrollingElementPropertyInfo), '("selectedStylesheetSet", DOMDocumentSelectedStylesheetSetPropertyInfo), '("styleSheets", DOMDocumentStyleSheetsPropertyInfo), '("textContent", DOMNodeTextContentPropertyInfo), '("title", DOMDocumentTitlePropertyInfo), '("url", DOMDocumentUrlPropertyInfo), '("visibilityState", DOMDocumentVisibilityStatePropertyInfo), '("vlinkColor", DOMHTMLDocumentVlinkColorPropertyInfo), '("webkitCurrentFullScreenElement", DOMDocumentWebkitCurrentFullScreenElementPropertyInfo), '("webkitFullScreenKeyboardInputAllowed", DOMDocumentWebkitFullScreenKeyboardInputAllowedPropertyInfo), '("webkitFullscreenElement", DOMDocumentWebkitFullscreenElementPropertyInfo), '("webkitFullscreenEnabled", DOMDocumentWebkitFullscreenEnabledPropertyInfo), '("webkitIsFullScreen", DOMDocumentWebkitIsFullScreenPropertyInfo), '("width", DOMHTMLDocumentWidthPropertyInfo), '("xmlEncoding", DOMDocumentXmlEncodingPropertyInfo), '("xmlStandalone", DOMDocumentXmlStandalonePropertyInfo), '("xmlVersion", DOMDocumentXmlVersionPropertyInfo)] :: [(Symbol, *)]) +type DOMHTMLDocumentAttributeList = ('[ '("activeElement", DOMDocumentActiveElementPropertyInfo), '("alinkColor", DOMHTMLDocumentAlinkColorPropertyInfo), '("anchors", DOMDocumentAnchorsPropertyInfo), '("applets", DOMDocumentAppletsPropertyInfo), '("baseUri", DOMNodeBaseUriPropertyInfo), '("bgColor", DOMHTMLDocumentBgColorPropertyInfo), '("body", DOMDocumentBodyPropertyInfo), '("characterSet", DOMDocumentCharacterSetPropertyInfo), '("charset", DOMDocumentCharsetPropertyInfo), '("childElementCount", DOMDocumentChildElementCountPropertyInfo), '("childNodes", DOMNodeChildNodesPropertyInfo), '("children", DOMDocumentChildrenPropertyInfo), '("compatMode", DOMHTMLDocumentCompatModePropertyInfo), '("contentType", DOMDocumentContentTypePropertyInfo), '("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), '("firstElementChild", DOMDocumentFirstElementChildPropertyInfo), '("forms", DOMDocumentFormsPropertyInfo), '("head", DOMDocumentHeadPropertyInfo), '("height", DOMHTMLDocumentHeightPropertyInfo), '("hidden", DOMDocumentHiddenPropertyInfo), '("images", DOMDocumentImagesPropertyInfo), '("implementation", DOMDocumentImplementationPropertyInfo), '("inputEncoding", DOMDocumentInputEncodingPropertyInfo), '("lastChild", DOMNodeLastChildPropertyInfo), '("lastElementChild", DOMDocumentLastElementChildPropertyInfo), '("lastModified", DOMDocumentLastModifiedPropertyInfo), '("linkColor", DOMHTMLDocumentLinkColorPropertyInfo), '("links", DOMDocumentLinksPropertyInfo), '("localName", DOMNodeLocalNamePropertyInfo), '("namespaceUri", DOMNodeNamespaceUriPropertyInfo), '("nextSibling", DOMNodeNextSiblingPropertyInfo), '("nodeName", DOMNodeNodeNamePropertyInfo), '("nodeType", DOMNodeNodeTypePropertyInfo), '("nodeValue", DOMNodeNodeValuePropertyInfo), '("origin", DOMDocumentOriginPropertyInfo), '("ownerDocument", DOMNodeOwnerDocumentPropertyInfo), '("parentElement", DOMNodeParentElementPropertyInfo), '("parentNode", DOMNodeParentNodePropertyInfo), '("plugins", DOMHTMLDocumentPluginsPropertyInfo), '("pointerLockElement", DOMDocumentPointerLockElementPropertyInfo), '("preferredStylesheetSet", DOMDocumentPreferredStylesheetSetPropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previousSibling", DOMNodePreviousSiblingPropertyInfo), '("readyState", DOMDocumentReadyStatePropertyInfo), '("referrer", DOMDocumentReferrerPropertyInfo), '("scripts", DOMHTMLDocumentScriptsPropertyInfo), '("scrollingElement", DOMDocumentScrollingElementPropertyInfo), '("selectedStylesheetSet", DOMDocumentSelectedStylesheetSetPropertyInfo), '("styleSheets", DOMDocumentStyleSheetsPropertyInfo), '("textContent", DOMNodeTextContentPropertyInfo), '("title", DOMDocumentTitlePropertyInfo), '("treeRoot", DOMNodeTreeRootPropertyInfo), '("url", DOMDocumentUrlPropertyInfo), '("visibilityState", DOMDocumentVisibilityStatePropertyInfo), '("vlinkColor", DOMHTMLDocumentVlinkColorPropertyInfo), '("webkitCurrentFullScreenElement", DOMDocumentWebkitCurrentFullScreenElementPropertyInfo), '("webkitFullScreenKeyboardInputAllowed", DOMDocumentWebkitFullScreenKeyboardInputAllowedPropertyInfo), '("webkitFullscreenElement", DOMDocumentWebkitFullscreenElementPropertyInfo), '("webkitFullscreenEnabled", DOMDocumentWebkitFullscreenEnabledPropertyInfo), '("webkitIsFullScreen", DOMDocumentWebkitIsFullScreenPropertyInfo), '("width", DOMHTMLDocumentWidthPropertyInfo), '("xmlEncoding", DOMDocumentXmlEncodingPropertyInfo), '("xmlStandalone", DOMDocumentXmlStandalonePropertyInfo), '("xmlVersion", DOMDocumentXmlVersionPropertyInfo)] :: [(Symbol, *)]) +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, *)]) @@ -709,7 +790,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -736,7 +817,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -763,7 +844,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -790,7 +871,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -820,7 +901,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -850,7 +931,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -880,7 +961,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -910,7 +991,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -940,7 +1021,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit2WebExtension" "DOMHTMLCollection" +-- returnType : Just (TInterface "WebKit2WebExtension" "DOMHTMLCollection") -- throws : False -- Skip return : False @@ -969,7 +1050,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -999,19 +1080,19 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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' @@ -1019,14 +1100,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 "WebKit2WebExtension" "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 @@ -1056,7 +1137,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit2WebExtension" "DOMHTMLCollection" +-- returnType : Just (TInterface "WebKit2WebExtension" "DOMHTMLCollection") -- throws : False -- Skip return : False @@ -1085,7 +1166,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit2WebExtension" "DOMHTMLCollection" +-- returnType : Just (TInterface "WebKit2WebExtension" "DOMHTMLCollection") -- throws : False -- Skip return : False @@ -1114,7 +1195,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -1144,19 +1225,19 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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' @@ -1164,14 +1245,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::release_events -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -1198,7 +1279,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -1229,7 +1310,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -1260,7 +1341,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -1291,7 +1372,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -1322,7 +1403,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -1353,7 +1434,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -1384,7 +1465,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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/WebKit2WebExtension/Objects/DOMHTMLDocument.hs-boot b/GI/WebKit2WebExtension/Objects/DOMHTMLDocument.hs-boot --- a/GI/WebKit2WebExtension/Objects/DOMHTMLDocument.hs-boot +++ b/GI/WebKit2WebExtension/Objects/DOMHTMLDocument.hs-boot @@ -1,8 +1,8 @@ module GI.WebKit2WebExtension.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/WebKit2WebExtension/Objects/DOMHTMLElement.hs b/GI/WebKit2WebExtension/Objects/DOMHTMLElement.hs --- a/GI/WebKit2WebExtension/Objects/DOMHTMLElement.hs +++ b/GI/WebKit2WebExtension/Objects/DOMHTMLElement.hs @@ -138,13 +138,16 @@ -- ** AccessKey DOMHTMLElementAccessKeyPropertyInfo , constructDOMHTMLElementAccessKey , + dOMHTMLElementAccessKey , getDOMHTMLElementAccessKey , setDOMHTMLElementAccessKey , -- ** ContentEditable DOMHTMLElementContentEditablePropertyInfo, + clearDOMHTMLElementContentEditable , constructDOMHTMLElementContentEditable , + dOMHTMLElementContentEditable , getDOMHTMLElementContentEditable , setDOMHTMLElementContentEditable , @@ -152,6 +155,7 @@ -- ** Dir DOMHTMLElementDirPropertyInfo , constructDOMHTMLElementDir , + dOMHTMLElementDir , getDOMHTMLElementDir , setDOMHTMLElementDir , @@ -159,6 +163,7 @@ -- ** Draggable DOMHTMLElementDraggablePropertyInfo , constructDOMHTMLElementDraggable , + dOMHTMLElementDraggable , getDOMHTMLElementDraggable , setDOMHTMLElementDraggable , @@ -166,32 +171,39 @@ -- ** Hidden DOMHTMLElementHiddenPropertyInfo , constructDOMHTMLElementHidden , + dOMHTMLElementHidden , getDOMHTMLElementHidden , setDOMHTMLElementHidden , -- ** InnerText DOMHTMLElementInnerTextPropertyInfo , + clearDOMHTMLElementInnerText , constructDOMHTMLElementInnerText , + dOMHTMLElementInnerText , getDOMHTMLElementInnerText , setDOMHTMLElementInnerText , -- ** IsContentEditable DOMHTMLElementIsContentEditablePropertyInfo, + dOMHTMLElementIsContentEditable , getDOMHTMLElementIsContentEditable , -- ** Lang DOMHTMLElementLangPropertyInfo , constructDOMHTMLElementLang , + dOMHTMLElementLang , getDOMHTMLElementLang , setDOMHTMLElementLang , -- ** OuterText DOMHTMLElementOuterTextPropertyInfo , + clearDOMHTMLElementOuterText , constructDOMHTMLElementOuterText , + dOMHTMLElementOuterText , getDOMHTMLElementOuterText , setDOMHTMLElementOuterText , @@ -199,6 +211,7 @@ -- ** Spellcheck DOMHTMLElementSpellcheckPropertyInfo , constructDOMHTMLElementSpellcheck , + dOMHTMLElementSpellcheck , getDOMHTMLElementSpellcheck , setDOMHTMLElementSpellcheck , @@ -206,6 +219,7 @@ -- ** TabIndex DOMHTMLElementTabIndexPropertyInfo , constructDOMHTMLElementTabIndex , + dOMHTMLElementTabIndex , getDOMHTMLElementTabIndex , setDOMHTMLElementTabIndex , @@ -213,6 +227,7 @@ -- ** Title DOMHTMLElementTitlePropertyInfo , constructDOMHTMLElementTitle , + dOMHTMLElementTitle , getDOMHTMLElementTitle , setDOMHTMLElementTitle , @@ -220,13 +235,16 @@ -- ** Translate DOMHTMLElementTranslatePropertyInfo , constructDOMHTMLElementTranslate , + dOMHTMLElementTranslate , getDOMHTMLElementTranslate , setDOMHTMLElementTranslate , -- ** Webkitdropzone DOMHTMLElementWebkitdropzonePropertyInfo, + clearDOMHTMLElementWebkitdropzone , constructDOMHTMLElementWebkitdropzone , + dOMHTMLElementWebkitdropzone , getDOMHTMLElementWebkitdropzone , setDOMHTMLElementWebkitdropzone , @@ -235,9 +253,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 @@ -336,8 +354,11 @@ ResolveDOMHTMLElementMethod "getData" o = GObject.ObjectGetDataMethodInfo ResolveDOMHTMLElementMethod "getDir" o = DOMHTMLElementGetDirMethodInfo ResolveDOMHTMLElementMethod "getElementsByClassName" o = DOMElementGetElementsByClassNameMethodInfo + ResolveDOMHTMLElementMethod "getElementsByClassNameAsHtmlCollection" o = DOMElementGetElementsByClassNameAsHtmlCollectionMethodInfo ResolveDOMHTMLElementMethod "getElementsByTagName" o = DOMElementGetElementsByTagNameMethodInfo + ResolveDOMHTMLElementMethod "getElementsByTagNameAsHtmlCollection" o = DOMElementGetElementsByTagNameAsHtmlCollectionMethodInfo ResolveDOMHTMLElementMethod "getElementsByTagNameNs" o = DOMElementGetElementsByTagNameNsMethodInfo + ResolveDOMHTMLElementMethod "getElementsByTagNameNsAsHtmlCollection" o = DOMElementGetElementsByTagNameNsAsHtmlCollectionMethodInfo ResolveDOMHTMLElementMethod "getFirstChild" o = DOMNodeGetFirstChildMethodInfo ResolveDOMHTMLElementMethod "getFirstElementChild" o = DOMElementGetFirstElementChildMethodInfo ResolveDOMHTMLElementMethod "getId" o = DOMElementGetIdMethodInfo @@ -410,78 +431,88 @@ -- 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 "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: (Nothing,Nothing) getDOMHTMLElementDraggable :: (MonadIO m, DOMHTMLElementK o) => o -> m Bool getDOMHTMLElementDraggable obj = liftIO $ getObjectPropertyBool obj "draggable" @@ -502,10 +533,12 @@ attrGet _ = getDOMHTMLElementDraggable attrSet _ = setDOMHTMLElementDraggable attrConstruct _ = constructDOMHTMLElementDraggable + attrClear _ = undefined -- VVV Prop "hidden" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) getDOMHTMLElementHidden :: (MonadIO m, DOMHTMLElementK o) => o -> m Bool getDOMHTMLElementHidden obj = liftIO $ getObjectPropertyBool obj "hidden" @@ -526,34 +559,41 @@ attrGet _ = getDOMHTMLElementHidden attrSet _ = setDOMHTMLElementHidden attrConstruct _ = constructDOMHTMLElementHidden + attrClear _ = undefined -- 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" @@ -568,58 +608,67 @@ 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-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: (Nothing,Nothing) getDOMHTMLElementSpellcheck :: (MonadIO m, DOMHTMLElementK o) => o -> m Bool getDOMHTMLElementSpellcheck obj = liftIO $ getObjectPropertyBool obj "spellcheck" @@ -640,58 +689,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: (Nothing,Nothing) getDOMHTMLElementTranslate :: (MonadIO m, DOMHTMLElementK o) => o -> m Bool getDOMHTMLElementTranslate obj = liftIO $ getObjectPropertyBool obj "translate" @@ -712,34 +767,82 @@ attrGet _ = getDOMHTMLElementTranslate attrSet _ = setDOMHTMLElementTranslate attrConstruct _ = constructDOMHTMLElementTranslate + attrClear _ = undefined -- VVV Prop "webkitdropzone" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) -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) +clearDOMHTMLElementWebkitdropzone :: (MonadIO m, DOMHTMLElementK o) => o -> m () +clearDOMHTMLElementWebkitdropzone obj = liftIO $ setObjectPropertyString obj "webkitdropzone" (Nothing :: Maybe T.Text) + data DOMHTMLElementWebkitdropzonePropertyInfo instance AttrInfo DOMHTMLElementWebkitdropzonePropertyInfo where - type AttrAllowedOps DOMHTMLElementWebkitdropzonePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrAllowedOps DOMHTMLElementWebkitdropzonePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] 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 _ = clearDOMHTMLElementWebkitdropzone type instance AttributeList DOMHTMLElement = DOMHTMLElementAttributeList -type DOMHTMLElementAttributeList = ('[ '("accessKey", DOMHTMLElementAccessKeyPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("baseUri", DOMNodeBaseUriPropertyInfo), '("childElementCount", DOMElementChildElementCountPropertyInfo), '("childNodes", DOMNodeChildNodesPropertyInfo), '("children", DOMElementChildrenPropertyInfo), '("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", DOMElementInnerHtmlPropertyInfo), '("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", DOMElementOuterHtmlPropertyInfo), '("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, *)]) +type DOMHTMLElementAttributeList = ('[ '("accessKey", DOMHTMLElementAccessKeyPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("baseUri", DOMNodeBaseUriPropertyInfo), '("childElementCount", DOMElementChildElementCountPropertyInfo), '("childNodes", DOMNodeChildNodesPropertyInfo), '("children", DOMElementChildrenPropertyInfo), '("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", DOMElementInnerHtmlPropertyInfo), '("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", DOMElementOuterHtmlPropertyInfo), '("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), '("treeRoot", DOMNodeTreeRootPropertyInfo), '("webkitRegionOverset", DOMElementWebkitRegionOversetPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo)] :: [(Symbol, *)]) +dOMHTMLElementAccessKey :: AttrLabelProxy "accessKey" +dOMHTMLElementAccessKey = AttrLabelProxy + +dOMHTMLElementContentEditable :: AttrLabelProxy "contentEditable" +dOMHTMLElementContentEditable = AttrLabelProxy + +dOMHTMLElementDir :: AttrLabelProxy "dir" +dOMHTMLElementDir = AttrLabelProxy + +dOMHTMLElementDraggable :: AttrLabelProxy "draggable" +dOMHTMLElementDraggable = AttrLabelProxy + +dOMHTMLElementHidden :: AttrLabelProxy "hidden" +dOMHTMLElementHidden = AttrLabelProxy + +dOMHTMLElementInnerText :: AttrLabelProxy "innerText" +dOMHTMLElementInnerText = AttrLabelProxy + +dOMHTMLElementIsContentEditable :: AttrLabelProxy "isContentEditable" +dOMHTMLElementIsContentEditable = AttrLabelProxy + +dOMHTMLElementLang :: AttrLabelProxy "lang" +dOMHTMLElementLang = 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, *)]) @@ -747,7 +850,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -774,7 +877,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -804,7 +907,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit2WebExtension" "DOMHTMLCollection" +-- returnType : Just (TInterface "WebKit2WebExtension" "DOMHTMLCollection") -- throws : False -- Skip return : False @@ -833,7 +936,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -863,7 +966,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -893,7 +996,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -923,7 +1026,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -953,7 +1056,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -981,7 +1084,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -1011,7 +1114,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -1041,7 +1144,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -1071,19 +1174,19 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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' @@ -1091,14 +1194,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 "WebKit2WebExtension" "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 @@ -1128,7 +1231,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -1159,7 +1262,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -1195,7 +1298,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -1226,7 +1329,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "contents", 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 @@ -1262,7 +1365,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -1298,7 +1401,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -1329,7 +1432,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "contents", 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 @@ -1365,7 +1468,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -1399,22 +1502,22 @@ -- method DOMHTMLElement::set_tab_index -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 @@ -1423,14 +1526,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 "WebKit2WebExtension" "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/WebKit2WebExtension/Objects/DOMHTMLElement.hs-boot b/GI/WebKit2WebExtension/Objects/DOMHTMLElement.hs-boot --- a/GI/WebKit2WebExtension/Objects/DOMHTMLElement.hs-boot +++ b/GI/WebKit2WebExtension/Objects/DOMHTMLElement.hs-boot @@ -1,8 +1,8 @@ module GI.WebKit2WebExtension.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/WebKit2WebExtension/Objects/DOMHTMLEmbedElement.hs b/GI/WebKit2WebExtension/Objects/DOMHTMLEmbedElement.hs --- a/GI/WebKit2WebExtension/Objects/DOMHTMLEmbedElement.hs +++ b/GI/WebKit2WebExtension/Objects/DOMHTMLEmbedElement.hs @@ -83,6 +83,7 @@ -- ** Align DOMHTMLEmbedElementAlignPropertyInfo , constructDOMHTMLEmbedElementAlign , + dOMHTMLEmbedElementAlign , getDOMHTMLEmbedElementAlign , setDOMHTMLEmbedElementAlign , @@ -90,6 +91,7 @@ -- ** Height DOMHTMLEmbedElementHeightPropertyInfo , constructDOMHTMLEmbedElementHeight , + dOMHTMLEmbedElementHeight , getDOMHTMLEmbedElementHeight , setDOMHTMLEmbedElementHeight , @@ -97,6 +99,7 @@ -- ** Name DOMHTMLEmbedElementNamePropertyInfo , constructDOMHTMLEmbedElementName , + dOMHTMLEmbedElementName , getDOMHTMLEmbedElementName , setDOMHTMLEmbedElementName , @@ -104,13 +107,16 @@ -- ** Src DOMHTMLEmbedElementSrcPropertyInfo , constructDOMHTMLEmbedElementSrc , + dOMHTMLEmbedElementSrc , getDOMHTMLEmbedElementSrc , setDOMHTMLEmbedElementSrc , -- ** Type DOMHTMLEmbedElementTypePropertyInfo , + clearDOMHTMLEmbedElementType , constructDOMHTMLEmbedElementType , + dOMHTMLEmbedElementType , getDOMHTMLEmbedElementType , setDOMHTMLEmbedElementType , @@ -118,6 +124,7 @@ -- ** Width DOMHTMLEmbedElementWidthPropertyInfo , constructDOMHTMLEmbedElementWidth , + dOMHTMLEmbedElementWidth , getDOMHTMLEmbedElementWidth , setDOMHTMLEmbedElementWidth , @@ -126,9 +133,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 @@ -228,8 +235,11 @@ ResolveDOMHTMLEmbedElementMethod "getData" o = GObject.ObjectGetDataMethodInfo ResolveDOMHTMLEmbedElementMethod "getDir" o = DOMHTMLElementGetDirMethodInfo ResolveDOMHTMLEmbedElementMethod "getElementsByClassName" o = DOMElementGetElementsByClassNameMethodInfo + ResolveDOMHTMLEmbedElementMethod "getElementsByClassNameAsHtmlCollection" o = DOMElementGetElementsByClassNameAsHtmlCollectionMethodInfo ResolveDOMHTMLEmbedElementMethod "getElementsByTagName" o = DOMElementGetElementsByTagNameMethodInfo + ResolveDOMHTMLEmbedElementMethod "getElementsByTagNameAsHtmlCollection" o = DOMElementGetElementsByTagNameAsHtmlCollectionMethodInfo ResolveDOMHTMLEmbedElementMethod "getElementsByTagNameNs" o = DOMElementGetElementsByTagNameNsMethodInfo + ResolveDOMHTMLEmbedElementMethod "getElementsByTagNameNsAsHtmlCollection" o = DOMElementGetElementsByTagNameNsAsHtmlCollectionMethodInfo ResolveDOMHTMLEmbedElementMethod "getFirstChild" o = DOMNodeGetFirstChildMethodInfo ResolveDOMHTMLEmbedElementMethod "getFirstElementChild" o = DOMElementGetFirstElementChildMethodInfo ResolveDOMHTMLEmbedElementMethod "getHeight" o = DOMHTMLEmbedElementGetHeightMethodInfo @@ -313,150 +323,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", DOMElementChildrenPropertyInfo), '("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", DOMElementInnerHtmlPropertyInfo), '("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", DOMElementOuterHtmlPropertyInfo), '("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, *)]) +type DOMHTMLEmbedElementAttributeList = ('[ '("accessKey", DOMHTMLElementAccessKeyPropertyInfo), '("align", DOMHTMLEmbedElementAlignPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("baseUri", DOMNodeBaseUriPropertyInfo), '("childElementCount", DOMElementChildElementCountPropertyInfo), '("childNodes", DOMNodeChildNodesPropertyInfo), '("children", DOMElementChildrenPropertyInfo), '("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", DOMElementInnerHtmlPropertyInfo), '("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", DOMElementOuterHtmlPropertyInfo), '("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), '("treeRoot", DOMNodeTreeRootPropertyInfo), '("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, *)]) @@ -464,7 +507,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -494,19 +537,19 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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' @@ -514,14 +557,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 "WebKit2WebExtension" "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 @@ -551,7 +594,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -581,7 +624,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -611,19 +654,19 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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' @@ -631,14 +674,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 "WebKit2WebExtension" "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 @@ -667,22 +710,22 @@ -- method DOMHTMLEmbedElement::set_height -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 @@ -691,14 +734,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 "WebKit2WebExtension" "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 @@ -729,7 +772,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -760,7 +803,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -789,22 +832,22 @@ -- method DOMHTMLEmbedElement::set_width -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 @@ -813,7 +856,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/WebKit2WebExtension/Objects/DOMHTMLEmbedElement.hs-boot b/GI/WebKit2WebExtension/Objects/DOMHTMLEmbedElement.hs-boot --- a/GI/WebKit2WebExtension/Objects/DOMHTMLEmbedElement.hs-boot +++ b/GI/WebKit2WebExtension/Objects/DOMHTMLEmbedElement.hs-boot @@ -1,8 +1,8 @@ module GI.WebKit2WebExtension.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/WebKit2WebExtension/Objects/DOMHTMLFieldSetElement.hs b/GI/WebKit2WebExtension/Objects/DOMHTMLFieldSetElement.hs --- a/GI/WebKit2WebExtension/Objects/DOMHTMLFieldSetElement.hs +++ b/GI/WebKit2WebExtension/Objects/DOMHTMLFieldSetElement.hs @@ -28,39 +28,47 @@ -- ** Disabled DOMHTMLFieldSetElementDisabledPropertyInfo, constructDOMHTMLFieldSetElementDisabled , + dOMHTMLFieldSetElementDisabled , getDOMHTMLFieldSetElementDisabled , setDOMHTMLFieldSetElementDisabled , -- ** Elements DOMHTMLFieldSetElementElementsPropertyInfo, + dOMHTMLFieldSetElementElements , getDOMHTMLFieldSetElementElements , -- ** Form DOMHTMLFieldSetElementFormPropertyInfo , + dOMHTMLFieldSetElementForm , getDOMHTMLFieldSetElementForm , -- ** Name DOMHTMLFieldSetElementNamePropertyInfo , + clearDOMHTMLFieldSetElementName , constructDOMHTMLFieldSetElementName , + dOMHTMLFieldSetElementName , getDOMHTMLFieldSetElementName , setDOMHTMLFieldSetElementName , -- ** Type DOMHTMLFieldSetElementTypePropertyInfo , + dOMHTMLFieldSetElementType , getDOMHTMLFieldSetElementType , -- ** ValidationMessage DOMHTMLFieldSetElementValidationMessagePropertyInfo, + dOMHTMLFieldSetElementValidationMessage , getDOMHTMLFieldSetElementValidationMessage, -- ** WillValidate DOMHTMLFieldSetElementWillValidatePropertyInfo, + dOMHTMLFieldSetElementWillValidate , getDOMHTMLFieldSetElementWillValidate , @@ -68,9 +76,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 @@ -169,8 +177,11 @@ ResolveDOMHTMLFieldSetElementMethod "getData" o = GObject.ObjectGetDataMethodInfo ResolveDOMHTMLFieldSetElementMethod "getDir" o = DOMHTMLElementGetDirMethodInfo ResolveDOMHTMLFieldSetElementMethod "getElementsByClassName" o = DOMElementGetElementsByClassNameMethodInfo + ResolveDOMHTMLFieldSetElementMethod "getElementsByClassNameAsHtmlCollection" o = DOMElementGetElementsByClassNameAsHtmlCollectionMethodInfo ResolveDOMHTMLFieldSetElementMethod "getElementsByTagName" o = DOMElementGetElementsByTagNameMethodInfo + ResolveDOMHTMLFieldSetElementMethod "getElementsByTagNameAsHtmlCollection" o = DOMElementGetElementsByTagNameAsHtmlCollectionMethodInfo ResolveDOMHTMLFieldSetElementMethod "getElementsByTagNameNs" o = DOMElementGetElementsByTagNameNsMethodInfo + ResolveDOMHTMLFieldSetElementMethod "getElementsByTagNameNsAsHtmlCollection" o = DOMElementGetElementsByTagNameNsAsHtmlCollectionMethodInfo ResolveDOMHTMLFieldSetElementMethod "getFirstChild" o = DOMNodeGetFirstChildMethodInfo ResolveDOMHTMLFieldSetElementMethod "getFirstElementChild" o = DOMElementGetFirstElementChildMethodInfo ResolveDOMHTMLFieldSetElementMethod "getForm" o = DOMHTMLFieldSetElementGetFormMethodInfo @@ -244,6 +255,7 @@ -- VVV Prop "disabled" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) getDOMHTMLFieldSetElementDisabled :: (MonadIO m, DOMHTMLFieldSetElementK o) => o -> m Bool getDOMHTMLFieldSetElementDisabled obj = liftIO $ getObjectPropertyBool obj "disabled" @@ -264,35 +276,39 @@ attrGet _ = getDOMHTMLFieldSetElementDisabled attrSet _ = setDOMHTMLFieldSetElementDisabled attrConstruct _ = constructDOMHTMLFieldSetElementDisabled + attrClear _ = undefined -- VVV Prop "elements" -- Type: TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 @@ -300,70 +316,81 @@ attrGet _ = getDOMHTMLFieldSetElementForm attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "name" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) -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) +clearDOMHTMLFieldSetElementName :: (MonadIO m, DOMHTMLFieldSetElementK o) => o -> m () +clearDOMHTMLFieldSetElementName obj = liftIO $ setObjectPropertyString obj "name" (Nothing :: Maybe T.Text) + data DOMHTMLFieldSetElementNamePropertyInfo instance AttrInfo DOMHTMLFieldSetElementNamePropertyInfo where - type AttrAllowedOps DOMHTMLFieldSetElementNamePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrAllowedOps DOMHTMLFieldSetElementNamePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] 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 _ = clearDOMHTMLFieldSetElementName -- 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 "will-validate" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable] + -- Nullable: (Nothing,Nothing) getDOMHTMLFieldSetElementWillValidate :: (MonadIO m, DOMHTMLFieldSetElementK o) => o -> m Bool getDOMHTMLFieldSetElementWillValidate obj = liftIO $ getObjectPropertyBool obj "will-validate" @@ -378,10 +405,32 @@ 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", DOMElementChildrenPropertyInfo), '("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", DOMElementInnerHtmlPropertyInfo), '("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", DOMElementOuterHtmlPropertyInfo), '("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), '("webkitRegionOverset", DOMElementWebkitRegionOversetPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo), '("willValidate", DOMHTMLFieldSetElementWillValidatePropertyInfo)] :: [(Symbol, *)]) +type DOMHTMLFieldSetElementAttributeList = ('[ '("accessKey", DOMHTMLElementAccessKeyPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("baseUri", DOMNodeBaseUriPropertyInfo), '("childElementCount", DOMElementChildElementCountPropertyInfo), '("childNodes", DOMNodeChildNodesPropertyInfo), '("children", DOMElementChildrenPropertyInfo), '("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", DOMElementInnerHtmlPropertyInfo), '("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", DOMElementOuterHtmlPropertyInfo), '("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), '("treeRoot", DOMNodeTreeRootPropertyInfo), '("type", DOMHTMLFieldSetElementTypePropertyInfo), '("validationMessage", DOMHTMLFieldSetElementValidationMessagePropertyInfo), '("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 + +dOMHTMLFieldSetElementWillValidate :: AttrLabelProxy "willValidate" +dOMHTMLFieldSetElementWillValidate = AttrLabelProxy + type instance SignalList DOMHTMLFieldSetElement = DOMHTMLFieldSetElementSignalList type DOMHTMLFieldSetElementSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) @@ -389,7 +438,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLFieldSetElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit2WebExtension" "DOMHTMLFormElement" +-- returnType : Just (TInterface "WebKit2WebExtension" "DOMHTMLFormElement") -- throws : False -- Skip return : False diff --git a/GI/WebKit2WebExtension/Objects/DOMHTMLFieldSetElement.hs-boot b/GI/WebKit2WebExtension/Objects/DOMHTMLFieldSetElement.hs-boot --- a/GI/WebKit2WebExtension/Objects/DOMHTMLFieldSetElement.hs-boot +++ b/GI/WebKit2WebExtension/Objects/DOMHTMLFieldSetElement.hs-boot @@ -1,8 +1,8 @@ module GI.WebKit2WebExtension.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/WebKit2WebExtension/Objects/DOMHTMLFontElement.hs b/GI/WebKit2WebExtension/Objects/DOMHTMLFontElement.hs --- a/GI/WebKit2WebExtension/Objects/DOMHTMLFontElement.hs +++ b/GI/WebKit2WebExtension/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 @@ -177,8 +180,11 @@ ResolveDOMHTMLFontElementMethod "getData" o = GObject.ObjectGetDataMethodInfo ResolveDOMHTMLFontElementMethod "getDir" o = DOMHTMLElementGetDirMethodInfo ResolveDOMHTMLFontElementMethod "getElementsByClassName" o = DOMElementGetElementsByClassNameMethodInfo + ResolveDOMHTMLFontElementMethod "getElementsByClassNameAsHtmlCollection" o = DOMElementGetElementsByClassNameAsHtmlCollectionMethodInfo ResolveDOMHTMLFontElementMethod "getElementsByTagName" o = DOMElementGetElementsByTagNameMethodInfo + ResolveDOMHTMLFontElementMethod "getElementsByTagNameAsHtmlCollection" o = DOMElementGetElementsByTagNameAsHtmlCollectionMethodInfo ResolveDOMHTMLFontElementMethod "getElementsByTagNameNs" o = DOMElementGetElementsByTagNameNsMethodInfo + ResolveDOMHTMLFontElementMethod "getElementsByTagNameNsAsHtmlCollection" o = DOMElementGetElementsByTagNameNsAsHtmlCollectionMethodInfo ResolveDOMHTMLFontElementMethod "getFace" o = DOMHTMLFontElementGetFaceMethodInfo ResolveDOMHTMLFontElementMethod "getFirstChild" o = DOMNodeGetFirstChildMethodInfo ResolveDOMHTMLFontElementMethod "getFirstElementChild" o = DOMElementGetFirstElementChildMethodInfo @@ -256,78 +262,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", DOMElementChildrenPropertyInfo), '("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", DOMElementInnerHtmlPropertyInfo), '("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", DOMElementOuterHtmlPropertyInfo), '("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, *)]) +type DOMHTMLFontElementAttributeList = ('[ '("accessKey", DOMHTMLElementAccessKeyPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("baseUri", DOMNodeBaseUriPropertyInfo), '("childElementCount", DOMElementChildElementCountPropertyInfo), '("childNodes", DOMNodeChildNodesPropertyInfo), '("children", DOMElementChildrenPropertyInfo), '("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", DOMElementInnerHtmlPropertyInfo), '("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", DOMElementOuterHtmlPropertyInfo), '("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), '("treeRoot", DOMNodeTreeRootPropertyInfo), '("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, *)]) @@ -335,7 +356,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -365,7 +386,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -395,7 +416,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -425,7 +446,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -456,7 +477,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -487,7 +508,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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/WebKit2WebExtension/Objects/DOMHTMLFontElement.hs-boot b/GI/WebKit2WebExtension/Objects/DOMHTMLFontElement.hs-boot --- a/GI/WebKit2WebExtension/Objects/DOMHTMLFontElement.hs-boot +++ b/GI/WebKit2WebExtension/Objects/DOMHTMLFontElement.hs-boot @@ -1,8 +1,8 @@ module GI.WebKit2WebExtension.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/WebKit2WebExtension/Objects/DOMHTMLFormElement.hs b/GI/WebKit2WebExtension/Objects/DOMHTMLFormElement.hs --- a/GI/WebKit2WebExtension/Objects/DOMHTMLFormElement.hs +++ b/GI/WebKit2WebExtension/Objects/DOMHTMLFormElement.hs @@ -113,6 +113,7 @@ -- ** AcceptCharset DOMHTMLFormElementAcceptCharsetPropertyInfo, constructDOMHTMLFormElementAcceptCharset, + dOMHTMLFormElementAcceptCharset , getDOMHTMLFormElementAcceptCharset , setDOMHTMLFormElementAcceptCharset , @@ -120,20 +121,25 @@ -- ** Action DOMHTMLFormElementActionPropertyInfo , constructDOMHTMLFormElementAction , + dOMHTMLFormElementAction , getDOMHTMLFormElementAction , setDOMHTMLFormElementAction , -- ** Autocapitalize DOMHTMLFormElementAutocapitalizePropertyInfo, + clearDOMHTMLFormElementAutocapitalize , constructDOMHTMLFormElementAutocapitalize, + dOMHTMLFormElementAutocapitalize , getDOMHTMLFormElementAutocapitalize , setDOMHTMLFormElementAutocapitalize , -- ** Autocomplete DOMHTMLFormElementAutocompletePropertyInfo, + clearDOMHTMLFormElementAutocomplete , constructDOMHTMLFormElementAutocomplete , + dOMHTMLFormElementAutocomplete , getDOMHTMLFormElementAutocomplete , setDOMHTMLFormElementAutocomplete , @@ -141,18 +147,21 @@ -- ** Autocorrect DOMHTMLFormElementAutocorrectPropertyInfo, constructDOMHTMLFormElementAutocorrect , + dOMHTMLFormElementAutocorrect , getDOMHTMLFormElementAutocorrect , setDOMHTMLFormElementAutocorrect , -- ** Elements DOMHTMLFormElementElementsPropertyInfo , + dOMHTMLFormElementElements , getDOMHTMLFormElementElements , -- ** Encoding DOMHTMLFormElementEncodingPropertyInfo , constructDOMHTMLFormElementEncoding , + dOMHTMLFormElementEncoding , getDOMHTMLFormElementEncoding , setDOMHTMLFormElementEncoding , @@ -160,18 +169,21 @@ -- ** Enctype DOMHTMLFormElementEnctypePropertyInfo , constructDOMHTMLFormElementEnctype , + dOMHTMLFormElementEnctype , getDOMHTMLFormElementEnctype , setDOMHTMLFormElementEnctype , -- ** Length DOMHTMLFormElementLengthPropertyInfo , + dOMHTMLFormElementLength , getDOMHTMLFormElementLength , -- ** Method DOMHTMLFormElementMethodPropertyInfo , constructDOMHTMLFormElementMethod , + dOMHTMLFormElementMethod , getDOMHTMLFormElementMethod , setDOMHTMLFormElementMethod , @@ -179,6 +191,7 @@ -- ** Name DOMHTMLFormElementNamePropertyInfo , constructDOMHTMLFormElementName , + dOMHTMLFormElementName , getDOMHTMLFormElementName , setDOMHTMLFormElementName , @@ -186,6 +199,7 @@ -- ** NoValidate DOMHTMLFormElementNoValidatePropertyInfo, constructDOMHTMLFormElementNoValidate , + dOMHTMLFormElementNoValidate , getDOMHTMLFormElementNoValidate , setDOMHTMLFormElementNoValidate , @@ -193,6 +207,7 @@ -- ** Target DOMHTMLFormElementTargetPropertyInfo , constructDOMHTMLFormElementTarget , + dOMHTMLFormElementTarget , getDOMHTMLFormElementTarget , setDOMHTMLFormElementTarget , @@ -201,9 +216,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 @@ -307,8 +322,11 @@ ResolveDOMHTMLFormElementMethod "getDir" o = DOMHTMLElementGetDirMethodInfo ResolveDOMHTMLFormElementMethod "getElements" o = DOMHTMLFormElementGetElementsMethodInfo ResolveDOMHTMLFormElementMethod "getElementsByClassName" o = DOMElementGetElementsByClassNameMethodInfo + ResolveDOMHTMLFormElementMethod "getElementsByClassNameAsHtmlCollection" o = DOMElementGetElementsByClassNameAsHtmlCollectionMethodInfo ResolveDOMHTMLFormElementMethod "getElementsByTagName" o = DOMElementGetElementsByTagNameMethodInfo + ResolveDOMHTMLFormElementMethod "getElementsByTagNameAsHtmlCollection" o = DOMElementGetElementsByTagNameAsHtmlCollectionMethodInfo ResolveDOMHTMLFormElementMethod "getElementsByTagNameNs" o = DOMElementGetElementsByTagNameNsMethodInfo + ResolveDOMHTMLFormElementMethod "getElementsByTagNameNsAsHtmlCollection" o = DOMElementGetElementsByTagNameNsAsHtmlCollectionMethodInfo ResolveDOMHTMLFormElementMethod "getEncoding" o = DOMHTMLFormElementGetEncodingMethodInfo ResolveDOMHTMLFormElementMethod "getEnctype" o = DOMHTMLFormElementGetEnctypeMethodInfo ResolveDOMHTMLFormElementMethod "getFirstChild" o = DOMNodeGetFirstChildMethodInfo @@ -394,102 +412,117 @@ -- 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,Nothing) -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) +clearDOMHTMLFormElementAutocapitalize :: (MonadIO m, DOMHTMLFormElementK o) => o -> m () +clearDOMHTMLFormElementAutocapitalize obj = liftIO $ setObjectPropertyString obj "autocapitalize" (Nothing :: Maybe T.Text) + data DOMHTMLFormElementAutocapitalizePropertyInfo instance AttrInfo DOMHTMLFormElementAutocapitalizePropertyInfo where - type AttrAllowedOps DOMHTMLFormElementAutocapitalizePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrAllowedOps DOMHTMLFormElementAutocapitalizePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] 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 _ = clearDOMHTMLFormElementAutocapitalize -- VVV Prop "autocomplete" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) -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) +clearDOMHTMLFormElementAutocomplete :: (MonadIO m, DOMHTMLFormElementK o) => o -> m () +clearDOMHTMLFormElementAutocomplete obj = liftIO $ setObjectPropertyString obj "autocomplete" (Nothing :: Maybe T.Text) + data DOMHTMLFormElementAutocompletePropertyInfo instance AttrInfo DOMHTMLFormElementAutocompletePropertyInfo where - type AttrAllowedOps DOMHTMLFormElementAutocompletePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrAllowedOps DOMHTMLFormElementAutocompletePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] 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 _ = clearDOMHTMLFormElementAutocomplete -- VVV Prop "autocorrect" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) getDOMHTMLFormElementAutocorrect :: (MonadIO m, DOMHTMLFormElementK o) => o -> m Bool getDOMHTMLFormElementAutocorrect obj = liftIO $ getObjectPropertyBool obj "autocorrect" @@ -510,142 +543,156 @@ attrGet _ = getDOMHTMLFormElementAutocorrect attrSet _ = setDOMHTMLFormElementAutocorrect attrConstruct _ = constructDOMHTMLFormElementAutocorrect + attrClear _ = undefined -- VVV Prop "elements" -- Type: TInterface "WebKit2WebExtension" "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: (Nothing,Nothing) getDOMHTMLFormElementNoValidate :: (MonadIO m, DOMHTMLFormElementK o) => o -> m Bool getDOMHTMLFormElementNoValidate obj = liftIO $ getObjectPropertyBool obj "no-validate" @@ -666,34 +713,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", DOMElementChildrenPropertyInfo), '("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", DOMElementInnerHtmlPropertyInfo), '("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", DOMElementOuterHtmlPropertyInfo), '("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, *)]) +type DOMHTMLFormElementAttributeList = ('[ '("acceptCharset", DOMHTMLFormElementAcceptCharsetPropertyInfo), '("accessKey", DOMHTMLElementAccessKeyPropertyInfo), '("action", DOMHTMLFormElementActionPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("autocapitalize", DOMHTMLFormElementAutocapitalizePropertyInfo), '("autocomplete", DOMHTMLFormElementAutocompletePropertyInfo), '("autocorrect", DOMHTMLFormElementAutocorrectPropertyInfo), '("baseUri", DOMNodeBaseUriPropertyInfo), '("childElementCount", DOMElementChildElementCountPropertyInfo), '("childNodes", DOMNodeChildNodesPropertyInfo), '("children", DOMElementChildrenPropertyInfo), '("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", DOMElementInnerHtmlPropertyInfo), '("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", DOMElementOuterHtmlPropertyInfo), '("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), '("treeRoot", DOMNodeTreeRootPropertyInfo), '("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, *)]) @@ -701,7 +790,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -731,7 +820,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -761,7 +850,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLFormElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit2WebExtension" "DOMHTMLCollection" +-- returnType : Just (TInterface "WebKit2WebExtension" "DOMHTMLCollection") -- throws : False -- Skip return : False @@ -790,7 +879,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -820,7 +909,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -850,19 +939,19 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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' @@ -870,14 +959,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 "WebKit2WebExtension" "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 @@ -907,7 +996,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -937,7 +1026,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -967,7 +1056,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -994,7 +1083,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -1025,7 +1114,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -1056,7 +1145,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -1087,7 +1176,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -1118,7 +1207,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -1149,7 +1238,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -1180,7 +1269,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -1211,7 +1300,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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/WebKit2WebExtension/Objects/DOMHTMLFormElement.hs-boot b/GI/WebKit2WebExtension/Objects/DOMHTMLFormElement.hs-boot --- a/GI/WebKit2WebExtension/Objects/DOMHTMLFormElement.hs-boot +++ b/GI/WebKit2WebExtension/Objects/DOMHTMLFormElement.hs-boot @@ -1,8 +1,8 @@ module GI.WebKit2WebExtension.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/WebKit2WebExtension/Objects/DOMHTMLFrameElement.hs b/GI/WebKit2WebExtension/Objects/DOMHTMLFrameElement.hs --- a/GI/WebKit2WebExtension/Objects/DOMHTMLFrameElement.hs +++ b/GI/WebKit2WebExtension/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 @@ -303,8 +315,11 @@ ResolveDOMHTMLFrameElementMethod "getData" o = GObject.ObjectGetDataMethodInfo ResolveDOMHTMLFrameElementMethod "getDir" o = DOMHTMLElementGetDirMethodInfo ResolveDOMHTMLFrameElementMethod "getElementsByClassName" o = DOMElementGetElementsByClassNameMethodInfo + ResolveDOMHTMLFrameElementMethod "getElementsByClassNameAsHtmlCollection" o = DOMElementGetElementsByClassNameAsHtmlCollectionMethodInfo ResolveDOMHTMLFrameElementMethod "getElementsByTagName" o = DOMElementGetElementsByTagNameMethodInfo + ResolveDOMHTMLFrameElementMethod "getElementsByTagNameAsHtmlCollection" o = DOMElementGetElementsByTagNameAsHtmlCollectionMethodInfo ResolveDOMHTMLFrameElementMethod "getElementsByTagNameNs" o = DOMElementGetElementsByTagNameNsMethodInfo + ResolveDOMHTMLFrameElementMethod "getElementsByTagNameNsAsHtmlCollection" o = DOMElementGetElementsByTagNameNsAsHtmlCollectionMethodInfo ResolveDOMHTMLFrameElementMethod "getFirstChild" o = DOMNodeGetFirstChildMethodInfo ResolveDOMHTMLFrameElementMethod "getFirstElementChild" o = DOMElementGetFirstElementChildMethodInfo ResolveDOMHTMLFrameElementMethod "getFrameBorder" o = DOMHTMLFrameElementGetFrameBorderMethodInfo @@ -395,13 +410,14 @@ -- VVV Prop "content-document" -- Type: TInterface "WebKit2WebExtension" "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 @@ -409,166 +425,182 @@ attrGet _ = getDOMHTMLFrameElementContentDocument attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "content-window" -- Type: TInterface "WebKit2WebExtension" "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" @@ -589,76 +621,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", DOMElementChildrenPropertyInfo), '("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", DOMElementInnerHtmlPropertyInfo), '("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", DOMElementOuterHtmlPropertyInfo), '("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, *)]) +type DOMHTMLFrameElementAttributeList = ('[ '("accessKey", DOMHTMLElementAccessKeyPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("baseUri", DOMNodeBaseUriPropertyInfo), '("childElementCount", DOMElementChildElementCountPropertyInfo), '("childNodes", DOMNodeChildNodesPropertyInfo), '("children", DOMElementChildrenPropertyInfo), '("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", DOMElementInnerHtmlPropertyInfo), '("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", DOMElementOuterHtmlPropertyInfo), '("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), '("treeRoot", DOMNodeTreeRootPropertyInfo), '("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, *)]) @@ -666,7 +741,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLFrameElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit2WebExtension" "DOMDocument" +-- returnType : Just (TInterface "WebKit2WebExtension" "DOMDocument") -- throws : False -- Skip return : False @@ -695,7 +770,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLFrameElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit2WebExtension" "DOMDOMWindow" +-- returnType : Just (TInterface "WebKit2WebExtension" "DOMDOMWindow") -- throws : False -- Skip return : False @@ -724,7 +799,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -754,19 +829,19 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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' @@ -774,14 +849,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 "WebKit2WebExtension" "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 @@ -811,7 +886,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -841,7 +916,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -871,7 +946,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -901,7 +976,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -929,7 +1004,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -959,7 +1034,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -989,19 +1064,19 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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' @@ -1009,14 +1084,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 "WebKit2WebExtension" "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 @@ -1047,7 +1122,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -1078,7 +1153,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -1109,7 +1184,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -1140,7 +1215,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -1171,7 +1246,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -1201,7 +1276,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -1232,7 +1307,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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/WebKit2WebExtension/Objects/DOMHTMLFrameElement.hs-boot b/GI/WebKit2WebExtension/Objects/DOMHTMLFrameElement.hs-boot --- a/GI/WebKit2WebExtension/Objects/DOMHTMLFrameElement.hs-boot +++ b/GI/WebKit2WebExtension/Objects/DOMHTMLFrameElement.hs-boot @@ -1,8 +1,8 @@ module GI.WebKit2WebExtension.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/WebKit2WebExtension/Objects/DOMHTMLFrameSetElement.hs b/GI/WebKit2WebExtension/Objects/DOMHTMLFrameSetElement.hs --- a/GI/WebKit2WebExtension/Objects/DOMHTMLFrameSetElement.hs +++ b/GI/WebKit2WebExtension/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 @@ -160,8 +162,11 @@ ResolveDOMHTMLFrameSetElementMethod "getData" o = GObject.ObjectGetDataMethodInfo ResolveDOMHTMLFrameSetElementMethod "getDir" o = DOMHTMLElementGetDirMethodInfo ResolveDOMHTMLFrameSetElementMethod "getElementsByClassName" o = DOMElementGetElementsByClassNameMethodInfo + ResolveDOMHTMLFrameSetElementMethod "getElementsByClassNameAsHtmlCollection" o = DOMElementGetElementsByClassNameAsHtmlCollectionMethodInfo ResolveDOMHTMLFrameSetElementMethod "getElementsByTagName" o = DOMElementGetElementsByTagNameMethodInfo + ResolveDOMHTMLFrameSetElementMethod "getElementsByTagNameAsHtmlCollection" o = DOMElementGetElementsByTagNameAsHtmlCollectionMethodInfo ResolveDOMHTMLFrameSetElementMethod "getElementsByTagNameNs" o = DOMElementGetElementsByTagNameNsMethodInfo + ResolveDOMHTMLFrameSetElementMethod "getElementsByTagNameNsAsHtmlCollection" o = DOMElementGetElementsByTagNameNsAsHtmlCollectionMethodInfo ResolveDOMHTMLFrameSetElementMethod "getFirstChild" o = DOMNodeGetFirstChildMethodInfo ResolveDOMHTMLFrameSetElementMethod "getFirstElementChild" o = DOMElementGetFirstElementChildMethodInfo ResolveDOMHTMLFrameSetElementMethod "getId" o = DOMElementGetIdMethodInfo @@ -237,54 +242,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", DOMElementChildrenPropertyInfo), '("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", DOMElementInnerHtmlPropertyInfo), '("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", DOMElementOuterHtmlPropertyInfo), '("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, *)]) +type DOMHTMLFrameSetElementAttributeList = ('[ '("accessKey", DOMHTMLElementAccessKeyPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("baseUri", DOMNodeBaseUriPropertyInfo), '("childElementCount", DOMElementChildElementCountPropertyInfo), '("childNodes", DOMNodeChildNodesPropertyInfo), '("children", DOMElementChildrenPropertyInfo), '("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", DOMElementInnerHtmlPropertyInfo), '("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", DOMElementOuterHtmlPropertyInfo), '("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), '("treeRoot", DOMNodeTreeRootPropertyInfo), '("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, *)]) @@ -292,7 +307,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -322,7 +337,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -352,7 +367,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -383,7 +398,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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/WebKit2WebExtension/Objects/DOMHTMLFrameSetElement.hs-boot b/GI/WebKit2WebExtension/Objects/DOMHTMLFrameSetElement.hs-boot --- a/GI/WebKit2WebExtension/Objects/DOMHTMLFrameSetElement.hs-boot +++ b/GI/WebKit2WebExtension/Objects/DOMHTMLFrameSetElement.hs-boot @@ -1,8 +1,8 @@ module GI.WebKit2WebExtension.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/WebKit2WebExtension/Objects/DOMHTMLHRElement.hs b/GI/WebKit2WebExtension/Objects/DOMHTMLHRElement.hs --- a/GI/WebKit2WebExtension/Objects/DOMHTMLHRElement.hs +++ b/GI/WebKit2WebExtension/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 @@ -194,8 +198,11 @@ ResolveDOMHTMLHRElementMethod "getData" o = GObject.ObjectGetDataMethodInfo ResolveDOMHTMLHRElementMethod "getDir" o = DOMHTMLElementGetDirMethodInfo ResolveDOMHTMLHRElementMethod "getElementsByClassName" o = DOMElementGetElementsByClassNameMethodInfo + ResolveDOMHTMLHRElementMethod "getElementsByClassNameAsHtmlCollection" o = DOMElementGetElementsByClassNameAsHtmlCollectionMethodInfo ResolveDOMHTMLHRElementMethod "getElementsByTagName" o = DOMElementGetElementsByTagNameMethodInfo + ResolveDOMHTMLHRElementMethod "getElementsByTagNameAsHtmlCollection" o = DOMElementGetElementsByTagNameAsHtmlCollectionMethodInfo ResolveDOMHTMLHRElementMethod "getElementsByTagNameNs" o = DOMElementGetElementsByTagNameNsMethodInfo + ResolveDOMHTMLHRElementMethod "getElementsByTagNameNsAsHtmlCollection" o = DOMElementGetElementsByTagNameNsAsHtmlCollectionMethodInfo ResolveDOMHTMLHRElementMethod "getFirstChild" o = DOMNodeGetFirstChildMethodInfo ResolveDOMHTMLHRElementMethod "getFirstElementChild" o = DOMElementGetFirstElementChildMethodInfo ResolveDOMHTMLHRElementMethod "getId" o = DOMElementGetIdMethodInfo @@ -275,30 +282,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" @@ -319,58 +329,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", DOMElementChildrenPropertyInfo), '("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", DOMElementInnerHtmlPropertyInfo), '("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", DOMElementOuterHtmlPropertyInfo), '("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, *)]) +type DOMHTMLHRElementAttributeList = ('[ '("accessKey", DOMHTMLElementAccessKeyPropertyInfo), '("align", DOMHTMLHRElementAlignPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("baseUri", DOMNodeBaseUriPropertyInfo), '("childElementCount", DOMElementChildElementCountPropertyInfo), '("childNodes", DOMNodeChildNodesPropertyInfo), '("children", DOMElementChildrenPropertyInfo), '("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", DOMElementInnerHtmlPropertyInfo), '("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", DOMElementOuterHtmlPropertyInfo), '("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), '("treeRoot", DOMNodeTreeRootPropertyInfo), '("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, *)]) @@ -378,7 +405,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -408,7 +435,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -436,7 +463,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -466,7 +493,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -496,7 +523,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -527,7 +554,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -557,7 +584,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -588,7 +615,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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/WebKit2WebExtension/Objects/DOMHTMLHRElement.hs-boot b/GI/WebKit2WebExtension/Objects/DOMHTMLHRElement.hs-boot --- a/GI/WebKit2WebExtension/Objects/DOMHTMLHRElement.hs-boot +++ b/GI/WebKit2WebExtension/Objects/DOMHTMLHRElement.hs-boot @@ -1,8 +1,8 @@ module GI.WebKit2WebExtension.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/WebKit2WebExtension/Objects/DOMHTMLHeadElement.hs b/GI/WebKit2WebExtension/Objects/DOMHTMLHeadElement.hs --- a/GI/WebKit2WebExtension/Objects/DOMHTMLHeadElement.hs +++ b/GI/WebKit2WebExtension/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 @@ -142,8 +143,11 @@ ResolveDOMHTMLHeadElementMethod "getData" o = GObject.ObjectGetDataMethodInfo ResolveDOMHTMLHeadElementMethod "getDir" o = DOMHTMLElementGetDirMethodInfo ResolveDOMHTMLHeadElementMethod "getElementsByClassName" o = DOMElementGetElementsByClassNameMethodInfo + ResolveDOMHTMLHeadElementMethod "getElementsByClassNameAsHtmlCollection" o = DOMElementGetElementsByClassNameAsHtmlCollectionMethodInfo ResolveDOMHTMLHeadElementMethod "getElementsByTagName" o = DOMElementGetElementsByTagNameMethodInfo + ResolveDOMHTMLHeadElementMethod "getElementsByTagNameAsHtmlCollection" o = DOMElementGetElementsByTagNameAsHtmlCollectionMethodInfo ResolveDOMHTMLHeadElementMethod "getElementsByTagNameNs" o = DOMElementGetElementsByTagNameNsMethodInfo + ResolveDOMHTMLHeadElementMethod "getElementsByTagNameNsAsHtmlCollection" o = DOMElementGetElementsByTagNameNsAsHtmlCollectionMethodInfo ResolveDOMHTMLHeadElementMethod "getFirstChild" o = DOMNodeGetFirstChildMethodInfo ResolveDOMHTMLHeadElementMethod "getFirstElementChild" o = DOMElementGetFirstElementChildMethodInfo ResolveDOMHTMLHeadElementMethod "getId" o = DOMElementGetIdMethodInfo @@ -218,30 +222,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", DOMElementChildrenPropertyInfo), '("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", DOMElementInnerHtmlPropertyInfo), '("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", DOMElementOuterHtmlPropertyInfo), '("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, *)]) +type DOMHTMLHeadElementAttributeList = ('[ '("accessKey", DOMHTMLElementAccessKeyPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("baseUri", DOMNodeBaseUriPropertyInfo), '("childElementCount", DOMElementChildElementCountPropertyInfo), '("childNodes", DOMNodeChildNodesPropertyInfo), '("children", DOMElementChildrenPropertyInfo), '("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", DOMElementInnerHtmlPropertyInfo), '("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", DOMElementOuterHtmlPropertyInfo), '("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), '("treeRoot", DOMNodeTreeRootPropertyInfo), '("webkitRegionOverset", DOMElementWebkitRegionOversetPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo)] :: [(Symbol, *)]) +dOMHTMLHeadElementProfile :: AttrLabelProxy "profile" +dOMHTMLHeadElementProfile = AttrLabelProxy + type instance SignalList DOMHTMLHeadElement = DOMHTMLHeadElementSignalList type DOMHTMLHeadElementSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) @@ -249,7 +258,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -279,7 +288,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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/WebKit2WebExtension/Objects/DOMHTMLHeadElement.hs-boot b/GI/WebKit2WebExtension/Objects/DOMHTMLHeadElement.hs-boot --- a/GI/WebKit2WebExtension/Objects/DOMHTMLHeadElement.hs-boot +++ b/GI/WebKit2WebExtension/Objects/DOMHTMLHeadElement.hs-boot @@ -1,8 +1,8 @@ module GI.WebKit2WebExtension.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/WebKit2WebExtension/Objects/DOMHTMLHeadingElement.hs b/GI/WebKit2WebExtension/Objects/DOMHTMLHeadingElement.hs --- a/GI/WebKit2WebExtension/Objects/DOMHTMLHeadingElement.hs +++ b/GI/WebKit2WebExtension/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 @@ -143,8 +144,11 @@ ResolveDOMHTMLHeadingElementMethod "getData" o = GObject.ObjectGetDataMethodInfo ResolveDOMHTMLHeadingElementMethod "getDir" o = DOMHTMLElementGetDirMethodInfo ResolveDOMHTMLHeadingElementMethod "getElementsByClassName" o = DOMElementGetElementsByClassNameMethodInfo + ResolveDOMHTMLHeadingElementMethod "getElementsByClassNameAsHtmlCollection" o = DOMElementGetElementsByClassNameAsHtmlCollectionMethodInfo ResolveDOMHTMLHeadingElementMethod "getElementsByTagName" o = DOMElementGetElementsByTagNameMethodInfo + ResolveDOMHTMLHeadingElementMethod "getElementsByTagNameAsHtmlCollection" o = DOMElementGetElementsByTagNameAsHtmlCollectionMethodInfo ResolveDOMHTMLHeadingElementMethod "getElementsByTagNameNs" o = DOMElementGetElementsByTagNameNsMethodInfo + ResolveDOMHTMLHeadingElementMethod "getElementsByTagNameNsAsHtmlCollection" o = DOMElementGetElementsByTagNameNsAsHtmlCollectionMethodInfo ResolveDOMHTMLHeadingElementMethod "getFirstChild" o = DOMNodeGetFirstChildMethodInfo ResolveDOMHTMLHeadingElementMethod "getFirstElementChild" o = DOMElementGetFirstElementChildMethodInfo ResolveDOMHTMLHeadingElementMethod "getId" o = DOMElementGetIdMethodInfo @@ -218,30 +222,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", DOMElementChildrenPropertyInfo), '("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", DOMElementInnerHtmlPropertyInfo), '("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", DOMElementOuterHtmlPropertyInfo), '("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, *)]) +type DOMHTMLHeadingElementAttributeList = ('[ '("accessKey", DOMHTMLElementAccessKeyPropertyInfo), '("align", DOMHTMLHeadingElementAlignPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("baseUri", DOMNodeBaseUriPropertyInfo), '("childElementCount", DOMElementChildElementCountPropertyInfo), '("childNodes", DOMNodeChildNodesPropertyInfo), '("children", DOMElementChildrenPropertyInfo), '("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", DOMElementInnerHtmlPropertyInfo), '("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", DOMElementOuterHtmlPropertyInfo), '("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), '("treeRoot", DOMNodeTreeRootPropertyInfo), '("webkitRegionOverset", DOMElementWebkitRegionOversetPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo)] :: [(Symbol, *)]) +dOMHTMLHeadingElementAlign :: AttrLabelProxy "align" +dOMHTMLHeadingElementAlign = AttrLabelProxy + type instance SignalList DOMHTMLHeadingElement = DOMHTMLHeadingElementSignalList type DOMHTMLHeadingElementSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) @@ -249,7 +258,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -279,7 +288,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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/WebKit2WebExtension/Objects/DOMHTMLHeadingElement.hs-boot b/GI/WebKit2WebExtension/Objects/DOMHTMLHeadingElement.hs-boot --- a/GI/WebKit2WebExtension/Objects/DOMHTMLHeadingElement.hs-boot +++ b/GI/WebKit2WebExtension/Objects/DOMHTMLHeadingElement.hs-boot @@ -1,8 +1,8 @@ module GI.WebKit2WebExtension.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/WebKit2WebExtension/Objects/DOMHTMLHtmlElement.hs b/GI/WebKit2WebExtension/Objects/DOMHTMLHtmlElement.hs --- a/GI/WebKit2WebExtension/Objects/DOMHTMLHtmlElement.hs +++ b/GI/WebKit2WebExtension/Objects/DOMHTMLHtmlElement.hs @@ -32,7 +32,9 @@ -- * Properties -- ** Manifest DOMHTMLHtmlElementManifestPropertyInfo , + clearDOMHTMLHtmlElementManifest , constructDOMHTMLHtmlElementManifest , + dOMHTMLHtmlElementManifest , getDOMHTMLHtmlElementManifest , setDOMHTMLHtmlElementManifest , @@ -40,6 +42,7 @@ -- ** Version DOMHTMLHtmlElementVersionPropertyInfo , constructDOMHTMLHtmlElementVersion , + dOMHTMLHtmlElementVersion , getDOMHTMLHtmlElementVersion , setDOMHTMLHtmlElementVersion , @@ -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 @@ -149,8 +152,11 @@ ResolveDOMHTMLHtmlElementMethod "getData" o = GObject.ObjectGetDataMethodInfo ResolveDOMHTMLHtmlElementMethod "getDir" o = DOMHTMLElementGetDirMethodInfo ResolveDOMHTMLHtmlElementMethod "getElementsByClassName" o = DOMElementGetElementsByClassNameMethodInfo + ResolveDOMHTMLHtmlElementMethod "getElementsByClassNameAsHtmlCollection" o = DOMElementGetElementsByClassNameAsHtmlCollectionMethodInfo ResolveDOMHTMLHtmlElementMethod "getElementsByTagName" o = DOMElementGetElementsByTagNameMethodInfo + ResolveDOMHTMLHtmlElementMethod "getElementsByTagNameAsHtmlCollection" o = DOMElementGetElementsByTagNameAsHtmlCollectionMethodInfo ResolveDOMHTMLHtmlElementMethod "getElementsByTagNameNs" o = DOMElementGetElementsByTagNameNsMethodInfo + ResolveDOMHTMLHtmlElementMethod "getElementsByTagNameNsAsHtmlCollection" o = DOMElementGetElementsByTagNameNsAsHtmlCollectionMethodInfo ResolveDOMHTMLHtmlElementMethod "getFirstChild" o = DOMNodeGetFirstChildMethodInfo ResolveDOMHTMLHtmlElementMethod "getFirstElementChild" o = DOMElementGetFirstElementChildMethodInfo ResolveDOMHTMLHtmlElementMethod "getId" o = DOMElementGetIdMethodInfo @@ -225,54 +231,67 @@ -- VVV Prop "manifest" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) -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) +clearDOMHTMLHtmlElementManifest :: (MonadIO m, DOMHTMLHtmlElementK o) => o -> m () +clearDOMHTMLHtmlElementManifest obj = liftIO $ setObjectPropertyString obj "manifest" (Nothing :: Maybe T.Text) + data DOMHTMLHtmlElementManifestPropertyInfo instance AttrInfo DOMHTMLHtmlElementManifestPropertyInfo where - type AttrAllowedOps DOMHTMLHtmlElementManifestPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrAllowedOps DOMHTMLHtmlElementManifestPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] 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 _ = clearDOMHTMLHtmlElementManifest -- 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", DOMElementChildrenPropertyInfo), '("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", DOMElementInnerHtmlPropertyInfo), '("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", DOMElementOuterHtmlPropertyInfo), '("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, *)]) +type DOMHTMLHtmlElementAttributeList = ('[ '("accessKey", DOMHTMLElementAccessKeyPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("baseUri", DOMNodeBaseUriPropertyInfo), '("childElementCount", DOMElementChildElementCountPropertyInfo), '("childNodes", DOMNodeChildNodesPropertyInfo), '("children", DOMElementChildrenPropertyInfo), '("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", DOMElementInnerHtmlPropertyInfo), '("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", DOMElementOuterHtmlPropertyInfo), '("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), '("treeRoot", DOMNodeTreeRootPropertyInfo), '("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, *)]) @@ -280,7 +299,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -310,7 +329,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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/WebKit2WebExtension/Objects/DOMHTMLHtmlElement.hs-boot b/GI/WebKit2WebExtension/Objects/DOMHTMLHtmlElement.hs-boot --- a/GI/WebKit2WebExtension/Objects/DOMHTMLHtmlElement.hs-boot +++ b/GI/WebKit2WebExtension/Objects/DOMHTMLHtmlElement.hs-boot @@ -1,8 +1,8 @@ module GI.WebKit2WebExtension.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/WebKit2WebExtension/Objects/DOMHTMLIFrameElement.hs b/GI/WebKit2WebExtension/Objects/DOMHTMLIFrameElement.hs --- a/GI/WebKit2WebExtension/Objects/DOMHTMLIFrameElement.hs +++ b/GI/WebKit2WebExtension/Objects/DOMHTMLIFrameElement.hs @@ -133,23 +133,27 @@ -- ** Align DOMHTMLIFrameElementAlignPropertyInfo , constructDOMHTMLIFrameElementAlign , + dOMHTMLIFrameElementAlign , getDOMHTMLIFrameElementAlign , setDOMHTMLIFrameElementAlign , -- ** ContentDocument DOMHTMLIFrameElementContentDocumentPropertyInfo, + dOMHTMLIFrameElementContentDocument , getDOMHTMLIFrameElementContentDocument , -- ** ContentWindow DOMHTMLIFrameElementContentWindowPropertyInfo, + dOMHTMLIFrameElementContentWindow , getDOMHTMLIFrameElementContentWindow , -- ** FrameBorder DOMHTMLIFrameElementFrameBorderPropertyInfo, constructDOMHTMLIFrameElementFrameBorder, + dOMHTMLIFrameElementFrameBorder , getDOMHTMLIFrameElementFrameBorder , setDOMHTMLIFrameElementFrameBorder , @@ -157,6 +161,7 @@ -- ** Height DOMHTMLIFrameElementHeightPropertyInfo , constructDOMHTMLIFrameElementHeight , + dOMHTMLIFrameElementHeight , getDOMHTMLIFrameElementHeight , setDOMHTMLIFrameElementHeight , @@ -164,6 +169,7 @@ -- ** LongDesc DOMHTMLIFrameElementLongDescPropertyInfo, constructDOMHTMLIFrameElementLongDesc , + dOMHTMLIFrameElementLongDesc , getDOMHTMLIFrameElementLongDesc , setDOMHTMLIFrameElementLongDesc , @@ -171,6 +177,7 @@ -- ** MarginHeight DOMHTMLIFrameElementMarginHeightPropertyInfo, constructDOMHTMLIFrameElementMarginHeight, + dOMHTMLIFrameElementMarginHeight , getDOMHTMLIFrameElementMarginHeight , setDOMHTMLIFrameElementMarginHeight , @@ -178,6 +185,7 @@ -- ** MarginWidth DOMHTMLIFrameElementMarginWidthPropertyInfo, constructDOMHTMLIFrameElementMarginWidth, + dOMHTMLIFrameElementMarginWidth , getDOMHTMLIFrameElementMarginWidth , setDOMHTMLIFrameElementMarginWidth , @@ -185,13 +193,16 @@ -- ** Name DOMHTMLIFrameElementNamePropertyInfo , constructDOMHTMLIFrameElementName , + dOMHTMLIFrameElementName , getDOMHTMLIFrameElementName , setDOMHTMLIFrameElementName , -- ** Sandbox DOMHTMLIFrameElementSandboxPropertyInfo , + clearDOMHTMLIFrameElementSandbox , constructDOMHTMLIFrameElementSandbox , + dOMHTMLIFrameElementSandbox , getDOMHTMLIFrameElementSandbox , setDOMHTMLIFrameElementSandbox , @@ -199,6 +210,7 @@ -- ** Scrolling DOMHTMLIFrameElementScrollingPropertyInfo, constructDOMHTMLIFrameElementScrolling , + dOMHTMLIFrameElementScrolling , getDOMHTMLIFrameElementScrolling , setDOMHTMLIFrameElementScrolling , @@ -206,13 +218,16 @@ -- ** Src DOMHTMLIFrameElementSrcPropertyInfo , constructDOMHTMLIFrameElementSrc , + dOMHTMLIFrameElementSrc , getDOMHTMLIFrameElementSrc , setDOMHTMLIFrameElementSrc , -- ** Srcdoc DOMHTMLIFrameElementSrcdocPropertyInfo , + clearDOMHTMLIFrameElementSrcdoc , constructDOMHTMLIFrameElementSrcdoc , + dOMHTMLIFrameElementSrcdoc , getDOMHTMLIFrameElementSrcdoc , setDOMHTMLIFrameElementSrcdoc , @@ -220,6 +235,7 @@ -- ** Width DOMHTMLIFrameElementWidthPropertyInfo , constructDOMHTMLIFrameElementWidth , + dOMHTMLIFrameElementWidth , getDOMHTMLIFrameElementWidth , setDOMHTMLIFrameElementWidth , @@ -228,9 +244,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 @@ -332,8 +348,11 @@ ResolveDOMHTMLIFrameElementMethod "getData" o = GObject.ObjectGetDataMethodInfo ResolveDOMHTMLIFrameElementMethod "getDir" o = DOMHTMLElementGetDirMethodInfo ResolveDOMHTMLIFrameElementMethod "getElementsByClassName" o = DOMElementGetElementsByClassNameMethodInfo + ResolveDOMHTMLIFrameElementMethod "getElementsByClassNameAsHtmlCollection" o = DOMElementGetElementsByClassNameAsHtmlCollectionMethodInfo ResolveDOMHTMLIFrameElementMethod "getElementsByTagName" o = DOMElementGetElementsByTagNameMethodInfo + ResolveDOMHTMLIFrameElementMethod "getElementsByTagNameAsHtmlCollection" o = DOMElementGetElementsByTagNameAsHtmlCollectionMethodInfo ResolveDOMHTMLIFrameElementMethod "getElementsByTagNameNs" o = DOMElementGetElementsByTagNameNsMethodInfo + ResolveDOMHTMLIFrameElementMethod "getElementsByTagNameNsAsHtmlCollection" o = DOMElementGetElementsByTagNameNsAsHtmlCollectionMethodInfo ResolveDOMHTMLIFrameElementMethod "getFirstChild" o = DOMNodeGetFirstChildMethodInfo ResolveDOMHTMLIFrameElementMethod "getFirstElementChild" o = DOMElementGetFirstElementChildMethodInfo ResolveDOMHTMLIFrameElementMethod "getFrameBorder" o = DOMHTMLIFrameElementGetFrameBorderMethodInfo @@ -425,37 +444,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 "WebKit2WebExtension" "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 @@ -463,292 +485,365 @@ attrGet _ = getDOMHTMLIFrameElementContentDocument attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "content-window" -- Type: TInterface "WebKit2WebExtension" "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,Nothing) -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) +clearDOMHTMLIFrameElementSandbox :: (MonadIO m, DOMHTMLIFrameElementK o) => o -> m () +clearDOMHTMLIFrameElementSandbox obj = liftIO $ setObjectPropertyString obj "sandbox" (Nothing :: Maybe T.Text) + data DOMHTMLIFrameElementSandboxPropertyInfo instance AttrInfo DOMHTMLIFrameElementSandboxPropertyInfo where - type AttrAllowedOps DOMHTMLIFrameElementSandboxPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrAllowedOps DOMHTMLIFrameElementSandboxPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] 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 _ = clearDOMHTMLIFrameElementSandbox -- 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 "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,Nothing) -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) +clearDOMHTMLIFrameElementSrcdoc :: (MonadIO m, DOMHTMLIFrameElementK o) => o -> m () +clearDOMHTMLIFrameElementSrcdoc obj = liftIO $ setObjectPropertyString obj "srcdoc" (Nothing :: Maybe T.Text) + data DOMHTMLIFrameElementSrcdocPropertyInfo instance AttrInfo DOMHTMLIFrameElementSrcdocPropertyInfo where - type AttrAllowedOps DOMHTMLIFrameElementSrcdocPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrAllowedOps DOMHTMLIFrameElementSrcdocPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] 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 _ = clearDOMHTMLIFrameElementSrcdoc -- 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", DOMElementChildrenPropertyInfo), '("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", DOMElementInnerHtmlPropertyInfo), '("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", DOMElementOuterHtmlPropertyInfo), '("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), '("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, *)]) +type DOMHTMLIFrameElementAttributeList = ('[ '("accessKey", DOMHTMLElementAccessKeyPropertyInfo), '("align", DOMHTMLIFrameElementAlignPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("baseUri", DOMNodeBaseUriPropertyInfo), '("childElementCount", DOMElementChildElementCountPropertyInfo), '("childNodes", DOMNodeChildNodesPropertyInfo), '("children", DOMElementChildrenPropertyInfo), '("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", DOMElementInnerHtmlPropertyInfo), '("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", DOMElementOuterHtmlPropertyInfo), '("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), '("spellcheck", DOMHTMLElementSpellcheckPropertyInfo), '("src", DOMHTMLIFrameElementSrcPropertyInfo), '("srcdoc", DOMHTMLIFrameElementSrcdocPropertyInfo), '("style", DOMElementStylePropertyInfo), '("tabIndex", DOMHTMLElementTabIndexPropertyInfo), '("tagName", DOMElementTagNamePropertyInfo), '("textContent", DOMNodeTextContentPropertyInfo), '("title", DOMHTMLElementTitlePropertyInfo), '("translate", DOMHTMLElementTranslatePropertyInfo), '("treeRoot", DOMNodeTreeRootPropertyInfo), '("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 + +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, *)]) @@ -756,7 +851,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -786,7 +881,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLIFrameElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit2WebExtension" "DOMDocument" +-- returnType : Just (TInterface "WebKit2WebExtension" "DOMDocument") -- throws : False -- Skip return : False @@ -815,7 +910,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLIFrameElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit2WebExtension" "DOMDOMWindow" +-- returnType : Just (TInterface "WebKit2WebExtension" "DOMDOMWindow") -- throws : False -- Skip return : False @@ -844,7 +939,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -874,7 +969,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -904,7 +999,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -934,7 +1029,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -964,7 +1059,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -994,7 +1089,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -1024,7 +1119,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -1054,7 +1149,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -1084,7 +1179,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -1114,7 +1209,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -1145,7 +1240,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -1176,7 +1271,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -1207,7 +1302,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -1238,7 +1333,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -1269,7 +1364,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -1300,7 +1395,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -1331,7 +1426,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -1362,7 +1457,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -1393,7 +1488,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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/WebKit2WebExtension/Objects/DOMHTMLIFrameElement.hs-boot b/GI/WebKit2WebExtension/Objects/DOMHTMLIFrameElement.hs-boot --- a/GI/WebKit2WebExtension/Objects/DOMHTMLIFrameElement.hs-boot +++ b/GI/WebKit2WebExtension/Objects/DOMHTMLIFrameElement.hs-boot @@ -1,8 +1,8 @@ module GI.WebKit2WebExtension.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/WebKit2WebExtension/Objects/DOMHTMLImageElement.hs b/GI/WebKit2WebExtension/Objects/DOMHTMLImageElement.hs --- a/GI/WebKit2WebExtension/Objects/DOMHTMLImageElement.hs +++ b/GI/WebKit2WebExtension/Objects/DOMHTMLImageElement.hs @@ -178,6 +178,7 @@ -- ** Align DOMHTMLImageElementAlignPropertyInfo , constructDOMHTMLImageElementAlign , + dOMHTMLImageElementAlign , getDOMHTMLImageElementAlign , setDOMHTMLImageElementAlign , @@ -185,6 +186,7 @@ -- ** Alt DOMHTMLImageElementAltPropertyInfo , constructDOMHTMLImageElementAlt , + dOMHTMLImageElementAlt , getDOMHTMLImageElementAlt , setDOMHTMLImageElementAlt , @@ -192,30 +194,36 @@ -- ** Border DOMHTMLImageElementBorderPropertyInfo , constructDOMHTMLImageElementBorder , + dOMHTMLImageElementBorder , getDOMHTMLImageElementBorder , setDOMHTMLImageElementBorder , -- ** Complete DOMHTMLImageElementCompletePropertyInfo , + dOMHTMLImageElementComplete , getDOMHTMLImageElementComplete , -- ** CrossOrigin DOMHTMLImageElementCrossOriginPropertyInfo, + clearDOMHTMLImageElementCrossOrigin , constructDOMHTMLImageElementCrossOrigin , + dOMHTMLImageElementCrossOrigin , getDOMHTMLImageElementCrossOrigin , setDOMHTMLImageElementCrossOrigin , -- ** CurrentSrc DOMHTMLImageElementCurrentSrcPropertyInfo, + dOMHTMLImageElementCurrentSrc , getDOMHTMLImageElementCurrentSrc , -- ** Height DOMHTMLImageElementHeightPropertyInfo , constructDOMHTMLImageElementHeight , + dOMHTMLImageElementHeight , getDOMHTMLImageElementHeight , setDOMHTMLImageElementHeight , @@ -223,6 +231,7 @@ -- ** Hspace DOMHTMLImageElementHspacePropertyInfo , constructDOMHTMLImageElementHspace , + dOMHTMLImageElementHspace , getDOMHTMLImageElementHspace , setDOMHTMLImageElementHspace , @@ -230,6 +239,7 @@ -- ** IsMap DOMHTMLImageElementIsMapPropertyInfo , constructDOMHTMLImageElementIsMap , + dOMHTMLImageElementIsMap , getDOMHTMLImageElementIsMap , setDOMHTMLImageElementIsMap , @@ -237,6 +247,7 @@ -- ** LongDesc DOMHTMLImageElementLongDescPropertyInfo , constructDOMHTMLImageElementLongDesc , + dOMHTMLImageElementLongDesc , getDOMHTMLImageElementLongDesc , setDOMHTMLImageElementLongDesc , @@ -244,6 +255,7 @@ -- ** Lowsrc DOMHTMLImageElementLowsrcPropertyInfo , constructDOMHTMLImageElementLowsrc , + dOMHTMLImageElementLowsrc , getDOMHTMLImageElementLowsrc , setDOMHTMLImageElementLowsrc , @@ -251,23 +263,28 @@ -- ** Name DOMHTMLImageElementNamePropertyInfo , constructDOMHTMLImageElementName , + dOMHTMLImageElementName , getDOMHTMLImageElementName , setDOMHTMLImageElementName , -- ** NaturalHeight DOMHTMLImageElementNaturalHeightPropertyInfo, + dOMHTMLImageElementNaturalHeight , getDOMHTMLImageElementNaturalHeight , -- ** NaturalWidth DOMHTMLImageElementNaturalWidthPropertyInfo, + dOMHTMLImageElementNaturalWidth , getDOMHTMLImageElementNaturalWidth , -- ** Sizes DOMHTMLImageElementSizesPropertyInfo , + clearDOMHTMLImageElementSizes , constructDOMHTMLImageElementSizes , + dOMHTMLImageElementSizes , getDOMHTMLImageElementSizes , setDOMHTMLImageElementSizes , @@ -275,13 +292,16 @@ -- ** Src DOMHTMLImageElementSrcPropertyInfo , constructDOMHTMLImageElementSrc , + dOMHTMLImageElementSrc , getDOMHTMLImageElementSrc , setDOMHTMLImageElementSrc , -- ** Srcset DOMHTMLImageElementSrcsetPropertyInfo , + clearDOMHTMLImageElementSrcset , constructDOMHTMLImageElementSrcset , + dOMHTMLImageElementSrcset , getDOMHTMLImageElementSrcset , setDOMHTMLImageElementSrcset , @@ -289,6 +309,7 @@ -- ** UseMap DOMHTMLImageElementUseMapPropertyInfo , constructDOMHTMLImageElementUseMap , + dOMHTMLImageElementUseMap , getDOMHTMLImageElementUseMap , setDOMHTMLImageElementUseMap , @@ -296,6 +317,7 @@ -- ** Vspace DOMHTMLImageElementVspacePropertyInfo , constructDOMHTMLImageElementVspace , + dOMHTMLImageElementVspace , getDOMHTMLImageElementVspace , setDOMHTMLImageElementVspace , @@ -303,17 +325,20 @@ -- ** Width DOMHTMLImageElementWidthPropertyInfo , constructDOMHTMLImageElementWidth , + dOMHTMLImageElementWidth , getDOMHTMLImageElementWidth , setDOMHTMLImageElementWidth , -- ** X DOMHTMLImageElementXPropertyInfo , + dOMHTMLImageElementX , getDOMHTMLImageElementX , -- ** Y DOMHTMLImageElementYPropertyInfo , + dOMHTMLImageElementY , getDOMHTMLImageElementY , @@ -321,9 +346,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 @@ -426,8 +451,11 @@ ResolveDOMHTMLImageElementMethod "getData" o = GObject.ObjectGetDataMethodInfo ResolveDOMHTMLImageElementMethod "getDir" o = DOMHTMLElementGetDirMethodInfo ResolveDOMHTMLImageElementMethod "getElementsByClassName" o = DOMElementGetElementsByClassNameMethodInfo + ResolveDOMHTMLImageElementMethod "getElementsByClassNameAsHtmlCollection" o = DOMElementGetElementsByClassNameAsHtmlCollectionMethodInfo ResolveDOMHTMLImageElementMethod "getElementsByTagName" o = DOMElementGetElementsByTagNameMethodInfo + ResolveDOMHTMLImageElementMethod "getElementsByTagNameAsHtmlCollection" o = DOMElementGetElementsByTagNameAsHtmlCollectionMethodInfo ResolveDOMHTMLImageElementMethod "getElementsByTagNameNs" o = DOMElementGetElementsByTagNameNsMethodInfo + ResolveDOMHTMLImageElementMethod "getElementsByTagNameNsAsHtmlCollection" o = DOMElementGetElementsByTagNameNsAsHtmlCollectionMethodInfo ResolveDOMHTMLImageElementMethod "getFirstChild" o = DOMNodeGetFirstChildMethodInfo ResolveDOMHTMLImageElementMethod "getFirstElementChild" o = DOMElementGetFirstElementChildMethodInfo ResolveDOMHTMLImageElementMethod "getHeight" o = DOMHTMLImageElementGetHeightMethodInfo @@ -527,78 +555,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" @@ -613,100 +648,113 @@ attrGet _ = getDOMHTMLImageElementComplete attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "cross-origin" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) -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) +clearDOMHTMLImageElementCrossOrigin :: (MonadIO m, DOMHTMLImageElementK o) => o -> m () +clearDOMHTMLImageElementCrossOrigin obj = liftIO $ setObjectPropertyString obj "cross-origin" (Nothing :: Maybe T.Text) + data DOMHTMLImageElementCrossOriginPropertyInfo instance AttrInfo DOMHTMLImageElementCrossOriginPropertyInfo where - type AttrAllowedOps DOMHTMLImageElementCrossOriginPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrAllowedOps DOMHTMLImageElementCrossOriginPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] 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 _ = clearDOMHTMLImageElementCrossOrigin -- VVV Prop "current-src" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable] + -- Nullable: (Nothing,Nothing) -getDOMHTMLImageElementCurrentSrc :: (MonadIO m, DOMHTMLImageElementK o) => o -> m T.Text +getDOMHTMLImageElementCurrentSrc :: (MonadIO m, DOMHTMLImageElementK o) => o -> m (Maybe T.Text) getDOMHTMLImageElementCurrentSrc obj = liftIO $ getObjectPropertyString obj "current-src" data DOMHTMLImageElementCurrentSrcPropertyInfo instance AttrInfo DOMHTMLImageElementCurrentSrcPropertyInfo where - type AttrAllowedOps DOMHTMLImageElementCurrentSrcPropertyInfo = '[ 'AttrGet] + type AttrAllowedOps DOMHTMLImageElementCurrentSrcPropertyInfo = '[ 'AttrGet, 'AttrClear] type AttrSetTypeConstraint DOMHTMLImageElementCurrentSrcPropertyInfo = (~) () type AttrBaseTypeConstraint DOMHTMLImageElementCurrentSrcPropertyInfo = DOMHTMLImageElementK - type AttrGetType DOMHTMLImageElementCurrentSrcPropertyInfo = T.Text + type AttrGetType DOMHTMLImageElementCurrentSrcPropertyInfo = (Maybe T.Text) type AttrLabel DOMHTMLImageElementCurrentSrcPropertyInfo = "current-src" attrGet _ = getDOMHTMLImageElementCurrentSrc attrSet _ = undefined attrConstruct _ = undefined + 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" @@ -727,298 +775,397 @@ 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 "sizes" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) -getDOMHTMLImageElementSizes :: (MonadIO m, DOMHTMLImageElementK o) => o -> m T.Text +getDOMHTMLImageElementSizes :: (MonadIO m, DOMHTMLImageElementK o) => o -> m (Maybe T.Text) getDOMHTMLImageElementSizes obj = liftIO $ getObjectPropertyString obj "sizes" setDOMHTMLImageElementSizes :: (MonadIO m, DOMHTMLImageElementK o) => o -> T.Text -> m () -setDOMHTMLImageElementSizes obj val = liftIO $ setObjectPropertyString obj "sizes" val +setDOMHTMLImageElementSizes obj val = liftIO $ setObjectPropertyString obj "sizes" (Just val) constructDOMHTMLImageElementSizes :: T.Text -> IO ([Char], GValue) -constructDOMHTMLImageElementSizes val = constructObjectPropertyString "sizes" val +constructDOMHTMLImageElementSizes val = constructObjectPropertyString "sizes" (Just val) +clearDOMHTMLImageElementSizes :: (MonadIO m, DOMHTMLImageElementK o) => o -> m () +clearDOMHTMLImageElementSizes obj = liftIO $ setObjectPropertyString obj "sizes" (Nothing :: Maybe T.Text) + data DOMHTMLImageElementSizesPropertyInfo instance AttrInfo DOMHTMLImageElementSizesPropertyInfo where - type AttrAllowedOps DOMHTMLImageElementSizesPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrAllowedOps DOMHTMLImageElementSizesPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint DOMHTMLImageElementSizesPropertyInfo = (~) T.Text type AttrBaseTypeConstraint DOMHTMLImageElementSizesPropertyInfo = DOMHTMLImageElementK - type AttrGetType DOMHTMLImageElementSizesPropertyInfo = T.Text + type AttrGetType DOMHTMLImageElementSizesPropertyInfo = (Maybe T.Text) type AttrLabel DOMHTMLImageElementSizesPropertyInfo = "sizes" attrGet _ = getDOMHTMLImageElementSizes attrSet _ = setDOMHTMLImageElementSizes attrConstruct _ = constructDOMHTMLImageElementSizes + attrClear _ = clearDOMHTMLImageElementSizes -- 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,Nothing) -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) +clearDOMHTMLImageElementSrcset :: (MonadIO m, DOMHTMLImageElementK o) => o -> m () +clearDOMHTMLImageElementSrcset obj = liftIO $ setObjectPropertyString obj "srcset" (Nothing :: Maybe T.Text) + data DOMHTMLImageElementSrcsetPropertyInfo instance AttrInfo DOMHTMLImageElementSrcsetPropertyInfo where - type AttrAllowedOps DOMHTMLImageElementSrcsetPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrAllowedOps DOMHTMLImageElementSrcsetPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] 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 _ = clearDOMHTMLImageElementSrcset -- 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", DOMElementChildrenPropertyInfo), '("className", DOMElementClassNamePropertyInfo), '("clientHeight", DOMElementClientHeightPropertyInfo), '("clientLeft", DOMElementClientLeftPropertyInfo), '("clientTop", DOMElementClientTopPropertyInfo), '("clientWidth", DOMElementClientWidthPropertyInfo), '("complete", DOMHTMLImageElementCompletePropertyInfo), '("contentEditable", DOMHTMLElementContentEditablePropertyInfo), '("coreObject", DOMObjectCoreObjectPropertyInfo), '("crossOrigin", DOMHTMLImageElementCrossOriginPropertyInfo), '("currentSrc", DOMHTMLImageElementCurrentSrcPropertyInfo), '("dir", DOMHTMLElementDirPropertyInfo), '("draggable", DOMHTMLElementDraggablePropertyInfo), '("firstChild", DOMNodeFirstChildPropertyInfo), '("firstElementChild", DOMElementFirstElementChildPropertyInfo), '("height", DOMHTMLImageElementHeightPropertyInfo), '("hidden", DOMHTMLElementHiddenPropertyInfo), '("hspace", DOMHTMLImageElementHspacePropertyInfo), '("id", DOMElementIdPropertyInfo), '("innerHtml", DOMElementInnerHtmlPropertyInfo), '("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", DOMElementOuterHtmlPropertyInfo), '("outerText", DOMHTMLElementOuterTextPropertyInfo), '("ownerDocument", DOMNodeOwnerDocumentPropertyInfo), '("parentElement", DOMNodeParentElementPropertyInfo), '("parentNode", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previousElementSibling", DOMElementPreviousElementSiblingPropertyInfo), '("previousSibling", DOMNodePreviousSiblingPropertyInfo), '("scrollHeight", DOMElementScrollHeightPropertyInfo), '("scrollLeft", DOMElementScrollLeftPropertyInfo), '("scrollTop", DOMElementScrollTopPropertyInfo), '("scrollWidth", DOMElementScrollWidthPropertyInfo), '("sizes", DOMHTMLImageElementSizesPropertyInfo), '("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, *)]) +type DOMHTMLImageElementAttributeList = ('[ '("accessKey", DOMHTMLElementAccessKeyPropertyInfo), '("align", DOMHTMLImageElementAlignPropertyInfo), '("alt", DOMHTMLImageElementAltPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("baseUri", DOMNodeBaseUriPropertyInfo), '("border", DOMHTMLImageElementBorderPropertyInfo), '("childElementCount", DOMElementChildElementCountPropertyInfo), '("childNodes", DOMNodeChildNodesPropertyInfo), '("children", DOMElementChildrenPropertyInfo), '("className", DOMElementClassNamePropertyInfo), '("clientHeight", DOMElementClientHeightPropertyInfo), '("clientLeft", DOMElementClientLeftPropertyInfo), '("clientTop", DOMElementClientTopPropertyInfo), '("clientWidth", DOMElementClientWidthPropertyInfo), '("complete", DOMHTMLImageElementCompletePropertyInfo), '("contentEditable", DOMHTMLElementContentEditablePropertyInfo), '("coreObject", DOMObjectCoreObjectPropertyInfo), '("crossOrigin", DOMHTMLImageElementCrossOriginPropertyInfo), '("currentSrc", DOMHTMLImageElementCurrentSrcPropertyInfo), '("dir", DOMHTMLElementDirPropertyInfo), '("draggable", DOMHTMLElementDraggablePropertyInfo), '("firstChild", DOMNodeFirstChildPropertyInfo), '("firstElementChild", DOMElementFirstElementChildPropertyInfo), '("height", DOMHTMLImageElementHeightPropertyInfo), '("hidden", DOMHTMLElementHiddenPropertyInfo), '("hspace", DOMHTMLImageElementHspacePropertyInfo), '("id", DOMElementIdPropertyInfo), '("innerHtml", DOMElementInnerHtmlPropertyInfo), '("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", DOMElementOuterHtmlPropertyInfo), '("outerText", DOMHTMLElementOuterTextPropertyInfo), '("ownerDocument", DOMNodeOwnerDocumentPropertyInfo), '("parentElement", DOMNodeParentElementPropertyInfo), '("parentNode", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previousElementSibling", DOMElementPreviousElementSiblingPropertyInfo), '("previousSibling", DOMNodePreviousSiblingPropertyInfo), '("scrollHeight", DOMElementScrollHeightPropertyInfo), '("scrollLeft", DOMElementScrollLeftPropertyInfo), '("scrollTop", DOMElementScrollTopPropertyInfo), '("scrollWidth", DOMElementScrollWidthPropertyInfo), '("sizes", DOMHTMLImageElementSizesPropertyInfo), '("spellcheck", DOMHTMLElementSpellcheckPropertyInfo), '("src", DOMHTMLImageElementSrcPropertyInfo), '("srcset", DOMHTMLImageElementSrcsetPropertyInfo), '("style", DOMElementStylePropertyInfo), '("tabIndex", DOMHTMLElementTabIndexPropertyInfo), '("tagName", DOMElementTagNamePropertyInfo), '("textContent", DOMNodeTextContentPropertyInfo), '("title", DOMHTMLElementTitlePropertyInfo), '("translate", DOMHTMLElementTranslatePropertyInfo), '("treeRoot", DOMNodeTreeRootPropertyInfo), '("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 + +dOMHTMLImageElementCurrentSrc :: AttrLabelProxy "currentSrc" +dOMHTMLImageElementCurrentSrc = 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 + +dOMHTMLImageElementSizes :: AttrLabelProxy "sizes" +dOMHTMLImageElementSizes = 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, *)]) @@ -1026,7 +1173,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -1056,7 +1203,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -1086,7 +1233,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -1116,7 +1263,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -1144,19 +1291,19 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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' @@ -1164,26 +1311,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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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' @@ -1191,14 +1338,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 "WebKit2WebExtension" "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 @@ -1226,7 +1373,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -1256,7 +1403,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -1286,7 +1433,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -1316,19 +1463,19 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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' @@ -1336,26 +1483,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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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' @@ -1363,14 +1510,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 "WebKit2WebExtension" "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 @@ -1400,7 +1547,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -1430,19 +1577,19 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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' @@ -1450,26 +1597,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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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' @@ -1477,26 +1624,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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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' @@ -1504,26 +1651,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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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' @@ -1531,14 +1678,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 "WebKit2WebExtension" "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 @@ -1569,7 +1716,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -1600,7 +1747,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -1629,22 +1776,22 @@ -- method DOMHTMLImageElement::set_height -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 @@ -1653,27 +1800,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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 @@ -1682,14 +1829,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 "WebKit2WebExtension" "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 @@ -1719,7 +1866,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -1750,7 +1897,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -1781,7 +1928,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -1812,7 +1959,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -1843,7 +1990,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -1872,22 +2019,22 @@ -- method DOMHTMLImageElement::set_vspace -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 @@ -1896,27 +2043,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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 @@ -1925,7 +2072,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/WebKit2WebExtension/Objects/DOMHTMLImageElement.hs-boot b/GI/WebKit2WebExtension/Objects/DOMHTMLImageElement.hs-boot --- a/GI/WebKit2WebExtension/Objects/DOMHTMLImageElement.hs-boot +++ b/GI/WebKit2WebExtension/Objects/DOMHTMLImageElement.hs-boot @@ -1,8 +1,8 @@ module GI.WebKit2WebExtension.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/WebKit2WebExtension/Objects/DOMHTMLInputElement.hs b/GI/WebKit2WebExtension/Objects/DOMHTMLInputElement.hs --- a/GI/WebKit2WebExtension/Objects/DOMHTMLInputElement.hs +++ b/GI/WebKit2WebExtension/Objects/DOMHTMLInputElement.hs @@ -248,6 +248,7 @@ -- ** Accept DOMHTMLInputElementAcceptPropertyInfo , constructDOMHTMLInputElementAccept , + dOMHTMLInputElementAccept , getDOMHTMLInputElementAccept , setDOMHTMLInputElementAccept , @@ -255,6 +256,7 @@ -- ** Align DOMHTMLInputElementAlignPropertyInfo , constructDOMHTMLInputElementAlign , + dOMHTMLInputElementAlign , getDOMHTMLInputElementAlign , setDOMHTMLInputElementAlign , @@ -262,20 +264,25 @@ -- ** Alt DOMHTMLInputElementAltPropertyInfo , constructDOMHTMLInputElementAlt , + dOMHTMLInputElementAlt , getDOMHTMLInputElementAlt , setDOMHTMLInputElementAlt , -- ** Autocapitalize DOMHTMLInputElementAutocapitalizePropertyInfo, + clearDOMHTMLInputElementAutocapitalize , constructDOMHTMLInputElementAutocapitalize, + dOMHTMLInputElementAutocapitalize , getDOMHTMLInputElementAutocapitalize , setDOMHTMLInputElementAutocapitalize , -- ** Autocomplete DOMHTMLInputElementAutocompletePropertyInfo, + clearDOMHTMLInputElementAutocomplete , constructDOMHTMLInputElementAutocomplete, + dOMHTMLInputElementAutocomplete , getDOMHTMLInputElementAutocomplete , setDOMHTMLInputElementAutocomplete , @@ -283,6 +290,7 @@ -- ** Autocorrect DOMHTMLInputElementAutocorrectPropertyInfo, constructDOMHTMLInputElementAutocorrect , + dOMHTMLInputElementAutocorrect , getDOMHTMLInputElementAutocorrect , setDOMHTMLInputElementAutocorrect , @@ -290,6 +298,7 @@ -- ** Autofocus DOMHTMLInputElementAutofocusPropertyInfo, constructDOMHTMLInputElementAutofocus , + dOMHTMLInputElementAutofocus , getDOMHTMLInputElementAutofocus , setDOMHTMLInputElementAutofocus , @@ -297,6 +306,7 @@ -- ** Capture DOMHTMLInputElementCapturePropertyInfo , constructDOMHTMLInputElementCapture , + dOMHTMLInputElementCapture , getDOMHTMLInputElementCapture , setDOMHTMLInputElementCapture , @@ -304,6 +314,7 @@ -- ** Checked DOMHTMLInputElementCheckedPropertyInfo , constructDOMHTMLInputElementChecked , + dOMHTMLInputElementChecked , getDOMHTMLInputElementChecked , setDOMHTMLInputElementChecked , @@ -311,6 +322,7 @@ -- ** DefaultChecked DOMHTMLInputElementDefaultCheckedPropertyInfo, constructDOMHTMLInputElementDefaultChecked, + dOMHTMLInputElementDefaultChecked , getDOMHTMLInputElementDefaultChecked , setDOMHTMLInputElementDefaultChecked , @@ -318,13 +330,16 @@ -- ** DefaultValue DOMHTMLInputElementDefaultValuePropertyInfo, constructDOMHTMLInputElementDefaultValue, + dOMHTMLInputElementDefaultValue , getDOMHTMLInputElementDefaultValue , setDOMHTMLInputElementDefaultValue , -- ** DirName DOMHTMLInputElementDirNamePropertyInfo , + clearDOMHTMLInputElementDirName , constructDOMHTMLInputElementDirName , + dOMHTMLInputElementDirName , getDOMHTMLInputElementDirName , setDOMHTMLInputElementDirName , @@ -332,37 +347,46 @@ -- ** Disabled DOMHTMLInputElementDisabledPropertyInfo , constructDOMHTMLInputElementDisabled , + dOMHTMLInputElementDisabled , getDOMHTMLInputElementDisabled , setDOMHTMLInputElementDisabled , -- ** Files DOMHTMLInputElementFilesPropertyInfo , + dOMHTMLInputElementFiles , getDOMHTMLInputElementFiles , -- ** Form DOMHTMLInputElementFormPropertyInfo , + dOMHTMLInputElementForm , getDOMHTMLInputElementForm , -- ** FormAction DOMHTMLInputElementFormActionPropertyInfo, + clearDOMHTMLInputElementFormAction , constructDOMHTMLInputElementFormAction , + dOMHTMLInputElementFormAction , getDOMHTMLInputElementFormAction , setDOMHTMLInputElementFormAction , -- ** FormEnctype DOMHTMLInputElementFormEnctypePropertyInfo, + clearDOMHTMLInputElementFormEnctype , constructDOMHTMLInputElementFormEnctype , + dOMHTMLInputElementFormEnctype , getDOMHTMLInputElementFormEnctype , setDOMHTMLInputElementFormEnctype , -- ** FormMethod DOMHTMLInputElementFormMethodPropertyInfo, + clearDOMHTMLInputElementFormMethod , constructDOMHTMLInputElementFormMethod , + dOMHTMLInputElementFormMethod , getDOMHTMLInputElementFormMethod , setDOMHTMLInputElementFormMethod , @@ -370,13 +394,16 @@ -- ** FormNoValidate DOMHTMLInputElementFormNoValidatePropertyInfo, constructDOMHTMLInputElementFormNoValidate, + dOMHTMLInputElementFormNoValidate , getDOMHTMLInputElementFormNoValidate , setDOMHTMLInputElementFormNoValidate , -- ** FormTarget DOMHTMLInputElementFormTargetPropertyInfo, + clearDOMHTMLInputElementFormTarget , constructDOMHTMLInputElementFormTarget , + dOMHTMLInputElementFormTarget , getDOMHTMLInputElementFormTarget , setDOMHTMLInputElementFormTarget , @@ -384,6 +411,7 @@ -- ** Height DOMHTMLInputElementHeightPropertyInfo , constructDOMHTMLInputElementHeight , + dOMHTMLInputElementHeight , getDOMHTMLInputElementHeight , setDOMHTMLInputElementHeight , @@ -391,6 +419,7 @@ -- ** Incremental DOMHTMLInputElementIncrementalPropertyInfo, constructDOMHTMLInputElementIncremental , + dOMHTMLInputElementIncremental , getDOMHTMLInputElementIncremental , setDOMHTMLInputElementIncremental , @@ -398,23 +427,28 @@ -- ** Indeterminate DOMHTMLInputElementIndeterminatePropertyInfo, constructDOMHTMLInputElementIndeterminate, + dOMHTMLInputElementIndeterminate , getDOMHTMLInputElementIndeterminate , setDOMHTMLInputElementIndeterminate , -- ** Labels DOMHTMLInputElementLabelsPropertyInfo , + dOMHTMLInputElementLabels , getDOMHTMLInputElementLabels , -- ** List DOMHTMLInputElementListPropertyInfo , + dOMHTMLInputElementList , getDOMHTMLInputElementList , -- ** Max DOMHTMLInputElementMaxPropertyInfo , + clearDOMHTMLInputElementMax , constructDOMHTMLInputElementMax , + dOMHTMLInputElementMax , getDOMHTMLInputElementMax , setDOMHTMLInputElementMax , @@ -422,13 +456,16 @@ -- ** MaxLength DOMHTMLInputElementMaxLengthPropertyInfo, constructDOMHTMLInputElementMaxLength , + dOMHTMLInputElementMaxLength , getDOMHTMLInputElementMaxLength , setDOMHTMLInputElementMaxLength , -- ** Min DOMHTMLInputElementMinPropertyInfo , + clearDOMHTMLInputElementMin , constructDOMHTMLInputElementMin , + dOMHTMLInputElementMin , getDOMHTMLInputElementMin , setDOMHTMLInputElementMin , @@ -436,6 +473,7 @@ -- ** Multiple DOMHTMLInputElementMultiplePropertyInfo , constructDOMHTMLInputElementMultiple , + dOMHTMLInputElementMultiple , getDOMHTMLInputElementMultiple , setDOMHTMLInputElementMultiple , @@ -443,20 +481,25 @@ -- ** Name DOMHTMLInputElementNamePropertyInfo , constructDOMHTMLInputElementName , + dOMHTMLInputElementName , getDOMHTMLInputElementName , setDOMHTMLInputElementName , -- ** Pattern DOMHTMLInputElementPatternPropertyInfo , + clearDOMHTMLInputElementPattern , constructDOMHTMLInputElementPattern , + dOMHTMLInputElementPattern , getDOMHTMLInputElementPattern , setDOMHTMLInputElementPattern , -- ** Placeholder DOMHTMLInputElementPlaceholderPropertyInfo, + clearDOMHTMLInputElementPlaceholder , constructDOMHTMLInputElementPlaceholder , + dOMHTMLInputElementPlaceholder , getDOMHTMLInputElementPlaceholder , setDOMHTMLInputElementPlaceholder , @@ -464,6 +507,7 @@ -- ** ReadOnly DOMHTMLInputElementReadOnlyPropertyInfo , constructDOMHTMLInputElementReadOnly , + dOMHTMLInputElementReadOnly , getDOMHTMLInputElementReadOnly , setDOMHTMLInputElementReadOnly , @@ -471,6 +515,7 @@ -- ** Required DOMHTMLInputElementRequiredPropertyInfo , constructDOMHTMLInputElementRequired , + dOMHTMLInputElementRequired , getDOMHTMLInputElementRequired , setDOMHTMLInputElementRequired , @@ -478,6 +523,7 @@ -- ** Size DOMHTMLInputElementSizePropertyInfo , constructDOMHTMLInputElementSize , + dOMHTMLInputElementSize , getDOMHTMLInputElementSize , setDOMHTMLInputElementSize , @@ -485,20 +531,25 @@ -- ** Src DOMHTMLInputElementSrcPropertyInfo , constructDOMHTMLInputElementSrc , + dOMHTMLInputElementSrc , getDOMHTMLInputElementSrc , setDOMHTMLInputElementSrc , -- ** Step DOMHTMLInputElementStepPropertyInfo , + clearDOMHTMLInputElementStep , constructDOMHTMLInputElementStep , + dOMHTMLInputElementStep , getDOMHTMLInputElementStep , setDOMHTMLInputElementStep , -- ** Type DOMHTMLInputElementTypePropertyInfo , + clearDOMHTMLInputElementType , constructDOMHTMLInputElementType , + dOMHTMLInputElementType , getDOMHTMLInputElementType , setDOMHTMLInputElementType , @@ -506,18 +557,21 @@ -- ** UseMap DOMHTMLInputElementUseMapPropertyInfo , constructDOMHTMLInputElementUseMap , + dOMHTMLInputElementUseMap , getDOMHTMLInputElementUseMap , setDOMHTMLInputElementUseMap , -- ** ValidationMessage DOMHTMLInputElementValidationMessagePropertyInfo, + dOMHTMLInputElementValidationMessage , getDOMHTMLInputElementValidationMessage , -- ** Value DOMHTMLInputElementValuePropertyInfo , constructDOMHTMLInputElementValue , + dOMHTMLInputElementValue , getDOMHTMLInputElementValue , setDOMHTMLInputElementValue , @@ -525,6 +579,7 @@ -- ** ValueAsNumber DOMHTMLInputElementValueAsNumberPropertyInfo, constructDOMHTMLInputElementValueAsNumber, + dOMHTMLInputElementValueAsNumber , getDOMHTMLInputElementValueAsNumber , setDOMHTMLInputElementValueAsNumber , @@ -532,12 +587,14 @@ -- ** Width DOMHTMLInputElementWidthPropertyInfo , constructDOMHTMLInputElementWidth , + dOMHTMLInputElementWidth , getDOMHTMLInputElementWidth , setDOMHTMLInputElementWidth , -- ** WillValidate DOMHTMLInputElementWillValidatePropertyInfo, + dOMHTMLInputElementWillValidate , getDOMHTMLInputElementWillValidate , @@ -545,9 +602,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 @@ -657,8 +714,11 @@ ResolveDOMHTMLInputElementMethod "getDir" o = DOMHTMLElementGetDirMethodInfo ResolveDOMHTMLInputElementMethod "getDisabled" o = DOMHTMLInputElementGetDisabledMethodInfo ResolveDOMHTMLInputElementMethod "getElementsByClassName" o = DOMElementGetElementsByClassNameMethodInfo + ResolveDOMHTMLInputElementMethod "getElementsByClassNameAsHtmlCollection" o = DOMElementGetElementsByClassNameAsHtmlCollectionMethodInfo ResolveDOMHTMLInputElementMethod "getElementsByTagName" o = DOMElementGetElementsByTagNameMethodInfo + ResolveDOMHTMLInputElementMethod "getElementsByTagNameAsHtmlCollection" o = DOMElementGetElementsByTagNameAsHtmlCollectionMethodInfo ResolveDOMHTMLInputElementMethod "getElementsByTagNameNs" o = DOMElementGetElementsByTagNameNsMethodInfo + ResolveDOMHTMLInputElementMethod "getElementsByTagNameNsAsHtmlCollection" o = DOMElementGetElementsByTagNameNsAsHtmlCollectionMethodInfo ResolveDOMHTMLInputElementMethod "getFiles" o = DOMHTMLInputElementGetFilesMethodInfo ResolveDOMHTMLInputElementMethod "getFirstChild" o = DOMNodeGetFirstChildMethodInfo ResolveDOMHTMLInputElementMethod "getFirstElementChild" o = DOMElementGetFirstElementChildMethodInfo @@ -765,126 +825,143 @@ -- 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,Nothing) -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) +clearDOMHTMLInputElementAutocapitalize :: (MonadIO m, DOMHTMLInputElementK o) => o -> m () +clearDOMHTMLInputElementAutocapitalize obj = liftIO $ setObjectPropertyString obj "autocapitalize" (Nothing :: Maybe T.Text) + data DOMHTMLInputElementAutocapitalizePropertyInfo instance AttrInfo DOMHTMLInputElementAutocapitalizePropertyInfo where - type AttrAllowedOps DOMHTMLInputElementAutocapitalizePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrAllowedOps DOMHTMLInputElementAutocapitalizePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] 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 _ = clearDOMHTMLInputElementAutocapitalize -- VVV Prop "autocomplete" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) -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) +clearDOMHTMLInputElementAutocomplete :: (MonadIO m, DOMHTMLInputElementK o) => o -> m () +clearDOMHTMLInputElementAutocomplete obj = liftIO $ setObjectPropertyString obj "autocomplete" (Nothing :: Maybe T.Text) + data DOMHTMLInputElementAutocompletePropertyInfo instance AttrInfo DOMHTMLInputElementAutocompletePropertyInfo where - type AttrAllowedOps DOMHTMLInputElementAutocompletePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrAllowedOps DOMHTMLInputElementAutocompletePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] 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 _ = clearDOMHTMLInputElementAutocomplete -- VVV Prop "autocorrect" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) getDOMHTMLInputElementAutocorrect :: (MonadIO m, DOMHTMLInputElementK o) => o -> m Bool getDOMHTMLInputElementAutocorrect obj = liftIO $ getObjectPropertyBool obj "autocorrect" @@ -905,10 +982,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" @@ -929,10 +1008,12 @@ attrGet _ = getDOMHTMLInputElementAutofocus attrSet _ = setDOMHTMLInputElementAutofocus attrConstruct _ = constructDOMHTMLInputElementAutofocus + attrClear _ = undefined -- VVV Prop "capture" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Nothing) getDOMHTMLInputElementCapture :: (MonadIO m, DOMHTMLInputElementK o) => o -> m Bool getDOMHTMLInputElementCapture obj = liftIO $ getObjectPropertyBool obj "capture" @@ -953,10 +1034,12 @@ 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" @@ -977,10 +1060,12 @@ attrGet _ = getDOMHTMLInputElementChecked attrSet _ = setDOMHTMLInputElementChecked attrConstruct _ = constructDOMHTMLInputElementChecked + attrClear _ = undefined -- VVV Prop "default-checked" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Nothing) getDOMHTMLInputElementDefaultChecked :: (MonadIO m, DOMHTMLInputElementK o) => o -> m Bool getDOMHTMLInputElementDefaultChecked obj = liftIO $ getObjectPropertyBool obj "default-checked" @@ -1001,58 +1086,67 @@ 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,Nothing) -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) +clearDOMHTMLInputElementDirName :: (MonadIO m, DOMHTMLInputElementK o) => o -> m () +clearDOMHTMLInputElementDirName obj = liftIO $ setObjectPropertyString obj "dir-name" (Nothing :: Maybe T.Text) + data DOMHTMLInputElementDirNamePropertyInfo instance AttrInfo DOMHTMLInputElementDirNamePropertyInfo where - type AttrAllowedOps DOMHTMLInputElementDirNamePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrAllowedOps DOMHTMLInputElementDirNamePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] 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 _ = clearDOMHTMLInputElementDirName -- 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" @@ -1073,12 +1167,14 @@ attrGet _ = getDOMHTMLInputElementDisabled attrSet _ = setDOMHTMLInputElementDisabled attrConstruct _ = constructDOMHTMLInputElementDisabled + attrClear _ = undefined -- VVV Prop "files" -- Type: TInterface "WebKit2WebExtension" "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 @@ -1086,22 +1182,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 "WebKit2WebExtension" "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 @@ -1109,82 +1207,99 @@ attrGet _ = getDOMHTMLInputElementForm attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "form-action" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) -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) +clearDOMHTMLInputElementFormAction :: (MonadIO m, DOMHTMLInputElementK o) => o -> m () +clearDOMHTMLInputElementFormAction obj = liftIO $ setObjectPropertyString obj "form-action" (Nothing :: Maybe T.Text) + data DOMHTMLInputElementFormActionPropertyInfo instance AttrInfo DOMHTMLInputElementFormActionPropertyInfo where - type AttrAllowedOps DOMHTMLInputElementFormActionPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrAllowedOps DOMHTMLInputElementFormActionPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] 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 _ = clearDOMHTMLInputElementFormAction -- VVV Prop "form-enctype" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) -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) +clearDOMHTMLInputElementFormEnctype :: (MonadIO m, DOMHTMLInputElementK o) => o -> m () +clearDOMHTMLInputElementFormEnctype obj = liftIO $ setObjectPropertyString obj "form-enctype" (Nothing :: Maybe T.Text) + data DOMHTMLInputElementFormEnctypePropertyInfo instance AttrInfo DOMHTMLInputElementFormEnctypePropertyInfo where - type AttrAllowedOps DOMHTMLInputElementFormEnctypePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrAllowedOps DOMHTMLInputElementFormEnctypePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] 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 _ = clearDOMHTMLInputElementFormEnctype -- VVV Prop "form-method" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) -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) +clearDOMHTMLInputElementFormMethod :: (MonadIO m, DOMHTMLInputElementK o) => o -> m () +clearDOMHTMLInputElementFormMethod obj = liftIO $ setObjectPropertyString obj "form-method" (Nothing :: Maybe T.Text) + data DOMHTMLInputElementFormMethodPropertyInfo instance AttrInfo DOMHTMLInputElementFormMethodPropertyInfo where - type AttrAllowedOps DOMHTMLInputElementFormMethodPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrAllowedOps DOMHTMLInputElementFormMethodPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] 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 _ = clearDOMHTMLInputElementFormMethod -- VVV Prop "form-no-validate" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) getDOMHTMLInputElementFormNoValidate :: (MonadIO m, DOMHTMLInputElementK o) => o -> m Bool getDOMHTMLInputElementFormNoValidate obj = liftIO $ getObjectPropertyBool obj "form-no-validate" @@ -1205,58 +1320,67 @@ attrGet _ = getDOMHTMLInputElementFormNoValidate attrSet _ = setDOMHTMLInputElementFormNoValidate attrConstruct _ = constructDOMHTMLInputElementFormNoValidate + attrClear _ = undefined -- VVV Prop "form-target" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) -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) +clearDOMHTMLInputElementFormTarget :: (MonadIO m, DOMHTMLInputElementK o) => o -> m () +clearDOMHTMLInputElementFormTarget obj = liftIO $ setObjectPropertyString obj "form-target" (Nothing :: Maybe T.Text) + data DOMHTMLInputElementFormTargetPropertyInfo instance AttrInfo DOMHTMLInputElementFormTargetPropertyInfo where - type AttrAllowedOps DOMHTMLInputElementFormTargetPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrAllowedOps DOMHTMLInputElementFormTargetPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] 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 _ = clearDOMHTMLInputElementFormTarget -- 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: (Nothing,Nothing) getDOMHTMLInputElementIncremental :: (MonadIO m, DOMHTMLInputElementK o) => o -> m Bool getDOMHTMLInputElementIncremental obj = liftIO $ getObjectPropertyBool obj "incremental" @@ -1277,10 +1401,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" @@ -1301,118 +1427,136 @@ attrGet _ = getDOMHTMLInputElementIndeterminate attrSet _ = setDOMHTMLInputElementIndeterminate attrConstruct _ = constructDOMHTMLInputElementIndeterminate + attrClear _ = undefined -- VVV Prop "labels" -- Type: TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "DOMHTMLElement" -- Flags: [PropertyReadable] + -- Nullable: (Nothing,Nothing) -getDOMHTMLInputElementList :: (MonadIO m, DOMHTMLInputElementK o) => o -> m DOMHTMLElement +getDOMHTMLInputElementList :: (MonadIO m, DOMHTMLInputElementK o) => o -> m (Maybe DOMHTMLElement) getDOMHTMLInputElementList obj = liftIO $ 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 + type AttrGetType DOMHTMLInputElementListPropertyInfo = (Maybe DOMHTMLElement) type AttrLabel DOMHTMLInputElementListPropertyInfo = "list" attrGet _ = getDOMHTMLInputElementList attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "max" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) -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) +clearDOMHTMLInputElementMax :: (MonadIO m, DOMHTMLInputElementK o) => o -> m () +clearDOMHTMLInputElementMax obj = liftIO $ setObjectPropertyString obj "max" (Nothing :: Maybe T.Text) + data DOMHTMLInputElementMaxPropertyInfo instance AttrInfo DOMHTMLInputElementMaxPropertyInfo where - type AttrAllowedOps DOMHTMLInputElementMaxPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrAllowedOps DOMHTMLInputElementMaxPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] 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 _ = clearDOMHTMLInputElementMax -- 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,Nothing) -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) +clearDOMHTMLInputElementMin :: (MonadIO m, DOMHTMLInputElementK o) => o -> m () +clearDOMHTMLInputElementMin obj = liftIO $ setObjectPropertyString obj "min" (Nothing :: Maybe T.Text) + data DOMHTMLInputElementMinPropertyInfo instance AttrInfo DOMHTMLInputElementMinPropertyInfo where - type AttrAllowedOps DOMHTMLInputElementMinPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrAllowedOps DOMHTMLInputElementMinPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] 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 _ = clearDOMHTMLInputElementMin -- 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" @@ -1433,82 +1577,96 @@ 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,Nothing) -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) +clearDOMHTMLInputElementPattern :: (MonadIO m, DOMHTMLInputElementK o) => o -> m () +clearDOMHTMLInputElementPattern obj = liftIO $ setObjectPropertyString obj "pattern" (Nothing :: Maybe T.Text) + data DOMHTMLInputElementPatternPropertyInfo instance AttrInfo DOMHTMLInputElementPatternPropertyInfo where - type AttrAllowedOps DOMHTMLInputElementPatternPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrAllowedOps DOMHTMLInputElementPatternPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] 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 _ = clearDOMHTMLInputElementPattern -- VVV Prop "placeholder" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) -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) +clearDOMHTMLInputElementPlaceholder :: (MonadIO m, DOMHTMLInputElementK o) => o -> m () +clearDOMHTMLInputElementPlaceholder obj = liftIO $ setObjectPropertyString obj "placeholder" (Nothing :: Maybe T.Text) + data DOMHTMLInputElementPlaceholderPropertyInfo instance AttrInfo DOMHTMLInputElementPlaceholderPropertyInfo where - type AttrAllowedOps DOMHTMLInputElementPlaceholderPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrAllowedOps DOMHTMLInputElementPlaceholderPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] 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 _ = clearDOMHTMLInputElementPlaceholder -- VVV Prop "read-only" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Just False) getDOMHTMLInputElementReadOnly :: (MonadIO m, DOMHTMLInputElementK o) => o -> m Bool getDOMHTMLInputElementReadOnly obj = liftIO $ getObjectPropertyBool obj "read-only" @@ -1529,10 +1687,12 @@ attrGet _ = getDOMHTMLInputElementReadOnly attrSet _ = setDOMHTMLInputElementReadOnly attrConstruct _ = constructDOMHTMLInputElementReadOnly + attrClear _ = undefined -- VVV Prop "required" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) getDOMHTMLInputElementRequired :: (MonadIO m, DOMHTMLInputElementK o) => o -> m Bool getDOMHTMLInputElementRequired obj = liftIO $ getObjectPropertyBool obj "required" @@ -1553,172 +1713,194 @@ 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,Nothing) -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) +clearDOMHTMLInputElementStep :: (MonadIO m, DOMHTMLInputElementK o) => o -> m () +clearDOMHTMLInputElementStep obj = liftIO $ setObjectPropertyString obj "step" (Nothing :: Maybe T.Text) + data DOMHTMLInputElementStepPropertyInfo instance AttrInfo DOMHTMLInputElementStepPropertyInfo where - type AttrAllowedOps DOMHTMLInputElementStepPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrAllowedOps DOMHTMLInputElementStepPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] 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 _ = clearDOMHTMLInputElementStep -- 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 "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: (Nothing,Nothing) getDOMHTMLInputElementValueAsNumber :: (MonadIO m, DOMHTMLInputElementK o) => o -> m Double getDOMHTMLInputElementValueAsNumber obj = liftIO $ getObjectPropertyDouble obj "value-as-number" @@ -1739,34 +1921,38 @@ attrGet _ = getDOMHTMLInputElementValueAsNumber attrSet _ = setDOMHTMLInputElementValueAsNumber attrConstruct _ = constructDOMHTMLInputElementValueAsNumber + 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" @@ -1781,10 +1967,143 @@ 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", DOMElementChildrenPropertyInfo), '("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", DOMElementInnerHtmlPropertyInfo), '("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", DOMElementOuterHtmlPropertyInfo), '("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), '("value", DOMHTMLInputElementValuePropertyInfo), '("valueAsNumber", DOMHTMLInputElementValueAsNumberPropertyInfo), '("webkitRegionOverset", DOMElementWebkitRegionOversetPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo), '("width", DOMHTMLInputElementWidthPropertyInfo), '("willValidate", DOMHTMLInputElementWillValidatePropertyInfo)] :: [(Symbol, *)]) +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", DOMElementChildrenPropertyInfo), '("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", DOMElementInnerHtmlPropertyInfo), '("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", DOMElementOuterHtmlPropertyInfo), '("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), '("treeRoot", DOMNodeTreeRootPropertyInfo), '("type", DOMHTMLInputElementTypePropertyInfo), '("useMap", DOMHTMLInputElementUseMapPropertyInfo), '("validationMessage", DOMHTMLInputElementValidationMessagePropertyInfo), '("value", DOMHTMLInputElementValuePropertyInfo), '("valueAsNumber", DOMHTMLInputElementValueAsNumberPropertyInfo), '("webkitRegionOverset", DOMElementWebkitRegionOversetPropertyInfo), '("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 + +dOMHTMLInputElementValue :: AttrLabelProxy "value" +dOMHTMLInputElementValue = AttrLabelProxy + +dOMHTMLInputElementValueAsNumber :: AttrLabelProxy "valueAsNumber" +dOMHTMLInputElementValueAsNumber = AttrLabelProxy + +dOMHTMLInputElementWidth :: AttrLabelProxy "width" +dOMHTMLInputElementWidth = AttrLabelProxy + +dOMHTMLInputElementWillValidate :: AttrLabelProxy "willValidate" +dOMHTMLInputElementWillValidate = AttrLabelProxy + type instance SignalList DOMHTMLInputElement = DOMHTMLInputElementSignalList type DOMHTMLInputElementSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) @@ -1792,7 +2111,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -1822,7 +2141,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -1852,7 +2171,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -1882,7 +2201,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -1910,7 +2229,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -1938,7 +2257,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -1966,7 +2285,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -1994,7 +2313,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -2024,7 +2343,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -2052,7 +2371,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit2WebExtension" "DOMFileList" +-- returnType : Just (TInterface "WebKit2WebExtension" "DOMFileList") -- throws : False -- Skip return : False @@ -2081,7 +2400,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit2WebExtension" "DOMHTMLFormElement" +-- returnType : Just (TInterface "WebKit2WebExtension" "DOMHTMLFormElement") -- throws : False -- Skip return : False @@ -2110,19 +2429,19 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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' @@ -2130,14 +2449,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_indeterminate -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -2165,7 +2484,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -2195,19 +2514,19 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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' @@ -2215,14 +2534,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_multiple -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -2250,7 +2569,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -2280,19 +2599,19 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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' @@ -2300,14 +2619,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 "WebKit2WebExtension" "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 @@ -2337,7 +2656,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -2367,7 +2686,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -2397,19 +2716,19 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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' @@ -2417,14 +2736,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 "WebKit2WebExtension" "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 @@ -2452,7 +2771,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -2480,7 +2799,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -2507,7 +2826,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -2538,7 +2857,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -2569,7 +2888,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -2600,7 +2919,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -2630,7 +2949,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -2660,7 +2979,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -2691,7 +3010,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -2721,7 +3040,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TInterface "WebKit2WebExtension" "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 @@ -2750,22 +3069,22 @@ -- method DOMHTMLInputElement::set_height -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 @@ -2774,14 +3093,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_indeterminate -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -2811,7 +3130,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -2840,15 +3159,15 @@ -- method DOMHTMLInputElement::set_max_length -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "DOMHTMLInputElement" - Int64 -> -- value : TBasicType TInt64 + CLong -> -- value : TBasicType TLong Ptr (Ptr GError) -> -- error IO () @@ -2856,7 +3175,7 @@ dOMHTMLInputElementSetMaxLength :: (MonadIO m, DOMHTMLInputElementK a) => a -- _obj - -> Int64 -- value + -> CLong -- value -> m () -- result dOMHTMLInputElementSetMaxLength _obj value = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj @@ -2869,14 +3188,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_multiple -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -2906,7 +3225,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -2937,7 +3256,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -2965,15 +3284,15 @@ -- method DOMHTMLInputElement::set_size -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "DOMHTMLInputElement" - Word64 -> -- value : TBasicType TUInt64 + CULong -> -- value : TBasicType TULong Ptr (Ptr GError) -> -- error IO () @@ -2981,7 +3300,7 @@ dOMHTMLInputElementSetSize :: (MonadIO m, DOMHTMLInputElementK a) => a -- _obj - -> Word64 -- value + -> CULong -- value -> m () -- result dOMHTMLInputElementSetSize _obj value = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj @@ -2994,14 +3313,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 "WebKit2WebExtension" "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 @@ -3032,7 +3351,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -3063,7 +3382,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -3092,22 +3411,22 @@ -- method DOMHTMLInputElement::set_width -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 @@ -3116,7 +3435,7 @@ 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 diff --git a/GI/WebKit2WebExtension/Objects/DOMHTMLInputElement.hs-boot b/GI/WebKit2WebExtension/Objects/DOMHTMLInputElement.hs-boot --- a/GI/WebKit2WebExtension/Objects/DOMHTMLInputElement.hs-boot +++ b/GI/WebKit2WebExtension/Objects/DOMHTMLInputElement.hs-boot @@ -1,8 +1,8 @@ module GI.WebKit2WebExtension.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/WebKit2WebExtension/Objects/DOMHTMLLIElement.hs b/GI/WebKit2WebExtension/Objects/DOMHTMLLIElement.hs --- a/GI/WebKit2WebExtension/Objects/DOMHTMLLIElement.hs +++ b/GI/WebKit2WebExtension/Objects/DOMHTMLLIElement.hs @@ -42,7 +42,9 @@ -- * Properties -- ** Type DOMHTMLLIElementTypePropertyInfo , + clearDOMHTMLLIElementType , constructDOMHTMLLIElementType , + dOMHTMLLIElementType , getDOMHTMLLIElementType , setDOMHTMLLIElementType , @@ -50,6 +52,7 @@ -- ** Value DOMHTMLLIElementValuePropertyInfo , constructDOMHTMLLIElementValue , + dOMHTMLLIElementValue , getDOMHTMLLIElementValue , setDOMHTMLLIElementValue , @@ -58,9 +61,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 @@ -159,8 +162,11 @@ ResolveDOMHTMLLIElementMethod "getData" o = GObject.ObjectGetDataMethodInfo ResolveDOMHTMLLIElementMethod "getDir" o = DOMHTMLElementGetDirMethodInfo ResolveDOMHTMLLIElementMethod "getElementsByClassName" o = DOMElementGetElementsByClassNameMethodInfo + ResolveDOMHTMLLIElementMethod "getElementsByClassNameAsHtmlCollection" o = DOMElementGetElementsByClassNameAsHtmlCollectionMethodInfo ResolveDOMHTMLLIElementMethod "getElementsByTagName" o = DOMElementGetElementsByTagNameMethodInfo + ResolveDOMHTMLLIElementMethod "getElementsByTagNameAsHtmlCollection" o = DOMElementGetElementsByTagNameAsHtmlCollectionMethodInfo ResolveDOMHTMLLIElementMethod "getElementsByTagNameNs" o = DOMElementGetElementsByTagNameNsMethodInfo + ResolveDOMHTMLLIElementMethod "getElementsByTagNameNsAsHtmlCollection" o = DOMElementGetElementsByTagNameNsAsHtmlCollectionMethodInfo ResolveDOMHTMLLIElementMethod "getFirstChild" o = DOMNodeGetFirstChildMethodInfo ResolveDOMHTMLLIElementMethod "getFirstElementChild" o = DOMElementGetFirstElementChildMethodInfo ResolveDOMHTMLLIElementMethod "getId" o = DOMElementGetIdMethodInfo @@ -237,54 +243,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", DOMElementChildrenPropertyInfo), '("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", DOMElementInnerHtmlPropertyInfo), '("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", DOMElementOuterHtmlPropertyInfo), '("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, *)]) +type DOMHTMLLIElementAttributeList = ('[ '("accessKey", DOMHTMLElementAccessKeyPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("baseUri", DOMNodeBaseUriPropertyInfo), '("childElementCount", DOMElementChildElementCountPropertyInfo), '("childNodes", DOMNodeChildNodesPropertyInfo), '("children", DOMElementChildrenPropertyInfo), '("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", DOMElementInnerHtmlPropertyInfo), '("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", DOMElementOuterHtmlPropertyInfo), '("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), '("treeRoot", DOMNodeTreeRootPropertyInfo), '("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, *)]) @@ -292,7 +311,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLLIElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -322,19 +341,19 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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_html_li_element_get_value" webkit_dom_html_li_element_get_value :: Ptr DOMHTMLLIElement -> -- _obj : TInterface "WebKit2WebExtension" "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_html_li_element_get_value _obj' @@ -342,14 +361,14 @@ 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_type_attr -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLLIElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -378,22 +397,22 @@ -- method DOMHTMLLIElement::set_value -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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_html_li_element_set_value" webkit_dom_html_li_element_set_value :: Ptr DOMHTMLLIElement -> -- _obj : TInterface "WebKit2WebExtension" "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 @@ -402,7 +421,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/WebKit2WebExtension/Objects/DOMHTMLLIElement.hs-boot b/GI/WebKit2WebExtension/Objects/DOMHTMLLIElement.hs-boot --- a/GI/WebKit2WebExtension/Objects/DOMHTMLLIElement.hs-boot +++ b/GI/WebKit2WebExtension/Objects/DOMHTMLLIElement.hs-boot @@ -1,8 +1,8 @@ module GI.WebKit2WebExtension.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/WebKit2WebExtension/Objects/DOMHTMLLabelElement.hs b/GI/WebKit2WebExtension/Objects/DOMHTMLLabelElement.hs --- a/GI/WebKit2WebExtension/Objects/DOMHTMLLabelElement.hs +++ b/GI/WebKit2WebExtension/Objects/DOMHTMLLabelElement.hs @@ -37,17 +37,20 @@ -- * Properties -- ** Control DOMHTMLLabelElementControlPropertyInfo , + dOMHTMLLabelElementControl , getDOMHTMLLabelElementControl , -- ** Form DOMHTMLLabelElementFormPropertyInfo , + dOMHTMLLabelElementForm , getDOMHTMLLabelElementForm , -- ** HtmlFor DOMHTMLLabelElementHtmlForPropertyInfo , constructDOMHTMLLabelElementHtmlFor , + dOMHTMLLabelElementHtmlFor , getDOMHTMLLabelElementHtmlFor , setDOMHTMLLabelElementHtmlFor , @@ -56,9 +59,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,8 +160,11 @@ ResolveDOMHTMLLabelElementMethod "getData" o = GObject.ObjectGetDataMethodInfo ResolveDOMHTMLLabelElementMethod "getDir" o = DOMHTMLElementGetDirMethodInfo ResolveDOMHTMLLabelElementMethod "getElementsByClassName" o = DOMElementGetElementsByClassNameMethodInfo + ResolveDOMHTMLLabelElementMethod "getElementsByClassNameAsHtmlCollection" o = DOMElementGetElementsByClassNameAsHtmlCollectionMethodInfo ResolveDOMHTMLLabelElementMethod "getElementsByTagName" o = DOMElementGetElementsByTagNameMethodInfo + ResolveDOMHTMLLabelElementMethod "getElementsByTagNameAsHtmlCollection" o = DOMElementGetElementsByTagNameAsHtmlCollectionMethodInfo ResolveDOMHTMLLabelElementMethod "getElementsByTagNameNs" o = DOMElementGetElementsByTagNameNsMethodInfo + ResolveDOMHTMLLabelElementMethod "getElementsByTagNameNsAsHtmlCollection" o = DOMElementGetElementsByTagNameNsAsHtmlCollectionMethodInfo ResolveDOMHTMLLabelElementMethod "getFirstChild" o = DOMNodeGetFirstChildMethodInfo ResolveDOMHTMLLabelElementMethod "getFirstElementChild" o = DOMElementGetFirstElementChildMethodInfo ResolveDOMHTMLLabelElementMethod "getForm" o = DOMHTMLLabelElementGetFormMethodInfo @@ -234,31 +240,34 @@ -- VVV Prop "control" -- Type: TInterface "WebKit2WebExtension" "DOMHTMLElement" -- Flags: [PropertyReadable] + -- Nullable: (Nothing,Nothing) -getDOMHTMLLabelElementControl :: (MonadIO m, DOMHTMLLabelElementK o) => o -> m DOMHTMLElement +getDOMHTMLLabelElementControl :: (MonadIO m, DOMHTMLLabelElementK o) => o -> m (Maybe DOMHTMLElement) getDOMHTMLLabelElementControl obj = liftIO $ 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 + type AttrGetType DOMHTMLLabelElementControlPropertyInfo = (Maybe DOMHTMLElement) type AttrLabel DOMHTMLLabelElementControlPropertyInfo = "control" attrGet _ = getDOMHTMLLabelElementControl attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "form" -- Type: TInterface "WebKit2WebExtension" "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 @@ -266,34 +275,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", DOMElementChildrenPropertyInfo), '("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", DOMElementInnerHtmlPropertyInfo), '("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", DOMElementOuterHtmlPropertyInfo), '("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, *)]) +type DOMHTMLLabelElementAttributeList = ('[ '("accessKey", DOMHTMLElementAccessKeyPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("baseUri", DOMNodeBaseUriPropertyInfo), '("childElementCount", DOMElementChildElementCountPropertyInfo), '("childNodes", DOMNodeChildNodesPropertyInfo), '("children", DOMElementChildrenPropertyInfo), '("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", DOMElementInnerHtmlPropertyInfo), '("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", DOMElementOuterHtmlPropertyInfo), '("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), '("treeRoot", DOMNodeTreeRootPropertyInfo), '("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, *)]) @@ -301,7 +322,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLLabelElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit2WebExtension" "DOMHTMLFormElement" +-- returnType : Just (TInterface "WebKit2WebExtension" "DOMHTMLFormElement") -- throws : False -- Skip return : False @@ -330,7 +351,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -360,7 +381,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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/WebKit2WebExtension/Objects/DOMHTMLLabelElement.hs-boot b/GI/WebKit2WebExtension/Objects/DOMHTMLLabelElement.hs-boot --- a/GI/WebKit2WebExtension/Objects/DOMHTMLLabelElement.hs-boot +++ b/GI/WebKit2WebExtension/Objects/DOMHTMLLabelElement.hs-boot @@ -1,8 +1,8 @@ module GI.WebKit2WebExtension.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/WebKit2WebExtension/Objects/DOMHTMLLegendElement.hs b/GI/WebKit2WebExtension/Objects/DOMHTMLLegendElement.hs --- a/GI/WebKit2WebExtension/Objects/DOMHTMLLegendElement.hs +++ b/GI/WebKit2WebExtension/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 @@ -153,8 +155,11 @@ ResolveDOMHTMLLegendElementMethod "getData" o = GObject.ObjectGetDataMethodInfo ResolveDOMHTMLLegendElementMethod "getDir" o = DOMHTMLElementGetDirMethodInfo ResolveDOMHTMLLegendElementMethod "getElementsByClassName" o = DOMElementGetElementsByClassNameMethodInfo + ResolveDOMHTMLLegendElementMethod "getElementsByClassNameAsHtmlCollection" o = DOMElementGetElementsByClassNameAsHtmlCollectionMethodInfo ResolveDOMHTMLLegendElementMethod "getElementsByTagName" o = DOMElementGetElementsByTagNameMethodInfo + ResolveDOMHTMLLegendElementMethod "getElementsByTagNameAsHtmlCollection" o = DOMElementGetElementsByTagNameAsHtmlCollectionMethodInfo ResolveDOMHTMLLegendElementMethod "getElementsByTagNameNs" o = DOMElementGetElementsByTagNameNsMethodInfo + ResolveDOMHTMLLegendElementMethod "getElementsByTagNameNsAsHtmlCollection" o = DOMElementGetElementsByTagNameNsAsHtmlCollectionMethodInfo ResolveDOMHTMLLegendElementMethod "getFirstChild" o = DOMNodeGetFirstChildMethodInfo ResolveDOMHTMLLegendElementMethod "getFirstElementChild" o = DOMElementGetFirstElementChildMethodInfo ResolveDOMHTMLLegendElementMethod "getForm" o = DOMHTMLLegendElementGetFormMethodInfo @@ -229,37 +234,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 "WebKit2WebExtension" "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 @@ -267,10 +275,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", DOMElementChildrenPropertyInfo), '("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", DOMElementInnerHtmlPropertyInfo), '("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", DOMElementOuterHtmlPropertyInfo), '("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, *)]) +type DOMHTMLLegendElementAttributeList = ('[ '("accessKey", DOMHTMLElementAccessKeyPropertyInfo), '("align", DOMHTMLLegendElementAlignPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("baseUri", DOMNodeBaseUriPropertyInfo), '("childElementCount", DOMElementChildElementCountPropertyInfo), '("childNodes", DOMNodeChildNodesPropertyInfo), '("children", DOMElementChildrenPropertyInfo), '("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", DOMElementInnerHtmlPropertyInfo), '("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", DOMElementOuterHtmlPropertyInfo), '("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), '("treeRoot", DOMNodeTreeRootPropertyInfo), '("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, *)]) @@ -278,7 +293,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -308,7 +323,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLLegendElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit2WebExtension" "DOMHTMLFormElement" +-- returnType : Just (TInterface "WebKit2WebExtension" "DOMHTMLFormElement") -- throws : False -- Skip return : False @@ -337,7 +352,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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/WebKit2WebExtension/Objects/DOMHTMLLegendElement.hs-boot b/GI/WebKit2WebExtension/Objects/DOMHTMLLegendElement.hs-boot --- a/GI/WebKit2WebExtension/Objects/DOMHTMLLegendElement.hs-boot +++ b/GI/WebKit2WebExtension/Objects/DOMHTMLLegendElement.hs-boot @@ -1,8 +1,8 @@ module GI.WebKit2WebExtension.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/WebKit2WebExtension/Objects/DOMHTMLLinkElement.hs b/GI/WebKit2WebExtension/Objects/DOMHTMLLinkElement.hs --- a/GI/WebKit2WebExtension/Objects/DOMHTMLLinkElement.hs +++ b/GI/WebKit2WebExtension/Objects/DOMHTMLLinkElement.hs @@ -118,6 +118,7 @@ -- ** Charset DOMHTMLLinkElementCharsetPropertyInfo , constructDOMHTMLLinkElementCharset , + dOMHTMLLinkElementCharset , getDOMHTMLLinkElementCharset , setDOMHTMLLinkElementCharset , @@ -125,6 +126,7 @@ -- ** Disabled DOMHTMLLinkElementDisabledPropertyInfo , constructDOMHTMLLinkElementDisabled , + dOMHTMLLinkElementDisabled , getDOMHTMLLinkElementDisabled , setDOMHTMLLinkElementDisabled , @@ -132,6 +134,7 @@ -- ** Href DOMHTMLLinkElementHrefPropertyInfo , constructDOMHTMLLinkElementHref , + dOMHTMLLinkElementHref , getDOMHTMLLinkElementHref , setDOMHTMLLinkElementHref , @@ -139,6 +142,7 @@ -- ** Hreflang DOMHTMLLinkElementHreflangPropertyInfo , constructDOMHTMLLinkElementHreflang , + dOMHTMLLinkElementHreflang , getDOMHTMLLinkElementHreflang , setDOMHTMLLinkElementHreflang , @@ -146,6 +150,7 @@ -- ** Media DOMHTMLLinkElementMediaPropertyInfo , constructDOMHTMLLinkElementMedia , + dOMHTMLLinkElementMedia , getDOMHTMLLinkElementMedia , setDOMHTMLLinkElementMedia , @@ -153,6 +158,7 @@ -- ** Rel DOMHTMLLinkElementRelPropertyInfo , constructDOMHTMLLinkElementRel , + dOMHTMLLinkElementRel , getDOMHTMLLinkElementRel , setDOMHTMLLinkElementRel , @@ -160,25 +166,30 @@ -- ** Rev DOMHTMLLinkElementRevPropertyInfo , constructDOMHTMLLinkElementRev , + dOMHTMLLinkElementRev , getDOMHTMLLinkElementRev , setDOMHTMLLinkElementRev , -- ** Sheet DOMHTMLLinkElementSheetPropertyInfo , + dOMHTMLLinkElementSheet , getDOMHTMLLinkElementSheet , -- ** Target DOMHTMLLinkElementTargetPropertyInfo , constructDOMHTMLLinkElementTarget , + dOMHTMLLinkElementTarget , getDOMHTMLLinkElementTarget , setDOMHTMLLinkElementTarget , -- ** Type DOMHTMLLinkElementTypePropertyInfo , + clearDOMHTMLLinkElementType , constructDOMHTMLLinkElementType , + dOMHTMLLinkElementType , getDOMHTMLLinkElementType , setDOMHTMLLinkElementType , @@ -187,9 +198,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 @@ -290,8 +301,11 @@ ResolveDOMHTMLLinkElementMethod "getDir" o = DOMHTMLElementGetDirMethodInfo ResolveDOMHTMLLinkElementMethod "getDisabled" o = DOMHTMLLinkElementGetDisabledMethodInfo ResolveDOMHTMLLinkElementMethod "getElementsByClassName" o = DOMElementGetElementsByClassNameMethodInfo + ResolveDOMHTMLLinkElementMethod "getElementsByClassNameAsHtmlCollection" o = DOMElementGetElementsByClassNameAsHtmlCollectionMethodInfo ResolveDOMHTMLLinkElementMethod "getElementsByTagName" o = DOMElementGetElementsByTagNameMethodInfo + ResolveDOMHTMLLinkElementMethod "getElementsByTagNameAsHtmlCollection" o = DOMElementGetElementsByTagNameAsHtmlCollectionMethodInfo ResolveDOMHTMLLinkElementMethod "getElementsByTagNameNs" o = DOMElementGetElementsByTagNameNsMethodInfo + ResolveDOMHTMLLinkElementMethod "getElementsByTagNameNsAsHtmlCollection" o = DOMElementGetElementsByTagNameNsAsHtmlCollectionMethodInfo ResolveDOMHTMLLinkElementMethod "getFirstChild" o = DOMNodeGetFirstChildMethodInfo ResolveDOMHTMLLinkElementMethod "getFirstElementChild" o = DOMElementGetFirstElementChildMethodInfo ResolveDOMHTMLLinkElementMethod "getHref" o = DOMHTMLLinkElementGetHrefMethodInfo @@ -381,30 +395,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" @@ -425,196 +442,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 "WebKit2WebExtension" "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", DOMElementChildrenPropertyInfo), '("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", DOMElementInnerHtmlPropertyInfo), '("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", DOMElementOuterHtmlPropertyInfo), '("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, *)]) +type DOMHTMLLinkElementAttributeList = ('[ '("accessKey", DOMHTMLElementAccessKeyPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("baseUri", DOMNodeBaseUriPropertyInfo), '("charset", DOMHTMLLinkElementCharsetPropertyInfo), '("childElementCount", DOMElementChildElementCountPropertyInfo), '("childNodes", DOMNodeChildNodesPropertyInfo), '("children", DOMElementChildrenPropertyInfo), '("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", DOMElementInnerHtmlPropertyInfo), '("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", DOMElementOuterHtmlPropertyInfo), '("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), '("treeRoot", DOMNodeTreeRootPropertyInfo), '("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, *)]) @@ -622,7 +689,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -652,7 +719,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -680,7 +747,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -710,7 +777,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -740,7 +807,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -770,7 +837,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -800,7 +867,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -830,7 +897,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLLinkElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit2WebExtension" "DOMStyleSheet" +-- returnType : Just (TInterface "WebKit2WebExtension" "DOMStyleSheet") -- throws : False -- Skip return : False @@ -859,7 +926,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -889,7 +956,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -919,7 +986,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -950,7 +1017,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -980,7 +1047,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -1011,7 +1078,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -1042,7 +1109,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -1073,7 +1140,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -1104,7 +1171,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -1135,7 +1202,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -1166,7 +1233,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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/WebKit2WebExtension/Objects/DOMHTMLLinkElement.hs-boot b/GI/WebKit2WebExtension/Objects/DOMHTMLLinkElement.hs-boot --- a/GI/WebKit2WebExtension/Objects/DOMHTMLLinkElement.hs-boot +++ b/GI/WebKit2WebExtension/Objects/DOMHTMLLinkElement.hs-boot @@ -1,8 +1,8 @@ module GI.WebKit2WebExtension.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/WebKit2WebExtension/Objects/DOMHTMLMapElement.hs b/GI/WebKit2WebExtension/Objects/DOMHTMLMapElement.hs --- a/GI/WebKit2WebExtension/Objects/DOMHTMLMapElement.hs +++ b/GI/WebKit2WebExtension/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 @@ -153,8 +155,11 @@ ResolveDOMHTMLMapElementMethod "getData" o = GObject.ObjectGetDataMethodInfo ResolveDOMHTMLMapElementMethod "getDir" o = DOMHTMLElementGetDirMethodInfo ResolveDOMHTMLMapElementMethod "getElementsByClassName" o = DOMElementGetElementsByClassNameMethodInfo + ResolveDOMHTMLMapElementMethod "getElementsByClassNameAsHtmlCollection" o = DOMElementGetElementsByClassNameAsHtmlCollectionMethodInfo ResolveDOMHTMLMapElementMethod "getElementsByTagName" o = DOMElementGetElementsByTagNameMethodInfo + ResolveDOMHTMLMapElementMethod "getElementsByTagNameAsHtmlCollection" o = DOMElementGetElementsByTagNameAsHtmlCollectionMethodInfo ResolveDOMHTMLMapElementMethod "getElementsByTagNameNs" o = DOMElementGetElementsByTagNameNsMethodInfo + ResolveDOMHTMLMapElementMethod "getElementsByTagNameNsAsHtmlCollection" o = DOMElementGetElementsByTagNameNsAsHtmlCollectionMethodInfo ResolveDOMHTMLMapElementMethod "getFirstChild" o = DOMNodeGetFirstChildMethodInfo ResolveDOMHTMLMapElementMethod "getFirstElementChild" o = DOMElementGetFirstElementChildMethodInfo ResolveDOMHTMLMapElementMethod "getId" o = DOMElementGetIdMethodInfo @@ -229,48 +234,58 @@ -- VVV Prop "areas" -- Type: TInterface "WebKit2WebExtension" "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", DOMElementChildrenPropertyInfo), '("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", DOMElementInnerHtmlPropertyInfo), '("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", DOMElementOuterHtmlPropertyInfo), '("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, *)]) +type DOMHTMLMapElementAttributeList = ('[ '("accessKey", DOMHTMLElementAccessKeyPropertyInfo), '("areas", DOMHTMLMapElementAreasPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("baseUri", DOMNodeBaseUriPropertyInfo), '("childElementCount", DOMElementChildElementCountPropertyInfo), '("childNodes", DOMNodeChildNodesPropertyInfo), '("children", DOMElementChildrenPropertyInfo), '("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", DOMElementInnerHtmlPropertyInfo), '("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", DOMElementOuterHtmlPropertyInfo), '("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), '("treeRoot", DOMNodeTreeRootPropertyInfo), '("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, *)]) @@ -278,7 +293,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLMapElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit2WebExtension" "DOMHTMLCollection" +-- returnType : Just (TInterface "WebKit2WebExtension" "DOMHTMLCollection") -- throws : False -- Skip return : False @@ -307,7 +322,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -337,7 +352,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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/WebKit2WebExtension/Objects/DOMHTMLMapElement.hs-boot b/GI/WebKit2WebExtension/Objects/DOMHTMLMapElement.hs-boot --- a/GI/WebKit2WebExtension/Objects/DOMHTMLMapElement.hs-boot +++ b/GI/WebKit2WebExtension/Objects/DOMHTMLMapElement.hs-boot @@ -1,8 +1,8 @@ module GI.WebKit2WebExtension.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/WebKit2WebExtension/Objects/DOMHTMLMarqueeElement.hs b/GI/WebKit2WebExtension/Objects/DOMHTMLMarqueeElement.hs --- a/GI/WebKit2WebExtension/Objects/DOMHTMLMarqueeElement.hs +++ b/GI/WebKit2WebExtension/Objects/DOMHTMLMarqueeElement.hs @@ -32,28 +32,36 @@ -- * Properties -- ** Behavior DOMHTMLMarqueeElementBehaviorPropertyInfo, + clearDOMHTMLMarqueeElementBehavior , constructDOMHTMLMarqueeElementBehavior , + dOMHTMLMarqueeElementBehavior , getDOMHTMLMarqueeElementBehavior , setDOMHTMLMarqueeElementBehavior , -- ** BgColor DOMHTMLMarqueeElementBgColorPropertyInfo, + clearDOMHTMLMarqueeElementBgColor , constructDOMHTMLMarqueeElementBgColor , + dOMHTMLMarqueeElementBgColor , getDOMHTMLMarqueeElementBgColor , setDOMHTMLMarqueeElementBgColor , -- ** Direction DOMHTMLMarqueeElementDirectionPropertyInfo, + clearDOMHTMLMarqueeElementDirection , constructDOMHTMLMarqueeElementDirection , + dOMHTMLMarqueeElementDirection , getDOMHTMLMarqueeElementDirection , setDOMHTMLMarqueeElementDirection , -- ** Height DOMHTMLMarqueeElementHeightPropertyInfo , + clearDOMHTMLMarqueeElementHeight , constructDOMHTMLMarqueeElementHeight , + dOMHTMLMarqueeElementHeight , getDOMHTMLMarqueeElementHeight , setDOMHTMLMarqueeElementHeight , @@ -61,6 +69,7 @@ -- ** Hspace DOMHTMLMarqueeElementHspacePropertyInfo , constructDOMHTMLMarqueeElementHspace , + dOMHTMLMarqueeElementHspace , getDOMHTMLMarqueeElementHspace , setDOMHTMLMarqueeElementHspace , @@ -68,6 +77,7 @@ -- ** Loop DOMHTMLMarqueeElementLoopPropertyInfo , constructDOMHTMLMarqueeElementLoop , + dOMHTMLMarqueeElementLoop , getDOMHTMLMarqueeElementLoop , setDOMHTMLMarqueeElementLoop , @@ -75,6 +85,7 @@ -- ** ScrollAmount DOMHTMLMarqueeElementScrollAmountPropertyInfo, constructDOMHTMLMarqueeElementScrollAmount, + dOMHTMLMarqueeElementScrollAmount , getDOMHTMLMarqueeElementScrollAmount , setDOMHTMLMarqueeElementScrollAmount , @@ -82,6 +93,7 @@ -- ** ScrollDelay DOMHTMLMarqueeElementScrollDelayPropertyInfo, constructDOMHTMLMarqueeElementScrollDelay, + dOMHTMLMarqueeElementScrollDelay , getDOMHTMLMarqueeElementScrollDelay , setDOMHTMLMarqueeElementScrollDelay , @@ -89,6 +101,7 @@ -- ** TrueSpeed DOMHTMLMarqueeElementTrueSpeedPropertyInfo, constructDOMHTMLMarqueeElementTrueSpeed , + dOMHTMLMarqueeElementTrueSpeed , getDOMHTMLMarqueeElementTrueSpeed , setDOMHTMLMarqueeElementTrueSpeed , @@ -96,13 +109,16 @@ -- ** Vspace DOMHTMLMarqueeElementVspacePropertyInfo , constructDOMHTMLMarqueeElementVspace , + dOMHTMLMarqueeElementVspace , getDOMHTMLMarqueeElementVspace , setDOMHTMLMarqueeElementVspace , -- ** Width DOMHTMLMarqueeElementWidthPropertyInfo , + clearDOMHTMLMarqueeElementWidth , constructDOMHTMLMarqueeElementWidth , + dOMHTMLMarqueeElementWidth , getDOMHTMLMarqueeElementWidth , setDOMHTMLMarqueeElementWidth , @@ -111,9 +127,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 @@ -214,8 +230,11 @@ ResolveDOMHTMLMarqueeElementMethod "getData" o = GObject.ObjectGetDataMethodInfo ResolveDOMHTMLMarqueeElementMethod "getDir" o = DOMHTMLElementGetDirMethodInfo ResolveDOMHTMLMarqueeElementMethod "getElementsByClassName" o = DOMElementGetElementsByClassNameMethodInfo + ResolveDOMHTMLMarqueeElementMethod "getElementsByClassNameAsHtmlCollection" o = DOMElementGetElementsByClassNameAsHtmlCollectionMethodInfo ResolveDOMHTMLMarqueeElementMethod "getElementsByTagName" o = DOMElementGetElementsByTagNameMethodInfo + ResolveDOMHTMLMarqueeElementMethod "getElementsByTagNameAsHtmlCollection" o = DOMElementGetElementsByTagNameAsHtmlCollectionMethodInfo ResolveDOMHTMLMarqueeElementMethod "getElementsByTagNameNs" o = DOMElementGetElementsByTagNameNsMethodInfo + ResolveDOMHTMLMarqueeElementMethod "getElementsByTagNameNsAsHtmlCollection" o = DOMElementGetElementsByTagNameNsAsHtmlCollectionMethodInfo ResolveDOMHTMLMarqueeElementMethod "getFirstChild" o = DOMNodeGetFirstChildMethodInfo ResolveDOMHTMLMarqueeElementMethod "getFirstElementChild" o = DOMElementGetFirstElementChildMethodInfo ResolveDOMHTMLMarqueeElementMethod "getId" o = DOMElementGetIdMethodInfo @@ -288,198 +307,227 @@ -- VVV Prop "behavior" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) -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) +clearDOMHTMLMarqueeElementBehavior :: (MonadIO m, DOMHTMLMarqueeElementK o) => o -> m () +clearDOMHTMLMarqueeElementBehavior obj = liftIO $ setObjectPropertyString obj "behavior" (Nothing :: Maybe T.Text) + data DOMHTMLMarqueeElementBehaviorPropertyInfo instance AttrInfo DOMHTMLMarqueeElementBehaviorPropertyInfo where - type AttrAllowedOps DOMHTMLMarqueeElementBehaviorPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrAllowedOps DOMHTMLMarqueeElementBehaviorPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] 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 _ = clearDOMHTMLMarqueeElementBehavior -- VVV Prop "bg-color" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) -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) +clearDOMHTMLMarqueeElementBgColor :: (MonadIO m, DOMHTMLMarqueeElementK o) => o -> m () +clearDOMHTMLMarqueeElementBgColor obj = liftIO $ setObjectPropertyString obj "bg-color" (Nothing :: Maybe T.Text) + data DOMHTMLMarqueeElementBgColorPropertyInfo instance AttrInfo DOMHTMLMarqueeElementBgColorPropertyInfo where - type AttrAllowedOps DOMHTMLMarqueeElementBgColorPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrAllowedOps DOMHTMLMarqueeElementBgColorPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] 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 _ = clearDOMHTMLMarqueeElementBgColor -- VVV Prop "direction" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) -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) +clearDOMHTMLMarqueeElementDirection :: (MonadIO m, DOMHTMLMarqueeElementK o) => o -> m () +clearDOMHTMLMarqueeElementDirection obj = liftIO $ setObjectPropertyString obj "direction" (Nothing :: Maybe T.Text) + data DOMHTMLMarqueeElementDirectionPropertyInfo instance AttrInfo DOMHTMLMarqueeElementDirectionPropertyInfo where - type AttrAllowedOps DOMHTMLMarqueeElementDirectionPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrAllowedOps DOMHTMLMarqueeElementDirectionPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] 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 _ = clearDOMHTMLMarqueeElementDirection -- VVV Prop "height" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) -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) +clearDOMHTMLMarqueeElementHeight :: (MonadIO m, DOMHTMLMarqueeElementK o) => o -> m () +clearDOMHTMLMarqueeElementHeight obj = liftIO $ setObjectPropertyString obj "height" (Nothing :: Maybe T.Text) + data DOMHTMLMarqueeElementHeightPropertyInfo instance AttrInfo DOMHTMLMarqueeElementHeightPropertyInfo where - type AttrAllowedOps DOMHTMLMarqueeElementHeightPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrAllowedOps DOMHTMLMarqueeElementHeightPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] 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 _ = clearDOMHTMLMarqueeElementHeight -- VVV Prop "hspace" - -- Type: TBasicType TUInt64 + -- Type: TBasicType TULong -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) -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: (Nothing,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: (Nothing,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: (Nothing,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: (Nothing,Nothing) getDOMHTMLMarqueeElementTrueSpeed :: (MonadIO m, DOMHTMLMarqueeElementK o) => o -> m Bool getDOMHTMLMarqueeElementTrueSpeed obj = liftIO $ getObjectPropertyBool obj "true-speed" @@ -500,58 +548,99 @@ attrGet _ = getDOMHTMLMarqueeElementTrueSpeed attrSet _ = setDOMHTMLMarqueeElementTrueSpeed attrConstruct _ = constructDOMHTMLMarqueeElementTrueSpeed + attrClear _ = undefined -- VVV Prop "vspace" - -- Type: TBasicType TUInt64 + -- Type: TBasicType TULong -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) -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,Nothing) -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) +clearDOMHTMLMarqueeElementWidth :: (MonadIO m, DOMHTMLMarqueeElementK o) => o -> m () +clearDOMHTMLMarqueeElementWidth obj = liftIO $ setObjectPropertyString obj "width" (Nothing :: Maybe T.Text) + data DOMHTMLMarqueeElementWidthPropertyInfo instance AttrInfo DOMHTMLMarqueeElementWidthPropertyInfo where - type AttrAllowedOps DOMHTMLMarqueeElementWidthPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrAllowedOps DOMHTMLMarqueeElementWidthPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] 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 _ = clearDOMHTMLMarqueeElementWidth type instance AttributeList DOMHTMLMarqueeElement = DOMHTMLMarqueeElementAttributeList -type DOMHTMLMarqueeElementAttributeList = ('[ '("accessKey", DOMHTMLElementAccessKeyPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("baseUri", DOMNodeBaseUriPropertyInfo), '("behavior", DOMHTMLMarqueeElementBehaviorPropertyInfo), '("bgColor", DOMHTMLMarqueeElementBgColorPropertyInfo), '("childElementCount", DOMElementChildElementCountPropertyInfo), '("childNodes", DOMNodeChildNodesPropertyInfo), '("children", DOMElementChildrenPropertyInfo), '("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", DOMElementInnerHtmlPropertyInfo), '("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", DOMElementOuterHtmlPropertyInfo), '("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, *)]) +type DOMHTMLMarqueeElementAttributeList = ('[ '("accessKey", DOMHTMLElementAccessKeyPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("baseUri", DOMNodeBaseUriPropertyInfo), '("behavior", DOMHTMLMarqueeElementBehaviorPropertyInfo), '("bgColor", DOMHTMLMarqueeElementBgColorPropertyInfo), '("childElementCount", DOMElementChildElementCountPropertyInfo), '("childNodes", DOMNodeChildNodesPropertyInfo), '("children", DOMElementChildrenPropertyInfo), '("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", DOMElementInnerHtmlPropertyInfo), '("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", DOMElementOuterHtmlPropertyInfo), '("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), '("treeRoot", DOMNodeTreeRootPropertyInfo), '("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, *)]) @@ -559,7 +648,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -586,7 +675,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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/WebKit2WebExtension/Objects/DOMHTMLMarqueeElement.hs-boot b/GI/WebKit2WebExtension/Objects/DOMHTMLMarqueeElement.hs-boot --- a/GI/WebKit2WebExtension/Objects/DOMHTMLMarqueeElement.hs-boot +++ b/GI/WebKit2WebExtension/Objects/DOMHTMLMarqueeElement.hs-boot @@ -1,8 +1,8 @@ module GI.WebKit2WebExtension.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/WebKit2WebExtension/Objects/DOMHTMLMenuElement.hs b/GI/WebKit2WebExtension/Objects/DOMHTMLMenuElement.hs --- a/GI/WebKit2WebExtension/Objects/DOMHTMLMenuElement.hs +++ b/GI/WebKit2WebExtension/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 @@ -143,8 +144,11 @@ ResolveDOMHTMLMenuElementMethod "getData" o = GObject.ObjectGetDataMethodInfo ResolveDOMHTMLMenuElementMethod "getDir" o = DOMHTMLElementGetDirMethodInfo ResolveDOMHTMLMenuElementMethod "getElementsByClassName" o = DOMElementGetElementsByClassNameMethodInfo + ResolveDOMHTMLMenuElementMethod "getElementsByClassNameAsHtmlCollection" o = DOMElementGetElementsByClassNameAsHtmlCollectionMethodInfo ResolveDOMHTMLMenuElementMethod "getElementsByTagName" o = DOMElementGetElementsByTagNameMethodInfo + ResolveDOMHTMLMenuElementMethod "getElementsByTagNameAsHtmlCollection" o = DOMElementGetElementsByTagNameAsHtmlCollectionMethodInfo ResolveDOMHTMLMenuElementMethod "getElementsByTagNameNs" o = DOMElementGetElementsByTagNameNsMethodInfo + ResolveDOMHTMLMenuElementMethod "getElementsByTagNameNsAsHtmlCollection" o = DOMElementGetElementsByTagNameNsAsHtmlCollectionMethodInfo ResolveDOMHTMLMenuElementMethod "getFirstChild" o = DOMNodeGetFirstChildMethodInfo ResolveDOMHTMLMenuElementMethod "getFirstElementChild" o = DOMElementGetFirstElementChildMethodInfo ResolveDOMHTMLMenuElementMethod "getId" o = DOMElementGetIdMethodInfo @@ -218,6 +222,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" @@ -238,10 +243,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", DOMElementChildrenPropertyInfo), '("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", DOMElementInnerHtmlPropertyInfo), '("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", DOMElementOuterHtmlPropertyInfo), '("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, *)]) +type DOMHTMLMenuElementAttributeList = ('[ '("accessKey", DOMHTMLElementAccessKeyPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("baseUri", DOMNodeBaseUriPropertyInfo), '("childElementCount", DOMElementChildElementCountPropertyInfo), '("childNodes", DOMNodeChildNodesPropertyInfo), '("children", DOMElementChildrenPropertyInfo), '("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", DOMElementInnerHtmlPropertyInfo), '("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", DOMElementOuterHtmlPropertyInfo), '("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), '("treeRoot", DOMNodeTreeRootPropertyInfo), '("webkitRegionOverset", DOMElementWebkitRegionOversetPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo)] :: [(Symbol, *)]) +dOMHTMLMenuElementCompact :: AttrLabelProxy "compact" +dOMHTMLMenuElementCompact = AttrLabelProxy + type instance SignalList DOMHTMLMenuElement = DOMHTMLMenuElementSignalList type DOMHTMLMenuElementSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) @@ -249,7 +258,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -277,7 +286,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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/WebKit2WebExtension/Objects/DOMHTMLMenuElement.hs-boot b/GI/WebKit2WebExtension/Objects/DOMHTMLMenuElement.hs-boot --- a/GI/WebKit2WebExtension/Objects/DOMHTMLMenuElement.hs-boot +++ b/GI/WebKit2WebExtension/Objects/DOMHTMLMenuElement.hs-boot @@ -1,8 +1,8 @@ module GI.WebKit2WebExtension.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/WebKit2WebExtension/Objects/DOMHTMLMetaElement.hs b/GI/WebKit2WebExtension/Objects/DOMHTMLMetaElement.hs --- a/GI/WebKit2WebExtension/Objects/DOMHTMLMetaElement.hs +++ b/GI/WebKit2WebExtension/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 @@ -194,8 +198,11 @@ ResolveDOMHTMLMetaElementMethod "getData" o = GObject.ObjectGetDataMethodInfo ResolveDOMHTMLMetaElementMethod "getDir" o = DOMHTMLElementGetDirMethodInfo ResolveDOMHTMLMetaElementMethod "getElementsByClassName" o = DOMElementGetElementsByClassNameMethodInfo + ResolveDOMHTMLMetaElementMethod "getElementsByClassNameAsHtmlCollection" o = DOMElementGetElementsByClassNameAsHtmlCollectionMethodInfo ResolveDOMHTMLMetaElementMethod "getElementsByTagName" o = DOMElementGetElementsByTagNameMethodInfo + ResolveDOMHTMLMetaElementMethod "getElementsByTagNameAsHtmlCollection" o = DOMElementGetElementsByTagNameAsHtmlCollectionMethodInfo ResolveDOMHTMLMetaElementMethod "getElementsByTagNameNs" o = DOMElementGetElementsByTagNameNsMethodInfo + ResolveDOMHTMLMetaElementMethod "getElementsByTagNameNsAsHtmlCollection" o = DOMElementGetElementsByTagNameNsAsHtmlCollectionMethodInfo ResolveDOMHTMLMetaElementMethod "getFirstChild" o = DOMNodeGetFirstChildMethodInfo ResolveDOMHTMLMetaElementMethod "getFirstElementChild" o = DOMElementGetFirstElementChildMethodInfo ResolveDOMHTMLMetaElementMethod "getHttpEquiv" o = DOMHTMLMetaElementGetHttpEquivMethodInfo @@ -275,102 +282,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", DOMElementChildrenPropertyInfo), '("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", DOMElementInnerHtmlPropertyInfo), '("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", DOMElementOuterHtmlPropertyInfo), '("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, *)]) +type DOMHTMLMetaElementAttributeList = ('[ '("accessKey", DOMHTMLElementAccessKeyPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("baseUri", DOMNodeBaseUriPropertyInfo), '("childElementCount", DOMElementChildElementCountPropertyInfo), '("childNodes", DOMNodeChildNodesPropertyInfo), '("children", DOMElementChildrenPropertyInfo), '("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", DOMElementInnerHtmlPropertyInfo), '("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", DOMElementOuterHtmlPropertyInfo), '("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), '("treeRoot", DOMNodeTreeRootPropertyInfo), '("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, *)]) @@ -378,7 +405,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -408,7 +435,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -438,7 +465,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -468,7 +495,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -498,7 +525,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -529,7 +556,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -560,7 +587,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -591,7 +618,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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/WebKit2WebExtension/Objects/DOMHTMLMetaElement.hs-boot b/GI/WebKit2WebExtension/Objects/DOMHTMLMetaElement.hs-boot --- a/GI/WebKit2WebExtension/Objects/DOMHTMLMetaElement.hs-boot +++ b/GI/WebKit2WebExtension/Objects/DOMHTMLMetaElement.hs-boot @@ -1,8 +1,8 @@ module GI.WebKit2WebExtension.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/WebKit2WebExtension/Objects/DOMHTMLModElement.hs b/GI/WebKit2WebExtension/Objects/DOMHTMLModElement.hs --- a/GI/WebKit2WebExtension/Objects/DOMHTMLModElement.hs +++ b/GI/WebKit2WebExtension/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 @@ -161,8 +163,11 @@ ResolveDOMHTMLModElementMethod "getDateTime" o = DOMHTMLModElementGetDateTimeMethodInfo ResolveDOMHTMLModElementMethod "getDir" o = DOMHTMLElementGetDirMethodInfo ResolveDOMHTMLModElementMethod "getElementsByClassName" o = DOMElementGetElementsByClassNameMethodInfo + ResolveDOMHTMLModElementMethod "getElementsByClassNameAsHtmlCollection" o = DOMElementGetElementsByClassNameAsHtmlCollectionMethodInfo ResolveDOMHTMLModElementMethod "getElementsByTagName" o = DOMElementGetElementsByTagNameMethodInfo + ResolveDOMHTMLModElementMethod "getElementsByTagNameAsHtmlCollection" o = DOMElementGetElementsByTagNameAsHtmlCollectionMethodInfo ResolveDOMHTMLModElementMethod "getElementsByTagNameNs" o = DOMElementGetElementsByTagNameNsMethodInfo + ResolveDOMHTMLModElementMethod "getElementsByTagNameNsAsHtmlCollection" o = DOMElementGetElementsByTagNameNsAsHtmlCollectionMethodInfo ResolveDOMHTMLModElementMethod "getFirstChild" o = DOMNodeGetFirstChildMethodInfo ResolveDOMHTMLModElementMethod "getFirstElementChild" o = DOMElementGetFirstElementChildMethodInfo ResolveDOMHTMLModElementMethod "getId" o = DOMElementGetIdMethodInfo @@ -237,54 +242,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", DOMElementChildrenPropertyInfo), '("cite", DOMHTMLModElementCitePropertyInfo), '("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", DOMElementInnerHtmlPropertyInfo), '("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", DOMElementOuterHtmlPropertyInfo), '("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, *)]) +type DOMHTMLModElementAttributeList = ('[ '("accessKey", DOMHTMLElementAccessKeyPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("baseUri", DOMNodeBaseUriPropertyInfo), '("childElementCount", DOMElementChildElementCountPropertyInfo), '("childNodes", DOMNodeChildNodesPropertyInfo), '("children", DOMElementChildrenPropertyInfo), '("cite", DOMHTMLModElementCitePropertyInfo), '("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", DOMElementInnerHtmlPropertyInfo), '("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", DOMElementOuterHtmlPropertyInfo), '("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), '("treeRoot", DOMNodeTreeRootPropertyInfo), '("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, *)]) @@ -292,7 +307,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -322,7 +337,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -352,7 +367,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -383,7 +398,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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/WebKit2WebExtension/Objects/DOMHTMLModElement.hs-boot b/GI/WebKit2WebExtension/Objects/DOMHTMLModElement.hs-boot --- a/GI/WebKit2WebExtension/Objects/DOMHTMLModElement.hs-boot +++ b/GI/WebKit2WebExtension/Objects/DOMHTMLModElement.hs-boot @@ -1,8 +1,8 @@ module GI.WebKit2WebExtension.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/WebKit2WebExtension/Objects/DOMHTMLOListElement.hs b/GI/WebKit2WebExtension/Objects/DOMHTMLOListElement.hs --- a/GI/WebKit2WebExtension/Objects/DOMHTMLOListElement.hs +++ b/GI/WebKit2WebExtension/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 @@ -184,8 +189,11 @@ ResolveDOMHTMLOListElementMethod "getData" o = GObject.ObjectGetDataMethodInfo ResolveDOMHTMLOListElementMethod "getDir" o = DOMHTMLElementGetDirMethodInfo ResolveDOMHTMLOListElementMethod "getElementsByClassName" o = DOMElementGetElementsByClassNameMethodInfo + ResolveDOMHTMLOListElementMethod "getElementsByClassNameAsHtmlCollection" o = DOMElementGetElementsByClassNameAsHtmlCollectionMethodInfo ResolveDOMHTMLOListElementMethod "getElementsByTagName" o = DOMElementGetElementsByTagNameMethodInfo + ResolveDOMHTMLOListElementMethod "getElementsByTagNameAsHtmlCollection" o = DOMElementGetElementsByTagNameAsHtmlCollectionMethodInfo ResolveDOMHTMLOListElementMethod "getElementsByTagNameNs" o = DOMElementGetElementsByTagNameNsMethodInfo + ResolveDOMHTMLOListElementMethod "getElementsByTagNameNsAsHtmlCollection" o = DOMElementGetElementsByTagNameNsAsHtmlCollectionMethodInfo ResolveDOMHTMLOListElementMethod "getFirstChild" o = DOMNodeGetFirstChildMethodInfo ResolveDOMHTMLOListElementMethod "getFirstElementChild" o = DOMElementGetFirstElementChildMethodInfo ResolveDOMHTMLOListElementMethod "getId" o = DOMElementGetIdMethodInfo @@ -263,6 +271,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" @@ -283,10 +292,12 @@ attrGet _ = getDOMHTMLOListElementCompact attrSet _ = setDOMHTMLOListElementCompact attrConstruct _ = constructDOMHTMLOListElementCompact + attrClear _ = undefined -- VVV Prop "reversed" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) getDOMHTMLOListElementReversed :: (MonadIO m, DOMHTMLOListElementK o) => o -> m Bool getDOMHTMLOListElementReversed obj = liftIO $ getObjectPropertyBool obj "reversed" @@ -307,58 +318,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", DOMElementChildrenPropertyInfo), '("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", DOMElementInnerHtmlPropertyInfo), '("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", DOMElementOuterHtmlPropertyInfo), '("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, *)]) +type DOMHTMLOListElementAttributeList = ('[ '("accessKey", DOMHTMLElementAccessKeyPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("baseUri", DOMNodeBaseUriPropertyInfo), '("childElementCount", DOMElementChildElementCountPropertyInfo), '("childNodes", DOMNodeChildNodesPropertyInfo), '("children", DOMElementChildrenPropertyInfo), '("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", DOMElementInnerHtmlPropertyInfo), '("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", DOMElementOuterHtmlPropertyInfo), '("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), '("treeRoot", DOMNodeTreeRootPropertyInfo), '("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, *)]) @@ -366,7 +397,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -394,19 +425,19 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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_html_o_list_element_get_start" webkit_dom_html_o_list_element_get_start :: Ptr DOMHTMLOListElement -> -- _obj : TInterface "WebKit2WebExtension" "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_html_o_list_element_get_start _obj' @@ -414,14 +445,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::get_type_attr -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLOListElement", direction = DirectionIn, mayBeNull = 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 +482,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -479,22 +510,22 @@ -- method DOMHTMLOListElement::set_start -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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_html_o_list_element_set_start" webkit_dom_html_o_list_element_set_start :: Ptr DOMHTMLOListElement -> -- _obj : TInterface "WebKit2WebExtension" "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 @@ -503,14 +534,14 @@ 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 -- method DOMHTMLOListElement::set_type_attr -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLOListElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = 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/WebKit2WebExtension/Objects/DOMHTMLOListElement.hs-boot b/GI/WebKit2WebExtension/Objects/DOMHTMLOListElement.hs-boot --- a/GI/WebKit2WebExtension/Objects/DOMHTMLOListElement.hs-boot +++ b/GI/WebKit2WebExtension/Objects/DOMHTMLOListElement.hs-boot @@ -1,8 +1,8 @@ module GI.WebKit2WebExtension.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/WebKit2WebExtension/Objects/DOMHTMLObjectElement.hs b/GI/WebKit2WebExtension/Objects/DOMHTMLObjectElement.hs --- a/GI/WebKit2WebExtension/Objects/DOMHTMLObjectElement.hs +++ b/GI/WebKit2WebExtension/Objects/DOMHTMLObjectElement.hs @@ -193,6 +193,7 @@ -- ** Align DOMHTMLObjectElementAlignPropertyInfo , constructDOMHTMLObjectElementAlign , + dOMHTMLObjectElementAlign , getDOMHTMLObjectElementAlign , setDOMHTMLObjectElementAlign , @@ -200,6 +201,7 @@ -- ** Archive DOMHTMLObjectElementArchivePropertyInfo , constructDOMHTMLObjectElementArchive , + dOMHTMLObjectElementArchive , getDOMHTMLObjectElementArchive , setDOMHTMLObjectElementArchive , @@ -207,6 +209,7 @@ -- ** Border DOMHTMLObjectElementBorderPropertyInfo , constructDOMHTMLObjectElementBorder , + dOMHTMLObjectElementBorder , getDOMHTMLObjectElementBorder , setDOMHTMLObjectElementBorder , @@ -214,6 +217,7 @@ -- ** Code DOMHTMLObjectElementCodePropertyInfo , constructDOMHTMLObjectElementCode , + dOMHTMLObjectElementCode , getDOMHTMLObjectElementCode , setDOMHTMLObjectElementCode , @@ -221,6 +225,7 @@ -- ** CodeBase DOMHTMLObjectElementCodeBasePropertyInfo, constructDOMHTMLObjectElementCodeBase , + dOMHTMLObjectElementCodeBase , getDOMHTMLObjectElementCodeBase , setDOMHTMLObjectElementCodeBase , @@ -228,18 +233,21 @@ -- ** CodeType DOMHTMLObjectElementCodeTypePropertyInfo, constructDOMHTMLObjectElementCodeType , + dOMHTMLObjectElementCodeType , getDOMHTMLObjectElementCodeType , setDOMHTMLObjectElementCodeType , -- ** ContentDocument DOMHTMLObjectElementContentDocumentPropertyInfo, + dOMHTMLObjectElementContentDocument , getDOMHTMLObjectElementContentDocument , -- ** Data DOMHTMLObjectElementDataPropertyInfo , constructDOMHTMLObjectElementData , + dOMHTMLObjectElementData , getDOMHTMLObjectElementData , setDOMHTMLObjectElementData , @@ -247,18 +255,21 @@ -- ** Declare DOMHTMLObjectElementDeclarePropertyInfo , constructDOMHTMLObjectElementDeclare , + dOMHTMLObjectElementDeclare , getDOMHTMLObjectElementDeclare , setDOMHTMLObjectElementDeclare , -- ** Form DOMHTMLObjectElementFormPropertyInfo , + dOMHTMLObjectElementForm , getDOMHTMLObjectElementForm , -- ** Height DOMHTMLObjectElementHeightPropertyInfo , constructDOMHTMLObjectElementHeight , + dOMHTMLObjectElementHeight , getDOMHTMLObjectElementHeight , setDOMHTMLObjectElementHeight , @@ -266,6 +277,7 @@ -- ** Hspace DOMHTMLObjectElementHspacePropertyInfo , constructDOMHTMLObjectElementHspace , + dOMHTMLObjectElementHspace , getDOMHTMLObjectElementHspace , setDOMHTMLObjectElementHspace , @@ -273,6 +285,7 @@ -- ** Name DOMHTMLObjectElementNamePropertyInfo , constructDOMHTMLObjectElementName , + dOMHTMLObjectElementName , getDOMHTMLObjectElementName , setDOMHTMLObjectElementName , @@ -280,13 +293,16 @@ -- ** Standby DOMHTMLObjectElementStandbyPropertyInfo , constructDOMHTMLObjectElementStandby , + dOMHTMLObjectElementStandby , getDOMHTMLObjectElementStandby , setDOMHTMLObjectElementStandby , -- ** Type DOMHTMLObjectElementTypePropertyInfo , + clearDOMHTMLObjectElementType , constructDOMHTMLObjectElementType , + dOMHTMLObjectElementType , getDOMHTMLObjectElementType , setDOMHTMLObjectElementType , @@ -294,18 +310,21 @@ -- ** UseMap DOMHTMLObjectElementUseMapPropertyInfo , constructDOMHTMLObjectElementUseMap , + dOMHTMLObjectElementUseMap , getDOMHTMLObjectElementUseMap , setDOMHTMLObjectElementUseMap , -- ** ValidationMessage DOMHTMLObjectElementValidationMessagePropertyInfo, + dOMHTMLObjectElementValidationMessage , getDOMHTMLObjectElementValidationMessage, -- ** Vspace DOMHTMLObjectElementVspacePropertyInfo , constructDOMHTMLObjectElementVspace , + dOMHTMLObjectElementVspace , getDOMHTMLObjectElementVspace , setDOMHTMLObjectElementVspace , @@ -313,12 +332,14 @@ -- ** Width DOMHTMLObjectElementWidthPropertyInfo , constructDOMHTMLObjectElementWidth , + dOMHTMLObjectElementWidth , getDOMHTMLObjectElementWidth , setDOMHTMLObjectElementWidth , -- ** WillValidate DOMHTMLObjectElementWillValidatePropertyInfo, + dOMHTMLObjectElementWillValidate , getDOMHTMLObjectElementWillValidate , @@ -326,9 +347,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,8 +455,11 @@ ResolveDOMHTMLObjectElementMethod "getDeclare" o = DOMHTMLObjectElementGetDeclareMethodInfo ResolveDOMHTMLObjectElementMethod "getDir" o = DOMHTMLElementGetDirMethodInfo ResolveDOMHTMLObjectElementMethod "getElementsByClassName" o = DOMElementGetElementsByClassNameMethodInfo + ResolveDOMHTMLObjectElementMethod "getElementsByClassNameAsHtmlCollection" o = DOMElementGetElementsByClassNameAsHtmlCollectionMethodInfo ResolveDOMHTMLObjectElementMethod "getElementsByTagName" o = DOMElementGetElementsByTagNameMethodInfo + ResolveDOMHTMLObjectElementMethod "getElementsByTagNameAsHtmlCollection" o = DOMElementGetElementsByTagNameAsHtmlCollectionMethodInfo ResolveDOMHTMLObjectElementMethod "getElementsByTagNameNs" o = DOMElementGetElementsByTagNameNsMethodInfo + ResolveDOMHTMLObjectElementMethod "getElementsByTagNameNsAsHtmlCollection" o = DOMElementGetElementsByTagNameNsAsHtmlCollectionMethodInfo ResolveDOMHTMLObjectElementMethod "getFirstChild" o = DOMNodeGetFirstChildMethodInfo ResolveDOMHTMLObjectElementMethod "getFirstElementChild" o = DOMElementGetFirstElementChildMethodInfo ResolveDOMHTMLObjectElementMethod "getForm" o = DOMHTMLObjectElementGetFormMethodInfo @@ -531,157 +555,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 "WebKit2WebExtension" "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 @@ -689,34 +726,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" @@ -737,17 +778,19 @@ attrGet _ = getDOMHTMLObjectElementDeclare attrSet _ = setDOMHTMLObjectElementDeclare attrConstruct _ = constructDOMHTMLObjectElementDeclare + attrClear _ = undefined -- VVV Prop "form" -- Type: TInterface "WebKit2WebExtension" "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 @@ -755,220 +798,243 @@ 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 "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: (Nothing,Nothing) getDOMHTMLObjectElementWillValidate :: (MonadIO m, DOMHTMLObjectElementK o) => o -> m Bool getDOMHTMLObjectElementWillValidate obj = liftIO $ getObjectPropertyBool obj "will-validate" @@ -983,10 +1049,71 @@ 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", DOMElementChildrenPropertyInfo), '("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", DOMElementInnerHtmlPropertyInfo), '("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", DOMElementOuterHtmlPropertyInfo), '("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), '("vspace", DOMHTMLObjectElementVspacePropertyInfo), '("webkitRegionOverset", DOMElementWebkitRegionOversetPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo), '("width", DOMHTMLObjectElementWidthPropertyInfo), '("willValidate", DOMHTMLObjectElementWillValidatePropertyInfo)] :: [(Symbol, *)]) +type DOMHTMLObjectElementAttributeList = ('[ '("accessKey", DOMHTMLElementAccessKeyPropertyInfo), '("align", DOMHTMLObjectElementAlignPropertyInfo), '("archive", DOMHTMLObjectElementArchivePropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("baseUri", DOMNodeBaseUriPropertyInfo), '("border", DOMHTMLObjectElementBorderPropertyInfo), '("childElementCount", DOMElementChildElementCountPropertyInfo), '("childNodes", DOMNodeChildNodesPropertyInfo), '("children", DOMElementChildrenPropertyInfo), '("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", DOMElementInnerHtmlPropertyInfo), '("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", DOMElementOuterHtmlPropertyInfo), '("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), '("treeRoot", DOMNodeTreeRootPropertyInfo), '("type", DOMHTMLObjectElementTypePropertyInfo), '("useMap", DOMHTMLObjectElementUseMapPropertyInfo), '("validationMessage", DOMHTMLObjectElementValidationMessagePropertyInfo), '("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 + +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, *)]) @@ -994,7 +1121,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -1024,7 +1151,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -1054,7 +1181,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -1084,7 +1211,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -1114,7 +1241,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -1144,7 +1271,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -1174,7 +1301,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLObjectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit2WebExtension" "DOMDocument" +-- returnType : Just (TInterface "WebKit2WebExtension" "DOMDocument") -- throws : False -- Skip return : False @@ -1203,7 +1330,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -1233,7 +1360,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -1261,7 +1388,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLObjectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit2WebExtension" "DOMHTMLFormElement" +-- returnType : Just (TInterface "WebKit2WebExtension" "DOMHTMLFormElement") -- throws : False -- Skip return : False @@ -1290,7 +1417,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -1320,19 +1447,19 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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' @@ -1340,14 +1467,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 "WebKit2WebExtension" "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 @@ -1377,7 +1504,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -1407,7 +1534,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -1437,7 +1564,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -1467,19 +1594,19 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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' @@ -1487,14 +1614,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 "WebKit2WebExtension" "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 @@ -1524,7 +1651,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -1555,7 +1682,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -1586,7 +1713,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -1617,7 +1744,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -1648,7 +1775,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -1679,7 +1806,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -1710,7 +1837,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -1741,7 +1868,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -1771,7 +1898,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -1800,22 +1927,22 @@ -- method DOMHTMLObjectElement::set_hspace -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 @@ -1824,14 +1951,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 "WebKit2WebExtension" "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 @@ -1862,7 +1989,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -1893,7 +2020,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -1924,7 +2051,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -1953,22 +2080,22 @@ -- method DOMHTMLObjectElement::set_vspace -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 @@ -1977,14 +2104,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 "WebKit2WebExtension" "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/WebKit2WebExtension/Objects/DOMHTMLObjectElement.hs-boot b/GI/WebKit2WebExtension/Objects/DOMHTMLObjectElement.hs-boot --- a/GI/WebKit2WebExtension/Objects/DOMHTMLObjectElement.hs-boot +++ b/GI/WebKit2WebExtension/Objects/DOMHTMLObjectElement.hs-boot @@ -1,8 +1,8 @@ module GI.WebKit2WebExtension.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/WebKit2WebExtension/Objects/DOMHTMLOptGroupElement.hs b/GI/WebKit2WebExtension/Objects/DOMHTMLOptGroupElement.hs --- a/GI/WebKit2WebExtension/Objects/DOMHTMLOptGroupElement.hs +++ b/GI/WebKit2WebExtension/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 @@ -160,8 +162,11 @@ ResolveDOMHTMLOptGroupElementMethod "getDir" o = DOMHTMLElementGetDirMethodInfo ResolveDOMHTMLOptGroupElementMethod "getDisabled" o = DOMHTMLOptGroupElementGetDisabledMethodInfo ResolveDOMHTMLOptGroupElementMethod "getElementsByClassName" o = DOMElementGetElementsByClassNameMethodInfo + ResolveDOMHTMLOptGroupElementMethod "getElementsByClassNameAsHtmlCollection" o = DOMElementGetElementsByClassNameAsHtmlCollectionMethodInfo ResolveDOMHTMLOptGroupElementMethod "getElementsByTagName" o = DOMElementGetElementsByTagNameMethodInfo + ResolveDOMHTMLOptGroupElementMethod "getElementsByTagNameAsHtmlCollection" o = DOMElementGetElementsByTagNameAsHtmlCollectionMethodInfo ResolveDOMHTMLOptGroupElementMethod "getElementsByTagNameNs" o = DOMElementGetElementsByTagNameNsMethodInfo + ResolveDOMHTMLOptGroupElementMethod "getElementsByTagNameNsAsHtmlCollection" o = DOMElementGetElementsByTagNameNsAsHtmlCollectionMethodInfo ResolveDOMHTMLOptGroupElementMethod "getFirstChild" o = DOMNodeGetFirstChildMethodInfo ResolveDOMHTMLOptGroupElementMethod "getFirstElementChild" o = DOMElementGetFirstElementChildMethodInfo ResolveDOMHTMLOptGroupElementMethod "getId" o = DOMElementGetIdMethodInfo @@ -237,6 +242,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" @@ -257,34 +263,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", DOMElementChildrenPropertyInfo), '("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", DOMElementInnerHtmlPropertyInfo), '("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", DOMElementOuterHtmlPropertyInfo), '("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, *)]) +type DOMHTMLOptGroupElementAttributeList = ('[ '("accessKey", DOMHTMLElementAccessKeyPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("baseUri", DOMNodeBaseUriPropertyInfo), '("childElementCount", DOMElementChildElementCountPropertyInfo), '("childNodes", DOMNodeChildNodesPropertyInfo), '("children", DOMElementChildrenPropertyInfo), '("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", DOMElementInnerHtmlPropertyInfo), '("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", DOMElementOuterHtmlPropertyInfo), '("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), '("treeRoot", DOMNodeTreeRootPropertyInfo), '("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, *)]) @@ -292,7 +307,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -320,7 +335,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -350,7 +365,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -380,7 +395,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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/WebKit2WebExtension/Objects/DOMHTMLOptGroupElement.hs-boot b/GI/WebKit2WebExtension/Objects/DOMHTMLOptGroupElement.hs-boot --- a/GI/WebKit2WebExtension/Objects/DOMHTMLOptGroupElement.hs-boot +++ b/GI/WebKit2WebExtension/Objects/DOMHTMLOptGroupElement.hs-boot @@ -1,8 +1,8 @@ module GI.WebKit2WebExtension.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/WebKit2WebExtension/Objects/DOMHTMLOptionElement.hs b/GI/WebKit2WebExtension/Objects/DOMHTMLOptionElement.hs --- a/GI/WebKit2WebExtension/Objects/DOMHTMLOptionElement.hs +++ b/GI/WebKit2WebExtension/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 @@ -242,8 +250,11 @@ ResolveDOMHTMLOptionElementMethod "getDir" o = DOMHTMLElementGetDirMethodInfo ResolveDOMHTMLOptionElementMethod "getDisabled" o = DOMHTMLOptionElementGetDisabledMethodInfo ResolveDOMHTMLOptionElementMethod "getElementsByClassName" o = DOMElementGetElementsByClassNameMethodInfo + ResolveDOMHTMLOptionElementMethod "getElementsByClassNameAsHtmlCollection" o = DOMElementGetElementsByClassNameAsHtmlCollectionMethodInfo ResolveDOMHTMLOptionElementMethod "getElementsByTagName" o = DOMElementGetElementsByTagNameMethodInfo + ResolveDOMHTMLOptionElementMethod "getElementsByTagNameAsHtmlCollection" o = DOMElementGetElementsByTagNameAsHtmlCollectionMethodInfo ResolveDOMHTMLOptionElementMethod "getElementsByTagNameNs" o = DOMElementGetElementsByTagNameNsMethodInfo + ResolveDOMHTMLOptionElementMethod "getElementsByTagNameNsAsHtmlCollection" o = DOMElementGetElementsByTagNameNsAsHtmlCollectionMethodInfo ResolveDOMHTMLOptionElementMethod "getFirstChild" o = DOMNodeGetFirstChildMethodInfo ResolveDOMHTMLOptionElementMethod "getFirstElementChild" o = DOMElementGetFirstElementChildMethodInfo ResolveDOMHTMLOptionElementMethod "getForm" o = DOMHTMLOptionElementGetFormMethodInfo @@ -327,6 +338,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" @@ -347,10 +359,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" @@ -371,17 +385,19 @@ attrGet _ = getDOMHTMLOptionElementDisabled attrSet _ = setDOMHTMLOptionElementDisabled attrConstruct _ = constructDOMHTMLOptionElementDisabled + attrClear _ = undefined -- VVV Prop "form" -- Type: TInterface "WebKit2WebExtension" "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 @@ -389,52 +405,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" @@ -455,52 +477,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", DOMElementChildrenPropertyInfo), '("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", DOMElementInnerHtmlPropertyInfo), '("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", DOMElementOuterHtmlPropertyInfo), '("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, *)]) +type DOMHTMLOptionElementAttributeList = ('[ '("accessKey", DOMHTMLElementAccessKeyPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("baseUri", DOMNodeBaseUriPropertyInfo), '("childElementCount", DOMElementChildElementCountPropertyInfo), '("childNodes", DOMNodeChildNodesPropertyInfo), '("children", DOMElementChildrenPropertyInfo), '("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", DOMElementInnerHtmlPropertyInfo), '("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", DOMElementOuterHtmlPropertyInfo), '("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), '("treeRoot", DOMNodeTreeRootPropertyInfo), '("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, *)]) @@ -508,7 +559,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -536,7 +587,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -564,7 +615,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLOptionElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit2WebExtension" "DOMHTMLFormElement" +-- returnType : Just (TInterface "WebKit2WebExtension" "DOMHTMLFormElement") -- throws : False -- Skip return : False @@ -593,19 +644,19 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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' @@ -613,14 +664,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 "WebKit2WebExtension" "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 @@ -650,7 +701,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -678,7 +729,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -708,7 +759,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -738,7 +789,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -768,7 +819,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -798,7 +849,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -829,7 +880,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -859,7 +910,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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/WebKit2WebExtension/Objects/DOMHTMLOptionElement.hs-boot b/GI/WebKit2WebExtension/Objects/DOMHTMLOptionElement.hs-boot --- a/GI/WebKit2WebExtension/Objects/DOMHTMLOptionElement.hs-boot +++ b/GI/WebKit2WebExtension/Objects/DOMHTMLOptionElement.hs-boot @@ -1,8 +1,8 @@ module GI.WebKit2WebExtension.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/WebKit2WebExtension/Objects/DOMHTMLOptionsCollection.hs b/GI/WebKit2WebExtension/Objects/DOMHTMLOptionsCollection.hs --- a/GI/WebKit2WebExtension/Objects/DOMHTMLOptionsCollection.hs +++ b/GI/WebKit2WebExtension/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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "DOMNode" +-- returnType : Just (TInterface "WebKit2WebExtension" "DOMNode") -- throws : False -- Skip return : False @@ -261,22 +273,22 @@ -- method DOMHTMLOptionsCollection::set_selected_index -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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/WebKit2WebExtension/Objects/DOMHTMLOptionsCollection.hs-boot b/GI/WebKit2WebExtension/Objects/DOMHTMLOptionsCollection.hs-boot --- a/GI/WebKit2WebExtension/Objects/DOMHTMLOptionsCollection.hs-boot +++ b/GI/WebKit2WebExtension/Objects/DOMHTMLOptionsCollection.hs-boot @@ -1,8 +1,8 @@ module GI.WebKit2WebExtension.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/WebKit2WebExtension/Objects/DOMHTMLParagraphElement.hs b/GI/WebKit2WebExtension/Objects/DOMHTMLParagraphElement.hs --- a/GI/WebKit2WebExtension/Objects/DOMHTMLParagraphElement.hs +++ b/GI/WebKit2WebExtension/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 @@ -143,8 +144,11 @@ ResolveDOMHTMLParagraphElementMethod "getData" o = GObject.ObjectGetDataMethodInfo ResolveDOMHTMLParagraphElementMethod "getDir" o = DOMHTMLElementGetDirMethodInfo ResolveDOMHTMLParagraphElementMethod "getElementsByClassName" o = DOMElementGetElementsByClassNameMethodInfo + ResolveDOMHTMLParagraphElementMethod "getElementsByClassNameAsHtmlCollection" o = DOMElementGetElementsByClassNameAsHtmlCollectionMethodInfo ResolveDOMHTMLParagraphElementMethod "getElementsByTagName" o = DOMElementGetElementsByTagNameMethodInfo + ResolveDOMHTMLParagraphElementMethod "getElementsByTagNameAsHtmlCollection" o = DOMElementGetElementsByTagNameAsHtmlCollectionMethodInfo ResolveDOMHTMLParagraphElementMethod "getElementsByTagNameNs" o = DOMElementGetElementsByTagNameNsMethodInfo + ResolveDOMHTMLParagraphElementMethod "getElementsByTagNameNsAsHtmlCollection" o = DOMElementGetElementsByTagNameNsAsHtmlCollectionMethodInfo ResolveDOMHTMLParagraphElementMethod "getFirstChild" o = DOMNodeGetFirstChildMethodInfo ResolveDOMHTMLParagraphElementMethod "getFirstElementChild" o = DOMElementGetFirstElementChildMethodInfo ResolveDOMHTMLParagraphElementMethod "getId" o = DOMElementGetIdMethodInfo @@ -218,30 +222,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", DOMElementChildrenPropertyInfo), '("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", DOMElementInnerHtmlPropertyInfo), '("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", DOMElementOuterHtmlPropertyInfo), '("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, *)]) +type DOMHTMLParagraphElementAttributeList = ('[ '("accessKey", DOMHTMLElementAccessKeyPropertyInfo), '("align", DOMHTMLParagraphElementAlignPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("baseUri", DOMNodeBaseUriPropertyInfo), '("childElementCount", DOMElementChildElementCountPropertyInfo), '("childNodes", DOMNodeChildNodesPropertyInfo), '("children", DOMElementChildrenPropertyInfo), '("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", DOMElementInnerHtmlPropertyInfo), '("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", DOMElementOuterHtmlPropertyInfo), '("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), '("treeRoot", DOMNodeTreeRootPropertyInfo), '("webkitRegionOverset", DOMElementWebkitRegionOversetPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo)] :: [(Symbol, *)]) +dOMHTMLParagraphElementAlign :: AttrLabelProxy "align" +dOMHTMLParagraphElementAlign = AttrLabelProxy + type instance SignalList DOMHTMLParagraphElement = DOMHTMLParagraphElementSignalList type DOMHTMLParagraphElementSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) @@ -249,7 +258,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -279,7 +288,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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/WebKit2WebExtension/Objects/DOMHTMLParagraphElement.hs-boot b/GI/WebKit2WebExtension/Objects/DOMHTMLParagraphElement.hs-boot --- a/GI/WebKit2WebExtension/Objects/DOMHTMLParagraphElement.hs-boot +++ b/GI/WebKit2WebExtension/Objects/DOMHTMLParagraphElement.hs-boot @@ -1,8 +1,8 @@ module GI.WebKit2WebExtension.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/WebKit2WebExtension/Objects/DOMHTMLParamElement.hs b/GI/WebKit2WebExtension/Objects/DOMHTMLParamElement.hs --- a/GI/WebKit2WebExtension/Objects/DOMHTMLParamElement.hs +++ b/GI/WebKit2WebExtension/Objects/DOMHTMLParamElement.hs @@ -63,13 +63,16 @@ -- ** Name DOMHTMLParamElementNamePropertyInfo , constructDOMHTMLParamElementName , + dOMHTMLParamElementName , getDOMHTMLParamElementName , setDOMHTMLParamElementName , -- ** Type DOMHTMLParamElementTypePropertyInfo , + clearDOMHTMLParamElementType , constructDOMHTMLParamElementType , + dOMHTMLParamElementType , getDOMHTMLParamElementType , setDOMHTMLParamElementType , @@ -77,6 +80,7 @@ -- ** Value DOMHTMLParamElementValuePropertyInfo , constructDOMHTMLParamElementValue , + dOMHTMLParamElementValue , getDOMHTMLParamElementValue , setDOMHTMLParamElementValue , @@ -84,6 +88,7 @@ -- ** ValueType DOMHTMLParamElementValueTypePropertyInfo, constructDOMHTMLParamElementValueType , + dOMHTMLParamElementValueType , getDOMHTMLParamElementValueType , setDOMHTMLParamElementValueType , @@ -92,9 +97,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,8 +198,11 @@ ResolveDOMHTMLParamElementMethod "getData" o = GObject.ObjectGetDataMethodInfo ResolveDOMHTMLParamElementMethod "getDir" o = DOMHTMLElementGetDirMethodInfo ResolveDOMHTMLParamElementMethod "getElementsByClassName" o = DOMElementGetElementsByClassNameMethodInfo + ResolveDOMHTMLParamElementMethod "getElementsByClassNameAsHtmlCollection" o = DOMElementGetElementsByClassNameAsHtmlCollectionMethodInfo ResolveDOMHTMLParamElementMethod "getElementsByTagName" o = DOMElementGetElementsByTagNameMethodInfo + ResolveDOMHTMLParamElementMethod "getElementsByTagNameAsHtmlCollection" o = DOMElementGetElementsByTagNameAsHtmlCollectionMethodInfo ResolveDOMHTMLParamElementMethod "getElementsByTagNameNs" o = DOMElementGetElementsByTagNameNsMethodInfo + ResolveDOMHTMLParamElementMethod "getElementsByTagNameNsAsHtmlCollection" o = DOMElementGetElementsByTagNameNsAsHtmlCollectionMethodInfo ResolveDOMHTMLParamElementMethod "getFirstChild" o = DOMNodeGetFirstChildMethodInfo ResolveDOMHTMLParamElementMethod "getFirstElementChild" o = DOMElementGetFirstElementChildMethodInfo ResolveDOMHTMLParamElementMethod "getId" o = DOMElementGetIdMethodInfo @@ -275,102 +283,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", DOMElementChildrenPropertyInfo), '("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", DOMElementInnerHtmlPropertyInfo), '("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", DOMElementOuterHtmlPropertyInfo), '("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, *)]) +type DOMHTMLParamElementAttributeList = ('[ '("accessKey", DOMHTMLElementAccessKeyPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("baseUri", DOMNodeBaseUriPropertyInfo), '("childElementCount", DOMElementChildElementCountPropertyInfo), '("childNodes", DOMNodeChildNodesPropertyInfo), '("children", DOMElementChildrenPropertyInfo), '("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", DOMElementInnerHtmlPropertyInfo), '("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", DOMElementOuterHtmlPropertyInfo), '("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), '("treeRoot", DOMNodeTreeRootPropertyInfo), '("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, *)]) @@ -378,7 +409,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -408,7 +439,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -438,7 +469,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -468,7 +499,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -498,7 +529,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -529,7 +560,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -560,7 +591,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -591,7 +622,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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/WebKit2WebExtension/Objects/DOMHTMLParamElement.hs-boot b/GI/WebKit2WebExtension/Objects/DOMHTMLParamElement.hs-boot --- a/GI/WebKit2WebExtension/Objects/DOMHTMLParamElement.hs-boot +++ b/GI/WebKit2WebExtension/Objects/DOMHTMLParamElement.hs-boot @@ -1,8 +1,8 @@ module GI.WebKit2WebExtension.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/WebKit2WebExtension/Objects/DOMHTMLPreElement.hs b/GI/WebKit2WebExtension/Objects/DOMHTMLPreElement.hs --- a/GI/WebKit2WebExtension/Objects/DOMHTMLPreElement.hs +++ b/GI/WebKit2WebExtension/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 @@ -159,8 +161,11 @@ ResolveDOMHTMLPreElementMethod "getData" o = GObject.ObjectGetDataMethodInfo ResolveDOMHTMLPreElementMethod "getDir" o = DOMHTMLElementGetDirMethodInfo ResolveDOMHTMLPreElementMethod "getElementsByClassName" o = DOMElementGetElementsByClassNameMethodInfo + ResolveDOMHTMLPreElementMethod "getElementsByClassNameAsHtmlCollection" o = DOMElementGetElementsByClassNameAsHtmlCollectionMethodInfo ResolveDOMHTMLPreElementMethod "getElementsByTagName" o = DOMElementGetElementsByTagNameMethodInfo + ResolveDOMHTMLPreElementMethod "getElementsByTagNameAsHtmlCollection" o = DOMElementGetElementsByTagNameAsHtmlCollectionMethodInfo ResolveDOMHTMLPreElementMethod "getElementsByTagNameNs" o = DOMElementGetElementsByTagNameNsMethodInfo + ResolveDOMHTMLPreElementMethod "getElementsByTagNameNsAsHtmlCollection" o = DOMElementGetElementsByTagNameNsAsHtmlCollectionMethodInfo ResolveDOMHTMLPreElementMethod "getFirstChild" o = DOMNodeGetFirstChildMethodInfo ResolveDOMHTMLPreElementMethod "getFirstElementChild" o = DOMElementGetFirstElementChildMethodInfo ResolveDOMHTMLPreElementMethod "getId" o = DOMElementGetIdMethodInfo @@ -235,32 +240,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" @@ -281,10 +289,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", DOMElementChildrenPropertyInfo), '("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", DOMElementInnerHtmlPropertyInfo), '("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", DOMElementOuterHtmlPropertyInfo), '("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, *)]) +type DOMHTMLPreElementAttributeList = ('[ '("accessKey", DOMHTMLElementAccessKeyPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("baseUri", DOMNodeBaseUriPropertyInfo), '("childElementCount", DOMElementChildElementCountPropertyInfo), '("childNodes", DOMNodeChildNodesPropertyInfo), '("children", DOMElementChildrenPropertyInfo), '("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", DOMElementInnerHtmlPropertyInfo), '("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", DOMElementOuterHtmlPropertyInfo), '("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), '("treeRoot", DOMNodeTreeRootPropertyInfo), '("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, *)]) @@ -292,19 +307,19 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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' @@ -312,14 +327,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 "WebKit2WebExtension" "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 @@ -345,22 +360,22 @@ -- method DOMHTMLPreElement::set_width -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 @@ -369,14 +384,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 "WebKit2WebExtension" "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/WebKit2WebExtension/Objects/DOMHTMLPreElement.hs-boot b/GI/WebKit2WebExtension/Objects/DOMHTMLPreElement.hs-boot --- a/GI/WebKit2WebExtension/Objects/DOMHTMLPreElement.hs-boot +++ b/GI/WebKit2WebExtension/Objects/DOMHTMLPreElement.hs-boot @@ -1,8 +1,8 @@ module GI.WebKit2WebExtension.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/WebKit2WebExtension/Objects/DOMHTMLQuoteElement.hs b/GI/WebKit2WebExtension/Objects/DOMHTMLQuoteElement.hs --- a/GI/WebKit2WebExtension/Objects/DOMHTMLQuoteElement.hs +++ b/GI/WebKit2WebExtension/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 @@ -143,8 +144,11 @@ ResolveDOMHTMLQuoteElementMethod "getData" o = GObject.ObjectGetDataMethodInfo ResolveDOMHTMLQuoteElementMethod "getDir" o = DOMHTMLElementGetDirMethodInfo ResolveDOMHTMLQuoteElementMethod "getElementsByClassName" o = DOMElementGetElementsByClassNameMethodInfo + ResolveDOMHTMLQuoteElementMethod "getElementsByClassNameAsHtmlCollection" o = DOMElementGetElementsByClassNameAsHtmlCollectionMethodInfo ResolveDOMHTMLQuoteElementMethod "getElementsByTagName" o = DOMElementGetElementsByTagNameMethodInfo + ResolveDOMHTMLQuoteElementMethod "getElementsByTagNameAsHtmlCollection" o = DOMElementGetElementsByTagNameAsHtmlCollectionMethodInfo ResolveDOMHTMLQuoteElementMethod "getElementsByTagNameNs" o = DOMElementGetElementsByTagNameNsMethodInfo + ResolveDOMHTMLQuoteElementMethod "getElementsByTagNameNsAsHtmlCollection" o = DOMElementGetElementsByTagNameNsAsHtmlCollectionMethodInfo ResolveDOMHTMLQuoteElementMethod "getFirstChild" o = DOMNodeGetFirstChildMethodInfo ResolveDOMHTMLQuoteElementMethod "getFirstElementChild" o = DOMElementGetFirstElementChildMethodInfo ResolveDOMHTMLQuoteElementMethod "getId" o = DOMElementGetIdMethodInfo @@ -218,30 +222,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", DOMElementChildrenPropertyInfo), '("cite", DOMHTMLQuoteElementCitePropertyInfo), '("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", DOMElementInnerHtmlPropertyInfo), '("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", DOMElementOuterHtmlPropertyInfo), '("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, *)]) +type DOMHTMLQuoteElementAttributeList = ('[ '("accessKey", DOMHTMLElementAccessKeyPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("baseUri", DOMNodeBaseUriPropertyInfo), '("childElementCount", DOMElementChildElementCountPropertyInfo), '("childNodes", DOMNodeChildNodesPropertyInfo), '("children", DOMElementChildrenPropertyInfo), '("cite", DOMHTMLQuoteElementCitePropertyInfo), '("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", DOMElementInnerHtmlPropertyInfo), '("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", DOMElementOuterHtmlPropertyInfo), '("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), '("treeRoot", DOMNodeTreeRootPropertyInfo), '("webkitRegionOverset", DOMElementWebkitRegionOversetPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo)] :: [(Symbol, *)]) +dOMHTMLQuoteElementCite :: AttrLabelProxy "cite" +dOMHTMLQuoteElementCite = AttrLabelProxy + type instance SignalList DOMHTMLQuoteElement = DOMHTMLQuoteElementSignalList type DOMHTMLQuoteElementSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) @@ -249,7 +258,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -279,7 +288,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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/WebKit2WebExtension/Objects/DOMHTMLQuoteElement.hs-boot b/GI/WebKit2WebExtension/Objects/DOMHTMLQuoteElement.hs-boot --- a/GI/WebKit2WebExtension/Objects/DOMHTMLQuoteElement.hs-boot +++ b/GI/WebKit2WebExtension/Objects/DOMHTMLQuoteElement.hs-boot @@ -1,8 +1,8 @@ module GI.WebKit2WebExtension.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/WebKit2WebExtension/Objects/DOMHTMLScriptElement.hs b/GI/WebKit2WebExtension/Objects/DOMHTMLScriptElement.hs --- a/GI/WebKit2WebExtension/Objects/DOMHTMLScriptElement.hs +++ b/GI/WebKit2WebExtension/Objects/DOMHTMLScriptElement.hs @@ -88,20 +88,25 @@ -- ** Async DOMHTMLScriptElementAsyncPropertyInfo , constructDOMHTMLScriptElementAsync , + dOMHTMLScriptElementAsync , getDOMHTMLScriptElementAsync , setDOMHTMLScriptElementAsync , -- ** Charset DOMHTMLScriptElementCharsetPropertyInfo , + clearDOMHTMLScriptElementCharset , constructDOMHTMLScriptElementCharset , + dOMHTMLScriptElementCharset , getDOMHTMLScriptElementCharset , setDOMHTMLScriptElementCharset , -- ** CrossOrigin DOMHTMLScriptElementCrossOriginPropertyInfo, + clearDOMHTMLScriptElementCrossOrigin , constructDOMHTMLScriptElementCrossOrigin, + dOMHTMLScriptElementCrossOrigin , getDOMHTMLScriptElementCrossOrigin , setDOMHTMLScriptElementCrossOrigin , @@ -109,6 +114,7 @@ -- ** Defer DOMHTMLScriptElementDeferPropertyInfo , constructDOMHTMLScriptElementDefer , + dOMHTMLScriptElementDefer , getDOMHTMLScriptElementDefer , setDOMHTMLScriptElementDefer , @@ -116,6 +122,7 @@ -- ** Event DOMHTMLScriptElementEventPropertyInfo , constructDOMHTMLScriptElementEvent , + dOMHTMLScriptElementEvent , getDOMHTMLScriptElementEvent , setDOMHTMLScriptElementEvent , @@ -123,13 +130,16 @@ -- ** HtmlFor DOMHTMLScriptElementHtmlForPropertyInfo , constructDOMHTMLScriptElementHtmlFor , + dOMHTMLScriptElementHtmlFor , getDOMHTMLScriptElementHtmlFor , setDOMHTMLScriptElementHtmlFor , -- ** Nonce DOMHTMLScriptElementNoncePropertyInfo , + clearDOMHTMLScriptElementNonce , constructDOMHTMLScriptElementNonce , + dOMHTMLScriptElementNonce , getDOMHTMLScriptElementNonce , setDOMHTMLScriptElementNonce , @@ -137,6 +147,7 @@ -- ** Src DOMHTMLScriptElementSrcPropertyInfo , constructDOMHTMLScriptElementSrc , + dOMHTMLScriptElementSrc , getDOMHTMLScriptElementSrc , setDOMHTMLScriptElementSrc , @@ -144,13 +155,16 @@ -- ** Text DOMHTMLScriptElementTextPropertyInfo , constructDOMHTMLScriptElementText , + dOMHTMLScriptElementText , getDOMHTMLScriptElementText , setDOMHTMLScriptElementText , -- ** Type DOMHTMLScriptElementTypePropertyInfo , + clearDOMHTMLScriptElementType , constructDOMHTMLScriptElementType , + dOMHTMLScriptElementType , getDOMHTMLScriptElementType , setDOMHTMLScriptElementType , @@ -159,9 +173,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,8 +276,11 @@ ResolveDOMHTMLScriptElementMethod "getDefer" o = DOMHTMLScriptElementGetDeferMethodInfo ResolveDOMHTMLScriptElementMethod "getDir" o = DOMHTMLElementGetDirMethodInfo ResolveDOMHTMLScriptElementMethod "getElementsByClassName" o = DOMElementGetElementsByClassNameMethodInfo + ResolveDOMHTMLScriptElementMethod "getElementsByClassNameAsHtmlCollection" o = DOMElementGetElementsByClassNameAsHtmlCollectionMethodInfo ResolveDOMHTMLScriptElementMethod "getElementsByTagName" o = DOMElementGetElementsByTagNameMethodInfo + ResolveDOMHTMLScriptElementMethod "getElementsByTagNameAsHtmlCollection" o = DOMElementGetElementsByTagNameAsHtmlCollectionMethodInfo ResolveDOMHTMLScriptElementMethod "getElementsByTagNameNs" o = DOMElementGetElementsByTagNameNsMethodInfo + ResolveDOMHTMLScriptElementMethod "getElementsByTagNameNsAsHtmlCollection" o = DOMElementGetElementsByTagNameNsAsHtmlCollectionMethodInfo ResolveDOMHTMLScriptElementMethod "getEvent" o = DOMHTMLScriptElementGetEventMethodInfo ResolveDOMHTMLScriptElementMethod "getFirstChild" o = DOMNodeGetFirstChildMethodInfo ResolveDOMHTMLScriptElementMethod "getFirstElementChild" o = DOMElementGetFirstElementChildMethodInfo @@ -347,6 +364,7 @@ -- VVV Prop "async" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) getDOMHTMLScriptElementAsync :: (MonadIO m, DOMHTMLScriptElementK o) => o -> m Bool getDOMHTMLScriptElementAsync obj = liftIO $ getObjectPropertyBool obj "async" @@ -367,58 +385,70 @@ attrGet _ = getDOMHTMLScriptElementAsync attrSet _ = setDOMHTMLScriptElementAsync attrConstruct _ = constructDOMHTMLScriptElementAsync + attrClear _ = undefined -- VVV Prop "charset" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) -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) +clearDOMHTMLScriptElementCharset :: (MonadIO m, DOMHTMLScriptElementK o) => o -> m () +clearDOMHTMLScriptElementCharset obj = liftIO $ setObjectPropertyString obj "charset" (Nothing :: Maybe T.Text) + data DOMHTMLScriptElementCharsetPropertyInfo instance AttrInfo DOMHTMLScriptElementCharsetPropertyInfo where - type AttrAllowedOps DOMHTMLScriptElementCharsetPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrAllowedOps DOMHTMLScriptElementCharsetPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] 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 _ = clearDOMHTMLScriptElementCharset -- VVV Prop "cross-origin" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) -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) +clearDOMHTMLScriptElementCrossOrigin :: (MonadIO m, DOMHTMLScriptElementK o) => o -> m () +clearDOMHTMLScriptElementCrossOrigin obj = liftIO $ setObjectPropertyString obj "cross-origin" (Nothing :: Maybe T.Text) + data DOMHTMLScriptElementCrossOriginPropertyInfo instance AttrInfo DOMHTMLScriptElementCrossOriginPropertyInfo where - type AttrAllowedOps DOMHTMLScriptElementCrossOriginPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrAllowedOps DOMHTMLScriptElementCrossOriginPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] 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 _ = clearDOMHTMLScriptElementCrossOrigin -- 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" @@ -439,154 +469,203 @@ 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,Nothing) -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) +clearDOMHTMLScriptElementNonce :: (MonadIO m, DOMHTMLScriptElementK o) => o -> m () +clearDOMHTMLScriptElementNonce obj = liftIO $ setObjectPropertyString obj "nonce" (Nothing :: Maybe T.Text) + data DOMHTMLScriptElementNoncePropertyInfo instance AttrInfo DOMHTMLScriptElementNoncePropertyInfo where - type AttrAllowedOps DOMHTMLScriptElementNoncePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrAllowedOps DOMHTMLScriptElementNoncePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] 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 _ = clearDOMHTMLScriptElementNonce -- 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", DOMElementChildrenPropertyInfo), '("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", DOMElementInnerHtmlPropertyInfo), '("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", DOMElementOuterHtmlPropertyInfo), '("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, *)]) +type DOMHTMLScriptElementAttributeList = ('[ '("accessKey", DOMHTMLElementAccessKeyPropertyInfo), '("async", DOMHTMLScriptElementAsyncPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("baseUri", DOMNodeBaseUriPropertyInfo), '("charset", DOMHTMLScriptElementCharsetPropertyInfo), '("childElementCount", DOMElementChildElementCountPropertyInfo), '("childNodes", DOMNodeChildNodesPropertyInfo), '("children", DOMElementChildrenPropertyInfo), '("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", DOMElementInnerHtmlPropertyInfo), '("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", DOMElementOuterHtmlPropertyInfo), '("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), '("treeRoot", DOMNodeTreeRootPropertyInfo), '("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, *)]) @@ -594,7 +673,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -624,7 +703,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -652,7 +731,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -682,7 +761,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -712,7 +791,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -742,7 +821,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -772,7 +851,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -802,7 +881,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -832,7 +911,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -863,7 +942,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -894,7 +973,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -925,7 +1004,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -956,7 +1035,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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/WebKit2WebExtension/Objects/DOMHTMLScriptElement.hs-boot b/GI/WebKit2WebExtension/Objects/DOMHTMLScriptElement.hs-boot --- a/GI/WebKit2WebExtension/Objects/DOMHTMLScriptElement.hs-boot +++ b/GI/WebKit2WebExtension/Objects/DOMHTMLScriptElement.hs-boot @@ -1,8 +1,8 @@ module GI.WebKit2WebExtension.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/WebKit2WebExtension/Objects/DOMHTMLSelectElement.hs b/GI/WebKit2WebExtension/Objects/DOMHTMLSelectElement.hs --- a/GI/WebKit2WebExtension/Objects/DOMHTMLSelectElement.hs +++ b/GI/WebKit2WebExtension/Objects/DOMHTMLSelectElement.hs @@ -140,9 +140,19 @@ -- * Properties +-- ** Autocomplete + DOMHTMLSelectElementAutocompletePropertyInfo, + clearDOMHTMLSelectElementAutocomplete , + constructDOMHTMLSelectElementAutocomplete, + dOMHTMLSelectElementAutocomplete , + getDOMHTMLSelectElementAutocomplete , + setDOMHTMLSelectElementAutocomplete , + + -- ** Autofocus DOMHTMLSelectElementAutofocusPropertyInfo, constructDOMHTMLSelectElementAutofocus , + dOMHTMLSelectElementAutofocus , getDOMHTMLSelectElementAutofocus , setDOMHTMLSelectElementAutofocus , @@ -150,23 +160,27 @@ -- ** Disabled DOMHTMLSelectElementDisabledPropertyInfo, constructDOMHTMLSelectElementDisabled , + dOMHTMLSelectElementDisabled , getDOMHTMLSelectElementDisabled , setDOMHTMLSelectElementDisabled , -- ** Form DOMHTMLSelectElementFormPropertyInfo , + dOMHTMLSelectElementForm , getDOMHTMLSelectElementForm , -- ** Labels DOMHTMLSelectElementLabelsPropertyInfo , + dOMHTMLSelectElementLabels , getDOMHTMLSelectElementLabels , -- ** Length DOMHTMLSelectElementLengthPropertyInfo , constructDOMHTMLSelectElementLength , + dOMHTMLSelectElementLength , getDOMHTMLSelectElementLength , setDOMHTMLSelectElementLength , @@ -174,6 +188,7 @@ -- ** Multiple DOMHTMLSelectElementMultiplePropertyInfo, constructDOMHTMLSelectElementMultiple , + dOMHTMLSelectElementMultiple , getDOMHTMLSelectElementMultiple , setDOMHTMLSelectElementMultiple , @@ -181,18 +196,21 @@ -- ** Name DOMHTMLSelectElementNamePropertyInfo , constructDOMHTMLSelectElementName , + dOMHTMLSelectElementName , getDOMHTMLSelectElementName , setDOMHTMLSelectElementName , -- ** Options DOMHTMLSelectElementOptionsPropertyInfo , + dOMHTMLSelectElementOptions , getDOMHTMLSelectElementOptions , -- ** Required DOMHTMLSelectElementRequiredPropertyInfo, constructDOMHTMLSelectElementRequired , + dOMHTMLSelectElementRequired , getDOMHTMLSelectElementRequired , setDOMHTMLSelectElementRequired , @@ -200,41 +218,48 @@ -- ** SelectedIndex DOMHTMLSelectElementSelectedIndexPropertyInfo, constructDOMHTMLSelectElementSelectedIndex, + dOMHTMLSelectElementSelectedIndex , getDOMHTMLSelectElementSelectedIndex , setDOMHTMLSelectElementSelectedIndex , -- ** SelectedOptions DOMHTMLSelectElementSelectedOptionsPropertyInfo, + dOMHTMLSelectElementSelectedOptions , getDOMHTMLSelectElementSelectedOptions , -- ** Size DOMHTMLSelectElementSizePropertyInfo , constructDOMHTMLSelectElementSize , + dOMHTMLSelectElementSize , getDOMHTMLSelectElementSize , setDOMHTMLSelectElementSize , -- ** Type DOMHTMLSelectElementTypePropertyInfo , + dOMHTMLSelectElementType , getDOMHTMLSelectElementType , -- ** ValidationMessage DOMHTMLSelectElementValidationMessagePropertyInfo, + dOMHTMLSelectElementValidationMessage , getDOMHTMLSelectElementValidationMessage, -- ** Value DOMHTMLSelectElementValuePropertyInfo , constructDOMHTMLSelectElementValue , + dOMHTMLSelectElementValue , getDOMHTMLSelectElementValue , setDOMHTMLSelectElementValue , -- ** WillValidate DOMHTMLSelectElementWillValidatePropertyInfo, + dOMHTMLSelectElementWillValidate , getDOMHTMLSelectElementWillValidate , @@ -242,9 +267,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 @@ -349,8 +374,11 @@ ResolveDOMHTMLSelectElementMethod "getDir" o = DOMHTMLElementGetDirMethodInfo ResolveDOMHTMLSelectElementMethod "getDisabled" o = DOMHTMLSelectElementGetDisabledMethodInfo ResolveDOMHTMLSelectElementMethod "getElementsByClassName" o = DOMElementGetElementsByClassNameMethodInfo + ResolveDOMHTMLSelectElementMethod "getElementsByClassNameAsHtmlCollection" o = DOMElementGetElementsByClassNameAsHtmlCollectionMethodInfo ResolveDOMHTMLSelectElementMethod "getElementsByTagName" o = DOMElementGetElementsByTagNameMethodInfo + ResolveDOMHTMLSelectElementMethod "getElementsByTagNameAsHtmlCollection" o = DOMElementGetElementsByTagNameAsHtmlCollectionMethodInfo ResolveDOMHTMLSelectElementMethod "getElementsByTagNameNs" o = DOMElementGetElementsByTagNameNsMethodInfo + ResolveDOMHTMLSelectElementMethod "getElementsByTagNameNsAsHtmlCollection" o = DOMElementGetElementsByTagNameNsAsHtmlCollectionMethodInfo ResolveDOMHTMLSelectElementMethod "getFirstChild" o = DOMNodeGetFirstChildMethodInfo ResolveDOMHTMLSelectElementMethod "getFirstElementChild" o = DOMElementGetFirstElementChildMethodInfo ResolveDOMHTMLSelectElementMethod "getForm" o = DOMHTMLSelectElementGetFormMethodInfo @@ -438,9 +466,39 @@ fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) #endif +-- VVV Prop "autocomplete" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) + +getDOMHTMLSelectElementAutocomplete :: (MonadIO m, DOMHTMLSelectElementK o) => o -> m (Maybe T.Text) +getDOMHTMLSelectElementAutocomplete obj = liftIO $ getObjectPropertyString obj "autocomplete" + +setDOMHTMLSelectElementAutocomplete :: (MonadIO m, DOMHTMLSelectElementK o) => o -> T.Text -> m () +setDOMHTMLSelectElementAutocomplete obj val = liftIO $ setObjectPropertyString obj "autocomplete" (Just val) + +constructDOMHTMLSelectElementAutocomplete :: T.Text -> IO ([Char], GValue) +constructDOMHTMLSelectElementAutocomplete val = constructObjectPropertyString "autocomplete" (Just val) + +clearDOMHTMLSelectElementAutocomplete :: (MonadIO m, DOMHTMLSelectElementK o) => o -> m () +clearDOMHTMLSelectElementAutocomplete obj = liftIO $ setObjectPropertyString obj "autocomplete" (Nothing :: Maybe T.Text) + +data DOMHTMLSelectElementAutocompletePropertyInfo +instance AttrInfo DOMHTMLSelectElementAutocompletePropertyInfo where + type AttrAllowedOps DOMHTMLSelectElementAutocompletePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] + type AttrSetTypeConstraint DOMHTMLSelectElementAutocompletePropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLSelectElementAutocompletePropertyInfo = DOMHTMLSelectElementK + type AttrGetType DOMHTMLSelectElementAutocompletePropertyInfo = (Maybe T.Text) + type AttrLabel DOMHTMLSelectElementAutocompletePropertyInfo = "autocomplete" + attrGet _ = getDOMHTMLSelectElementAutocomplete + attrSet _ = setDOMHTMLSelectElementAutocomplete + attrConstruct _ = constructDOMHTMLSelectElementAutocomplete + attrClear _ = clearDOMHTMLSelectElementAutocomplete + -- 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" @@ -461,10 +519,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" @@ -485,17 +545,19 @@ attrGet _ = getDOMHTMLSelectElementDisabled attrSet _ = setDOMHTMLSelectElementDisabled attrConstruct _ = constructDOMHTMLSelectElementDisabled + attrClear _ = undefined -- VVV Prop "form" -- Type: TInterface "WebKit2WebExtension" "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 @@ -503,52 +565,58 @@ attrGet _ = getDOMHTMLSelectElementForm attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "labels" -- Type: TInterface "WebKit2WebExtension" "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" @@ -569,52 +637,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 "WebKit2WebExtension" "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: (Nothing,Nothing) getDOMHTMLSelectElementRequired :: (MonadIO m, DOMHTMLSelectElementK o) => o -> m Bool getDOMHTMLSelectElementRequired obj = liftIO $ getObjectPropertyBool obj "required" @@ -635,136 +709,150 @@ 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 "WebKit2WebExtension" "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 "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" @@ -779,10 +867,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", DOMElementChildrenPropertyInfo), '("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", DOMElementInnerHtmlPropertyInfo), '("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", DOMElementOuterHtmlPropertyInfo), '("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), '("value", DOMHTMLSelectElementValuePropertyInfo), '("webkitRegionOverset", DOMElementWebkitRegionOversetPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo), '("willValidate", DOMHTMLSelectElementWillValidatePropertyInfo)] :: [(Symbol, *)]) +type DOMHTMLSelectElementAttributeList = ('[ '("accessKey", DOMHTMLElementAccessKeyPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("autocomplete", DOMHTMLSelectElementAutocompletePropertyInfo), '("autofocus", DOMHTMLSelectElementAutofocusPropertyInfo), '("baseUri", DOMNodeBaseUriPropertyInfo), '("childElementCount", DOMElementChildElementCountPropertyInfo), '("childNodes", DOMNodeChildNodesPropertyInfo), '("children", DOMElementChildrenPropertyInfo), '("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", DOMElementInnerHtmlPropertyInfo), '("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", DOMElementOuterHtmlPropertyInfo), '("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), '("treeRoot", DOMNodeTreeRootPropertyInfo), '("type", DOMHTMLSelectElementTypePropertyInfo), '("validationMessage", DOMHTMLSelectElementValidationMessagePropertyInfo), '("value", DOMHTMLSelectElementValuePropertyInfo), '("webkitRegionOverset", DOMElementWebkitRegionOversetPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo), '("willValidate", DOMHTMLSelectElementWillValidatePropertyInfo)] :: [(Symbol, *)]) +dOMHTMLSelectElementAutocomplete :: AttrLabelProxy "autocomplete" +dOMHTMLSelectElementAutocomplete = AttrLabelProxy + +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 + +dOMHTMLSelectElementValue :: AttrLabelProxy "value" +dOMHTMLSelectElementValue = AttrLabelProxy + +dOMHTMLSelectElementWillValidate :: AttrLabelProxy "willValidate" +dOMHTMLSelectElementWillValidate = AttrLabelProxy + type instance SignalList DOMHTMLSelectElement = DOMHTMLSelectElementSignalList type DOMHTMLSelectElementSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) @@ -790,7 +930,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLSelectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "element", argType = TInterface "WebKit2WebExtension" "DOMHTMLElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "before", argType = TInterface "WebKit2WebExtension" "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 @@ -830,7 +970,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -858,7 +998,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -886,7 +1026,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLSelectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit2WebExtension" "DOMHTMLFormElement" +-- returnType : Just (TInterface "WebKit2WebExtension" "DOMHTMLFormElement") -- throws : False -- Skip return : False @@ -915,19 +1055,19 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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' @@ -935,14 +1075,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 "WebKit2WebExtension" "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 @@ -970,7 +1110,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -1000,7 +1140,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLSelectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit2WebExtension" "DOMHTMLOptionsCollection" +-- returnType : Just (TInterface "WebKit2WebExtension" "DOMHTMLOptionsCollection") -- throws : False -- Skip return : False @@ -1029,7 +1169,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -1059,19 +1199,19 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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' @@ -1079,26 +1219,26 @@ 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_size -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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' @@ -1106,14 +1246,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_value -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -1143,7 +1283,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -1169,22 +1309,22 @@ -- method DOMHTMLSelectElement::item -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "DOMNode" +-- returnType : Just (TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 @@ -1195,14 +1335,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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "DOMNode" +-- returnType : Just (TInterface "WebKit2WebExtension" "DOMNode") -- throws : False -- Skip return : False @@ -1233,22 +1373,22 @@ -- method DOMHTMLSelectElement::remove -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 @@ -1257,14 +1397,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 "WebKit2WebExtension" "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 @@ -1294,7 +1434,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -1322,15 +1462,15 @@ -- method DOMHTMLSelectElement::set_length -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "DOMHTMLSelectElement" - Word64 -> -- value : TBasicType TUInt64 + CULong -> -- value : TBasicType TULong Ptr (Ptr GError) -> -- error IO () @@ -1338,7 +1478,7 @@ dOMHTMLSelectElementSetLength :: (MonadIO m, DOMHTMLSelectElementK a) => a -- _obj - -> Word64 -- value + -> CULong -- value -> m () -- result dOMHTMLSelectElementSetLength _obj value = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj @@ -1351,14 +1491,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 "WebKit2WebExtension" "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 @@ -1388,7 +1528,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -1417,22 +1557,22 @@ -- method DOMHTMLSelectElement::set_selected_index -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 @@ -1441,27 +1581,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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 @@ -1470,14 +1610,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 "WebKit2WebExtension" "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/WebKit2WebExtension/Objects/DOMHTMLSelectElement.hs-boot b/GI/WebKit2WebExtension/Objects/DOMHTMLSelectElement.hs-boot --- a/GI/WebKit2WebExtension/Objects/DOMHTMLSelectElement.hs-boot +++ b/GI/WebKit2WebExtension/Objects/DOMHTMLSelectElement.hs-boot @@ -1,8 +1,8 @@ module GI.WebKit2WebExtension.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 @@ -11,6 +11,7 @@ instance GObject DOMHTMLSelectElement where class GObject o => DOMHTMLSelectElementK o instance (GObject o, IsDescendantOf DOMHTMLSelectElement o) => DOMHTMLSelectElementK o +data DOMHTMLSelectElementAutocompletePropertyInfo data DOMHTMLSelectElementAutofocusPropertyInfo data DOMHTMLSelectElementDisabledPropertyInfo data DOMHTMLSelectElementFormPropertyInfo diff --git a/GI/WebKit2WebExtension/Objects/DOMHTMLStyleElement.hs b/GI/WebKit2WebExtension/Objects/DOMHTMLStyleElement.hs --- a/GI/WebKit2WebExtension/Objects/DOMHTMLStyleElement.hs +++ b/GI/WebKit2WebExtension/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 @@ -187,8 +192,11 @@ ResolveDOMHTMLStyleElementMethod "getDir" o = DOMHTMLElementGetDirMethodInfo ResolveDOMHTMLStyleElementMethod "getDisabled" o = DOMHTMLStyleElementGetDisabledMethodInfo ResolveDOMHTMLStyleElementMethod "getElementsByClassName" o = DOMElementGetElementsByClassNameMethodInfo + ResolveDOMHTMLStyleElementMethod "getElementsByClassNameAsHtmlCollection" o = DOMElementGetElementsByClassNameAsHtmlCollectionMethodInfo ResolveDOMHTMLStyleElementMethod "getElementsByTagName" o = DOMElementGetElementsByTagNameMethodInfo + ResolveDOMHTMLStyleElementMethod "getElementsByTagNameAsHtmlCollection" o = DOMElementGetElementsByTagNameAsHtmlCollectionMethodInfo ResolveDOMHTMLStyleElementMethod "getElementsByTagNameNs" o = DOMElementGetElementsByTagNameNsMethodInfo + ResolveDOMHTMLStyleElementMethod "getElementsByTagNameNsAsHtmlCollection" o = DOMElementGetElementsByTagNameNsAsHtmlCollectionMethodInfo ResolveDOMHTMLStyleElementMethod "getFirstChild" o = DOMNodeGetFirstChildMethodInfo ResolveDOMHTMLStyleElementMethod "getFirstElementChild" o = DOMElementGetFirstElementChildMethodInfo ResolveDOMHTMLStyleElementMethod "getId" o = DOMElementGetIdMethodInfo @@ -267,6 +275,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" @@ -287,76 +296,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 "WebKit2WebExtension" "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", DOMElementChildrenPropertyInfo), '("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", DOMElementInnerHtmlPropertyInfo), '("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", DOMElementOuterHtmlPropertyInfo), '("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, *)]) +type DOMHTMLStyleElementAttributeList = ('[ '("accessKey", DOMHTMLElementAccessKeyPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("baseUri", DOMNodeBaseUriPropertyInfo), '("childElementCount", DOMElementChildElementCountPropertyInfo), '("childNodes", DOMNodeChildNodesPropertyInfo), '("children", DOMElementChildrenPropertyInfo), '("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", DOMElementInnerHtmlPropertyInfo), '("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", DOMElementOuterHtmlPropertyInfo), '("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), '("treeRoot", DOMNodeTreeRootPropertyInfo), '("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, *)]) @@ -364,7 +395,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -392,7 +423,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -422,7 +453,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLStyleElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit2WebExtension" "DOMStyleSheet" +-- returnType : Just (TInterface "WebKit2WebExtension" "DOMStyleSheet") -- throws : False -- Skip return : False @@ -451,7 +482,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -481,7 +512,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -511,7 +542,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -542,7 +573,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 diff --git a/GI/WebKit2WebExtension/Objects/DOMHTMLStyleElement.hs-boot b/GI/WebKit2WebExtension/Objects/DOMHTMLStyleElement.hs-boot --- a/GI/WebKit2WebExtension/Objects/DOMHTMLStyleElement.hs-boot +++ b/GI/WebKit2WebExtension/Objects/DOMHTMLStyleElement.hs-boot @@ -1,8 +1,8 @@ module GI.WebKit2WebExtension.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/WebKit2WebExtension/Objects/DOMHTMLTableCaptionElement.hs b/GI/WebKit2WebExtension/Objects/DOMHTMLTableCaptionElement.hs --- a/GI/WebKit2WebExtension/Objects/DOMHTMLTableCaptionElement.hs +++ b/GI/WebKit2WebExtension/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 @@ -143,8 +144,11 @@ ResolveDOMHTMLTableCaptionElementMethod "getData" o = GObject.ObjectGetDataMethodInfo ResolveDOMHTMLTableCaptionElementMethod "getDir" o = DOMHTMLElementGetDirMethodInfo ResolveDOMHTMLTableCaptionElementMethod "getElementsByClassName" o = DOMElementGetElementsByClassNameMethodInfo + ResolveDOMHTMLTableCaptionElementMethod "getElementsByClassNameAsHtmlCollection" o = DOMElementGetElementsByClassNameAsHtmlCollectionMethodInfo ResolveDOMHTMLTableCaptionElementMethod "getElementsByTagName" o = DOMElementGetElementsByTagNameMethodInfo + ResolveDOMHTMLTableCaptionElementMethod "getElementsByTagNameAsHtmlCollection" o = DOMElementGetElementsByTagNameAsHtmlCollectionMethodInfo ResolveDOMHTMLTableCaptionElementMethod "getElementsByTagNameNs" o = DOMElementGetElementsByTagNameNsMethodInfo + ResolveDOMHTMLTableCaptionElementMethod "getElementsByTagNameNsAsHtmlCollection" o = DOMElementGetElementsByTagNameNsAsHtmlCollectionMethodInfo ResolveDOMHTMLTableCaptionElementMethod "getFirstChild" o = DOMNodeGetFirstChildMethodInfo ResolveDOMHTMLTableCaptionElementMethod "getFirstElementChild" o = DOMElementGetFirstElementChildMethodInfo ResolveDOMHTMLTableCaptionElementMethod "getId" o = DOMElementGetIdMethodInfo @@ -218,30 +222,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", DOMElementChildrenPropertyInfo), '("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", DOMElementInnerHtmlPropertyInfo), '("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", DOMElementOuterHtmlPropertyInfo), '("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, *)]) +type DOMHTMLTableCaptionElementAttributeList = ('[ '("accessKey", DOMHTMLElementAccessKeyPropertyInfo), '("align", DOMHTMLTableCaptionElementAlignPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("baseUri", DOMNodeBaseUriPropertyInfo), '("childElementCount", DOMElementChildElementCountPropertyInfo), '("childNodes", DOMNodeChildNodesPropertyInfo), '("children", DOMElementChildrenPropertyInfo), '("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", DOMElementInnerHtmlPropertyInfo), '("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", DOMElementOuterHtmlPropertyInfo), '("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), '("treeRoot", DOMNodeTreeRootPropertyInfo), '("webkitRegionOverset", DOMElementWebkitRegionOversetPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo)] :: [(Symbol, *)]) +dOMHTMLTableCaptionElementAlign :: AttrLabelProxy "align" +dOMHTMLTableCaptionElementAlign = AttrLabelProxy + type instance SignalList DOMHTMLTableCaptionElement = DOMHTMLTableCaptionElementSignalList type DOMHTMLTableCaptionElementSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) @@ -249,7 +258,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -279,7 +288,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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/WebKit2WebExtension/Objects/DOMHTMLTableCaptionElement.hs-boot b/GI/WebKit2WebExtension/Objects/DOMHTMLTableCaptionElement.hs-boot --- a/GI/WebKit2WebExtension/Objects/DOMHTMLTableCaptionElement.hs-boot +++ b/GI/WebKit2WebExtension/Objects/DOMHTMLTableCaptionElement.hs-boot @@ -1,8 +1,8 @@ module GI.WebKit2WebExtension.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/WebKit2WebExtension/Objects/DOMHTMLTableCellElement.hs b/GI/WebKit2WebExtension/Objects/DOMHTMLTableCellElement.hs --- a/GI/WebKit2WebExtension/Objects/DOMHTMLTableCellElement.hs +++ b/GI/WebKit2WebExtension/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 @@ -381,8 +396,11 @@ ResolveDOMHTMLTableCellElementMethod "getData" o = GObject.ObjectGetDataMethodInfo ResolveDOMHTMLTableCellElementMethod "getDir" o = DOMHTMLElementGetDirMethodInfo ResolveDOMHTMLTableCellElementMethod "getElementsByClassName" o = DOMElementGetElementsByClassNameMethodInfo + ResolveDOMHTMLTableCellElementMethod "getElementsByClassNameAsHtmlCollection" o = DOMElementGetElementsByClassNameAsHtmlCollectionMethodInfo ResolveDOMHTMLTableCellElementMethod "getElementsByTagName" o = DOMElementGetElementsByTagNameMethodInfo + ResolveDOMHTMLTableCellElementMethod "getElementsByTagNameAsHtmlCollection" o = DOMElementGetElementsByTagNameAsHtmlCollectionMethodInfo ResolveDOMHTMLTableCellElementMethod "getElementsByTagNameNs" o = DOMElementGetElementsByTagNameNsMethodInfo + ResolveDOMHTMLTableCellElementMethod "getElementsByTagNameNsAsHtmlCollection" o = DOMElementGetElementsByTagNameNsAsHtmlCollectionMethodInfo ResolveDOMHTMLTableCellElementMethod "getFirstChild" o = DOMNodeGetFirstChildMethodInfo ResolveDOMHTMLTableCellElementMethod "getFirstElementChild" o = DOMElementGetFirstElementChildMethodInfo ResolveDOMHTMLTableCellElementMethod "getHeaders" o = DOMHTMLTableCellElementGetHeadersMethodInfo @@ -476,240 +494,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" @@ -730,106 +769,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", DOMElementChildrenPropertyInfo), '("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", DOMElementInnerHtmlPropertyInfo), '("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", DOMElementOuterHtmlPropertyInfo), '("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, *)]) +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", DOMElementChildrenPropertyInfo), '("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", DOMElementInnerHtmlPropertyInfo), '("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", DOMElementOuterHtmlPropertyInfo), '("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), '("treeRoot", DOMNodeTreeRootPropertyInfo), '("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, *)]) @@ -837,7 +930,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -867,7 +960,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -897,7 +990,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -927,7 +1020,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -957,19 +1050,19 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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' @@ -977,14 +1070,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 "WebKit2WebExtension" "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 @@ -1014,7 +1107,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -1044,19 +1137,19 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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' @@ -1064,14 +1157,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 "WebKit2WebExtension" "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 @@ -1101,7 +1194,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -1131,7 +1224,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -1159,19 +1252,19 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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' @@ -1179,14 +1272,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 "WebKit2WebExtension" "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 @@ -1216,7 +1309,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -1246,7 +1339,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -1276,7 +1369,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -1307,7 +1400,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -1338,7 +1431,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -1369,7 +1462,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -1400,7 +1493,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -1431,7 +1524,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -1460,22 +1553,22 @@ -- method DOMHTMLTableCellElement::set_col_span -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 @@ -1484,14 +1577,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 "WebKit2WebExtension" "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 @@ -1522,7 +1615,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -1553,7 +1646,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -1581,22 +1674,22 @@ -- method DOMHTMLTableCellElement::set_row_span -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 @@ -1605,14 +1698,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 "WebKit2WebExtension" "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 @@ -1643,7 +1736,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -1674,7 +1767,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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/WebKit2WebExtension/Objects/DOMHTMLTableCellElement.hs-boot b/GI/WebKit2WebExtension/Objects/DOMHTMLTableCellElement.hs-boot --- a/GI/WebKit2WebExtension/Objects/DOMHTMLTableCellElement.hs-boot +++ b/GI/WebKit2WebExtension/Objects/DOMHTMLTableCellElement.hs-boot @@ -1,8 +1,8 @@ module GI.WebKit2WebExtension.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/WebKit2WebExtension/Objects/DOMHTMLTableColElement.hs b/GI/WebKit2WebExtension/Objects/DOMHTMLTableColElement.hs --- a/GI/WebKit2WebExtension/Objects/DOMHTMLTableColElement.hs +++ b/GI/WebKit2WebExtension/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 @@ -230,8 +236,11 @@ ResolveDOMHTMLTableColElementMethod "getData" o = GObject.ObjectGetDataMethodInfo ResolveDOMHTMLTableColElementMethod "getDir" o = DOMHTMLElementGetDirMethodInfo ResolveDOMHTMLTableColElementMethod "getElementsByClassName" o = DOMElementGetElementsByClassNameMethodInfo + ResolveDOMHTMLTableColElementMethod "getElementsByClassNameAsHtmlCollection" o = DOMElementGetElementsByClassNameAsHtmlCollectionMethodInfo ResolveDOMHTMLTableColElementMethod "getElementsByTagName" o = DOMElementGetElementsByTagNameMethodInfo + ResolveDOMHTMLTableColElementMethod "getElementsByTagNameAsHtmlCollection" o = DOMElementGetElementsByTagNameAsHtmlCollectionMethodInfo ResolveDOMHTMLTableColElementMethod "getElementsByTagNameNs" o = DOMElementGetElementsByTagNameNsMethodInfo + ResolveDOMHTMLTableColElementMethod "getElementsByTagNameNsAsHtmlCollection" o = DOMElementGetElementsByTagNameNsAsHtmlCollectionMethodInfo ResolveDOMHTMLTableColElementMethod "getFirstChild" o = DOMNodeGetFirstChildMethodInfo ResolveDOMHTMLTableColElementMethod "getFirstElementChild" o = DOMElementGetFirstElementChildMethodInfo ResolveDOMHTMLTableColElementMethod "getId" o = DOMElementGetIdMethodInfo @@ -313,150 +322,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", DOMElementChildrenPropertyInfo), '("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", DOMElementInnerHtmlPropertyInfo), '("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", DOMElementOuterHtmlPropertyInfo), '("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, *)]) +type DOMHTMLTableColElementAttributeList = ('[ '("accessKey", DOMHTMLElementAccessKeyPropertyInfo), '("align", DOMHTMLTableColElementAlignPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("baseUri", DOMNodeBaseUriPropertyInfo), '("ch", DOMHTMLTableColElementChPropertyInfo), '("chOff", DOMHTMLTableColElementChOffPropertyInfo), '("childElementCount", DOMElementChildElementCountPropertyInfo), '("childNodes", DOMNodeChildNodesPropertyInfo), '("children", DOMElementChildrenPropertyInfo), '("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", DOMElementInnerHtmlPropertyInfo), '("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", DOMElementOuterHtmlPropertyInfo), '("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), '("treeRoot", DOMNodeTreeRootPropertyInfo), '("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, *)]) @@ -464,7 +503,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -494,7 +533,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -524,7 +563,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -554,19 +593,19 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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' @@ -574,14 +613,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 "WebKit2WebExtension" "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 @@ -611,7 +650,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -641,7 +680,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -672,7 +711,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -703,7 +742,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -732,22 +771,22 @@ -- method DOMHTMLTableColElement::set_span -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 @@ -756,14 +795,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 "WebKit2WebExtension" "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 @@ -794,7 +833,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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/WebKit2WebExtension/Objects/DOMHTMLTableColElement.hs-boot b/GI/WebKit2WebExtension/Objects/DOMHTMLTableColElement.hs-boot --- a/GI/WebKit2WebExtension/Objects/DOMHTMLTableColElement.hs-boot +++ b/GI/WebKit2WebExtension/Objects/DOMHTMLTableColElement.hs-boot @@ -1,8 +1,8 @@ module GI.WebKit2WebExtension.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/WebKit2WebExtension/Objects/DOMHTMLTableElement.hs b/GI/WebKit2WebExtension/Objects/DOMHTMLTableElement.hs --- a/GI/WebKit2WebExtension/Objects/DOMHTMLTableElement.hs +++ b/GI/WebKit2WebExtension/Objects/DOMHTMLTableElement.hs @@ -183,6 +183,7 @@ -- ** Align DOMHTMLTableElementAlignPropertyInfo , constructDOMHTMLTableElementAlign , + dOMHTMLTableElementAlign , getDOMHTMLTableElementAlign , setDOMHTMLTableElementAlign , @@ -190,6 +191,7 @@ -- ** BgColor DOMHTMLTableElementBgColorPropertyInfo , constructDOMHTMLTableElementBgColor , + dOMHTMLTableElementBgColor , getDOMHTMLTableElementBgColor , setDOMHTMLTableElementBgColor , @@ -197,18 +199,21 @@ -- ** Border DOMHTMLTableElementBorderPropertyInfo , constructDOMHTMLTableElementBorder , + dOMHTMLTableElementBorder , getDOMHTMLTableElementBorder , setDOMHTMLTableElementBorder , -- ** Caption DOMHTMLTableElementCaptionPropertyInfo , + dOMHTMLTableElementCaption , getDOMHTMLTableElementCaption , -- ** CellPadding DOMHTMLTableElementCellPaddingPropertyInfo, constructDOMHTMLTableElementCellPadding , + dOMHTMLTableElementCellPadding , getDOMHTMLTableElementCellPadding , setDOMHTMLTableElementCellPadding , @@ -216,25 +221,30 @@ -- ** CellSpacing DOMHTMLTableElementCellSpacingPropertyInfo, constructDOMHTMLTableElementCellSpacing , + dOMHTMLTableElementCellSpacing , getDOMHTMLTableElementCellSpacing , setDOMHTMLTableElementCellSpacing , -- ** Frame DOMHTMLTableElementFramePropertyInfo , + clearDOMHTMLTableElementFrame , constructDOMHTMLTableElementFrame , + dOMHTMLTableElementFrame , getDOMHTMLTableElementFrame , setDOMHTMLTableElementFrame , -- ** Rows DOMHTMLTableElementRowsPropertyInfo , + dOMHTMLTableElementRows , getDOMHTMLTableElementRows , -- ** Rules DOMHTMLTableElementRulesPropertyInfo , constructDOMHTMLTableElementRules , + dOMHTMLTableElementRules , getDOMHTMLTableElementRules , setDOMHTMLTableElementRules , @@ -242,28 +252,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 , @@ -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 @@ -387,8 +402,11 @@ ResolveDOMHTMLTableElementMethod "getData" o = GObject.ObjectGetDataMethodInfo ResolveDOMHTMLTableElementMethod "getDir" o = DOMHTMLElementGetDirMethodInfo ResolveDOMHTMLTableElementMethod "getElementsByClassName" o = DOMElementGetElementsByClassNameMethodInfo + ResolveDOMHTMLTableElementMethod "getElementsByClassNameAsHtmlCollection" o = DOMElementGetElementsByClassNameAsHtmlCollectionMethodInfo ResolveDOMHTMLTableElementMethod "getElementsByTagName" o = DOMElementGetElementsByTagNameMethodInfo + ResolveDOMHTMLTableElementMethod "getElementsByTagNameAsHtmlCollection" o = DOMElementGetElementsByTagNameAsHtmlCollectionMethodInfo ResolveDOMHTMLTableElementMethod "getElementsByTagNameNs" o = DOMElementGetElementsByTagNameNsMethodInfo + ResolveDOMHTMLTableElementMethod "getElementsByTagNameNsAsHtmlCollection" o = DOMElementGetElementsByTagNameNsAsHtmlCollectionMethodInfo ResolveDOMHTMLTableElementMethod "getFirstChild" o = DOMNodeGetFirstChildMethodInfo ResolveDOMHTMLTableElementMethod "getFirstElementChild" o = DOMElementGetFirstElementChildMethodInfo ResolveDOMHTMLTableElementMethod "getId" o = DOMElementGetIdMethodInfo @@ -479,85 +497,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 "WebKit2WebExtension" "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 @@ -565,173 +590,192 @@ 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,Nothing) -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) +clearDOMHTMLTableElementFrame :: (MonadIO m, DOMHTMLTableElementK o) => o -> m () +clearDOMHTMLTableElementFrame obj = liftIO $ setObjectPropertyString obj "frame" (Nothing :: Maybe T.Text) + data DOMHTMLTableElementFramePropertyInfo instance AttrInfo DOMHTMLTableElementFramePropertyInfo where - type AttrAllowedOps DOMHTMLTableElementFramePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrAllowedOps DOMHTMLTableElementFramePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] 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 _ = clearDOMHTMLTableElementFrame -- VVV Prop "rows" -- Type: TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 @@ -739,17 +783,19 @@ attrGet _ = getDOMHTMLTableElementTFoot attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "t-head" -- Type: TInterface "WebKit2WebExtension" "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 @@ -757,34 +803,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", DOMElementChildrenPropertyInfo), '("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", DOMElementInnerHtmlPropertyInfo), '("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", DOMElementOuterHtmlPropertyInfo), '("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, *)]) +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", DOMElementChildrenPropertyInfo), '("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", DOMElementInnerHtmlPropertyInfo), '("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", DOMElementOuterHtmlPropertyInfo), '("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), '("treeRoot", DOMNodeTreeRootPropertyInfo), '("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, *)]) @@ -792,7 +883,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLTableElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit2WebExtension" "DOMHTMLElement" +-- returnType : Just (TInterface "WebKit2WebExtension" "DOMHTMLElement") -- throws : False -- Skip return : False @@ -821,7 +912,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLTableElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit2WebExtension" "DOMHTMLElement" +-- returnType : Just (TInterface "WebKit2WebExtension" "DOMHTMLElement") -- throws : False -- Skip return : False @@ -850,7 +941,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLTableElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit2WebExtension" "DOMHTMLElement" +-- returnType : Just (TInterface "WebKit2WebExtension" "DOMHTMLElement") -- throws : False -- Skip return : False @@ -879,7 +970,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -904,15 +995,15 @@ -- method DOMHTMLTableElement::delete_row -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "DOMHTMLTableElement" - Int64 -> -- index : TBasicType TInt64 + CLong -> -- index : TBasicType TLong Ptr (Ptr GError) -> -- error IO () @@ -920,7 +1011,7 @@ dOMHTMLTableElementDeleteRow :: (MonadIO m, DOMHTMLTableElementK a) => a -- _obj - -> Int64 -- index + -> CLong -- index -> m () -- result dOMHTMLTableElementDeleteRow _obj index = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj @@ -933,14 +1024,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 "WebKit2WebExtension" "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 @@ -967,7 +1058,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -994,7 +1085,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -1024,7 +1115,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -1054,7 +1145,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -1084,7 +1175,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLTableElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit2WebExtension" "DOMHTMLTableCaptionElement" +-- returnType : Just (TInterface "WebKit2WebExtension" "DOMHTMLTableCaptionElement") -- throws : False -- Skip return : False @@ -1113,7 +1204,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -1143,7 +1234,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -1173,7 +1264,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLTableElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit2WebExtension" "DOMHTMLCollection" +-- returnType : Just (TInterface "WebKit2WebExtension" "DOMHTMLCollection") -- throws : False -- Skip return : False @@ -1202,7 +1293,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -1232,7 +1323,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -1262,7 +1353,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLTableElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit2WebExtension" "DOMHTMLCollection" +-- returnType : Just (TInterface "WebKit2WebExtension" "DOMHTMLCollection") -- throws : False -- Skip return : False @@ -1291,7 +1382,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLTableElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit2WebExtension" "DOMHTMLTableSectionElement" +-- returnType : Just (TInterface "WebKit2WebExtension" "DOMHTMLTableSectionElement") -- throws : False -- Skip return : False @@ -1320,7 +1411,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLTableElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit2WebExtension" "DOMHTMLTableSectionElement" +-- returnType : Just (TInterface "WebKit2WebExtension" "DOMHTMLTableSectionElement") -- throws : False -- Skip return : False @@ -1349,7 +1440,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -1377,15 +1468,15 @@ -- method DOMHTMLTableElement::insert_row -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "DOMHTMLElement" +-- returnType : Just (TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "DOMHTMLTableElement" - Int64 -> -- index : TBasicType TInt64 + CLong -> -- index : TBasicType TLong Ptr (Ptr GError) -> -- error IO (Ptr DOMHTMLElement) @@ -1393,7 +1484,7 @@ dOMHTMLTableElementInsertRow :: (MonadIO m, DOMHTMLTableElementK a) => a -- _obj - -> Int64 -- index + -> CLong -- index -> m DOMHTMLElement -- result dOMHTMLTableElementInsertRow _obj index = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj @@ -1408,14 +1499,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 "WebKit2WebExtension" "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 @@ -1446,7 +1537,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -1477,7 +1568,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -1508,7 +1599,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLTableElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TInterface "WebKit2WebExtension" "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 @@ -1544,7 +1635,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -1575,7 +1666,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -1606,7 +1697,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -1637,7 +1728,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -1668,7 +1759,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLTableElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TInterface "WebKit2WebExtension" "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 @@ -1704,7 +1795,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLTableElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TInterface "WebKit2WebExtension" "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 @@ -1740,7 +1831,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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/WebKit2WebExtension/Objects/DOMHTMLTableElement.hs-boot b/GI/WebKit2WebExtension/Objects/DOMHTMLTableElement.hs-boot --- a/GI/WebKit2WebExtension/Objects/DOMHTMLTableElement.hs-boot +++ b/GI/WebKit2WebExtension/Objects/DOMHTMLTableElement.hs-boot @@ -1,8 +1,8 @@ module GI.WebKit2WebExtension.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/WebKit2WebExtension/Objects/DOMHTMLTableRowElement.hs b/GI/WebKit2WebExtension/Objects/DOMHTMLTableRowElement.hs --- a/GI/WebKit2WebExtension/Objects/DOMHTMLTableRowElement.hs +++ b/GI/WebKit2WebExtension/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 @@ -257,8 +265,11 @@ ResolveDOMHTMLTableRowElementMethod "getData" o = GObject.ObjectGetDataMethodInfo ResolveDOMHTMLTableRowElementMethod "getDir" o = DOMHTMLElementGetDirMethodInfo ResolveDOMHTMLTableRowElementMethod "getElementsByClassName" o = DOMElementGetElementsByClassNameMethodInfo + ResolveDOMHTMLTableRowElementMethod "getElementsByClassNameAsHtmlCollection" o = DOMElementGetElementsByClassNameAsHtmlCollectionMethodInfo ResolveDOMHTMLTableRowElementMethod "getElementsByTagName" o = DOMElementGetElementsByTagNameMethodInfo + ResolveDOMHTMLTableRowElementMethod "getElementsByTagNameAsHtmlCollection" o = DOMElementGetElementsByTagNameAsHtmlCollectionMethodInfo ResolveDOMHTMLTableRowElementMethod "getElementsByTagNameNs" o = DOMElementGetElementsByTagNameNsMethodInfo + ResolveDOMHTMLTableRowElementMethod "getElementsByTagNameNsAsHtmlCollection" o = DOMElementGetElementsByTagNameNsAsHtmlCollectionMethodInfo ResolveDOMHTMLTableRowElementMethod "getFirstChild" o = DOMNodeGetFirstChildMethodInfo ResolveDOMHTMLTableRowElementMethod "getFirstElementChild" o = DOMElementGetFirstElementChildMethodInfo ResolveDOMHTMLTableRowElementMethod "getId" o = DOMElementGetIdMethodInfo @@ -339,194 +350,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 "WebKit2WebExtension" "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", DOMElementChildrenPropertyInfo), '("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", DOMElementInnerHtmlPropertyInfo), '("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", DOMElementOuterHtmlPropertyInfo), '("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, *)]) +type DOMHTMLTableRowElementAttributeList = ('[ '("accessKey", DOMHTMLElementAccessKeyPropertyInfo), '("align", DOMHTMLTableRowElementAlignPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("baseUri", DOMNodeBaseUriPropertyInfo), '("bgColor", DOMHTMLTableRowElementBgColorPropertyInfo), '("cells", DOMHTMLTableRowElementCellsPropertyInfo), '("ch", DOMHTMLTableRowElementChPropertyInfo), '("chOff", DOMHTMLTableRowElementChOffPropertyInfo), '("childElementCount", DOMElementChildElementCountPropertyInfo), '("childNodes", DOMNodeChildNodesPropertyInfo), '("children", DOMElementChildrenPropertyInfo), '("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", DOMElementInnerHtmlPropertyInfo), '("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", DOMElementOuterHtmlPropertyInfo), '("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), '("treeRoot", DOMNodeTreeRootPropertyInfo), '("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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "DOMHTMLTableRowElement" - Int64 -> -- index : TBasicType TInt64 + CLong -> -- index : TBasicType TLong Ptr (Ptr GError) -> -- error IO () @@ -534,7 +585,7 @@ dOMHTMLTableRowElementDeleteCell :: (MonadIO m, DOMHTMLTableRowElementK a) => a -- _obj - -> Int64 -- index + -> CLong -- index -> m () -- result dOMHTMLTableRowElementDeleteCell _obj index = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj @@ -547,14 +598,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 "WebKit2WebExtension" "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 @@ -584,7 +635,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -614,7 +665,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLTableRowElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit2WebExtension" "DOMHTMLCollection" +-- returnType : Just (TInterface "WebKit2WebExtension" "DOMHTMLCollection") -- throws : False -- Skip return : False @@ -643,7 +694,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -673,7 +724,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -703,19 +754,19 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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' @@ -723,26 +774,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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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' @@ -750,14 +801,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 "WebKit2WebExtension" "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 @@ -785,15 +836,15 @@ -- method DOMHTMLTableRowElement::insert_cell -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "DOMHTMLElement" +-- returnType : Just (TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "DOMHTMLTableRowElement" - Int64 -> -- index : TBasicType TInt64 + CLong -> -- index : TBasicType TLong Ptr (Ptr GError) -> -- error IO (Ptr DOMHTMLElement) @@ -801,7 +852,7 @@ dOMHTMLTableRowElementInsertCell :: (MonadIO m, DOMHTMLTableRowElementK a) => a -- _obj - -> Int64 -- index + -> CLong -- index -> m DOMHTMLElement -- result dOMHTMLTableRowElementInsertCell _obj index = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj @@ -816,14 +867,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 "WebKit2WebExtension" "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 @@ -854,7 +905,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -885,7 +936,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -916,7 +967,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -947,7 +998,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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/WebKit2WebExtension/Objects/DOMHTMLTableRowElement.hs-boot b/GI/WebKit2WebExtension/Objects/DOMHTMLTableRowElement.hs-boot --- a/GI/WebKit2WebExtension/Objects/DOMHTMLTableRowElement.hs-boot +++ b/GI/WebKit2WebExtension/Objects/DOMHTMLTableRowElement.hs-boot @@ -1,8 +1,8 @@ module GI.WebKit2WebExtension.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/WebKit2WebExtension/Objects/DOMHTMLTableSectionElement.hs b/GI/WebKit2WebExtension/Objects/DOMHTMLTableSectionElement.hs --- a/GI/WebKit2WebExtension/Objects/DOMHTMLTableSectionElement.hs +++ b/GI/WebKit2WebExtension/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 @@ -218,8 +223,11 @@ ResolveDOMHTMLTableSectionElementMethod "getData" o = GObject.ObjectGetDataMethodInfo ResolveDOMHTMLTableSectionElementMethod "getDir" o = DOMHTMLElementGetDirMethodInfo ResolveDOMHTMLTableSectionElementMethod "getElementsByClassName" o = DOMElementGetElementsByClassNameMethodInfo + ResolveDOMHTMLTableSectionElementMethod "getElementsByClassNameAsHtmlCollection" o = DOMElementGetElementsByClassNameAsHtmlCollectionMethodInfo ResolveDOMHTMLTableSectionElementMethod "getElementsByTagName" o = DOMElementGetElementsByTagNameMethodInfo + ResolveDOMHTMLTableSectionElementMethod "getElementsByTagNameAsHtmlCollection" o = DOMElementGetElementsByTagNameAsHtmlCollectionMethodInfo ResolveDOMHTMLTableSectionElementMethod "getElementsByTagNameNs" o = DOMElementGetElementsByTagNameNsMethodInfo + ResolveDOMHTMLTableSectionElementMethod "getElementsByTagNameNsAsHtmlCollection" o = DOMElementGetElementsByTagNameNsAsHtmlCollectionMethodInfo ResolveDOMHTMLTableSectionElementMethod "getFirstChild" o = DOMNodeGetFirstChildMethodInfo ResolveDOMHTMLTableSectionElementMethod "getFirstElementChild" o = DOMElementGetFirstElementChildMethodInfo ResolveDOMHTMLTableSectionElementMethod "getId" o = DOMElementGetIdMethodInfo @@ -298,134 +306,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 "WebKit2WebExtension" "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", DOMElementChildrenPropertyInfo), '("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", DOMElementInnerHtmlPropertyInfo), '("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", DOMElementOuterHtmlPropertyInfo), '("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, *)]) +type DOMHTMLTableSectionElementAttributeList = ('[ '("accessKey", DOMHTMLElementAccessKeyPropertyInfo), '("align", DOMHTMLTableSectionElementAlignPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("baseUri", DOMNodeBaseUriPropertyInfo), '("ch", DOMHTMLTableSectionElementChPropertyInfo), '("chOff", DOMHTMLTableSectionElementChOffPropertyInfo), '("childElementCount", DOMElementChildElementCountPropertyInfo), '("childNodes", DOMNodeChildNodesPropertyInfo), '("children", DOMElementChildrenPropertyInfo), '("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", DOMElementInnerHtmlPropertyInfo), '("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", DOMElementOuterHtmlPropertyInfo), '("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), '("treeRoot", DOMNodeTreeRootPropertyInfo), '("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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "DOMHTMLTableSectionElement" - Int64 -> -- index : TBasicType TInt64 + CLong -> -- index : TBasicType TLong Ptr (Ptr GError) -> -- error IO () @@ -433,7 +466,7 @@ dOMHTMLTableSectionElementDeleteRow :: (MonadIO m, DOMHTMLTableSectionElementK a) => a -- _obj - -> Int64 -- index + -> CLong -- index -> m () -- result dOMHTMLTableSectionElementDeleteRow _obj index = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj @@ -446,14 +479,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 "WebKit2WebExtension" "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 @@ -483,7 +516,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -513,7 +546,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -543,7 +576,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLTableSectionElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit2WebExtension" "DOMHTMLCollection" +-- returnType : Just (TInterface "WebKit2WebExtension" "DOMHTMLCollection") -- throws : False -- Skip return : False @@ -572,7 +605,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -600,15 +633,15 @@ -- method DOMHTMLTableSectionElement::insert_row -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "DOMHTMLElement" +-- returnType : Just (TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "DOMHTMLTableSectionElement" - Int64 -> -- index : TBasicType TInt64 + CLong -> -- index : TBasicType TLong Ptr (Ptr GError) -> -- error IO (Ptr DOMHTMLElement) @@ -616,7 +649,7 @@ dOMHTMLTableSectionElementInsertRow :: (MonadIO m, DOMHTMLTableSectionElementK a) => a -- _obj - -> Int64 -- index + -> CLong -- index -> m DOMHTMLElement -- result dOMHTMLTableSectionElementInsertRow _obj index = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj @@ -631,14 +664,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 "WebKit2WebExtension" "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 @@ -669,7 +702,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -700,7 +733,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -731,7 +764,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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/WebKit2WebExtension/Objects/DOMHTMLTableSectionElement.hs-boot b/GI/WebKit2WebExtension/Objects/DOMHTMLTableSectionElement.hs-boot --- a/GI/WebKit2WebExtension/Objects/DOMHTMLTableSectionElement.hs-boot +++ b/GI/WebKit2WebExtension/Objects/DOMHTMLTableSectionElement.hs-boot @@ -1,8 +1,8 @@ module GI.WebKit2WebExtension.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/WebKit2WebExtension/Objects/DOMHTMLTextAreaElement.hs b/GI/WebKit2WebExtension/Objects/DOMHTMLTextAreaElement.hs --- a/GI/WebKit2WebExtension/Objects/DOMHTMLTextAreaElement.hs +++ b/GI/WebKit2WebExtension/Objects/DOMHTMLTextAreaElement.hs @@ -152,14 +152,26 @@ -- * Properties -- ** Autocapitalize DOMHTMLTextAreaElementAutocapitalizePropertyInfo, + clearDOMHTMLTextAreaElementAutocapitalize, constructDOMHTMLTextAreaElementAutocapitalize, + dOMHTMLTextAreaElementAutocapitalize , getDOMHTMLTextAreaElementAutocapitalize , setDOMHTMLTextAreaElementAutocapitalize , +-- ** Autocomplete + DOMHTMLTextAreaElementAutocompletePropertyInfo, + clearDOMHTMLTextAreaElementAutocomplete , + constructDOMHTMLTextAreaElementAutocomplete, + dOMHTMLTextAreaElementAutocomplete , + getDOMHTMLTextAreaElementAutocomplete , + setDOMHTMLTextAreaElementAutocomplete , + + -- ** Autocorrect DOMHTMLTextAreaElementAutocorrectPropertyInfo, constructDOMHTMLTextAreaElementAutocorrect, + dOMHTMLTextAreaElementAutocorrect , getDOMHTMLTextAreaElementAutocorrect , setDOMHTMLTextAreaElementAutocorrect , @@ -167,6 +179,7 @@ -- ** Autofocus DOMHTMLTextAreaElementAutofocusPropertyInfo, constructDOMHTMLTextAreaElementAutofocus, + dOMHTMLTextAreaElementAutofocus , getDOMHTMLTextAreaElementAutofocus , setDOMHTMLTextAreaElementAutofocus , @@ -174,6 +187,7 @@ -- ** Cols DOMHTMLTextAreaElementColsPropertyInfo , constructDOMHTMLTextAreaElementCols , + dOMHTMLTextAreaElementCols , getDOMHTMLTextAreaElementCols , setDOMHTMLTextAreaElementCols , @@ -181,13 +195,16 @@ -- ** DefaultValue DOMHTMLTextAreaElementDefaultValuePropertyInfo, constructDOMHTMLTextAreaElementDefaultValue, + dOMHTMLTextAreaElementDefaultValue , getDOMHTMLTextAreaElementDefaultValue , setDOMHTMLTextAreaElementDefaultValue , -- ** DirName DOMHTMLTextAreaElementDirNamePropertyInfo, + clearDOMHTMLTextAreaElementDirName , constructDOMHTMLTextAreaElementDirName , + dOMHTMLTextAreaElementDirName , getDOMHTMLTextAreaElementDirName , setDOMHTMLTextAreaElementDirName , @@ -195,23 +212,27 @@ -- ** Disabled DOMHTMLTextAreaElementDisabledPropertyInfo, constructDOMHTMLTextAreaElementDisabled , + dOMHTMLTextAreaElementDisabled , getDOMHTMLTextAreaElementDisabled , setDOMHTMLTextAreaElementDisabled , -- ** Form DOMHTMLTextAreaElementFormPropertyInfo , + dOMHTMLTextAreaElementForm , getDOMHTMLTextAreaElementForm , -- ** Labels DOMHTMLTextAreaElementLabelsPropertyInfo, + dOMHTMLTextAreaElementLabels , getDOMHTMLTextAreaElementLabels , -- ** MaxLength DOMHTMLTextAreaElementMaxLengthPropertyInfo, constructDOMHTMLTextAreaElementMaxLength, + dOMHTMLTextAreaElementMaxLength , getDOMHTMLTextAreaElementMaxLength , setDOMHTMLTextAreaElementMaxLength , @@ -219,13 +240,16 @@ -- ** Name DOMHTMLTextAreaElementNamePropertyInfo , constructDOMHTMLTextAreaElementName , + dOMHTMLTextAreaElementName , getDOMHTMLTextAreaElementName , setDOMHTMLTextAreaElementName , -- ** Placeholder DOMHTMLTextAreaElementPlaceholderPropertyInfo, + clearDOMHTMLTextAreaElementPlaceholder , constructDOMHTMLTextAreaElementPlaceholder, + dOMHTMLTextAreaElementPlaceholder , getDOMHTMLTextAreaElementPlaceholder , setDOMHTMLTextAreaElementPlaceholder , @@ -233,6 +257,7 @@ -- ** ReadOnly DOMHTMLTextAreaElementReadOnlyPropertyInfo, constructDOMHTMLTextAreaElementReadOnly , + dOMHTMLTextAreaElementReadOnly , getDOMHTMLTextAreaElementReadOnly , setDOMHTMLTextAreaElementReadOnly , @@ -240,6 +265,7 @@ -- ** Required DOMHTMLTextAreaElementRequiredPropertyInfo, constructDOMHTMLTextAreaElementRequired , + dOMHTMLTextAreaElementRequired , getDOMHTMLTextAreaElementRequired , setDOMHTMLTextAreaElementRequired , @@ -247,13 +273,16 @@ -- ** Rows DOMHTMLTextAreaElementRowsPropertyInfo , constructDOMHTMLTextAreaElementRows , + dOMHTMLTextAreaElementRows , getDOMHTMLTextAreaElementRows , setDOMHTMLTextAreaElementRows , -- ** SelectionDirection DOMHTMLTextAreaElementSelectionDirectionPropertyInfo, + clearDOMHTMLTextAreaElementSelectionDirection, constructDOMHTMLTextAreaElementSelectionDirection, + dOMHTMLTextAreaElementSelectionDirection, getDOMHTMLTextAreaElementSelectionDirection, setDOMHTMLTextAreaElementSelectionDirection, @@ -261,6 +290,7 @@ -- ** SelectionEnd DOMHTMLTextAreaElementSelectionEndPropertyInfo, constructDOMHTMLTextAreaElementSelectionEnd, + dOMHTMLTextAreaElementSelectionEnd , getDOMHTMLTextAreaElementSelectionEnd , setDOMHTMLTextAreaElementSelectionEnd , @@ -268,40 +298,48 @@ -- ** SelectionStart DOMHTMLTextAreaElementSelectionStartPropertyInfo, constructDOMHTMLTextAreaElementSelectionStart, + dOMHTMLTextAreaElementSelectionStart , getDOMHTMLTextAreaElementSelectionStart , setDOMHTMLTextAreaElementSelectionStart , -- ** TextLength DOMHTMLTextAreaElementTextLengthPropertyInfo, + dOMHTMLTextAreaElementTextLength , getDOMHTMLTextAreaElementTextLength , -- ** Type DOMHTMLTextAreaElementTypePropertyInfo , + dOMHTMLTextAreaElementType , getDOMHTMLTextAreaElementType , -- ** ValidationMessage DOMHTMLTextAreaElementValidationMessagePropertyInfo, + dOMHTMLTextAreaElementValidationMessage , getDOMHTMLTextAreaElementValidationMessage, -- ** Value DOMHTMLTextAreaElementValuePropertyInfo , constructDOMHTMLTextAreaElementValue , + dOMHTMLTextAreaElementValue , getDOMHTMLTextAreaElementValue , setDOMHTMLTextAreaElementValue , -- ** WillValidate DOMHTMLTextAreaElementWillValidatePropertyInfo, + dOMHTMLTextAreaElementWillValidate , getDOMHTMLTextAreaElementWillValidate , -- ** Wrap DOMHTMLTextAreaElementWrapPropertyInfo , + clearDOMHTMLTextAreaElementWrap , constructDOMHTMLTextAreaElementWrap , + dOMHTMLTextAreaElementWrap , getDOMHTMLTextAreaElementWrap , setDOMHTMLTextAreaElementWrap , @@ -310,9 +348,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 @@ -418,8 +456,11 @@ ResolveDOMHTMLTextAreaElementMethod "getDir" o = DOMHTMLElementGetDirMethodInfo ResolveDOMHTMLTextAreaElementMethod "getDisabled" o = DOMHTMLTextAreaElementGetDisabledMethodInfo ResolveDOMHTMLTextAreaElementMethod "getElementsByClassName" o = DOMElementGetElementsByClassNameMethodInfo + ResolveDOMHTMLTextAreaElementMethod "getElementsByClassNameAsHtmlCollection" o = DOMElementGetElementsByClassNameAsHtmlCollectionMethodInfo ResolveDOMHTMLTextAreaElementMethod "getElementsByTagName" o = DOMElementGetElementsByTagNameMethodInfo + ResolveDOMHTMLTextAreaElementMethod "getElementsByTagNameAsHtmlCollection" o = DOMElementGetElementsByTagNameAsHtmlCollectionMethodInfo ResolveDOMHTMLTextAreaElementMethod "getElementsByTagNameNs" o = DOMElementGetElementsByTagNameNsMethodInfo + ResolveDOMHTMLTextAreaElementMethod "getElementsByTagNameNsAsHtmlCollection" o = DOMElementGetElementsByTagNameNsAsHtmlCollectionMethodInfo ResolveDOMHTMLTextAreaElementMethod "getFirstChild" o = DOMNodeGetFirstChildMethodInfo ResolveDOMHTMLTextAreaElementMethod "getFirstElementChild" o = DOMElementGetFirstElementChildMethodInfo ResolveDOMHTMLTextAreaElementMethod "getForm" o = DOMHTMLTextAreaElementGetFormMethodInfo @@ -511,30 +552,65 @@ -- VVV Prop "autocapitalize" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) -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) +clearDOMHTMLTextAreaElementAutocapitalize :: (MonadIO m, DOMHTMLTextAreaElementK o) => o -> m () +clearDOMHTMLTextAreaElementAutocapitalize obj = liftIO $ setObjectPropertyString obj "autocapitalize" (Nothing :: Maybe T.Text) + data DOMHTMLTextAreaElementAutocapitalizePropertyInfo instance AttrInfo DOMHTMLTextAreaElementAutocapitalizePropertyInfo where - type AttrAllowedOps DOMHTMLTextAreaElementAutocapitalizePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrAllowedOps DOMHTMLTextAreaElementAutocapitalizePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] 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 _ = clearDOMHTMLTextAreaElementAutocapitalize +-- VVV Prop "autocomplete" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) + +getDOMHTMLTextAreaElementAutocomplete :: (MonadIO m, DOMHTMLTextAreaElementK o) => o -> m (Maybe T.Text) +getDOMHTMLTextAreaElementAutocomplete obj = liftIO $ getObjectPropertyString obj "autocomplete" + +setDOMHTMLTextAreaElementAutocomplete :: (MonadIO m, DOMHTMLTextAreaElementK o) => o -> T.Text -> m () +setDOMHTMLTextAreaElementAutocomplete obj val = liftIO $ setObjectPropertyString obj "autocomplete" (Just val) + +constructDOMHTMLTextAreaElementAutocomplete :: T.Text -> IO ([Char], GValue) +constructDOMHTMLTextAreaElementAutocomplete val = constructObjectPropertyString "autocomplete" (Just val) + +clearDOMHTMLTextAreaElementAutocomplete :: (MonadIO m, DOMHTMLTextAreaElementK o) => o -> m () +clearDOMHTMLTextAreaElementAutocomplete obj = liftIO $ setObjectPropertyString obj "autocomplete" (Nothing :: Maybe T.Text) + +data DOMHTMLTextAreaElementAutocompletePropertyInfo +instance AttrInfo DOMHTMLTextAreaElementAutocompletePropertyInfo where + type AttrAllowedOps DOMHTMLTextAreaElementAutocompletePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] + type AttrSetTypeConstraint DOMHTMLTextAreaElementAutocompletePropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLTextAreaElementAutocompletePropertyInfo = DOMHTMLTextAreaElementK + type AttrGetType DOMHTMLTextAreaElementAutocompletePropertyInfo = (Maybe T.Text) + type AttrLabel DOMHTMLTextAreaElementAutocompletePropertyInfo = "autocomplete" + attrGet _ = getDOMHTMLTextAreaElementAutocomplete + attrSet _ = setDOMHTMLTextAreaElementAutocomplete + attrConstruct _ = constructDOMHTMLTextAreaElementAutocomplete + attrClear _ = clearDOMHTMLTextAreaElementAutocomplete + -- VVV Prop "autocorrect" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) getDOMHTMLTextAreaElementAutocorrect :: (MonadIO m, DOMHTMLTextAreaElementK o) => o -> m Bool getDOMHTMLTextAreaElementAutocorrect obj = liftIO $ getObjectPropertyBool obj "autocorrect" @@ -555,10 +631,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" @@ -579,82 +657,93 @@ 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,Nothing) -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) +clearDOMHTMLTextAreaElementDirName :: (MonadIO m, DOMHTMLTextAreaElementK o) => o -> m () +clearDOMHTMLTextAreaElementDirName obj = liftIO $ setObjectPropertyString obj "dir-name" (Nothing :: Maybe T.Text) + data DOMHTMLTextAreaElementDirNamePropertyInfo instance AttrInfo DOMHTMLTextAreaElementDirNamePropertyInfo where - type AttrAllowedOps DOMHTMLTextAreaElementDirNamePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrAllowedOps DOMHTMLTextAreaElementDirNamePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] 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 _ = clearDOMHTMLTextAreaElementDirName -- 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" @@ -675,17 +764,19 @@ attrGet _ = getDOMHTMLTextAreaElementDisabled attrSet _ = setDOMHTMLTextAreaElementDisabled attrConstruct _ = constructDOMHTMLTextAreaElementDisabled + attrClear _ = undefined -- VVV Prop "form" -- Type: TInterface "WebKit2WebExtension" "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 @@ -693,100 +784,113 @@ attrGet _ = getDOMHTMLTextAreaElementForm attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "labels" -- Type: TInterface "WebKit2WebExtension" "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: (Nothing,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,Nothing) -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) +clearDOMHTMLTextAreaElementPlaceholder :: (MonadIO m, DOMHTMLTextAreaElementK o) => o -> m () +clearDOMHTMLTextAreaElementPlaceholder obj = liftIO $ setObjectPropertyString obj "placeholder" (Nothing :: Maybe T.Text) + data DOMHTMLTextAreaElementPlaceholderPropertyInfo instance AttrInfo DOMHTMLTextAreaElementPlaceholderPropertyInfo where - type AttrAllowedOps DOMHTMLTextAreaElementPlaceholderPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrAllowedOps DOMHTMLTextAreaElementPlaceholderPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] 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 _ = clearDOMHTMLTextAreaElementPlaceholder -- 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" @@ -807,10 +911,12 @@ attrGet _ = getDOMHTMLTextAreaElementReadOnly attrSet _ = setDOMHTMLTextAreaElementReadOnly attrConstruct _ = constructDOMHTMLTextAreaElementReadOnly + attrClear _ = undefined -- VVV Prop "required" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) getDOMHTMLTextAreaElementRequired :: (MonadIO m, DOMHTMLTextAreaElementK o) => o -> m Bool getDOMHTMLTextAreaElementRequired obj = liftIO $ getObjectPropertyBool obj "required" @@ -831,184 +937,205 @@ 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,Nothing) -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) +clearDOMHTMLTextAreaElementSelectionDirection :: (MonadIO m, DOMHTMLTextAreaElementK o) => o -> m () +clearDOMHTMLTextAreaElementSelectionDirection obj = liftIO $ setObjectPropertyString obj "selection-direction" (Nothing :: Maybe T.Text) + data DOMHTMLTextAreaElementSelectionDirectionPropertyInfo instance AttrInfo DOMHTMLTextAreaElementSelectionDirectionPropertyInfo where - type AttrAllowedOps DOMHTMLTextAreaElementSelectionDirectionPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrAllowedOps DOMHTMLTextAreaElementSelectionDirectionPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] 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 _ = clearDOMHTMLTextAreaElementSelectionDirection -- 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: (Nothing,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 "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" @@ -1023,34 +1150,115 @@ attrGet _ = getDOMHTMLTextAreaElementWillValidate attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "wrap" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) -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) +clearDOMHTMLTextAreaElementWrap :: (MonadIO m, DOMHTMLTextAreaElementK o) => o -> m () +clearDOMHTMLTextAreaElementWrap obj = liftIO $ setObjectPropertyString obj "wrap" (Nothing :: Maybe T.Text) + data DOMHTMLTextAreaElementWrapPropertyInfo instance AttrInfo DOMHTMLTextAreaElementWrapPropertyInfo where - type AttrAllowedOps DOMHTMLTextAreaElementWrapPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrAllowedOps DOMHTMLTextAreaElementWrapPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] 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 _ = clearDOMHTMLTextAreaElementWrap type instance AttributeList DOMHTMLTextAreaElement = DOMHTMLTextAreaElementAttributeList -type DOMHTMLTextAreaElementAttributeList = ('[ '("accessKey", DOMHTMLElementAccessKeyPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("autocapitalize", DOMHTMLTextAreaElementAutocapitalizePropertyInfo), '("autocorrect", DOMHTMLTextAreaElementAutocorrectPropertyInfo), '("autofocus", DOMHTMLTextAreaElementAutofocusPropertyInfo), '("baseUri", DOMNodeBaseUriPropertyInfo), '("childElementCount", DOMElementChildElementCountPropertyInfo), '("childNodes", DOMNodeChildNodesPropertyInfo), '("children", DOMElementChildrenPropertyInfo), '("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", DOMElementInnerHtmlPropertyInfo), '("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", DOMElementOuterHtmlPropertyInfo), '("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), '("value", DOMHTMLTextAreaElementValuePropertyInfo), '("webkitRegionOverset", DOMElementWebkitRegionOversetPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo), '("willValidate", DOMHTMLTextAreaElementWillValidatePropertyInfo), '("wrap", DOMHTMLTextAreaElementWrapPropertyInfo)] :: [(Symbol, *)]) +type DOMHTMLTextAreaElementAttributeList = ('[ '("accessKey", DOMHTMLElementAccessKeyPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("autocapitalize", DOMHTMLTextAreaElementAutocapitalizePropertyInfo), '("autocomplete", DOMHTMLTextAreaElementAutocompletePropertyInfo), '("autocorrect", DOMHTMLTextAreaElementAutocorrectPropertyInfo), '("autofocus", DOMHTMLTextAreaElementAutofocusPropertyInfo), '("baseUri", DOMNodeBaseUriPropertyInfo), '("childElementCount", DOMElementChildElementCountPropertyInfo), '("childNodes", DOMNodeChildNodesPropertyInfo), '("children", DOMElementChildrenPropertyInfo), '("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", DOMElementInnerHtmlPropertyInfo), '("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", DOMElementOuterHtmlPropertyInfo), '("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), '("treeRoot", DOMNodeTreeRootPropertyInfo), '("type", DOMHTMLTextAreaElementTypePropertyInfo), '("validationMessage", DOMHTMLTextAreaElementValidationMessagePropertyInfo), '("value", DOMHTMLTextAreaElementValuePropertyInfo), '("webkitRegionOverset", DOMElementWebkitRegionOversetPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo), '("willValidate", DOMHTMLTextAreaElementWillValidatePropertyInfo), '("wrap", DOMHTMLTextAreaElementWrapPropertyInfo)] :: [(Symbol, *)]) +dOMHTMLTextAreaElementAutocapitalize :: AttrLabelProxy "autocapitalize" +dOMHTMLTextAreaElementAutocapitalize = AttrLabelProxy + +dOMHTMLTextAreaElementAutocomplete :: AttrLabelProxy "autocomplete" +dOMHTMLTextAreaElementAutocomplete = 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 + +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, *)]) @@ -1058,7 +1266,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -1088,7 +1296,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -1116,19 +1324,19 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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' @@ -1136,14 +1344,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 "WebKit2WebExtension" "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 @@ -1173,7 +1381,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -1201,7 +1409,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLTextAreaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit2WebExtension" "DOMHTMLFormElement" +-- returnType : Just (TInterface "WebKit2WebExtension" "DOMHTMLFormElement") -- throws : False -- Skip return : False @@ -1230,7 +1438,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -1260,7 +1468,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -1288,19 +1496,19 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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' @@ -1308,26 +1516,26 @@ 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_end -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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' @@ -1335,26 +1543,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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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' @@ -1362,14 +1570,14 @@ 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_value -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -1399,7 +1607,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -1427,7 +1635,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -1455,7 +1663,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -1482,7 +1690,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -1510,22 +1718,22 @@ -- method DOMHTMLTextAreaElement::set_cols -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 @@ -1534,14 +1742,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_default_value -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -1572,7 +1780,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -1602,7 +1810,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -1633,7 +1841,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -1661,22 +1869,22 @@ -- method DOMHTMLTextAreaElement::set_rows -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 @@ -1685,27 +1893,27 @@ 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_end -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 @@ -1714,21 +1922,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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "DOMHTMLTextAreaElement" - Int64 -> -- start : TBasicType TInt64 - Int64 -> -- end : TBasicType TInt64 + CLong -> -- start : TBasicType TLong + CLong -> -- end : TBasicType TLong CString -> -- direction : TBasicType TUTF8 IO () @@ -1736,8 +1944,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 @@ -1749,27 +1957,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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 @@ -1778,14 +1986,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 "WebKit2WebExtension" "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/WebKit2WebExtension/Objects/DOMHTMLTextAreaElement.hs-boot b/GI/WebKit2WebExtension/Objects/DOMHTMLTextAreaElement.hs-boot --- a/GI/WebKit2WebExtension/Objects/DOMHTMLTextAreaElement.hs-boot +++ b/GI/WebKit2WebExtension/Objects/DOMHTMLTextAreaElement.hs-boot @@ -1,8 +1,8 @@ module GI.WebKit2WebExtension.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 @@ -12,6 +12,7 @@ class GObject o => DOMHTMLTextAreaElementK o instance (GObject o, IsDescendantOf DOMHTMLTextAreaElement o) => DOMHTMLTextAreaElementK o data DOMHTMLTextAreaElementAutocapitalizePropertyInfo +data DOMHTMLTextAreaElementAutocompletePropertyInfo data DOMHTMLTextAreaElementAutocorrectPropertyInfo data DOMHTMLTextAreaElementAutofocusPropertyInfo data DOMHTMLTextAreaElementColsPropertyInfo diff --git a/GI/WebKit2WebExtension/Objects/DOMHTMLTitleElement.hs b/GI/WebKit2WebExtension/Objects/DOMHTMLTitleElement.hs --- a/GI/WebKit2WebExtension/Objects/DOMHTMLTitleElement.hs +++ b/GI/WebKit2WebExtension/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 @@ -142,8 +143,11 @@ ResolveDOMHTMLTitleElementMethod "getData" o = GObject.ObjectGetDataMethodInfo ResolveDOMHTMLTitleElementMethod "getDir" o = DOMHTMLElementGetDirMethodInfo ResolveDOMHTMLTitleElementMethod "getElementsByClassName" o = DOMElementGetElementsByClassNameMethodInfo + ResolveDOMHTMLTitleElementMethod "getElementsByClassNameAsHtmlCollection" o = DOMElementGetElementsByClassNameAsHtmlCollectionMethodInfo ResolveDOMHTMLTitleElementMethod "getElementsByTagName" o = DOMElementGetElementsByTagNameMethodInfo + ResolveDOMHTMLTitleElementMethod "getElementsByTagNameAsHtmlCollection" o = DOMElementGetElementsByTagNameAsHtmlCollectionMethodInfo ResolveDOMHTMLTitleElementMethod "getElementsByTagNameNs" o = DOMElementGetElementsByTagNameNsMethodInfo + ResolveDOMHTMLTitleElementMethod "getElementsByTagNameNsAsHtmlCollection" o = DOMElementGetElementsByTagNameNsAsHtmlCollectionMethodInfo ResolveDOMHTMLTitleElementMethod "getFirstChild" o = DOMNodeGetFirstChildMethodInfo ResolveDOMHTMLTitleElementMethod "getFirstElementChild" o = DOMElementGetFirstElementChildMethodInfo ResolveDOMHTMLTitleElementMethod "getId" o = DOMElementGetIdMethodInfo @@ -218,30 +222,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", DOMElementChildrenPropertyInfo), '("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", DOMElementInnerHtmlPropertyInfo), '("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", DOMElementOuterHtmlPropertyInfo), '("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, *)]) +type DOMHTMLTitleElementAttributeList = ('[ '("accessKey", DOMHTMLElementAccessKeyPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("baseUri", DOMNodeBaseUriPropertyInfo), '("childElementCount", DOMElementChildElementCountPropertyInfo), '("childNodes", DOMNodeChildNodesPropertyInfo), '("children", DOMElementChildrenPropertyInfo), '("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", DOMElementInnerHtmlPropertyInfo), '("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", DOMElementOuterHtmlPropertyInfo), '("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), '("treeRoot", DOMNodeTreeRootPropertyInfo), '("webkitRegionOverset", DOMElementWebkitRegionOversetPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo)] :: [(Symbol, *)]) +dOMHTMLTitleElementText :: AttrLabelProxy "text" +dOMHTMLTitleElementText = AttrLabelProxy + type instance SignalList DOMHTMLTitleElement = DOMHTMLTitleElementSignalList type DOMHTMLTitleElementSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) @@ -249,7 +258,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -279,7 +288,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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/WebKit2WebExtension/Objects/DOMHTMLTitleElement.hs-boot b/GI/WebKit2WebExtension/Objects/DOMHTMLTitleElement.hs-boot --- a/GI/WebKit2WebExtension/Objects/DOMHTMLTitleElement.hs-boot +++ b/GI/WebKit2WebExtension/Objects/DOMHTMLTitleElement.hs-boot @@ -1,8 +1,8 @@ module GI.WebKit2WebExtension.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/WebKit2WebExtension/Objects/DOMHTMLUListElement.hs b/GI/WebKit2WebExtension/Objects/DOMHTMLUListElement.hs --- a/GI/WebKit2WebExtension/Objects/DOMHTMLUListElement.hs +++ b/GI/WebKit2WebExtension/Objects/DOMHTMLUListElement.hs @@ -43,13 +43,16 @@ -- ** Compact DOMHTMLUListElementCompactPropertyInfo , constructDOMHTMLUListElementCompact , + dOMHTMLUListElementCompact , getDOMHTMLUListElementCompact , setDOMHTMLUListElementCompact , -- ** Type DOMHTMLUListElementTypePropertyInfo , + clearDOMHTMLUListElementType , constructDOMHTMLUListElementType , + dOMHTMLUListElementType , getDOMHTMLUListElementType , setDOMHTMLUListElementType , @@ -58,9 +61,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 @@ -160,8 +163,11 @@ ResolveDOMHTMLUListElementMethod "getData" o = GObject.ObjectGetDataMethodInfo ResolveDOMHTMLUListElementMethod "getDir" o = DOMHTMLElementGetDirMethodInfo ResolveDOMHTMLUListElementMethod "getElementsByClassName" o = DOMElementGetElementsByClassNameMethodInfo + ResolveDOMHTMLUListElementMethod "getElementsByClassNameAsHtmlCollection" o = DOMElementGetElementsByClassNameAsHtmlCollectionMethodInfo ResolveDOMHTMLUListElementMethod "getElementsByTagName" o = DOMElementGetElementsByTagNameMethodInfo + ResolveDOMHTMLUListElementMethod "getElementsByTagNameAsHtmlCollection" o = DOMElementGetElementsByTagNameAsHtmlCollectionMethodInfo ResolveDOMHTMLUListElementMethod "getElementsByTagNameNs" o = DOMElementGetElementsByTagNameNsMethodInfo + ResolveDOMHTMLUListElementMethod "getElementsByTagNameNsAsHtmlCollection" o = DOMElementGetElementsByTagNameNsAsHtmlCollectionMethodInfo ResolveDOMHTMLUListElementMethod "getFirstChild" o = DOMNodeGetFirstChildMethodInfo ResolveDOMHTMLUListElementMethod "getFirstElementChild" o = DOMElementGetFirstElementChildMethodInfo ResolveDOMHTMLUListElementMethod "getId" o = DOMElementGetIdMethodInfo @@ -237,6 +243,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" @@ -257,34 +264,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", DOMElementChildrenPropertyInfo), '("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", DOMElementInnerHtmlPropertyInfo), '("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", DOMElementOuterHtmlPropertyInfo), '("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, *)]) +type DOMHTMLUListElementAttributeList = ('[ '("accessKey", DOMHTMLElementAccessKeyPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("baseUri", DOMNodeBaseUriPropertyInfo), '("childElementCount", DOMElementChildElementCountPropertyInfo), '("childNodes", DOMNodeChildNodesPropertyInfo), '("children", DOMElementChildrenPropertyInfo), '("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", DOMElementInnerHtmlPropertyInfo), '("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", DOMElementOuterHtmlPropertyInfo), '("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), '("treeRoot", DOMNodeTreeRootPropertyInfo), '("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, *)]) @@ -292,7 +311,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -320,7 +339,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLUListElement", direction = DirectionIn, mayBeNull = 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 +369,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -380,7 +399,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLUListElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = 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/WebKit2WebExtension/Objects/DOMHTMLUListElement.hs-boot b/GI/WebKit2WebExtension/Objects/DOMHTMLUListElement.hs-boot --- a/GI/WebKit2WebExtension/Objects/DOMHTMLUListElement.hs-boot +++ b/GI/WebKit2WebExtension/Objects/DOMHTMLUListElement.hs-boot @@ -1,8 +1,8 @@ module GI.WebKit2WebExtension.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/WebKit2WebExtension/Objects/DOMKeyboardEvent.hs b/GI/WebKit2WebExtension/Objects/DOMKeyboardEvent.hs --- a/GI/WebKit2WebExtension/Objects/DOMKeyboardEvent.hs +++ b/GI/WebKit2WebExtension/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 @@ -205,6 +212,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" @@ -219,10 +227,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" @@ -237,10 +247,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" @@ -255,46 +267,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" @@ -309,10 +327,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" @@ -327,10 +347,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, *)]) +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), '("isTrusted", DOMEventIsTrustedPropertyInfo), '("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, *)]) @@ -338,7 +380,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -366,7 +408,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -394,7 +436,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -422,7 +464,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -452,19 +494,19 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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' @@ -472,14 +514,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 "WebKit2WebExtension" "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 @@ -507,7 +549,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -539,7 +581,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -565,9 +607,9 @@ -- method DOMKeyboardEvent::init_keyboard_event -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 @@ -578,7 +620,7 @@ CInt -> -- cancelable : TBasicType TBoolean Ptr DOMDOMWindow -> -- view : TInterface "WebKit2WebExtension" "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 @@ -595,7 +637,7 @@ -> Bool -- cancelable -> b -- view -> T.Text -- keyIdentifier - -> Word64 -- location + -> CULong -- location -> Bool -- ctrlKey -> Bool -- altKey -> Bool -- shiftKey @@ -622,7 +664,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/WebKit2WebExtension/Objects/DOMKeyboardEvent.hs-boot b/GI/WebKit2WebExtension/Objects/DOMKeyboardEvent.hs-boot --- a/GI/WebKit2WebExtension/Objects/DOMKeyboardEvent.hs-boot +++ b/GI/WebKit2WebExtension/Objects/DOMKeyboardEvent.hs-boot @@ -1,8 +1,8 @@ module GI.WebKit2WebExtension.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/WebKit2WebExtension/Objects/DOMMediaList.hs b/GI/WebKit2WebExtension/Objects/DOMMediaList.hs --- a/GI/WebKit2WebExtension/Objects/DOMMediaList.hs +++ b/GI/WebKit2WebExtension/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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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/WebKit2WebExtension/Objects/DOMMediaList.hs-boot b/GI/WebKit2WebExtension/Objects/DOMMediaList.hs-boot --- a/GI/WebKit2WebExtension/Objects/DOMMediaList.hs-boot +++ b/GI/WebKit2WebExtension/Objects/DOMMediaList.hs-boot @@ -1,8 +1,8 @@ module GI.WebKit2WebExtension.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/WebKit2WebExtension/Objects/DOMMouseEvent.hs b/GI/WebKit2WebExtension/Objects/DOMMouseEvent.hs --- a/GI/WebKit2WebExtension/Objects/DOMMouseEvent.hs +++ b/GI/WebKit2WebExtension/Objects/DOMMouseEvent.hs @@ -107,91 +107,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 , -- ** MovementX DOMMouseEventMovementXPropertyInfo , + dOMMouseEventMovementX , getDOMMouseEventMovementX , -- ** MovementY DOMMouseEventMovementYPropertyInfo , + dOMMouseEventMovementY , getDOMMouseEventMovementY , -- ** 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 , -- ** X DOMMouseEventXPropertyInfo , + dOMMouseEventX , getDOMMouseEventX , -- ** Y DOMMouseEventYPropertyInfo , + dOMMouseEventY , getDOMMouseEventY , @@ -199,9 +217,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 @@ -308,6 +326,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" @@ -322,13 +341,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 @@ -340,46 +361,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" @@ -394,17 +421,19 @@ attrGet _ = getDOMMouseEventCtrlKey attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "from-element" -- Type: TInterface "WebKit2WebExtension" "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 @@ -412,10 +441,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" @@ -430,136 +461,152 @@ attrGet _ = getDOMMouseEventMetaKey attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "movement-x" - -- Type: TBasicType TInt64 + -- Type: TBasicType TLong -- Flags: [PropertyReadable] + -- Nullable: (Nothing,Nothing) -getDOMMouseEventMovementX :: (MonadIO m, DOMMouseEventK o) => o -> m Int64 -getDOMMouseEventMovementX obj = liftIO $ getObjectPropertyInt64 obj "movement-x" +getDOMMouseEventMovementX :: (MonadIO m, DOMMouseEventK o) => o -> m CLong +getDOMMouseEventMovementX obj = liftIO $ getObjectPropertyLong obj "movement-x" data DOMMouseEventMovementXPropertyInfo instance AttrInfo DOMMouseEventMovementXPropertyInfo where type AttrAllowedOps DOMMouseEventMovementXPropertyInfo = '[ 'AttrGet] type AttrSetTypeConstraint DOMMouseEventMovementXPropertyInfo = (~) () type AttrBaseTypeConstraint DOMMouseEventMovementXPropertyInfo = DOMMouseEventK - type AttrGetType DOMMouseEventMovementXPropertyInfo = Int64 + type AttrGetType DOMMouseEventMovementXPropertyInfo = CLong type AttrLabel DOMMouseEventMovementXPropertyInfo = "movement-x" attrGet _ = getDOMMouseEventMovementX attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "movement-y" - -- Type: TBasicType TInt64 + -- Type: TBasicType TLong -- Flags: [PropertyReadable] + -- Nullable: (Nothing,Nothing) -getDOMMouseEventMovementY :: (MonadIO m, DOMMouseEventK o) => o -> m Int64 -getDOMMouseEventMovementY obj = liftIO $ getObjectPropertyInt64 obj "movement-y" +getDOMMouseEventMovementY :: (MonadIO m, DOMMouseEventK o) => o -> m CLong +getDOMMouseEventMovementY obj = liftIO $ getObjectPropertyLong obj "movement-y" data DOMMouseEventMovementYPropertyInfo instance AttrInfo DOMMouseEventMovementYPropertyInfo where type AttrAllowedOps DOMMouseEventMovementYPropertyInfo = '[ 'AttrGet] type AttrSetTypeConstraint DOMMouseEventMovementYPropertyInfo = (~) () type AttrBaseTypeConstraint DOMMouseEventMovementYPropertyInfo = DOMMouseEventK - type AttrGetType DOMMouseEventMovementYPropertyInfo = Int64 + type AttrGetType DOMMouseEventMovementYPropertyInfo = CLong type AttrLabel DOMMouseEventMovementYPropertyInfo = "movement-y" attrGet _ = getDOMMouseEventMovementY 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 "WebKit2WebExtension" "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" @@ -574,17 +621,19 @@ attrGet _ = getDOMMouseEventShiftKey attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "to-element" -- Type: TInterface "WebKit2WebExtension" "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 @@ -592,46 +641,105 @@ attrGet _ = getDOMMouseEventToElement 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), '("movementX", DOMMouseEventMovementXPropertyInfo), '("movementY", DOMMouseEventMovementYPropertyInfo), '("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), '("which", DOMUIEventWhichPropertyInfo), '("x", DOMMouseEventXPropertyInfo), '("y", DOMMouseEventYPropertyInfo)] :: [(Symbol, *)]) +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), '("isTrusted", DOMEventIsTrustedPropertyInfo), '("keyCode", DOMUIEventKeyCodePropertyInfo), '("layerX", DOMUIEventLayerXPropertyInfo), '("layerY", DOMUIEventLayerYPropertyInfo), '("metaKey", DOMMouseEventMetaKeyPropertyInfo), '("movementX", DOMMouseEventMovementXPropertyInfo), '("movementY", DOMMouseEventMovementYPropertyInfo), '("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), '("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 + +dOMMouseEventMovementX :: AttrLabelProxy "movementX" +dOMMouseEventMovementX = AttrLabelProxy + +dOMMouseEventMovementY :: AttrLabelProxy "movementY" +dOMMouseEventMovementY = 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 + +dOMMouseEventX :: AttrLabelProxy "x" +dOMMouseEventX = AttrLabelProxy + +dOMMouseEventY :: AttrLabelProxy "y" +dOMMouseEventY = AttrLabelProxy + type instance SignalList DOMMouseEvent = DOMMouseEventSignalList type DOMMouseEventSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) @@ -639,7 +747,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -667,7 +775,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -694,19 +802,19 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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' @@ -714,26 +822,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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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' @@ -741,14 +849,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 "WebKit2WebExtension" "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 @@ -776,7 +884,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMMouseEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit2WebExtension" "DOMNode" +-- returnType : Just (TInterface "WebKit2WebExtension" "DOMNode") -- throws : False -- Skip return : False @@ -805,7 +913,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -833,19 +941,19 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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' @@ -853,26 +961,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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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' @@ -880,14 +988,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 "WebKit2WebExtension" "DOMMouseEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit2WebExtension" "DOMEventTarget" +-- returnType : Just (TInterface "WebKit2WebExtension" "DOMEventTarget") -- throws : False -- Skip return : False @@ -916,19 +1024,19 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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' @@ -936,26 +1044,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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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' @@ -963,14 +1071,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 "WebKit2WebExtension" "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 @@ -998,7 +1106,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMMouseEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit2WebExtension" "DOMNode" +-- returnType : Just (TInterface "WebKit2WebExtension" "DOMNode") -- throws : False -- Skip return : False @@ -1027,19 +1135,19 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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' @@ -1047,26 +1155,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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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' @@ -1074,14 +1182,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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "DOMEventTarget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 @@ -1091,11 +1199,11 @@ CInt -> -- canBubble : TBasicType TBoolean CInt -> -- cancelable : TBasicType TBoolean Ptr DOMDOMWindow -> -- view : TInterface "WebKit2WebExtension" "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 @@ -1112,11 +1220,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 @@ -1143,7 +1251,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/WebKit2WebExtension/Objects/DOMMouseEvent.hs-boot b/GI/WebKit2WebExtension/Objects/DOMMouseEvent.hs-boot --- a/GI/WebKit2WebExtension/Objects/DOMMouseEvent.hs-boot +++ b/GI/WebKit2WebExtension/Objects/DOMMouseEvent.hs-boot @@ -1,8 +1,8 @@ module GI.WebKit2WebExtension.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/WebKit2WebExtension/Objects/DOMNamedNodeMap.hs b/GI/WebKit2WebExtension/Objects/DOMNamedNodeMap.hs --- a/GI/WebKit2WebExtension/Objects/DOMNamedNodeMap.hs +++ b/GI/WebKit2WebExtension/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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "DOMNode" +-- returnType : Just (TInterface "WebKit2WebExtension" "DOMNode") -- throws : False -- Skip return : False @@ -230,7 +236,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "DOMNode" +-- returnType : Just (TInterface "WebKit2WebExtension" "DOMNode") -- throws : False -- Skip return : False @@ -265,22 +271,22 @@ -- method DOMNamedNodeMap::item -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "DOMNode" +-- returnType : Just (TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "DOMNode" +-- returnType : Just (TInterface "WebKit2WebExtension" "DOMNode") -- throws : True -- Skip return : False @@ -336,7 +342,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "DOMNode" +-- returnType : Just (TInterface "WebKit2WebExtension" "DOMNode") -- throws : True -- Skip return : False @@ -379,7 +385,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMNamedNodeMap", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "node", argType = TInterface "WebKit2WebExtension" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit2WebExtension" "DOMNode" +-- returnType : Just (TInterface "WebKit2WebExtension" "DOMNode") -- throws : True -- Skip return : False @@ -417,7 +423,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMNamedNodeMap", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "node", argType = TInterface "WebKit2WebExtension" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit2WebExtension" "DOMNode" +-- returnType : Just (TInterface "WebKit2WebExtension" "DOMNode") -- throws : True -- Skip return : False diff --git a/GI/WebKit2WebExtension/Objects/DOMNamedNodeMap.hs-boot b/GI/WebKit2WebExtension/Objects/DOMNamedNodeMap.hs-boot --- a/GI/WebKit2WebExtension/Objects/DOMNamedNodeMap.hs-boot +++ b/GI/WebKit2WebExtension/Objects/DOMNamedNodeMap.hs-boot @@ -1,8 +1,8 @@ module GI.WebKit2WebExtension.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/WebKit2WebExtension/Objects/DOMNode.hs b/GI/WebKit2WebExtension/Objects/DOMNode.hs --- a/GI/WebKit2WebExtension/Objects/DOMNode.hs +++ b/GI/WebKit2WebExtension/Objects/DOMNode.hs @@ -192,97 +192,122 @@ -- * 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 , +-- ** TreeRoot + DOMNodeTreeRootPropertyInfo , + dOMNodeTreeRoot , + getDOMNodeTreeRoot , + + ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map @@ -385,49 +410,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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 @@ -435,17 +465,19 @@ attrGet _ = getDOMNodeFirstChild attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "last-child" -- Type: TInterface "WebKit2WebExtension" "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 @@ -453,53 +485,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 "WebKit2WebExtension" "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 @@ -507,31 +545,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 @@ -543,41 +585,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 "WebKit2WebExtension" "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 @@ -585,17 +634,19 @@ attrGet _ = getDOMNodeOwnerDocument attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "parent-element" -- Type: TInterface "WebKit2WebExtension" "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 @@ -603,17 +654,19 @@ attrGet _ = getDOMNodeParentElement attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "parent-node" -- Type: TInterface "WebKit2WebExtension" "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 @@ -621,41 +674,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 "WebKit2WebExtension" "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 @@ -663,34 +723,111 @@ 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 +-- VVV Prop "tree-root" + -- Type: TInterface "WebKit2WebExtension" "DOMNode" + -- Flags: [PropertyReadable] + -- Nullable: (Nothing,Nothing) + +getDOMNodeTreeRoot :: (MonadIO m, DOMNodeK o) => o -> m (Maybe DOMNode) +getDOMNodeTreeRoot obj = liftIO $ getObjectPropertyObject obj "tree-root" DOMNode + +data DOMNodeTreeRootPropertyInfo +instance AttrInfo DOMNodeTreeRootPropertyInfo where + type AttrAllowedOps DOMNodeTreeRootPropertyInfo = '[ 'AttrGet, 'AttrClear] + type AttrSetTypeConstraint DOMNodeTreeRootPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMNodeTreeRootPropertyInfo = DOMNodeK + type AttrGetType DOMNodeTreeRootPropertyInfo = (Maybe DOMNode) + type AttrLabel DOMNodeTreeRootPropertyInfo = "tree-root" + attrGet _ = getDOMNodeTreeRoot + attrSet _ = undefined + attrConstruct _ = undefined + attrClear _ = undefined + 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, *)]) +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), '("treeRoot", DOMNodeTreeRootPropertyInfo)] :: [(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 + +dOMNodeTreeRoot :: AttrLabelProxy "treeRoot" +dOMNodeTreeRoot = AttrLabelProxy + type instance SignalList DOMNode = DOMNodeSignalList type DOMNodeSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) @@ -698,7 +835,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "newChild", argType = TInterface "WebKit2WebExtension" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit2WebExtension" "DOMNode" +-- returnType : Just (TInterface "WebKit2WebExtension" "DOMNode") -- throws : True -- Skip return : False @@ -736,7 +873,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "DOMNode" +-- returnType : Just (TInterface "WebKit2WebExtension" "DOMNode") -- throws : False -- Skip return : False @@ -768,7 +905,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "other", argType = TInterface "WebKit2WebExtension" "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 @@ -799,7 +936,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "other", argType = TInterface "WebKit2WebExtension" "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 @@ -831,7 +968,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -861,7 +998,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit2WebExtension" "DOMNodeList" +-- returnType : Just (TInterface "WebKit2WebExtension" "DOMNodeList") -- throws : False -- Skip return : False @@ -890,7 +1027,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit2WebExtension" "DOMNode" +-- returnType : Just (TInterface "WebKit2WebExtension" "DOMNode") -- throws : False -- Skip return : False @@ -919,7 +1056,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit2WebExtension" "DOMNode" +-- returnType : Just (TInterface "WebKit2WebExtension" "DOMNode") -- throws : False -- Skip return : False @@ -948,7 +1085,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -978,7 +1115,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -1008,7 +1145,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit2WebExtension" "DOMNode" +-- returnType : Just (TInterface "WebKit2WebExtension" "DOMNode") -- throws : False -- Skip return : False @@ -1037,7 +1174,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -1067,7 +1204,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -1094,7 +1231,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -1124,7 +1261,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit2WebExtension" "DOMDocument" +-- returnType : Just (TInterface "WebKit2WebExtension" "DOMDocument") -- throws : False -- Skip return : False @@ -1153,7 +1290,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit2WebExtension" "DOMElement" +-- returnType : Just (TInterface "WebKit2WebExtension" "DOMElement") -- throws : False -- Skip return : False @@ -1182,7 +1319,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit2WebExtension" "DOMNode" +-- returnType : Just (TInterface "WebKit2WebExtension" "DOMNode") -- throws : False -- Skip return : False @@ -1211,7 +1348,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -1241,7 +1378,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit2WebExtension" "DOMNode" +-- returnType : Just (TInterface "WebKit2WebExtension" "DOMNode") -- throws : False -- Skip return : False @@ -1270,7 +1407,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -1300,7 +1437,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -1328,7 +1465,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "newChild", argType = TInterface "WebKit2WebExtension" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "refChild", argType = TInterface "WebKit2WebExtension" "DOMNode", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit2WebExtension" "DOMNode" +-- returnType : Just (TInterface "WebKit2WebExtension" "DOMNode") -- throws : True -- Skip return : False @@ -1374,7 +1511,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -1406,7 +1543,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "other", argType = TInterface "WebKit2WebExtension" "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 @@ -1438,7 +1575,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "other", argType = TInterface "WebKit2WebExtension" "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 @@ -1470,7 +1607,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -1506,7 +1643,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -1540,7 +1677,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -1574,7 +1711,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -1601,7 +1738,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "oldChild", argType = TInterface "WebKit2WebExtension" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit2WebExtension" "DOMNode" +-- returnType : Just (TInterface "WebKit2WebExtension" "DOMNode") -- throws : True -- Skip return : False @@ -1639,7 +1776,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "newChild", argType = TInterface "WebKit2WebExtension" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "oldChild", argType = TInterface "WebKit2WebExtension" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit2WebExtension" "DOMNode" +-- returnType : Just (TInterface "WebKit2WebExtension" "DOMNode") -- throws : True -- Skip return : False @@ -1681,7 +1818,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -1717,7 +1854,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -1753,7 +1890,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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/WebKit2WebExtension/Objects/DOMNode.hs-boot b/GI/WebKit2WebExtension/Objects/DOMNode.hs-boot --- a/GI/WebKit2WebExtension/Objects/DOMNode.hs-boot +++ b/GI/WebKit2WebExtension/Objects/DOMNode.hs-boot @@ -1,8 +1,8 @@ module GI.WebKit2WebExtension.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 @@ -27,6 +27,7 @@ data DOMNodePrefixPropertyInfo data DOMNodePreviousSiblingPropertyInfo data DOMNodeTextContentPropertyInfo +data DOMNodeTreeRootPropertyInfo data DOMNodeAppendChildMethodInfo data DOMNodeCloneNodeMethodInfo data DOMNodeCompareDocumentPositionMethodInfo diff --git a/GI/WebKit2WebExtension/Objects/DOMNodeIterator.hs b/GI/WebKit2WebExtension/Objects/DOMNodeIterator.hs --- a/GI/WebKit2WebExtension/Objects/DOMNodeIterator.hs +++ b/GI/WebKit2WebExtension/Objects/DOMNodeIterator.hs @@ -65,33 +65,33 @@ -- * Properties --- ** ExpandEntityReferences - DOMNodeIteratorExpandEntityReferencesPropertyInfo, - getDOMNodeIteratorExpandEntityReferences, - - -- ** Filter DOMNodeIteratorFilterPropertyInfo , + dOMNodeIteratorFilter , getDOMNodeIteratorFilter , -- ** PointerBeforeReferenceNode DOMNodeIteratorPointerBeforeReferenceNodePropertyInfo, + dOMNodeIteratorPointerBeforeReferenceNode, getDOMNodeIteratorPointerBeforeReferenceNode, -- ** ReferenceNode DOMNodeIteratorReferenceNodePropertyInfo, + dOMNodeIteratorReferenceNode , getDOMNodeIteratorReferenceNode , -- ** Root DOMNodeIteratorRootPropertyInfo , + dOMNodeIteratorRoot , getDOMNodeIteratorRoot , -- ** WhatToShow DOMNodeIteratorWhatToShowPropertyInfo , + dOMNodeIteratorWhatToShow , getDOMNodeIteratorWhatToShow , @@ -99,9 +99,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 @@ -173,45 +173,30 @@ fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) #endif --- VVV Prop "expand-entity-references" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable] - -getDOMNodeIteratorExpandEntityReferences :: (MonadIO m, DOMNodeIteratorK o) => o -> m Bool -getDOMNodeIteratorExpandEntityReferences obj = liftIO $ getObjectPropertyBool obj "expand-entity-references" - -data DOMNodeIteratorExpandEntityReferencesPropertyInfo -instance AttrInfo DOMNodeIteratorExpandEntityReferencesPropertyInfo where - type AttrAllowedOps DOMNodeIteratorExpandEntityReferencesPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMNodeIteratorExpandEntityReferencesPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMNodeIteratorExpandEntityReferencesPropertyInfo = DOMNodeIteratorK - type AttrGetType DOMNodeIteratorExpandEntityReferencesPropertyInfo = Bool - type AttrLabel DOMNodeIteratorExpandEntityReferencesPropertyInfo = "expand-entity-references" - attrGet _ = getDOMNodeIteratorExpandEntityReferences - attrSet _ = undefined - attrConstruct _ = undefined - -- VVV Prop "filter" -- Type: TInterface "WebKit2WebExtension" "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 +211,19 @@ attrGet _ = getDOMNodeIteratorPointerBeforeReferenceNode attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "reference-node" -- Type: TInterface "WebKit2WebExtension" "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 +231,19 @@ attrGet _ = getDOMNodeIteratorReferenceNode attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "root" -- Type: TInterface "WebKit2WebExtension" "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 +251,46 @@ 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, *)]) +type DOMNodeIteratorAttributeList = ('[ '("coreObject", DOMObjectCoreObjectPropertyInfo), '("filter", DOMNodeIteratorFilterPropertyInfo), '("pointerBeforeReferenceNode", DOMNodeIteratorPointerBeforeReferenceNodePropertyInfo), '("referenceNode", DOMNodeIteratorReferenceNodePropertyInfo), '("root", DOMNodeIteratorRootPropertyInfo), '("whatToShow", DOMNodeIteratorWhatToShowPropertyInfo)] :: [(Symbol, *)]) +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 +298,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 +325,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -326,7 +333,7 @@ Ptr DOMNodeIterator -> -- _obj : TInterface "WebKit2WebExtension" "DOMNodeIterator" IO CInt - +{-# DEPRECATED dOMNodeIteratorGetExpandEntityReferences ["(Since version 2.12)"]#-} dOMNodeIteratorGetExpandEntityReferences :: (MonadIO m, DOMNodeIteratorK a) => a -- _obj @@ -346,7 +353,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMNodeIterator", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit2WebExtension" "DOMNodeFilter" +-- returnType : Just (TInterface "WebKit2WebExtension" "DOMNodeFilter") -- throws : False -- Skip return : False @@ -375,7 +382,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 +410,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMNodeIterator", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit2WebExtension" "DOMNode" +-- returnType : Just (TInterface "WebKit2WebExtension" "DOMNode") -- throws : False -- Skip return : False @@ -432,7 +439,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMNodeIterator", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit2WebExtension" "DOMNode" +-- returnType : Just (TInterface "WebKit2WebExtension" "DOMNode") -- throws : False -- Skip return : False @@ -461,19 +468,19 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 +488,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 "WebKit2WebExtension" "DOMNodeIterator", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit2WebExtension" "DOMNode" +-- returnType : Just (TInterface "WebKit2WebExtension" "DOMNode") -- throws : True -- Skip return : False @@ -522,7 +529,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMNodeIterator", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit2WebExtension" "DOMNode" +-- returnType : Just (TInterface "WebKit2WebExtension" "DOMNode") -- throws : True -- Skip return : False diff --git a/GI/WebKit2WebExtension/Objects/DOMNodeIterator.hs-boot b/GI/WebKit2WebExtension/Objects/DOMNodeIterator.hs-boot --- a/GI/WebKit2WebExtension/Objects/DOMNodeIterator.hs-boot +++ b/GI/WebKit2WebExtension/Objects/DOMNodeIterator.hs-boot @@ -1,8 +1,8 @@ module GI.WebKit2WebExtension.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 @@ -11,7 +11,6 @@ instance GObject DOMNodeIterator where class GObject o => DOMNodeIteratorK o instance (GObject o, IsDescendantOf DOMNodeIterator o) => DOMNodeIteratorK o -data DOMNodeIteratorExpandEntityReferencesPropertyInfo data DOMNodeIteratorFilterPropertyInfo data DOMNodeIteratorPointerBeforeReferenceNodePropertyInfo data DOMNodeIteratorReferenceNodePropertyInfo diff --git a/GI/WebKit2WebExtension/Objects/DOMNodeList.hs b/GI/WebKit2WebExtension/Objects/DOMNodeList.hs --- a/GI/WebKit2WebExtension/Objects/DOMNodeList.hs +++ b/GI/WebKit2WebExtension/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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "DOMNode" +-- returnType : Just (TInterface "WebKit2WebExtension" "DOMNode") -- throws : False -- Skip return : False foreign import ccall "webkit_dom_node_list_item" webkit_dom_node_list_item :: Ptr DOMNodeList -> -- _obj : TInterface "WebKit2WebExtension" "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/WebKit2WebExtension/Objects/DOMNodeList.hs-boot b/GI/WebKit2WebExtension/Objects/DOMNodeList.hs-boot --- a/GI/WebKit2WebExtension/Objects/DOMNodeList.hs-boot +++ b/GI/WebKit2WebExtension/Objects/DOMNodeList.hs-boot @@ -1,8 +1,8 @@ module GI.WebKit2WebExtension.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/WebKit2WebExtension/Objects/DOMObject.hs b/GI/WebKit2WebExtension/Objects/DOMObject.hs --- a/GI/WebKit2WebExtension/Objects/DOMObject.hs +++ b/GI/WebKit2WebExtension/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/WebKit2WebExtension/Objects/DOMObject.hs-boot b/GI/WebKit2WebExtension/Objects/DOMObject.hs-boot --- a/GI/WebKit2WebExtension/Objects/DOMObject.hs-boot +++ b/GI/WebKit2WebExtension/Objects/DOMObject.hs-boot @@ -1,8 +1,8 @@ module GI.WebKit2WebExtension.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/WebKit2WebExtension/Objects/DOMProcessingInstruction.hs b/GI/WebKit2WebExtension/Objects/DOMProcessingInstruction.hs --- a/GI/WebKit2WebExtension/Objects/DOMProcessingInstruction.hs +++ b/GI/WebKit2WebExtension/Objects/DOMProcessingInstruction.hs @@ -32,11 +32,13 @@ -- * Properties -- ** Sheet DOMProcessingInstructionSheetPropertyInfo, + dOMProcessingInstructionSheet , getDOMProcessingInstructionSheet , -- ** Target DOMProcessingInstructionTargetPropertyInfo, + dOMProcessingInstructionTarget , getDOMProcessingInstructionTarget , @@ -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 @@ -153,42 +155,52 @@ -- VVV Prop "sheet" -- Type: TInterface "WebKit2WebExtension" "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), '("nextElementSibling", DOMCharacterDataNextElementSiblingPropertyInfo), '("nextSibling", DOMNodeNextSiblingPropertyInfo), '("nodeName", DOMNodeNodeNamePropertyInfo), '("nodeType", DOMNodeNodeTypePropertyInfo), '("nodeValue", DOMNodeNodeValuePropertyInfo), '("ownerDocument", DOMNodeOwnerDocumentPropertyInfo), '("parentElement", DOMNodeParentElementPropertyInfo), '("parentNode", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previousElementSibling", DOMCharacterDataPreviousElementSiblingPropertyInfo), '("previousSibling", DOMNodePreviousSiblingPropertyInfo), '("sheet", DOMProcessingInstructionSheetPropertyInfo), '("target", DOMProcessingInstructionTargetPropertyInfo), '("textContent", DOMNodeTextContentPropertyInfo)] :: [(Symbol, *)]) +type DOMProcessingInstructionAttributeList = ('[ '("baseUri", DOMNodeBaseUriPropertyInfo), '("childNodes", DOMNodeChildNodesPropertyInfo), '("coreObject", DOMObjectCoreObjectPropertyInfo), '("data", DOMCharacterDataDataPropertyInfo), '("firstChild", DOMNodeFirstChildPropertyInfo), '("lastChild", DOMNodeLastChildPropertyInfo), '("length", DOMCharacterDataLengthPropertyInfo), '("localName", DOMNodeLocalNamePropertyInfo), '("namespaceUri", DOMNodeNamespaceUriPropertyInfo), '("nextElementSibling", DOMCharacterDataNextElementSiblingPropertyInfo), '("nextSibling", DOMNodeNextSiblingPropertyInfo), '("nodeName", DOMNodeNodeNamePropertyInfo), '("nodeType", DOMNodeNodeTypePropertyInfo), '("nodeValue", DOMNodeNodeValuePropertyInfo), '("ownerDocument", DOMNodeOwnerDocumentPropertyInfo), '("parentElement", DOMNodeParentElementPropertyInfo), '("parentNode", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previousElementSibling", DOMCharacterDataPreviousElementSiblingPropertyInfo), '("previousSibling", DOMNodePreviousSiblingPropertyInfo), '("sheet", DOMProcessingInstructionSheetPropertyInfo), '("target", DOMProcessingInstructionTargetPropertyInfo), '("textContent", DOMNodeTextContentPropertyInfo), '("treeRoot", DOMNodeTreeRootPropertyInfo)] :: [(Symbol, *)]) +dOMProcessingInstructionSheet :: AttrLabelProxy "sheet" +dOMProcessingInstructionSheet = AttrLabelProxy + +dOMProcessingInstructionTarget :: AttrLabelProxy "target" +dOMProcessingInstructionTarget = AttrLabelProxy + type instance SignalList DOMProcessingInstruction = DOMProcessingInstructionSignalList type DOMProcessingInstructionSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) @@ -196,7 +208,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMProcessingInstruction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit2WebExtension" "DOMStyleSheet" +-- returnType : Just (TInterface "WebKit2WebExtension" "DOMStyleSheet") -- throws : False -- Skip return : False @@ -225,7 +237,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 diff --git a/GI/WebKit2WebExtension/Objects/DOMProcessingInstruction.hs-boot b/GI/WebKit2WebExtension/Objects/DOMProcessingInstruction.hs-boot --- a/GI/WebKit2WebExtension/Objects/DOMProcessingInstruction.hs-boot +++ b/GI/WebKit2WebExtension/Objects/DOMProcessingInstruction.hs-boot @@ -1,8 +1,8 @@ module GI.WebKit2WebExtension.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/WebKit2WebExtension/Objects/DOMRange.hs b/GI/WebKit2WebExtension/Objects/DOMRange.hs --- a/GI/WebKit2WebExtension/Objects/DOMRange.hs +++ b/GI/WebKit2WebExtension/Objects/DOMRange.hs @@ -172,36 +172,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 , @@ -209,9 +216,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 @@ -307,6 +314,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" @@ -321,118 +329,152 @@ attrGet _ = getDOMRangeCollapsed attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "common-ancestor-container" -- Type: TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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, *)]) @@ -440,7 +482,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMRange", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit2WebExtension" "DOMDocumentFragment" +-- returnType : Just (TInterface "WebKit2WebExtension" "DOMDocumentFragment") -- throws : True -- Skip return : False @@ -474,7 +516,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMRange", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit2WebExtension" "DOMRange" +-- returnType : Just (TInterface "WebKit2WebExtension" "DOMRange") -- throws : True -- Skip return : False @@ -508,7 +550,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -543,7 +585,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 @@ -581,7 +623,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMRange", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "refNode", argType = TInterface "WebKit2WebExtension" "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 @@ -615,16 +657,16 @@ -- method DOMRange::compare_point -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMRange", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "refNode", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "DOMRange", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "refNode", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "DOMRange" Ptr DOMNode -> -- refNode : TInterface "WebKit2WebExtension" "DOMNode" - Int64 -> -- offset : TBasicType TInt64 + CLong -> -- offset : TBasicType TLong Ptr (Ptr GError) -> -- error IO Int16 @@ -633,7 +675,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 @@ -648,14 +690,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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "DOMDocumentFragment" +-- returnType : Just (TInterface "WebKit2WebExtension" "DOMDocumentFragment") -- throws : True -- Skip return : False @@ -693,7 +735,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -725,7 +767,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -757,7 +799,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMRange", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit2WebExtension" "DOMDocumentFragment" +-- returnType : Just (TInterface "WebKit2WebExtension" "DOMDocumentFragment") -- throws : True -- Skip return : False @@ -791,7 +833,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -823,7 +865,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMRange", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit2WebExtension" "DOMNode" +-- returnType : Just (TInterface "WebKit2WebExtension" "DOMNode") -- throws : True -- Skip return : False @@ -857,7 +899,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMRange", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit2WebExtension" "DOMNode" +-- returnType : Just (TInterface "WebKit2WebExtension" "DOMNode") -- throws : True -- Skip return : False @@ -891,20 +933,20 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 @@ -916,14 +958,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 "WebKit2WebExtension" "DOMRange", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit2WebExtension" "DOMNode" +-- returnType : Just (TInterface "WebKit2WebExtension" "DOMNode") -- throws : True -- Skip return : False @@ -957,20 +999,20 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 @@ -982,14 +1024,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 "WebKit2WebExtension" "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 @@ -1019,7 +1061,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMRange", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "newNode", argType = TInterface "WebKit2WebExtension" "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 @@ -1055,7 +1097,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMRange", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "refNode", argType = TInterface "WebKit2WebExtension" "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 @@ -1089,16 +1131,16 @@ -- method DOMRange::is_point_in_range -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMRange", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "refNode", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "DOMRange", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "refNode", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "DOMRange" Ptr DOMNode -> -- refNode : TInterface "WebKit2WebExtension" "DOMNode" - Int64 -> -- offset : TBasicType TInt64 + CLong -> -- offset : TBasicType TLong Ptr (Ptr GError) -> -- error IO CInt @@ -1107,7 +1149,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 @@ -1122,14 +1164,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 "WebKit2WebExtension" "DOMRange", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "refNode", argType = TInterface "WebKit2WebExtension" "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 @@ -1165,7 +1207,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMRange", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "refNode", argType = TInterface "WebKit2WebExtension" "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 @@ -1199,16 +1241,16 @@ -- method DOMRange::set_end -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMRange", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "refNode", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "DOMRange", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "refNode", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "DOMRange" Ptr DOMNode -> -- refNode : TInterface "WebKit2WebExtension" "DOMNode" - Int64 -> -- offset : TBasicType TInt64 + CLong -> -- offset : TBasicType TLong Ptr (Ptr GError) -> -- error IO () @@ -1217,7 +1259,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 @@ -1232,14 +1274,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 "WebKit2WebExtension" "DOMRange", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "refNode", argType = TInterface "WebKit2WebExtension" "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 @@ -1275,7 +1317,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMRange", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "refNode", argType = TInterface "WebKit2WebExtension" "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 @@ -1309,16 +1351,16 @@ -- method DOMRange::set_start -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMRange", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "refNode", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "DOMRange", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "refNode", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "DOMRange" Ptr DOMNode -> -- refNode : TInterface "WebKit2WebExtension" "DOMNode" - Int64 -> -- offset : TBasicType TInt64 + CLong -> -- offset : TBasicType TLong Ptr (Ptr GError) -> -- error IO () @@ -1327,7 +1369,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 @@ -1342,14 +1384,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 "WebKit2WebExtension" "DOMRange", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "refNode", argType = TInterface "WebKit2WebExtension" "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 @@ -1385,7 +1427,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMRange", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "refNode", argType = TInterface "WebKit2WebExtension" "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 @@ -1421,7 +1463,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMRange", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "newParent", argType = TInterface "WebKit2WebExtension" "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 @@ -1457,7 +1499,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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/WebKit2WebExtension/Objects/DOMRange.hs-boot b/GI/WebKit2WebExtension/Objects/DOMRange.hs-boot --- a/GI/WebKit2WebExtension/Objects/DOMRange.hs-boot +++ b/GI/WebKit2WebExtension/Objects/DOMRange.hs-boot @@ -1,8 +1,8 @@ module GI.WebKit2WebExtension.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/WebKit2WebExtension/Objects/DOMStyleSheet.hs b/GI/WebKit2WebExtension/Objects/DOMStyleSheet.hs --- a/GI/WebKit2WebExtension/Objects/DOMStyleSheet.hs +++ b/GI/WebKit2WebExtension/Objects/DOMStyleSheet.hs @@ -63,37 +63,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 , @@ -101,9 +108,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 @@ -177,6 +184,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" @@ -197,53 +205,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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 @@ -251,64 +265,92 @@ attrGet _ = getDOMStyleSheetOwnerNode attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "parent-style-sheet" -- Type: TInterface "WebKit2WebExtension" "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, *)]) @@ -316,7 +358,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -346,7 +388,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -374,7 +416,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -404,7 +446,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMStyleSheet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit2WebExtension" "DOMMediaList" +-- returnType : Just (TInterface "WebKit2WebExtension" "DOMMediaList") -- throws : False -- Skip return : False @@ -433,7 +475,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMStyleSheet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit2WebExtension" "DOMNode" +-- returnType : Just (TInterface "WebKit2WebExtension" "DOMNode") -- throws : False -- Skip return : False @@ -462,7 +504,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMStyleSheet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit2WebExtension" "DOMStyleSheet" +-- returnType : Just (TInterface "WebKit2WebExtension" "DOMStyleSheet") -- throws : False -- Skip return : False @@ -491,7 +533,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -521,7 +563,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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/WebKit2WebExtension/Objects/DOMStyleSheet.hs-boot b/GI/WebKit2WebExtension/Objects/DOMStyleSheet.hs-boot --- a/GI/WebKit2WebExtension/Objects/DOMStyleSheet.hs-boot +++ b/GI/WebKit2WebExtension/Objects/DOMStyleSheet.hs-boot @@ -1,8 +1,8 @@ module GI.WebKit2WebExtension.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/WebKit2WebExtension/Objects/DOMStyleSheetList.hs b/GI/WebKit2WebExtension/Objects/DOMStyleSheetList.hs --- a/GI/WebKit2WebExtension/Objects/DOMStyleSheetList.hs +++ b/GI/WebKit2WebExtension/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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "DOMStyleSheet" +-- returnType : Just (TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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/WebKit2WebExtension/Objects/DOMStyleSheetList.hs-boot b/GI/WebKit2WebExtension/Objects/DOMStyleSheetList.hs-boot --- a/GI/WebKit2WebExtension/Objects/DOMStyleSheetList.hs-boot +++ b/GI/WebKit2WebExtension/Objects/DOMStyleSheetList.hs-boot @@ -1,8 +1,8 @@ module GI.WebKit2WebExtension.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/WebKit2WebExtension/Objects/DOMText.hs b/GI/WebKit2WebExtension/Objects/DOMText.hs --- a/GI/WebKit2WebExtension/Objects/DOMText.hs +++ b/GI/WebKit2WebExtension/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 @@ -154,24 +155,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), '("nextElementSibling", DOMCharacterDataNextElementSiblingPropertyInfo), '("nextSibling", DOMNodeNextSiblingPropertyInfo), '("nodeName", DOMNodeNodeNamePropertyInfo), '("nodeType", DOMNodeNodeTypePropertyInfo), '("nodeValue", DOMNodeNodeValuePropertyInfo), '("ownerDocument", DOMNodeOwnerDocumentPropertyInfo), '("parentElement", DOMNodeParentElementPropertyInfo), '("parentNode", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previousElementSibling", DOMCharacterDataPreviousElementSiblingPropertyInfo), '("previousSibling", DOMNodePreviousSiblingPropertyInfo), '("textContent", DOMNodeTextContentPropertyInfo), '("wholeText", DOMTextWholeTextPropertyInfo)] :: [(Symbol, *)]) +type DOMTextAttributeList = ('[ '("baseUri", DOMNodeBaseUriPropertyInfo), '("childNodes", DOMNodeChildNodesPropertyInfo), '("coreObject", DOMObjectCoreObjectPropertyInfo), '("data", DOMCharacterDataDataPropertyInfo), '("firstChild", DOMNodeFirstChildPropertyInfo), '("lastChild", DOMNodeLastChildPropertyInfo), '("length", DOMCharacterDataLengthPropertyInfo), '("localName", DOMNodeLocalNamePropertyInfo), '("namespaceUri", DOMNodeNamespaceUriPropertyInfo), '("nextElementSibling", DOMCharacterDataNextElementSiblingPropertyInfo), '("nextSibling", DOMNodeNextSiblingPropertyInfo), '("nodeName", DOMNodeNodeNamePropertyInfo), '("nodeType", DOMNodeNodeTypePropertyInfo), '("nodeValue", DOMNodeNodeValuePropertyInfo), '("ownerDocument", DOMNodeOwnerDocumentPropertyInfo), '("parentElement", DOMNodeParentElementPropertyInfo), '("parentNode", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previousElementSibling", DOMCharacterDataPreviousElementSiblingPropertyInfo), '("previousSibling", DOMNodePreviousSiblingPropertyInfo), '("textContent", DOMNodeTextContentPropertyInfo), '("treeRoot", DOMNodeTreeRootPropertyInfo), '("wholeText", DOMTextWholeTextPropertyInfo)] :: [(Symbol, *)]) +dOMTextWholeText :: AttrLabelProxy "wholeText" +dOMTextWholeText = AttrLabelProxy + type instance SignalList DOMText = DOMTextSignalList type DOMTextSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) @@ -179,7 +185,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -209,7 +215,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "DOMText" +-- returnType : Just (TInterface "WebKit2WebExtension" "DOMText") -- throws : True -- Skip return : False @@ -245,15 +251,15 @@ -- method DOMText::split_text -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "DOMText" +-- returnType : Just (TInterface "WebKit2WebExtension" "DOMText") -- throws : True -- Skip return : False foreign import ccall "webkit_dom_text_split_text" webkit_dom_text_split_text :: Ptr DOMText -> -- _obj : TInterface "WebKit2WebExtension" "DOMText" - Word64 -> -- offset : TBasicType TUInt64 + CULong -> -- offset : TBasicType TULong Ptr (Ptr GError) -> -- error IO (Ptr DOMText) @@ -261,7 +267,7 @@ dOMTextSplitText :: (MonadIO m, DOMTextK a) => a -- _obj - -> Word64 -- offset + -> CULong -- offset -> m DOMText -- result dOMTextSplitText _obj offset = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj @@ -276,7 +282,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/WebKit2WebExtension/Objects/DOMText.hs-boot b/GI/WebKit2WebExtension/Objects/DOMText.hs-boot --- a/GI/WebKit2WebExtension/Objects/DOMText.hs-boot +++ b/GI/WebKit2WebExtension/Objects/DOMText.hs-boot @@ -1,8 +1,8 @@ module GI.WebKit2WebExtension.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/WebKit2WebExtension/Objects/DOMTreeWalker.hs b/GI/WebKit2WebExtension/Objects/DOMTreeWalker.hs --- a/GI/WebKit2WebExtension/Objects/DOMTreeWalker.hs +++ b/GI/WebKit2WebExtension/Objects/DOMTreeWalker.hs @@ -87,26 +87,25 @@ -- * Properties -- ** CurrentNode DOMTreeWalkerCurrentNodePropertyInfo , + dOMTreeWalkerCurrentNode , getDOMTreeWalkerCurrentNode , --- ** ExpandEntityReferences - DOMTreeWalkerExpandEntityReferencesPropertyInfo, - getDOMTreeWalkerExpandEntityReferences , - - -- ** Filter DOMTreeWalkerFilterPropertyInfo , + dOMTreeWalkerFilter , getDOMTreeWalkerFilter , -- ** Root DOMTreeWalkerRootPropertyInfo , + dOMTreeWalkerRoot , getDOMTreeWalkerRoot , -- ** WhatToShow DOMTreeWalkerWhatToShowPropertyInfo , + dOMTreeWalkerWhatToShow , getDOMTreeWalkerWhatToShow , @@ -114,9 +113,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 +194,14 @@ -- VVV Prop "current-node" -- Type: TInterface "WebKit2WebExtension" "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,53 +209,39 @@ attrGet _ = getDOMTreeWalkerCurrentNode attrSet _ = undefined attrConstruct _ = undefined - --- VVV Prop "expand-entity-references" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable] - -getDOMTreeWalkerExpandEntityReferences :: (MonadIO m, DOMTreeWalkerK o) => o -> m Bool -getDOMTreeWalkerExpandEntityReferences obj = liftIO $ getObjectPropertyBool obj "expand-entity-references" - -data DOMTreeWalkerExpandEntityReferencesPropertyInfo -instance AttrInfo DOMTreeWalkerExpandEntityReferencesPropertyInfo where - type AttrAllowedOps DOMTreeWalkerExpandEntityReferencesPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMTreeWalkerExpandEntityReferencesPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMTreeWalkerExpandEntityReferencesPropertyInfo = DOMTreeWalkerK - type AttrGetType DOMTreeWalkerExpandEntityReferencesPropertyInfo = Bool - type AttrLabel DOMTreeWalkerExpandEntityReferencesPropertyInfo = "expand-entity-references" - attrGet _ = getDOMTreeWalkerExpandEntityReferences - attrSet _ = undefined - attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "filter" -- Type: TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 +249,43 @@ 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, *)]) +type DOMTreeWalkerAttributeList = ('[ '("coreObject", DOMObjectCoreObjectPropertyInfo), '("currentNode", DOMTreeWalkerCurrentNodePropertyInfo), '("filter", DOMTreeWalkerFilterPropertyInfo), '("root", DOMTreeWalkerRootPropertyInfo), '("whatToShow", DOMTreeWalkerWhatToShowPropertyInfo)] :: [(Symbol, *)]) +dOMTreeWalkerCurrentNode :: AttrLabelProxy "currentNode" +dOMTreeWalkerCurrentNode = 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 +293,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMTreeWalker", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit2WebExtension" "DOMNode" +-- returnType : Just (TInterface "WebKit2WebExtension" "DOMNode") -- throws : False -- Skip return : False @@ -321,7 +322,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMTreeWalker", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit2WebExtension" "DOMNode" +-- returnType : Just (TInterface "WebKit2WebExtension" "DOMNode") -- throws : False -- Skip return : False @@ -350,7 +351,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 @@ -358,7 +359,7 @@ Ptr DOMTreeWalker -> -- _obj : TInterface "WebKit2WebExtension" "DOMTreeWalker" IO CInt - +{-# DEPRECATED dOMTreeWalkerGetExpandEntityReferences ["(Since version 2.12)"]#-} dOMTreeWalkerGetExpandEntityReferences :: (MonadIO m, DOMTreeWalkerK a) => a -- _obj @@ -378,7 +379,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMTreeWalker", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit2WebExtension" "DOMNodeFilter" +-- returnType : Just (TInterface "WebKit2WebExtension" "DOMNodeFilter") -- throws : False -- Skip return : False @@ -407,7 +408,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMTreeWalker", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit2WebExtension" "DOMNode" +-- returnType : Just (TInterface "WebKit2WebExtension" "DOMNode") -- throws : False -- Skip return : False @@ -436,19 +437,19 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 +457,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 "WebKit2WebExtension" "DOMTreeWalker", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit2WebExtension" "DOMNode" +-- returnType : Just (TInterface "WebKit2WebExtension" "DOMNode") -- throws : False -- Skip return : False @@ -492,7 +493,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMTreeWalker", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit2WebExtension" "DOMNode" +-- returnType : Just (TInterface "WebKit2WebExtension" "DOMNode") -- throws : False -- Skip return : False @@ -521,7 +522,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMTreeWalker", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit2WebExtension" "DOMNode" +-- returnType : Just (TInterface "WebKit2WebExtension" "DOMNode") -- throws : False -- Skip return : False @@ -550,7 +551,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMTreeWalker", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit2WebExtension" "DOMNode" +-- returnType : Just (TInterface "WebKit2WebExtension" "DOMNode") -- throws : False -- Skip return : False @@ -579,7 +580,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMTreeWalker", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit2WebExtension" "DOMNode" +-- returnType : Just (TInterface "WebKit2WebExtension" "DOMNode") -- throws : False -- Skip return : False @@ -608,7 +609,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMTreeWalker", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit2WebExtension" "DOMNode" +-- returnType : Just (TInterface "WebKit2WebExtension" "DOMNode") -- throws : False -- Skip return : False @@ -637,7 +638,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMTreeWalker", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TInterface "WebKit2WebExtension" "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/WebKit2WebExtension/Objects/DOMTreeWalker.hs-boot b/GI/WebKit2WebExtension/Objects/DOMTreeWalker.hs-boot --- a/GI/WebKit2WebExtension/Objects/DOMTreeWalker.hs-boot +++ b/GI/WebKit2WebExtension/Objects/DOMTreeWalker.hs-boot @@ -1,8 +1,8 @@ module GI.WebKit2WebExtension.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 @@ -12,7 +12,6 @@ class GObject o => DOMTreeWalkerK o instance (GObject o, IsDescendantOf DOMTreeWalker o) => DOMTreeWalkerK o data DOMTreeWalkerCurrentNodePropertyInfo -data DOMTreeWalkerExpandEntityReferencesPropertyInfo data DOMTreeWalkerFilterPropertyInfo data DOMTreeWalkerRootPropertyInfo data DOMTreeWalkerWhatToShowPropertyInfo diff --git a/GI/WebKit2WebExtension/Objects/DOMUIEvent.hs b/GI/WebKit2WebExtension/Objects/DOMUIEvent.hs --- a/GI/WebKit2WebExtension/Objects/DOMUIEvent.hs +++ b/GI/WebKit2WebExtension/Objects/DOMUIEvent.hs @@ -67,46 +67,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 , @@ -114,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 @@ -204,170 +213,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 "WebKit2WebExtension" "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: (Nothing,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, *)]) +type DOMUIEventAttributeList = ('[ '("bubbles", DOMEventBubblesPropertyInfo), '("cancelBubble", DOMEventCancelBubblePropertyInfo), '("cancelable", DOMEventCancelablePropertyInfo), '("charCode", DOMUIEventCharCodePropertyInfo), '("coreObject", DOMObjectCoreObjectPropertyInfo), '("currentTarget", DOMEventCurrentTargetPropertyInfo), '("defaultPrevented", DOMEventDefaultPreventedPropertyInfo), '("detail", DOMUIEventDetailPropertyInfo), '("eventPhase", DOMEventEventPhasePropertyInfo), '("isTrusted", DOMEventIsTrustedPropertyInfo), '("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, *)]) @@ -375,19 +429,19 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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' @@ -395,26 +449,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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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' @@ -422,26 +476,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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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' @@ -449,26 +503,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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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' @@ -476,26 +530,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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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' @@ -503,26 +557,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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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' @@ -530,26 +584,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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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' @@ -557,14 +611,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 "WebKit2WebExtension" "DOMUIEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit2WebExtension" "DOMDOMWindow" +-- returnType : Just (TInterface "WebKit2WebExtension" "DOMDOMWindow") -- throws : False -- Skip return : False @@ -591,9 +645,9 @@ -- method DOMUIEvent::init_ui_event -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 @@ -603,7 +657,7 @@ CInt -> -- canBubble : TBasicType TBoolean CInt -> -- cancelable : TBasicType TBoolean Ptr DOMDOMWindow -> -- view : TInterface "WebKit2WebExtension" "DOMDOMWindow" - Int64 -> -- detail : TBasicType TInt64 + CLong -> -- detail : TBasicType TLong IO () @@ -614,7 +668,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 @@ -629,7 +683,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/WebKit2WebExtension/Objects/DOMUIEvent.hs-boot b/GI/WebKit2WebExtension/Objects/DOMUIEvent.hs-boot --- a/GI/WebKit2WebExtension/Objects/DOMUIEvent.hs-boot +++ b/GI/WebKit2WebExtension/Objects/DOMUIEvent.hs-boot @@ -1,8 +1,8 @@ module GI.WebKit2WebExtension.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/WebKit2WebExtension/Objects/DOMWheelEvent.hs b/GI/WebKit2WebExtension/Objects/DOMWheelEvent.hs --- a/GI/WebKit2WebExtension/Objects/DOMWheelEvent.hs +++ b/GI/WebKit2WebExtension/Objects/DOMWheelEvent.hs @@ -42,41 +42,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 , @@ -84,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 @@ -195,26 +203,29 @@ #endif -- VVV Prop "delta-mode" - -- Type: TBasicType TUInt64 + -- Type: TBasicType TULong -- Flags: [PropertyReadable] + -- Nullable: (Nothing,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: (Nothing,Nothing) getDOMWheelEventDeltaX :: (MonadIO m, DOMWheelEventK o) => o -> m Double getDOMWheelEventDeltaX obj = liftIO $ getObjectPropertyDouble obj "delta-x" @@ -229,10 +240,12 @@ attrGet _ = getDOMWheelEventDeltaX attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "delta-y" -- Type: TBasicType TDouble -- Flags: [PropertyReadable] + -- Nullable: (Nothing,Nothing) getDOMWheelEventDeltaY :: (MonadIO m, DOMWheelEventK o) => o -> m Double getDOMWheelEventDeltaY obj = liftIO $ getObjectPropertyDouble obj "delta-y" @@ -247,10 +260,12 @@ attrGet _ = getDOMWheelEventDeltaY attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "delta-z" -- Type: TBasicType TDouble -- Flags: [PropertyReadable] + -- Nullable: (Nothing,Nothing) getDOMWheelEventDeltaZ :: (MonadIO m, DOMWheelEventK o) => o -> m Double getDOMWheelEventDeltaZ obj = liftIO $ getObjectPropertyDouble obj "delta-z" @@ -265,10 +280,12 @@ attrGet _ = getDOMWheelEventDeltaZ attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "webkit-direction-inverted-from-device" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable] + -- Nullable: (Nothing,Nothing) getDOMWheelEventWebkitDirectionInvertedFromDevice :: (MonadIO m, DOMWheelEventK o) => o -> m Bool getDOMWheelEventWebkitDirectionInvertedFromDevice obj = liftIO $ getObjectPropertyBool obj "webkit-direction-inverted-from-device" @@ -283,64 +300,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), '("movementX", DOMMouseEventMovementXPropertyInfo), '("movementY", DOMMouseEventMovementYPropertyInfo), '("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), '("wheelDelta", DOMWheelEventWheelDeltaPropertyInfo), '("wheelDeltaX", DOMWheelEventWheelDeltaXPropertyInfo), '("wheelDeltaY", DOMWheelEventWheelDeltaYPropertyInfo), '("which", DOMUIEventWhichPropertyInfo), '("x", DOMMouseEventXPropertyInfo), '("y", DOMMouseEventYPropertyInfo)] :: [(Symbol, *)]) +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), '("isTrusted", DOMEventIsTrustedPropertyInfo), '("keyCode", DOMUIEventKeyCodePropertyInfo), '("layerX", DOMUIEventLayerXPropertyInfo), '("layerY", DOMUIEventLayerYPropertyInfo), '("metaKey", DOMMouseEventMetaKeyPropertyInfo), '("movementX", DOMMouseEventMovementXPropertyInfo), '("movementY", DOMMouseEventMovementYPropertyInfo), '("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), '("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, *)]) @@ -348,19 +396,19 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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' @@ -368,26 +416,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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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' @@ -395,26 +443,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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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' @@ -422,26 +470,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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "DOMWheelEvent" - Int64 -> -- wheelDeltaX : TBasicType TInt64 - Int64 -> -- wheelDeltaY : TBasicType TInt64 + CLong -> -- wheelDeltaX : TBasicType TLong + CLong -> -- wheelDeltaY : TBasicType TLong Ptr DOMDOMWindow -> -- view : TInterface "WebKit2WebExtension" "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 @@ -452,13 +500,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 @@ -477,7 +525,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/WebKit2WebExtension/Objects/DOMWheelEvent.hs-boot b/GI/WebKit2WebExtension/Objects/DOMWheelEvent.hs-boot --- a/GI/WebKit2WebExtension/Objects/DOMWheelEvent.hs-boot +++ b/GI/WebKit2WebExtension/Objects/DOMWheelEvent.hs-boot @@ -1,8 +1,8 @@ module GI.WebKit2WebExtension.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/WebKit2WebExtension/Objects/DOMXPathExpression.hs b/GI/WebKit2WebExtension/Objects/DOMXPathExpression.hs --- a/GI/WebKit2WebExtension/Objects/DOMXPathExpression.hs +++ b/GI/WebKit2WebExtension/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 "WebKit2WebExtension" "DOMXPathExpression", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "contextNode", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "DOMXPathResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit2WebExtension" "DOMXPathResult" +-- returnType : Just (TInterface "WebKit2WebExtension" "DOMXPathResult") -- throws : True -- Skip return : False diff --git a/GI/WebKit2WebExtension/Objects/DOMXPathExpression.hs-boot b/GI/WebKit2WebExtension/Objects/DOMXPathExpression.hs-boot --- a/GI/WebKit2WebExtension/Objects/DOMXPathExpression.hs-boot +++ b/GI/WebKit2WebExtension/Objects/DOMXPathExpression.hs-boot @@ -1,8 +1,8 @@ module GI.WebKit2WebExtension.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/WebKit2WebExtension/Objects/DOMXPathResult.hs b/GI/WebKit2WebExtension/Objects/DOMXPathResult.hs --- a/GI/WebKit2WebExtension/Objects/DOMXPathResult.hs +++ b/GI/WebKit2WebExtension/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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "DOMXPathResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit2WebExtension" "DOMNode" +-- returnType : Just (TInterface "WebKit2WebExtension" "DOMNode") -- throws : True -- Skip return : False @@ -468,20 +510,20 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "DOMXPathResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit2WebExtension" "DOMNode" +-- returnType : Just (TInterface "WebKit2WebExtension" "DOMNode") -- throws : True -- Skip return : False @@ -567,15 +609,15 @@ -- method DOMXPathResult::snapshot_item -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "DOMNode" +-- returnType : Just (TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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/WebKit2WebExtension/Objects/DOMXPathResult.hs-boot b/GI/WebKit2WebExtension/Objects/DOMXPathResult.hs-boot --- a/GI/WebKit2WebExtension/Objects/DOMXPathResult.hs-boot +++ b/GI/WebKit2WebExtension/Objects/DOMXPathResult.hs-boot @@ -1,8 +1,8 @@ module GI.WebKit2WebExtension.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/WebKit2WebExtension/Objects/Frame.hs b/GI/WebKit2WebExtension/Objects/Frame.hs --- a/GI/WebKit2WebExtension/Objects/Frame.hs +++ b/GI/WebKit2WebExtension/Objects/Frame.hs @@ -41,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 @@ -121,7 +121,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "Frame", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "world", argType = TInterface "WebKit2WebExtension" "ScriptWorld", 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 @@ -155,7 +155,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "Frame", 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 @@ -185,7 +185,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "Frame", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -214,7 +214,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "Frame", 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/WebKit2WebExtension/Objects/Frame.hs-boot b/GI/WebKit2WebExtension/Objects/Frame.hs-boot --- a/GI/WebKit2WebExtension/Objects/Frame.hs-boot +++ b/GI/WebKit2WebExtension/Objects/Frame.hs-boot @@ -1,8 +1,8 @@ module GI.WebKit2WebExtension.Objects.Frame where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.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/WebKit2WebExtension/Objects/HitTestResult.hs b/GI/WebKit2WebExtension/Objects/HitTestResult.hs --- a/GI/WebKit2WebExtension/Objects/HitTestResult.hs +++ b/GI/WebKit2WebExtension/Objects/HitTestResult.hs @@ -84,45 +84,51 @@ HitTestResultContextPropertyInfo , constructHitTestResultContext , getHitTestResultContext , + hitTestResultContext , -- ** ImageUri HitTestResultImageUriPropertyInfo , constructHitTestResultImageUri , getHitTestResultImageUri , + hitTestResultImageUri , -- ** LinkLabel HitTestResultLinkLabelPropertyInfo , constructHitTestResultLinkLabel , getHitTestResultLinkLabel , + hitTestResultLinkLabel , -- ** LinkTitle HitTestResultLinkTitlePropertyInfo , constructHitTestResultLinkTitle , getHitTestResultLinkTitle , + hitTestResultLinkTitle , -- ** LinkUri HitTestResultLinkUriPropertyInfo , constructHitTestResultLinkUri , getHitTestResultLinkUri , + hitTestResultLinkUri , -- ** MediaUri HitTestResultMediaUriPropertyInfo , constructHitTestResultMediaUri , getHitTestResultMediaUri , + hitTestResultMediaUri , ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map @@ -198,14 +204,15 @@ #endif -- VVV Prop "context" - -- Type: TBasicType TUInt32 + -- Type: TBasicType TUInt -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] + -- Nullable: (Just False,Nothing) getHitTestResultContext :: (MonadIO m, HitTestResultK o) => o -> m Word32 -getHitTestResultContext obj = liftIO $ getObjectPropertyCUInt obj "context" +getHitTestResultContext obj = liftIO $ getObjectPropertyUInt32 obj "context" constructHitTestResultContext :: Word32 -> IO ([Char], GValue) -constructHitTestResultContext val = constructObjectPropertyCUInt "context" val +constructHitTestResultContext val = constructObjectPropertyUInt32 "context" val data HitTestResultContextPropertyInfo instance AttrInfo HitTestResultContextPropertyInfo where @@ -217,20 +224,22 @@ attrGet _ = getHitTestResultContext attrSet _ = undefined attrConstruct _ = constructHitTestResultContext + attrClear _ = undefined -- VVV Prop "image-uri" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] + -- Nullable: (Just False,Nothing) getHitTestResultImageUri :: (MonadIO m, HitTestResultK o) => o -> m T.Text -getHitTestResultImageUri obj = liftIO $ getObjectPropertyString obj "image-uri" +getHitTestResultImageUri obj = liftIO $ checkUnexpectedNothing "getHitTestResultImageUri" $ 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 @@ -238,20 +247,22 @@ attrGet _ = getHitTestResultImageUri attrSet _ = undefined attrConstruct _ = constructHitTestResultImageUri + attrClear _ = undefined -- VVV Prop "link-label" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] + -- Nullable: (Just False,Nothing) getHitTestResultLinkLabel :: (MonadIO m, HitTestResultK o) => o -> m T.Text -getHitTestResultLinkLabel obj = liftIO $ getObjectPropertyString obj "link-label" +getHitTestResultLinkLabel obj = liftIO $ checkUnexpectedNothing "getHitTestResultLinkLabel" $ getObjectPropertyString obj "link-label" constructHitTestResultLinkLabel :: T.Text -> IO ([Char], GValue) -constructHitTestResultLinkLabel val = constructObjectPropertyString "link-label" val +constructHitTestResultLinkLabel val = constructObjectPropertyString "link-label" (Just val) data HitTestResultLinkLabelPropertyInfo instance AttrInfo HitTestResultLinkLabelPropertyInfo where - type AttrAllowedOps HitTestResultLinkLabelPropertyInfo = '[ 'AttrConstruct, 'AttrGet] + type AttrAllowedOps HitTestResultLinkLabelPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint HitTestResultLinkLabelPropertyInfo = (~) T.Text type AttrBaseTypeConstraint HitTestResultLinkLabelPropertyInfo = HitTestResultK type AttrGetType HitTestResultLinkLabelPropertyInfo = T.Text @@ -259,20 +270,22 @@ attrGet _ = getHitTestResultLinkLabel attrSet _ = undefined attrConstruct _ = constructHitTestResultLinkLabel + attrClear _ = undefined -- VVV Prop "link-title" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] + -- Nullable: (Just False,Nothing) getHitTestResultLinkTitle :: (MonadIO m, HitTestResultK o) => o -> m T.Text -getHitTestResultLinkTitle obj = liftIO $ getObjectPropertyString obj "link-title" +getHitTestResultLinkTitle obj = liftIO $ checkUnexpectedNothing "getHitTestResultLinkTitle" $ getObjectPropertyString obj "link-title" constructHitTestResultLinkTitle :: T.Text -> IO ([Char], GValue) -constructHitTestResultLinkTitle val = constructObjectPropertyString "link-title" val +constructHitTestResultLinkTitle val = constructObjectPropertyString "link-title" (Just val) data HitTestResultLinkTitlePropertyInfo instance AttrInfo HitTestResultLinkTitlePropertyInfo where - type AttrAllowedOps HitTestResultLinkTitlePropertyInfo = '[ 'AttrConstruct, 'AttrGet] + type AttrAllowedOps HitTestResultLinkTitlePropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint HitTestResultLinkTitlePropertyInfo = (~) T.Text type AttrBaseTypeConstraint HitTestResultLinkTitlePropertyInfo = HitTestResultK type AttrGetType HitTestResultLinkTitlePropertyInfo = T.Text @@ -280,20 +293,22 @@ attrGet _ = getHitTestResultLinkTitle attrSet _ = undefined attrConstruct _ = constructHitTestResultLinkTitle + attrClear _ = undefined -- VVV Prop "link-uri" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] + -- Nullable: (Just False,Nothing) getHitTestResultLinkUri :: (MonadIO m, HitTestResultK o) => o -> m T.Text -getHitTestResultLinkUri obj = liftIO $ getObjectPropertyString obj "link-uri" +getHitTestResultLinkUri obj = liftIO $ checkUnexpectedNothing "getHitTestResultLinkUri" $ 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 @@ -301,20 +316,22 @@ attrGet _ = getHitTestResultLinkUri attrSet _ = undefined attrConstruct _ = constructHitTestResultLinkUri + attrClear _ = undefined -- VVV Prop "media-uri" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] + -- Nullable: (Just False,Nothing) getHitTestResultMediaUri :: (MonadIO m, HitTestResultK o) => o -> m T.Text -getHitTestResultMediaUri obj = liftIO $ getObjectPropertyString obj "media-uri" +getHitTestResultMediaUri obj = liftIO $ checkUnexpectedNothing "getHitTestResultMediaUri" $ 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 @@ -322,10 +339,29 @@ attrGet _ = getHitTestResultMediaUri attrSet _ = undefined attrConstruct _ = constructHitTestResultMediaUri + attrClear _ = undefined type instance AttributeList HitTestResult = HitTestResultAttributeList type HitTestResultAttributeList = ('[ '("context", HitTestResultContextPropertyInfo), '("imageUri", HitTestResultImageUriPropertyInfo), '("linkLabel", HitTestResultLinkLabelPropertyInfo), '("linkTitle", HitTestResultLinkTitlePropertyInfo), '("linkUri", HitTestResultLinkUriPropertyInfo), '("mediaUri", HitTestResultMediaUriPropertyInfo)] :: [(Symbol, *)]) +hitTestResultContext :: AttrLabelProxy "context" +hitTestResultContext = AttrLabelProxy + +hitTestResultImageUri :: AttrLabelProxy "imageUri" +hitTestResultImageUri = AttrLabelProxy + +hitTestResultLinkLabel :: AttrLabelProxy "linkLabel" +hitTestResultLinkLabel = AttrLabelProxy + +hitTestResultLinkTitle :: AttrLabelProxy "linkTitle" +hitTestResultLinkTitle = AttrLabelProxy + +hitTestResultLinkUri :: AttrLabelProxy "linkUri" +hitTestResultLinkUri = AttrLabelProxy + +hitTestResultMediaUri :: AttrLabelProxy "mediaUri" +hitTestResultMediaUri = AttrLabelProxy + type instance SignalList HitTestResult = HitTestResultSignalList type HitTestResultSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) @@ -333,7 +369,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "HitTestResult", 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 @@ -361,7 +397,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "HitTestResult", 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 @@ -389,7 +425,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "HitTestResult", 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 +453,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "HitTestResult", 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 +481,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "HitTestResult", 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 +509,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "HitTestResult", 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 +537,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "HitTestResult", 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 @@ -528,7 +564,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "HitTestResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -557,7 +593,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "HitTestResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -586,7 +622,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "HitTestResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -615,7 +651,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "HitTestResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -644,7 +680,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "HitTestResult", direction = DirectionIn, mayBeNull = 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/WebKit2WebExtension/Objects/HitTestResult.hs-boot b/GI/WebKit2WebExtension/Objects/HitTestResult.hs-boot --- a/GI/WebKit2WebExtension/Objects/HitTestResult.hs-boot +++ b/GI/WebKit2WebExtension/Objects/HitTestResult.hs-boot @@ -1,8 +1,8 @@ module GI.WebKit2WebExtension.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/WebKit2WebExtension/Objects/ScriptWorld.hs b/GI/WebKit2WebExtension/Objects/ScriptWorld.hs --- a/GI/WebKit2WebExtension/Objects/ScriptWorld.hs +++ b/GI/WebKit2WebExtension/Objects/ScriptWorld.hs @@ -44,9 +44,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 @@ -170,7 +170,7 @@ -- method type : Constructor -- Args : [] -- Lengths : [] --- returnType : TInterface "WebKit2WebExtension" "ScriptWorld" +-- returnType : Just (TInterface "WebKit2WebExtension" "ScriptWorld") -- throws : False -- Skip return : False @@ -191,7 +191,7 @@ -- method type : MemberFunction -- Args : [] -- Lengths : [] --- returnType : TInterface "WebKit2WebExtension" "ScriptWorld" +-- returnType : Just (TInterface "WebKit2WebExtension" "ScriptWorld") -- throws : False -- Skip return : False diff --git a/GI/WebKit2WebExtension/Objects/ScriptWorld.hs-boot b/GI/WebKit2WebExtension/Objects/ScriptWorld.hs-boot --- a/GI/WebKit2WebExtension/Objects/ScriptWorld.hs-boot +++ b/GI/WebKit2WebExtension/Objects/ScriptWorld.hs-boot @@ -1,8 +1,8 @@ module GI.WebKit2WebExtension.Objects.ScriptWorld where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.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/WebKit2WebExtension/Objects/URIRequest.hs b/GI/WebKit2WebExtension/Objects/URIRequest.hs --- a/GI/WebKit2WebExtension/Objects/URIRequest.hs +++ b/GI/WebKit2WebExtension/Objects/URIRequest.hs @@ -22,6 +22,11 @@ uRIRequestGetHttpHeaders , +-- ** uRIRequestGetHttpMethod + URIRequestGetHttpMethodMethodInfo , + uRIRequestGetHttpMethod , + + -- ** uRIRequestGetUri URIRequestGetUriMethodInfo , uRIRequestGetUri , @@ -44,15 +49,16 @@ constructURIRequestUri , getURIRequestUri , setURIRequestUri , + uRIRequestUri , ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.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 +109,7 @@ ResolveURIRequestMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo ResolveURIRequestMethod "getData" o = GObject.ObjectGetDataMethodInfo ResolveURIRequestMethod "getHttpHeaders" o = URIRequestGetHttpHeadersMethodInfo + ResolveURIRequestMethod "getHttpMethod" o = URIRequestGetHttpMethodMethodInfo ResolveURIRequestMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo ResolveURIRequestMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo ResolveURIRequestMethod "getUri" o = URIRequestGetUriMethodInfo @@ -122,15 +129,16 @@ -- VVV Prop "uri" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + -- Nullable: (Just False,Just False) getURIRequestUri :: (MonadIO m, URIRequestK o) => o -> m T.Text -getURIRequestUri obj = liftIO $ getObjectPropertyString obj "uri" +getURIRequestUri obj = liftIO $ checkUnexpectedNothing "getURIRequestUri" $ getObjectPropertyString obj "uri" setURIRequestUri :: (MonadIO m, URIRequestK o) => o -> T.Text -> m () -setURIRequestUri obj val = liftIO $ setObjectPropertyString obj "uri" val +setURIRequestUri obj val = liftIO $ setObjectPropertyString obj "uri" (Just val) constructURIRequestUri :: T.Text -> IO ([Char], GValue) -constructURIRequestUri val = constructObjectPropertyString "uri" val +constructURIRequestUri val = constructObjectPropertyString "uri" (Just val) data URIRequestUriPropertyInfo instance AttrInfo URIRequestUriPropertyInfo where @@ -142,10 +150,14 @@ attrGet _ = getURIRequestUri attrSet _ = setURIRequestUri attrConstruct _ = constructURIRequestUri + attrClear _ = undefined type instance AttributeList URIRequest = URIRequestAttributeList type URIRequestAttributeList = ('[ '("uri", URIRequestUriPropertyInfo)] :: [(Symbol, *)]) +uRIRequestUri :: AttrLabelProxy "uri" +uRIRequestUri = AttrLabelProxy + type instance SignalList URIRequest = URIRequestSignalList type URIRequestSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) @@ -153,7 +165,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 "WebKit2WebExtension" "URIRequest" +-- returnType : Just (TInterface "WebKit2WebExtension" "URIRequest") -- throws : False -- Skip return : False @@ -178,7 +190,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "URIRequest", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Soup" "MessageHeaders" +-- returnType : Just (TInterface "Soup" "MessageHeaders") -- throws : False -- Skip return : False @@ -203,11 +215,40 @@ instance (signature ~ (m Soup.MessageHeaders), MonadIO m, URIRequestK a) => MethodInfo URIRequestGetHttpHeadersMethodInfo a signature where overloadedMethod _ = uRIRequestGetHttpHeaders +-- method URIRequest::get_http_method +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "URIRequest", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Just (TBasicType TUTF8) +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_uri_request_get_http_method" webkit_uri_request_get_http_method :: + Ptr URIRequest -> -- _obj : TInterface "WebKit2WebExtension" "URIRequest" + IO CString + + +uRIRequestGetHttpMethod :: + (MonadIO m, URIRequestK a) => + a -- _obj + -> m T.Text -- result +uRIRequestGetHttpMethod _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- webkit_uri_request_get_http_method _obj' + checkUnexpectedReturnNULL "webkit_uri_request_get_http_method" result + result' <- cstringToText result + touchManagedPtr _obj + return result' + +data URIRequestGetHttpMethodMethodInfo +instance (signature ~ (m T.Text), MonadIO m, URIRequestK a) => MethodInfo URIRequestGetHttpMethodMethodInfo a signature where + overloadedMethod _ = uRIRequestGetHttpMethod + -- method URIRequest::get_uri -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "URIRequest", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -236,7 +277,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "URIRequest", 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/WebKit2WebExtension/Objects/URIRequest.hs-boot b/GI/WebKit2WebExtension/Objects/URIRequest.hs-boot --- a/GI/WebKit2WebExtension/Objects/URIRequest.hs-boot +++ b/GI/WebKit2WebExtension/Objects/URIRequest.hs-boot @@ -1,8 +1,8 @@ module GI.WebKit2WebExtension.Objects.URIRequest where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map @@ -13,5 +13,6 @@ instance (GObject o, IsDescendantOf URIRequest o) => URIRequestK o data URIRequestUriPropertyInfo data URIRequestGetHttpHeadersMethodInfo +data URIRequestGetHttpMethodMethodInfo data URIRequestGetUriMethodInfo data URIRequestSetUriMethodInfo diff --git a/GI/WebKit2WebExtension/Objects/URIResponse.hs b/GI/WebKit2WebExtension/Objects/URIResponse.hs --- a/GI/WebKit2WebExtension/Objects/URIResponse.hs +++ b/GI/WebKit2WebExtension/Objects/URIResponse.hs @@ -53,40 +53,46 @@ -- ** ContentLength URIResponseContentLengthPropertyInfo , getURIResponseContentLength , + uRIResponseContentLength , -- ** HttpHeaders URIResponseHttpHeadersPropertyInfo , getURIResponseHttpHeaders , + uRIResponseHttpHeaders , -- ** MimeType URIResponseMimeTypePropertyInfo , getURIResponseMimeType , + uRIResponseMimeType , -- ** StatusCode URIResponseStatusCodePropertyInfo , getURIResponseStatusCode , + uRIResponseStatusCode , -- ** SuggestedFilename URIResponseSuggestedFilenamePropertyInfo, getURIResponseSuggestedFilename , + uRIResponseSuggestedFilename , -- ** Uri URIResponseUriPropertyInfo , getURIResponseUri , + uRIResponseUri , ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map @@ -159,6 +165,7 @@ -- VVV Prop "content-length" -- Type: TBasicType TUInt64 -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) getURIResponseContentLength :: (MonadIO m, URIResponseK o) => o -> m Word64 getURIResponseContentLength obj = liftIO $ getObjectPropertyUInt64 obj "content-length" @@ -173,35 +180,39 @@ attrGet _ = getURIResponseContentLength attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "http-headers" -- Type: TInterface "Soup" "MessageHeaders" -- Flags: [PropertyReadable] + -- Nullable: (Nothing,Nothing) -getURIResponseHttpHeaders :: (MonadIO m, URIResponseK o) => o -> m Soup.MessageHeaders +getURIResponseHttpHeaders :: (MonadIO m, URIResponseK o) => o -> m (Maybe Soup.MessageHeaders) getURIResponseHttpHeaders obj = liftIO $ getObjectPropertyBoxed obj "http-headers" Soup.MessageHeaders data URIResponseHttpHeadersPropertyInfo instance AttrInfo URIResponseHttpHeadersPropertyInfo where - type AttrAllowedOps URIResponseHttpHeadersPropertyInfo = '[ 'AttrGet] + type AttrAllowedOps URIResponseHttpHeadersPropertyInfo = '[ 'AttrGet, 'AttrClear] type AttrSetTypeConstraint URIResponseHttpHeadersPropertyInfo = (~) () type AttrBaseTypeConstraint URIResponseHttpHeadersPropertyInfo = URIResponseK - type AttrGetType URIResponseHttpHeadersPropertyInfo = Soup.MessageHeaders + type AttrGetType URIResponseHttpHeadersPropertyInfo = (Maybe Soup.MessageHeaders) type AttrLabel URIResponseHttpHeadersPropertyInfo = "http-headers" attrGet _ = getURIResponseHttpHeaders attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "mime-type" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) getURIResponseMimeType :: (MonadIO m, URIResponseK o) => o -> m T.Text -getURIResponseMimeType obj = liftIO $ getObjectPropertyString obj "mime-type" +getURIResponseMimeType obj = liftIO $ checkUnexpectedNothing "getURIResponseMimeType" $ getObjectPropertyString obj "mime-type" data URIResponseMimeTypePropertyInfo instance AttrInfo URIResponseMimeTypePropertyInfo where - type AttrAllowedOps URIResponseMimeTypePropertyInfo = '[ 'AttrGet] + type AttrAllowedOps URIResponseMimeTypePropertyInfo = '[ 'AttrGet, 'AttrClear] type AttrSetTypeConstraint URIResponseMimeTypePropertyInfo = (~) () type AttrBaseTypeConstraint URIResponseMimeTypePropertyInfo = URIResponseK type AttrGetType URIResponseMimeTypePropertyInfo = T.Text @@ -209,13 +220,15 @@ attrGet _ = getURIResponseMimeType attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "status-code" - -- Type: TBasicType TUInt32 + -- Type: TBasicType TUInt -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) getURIResponseStatusCode :: (MonadIO m, URIResponseK o) => o -> m Word32 -getURIResponseStatusCode obj = liftIO $ getObjectPropertyCUInt obj "status-code" +getURIResponseStatusCode obj = liftIO $ getObjectPropertyUInt32 obj "status-code" data URIResponseStatusCodePropertyInfo instance AttrInfo URIResponseStatusCodePropertyInfo where @@ -227,17 +240,19 @@ attrGet _ = getURIResponseStatusCode attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "suggested-filename" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) getURIResponseSuggestedFilename :: (MonadIO m, URIResponseK o) => o -> m T.Text -getURIResponseSuggestedFilename obj = liftIO $ getObjectPropertyString obj "suggested-filename" +getURIResponseSuggestedFilename obj = liftIO $ checkUnexpectedNothing "getURIResponseSuggestedFilename" $ getObjectPropertyString obj "suggested-filename" data URIResponseSuggestedFilenamePropertyInfo instance AttrInfo URIResponseSuggestedFilenamePropertyInfo where - type AttrAllowedOps URIResponseSuggestedFilenamePropertyInfo = '[ 'AttrGet] + type AttrAllowedOps URIResponseSuggestedFilenamePropertyInfo = '[ 'AttrGet, 'AttrClear] type AttrSetTypeConstraint URIResponseSuggestedFilenamePropertyInfo = (~) () type AttrBaseTypeConstraint URIResponseSuggestedFilenamePropertyInfo = URIResponseK type AttrGetType URIResponseSuggestedFilenamePropertyInfo = T.Text @@ -245,17 +260,19 @@ attrGet _ = getURIResponseSuggestedFilename attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "uri" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) getURIResponseUri :: (MonadIO m, URIResponseK o) => o -> m T.Text -getURIResponseUri obj = liftIO $ getObjectPropertyString obj "uri" +getURIResponseUri obj = liftIO $ checkUnexpectedNothing "getURIResponseUri" $ getObjectPropertyString obj "uri" data URIResponseUriPropertyInfo instance AttrInfo URIResponseUriPropertyInfo where - type AttrAllowedOps URIResponseUriPropertyInfo = '[ 'AttrGet] + type AttrAllowedOps URIResponseUriPropertyInfo = '[ 'AttrGet, 'AttrClear] type AttrSetTypeConstraint URIResponseUriPropertyInfo = (~) () type AttrBaseTypeConstraint URIResponseUriPropertyInfo = URIResponseK type AttrGetType URIResponseUriPropertyInfo = T.Text @@ -263,10 +280,29 @@ attrGet _ = getURIResponseUri attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined type instance AttributeList URIResponse = URIResponseAttributeList type URIResponseAttributeList = ('[ '("contentLength", URIResponseContentLengthPropertyInfo), '("httpHeaders", URIResponseHttpHeadersPropertyInfo), '("mimeType", URIResponseMimeTypePropertyInfo), '("statusCode", URIResponseStatusCodePropertyInfo), '("suggestedFilename", URIResponseSuggestedFilenamePropertyInfo), '("uri", URIResponseUriPropertyInfo)] :: [(Symbol, *)]) +uRIResponseContentLength :: AttrLabelProxy "contentLength" +uRIResponseContentLength = AttrLabelProxy + +uRIResponseHttpHeaders :: AttrLabelProxy "httpHeaders" +uRIResponseHttpHeaders = AttrLabelProxy + +uRIResponseMimeType :: AttrLabelProxy "mimeType" +uRIResponseMimeType = AttrLabelProxy + +uRIResponseStatusCode :: AttrLabelProxy "statusCode" +uRIResponseStatusCode = AttrLabelProxy + +uRIResponseSuggestedFilename :: AttrLabelProxy "suggestedFilename" +uRIResponseSuggestedFilename = AttrLabelProxy + +uRIResponseUri :: AttrLabelProxy "uri" +uRIResponseUri = AttrLabelProxy + type instance SignalList URIResponse = URIResponseSignalList type URIResponseSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) @@ -274,7 +310,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "URIResponse", 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 @@ -301,7 +337,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "URIResponse", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Soup" "MessageHeaders" +-- returnType : Just (TInterface "Soup" "MessageHeaders") -- throws : False -- Skip return : False @@ -330,7 +366,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "URIResponse", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -359,7 +395,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "URIResponse", 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 @@ -386,7 +422,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "URIResponse", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -415,7 +451,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "URIResponse", direction = DirectionIn, mayBeNull = 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/WebKit2WebExtension/Objects/URIResponse.hs-boot b/GI/WebKit2WebExtension/Objects/URIResponse.hs-boot --- a/GI/WebKit2WebExtension/Objects/URIResponse.hs-boot +++ b/GI/WebKit2WebExtension/Objects/URIResponse.hs-boot @@ -1,8 +1,8 @@ module GI.WebKit2WebExtension.Objects.URIResponse where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.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/WebKit2WebExtension/Objects/WebEditor.hs b/GI/WebKit2WebExtension/Objects/WebEditor.hs --- a/GI/WebKit2WebExtension/Objects/WebEditor.hs +++ b/GI/WebKit2WebExtension/Objects/WebEditor.hs @@ -41,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 @@ -160,7 +160,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "WebEditor", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit2WebExtension" "WebPage" +-- returnType : Just (TInterface "WebKit2WebExtension" "WebPage") -- throws : False -- Skip return : False diff --git a/GI/WebKit2WebExtension/Objects/WebEditor.hs-boot b/GI/WebKit2WebExtension/Objects/WebEditor.hs-boot --- a/GI/WebKit2WebExtension/Objects/WebEditor.hs-boot +++ b/GI/WebKit2WebExtension/Objects/WebEditor.hs-boot @@ -1,8 +1,8 @@ module GI.WebKit2WebExtension.Objects.WebEditor where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.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/WebKit2WebExtension/Objects/WebExtension.hs b/GI/WebKit2WebExtension/Objects/WebExtension.hs --- a/GI/WebKit2WebExtension/Objects/WebExtension.hs +++ b/GI/WebKit2WebExtension/Objects/WebExtension.hs @@ -41,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 @@ -164,7 +164,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "WebExtension", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "page_id", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit2WebExtension" "WebPage" +-- returnType : Just (TInterface "WebKit2WebExtension" "WebPage") -- throws : False -- Skip return : False diff --git a/GI/WebKit2WebExtension/Objects/WebExtension.hs-boot b/GI/WebKit2WebExtension/Objects/WebExtension.hs-boot --- a/GI/WebKit2WebExtension/Objects/WebExtension.hs-boot +++ b/GI/WebKit2WebExtension/Objects/WebExtension.hs-boot @@ -1,8 +1,8 @@ module GI.WebKit2WebExtension.Objects.WebExtension where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.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/WebKit2WebExtension/Objects/WebHitTestResult.hs b/GI/WebKit2WebExtension/Objects/WebHitTestResult.hs --- a/GI/WebKit2WebExtension/Objects/WebHitTestResult.hs +++ b/GI/WebKit2WebExtension/Objects/WebHitTestResult.hs @@ -29,15 +29,16 @@ WebHitTestResultNodePropertyInfo , constructWebHitTestResultNode , getWebHitTestResultNode , + webHitTestResultNode , ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.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,16 +117,17 @@ -- VVV Prop "node" -- Type: TInterface "WebKit2WebExtension" "DOMNode" -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] + -- Nullable: (Just False,Nothing) getWebHitTestResultNode :: (MonadIO m, WebHitTestResultK o) => o -> m DOMNode -getWebHitTestResultNode obj = liftIO $ getObjectPropertyObject obj "node" DOMNode +getWebHitTestResultNode obj = liftIO $ checkUnexpectedNothing "getWebHitTestResultNode" $ getObjectPropertyObject obj "node" DOMNode constructWebHitTestResultNode :: (DOMNodeK a) => a -> IO ([Char], GValue) -constructWebHitTestResultNode val = constructObjectPropertyObject "node" val +constructWebHitTestResultNode val = constructObjectPropertyObject "node" (Just val) data WebHitTestResultNodePropertyInfo instance AttrInfo WebHitTestResultNodePropertyInfo where - type AttrAllowedOps WebHitTestResultNodePropertyInfo = '[ 'AttrConstruct, 'AttrGet] + type AttrAllowedOps WebHitTestResultNodePropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint WebHitTestResultNodePropertyInfo = DOMNodeK type AttrBaseTypeConstraint WebHitTestResultNodePropertyInfo = WebHitTestResultK type AttrGetType WebHitTestResultNodePropertyInfo = DOMNode @@ -133,10 +135,14 @@ attrGet _ = getWebHitTestResultNode attrSet _ = undefined attrConstruct _ = constructWebHitTestResultNode + attrClear _ = undefined type instance AttributeList WebHitTestResult = WebHitTestResultAttributeList type WebHitTestResultAttributeList = ('[ '("context", HitTestResultContextPropertyInfo), '("imageUri", HitTestResultImageUriPropertyInfo), '("linkLabel", HitTestResultLinkLabelPropertyInfo), '("linkTitle", HitTestResultLinkTitlePropertyInfo), '("linkUri", HitTestResultLinkUriPropertyInfo), '("mediaUri", HitTestResultMediaUriPropertyInfo), '("node", WebHitTestResultNodePropertyInfo)] :: [(Symbol, *)]) +webHitTestResultNode :: AttrLabelProxy "node" +webHitTestResultNode = AttrLabelProxy + type instance SignalList WebHitTestResult = WebHitTestResultSignalList type WebHitTestResultSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) @@ -144,7 +150,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "WebHitTestResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit2WebExtension" "DOMNode" +-- returnType : Just (TInterface "WebKit2WebExtension" "DOMNode") -- throws : False -- Skip return : False diff --git a/GI/WebKit2WebExtension/Objects/WebHitTestResult.hs-boot b/GI/WebKit2WebExtension/Objects/WebHitTestResult.hs-boot --- a/GI/WebKit2WebExtension/Objects/WebHitTestResult.hs-boot +++ b/GI/WebKit2WebExtension/Objects/WebHitTestResult.hs-boot @@ -1,8 +1,8 @@ module GI.WebKit2WebExtension.Objects.WebHitTestResult where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.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/WebKit2WebExtension/Objects/WebPage.hs b/GI/WebKit2WebExtension/Objects/WebPage.hs --- a/GI/WebKit2WebExtension/Objects/WebPage.hs +++ b/GI/WebKit2WebExtension/Objects/WebPage.hs @@ -48,11 +48,24 @@ -- ** Uri WebPageUriPropertyInfo , getWebPageUri , + webPageUri , -- * Signals +-- ** ConsoleMessageSent + WebPageConsoleMessageSentCallback , + WebPageConsoleMessageSentCallbackC , + WebPageConsoleMessageSentSignalInfo , + afterWebPageConsoleMessageSent , + mkWebPageConsoleMessageSentCallback , + noWebPageConsoleMessageSentCallback , + onWebPageConsoleMessageSent , + webPageConsoleMessageSentCallbackWrapper, + webPageConsoleMessageSentClosure , + + -- ** ContextMenu WebPageContextMenuCallback , WebPageContextMenuCallbackC , @@ -93,9 +106,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 @@ -163,6 +176,48 @@ fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) #endif +-- signal WebPage::console-message-sent +type WebPageConsoleMessageSentCallback = + ConsoleMessage -> + IO () + +noWebPageConsoleMessageSentCallback :: Maybe WebPageConsoleMessageSentCallback +noWebPageConsoleMessageSentCallback = Nothing + +type WebPageConsoleMessageSentCallbackC = + Ptr () -> -- object + Ptr ConsoleMessage -> + Ptr () -> -- user_data + IO () + +foreign import ccall "wrapper" + mkWebPageConsoleMessageSentCallback :: WebPageConsoleMessageSentCallbackC -> IO (FunPtr WebPageConsoleMessageSentCallbackC) + +webPageConsoleMessageSentClosure :: WebPageConsoleMessageSentCallback -> IO Closure +webPageConsoleMessageSentClosure cb = newCClosure =<< mkWebPageConsoleMessageSentCallback wrapped + where wrapped = webPageConsoleMessageSentCallbackWrapper cb + +webPageConsoleMessageSentCallbackWrapper :: + WebPageConsoleMessageSentCallback -> + Ptr () -> + Ptr ConsoleMessage -> + Ptr () -> + IO () +webPageConsoleMessageSentCallbackWrapper _cb _ consoleMessage _ = do + consoleMessage' <- (newBoxed ConsoleMessage) consoleMessage + _cb consoleMessage' + +onWebPageConsoleMessageSent :: (GObject a, MonadIO m) => a -> WebPageConsoleMessageSentCallback -> m SignalHandlerId +onWebPageConsoleMessageSent obj cb = liftIO $ connectWebPageConsoleMessageSent obj cb SignalConnectBefore +afterWebPageConsoleMessageSent :: (GObject a, MonadIO m) => a -> WebPageConsoleMessageSentCallback -> m SignalHandlerId +afterWebPageConsoleMessageSent obj cb = connectWebPageConsoleMessageSent obj cb SignalConnectAfter + +connectWebPageConsoleMessageSent :: (GObject a, MonadIO m) => + a -> WebPageConsoleMessageSentCallback -> SignalConnectMode -> m SignalHandlerId +connectWebPageConsoleMessageSent obj cb after = liftIO $ do + cb' <- mkWebPageConsoleMessageSentCallback (webPageConsoleMessageSentCallbackWrapper cb) + connectSignalFunPtr obj "console-message-sent" cb' after + -- signal WebPage::context-menu type WebPageContextMenuCallback = ContextMenu -> @@ -300,13 +355,14 @@ -- VVV Prop "uri" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) getWebPageUri :: (MonadIO m, WebPageK o) => o -> m T.Text -getWebPageUri obj = liftIO $ getObjectPropertyString obj "uri" +getWebPageUri obj = liftIO $ checkUnexpectedNothing "getWebPageUri" $ getObjectPropertyString obj "uri" data WebPageUriPropertyInfo instance AttrInfo WebPageUriPropertyInfo where - type AttrAllowedOps WebPageUriPropertyInfo = '[ 'AttrGet] + type AttrAllowedOps WebPageUriPropertyInfo = '[ 'AttrGet, 'AttrClear] type AttrSetTypeConstraint WebPageUriPropertyInfo = (~) () type AttrBaseTypeConstraint WebPageUriPropertyInfo = WebPageK type AttrGetType WebPageUriPropertyInfo = T.Text @@ -314,10 +370,19 @@ attrGet _ = getWebPageUri attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined type instance AttributeList WebPage = WebPageAttributeList type WebPageAttributeList = ('[ '("uri", WebPageUriPropertyInfo)] :: [(Symbol, *)]) +webPageUri :: AttrLabelProxy "uri" +webPageUri = AttrLabelProxy + +data WebPageConsoleMessageSentSignalInfo +instance SignalInfo WebPageConsoleMessageSentSignalInfo where + type HaskellCallbackType WebPageConsoleMessageSentSignalInfo = WebPageConsoleMessageSentCallback + connectSignal _ = connectWebPageConsoleMessageSent + data WebPageContextMenuSignalInfo instance SignalInfo WebPageContextMenuSignalInfo where type HaskellCallbackType WebPageContextMenuSignalInfo = WebPageContextMenuCallback @@ -334,13 +399,13 @@ connectSignal _ = connectWebPageSendRequest type instance SignalList WebPage = WebPageSignalList -type WebPageSignalList = ('[ '("contextMenu", WebPageContextMenuSignalInfo), '("documentLoaded", WebPageDocumentLoadedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("sendRequest", WebPageSendRequestSignalInfo)] :: [(Symbol, *)]) +type WebPageSignalList = ('[ '("consoleMessageSent", WebPageConsoleMessageSentSignalInfo), '("contextMenu", WebPageContextMenuSignalInfo), '("documentLoaded", WebPageDocumentLoadedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("sendRequest", WebPageSendRequestSignalInfo)] :: [(Symbol, *)]) -- method WebPage::get_dom_document -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "WebPage", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit2WebExtension" "DOMDocument" +-- returnType : Just (TInterface "WebKit2WebExtension" "DOMDocument") -- throws : False -- Skip return : False @@ -369,7 +434,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "WebPage", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit2WebExtension" "WebEditor" +-- returnType : Just (TInterface "WebKit2WebExtension" "WebEditor") -- throws : False -- Skip return : False @@ -398,7 +463,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "WebPage", 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 @@ -425,7 +490,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "WebPage", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "WebKit2WebExtension" "Frame" +-- returnType : Just (TInterface "WebKit2WebExtension" "Frame") -- throws : False -- Skip return : False @@ -454,7 +519,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "WebPage", direction = DirectionIn, mayBeNull = 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/WebKit2WebExtension/Objects/WebPage.hs-boot b/GI/WebKit2WebExtension/Objects/WebPage.hs-boot --- a/GI/WebKit2WebExtension/Objects/WebPage.hs-boot +++ b/GI/WebKit2WebExtension/Objects/WebPage.hs-boot @@ -1,8 +1,8 @@ module GI.WebKit2WebExtension.Objects.WebPage where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map @@ -12,6 +12,7 @@ class GObject o => WebPageK o instance (GObject o, IsDescendantOf WebPage o) => WebPageK o data WebPageUriPropertyInfo +data WebPageConsoleMessageSentSignalInfo data WebPageContextMenuSignalInfo data WebPageDocumentLoadedSignalInfo data WebPageSendRequestSignalInfo diff --git a/GI/WebKit2WebExtension/Structs.hs b/GI/WebKit2WebExtension/Structs.hs --- a/GI/WebKit2WebExtension/Structs.hs +++ b/GI/WebKit2WebExtension/Structs.hs @@ -7,18 +7,20 @@ -} module GI.WebKit2WebExtension.Structs - ( module GI.WebKit2WebExtension.Structs.ContextMenuItem_, + ( module GI.WebKit2WebExtension.Structs.ConsoleMessage, + module GI.WebKit2WebExtension.Structs.ContextMenuItem_, module GI.WebKit2WebExtension.Structs.ContextMenu_, ) where +import GI.WebKit2WebExtension.Structs.ConsoleMessage import GI.WebKit2WebExtension.Structs.ContextMenuItem_ import GI.WebKit2WebExtension.Structs.ContextMenu_ -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.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/WebKit2WebExtension/Structs/ConsoleMessage.hs b/GI/WebKit2WebExtension/Structs/ConsoleMessage.hs new file mode 100644 --- /dev/null +++ b/GI/WebKit2WebExtension/Structs/ConsoleMessage.hs @@ -0,0 +1,296 @@ + + +{- | +Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte +License : LGPL-2.1 +Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) +-} + +module GI.WebKit2WebExtension.Structs.ConsoleMessage + ( + +-- * Exported types + ConsoleMessage(..) , + noConsoleMessage , + + + -- * Methods +-- ** consoleMessageCopy + ConsoleMessageCopyMethodInfo , + consoleMessageCopy , + + +-- ** consoleMessageFree + ConsoleMessageFreeMethodInfo , + consoleMessageFree , + + +-- ** consoleMessageGetLevel + ConsoleMessageGetLevelMethodInfo , + consoleMessageGetLevel , + + +-- ** consoleMessageGetLine + ConsoleMessageGetLineMethodInfo , + consoleMessageGetLine , + + +-- ** consoleMessageGetSource + ConsoleMessageGetSourceMethodInfo , + consoleMessageGetSource , + + +-- ** consoleMessageGetSourceId + ConsoleMessageGetSourceIdMethodInfo , + consoleMessageGetSourceId , + + +-- ** consoleMessageGetText + ConsoleMessageGetTextMethodInfo , + consoleMessageGetText , + + + + + ) where + +import Data.GI.Base.ShortPrelude + +import qualified Data.GI.Base.Attributes as GI.Attributes +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +import GI.WebKit2WebExtension.Types +import GI.WebKit2WebExtension.Callbacks + +newtype ConsoleMessage = ConsoleMessage (ForeignPtr ConsoleMessage) +foreign import ccall "webkit_console_message_get_type" c_webkit_console_message_get_type :: + IO GType + +instance BoxedObject ConsoleMessage where + boxedType _ = c_webkit_console_message_get_type + +noConsoleMessage :: Maybe ConsoleMessage +noConsoleMessage = Nothing + + +type instance AttributeList ConsoleMessage = ConsoleMessageAttributeList +type ConsoleMessageAttributeList = ('[ ] :: [(Symbol, *)]) + +-- method ConsoleMessage::copy +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "ConsoleMessage", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Just (TInterface "WebKit2WebExtension" "ConsoleMessage") +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_console_message_copy" webkit_console_message_copy :: + Ptr ConsoleMessage -> -- _obj : TInterface "WebKit2WebExtension" "ConsoleMessage" + IO (Ptr ConsoleMessage) + + +consoleMessageCopy :: + (MonadIO m) => + ConsoleMessage -- _obj + -> m ConsoleMessage -- result +consoleMessageCopy _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + result <- webkit_console_message_copy _obj' + checkUnexpectedReturnNULL "webkit_console_message_copy" result + result' <- (wrapBoxed ConsoleMessage) result + touchManagedPtr _obj + return result' + +data ConsoleMessageCopyMethodInfo +instance (signature ~ (m ConsoleMessage), MonadIO m) => MethodInfo ConsoleMessageCopyMethodInfo ConsoleMessage signature where + overloadedMethod _ = consoleMessageCopy + +-- method ConsoleMessage::free +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "ConsoleMessage", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Nothing +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_console_message_free" webkit_console_message_free :: + Ptr ConsoleMessage -> -- _obj : TInterface "WebKit2WebExtension" "ConsoleMessage" + IO () + + +consoleMessageFree :: + (MonadIO m) => + ConsoleMessage -- _obj + -> m () -- result +consoleMessageFree _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + webkit_console_message_free _obj' + touchManagedPtr _obj + return () + +data ConsoleMessageFreeMethodInfo +instance (signature ~ (m ()), MonadIO m) => MethodInfo ConsoleMessageFreeMethodInfo ConsoleMessage signature where + overloadedMethod _ = consoleMessageFree + +-- method ConsoleMessage::get_level +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "ConsoleMessage", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Just (TInterface "WebKit2WebExtension" "ConsoleMessageLevel") +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_console_message_get_level" webkit_console_message_get_level :: + Ptr ConsoleMessage -> -- _obj : TInterface "WebKit2WebExtension" "ConsoleMessage" + IO CUInt + + +consoleMessageGetLevel :: + (MonadIO m) => + ConsoleMessage -- _obj + -> m ConsoleMessageLevel -- result +consoleMessageGetLevel _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + result <- webkit_console_message_get_level _obj' + let result' = (toEnum . fromIntegral) result + touchManagedPtr _obj + return result' + +data ConsoleMessageGetLevelMethodInfo +instance (signature ~ (m ConsoleMessageLevel), MonadIO m) => MethodInfo ConsoleMessageGetLevelMethodInfo ConsoleMessage signature where + overloadedMethod _ = consoleMessageGetLevel + +-- method ConsoleMessage::get_line +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "ConsoleMessage", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Just (TBasicType TUInt) +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_console_message_get_line" webkit_console_message_get_line :: + Ptr ConsoleMessage -> -- _obj : TInterface "WebKit2WebExtension" "ConsoleMessage" + IO Word32 + + +consoleMessageGetLine :: + (MonadIO m) => + ConsoleMessage -- _obj + -> m Word32 -- result +consoleMessageGetLine _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + result <- webkit_console_message_get_line _obj' + touchManagedPtr _obj + return result + +data ConsoleMessageGetLineMethodInfo +instance (signature ~ (m Word32), MonadIO m) => MethodInfo ConsoleMessageGetLineMethodInfo ConsoleMessage signature where + overloadedMethod _ = consoleMessageGetLine + +-- method ConsoleMessage::get_source +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "ConsoleMessage", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Just (TInterface "WebKit2WebExtension" "ConsoleMessageSource") +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_console_message_get_source" webkit_console_message_get_source :: + Ptr ConsoleMessage -> -- _obj : TInterface "WebKit2WebExtension" "ConsoleMessage" + IO CUInt + + +consoleMessageGetSource :: + (MonadIO m) => + ConsoleMessage -- _obj + -> m ConsoleMessageSource -- result +consoleMessageGetSource _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + result <- webkit_console_message_get_source _obj' + let result' = (toEnum . fromIntegral) result + touchManagedPtr _obj + return result' + +data ConsoleMessageGetSourceMethodInfo +instance (signature ~ (m ConsoleMessageSource), MonadIO m) => MethodInfo ConsoleMessageGetSourceMethodInfo ConsoleMessage signature where + overloadedMethod _ = consoleMessageGetSource + +-- method ConsoleMessage::get_source_id +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "ConsoleMessage", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Just (TBasicType TUTF8) +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_console_message_get_source_id" webkit_console_message_get_source_id :: + Ptr ConsoleMessage -> -- _obj : TInterface "WebKit2WebExtension" "ConsoleMessage" + IO CString + + +consoleMessageGetSourceId :: + (MonadIO m) => + ConsoleMessage -- _obj + -> m T.Text -- result +consoleMessageGetSourceId _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + result <- webkit_console_message_get_source_id _obj' + checkUnexpectedReturnNULL "webkit_console_message_get_source_id" result + result' <- cstringToText result + touchManagedPtr _obj + return result' + +data ConsoleMessageGetSourceIdMethodInfo +instance (signature ~ (m T.Text), MonadIO m) => MethodInfo ConsoleMessageGetSourceIdMethodInfo ConsoleMessage signature where + overloadedMethod _ = consoleMessageGetSourceId + +-- method ConsoleMessage::get_text +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "ConsoleMessage", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Just (TBasicType TUTF8) +-- throws : False +-- Skip return : False + +foreign import ccall "webkit_console_message_get_text" webkit_console_message_get_text :: + Ptr ConsoleMessage -> -- _obj : TInterface "WebKit2WebExtension" "ConsoleMessage" + IO CString + + +consoleMessageGetText :: + (MonadIO m) => + ConsoleMessage -- _obj + -> m T.Text -- result +consoleMessageGetText _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + result <- webkit_console_message_get_text _obj' + checkUnexpectedReturnNULL "webkit_console_message_get_text" result + result' <- cstringToText result + touchManagedPtr _obj + return result' + +data ConsoleMessageGetTextMethodInfo +instance (signature ~ (m T.Text), MonadIO m) => MethodInfo ConsoleMessageGetTextMethodInfo ConsoleMessage signature where + overloadedMethod _ = consoleMessageGetText + +type family ResolveConsoleMessageMethod (t :: Symbol) (o :: *) :: * where + ResolveConsoleMessageMethod "copy" o = ConsoleMessageCopyMethodInfo + ResolveConsoleMessageMethod "free" o = ConsoleMessageFreeMethodInfo + ResolveConsoleMessageMethod "getLevel" o = ConsoleMessageGetLevelMethodInfo + ResolveConsoleMessageMethod "getLine" o = ConsoleMessageGetLineMethodInfo + ResolveConsoleMessageMethod "getSource" o = ConsoleMessageGetSourceMethodInfo + ResolveConsoleMessageMethod "getSourceId" o = ConsoleMessageGetSourceIdMethodInfo + ResolveConsoleMessageMethod "getText" o = ConsoleMessageGetTextMethodInfo + ResolveConsoleMessageMethod l o = MethodResolutionFailed l o + +instance (info ~ ResolveConsoleMessageMethod t ConsoleMessage, MethodInfo info ConsoleMessage p) => IsLabelProxy t (ConsoleMessage -> p) where + fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) + +#if MIN_VERSION_base(4,9,0) +instance (info ~ ResolveConsoleMessageMethod t ConsoleMessage, MethodInfo info ConsoleMessage p) => IsLabel t (ConsoleMessage -> p) where + fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) +#endif + + diff --git a/GI/WebKit2WebExtension/Structs/ConsoleMessage.hs-boot b/GI/WebKit2WebExtension/Structs/ConsoleMessage.hs-boot new file mode 100644 --- /dev/null +++ b/GI/WebKit2WebExtension/Structs/ConsoleMessage.hs-boot @@ -0,0 +1,18 @@ +module GI.WebKit2WebExtension.Structs.ConsoleMessage where + +import Data.GI.Base.ShortPrelude + +import qualified Data.GI.Base.Attributes as GI.Attributes +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +newtype ConsoleMessage = ConsoleMessage (ForeignPtr ConsoleMessage) +instance BoxedObject ConsoleMessage where +data ConsoleMessageCopyMethodInfo +data ConsoleMessageFreeMethodInfo +data ConsoleMessageGetLevelMethodInfo +data ConsoleMessageGetLineMethodInfo +data ConsoleMessageGetSourceMethodInfo +data ConsoleMessageGetSourceIdMethodInfo +data ConsoleMessageGetTextMethodInfo diff --git a/GI/WebKit2WebExtension/Structs/ContextMenuItem_.hs b/GI/WebKit2WebExtension/Structs/ContextMenuItem_.hs --- a/GI/WebKit2WebExtension/Structs/ContextMenuItem_.hs +++ b/GI/WebKit2WebExtension/Structs/ContextMenuItem_.hs @@ -17,16 +17,19 @@ -- * Properties -- ** Parent + contextMenuItem_ClearParent , + contextMenuItem_Parent , contextMenuItem_ReadParent , + contextMenuItem_WriteParent , ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map @@ -40,15 +43,52 @@ newZeroContextMenuItem_ :: MonadIO m => m ContextMenuItem_ newZeroContextMenuItem_ = liftIO $ callocBytes 32 >>= wrapPtr ContextMenuItem_ +instance tag ~ 'AttrSet => Constructible ContextMenuItem_ tag where + new _ attrs = do + o <- newZeroContextMenuItem_ + GI.Attributes.set o attrs + return o + + noContextMenuItem_ :: Maybe ContextMenuItem_ noContextMenuItem_ = Nothing -contextMenuItem_ReadParent :: ContextMenuItem_ -> IO GObject.InitiallyUnowned -contextMenuItem_ReadParent s = withManagedPtr s $ \ptr -> do +contextMenuItem_ReadParent :: MonadIO m => ContextMenuItem_ -> m (Maybe GObject.InitiallyUnowned) +contextMenuItem_ReadParent s = liftIO $ withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 0) :: IO (Ptr GObject.InitiallyUnowned) - val' <- (newObject GObject.InitiallyUnowned) val - return val' + result <- convertIfNonNull val $ \val' -> do + val'' <- (newObject GObject.InitiallyUnowned) val' + return val'' + return result +contextMenuItem_WriteParent :: MonadIO m => ContextMenuItem_ -> Ptr GObject.InitiallyUnowned -> m () +contextMenuItem_WriteParent s val = liftIO $ withManagedPtr s $ \ptr -> do + poke (ptr `plusPtr` 0) (val :: Ptr GObject.InitiallyUnowned) + +contextMenuItem_ClearParent :: MonadIO m => ContextMenuItem_ -> m () +contextMenuItem_ClearParent s = liftIO $ withManagedPtr s $ \ptr -> do + poke (ptr `plusPtr` 0) (nullPtr :: Ptr GObject.InitiallyUnowned) + +data ContextMenuItem_ParentFieldInfo +instance AttrInfo ContextMenuItem_ParentFieldInfo where + type AttrAllowedOps ContextMenuItem_ParentFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear] + type AttrSetTypeConstraint ContextMenuItem_ParentFieldInfo = (~) (Ptr GObject.InitiallyUnowned) + type AttrBaseTypeConstraint ContextMenuItem_ParentFieldInfo = (~) ContextMenuItem_ + type AttrGetType ContextMenuItem_ParentFieldInfo = Maybe GObject.InitiallyUnowned + type AttrLabel ContextMenuItem_ParentFieldInfo = "parent" + attrGet _ = contextMenuItem_ReadParent + attrSet _ = contextMenuItem_WriteParent + attrConstruct = undefined + attrClear _ = contextMenuItem_ClearParent + +contextMenuItem_Parent :: AttrLabelProxy "parent" +contextMenuItem_Parent = AttrLabelProxy + + + + +type instance AttributeList ContextMenuItem_ = ContextMenuItem_AttributeList +type ContextMenuItem_AttributeList = ('[ '("parent", ContextMenuItem_ParentFieldInfo)] :: [(Symbol, *)]) type family ResolveContextMenuItem_Method (t :: Symbol) (o :: *) :: * where ResolveContextMenuItem_Method l o = MethodResolutionFailed l o diff --git a/GI/WebKit2WebExtension/Structs/ContextMenuItem_.hs-boot b/GI/WebKit2WebExtension/Structs/ContextMenuItem_.hs-boot --- a/GI/WebKit2WebExtension/Structs/ContextMenuItem_.hs-boot +++ b/GI/WebKit2WebExtension/Structs/ContextMenuItem_.hs-boot @@ -1,8 +1,8 @@ module GI.WebKit2WebExtension.Structs.ContextMenuItem_ where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.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/WebKit2WebExtension/Structs/ContextMenu_.hs b/GI/WebKit2WebExtension/Structs/ContextMenu_.hs --- a/GI/WebKit2WebExtension/Structs/ContextMenu_.hs +++ b/GI/WebKit2WebExtension/Structs/ContextMenu_.hs @@ -17,16 +17,19 @@ -- * Properties -- ** Parent + contextMenu_ClearParent , + contextMenu_Parent , contextMenu_ReadParent , + contextMenu_WriteParent , ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map @@ -40,15 +43,52 @@ newZeroContextMenu_ :: MonadIO m => m ContextMenu_ newZeroContextMenu_ = liftIO $ callocBytes 32 >>= wrapPtr ContextMenu_ +instance tag ~ 'AttrSet => Constructible ContextMenu_ tag where + new _ attrs = do + o <- newZeroContextMenu_ + GI.Attributes.set o attrs + return o + + noContextMenu_ :: Maybe ContextMenu_ noContextMenu_ = Nothing -contextMenu_ReadParent :: ContextMenu_ -> IO GObject.Object -contextMenu_ReadParent s = withManagedPtr s $ \ptr -> do +contextMenu_ReadParent :: MonadIO m => ContextMenu_ -> m (Maybe GObject.Object) +contextMenu_ReadParent s = liftIO $ withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 0) :: IO (Ptr GObject.Object) - val' <- (newObject GObject.Object) val - return val' + result <- convertIfNonNull val $ \val' -> do + val'' <- (newObject GObject.Object) val' + return val'' + return result +contextMenu_WriteParent :: MonadIO m => ContextMenu_ -> Ptr GObject.Object -> m () +contextMenu_WriteParent s val = liftIO $ withManagedPtr s $ \ptr -> do + poke (ptr `plusPtr` 0) (val :: Ptr GObject.Object) + +contextMenu_ClearParent :: MonadIO m => ContextMenu_ -> m () +contextMenu_ClearParent s = liftIO $ withManagedPtr s $ \ptr -> do + poke (ptr `plusPtr` 0) (nullPtr :: Ptr GObject.Object) + +data ContextMenu_ParentFieldInfo +instance AttrInfo ContextMenu_ParentFieldInfo where + type AttrAllowedOps ContextMenu_ParentFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear] + type AttrSetTypeConstraint ContextMenu_ParentFieldInfo = (~) (Ptr GObject.Object) + type AttrBaseTypeConstraint ContextMenu_ParentFieldInfo = (~) ContextMenu_ + type AttrGetType ContextMenu_ParentFieldInfo = Maybe GObject.Object + type AttrLabel ContextMenu_ParentFieldInfo = "parent" + attrGet _ = contextMenu_ReadParent + attrSet _ = contextMenu_WriteParent + attrConstruct = undefined + attrClear _ = contextMenu_ClearParent + +contextMenu_Parent :: AttrLabelProxy "parent" +contextMenu_Parent = AttrLabelProxy + + + + +type instance AttributeList ContextMenu_ = ContextMenu_AttributeList +type ContextMenu_AttributeList = ('[ '("parent", ContextMenu_ParentFieldInfo)] :: [(Symbol, *)]) type family ResolveContextMenu_Method (t :: Symbol) (o :: *) :: * where ResolveContextMenu_Method l o = MethodResolutionFailed l o diff --git a/GI/WebKit2WebExtension/Structs/ContextMenu_.hs-boot b/GI/WebKit2WebExtension/Structs/ContextMenu_.hs-boot --- a/GI/WebKit2WebExtension/Structs/ContextMenu_.hs-boot +++ b/GI/WebKit2WebExtension/Structs/ContextMenu_.hs-boot @@ -1,8 +1,8 @@ module GI.WebKit2WebExtension.Structs.ContextMenu_ where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.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/WebKit2WebExtension/Types.hs b/GI/WebKit2WebExtension/Types.hs --- a/GI/WebKit2WebExtension/Types.hs +++ b/GI/WebKit2WebExtension/Types.hs @@ -109,6 +109,7 @@ module GI.WebKit2WebExtension.Objects.WebExtension, module GI.WebKit2WebExtension.Objects.WebHitTestResult, module GI.WebKit2WebExtension.Objects.WebPage, + module GI.WebKit2WebExtension.Structs.ConsoleMessage, module GI.WebKit2WebExtension.Structs.ContextMenuItem_, module GI.WebKit2WebExtension.Structs.ContextMenu_, module GI.WebKit2WebExtension.Enums , @@ -228,6 +229,7 @@ import {-# SOURCE #-} GI.WebKit2WebExtension.Objects.WebExtension import {-# SOURCE #-} GI.WebKit2WebExtension.Objects.WebHitTestResult import {-# SOURCE #-} GI.WebKit2WebExtension.Objects.WebPage +import {-# SOURCE #-} GI.WebKit2WebExtension.Structs.ConsoleMessage import {-# SOURCE #-} GI.WebKit2WebExtension.Structs.ContextMenuItem_ import {-# SOURCE #-} GI.WebKit2WebExtension.Structs.ContextMenu_ diff --git a/gi-webkit2webextension.cabal b/gi-webkit2webextension.cabal --- a/gi-webkit2webextension.cabal +++ b/gi-webkit2webextension.cabal @@ -1,6 +1,6 @@ -- Autogenerated, do not edit. name: gi-webkit2webextension -version: 0.2.10.13 +version: 0.2.12.14 synopsis: WebKit2WebExtension bindings description: Bindings for WebKit2WebExtension, 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.WebKit2WebExtension.Types @@ -136,15 +136,16 @@ GI.WebKit2WebExtension.Objects.WebHitTestResult GI.WebKit2WebExtension.Objects.WebPage GI.WebKit2WebExtension.Structs + GI.WebKit2WebExtension.Structs.ConsoleMessage GI.WebKit2WebExtension.Structs.ContextMenuItem_ GI.WebKit2WebExtension.Structs.ContextMenu_ - pkgconfig-depends: webkit2gtk-web-extension-4.0 >= 2.10 + pkgconfig-depends: webkit2gtk-web-extension-4.0 >= 2.12 build-depends: base >= 4.7 && <5, - haskell-gi-base >= 0.13 && < 1, - gi-gobject >= 0.2.46.13 && < 0.2.47, - gi-gtk >= 0.3.18.13 && < 0.3.19, - gi-javascriptcore >= 0.2.10.13 && < 0.2.11, - gi-soup >= 0.2.52.13 && < 0.2.53, + haskell-gi-base >= 0.14 && < 1, + gi-gobject >= 0.2.46.14 && < 0.2.47, + gi-gtk >= 0.3.18.14 && < 0.3.19, + gi-javascriptcore >= 0.2.12.14 && < 0.2.13, + gi-soup >= 0.2.52.14 && < 0.2.53, bytestring >= 0.10, containers >= 0.5, text >= 1.0,