presentation-translator question

• To: clim@BBN.COM
• Subject: presentation-translator question
• From: Curt Eggemeyer <curt@eraserhead.jpl.nasa.gov>
• Date: Mon, 3 Aug 92 08:55:24 PDT

I have defined my own presentation type in which I added my own accept and
present methods (which are too long to include here, but work fine)
that may utilize additional keyword options (below).


(define-presentation-type time
  (&key (minimum nil) (maximum nil) (window nil) (io-type nil) (sync-to nil)))

I have also defined a presentation translator (below)

(define-presentation-translator blank-time
   (blank-area time my-applic :gesture :left :pointer-documentation "time")
   (x)
   (+ (Display-Frame-Start *my-app*) (truncate (- x *legend-border*)
					       (pixel-per-time *my-app*))))

All of which works fine.

Except if I do something like:

(accept '(time :minimum 20 :maximum 100) :stream *interactor-stream*) and
click somewhere on my display-frame, the translator will even accept those
time points outside of my range.  How does one handle user-added keyword
options to their presentation types within the define-presentation-translator
context?  Is there a way I can grab them and utilize it within the :tester
function for the translator?  Any examples?

• Prev: window coord. & print text
• Next: Re: window coord. & print text
• Index: CLIM Mailing list (1-Jan-92 to 31-Aug-92)
• Thread: CLIM Mailing list Index (1-Jan-92 to 31-Aug-92)