suzanne.soy/gui
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fixed bugs

Browse Source 
original commit: 7d90391e3cd6aaa13b534472b3b911a5f6b1587c
This commit is contained in:
Robby Findler 1996-07-29 21:21:55 +00:00
parent 8dbd621412
commit bfef1823c6
2 changed files with 7 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
collects/mred/edit.ss
View File

@ -29,10 +29,12 @@
[auto-save-out-of-date? #t] [auto-save-out-of-date? #t]
[auto-save-error? #f]) [auto-save-error? #f])
(public (public
[get-file (lambda (d) (let ([v (mred:finder:get-file d)]) [get-file (lambda (d)
(if v (printf "d: ~aget-filename:~a ~n" d (send this get-filename))
v (let ([v (mred:finder:get-file d)])
'())))] (if v
v
'())))]
[put-file (lambda (d f) (let ([v (mred:finder:put-file f d)]) [put-file (lambda (d f) (let ([v (mred:finder:put-file f d)])
(if v (if v
v v

2
collects/mred/prefs.ss
View File

@ -193,7 +193,7 @@
"Auto-save files?" (get-preference 'mred:autosaving-on?)) "Auto-save files?" (get-preference 'mred:autosaving-on?))
(make-check (lambda (_ command) (make-check (lambda (_ command)
(set-preference 'mred:delete-forward? (not (send command checked?)))) (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) (make-check (lambda (_ command)
(set-preference 'mred:file-dialogs (if (send command checked?) (set-preference 'mred:file-dialogs (if (send command checked?)
'std 'std