diff options
author | nagai <nagai@b2dd03c8-39d4-4d8f-98ff-823fe69b080e> | 2003-06-21 08:47:22 +0000 |
---|---|---|
committer | nagai <nagai@b2dd03c8-39d4-4d8f-98ff-823fe69b080e> | 2003-06-21 08:47:22 +0000 |
commit | e8ab40d239baa5a473e81731c828f2c75dfcb06d (patch) | |
tree | 86e65b94768a344fbb17971258fb32146c7cca44 /ext/tk/lib/tkcanvas.rb | |
parent | aa49df66ae0f39d9480cc20d19d7225b762296a0 (diff) |
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
Diffstat (limited to 'ext/tk/lib/tkcanvas.rb')
-rw-r--r-- | ext/tk/lib/tkcanvas.rb | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/ext/tk/lib/tkcanvas.rb b/ext/tk/lib/tkcanvas.rb index ef6b54c876..8c5b610f18 100644 --- a/ext/tk/lib/tkcanvas.rb +++ b/ext/tk/lib/tkcanvas.rb @@ -521,7 +521,7 @@ class TkcTag<TkObject CTagID_TBL = {} Tk_CanvasTag_ID = ['ctag0000'] - TkComm::INITIALIZE_TARGETS << self + TkComm.__add_target_for_init__(self) def self.__init_tables__ CTagID_TBL.clear @@ -690,7 +690,7 @@ class TkcItem<TkObject CItemTypeToClass = {} CItemID_TBL = {} - TkComm::INITIALIZE_TARGETS << self + TkComm.__add_target_for_init__(self) def self.__init_tables__ CItemID_TBL.clear @@ -822,7 +822,7 @@ class TkImage<TkObject Tk_IMGTBL = {} Tk_Image_ID = ['i00000'] - TkComm::INITIALIZE_TARGETS << self + TkComm.__add_target_for_init__(self) def self.__init_tables__ Tk_IMGTBL.clear |