io.launcher.windows: Actually support +new-group+ and +new-session+.
DETACHED_PROCESS doesn't do what we want. Also, the check for `windows?`` in a Windows vocabulary is quite suspect.paths
parent
f164f47e41
commit
63a21cbdd1
|
@ -108,7 +108,14 @@ TUPLE: CreateProcess-args
|
|||
: fill-dwCreateFlags ( process args -- process args )
|
||||
0
|
||||
pick pass-environment? [ CREATE_UNICODE_ENVIRONMENT bitor ] when
|
||||
pick detached>> os windows? and [ DETACHED_PROCESS bitor ] when
|
||||
pick group>> [
|
||||
{
|
||||
{ +same-group+ [ ] }
|
||||
{ +new-session+ [ DETACHED_PROCESS bitor CREATE_NEW_PROCESS_GROUP bitor ] }
|
||||
{ +new-group+ [ DETACHED_PROCESS bitor CREATE_NEW_PROCESS_GROUP bitor ] }
|
||||
[ drop ]
|
||||
} case
|
||||
] when*
|
||||
pick lookup-priority [ bitor ] when*
|
||||
>>dwCreateFlags ;
|
||||
|
||||
|
|
Loading…
Reference in New Issue