Update of /project/mcclim/cvsroot/mcclim/Apps/Listener In directory clnet:/tmp/cvs-serv5452
Modified Files: listener.lisp Log Message: Veto'd!
--- /project/mcclim/cvsroot/mcclim/Apps/Listener/listener.lisp 2008/02/03 10:20:04 1.41 +++ /project/mcclim/cvsroot/mcclim/Apps/Listener/listener.lisp 2008/02/03 19:07:51 1.42 @@ -143,8 +143,9 @@ "Specialized for the listener, read a lisp form to eval, or a command." (multiple-value-bind (object type) (let ((*command-dispatchers* '(#,))) - (accept 'command-or-form :stream stream :prompt nil :default "hello" :default-type 'empty-input)) - (cond + (accept 'command-or-form :stream stream :prompt nil + :default "hello" :default-type 'empty-input)) + (cond ((presentation-subtypep type 'empty-input) ;; Do nothing. `(com-eval (values))) @@ -153,19 +154,9 @@
(defun print-listener-prompt (stream frame) (declare (ignore frame)) - (with-text-face (stream :italic) - (let* ((text-style-width (text-style-width (medium-default-text-style stream) stream)) - (arrow-width (* 2 text-style-width)) - (prompt-height - (bounding-rectangle-height - (with-output-as-presentation (stream *package* 'package :single-box t) - (print-package-name stream))))) - (multiple-value-bind (x y) (stream-cursor-position stream) - (draw-arrow* stream x (+ y (/ prompt-height 2)) - (+ x arrow-width) (+ y (/ prompt-height 2)) - :head-length (/ text-style-width 2) - :head-width (floor (/ prompt-height 2)))) - (stream-increment-cursor-position stream (+ arrow-width text-style-width) 0)))) + (with-output-as-presentation (stream *package* 'package :single-box t) + (print-package-name stream)) + (princ "> " stream))
(defmethod frame-standard-output ((frame listener)) (get-frame-pane frame 'interactor))