anchor.diff:    interface MonoDevelop.Ide.Gui.IPadContent with
       member x.Dispose() =
         Debug.WriteLine ("Interactive: disposing pad...")
  +      activeDoc |> Option.iter (fun ad -> ad.Dispose())
         x.Shutdown()
   
       member x.Control : Gtk.Widget = view :> Gtk.Widget
  
positive.code:       view.Child.KeyPressEvent.Add(fun ea ->
          if ea.Event.State &&& ModifierType.ControlMask = ModifierType.ControlMask && ea.Event.Key = Key.period then
            !session |> Option.iter (fun s -> s.Interrupt()))
  
        x.UpdateFont()   
  
  
negative.code:      session := match !session with 
                  | None -> Some (setupSession())
                  | s -> s
       !session |> Option.iter (fun s -> s.SendCommand(str))
  
    let resetFsi intent = 
      killIntent <- intent
  