[Win32forth-cvs] win32forth/apps/Solipon2 SOLIPION.F,1.3,1.4

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

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

Modified Files:
	SOLIPION.F 
Log Message:
Center the main window

Index: SOLIPION.F
===================================================================
RCS file: /cvsroot/win32forth/win32forth/apps/Solipon2/SOLIPION.F,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -d -r1.3 -r1.4
*** SOLIPION.F	12 Jun 2005 08:37:35 -0000	1.3
--- SOLIPION.F	25 Sep 2005 15:11:38 -0000	1.4
***************
*** 437,440 ****
--- 437,444 ----
          ;M
  
+ :M StartPos:    ( -- x y )
+         CenterWindow: Self  
+         ;M
+ 
  :M WindowTitle: ( -- Zstring )          \ window caption
          z" SoliPion"
***************
*** 1695,1699 ****
          Start: SOLIPIONW
          StartPos: SOLIPIONW 50 + swap 50 + swap message-origin
!         
          ['] ok_there! SetClickFunc: SOLIPIONW     \ execute ok_there! if left-klick
          ['] ok_there! SetDblClickFunc: SOLIPIONW  \ execute ok_there! if double-klick
--- 1699,1703 ----
          Start: SOLIPIONW
          StartPos: SOLIPIONW 50 + swap 50 + swap message-origin
! 
          ['] ok_there! SetClickFunc: SOLIPIONW     \ execute ok_there! if left-klick
          ['] ok_there! SetDblClickFunc: SOLIPIONW  \ execute ok_there! if double-klick
***************
*** 1820,1822 ****
  s" apps\Solipon2\solipion.ico" s" solipion.exe" AddAppIcon
  1 pause-seconds
!