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

View File

@ -225,3 +225,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

@ -29,8 +29,9 @@ SYMBOL: windows
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>