Mercurial > hg > xemacs-beta
diff lisp/w3/w3-widget.el @ 32:e04119814345 r19-15b99
Import from CVS: tag r19-15b99
| author | cvs |
|---|---|
| date | Mon, 13 Aug 2007 08:52:56 +0200 |
| parents | ec9a17fef872 |
| children | 8d2a9b52c682 |
line wrap: on
line diff
--- a/lisp/w3/w3-widget.el Mon Aug 13 08:52:30 2007 +0200 +++ b/lisp/w3/w3-widget.el Mon Aug 13 08:52:56 2007 +0200 @@ -1,7 +1,7 @@ ;;; w3-widget.el --- An image widget ;; Author: wmperry -;; Created: 1997/03/05 23:37:58 -;; Version: 1.20 +;; Created: 1997/03/11 15:40:22 +;; Version: 1.23 ;; Keywords: faces, images ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; @@ -56,6 +56,8 @@ (defvar widget-image-keymap (make-sparse-keymap) "Keymap used over glyphs in an image widget") +(define-widget-keywords :tab-order) + (defconst widget-mouse-button1 nil) (defconst widget-mouse-button2 nil) (defconst widget-mouse-button3 nil) @@ -244,7 +246,8 @@ ((and server-map (stringp href)) (setq real-widget (widget-image-create-subwidget - 'push-button :tag alt + 'push-button + :tag alt :delete 'widget-default-delete :value href :action (widget-get widget :action) @@ -261,6 +264,7 @@ (setq real-widget (widget-image-create-subwidget 'push-button :tag alt :format "%[%t%]" + :tab-order -1 :delete 'widget-default-delete :action (widget-get widget :action) :notify 'widget-image-callback))))