Merge branch 'master' of git://factorcode.org/git/factor

db4
U-SLAVA-DFB8FF805\Slava 2009-04-13 19:03:42 -05:00
commit e1690b47ae
3 changed files with 12 additions and 5 deletions

View File

@ -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

View File

@ -39,13 +39,16 @@ M: pasteboard set-clipboard-contents
[ 0 0 ] dip dim>> first2 <CGRect> ;
: 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 <CGPoint> -> cascadeTopLeftFromPoint:
-> setFrameTopLeftPoint:
] if-empty
] if
] [ first2 <CGPoint> -> setFrameTopLeftPoint: ] if ;
M: cocoa-ui-backend set-title ( string world -- )

View File

@ -69,7 +69,7 @@ IN: webapps.site-watcher
8431 >>secure ;
: site-watcher-db ( -- db )
"resource:test.db" <sqlite-db> ;
"test.db" temp-file <sqlite-db> ;
<site-watcher-app>
<login-config>