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

Diff of /climacs/gui.lisp

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

revision 1.258 by thenriksen, Tue Jan 29 23:09:22 2008 UTC revision 1.259 by thenriksen, Sun Feb 3 09:03:42 2008 UTC
# Line 362  active." Line 362  active."
362    (setf (views frame) (list (make-new-view-for-climacs    (setf (views frame) (list (make-new-view-for-climacs
363                               frame 'textual-drei-syntax-view))))                               frame 'textual-drei-syntax-view))))
364    
365    (defmethod command-for-unbound-gestures ((frame climacs) gestures)
366      (command-for-unbound-gestures (esa-current-window frame) gestures))
367    
368  (defun make-view-subscript-generator (climacs)  (defun make-view-subscript-generator (climacs)
369    #'(lambda (name)    #'(lambda (name)
370        (1+ (reduce #'max (remove name (views climacs)        (1+ (reduce #'max (remove name (views climacs)
# Line 521  etc.")) Line 524  etc."))
524    
525  (defmethod handle-drei-condition ((drei climacs-pane) condition)  (defmethod handle-drei-condition ((drei climacs-pane) condition)
526    (call-next-method)    (call-next-method)
527    (display-drei drei))    (display-drei drei :redisplay-minibuffer t))
528    
529  (defmethod execute-frame-command :around ((frame climacs) command)  (defmethod execute-frame-command :around ((frame climacs) command)
530    (if (eq frame *esa-instance*)    (if (eq frame *esa-instance*)

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

  ViewVC Help
Powered by ViewVC 1.1.5