ビットウォークの高橋です。
Tsutomu Hiroshima wrote:
> 廣島です.
>
> Perl/Tk800.024 の日本語化パッチを更新しました.
>
> http://mirror.nucba.ac.jp/users/tsutomu/perltk/jp-patch.html
>
> klength に置き換えた方が良い length 関数を
> Tk/TextUndo.pm に見つけ,動作確認していたのですが,
> その過程でオリジナルのコードに Bug を発見しました.
>
> この Bug で,TextEdit の <F5>〜<F8> に bind された,
>
> IndentSelectedLines, UnindentSelectedLines,
> CommentSelectedLines, UncommentSelectedLines
>
> の4つの関数が正常に動作していませんでしたので,
> 今回のパッチで直しておきました.
>
> diff -uNr Tk800.024.old/Tk/TextUndo.pm Tk800.024.new/Tk/TextUndo.pm
> --- Tk800.024.old/Tk/TextUndo.pm Sun Sep 30 02:48:16 2001
> +++ Tk800.024.new/Tk/TextUndo.pm Wed Apr 17 14:57:05 2002
>
> (中略)
>
> @@ -957,9 +957,10 @@
> sub insertStringAtStartOfSelectedLines
> {
snip, snip...
>
> # 日本語化 # のついていない変更行が,
> オリジナルの Bug Fix です.
>
> ## 高橋様,サンプルスクリプトをありがとうございました.
廣島さん、ご苦労さまです。やっつけで作ったサンプルスクリプトでもお役に立
ちましたでしょうか。
早速、日本語パッチを更新したRPMをアップしました。
パッケージ名
perl-Tk-800.024-27bw.i386.rpm
ビルドした環境は、
Red Hat Linux 7.2 / perl-5.6.1-26.72.3
です。
ダウンロードは、
http://members10.tsukaeru.net/bitwalk/download_linux.html#perl
から、または直接、
http://members10.tsukaeru.net/bitwalk/src/perl-Tk-800.024-27bw.i386.rpm
でダウンロードできます。
なお、nosrcもアップしておきました。
http://members10.tsukaeru.net/bitwalk/src/perl-Tk-800.024-27bw.nosrc.rpm
必要に応じてこれをダウンロードしてリビルドして下さい。リビルドにはTk-
800.024.tar.gzが必要になります。
ご興味のある方はご利用下さい。
--
Keiichi Takahashi, bitWalk Co.,Ltd.
mailto:bitwalk@...
http://members10.tsukaeru.net/bitwalk/