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

db4
Eduardo Cavazos 2008-05-09 16:25:27 -05:00
commit af8da7d804
3 changed files with 11 additions and 4 deletions

View File

@ -221,3 +221,9 @@ M: duplex-stream underlying-handle
[ in>> underlying-handle ]
[ out>> underlying-handle ] bi
[ = [ "Invalid duplex stream" throw ] when ] keep ;
M: encoder underlying-handle
stream>> underlying-handle ;
M: decoder underlying-handle
stream>> underlying-handle ;

View File

@ -41,8 +41,9 @@ SYMBOL: stop-after-last-window?
windows global [ [ first = not ] with filter ] change-at ;
: raised-window ( world -- )
windows get-global [ second eq? ] with find drop
windows get-global [ length 1- ] keep exchange ;
windows get-global
[ [ second eq? ] with find drop ] keep
[ nth ] [ delete-nth ] [ nip ] 2tri push ;
: focus-gestures ( new old -- )
drop-prefix <reversed>

4
extra/windows/com/wrapper/wrapper.factor Normal file → Executable file
View File

@ -29,7 +29,7 @@ unless
>r find-com-interface-definition family-tree
r> 1quotation [ >r iid>> r> 2array ] curry map
] map-index concat
[ f ] add ,
[ f ] prefix ,
\ case ,
"void*" heap-size
[ * rot <displaced-alien> com-add-ref 0 rot set-void*-nth S_OK ]
@ -99,7 +99,7 @@ unless
PRIVATE>
: <com-wrapper> ( implementations -- wrapper )
(make-vtbls) f com-wrapper construct-boa ;
(make-vtbls) f com-wrapper boa ;
M: com-wrapper dispose
t >>freed?