From fd46a1da0a41b7939424bc5a393027be7940908e Mon Sep 17 00:00:00 2001
From: nagai <nagai@b2dd03c8-39d4-4d8f-98ff-823fe69b080e>
Date: Wed, 23 Jul 2003 16:07:35 +0000
Subject: process.c    : unify indentation configure.in : add --enable-setreuid
 option tcltklib.c : TclTkIp.new accepts 'ip-name' and 'options'             
 ( e.g. TclTkIp.new('FOO', '-geometry 500x200 -use 0x2200009') ) tk.rb      :
 support arguments of TclTkIp.new              ( see TkCore::IP_NAME,
 TkCore::IP_OPTS ) tk*.rb     : preparations for multi-Tk interpreter support

git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@4127 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
---
 ext/tk/lib/tkvirtevent.rb | 15 ++++++---------
 1 file changed, 6 insertions(+), 9 deletions(-)

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

diff --git a/ext/tk/lib/tkvirtevent.rb b/ext/tk/lib/tkvirtevent.rb
index aa37d626e7..c594d4716f 100644
--- a/ext/tk/lib/tkvirtevent.rb
+++ b/ext/tk/lib/tkvirtevent.rb
@@ -7,15 +7,12 @@ require 'tk'
 class TkVirtualEvent<TkObject
   extend Tk
 
-  TkVirtualEventID = [0]
-  TkVirtualEventTBL = {}
+  TkCommandNames = ['event'.freeze].freeze
 
-  TkComm.__add_target_for_init__(self)
+  TkVirtualEventID = ["<VirtEvent".freeze, "00000", ">".freeze]
+  TkVirtualEventTBL = TkCore::INTERP.create_table
 
-  def self.__init_tables__
-    TkVirtualEventTBL.clear
-    TkVirtualEventID[0] = 0
-  end
+  TkCore::INTERP.init_ip_env{ TkVirtualEventTBL.clear }
 
   class PreDefVirtEvent<self
     def initialize(event)
@@ -44,8 +41,8 @@ class TkVirtualEvent<TkObject
   end
 
   def initialize(*sequences)
-    @path = @id = format("<VirtEvent%.4d>", TkVirtualEventID[0])
-    TkVirtualEventID[0] += 1
+    @path = @id = TkVirtualEventID.join
+    TkVirtualEventID[1].succ!
     add(*sequences)
   end
 
-- 
cgit v1.2.3