From 5fef3d6bc029a9f2d6b8d89044d458678046ec01 Mon Sep 17 00:00:00 2001
From: nagai <nagai@b2dd03c8-39d4-4d8f-98ff-823fe69b080e>
Date: Tue, 29 Jul 2003 08:05:30 +0000
Subject: * bug fix ( tested with Ruby/Tk widget demo )

git-svn-id: http://svn.ruby-lang.org/repos/ruby/trunk@4207 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
---
 ext/tk/lib/tk.rb       | 16 ++++++++++------
 ext/tk/lib/tkdialog.rb |  1 +
 ext/tk/lib/tktext.rb   |  2 +-
 3 files changed, 12 insertions(+), 7 deletions(-)

(limited to 'ext/tk/lib')

diff --git a/ext/tk/lib/tk.rb b/ext/tk/lib/tk.rb
index 8561a9d22..c6c0e799d 100644
--- a/ext/tk/lib/tk.rb
+++ b/ext/tk/lib/tk.rb
@@ -191,6 +191,7 @@ module TkComm
     conf
   end
   private :hash_kv
+  module_function :hash_kv
 
   def array2tk_list(ary)
     ary.collect{|e|
@@ -205,6 +206,7 @@ module TkComm
     }.join(" ")
   end
   private :array2tk_list
+  module_function :array2tk_list
 
   def bool(val)
     case val
@@ -307,15 +309,16 @@ module TkComm
 
   def _curr_cmd_id
     #id = format("c%.4d", Tk_IDs[0])
-    id = "c" + Tk_IDs[0]
+    id = "c" + TkComm::Tk_IDs[0]
   end
   def _next_cmd_id
     id = _curr_cmd_id
     #Tk_IDs[0] += 1
-    Tk_IDs[0].succ!
+    TkComm::Tk_IDs[0].succ!
     id
   end
   private :_curr_cmd_id, :_next_cmd_id
+  module_function :_curr_cmd_id, :_next_cmd_id
 
   def install_cmd(cmd)
     return '' if cmd == ''
@@ -332,6 +335,7 @@ module TkComm
     TkCore::INTERP.tk_cmd_tbl.delete(id)
   end
   private :install_cmd, :uninstall_cmd
+  module_function :install_cmd
 
   def install_win(ppath,name=nil)
     if !name or name == ''
@@ -1213,8 +1217,8 @@ module Tk
       if bar
 	@xscrollbar = bar
 	@xscrollbar.orient 'horizontal'
-	self.xscrollcommand {|arg| @xscrollbar.set(*arg)}
-	@xscrollbar.command {|arg| self.xview(*arg)}
+	self.xscrollcommand {|*arg| @xscrollbar.set(*arg)}
+	@xscrollbar.command {|*arg| self.xview(*arg)}
       end
       @xscrollbar
     end
@@ -1222,8 +1226,8 @@ module Tk
       if bar
 	@yscrollbar = bar
 	@yscrollbar.orient 'vertical'
-	self.yscrollcommand {|arg| @yscrollbar.set(*arg)}
-	@yscrollbar.command {|arg| self.yview(*arg)}
+	self.yscrollcommand {|*arg| @yscrollbar.set(*arg)}
+	@yscrollbar.command {|*arg| self.yview(*arg)}
       end
       @yscrollbar
     end
diff --git a/ext/tk/lib/tkdialog.rb b/ext/tk/lib/tkdialog.rb
index 2c280d561..b15b79421 100644
--- a/ext/tk/lib/tkdialog.rb
+++ b/ext/tk/lib/tkdialog.rb
@@ -74,6 +74,7 @@ class TkDialog2 < TkWindow
       @title   = keys['title'] if keys.key? 'title'
       @message = keys['message'] if keys.key? 'message'
       @bitmap  = keys['bitmap'] if keys.key? 'bitmap'
+      @bitmap  = '{}' if @bitmap == nil || @bitmap == ""
       @default_button = keys['default'] if keys.key? 'default'
       @buttons = keys['buttons'] if keys.key? 'buttons'
 
diff --git a/ext/tk/lib/tktext.rb b/ext/tk/lib/tktext.rb
index 34663f35b..a28c3d31f 100644
--- a/ext/tk/lib/tktext.rb
+++ b/ext/tk/lib/tktext.rb
@@ -40,7 +40,7 @@ class TkText<TkTextWin
   end
 
   def init_instance_variable
-    @cmdtbl = {}
+    @cmdtbl = []
     @tags = {}
   end
 
-- 
cgit