So take a copy of the source for a standard button% from the Racket code itself and than hack on it to create a class for a new type of widgit? <div class="gmail_quote">On Tue, Feb 21, 2012 at 10:56 AM, Matthias Felleisen <<a href="mailto:matthias@ccs.neu.edu">matthias@ccs.neu.edu</a>> wrote: <blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex"> You could change the button child of the GUI and bring in a completely new button with a different color. -- Matthias <div class="HOEnZb"><div class="h5"> On Feb 21, 2012, at 12:53 PM, Matthew Flatt wrote: > The idea of `set-state-normal' and `set-state-selected' sounds like a > `check-box%' rather than a `button%'. > > Otherwise, there's no way to change the background color of a `button%' > instance. Classes like `button%' correspond to platform-specific GUI > widgets that typically either don't support or strongly discourage the > possibility of changing a button's background (because button colors > are normally determined by a theme). You can create a `canvas%' that > draws a custom button image, in which case you have complete control > over how the button looks and reacts, but there isn't much of an > in-between level of customization in the current toolkit. > > At Tue, 21 Feb 2012 00:25:52 -0700, Kieron Hardy wrote: >> Hi all, >> >> How do I change the background color (and/or style of border etc.) of a GUI >> button? Given the code below, what should I put in the set-state-x methods >> to indicate a difference between a normal and selected button? >> >> Also any comments on program style and/or substance are appreciated (I >> apologize in advance if the layout offends). >> >> Cheers, >> >> Kieron. >> >> **** >> >> #lang racket/gui >> >> (define color-button% >> (class button% >> (inherit refresh) >> >> (define toggle >> (let ([f #f]) >> (lambda () >> (set! f (not f)) >> f >> ) >> ) >> ) >> >> (define (set-state-normal) >> (printf "color-button%: set-state-normal:\n") >> ; ??? ; set background color to normal >> (refresh) >> ) >> >> (define (set-state-selected) >> (printf "color-button%: set-state-selected:\n") >> ; ??? ; set background color to red >> (refresh) >> ) >> >> (define click-callback >> (lambda (button control-event) >> (printf "color-button%: click-callback:\n") >> (if (toggle) >> (set-state-selected) >> (set-state-normal) >> ) >> ) >> ) >> >> (super-new (callback click-callback)) >> >> ) >> ) >> >> (define f (new frame% >> [label "Colored Button"] >> [min-width 100] >> [min-height 200] >> ) >> ) >> >> (define b (new color-button% >> [parent f] >> [label "push me"] >> ) >> ) >> >> (send f show #t) >> ____________________ >> Racket Users list: >> <a href="http://lists.racket-lang.org/users" target="_blank">http://lists.racket-lang.org/users</a> > ____________________ > Racket Users list: > <a href="http://lists.racket-lang.org/users" target="_blank">http://lists.racket-lang.org/users</a> </div></div></blockquote></div>