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

[andreas at gwydiondylan.org]

Author: andreas
Date: Tue Nov  7 23:44:51 2006
New Revision: 10944

Modified:
   trunk/libraries/gui-sniffer/gui-sniffer.dylan
   trunk/libraries/gui-sniffer/library.dylan
   trunk/libraries/gui-sniffer/module.dylan
Log:
bug: 7299

Use a <deuce-pane> instead of a <text-editor> pane, in preparation of being able to display a selection using bold text.

Modified: trunk/libraries/gui-sniffer/gui-sniffer.dylan
==============================================================================
--- trunk/libraries/gui-sniffer/gui-sniffer.dylan	(original)
+++ trunk/libraries/gui-sniffer/gui-sniffer.dylan	Tue Nov  7 23:44:51 2006
@@ -446,7 +446,7 @@
   *count*;
 end;
 
-define frame <gui-sniffer-frame> (<simple-frame>, <filter>)
+define frame <gui-sniffer-frame> (<simple-frame>, deuce/<basic-editor-frame>, <filter>)
   slot network-frames :: <stretchy-vector> = make(<stretchy-vector>);
   slot filter-expression = #f;
   slot ethernet-interface = #f;
@@ -486,13 +486,14 @@
          value-changed-callback: method(x) highlight-hex-dump(frame) end);
 
   pane packet-hex-dump (frame)
-    make(<text-editor>,
+    make(<deuce-pane>,
+         frame: frame,
          read-only?: #t,
          tab-stop?: #t,
          lines: 20,
          columns: 100,
          scroll-bars: #"vertical",
-         text-style: make(<text-style>, family: #"fix"));
+         text-style: make(<text-style>, family: #"fix", size: 10));
 
 
   pane sniffer-status-bar (frame)
@@ -689,6 +690,10 @@
 begin
   initialize-icons();
   let gui-sniffer = make(<gui-sniffer-frame>);
+  deuce/frame-window(gui-sniffer) := gui-sniffer.packet-hex-dump;
+  deuce/*editor-frame* := gui-sniffer;
+  deuce/*buffer* := deuce/make-initial-buffer();
+  deuce/select-buffer(frame-window(gui-sniffer), deuce/*buffer*);
   command-enabled?(close-interface, gui-sniffer) := #f;
   gadget-enabled?(gui-sniffer.stop-button) := #f;
   start-frame(gui-sniffer);

Modified: trunk/libraries/gui-sniffer/library.dylan
==============================================================================
--- trunk/libraries/gui-sniffer/library.dylan	(original)
+++ trunk/libraries/gui-sniffer/library.dylan	Tue Nov  7 23:44:51 2006
@@ -6,6 +6,8 @@
   use common-dylan;
   use duim;
   use win32-duim;
+  use deuce;
+  use duim-deuce;
   use io;
   use system;
   use packetizer;

Modified: trunk/libraries/gui-sniffer/module.dylan
==============================================================================
--- trunk/libraries/gui-sniffer/module.dylan	(original)
+++ trunk/libraries/gui-sniffer/module.dylan	Tue Nov  7 23:44:51 2006
@@ -7,6 +7,8 @@
   use threads;
   use duim, exclude: { <frame>, frame-size };
   use win32-duim;
+  use deuce;
+  use duim-deuce;
   use format;
   use streams;
   use date;
@@ -18,5 +20,5 @@
   use flow;
   use interfaces;
   // Add binding exports here.
-
+  use deuce-internals, prefix: "deuce/";
 end module gui-sniffer;