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

fix little bugs in font select

Browse Source 
svn: r6567
This commit is contained in:
Matthew Flatt 2007-06-10 22:20:41 +00:00
parent 16b7d4195d
commit cb54fa31a5
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/drscheme/private/font.ss
View File

@ -80,7 +80,7 @@
[(< selection (length mono-list))
(preferences:set
'framework:standard-style-list:font-name
(list-ref selection mono-list))]
(list-ref mono-list selection))]
[else
(let* ([all-faces (get-face-list)]
[init-choices
@ -98,7 +98,7 @@
[choice (get-choices-from-user
(string-constant select-font-name)
(string-constant select-font-name)
(get-face-list 'mono)
all-faces
#f
init-choices)])
(when choice