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
|
