Merge branch 'master' of git://factorcode.org/git/factor
commit
e1690b47ae
|
@ -393,6 +393,10 @@ SYMBOL: a
|
||||||
[ "OK" ] [ "data" "http://localhost/a" add-port http-post nip ] unit-test
|
[ "OK" ] [ "data" "http://localhost/a" add-port http-post nip ] unit-test
|
||||||
|
|
||||||
! Check that download throws errors (reported by Chris Double)
|
! 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
|
[ ] [ "http://localhost/quit" add-port http-get 2drop ] unit-test
|
||||||
|
|
|
@ -39,13 +39,16 @@ M: pasteboard set-clipboard-contents
|
||||||
[ 0 0 ] dip dim>> first2 <CGRect> ;
|
[ 0 0 ] dip dim>> first2 <CGRect> ;
|
||||||
|
|
||||||
: auto-position ( window loc -- )
|
: 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 } = [
|
dup { 0 0 } = [
|
||||||
drop
|
drop
|
||||||
windows get [ -> center ] [
|
windows get length 1 <= [ -> center ] [
|
||||||
peek second window-loc>>
|
windows get peek second window-loc>>
|
||||||
dupd first2 <CGPoint> -> cascadeTopLeftFromPoint:
|
dupd first2 <CGPoint> -> cascadeTopLeftFromPoint:
|
||||||
-> setFrameTopLeftPoint:
|
-> setFrameTopLeftPoint:
|
||||||
] if-empty
|
] if
|
||||||
] [ first2 <CGPoint> -> setFrameTopLeftPoint: ] if ;
|
] [ first2 <CGPoint> -> setFrameTopLeftPoint: ] if ;
|
||||||
|
|
||||||
M: cocoa-ui-backend set-title ( string world -- )
|
M: cocoa-ui-backend set-title ( string world -- )
|
||||||
|
|
|
@ -69,7 +69,7 @@ IN: webapps.site-watcher
|
||||||
8431 >>secure ;
|
8431 >>secure ;
|
||||||
|
|
||||||
: site-watcher-db ( -- db )
|
: site-watcher-db ( -- db )
|
||||||
"resource:test.db" <sqlite-db> ;
|
"test.db" temp-file <sqlite-db> ;
|
||||||
|
|
||||||
<site-watcher-app>
|
<site-watcher-app>
|
||||||
<login-config>
|
<login-config>
|
||||||
|
|
Loading…
Reference in New Issue