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!wabi
From: wabi@arch.is.tsukuba.ac.jp (WABIKO Yasuhiro)
Subject: Re: Where is Japanized perl/Tk?
References: <ANABE.97May21175229@maple.iclab.tytlabs.co.jp>
Date: Wed, 28 May 1997 18:05:12 GMT
Nntp-Posting-Host: rindt
X-Newsreader: mnews [version 1.20] 1996-12/08(Sun)
Organization: Institute of Information Sciences & Electronics, University of Tsukuba, Japan
Sender: news@is.tsukuba.ac.jp (News Manager)
Message-ID: <1997May28.180512.29550@is.tsukuba.ac.jp>
Lines: 87
Xref: galaxy.trc.rwcp.or.jp fj.lang.perl:2015
X-originally-archived-at: http://galaxy.rwcp.or.jp/text/cgi-bin/newsarticle2?ng=fj.lang.perl&nb=2015&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!wC^GHBg9)3X8&5f2J$H?=$7$^$9!#(B

# $B$&$^$/Ej9F$G$-$J$+$C$?$h$&$J$N$G:FD)@o!#(B

$B@hF|<+J,$,Ej9F$7$?!"F|K\8lHG(B perl/Tk $B$NIT6q9g$K4X$7$F!"F|K\(B
$B8l2=%Q%C%A:n<T$N(B h$B>.NS$5$s$+$iD>!9$K%a!<%k$rD:$/$3$H$,$G$-!"(B
$B$=$NCf$GIT6q9g$r=$@5$9$k%Q%C%A$rAw$C$F$$$?$@$-$^$7$?!#(B

$B$3$NIT6q9g$H$O<+J,$N5-;v(B
<WABI.97May15040435@prost.arch.is.tsukuba.ac.jp>
$B$K=q$+$l$F$$$k!"!V(BText$B%&%#%8%C%H$G!"%9%/%m!<%k$,5/$3$k$h$&$J(B
$BNL$NF|K\8lJ8;zNs$r0lEY$KF~NO$9$k$HMn$A$k!#!W$H$$$&$b$N$G$9!#(B

$B$3$l$r2r7h$9$k%Q%C%A$r$3$N5-;v$NKvHx$KE:IU$$$?$7$^$9!#(B
(fj.lang.perl$B$X$NE>:\$K$D$$$F$O(B h$B>.NS$5$s$h$j2wBz$rF@$F$*$j(B
$B$^$9!#(B)

$BIT6q9g$N860x$K$D$$$F$O!"!VBP:v$r$I$3$N(B pm $B$KF~$l$k$+LB$C$F$$(B
$B$k$&$A$KK:$l$F$7$^$C$?$i$7$$$,$h$/3P$($F$$$J$$!#!W$H$$$&$3$H(B
$B$@$=$&$G$9(B(^^;$B!#(B

$B$H$$$&$o$1$G!"8=;~E@$K$*$$$FF|K\8l2=$5$l$?(B perl/Tk $B$N:G?7HG(B
$B$rF~<j$9$k$?$a$NJ}K!$H$7$F$O!"0J2<$N$h$&$K$J$j$^$9!'(B

(1)Tk400.202.tar.gz $B$K(B

http://www.t3.rim.or.jp/~hkoba/Tk400.202.jp.a8-untested.patch.gz

$B$NF|K\8l2=%Q%C%A$rEv$F!"(Bmake $B$7%$%s%9%H!<%k$9$k!#(B

(2)Kinput.pm $B$,CV$+$l$F$$$k%G%#%l%/%H%j(B($BEvJ}$G$O(B 
/usr/local/lib/perl5/site_perl/Tk ) $B$K$*$$$F!"E:IU$N%Q%C%A$r(B

% nkf -e foo |patch -p2

$B$N$h$&$K$7$FEv$F$k!#(B

$BEvJ}$G$O$3$l$K$h$j=$@5$5$l$?F|K\8lHG(B perl/Tk $B$,(B
  - Linux 2.0.18 + (J)Perl5.003 (RedHat4.0; Pentium; PC/AT)
  - Solaris 2.5.1 +(J)Perl5.003 (UltraSPARC; Sun Ultra2)
$B$K$F40`z$KF0:n$7$F$*$j$^$9!#(B

$B0J>e!"%a!<%k$d%K%e!<%9$K$F>pJs$rDs6!$7$F2<$5$C$?!"(B
$B$+$$$d(B@jaist.ac.jp$BMM!"LxBt(B@barclays.co.jp$BMM!"EOJU!wK-EDCf1{(B
$B8&5f=jMM!"$=$l$+$i%Q%C%A:n<T$N(B h$B>.NS!wBh(B3$BEl5~(B.$B%j%`%M%C%HMM$K(B
$B46<U$$$?$7$^$9!#$=$l$G$O<:Ni$7$^$9!#(B

- - - - - -
$BC^GHBg3X9)3X8&5f2J(B1$BG/<!(B($B@>@n8&(B) $B2fB9;RBYM4(B(wabi@arch.is.tsukuba.ac.jp)
<URL>http://www.arch.is.tsukuba.ac.jp:80/~wabi/index.html


diff -u Tk400.202.jp/Tk/Kinput.pm /usr/lib/perl5/site_perl/Tk/Kinput.pm 
--- Tk400.202.jp/Tk/Kinput.pm   Tue Feb  4 09:30:16 1997
+++ /usr/lib/perl5/site_perl/Tk/Kinput.pm       Thu May 22 13:50:30 1997
@@ -48,18 +48,21 @@
 use Tk::Pretty;
 sub trailer {
   # to send the spot
-  my($self) = @_;
-  my($w) = $self->target;
+  my ($self) = @_;
+  my ($w)    = $self->target;
   print STDERR "trailer of '$self', called\n" if $debug;
-  my($curpos)  = [$w->xypos("insert")];
-  if(!@$curpos) {
-    # Entry $B$d$=$N%5%V%/%i%9$G(B, $B2hLL30$N=j$K%+!<%=%k$,9T$C$?;~!D(B
-    $w->SeeInsert;
+  $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.
-  } else {
+  my ($curpos)  = [$w->xypos("insert")];
+  if (@$curpos) {
+    print "Tk::Kinput::trailer -- xypos(@$curpos)\n" if $debug;
     $w->kanjiInput(attribute => -spot => $curpos );
   }
+}
+
+# Tk/Text.pm $B$KCV$/$Y$-$+(B,$B$3$3$KCV$/$Y$-$+(B, $B$=$l$,LdBj$@(B.
+sub Tk::Text::SeeInsert {
+  shift->see('insert');
 }
 
 #--------------------------------------------------------------

