diff --git a/collects/macro-debugger/util/notify.ss b/collects/unstable/gui/notify.ss similarity index 99% rename from collects/macro-debugger/util/notify.ss rename to collects/unstable/gui/notify.ss index 2eb7d9c5..b73efc59 100644 --- a/collects/macro-debugger/util/notify.ss +++ b/collects/unstable/gui/notify.ss @@ -3,7 +3,6 @@ (require (for-syntax scheme/base unstable/syntax) scheme/list scheme/class - macro-debugger/util/class-iop scheme/gui) (provide define/listen field/notify diff --git a/collects/unstable/gui/prefs.ss b/collects/unstable/gui/prefs.ss new file mode 100644 index 00000000..ebc5aa07 --- /dev/null +++ b/collects/unstable/gui/prefs.ss @@ -0,0 +1,13 @@ + +#lang scheme/base +(require (for-syntax scheme/base) + framework/framework) +(provide pref:get/set) + +(define-syntax pref:get/set + (syntax-rules () + [(_ get/set prop) + (define get/set + (case-lambda + [() (preferences:get 'prop)] + [(newval) (preferences:set 'prop newval)]))]))