🚀 go-pugleaf

    $B<+8J%U%)%m!<$G$9!#(B

>>>>> "Taisuke" == Taisuke Yamada <tai@p-net.imasy.or.jp> writes:
In article <TAI.96Jan11021126@p-net.imasy.or.jp> tai@p-net.imasy.or.jp (Taisuke Yamada) writes:


Taisuke>     $B$?$@$N;W$$$D$-$G$9$,!"%U%!%$%kFI$_9~$_$r(B after 
Taisuke> $B$G%P%C%/%0%i%&%s%I$G7QB3$7$F9T$J$o$;$F$*$$$F!"$=$N(B
Taisuke> $BFI$_9~$s$@%G!<%?$r3JG<$9$kJQ?t$KBP$7$F(B trace $B$r%;%C(B
Taisuke> $B%H$7$F$*$/!"$H$$$&$N$O$I$&$G$7$g$&$+!)(B

    $B<B83$7$F$_$^$7$?!#$G!"7k2L$+$i$$$&$HBLL\$G$7$?!#(Bafter $B$G(B
$B8F$s$@4X?t$NCf$G(B gets $B$GBT$C$F$b!"%W%m%0%i%`A4BN$OBT$?$J$$$N(B
$B$G$O$J$$$+$H;W$C$?$N$G$9$,!"8+;v;_$^$C$F$7$^$$$^$9!#(B

    Tcl $BK\$r2~$a$F$R$C$/$jJV$7$F8+$k$H!"$d$O$j(B 7.3 $B$G$O%U%!%$%k(B
$BF~NO$r%$%Y%s%H$H$9$k$N$OL5M}$J$h$&$G$9!J(BTcl $B$N%i%$%V%i%j4X?t(B
$B%l%Y%k$G$O$G$-$k$N$G$9$,!D!K!#$7$+$7!"$?$@$G$-$J$$$H8@$&$@$1$G$O(B
$B$J$s$J$N$G!";w$?$h$&$J$3$H$O$G$-$J$$$+$H;W$C$F$R$H$D:n$C$F$_$^$7$?!#(B
$B2<$,%5%s%W%k$G$9!#(B

#!/usr/local/bin/wish

set interval 10000;

proc bgread {interval} {

	if {[gets stdin line] < 0} {
		return;
	}

	send [wm title .] "puts \"Recieved: $line\";";

	after $interval bgread $interval;
}

button .testbutton -text test -command { puts "hello"; };
pack .testbutton -fill both -expand 1;

after $interval bgread $interval;

    $BMW$9$k$K!"F~NOFI$_9~$_$rE,Ev$K4V$r$*$$$F9T$J$C$F$$$k$@$1(B
$B$G$9!#$3$l$@$H!"?7$?$JF~NO$,(B interval$B!J$3$3$G$O#1#0!KIC0JFb$K(B
$BMh$k$3$H$,J]>Z$5$l$F$*$j!"$+$D%P%C%U%!$,0n$l$J$$$J$i$P!"(B
$BI8=`F~NO$+$i$NF~NO$r%$%Y%s%H$N$h$&$K!"$H$$$&$+!">/$J$/$H$b(B
$B%W%m%0%i%`$NK\N.$+$i8+$($J$$$H$3$m$G=hM}$G$-$k$H8@$&0UL#$G!"(B
$B07$($^$9!#(B

$B!t(B $B$7$+$7!"(B7.4/4.0 $B$K%P!<%8%g%s%"%C%W$9$k$N$,0lHV4JC1$@$H;W$&!D(B

---
>>> Email: tai@imasy.or.jp, g2b178@cfi.waseda.ac.jp (Taisuke Yamada) <<<
>>> URL: http://www.imasy.or.jp/~tai/index.html (Not yet accessible) <<<