wip

diff --git a/pctb/database b/pctb/database
index d5e7803ac2701baa9e9beceb2435504e3e7fb65c..83daefbae1f1177bb5d3dc1ae324e63beb969a1b 100644 (file)
--- 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 3d42218619359f68e864dc72c2923a880d415ff0..c0182238557b3dd5e64c5c020d5e8d4d4756393a 100755 (executable)
--- 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 {}