/[climacs]/climacs/gui.lisp
ViewVC logotype

Diff of /climacs/gui.lisp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.166 by rstrandh, Tue Jul 26 05:28:39 2005 UTC revision 1.167 by dmurray, Thu Jul 28 20:36:36 2005 UTC
# Line 52  Line 52 
52  (define-application-frame climacs (standard-application-frame  (define-application-frame climacs (standard-application-frame
53                                     esa-frame-mixin)                                     esa-frame-mixin)
54    ((buffers :initform '() :accessor buffers))    ((buffers :initform '() :accessor buffers))
55      (:command-table (global-climacs-table :inherit-from (global-esa-table)))
56      (:menu-bar nil)
57    (:panes    (:panes
58     (win (let* ((extended-pane     (win (let* ((extended-pane
59                  (make-pane 'extended-pane                  (make-pane 'extended-pane
# Line 159  Line 161 
161          do (when (modified-p buffer)          do (when (modified-p buffer)
162               (setf (needs-saving buffer) t))))               (setf (needs-saving buffer) t))))
163    
 (make-command-table 'global-climacs-table :errorp nil  
                     :inherit-from '(global-esa-table keyboard-macro-table))  
   
164  (defmacro define-named-command (command-name args &body body)  (defmacro define-named-command (command-name args &body body)
165    `(define-command ,(if (listp command-name)    `(define-command ,(if (listp command-name)
166                          `(,@command-name :name t :command-table global-climacs-table)                          `(,@command-name :name t :command-table global-climacs-table)
# Line 1232  as two values" Line 1231  as two values"
1231                    :gesture :select-other                    :gesture :select-other
1232                    :tester-definitive t                    :tester-definitive t
1233                    :menu nil                    :menu nil
1234                    :priority 11)                    :priority 10)
1235      (object)      (object)
1236    object)    object)
1237    
# Line 1243  as two values" Line 1242  as two values"
1242    (display-message (format nil "~s" (accept 'symbol))))    (display-message (format nil "~s" (accept 'symbol))))
1243    
1244  (define-named-command com-accept-lisp-string ()  (define-named-command com-accept-lisp-string ()
1245    (display-message (format nil "~s" (accept 'climacs-lisp-syntax::lisp-string))))    (display-message (format nil "~s" (accept 'lisp-string))))
1246    
1247  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
1248  ;;;  ;;;

Legend:
Removed from v.1.166  
changed lines
  Added in v.1.167

  ViewVC Help
Powered by ViewVC 1.1.5