diff options
Diffstat (limited to 'ext/tk/lib/tk/toplevel.rb')
-rw-r--r-- | ext/tk/lib/tk/toplevel.rb | 11 |
1 files changed, 8 insertions, 3 deletions
diff --git a/ext/tk/lib/tk/toplevel.rb b/ext/tk/lib/tk/toplevel.rb index 5e199e1330..2d99eda44c 100644 --- a/ext/tk/lib/tk/toplevel.rb +++ b/ext/tk/lib/tk/toplevel.rb @@ -5,7 +5,7 @@ require 'tk' require 'tk/wm' require 'tk/menuspec' -class TkToplevel<TkWindow +class Tk::Toplevel<TkWindow include Wm include TkMenuSpec @@ -117,9 +117,10 @@ class TkToplevel<TkWindow end if @classname.kind_of? TkBindTag @db_class = @classname - @classname = @classname.id + keys['class'] = @classname = @classname.id elsif @classname @db_class = TkDatabaseClass.new(@classname) + keys['class'] = @classname else @db_class = self.class @classname = @db_class::WidgetClassName @@ -165,9 +166,10 @@ class TkToplevel<TkWindow end if @classname.kind_of? TkBindTag @db_class = @classname - @classname = @classname.id + keys['class'] = @classname = @classname.id elsif @classname @db_class = TkDatabaseClass.new(@classname) + keys['class'] = @classname else @db_class = self.class @classname = @db_class::WidgetClassName @@ -255,3 +257,6 @@ class TkToplevel<TkWindow end end end + +#TkToplevel = Tk::Toplevel unless Object.const_defined? :TkToplevel +Tk.__set_toplevel_aliases__(:Tk, Tk::Toplevel, :TkToplevel) |