* 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

@@ -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]

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)