[cvs-nhc98] patch applied (yhc): More HsWTK code moved from demos