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

use a preference to remember the sorting order for the define popup

Browse Source 
svn: r10693
This commit is contained in:
Robby Findler 2008-07-09 11:14:52 +00:00
parent d443abe50d
commit 21b29aca17
2 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/drscheme/private/main.ss
View File

@ -53,6 +53,8 @@
(finder:default-filters)))
(application:current-app-name (string-constant drscheme))
(preferences:set-default 'drscheme:defns-popup-sort-by-name? #f boolean?)
(preferences:set-default 'drscheme:toolbar-state
'(#f . top)
(λ (x) (and (pair? x)

7
collects/drscheme/private/unit.ss
View File

@ -879,10 +879,13 @@ module browser threading seems wrong.
(unless (is-a? frame -frame<%>)
(error 'func-defs-canvas "frame is not a drscheme:unit:frame<%>"))
(define sort-by-name? #f)
(define sorting-name (string-constant sort-by-name))
(define sort-by-name? (preferences:get 'drscheme:defns-popup-sort-by-name?))
(define sorting-name (if sort-by-name?
(string-constant sort-by-position)
(string-constant sort-by-name)))
(define/private (change-sorting-order)
(set! sort-by-name? (not sort-by-name?))
(preferences:set 'drscheme:defns-popup-sort-by-name? sort-by-name?)
(set! sorting-name (if sort-by-name?
(string-constant sort-by-position)
(string-constant sort-by-name))))