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
|
||||
|
||||
! 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
|
||||
|
|
|
@ -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 -- )
|
||||
|
|
|
@ -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>
|
||||
|
|
Loading…
Reference in New Issue