On Mar 19, 2011, at 8:05 AM, Matthew Flatt wrote: > You could use `message%' with the bitmap as its label: > > #lang racket/gui > > (define bitmap (read-bitmap "/tmp/red-arrow.bmp")) > > (define f (new frame% [label "Bitmap"])) > (new message% [parent f] [label bitmap]) > (send f show #t)
That's a lot shorter. Thanks! John
smime.p7s
Description: S/MIME cryptographic signature
_________________________________________________ For list-related administrative tasks: http://lists.racket-lang.org/listinfo/dev
