You need to arrange for this line: (send (send canvas get-dc) draw-bitmap (bitmap) 0 0)
to happen whenever the canvas needs to be refreshed, either by overriding on-paint in canvas% and making the call there, or by using the paint-callback init arg. Robby On Sun, May 19, 2013 at 7:17 PM, Tomás Coiro <tomco...@hotmail.com> wrote: > #lang racket/gui > (define bitmap (make-parameter #f)) > (define dc (make-parameter #f)) > (define path (make-parameter #f)) > > (parameterize* ((bitmap (make-bitmap 500 500 #f)) > (dc (let ((temp (new bitmap-dc% (bitmap (bitmap))))) > (send temp set-pen "black" 2 'solid) > temp)) > (path (new dc-path%))) > (define frame (new frame% [min-width (send (bitmap) get-width)] > [min-height (send (bitmap) get-height)] > [label "test"])) > (send (path) move-to 50 50) > (send (path) line-to 250 250) > (send (dc) draw-path (path)) > (define canvas (new canvas% [parent frame])) > (send (send canvas get-dc) draw-bitmap (bitmap) 0 0) > (send frame show #t)) > > > I don't know what i am doing wrong, the bitmap is drawn, if i return it i > get the line all fine, the problem is that the frame either doesn't get > updated or never tries to draw. Is this a bug in canvas% or am I doing > something terribly wrong? > > ____________________ > Racket Users list: > http://lists.racket-lang.org/users > >
____________________ Racket Users list: http://lists.racket-lang.org/users
