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
(require framework/preferences
unstable/gui/prefs)
(require framework/preferences)
(provide (all-defined-out))
;; Frame size preferences
(preferences:set-default 'rackunit:frame:width 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:height (pref:get/set 'rackunit:frame:height))
(define pref:width (preferences:get/set 'rackunit:frame:width))
(define pref:height (preferences:get/set 'rackunit:frame:height))
;; CONSTANTS
;; Some of these are obsolete, given the preferences above.