Gecko [ beriskala.com ]

Name	Size	Permission	Date
after.rb	127 B	-rw-r--r--	2023-07-26 18:01
autoload.rb	22.76 KB	-rw-r--r--	2023-07-26 18:01
bgerror.rb	667 B	-rw-r--r--	2023-07-26 18:01
bindtag.rb	2.67 KB	-rw-r--r--	2023-07-26 18:01
busy.rb	2.22 KB	-rw-r--r--	2023-07-26 18:01
button.rb	769 B	-rw-r--r--	2023-07-26 18:01
canvas.rb	22.82 KB	-rw-r--r--	2023-07-26 18:01
canvastag.rb	9.19 KB	-rw-r--r--	2023-07-26 18:01
checkbutton.rb	1001 B	-rw-r--r--	2023-07-26 18:01
clipboard.rb	1.64 KB	-rw-r--r--	2023-07-26 18:01
clock.rb	1.6 KB	-rw-r--r--	2023-07-26 18:01
composite.rb	11.87 KB	-rw-r--r--	2023-07-26 18:01
console.rb	1.27 KB	-rw-r--r--	2023-07-26 18:01
dialog.rb	8.9 KB	-rw-r--r--	2023-07-26 18:01
encodedstr.rb	4.55 KB	-rw-r--r--	2023-07-26 18:01
entry.rb	2.58 KB	-rw-r--r--	2023-07-26 18:01
event.rb	17.5 KB	-rw-r--r--	2023-07-26 18:01
font.rb	60.32 KB	-rw-r--r--	2023-07-26 18:01
fontchooser.rb	3.59 KB	-rw-r--r--	2023-07-26 18:01
frame.rb	3.45 KB	-rw-r--r--	2023-07-26 18:01
grid.rb	7.69 KB	-rw-r--r--	2023-07-26 18:01
image.rb	12.54 KB	-rw-r--r--	2023-07-26 18:01
itemconfig.rb	55.14 KB	-rw-r--r--	2023-07-26 18:01
itemfont.rb	9.29 KB	-rw-r--r--	2023-07-26 18:01
kinput.rb	1.56 KB	-rw-r--r--	2023-07-26 18:01
label.rb	609 B	-rw-r--r--	2023-07-26 18:01
labelframe.rb	1014 B	-rw-r--r--	2023-07-26 18:01
listbox.rb	7.82 KB	-rw-r--r--	2023-07-26 18:01
macpkg.rb	1.91 KB	-rw-r--r--	2023-07-26 18:01
menu.rb	20.04 KB	-rw-r--r--	2023-07-26 18:01
menubar.rb	4.08 KB	-rw-r--r--	2023-07-26 18:01
menuspec.rb	13.75 KB	-rw-r--r--	2023-07-26 18:01
message.rb	693 B	-rw-r--r--	2023-07-26 18:01
mngfocus.rb	672 B	-rw-r--r--	2023-07-26 18:01
msgcat.rb	8.46 KB	-rw-r--r--	2023-07-26 18:01
namespace.rb	14.34 KB	-rw-r--r--	2023-07-26 18:01
optiondb.rb	11.28 KB	-rw-r--r--	2023-07-26 18:01
optionobj.rb	4.87 KB	-rw-r--r--	2023-07-26 18:01
pack.rb	2.51 KB	-rw-r--r--	2023-07-26 18:01
package.rb	2.8 KB	-rw-r--r--	2023-07-26 18:01
palette.rb	1.13 KB	-rw-r--r--	2023-07-26 18:01
panedwindow.rb	7.76 KB	-rw-r--r--	2023-07-26 18:01
place.rb	3.86 KB	-rw-r--r--	2023-07-26 18:01
radiobutton.rb	1.98 KB	-rw-r--r--	2023-07-26 18:01
root.rb	2.04 KB	-rw-r--r--	2023-07-26 18:01
scale.rb	2.76 KB	-rw-r--r--	2023-07-26 18:01
scrollable.rb	1.74 KB	-rw-r--r--	2023-07-26 18:01
scrollbar.rb	4.66 KB	-rw-r--r--	2023-07-26 18:01
scrollbox.rb	1.13 KB	-rw-r--r--	2023-07-26 18:01
selection.rb	2.19 KB	-rw-r--r--	2023-07-26 18:01
spinbox.rb	3.04 KB	-rw-r--r--	2023-07-26 18:01
tagfont.rb	859 B	-rw-r--r--	2023-07-26 18:01
text.rb	45.64 KB	-rw-r--r--	2023-07-26 18:01
textimage.rb	2.22 KB	-rw-r--r--	2023-07-26 18:01
textmark.rb	4.91 KB	-rw-r--r--	2023-07-26 18:01
texttag.rb	7.76 KB	-rw-r--r--	2023-07-26 18:01
textwindow.rb	4.26 KB	-rw-r--r--	2023-07-26 18:01
timer.rb	14.46 KB	-rw-r--r--	2023-07-26 18:01
tk_mac.rb	3.68 KB	-rw-r--r--	2023-07-26 18:01
toplevel.rb	6.98 KB	-rw-r--r--	2023-07-26 18:01
ttk_selector.rb	2.98 KB	-rw-r--r--	2023-07-26 18:01
txtwin_abst.rb	785 B	-rw-r--r--	2023-07-26 18:01
validation.rb	9.61 KB	-rw-r--r--	2023-07-26 18:01
variable.rb	45.88 KB	-rw-r--r--	2023-07-26 18:01
virtevent.rb	3.51 KB	-rw-r--r--	2023-07-26 18:01
winfo.rb	8.36 KB	-rw-r--r--	2023-07-26 18:01
winpkg.rb	3.87 KB	-rw-r--r--	2023-07-26 18:01
wm.rb	14.83 KB	-rw-r--r--	2023-07-26 18:01
xim.rb	2.74 KB	-rw-r--r--	2023-07-26 18:01

