32 lines
1023 B
Scheme
32 lines
1023 B
Scheme
|
|
#lang scheme/base
|
|
(require scheme/class
|
|
framework/framework
|
|
"interfaces.ss"
|
|
"../util/misc.ss")
|
|
(provide syntax-prefs%
|
|
syntax-prefs-mixin
|
|
|
|
pref:tabify)
|
|
|
|
(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)
|
|
|
|
(pref:get/set pref:tabify framework:tabify)
|
|
|
|
(define syntax-prefs-mixin
|
|
(closure-mixin (syntax-prefs<%>)
|
|
(pref:width pref:width)
|
|
(pref:height pref:height)
|
|
(pref:props-percentage pref:props-percentage)
|
|
(pref:props-shown? pref:props-shown?)))
|
|
|
|
(define syntax-prefs% (syntax-prefs-mixin object%))
|