[Win32forth-cvs] win32forth/src/gdi gdiStruct.f,1.1,1.2

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

Update of /cvsroot/win32forth/win32forth/src/gdi
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv22873/src/gdi

Modified Files:
	gdiStruct.f 
Log Message:
Made the CustomColors for the ChooseColor dialog global to all instances of the gdiCOLORREF class.

Index: gdiStruct.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/gdi/gdiStruct.f,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** gdiStruct.f	1 Nov 2005 12:21:40 -0000	1.1
--- gdiStruct.f	6 Nov 2005 09:09:27 -0000	1.2
***************
*** 10,13 ****
--- 10,24 ----
  
  internal
+ 
+ create CustomColors 64 allot \ hold the userdefined custom colors
+ 
+ \ init custom colors
+ 0xE6FFFF CustomColors        !  0xFFE6FF CustomColors 0x04 + !  0xFFFFE6 CustomColors 0x08 + !
+ 0xFFE6E6 CustomColors 0x0C + !  0xE6FFE6 CustomColors 0x10 + !  0xE6E6FF CustomColors 0x14 + !
+ 0xC8F0F0 CustomColors 0x18 + !  0xF0C8F0 CustomColors 0x1C + !  0xF0F0C8 CustomColors 0x20 + !
+ 0xF0C8C8 CustomColors 0x24 + !  0xC8F0C8 CustomColors 0x28 + !  0xC8C8F0 CustomColors 0x2C + !
+ 0xF0F0F0 CustomColors 0x30 + !  0xE6E6E6 CustomColors 0x34 + !  0xF4FFFF CustomColors 0x38 + !
+ 0xFFFFF4 CustomColors 0x3C + !
+ 
  external
  
***************
*** 64,69 ****
  ;RecordSize: sizeof(CHOOSECOLOR)
  
- 64 bytes CustomColors
- 
  :M ClassInit:   ( -- )
          ClassInit: super
--- 75,78 ----
***************
*** 86,96 ****
          null to lpTemplateName
  
-         \ init custom colors
-         0xE6FFFF CustomColors        !  0xFFE6FF CustomColors 0x04 + !  0xFFFFE6 CustomColors 0x08 + !
-         0xFFE6E6 CustomColors 0x0C + !  0xE6FFE6 CustomColors 0x10 + !  0xE6E6FF CustomColors 0x14 + !
-         0xC8F0F0 CustomColors 0x18 + !  0xF0C8F0 CustomColors 0x1C + !  0xF0F0C8 CustomColors 0x20 + !
-         0xF0C8C8 CustomColors 0x24 + !  0xC8F0C8 CustomColors 0x28 + !  0xC8C8F0 CustomColors 0x2C + !
-         0xF0F0F0 CustomColors 0x30 + !  0xE6E6E6 CustomColors 0x34 + !  0xF4FFFF CustomColors 0x38 + !
-         0xFFFFF4 CustomColors 0x3C + !
          ;M
  
--- 95,98 ----
***************
*** 119,122 ****
--- 121,128 ----
          then ;M
  
+ \ return address and length of the user defined custom colors
+ :M CustomColors:        ( -- addr len )
+         CustomColors 64 ;M
+ 
  ;class