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

ui.windows cleanup

release
Slava Pestov 2007-10-28 01:19:33 -04:00
parent 346937a31a
commit 738672be9f
1 changed files with 5 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
extra/ui/windows/windows.factor
View File

@ -14,21 +14,18 @@ TUPLE: windows-ui-backend ;
: crlf>lf CHAR: \r swap remove ; : crlf>lf CHAR: \r swap remove ;
: lf>crlf [ [ dup CHAR: \n = [ CHAR: \r , ] when , ] each ] "" make ; : lf>crlf [ [ dup CHAR: \n = [ CHAR: \r , ] when , ] each ] "" make ;
: (enum-clipboard) ( n -- n )
EnumClipboardFormats win32-error dup 0 > [ dup , (enum-clipboard) ] when ;
: enum-clipboard ( -- seq ) : enum-clipboard ( -- seq )
[ 0 (enum-clipboard) ] { } make nip ; 0 [ EnumClipboardFormats win32-error dup dup 0 > ] [ ]
{ } unfold nip ;
: with-clipboard ( quot -- ) : with-clipboard ( quot -- )
f OpenClipboard win32-error=0/f f OpenClipboard win32-error=0/f
call call
CloseClipboard win32-error=0/f ; inline CloseClipboard win32-error=0/f ; inline
: paste ( -- str ) : paste ( -- str )
[ [
CF_UNICODETEXT IsClipboardFormatAvailable 0 = [ CF_UNICODETEXT IsClipboardFormatAvailable zero? [
! nothing to paste ! nothing to paste
"" ""
] [ ] [
@ -132,7 +129,7 @@ SYMBOL: mouse-captured
} ; } ;
: key-state-down? : key-state-down?
GetKeyState 1 16 shift bitand 0 > ; GetKeyState 16 bit? ;
: left-shift? ( -- ? ) VK_LSHIFT key-state-down? ; : left-shift? ( -- ? ) VK_LSHIFT key-state-down? ;
: left-ctrl? ( -- ? ) VK_LCONTROL key-state-down? ; : left-ctrl? ( -- ? ) VK_LCONTROL key-state-down? ;