         [%ClientSize form] [%ClientSize control]
          [%Text form] "RDNZL Apropos Demo"
          [%Text [$title control]]
            (format nil "RDNZL Apropos Demo (~A)"
                    (lisp-implementation-type)))
    [+KeyPress [$textBox control]
               (new "KeyPressEventHandler" #'fill-list-box)]
    [Add [%Controls form] control]
    [Application.Run form]))

(<a class=noborder href="#disable-rdnzl-syntax">disable-rdnzl-syntax</a>)
</pre>

and evaluate <code>(RUN-APROPOS-FORM)</cod