Merge branch 'master' of git://factorcode.org/git/factor
commit
5377cf4b55
|
@ -62,11 +62,12 @@ T{ macosx-deploy-implementation } deploy-implementation set-global
|
||||||
|
|
||||||
M: macosx-deploy-implementation deploy* ( vocab -- )
|
M: macosx-deploy-implementation deploy* ( vocab -- )
|
||||||
".app deploy tool" assert.app
|
".app deploy tool" assert.app
|
||||||
"." resource-path cd
|
"resource:" [
|
||||||
dup deploy-config [
|
dup deploy-config [
|
||||||
bundle-name dup exists? [ delete-tree ] [ drop ] if
|
bundle-name dup exists? [ delete-tree ] [ drop ] if
|
||||||
[ bundle-name create-app-dir ] keep
|
[ bundle-name create-app-dir ] keep
|
||||||
[ bundle-name deploy.app-image ] keep
|
[ bundle-name deploy.app-image ] keep
|
||||||
namespace make-deploy-image
|
namespace make-deploy-image
|
||||||
bundle-name show-in-finder
|
bundle-name show-in-finder
|
||||||
] bind ;
|
] bind
|
||||||
|
] with-directory ;
|
||||||
|
|
|
@ -81,7 +81,7 @@ IN: tools.deploy.shaker
|
||||||
[
|
[
|
||||||
"class" ,
|
"class" ,
|
||||||
"metaclass" ,
|
"metaclass" ,
|
||||||
"slot-names" ,
|
"layout" ,
|
||||||
deploy-ui? get [
|
deploy-ui? get [
|
||||||
"gestures" ,
|
"gestures" ,
|
||||||
"commands" ,
|
"commands" ,
|
||||||
|
|
Loading…
Reference in New Issue