[Gd-chatter] r11281 - trunk/libraries/gui-sniffer

[andreas at gwydiondylan.org]

Author: andreas
Date: Sat Apr 21 01:46:22 2007
New Revision: 11281

Modified:
   trunk/libraries/gui-sniffer/gui-sniffer.dylan
Log:
job: 7299

Deal with syntax errors in filter expressions, bump version number and
copyright date.


Modified: trunk/libraries/gui-sniffer/gui-sniffer.dylan
==============================================================================
--- trunk/libraries/gui-sniffer/gui-sniffer.dylan	(original)
+++ trunk/libraries/gui-sniffer/gui-sniffer.dylan	Sat Apr 21 01:46:22 2007
@@ -227,13 +227,22 @@
   let filter-string = gadget-value(frame.filter-field);
   let old = frame.filter-expression;
   if (filter-string.size > 0)
-    frame.filter-expression := parse-filter(filter-string);
+    frame.filter-expression := 
+      block ()
+        gadget-label(frame.sniffer-status-bar) := "Applying packet filter";
+        parse-filter(filter-string);
+      exception (c :: <error>)
+        gadget-label(frame.sniffer-status-bar) := "Syntax error in filter expression";
+        #f
+      end;
+        
     if (old ~= frame.filter-expression & every?(curry(\~=, filter-string), frame.filter-history))
       frame.filter-history := add!(frame.filter-history, filter-string);
       gadget-items(frame.filter-field) := frame.filter-history;
     end;
   else
-    frame.filter-expression := #f
+    frame.filter-expression := #f;
+    gadget-label(frame.sniffer-status-bar) := "Clearing packet filter";
   end;
   if (old ~= frame.filter-expression)
     filter-packet-table(frame);
@@ -825,8 +834,8 @@
   end;
 end;
 
-define constant $about-text = concatenate("Network Night Vision 0.0.1\n",
-                                          "(c) 2005, 2006 Andreas Bogk, Hannes Mehnert\n",
+define constant $about-text = concatenate("Network Night Vision 0.0.2\n",
+                                          "(c) 2005 - 2007 Andreas Bogk, Hannes Mehnert\n",
                                           "All Rights Reserved. Free for non-commercial use.\n",
                                           "\n",
                                           "http://www.networknightvision.com/");