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

Diff of /climacs/gui.lisp

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

revision 1.257 by thenriksen, Mon Jan 28 17:08:50 2008 UTC revision 1.258 by thenriksen, Tue Jan 29 23:09:22 2008 UTC
# Line 203  window")) Line 203  window"))
203  (make-command-table 'buffer-table :errorp nil)  (make-command-table 'buffer-table :errorp nil)
204  ;;; Commands used for climacs development  ;;; Commands used for climacs development
205  (make-command-table 'development-table :errorp nil)  (make-command-table 'development-table :errorp nil)
 ;;; Panes  
 (make-command-table 'pane-table :errorp nil)  
206  ;;; Windows  ;;; Windows
207  (make-command-table 'window-table :errorp nil)  (make-command-table 'window-table :errorp nil)
208    
# Line 219  window")) Line 217  window"))
217                      :errorp nil                      :errorp nil
218                      :inherit-from '(base-table                      :inherit-from '(base-table
219                                      buffer-table                                      buffer-table
                                     pane-table  
220                                      window-table                                      window-table
221                                      development-table                                      development-table
222                                      climacs-help-table                                      climacs-help-table
# Line 242  window")) Line 239  window"))
239  (make-command-table 'climacs-global-table  (make-command-table 'climacs-global-table
240   :inherit-from (list (make-instance 'climacs-command-table   :inherit-from (list (make-instance 'climacs-command-table
241                        :name 'climacs-dispatching-table))                        :name 'climacs-dispatching-table))
242   :menu `(("File" :menu ,(make-command-table nil   :menu `(("File" :menu esa-io-menu-table)
243                           :inherit-from 'esa-io-table           ("Macros" :menu keyboard-macro-menu-table)
244                           :menu `(("Find File"           ("Windows" :menu window-menu-table)
245                                    :command (com-find-file ,*unsupplied-argument-marker*))           ("Help" :menu help-menu-table))
                                  ("Find File (read-only)"  
                                   :command (com-find-file-read-only ,*unsupplied-argument-marker*))  
                                  ("Save Buffer"  
                                   :command (com-save-buffer))  
                                  ("Save Bufer As"  
                                   :command (com-write-buffer ,*unsupplied-argument-marker*))  
                                  ("Set Visited File Name"  
                                   :command (com-set-visited-file-name ,*unsupplied-argument-marker*))  
                                  (nil :divider :line)  
                                  ("Quit" :command com-quit))))  
          ("Help" :menu ,(make-command-table nil  
                          :inherit-from 'help-table  
                          :menu `(("Where is" :command com-where-is)  
                                  ("Describe Bindings" :command (com-describe-bindings nil))  
                                  ("Describe Bindings (sorted)" :command (com-describe-bindings t))  
                                  ("Describe Key" :command com-describe-key)  
                                  ("Describe Command"  
                                   :command (com-describe-command ,*unsupplied-argument-marker*))  
                                  ("Apropos Command"  
                                   :command (com-apropos-command ,*unsupplied-argument-marker*))))))  
246   :errorp nil)   :errorp nil)
247    
248  (define-application-frame climacs (esa-frame-mixin  (define-application-frame climacs (esa-frame-mixin

Legend:
Removed from v.1.257  
changed lines
  Added in v.1.258

  ViewVC Help
Powered by ViewVC 1.1.5