Mercurial > hg > xemacs-beta

comparison lisp/w3/w3-widget.el @ 32:e04119814345 r19-15b99

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b99
author cvs
date Mon, 13 Aug 2007 08:52:56 +0200
parents ec9a17fef872
children 8d2a9b52c682
comparison
equal deleted inserted replaced
31:b9328a10c56c 32:e04119814345
1 ;;; w3-widget.el --- An image widget 1 ;;; w3-widget.el --- An image widget
2 ;; Author: wmperry 2 ;; Author: wmperry
3 ;; Created: 1997/03/05 23:37:58 3 ;; Created: 1997/03/11 15:40:22
4 ;; Version: 1.20 4 ;; Version: 1.23
5 ;; Keywords: faces, images 5 ;; Keywords: faces, images
6 6
7 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 7 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
8 ;;; Copyright (c) 1993 - 1996 by William M. Perry (wmperry@cs.indiana.edu) 8 ;;; Copyright (c) 1993 - 1996 by William M. Perry (wmperry@cs.indiana.edu)
9 ;;; Copyright (c) 1996, 1997 Free Software Foundation, Inc. 9 ;;; Copyright (c) 1996, 1997 Free Software Foundation, Inc.
53 (require 'cl) 53 (require 'cl)
54 (require 'widget) 54 (require 'widget)
55 55
56 (defvar widget-image-keymap (make-sparse-keymap) 56 (defvar widget-image-keymap (make-sparse-keymap)
57 "Keymap used over glyphs in an image widget") 57 "Keymap used over glyphs in an image widget")
58
59 (define-widget-keywords :tab-order)
58 60
59 (defconst widget-mouse-button1 nil) 61 (defconst widget-mouse-button1 nil)
60 (defconst widget-mouse-button2 nil) 62 (defconst widget-mouse-button2 nil)
61 (defconst widget-mouse-button3 nil) 63 (defconst widget-mouse-button3 nil)
62 64
242 :help-echo 'widget-image-summarize 244 :help-echo 'widget-image-summarize
243 options))))) 245 options)))))
244 ((and server-map (stringp href)) 246 ((and server-map (stringp href))
245 (setq real-widget 247 (setq real-widget
246 (widget-image-create-subwidget 248 (widget-image-create-subwidget
247 'push-button :tag alt 249 'push-button
250 :tag alt
248 :delete 'widget-default-delete 251 :delete 'widget-default-delete
249 :value href 252 :value href
250 :action (widget-get widget :action) 253 :action (widget-get widget :action)
251 :notify (widget-get widget :notify)))) 254 :notify (widget-get widget :notify))))
252 (href 255 (href
259 :notify 'widget-image-callback))) 262 :notify 'widget-image-callback)))
260 (alt 263 (alt
261 (setq real-widget 264 (setq real-widget
262 (widget-image-create-subwidget 265 (widget-image-create-subwidget
263 'push-button :tag alt :format "%[%t%]" 266 'push-button :tag alt :format "%[%t%]"
267 :tab-order -1
264 :delete 'widget-default-delete 268 :delete 'widget-default-delete
265 :action (widget-get widget :action) 269 :action (widget-get widget :action)
266 :notify 'widget-image-callback)))) 270 :notify 'widget-image-callback))))
267 (if (not real-widget) 271 (if (not real-widget)
268 nil 272 nil