>>>> "Andy" == Andy Piper <andyp(a)bea.com>
writes:
Andy> Which next button is this?
Andy> Thanks
Oops, the test-case did not get archived on xemacs-beta.
See the thread starting with this:
http://www.xemacs.org/cgi-bin/wilma_hiliter/xemacs-beta/200010/msg00080.html
Here it (widget-activation-test.el) is again:
(defun widget-activation-test ()
"test-case exposing following problems:
In XEmacs 21.2-b36 vanilla \"i386-pc-win32\" the \"Next Button\" is
never rendered inactive.
In XEmacs 21.1.12 vanilla \"i386-pc-win32\" the \"Next Button\" is
correctly rendered inactive, BUT is not dispalayed as active again
(after pressing \"Activate Next Button\") until it is pressed!
In both, when going back from \"Next Button\" with
Sh-TAB runs `widget-backward',
the caret is not displayed until
C-l runs `recenter'
is pressed.
In both
Sh-TAB runs `widget-backward',
circles through all buttons in the buffer (wrapping around) while
TAB runs `widget-forward'
does not. It leaves caret at the last button in the buffer.
"
(interactive)
(kill-buffer (get-buffer-create "*widget-activation-test*"))
(switch-to-buffer (get-buffer-create "*widget-activation-test*"))
(kill-all-local-variables)
(setq toggle-button
(widget-create 'push-button
:notify (lambda (&rest ignore)
(cond ((widget-apply next-button :active)
(widget-apply next-button :deactivate)
(widget-value-set
toggle-button
"Activate Next Button"))
(t
(widget-apply next-button :activate)
(widget-value-set
toggle-button
"Deactivate Next Button"))))
"Deactivate Next Button"))
(widget-insert "\n")
(setq
next-button
(widget-create 'push-button
:notify (lambda (&rest ignore)
(message (current-time-string)))
"Next Button (current-time-string)"))
(use-local-map widget-keymap)
(widget-setup))
Hope this helps,
Adrian
Andy> andy
Andy> At 12:30 08/10/00 +0200, Adrian Aichner wrote:
> >>>>> "APA" == Adrian Aichner
<adrian(a)xemacs.org> writes:
>
> Hello Andy,
>
> following change seems to blame for following problem in 21.2-b36 (and
> previous version) (see test-case in <uk8bk1kk1.fsf(a)ecf.teradyne.com>):
>
> In XEmacs 21.2-b36 vanilla \"i386-pc-win32\" the \"Next Button\"
is
> never rendered inactive.
>
> Index: wid-edit.el
> ===================================================================
> RCS file: /usr/CVSroot/XEmacs/xemacs/lisp/wid-edit.el,v
> retrieving revision 1.11.2.6
> retrieving revision 1.11.2.7
> diff -u -u -r1.11.2.6 -r1.11.2.7
> --- wid-edit.el 1999/07/06 07:33:02 1.11.2.6
> +++ wid-edit.el 1999/10/20 07:14:33 1.11.2.7
> @@ -1935,16 +1935,11 @@
> (console-on-window-system-p))
> (unless gui-glyphs
> (let* ((gui-button-shadow-thickness 1)
> - (gui (make-gui-button tag 'widget-gui-action widget)))
> - (setq
> - gui-glyphs
> - (list
> - (make-glyph `(,(nth 0 (aref gui 1)) [string :data ,text]))
> - (make-glyph `(,(nth 1 (aref gui 1)) [string :data ,text]))
> - (make-glyph `(,(nth 2 (aref gui 1)) [string :data ,text]))))
> + (gui (make-glyph
> + (make-gui-button tag 'widget-gui-action widget))))
> + (setq gui-glyphs gui)
> (laxputf widget-push-button-cache tag gui-glyphs)))
> - (widget-glyph-insert-glyph
> - widget (nth 0 gui-glyphs) (nth 1 gui-glyphs) (nth 2 gui-glyphs)))
> + (widget-glyph-insert-glyph widget gui-glyphs))
> (t
> (insert text)))))
>
> Could you please comment. I would like to fix this.
>
> Best regards,
>
> Adrian
>
APA> Hello Per, Hrvoje, All!
>
APA> If you could give me some guidance/hints I am
willing to look into
APA> these problems/features and come up with patches.
>
APA> In particular I would like the fix the button
active/inactive
> display
APA> problems.
>
APA> Here's the self-documenting test-case:
>
>
>
APA> Thanks,
>
APA> Adrian
>
APA> --
APA> Adrian Aichner <adrian(a)xemacs.org>,
http://www.xemacs.org
>
>> --
>> Adrian Aichner <adrian(a)xemacs.org>,
http://www.xemacs.org
Andy> --------------------------------------------------------------
Andy> Dr Andy Piper
Andy> Principal Consultant, BEA Systems Ltd
--
Adrian Aichner
mailto:adrian@xemacs.org
http://www.xemacs.org/