Newsgroups: fj.lang.perl
Path: galaxy.trc.rwcp.or.jp!coconuts.jaist!wnoc-tyo-news!aist-nara!odins-suita!chiba-ns!hagi!is.tsukuba.ac.jp!maple!wabi
From: wabi@SeeMySignature.jp (WABIKO Yasuhiro)
Subject: [Summary] Re: Where is Japanized perl/Tk?
References: <WABI.97May12201930@prost.arch.is.tsukuba.ac.jp>
	<8267wmpi3k.fsf@barclays.co.jp>
Date: Wed, 14 May 1997 19:04:35 GMT
Nntp-Posting-Host: prost
Organization: Institute of Information Sciences & Electronics, University of Tsukuba, Japan
Sender: news@is.tsukuba.ac.jp (News Manager)
In-Reply-To: Masahiro Yanagisawa's message of 14 May 1997 17: 34:39 +0900
Message-ID: <WABI.97May15040435@prost.arch.is.tsukuba.ac.jp>
Lines: 88
Xref: galaxy.trc.rwcp.or.jp fj.lang.perl:1948
X-originally-archived-at: http://galaxy.rwcp.or.jp/text/cgi-bin/newsarticle2?ng=fj.lang.perl&nb=1948&hd=a
X-reformat-date: Mon, 18 Oct 2004 15:18:22 +0900
X-reformat-comment: Tabs were expanded into 4 column tabstops by the Galaxy's archiver. See http://katsu.watanabe.name/ancientfj/galaxy-format.html for more info.


$B2fB9;R(B@$BC^GHBg9)3X8&5f2J$G$9!#(B

$B@hF|<+J,$,Ej9F$7$?!"(B $BF|K\8lHG(B perl/Tk $B$N=j:_$K4X$9$k<ALd$K$*(B
$BFs?M$NJ}$+$i2sEz$rD:$/$3$H$,$G$-$^$7$?!#$"$j$,$H$&$4$6$$$^$7(B
$B$?!#(B

