[Win32forth-cvs] win32forth/apps/Setup Setup.f,1.28,1.29

[George H. <geo...@us...>]

Update of /cvsroot/win32forth/win32forth/apps/Setup
In directory sfp-cvs-1.v30.ch3.sourceforge.com:/tmp/cvs-serv9767/Setup

Modified Files:
	Setup.f 
Log Message:
Removed some files from the build

Index: Setup.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/apps/Setup/Setup.f,v
retrieving revision 1.28
retrieving revision 1.29
diff -C2 -d -r1.28 -r1.29
*** Setup.f	17 Jan 2012 21:12:25 -0000	1.28
--- Setup.f	7 Mar 2013 15:36:22 -0000	1.29
***************
*** 30,60 ****
      FLOAD ..\..\src\ansfile.f
      FLOAD ..\..\src\callback.f
- 
-     FLOAD ..\..\src\mapfile.f      \ Windows32 file into memory mapping words
- 
-     FLOAD ..\..\src\w32fmsglist.f  \ win32forth applications & messages IDs
- 
- \ The current Version of the file w32fmsg.f needs the word MS@
- \ wich is defined in utils.f.
- \ Because including utils.f here doesn't work so I added copy of the MS@ code here.
- \ Not nice, but working...
- \ Montag, August 30 2010 - 19:17 dbu
- 16 constant TIME-LEN
- time-len newuser TIME-BUF
- 
- 1 proc GetLocalTime
- 
- : get-local-time ( -- )                 \ get the local computer date and time
- 	time-buf call GetLocalTime drop ;
- 
- : ms@	( -- ms )
- 	get-local-time
- 	time-buf
- 	dup   8 + w@     60 *           \ hours
- 	over 10 + w@ +   60 *           \ minutes
- 	over 12 + w@ + 1000 *           \ seconds
- 	swap 14 + w@ + ;                \ milli-seconds
- 
-     FLOAD ..\..\src\w32fmsg.f      \ w32f application messaging
      FLOAD ..\..\src\shell.f
  SYS-FLOAD ..\..\src\imageman.f
--- 30,33 ----