comparison lisp/wid-edit.el @ 18089:bb0e09c8ada3

Synched with 1.9904

18088:be8a62ae8d21

;;
;; Copyright (C) 1996, 1997 Free Software Foundation, Inc.
;;
;; Author: Per Abrahamsen <[e-mail]>
;; Keywords: extensions
;; Version: 1.9903
;; X-URL: http://www.dina.kvl.dk/~abraham/custom/

;; This file is part of GNU Emacs.

;; GNU Emacs is free software; you can redistribute it and/or modify

  (add-text-properties from to (list 'read-only t
				     ;; Emacs is sticky.
				     'front-sticky t
				     'rear-nonsticky nil
				     ;; XEmacs is non-sticky.
				     'start-open nil
				     'end-open nil
				     ;; This is because `insert'
				     ;; inherit sticky text properties
				     ;; in XEmacs but not in Emacs. 
				     )))

	(secret (widget-get widget :secret))
	(secret-to to)
	(size (widget-get widget :size))
	(face (or (widget-get widget :value-face)
		  'widget-field-face))
	(help-echo (widget-get widget :help-echo))
	(help-property (if (featurep 'balloon-help)
			   'balloon-help
			 'help-echo)))
    (unless (or (stringp help-echo) (null help-echo))
      (setq help-echo 'widget-mouse-help))

    (when secret 
      (while (and size

    (set-text-properties from to (list 'field widget
				       'read-only nil
				       'keymap map
				       'local-map map
				       help-property help-echo
				       'face face))
    
    (when secret 
      (save-excursion
	(goto-char from)

	    (put-text-property (point) (1+ (point)) 'secret old))
	  (forward-char))))

    (unless (widget-get widget :size)
      (add-text-properties to (1+ to) (list 'field widget
					    help-property help-echo
					    'face face)))
    (add-text-properties to (1+ to) (list 'local-map map
					  'keymap map))))
(defun widget-specify-button (widget from to)
  ;; Specify button for WIDGET between FROM and TO.

(defun widget-default-delete (widget)
  ;; Remove widget from the buffer.
  (let ((from (widget-get widget :from))
	(to (widget-get widget :to))
	(inhibit-read-only t)
	after-change-functions)
    (widget-apply widget :value-delete)
    (when (< from to)
      ;; Kludge: this doesn't need to be true for empty formats.
      (delete-region from to))
    (set-marker from nil)
    (set-marker to nil))

  (setq widget-field-list (delq widget widget-field-list))
  ;; These are nil if the :format string doesn't contain `%v'.
  (when (widget-get widget :value-from)
    (set-marker (widget-get widget :value-from) nil))
  (when (widget-get widget :value-from)
    (set-marker (widget-get widget :value-to) nil)))

(defun widget-field-value-get (widget)
  ;; Return current text in editing field.
  (let ((from (widget-get widget :value-from))
	(to (widget-get widget :value-to))

  "An indicator and manipulator for hidden items."
  :format "%[%v%]"
  :button-prefix ""
  :button-suffix ""
  :on "hide"
  :off "more"
  :value-create 'widget-visibility-value-create
  :action 'widget-toggle-action
  :match (lambda (widget value) t))

(defun widget-visibility-value-create (widget)

18089:bb0e09c8ada3

;;
;; Copyright (C) 1996, 1997 Free Software Foundation, Inc.
;;
;; Author: Per Abrahamsen <[e-mail]>
;; Keywords: extensions
;; Version: 1.9904
;; X-URL: http://www.dina.kvl.dk/~abraham/custom/

;; This file is part of GNU Emacs.

;; GNU Emacs is free software; you can redistribute it and/or modify

  (add-text-properties from to (list 'read-only t
				     ;; Emacs is sticky.
				     'front-sticky t
				     'rear-nonsticky nil
				     ;; XEmacs is non-sticky.
				     'start-open t
				     'end-open t
				     ;; This is because `insert'
				     ;; inherit sticky text properties
				     ;; in XEmacs but not in Emacs. 
				     )))

	(secret (widget-get widget :secret))
	(secret-to to)
	(size (widget-get widget :size))
	(face (or (widget-get widget :value-face)
		  'widget-field-face))
	(help-echo (widget-get widget :help-echo)))
    (unless (or (stringp help-echo) (null help-echo))
      (setq help-echo 'widget-mouse-help))

    (when secret 
      (while (and size

    (set-text-properties from to (list 'field widget
				       'read-only nil
				       'keymap map
				       'local-map map
				       'balloon-help help-echo
				       'help-echo help-echo
				       'face face))
    
    (when secret 
      (save-excursion
	(goto-char from)

	    (put-text-property (point) (1+ (point)) 'secret old))
	  (forward-char))))

    (unless (widget-get widget :size)
      (add-text-properties to (1+ to) (list 'field widget
					    'balloon-help help-echo
					    'help-echo help-echo
					    'face face)))
    (add-text-properties to (1+ to) (list 'local-map map
					  'keymap map))))
(defun widget-specify-button (widget from to)
  ;; Specify button for WIDGET between FROM and TO.

(defun widget-default-delete (widget)
  ;; Remove widget from the buffer.
  (let ((from (widget-get widget :from))
	(to (widget-get widget :to))
	(inactive-overlay (widget-get widget :inactive))
	(button-overlay (widget-get widget :button-overlay))
	(inhibit-read-only t)
	after-change-functions)
    (widget-apply widget :value-delete)
    (when inactive-overlay
      (delete-overlay inactive-overlay))
    (when button-overlay
      (delete-overlay button-overlay))
    (when (< from to)
      ;; Kludge: this doesn't need to be true for empty formats.
      (delete-region from to))
    (set-marker from nil)
    (set-marker to nil))

  (setq widget-field-list (delq widget widget-field-list))
  ;; These are nil if the :format string doesn't contain `%v'.
  (when (widget-get widget :value-from)
    (set-marker (widget-get widget :value-from) nil))
  (when (widget-get widget :value-from)
    (set-marker (widget-get widget :value-to) nil))
  (when (widget-get widget :field-overlay)
    (delete-overlay (widget-get widget :field-overlay))))

(defun widget-field-value-get (widget)
  ;; Return current text in editing field.
  (let ((from (widget-get widget :value-from))
	(to (widget-get widget :value-to))

  "An indicator and manipulator for hidden items."
  :format "%[%v%]"
  :button-prefix ""
  :button-suffix ""
  :on "hide"
  :off "show"
  :value-create 'widget-visibility-value-create
  :action 'widget-toggle-action
  :match (lambda (widget value) t))

(defun widget-visibility-value-create (widget)