diff --git a/basis/http/http-tests.factor b/basis/http/http-tests.factor index 45ad132677..5c73377cbe 100644 --- a/basis/http/http-tests.factor +++ b/basis/http/http-tests.factor @@ -393,6 +393,10 @@ SYMBOL: a [ "OK" ] [ "data" "http://localhost/a" add-port http-post nip ] unit-test ! Check that download throws errors (reported by Chris Double) -[ "http://localhost/tweet_my_twat" add-port download ] must-fail +[ + "resource:temp" [ + "http://localhost/tweet_my_twat" add-port download + ] with-directory +] must-fail [ ] [ "http://localhost/quit" add-port http-get 2drop ] unit-test diff --git a/basis/ui/backend/cocoa/cocoa.factor b/basis/ui/backend/cocoa/cocoa.factor index 1bbf46c69e..362305c8f7 100755 --- a/basis/ui/backend/cocoa/cocoa.factor +++ b/basis/ui/backend/cocoa/cocoa.factor @@ -39,13 +39,16 @@ M: pasteboard set-clipboard-contents [ 0 0 ] dip dim>> first2 ; : auto-position ( window loc -- ) + #! Note: if this is the initial window, the length of the windows + #! vector should be 1, since (open-window) calls auto-position + #! after register-window. dup { 0 0 } = [ drop - windows get [ -> center ] [ - peek second window-loc>> + windows get length 1 <= [ -> center ] [ + windows get peek second window-loc>> dupd first2 -> cascadeTopLeftFromPoint: -> setFrameTopLeftPoint: - ] if-empty + ] if ] [ first2 -> setFrameTopLeftPoint: ] if ; M: cocoa-ui-backend set-title ( string world -- ) diff --git a/extra/webapps/site-watcher/site-watcher.factor b/extra/webapps/site-watcher/site-watcher.factor index 7651afa4e6..edd8104a7e 100644 --- a/extra/webapps/site-watcher/site-watcher.factor +++ b/extra/webapps/site-watcher/site-watcher.factor @@ -69,7 +69,7 @@ IN: webapps.site-watcher 8431 >>secure ; : site-watcher-db ( -- db ) - "resource:test.db" ; + "test.db" temp-file ;