anchor.diff:             unionCase.Name ++ asType Keyword "of" ++ typeList
            else unionCase.Name
   
  -    let getEntitySignature displayContext (fse: FSharpEntity) =
  -        let modifier =
  -            match fse.Accessibility with
  -            | a when a.IsInternal -> asType Keyword "internal "
  -            | a when a.IsPrivate -> asType Keyword "private "
  -            | _ -> ""
  -
  -        let typeName =
  -            match fse with
  -            | _ when fse.IsFSharpModule -> "module"
  -            | _ when fse.IsEnum         -> "enum"
  -            | _ when fse.IsValueType    -> "struct"
  -            | _                         -> "type"
  -
  -        let enumtip () =
  -            asType Symbol " =" + "\n" + 
  -            asType Symbol "|" ++
  -            (fse.FSharpFields
  -            |> Seq.filter (fun f -> not f.IsCompilerGenerated)
  -            |> Seq.map (fun field -> match field.LiteralValue with
  -                                     | Some lv -> field.Name + asType Symbol " = " + asType Number (string lv)
  -                                     | None -> field.Name )
  -            |> String.concat ("\n" + asType Symbol "| " ) )
  -
  -
  -        let uniontip () = 
  -            asType Symbol " =" + "\n" + 
  -            asType Symbol "|" ++
  -            (fse.UnionCases 
  -            |> Seq.map (getUnioncaseSignature displayContext)
  -            |> String.concat ("\n" + asType Symbol "| " ) )
  -                                 
  -        let typeDisplay = modifier + asType Keyword typeName ++ asType UserType fse.DisplayName
  -        let fullName = "\n\nFull name: " + fse.FullName
  -        match fse.IsFSharpUnion, fse.IsEnum with
  -        | true, false -> typeDisplay + uniontip () + fullName
  -        | false, true -> typeDisplay + enumtip () + fullName
  -        | _ -> typeDisplay + fullName
  -
  -    let getFuncSignature displayContext (func: FSharpMemberFunctionOrValue) =
  +    let getFuncSignature displayContext (func: FSharpMemberFunctionOrValue) indent signatureOnly =
  +        let indent = String.replicate indent " "
           let functionName =
               if isConstructor func then func.EnclosingEntity.DisplayName
               else func.DisplayName
  
positive.code:             if isConstructor func then 
                  if func.EnclosingEntity.IsValueType || func.EnclosingEntity.IsEnum then
                      //ValueTypes
                      let signature = getFuncSignature symbolUse.DisplayContext func
                      ToolTip(signature, getSummaryFromSymbol func backUpSig)
                  else
                      //ReferenceType constructor
                      let signature = getFuncSignature symbolUse.DisplayContext func
                      ToolTip(signature, getSummaryFromSymbol func backUpSig)
  
              elif func.FullType.IsFunctionType && not func.IsPropertyGetterMethod && not func.IsPropertySetterMethod && not symbolUse.IsFromComputationExpression then 
                  if isOperatorOrActivePattern func.DisplayName then
                      //Active pattern or operator
                      let signature = getFuncSignature symbolUse.DisplayContext func
                      ToolTip(signature, getSummaryFromSymbol func backUpSig)
                  else
                      //closure/nested functions
  
negative.code:                         let summary = getSummaryFromSymbol func backUpSig
                          ToolTip(signature, summary)
                      else
                          let signature = getFuncSignature displayContext func 3 false
                          ToolTip(signature, getSummaryFromSymbol func backUpSig)                            
  
              else
  