From 0fd9439894eacedc17b2c4bc09e37b84ab92b828 Mon Sep 17 00:00:00 2001
From: nagai <nagai@b2dd03c8-39d4-4d8f-98ff-823fe69b080e>
Date: Tue, 11 Nov 2003 01:45:06 +0000
Subject: [PATCH] * ext/tk/lib/tk.rb: raise an exception when creating TkWindow
   object, because TkWindow class is an abstract class.

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

diff --git a/ChangeLog b/ChangeLog
index 8ee4dc4a33..4d2c41c5de 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+Tue Nov 11 10:42:41 2003  Hidetoshi NAGAI  <nagai@ai.kyutech.ac.jp>
+
+	* ext/tk/lib/tk.rb: raise an exception when creating TkWindow
+	  object, because TkWindow class is an abstract class.
+
 Tue Nov 11 03:30:43 JST 2003  GOTOU Yuuzou  <gotoyuzo@notwork.org>
 
 	* lib/ext/openssl/ossl_conf.c (ossl_config_get_value): return nil
diff --git a/ext/tk/lib/tk.rb b/ext/tk/lib/tk.rb
index e5d1c6f63b..2cb4731cbd 100644
--- a/ext/tk/lib/tk.rb
+++ b/ext/tk/lib/tk.rb
@@ -3989,6 +3989,7 @@ class TkWindow<TkObject
   end
 
   def create_self
+    fail RuntimeError, "TkWindow is an abstract class"
   end
   private :create_self
 
@@ -5124,7 +5125,7 @@ end
 
 class TkTextWin<TkWindow
   def create_self
-    fail TypeError, "TkTextWin is abstract class"
+    fail RuntimeError, "TkTextWin is an abstract class"
   end
 
   def bbox(index)