[racket] How to get a pict-box into a slideshow?

Robby Findler writes:

 > Yes. You would use ct-find and friends to find the picts that you put into the box.

Sure, but what do I ask ct-find to look for?

I found one way, even though it looks a bit clumsy:

  (define my-text (t "inside the pict box"))
  (define box ... put the pict box here and insert a Racket box containing "my-text" ...)
  (ct-find box text1)

That makes for a lot of define's, but it works. I'll go on playing
with this.

Konrad.