mirror of
https://github.com/ruby/ruby.git
synced 2022-11-09 12:17:21 -05:00
fd46a1da0a
configure.in : add --enable-setreuid option
tcltklib.c : TclTkIp.new accepts 'ip-name' and 'options'
( e.g. TclTkIp.new('FOO', '-geometry 500x200 -use 0x2200009') )
tk.rb : support arguments of TclTkIp.new
( see TkCore::IP_NAME, TkCore::IP_OPTS )
tk*.rb : preparations for multi-Tk interpreter support
git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@4127 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
85 lines
1.9 KiB
Ruby
85 lines
1.9 KiB
Ruby
#
|
|
# tkvirtevent.rb : treats virtual events
|
|
# 1998/07/16 by Hidetoshi Nagai <nagai@ai.kyutech.ac.jp>
|
|
#
|
|
require 'tk'
|
|
|
|
class TkVirtualEvent<TkObject
|
|
extend Tk
|
|
|
|
TkCommandNames = ['event'.freeze].freeze
|
|
|
|
TkVirtualEventID = ["<VirtEvent".freeze, "00000", ">".freeze]
|
|
TkVirtualEventTBL = TkCore::INTERP.create_table
|
|
|
|
TkCore::INTERP.init_ip_env{ TkVirtualEventTBL.clear }
|
|
|
|
class PreDefVirtEvent<self
|
|
def initialize(event)
|
|
@path = @id = event
|
|
TkVirtualEvent::TkVirtualEventTBL[@id] = self
|
|
end
|
|
end
|
|
|
|
def TkVirtualEvent.getobj(event)
|
|
obj = TkVirtualEventTBL[event]
|
|
if obj
|
|
obj
|
|
else
|
|
if tk_call('event', 'info').index("<#{event}>")
|
|
PreDefVirtEvent.new(event)
|
|
else
|
|
fail ArgumentError, "undefined virtual event '<#{event}>'"
|
|
end
|
|
end
|
|
end
|
|
|
|
def TkVirtualEvent.info
|
|
tk_call('event', 'info').split(/\s+/).collect!{|seq|
|
|
TkVirtualEvent.getobj(seq[1..-2])
|
|
}
|
|
end
|
|
|
|
def initialize(*sequences)
|
|
@path = @id = TkVirtualEventID.join
|
|
TkVirtualEventID[1].succ!
|
|
add(*sequences)
|
|
end
|
|
|
|
def add(*sequences)
|
|
if sequences != []
|
|
tk_call('event', 'add', "<#{@id}>",
|
|
*(sequences.collect{|seq| "<#{tk_event_sequence(seq)}>"}) )
|
|
TkVirtualEventTBL[@id] = self
|
|
end
|
|
self
|
|
end
|
|
|
|
def delete(*sequences)
|
|
if sequences == []
|
|
tk_call('event', 'delete', "<#{@id}>")
|
|
TkVirtualEventTBL.delete(@id)
|
|
else
|
|
tk_call('event', 'delete', "<#{@id}>",
|
|
*(sequences.collect{|seq| "<#{tk_event_sequence(seq)}>"}) )
|
|
TkVirtualEventTBL.delete(@id) if info == []
|
|
end
|
|
self
|
|
end
|
|
|
|
def info
|
|
tk_call('event', 'info', "<#{@id}>").split(/\s+/).collect!{|seq|
|
|
l = seq.scan(/<*[^<>]+>*/).collect!{|subseq|
|
|
case (subseq)
|
|
when /^<<[^<>]+>>$/
|
|
TkVirtualEvent.getobj(subseq[1..-2])
|
|
when /^<[^<>]+>$/
|
|
subseq[1..-2]
|
|
else
|
|
subseq.split('')
|
|
end
|
|
}.flatten
|
|
(l.size == 1) ? l[0] : l
|
|
}
|
|
end
|
|
end
|