[Win32forth-cvs] win32forth/src/gdi gdiDC.f,1.4,1.5

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

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