anchor.diff:                  | SpecialKey.Up -> 
                       if x.Editor.CaretLine = x.Editor.LineCount then
                           fsi.ProcessCommandHistoryUp()
  -                        let topLine = x.Editor.VisibleLines |> Seq.head
  -                        x.Editor.ScrollTo(x.Editor.OffsetToLocation topLine.Offset)
  +                        //let topLine = x.Editor.VisibleLines |> Seq.head
  +                        //x.Editor.ScrollTo(x.Editor.OffsetToLocation topLine.Offset)
                           false
                       else
                           base.KeyPress (descriptor)
  
positive.code: 
      override x.Dispose() =
          LoggingService.LogDebug ("Interactive: disposing pad...")
          //activeDoc |> Option.iter (fun ad -> ad.Dispose())
          x.Shutdown()
          editor.Dispose()
  
  
negative.code: 
              let line = IdeApp.Workbench.ActiveDocument.Editor.CaretLine
              let text = IdeApp.Workbench.ActiveDocument.Editor.GetLineText(line)
              x.SendText text
              //advance to the next line
              if PropertyService.Get ("FSharpBinding.AdvanceToNextLine", true)
              then IdeApp.Workbench.ActiveDocument.Editor.SetCaretLocation (line + 1, Mono.TextEditor.DocumentLocation.MinColumn, false)
  