Mathematica 6 lets you symbolically define the operation of user interface controls, then interactively draw out the active user interface.