🚀 go-pugleaf

$B5WLn$G$9!#(B

$BCfEg$5$s(B:
> $B=i?4<T$8$_$?<ALd$G?=$7Lu$J$$$N$G$9$,(B...

  $B$=$s$J$"!#?=$7Lu$J$$$J$s$F$3$H$O$J$$$G$7$g!#(B

> selection $B%3%^%s%I$r;H$C$F!$(BTk$B%"%W%j%1!<%7%g%s$G!V$J$$!W%"%W%j(B
> $B%1!<%7%g%s(B($BNc$($P(B kterm)$B$H$N$d$j$H$j$r$9$k$3$H$O$G$-$J$$$N$G$7$g(B
> $B$&$+!%(B

  $B4JC1$@$H;W$$$^$9$1$I$*!#(B

> Tk$B%"%W%j%1!<%7%g%sCf$N(Btcl$B%9%/%j%W%H$GM?$($?(B string $B%G!<%?$r!$(B
> $BJL$N(B kterm window $B>e$G%^%&%9??Cf%\%?%s$G0z$-=P$9!$$F$J$3$H$,$G(B
> $B$-$l$P$$$$$J$"!$$H;W$C$F$$$k$N$G$9$,!%(B

  $B$A$g$C$H:n$C$F$_$^$7$?!#(B

----
#!/usr/local/bin/wish
proc h { off len } { return "AAAAA" }
selection handle -type STRING -format STRING . h 
selection own .
----

$B$3$l$rF0$+$7$?>uBV$G(Bkterm$B$NCf$G%^%&%9Cf%\%?%s$r2!$9$H(BAAAAA$B$,%+!<(B
$B%=%k0LCV$KA^F~$5$l$^$9!#(B

		$B$3$&$$$&K\$r=q$$$?$P$C$+$j$J$s$G(B	    $B5WLn(B