Gecko [ beriskala.com ]

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

Rename

#
# tk/textwindow.rb - treat Tk text window object
#
require 'tk'
require 'tk/text'

class TkTextWindow<TkObject
  include Tk::Text::IndexModMethods

def initialize(parent, index, keys = {})
    #unless parent.kind_of?(Tk::Text)
    #  fail ArgumentError, "expect Tk::Text for 1st argument"
    #end
    @t = parent
    if index == 'end' || index == :end
      @path = TkTextMark.new(@t, tk_call_without_enc(@t.path, 'index',
                                                     'end - 1 chars'))
    elsif index.kind_of?(TkTextMark)
      if tk_call_without_enc(@t.path,'index',index.path) == tk_call_without_enc(@t.path,'index','end')
        @path = TkTextMark.new(@t, tk_call_without_enc(@t.path, 'index',
                                                       'end - 1 chars'))
      else
        @path = TkTextMark.new(@t, tk_call_without_enc(@t.path, 'index',
                                                       index.path))
      end
    else
      @path = TkTextMark.new(@t, tk_call_without_enc(@t.path, 'index', _get_eval_enc_str(index)))
    end
    @path.gravity = 'left'
    @index = @path.path
    keys = _symbolkey2str(keys)
    @id = keys['window']
    # keys['window'] = @id.epath if @id.kind_of?(TkWindow)
    keys['window'] = _epath(@id) if @id
    if keys['create']
      @p_create = keys['create']
      # if @p_create.kind_of?(Proc)
      if TkComm._callback_entry?(@p_create)
=begin
        keys['create'] = install_cmd(proc{
                                       @id = @p_create.call
                                       if @id.kind_of?(TkWindow)
                                         @id.epath
                                       else
                                         @id
                                       end
                                     })
=end
        keys['create'] = install_cmd(proc{@id = @p_create.call; _epath(@id)})
      end
    end
    tk_call_without_enc(@t.path, 'window', 'create', @index,
                        *hash_kv(keys, true))
    @path.gravity = 'right'
  end

def id
    Tk::Text::IndexString.new(_epath(@id))
  end
  def mark
    @path
  end

def [](slot)
    cget(slot)
  end
  def []=(slot, value)
    configure(slot, value)
    value
  end

def cget(slot)
    @t.window_cget(@index, slot)
  end
  def cget_strict(slot)
    @t.window_cget_strict(@index, slot)
  end

def configure(slot, value=None)
    if slot.kind_of?(Hash)
      slot = _symbolkey2str(slot)
      if slot['window']
        @id = slot['window']
        # slot['window'] = @id.epath if @id.kind_of?(TkWindow)
        slot['window'] = _epath(@id) if @id
      end
      if slot['create']
        self.create=slot.delete('create')
      end
      if slot.size > 0
        tk_call_without_enc(@t.path, 'window', 'configure', @index,
                            *hash_kv(slot, true))
      end
    else
      if slot == 'window' || slot == :window
        @id = value
        # value = @id.epath if @id.kind_of?(TkWindow)
        value = _epath(@id) if @id
      end
      if slot == 'create' || slot == :create
        self.create=value
      else
        tk_call_without_enc(@t.path, 'window', 'configure', @index,
                            "-#{slot}", _get_eval_enc_str(value))
      end
    end
    self
  end

def configinfo(slot = nil)
    @t.window_configinfo(@index, slot)
  end

def current_configinfo(slot = nil)
    @t.current_window_configinfo(@index, slot)
  end

def window
    @id
  end

def window=(value)
    @id = value
    # value = @id.epath if @id.kind_of?(TkWindow)
    value = _epath(@id) if @id
    tk_call_without_enc(@t.path, 'window', 'configure', @index,
                        '-window', _get_eval_enc_str(value))
    value
  end

def create
    @p_create
  end

def create=(value)
    @p_create = value
    # if @p_create.kind_of?(Proc)
    if TkComm._callback_entry?(@p_create)
      value = install_cmd(proc{
                            @id = @p_create.call
                            if @id.kind_of?(TkWindow)
                              @id.epath
                            else
                              @id
                            end
                          })
    end
    tk_call_without_enc(@t.path, 'window', 'configure', @index,
                        '-create', _get_eval_enc_str(value))
    value
  end
end

TktWindow = TkTextWindow