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

a hack that tries to make it so that the open-recent menu

Browse Source 
item is wrong less often
This commit is contained in:
Robby Findler 2015-06-05 09:37:23 -05:00
parent 1db898cd00
commit 91dd69ba8d
1 changed files with 27 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

42
gui-lib/framework/private/handler.rkt
View File

@ -173,23 +173,35 @@
;; install-recent-items : (is-a?/c menu%) -> void?
(define (install-recent-items menu)
(let ([recently-opened-files
(preferences:get
'framework:recently-opened-files/pos)])
(unless (menu-items-still-same? recently-opened-files menu)
(for ([item (send menu get-items)]) (send item delete))
(for ([recent-list-item recently-opened-files])
(new menu-item%
[parent menu]
[label (recent-list-item->menu-label recent-list-item)]
[callback (λ (x y) (open-recent-list-item recent-list-item))]))
(new separator-menu-item% [parent menu])
(define recently-opened-files
(preferences:get
'framework:recently-opened-files/pos))
(define (update-menu-with-new-stuff)
(for ([item (send menu get-items)]) (send item delete))
(for ([recent-list-item recently-opened-files])
(new menu-item%
[parent menu]
[label (string-constant show-recent-items-window-menu-item)]
[callback (λ (x y) (show-recent-items-window))]))
(void)))
[label (recent-list-item->menu-label recent-list-item)]
[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))]))
(unless (menu-items-still-same? recently-opened-files menu)
;; sometimes, we get here via an on-demand callback
;; and we run out of time during the callback and
;; things go awry with the menu. So, to hack around
;; that problem, lets try to do it twice; once here
;; when we notice that things are wrong, and then once
;; later, when we know we won't run afoul of any time
;; limits.
(queue-callback (λ () (update-menu-with-new-stuff)) #f)
(update-menu-with-new-stuff))
(void))
(define (recent-list-item->menu-label recent-list-item)
(let ([filename (car recent-list-item)])