Re: Problems with widgets in 21.1.12 and 21.2-b36 vanilla

>>>>> "APA" == Adrian Aichner <adrian(a)xemacs.org&gt; 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&gt;, http://www.xemacs.org -- Adrian Aichner <adrian(a)xemacs.org&gt;, http://www.xemacs.org