From bfef1823c6f3fea6595bf80dd8a7de741e51a85c Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Mon, 29 Jul 1996 21:21:55 +0000 Subject: [PATCH] fixed bugs original commit: 7d90391e3cd6aaa13b534472b3b911a5f6b1587c --- collects/mred/edit.ss | 10 ++++++---- collects/mred/prefs.ss | 2 +- 2 files changed, 7 insertions(+), 5 deletions(-) diff --git a/collects/mred/edit.ss b/collects/mred/edit.ss index 78c04642..207b5372 100644 --- a/collects/mred/edit.ss +++ b/collects/mred/edit.ss @@ -29,10 +29,12 @@ [auto-save-out-of-date? #t] [auto-save-error? #f]) (public - [get-file (lambda (d) (let ([v (mred:finder:get-file d)]) - (if v - v - '())))] + [get-file (lambda (d) + (printf "d: ~aget-filename:~a ~n" d (send this get-filename)) + (let ([v (mred:finder:get-file d)]) + (if v + v + '())))] [put-file (lambda (d f) (let ([v (mred:finder:put-file f d)]) (if v v diff --git a/collects/mred/prefs.ss b/collects/mred/prefs.ss index 9ae185b2..bdb5617b 100644 --- a/collects/mred/prefs.ss +++ b/collects/mred/prefs.ss @@ -193,7 +193,7 @@ "Auto-save files?" (get-preference 'mred:autosaving-on?)) (make-check (lambda (_ command) (set-preference 'mred:delete-forward? (not (send command checked?)))) - "Map delete to backspace?" (get-preference 'mred:delete-forward?)) + "Map delete to backspace?" (not (get-preference 'mred:delete-forward?))) (make-check (lambda (_ command) (set-preference 'mred:file-dialogs (if (send command checked?) 'std