[cvs-nhc98] patch applied (yhc): Added utility function mapping any event to constant value

Sun Jan 20 07:39:28 PST 2008 golubovsky@gmail.com * Added utility function mapping any event to constant value M ./src/translator/js/lib/haskell/Graphics/UI/HsWTK.hs +6