ANY EVENT_CATCHER LOOP_ITEM LOOP_STACK NONE VISION
class interface EVENT_CATCHER
   -- EVENT_CATCHER is the JOB that handle graphic interface
   -- relative events. The event_catcher wait for such events and
   -- emit signal relative to this event. Previously registred
   -- procedure (via vision.*_connect) are executed.
   --
   -- For more information about JOB, see lib/sequencer and
   -- tutorial/sequencer directories.

feature(s) from JOB
   priority: INTEGER
      -- Never change priority after job inserted in loop_item.
      -- Priority should only be set at creation time.

feature(s) from EVENT_CATCHER
   emit_event (s: SENSITIVE; next_event: INTEGER)
      -- Emit signal relative to event next_event for widget s.

feature(s) from EVENT_CATCHER
   widget: HASHED_DICTIONARY[SENSITIVE, POINTER]


invariant

    priority /= Minimum_integer;

end of EVENT_CATCHER