anchor.diff:          |> Seq.append projRefAssemblies
           |> Seq.filter (fun ref ->  not (ref.Contains "mscorlib.dll" || ref.Contains "FSharp.Core.dll") )
           |> Seq.distinct
  -        |> Seq.toArray
  -    
  +        |> Seq.toArray 
  +     
       let orderAssemblyReferences = FSharp.CompilerBinding.OrderAssemblyReferences()
       let orderedreferences = orderAssemblyReferences.Order references
       ensureCorrectDirectory()
       sendCommand orderedreferences
  -      
  -  static member CurrentPad =  
  -    let existing = 
  -      try IdeApp.Workbench.GetPad<FSharpInteractivePad>()
  -      with _ -> 
  -        Debug.WriteLine (sprintf "Interactive: GetPad<FSharpInteractivePad>() failed, silently ignoring")
  -        null // It throws after addin is loaded (before restart)
  -    if existing <> null then existing
  -    else IdeApp.Workbench.AddPad
  -          ( new FSharpInteractivePad(), "FSharp.MonoDevelop.FSharpInteractivePad", 
  -            "F# Interactive", "Center Bottom", IconId("md-fs-project"))
  -
  -  static member CurrentFsi = 
  -    FSharpInteractivePad.CurrentPad.Content :?> FSharpInteractivePad
  -
  +  
  +  static member CurrentFsi = interactive
  +  static member CurrentPad = pad
   
   type ShowFSharpInteractive() =
     inherit CommandHandler()
  
positive.code:               v.ModifyBase(Gtk.StateType.Normal, themeBackColour)
            else
                let textColour = PropertyService.Get<string>("FSharpBinding.TextColorPropName", "#000000") 
                                    |> ColorHelpers.strToColor
                let backColour = PropertyService.Get<string>("FSharpBinding.BaseColorPropName", "#FFFFFF") 
                                    |> ColorHelpers.strToColor
                v.ModifyText(Gtk.StateType.Normal, textColour)
                v.ModifyBase(Gtk.StateType.Normal, backColour)
      | _ -> ()
  
negative.code: open MonoDevelop.Ide
  open MonoDevelop.Projects
  open MonoDevelop.FSharp
  
  [<AutoOpen>]
  module ColorHelpers =
      let strToColor s = 
          let c = ref (Color())
          match Color.Parse (s, c) with
          | true -> !c
          | false -> Color() // black is as good a guess as any here
          
      let colorToStr (c:Color) =
          sprintf "#%04X%04X%04X" c.Red c.Green c.Blue
  