From 9b15450b081d140fe7cd88ac3fbb86bcc66d6586 Mon Sep 17 00:00:00 2001
From: Robby Findler <robby@racket-lang.org>
Date: Sat, 8 Sep 2012 15:58:25 -0500
Subject: [PATCH] export and document enabled-shown-button?           
 label-of-enabled/shown-button-in-top-level-window?        and
 button-in-top-level-focusd-window?

---
 collects/framework/test.rkt | 26 +++++++++++++++++++++++++-
 1 file changed, 25 insertions(+), 1 deletion(-)

diff --git a/collects/framework/test.rkt b/collects/framework/test.rkt
index 2a61099d40..87845539c9 100644
--- a/collects/framework/test.rkt
+++ b/collects/framework/test.rkt
@@ -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.}))