[ruby-dev:16189] Re: ruby 1.6.7 preview 1

新井です。

In message "[ruby-dev:16166] Re: ruby 1.6.7 preview 1"
  on 02 Mar 2002 10:27:20 +0900,
  [e-mail] wrote:
> 永井＠知能．九工大です．

> > 永井さんは bugs は見てらっしゃいますか？ちょっと心配だったん
> > ですよ(incoming に放置されたままになるかどうかが^^;)
> 
> bugs は見てなくて，たまたま某所でまつもとさんに教えてもらって
> 知った次第です．
> そのままに適用しなかった理由は，情報の設定と取得とでは
> それぞれ *configure と *configinfo との組合わせで
> 使い分けるようにしていたためです．

なるほど。そういやそうなってますね。

> ですから，configure を情報取得に使うようなパッチの適用は
> 行わないことにしました．
> 連絡が遅くなってごめんなさい．

以下だけ、適用できませんでしょうか？

というのも、今回 ruby -d で、tk に渡される引数を確かめてみよ
うとしたらあんまり役に立たなかったんです。

	require 'tk'
	TkGrid.columnconfigure(Tk.root, 0, 'weight' => 1)

パッチ前:

    〜略〜

    grid columnconfigure #<TkRoot:0x401e7dd8> 0 -weight 1

パッチ後:

    〜略〜

    ["grid", "columnconfigure", #<TkRoot:0x401e78b0 @path=".">, 0, "-weight", 1]
    => "grid columnconfigure . 0 -weight 1"
    ==> ""

--
新井康司 (Koji Arai)


Index: ext/tk/lib/tk.rb
===================================================================
RCS file: /usr/local/cvsup/ruby/ruby/ext/tk/lib/tk.rb,v
retrieving revision 1.29
diff -u -p -r1.29 tk.rb
--- ext/tk/lib/tk.rb	28 Feb 2002 06:53:33 -0000	1.29
+++ ext/tk/lib/tk.rb	3 Mar 2002 17:01:46 -0000
@@ -651,10 +651,11 @@ module TkCore
   end
 
   def tk_call(*args)
-    print args.join(" "), "\n" if $DEBUG
+    puts args.inspect if $DEBUG
     args.collect! {|x|ruby2tcl(x)}
     args.compact!
     args.flatten!
+    print "=> ", args.join(" ").inspect, "\n" if $DEBUG
     begin
       res = INTERP._invoke(*args)
     rescue NameError
@@ -670,7 +671,7 @@ module TkCore
     if  INTERP._return_value() != 0
       fail RuntimeError, res, error_at
     end
-    print "==> ", res, "\n" if $DEBUG
+    print "==> ", res.inspect, "\n" if $DEBUG
     return res
   end
 end