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

[hannes at gwydiondylan.org]

Author: hannes
Date: Sat Sep  2 03:36:36 2006
New Revision: 10877

Modified:
   trunk/libraries/gui-sniffer/gui-sniffer.dylan
Log:
Bug: 7299
*don't display blank lines in <raw-frame>s

Modified: trunk/libraries/gui-sniffer/gui-sniffer.dylan
==============================================================================
--- trunk/libraries/gui-sniffer/gui-sniffer.dylan	(original)
+++ trunk/libraries/gui-sniffer/gui-sniffer.dylan	Sat Sep  2 03:36:36 2006
@@ -55,7 +55,14 @@
             cleanup
               close(out)
             end;
-  let lines = split(hex, '\n', start: 1, end: hex.size - 1);
+  let lines = split(hex, '\n');
+  if (lines[0] = "")
+    lines := copy-sequence(lines, start: 1)
+  end;
+  if (lines[lines.size - 1] = "")
+    lines := copy-sequence(lines, end: lines.size - 1)
+  end;
+
   let start :: <integer> = 0;
   let length :: <integer> = 16 * 8;
   map(method(x)
@@ -515,9 +522,10 @@
 
   layout (frame) vertically()
                    frame.filter-pane;
-                   frame.packet-table;
-                   frame.packet-tree-view;
-                   frame.packet-hex-dump;
+                   make(<column-splitter>,
+                        children: vector(frame.packet-table,
+                                         frame.packet-tree-view,
+                                         frame.packet-hex-dump));
                  end;
 
   tool-bar (frame) frame.sniffer-tool-bar;