anchor.diff:                              yield !it :?> XElement
                           it := it.Value.NextNode
                       }
  -        member this.Attribute(name:string) = 
  -            if this.Attribute(XName.op_Implicit(name)) <> null then
  -                this.Attribute(XName.op_Implicit(name)).Value
  -            else
  -                ""
  +
  +        member this.GetAttr(name:string) =
  +            if this.Attribute(XName.Get(name)) = null then "" else this.Attribute(XName.Get(name)).Value
  +
   
       // Xamarin.Forms.Element の拡張メソッド
   
       // Xamarin製XAMLをパースするクラス
       type ParseXaml() = 
   
  -        let getType(propName:string, tagName:string) =
  -            match propName with 
  +        let getType(propName:XName, tagName:string) =
  +            match propName.LocalName with 
               | "Title" -> typeof<string> 
               | "Text" -> typeof<string> 
               | "Label" -> typeof<string> 
  
positive.code:                 if it.NodeType = XmlNodeType.Element then
                      let view = this.LoadView(it)
                      let bounds = 
                          let v = it.Attribute("AbsoluteLayout.LayoutBounds")
                          if v <> "" then RectangleTypeConverter().ConvertFrom(v) else null
                      let flags = 
                          let v = it.Attribute("AbsoluteLayout.LayoutFlags")
                          if v <> "" then AbsoluteLayoutFlagsTypeConverter().ConvertFrom(v) else null
                      if bounds = null then
                          item.Children.Add( this.LoadView(it))
  
negative.code:                     if obj <> null then
                          pi.SetValue( item, obj )
  
          member this.SetValue(el:XElement, item:Object, propName:XName ) =
              if el.Attribute(propName) = null then
                  ()
              else 
                  let s = el.Attribute(propName).Value
                  if s = "" || s.[0] <> '{' then
                      // no binding 
                      this.SetValue( item, propName, s, el.Name.LocalName )
                  else
                      // TODO:binding 
                      ()
  
          member this.SetProperty(el:XElement, item:Object, propName:XName ) =
              this.SetValue( el, item, propName )
  
          member this.SetPropertis( el:XElement, item:Object ) =
              el.Attributes() 
                  |> Seq.iter(fun (it) -> this.SetProperty( el, item, it.Name ))
              if el.HasAttributes then
                  let tag = el.Name.LocalName
                  for it in el.Children do
                      if it.Name.LocalName.StartsWith(tag + ".") then
                          let name = it.Name.LocalName.Substring( it.Name.LocalName.IndexOf(".")+1)
                          let value = it.Value
                          this.SetValue( item, XName.Get(name), value, el.Name.LocalName )
                  
  
          member this.SetChildren( el:XElement, item ) =
  