32 lines
1010 B
Scheme
32 lines
1010 B
Scheme
|
|
(module prefs mzscheme
|
|
(require (lib "unit.ss")
|
|
(lib "framework.ss" "framework")
|
|
"interfaces.ss")
|
|
(provide prefs@)
|
|
|
|
(define-syntax pref:get/set
|
|
(syntax-rules ()
|
|
[(_ get/set prop)
|
|
(define get/set
|
|
(case-lambda
|
|
[() (preferences:get 'prop)]
|
|
[(newval) (preferences:set 'prop newval)]))]))
|
|
|
|
(define prefs@
|
|
(unit
|
|
(import)
|
|
(export prefs^)
|
|
|
|
(preferences:set-default 'SyntaxBrowser:Width 700 number?)
|
|
(preferences:set-default 'SyntaxBrowser:Height 600 number?)
|
|
(preferences:set-default 'SyntaxBrowser:PropertiesPanelPercentage 1/3 number?)
|
|
(preferences:set-default 'SyntaxBrowser:PropertiesPanelShown #t boolean?)
|
|
|
|
(pref:get/set pref:width SyntaxBrowser:Width)
|
|
(pref:get/set pref:height SyntaxBrowser:Height)
|
|
(pref:get/set pref:props-percentage SyntaxBrowser:PropertiesPanelPercentage)
|
|
(pref:get/set pref:props-shown? SyntaxBrowser:PropertiesPanelShown)))
|
|
|
|
)
|