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

drs bug and test-suite fixes

Browse Source 
svn: r9709

original commit: 860c41d7492a33880f9c18839c21a601d675e5b8
This commit is contained in:
Matthew Flatt 2008-05-06 23:27:23 +00:00
parent eda8fa501a
commit 5462d5a219
2 changed files with 11 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
collects/mrlib/scribblings/switchable-button.scrbl
View File

@ -1,6 +1,6 @@
#lang scribble/doc #lang scribble/doc
@(require "common.ss" @(require "common.ss"
(for-label mrlib/name-message)) (for-label mrlib/switchable-button))
@title{Switchable Button} @title{Switchable Button}
@ -30,5 +30,10 @@ If it is not supplied, both modes show the same bitmap.
@defmethod[(set-label-visible [visible? boolean?]) void?]{ @defmethod[(set-label-visible [visible? boolean?]) void?]{
Sets the visibility of the string part of the label. Sets the visibility of the string part of the label.
} }
@defmethod[(command) void?]{
Calls the button's callback function.}
} }

6
collects/mrlib/switchable-button.ss
View File

@ -97,6 +97,10 @@
[(send evt moving?) [(send evt moving?)
(update-in evt)])) (update-in evt)]))
(define/public (command)
(callback this)
(void))
(define float-window #f) (define float-window #f)
(inherit get-width get-height) (inherit get-width get-height)
(define timer (new timer% (define timer (new timer%
@ -234,7 +238,7 @@
(min-width (+ w w-circle-space margin margin)) (min-width (+ w w-circle-space margin margin))
(min-height (+ h h-circle-space margin margin)))) (min-height (+ h h-circle-space margin margin))))
(super-new [style '(transparent)]) (super-new [style '(transparent no-focus)])
(send (get-dc) set-smoothing 'aligned) (send (get-dc) set-smoothing 'aligned)
(inherit stretchable-width stretchable-height) (inherit stretchable-width stretchable-height)