@@ -432,7 +432,7 @@ type internal FsiToolWindow() as this =
432432let frame = this.Frame:?> IVsWindowFrame
433433 frame.ShowNoActivate() |> ignore
434434
435- let getDebugAttachedFSIProcess () =
435+ let getDebugAttachedFSIProcess () =
436436let fsiProcId = sessions.ProcessID
437437let dte = provider.GetService( typeof< DTE>) :?> DTE
438438
@@ -441,11 +441,11 @@ type internal FsiToolWindow() as this =
441441|> Seq.cast< Process>
442442|> Seq.tryFind( fun p -> p.ProcessID= fsiProcId)
443443
444- let debuggerIsRunning () =
444+ let debuggerIsRunning () =
445445let dte = provider.GetService( typeof< DTE>) :?> DTE
446446 dte.Debugger.DebuggedProcesses<> null && dte.Debugger.DebuggedProcesses.Count> 0
447447
448- let attachDebugger () =
448+ let attachDebugger () =
449449let fsiProcId = sessions.ProcessID
450450let dte = provider.GetService( typeof< DTE>) :?> DTE
451451
@@ -461,18 +461,18 @@ type internal FsiToolWindow() as this =
461461| Some( p) -> p.Attach()
462462| _ -> ()
463463
464- let detachDebugger () =
464+ let detachDebugger () =
465465match getDebugAttachedFSIProcess() with
466466| Some( p) -> p.Detach( true )
467467| _ -> ()
468468
469469let onAttachDebugger ( sender : obj ) ( args : EventArgs ) =
470- attachDebugger()
471- showNoActivate()
470+ attachDebugger()
471+ showNoActivate()
472472
473473let onDetachDebugger ( sender : obj ) ( args : EventArgs ) =
474- detachDebugger()
475- showNoActivate()
474+ detachDebugger()
475+ showNoActivate()
476476
477477let sendTextToFSI text =
478478try
@@ -531,12 +531,12 @@ type internal FsiToolWindow() as this =
531531 Windows.Forms.MessageBox.Show("Could not find the 'active text view', error code = " + sprintf "0x%x" res) |> ignore
532532*)
533533let onMLDebugSelection ( sender : obj ) ( e : EventArgs ) =
534- attachDebugger()
535- sendSelectionToFSIfalse
534+ attachDebugger()
535+ sendSelectionToFSI( false )
536536
537537let onMLDebugLine ( sender : obj ) ( e : EventArgs ) =
538- attachDebugger()
539- sendSelectionToFSItrue
538+ attachDebugger()
539+ sendSelectionToFSI( true )
540540
541541/// Handle UP and DOWN. Cycle history.
542542let onHistory ( sender : obj ) ( e : EventArgs ) =