diff --git a/basis/tools/deploy/config/config.factor b/basis/tools/deploy/config/config.factor index 89d1fe3821..aa3701dc85 100644 --- a/basis/tools/deploy/config/config.factor +++ b/basis/tools/deploy/config/config.factor @@ -7,6 +7,7 @@ IN: tools.deploy.config SYMBOL: deploy-name SYMBOL: deploy-ui? +SYMBOL: deploy-console? SYMBOL: deploy-math? SYMBOL: deploy-unicode? SYMBOL: deploy-threads? @@ -52,6 +53,7 @@ SYMBOL: deploy-image : default-config ( vocab -- assoc ) vocab-name deploy-name associate H{ { deploy-ui? f } + { deploy-console? t } { deploy-io 2 } { deploy-reflection 1 } { deploy-threads? t } diff --git a/basis/tools/deploy/windows/windows.factor b/basis/tools/deploy/windows/windows.factor index f52154ccd0..5945d9915c 100755 --- a/basis/tools/deploy/windows/windows.factor +++ b/basis/tools/deploy/windows/windows.factor @@ -21,7 +21,7 @@ CONSTANT: app-icon-resource-id "APPICON" : create-exe-dir ( vocab bundle-name -- vm ) dup copy-dll - deploy-ui? get ".exe" ".com" ? copy-vm ; + deploy-console? get ".exe" ".com" ? copy-vm ; : open-in-explorer ( dir -- ) [ f "open" ] dip absolute-path normalize-separators diff --git a/basis/ui/tools/deploy/deploy.factor b/basis/ui/tools/deploy/deploy.factor index cf6f1c066d..3a5f31bee3 100644 --- a/basis/ui/tools/deploy/deploy.factor +++ b/basis/ui/tools/deploy/deploy.factor @@ -14,6 +14,10 @@ TUPLE: deploy-gadget < pack vocab settings ; deploy-name get "Executable name:" label-on-left add-gadget ; +: deploy-console ( parent -- parent ) + deploy-console? get + "Deploy as Windows console application" add-gadget ; + : deploy-ui ( parent -- parent ) deploy-ui? get "Include user interface framework" add-gadget ; @@ -45,6 +49,7 @@ TUPLE: deploy-gadget < pack vocab settings ; bundle-name deploy-ui + deploy-console io-settings reflection-settings advanced-settings