anchor.diff:                      // no binding 
                       this.SetValue( item, propName, s, el.Name )
                   else
  -                    // TODO:binding 
  +                    // binding 
                       this.SetBinding( item, propName, s )
   
           member this.SetProperty(el:XElement, item:BaseElement, propName:XName ) =
  
positive.code:         let mutable pageData = new PageData()
          let AddPage( page ) = Pages <- ( page :> Page, pageData )::Pages
  
          let getType(propName:XName, tagName:XName) =
              match propName.LocalName with 
              | "Title" -> typeof<string> 
  
negative.code:                             | _ -> null
                          if obj <> null then
                              pi.SetValue( item, obj )
          
          member this.SetBinding(item:BaseElement, propName:XName, s:string) =
              if s.StartsWith("{Binding") && s.EndsWith("}") then
                  let items = s.Replace("{Binding","").Replace("}","").Split([|','|])
                  let mutable path = ""
                  let mutable format = ""
                  let mutable mode = BindingMode.Default
                  for it in items do
                      let it' = it.Trim()
                      match it' with
                      | _ when it'.StartsWith("Path=") ->
                          path <- it'.Replace("Path=","").Trim()
                      | _ when it'.StartsWith("Mode=") ->
                          match it'.Replace("Mode=","").Trim() with 
                          | "OneWay" -> mode <- BindingMode.OneWay
                          | "OneWayToSource" -> mode <- BindingMode.OneWayToSource
                          | "TwoWay" -> mode <- BindingMode.TwoWay
                          | _ -> mode <- BindingMode.Default
                      | _ when it'.StartsWith("StringFormat=") ->
                          format <- it'.Replace("StringFormat=","").Replace("'","")
                      | _ -> path <- it'.Trim()
                  
                  let prop = item.GetType().GetRuntimeField(propName.LocalName + "Property")
                  let bp = prop.GetValue( item ) :?> BindableProperty 
                  let bind = new Binding( path, mode, null, format )
                  item.SetBinding( bp, bind )
  
          member this.SetValue(el:XElement, item:BaseElement, propName:XName ) =
  