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

Diff of /climacs/gui.lisp

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

revision 1.23 by rstrandh, Tue Dec 28 17:32:18 2004 UTC revision 1.24 by abridgewater, Wed Dec 29 04:55:20 2004 UTC
# Line 137  Line 137 
137                         (t nil))))                         (t nil))))
138               (redisplay-frame-panes frame))))               (redisplay-frame-panes frame))))
139    
140  (define-command com-quit ()  (define-command (com-quit :name "Quit" :command-table climacs) ()
141    (frame-exit *application-frame*))    (frame-exit *application-frame*))
142    
143  (define-command com-self-insert ()  (define-command com-self-insert ()
# Line 193  Line 193 
193              'default)))              'default)))
194    
195  (define-command com-extended-command ()  (define-command com-extended-command ()
196    (accept 'command :prompt "Extended Command"))    (let ((item (accept 'command :prompt "Extended Command")))
197        (window-clear *standard-input*)
198        (execute-frame-command *application-frame* item)))
199    
200  (defclass weird () ()  (defclass weird () ()
201    (:documentation "An open ended class."))    (:documentation "An open ended class."))
# Line 286  Line 288 
288        (concatenate 'string (pathname-name pathname)        (concatenate 'string (pathname-name pathname)
289                     "." (pathname-type pathname))))                     "." (pathname-type pathname))))
290    
291  (define-command com-find-file ()  (define-command (com-find-file :name "Find File" :command-table climacs) ()
292    (let ((filename (accept 'completable-pathname    (let ((filename (accept 'completable-pathname
293                            :prompt "Find File")))                            :prompt "Find File")))
294      (with-slots (buffer point syntax) (win *application-frame*)      (with-slots (buffer point syntax) (win *application-frame*)

Legend:
Removed from v.1.23  
changed lines
  Added in v.1.24

  ViewVC Help
Powered by ViewVC 1.1.5