From 38edd5b5a7432839ba3fc1be0478c3c90ce1cf1e Mon Sep 17 00:00:00 2001 From: John Clements Date: Wed, 9 Aug 2000 03:12:13 +0000 Subject: [PATCH] ... original commit: 0042f0312400b040b8bc07db02726230ed064458 --- collects/tests/mred/item.ss | 8 ++++++++ 1 file changed, 8 insertions(+) diff --git a/collects/tests/mred/item.ss b/collects/tests/mred/item.ss index b8f666fb..a58de4a7 100644 --- a/collects/tests/mred/item.ss +++ b/collects/tests/mred/item.ss @@ -1273,6 +1273,14 @@ (lambda (b e) (send c select (send c get-selection) #f))) null)) + (define change-button-name (if list? + (make-object button% + "Change Name" cdp + (lambda (b e) + (send c set-string + (send c get-selection) + "New Name"))) + null)) (define (make-selectors method mname numerical?) (define p2 (make-object horizontal-panel% p)) (send p2 stretchable-height #f)