regex

git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/branches/v1_1r@234 b2dd03c8-39d4-4d8f-98ff-823fe69b080e

1 files changed, 15 insertions, 4 deletions

diff --git a/lib/tk.rb b/lib/tk.rb
index 213fc54de7..3891428ff7 100644
--- a/lib/tk.rb
+++ b/lib/tk.rb
@@ -910,15 +910,26 @@ class TkWindow<TkObject
     ilist = list(tk_call('place', 'info', epath))
     info = {}
     while key = ilist.shift
-      info[key[1,-1]] = ilist.shift
+      info[key[1..-1]] = ilist.shift
+    end
+    return info
+  end
+
+  def pack_slaves()
+    list(tk_call('pack', 'slaves', epath))
+  end
+
+  def pack_info()
+    ilist = list(tk_call('pack', '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)
-    }
+    list(tk_call('place', 'slaves', epath))
   end
 
   def focus