anchor.diff:                      if pi <> null then
                           let obj =
                               match t.Name with
  -                            | "String" -> s :> System.Object
  -                            | "Int32" -> s |> int :> System.Object
  -                            | "Double" -> s |> double :> System.Object
  -                            | "DateTime" -> Convert.ToDateTime(s) :> System.Object
  -                            | "TimeSpan" -> TimeSpan.Parse(s) :> System.Object
  -                            | "Boolean" -> Convert.ToBoolean(s) :> System.Object
  +                            | "String" -> s :> obj
  +                            | "Int32" -> s |> int :> obj
  +                            | "Double" -> s |> double :> obj
  +                            | "DateTime" -> Convert.ToDateTime(s) :> obj
  +                            | "TimeSpan" -> TimeSpan.Parse(s) :> obj
  +                            | "Boolean" -> Convert.ToBoolean(s) :> obj
                               | "Color"  -> ColorTypeConverter().ConvertFrom(s)
                               | "Font"   -> FontTypeConverter().ConvertFrom(s)
                               | "Thickness" -> ThicknessTypeConverter().ConvertFrom(s)
  
positive.code: 
              | _ -> null
  
          member this.SetValue(item:Object, propName:XName, s:string, tagName:XName ) =
              let t = getType(propName, tagName)
              if t <> null then
                  match propName.NamespaceName with
  
negative.code:             item :> View
          member this.CreateContentView( el:XElement) =
              let item = new ContentView()
              item.Content <- this.LoadView( el.Children |> Seq.head, item)
              item.Content.Parent <- item
              this.SetPropertis( el, item )
              item :> View
          member this.CreateFrame( el:XElement) =
              let item = new Frame()
              item.Content <- this.LoadView( el.Children |> Seq.head, item )
              item.Content.Parent <- item
              this.SetPropertis( el, item )
              item :> View
          member this.CreateScrollView( el:XElement) =
              let item = new ScrollView()
              item.Content <- this.LoadView( el.Children |> Seq.head, item)
              item.Content.Parent <- item
              this.SetPropertis( el, item )
              item :> View
          member this.CreateGrid( el:XElement ) =
              let item = new Grid()
              for it in el.Children do
                  if it.Name.LocalName.StartsWith("Grid.") then
                      match it.Name.LocalName with
                      | "Grid.RowDefinitions" -> 
                          for ii in it.Children do
                              item.RowDefinitions.Add( this.CreateRowDefinition(ii))
                      | "Grid.ColumnDefinitions" -> 
                          for ii in it.Children do 
                              item.ColumnDefinitions.Add( this.CreateColumnDefinition(ii))
                      | "Grid.BindingContext" -> ()
                      | _ -> ()
                  else
                      let view = this.LoadView(it, item)
                      if view <> null then
                          let toInt(s) = if s = "" then 0 else s |> int
                          let toIntOne(s) = if s = "" then 1 else s |> int
                          let row = toInt(it.GetAttr("Grid.Row"))
  