Rename

#
# tk/encodedstr.rb : Tk::EncodedString class
#
require 'tk'

###########################################
#  string with Tcl's encoding
###########################################
module Tk
  class EncodedString < String
    Encoding = nil

def self.subst_utf_backslash(str)
      # str.gsub(/\\u([0-9A-Fa-f]{1,4})/){[$1.hex].pack('U')}
      TclTkLib._subst_UTF_backslash(str)
    end
    def self.utf_backslash(str)
      self.subst_utf_backslash(str)
    end

def self.subst_tk_backslash(str)
      TclTkLib._subst_Tcl_backslash(str)
    end

def self.utf_to_backslash_sequence(str)
      str.unpack('U*').collect{|c|
        if c <= 0xFF  # ascii character
          c.chr
        else
          format('\u%X', c)
        end
      }.join('')
    end
    def self.utf_to_backslash(str)
      self.utf_to_backslash_sequence(str)
    end

def self.to_backslash_sequence(str)
      str.unpack('U*').collect{|c|
        if c <= 0x1F  # control character
          case c
          when 0x07; '\a'
          when 0x08; '\b'
          when 0x09; '\t'
          when 0x0a; '\n'
          when 0x0b; '\v'
          when 0x0c; '\f'
          when 0x0d; '\r'
          else
            format('\x%02X', c)
          end
        elsif c <= 0xFF  # ascii character
          c.chr
        else
          format('\u%X', c)
        end
      }.join('')
    end

def self.new_with_utf_backslash(str, enc = nil)
      self.new('', enc).replace(self.subst_utf_backslash(str))
    end

def self.new_without_utf_backslash(str, enc = nil)
      self.new('', enc).replace(str)
    end

def initialize(str, enc = nil)
      super(str)
      # @encoding = ( enc ||
      #              ((self.class::Encoding)?
      #                  self.class::Encoding : Tk.encoding_system) )
      enc ||= (self.class::Encoding)?
                         self.class::Encoding :
                         ((Tk.encoding)? Tk.encoding : Tk.encoding_system)
      if TkCore::WITH_ENCODING
        unless encobj = Tk::Encoding::ENCODING_TABLE.get_obj(enc)
          fail ArgumentError, "unsupported Tk encoding '#{enc}'"
        end
        self.force_encoding(encobj)
      else
        @encoding = enc
      end
    end

if TkCore::WITH_ENCODING
      alias encoding_obj encoding
      alias __encoding   encoding
      def encoding
        Tk::Encoding::ENCODING_TABLE.get_name(super())
      end
    else
      def encoding
        @encoding
      end
      alias encoding_obj encoding
    end

if TkCore::WITH_ENCODING
      # wrapper methods for compatibility
      alias __instance_variable_get instance_variable_get
      alias __instance_variable_set instance_variable_set
      alias __instance_eval         instance_eval
      alias __instance_variables    instance_variables

def instance_variable_get(key)
        if (key.to_s == '@encoding')
          self.encoding
        else
          super(key)
        end
      end

def instance_variable_set(key, value)
        if (key.to_s == '@encoding')
          if value
            self.force_encoding(value)
          else
            self.force_encoding(Tk::Encoding::UNKNOWN)
          end
          value
        else
          super(key, value)
        end
      end

def instance_eval(*args, &b)
        old_enc = @encoding = self.encoding

ret = super(*args, &b)

if @encoding
          if @encoding != old_enc
            # modified by user
            self.force_encoding(@encoding)
          end
          remove_instance_variable(:@encoding)
        else
          begin
            remove_instance_variable(:@encoding)
            # user sets to nil -> use current default
            self.force_encoding(Tk.encoding)
          rescue NameError
            # removed by user -> ignore, because user don't use @encoding
          end
        end
        ret
      end
    end

def instance_variables
      ret = super()
      ret << :@encoding  # fake !!
      ret
    end
  end
  # def Tk.EncodedString(str, enc = nil)
  #   Tk::EncodedString.new(str, enc)
  # end

##################################

class BinaryString < EncodedString
    Encoding = 'binary'.freeze
  end
  # def Tk.BinaryString(str)
  #   Tk::BinaryString.new(str)
  # end

##################################

class UTF8_String < EncodedString
    Encoding = 'utf-8'.freeze
    def self.new(str)
      super(self.subst_utf_backslash(str))
    end

def to_backslash_sequence
      Tk::EncodedString.utf_to_backslash_sequence(self)
    end
    alias to_backslash to_backslash_sequence
  end
  # def Tk.UTF8_String(str)
  #   Tk::UTF8_String.new(str)
  # end

end