anchor.diff:              match this with
               | Root {Image=image} | DataMember {Image=image}
               | CallMember {Image=image} | Custom {Image=image} -> image
  +        member this.MemberInfo =
  +            match this with
  +            | DataMember { MemberInfo=mi } | CallMember { MemberInfo=mi } -> Some(mi)
  +            | Custom _  | Root _ -> None
   
   open System.Text.RegularExpressions
   let private sprintValue (value:obj) (ty:Type) =
  
positive.code:                 else //assume private
                      ImageResource.PrivateProperty
  
              DataMember({LoadingText=(pretext  pi.PropertyType.FSharpName loadingText) ; Lazy=delayed ; Image=image })
  
          let getFieldWatch (fi:FieldInfo) =
              let pretext = sprintf "%s : %s%s" (getMemberName fi)
  
negative.code:                 else //assume private
                      ImageResource.PrivateMethod
  
              CallMember({InitialText=pretext  mi.ReturnType.FSharpName "" ; LoadingText=pretext  mi.ReturnType.FSharpName loadingText ; Lazy=delayed ; Image=image ;  MemberInfo=mi})
  
          let getMemberWatches bindingFlags = seq {
              let members = getMembers bindingFlags
  