export and document enabled-shown-button?

label-of-enabled/shown-button-in-top-level-window?
       and button-in-top-level-focusd-window?
This commit is contained in:
Robby Findler 2012-09-08 15:58:25 -05:00
parent e208fe645f
commit 9b15450b08

View File

@ -1080,4 +1080,28 @@
test:get-active-top-level-window
(-> (or/c (is-a?/c frame%) (is-a?/c dialog%) #f))
()
@{Returns the frontmost frame, based on @racket[test:use-focus-table].}))
@{Returns the frontmost frame, based on @racket[test:use-focus-table].})
(proc-doc/names
label-of-enabled/shown-button-in-top-level-window?
(-> string? boolean?)
(label)
@{Returns @racket[#t] when @racket[label] is
the label of an enabled and shown
@racket[button%] instance that
is in the top-level window that currently
has the focus, using @racket[test:top-level-focus-window-has?].})
(proc-doc/names
enabled-shown-button?
(-> (is-a?/c button%) boolean?)
(button)
@{Returns @racket[#t] when @racket[button]
is both enabled and shown.})
(proc-doc/names
button-in-top-level-focusd-window?
(-> (is-a?/c button%) boolean?)
(button)
@{Returns @racket[#t] when @racket[button] is
in the top-level focused window.}))