Re: address@hidden: widget-value-set for editable fields]

[Markus Triska]

"Per Abrahamsen" <address@hidden> wrote:

>     (setq tw-value-field
>           (widget-create 'editable-field
>                          :size 50
>                          :format "Value: %v\n"
>                          ""))

This works great. Here's a patch that adapts the documentation:

2007-02-03  Markus Triska  <address@hidden>

        * widget.texi (Programming Example): put stable text in :format

*** widget.texi 18 Jan 2007 03:32:09 +0100      1.40
--- widget.texi 03 Feb 2007 12:49:27 +0100      
***************
*** 349,358 ****
    (let ((inhibit-read-only t))
      (erase-buffer))
    (remove-overlays)
!   (widget-insert "Here is some documentation.\n\nName: ")
    (widget-create 'editable-field
                 :size 13
!                :format "%v " ; Text after the field!
                 "My Name")
    (widget-create 'menu-choice
                 :tag "Choose"
--- 349,358 ----
    (let ((inhibit-read-only t))
      (erase-buffer))
    (remove-overlays)
!   (widget-insert "Here is some documentation.\n\n")
    (widget-create 'editable-field
                 :size 13
!                :format "Name: %v " ; Text after the field!
                 "My Name")
    (widget-create 'menu-choice
                 :tag "Choose"
***************
*** 364,371 ****
                 '(item :tag "This option" :value "This")
                 '(choice-item "That option")
                 '(editable-field :menu-tag "No option" "Thus option"))
-   (widget-insert "Address: ")
    (widget-create 'editable-field
                 "Some Place\nIn some City\nSome country.")
    (widget-insert "\nSee also ")
    (widget-create 'link
--- 364,371 ----
                 '(item :tag "This option" :value "This")
                 '(choice-item "That option")
                 '(editable-field :menu-tag "No option" "Thus option"))
    (widget-create 'editable-field
+                :format "Address: %v"
                 "Some Place\nIn some City\nSome country.")
    (widget-insert "\nSee also ")
    (widget-create 'link