class EXAMPLE0
   -- Signal example0
   -- This example shows the use of SIGNAL_0. This signal only means that an
   -- event occurred.

create {ANY}
   make

feature {}
   event: SIGNAL_0

   make
      do
         create event.make
         register
         io.put_string("Event occur for first time:%N")
         event.emit
         io.put_string("Event occur for second time:%N")
         event.emit
      end

   register
         -- In real examples, other objects will connect to the event so
         -- arbitrary functions of their choice may be executed when the
         -- event occur.
      do
         event.connect(agent io.put_string("Event occur...%N"))
         -- functions with arguments may be used too! Simply give their values.
         event.connect(agent foo)
      end

   foo
      do
         io.put_string(once "This function does what needs to be%
             % done for this event%N")
      end

end -- class EXAMPLE0