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

minor adjustment to the GUI package manager

Browse Source 
Avoid using some GUI elements in the wrong thread, just in case.
This commit is contained in:
Matthew Flatt 2013-08-20 17:17:57 -06:00
parent bb65242f64
commit ae35be36d8
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
pkgs/gui-pkg-manager-pkgs/gui-pkg-manager-lib/pkg/gui/by-source.rkt
View File

@ -146,14 +146,14 @@
[style '(border)] [style '(border)]
[callback (lambda (b e) [callback (lambda (b e)
(define res (compute-cmd-line)) (define res (compute-cmd-line))
(define action (case (cmdline-which res)
[(install) pkg-install-command]
[(update) pkg-update-command]))
(in-terminal (in-terminal
(case (cmdline-which res) (case (cmdline-which res)
[(install) (string-constant install-pkg-abort-install)] [(install) (string-constant install-pkg-abort-install)]
[(update) (string-constant install-pkg-abort-update)]) [(update) (string-constant install-pkg-abort-update)])
(lambda () (lambda ()
(define action (case (cmdline-which res)
[(install) pkg-install-command]
[(update) pkg-update-command]))
(keyword-apply action (keyword-apply action
(cmdline-kwds res) (cmdline-kwds res)
(cmdline-kwd-args res) (cmdline-kwd-args res)
@ -267,10 +267,10 @@
[parent scope-panel] [parent scope-panel]
[callback [callback
(lambda (b e) (lambda (b e)
(define scope (selected-scope))
(in-terminal (in-terminal
sc-install-pkg-abort-set-scope sc-install-pkg-abort-set-scope
(lambda () (lambda ()
(define scope (selected-scope))
(pkg-config-command #:scope 'user (pkg-config-command #:scope 'user
#:set #t #:set #t
"default-scope" "default-scope"