anchor.diff:  
           seq {
               let nonPublicMemberWatches = getMemberWatches nonPublicBindingFlags
  -            yield Custom({Text="Non-public" ; Children=nonPublicMemberWatches ; ValueText=None ; Image=ImageResource.Default})
  +            yield Custom { Text="Non-public"
  +                           Children=nonPublicMemberWatches
  +                           ValueText=None
  +                           Image=ImageResource.Default }
               yield! getMemberWatches publicBindingFlags
           }
   ///Create a watch root. If value is not null, then value.GetType() is used as the watch Type instead of
  
positive.code:                     let nextResult = createChild pos ie.Current
                      if pos % 100 = 0 && pos <> 0 then
                          let rest = seq { yield nextResult; yield! calcRest (pos+1) ie }
                          yield Custom({Text="Rest" ; Children=rest ; ValueText=None ; Image=ImageResource.Default})
                      else
                          yield nextResult;
                          yield! calcRest (pos+1) ie }
  
negative.code:     else None
  
  //how to add icons to tree view: http://msdn.microsoft.com/en-us/library/aa983725(v=vs.71).aspx
  
  type Root = { Text: string
                Children:seq<Watch>
                ValueText:string
                Value:obj
                Name: String
                Image: ImageResource }
  
  and Custom = { Text: string
                 Children:seq<Watch>
                 ValueText: string option
                 Image:ImageResource }
  
  and DataMember = { LoadingText: string
                     Lazy: Lazy<Custom>
                     Image:ImageResource
                     MemberInfo:MemberInfo }
  
  and CallMember = { InitialText: string
                     LoadingText: string
                     Lazy: Lazy<Custom>
                     Image:ImageResource
                     MemberInfo:MemberInfo }
  
  and Watch =
      | Root of Root
      | DataMember of  DataMember
  