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

added revert to defaults

Browse Source 
svn: r5575

original commit: 276cd746dfa6b1a35c16db8bb70a04726f19a1ec
This commit is contained in:
Robby Findler 2007-02-08 15:45:12 +00:00
parent af1953707d
commit 11bfa25225
1 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
collects/framework/private/preferences.ss
View File

@ -238,6 +238,12 @@ the state transitions / contracts are:
[cancel-callback (λ (_1 _2) [cancel-callback (λ (_1 _2)
(hide-dialog) (hide-dialog)
(preferences:restore-prefs-snapshot stashed-prefs))]) (preferences:restore-prefs-snapshot stashed-prefs))])
(new button%
[label (string-constant revert-to-defaults)]
[callback
(λ (a b)
(preferences:restore-defaults))]
[parent bottom-panel])
(gui-utils:ok/cancel-buttons (gui-utils:ok/cancel-buttons
bottom-panel bottom-panel
ok-callback ok-callback