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

db4
Joe Groff 2010-03-22 16:55:35 -07:00
parent 1d4d6f4ce8
commit 91c353ef60
3 changed files with 8 additions and 1 deletions

View File

@ -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 }

View File

@ -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

View File

@ -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