[Win32forth-cvs] win32forth/src/lib ExtStruct.f,1.3,1.4

[Dirk B. <db...@us...>]

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
-