anchor.diff:      let valueText = sprintValue value ty
       let text = sprintf "%s : %s = %s" name ty.FSharpName valueText
       let children = createChildren value ty
  -    Root({Text=text ; Children=children ; Value=value ; Name=name ; ValueText=valueText ; Image=ImageResource.Default})+    Root { Text=text
  +           Children=children
  +           Value=value
  +           Name=name
  +           ValueText=valueText
  +           Image=ImageResource.Default }
positive.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
  
negative.code:                 else //assume private
                      ImageResource.PrivateField
  
              DataMember { LoadingText=pretext fi.FieldType.FSharpName loadingText
                           Lazy=delayed
                           Image=image
                           MemberInfo=fi }
  
          let getMethodWatch (mi:MethodInfo) =
              let pretext = sprintf "%s() : %s%s" (getMemberName mi)
  