windows.kernel32: add MAKEINTRESOURCE, standard resource types
parent
c3e60fc9c3
commit
f1d6082738
|
@ -1,7 +1,7 @@
|
|||
! Copyright (C) 2005, 2006 Doug Coleman.
|
||||
! See http://factorcode.org/license.txt for BSD license.
|
||||
USING: alien alien.c-types alien.syntax kernel windows.types
|
||||
multiline classes.struct ;
|
||||
math multiline classes.struct ;
|
||||
IN: windows.kernel32
|
||||
|
||||
CONSTANT: MAX_PATH 260
|
||||
|
@ -787,6 +787,30 @@ CONSTANT: STATUS_CONTROL_C_EXIT HEX: C000013A
|
|||
CONSTANT: STATUS_FLOAT_MULTIPLE_FAULTS HEX: C00002B4
|
||||
CONSTANT: STATUS_FLOAT_MULTIPLE_TRAPS HEX: C00002B5
|
||||
|
||||
! Resource IDs
|
||||
: MAKEINTRESOURCE ( int -- resource ) HEX: ffff bitand <alien> ; inline
|
||||
|
||||
: RT_CURSOR ( -- id ) 1 MAKEINTRESOURCE ; inline
|
||||
: RT_BITMAP ( -- id ) 2 MAKEINTRESOURCE ; inline
|
||||
: RT_ICON ( -- id ) 3 MAKEINTRESOURCE ; inline
|
||||
: RT_MENU ( -- id ) 4 MAKEINTRESOURCE ; inline
|
||||
: RT_DIALOG ( -- id ) 5 MAKEINTRESOURCE ; inline
|
||||
: RT_STRING ( -- id ) 6 MAKEINTRESOURCE ; inline
|
||||
: RT_FONTDIR ( -- id ) 7 MAKEINTRESOURCE ; inline
|
||||
: RT_FONT ( -- id ) 8 MAKEINTRESOURCE ; inline
|
||||
: RT_ACCELERATOR ( -- id ) 9 MAKEINTRESOURCE ; inline
|
||||
: RT_RCDATA ( -- id ) 10 MAKEINTRESOURCE ; inline
|
||||
: RT_MESSAGETABLE ( -- id ) 11 MAKEINTRESOURCE ; inline
|
||||
: RT_GROUP_CURSOR ( -- id ) 12 MAKEINTRESOURCE ; inline
|
||||
: RT_GROUP_ICON ( -- id ) 14 MAKEINTRESOURCE ; inline
|
||||
: RT_VERSION ( -- id ) 16 MAKEINTRESOURCE ; inline
|
||||
: RT_DLGINCLUDE ( -- id ) 17 MAKEINTRESOURCE ; inline
|
||||
: RT_PLUGPLAY ( -- id ) 19 MAKEINTRESOURCE ; inline
|
||||
: RT_VXD ( -- id ) 20 MAKEINTRESOURCE ; inline
|
||||
: RT_ANICURSOR ( -- id ) 21 MAKEINTRESOURCE ; inline
|
||||
: RT_ANIICON ( -- id ) 22 MAKEINTRESOURCE ; inline
|
||||
: RT_MANIFEST ( -- id ) 24 MAKEINTRESOURCE ; inline
|
||||
|
||||
LIBRARY: kernel32
|
||||
! FUNCTION: _hread
|
||||
! FUNCTION: _hwrite
|
||||
|
@ -826,7 +850,7 @@ FUNCTION: BOOL AllocConsole ( ) ;
|
|||
! FUNCTION: BaseUpdateAppcompatCache
|
||||
! FUNCTION: Beep
|
||||
! FUNCTION: BeginUpdateResourceA
|
||||
FUNCTION: HANDLE BeginUpdateResource ( LPCTSTR pFileName, BOOL bDeleteExistingResources ) ;
|
||||
FUNCTION: HANDLE BeginUpdateResourceW ( LPCTSTR pFileName, BOOL bDeleteExistingResources ) ;
|
||||
ALIAS: BeginUpdateResource BeginUpdateResourceW
|
||||
! FUNCTION: BindIoCompletionCallback
|
||||
! FUNCTION: BuildCommDCBA
|
||||
|
|
Loading…
Reference in New Issue