<div dir="ltr"><pre><span style="font-family:arial,helvetica,sans-serif">I have three small images of same size. I want to display them one after another.</span></pre><pre style="margin-left:40px"><code></code><code>(define new1-bitmap 
(make-bitmap 
 (send bird-bitmap get-width) 
 (send bird-bitmap get-height)))

 (define dc-crop 
  (new bitmap-dc% [bitmap new1-bitmap]))

 (define f-crop 
  (new frame% [label "Random"]))
 (send f-crop show #t)

 (send dc-crop draw-bitmap-section 
    bird-bitmap 
            0 
            0 
            0 
            (round(* (/ (send bird-bitmap get-height) 3) 2)) 
            (send bird-bitmap get-width)
            (round(/ (send bird-bitmap get-height) 3)))
 (void 
  (new message% [parent f-crop] [label new1-bitmap]))
 (sleep 3)
 (send dc-crop draw-bitmap-section 
    new1-bitmap 
            0 
            0 
            0 
            (round(/ (send bird-bitmap get-height) 3)) 
            (send bird-bitmap get-width)
            (round(/ (send bird-bitmap get-height) 3)))
  (void 
  (new message% [parent f-crop] [label new1-bitmap]))
  (sleep 3)
  (send dc-crop draw-bitmap-section 
    new1-bitmap 
            0 
            0 
            0 
            0
            (send bird-bitmap get-width)
            (round(/ (send bird-bitmap get-height) 3)))
(void 
 (new message% [parent f-crop] [label new1-bitmap]))<br></code></pre><p>Above is the code that I thought would work. It only take three 
images and tries to show them one after another at an interval of 3 
seconds. Moreover the final GUI is three times longer than others.</p>

<p>How should I do this? Thanks<br></p><pre><code></code></pre></div>