Update of /project/closure/cvsroot/closure/src/gui In directory clnet:/tmp/cvs-serv1622/src/gui
Modified Files: clim-gui.lisp Log Message: Renamed the command `Visit Url In New Tab' to just `Visit In New Tab' so that plain `Visit Url' followed by SPC in the interactor works again.
--- /project/closure/cvsroot/closure/src/gui/clim-gui.lisp 2007/07/01 12:16:43 1.33 +++ /project/closure/cvsroot/closure/src/gui/clim-gui.lisp 2007/11/21 23:47:24 1.34 @@ -4,7 +4,7 @@ ;;; Created: 2002-07-22 ;;; Author: Gilbert Baumann gilbert@base-engineering.com ;;; License: MIT style (see below) -;;; $Id: clim-gui.lisp,v 1.33 2007/07/01 12:16:43 dlichteblau Exp $ +;;; $Id: clim-gui.lisp,v 1.34 2007/11/21 23:47:24 dlichteblau Exp $ ;;; --------------------------------------------------------------------------- ;;; (c) copyright 2002 by Gilbert Baumann
@@ -28,6 +28,10 @@ ;;; SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
;; $Log: clim-gui.lisp,v $ +;; Revision 1.34 2007/11/21 23:47:24 dlichteblau +;; Renamed the command `Visit Url In New Tab' to just `Visit In New Tab' so that +;; plain `Visit Url' followed by SPC in the interactor works again. +;; ;; Revision 1.33 2007/07/01 12:16:43 dlichteblau ;; Patch by Christophe Rhodes on closure-devel 87ejk2sngi.fsf@cantab.net ;; @@ -439,7 +443,7 @@
(define-gesture-name :visit-in-new-tab :pointer-button-press (:middle))
-(define-closure-command (com-visit-url-in-new-tab :name t) +(define-closure-command (com-visit-in-new-tab :name t) ((url 'url :gesture :visit-in-new-tab)) (com-new-tab) (setf *pane* (current-pane))