anchor.diff:                      with e ->
                           box e, e.GetType()
                   makeMemberLazyCustomInfo value valueTy pretext)
  -            DataMember({LoadingText=pretext fi.FieldType.FSharpName loadingText ; Lazy=delayed ; Image=ImageResource.Field })
  +
  +            let image =
  +                if fi.IsPublic then
  +                    ImageResource.Field //I don't think there is a such a thing as "sealed" fields
  +                elif fi.IsFamily || fi.IsFamilyAndAssembly || fi.IsFamilyOrAssembly then
  +                    ImageResource.ProtectedField
  +                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)
  
positive.code:                     with e ->
                          box e, e.GetType()
                  makeMemberLazyCustomInfo value valueTy pretext)
              CallMember({InitialText=pretext  mi.ReturnType.FSharpName "" ; LoadingText=pretext  mi.ReturnType.FSharpName loadingText ; Lazy=delayed ; Image=ImageResource.Method })
  
          let getMemberWatches bindingFlags = seq {
              let members = getMembers bindingFlags
  
negative.code:                     with e ->
                          box e, e.GetType()
                  makeMemberLazyCustomInfo value valueTy pretext)
  
              let image =
                  let meth = pi.GetGetMethod(true)
                  if meth.IsPublic then
                      if meth.IsFinal then
                          ImageResource.SealedProperty
                      else
                          ImageResource.Property
                  elif meth.IsFamily || meth.IsFamilyAndAssembly || meth.IsFamilyOrAssembly then
                      ImageResource.ProtectedProperty
                  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)
  