[climacs-cvs] CVS climacs
thenriksen
thenriksen at common-lisp.net
Sun Feb 3 09:03:43 UTC 2008
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*)
More information about the Climacs-cvs
mailing list