mirror of
https://github.com/ruby/ruby.git
synced 2022-11-09 12:17:21 -05:00
75362fbd47
versions of Tck/Tk * (bug fix) initialize error of instance variable on TkComposite * (bug fix) initialize error on encoding-system on MultiTkIp * (bug fix) trouble on destroying widgets * (new) add JP and EN version of Ruby/Tk widget demos git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@4249 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
42 lines
656 B
Ruby
42 lines
656 B
Ruby
# -*- ruby -*-
|
|
#
|
|
# tkencoding.rb
|
|
# written by ttate@jaist.ac.jp
|
|
|
|
class TclTkIp
|
|
alias __eval _eval
|
|
alias __invoke _invoke
|
|
private :__eval
|
|
private :__invoke
|
|
|
|
attr_accessor :encoding
|
|
|
|
def _eval(cmd)
|
|
if( @encoding )
|
|
_fromUTF8(__eval(_toUTF8(cmd,@encoding)),@encoding)
|
|
else
|
|
__eval(cmd)
|
|
end
|
|
end
|
|
|
|
def _invoke(*cmds)
|
|
if( @encoding )
|
|
cmds = cmds.collect{|cmd| _toUTF8(cmd,@encoding)}
|
|
_fromUTF8(__invoke(*cmds),@encoding)
|
|
else
|
|
__invoke(*cmds)
|
|
end
|
|
end
|
|
end
|
|
|
|
module Tk
|
|
INTERP = TkCore::INTERP
|
|
|
|
def encoding=(name)
|
|
INTERP.encoding = name
|
|
end
|
|
|
|
def encoding
|
|
INTERP.encoding
|
|
end
|
|
end
|