anchor.diff:      
     member x.UpdateColors() =
       match view.Child with
  -      | :? Gtk.TextView as v -> 
  -            let colourStyles = Mono.TextEditor.Highlighting.SyntaxModeService.GetColorStyle(MonoDevelop.Ide.IdeApp.Preferences.ColorScheme)
  -            
  -            let (_, shouldMatch) = PropertyService.Get<string>("FSharpBinding.MatchWitThemePropName", "false") |> System.Boolean.TryParse
  -            let themeTextColour = colourStyles.PlainText.Foreground |> cairoToGdk
  -            let themeBackColour = colourStyles.PlainText.Background |> cairoToGdk
  -            if(shouldMatch) then
  -                v.ModifyText(Gtk.StateType.Normal, themeTextColour)
  -                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)
  -      | _ -> ()
  +    | :? Gtk.TextView as v -> 
  +          let colourStyles = Mono.TextEditor.Highlighting.SyntaxModeService.GetColorStyle(MonoDevelop.Ide.IdeApp.Preferences.ColorScheme)
  +          
  +          let (_, shouldMatch) = PropertyService.Get<string>("FSharpBinding.MatchWitThemePropName", "false") |> System.Boolean.TryParse
  +          let themeTextColour = colourStyles.PlainText.Foreground |> cairoToGdk
  +          let themeBackColour = colourStyles.PlainText.Background |> cairoToGdk
  +          if(shouldMatch) then
  +              v.ModifyText(Gtk.StateType.Normal, themeTextColour)
  +              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)
  +    | _ -> ()
       
     member x.UpdateFont() = 
       let fontName = DesktopService.DefaultMonospaceFont
  
positive.code:      String.Format("# {0} \"{1}\"\n{2}" ,line,file.FullPath,selection)  
  
    let ensureCorrectDirectory _ =
      match getCorrectDirectory() with 
      | Some path -> sendCommand ("#silentCd @\"" + path + "\";;")
      | _ -> ()
      
    //let handler = 
    do Debug.WriteLine ("InteractivePad: created!")
  
negative.code:     Debug.WriteLine (sprintf "Interactive: Loading font '%s'" fontName)
      let font = Pango.FontDescription.FromString(fontName)
      view.SetFont(font)
  
    member x.SendSelection() = 
      if x.IsSelectionNonEmpty then
        let sel = IdeApp.Workbench.ActiveDocument.Editor.SelectedText
  