From 7dedc1a6924cf749a8e30802da5a3a0fcdd2d053 Mon Sep 17 00:00:00 2001 From: Cormac Flanagan Date: Tue, 29 Apr 1997 17:26:41 +0000 Subject: [PATCH] Reordered letrec for Spidey original commit: ae94d7fd11de35d71847eb23952f3401e6a6762d --- collects/mred/prefs.ss | 20 +++++++++----------- 1 file changed, 9 insertions(+), 11 deletions(-) diff --git a/collects/mred/prefs.ss b/collects/mred/prefs.ss index 8b3e9ea9..5e8884cb 100644 --- a/collects/mred/prefs.ss +++ b/collects/mred/prefs.ss @@ -303,14 +303,20 @@ (define make-preferences-dialog (lambda () - (letrec* ([frame + (letrec* ([refresh-menu + (lambda (ppanel) + (let ([new-panel ((ppanel-container ppanel) single-panel)]) + (set! panels (append panels (list new-panel))) + (let ([new-popup (make-popup-menu)]) + (send new-popup set-selection (send popup-menu get-selection)) + (send top-panel change-children + (lambda (l) (list top-left new-popup top-right))))))] + [frame (make-object (class-asi mred:frame% (public [added-pane (lambda (ppanel) (refresh-menu ppanel))])) '() "Preferences")] - - [panel (make-object mred:vertical-panel% frame)] [top-panel (make-object mred:horizontal-panel% panel)] [single-panel (make-object mred:single-panel% panel -1 -1 -1 -1 wx:const-border)] @@ -329,14 +335,6 @@ [top-left (make-object mred:vertical-panel% top-panel)] [popup-menu (make-popup-menu)] [top-right (make-object mred:vertical-panel% top-panel)] - [refresh-menu - (lambda (ppanel) - (let ([new-panel ((ppanel-container ppanel) single-panel)]) - (set! panels (append panels (list new-panel))) - (let ([new-popup (make-popup-menu)]) - (send new-popup set-selection (send popup-menu get-selection)) - (send top-panel change-children - (lambda (l) (list top-left new-popup top-right))))))] [ok-callback (lambda args (save-user-preferences) (hide-preferences-dialog))]