tools.deploy: make deploy-console? and deploy-ui? independent config variables, so windows apps can be deployed without a console or the ui
parent
1d4d6f4ce8
commit
91c353ef60
|
@ -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 }
|
||||
|
|
|
@ -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
|
||||
|
|
|
@ -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
|
||||
|
|
Loading…
Reference in New Issue