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

Use preferences:get/set from framework/preferences.

Browse Source
This commit is contained in:
Vincent St-Amour 2015-08-18 16:24:08 -05:00
parent b40adaf520
commit 3d9dfe7948
1 changed files with 7 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
macro-debugger/macro-debugger/syntax-browser/prefs.rkt
View File

@ -2,8 +2,7 @@
(require racket/class (require racket/class
framework/preferences framework/preferences
macro-debugger/syntax-browser/interfaces macro-debugger/syntax-browser/interfaces
framework/notify framework/notify)
unstable/gui/prefs)
(provide prefs-base% (provide prefs-base%
syntax-prefs-base% syntax-prefs-base%
syntax-prefs% syntax-prefs%
@ -17,13 +16,13 @@
(preferences:set-default 'SyntaxBrowser:PropertiesPanelShown #t boolean?) (preferences:set-default 'SyntaxBrowser:PropertiesPanelShown #t boolean?)
(preferences:set-default 'SyntaxBrowser:DrawArrows? #t boolean?) (preferences:set-default 'SyntaxBrowser:DrawArrows? #t boolean?)
(define pref:width (pref:get/set 'SyntaxBrowser:Width)) (define pref:width (preferences:get/set 'SyntaxBrowser:Width))
(define pref:height (pref:get/set 'SyntaxBrowser:Height)) (define pref:height (preferences:get/set 'SyntaxBrowser:Height))
(define pref:props-percentage (pref:get/set 'SyntaxBrowser:PropertiesPanelPercentage)) (define pref:props-percentage (preferences:get/set 'SyntaxBrowser:PropertiesPanelPercentage))
(define pref:props-shown? (pref:get/set 'SyntaxBrowser:PropertiesPanelShown)) (define pref:props-shown? (preferences:get/set 'SyntaxBrowser:PropertiesPanelShown))
(define pref:draw-arrows? (pref:get/set 'SyntaxBrowser:DrawArrows?)) (define pref:draw-arrows? (preferences:get/set 'SyntaxBrowser:DrawArrows?))
(define pref:invert-colors? (pref:get/set 'framework:white-on-black?)) (define pref:invert-colors? (preferences:get/set 'framework:white-on-black?))
(define prefs-base% (define prefs-base%
(class object% (class object%