Redid the types.factor
Doug Coleman
parent
e505553077
commit
c4d656613b
|
|
@ -1,4 +1,4 @@
|
||||||
USING: kernel win32 math namespaces io prettyprint ;
|
USING: kernel win32 math namespaces io prettyprint errors ;
|
||||||
|
|
||||||
: (enum-clipboard) ( n -- )
|
: (enum-clipboard) ( n -- )
|
||||||
EnumClipboardFormats win32-error dup 0 > [ dup , (enum-clipboard) ] when ;
|
EnumClipboardFormats win32-error dup 0 > [ dup , (enum-clipboard) ] when ;
|
||||||
|
|
@ -20,6 +20,12 @@ USING: kernel win32 math namespaces io prettyprint ;
|
||||||
|
|
||||||
: copy ( str -- )
|
: copy ( str -- )
|
||||||
0 OpenClipboard drop
|
0 OpenClipboard drop
|
||||||
|
EmptyClipboard drop
|
||||||
|
GMEM_MOVEABLE 513 GlobalAlloc 0 = [
|
||||||
|
"unable to allocate memory" throw
|
||||||
|
] when
|
||||||
|
|
||||||
|
|
||||||
CF_TEXT 0 SetClipboardData win32-error
|
CF_TEXT 0 SetClipboardData win32-error
|
||||||
CloseClipboard drop ;
|
CloseClipboard drop ;
|
||||||
|
|
||||||
|
|
|
||||||
|
|
@ -45,9 +45,15 @@ FUNCTION: DWORD GetLastError ( ) ;
|
||||||
: win32-error ( -- )
|
: win32-error ( -- )
|
||||||
GetLastError dup 0 = [ (win32-error) throw ] unless drop ;
|
GetLastError dup 0 = [ (win32-error) throw ] unless drop ;
|
||||||
|
|
||||||
|
: GHND HEX: 40 ; inline
|
||||||
|
: GMEM_FIXED 0 ; inline
|
||||||
|
: GMEM_MOVEABLE 2 ; inline
|
||||||
|
: GMEM_ZEROINIT HEX: 40 ; inline
|
||||||
|
: GPTR HEX: 40 ; inline
|
||||||
|
|
||||||
FUNCTION: LPVOID GlobalLock ( HGLOBAL hMem ) ;
|
FUNCTION: HGLOBAL GlobalAlloc ( UINT uFlags, SIZE_T dwBytes ) ;
|
||||||
|
! FUNCTION: LPVOID GlobalLock ( HGLOBAL hMem ) ;
|
||||||
|
FUNCTION: char* GlobalLock ( HGLOBAL hMem ) ;
|
||||||
FUNCTION: BOOL GlobalUnlock ( HGLOBAL hMem ) ;
|
FUNCTION: BOOL GlobalUnlock ( HGLOBAL hMem ) ;
|
||||||
|
|
||||||
|
|
||||||
|
|
|
||||||
|
|
@ -1,73 +1,249 @@
|
||||||
IN: win32
|
IN: win32
|
||||||
USE: alien
|
USING: alien namespaces kernel words ;
|
||||||
|
|
||||||
|
! http://msdn.microsoft.com/library/default.asp?url=/library/en-us/winprog/winprog/windows_data_types.asp
|
||||||
|
|
||||||
|
SYMBOL: unicode f unicode set
|
||||||
|
: unicode-exec ( unicode-func ascii-func -- func )
|
||||||
|
unicode get [
|
||||||
|
drop execute
|
||||||
|
] [
|
||||||
|
nip execute
|
||||||
|
] if ; inline
|
||||||
|
|
||||||
|
: unicode? unicode get ; inline
|
||||||
|
|
||||||
|
: win64? f ;
|
||||||
|
|
||||||
|
! win64
|
||||||
|
! char uchar short ushort int uint long ulong longlong ulonglong
|
||||||
|
! 1 1 2 2 * * ?
|
||||||
|
! win32
|
||||||
|
! char uchar short ushort int uint long ulong longlong ulonglong
|
||||||
|
! 1 1 2 2 * * 4 4 8 8
|
||||||
|
|
||||||
|
TYPEDEF: char CHAR
|
||||||
|
TYPEDEF: uchar UCHAR
|
||||||
TYPEDEF: uchar BYTE
|
TYPEDEF: uchar BYTE
|
||||||
TYPEDEF: BYTE* PBYTE
|
|
||||||
TYPEDEF: BYTE* LPBYTE
|
TYPEDEF: short wchar_t
|
||||||
TYPEDEF: int BOOL
|
TYPEDEF: wchar_t WCHAR
|
||||||
TYPEDEF: BOOL* PBOOL
|
|
||||||
TYPEDEF: BOOL* LPBOOL
|
TYPEDEF: short SHORT
|
||||||
|
TYPEDEF: ushort USHORT
|
||||||
|
|
||||||
|
TYPEDEF: ushort WORD
|
||||||
|
TYPEDEF: ulong DWORD
|
||||||
|
|
||||||
TYPEDEF: int INT
|
TYPEDEF: int INT
|
||||||
|
TYPEDEF: uint UINT
|
||||||
|
|
||||||
|
TYPEDEF: int BOOL
|
||||||
|
|
||||||
TYPEDEF: int* PINT
|
TYPEDEF: int* PINT
|
||||||
TYPEDEF: int* LPINT
|
TYPEDEF: int* LPINT
|
||||||
TYPEDEF: uint UINT
|
TYPEDEF: int HFILE
|
||||||
TYPEDEF: uint* PUINT
|
|
||||||
TYPEDEF: long LONG
|
TYPEDEF: long LONG
|
||||||
TYPEDEF: long* LPLONG
|
TYPEDEF: long* LPLONG
|
||||||
TYPEDEF: float FLOAT
|
|
||||||
TYPEDEF: FLOAT* PFLOAT
|
|
||||||
TYPEDEF: ushort WORD
|
|
||||||
TYPEDEF: WORD* PWORD
|
|
||||||
TYPEDEF: WORD* LPWORD
|
|
||||||
TYPEDEF: ulong DWORD
|
|
||||||
TYPEDEF: long LONG_PTR
|
TYPEDEF: long LONG_PTR
|
||||||
TYPEDEF: ulong ULONG_PTR
|
|
||||||
TYPEDEF: long* PLONG_PTR
|
TYPEDEF: long* PLONG_PTR
|
||||||
|
|
||||||
|
TYPEDEF: uint ULONG
|
||||||
|
TYPEDEF: ulong ULONG_PTR
|
||||||
TYPEDEF: ulong* PULONG_PTR
|
TYPEDEF: ulong* PULONG_PTR
|
||||||
TYPEDEF: DWORD* PDWORD
|
|
||||||
TYPEDEF: DWORD* LPDWORD
|
TYPEDEF: void VOID
|
||||||
TYPEDEF: char* LPVOID
|
TYPEDEF: void* PVOID
|
||||||
|
TYPEDEF: void* LPVOID
|
||||||
TYPEDEF: void* LPCVOID
|
TYPEDEF: void* LPCVOID
|
||||||
TYPEDEF: char* LPCSTR
|
|
||||||
TYPEDEF: char* LPCTSTR
|
TYPEDEF: float FLOAT
|
||||||
|
win64? [
|
||||||
|
! TODO: check these!
|
||||||
|
TYPEDEF: INT32 HALF_PTR
|
||||||
|
TYPEDEF: UINT32 UHALF_PTR
|
||||||
|
TYPEDEF: long INT_PTR
|
||||||
|
TYPEDEF: ulong UINT_PTR
|
||||||
|
|
||||||
|
TYPEDEF: longlong LONG_PTR ! 64bit
|
||||||
|
TYPEDEF: ulonglong ULONG_PTR ! 64bit
|
||||||
|
|
||||||
|
TYPEDEF: int INT32
|
||||||
|
TYPEDEF: uint UINT32
|
||||||
|
TYPEDEF: uint DWORD32
|
||||||
|
TYPEDEF: uint ULONG32
|
||||||
|
TYPEDEF: ulong ULONG64
|
||||||
|
TYPEDEF: int* POINTER_32
|
||||||
|
TYPEDEF: long* POINTER_64
|
||||||
|
TYPEDEF: longlong INT64
|
||||||
|
TYPEDEF: ulonglong UINT64
|
||||||
|
TYPEDEF: longlong LONGLONG ! 64bit
|
||||||
|
TYPEDEF: ulonglong ULONGLONG
|
||||||
|
TYPEDEF: longlong LONG64
|
||||||
|
TYPEDEF: ulonglong DWORD64
|
||||||
|
] [
|
||||||
|
TYPEDEF: short HALF_PTR
|
||||||
|
TYPEDEF: ushort UHALF_PTR
|
||||||
|
TYPEDEF: int INT_PTR
|
||||||
|
TYPEDEF: uint UINT_PTR
|
||||||
|
|
||||||
|
TYPEDEF: int LONG_PTR
|
||||||
|
TYPEDEF: ulong ULONG_PTR
|
||||||
|
|
||||||
|
TYPEDEF: int INT32
|
||||||
|
TYPEDEF: uint UINT32
|
||||||
|
TYPEDEF: uint DWORD32
|
||||||
|
TYPEDEF: ulong ULONG32
|
||||||
|
TYPEDEF: ulonglong ULONG64
|
||||||
|
TYPEDEF: long* POINTER_32
|
||||||
|
TYPEDEF: longlong* POINTER_64
|
||||||
|
TYPEDEF: longlong INT64
|
||||||
|
TYPEDEF: ulonglong UINT64
|
||||||
|
TYPEDEF: longlong LONGLONG
|
||||||
|
TYPEDEF: ulonglong ULONGLONG
|
||||||
|
TYPEDEF: longlong LONG64
|
||||||
|
TYPEDEF: ulonglong DWORD64
|
||||||
|
] if
|
||||||
|
|
||||||
|
unicode? [
|
||||||
|
TYPEDEF: WCHAR TBYTE
|
||||||
|
TYPEDEF: WCHAR TCHAR
|
||||||
|
] [
|
||||||
|
TYPEDEF: uchar TBYTE
|
||||||
|
TYPEDEF: char TCHAR
|
||||||
|
] if
|
||||||
|
|
||||||
|
! Below down is based on the above definitions
|
||||||
|
! There should be no 32/64bit issues
|
||||||
|
|
||||||
TYPEDEF: WORD ATOM
|
TYPEDEF: WORD ATOM
|
||||||
|
TYPEDEF: BYTE BOOLEAN
|
||||||
|
! TYPEDEF: __stdcall CALLBACK
|
||||||
|
TYPEDEF: DWORD COLORREF
|
||||||
|
TYPEDEF: ULONGLONG DWORDLONG
|
||||||
|
TYPEDEF: ULONG_PTR DWORD_PTR
|
||||||
|
TYPEDEF: uint HANDLE
|
||||||
|
! TYPEDEF: PVOID HANDLE
|
||||||
|
TYPEDEF: HANDLE HACCEL
|
||||||
|
TYPEDEF: HANDLE HBITMAP
|
||||||
|
TYPEDEF: HANDLE HBRUSH
|
||||||
|
TYPEDEF: HANDLE HCOLORSPACE
|
||||||
|
TYPEDEF: HANDLE HCONV
|
||||||
|
TYPEDEF: HANDLE HCONVLIST
|
||||||
|
TYPEDEF: HANDLE HICON
|
||||||
|
TYPEDEF: HICON HCURSOR
|
||||||
|
TYPEDEF: HANDLE HDC
|
||||||
|
TYPEDEF: HANDLE HDDEDATA
|
||||||
|
TYPEDEF: HANDLE HDESK
|
||||||
|
TYPEDEF: HANDLE HDROP
|
||||||
|
TYPEDEF: HANDLE HDWP
|
||||||
|
TYPEDEF: HANDLE HENMETAFILE
|
||||||
|
TYPEDEF: HANDLE HFONT
|
||||||
|
TYPEDEF: HANDLE HGDIOBJ
|
||||||
|
TYPEDEF: HANDLE HGLOBAL
|
||||||
|
TYPEDEF: HANDLE HHOOK
|
||||||
|
TYPEDEF: HANDLE HINSTANCE
|
||||||
|
TYPEDEF: HANDLE HKEY
|
||||||
|
TYPEDEF: HANDLE HKL
|
||||||
|
TYPEDEF: HANDLE HLOCAL
|
||||||
|
TYPEDEF: HANDLE HMENU
|
||||||
|
TYPEDEF: HANDLE HMETAFILE
|
||||||
|
TYPEDEF: HINSTANCE HMODULE
|
||||||
|
TYPEDEF: HANDLE HMONITOR
|
||||||
|
TYPEDEF: HANDLE HPALETTE
|
||||||
|
TYPEDEF: HANDLE HPEN
|
||||||
|
TYPEDEF: LONG HRESULT
|
||||||
|
TYPEDEF: HANDLE HRGN
|
||||||
|
TYPEDEF: HANDLE HRSRC
|
||||||
|
TYPEDEF: HANDLE HSZ
|
||||||
|
TYPEDEF: HANDLE WINSTA ! MS docs say typedef HANDLE WINSTA ;
|
||||||
|
TYPEDEF: HANDLE HWINSTA ! typo??
|
||||||
|
TYPEDEF: HANDLE HWND
|
||||||
|
TYPEDEF: WORD LANGID
|
||||||
|
TYPEDEF: DWORD LCID
|
||||||
|
TYPEDEF: DWORD LCTYPE
|
||||||
|
TYPEDEF: DWORD LGRPID
|
||||||
|
TYPEDEF: LONG_PTR LPARAM
|
||||||
|
TYPEDEF: BOOL* LPBOOL
|
||||||
|
TYPEDEF: BYTE* LPBYTE
|
||||||
|
TYPEDEF: DWORD* LPCOLORREF
|
||||||
|
TYPEDEF: CHAR* LPCSTR
|
||||||
|
TYPEDEF: WCHAR* LPCWSTR
|
||||||
|
TYPEDEF: WCHAR* LPWSTR
|
||||||
|
unicode? [
|
||||||
|
TYPEDEF: LPCWSTR LPCTSTR
|
||||||
|
TYPEDEF: LPWSTR LPTSTR
|
||||||
|
TYPEDEF: LPCWSTR PCTSTR
|
||||||
|
TYPEDEF: LPWSTR PTSTR
|
||||||
|
] [
|
||||||
|
TYPEDEF: LPCSTR LPCTSTR
|
||||||
|
TYPEDEF: LPSTR LPTSTR
|
||||||
|
TYPEDEF: LPCSTR PCTSTR
|
||||||
|
TYPEDEF: LPSTR PTSTR
|
||||||
|
] if
|
||||||
|
TYPEDEF: DWORD* LPDWORD
|
||||||
|
TYPEDEF: HANDLE* LPHANDLE
|
||||||
|
TYPEDEF: CHAR* LPSTR
|
||||||
|
TYPEDEF: WORD* LPWORD
|
||||||
|
TYPEDEF: WCHAR* LPWSTR
|
||||||
|
TYPEDEF: LONG_PTR LRESULT
|
||||||
|
TYPEDEF: BOOL* PBOOL
|
||||||
|
TYPEDEF: BOOLEAN* PBOOLEAN
|
||||||
|
TYPEDEF: BYTE* PBYTE
|
||||||
|
TYPEDEF: CHAR* PCHAR
|
||||||
|
TYPEDEF: CHAR* PCSTR
|
||||||
|
TYPEDEF: WCHAR* PCWSTR
|
||||||
|
TYPEDEF: DWORD* PDWORD
|
||||||
|
TYPEDEF: DWORDLONG* PDWORDLONG
|
||||||
|
TYPEDEF: DWORD_PTR* PDWORD_PTR
|
||||||
|
TYPEDEF: DWORD32* PDWORD32
|
||||||
|
TYPEDEF: DWORD64* PDWORD64
|
||||||
|
TYPEDEF: FLOAT* PFLOAT
|
||||||
|
TYPEDEF: HALF_PTR* PHALF_PTR
|
||||||
|
TYPEDEF: HANDLE* PHANDLE
|
||||||
|
TYPEDEF: HKEY* PHKEY
|
||||||
|
TYPEDEF: INT_PTR* PINT_PTR
|
||||||
|
TYPEDEF: INT32* PINT32
|
||||||
|
TYPEDEF: INT64* PINT64
|
||||||
|
TYPEDEF: PDWORD PLCID
|
||||||
|
TYPEDEF: LONG* PLONG
|
||||||
|
TYPEDEF: LONGLONG* PLONGLONG
|
||||||
|
TYPEDEF: LONG_PTR* PLONG_PTR
|
||||||
|
TYPEDEF: LONG32* PLONG32
|
||||||
|
TYPEDEF: LONG64* PLONG64
|
||||||
|
TYPEDEF: SHORT* PSHORT
|
||||||
|
TYPEDEF: SIZE_T* PSIZE_T
|
||||||
|
TYPEDEF: SSIZE_T* PSSIZE_T
|
||||||
|
TYPEDEF: CHAR* PSTR
|
||||||
|
TYPEDEF: TBYTE* PTBYTE
|
||||||
|
TYPEDEF: TCHAR* PTCHAR
|
||||||
|
TYPEDEF: UCHAR* PUCHAR
|
||||||
|
TYPEDEF: UHALF_PTR* PUHALF_PTR
|
||||||
|
TYPEDEF: UINT* PUINT
|
||||||
|
TYPEDEF: UINT_PTR* PUINT_PTR
|
||||||
|
TYPEDEF: UINT32* PUINT32
|
||||||
|
TYPEDEF: UINT64* PUINT64
|
||||||
|
TYPEDEF: ULONG* PULONG
|
||||||
|
TYPEDEF: ULONGLONG* PULONGLONG
|
||||||
|
TYPEDEF: ULONG_PTR* PULONG_PTR
|
||||||
|
TYPEDEF: ULONG32* PULONG32
|
||||||
|
TYPEDEF: ULONG64* PULONG64
|
||||||
|
TYPEDEF: USHORT* PUSHORT
|
||||||
|
TYPEDEF: WCHAR* PWCHAR
|
||||||
|
TYPEDEF: WORD* PWORD
|
||||||
|
TYPEDEF: WCHAR* PWSTR
|
||||||
|
TYPEDEF: HANDLE SC_HANDLE
|
||||||
|
TYPEDEF: LPVOID SC_LOCK
|
||||||
|
TYPEDEF: HANDLE SERVICE_STATUS_HANDLE
|
||||||
|
TYPEDEF: ULONG_PTR SIZE_T
|
||||||
|
TYPEDEF: LONG_PTR SSIZE_T
|
||||||
|
TYPEDEF: LONGLONG USN
|
||||||
|
! TYPEDEF: __stdcall WINAPI
|
||||||
|
TYPEDEF: UINT_PTR WPARAM
|
||||||
|
|
||||||
|
|
||||||
! TYPEDEF: ushort wchar_t
|
|
||||||
! TYPEDEF: ushort* wchar_t*
|
|
||||||
! TYPEDEF: wchar_t ushort
|
|
||||||
TYPEDEF: ushort LPCWSTR
|
|
||||||
|
|
||||||
TYPEDEF: int HANDLE
|
|
||||||
|
|
||||||
TYPEDEF: HANDLE HGDIOBJ
|
|
||||||
TYPEDEF: HANDLE HKEY
|
|
||||||
TYPEDEF: HANDLE* PHKEY
|
|
||||||
TYPEDEF: HANDLE HACCEL
|
|
||||||
TYPEDEF: HANDLE HBITMAP
|
|
||||||
TYPEDEF: HANDLE HBRUSH
|
|
||||||
TYPEDEF: HANDLE HCOLORSPACE
|
|
||||||
TYPEDEF: HANDLE HDC
|
|
||||||
TYPEDEF: HANDLE HGLRC ! OpenGL
|
|
||||||
TYPEDEF: HANDLE HDESK
|
|
||||||
TYPEDEF: HANDLE HENHMETAFILE
|
|
||||||
TYPEDEF: HANDLE HFONT
|
|
||||||
TYPEDEF: HANDLE HICON
|
|
||||||
TYPEDEF: HANDLE HMENU
|
|
||||||
TYPEDEF: HANDLE HMETAFILE
|
|
||||||
TYPEDEF: HANDLE HINSTANCE
|
|
||||||
TYPEDEF: HINSTANCE HMODULE
|
|
||||||
TYPEDEF: HANDLE HPALETTE
|
|
||||||
TYPEDEF: HANDLE HPEN
|
|
||||||
TYPEDEF: HANDLE HRGN
|
|
||||||
TYPEDEF: HANDLE HRSRC
|
|
||||||
TYPEDEF: HANDLE HSTR
|
|
||||||
TYPEDEF: HANDLE HTASK
|
|
||||||
TYPEDEF: HANDLE HWINSTA
|
|
||||||
TYPEDEF: HANDLE HWND
|
|
||||||
TYPEDEF: HANDLE HKL
|
|
||||||
TYPEDEF: HANDLE HCURSOR
|
|
||||||
TYPEDEF: HANDLE HGLOBAL
|
|
||||||
|
|
||||||
TYPEDEF: RECT* LPRECT
|
TYPEDEF: RECT* LPRECT
|
||||||
TYPEDEF: void* PWNDCLASS
|
TYPEDEF: void* PWNDCLASS
|
||||||
|
|
|
||||||
|
|
@ -210,7 +210,7 @@ FUNCTION: BOOL AnyPopup ( ) ;
|
||||||
! FUNCTION: BeginDeferWindowPos
|
! FUNCTION: BeginDeferWindowPos
|
||||||
|
|
||||||
|
|
||||||
FUNCTION: HDC BeginPaint ( HWND hwnd, LPPAINTSTRUCT lpPaint ) ;
|
! FUNCTION: HDC BeginPaint ( HWND hwnd, LPPAINTSTRUCT lpPaint ) ;
|
||||||
|
|
||||||
! FUNCTION: BlockInput
|
! FUNCTION: BlockInput
|
||||||
! FUNCTION: BringWindowToTop
|
! FUNCTION: BringWindowToTop
|
||||||
|
|
@ -408,7 +408,7 @@ FUNCTION: HWND CreateWindowExW (
|
||||||
|
|
||||||
|
|
||||||
FUNCTION: BOOL DrawAnimatedRects ( HWND hWnd, int idAni, RECT* lprcFrom, RECT* lprcTo ) ;
|
FUNCTION: BOOL DrawAnimatedRects ( HWND hWnd, int idAni, RECT* lprcFrom, RECT* lprcTo ) ;
|
||||||
FUNCTION: BOOL DrawCaption ( HWND hWnd, HDC hdc, LPRECT lprc, UINT uFlags ) ;
|
! FUNCTION: BOOL DrawCaption ( HWND hWnd, HDC hdc, LPRECT lprc, UINT uFlags ) ;
|
||||||
|
|
||||||
! FUNCTION: DrawEdge
|
! FUNCTION: DrawEdge
|
||||||
! FUNCTION: DrawFocusRect
|
! FUNCTION: DrawFocusRect
|
||||||
|
|
@ -597,7 +597,7 @@ FUNCTION: int GetPriorityClipboardFormat ( UINT* paFormatPriorityList, int cForm
|
||||||
|
|
||||||
|
|
||||||
FUNCTION: HWND GetTopWindow ( HWND hWnd ) ;
|
FUNCTION: HWND GetTopWindow ( HWND hWnd ) ;
|
||||||
FUNCTION: BOOL GetUpdateRect ( HWND hWnd, LPRECT lpRect, BOOL bErase ) ;
|
! FUNCTION: BOOL GetUpdateRect ( HWND hWnd, LPRECT lpRect, BOOL bErase ) ;
|
||||||
FUNCTION: int GetUpdateRgn ( HWND hWnd, HRGN hRgn, BOOL bErase ) ;
|
FUNCTION: int GetUpdateRgn ( HWND hWnd, HRGN hRgn, BOOL bErase ) ;
|
||||||
|
|
||||||
|
|
||||||
|
|
@ -688,7 +688,7 @@ FUNCTION: BOOL IsZoomed ( HWND hWnd ) ;
|
||||||
|
|
||||||
|
|
||||||
FUNCTION: HCURSOR LoadCursorA ( HINSTANCE hInstance, LPCTSTR lpCursorName ) ;
|
FUNCTION: HCURSOR LoadCursorA ( HINSTANCE hInstance, LPCTSTR lpCursorName ) ;
|
||||||
FUNCTION: HCURSOR LoadCursorW ( HINSTANCE hInstance, LPWCTSTR lpCursorName ) ;
|
FUNCTION: HCURSOR LoadCursorW ( HINSTANCE hInstance, LPCWSTR lpCursorName ) ;
|
||||||
: LoadCursor \ LoadCursorW \ LoadCursorA unicode-exec ;
|
: LoadCursor \ LoadCursorW \ LoadCursorA unicode-exec ;
|
||||||
|
|
||||||
FUNCTION: HICON LoadIconA ( HINSTANCE hInstance, LPCTSTR lpIconName ) ;
|
FUNCTION: HICON LoadIconA ( HINSTANCE hInstance, LPCTSTR lpIconName ) ;
|
||||||
|
|
@ -883,7 +883,7 @@ FUNCTION: ATOM RegisterClassExW ( WNDCLASSEX* lpwcx ) ;
|
||||||
! FUNCTION: SendDlgItemMessageW
|
! FUNCTION: SendDlgItemMessageW
|
||||||
! FUNCTION: SendIMEMessageExA
|
! FUNCTION: SendIMEMessageExA
|
||||||
! FUNCTION: SendIMEMessageExW
|
! FUNCTION: SendIMEMessageExW
|
||||||
FUNCTION: UINT SendInput ( UINT nInputs, LPINPUT pInputs, int cbSize ) ;
|
! FUNCTION: UINT SendInput ( UINT nInputs, LPINPUT pInputs, int cbSize ) ;
|
||||||
! FUNCTION: SendMessageA
|
! FUNCTION: SendMessageA
|
||||||
! FUNCTION: SendMessageCallbackA
|
! FUNCTION: SendMessageCallbackA
|
||||||
! FUNCTION: SendMessageCallbackW
|
! FUNCTION: SendMessageCallbackW
|
||||||
|
|
|
||||||
|
|
@ -1,12 +1,4 @@
|
||||||
IN: win32
|
IN: win32
|
||||||
USING: alien parser namespaces kernel syntax words math io prettyprint ;
|
USING: alien parser namespaces kernel syntax words math io prettyprint ;
|
||||||
|
|
||||||
SYMBOL: unicode f unicode set
|
|
||||||
|
|
||||||
: unicode-exec ( unicode-func ascii-func -- func )
|
|
||||||
unicode get [
|
|
||||||
drop execute
|
|
||||||
] [
|
|
||||||
nip execute
|
|
||||||
] if ; inline
|
|
||||||
|
|
||||||
|
|
|
||||||
Loading…
Reference in New Issue