anchor.diff:              | "HorizontalOptions"|"VerticalOptions" -> typeof<LayoutOptions> 
               | _ -> null
   
  -        member this.SetValue(item:Object, propName:string, s:string, tagName:string ) =
  +        member this.SetValue(item:Object, propName:XName, s:string, tagName:string ) =
               let t = getType(propName, tagName)
               if t <> null then
  -                let pi = item.GetType().GetRuntimeProperty(propName)
  +                let pi = item.GetType().GetRuntimeProperty(propName.LocalName)
                   if pi <> null then
                       let obj = 
                           match t.Name with
  
positive.code:                         | _ -> ()
                      else
                          let view = this.LoadView(it)
                          let toInt s = if s = "" then 0 else s |> int
                          let toIntOne s = if s = "" then 1 else s |> int
                          let row = toInt(it.Attribute("Grid.Row"))
                          let column = toInt(it.Attribute("Grid.Column"))
                          let rowspan = toIntOne(it.Attribute("Grid.RowSpan"))
                          let colspan = toIntOne(it.Attribute("Grid.ColumnSpan"))
                          item.Children.Add( view, column, column+colspan, row, row+rowspan )
              item :> View
  
  
negative.code:                             yield !it :?> XElement
                          it := it.Value.NextNode
                      }
  
          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:XName, tagName:string) =
              match propName.LocalName with 
              | "Title" -> typeof<string> 
              | "Text" -> typeof<string> 
              | "Label" -> typeof<string> 
  