[Win32forth-cvs] win32forth/apps/Player4 PLAYER4.F,1.43,1.44 PopupWindow.f,1.3,1.4

[Jos v.d.V. <jo...@us...>]

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