JK works on error list pad. re #193

nosami · May 24, 2018 · 607e035 · 607e035
1 parent 8705f85
commit 607e035
Show file tree

Hide file tree

Showing 5 changed files with 12 additions and 10 deletions.
diff --git a/XSVim/Addin.fs b/XSVim/Addin.fs
@@ -8,6 +8,8 @@ open MonoDevelop.Ide
 open MonoDevelop.Ide.Editor
 open MonoDevelop.Ide.Editor.Extension
 open MonoDevelop.Ide.FindInFiles
+open MonoDevelop.Ide.Gui.Components
+open Reflection
 
 module Subscriptions =
     let textChanged (editor:TextEditor) (changes: Text.TextChangeEventArgs) =
@@ -63,7 +65,8 @@ type XSVim() as this =
                         let padId = pad.Window.Id
                         if not (searchPads.Contains padId) then
                             searchPads.Add padId |> ignore
-                            searchResultsPad.initialize pad)
+                            let tree = pad.Control?nativeWidget?treeviewSearchResults
+                            padTreeViews.initialize tree)
                 with
                 | _ -> ()))
 

diff --git a/XSVim/SearchResultsPad.fs → XSVim/PadTreeViews.fs b/XSVim/SearchResultsPad.fs → XSVim/PadTreeViews.fs
@@ -1,11 +1,9 @@
 namespace XSVim
-open System
+
 open Gtk
-open MonoDevelop.Ide.FindInFiles
 open MonoDevelop.Ide.Gui.Components
-open Reflection
 
-module searchResultsPad =
+module padTreeViews =
     let select (tree:TreeView) path =
         let column = tree.Columns.[0]
         tree.Selection.SelectPath path
@@ -24,8 +22,7 @@ module searchResultsPad =
         path.Prev() |> ignore
         select tree path
 
-    let initialize (pad:SearchResultPad) =
-        let tree:PadTreeView = pad.Control?nativeWidget?treeviewSearchResults
+    let initialize (tree:PadTreeView) =
         let processKey (key:KeyPressEventArgs) =
             match key.Event.Key with
             | Gdk.Key.Escape ->

diff --git a/XSVim/Properties/AssemblyInfo.fs b/XSVim/Properties/AssemblyInfo.fs
@@ -5,7 +5,7 @@ open System.Runtime.CompilerServices
 [<AutoOpen>]
 module AddinVersion =
     [<Literal>]
-    let version = "0.59.2"
+    let version = "0.60.0"
 
 [<assembly: AssemblyTitle("XSVim")>]
 // The assembly version has the format {Major}.{Minor}.{Build}.{Revision}

diff --git a/XSVim/TreeViewPads.fs b/XSVim/TreeViewPads.fs
@@ -106,7 +106,9 @@ module treeViewPads =
     let initialize() =
         if not initialized then
             initialized <- true
-
+            let errorPad = IdeApp.Workbench.Pads.ErrorsPad.Content
+            let errorPadTree = errorPad?view
+            padTreeViews.initialize errorPadTree
             for pad in getTreeViewPads() do
                 let (tree:TreeView) = pad.TreeView?Tree
                 let (store:TreeStore) = pad.TreeView?Store

diff --git a/XSVim/XSVim.fsproj b/XSVim/XSVim.fsproj
@@ -81,7 +81,7 @@
     <Compile Include="Types.fs" />
     <Compile Include="WindowManagement.fs" />
     <Compile Include="ExMode.fs" />
-    <Compile Include="SearchResultsPad.fs" />
+    <Compile Include="PadTreeViews.fs" />
     <Compile Include="TreeViewPads.fs" />
     <Compile Include="XSVim.fs" />
     <Compile Include="Addin.fs" />