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:
parent
e208fe645f
commit
9b15450b08
|
@ -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.}))
|
||||
|
|
Loading…
Reference in New Issue
Block a user