# 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