problem with buttons in dialogs

• To: clim@BBN.COM
• Subject: problem with buttons in dialogs
• From: George Williams <george@hsvaic.boeing.com>
• Date: Tue, 11 Aug 92 12:13:55 CDT

Try this simple test.  When you click on the buttons to toggle the
values, the text in the buttons disappears.

Suggestions?

Thanks,
George Williams            BCS Huntsville Artificial Intelligence Center
Boeing Computer Services   Internet: george@hsvaic.boeing.com
POBox 240002, M/S JY-58    UUCP: ...!uw-beaver!bcsaic!hsvaic!george
Huntsville AL 35824-6402   Phone: 205+464-4968 FAX: 205+464-4930
----8< snip >8--------8< snip >8--------8< snip >8--------8< snip >8----

(defun test (x &AUX (stream *root-window*))
  (accepting-values (stream :own-window '(:right-margin (15 :character))
			    :resynchronize-every-pass t)
		    (format stream "Value Of X.............................. ")
		    (with-drawing-options (stream :line-thickness 2)
		      (surrounding-output-with-border
		       (stream)
		       (setq x
			 (car (accept '(subset-alist (("Toggle X" . t)))
				      :prompt ""
				      :query-identifier "1"
				      :prompt-mode :raw
				      :stream stream
				      :default (list x))))))
		    (terpri stream)
		    (format stream "Value Of X.............................. ")
		    (with-drawing-options (stream :line-thickness 2)
		      (surrounding-output-with-border
		       (stream)
		       (setq x
			 (car (accept '(subset-alist (("Toggle X" . t)))
				      :prompt ""
				      :query-identifier "2"
				      :prompt-mode :raw
				      :stream stream
				      :default (list x))))))))
(test t)

• Prev: Re: clim library suggestions
• Next: Re: problem with buttons in dialogs
• Index: CLIM Mailing list (1-Jan-92 to 31-Aug-92)
• Thread: CLIM Mailing list Index (1-Jan-92 to 31-Aug-92)