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

curses: update for alien api change.

db4
John Benediktsson 2011-08-26 20:18:23 -07:00
parent b40e787556
commit 07454e2584
1 changed files with 6 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
extra/curses/curses.factor
View File

@ -1,9 +1,10 @@
! Copyright (C) 2008 Doug Coleman. ! Copyright (C) 2008 Doug Coleman.
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: accessors alien.c-types alien.strings classes.struct
combinators continuations destructors fry io.encodings.utf8 USING: accessors alien.c-types alien.data alien.strings
kernel libc locals math memoize multiline namespaces sequences classes.struct combinators continuations destructors fry
unix.ffi ; io.encodings.utf8 kernel libc locals math memoize multiline
namespaces sequences unix.ffi ;
QUALIFIED-WITH: curses.ffi ffi QUALIFIED-WITH: curses.ffi ffi
@ -449,7 +450,7 @@ PRIVATE>
] with-destructors ; ] with-destructors ;
: mousemask ( mask -- newmask oldmask ) : mousemask ( mask -- newmask oldmask )
0 <ulong> [ ffi:mousemask ] keep *ulong ; 0 ulong <ref> [ ffi:mousemask ] keep ulong deref ;
: wget-yx ( window -- y x ) : wget-yx ( window -- y x )
ptr>> [ _cury>> ] [ _curx>> ] bi ; ptr>> [ _cury>> ] [ _curx>> ] bi ;