Update of /project/climacs/cvsroot/climacs In directory clnet:/tmp/cvs-serv31384

Modified Files: gui.lisp Log Message: Updates to handle Drei changes.

--- /project/climacs/cvsroot/climacs/gui.lisp 2008/01/29 23:09:22 1.258 +++ /project/climacs/cvsroot/climacs/gui.lisp 2008/02/03 09:03:42 1.259 @@ -362,6 +362,9 @@ (setf (views frame) (list (make-new-view-for-climacs frame 'textual-drei-syntax-view))))

+(defmethod command-for-unbound-gestures ((frame climacs) gestures) + (command-for-unbound-gestures (esa-current-window frame) gestures)) + (defun make-view-subscript-generator (climacs) #'(lambda (name) (1+ (reduce #'max (remove name (views climacs) @@ -521,7 +524,7 @@

(defmethod handle-drei-condition ((drei climacs-pane) condition) (call-next-method) - (display-drei drei)) + (display-drei drei :redisplay-minibuffer t))

(defmethod execute-frame-command :around ((frame climacs) command) (if (eq frame *esa-instance*)