chiark / gitweb /
wip
authorIan Jackson <ian@liberator.relativity.greenend.org.uk>
Thu, 4 Jun 2009 00:23:09 +0000 (01:23 +0100)
committerIan Jackson <ian@liberator.relativity.greenend.org.uk>
Thu, 4 Jun 2009 00:23:09 +0000 (01:23 +0100)
pctb/database
pctb/show-thing.tcl

index d5e7803..83daefb 100644 (file)
@@ -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
index 3d42218..c018223 100755 (executable)
@@ -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 {}