[Win32forth-cvs] win32forth/apps/Solipon2 SOLIPION.F,1.6,1.7

[Dirk B. <db...@us...>]

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
!