mirror of
https://github.com/ruby/ruby.git
synced 2022-11-09 12:17:21 -05:00
c4fdfabcc8
g -L frozen_string_literal ext/**/*.rb|xargs ruby -Ka -e'ARGV.each{|fn|puts
fn;open(fn,"r+"){|f|s=f.read.sub(/\A(#!.*\n)?(#.*coding.*\n)?/,"\\&#
frozen_string_literal: false\n");f.rewind;f.write s}}'
git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@53143 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
31 lines
958 B
Ruby
31 lines
958 B
Ruby
# frozen_string_literal: false
|
|
require 'tk'
|
|
|
|
TkMessage.new(:width=>400, :text=><<EOM).pack
|
|
This sample shows how to use Tk::EncodedString class. \
|
|
This reads 'iso2022-kr' text (from discription of \
|
|
Korean language environment of GNU Emacs 20.7.2) \
|
|
and inserts the text into the text widget.
|
|
EOM
|
|
|
|
t1 = TkText.new(:height=>5).pack
|
|
t2 = TkText.new(:height=>5).pack
|
|
t3 = TkText.new(:height=>5).pack
|
|
|
|
src_str = IO.readlines(File.join(File.dirname(__FILE__),'iso2022-kr.txt')).join
|
|
|
|
t1.insert('end',
|
|
"use neither Tk::EncodedString class nor Tk.encoding= method\n\n")
|
|
t1.insert('end', src_str)
|
|
|
|
enc_str = Tk::EncodedString(src_str, 'iso2022-kr')
|
|
t2.insert('end',
|
|
"use Tk::EncodedString class (Tk.encoding => '#{Tk.encoding}')\n\n")
|
|
t2.insert('end', enc_str)
|
|
|
|
Tk.encoding = 'iso2022-kr'
|
|
t3.insert('end', "use Tk.encoding = 'iso2022-kr' (Tk.force_default_encoding? == #{Tk.force_default_encoding?})\n\n")
|
|
|
|
t3.insert('end', src_str)
|
|
|
|
Tk.mainloop
|