🚀 go-pugleaf

$B$[$7!w$($9$"!<$k$(!<$G$9!#(B

In article <qzhg2dn5vze.fsf@rabbit.sic.co.jp>
         kayo@sic.co.jp (Kayo NAKAMURA) writes:

> $B$,!"3H(B$BD%$b$d$C$?;v$,L5$$0Y!"$I$NMM$K5-=R$7$F!"2?$r$9$l$P(B
> FailHandle$B$N5!G=$,;H$($k$N$+$,H=$j$^$;$s!#(B

tk4.0 $B0J9_$K$O(B fileevent $B$H$$$&%3%^%s%I$,DI2C$5$l$F$$$^$9!#(B

#!/usr/local/bin/wish4.0

set cmd {echo 0; for i in 1 2 3 4 5 6 7 8 9 10; do sleep 1; echo $i; done}

button .run -text "Run" -command [list do_run $cmd]; pack .run
text .t -state disabled; pack .t

proc do_run {cmd} {
    .run conf -state disabled
    set id [open "| sh -c \"$cmd\""]
    fileevent $id readable "do_read $id"
}

proc do_read {id} {
    .t conf -state normal
    if {[eof $id]} {
        close $id
        .run conf -state normal
        .t insert end "done\n\n"
    } else {
        .t insert end "output: \"[gets $id]\"\n"
    }
    .t conf -state disabled
}

$B$3$s$J$b$s$G$$$+$,$G$7$g$&!)(B

> $B!V(BTcl&Tk$B%D!<%k%-%C%H!W$rFI$s$G$_$^$7$?$,(B$B>p$1$J$$;v$KM}2r(B
> $B$G$-$:!":$$C$F$*$j$^$9!#(B

$B$3$NK\$O(B tk3.6 $B$K4p$E$$$F=q$$$F$"$j$^$9$+$i$M$(!#(B

tk3.6 $B$K$OF1MM$N5!G=$r<B8=$9$k(B addinput $B$H$$$&3HD%$,(B
$B$"$j$^$7$?!#(B

$B$[$7(B