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

Diff of /climacs/gui.lisp

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

revision 1.151 by rstrandh, Sun Jul 17 05:07:41 2005 UTC revision 1.152 by rstrandh, Sun Jul 17 10:24:15 2005 UTC
# Line 76  Line 76 
76    (:default-initargs    (:default-initargs
77        :height 20 :max-height 20 :min-height 20))        :height 20 :max-height 20 :min-height 20))
78    
79  (define-application-frame climacs ()  (defclass multi-frame-mixin ()
80    ((windows :accessor windows)    ((windows :accessor windows)
81     (buffers :initform '() :accessor buffers)     (buffers :initform '() :accessor buffers)
82     (recordingp :initform nil :accessor recordingp)     (recordingp :initform nil :accessor recordingp)
83     (executingp :initform nil :accessor executingp)     (executingp :initform nil :accessor executingp)
84     (recorded-keys :initform '() :accessor recorded-keys)     (recorded-keys :initform '() :accessor recorded-keys)
85     (remaining-keys :initform '() :accessor remaining-keys))     (remaining-keys :initform '() :accessor remaining-keys)))
86    
87    (define-application-frame climacs (standard-application-frame
88                                       multi-frame-mixin)
89      ()
90    (:panes    (:panes
91     (win (let* ((extended-pane     (win (let* ((extended-pane
92                  (make-pane 'extended-pane                  (make-pane 'extended-pane
# Line 260  Line 264 
264  (defun substitute-numeric-argument-p (command numargp)  (defun substitute-numeric-argument-p (command numargp)
265    (substitute numargp *numeric-argument-p* command :test #'eq))    (substitute numargp *numeric-argument-p* command :test #'eq))
266    
267    (defmethod execute-frame-command :around ((frame climacs) command)
268      (handler-case
269          (call-next-method)
270        (offset-before-beginning ()
271          (beep) (display-message "Beginning of buffer"))
272        (offset-after-end ()
273          (beep) (display-message "End of buffer"))
274        (motion-before-beginning ()
275          (beep) (display-message "Beginning of buffer"))
276        (motion-after-end ()
277          (beep) (display-message "End of buffer"))
278        (no-expression ()
279          (beep) (display-message "No expression around point"))
280        (no-such-operation ()
281          (beep) (display-message "Operation unavailable for syntax"))))
282    
283  (defun climacs-top-level (frame &key  (defun climacs-top-level (frame &key
284                            command-parser command-unparser                            command-parser command-unparser
285                            partial-command-parser prompt)                            partial-command-parser prompt)
# Line 273  Line 293 
293            (*abort-gestures* '((:keyboard #\g 512))))            (*abort-gestures* '((:keyboard #\g 512))))
294        (redisplay-frame-panes frame :force-p t)        (redisplay-frame-panes frame :force-p t)
295        (flet ((do-command (command)        (flet ((do-command (command)
296                 (handler-case                 (execute-frame-command frame command)
                    (execute-frame-command frame command)  
                  (offset-before-beginning ()  
                    (beep) (display-message "Beginning of buffer"))  
                  (offset-after-end ()  
                    (beep) (display-message "End of buffer"))  
                  (motion-before-beginning ()  
                    (beep) (display-message "Beginning of buffer"))  
                  (motion-after-end ()  
                    (beep) (display-message "End of buffer"))  
                  (no-expression ()  
                    (beep) (display-message "No expression around point"))  
                  (no-such-operation ()  
                    (beep) (display-message "Operation unavailable for syntax")))  
297                 (setf (previous-command *standard-output*)                 (setf (previous-command *standard-output*)
298                       (if (consp command)                       (if (consp command)
299                           (car command)                           (car command)

Legend:
Removed from v.1.151  
changed lines
  Added in v.1.152

  ViewVC Help
Powered by ViewVC 1.1.5