[Win32forth-cvs] win32forth/src Dc.f,1.11,1.12

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

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

Modified Files:
	Dc.f 
Log Message:
Fixed a bug in the gdiDC and DC class whitch broke WinEd very badly.

Index: Dc.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/Dc.f,v
retrieving revision 1.11
retrieving revision 1.12
diff -C2 -d -r1.11 -r1.12
*** Dc.f	5 Nov 2005 14:08:12 -0000	1.11
--- Dc.f	19 Nov 2005 11:13:09 -0000	1.12
***************
*** 61,65 ****
  
  :M RestoreDC:   ( -- )  \ restore current DC context including font
!         Restore: super drop ;M
  
  :M SetFont:     ( font_handle -- )
--- 61,65 ----
  
  :M RestoreDC:   ( -- )  \ restore current DC context including font
!         Restore: super ;M
  
  :M SetFont:     ( font_handle -- )
***************
*** 148,154 ****
  \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
  
-   8 value CHAR-WIDTH            \ Width of each character in pixels
-  14 value CHAR-HEIGHT           \ Height of each character in pixels
- 
    0 value #PAGES-UP
  644 value SCREEN-WIDTH          \ Width of screen in bits
--- 148,151 ----