Re: Customize group parameters problems

[Per Abrahamsen <abraham@dina.kvl.dk>]

Shenghuo ZHU <zsh@cs.rochester.edu> writes:

> I agree. But I am not familiar with those widgets.  Does anyone know
> how to fix it?

It is a `wid-edit.el' bug/limitation.  Here is a fix.  I have send it
to the Emacs maintainers, I believe Hjrove has already fixed it for
XEmacs.

2000-05-01  Per Abrahamsen  <abraham@dina.kvl.dk>

	* wid-edit.el (widget-default-active): Obey `:always-active'.
	(widget-documentation-string-value-create): Set `:always-active'.

Index: wid-edit.el
===================================================================
RCS file: /gd/gnu/cvsroot/emacs/lisp/wid-edit.el,v
retrieving revision 1.64
diff -c -r1.64 wid-edit.el
*** wid-edit.el	2000/02/16 13:25:52	1.64
--- wid-edit.el	2000/05/01 13:13:50
***************
*** 1539,1548 ****
  
  (defun widget-default-active (widget)
    "Return t iff this widget active (user modifiable)."
!   (and (not (widget-get widget :inactive))
!        (let ((parent (widget-get widget :parent)))
! 	 (or (null parent) 
! 	     (widget-apply parent :active)))))
  
  (defun widget-default-deactivate (widget)
    "Make WIDGET inactive for user modifications."
--- 1539,1549 ----
  
  (defun widget-default-active (widget)
    "Return t iff this widget active (user modifiable)."
!   (or (widget-get widget :always-active)
!       (and (not (widget-get widget :inactive))
! 	   (let ((parent (widget-get widget :parent)))
! 	     (or (null parent) 
! 		 (widget-apply parent :active))))))
  
  (defun widget-default-deactivate (widget)
    "Make WIDGET inactive for user modifications."
***************
*** 2860,2865 ****
--- 2861,2867 ----
  		 widget 'visibility
  		 :help-echo "Show or hide rest of the documentation."
  		 :off "More"
+ 		 :always-active t
  		 :action 'widget-parent-action
  		 shown)
  		buttons)