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

Modified Files: README TODO listener.lisp Log Message: Use clim-user as default package in new listener.

Document current prompting behaviour in README

--- /project/mcclim/cvsroot/mcclim/Apps/Listener/README 2005/05/12 01:37:20 1.5 +++ /project/mcclim/cvsroot/mcclim/Apps/Listener/README 2008/02/15 09:48:37 1.6 @@ -49,13 +49,10 @@ Usage -----

-After starting the listener, a typical lisp prompt will be displayed, with -the package name preceding the prompt. You may type lisp forms or commands to -this prompt. The listener will treat alphabetical characters as beginning a -command name, and most other characters as the beginning of a lisp form. If for -some reason you had a special variable with a name such as FOO which would be -interpreted as a command, you can use a comma before the variable name as an -escape character. +After starting the listener, a typical lisp prompt will be displayed, with the +package name preceding the prompt. You may type lisp forms or commands to this +prompt. The , (comma) character starts a command, every other input will be +treated by the listener as a form to be evaluated.

At the bottom of the window is a wholine which shows various things such as the username/hostname, package, current directory (*default-pathname-defaults*), --- /project/mcclim/cvsroot/mcclim/Apps/Listener/TODO 2005/05/12 01:37:20 1.2 +++ /project/mcclim/cvsroot/mcclim/Apps/Listener/TODO 2008/02/15 09:48:41 1.3 @@ -14,7 +14,6 @@ to distinguish between subtypes in methods. - Flesh out icons - support multiple sizes in separate subdirectories of icons/ - Implement sorting and other options to Show Directory - - Do something about Edit File and Show File - Copy File, Delete File, etc. - Debugger integration

--- /project/mcclim/cvsroot/mcclim/Apps/Listener/listener.lisp 2008/02/03 19:07:51 1.42 +++ /project/mcclim/cvsroot/mcclim/Apps/Listener/listener.lisp 2008/02/15 09:48:41 1.43 @@ -71,6 +71,7 @@ (defmethod stream-present :around ((stream listener-interactor-pane) object type &rest args &key (single-box nil sbp) &allow-other-keys) + (declare (ignore single-box sbp)) (apply #'call-next-method stream object type :single-box t args) ;; we would do this, but CLIM:PRESENT calls STREAM-PRESENT with all ;; the keyword arguments explicitly. *sigh*. @@ -166,15 +167,17 @@ (height 550) port frame-manager - (process-name "Listener")) + (process-name "Listener") + (package :clim-user)) (let* ((fm (or frame-manager (find-frame-manager :port (or port (find-port))))) (frame (make-application-frame 'listener :frame-manager fm :width width :height height))) (flet ((run () - (unwind-protect (run-frame-top-level frame) - (disown-frame fm frame)))) + (let ((*package* (find-package package))) + (unwind-protect (run-frame-top-level frame) + (disown-frame fm frame))))) (if new-process (values (clim-sys:make-process #'run :name process-name) frame)