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

Diff of /climacs/gui.lisp

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

revision 1.3 by strandh, Tue Dec 21 16:19:26 2004 UTC revision 1.4 by strandh, Tue Dec 21 18:36:31 2004 UTC
# Line 29  Line 29 
29    (:panes    (:panes
30     (win :application :width 600 :height 400     (win :application :width 600 :height 400
31          :display-function 'display-win)          :display-function 'display-win)
32     (int :interactor :width 600 :height 100))     (int :interactor :width 600 :height 50))
33    (:layouts    (:layouts
34     (default     (default
        (vertically () win))  
    (with-interactor  
35         (vertically () win int)))         (vertically () win int)))
36    (:top-level (climacs-top-level)))    (:top-level (climacs-top-level)))
37    
# Line 131  Line 129 
129                   (cond ((not item)                   (cond ((not item)
130                          (beep) (setf gestures '()))                          (beep) (setf gestures '()))
131                         ((eq (command-menu-item-type item) :command)                         ((eq (command-menu-item-type item) :command)
132                          (funcall (command-menu-item-value item))                          (handler-case
133                                (funcall (command-menu-item-value item))
134                              (error (condition)
135                                (beep)
136                                (format *error-output* "~a~%" condition)))
137                          (setf gestures '()))                          (setf gestures '()))
138                         (t nil))))                         (t nil))))
139               (redisplay-frame-panes frame :force-p t))))               (redisplay-frame-panes frame :force-p t))))
# Line 183  Line 185 
185              'with-interactor              'with-interactor
186              'default)))              'default)))
187    
188    (define-command com-extended-command ()
189      (accept 'command :prompt "Extended Command"))
190    
191  (defclass weird () ())  (defclass weird () ())
192    
193  (define-command com-insert-weird-stuff ()  (define-command com-insert-weird-stuff ()
# Line 213  Line 218 
218  (global-set-key '(#\k :control) 'com-kill-line)  (global-set-key '(#\k :control) 'com-kill-line)
219  (global-set-key '(#\f :meta) 'com-forward-word)  (global-set-key '(#\f :meta) 'com-forward-word)
220  (global-set-key '(#\b :meta) 'com-backward-word)  (global-set-key '(#\b :meta) 'com-backward-word)
221  (global-set-key '(#\x :meta) 'com-toggle-layout)  (global-set-key '(#\x :meta) 'com-extended-command)
222  (global-set-key '(#\a :meta) 'com-insert-weird-stuff)  (global-set-key '(#\a :meta) 'com-insert-weird-stuff)
223    
224  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4

  ViewVC Help
Powered by ViewVC 1.1.5