#lang scheme/gui

(define the-bitmap
  (make-object bitmap% "225px-Charles_Darwin_seated.jpg"))

(define frame
  (instantiate frame%
    ("Display a bitmap")))

(define canvas
  (instantiate canvas%
    (frame)
    (paint-callback
     (lambda (canvas dc)
       (send dc draw-bitmap the-bitmap 0 0)))
    (min-width (send the-bitmap get-width))
    (min-height (send the-bitmap get-height))))

(send frame show #t)