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

for Unicode...

Browse Source 
original commit: 3f4e12ed29458634f5ff799f36794d20b70dcdb2
This commit is contained in:
Matthew Flatt 2004-02-20 17:02:34 +00:00
parent ff40faf473
commit 1d885a407c
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/framework/private/main.ss
View File

@ -56,7 +56,9 @@
(lambda (c) (list (send c red) (send c green) (send c blue)))
(lambda (l) (make-object color% (car l) (cadr l) (caddr l))))
(preferences:set-default 'framework:last-directory (find-system-path 'home-dir) string?)
(preferences:set-default 'framework:last-directory (find-system-path 'home-dir) path-string?)
(preferences:set-un/marshall 'framework:last-directory path->bytes bytes->path)
(preferences:set-default 'framework:recent-max-count
50
(lambda (x) (and (number? x)