Fixing deployment

db4
Slava Pestov 2008-03-27 17:19:48 -05:00
parent 2c5f9ce6ca
commit 8c5e01703d
2 changed files with 10 additions and 9 deletions

View File

@ -62,11 +62,12 @@ T{ macosx-deploy-implementation } deploy-implementation set-global
M: macosx-deploy-implementation deploy* ( vocab -- )
".app deploy tool" assert.app
"." resource-path cd
dup deploy-config [
bundle-name dup exists? [ delete-tree ] [ drop ] if
[ bundle-name create-app-dir ] keep
[ bundle-name deploy.app-image ] keep
namespace make-deploy-image
bundle-name show-in-finder
] bind ;
"resource:" [
dup deploy-config [
bundle-name dup exists? [ delete-tree ] [ drop ] if
[ bundle-name create-app-dir ] keep
[ bundle-name deploy.app-image ] keep
namespace make-deploy-image
bundle-name show-in-finder
] bind
] with-directory ;

View File

@ -81,7 +81,7 @@ IN: tools.deploy.shaker
[
"class" ,
"metaclass" ,
"slot-names" ,
"layout" ,
deploy-ui? get [
"gestures" ,
"commands" ,