anchor.diff:              rootPage <- item
               AddPage( item )
   
  -            this.SetPropertis( el, item )
  -            // chiled nodes
  +            // child nodes
               for it in el.Children do
  -                if it.Name.LocalName.IndexOf('.') = -1 then
  -                    item.Content <- this.LoadView( it)
  +                let view = this.LoadView( it, item )
  +                if view <> null then
  +                    item.Content <- view
  +            this.SetPropertis( el, item )
               item :> Page
   
           // Create Layout element
  
positive.code:             item :> View
          member this.CreateContentView( el:XElement) =
              let item = new ContentView()
              this.SetPropertis( el, item )
              item.Content <- this.LoadView( el.Children |> Seq.head)
              item.Content.Parent <- item
              item :> View
          member this.CreateFrame( el:XElement) =
              let item = new Frame()
              this.SetPropertis( el, item )
              item.Content <- this.LoadView( el.Children |> Seq.head )
              item.Content.Parent <- item
              item :> View
          member this.CreateScrollView( el:XElement) =
              let item = new ScrollView()
              this.SetPropertis( el, item )
              item.Content <- this.LoadView( el.Children |> Seq.head)
              item.Content.Parent <- item
              item :> View
          member this.CreateGrid( el:XElement ) =
              let item = new Grid()
              this.SetPropertis( el, item )
  
              for it in el.Children do
                  if it.NodeType = XmlNodeType.Element then
                      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)
                          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"))
  
negative.code:                         let colspan = toIntOne(it.GetAttr("Grid.ColumnSpan"))
                          item.Children.Add( view, column, column+colspan, row, row+rowspan )
                          view.Parent <- item
  
              this.SetPropertis( el, item )
              item :> View
  
          member this.CreateAbsoluteLayout( el:XElement ) = 
              let item = new AbsoluteLayout()
              for it in el.Children do
                  let view = this.LoadView(it, item)
                  if view <> null then
                      view.Parent <- item
                      let bounds = 
                          let v = it.GetAttr("AbsoluteLayout.LayoutBounds")
  