Update of /cvsroot/win32forth/win32forth/apps/Solipon2
In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv16266/apps/Solipon2
Modified Files:
SOLIPION.F
Log Message:
Build process updated, to set the current dir correctly when compiling an application with the Setup.
Index: SOLIPION.F
===================================================================
RCS file: /cvsroot/win32forth/win32forth/apps/Solipon2/SOLIPION.F,v
retrieving revision 1.6
retrieving revision 1.7
diff -C2 -d -r1.6 -r1.7
*** SOLIPION.F 26 Aug 2006 15:25:31 -0000 1.6
--- SOLIPION.F 2 Dec 2006 10:17:30 -0000 1.7
***************
*** 227,231 ****
\ ------------------------------------------------------------------------------
! \ ----- Sounds inspired of the famous quadrix of mike kemper
\ ------------------------------------------------------------------------------
--- 227,231 ----
\ ------------------------------------------------------------------------------
! \ ----- Sounds inspired of the famous quadrix of mike kemper
\ ------------------------------------------------------------------------------
***************
*** 260,264 ****
<hypothesis>handle <hypothesis>size r@ read-file 2drop
r> close-file drop
!
then
<hypothesis>flag? music? and
--- 260,264 ----
<hypothesis>handle <hypothesis>size r@ read-file 2drop
r> close-file drop
!
then
<hypothesis>flag? music? and
***************
*** 831,835 ****
create string4$ cell allot
: TheSmallsDots ( -- )
!
0 0 screen-mwidth screen-mheight LTGRAY FillArea: solipion-dc \
BLACK LineColor: solipion-dc
--- 831,835 ----
create string4$ cell allot
: TheSmallsDots ( -- )
!
0 0 screen-mwidth screen-mheight LTGRAY FillArea: solipion-dc \
BLACK LineColor: solipion-dc
***************
*** 1691,1695 ****
false to auto?
True to best?
!
Start: SOLIPIONW
--- 1691,1695 ----
false to auto?
True to best?
!
Start: SOLIPIONW
***************
*** 1706,1710 ****
\ The Beginning
\ ---------------------------------------------------------------
!
: SOLIPION ( -- )
--- 1706,1710 ----
\ The Beginning
\ ---------------------------------------------------------------
!
: SOLIPION ( -- )
***************
*** 1731,1735 ****
!bests
New-Game
!
endof
'O' +k_control of <<<bleep1>>>
--- 1731,1735 ----
!bests
New-Game
!
endof
'O' +k_control of <<<bleep1>>>
***************
*** 1817,1822 ****
;
' solipion turnkey solipion \ build an application on disk
! s" apps\Solipon2\solipion.ico" s" solipion.exe" AddAppIcon
1 pause-seconds
!
--- 1817,1823 ----
;
+ &forthdir count &appdir place
' solipion turnkey solipion \ build an application on disk
! s" apps\Solipon2\solipion.ico" s" solipion.exe" Prepend<home>\ AddAppIcon
1 pause-seconds
!
|
