mirror of
https://github.com/ruby/ruby.git
synced 2022-11-09 12:17:21 -05:00
56761e29f6
* ext/tk/lib/tk.rb, ext/tk/lib/tk/*.rb : replace obj.send() -> obj.__send__()
* ext/tk/lib/remote-tk.rb: add a new library which create an object to
control a Tk interpreter on the other process
git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@6384 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
127 lines
3 KiB
Ruby
127 lines
3 KiB
Ruby
#
|
|
# tk/textmark.rb - methods for treating text marks
|
|
#
|
|
require 'tk'
|
|
require 'tk/text'
|
|
|
|
class TkTextMark<TkObject
|
|
TMarkID_TBL = TkCore::INTERP.create_table
|
|
Tk_TextMark_ID = ['mark'.freeze, '00000'.taint].freeze
|
|
|
|
TkCore::INTERP.init_ip_env{ TMarkID_TBL.clear }
|
|
|
|
def TkTextMark.id2obj(text, id)
|
|
tpath = text.path
|
|
return id unless TMarkID_TBL[tpath]
|
|
TMarkID_TBL[tpath][id]? TMarkID_TBL[tpath][id]: id
|
|
end
|
|
|
|
def initialize(parent, index)
|
|
unless parent.kind_of?(TkText)
|
|
fail ArguemntError, "expect TkText for 1st argument"
|
|
end
|
|
@parent = @t = parent
|
|
@tpath = parent.path
|
|
# @path = @id = Tk_TextMark_ID.join('')
|
|
@path = @id = Tk_TextMark_ID.join(TkCore::INTERP._ip_id_)
|
|
TMarkID_TBL[@id] = self
|
|
TMarkID_TBL[@tpath] = {} unless TMarkID_TBL[@tpath]
|
|
TMarkID_TBL[@tpath][@id] = self
|
|
Tk_TextMark_ID[1].succ!
|
|
tk_call_without_enc(@t.path, 'mark', 'set', @id,
|
|
_get_eval_enc_str(index))
|
|
@t._addtag id, self
|
|
end
|
|
|
|
def id
|
|
@id
|
|
end
|
|
|
|
def +(mod)
|
|
@id + ' + ' + mod
|
|
end
|
|
def -(mod)
|
|
@id + ' - ' + mod
|
|
end
|
|
|
|
def set(where)
|
|
tk_call_without_enc(@t.path, 'mark', 'set', @id,
|
|
_get_eval_enc_str(where))
|
|
self
|
|
end
|
|
|
|
def unset
|
|
tk_call_without_enc(@t.path, 'mark', 'unset', @id)
|
|
self
|
|
end
|
|
alias destroy unset
|
|
|
|
def gravity
|
|
tk_call_without_enc(@t.path, 'mark', 'gravity', @id)
|
|
end
|
|
|
|
def gravity=(direction)
|
|
tk_call_without_enc(@t.path, 'mark', 'gravity', @id, direction)
|
|
#self
|
|
direction
|
|
end
|
|
|
|
def next(index = nil)
|
|
if index
|
|
@t.tagid2obj(_fromUTF8(tk_call_without_enc(@t.path, 'mark', 'next', _get_eval_enc_str(index))))
|
|
else
|
|
@t.tagid2obj(_fromUTF8(tk_call_without_enc(@t.path, 'mark', 'next', @id)))
|
|
end
|
|
end
|
|
|
|
def previous(index = nil)
|
|
if index
|
|
@t.tagid2obj(_fromUTF8(tk_call_without_enc(@t.path, 'mark', 'previous', _get_eval_enc_str(index))))
|
|
else
|
|
@t.tagid2obj(_fromUTF8(tk_call_without_enc(@t.path, 'mark', 'previous', @id)))
|
|
end
|
|
end
|
|
end
|
|
|
|
class TkTextNamedMark<TkTextMark
|
|
def self.new(parent, name, *args)
|
|
if TMarkID_TBL[parent.path] && TMarkID_TBL[parent.path][name]
|
|
return TMarkID_TBL[parent.path][name]
|
|
else
|
|
super(parent, name, *args)
|
|
end
|
|
end
|
|
|
|
def initialize(parent, name, index=nil)
|
|
unless parent.kind_of?(TkText)
|
|
fail ArguemntError, "expect TkText for 1st argument"
|
|
end
|
|
@parent = @t = parent
|
|
@tpath = parent.path
|
|
@path = @id = name
|
|
TMarkID_TBL[@id] = self
|
|
TMarkID_TBL[@tpath] = {} unless TMarkID_TBL[@tpath]
|
|
TMarkID_TBL[@tpath][@id] = self unless TMarkID_TBL[@tpath][@id]
|
|
tk_call_without_enc(@t.path, 'mark', 'set', @id,
|
|
_get_eval_enc_str(index)) if index
|
|
@t._addtag id, self
|
|
end
|
|
end
|
|
|
|
class TkTextMarkInsert<TkTextNamedMark
|
|
def self.new(parent,*args)
|
|
super(parent, 'insert', *args)
|
|
end
|
|
end
|
|
|
|
class TkTextMarkCurrent<TkTextMark
|
|
def self.new(parent,*args)
|
|
super(parent, 'current', *args)
|
|
end
|
|
end
|
|
|
|
class TkTextMarkAnchor<TkTextMark
|
|
def self.new(parent,*args)
|
|
super(parent, 'anchor', *args)
|
|
end
|
|
end
|