[cvs-nhc98] patch applied (yhc): Moved almost all code from HsWTK demo to the HsWTK module