Permalink
Browse files

In Interactive Pad Dispose method, shut down external process.

  • Loading branch information...
1 parent be3c09c commit 3a2b968cd5d0854392739caac641bbe6cb3e5423 @scottstephens committed May 1, 2012
Showing with 7 additions and 2 deletions.
  1. +7 −2 src/FSharpInteractivePad.fs
View
9 src/FSharpInteractivePad.fs
@@ -77,9 +77,14 @@ type FSharpInteractivePad() =
prompting <- false
| Some(_) -> ()
| _ -> session := Some(setupSession())
-
+
+ member x.Shutdown() =
+ !session |> Option.iter (fun ses -> ses.Kill())
+
interface MonoDevelop.Ide.Gui.IPadContent with
- member x.Dispose() = ()
+ member x.Dispose() =
+ x.Shutdown()
+
member x.Control : Gtk.Widget = view :> Gtk.Widget
member x.Initialize(container:MonoDevelop.Ide.Gui.IPadWindow) =

0 comments on commit 3a2b968

Please sign in to comment.