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 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 //assume private
                      ImageResource.PrivateProperty
  
              DataMember { LoadingText=(pretext pi.PropertyType.FSharpName loadingText)
                           Lazy=delayed
                           Image=image
                           MemberInfo=pi }
  
          let getFieldWatch (fi:FieldInfo) =
              let pretext = sprintf "%s : %s%s" (getMemberName fi)
  