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

[andreas at gwydiondylan.org]

Author: andreas
Date: Tue Jun  5 23:26:25 2007
New Revision: 11390

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

some random hacks to make it build with gtk


Modified: trunk/libraries/gui-sniffer/gui-sniffer.dylan
==============================================================================
--- trunk/libraries/gui-sniffer/gui-sniffer.dylan	(original)
+++ trunk/libraries/gui-sniffer/gui-sniffer.dylan	Tue Jun  5 23:26:25 2007
@@ -471,6 +471,8 @@
          value-changed-callback: safe-p(method(x) highlight-hex-dump(frame) end));
 
   pane packet-hex-dump (frame)
+    make(<label>, label: "insert hexdump here");
+/*
     make(<deuce-pane>,
          frame: frame,
          read-only?: #t,
@@ -479,22 +481,22 @@
          columns: 100,
          scroll-bars: #"vertical",
          text-style: $text-style);
-
+*/
 
   pane sniffer-status-bar (frame)
     make(<status-bar>, label: "Network Night Vision");
 
   pane open-button (frame)
-    make(<push-button>, label: $icons["open"],
+    make(<push-button>, label: "open",
          activate-callback: method(x) open-pcap-file(frame) end);
   pane save-button (frame)
-    make(<push-button>, label: $icons["save"],
+    make(<push-button>, label: "save",
          activate-callback: method(x) save-pcap-file(frame) end);
   pane play-button (frame)
-    make(<push-button>, label: $icons["play"],
+    make(<push-button>, label: "play",
          activate-callback: method(x) open-interface(frame) end);
   pane stop-button (frame)
-    make(<push-button>, label: $icons["stop"],
+    make(<push-button>, label: "stop",
          activate-callback: method(x) close-interface(frame) end);
     
   pane sniffer-tool-bar (frame)
@@ -523,7 +525,7 @@
   command-table (frame) *gui-sniffer-command-table*;
   status-bar (frame) frame.sniffer-status-bar;
   keyword title: = "Network Night Vision";
-  keyword icon: = $icons["nnv-small"];
+  //keyword icon: = $icons["nnv-small"];
 end;
 
 define command-table *file-command-table* (*global-command-table*)
@@ -889,6 +891,7 @@
 define constant $icons = make(<string-table>);
 
 define function initialize-icons ()
+/*
   local method load-and-register-item (name, size)
     $icons[as-lowercase(name)]
       := read-image-as(<win32-icon>, as(<byte-string>, name), #"icon", width: size, height: size);
@@ -900,20 +903,23 @@
   load-and-register-item("NNV", 32);
   $icons["nnv-small"]
     := read-image-as(<win32-icon>, as(<byte-string>, "NNV"), #"small-icon");
+*/
 end;
 
-begin
+define function main()
   initialize-icons();
   let gui-sniffer = make(<gui-sniffer-frame>);
   set-frame-size(gui-sniffer, 1024, 768);
-  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*);
+//  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);
 end;
 
+main()
+
 
 

Modified: trunk/libraries/gui-sniffer/library.dylan
==============================================================================
--- trunk/libraries/gui-sniffer/library.dylan	(original)
+++ trunk/libraries/gui-sniffer/library.dylan	Tue Jun  5 23:26:25 2007
@@ -6,7 +6,7 @@
   use dylan;
   use common-dylan;
   use duim;
-  use win32-duim;
+  //use win32-duim;
   use deuce;
   use duim-deuce;
   use io;