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

4
collects/mred/edit.ss
View File

@ -29,7 +29,9 @@
[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)
(printf "d: ~aget-filename:~a ~n" d (send this get-filename))
(let ([v (mred:finder:get-file 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