[ruby-list:6986] Incomplete (^^; 1.0 (was Re: ruby's Icon ?)

うさぎです

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

ううむ. 結局よくわかんなくて, 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