Re: Quickie question on formatting-table

• To: Curt Eggemeyer <curt@eraserhead.jpl.nasa.gov>
• Subject: Re: Quickie question on formatting-table
• From: ddraper@cs.washington.edu
• Date: Tue, 21 Jan 92 13:52:26 -0800
• Cc: clim@BBN.COM
• In-Reply-To: Your message of Tue, 21 Jan 92 13:04:32 -0800.
• Organization: U of W

    Is it possible to use formatting-table, formatting-row, etc. within the
    context of accepting-values where each cell in the table would be an
    individual accept with its own prompt and default?  I'm not sure this is
    allowed by what was illustrated in the docs.
    
    That would be extremely handy if it is allowed.  Do I need to do anything
    special to implement this if it is possible?

Yes, it works, and no, you don't need to do anything special:
just make the pane an accepting-values pane, and put your accepts
inside formatting-cells.  I don't have a complete example handy,
but below is the macro I used for all my different tables.

denise
ddraper@cs.washington.edu

;;;----------
;;; The following macro captures the common pattern: it displays
;;; one editable value in the table.  When the value is edited,
;;; the associated code ('body') is executed.
;;; note: it assumes the variable 'stream' is appropriately bound

(defmacro accept-val (val type id &body body)
  `(formatting-cell (stream)
    (let (new-val new-type val-changed)
      (multiple-value-bind (new-val new-type val-changed)
	  (accept ,type
		  :stream stream
		  :default ,val
		  :prompt nil
		  :query-identifier ,id)
	(declare (ignore new-type))
	(when val-changed
	  (handler-case (progn ,@body)
	    (simple-error (c)
	      (show-error "~a" c))))))))

• Prev: Quickie question on formatting-table
• Next: Quickie question on formatting-table
• Index: CLIM Mailing list (1-Jan-92 to 31-Aug-92)
• Thread: CLIM Mailing list Index (1-Jan-92 to 31-Aug-92)