Update of /project/climacs/cvsroot/climacs In directory clnet:/tmp/cvs-serv4814
Modified Files: syntax.lisp lisp-syntax.lisp gui.lisp Log Message: Added optional keyword parameters to the `name-for-info-pane' generic function.
--- /project/climacs/cvsroot/climacs/syntax.lisp 2006/05/06 11:57:23 1.64 +++ /project/climacs/cvsroot/climacs/syntax.lisp 2006/06/04 16:21:06 1.65 @@ -151,7 +151,9 @@ ;;; ;;; Name for info-pane
-(defgeneric name-for-info-pane (syntax)) +(defgeneric name-for-info-pane (syntax &key &allow-other-keys) + (:documentation "Return the name that should be used for the + info-pane for panes displaying a buffer in this syntax."))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;; @@ -289,7 +291,7 @@ (declare (ignore buffer from to)) nil)
-(defmethod name-for-info-pane ((syntax basic-syntax)) +(defmethod name-for-info-pane ((syntax basic-syntax) &key) (name syntax))
(defmethod syntax-line-indentation (mark tab-width (syntax basic-syntax)) --- /project/climacs/cvsroot/climacs/lisp-syntax.lisp 2006/06/03 13:40:20 1.82 +++ /project/climacs/cvsroot/climacs/lisp-syntax.lisp 2006/06/04 16:21:06 1.83 @@ -71,7 +71,7 @@ (with-slots (buffer scan) syntax (setf scan (clone-mark (low-mark buffer) :left))))
-(defmethod name-for-info-pane ((syntax lisp-syntax)) +(defmethod name-for-info-pane ((syntax lisp-syntax) &key) (format nil "Lisp~@[:~(~A~)~]" (let ((package (slot-value syntax 'package))) (typecase package --- /project/climacs/cvsroot/climacs/gui.lisp 2006/05/14 17:42:21 1.215 +++ /project/climacs/cvsroot/climacs/gui.lisp 2006/06/04 16:21:06 1.216 @@ -288,7 +288,7 @@ size))))))) (with-text-family (pane :sans-serif) (princ #( pane) - (princ (name-for-info-pane (syntax buffer)) pane) + (princ (name-for-info-pane (syntax buffer) :pane pane) pane) (format pane "~{~:[~*~; ~A~]~}" (list (slot-value master-pane 'overwrite-mode) "Ovwrt"