From 36f3603cae6536e571220721e916b8d284cf0675 Mon Sep 17 00:00:00 2001
From: "(no author)" <(no author)@b2dd03c8-39d4-4d8f-98ff-823fe69b080e>
Date: Tue, 10 Feb 1998 08:44:05 +0000
Subject: This commit was manufactured by cvs2svn to create tag 'v1_1b7'.

git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/tags/v1_1b7@70 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
---
 lib/tk.rb | 25 ++++++++++++++++++++-----
 1 file changed, 20 insertions(+), 5 deletions(-)

(limited to 'lib/tk.rb')

diff --git a/lib/tk.rb b/lib/tk.rb
index 2cbbec02a8..5a3bf2052b 100644
--- a/lib/tk.rb
+++ b/lib/tk.rb
@@ -26,6 +26,9 @@ module TkComm
   private :error_at
 
   def tk_tcl2ruby(val)
+    if val.include? ? 
+      return val.split.collect{|v| tk_tcl2ruby(v)}
+    end
     case val
     when /^-?\d+$/
       val.to_i
@@ -241,6 +244,15 @@ module TkComm
 		    uninstall_cmd myid
 		  })
   end
+
+  def update(idle=nil)
+    if idle
+      tk_call 'update', 'idletasks'
+    else
+      tk_call 'update'
+    end
+  end
+
 end
 
 module TkCore
@@ -963,6 +975,7 @@ class TkRoot<TkWindow
     return ROOT[0] if ROOT[0]
     new = super
     ROOT[0] = new
+    Tk_WINDOWS["."] = new
   end
   def create_self
     @path = '.'
@@ -1220,12 +1233,12 @@ module TkComposite
       @delegates = {} 
       @delegates['DEFAULT'] = @frame
     end
-    if option.kind_of?(String)
-      @delegates[option] = wins
-    else
-      for i in option
-	@delegates[i] = wins
+    if @delegates[option].kind_of?(Array)
+      for i in wins
+	@delegates[option].push(i)
       end
+    else
+      @delegates[option] = wins
     end
   end
 
@@ -1252,3 +1265,5 @@ autoload :TkBitmapImage, 'tkcanvas'
 autoload :TkPhotoImage, 'tkcanvas'
 autoload :TkEntry, 'tkentry'
 autoload :TkText, 'tktext'
+autoload :TkDialog, 'tkdialog'
+autoload :TkMenubar, 'tkmenubar'
-- 
cgit v1.2.3