Commit d9f114a3 authored by Eli Zaretskii's avatar Eli Zaretskii

(Programming Example): Put constant strings in :format.

parent 493cf720
......@@ -349,10 +349,10 @@ Interface}).
(let ((inhibit-read-only t))
(erase-buffer))
(remove-overlays)
(widget-insert "Here is some documentation.\n\nName: ")
(widget-insert "Here is some documentation.\n\n")
(widget-create 'editable-field
:size 13
:format "%v " ; Text after the field!
:format "Name: %v " ; Text after the field!
"My Name")
(widget-create 'menu-choice
:tag "Choose"
......@@ -364,8 +364,8 @@ Interface}).
'(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
:format "Address: %v"
"Some Place\nIn some City\nSome country.")
(widget-insert "\nSee also ")
(widget-create 'link
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment