suzanne.soy/rackunit
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:26:40 -05:00
parent 1a3dec8641
commit 011715353f
1 changed files with 3 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
rackunit-gui/rackunit/private/gui/config.rkt
View File

@ -1,14 +1,13 @@
#lang racket/base #lang racket/base
(require framework/preferences (require framework/preferences)
unstable/gui/prefs)
(provide (all-defined-out)) (provide (all-defined-out))
;; Frame size preferences ;; Frame size preferences
(preferences:set-default 'rackunit:frame:width 400 exact-positive-integer?) (preferences:set-default 'rackunit:frame:width 400 exact-positive-integer?)
(preferences:set-default 'rackunit:frame:height 400 exact-positive-integer?) (preferences:set-default 'rackunit:frame:height 400 exact-positive-integer?)
(define pref:width (pref:get/set 'rackunit:frame:width)) (define pref:width (preferences:get/set 'rackunit:frame:width))
(define pref:height (pref:get/set 'rackunit:frame:height)) (define pref:height (preferences:get/set 'rackunit:frame:height))
;; CONSTANTS ;; CONSTANTS
;; Some of these are obsolete, given the preferences above. ;; Some of these are obsolete, given the preferences above.