* eval.c (proc_alloc): re-unification of Block and Proc. Block

  class is no longer available.


git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@3948 b2dd03c8-39d4-4d8f-98ff-823fe69b080e

1 files changed, 4 insertions, 4 deletions

diff --git a/ext/tk/lib/tktext.rb b/ext/tk/lib/tktext.rb
index 2db9a22bdf..62747be0bd 100644
--- a/ext/tk/lib/tktext.rb
+++ b/ext/tk/lib/tktext.rb
@@ -172,11 +172,11 @@ class TkText<TkTextWin
     tk_send 'tag', 'add', tag, index1, index2
   end
 
-  def tag_bind(tag, seq, cmd=Block.new, args=nil)
+  def tag_bind(tag, seq, cmd=Proc.new, args=nil)
     _bind(['tag', 'bind', tag], seq, cmd, args)
   end
 
-  def tag_bind_append(tag, seq, cmd=Block.new, args=nil)
+  def tag_bind_append(tag, seq, cmd=Proc.new, args=nil)
     _bind_append(['tag', 'bind', tag], seq, cmd, args)
   end
 
@@ -663,11 +663,11 @@ class TkTextTag<TkObject
     @t.tag_configinfo @id, key
   end
 
-  def bind(seq, cmd=Block.new, args=nil)
+  def bind(seq, cmd=Proc.new, args=nil)
     _bind([@t.path, 'tag', 'bind', @id], seq, cmd, args)
   end
 
-  def bind_append(seq, cmd=Block.new, args=nil)
+  def bind_append(seq, cmd=Proc.new, args=nil)
     _bind_append([@t.path, 'tag', 'bind', @id], seq, cmd, args)
   end