Update libraries for parent-dir rename

extra/contributors/contributors.factor

@@ -5,7 +5,7 @@ sequences combinators.lib assocs system sorting math.parser ;
 IN: contributors
 
 : changelog ( -- authors )
-    image parent-dir cd
+    image parent-directory cd
     "git-log --pretty=format:%an" <process-stream> lines ;
 
 : patch-counts ( authors -- assoc )

extra/http/server/templating/templating.factor

@@ -88,7 +88,7 @@ DEFER: <% delimiter
     ] assert-depth drop ;
 
 : run-relative-template-file ( filename -- )
-    file get source-file-path parent-dir
+    file get source-file-path parent-directory
     swap path+ run-template-file ;
 
 : template-convert ( infile outfile -- )

extra/io/unix/files/files-tests.factor

@@ -1,8 +1,8 @@
 USING: tools.test io.files ;
 IN: temporary
 
-[ "/usr/libexec/" ] [ "/usr/libexec/awk/" parent-dir ] unit-test
+[ "/usr/libexec/" ] [ "/usr/libexec/awk/" parent-directory ] unit-test
-[ "/etc/" ] [ "/etc/passwd" parent-dir ] unit-test
+[ "/etc/" ] [ "/etc/passwd" parent-directory ] unit-test
-[ "/" ] [ "/etc/" parent-dir ] unit-test
+[ "/" ] [ "/etc/" parent-directory ] unit-test
-[ "/" ] [ "/etc" parent-dir ] unit-test
+[ "/" ] [ "/etc" parent-directory ] unit-test
-[ "/" ] [ "/" parent-dir ] unit-test
+[ "/" ] [ "/" parent-directory ] unit-test

extra/io/windows/windows-tests.factor

@@ -1,14 +1,14 @@
 USING: io.files kernel tools.test ;
 IN: temporary
 
-[ "c:\\foo\\" ] [ "c:\\foo\\bar" parent-dir ] unit-test
+[ "c:\\foo\\" ] [ "c:\\foo\\bar" parent-directory ] unit-test
-[ "c:\\" ] [ "c:\\foo\\" parent-dir ] unit-test
+[ "c:\\" ] [ "c:\\foo\\" parent-directory ] unit-test
-[ "c:\\" ] [ "c:\\foo" parent-dir ] unit-test
+[ "c:\\" ] [ "c:\\foo" parent-directory ] unit-test
 ! { "c:" "c:\\" "c:/" } [ directory ] each -- all do the same thing
-[ "c:\\" ] [ "c:\\" parent-dir ] unit-test
+[ "c:\\" ] [ "c:\\" parent-directory ] unit-test
-[ "Z:\\" ] [ "Z:\\" parent-dir ] unit-test
+[ "Z:\\" ] [ "Z:\\" parent-directory ] unit-test
-[ "c:" ] [ "c:" parent-dir ] unit-test
+[ "c:" ] [ "c:" parent-directory ] unit-test
-[ "Z:" ] [ "Z:" parent-dir ] unit-test
+[ "Z:" ] [ "Z:" parent-directory ] unit-test
 [ t ] [ "c:\\" root-directory? ] unit-test
 [ t ] [ "Z:\\" root-directory? ] unit-test
 [ f ] [ "c:\\foo" root-directory? ] unit-test

extra/ui/tools/deploy/deploy.factor

@@ -5,14 +5,14 @@ ui.gadgets.controls models sequences ui.gadgets.buttons
 ui.gadgets.packs ui.gadgets.labels tools.deploy.config
 namespaces ui.gadgets.editors ui.gadgets.borders ui.gestures
 ui.commands assocs ui.gadgets.tracks ui ui.tools.listener
-tools.deploy.app vocabs ui.tools.workspace ui.operations ;
+tools.deploy vocabs ui.tools.workspace system ;
 IN: ui.tools.deploy
 
 TUPLE: deploy-gadget vocab settings ;
 
 : bundle-name ( -- )
-    "bundle-name" get <field>
+    deploy-name get <field>
-    "Bundle name:" label-on-left gadget, ;
+    "Executable name:" label-on-left gadget, ;
 
 : deploy-ui ( -- )
     deploy-ui? get
@@ -42,13 +42,12 @@ TUPLE: deploy-gadget vocab settings ;
     { 10 10 } over set-pack-gap
     1 swap set-pack-fill ;
 
-: <deploy-settings> ( -- control )
+: <deploy-settings> ( vocab -- control )
     default-config [ <model> ] assoc-map [
-        f <model> "bundle-name" set
         [
             bundle-name
             deploy-ui
-            exit-when-windows-closed
+            macosx? [ exit-when-windows-closed ] when
             io-settings
             reflection-settings
             advanced-settings
@@ -63,7 +62,7 @@ TUPLE: deploy-gadget vocab settings ;
     find-deploy-gadget deploy-gadget-vocab ;
 
 : find-deploy-config
-    find-deploy-vocab deploy.app-config ;
+    find-deploy-vocab deploy-config ;
 
 : find-deploy-settings
     find-deploy-gadget deploy-gadget-settings ;
@@ -78,7 +77,7 @@ TUPLE: deploy-gadget vocab settings ;
 
 : com-deploy ( gadget -- )
     dup com-save
-    find-deploy-vocab [ deploy.app ] curry call-listener ;
+    find-deploy-vocab [ deploy ] curry call-listener ;
 
 : com-help ( -- )
     "ui-deploy" help-window ;
@@ -99,7 +98,7 @@ deploy-gadget "toolbar" f {
 
 : <deploy-gadget> ( vocab -- gadget )
     f deploy-gadget construct-boa [
-        <deploy-settings>
+        dup <deploy-settings>
         g-> set-deploy-gadget-settings gadget,
         buttons,
     ] { 0 1 } build-pack
@@ -109,5 +108,3 @@ deploy-gadget "toolbar" f {
 : deploy-tool ( vocab -- )
     vocab-name dup <deploy-gadget> 10 <border>
     "Deploying \"" rot "\"" 3append open-window ;
-
-[ vocab-spec? ] \ deploy-tool H{ } define-operation

extra/ui/tools/operations/operations.factor

@@ -6,8 +6,9 @@ ui.tools.search ui.tools.traceback ui.tools.workspace generic
 help.topics inference inspector io.files io.styles kernel
 namespaces parser prettyprint quotations tools.annotations
 editors tools.profiler tools.test tools.time tools.walker
-ui.commands ui.gadgets.editors ui.gestures ui.operations vocabs
+ui.commands ui.gadgets.editors ui.gestures ui.operations
-vocabs.loader words sequences tools.browser classes ;
+ui.tools.deploy vocabs vocabs.loader words sequences
+tools.browser classes ;
 IN: ui.tools.operations
 
 V{ } clone operations set-global
@@ -155,6 +156,8 @@ M: word com-stack-effect word-def com-stack-effect ;
     { +listener+ t }
 } define-operation
 
+[ vocab-spec? ] \ deploy-tool H{ } define-operation
+
 ! Quotations
 [ quotation? ] \ com-stack-effect H{
     { +keyboard+ T{ key-down f { C+ } "i" } }