steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

More fixes

db4
U-SLAVA-DFB8FF805\Slava 2008-05-06 09:16:48 -05:00
parent 541061d870
commit d9e615c040
2 changed files with 9 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
extra/io/launcher/launcher.factor
View File

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

5
extra/ui/ui.factor
View File

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