[ruby-list:1801] Re: insert and TkEntry

まつもと ゆきひろです．

In message "[ruby-list:1789] insert and TkEntry"
    on 97/01/21, Noritugu Nakamura <[e-mail]> writes:
|
|中村です。
|
|以下のプログラムが動きません。
|「e.insert 'end', "Entry"」の部分を
|取り除くと動きます。
|insert の使い方はこれでいいですか？

私の頭にある仕様はその通りでしたが，プログラムを書いていた時
には違う仕様を考えていたようです．で，より直感的な仕様にしま
しょう．

# 使い込んでないのでぼろぼろですね．ごめんなさい．

--- lib/tkentry.rb~	Wed May 22 19:01:19 1996
+++ lib/tkentry.rb	Tue Jan 21 19:43:31 1997
@@ -14,7 +14,7 @@
   end
 
   def delete(s, e=None)
-    if e
+    if e != None
       tk_send 'delete', s
     else
       tk_send 'delete', s, e
@@ -28,13 +28,10 @@
     tk_send 'icursor', index
   end
   def index(index)
-    tk_send 'index', index
+    number(tk_send('index', index))
   end
-  def insert(text, pos=None)
-    if pos
-      tk_send 'icursor', pos
-    end
-    tk_send 'insert', 'insert', text
+  def insert(pos,text)
+    tk_send 'insert', pos, text
   end
   def mark(pos)
     tk_send 'scan', 'mark', pos