# File tk/lib/tk/virtevent.rb, line 25
def self.new(event, *sequences)
if event =~ /^<(<.*>)>$/
event = $1
elsif event !~ /^<.*>$/
event = '<' + event + '>'
end
TkVirtualEvent::TkVirtualEventTBL.mutex.synchronize{
if TkVirtualEvent::TkVirtualEventTBL.has_key?(event)
TkVirtualEvent::TkVirtualEventTBL[event]
else
# super(event, *sequences)
(obj = self.allocate).instance_eval{
initialize(event, *sequences)
TkVirtualEvent::TkVirtualEventTBL[@id] = self
}
end
}
end