I announced STk-3.99.4 Japanization patch about a month ago,
but kinput.stk has had a bug, sorry.
I placed a fixed patch in
ftp://ftp.cs.titech.ac.jp/lab/tanaka/pub/STk/STk-3.99.4jp-fix1.patch.gz
You can only patch following code on Lib/kinput.stk to actual fix:
*** kinput.stk.orig Mon Apr 5 16:08:11 1999
--- kinput.stk Thu May 6 20:26:13 1999
***************
*** 151,159 ****
;;
(define (kinput:get-x-resources name class default)
(let ((res (option 'get "." name class)))
! (if (null? res)
! default
! (split-string res " ,"))))
;; kinput:top-definition
--- 151,158 ----
;;
(define (kinput:get-x-resources name class default)
(let ((res (option 'get "." name class)))
! (split-string (if (null? res) default res)
! " ,")))
;; kinput:top-definition
To Erick:
My patch is based on Tcl/Tk Japanization patch. If you are interested
in it, you can see some informations in
http://www.sra.co.jp/people/m-hirano/tcltk/
Thanks,
Yusuke Shinyama
Received on Fri May 07 1999 - 05:24:01 CEST