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

Diff of /climacs/gui.lisp

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

revision 1.130 by abakic, Wed May 4 22:51:19 2005 UTC revision 1.131 by crhodes, Thu May 5 10:59:42 2005 UTC
# Line 284  Line 284 
284                   (redisplay-frame-panes frame))))                   (redisplay-frame-panes frame))))
285          (loop          (loop
286             for maybe-error = t             for maybe-error = t
287             do (handler-case             do (with-simple-restart (return-to-climacs "Return to Climacs")
288                    (with-input-context ('(command                  (handler-case
289                                           :command-table 'global-climacs-table))                      (with-input-context ('(command
290                      (object)                                             :command-table 'global-climacs-table))
291                      (loop                        (object)
292                          (loop
293                         for gestures = '()                         for gestures = '()
294                         do (multiple-value-bind (numarg numargp)                         do (multiple-value-bind (numarg numargp)
295                                (read-numeric-argument :stream *standard-input*)                                (read-numeric-argument :stream *standard-input*)
# Line 306  Line 307 
307                                               (do-command command)                                               (do-command command)
308                                               (return)))                                               (return)))
309                                            (t nil)))))                                            (t nil)))))
310                           (update-climacs))                         (update-climacs))
311                      (t                        (t
312                       (do-command object)                         (do-command object)
313                       (setq maybe-error nil)))                         (setq maybe-error nil)))
314                  (abort-gesture ()                    (abort-gesture () (display-message "Quit"))))
315                    (display-message "Quit")))             (when maybe-error
316               (when maybe-error               (beep))
317                 (beep))             (update-climacs))))))
              (update-climacs))))))  
318    
319  (defmacro simple-command-loop (command-table loop-condition end-clauses)  (defmacro simple-command-loop (command-table loop-condition end-clauses)
320    (let ((gesture (gensym))    (let ((gesture (gensym))

Legend:
Removed from v.1.130  
changed lines
  Added in v.1.131

  ViewVC Help
Powered by ViewVC 1.1.5