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