From f14c71d37d325be3e7c793cdf9eda0d867ac5b43 Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Fri, 3 Aug 2007 13:25:59 +0000 Subject: [PATCH] made language popup only show each language once (and made it hide the 'custom' tag) svn: r7015 --- collects/drscheme/private/unit.ss | 12 ++++-------- 1 file changed, 4 insertions(+), 8 deletions(-) diff --git a/collects/drscheme/private/unit.ss b/collects/drscheme/private/unit.ss index 799f060068..84d28f9aae 100644 --- a/collects/drscheme/private/unit.ss +++ b/collects/drscheme/private/unit.ss @@ -566,7 +566,7 @@ module browser threading seems wrong. (preferences:set 'drscheme:recent-language-names (limit-length - (remove-duplicates + (remove-duplicate-languages (cons (cons (send lang get-language-name) (send lang marshall-settings sets)) (preferences:get 'drscheme:recent-language-names))) @@ -3451,13 +3451,13 @@ module browser threading seems wrong. (cond [(or (null? l) (zero? n)) null] [else (cons (car l) (loop (cdr l) (- n 1)))]))) - (define (remove-duplicates l) + (define (remove-duplicate-languages l) (reverse (let loop ([l (reverse l)]) (cond [(null? l) l] [else - (if (member (car l) (cdr l)) + (if (member (car (car l)) (map car (cdr l))) (loop (cdr l)) (cons (car l) (loop (cdr l))))])))) @@ -3563,11 +3563,7 @@ module browser threading seems wrong. (set! added-one? #t) (new menu-item% [parent menu] - [label (string-append " " - (send lang get-language-name) - (if (send lang default-settings? settings) - "" - (string-append " " (string-constant custom))))] + [label (send lang get-language-name)] [callback (λ (x y) (send (send frame get-definitions-text)