Gambas/flaws/bugs

XmlElement attribute enumeration

This code: <gambas>Public Sub BugTest()

 Dim Node As New XmlElement
 Dim xmlAttr As Variant
 Dim xAttrs As Variant

 ' set up some attributes
 Node.SetAttribute("attr1", "a value")
 Node.SetAttribute("attr2", "another value")

 xAttrs = Node.Attributes
 For Each xmlAttr In xAttrs
   ' the FOR EACH gives an error: "The program has returned the value: 1"
 Next

End</gambas>

...produces this error: