Mercurial > hg > xemacs-beta

comparison man/widget.texi @ 185:3d6bfa290dbd r20-3b19

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-3b19
author cvs
date Mon, 13 Aug 2007 09:55:28 +0200
parents bfd6434d15b3
children 489f57a838ef
comparison
equal deleted inserted replaced
184:bcd2674570bf 185:3d6bfa290dbd
11 11
12 @node Top, Introduction, (dir), (dir) 12 @node Top, Introduction, (dir), (dir)
13 @comment node-name, next, previous, up 13 @comment node-name, next, previous, up
14 @top The Emacs Widget Library 14 @top The Emacs Widget Library
15 15
16 Version: 1.9954 16 Version: 1.9956
17 17
18 @menu 18 @menu
19 * Introduction:: 19 * Introduction::
20 * User Interface:: 20 * User Interface::
21 * Programming Example:: 21 * Programming Example::
290 (switch-to-buffer "*Widget Example*") 290 (switch-to-buffer "*Widget Example*")
291 (kill-all-local-variables) 291 (kill-all-local-variables)
292 (make-local-variable 'widget-example-repeat) 292 (make-local-variable 'widget-example-repeat)
293 (let ((inhibit-read-only t)) 293 (let ((inhibit-read-only t))
294 (erase-buffer)) 294 (erase-buffer))
295 (let ((all (overlay-lists)))
296 ;; Delete all the overlays.
297 (mapcar 'delete-overlay (car all))
298 (mapcar 'delete-overlay (cdr all)))
295 (widget-insert "Here is some documentation.\n\nName: ") 299 (widget-insert "Here is some documentation.\n\nName: ")
296 (widget-create 'editable-field 300 (widget-create 'editable-field
297 :size 13 301 :size 13
298 "My Name") 302 "My Name")
299 (widget-create 'menu-choice 303 (widget-create 'menu-choice