[Win32forth-cvs] win32forth/src/console CONSOLE.F,1.1,1.2

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

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

Modified Files:
	CONSOLE.F 
Log Message:
dbu: New word SetConsoleFont ( hFont -- ) to set the font for the console window added

Index: CONSOLE.F
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/console/CONSOLE.F,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** CONSOLE.F	21 Dec 2004 00:19:09 -0000	1.1
--- CONSOLE.F	23 Jan 2005 16:32:19 -0000	1.2
***************
*** 189,192 ****
--- 189,193 ----
  0 PROC c_maxcolrow
  2 PROC c_setmaxcolrow
+ 1 PROC c_setfont
  
  : x_pushkey     ( c1 -- )       \ push c1 into the keyboard input stream
***************
*** 234,244 ****
  
  3 PROC InvalidateRect
  : x_SetcharWH   ( width height -- )     \ set the width and height of the
                  Call c_setcharwh drop   \ current console font
!                 1 0 _conHndl call InvalidateRect drop ; \ force repaint
  
  : x_setcolrow   ( cols rows -- )                \ set the console size
                  Call c_resize drop ;
  
  synonym set-consize setcolrow 
  
--- 235,265 ----
  
  3 PROC InvalidateRect
+ : ConsoleRepaint ( -- ) \ redraw console window
+ 		1 0 _conHndl call InvalidateRect drop ;
+ 
  : x_SetcharWH   ( width height -- )     \ set the width and height of the
                  Call c_setcharwh drop   \ current console font
!                 ConsoleRepaint ; \ force repaint
  
  : x_setcolrow   ( cols rows -- )                \ set the console size
                  Call c_resize drop ;
  
+ : SetConsoleFont ( hFont -- ) \ set the console font. If hFont is NULL the
+ 		              \ default font will be set.
+ 		call c_setfont drop
+ 		ConsoleRepaint ; \ force repaint
+ 
+ \ Usage:
+ \ 
+ \	Font cFont
+ \	16 Height: cFont
+ \	8 Width: cFont
+ \	s" Courier New" SetFaceName: cFont
+ \	FW_NORMAL Weight: cFont
+ \	Create: cFont
+ \	Handle: cFont SetConsoleFont
+ \	zHandle: cFont \ don't let Win32Forth destroy the font; the console does it !!!
+ 
+ 
  synonym set-consize setcolrow 
  
***************
*** 369,370 ****
--- 390,393 ----
  
  SYNONYM _BYE          k_BYE
+ 
+