.

original commit: 7fd3b189304de81451a8ddd07312715b07bd1ff3

collects/tests/mred/item.ss

@@ -1277,9 +1277,15 @@
                                  (make-object button%
                                               "Change Name" cdp
                                               (lambda (b e)
-                                                (send c set-string
+						(let ([p (send c get-selection)])
-                                                      (send c get-selection)
+						  (when p
-                                                      "New Name")))
+						    (send c set-string p "New Name")
+						    (set! actual-content
+							  (let loop ([ac actual-content][p p])
+							    (if (zero? p)
+								(cons "New Name" (cdr ac))
+								(cons (car ac)
+								      (loop (cdr ac) (sub1 p))))))))))
                                  null))
   (define (make-selectors method mname numerical?)
     (define p2 (make-object horizontal-panel% p))

notes/mred/HISTORY

@@ -1,4 +1,15 @@
 
+103/3:
+
+ * Added 'wait as a possible argument to `yield'. When called in the
+   handler thread of an eventspace, `(yield 'wait)' yields until no
+   top-level windows in the eventspace are visible, no timers in the
+   eventspace are running, and no callbacks are queued in the
+   eventspace.
+
+ * Fixed set-max-undo-history; it wasn't actually resizing the undo
+   history buffer.
+
 103/2:
 
  * Fixed unreliable menu keybindings, especially cut-and-paste. More