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]
! |
