Update of /cvsroot/win32forth/win32forth/src/lib
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv11537/src/lib
Modified Files:
ExtStruct.f
Log Message:
Alias for COLORREF's added
Index: ExtStruct.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/lib/ExtStruct.f,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -d -r1.3 -r1.4
*** ExtStruct.f 4 Jun 2005 08:51:20 -0000 1.3
--- ExtStruct.f 29 Oct 2005 09:44:38 -0000 1.4
***************
*** 68,74 ****
\ Not standard in C
!
! ' dword alias HWND \ 4 bytes
! ' dword alias HICON \ 4 bytes
[DEFINED] b/float [IF]
--- 68,74 ----
\ Not standard in C
! ' dword alias HWND \ 4 bytes
! ' dword alias HICON \ 4 bytes
! ' dword alias COLORREF \ 4 bytes (added Samstag, Oktober 22 2005 dbu)
[DEFINED] b/float [IF]
***************
*** 85,89 ****
_struct offset ; \ run-time: ( offset - offset+dword )
! 0 value current-voc
\ Close a struct definiton.
--- 85,89 ----
_struct offset ; \ run-time: ( offset - offset+dword )
! 0 value current-voc
\ Close a struct definiton.
***************
*** 93,97 ****
previous
current-voc set-current
! -1 +to olddepth
;
--- 93,97 ----
previous
current-voc set-current
! -1 +to olddepth
;
***************
*** 142,146 ****
if interpret \ Compile the offset+ part inside a definition
previous \ and restore the order
! then
;
--- 142,146 ----
if interpret \ Compile the offset+ part inside a definition
previous \ and restore the order
! then
;
***************
*** 152,156 ****
: :struct ( -<name-struct>- -- ptr-size )
/parse-word count ( addr len )
!
\ create the vocabulary for the struct in the 'structs' vocabulary
2dup create-struct-voc ( addr len wid )
--- 152,156 ----
: :struct ( -<name-struct>- -- ptr-size )
/parse-word count ( addr len )
!
\ create the vocabulary for the struct in the 'structs' vocabulary
2dup create-struct-voc ( addr len wid )
***************
*** 300,302 ****
decimal
- |
