anchor.diff:      let font = Pango.FontDescription.FromString(fontName)
       view.SetFont(font)
   
  -type FakeSearchResult(project: Solution, match', matchedString, rank) =
  +type FakeSearchResult(solution: Solution, match', matchedString, rank, scriptPath) =
     inherit SearchResult(match', matchedString, rank)
   
     override x.SearchResultType =
       SearchResultType.Type
   
     override x.Description =
  -    sprintf "Runs the FAKE %s task in %s" matchedString project.Name
  +    sprintf "Runs the FAKE %s task in %s" matchedString solution.Name
   
     override x.PlainText = "FAKE " + matchedString
   
  
positive.code:     pad.BringToFront()
      let padContent = pad.Content :?> FakePad
  
      padContent.Run (string project.BaseDirectory, matchedString)
  
  type FakeSearchCategory() =
    inherit SearchCategory("FAKE", sortOrder = SearchCategory.FirstCategory)
  
negative.code:          let matcher = StringMatcher.GetMatcher (pattern.Pattern, false)
           async {
             for solution in IdeApp.Workspace.GetAllSolutions() do
  
               let launcherScript = if Platform.IsWindows then
                                      "build.cmd"
                                    else
                                      "build.sh"
  
               let fakeScriptPath = Path.Combine([|string solution.BaseDirectory; "build.fsx"|])
               let launcherScriptPath = Path.Combine([|string solution.BaseDirectory; launcherScript|])
               if File.Exists(fakeScriptPath) && File.Exists(launcherScriptPath)  then
                 let fakeScript = File.ReadAllText fakeScriptPath
                 Regex.Matches(fakeScript, "Target \"([\\w.]+)\"")
                   |> Seq.cast<Match> 
                   |> Seq.map (fun m -> (solution, m, matcher.CalcMatchRank ("FAKE " + m.Groups.[1].Value)))
                   |> Seq.choose (fun x -> match x with
                                           | (solution, m, (true, rank)) -> Some (solution, m, rank, launcherScriptPath) 
                                           | _ -> None)
                   |> Seq.iter addResult }
           |> Async.Start ), token)
  