Mercurial > hg > xemacs-beta

comparison lisp/w3/w3-widget.el @ 120:cca96a509cfe r20-1b12

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-1b12
author cvs
date Mon, 13 Aug 2007 09:25:29 +0200
parents 9f59509498e1
children
comparison
equal deleted inserted replaced
119:d101af7320b8 120:cca96a509cfe
1 ;;; w3-widget.el --- An image widget 1 ;;; w3-widget.el --- An image widget
2 ;; Author: wmperry 2 ;; Author: wmperry
3 ;; Created: 1997/03/26 15:31:17 3 ;; Created: 1997/04/07 16:00:02
4 ;; Version: 1.27 4 ;; Version: 1.28
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.
195 (if (eq (aref x 0) 'default) 195 (if (eq (aref x 0) 'default)
196 (setq default (aref x 2))) 196 (setq default (aref x 2)))
197 (if (and (not default) (stringp (aref x 2))) 197 (if (and (not default) (stringp (aref x 2)))
198 (setq default (aref x 2))) 198 (setq default (aref x 2)))
199 (list 'choice-item 199 (list 'choice-item
200 :tab-order -1
200 :format "%[%t%]" 201 :format "%[%t%]"
201 :tag (or (aref x 3) (aref x 2)) 202 :tag (or (aref x 3) (aref x 2))
202 :value (aref x 2)))) client-map))) 203 :value (aref x 2)))) client-map)))
203 (setq real-widget 204 (setq real-widget
204 (apply 'widget-create 'menu-choice 205 (apply 'widget-create 'menu-choice