[ruby-list:1524] Re: [Ruby/Tk] place ?

まつもと ゆきひろです．

In message "[ruby-list:1517] [Ruby/Tk] place ?"
    on 96/12/26, Noritugu Nakamura <[e-mail]> writes:

|中村です。

|で、place は使えるのでしょうか？
|grep した限りでは見当たらなかったのですが。

現状では使えません．実は白状すると私はtk使いではないので，
tk.rbは必ずしもtkの全機能を使えるとは限りません．で，こうい
う風に使えると嬉しいなどという意見や要望は大歓迎です．

placeを使えるようにするパッチを以下につけておきます．
例によってテストしていません．次のリリースまでにはテストして
おきます．
# だってplaceの使い方を知らないので…．

                                まつもと ゆきひろ /:|)

--- lib/tk.rb~	Tue Dec 24 21:48:48 1996
+++ lib/tk.rb	Thu Dec 26 18:15:27 1996
@@ -391,6 +391,36 @@
     self
   end
 
+  def place(keys = nil)
+    tk_call 'place', epath, *hash_kv(keys)
+    self
+  end
+
+  def unplace(keys = nil)
+    tk_call 'place', 'forget', epath, *hash_kv(keys)
+    self
+  end
+  alias place_forget unplace
+
+  def place_config(keys)
+    tk_call "place", 'configure', epath, *hash_kv(keys)
+  end
+
+  def place_info()
+    ilist = list(tk_call('place', 'info', epath))
+    info = {}
+    while key = ilist.shift
+      info[key[1,-1]] = ilist.shift
+    end
+    return info
+  end
+
+  def place_slaves()
+    list(tk_call('place', 'slaves', epath)).collect { |w|
+      window(w)
+    }
+  end
+
   def focus
     tk_call 'focus', path
     self