Issue 44: fixed. we swallow dataerror events that seem to arise from …

…non-homoeneous collections
build-school · Jun 27, 2014 · 5b8c795 · 5b8c795
1 parent 555d0cd
commit 5b8c795
Show file tree

Hide file tree

Showing 3 changed files with 30 additions and 2 deletions.
diff --git a/Debug.FsEye/Debug.FsEye.fsproj b/Debug.FsEye/Debug.FsEye.fsproj
@@ -74,6 +74,7 @@
     <Reference Include="System.Numerics" />
     <Reference Include="System.Windows.Forms" />
     <Reference Include="System.Windows.Forms.DataVisualization" />
+    <Reference Include="System.Xml" />
   </ItemGroup>
   <ItemGroup>
     <ProjectReference Include="..\FsEye.DataGridView.Plugin\FsEye.DataGridView.Plugin.fsproj">

diff --git a/Debug.FsEye/Program.fs b/Debug.FsEye/Program.fs
@@ -3,8 +3,20 @@
 open System
 open System.Drawing
 open System.Windows.Forms
+open System.Xml
 
-type Student = { mutable Name:string; Age:int }
+type IHuman =
+    abstract member Name : string
+
+type Student = 
+    { Name:string; Age:int }
+        interface IHuman with
+            member this.Name = this.Name
+
+type Professor = 
+    { Name:string; Age:int; Rank: int }
+        interface IHuman with
+            member this.Name = this.Name
 
 module Main =
     let initEye() =
@@ -14,8 +26,21 @@ module Main =
         eye.Watch("some null value", null, typeof<System.Collections.Generic.Dictionary<int,string>>)
         let value = ([|3.2; 2.; 1.; -3.; 23.|],[|"a";"b";"c";"d";"e"|])
         eye.Watch("series", value, value.GetType())
-        let value = [{Name="Tom"; Age=3};{Name="Jane"; Age=9}] 
+        let value = [{Student.Name="Tom"; Age=3};{Name="Jane"; Age=9}] 
         eye.Watch("series2", value, value.GetType())
+
+        let value = [
+            {Professor.Name="Jane"; Age=9; Rank=23} :> IHuman; 
+            {Student.Name="Tom"; Age=3} :> IHuman; ]
+        eye.Watch("series3", value, value.GetType())
+
+        let doc = new XmlDocument()
+        doc.AppendChild(doc.CreateProcessingInstruction("xml", "version=\"1.0\" encoding=\"utf-8\"")) |> ignore
+        let root = doc.CreateElement("Root")
+        root.AppendChild(doc.CreateElement("Apple"))|>ignore
+        doc.AppendChild(root)|>ignore
+        eye.Watch("xmldoc", doc)
+
         eye.Watch("eye", eye, eye.GetType())
         eye
 

diff --git a/FsEye.DataGridView.Plugin/DataGridViewPlugin.fs b/FsEye.DataGridView.Plugin/DataGridViewPlugin.fs
@@ -21,6 +21,8 @@ type DataGridViewWatchViewer() =
 
     let dgv = new DataGridView(Dock=DockStyle.Fill)
     do
+        //swallow dataerror events: these can happen when we have a non-homogeneous collection
+        dgv.DataError.Add(fun target -> ())
         panel.Controls.Add(dgv)
 
     let labelPanel = new FlowLayoutPanel(Dock=DockStyle.Top, AutoSize=true, Padding=Padding(0,3,3,5))