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

Move the "show recent files in a dialog" to the bottom, since it's

Browse Source 
much less frequently used than the actual files.  (Even for people who
do use it -- since they'd usually use it once, and then use the dialog.)

svn: r10285
This commit is contained in:
Eli Barzilay 2008-06-16 14:22:24 +00:00
parent ba22d2a6e6
commit 86cdf405ee
1 changed files with 15 additions and 23 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

38
collects/framework/private/handler.ss
View File

@ -218,29 +218,21 @@
(let ([recently-opened-files
(preferences:get
'framework:recently-opened-files/pos)])
(for-each (λ (item) (send item delete))
(send menu get-items))
(instantiate menu-item% ()
(parent menu)
(label (string-constant show-recent-items-window-menu-item))
(callback (λ (x y) (show-recent-items-window))))
(instantiate separator-menu-item% ()
(parent menu))
(for-each (λ (recent-list-item)
(let ([filename (car recent-list-item)])
(instantiate menu-item% ()
(parent menu)
(label (gui-utils:trim-string
(regexp-replace*
"&"
(path->string filename)
"&&")
200))
(callback (λ (x y) (open-recent-list-item recent-list-item))))))
recently-opened-files)
(for ([item (send menu get-items)]) (send item delete))
(for ([recent-list-item recently-opened-files])
(let ([filename (car recent-list-item)])
(new menu-item%
[parent menu]
[label (gui-utils:trim-string
(regexp-replace* #rx"&" (path->string filename) "\\&\\&")
200)]
[callback (λ (x y) (open-recent-list-item recent-list-item))])))
(new separator-menu-item% [parent menu])
(new menu-item%
[parent menu]
[label (string-constant show-recent-items-window-menu-item)]
[callback (λ (x y) (show-recent-items-window))])
(void)))
;; open-recent-list-item : recent-list-item -> void