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

install {gracket,mred}-text as a console application

Browse Source 
Requesting console mode matters when 'gui-bin-dir is configured.
This commit is contained in:
Matthew Flatt 2017-03-24 16:07:38 -06:00
parent 6941962f8d
commit 138088ce9a
2 changed files with 14 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
gui-lib/mred/installer.rkt
View File

@ -26,7 +26,9 @@
(for ([v variants] #:when (memq v '(3m cgc))) (for ([v variants] #:when (memq v '(3m cgc)))
(parameterize ([current-launcher-variant v]) (parameterize ([current-launcher-variant v])
(create-embedding-executable (create-embedding-executable
(prep-dir (mred-program-launcher-path "MrEd" #:user? user? #:tethered? tethered?)) (prep-dir (mred-program-launcher-path "MrEd"
#:user? user?
#:tethered? tethered?))
#:cmdline (append #:cmdline (append
(if tethered? (if user? (addon-flags) (config-flags)) null) (if tethered? (if user? (addon-flags) (config-flags)) null)
'("-I" "scheme/gui/init")) '("-I" "scheme/gui/init"))
@ -43,7 +45,10 @@
(make-gracket-launcher (make-gracket-launcher
#:tether-mode tether-mode #:tether-mode tether-mode
'("-I" "scheme/gui/init" "-z") '("-I" "scheme/gui/init" "-z")
(prep-dir (mred-program-launcher-path "mred-text" #:user? user? #:tethered? tethered?)) (prep-dir (mred-program-launcher-path "mred-text"
#:user? user?
#:tethered? tethered?
#:console? #t))
`([relative? . ,(not (or user? tethered?))] `([relative? . ,(not (or user? tethered?))]
[subsystem . console] [subsystem . console]
[single-instance? . #f])))))) [single-instance? . #f]))))))
@ -54,7 +59,9 @@
(make-gracket-launcher (make-gracket-launcher
#:tether-mode tether-mode #:tether-mode tether-mode
null null
(prep-dir (mred-program-launcher-path "MrEd" #:user? user? #:tethered? tethered?)) (prep-dir (mred-program-launcher-path "MrEd"
#:user? user?
#:tethered? tethered?))
`([exe-name . "GRacket"] `([exe-name . "GRacket"]
[relative? . ,(not (or user? tethered?))] [relative? . ,(not (or user? tethered?))]
[exe-is-gracket . #t])))))) [exe-is-gracket . #t]))))))

5
gui-lib/racket/gui/installer.rkt
View File

@ -27,7 +27,10 @@
#:tether-mode tether-mode #:tether-mode tether-mode
'("-z") '("-z")
(prep-dir (prep-dir
(mred-program-launcher-path "gracket-text" #:user? user? #:tethered? tethered?)) (mred-program-launcher-path "gracket-text"
#:user? user?
#:tethered? tethered?
#:console? #t))
`([subsystem . console] `([subsystem . console]
[single-instance? . #f] [single-instance? . #f]
[relative? . ,(not (or user? tethered?))])))))) [relative? . ,(not (or user? tethered?))]))))))