chiark / gitweb /
wip
[ypp-sc-tools.db-live.git] / pctb / show-thing.tcl
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 {}