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

[hannes at gwydiondylan.org]

Author: hannes
Date: Fri Sep  1 00:04:23 2006
New Revision: 10872

Modified:
   trunk/libraries/gui-sniffer/gui-sniffer.dylan
Log:
Bug: 7299
*disable commands which should not be available (open pcap via live capturing)

Modified: trunk/libraries/gui-sniffer/gui-sniffer.dylan
==============================================================================
--- trunk/libraries/gui-sniffer/gui-sniffer.dylan	(original)
+++ trunk/libraries/gui-sniffer/gui-sniffer.dylan	Fri Sep  1 00:04:23 2006
@@ -285,7 +285,7 @@
     let ff = find-frame-field(frame.parent, frame);
     compute-absolute-offset(ff);
   else
-    0
+    0;
   end;
 end;
 define method compute-absolute-offset (ff :: <rep-frame-field>)
@@ -511,6 +511,9 @@
     make(<thread>, function: curry(toplevel, interface));
     frame.ethernet-interface := interface;
     gadget-label(frame.sniffer-status-bar) := concatenate("Capturing ", interface-name);
+    command-enabled?(open-pcap-file, frame) := #f;
+    command-enabled?(open-interface, frame) := #f;
+    command-enabled?(close-interface, frame) := #t;
   end;
 end;
 
@@ -518,6 +521,9 @@
   frame.ethernet-interface.running? := #f;
   gadget-label(frame.sniffer-status-bar) := "Stopped capturing";
   disconnect(frame.ethernet-interface, frame);
+  command-enabled?(open-pcap-file, frame) := #t;
+  command-enabled?(open-interface, frame) := #t;
+  command-enabled?(close-interface, frame) := #f;
 end;
 
 define method prompt-for-interface
@@ -575,6 +581,7 @@
 
 begin
   let gui-sniffer = make(<gui-sniffer-frame>);
+  command-enabled?(close-interface, gui-sniffer) := #f;
   start-frame(gui-sniffer);
 end;