* ext/tcltklib/tcltklib.c: fix (en-bugged at 2003/11/07)

* ext/tk/lib/tkdialog.rb: TkDialog.new accepts the parent widget [ruby-talk:85066]


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

1 files changed, 13 insertions, 8 deletions

diff --git a/ext/tk/lib/tkdialog.rb b/ext/tk/lib/tkdialog.rb
index febe470376..8ac598c605 100644
--- a/ext/tk/lib/tkdialog.rb
+++ b/ext/tk/lib/tkdialog.rb
@@ -48,9 +48,7 @@ class TkDialog2 < TkWindow
   private :_set_button_config
 
   # initialize tk_dialog
-  def initialize(keys = nil)
-    super()
-
+  def create_self(keys)
     @var = TkVariable.new
 
     @title   = title
@@ -74,7 +72,6 @@ class TkDialog2 < TkWindow
     @command = nil
 
     if keys.kind_of? Hash
-      keys = _symbolkey2str(keys)
       @title   = keys['title'] if keys.key? 'title'
       @message = keys['message'] if keys.key? 'message'
       @bitmap  = keys['bitmap'] if keys.key? 'bitmap'
@@ -230,8 +227,16 @@ end
 # dialog for warning
 #
 class TkWarning2 < TkDialog2
-  def initialize(mes)
-    super(:message=>mes)
+  def initialize(parent = nil, mes = nil)
+    if !mes
+      if parent.kind_of? TkWindow
+	mes = ""
+      else
+	mes = parent.to_s
+	parent = nil
+      end
+    end
+    super(parent, :message=>mes)
   end
 
   def show(mes = nil)
@@ -263,8 +268,8 @@ class TkWarning < TkWarning2
   def self.show(*args)
     self.new(*args)
   end
-  def initialize(mes)
-    super(mes)
+  def initialize(*args)
+    super(*args)
     show
   end
 end