anchor.diff:                  else //assume private
                       ImageResource.PrivateMethod
   
  -            CallMember({InitialText=pretext  mi.ReturnType.FSharpName "" ; LoadingText=pretext  mi.ReturnType.FSharpName loadingText ; Lazy=delayed ; Image=image })
  +            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
  
positive.code:                 else //assume private
                      ImageResource.PrivateField
  
              DataMember({LoadingText=pretext fi.FieldType.FSharpName loadingText ; Lazy=delayed ; Image=image })
  
          let getMethodWatch (mi:MethodInfo) =
              let pretext = sprintf "%s() : %s%s" (getMemberName mi)
  
negative.code:                 else //assume private
                      ImageResource.PrivateProperty
  
              DataMember({LoadingText=(pretext  pi.PropertyType.FSharpName loadingText) ; Lazy=delayed ; Image=image ; MemberInfo=pi})
  
          let getFieldWatch (fi:FieldInfo) =
              let pretext = sprintf "%s : %s%s" (getMemberName fi)
  