Update of /cvsroot/win32forth/win32forth/src/lib
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv28724/src/lib
Modified Files:
AcceleratorTables.f MDI.F RebarControl.f bitmap.f excontrols.f
file.f formutils.f multiopen.f multithr.f treeview.f
Log Message:
Removed usage of REL>ABS and ABS>REL from Win32For.exe and marked both words as deprecated.
Index: bitmap.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/lib/bitmap.f,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** bitmap.f 21 Dec 2004 00:19:10 -0000 1.1
--- bitmap.f 1 May 2005 06:27:42 -0000 1.2
***************
*** 157,164 ****
\ return a bitmap handle for image in memory compatible with hdc
DIB_RGB_COLORS
! dib.infoheader rel>abs
! dib.bits rel>abs
CBM_INIT
! dib.infoheader rel>abs
hdc Call CreateDIBitmap ;
--- 157,164 ----
\ return a bitmap handle for image in memory compatible with hdc
DIB_RGB_COLORS
! dib.infoheader
! dib.bits
CBM_INIT
! dib.infoheader
hdc Call CreateDIBitmap ;
***************
*** 232,237 ****
&bitmap to currentbitmap
DIB_RGB_COLORS
! dib.infoheader rel>abs
! dib.bits rel>abs
dib.height 0 \ all scan lines
0 0 dib.height dib.width
--- 232,237 ----
&bitmap to currentbitmap
DIB_RGB_COLORS
! dib.infoheader
! dib.bits
dib.height 0 \ all scan lines
0 0 dib.height dib.width
***************
*** 247,252 ****
SRCCOPY
DIB_RGB_COLORS
! dib.infoheader rel>abs
! dib.bits rel>abs
dib.height dib.width
0 0 \ ysrc xsrc
--- 247,252 ----
SRCCOPY
DIB_RGB_COLORS
! dib.infoheader
! dib.bits
dib.height dib.width
0 0 \ ysrc xsrc
***************
*** 279,284 ****
SRCCOPY \ raster operation code
DIB_RGB_COLORS \ usage options
! dib.infoheader rel>abs \ *lpBitsInfo
! dib.bits rel>abs \ *lpBits
dib.height \ nSrcHeight
dib.width \ nSrcWidth
--- 279,284 ----
SRCCOPY \ raster operation code
DIB_RGB_COLORS \ usage options
! dib.infoheader \ *lpBitsInfo
! dib.bits \ *lpBits
dib.height \ nSrcHeight
dib.width \ nSrcWidth
***************
*** 289,293 ****
\ erase window first, white background
0 0 Width Height Setrect: Temprect
! Brush: BackGroundColor TempRect.AddrOf rel>abs hdc Call FillRect drop
\ center bitmap in window
--- 289,293 ----
\ erase window first, white background
0 0 Width Height Setrect: Temprect
! Brush: BackGroundColor TempRect.AddrOf hdc Call FillRect drop
\ center bitmap in window
***************
*** 310,314 ****
NULL NULL
IMAGE_BITMAP
! r> rel>abs
NULL
Call LoadImage
--- 310,314 ----
NULL NULL
IMAGE_BITMAP
! r>
NULL
Call LoadImage
***************
*** 320,324 ****
NULL NULL
IMAGE_ICON
! r> rel>abs
NULL
Call LoadImage
--- 320,324 ----
NULL NULL
IMAGE_ICON
! r>
NULL
Call LoadImage
***************
*** 347,352 ****
SRCCOPY
DIB_RGB_COLORS
! dib.infoheader rel>abs
! dib.bits rel>abs
dib.height dib.width
0 0 \ ysrc xsrc
--- 347,352 ----
SRCCOPY
DIB_RGB_COLORS
! dib.infoheader
! dib.bits
dib.height dib.width
0 0 \ ysrc xsrc
***************
*** 431,432 ****
--- 431,433 ----
+ |
