anchor.diff:      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 }
  +
  +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
  
positive.code:                 let valueText = sprintValue value ty
                  let text = sprintf "[%i] : %s = %s" index ty.FSharpName valueText
                  let children = createChildren value ty
                  Custom({Text=text ; Children=children ; ValueText=Some(valueText) ; Image=ImageResource.Default})
              
              //yield 100  chunks
              let rec calcRest pos (ie:System.Collections.IEnumerator) = seq {
  
negative.code:     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 }