[Win32forth-cvs] win32forth/apps/Player4 PLAYER4.F,1.19,1.20 PLAYER4.frm,1.1,1.2

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

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

Modified Files:
	PLAYER4.F PLAYER4.frm 
Log Message:
Centering the player.

Index: PLAYER4.F
===================================================================
RCS file: /cvsroot/win32forth/win32forth/apps/Player4/PLAYER4.F,v
retrieving revision 1.19
retrieving revision 1.20
diff -C2 -d -r1.19 -r1.20
*** PLAYER4.F	7 Aug 2005 09:44:50 -0000	1.19
--- PLAYER4.F	25 Sep 2005 14:27:42 -0000	1.20
***************
*** 159,162 ****
--- 159,166 ----
          ;
  
+ :M StartPos:    ( -- x y )
+                 CenterWindow: Self
+                 ;M
+ 
  : drawline      ( -- )
          SeparatorX 0 MoveTo: dc
***************
*** 217,221 ****
          ['] on_unclicked to unclick-func
  
! 
          catalog-exist?
          if   map-config-file map-database
--- 221,225 ----
          ['] on_unclicked to unclick-func
  
!         GetHandle: Self SetParent: ControlCenter
          catalog-exist?
          if   map-config-file map-database
***************
*** 542,544 ****
          PLAYER4
  [then]
!