-proc run-child {} {
- global status ratelimit
-
- puts "RUN-CHILD $status"
- set now [clock seconds]
- lappend ratelimit $now
- while {[lindex $ratelimit 0] < {$now - 10}} {
- set ratelimit [lrange $ratelimit 1 end]
- }
- if {[llength $ratelimit] > 10} {
- puts stderr "crashing repeatedly, quitting $ratelimit"
- exit 127
- }
+#image create bitmap ims -file gs_s.xbm
+#image create bitmap ims -file /usr/share/ghostscript/8.71/lib/gs_s.xbm
+#setimage ims
+#setimage ims