[mcclim-cvs] CVS mcclim/ESA - mcclim-cvs@common-lisp.net - mailman3.common-lisp.net

28 Jan 2008

Update of /project/mcclim/cvsroot/mcclim/ESA
In directory clnet:/tmp/cvs-serv23946/ESA
Modified Files:
    esa.lisp packages.lisp 
Log Message:
Export some ESA commands.

--- /project/mcclim/cvsroot/mcclim/ESA/esa.lisp	2008/01/27 22:24:07	1.16
+++ /project/mcclim/cvsroot/mcclim/ESA/esa.lisp	2008/01/28 17:03:28	1.17
@@ -733,11 +733,10 @@
          (setq command (list command)))       
        (when (member *unsupplied-argument-marker* command :test #'eq)
          (setq command
-               (funcall 
+               (funcall
                 *partial-command-parser*
-                (frame-command-table command-processor)
-                (frame-standard-input command-processor)
-                command 0)))
+                (command-table command-processor)
+                *standard-input* command 0)))
        (funcall (command-executor command-processor)
                 command-processor command)))))
--- /project/mcclim/cvsroot/mcclim/ESA/packages.lisp	2008/01/20 19:50:21	1.13
+++ /project/mcclim/cvsroot/mcclim/ESA/packages.lisp	2008/01/28 17:03:29	1.14
@@ -80,8 +80,6 @@
            #:*extended-command-prompt*
            #:define-esa-top-level #:esa-top-level #:simple-command-loop
            #:convert-to-gesture #:gesture-name
-           #:global-esa-table #:keyboard-macro-table
-           #:help-table
       #:invoke-with-help-stream #:with-help-stream
            #:set-key
            #:find-applicable-command-table
@@ -90,7 +88,23 @@
#:gesture-matches-gesture-name-p #:meta-digit
            #:proper-gesture-p
-           #:universal-argument #:meta-minus))
+           #:universal-argument #:meta-minus
+
+           ;; General commands
+           #:global-esa-table
+           #:com-quit #:com-extended-command
+
+           ;; Help commands
+           #:help-table
+           #:com-describe-key-briefly #:com-where-is
+           #:com-describe-bindings
+           #:com-describe-key #:com-describe-command
+           #:com-apropos-command
+
+           ;; Keyboard macro commands
+           #:keyboard-macro-table
+           #:com-start-macro #:com-end-macro
+           #:com-call-last-macro))
(defpackage :esa-buffer
   (:use :clim-lisp :clim :esa :esa-utils)
@@ -111,7 +125,10 @@
            #:frame-write-buffer #:write-buffer
            #:buffer-writing-error #:buffer #:filepath
            #:filepath-is-directory
-           #:esa-io-table))
+           #:esa-io-table
+           #:com-find-file #:com-find-file-read-only
+           #:com-read-only #:com-set-visited-file-name
+           #:com-save-buffer #:com-write-buffer))
#-(or mcclim building-mcclim)
 (defpackage :clim-extensions

    