Trouble with ACCEPTING-VALUES buttons

• To: Eyvind.Ness@hrp.no, clim@BBN.COM
• Subject: Trouble with ACCEPTING-VALUES buttons
• From: Scott McKay <SWM@stony-brook.scrc.symbolics.com>
• Date: Thu, 9 Sep 1993 16:22 -0400
• Cc: bugs@franz.com, allegro-cl@berkeley.edu
• In-Reply-To: <9309091850.AA04957@letti.hrp.no>

    Date: Thu, 9 Sep 1993 14:50 EDT
    From: Eyvind Ness <eyvind.ness@hrp.no>

First, recall that ACCEPTING-VALUES has a looping structure.  Now note
that you say :DEFAULT NIL in the call to ACCEPT.  So each time around
the A-V loop, the default for the call to ACCEPT is NIL.

I imagine the default should be :DEFAULT (SYMBOL-VALUE VALUE).

      (restart-case
	  (accepting-values (stream :own-window t :label "Special Features")
	    (mapc
	     #'(lambda (sf-plist)
		 (let ((value (getf sf-plist :value))
		       (doc (getf sf-plist :documentation))
		       (label (getf sf-plist :label)))
		   (set value
			(accept 'boolean
				:stream stream
				:view +gadget-dialog-view+
-->				:default NIL
				:prompt label))
		   (terpri stream)
		   (with-drawing-options (stream
					  :text-style fix-bold-normal-font
					  :ink +blue+)
		     (format stream "~&(~A)~%" doc))))
	     *special-features-list*))
	(abort ()
	  ;; (format (frame-error-output frame) "~&Nothing happens")
	  (return-from special-features nil)))

• Trouble with ACCEPTING-VALUES buttons
• From: Eyvind Ness <eyvind.ness@hrp.no>

• Prev: Detecting Change in Frame Size ?
• Next: Detecting Change in Frame Size ?
• Index: CLIM Mailing list (1-Jan-93 to 31-May-94)
• Thread: CLIM Mailing list Index (1-Jan-93 to 31-May-94)