Update of /project/mcclim/cvsroot/mcclim/Apps/Listener In directory cl-net:/tmp/cvs-serv19217/Apps/Listener

Modified Files: listener.lisp Log Message: Change default text and prompt style to sans-serif, except for forms in the listener.

--- /project/mcclim/cvsroot/mcclim/Apps/Listener/listener.lisp 2008/02/15 09:48:41 1.43 +++ /project/mcclim/cvsroot/mcclim/Apps/Listener/listener.lisp 2008/12/07 20:24:44 1.44 @@ -140,12 +140,18 @@ (object (type empty-input) stream view &key &allow-other-keys) (princ "" stream))

+;;; Sneaky - we want to use :fix text for the command prompt, but +;;; use the default :sans-serif in accepting-values dialogs. Those +;;; are invokved by the :around method on r-f-c, so if we bind +;;; the text style here in the primary method, we're okay. + (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) (let ((*command-dispatchers* '(#,))) - (accept 'command-or-form :stream stream :prompt nil - :default "hello" :default-type 'empty-input)) + (with-text-style (stream (make-text-style :fix :roman :normal)) + (accept 'command-or-form :stream stream :prompt nil + :default "hello" :default-type 'empty-input))) (cond ((presentation-subtypep type 'empty-input) ;; Do nothing.