From 953e3e8d1a49d1109ab082ac68a59d1d6cdc6235 Mon Sep 17 00:00:00 2001 From: Eli Barzilay Date: Sun, 4 Jun 2006 07:42:02 +0000 Subject: [PATCH] svn: r3213 --- collects/mred/private/path-dialog.ss | 7 +------ 1 file changed, 1 insertion(+), 6 deletions(-) diff --git a/collects/mred/private/path-dialog.ss b/collects/mred/private/path-dialog.ss index 346e6ff9af..ae50c7817e 100644 --- a/collects/mred/private/path-dialog.ss +++ b/collects/mred/private/path-dialog.ss @@ -12,11 +12,6 @@ (send d set-delta-foreground "BLUE") (send d set-delta 'change-underline #t) d)) - (define path-up-delta* - (let ([d (make-object wx:style-delta%)]) - (send d set-delta-foreground "BLUE") - (send d set-delta 'change-underline #t) - d)) ;; os-dependent stuff (define win? (eq? 'windows (system-type))) @@ -559,7 +554,7 @@ (define dir-text (let ([c (class (if win? combo-field% text-field%) (super-new) (define editor (send this get-editor)) - (define/public (lock) (send editor lock #t)) + (define/public (lock) (send editor lock #t)) (define/public (unlock) (send editor lock #f)) (when win? (let ([m (send this get-menu)])