From 632771f5a54be182d66a69362a9cf435b09afa2f Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Thu, 10 Aug 2000 14:14:26 +0000 Subject: [PATCH] . original commit: 7fd3b189304de81451a8ddd07312715b07bd1ff3 --- collects/tests/mred/item.ss | 12 +++++++++--- notes/mred/HISTORY | 11 +++++++++++ 2 files changed, 20 insertions(+), 3 deletions(-) diff --git a/collects/tests/mred/item.ss b/collects/tests/mred/item.ss index a58de4a7..f9c337d8 100644 --- a/collects/tests/mred/item.ss +++ b/collects/tests/mred/item.ss @@ -1277,9 +1277,15 @@ (make-object button% "Change Name" cdp (lambda (b e) - (send c set-string - (send c get-selection) - "New Name"))) + (let ([p (send c get-selection)]) + (when p + (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)) diff --git a/notes/mred/HISTORY b/notes/mred/HISTORY index f90222cd..a66c5733 100644 --- a/notes/mred/HISTORY +++ b/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