tools.deploy: make deploy-console? and deploy-ui? independent config variables, so windows apps can be deployed without a console or the ui

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 }

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

basis/ui/tools/deploy/deploy.factor

@@ -14,6 +14,10 @@ TUPLE: deploy-gadget < pack vocab settings ;
     deploy-name get <model-field>
     "Executable name:" label-on-left add-gadget ;
 
+: deploy-console ( parent -- parent )
+    deploy-console? get
+    "Deploy as Windows console application" <checkbox> add-gadget ;
+
 : deploy-ui ( parent -- parent )
     deploy-ui? get
     "Include user interface framework" <checkbox> add-gadget ;
@@ -45,6 +49,7 @@ TUPLE: deploy-gadget < pack vocab settings ;
             <pile>
             bundle-name
             deploy-ui
+            deploy-console
             io-settings
             reflection-settings
             advanced-settings