added revert to defaults

svn: r5575 original commit: 276cd746dfa6b1a35c16db8bb70a04726f19a1ec
2007-02-08 15:45:12 +00:00 · 2007-02-08 15:45:12 +00:00 · 11bfa25225
commit 11bfa25225
parent af1953707d
1 changed files with 6 additions and 0 deletions
--- a/collects/framework/private/preferences.ss
+++ b/collects/framework/private/preferences.ss
@ -238,6 +238,12 @@ the state transitions / contracts are:
             [cancel-callback (λ (_1 _2)
                                (hide-dialog)
                                (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
       bottom-panel
       ok-callback