Event -> Event_type
Merge branch 'master' of github.com:xwat/tcl-eiffel