🚀 go-pugleaf

$B9b66(B@$BAOL4$G$9!#(B

$B$3$NA0H/I=$7$?F|K\8l2=(B patch $B$G$9$,!"(BListbox $B$KBP$9$k(B get command $B$N7k(B
$B2L$,$*$+$7$/$J$C$F$$$^$7$?!#0J2<$K$D$1$k(B patch $B$rEv$F$k$H@5>o2=$7$^$9!#(B

  # $BJQ991L$l$G$9!#%9%_%^%;%s!#!#!#(B

$B8E2l!wEE5$DL?.Bg$5$s!"(Bpatch $B$rAw$C$F$$$?$@$-$I$&$b$"$j$,$H$&$4$6$$$^$7$?!#(B

$B$J$*!"(B

  ftp://ftp.soum.co.jp/pub/STk/STk-3.1.1jp-patch.tar.gz

$B$K$b$3$NJQ99$rH?1G$7$^$7$?!#(B

----------
diff -Narc STk-3.1.1.old/Tk/generic/tkListbox.c STk-3.1.1/Tk/generic/tkListbox.c
*** STk-3.1.1.old/Tk/generic/tkListbox.c	Wed Oct 30 15:12:27 1996
--- STk-3.1.1/Tk/generic/tkListbox.c	Wed Oct 30 15:23:33 1996
***************
*** 663,674 ****
--- 663,682 ----
  	if (elPtr != NULL) {
  #ifdef STk_CODE
  	    if (argc == 3) {
+ #ifdef KANJI
+ 		STk_stringify_result(interp, Tk_DecodeWStr(elPtr->text));
+ #else
  		STk_stringify_result(interp, elPtr->text);
+ #endif
  	    } else {
  	        Tcl_AppendResult(interp, "(", NULL);
  		for (  ; i <= last; i++, elPtr = elPtr->nextPtr) {
  		  Tcl_AppendResult(interp, " ", 
+ #ifdef KANJI
+ 			   STk_stringify(Tk_DecodeWStr(elPtr->text), 0), NULL);
+ #else
  				   STk_stringify(elPtr->text, 0), NULL);
+ #endif
  		}
  		Tcl_AppendResult(interp, ")", NULL);
  	    }
----------
-- 
---
--     $B9b66(B $B1R(B
-