(1)$B%a!<%k$K$F!"$+$$$d(B@jaist.ac.jp$BMM$h$j!"(B

ftp://ftp.ae.keio.ac.jp/pub/lang/pTk $B$K$"$k(B

Tk-b11.02.tar.gz $B$K(B
Tk-b11.01.jp-a7-untested.gz $B$J$kF|K\8l2=%Q%C%A$rEv$F$F(B
$B$7$N$$$G$$$k!"$H$N>pJs$rD:$-$^$7$?!#(B

$B$3$A$i$G$b(B Sun Ultra2 (Solaris 2.5.1,JPerl5.002) $B$G;n$7$F$_(B
$B$?$H$3$m!"(B make $B$ODL$j%"%W%j%1!<%7%g%s$b5/F0$9$k$N$G$9$,(B

(a) canvas $B$N(B text $B%"%$%F%`$,I=<($5$l$J$$!#(B
$B$3$s$J%(%i!<$,=P$^$9!#(B
--------------------------- $B$3$3$+$i(B --------------------------------
Tk::Error: Can't locate auto/Tk/Canvas/createText.al in @INC at ./nisikawa2 line 511
 (command bound to event) at /opt/lib/perl5/site_perl/auto/Tk/Error.al line 13.
--------------------------- $B$3$3$^$G(B --------------------------------

(b) kinput2 $B$GF|K\8lF~NO$G$-$k$,!"(Btext $B%&%#%8%C%H$K2~9T$,5/(B
$B$3$k$h$&$JNL$NJ8;z?t$rF~NO$9$k$HMn$A$k!#(B(entry $B$J$iBg>fIW!#(B)
$B$3$s$J%(%i!<%a%C%;!<%8$,I=<($5$l$^$9!#(B
--------------------------- $B$3$3$+$i(B --------------------------------
Assuming 'require Tk::SeeInsert;' at /opt/lib/jperl5/site_perl/Tk/Kinput.pm line 55
Can't locate Tk/SeeInsert.pm in @INC at /opt/lib/jperl5/site_perl/Tk/Widget.pm line 303.
--------------------------- $B$3$3$^$G(B --------------------------------


(2)fj.lang.perl $B$K$F!"LxBt(B@barclays.co.jp$BMM$h$j!"(B

Tk400.202.tar.gz $B$K(B(1)$B$HF1$8(B Tk-b11.01.jp-a7-untested.gz $B$N(B
$BF|K\8l2=%Q%C%A$rEv$F!"$5$i$K5-;v(B 
<8267wmpi3k.fsf@barclays.co.jp>$B$KE:IU$5$l$F$$$kLxBt$5$s$*<j(B
$B@=$N%Q%C%A$rEv$F$F0l1~F0$+$7$F$$$k!"$H$N>pJs$rD:$-$^$7$?!#(B

$B$3$A$i$G$b(B(1)$B$HF1$84D6-(B($B$?$@$7(B JPerl5.003)$B$G;n$7$F$_$?$H$3$m!"(B
(a)$B$N>I>u$O8+$i$l$:!"(B(b)$B$N>I>u$N$_$,6&DL$7$F8+$i$l$k7k2L$H$J(B
$B$j$^$7$?!#(B

                         * * * * * *

$B$5$F!"(B(b)$B$N>I>u$K$D$$$F!"Ev3:$N(B Kinput.pm $B$rGA$$$F$_$?$H$3$m!"(B
$B$3$s$J5-=R$,$"$j$^$7$?!#(B
--------------------------- $B$3$3$+$i(B --------------------------------
#
## kinput2 $B$+$i$N=q$-9~$_F0:n$r(B, $BFCDj$N(B widget $B$X%?%i%$2s$9(B
# 
package Tk::Kinput::Tracer;   @ISA= qw( Tracer::StoreByMethod );

($B!D!DCfN,!D!D(B)

  if(!@$curpos) {
    # Entry $B$d$=$N%5%V%/%i%9$G(B, $B2hLL30$N=j$K%+!<%=%k$,9T$C$?;~!D(B
    $w->SeeInsert;

    # $B$A$g$C$H4m81(B. Text $B$G$3$l$r$d$k$H(B, method not found $B$,5/$3$k(B.
($B!D!D8eN,!D!D(B)
--------------------------- $B$3$3$^$G(B --------------------------------

$B$H$$$&$o$1$G!"(B(b)$B$N>I>u$O!V;EMM!W$N$h$&$G$9(B(^^;$B!#(B

                         * * * * * *

$B0J>e$N7k2L$+$i!"(B(b)$B$r;EMM$H$7$FD|$a$k$H$9$k$J$i$P!"8=;~E@$G(B
$B$O!"F|K\8lHG(B perl/Tk $B$rMxMQ$9$kJ}K!$H$7$F$O(B (2)$B$NJ}K!$,:GNI(B
$B$J$h$&$G$9!#(B

$BEvJ}$G$O!"(Btext $B%&%#%8%C%H$,M_$7$+$C$?$H$3$m$r$9$Y$F(B entry $B$K(B
$B$9$k$3$H$G2fK}$9$k$3$H$K$7$^$7$?!#(B(b)$B$N=$@5$,$G$-$kJ}$NEP>l(B
$B$r?4BT$A$K$9$k$3$H$K$7$^$7$g$&!#(B

$B$A$J$_$K!"(BTk-b11 $B$N(B make $B$O(B (J)Perl5.003 $B$G$O%@%a$G(B 
(J)Perl5.002 $B$,I,MW$G$9!#(BTk400.202 $B$O(B Jperl5.003 $B$G$b(B OK $B$G(B
$B$9(B(5.002 $B$G$O;n$7$F$$$^$;$s(B)$B!#(B

# $B:#2s$N7o$G!"(B(J)Perl5.002,(J)Perl5.003 $B$H(B Perl $B$r(B 4 $B$D$bB7(B
# $B$($F$7$^$$$^$7$?!#(B

$B>pJs$r2<$5$C$?$*Fs?M$NJ}$K=E$M$F$*Ni?=$7$"$2$^$9!#(B
$B$=$l$G$O<:Ni$7$^$9!#(B

--
