[ruby-dev:3393] tk.rb patch

永井＠知能．九工大です．

tk.rb ですが，以前のパッチでエンバグしてました．
多分，以下のパッチでいいはずです．
これと関連して，widget-demo にも修正が必要になりましたので，
修正を済ませたものを in.coming に置かせていただきました．
Ruby_Tk-widget-demo-1.0.new2.tar.gz です．
よろしくおねがいします．

--- tk.rb.new4	Tue Jul 21 23:03:41 1998
+++ tk.rb	Thu Jul 23 16:29:10 1998
@@ -713,13 +713,14 @@
 
   def value
     begin
-      tk_tcl2ruby(INTERP._eval(format('global %s; set %s', @id, @id)))
+      INTERP._eval(format('global %s; set %s', @id, @id))
     rescue
       if INTERP._eval(format('global %s; array exists %s', @id, @id)) != "1"
 	raise
       else
-	Hash[*tk_tcl2ruby(INTERP._eval(format('global %s; array get %s', 
-					      @id, @id)))]
+	Hash[*tk_split_simplelist(INTERP\
+				  ._eval(format('global %s; array get %s', 
+						@id, @id)))]
       end
     end
   end

-- 
                                         永井 秀利 （九工大 知能情報）
                                             [e-mail]