Mercurial > hg > xemacs-beta

comparison lisp/w3/w3-widget.el @ 2:ac2d302a0011 r19-15b2

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b2
author cvs
date Mon, 13 Aug 2007 08:46:35 +0200
parents 376386a54a3c
children 9ee227acff29
comparison
equal deleted inserted replaced
1:c0c6a60d29db 2:ac2d302a0011
1 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 1 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
2 ;;; w3-widget.el,v --- An image widget 2 ;;; w3-widget.el --- An image widget
3 ;; Author: wmperry 3 ;; Author: wmperry
4 ;; Created: 1996/05/29 03:11:24 4 ;; Created: 1996/07/21 18:11:36
5 ;; Version: 1.14 5 ;; Version: 1.3
6 ;; Keywords: faces, help, comm, news, mail, processes, mouse, hypermedia 6 ;; Keywords: faces, help, comm, news, mail, processes, mouse, hypermedia
7 7
8 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 8 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
9 ;;; Copyright (c) 1993, 1994, 1995 by William M. Perry (wmperry@spry.com) 9 ;;; Copyright (c) 1993 - 1996 by William M. Perry (wmperry@cs.indiana.edu)
10 ;;; 10 ;;;
11 ;;; This file is not part of GNU Emacs, but the same permissions apply. 11 ;;; This file is not part of GNU Emacs, but the same permissions apply.
12 ;;; 12 ;;;
13 ;;; GNU Emacs is free software; you can redistribute it and/or modify 13 ;;; GNU Emacs is free software; you can redistribute it and/or modify
14 ;;; it under the terms of the GNU General Public License as published by 14 ;;; it under the terms of the GNU General Public License as published by
181 (widget-create 'push :tag (or alt "Image") 181 (widget-create 'push :tag (or alt "Image")
182 :value href 182 :value href
183 :delete 'widget-default-delete 183 :delete 'widget-default-delete
184 :notify 'w3-image-widget-callback))) 184 :notify 'w3-image-widget-callback)))
185 (alt 185 (alt
186 (setq real-widget (widget-create 'item :format "%v" :value alt)))) 186 (setq real-widget
187 (widget-create 'push :tag alt :format "%[%t%]"
188 :delete 'widget-default-delete
189 :notify 'w3-image-widget-callback))))
187 (if (not real-widget) 190 (if (not real-widget)
188 nil 191 nil
189 (widget-put real-widget 'usemap (widget-get widget 'usemap)) 192 (widget-put real-widget 'usemap (widget-get widget 'usemap))
190 (widget-put real-widget 'href href) 193 (widget-put real-widget 'href href)
194 (widget-put real-widget 'src (widget-get widget 'src))
191 (widget-put real-widget 'ismap server-map) 195 (widget-put real-widget 'ismap server-map)
192 (widget-put real-widget :parent widget) 196 (widget-put real-widget :parent widget)
193 (widget-put widget :children (list real-widget)))) 197 (widget-put widget :children (list real-widget))))
194 ;;; Actually use the image 198 ;;; Actually use the image
195 (let ((extent (or (widget-get widget 'extent) 199 (let ((extent (or (widget-get widget 'extent)