anchor.diff:                  XAttribute(NsNone + "OutgoingActionLabel", "Contains"))
       }
   
  +let GraphProperties () =
  +    let allProperties = [ ("Fx", "Target Framework Version", "System.String")
  +                          ("Guid", "Project Guid", "System.Guid") 
  +                          ("IsTest", "Test Project", "System.Boolean")]
  +
  +    let generateProperty (prop) =
  +        let (id, label, dataType) = prop
  +        XElement(NsDgml + "Property", 
  +            XAttribute(NsNone + "Id", id), 
  +            XAttribute(NsNone + "Label", label),
  +            XAttribute(NsNone + "DataType", dataType))
  +
  +    allProperties |> Seq.map generateProperty
  +
  +let GraphStyles () =
  +    XElement(NsDgml + "Styles")
  +//        XElement(NsDgml + "Style",
  +//            XAttribute(NsNone + "TargetType", "Node"), XAttribute(NsNone + "GroupLabel", "IsTest"), XAttribute(NsNone + "ValueLabel", "Test Project"),
  +//            XElement(NsDgml + "Condition", XAttribute(NsNone + "Expression", "IsTest='true'")),
  +//            XElement(NsDgml + "Setter", XAttribute(NsNone + "Property", "Background"), XAttribute(NsNone + "Value", "Purple"))))
  +
   let GraphContent (antho : Anthology) (viewName : ViewId) =
       let projects = FindViewProjects viewName |> Set
       let xNodes = XElement(NsDgml + "Nodes", GraphNodes antho projects)
       let xLinks = XElement(NsDgml+"Links", GraphLinks antho projects)
       let xCategories = XElement(NsDgml + "Categories", GraphCategories ())
  +    let xProperties = XElement(NsDgml + "Properties", GraphProperties ())
  +    let xStyles = GraphStyles ()
       let xGraphDir = XAttribute(NsNone + "GraphDirection", "LeftToRight")
       let xLayout = XAttribute(NsNone + "Layout", "Sugiyama")
       XDocument(
  -        XElement(NsDgml + "DirectedGraph", xLayout, xGraphDir, xNodes, xLinks, xCategories))
  +        XElement(NsDgml + "DirectedGraph", xLayout, xGraphDir, xNodes, xLinks, xCategories, xProperties, xStyles))
   
   let Graph (viewName : ViewId) =
       let antho = Configuration.LoadAnthology ()
  
positive.code:     slnDefines.Save (slnDefineFile.FullName)
  
  
  let GenerateNode (source : string) (label : string) (category : string) =
      XElement(NsDgml + "Node",
          XAttribute(NsNone + "Id", source),
  
negative.code:                 XAttribute(NsNone + "Group", "Expanded"))
  
          for project in projects do
              yield GenerateProjectNode project
  
          for project in importedProjects do
              yield GenerateNode (project.ProjectGuid.toString) (project.Output.toString) "ProjectImport"
  