[Win32forth-cvs] win32forth/apps/Sudoku Sudoku.f,1.8,1.9

[George H. <geo...@us...>]

Update of /cvsroot/win32forth/win32forth/apps/Sudoku
In directory vz-cvs-4.sog:/tmp/cvs-serv15635

Modified Files:
	Sudoku.f 
Log Message:
Minor optimisations

Index: Sudoku.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/apps/Sudoku/Sudoku.f,v
retrieving revision 1.8
retrieving revision 1.9
diff -C2 -d -r1.8 -r1.9
*** Sudoku.f	2 Sep 2008 06:38:41 -0000	1.8
--- Sudoku.f	21 Jul 2011 18:16:08 -0000	1.9
***************
*** 631,637 ****
                        size i *  1 +  LeftMargin +
                        size j *  1 +  TopMargin +
!                       2dup  size 1+ size 1+ D+  SetRect: TempRect
                        i j CellAddress 162 + c@ dup '0' = IF  drop 32  THEN  pad c!
!                       pad 1 TempRect DT_CENTER DT_VCENTER or DT_SINGLELINE or DT_NOCLIP or DrawText: mdc
                LOOP
          LOOP
--- 631,637 ----
                        size i *  1 +  LeftMargin +
                        size j *  1 +  TopMargin +
!                       2dup  size 1+ size 1+ D+  SetRect: winRect
                        i j CellAddress 162 + c@ dup '0' = IF  drop 32  THEN  pad c!
!                       pad 1 winRect DT_CENTER DT_VCENTER or DT_SINGLELINE or DT_NOCLIP or DrawText: mdc
                LOOP
          LOOP
***************
*** 655,660 ****
  :M Redraw: ( -- )
          PrepareDC: self
!         0 ToolbarHeight Width Height StatusBarHeight - SetRect: TempRect
!         0 Temprect InvalidateRect: self ;M
  
  :M WM_CLOSE ( h m w l -- res )
--- 655,660 ----
  :M Redraw: ( -- )
          PrepareDC: self
!         0 ToolbarHeight Width Height StatusBarHeight - SetRect: winRect
!         0 winRect InvalidateRect: self ;M
  
  :M WM_CLOSE ( h m w l -- res )
***************
*** 845,850 ****
--- 845,852 ----
          ELSE  drop  false to SaveFlag
          THEN ;    IDM_SAVE_AS SetCommand
+ warning @ warning off
  : Save ( -- )
          CurrentFile c@  IF  CurrentFile SaveFile  ELSE  SaveAs  THEN ;   IDM_SAVE SetCommand
+ warning !
  : ImportGame ( -- )   SaveIfModified  0= ?exit
          Frame start: ImportDialog