From e8ab40d239baa5a473e81731c828f2c75dfcb06d Mon Sep 17 00:00:00 2001 From: nagai 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/tkdialog.rb | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'ext/tk/lib/tkdialog.rb') diff --git a/ext/tk/lib/tkdialog.rb b/ext/tk/lib/tkdialog.rb index 31d50fc67b..fd6e041576 100644 --- a/ext/tk/lib/tkdialog.rb +++ b/ext/tk/lib/tkdialog.rb @@ -143,10 +143,10 @@ class TkDialog2 < TkWindow default_button = @default_button end default_button = '{}' if default_button == nil - INTERP._eval('eval {global '+@var.id+';'+@config+ - 'set '+@var.id+' [tk_dialog '+ - @path+" "+@title+" {#{@message}} "+@bitmap+" "+ - String(default_button)+" "+@buttons.join(' ')+']}') + Tk.ip_eval('eval {global '+@var.id+';'+@config+ + 'set '+@var.id+' [tk_dialog '+ + @path+" "+@title+" {#{@message}} "+@bitmap+" "+ + String(default_button)+" "+@buttons.join(' ')+']}') end def value -- cgit v1.2.1