うさぎです

原さん:
> 不完全版でも欲しいです。(^^;

ううむ. 結局よくわかんなくて, string.c, file.c, lib/tktext.rb
の三つに対するパッチしか当ててないんですけど, こんなのでもよろ
しければ..

# string.c に対するパッチは自信ありません.

ここに流しちゃいますけど, いいですか? 同じパッチが2度も
MLにながれることになるんで, 迷惑だったらごめんなさい.


--- string.c.orig Tue Dec 9 10:18:11 1997 +++ string.c Sat Feb 7 13:05:36 1998 @@ -421,7 +421,7 @@ UINT len; int retval; - if (ignorecase != FALSE) { + if (ignorecase) { return str_cicmp(str1, str2); }
--- file.c.orig Mon Oct 20 11:09:34 1997 +++ file.c Sat Feb 7 13:00:38 1998 @@ -1326,6 +1326,11 @@ if (!e) return 0; l2 = strlen(e); + if (l2 == 2 && e[1] == '*') { + e = strrchr(p, *e); + if (!e) return 0; + return e - p; + } if (l1 < l2) return l1; if (strcmp(p+l1-l2, e) == 0) {
--- lib/tktext.rb.orig Tue Aug 19 16:23:57 1997 +++ lib/tktext.rb Sat Feb 7 13:01:50 1998 @@ -131,7 +131,7 @@ @t = parent @path = @id = $tk_text_mark $tk_text_mark = $tk_text_mark.succ - tk_call @t.path, 'set', @id, index + tk_call @t.path, 'mark', 'set', @id, index @t._addtag id, self end def id @@ -139,7 +139,7 @@ end def set(where) - tk_call @t.path, 'mark', 'unset', @id, where + tk_call @t.path, 'mark', 'set', @id, where end def unset