Update of /cvsroot/win32forth/win32forth/src/gdi
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv30912/src/gdi
Modified Files:
gdiDC.f
Log Message:
Fixed a bug in the gdiDC and DC class whitch broke WinEd very badly.
Index: gdiDC.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/gdi/gdiDC.f,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -d -r1.4 -r1.5
*** gdiDC.f 5 Nov 2005 14:08:13 -0000 1.4
--- gdiDC.f 19 Nov 2005 11:13:09 -0000 1.5
***************
*** 13,20 ****
internal
- 8 constant TAB-CHAR-WIDTH
-
external
\ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
\ Base device context class
--- 13,21 ----
internal
external
+ 8 value CHAR-WIDTH \ Width of each character in pixels
+ 14 value CHAR-HEIGHT \ Height of each character in pixels
+
\ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
\ Base device context class
***************
*** 144,148 ****
\ context stack.
:M Save: ( -- )
! hObject call SaveDC ?win-error ;M
\ The Restore method restores the device context to the specified state.
--- 145,149 ----
\ context stack.
:M Save: ( -- )
! hObject call SaveDC ;M
\ The Restore method restores the device context to the specified state.
***************
*** 907,911 ****
:M DefaultTabs: ( -- )
deftabs 0
! ?DO i 1+ tabwidth * TAB-CHAR-WIDTH *
tabarray i cells+ ! \ fill default tabs
LOOP
--- 908,912 ----
:M DefaultTabs: ( -- )
deftabs 0
! ?DO i 1+ tabwidth * CHAR-WIDTH *
tabarray i cells+ ! \ fill default tabs
LOOP
|
