More fixes
parent
541061d870
commit
d9e615c040
|
@ -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 ;
|
||||
|
|
|
@ -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>
|
||||
|
|
Loading…
Reference in New Issue