...

original commit: 0042f0312400b040b8bc07db02726230ed064458
2000-08-09 03:12:13 +00:00 · 2000-08-09 03:12:13 +00:00 · 38edd5b5a7
commit 38edd5b5a7
parent 060863e0fc
1 changed files with 8 additions and 0 deletions
--- 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)