From 9a9ad06e5adcb90a5781fbe55882158609c218ba Mon Sep 17 00:00:00 2001
From: Ian Jackson <ian@liberator.relativity.greenend.org.uk>
Date: Thu, 4 Jun 2009 01:23:09 +0100
Subject: [PATCH] wip

---
 pctb/database       | 51 +++++++++++++++++++++++++++++++--------------
 pctb/show-thing.tcl |  4 ++--
 2 files changed, 37 insertions(+), 18 deletions(-)

diff --git a/pctb/database b/pctb/database
index d5e7803..83daefb 100644
--- a/pctb/database
+++ b/pctb/database
@@ -1,26 +1,18 @@
-0 1 57
-5
-7e0
-800
-800
-400
-fe0
-0 1 76
+0 1 67
 5
 27c0
 2820
 2820
 2420
 1fe0
-1 1 16
-6
-640
-920
-920
-920
-fc0
+0 1 75
+5
+7e0
 800
-1 1 35
+800
+400
+fe0
+1 1 53
 6
 830
 848
@@ -28,3 +20,30 @@ fc0
 888
 708
 8
+1 1 61
+6
+640
+920
+920
+920
+fc0
+800
+1 1 63
+4
+7c0
+820
+820
+820
+1 1 6e
+5
+fe0
+40
+20
+20
+fc0
+1 1 72
+4
+fe0
+40
+20
+20
diff --git a/pctb/show-thing.tcl b/pctb/show-thing.tcl
index 3d42218..c018223 100755
--- a/pctb/show-thing.tcl
+++ b/pctb/show-thing.tcl
@@ -406,7 +406,7 @@ proc RETURN_RESULT {how what} {
     helptext {{{ Processing }}}
     unbind_all_keys
     update idletasks
-    puts "$how $what"
+    puts stderr "$how $what"
     eval update_database/$how $what
     exec kill -STOP [pid]
     fileevent stdin readable required
@@ -444,7 +444,7 @@ proc required {} {
     init_widgets
     manyset [lrange $l 0 3] unk_l unk_r unk_context
     set glyphsdone [lrange $l 3 end]
-    puts "SHOW-THING GOT $l"
+    puts stderr "SHOW-THING GOT $l"
 
     fileevent stdin readable {}
 
-- 
2.30.2