[Win32forth-cvs] win32forth/apps/Sudoku Sudoku.f,1.2,1.3

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

Update of /cvsroot/win32forth/win32forth/apps/Sudoku
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv31983/apps/Sudoku

Modified Files:
	Sudoku.f 
Log Message:
Rod: use WAVE resource

Index: Sudoku.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/apps/Sudoku/Sudoku.f,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** Sudoku.f	8 Oct 2005 08:24:21 -0000	1.2
--- Sudoku.f	3 Nov 2005 19:21:01 -0000	1.3
***************
*** 46,50 ****
          IF  MB_ICONEXCLAMATION call MessageBeep drop  THEN ;
  : PlayApplause ( -- )   ShowSolution ?exit
!         SND_ASYNC z" Applause7.wav" call sndPlaySound drop  ;
  0 value FlatToolbar?
  0 value WindowState
--- 46,52 ----
          IF  MB_ICONEXCLAMATION call MessageBeep drop  THEN ;
  : PlayApplause ( -- )   ShowSolution ?exit
!         SND_ASYNC SND_RESOURCE or
!         AppInst
!         153 call PlaySound drop ;
  0 value FlatToolbar?
  0 value WindowState
***************
*** 843,850 ****
  
  \ File Menu
! : InitGame ( -- )   0 to x 0 to y  Redraw: Frame SetCaption: Frame  IDM_PAUSE false CheckButton: SudokuToolbar
          ( ZeroMoves  IDM_ESCAPE DoCommand  ) false to EditMode  false check: hEdit  ShowMoves StartTimer
          ;
! : ?Restart ( -- )   numbers 162 + 81 48 scan nip   \ blank squares?
          IF  InitGame
          ELSE
--- 845,854 ----
  
  \ File Menu
! : InitGame ( -- )   0 to x 0 to y  Redraw: Frame  IDM_PAUSE false CheckButton: SudokuToolbar
          ( ZeroMoves  IDM_ESCAPE DoCommand  ) false to EditMode  false check: hEdit  ShowMoves StartTimer
          ;
! : ?Restart ( -- )
!         SetCaption: Frame
!         numbers 162 + 81 48 scan nip   \ blank squares?
          IF  InitGame
          ELSE
***************
*** 879,883 ****
          IF
              Solution ?dup IF  Numbers 81 move  THEN   \ if a full solution just add to current file
!             Start ?dup IF  Numbers 81 + 81 move  CurrentFile Insert: RecentFiles  CurrentFile off  ClearAll  InitGame  true to Modified  THEN
          THEN ;   IDM_IMPORT SetCommand
  : OpenRecentFile ( FileName$ -- )   SaveIfModified  ?OpenFile ;   IDM_OPEN_FILE SetCommand
--- 883,887 ----
          IF
              Solution ?dup IF  Numbers 81 move  THEN   \ if a full solution just add to current file
!             Start ?dup IF  Numbers 81 + 81 move  CurrentFile Insert: RecentFiles  CurrentFile off  ClearAll  SetCaption: Frame  InitGame  true to Modified  THEN
          THEN ;   IDM_IMPORT SetCommand
  : OpenRecentFile ( FileName$ -- )   SaveIfModified  ?OpenFile ;   IDM_OPEN_FILE SetCommand