From cfcebb7e8f41e808b5eec9cadeed287bc40ea18b Mon Sep 17 00:00:00 2001
From: nagai <nagai@b2dd03c8-39d4-4d8f-98ff-823fe69b080e>
Date: Tue, 13 Jan 2004 07:52:03 +0000
Subject: [PATCH] * ext/tk/lib/tk.rb: use $0 as the default application class
 name.

git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@5458 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
---
 ChangeLog        | 4 ++++
 ext/tk/lib/tk.rb | 3 ++-
 2 files changed, 6 insertions(+), 1 deletion(-)

diff --git a/ChangeLog b/ChangeLog
index e157f5d2fc..93f87bbed8 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+Tue Jan 13 16:50:03 2004  Hidetoshi NAGAI  <nagai@ai.kyutech.ac.jp>
+
+	* ext/tk/lib/tk.rb: use $0 as the default application class name.
+
 Tue Jan 13 14:48:01 2004  Yukihiro Matsumoto  <matz@ruby-lang.org>
 
 	* parse.y (primary): allow no "when" case. [ruby-dev:22578]
diff --git a/ext/tk/lib/tk.rb b/ext/tk/lib/tk.rb
index 6bae4d8f42..a7e63edafc 100644
--- a/ext/tk/lib/tk.rb
+++ b/ext/tk/lib/tk.rb
@@ -662,7 +662,8 @@ module TkCore
     if self.const_defined? :IP_NAME
       name = IP_NAME.to_s
     else
-      name = nil
+      #name = nil
+      name = $0
     end
     if self.const_defined? :IP_OPTS
       if IP_OPTS.kind_of?(Hash)