anchor.diff:              DataMember { LoadingText=(pretext pi.PropertyType.FSharpName loadingText)
                            LazyMemberValue=delayed
                            Image=image
  -                         MemberInfo=pi }
  +                         MemberInfo=pi 
  +                         ExpressionInfo= getMemberExpressionInfo pi }
   
           let getFieldWatch (fi:FieldInfo) =
               let pretext = sprintf "%s : %s%s" (getMemberName fi)
  
positive.code:             DataMember { LoadingText=pretext fi.FieldType.FSharpName loadingText
                           LazyMemberValue=delayed
                           Image=image
                           MemberInfo=fi }
  
          let getMethodWatch (mi:MethodInfo) =
              let pretext = sprintf "%s() : %s%s" (getMemberName mi)
  
negative.code:             | DataMember { MemberInfo=mi } 
              | CallMember { MemberInfo=mi } -> Some(mi)
              | _ -> None
          member this.ExpressionInfo =
              match this with
              | Root {ExpressionInfo=ei}  
              | EnumeratorElement {ExpressionInfo=ei}
              | CallMember {ExpressionInfo=ei}
              | DataMember {ExpressionInfo=ei} -> Some(ei)
              | Organizer _ -> None
  
  open System.Text.RegularExpressions
  ///Sprint the given value with the given Type. Precondition: Type cannot be null.
  