[mcclim-cvs] CVS mcclim/Apps/Listener

[ahefner]

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))