<html>
<head>
<meta content="text/html; charset=UTF-8" http-equiv="Content-Type">
</head>
<body bgcolor="#FFFFFF" text="#000000">
I'm sorry, I should have been more specific – it happens when using
a gl-enabled canvas (example below).<br>
I hope that does not turn it into a dragons' den? ;)<br>
<br>
Philipp<br>
<br>
#lang racket/gui<br>
<br>
(require sgl)<br>
<br>
(define c%<br>
(class canvas%<br>
(inherit with-gl-context swap-gl-buffers)<br>
(define/override (on-paint)<br>
(with-gl-context<br>
(lambda ()<br>
(gl-clear-color (random) (random) (random) 1)<br>
(gl-clear 'color-buffer-bit)<br>
(swap-gl-buffers)<br>
(gl-flush))))<br>
(super-new (style '(gl no-autoclear)))))<br>
<br>
(define f (new frame% [label ""] [width 100] [height 100]))<br>
(define c (new c% [parent f]))<br>
(send f show #t)<br>
<div class="moz-cite-prefix"><br>
<br>
On 11.02.13 22:39, Robby Findler wrote:<br>
</div>
<blockquote
cite="mid:CAL3TdOOT+61nn+XOb+xqto=K+cZ32-otqafJM5Se2ngNOK3bew@mail.gmail.com"
type="cite">
<div dir="ltr">I don't think it does that. The program below, at
least for me, doesn't do crazy colors when I move the mouse
around (it does when resizing, tho).
<div><br>
</div>
<div style="">Robby</div>
<div style=""><br>
</div>
<div style="">
<div>#lang racket/gui</div>
<div><br>
</div>
<div>(define c%</div>
<div> (class canvas%</div>
<div> (inherit get-client-size get-dc)</div>
<div> (define/override (on-paint)</div>
<div> (define-values (w h) (get-client-size))</div>
<div> (define dc (get-dc))</div>
<div> (define c (make-object color% (random 255) (random
255) (random 255)))</div>
<div> (send dc set-brush c 'solid)</div>
<div> (send dc set-pen "black" 1 'transparent)</div>
<div> (send dc draw-ellipse 0 0 w h))</div>
<div> (super-new)))</div>
<div><br>
</div>
<div>(define f (new frame% [label ""] [width 100] [height
100]))</div>
<div>(define c (new c% [parent f]))</div>
<div>(send f show #t)</div>
</div>
</div>
<div class="gmail_extra"><br>
<br>
<div class="gmail_quote">On Mon, Feb 11, 2013 at 9:41 AM,
Philipp Dikmann <span dir="ltr"><<a moz-do-not-send="true"
href="mailto:philipp@dikmann.de" target="_blank">philipp@dikmann.de</a>></span>
wrote:<br>
<blockquote class="gmail_quote" style="margin:0 0 0
.8ex;border-left:1px #ccc solid;padding-left:1ex">It appears
that the GUI canvas% refreshes itself whenever it receives a
mouse-event%.<br>
I intend to refresh the canvas at a steady pace (using a
timer%) and independently of any mouse-events instead.<br>
Is there a reasonable way to suppress the default behavior?<br>
<br>
Thanks for your time,<br>
Philipp<br>
____________________<br>
Racket Users list:<br>
<a moz-do-not-send="true"
href="http://lists.racket-lang.org/users" target="_blank">http://lists.racket-lang.org/users</a><br>
</blockquote>
</div>
<br>
</div>
</blockquote>
<br>
</body>
</html>