Lines Matching +defs:sample +defs:text
106 "Face used for documentation text."
128 ;; the gray colors defined for other displays cause black text on a black
311 ;;; Widget text specifications.
313 ;; These functions are for specifying text properties.
317 "Non-nil means add extra space at the end of editable text fields.
376 "Replace text in FIELD with value of `:secret', if non-nil."
390 (put-text-property begin (1+ begin) 'secret old))
422 (defun widget-specify-sample (widget from to)
423 "Specify sample for WIDGET between FROM and TO."
425 (overlay-put overlay 'face (widget-apply widget :sample-face-get))
427 (widget-put widget :sample-overlay overlay)))
438 "Execute FORM without inheriting any text properties."
648 "In WIDGET, insert the text TAG or, if supported, IMAGE.
800 "Call `insert' with ARGS even if surrounding text is read only."
805 (defun widget-convert-text (type from to
809 No text will be inserted to the buffer, instead the text between FROM
814 (let ((widget (apply 'widget-convert type :delete 'widget-leave-text args))
828 No text will be inserted to the buffer, instead the text between FROM
831 (apply 'widget-convert-text type from to from to args))
833 (defun widget-leave-text (widget)
836 (sample (widget-get widget :sample-overlay))
843 (when sample
844 (delete-overlay sample))
849 (mapc 'widget-leave-text (widget-get widget :children))))
886 (defvar widget-text-keymap
893 "Keymap used inside a text field.")
1118 ;; text with a `field' property.
1273 (signal 'text-read-only
1277 (signal 'text-read-only
1278 '("Attempt to change text outside editable field")))
1288 "Adjust field size and text properties."
1422 :sample-face-get 'widget-default-sample-face-get
1450 sample-begin sample-end
1468 (setq sample-begin (point)))
1470 (setq sample-end (point)))
1500 ;; Specify button, sample, and doc, and insert value.
1503 (and sample-begin sample-end
1504 (widget-specify-sample widget sample-begin sample-end))
1531 (doc-text (and (stringp doc-try)
1535 (when doc-text
1540 (when (eq (aref doc-text 0) ?*)
1541 (setq doc-text (substring doc-text 1)))
1543 (when (string-match "\n+\\'" doc-text)
1544 (setq doc-text (substring doc-text 0 (match-beginning 0))))
1552 doc-text)
1574 (defun widget-default-sample-face-get (widget)
1575 ;; Use :sample-face.
1576 (widget-get widget :sample-face))
1584 (sample-overlay (widget-get widget :sample-overlay))
1594 (when sample-overlay
1595 (delete-overlay sample-overlay))
1748 "Insert text representing the `on' and `off' states."
1752 (text (concat widget-push-button-prefix
1755 (widget-image-insert widget text tag-glyph)
1756 (insert text))))
1855 "An editable text field.
1857 by some other text in the `:format' string (if specified)."
1910 "Create an editable text field."
1942 "Return current text in editing field."
1972 ;;; The `text' Widget.
1974 (define-widget 'text 'editable-field
1975 "A multiline text area."
1976 :keymap widget-text-keymap)
2145 "Insert text representing the `on' and `off' states."
2819 ;; Insert text representing the `on' and `off' states.
3030 It reads a file name from an editable text field."
3092 It reads a directory name from an editable text field."
3682 "Choose a color name (with sample)."
3683 :format "%{%t%}: %v (%{sample%})\n"
3688 :sample-face-get 'widget-color-sample-face-get
3712 (defun widget-color-sample-face-get (widget)
3733 "Update the sample, and notify the parent."
3734 (overlay-put (widget-get widget :sample-overlay)
3735 'face (widget-apply widget :sample-face-get))
3742 "Display help-echo text for widget at POS."