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

pkg/gui: find an available checkmark glyph

Browse Source
This commit is contained in:
Matthew Flatt 2013-04-25 08:47:43 -06:00
parent fa297566f1
commit 44cfd7cab6
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
collects/pkg/gui/by-list.rkt
View File

@ -16,7 +16,10 @@
(define sc-pkg-update-package-list (string-constant install-pkg-update-package-list))
(define sc-pkg-stop-update (string-constant install-pkg-stop-update))
(define check-mark "✓")
(define check-mark
(for/or ([c '(#\u2713 #\u2714 #\u221A #\x)])
(and (send normal-control-font screen-glyph-exists? c #t)
(string c))))
(define default-status
(~a check-mark ": installed"