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

protect path-list with a semaphore

Browse Source 
svn: r3326
This commit is contained in:
Eli Barzilay 2006-06-11 17:53:25 +00:00
parent 66cb396047
commit 976489df84
1 changed files with 20 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

30
collects/mred/private/path-dialog.ss
View File

@ -494,18 +494,28 @@
;; Use the path-list for completion options ;; Use the path-list for completion options
(define saved-path-list-state #f) (define saved-path-list-state #f)
(define saved-path-list-sema (make-semaphore 1))
(define (save-path-list-state) (define (save-path-list-state)
(unless saved-path-list-state (dynamic-wind
(set! saved-path-list-state (lambda () (semaphore-wait saved-path-list-sema))
(list (send path-list get-first-visible-item) (lambda ()
(send path-list get-selections))))) (unless saved-path-list-state
(set! saved-path-list-state
(list (send path-list get-first-visible-item)
(send path-list get-selections)))))
(lambda () (semaphore-post saved-path-list-sema))))
(define (restore-path-list-state) (define (restore-path-list-state)
(when saved-path-list-state (dynamic-wind
(send path-list set paths) (lambda () (semaphore-wait saved-path-list-sema))
(for-each (lambda (i) (send path-list select i)) (lambda ()
(cadr saved-path-list-state)) (when saved-path-list-state
(send path-list set-first-visible-item (car saved-path-list-state)) (send path-list set paths)
(set! saved-path-list-state #f))) (for-each (lambda (i) (send path-list select i))
(cadr saved-path-list-state))
(send path-list
set-first-visible-item (car saved-path-list-state))
(set! saved-path-list-state #f)))
(lambda () (semaphore-post saved-path-list-sema))))
;; Timer for delaying completion ;; Timer for delaying completion
(define completion-timer (define completion-timer