From e8d0bd93275b39946cb9bbfa39ff94cd5f970b3b Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Sun, 28 Mar 1999 21:58:23 +0000 Subject: [PATCH] . original commit: d740ac18b8a522d9a49d8ecf320ee77e992c4e55 --- src/mred/wrap/mred.ss | 5 +++++ 1 file changed, 5 insertions(+) diff --git a/src/mred/wrap/mred.ss b/src/mred/wrap/mred.ss index af95dea9..dec03d10 100644 --- a/src/mred/wrap/mred.ss +++ b/src/mred/wrap/mred.ss @@ -4350,7 +4350,9 @@ (send p stretchable-height #f) (make-object button% "Cancel" p (done #f)) (make-object button% "Ok" p (done #t) '(border)) + (send (send t get-editor) select-all) (send t focus) + (send f center) (send f show #t) (and ok? (send t get-value))))])) @@ -4398,6 +4400,7 @@ (make-object button% "Cancel" p (done #f)) (set! ok-button (make-object button% "Ok" p (done #t) '(border))) (update-ok l) + (send f center) (send f show #t) (and ok? (send l get-selections))))])) @@ -4577,6 +4580,7 @@ (make-object button% "Ok" bp (done #t) '(border)) (send bp set-alignment 'right 'center) (send p set-alignment 'right 'center) + (send f center) (send f show #t) (and ok? (make-object wx:color% @@ -4633,6 +4637,7 @@ (send size set-value (send font get-point-size))) (send bp set-alignment 'right 'center) (refresh-sample (void) (void)) + (send f center) (send f show #t) (and ok? (get-font)))])))