From e8ab40d239baa5a473e81731c828f2c75dfcb06d Mon Sep 17 00:00:00 2001
From: nagai <nagai@b2dd03c8-39d4-4d8f-98ff-823fe69b080e>
Date: Sat, 21 Jun 2003 08:47:22 +0000
Subject: Ruby/Tk libraries except tk.rb :   * remove direct-accesses to a
 TkComm::INTERP   * remove direct-accesses to a TkComm::INITIALIZE_TARGETS   *
 use TkINTERP_SETUP_SCRIPTS constant for setting up the interpreter

tcltklib.c :
  * support to create a safe interpreter with safe-Tk ( Tk8.x )
    you can test it by the following
    ---------------------------------------------
    require 'tk'
    safeip = Tk::INTERP._eval('::safe::interpCreate')
    Tk::INTERP._eval('::safe::loadTk ' + safeip)
    Tk::INTERP._eval(safeip + ' eval button .b -text SlaveIP -command exit')
    Tk::INTERP._eval(safeip + ' eval pack .b')
    Tk.mainloop
    ---------------------------------------------


git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@3971 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
---
 ext/tk/lib/tkvirtevent.rb | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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

diff --git a/ext/tk/lib/tkvirtevent.rb b/ext/tk/lib/tkvirtevent.rb
index e87be340af..aa37d626e7 100644
--- a/ext/tk/lib/tkvirtevent.rb
+++ b/ext/tk/lib/tkvirtevent.rb
@@ -10,7 +10,7 @@ class TkVirtualEvent<TkObject
   TkVirtualEventID = [0]
   TkVirtualEventTBL = {}
 
-  TkComm::INITIALIZE_TARGETS << self
+  TkComm.__add_target_for_init__(self)
 
   def self.__init_tables__
     TkVirtualEventTBL.clear
-- 
cgit v1.2.3