[mcclim-cvs] CVS mcclim/Apps/Listener

[crhodes]

Update of /project/mcclim/cvsroot/mcclim/Apps/Listener
In directory clnet:/tmp/cvs-serv10142

Modified Files:
	listener.lisp 
Log Message:
Restore +listener-view+ and +listener-pointer-documentation-view+ to the
relevant listener panes.


--- /project/mcclim/cvsroot/mcclim/Apps/Listener/listener.lisp	2006/12/03 22:56:46	1.31
+++ /project/mcclim/cvsroot/mcclim/Apps/Listener/listener.lisp	2007/01/04 09:20:58	1.32
@@ -181,8 +181,9 @@
   (:panes (interactor-container
            (make-clim-stream-pane
             :type 'listener-interactor-pane
-            :name 'interactor :scroll-bars t))
-          (doc :pointer-documentation)
+            :name 'interactor :scroll-bars t
+            :default-view +listener-view+))
+          (doc :pointer-documentation :default-view +listener-pointer-documentation-view+)
           (wholine (make-pane 'wholine-pane
                      :display-function 'display-wholine :scroll-bars nil
                      :display-time :command-loop :end-of-line-action :allow)))
@@ -229,8 +230,8 @@
 (defmethod read-frame-command ((frame listener) &key (stream *standard-input*))  
   "Specialized for the listener, read a lisp form to eval, or a command."
   (multiple-value-bind (object type)
-      (accept 'command-or-form :stream stream :prompt nil)
-    (format *trace-output* "~&object=~W~%" object)
+      (let ((*command-dispatchers* '(#\,)))
+        (accept 'command-or-form :stream stream :prompt nil))
     (if (presentation-subtypep type 'command)
         object
         `(com-eval ,object))))