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

new scheme params

Browse Source 
original commit: 1f1eaf121988053c09a58c8d68f5214d1120b1bf
This commit is contained in:
Robby Findler 1996-07-24 20:36:00 +00:00
parent 747ad22012
commit b51629c7c3
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
collects/mred/prefs.ss
View File

@ -169,7 +169,7 @@
(list (horizontal-panel #t #f
(list (let ([c (check-box (lambda (_ command)
(set-preference 'mred:highlight-parens (send command checked?)))
"Highlight Parens?")])
"Highlight to matching paren?")])
(send c set-value (get-preference 'mred:highlight-parens))
c)
(panel #t #t)))
@ -177,7 +177,7 @@
#t #f
(list (let ([c (check-box (lambda (_ command)
(set-preference 'mred:autosaving-on? (send command checked?)))
"Autosave?")])
"Auto-save files?")])
(send c set-value (get-preference 'mred:autosaving-on?))
c)
(panel #t #t)))
@ -185,7 +185,7 @@
#t #f
(list (let ([c (check-box (lambda (_ command)
(set-preference 'mred:delete-forward? (not (send command checked?))))
"Remap delete to backspace?")])
"Map delete to backspace?")])
(send c set-value (not (get-preference 'mred:delete-forward?)))
c)
(panel #t #t)))
@ -258,6 +258,7 @@
(read-user-preferences)
(hide-preferences-dialog))]
[cancel-button (make-object mred:button% bottom-panel cancel-callback "Cancel")])
(send ok-button user-min-width (send cancel-button get-width))
(send single-panel change-children (lambda (l) panels))
(send top-panel change-children
(lambda (l)