[Win32forth-cvs] win32forth/src/console CommandWindow.f,1.17,1.18

[Rod O. <rod...@us...>]

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

Modified Files:
	CommandWindow.f 
Log Message:
Rod: undone last change to CommandFont - was causing crashes

Index: CommandWindow.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/console/CommandWindow.f,v
retrieving revision 1.17
retrieving revision 1.18
diff -C2 -d -r1.17 -r1.18
*** CommandWindow.f	26 Aug 2008 17:20:50 -0000	1.17
--- CommandWindow.f	29 Aug 2008 08:55:18 -0000	1.18
***************
*** 11,14 ****
--- 11,21 ----
  \ Cut, copy and paste
  
+ 
+ Font CommandFont
+ 10 Height: CommandFont
+ \ FW_HEAVY Weight: CommandFont          \ Optional
+ s" Courier" SetFaceName: CommandFont
+ \ s" Terminal" SetFaceName: CommandFont \ Optional choice
+ 
  defer HandleKeys      ' drop is HandleKeys      \ define to handle keys e.g. 'O' +k_control
  defer HandleKeyDown   ' drop is HandleKeyDown   \ define to handle virtual keys e.g. VK_F12
***************
*** 25,33 ****
  :M SetAction: ( xt -- )   to action ;M
  
! int CommandFont
  int hFont
  :M SetFont: ( font -- )
!         delete: CommandFont  to CommandFont  create: CommandFont
!         Handle: CommandFont to hFont  paint: self
          PauseForMessages  BigCursor: [ self ]
          ;M
--- 32,40 ----
  :M SetAction: ( xt -- )   to action ;M
  
! int font
  int hFont
  :M SetFont: ( font -- )
!         delete: font  to font  create: font
!         Handle: font to hFont  paint: self
          PauseForMessages  BigCursor: [ self ]
          ;M
***************
*** 1204,1207 ****
--- 1211,1217 ----
          8 to HorzLine
          13 to VertLine
+         CommandFont to font
+         Create: CommandFont
+         Handle: CommandFont to hFont
          Black to ForegroundColour
          White to BackgroundColour
***************
*** 1227,1237 ****
  
  :M On_Init: ( -- )
-         new> font to CommandFont
-         10 Height: CommandFont
- \        FW_HEAVY Weight: CommandFont          \ Optional
-         s" Courier" SetFaceName: CommandFont
- \        s" Terminal" SetFaceName: CommandFont \ Optional choice
-         Create: CommandFont
-         Handle: CommandFont to hFont
          MaxText malloc to text text MaxText 45 fill 0 text c! \ text MaxText erase
          CommandFont SetFont: self   \ this creates a caret in BigCursor: self
--- 1237,1240 ----