[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