Program Frameworks question

[mw06%centauri@gte.com (Mark Weissman)]

Hello,

	I'm trying to write a program framework where the interactor
works like a lisp listener.  The manual (rel8.0 Book 10 P103) suggests
that all I need to do is tell dw:default-command-top-level to use
:dispatch-mode of form preferred.  This does not seem to do it for me.
Anyone know what I'm doing wrong?  Below is the program framework
defined by Frame-Up except for the :top-level option which looks like
in the reference.

Thanks 
Mark Weissman
weissman@gte.com

(DW:DEFINE-PROGRAM-FRAMEWORK TEST
  :top-level (dw:default-command-top-level :dispatch-mode :form-preferred)
  :select-key #\Square
  :COMMAND-DEFINER
  T
  :COMMAND-TABLE
  (:INHERIT-FROM '("colon full command" "standard arguments" "input editor compatibility")
   :KBD-ACCELERATOR-P 'T)
  :STATE-VARIABLES
  NIL
  :PANES
  ((TITLE-1 :TITLE :HEIGHT-IN-LINES 1 :REDISPLAY-AFTER-COMMANDS NIL)
   (COMMAND-MENU-1 :COMMAND-MENU :MENU-LEVEL :TOP-LEVEL) (PANE-1 :DISPLAY)
   (INTERACTOR-1 :INTERACTOR :HEIGHT-IN-LINES 4))
  :CONFIGURATIONS
  '((DW::MAIN (:LAYOUT (DW::MAIN :COLUMN TITLE-1 COMMAND-MENU-1 PANE-1 INTERACTOR-1))
     (:SIZES
      (DW::MAIN (TITLE-1 1 :LINES)
       (COMMAND-MENU-1 :ASK-WINDOW SELF :SIZE-FOR-PANE COMMAND-MENU-1) (INTERACTOR-1 4 :LINES)
       :THEN (PANE-1 :EVEN))))))