Update of /cvsroot/win32forth/win32forth/apps/Player4
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv30727/apps/Player4
Modified Files:
PLAYER4.F PopupWindow.f
Log Message:
Jos: No need anymore for w32fconsole.dll in the turnkey app.
Index: PLAYER4.F
===================================================================
RCS file: /cvsroot/win32forth/win32forth/apps/Player4/PLAYER4.F,v
retrieving revision 1.43
retrieving revision 1.44
diff -C2 -d -r1.43 -r1.44
*** PLAYER4.F 12 Apr 2006 19:44:24 -0000 1.43
--- PLAYER4.F 19 Apr 2006 12:39:20 -0000 1.44
***************
*** 42,45 ****
--- 42,46 ----
defer RequestRecord ' noop is RequestRecord
+ needs NoConsole.f
needs Pl_Toolset.f
needs volinfo.f
***************
*** 55,58 ****
--- 56,60 ----
needs view.f
+
: invert-check ( check - ) dup c@ not swap c! RefreshWindow ;
***************
*** 568,572 ****
InitPlayer
HandleCmdLine
! PLAYER-LOOP ;
\ -----------------------------------------------------------------------------
--- 570,577 ----
InitPlayer
HandleCmdLine
! PLAYER-LOOP
! turnkey?
! IF MessageLoop bye
! THEN ;
\ -----------------------------------------------------------------------------
***************
*** 576,582 ****
' QuitPlayer is StopPlayer
false to MciDebug?
' player4 turnkey Player4.exe
s" Player4.ico" s" Player4.exe" AddAppIcon
! 1 pause-seconds
[else]
true to MciDebug?
--- 581,588 ----
' QuitPlayer is StopPlayer
false to MciDebug?
+ NoConsoleIO NoConsoleInImage
' player4 turnkey Player4.exe
s" Player4.ico" s" Player4.exe" AddAppIcon
! 1 pause-seconds bye
[else]
true to MciDebug?
Index: PopupWindow.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/apps/Player4/PopupWindow.f,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -d -r1.3 -r1.4
*** PopupWindow.f 12 Apr 2006 19:44:24 -0000 1.3
--- PopupWindow.f 19 Apr 2006 12:39:20 -0000 1.4
***************
*** 31,36 ****
:M WindowStyle: ( -- style ) WS_POPUP ;M
:M StartSize: ( -- width height ) 70 30 ;M
! :M StartPos: ( -- x y ) mousex mousey ;M
! :M WM_LBUTTONDOWN ( h m w l -- res ) 2drop 0 close: Self 0 ;M
:M On_KillFocus: ( h m w l -- ) 2drop focus if SetFocus: self then ;M
--- 31,36 ----
:M WindowStyle: ( -- style ) WS_POPUP ;M
:M StartSize: ( -- width height ) 70 30 ;M
! :M StartPos: ( -- x y ) mousex mousey ;M
! :M WM_LBUTTONDOWN ( h m w l -- res ) 2drop 0 close: Self ;M
:M On_KillFocus: ( h m w l -- ) 2drop focus if SetFocus: self then ;M
|
