新井です。

> > 新井です。
> 
> > @screen -> @visual という修正も含んでるので1.4でもあててください。
> 
> あう、もう1箇所あった。

ぐぐぅ、よく見てませんでした、まだありました。

  @classname -> @container

# パッチ作りなおした方がよかった?

--- ext/tk/lib/tk.rb.old	Tue Dec 14 23:48:49 1999
+++ ext/tk/lib/tk.rb	Tue Dec 14 23:50:29 1999
@@ -1876,7 +1876,7 @@
       keys = keys.dup
       @classname = keys.delete('classname')
       @colormap  = keys.delete('colormap')
-      @classname = keys.delete('container')
+      @container = keys.delete('container')
       @screen    = keys.delete('screen')
       @use       = keys.delete('use')
       @visual    = keys.delete('visual')
@@ -1886,12 +1886,12 @@
 
   def create_self
     s = []
-    s.push << "-class"     << @classname if @classname
-    s.push << "-colormap"  << @colormap  if @colormap
-    s.push << "-container" << @container if @container
-    s.push << "-screen"    << @screen    if @screen 
-    s.push << "-use"       << @use       if @use
-    s.push << "-visual"    << @visual    if @visual
+    s << "-class"     << @classname if @classname
+    s << "-colormap"  << @colormap  if @colormap
+    s << "-container" << @container if @container
+    s << "-screen"    << @screen    if @screen 
+    s << "-use"       << @use       if @use
+    s << "-visual"    << @visual    if @visual
     tk_call 'toplevel', @path, *s
   end
 
@@ -1912,7 +1912,7 @@
       keys = keys.dup
       @classname = keys.delete('classname')
       @colormap  = keys.delete('colormap')
-      @classname = keys.delete('container')
+      @container = keys.delete('container')
       @visual    = keys.delete('visual')
     end
     super(parent, keys)
@@ -1920,10 +1920,10 @@
 
   def create_self
     s = []
-    s.push << "-class"     << @classname if @classname
-    s.push << "-colormap"  << @colormap  if @colormap
-    s.push << "-container" << @container if @container
-    s.push << "-visual"    << @visual    if @visual
+    s << "-class"     << @classname if @classname
+    s << "-colormap"  << @colormap  if @colormap
+    s << "-container" << @container if @container
+    s << "-visual"    << @visual    if @visual
     tk_call 'frame', @path, *s
   end
 end