[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/wid-edit.el [lexbind]
From: |
Miles Bader |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/wid-edit.el [lexbind] |
Date: |
Tue, 06 Jul 2004 07:07:57 -0400 |
Index: emacs/lisp/wid-edit.el
diff -c emacs/lisp/wid-edit.el:1.110.2.6 emacs/lisp/wid-edit.el:1.110.2.7
*** emacs/lisp/wid-edit.el:1.110.2.6 Thu Apr 29 10:59:10 2004
--- emacs/lisp/wid-edit.el Tue Jul 6 10:00:05 2004
***************
*** 385,392 ****
(overlay-put overlay 'evaporate t)
;; We want to avoid the face with image buttons.
(unless (widget-get widget :suppress-face)
! (overlay-put overlay 'face (widget-apply widget :button-face-get))
! (overlay-put overlay 'mouse-face widget-mouse-face))
(overlay-put overlay 'help-echo help-echo)))
(defun widget-mouse-help (window overlay point)
--- 385,392 ----
(overlay-put overlay 'evaporate t)
;; We want to avoid the face with image buttons.
(unless (widget-get widget :suppress-face)
! (overlay-put overlay 'face (widget-apply widget :button-face-get)))
! (overlay-put overlay 'pointer 'hand)
(overlay-put overlay 'help-echo help-echo)))
(defun widget-mouse-help (window overlay point)
***************
*** 1289,1296 ****
The value of the :type attribute should be an unconverted widget type."
(let ((value (widget-get widget :value))
(type (widget-get widget :type)))
! (widget-put widget :children
! (list (widget-create-child-value widget
(widget-convert type)
value)))))
--- 1289,1296 ----
The value of the :type attribute should be an unconverted widget type."
(let ((value (widget-get widget :value))
(type (widget-get widget :type)))
! (widget-put widget :children
! (list (widget-create-child-value widget
(widget-convert type)
value)))))
***************
*** 3312,3319 ****
nil, or a cons-cell containing a sexp and my-lisp. This will not work
because the `choice' widget does not allow recursion.
! Using the `lazy' widget you can overcome this problem, as in this
! example:
(define-widget 'sexp-list 'lazy
\"A list of sexps.\"
--- 3312,3319 ----
nil, or a cons-cell containing a sexp and my-lisp. This will not work
because the `choice' widget does not allow recursion.
! Using the `lazy' widget you can overcome this problem, as in this
! example:
(define-widget 'sexp-list 'lazy
\"A list of sexps.\"
***************
*** 3322,3328 ****
:format "%{%t%}: %v"
;; We don't convert :type because we want to allow recursive
;; datastructures. This is slow, so we should not create speed
! ;; critical widgets by deriving from this.
:convert-widget 'widget-value-convert-widget
:value-create 'widget-type-value-create
:value-get 'widget-child-value-get
--- 3322,3328 ----
:format "%{%t%}: %v"
;; We don't convert :type because we want to allow recursive
;; datastructures. This is slow, so we should not create speed
! ;; critical widgets by deriving from this.
:convert-widget 'widget-value-convert-widget
:value-create 'widget-type-value-create
:value-get 'widget-child-value-get
- [Emacs-diffs] Changes to emacs/lisp/wid-edit.el [lexbind],
Miles Bader <=