From b0f77f169b130d5ddbf8927fae073eb3e44423aa Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Mon, 11 Jan 1999 04:34:57 +0000 Subject: [PATCH] ... original commit: da6fdd59a4e71dfc0322db4fae3edcce0a10a920 --- collects/framework/prefs.ss | 4 ++-- collects/tests/framework/prefs.ss | 2 +- 2 files changed, 3 insertions(+), 3 deletions(-) diff --git a/collects/framework/prefs.ss b/collects/framework/prefs.ss index b9be2fbd..34c2c7f9 100644 --- a/collects/framework/prefs.ss +++ b/collects/framework/prefs.ss @@ -350,7 +350,7 @@ (lambda (p v) (send c set-value (pref->bool v))))))] [id (lambda (x) x)]) - (send main set-alignment 'right 'center) + (send main set-alignment 'left 'center) (make-check 'framework:highlight-parens "Highlight between matching parens" id id) (make-check 'framework:fixup-parens "Correct parens" id id) (make-check 'framework:paren-match "Flash paren match" id id) @@ -558,7 +558,7 @@ [popup-callback (lambda (choice command-event) (send single-panel active-child - (ppanel-panel (list-ref ppanels (send command-event get-command-int)))))] + (ppanel-panel (list-ref ppanels (send choice get-selection)))))] [make-popup-menu (lambda () (let ([menu (make-object choice% "Category" diff --git a/collects/tests/framework/prefs.ss b/collects/tests/framework/prefs.ss index 573fec2d..cb780807 100644 --- a/collects/tests/framework/prefs.ss +++ b/collects/tests/framework/prefs.ss @@ -47,7 +47,7 @@ (send-sexp-to-mred '(preferences:show-dialog)) (wait-for-frame "Preferences") (send-sexp-to-mred '(begin (preferences:hide-dialog) - (let ([f (get-top-level-focus-frame)]) + (let ([f (get-top-level-focus-window)]) (if f (if (string=? "Preferences" (send f get-label)) 'failed