From ab65368c288992e00568aabb550284db64b11d31 Mon Sep 17 00:00:00 2001
From: nagai <nagai@b2dd03c8-39d4-4d8f-98ff-823fe69b080e>
Date: Fri, 17 Dec 2004 07:31:51 +0000
Subject: * ext/tk/lib/tk.rb: fix bug on setting up system encoding *
 ext/tk/lib/tk/event.rb: fix error on require process * ext/tk/lib/font.rb:
 fix abnormal termination error on Windows * ext/tk/lib/tk/virtevent.rb:
 TkVirtualEvent::PreDefVirtEvent.new()   accepts event-sequence arguments *
 ext/tk/lib/text.rb: fail to dump embedded images * ext/tk/lib/text.rb:
 tag_nextrange and tag_prevrange returns wrong   types of values *
 ext/tk/lib/texttag.rb: nextrange and prevrange returns wrong types of values
 * ext/tk/lib/text.rb: add TkText::IndexModMethods module and  
 TkText::IndexString class to treat text index modifiers *
 ext/tk/lib/texttag.rb: use TkText::IndexModMethods module *
 ext/tk/lib/textmark.rb: ditto * ext/tk/lib/textimage.rb: ditto *
 ext/tk/lib/textwindow.rb: ditto * ext/tk/lib/textimage.rb: wrong gravity of
 text mark for embedded image * ext/tk/lib/textwindow.rb: wrong gravity of
 text mark for embedded window

git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/branches/ruby_1_8@7588 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
---
 ext/tk/lib/tk/virtevent.rb | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'ext/tk/lib/tk/virtevent.rb')

diff --git a/ext/tk/lib/tk/virtevent.rb b/ext/tk/lib/tk/virtevent.rb
index c82cfe46e8..a1a94d3c55 100644
--- a/ext/tk/lib/tk/virtevent.rb
+++ b/ext/tk/lib/tk/virtevent.rb
@@ -15,9 +15,10 @@ class TkVirtualEvent<TkObject
   TkCore::INTERP.init_ip_env{ TkVirtualEventTBL.clear }
 
   class PreDefVirtEvent<self
-    def initialize(event)
+    def initialize(event, *sequences)
       @path = @id = event
       TkVirtualEvent::TkVirtualEventTBL[@id] = self
+      add(*sequences)
     end
   end
 
-- 
cgit v1.2.3