[mcclim-cvs] CVS mcclim/Apps/Listener

[rschlatte]

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)