suzanne.soy/gui
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

adjust switchable-button so that it can change its label

Browse Source
This commit is contained in:
Robby Findler 2016-02-09 18:16:36 -06:00
parent e9e2940138
commit 7d5144acba
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
gui-lib/mrlib/switchable-button.rkt
View File

@ -65,6 +65,10 @@
[min-width-includes-label? #f]) [min-width-includes-label? #f])
(define/public (get-button-label) label) (define/public (get-button-label) label)
(define/override (set-label l)
(set! label l)
(update-sizes)
(refresh))
(when (and (is-a? label bitmap%) (when (and (is-a? label bitmap%)
(not (send label ok?))) (not (send label ok?)))