<html> <head> <meta content="text/html; charset=windows-1252" http-equiv="Content-Type"> </head> <body bgcolor="#FFFFFF" text="#000000"> Chris, It sounds like your mental model of the canvas is that stuff you draw on it stays there permanently, like paint on a real-world canvas. This is not how the GUI works. When the GUI canvas is displayed on the screen, it asks your program (by calling on-paint) to draw the canvas contents. Lots of things can trigger an on-paint - resizing the canvas, another window moving across the canvas, the laptop resuming from sleep, etc. You can trigger one in your code by calling refresh. See below for Matthias' example with a button added. Does this help? Thanks, Dave <tt>#lang racket/gui</tt><tt> </tt><tt> </tt><tt>(define show-rectangle? #f)</tt><tt> </tt><tt> </tt><tt>(define frame</tt><tt> </tt><tt> (new frame%</tt><tt> </tt><tt> [label "Example"]</tt><tt> </tt><tt> [width 300]</tt><tt> </tt><tt> [height 300]))</tt><tt> </tt><tt> </tt><tt>(define top-canvas</tt><tt> </tt><tt> (new (class canvas%</tt><tt> </tt><tt> (inherit get-dc)</tt><tt> </tt><tt> (super-new [parent frame])</tt><tt> </tt><tt> (define/override (on-paint)</tt><tt> </tt><tt> (define dc (get-dc))</tt><tt> </tt><tt> (when show-rectangle?</tt><tt> </tt><tt> (send dc draw-rectangle</tt><tt> </tt><tt> 0 10 ; Top-left at (0, 10), 10 pixels down from top-left</tt><tt> </tt><tt> 30 10)) ; 30 pixels wide and 10 pixels high</tt><tt> </tt><tt> (send dc draw-line</tt><tt> </tt><tt> 0 0 ; Start at (0, 0), the top-left corner</tt><tt> </tt><tt> 30 30) ; and draw to (30, 30), the bottom-right corner</tt><tt> </tt><tt> (send dc draw-line</tt><tt> </tt><tt> 0 30 ; Start at (0, 30), the bottom-left corner</tt><tt> </tt><tt> 30 0) ; and draw to (30, 0), the top-right corner</tt><tt> </tt><tt> ))))</tt><tt> </tt><tt> </tt><tt>(define top-button</tt><tt> </tt><tt> (new button%</tt><tt> </tt><tt> [parent frame]</tt><tt> </tt><tt> [label "Show Rectangle"]</tt><tt> </tt><tt> [callback (lambda (b e)</tt><tt> </tt><tt> (set! show-rectangle? #t)</tt><tt> </tt><tt> (send top-canvas refresh))]))</tt><tt> </tt><tt> </tt><tt>(send frame show #t)</tt> <div class="moz-cite-prefix">On 10/01/2014 10:16 PM, Chris Wright wrote: </div> <blockquote cite="mid:CABke0-UNTT_ieeAWcPf8SK-S0xyLR=O+EZrXSCVAVR62XNjebA@mail.gmail.com" type="cite"> <div dir="ltr"> <div> <div> <div> <div>Thanks Matthias and Sean </div> </div> It's often helpful when people asking questions ask them clearly ! :) </div> I'll now attempt a clarification... say I have a button in the window, and when that button is pressed, I want to draw on the canvas - and later, another button is pressed, and I might want to draw something else somewhere else on the canvas. I think I'm wanting to get hold of the dc outside of the definition of on-paint in the initialisation code </div> cheers and thanks again Chris </div> <div class="gmail_extra"> <div class="gmail_quote">On 2 October 2014 11:57, Matthias Felleisen <<a moz-do-not-send="true" href="mailto:matthias@ccs.neu.edu" target="_blank">matthias@ccs.neu.edu</a>> wrote: <blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex"> Does this help? #lang racket/gui (define frame (new frame% [label "Example"] [width 300] [height 300])) (define top-canvas (new (class canvas% (inherit get-dc) (super-new [parent frame]) (define/override (on-paint) (define dc (get-dc)) (send dc draw-rectangle 0 10 ; Top-left at (0, 10), 10 pixels down from top-left 30 10) ; 30 pixels wide and 10 pixels high (send dc draw-line 0 0 ; Start at (0, 0), the top-left corner 30 30) ; and draw to (30, 30), the bottom-right corner (send dc draw-line 0 30 ; Start at (0, 30), the bottom-left corner 30 0) ; and draw to (30, 0), the top-right corner )))) (send frame show #t) <div> <div class="h5"> On Oct 1, 2014, at 9:51 PM, Chris Wright wrote: > I would like to draw on a canvas in a window at various times during program execution. > My first attempt was to combine two examples: > > #lang racket/gui > > (define frame (new frame% > [label "Example"] > [width 300] > [height 300])) > (define top-canvas (new canvas% [parent frame])) > > (send frame show #t) > > (define dc (send top-canvas get-dc)) > > (send dc draw-rectangle > 0 10 ; Top-left at (0, 10), 10 pixels down from top-left > 30 10) ; 30 pixels wide and 10 pixels high > (send dc draw-line > 0 0 ; Start at (0, 0), the top-left corner > 30 30) ; and draw to (30, 30), the bottom-right corner > (send dc draw-line > 0 30 ; Start at (0, 30), the bottom-left corner > 30 0) ; and draw to (30, 0), the top-right corner > > > > The cross and box are drawn, but "instantly" over-written by a blank canvas. I suppose this is because on-paint is triggered? (not sure by what..) > If I put the (send frame...) form at the end of the code, the cross and box aren't seen. > > I am sure this is due to me not understanding the model properly - I'd be grateful for some help... > > many thanks > > Chris </div> </div> > ____________________ > Racket Users list: > <a moz-do-not-send="true" href="http://lists.racket-lang.org/users" target="_blank">http://lists.racket-lang.org/users</a> </blockquote> </div> -- A/Prof Chris Wright MBBS, FRACP, FCICM, GradDipiSc(Physics) Academic Coordinator, Years III - V Central MBBS Intensive Care Specialist Faculty of Medicine, Nursing and Health Sciences, Monash University Clayton VIC </div> <fieldset class="mimeAttachmentHeader"></fieldset> <pre wrap="">____________________ Racket Users list: <a class="moz-txt-link-freetext" href="http://lists.racket-lang.org/users">http://lists.racket-lang.org/users</a> </pre> </blockquote> </body> </html>