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

1 files changed, 7 insertions, 3 deletions

diff --git a/ext/tk/lib/tkafter.rb b/ext/tk/lib/tkafter.rb
index a75ad5a237..fec93a6a04 100644
--- a/ext/tk/lib/tkafter.rb
+++ b/ext/tk/lib/tkafter.rb
@@ -12,15 +12,19 @@ class TkTimer
   Tk_CBID = [0]
   Tk_CBTBL = {}
 
-  TkComm::INITIALIZE_TARGETS << self
+  # this constant must be defined befor calling __add_target_for_init__
+  TkINTERP_SETUP_SCRIPTS = [
+    ["proc", "rb_after", "id", 
+      "ruby [format \"#{self.name}.callback %%Q!%s!\" $id]"]
+  ]
+
+  TkComm.__add_target_for_init__(self)
 
   def self.__init_tables__
     # cannot clear
     # Tcl interpreter may keep callbacks
   end
 
-  INTERP._invoke("proc", "rb_after", "id", 
-                 "ruby [format \"#{self.name}.callback %%Q!%s!\" $id]")
 
   ###############################
   # class methods