[Win32forth-cvs] win32forth/src/Compat Evolve.f,1.12,1.13

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

Update of /cvsroot/win32forth/win32forth/src/Compat
In directory sfp-cvs-1.v30.ch3.sourceforge.com:/tmp/cvs-serv15036/Compat

Modified Files:
	Evolve.f 
Log Message:
Made dialog message handling on a per task basis. Made ?color check a deferred word. Added colouring of 2VALUE FVALUE and BUFFER: to lexer. Added WinCall macro to assembler and GoHome to set the home directory. Removed loading of scrncntrl.f and reference to w32fconsole.dll. Default for GetToolTip: in tray window class is now the window title.

Index: Evolve.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/Compat/Evolve.f,v
retrieving revision 1.12
retrieving revision 1.13
diff -C2 -d -r1.12 -r1.13
*** Evolve.f	7 Mar 2013 16:41:36 -0000	1.12
--- Evolve.f	15 Nov 2013 19:35:03 -0000	1.13
***************
*** 45,68 ****
  \ ------------------
  
! : /*            \ replace by ( ... ) or (( ... ))
                  \in-system-ok   s" */"       "comment ; immediate
!                 deprecated \ june 27 2008  - was in-system
  
! : (*            \ replace by ( ... ) or (( ... ))
                  \in-system-ok   s" *)"       "comment ; immediate
!                 deprecated \ june 27 2008  - was in-system
  
! : DOC           \ replace by ( ... ) or (( ... ))
                  \in-system-ok   s" ENDDOC"   "comment ; immediate
!                 deprecated \ june 27 2008  - was in-system
  
  : --            \ replace by \ NOTE this refers to -- outside of { and } ; it is still part of the
                  \ LOCALS syntax
                  postpone \ ; immediate
!                 deprecated \ june 27 2008  - was in-system
  
  : <A            \ replace by \
                  postpone \ ; immediate
!                 deprecated \ june 27 2008  - was in-system
  
  
--- 45,70 ----
  \ ------------------
  
! in-system
! 
! : /*            \ up to */  replace by ( ... ) or (( ... ))
                  \in-system-ok   s" */"       "comment ; immediate
!                 deprecated \ june 27 2008
  
! : (*            \ up to *) replace by ( ... ) or (( ... ))
                  \in-system-ok   s" *)"       "comment ; immediate
!                 deprecated \ june 27 2008
  
! : DOC           \ up to ENDDOC replace by ( ... ) or (( ... ))
                  \in-system-ok   s" ENDDOC"   "comment ; immediate
!                 deprecated \ june 27 2008
  
  : --            \ replace by \ NOTE this refers to -- outside of { and } ; it is still part of the
                  \ LOCALS syntax
                  postpone \ ; immediate
!                 deprecated \ june 27 2008
  
  : <A            \ replace by \
                  postpone \ ; immediate
!                 deprecated \ june 27 2008
  
  
***************
*** 88,92 ****
  : WITH-IMG      \ replace by nothing (was a NOOP). No longer needed since the 'c' wrapper was removed.
                  ; IMMEDIATE
!                 deprecated \ since late 2003 - was in-system
  
  
--- 90,94 ----
  : WITH-IMG      \ replace by nothing (was a NOOP). No longer needed since the 'c' wrapper was removed.
                  ; IMMEDIATE
!                 deprecated \ since late 2003
  
  
***************
*** 95,107 ****
  : NT?           \ replace by WINVER WINNT351 >=
                  ( -- fl )
!                 WinVer 4 >= ;   \ NT3.51 or above
                  deprecated \ since a long time
  : Win95?        \ replace by WINVER WIN95 =
                  ( -- f1 )
!                 winver 1 = ;
                  deprecated \ since a long time
  : Win98?        \ replace by WINVER WIN98 WINME BETWEEN
                  ( -- f1 )
!                 winver 2 3 between ;
                  deprecated \ since a long time
  : Win32s?       \ replace by FALSE (win32s is no longer supported)
--- 97,109 ----
  : NT?           \ replace by WINVER WINNT351 >=
                  ( -- fl )
!                 WinVer WINNT351 >= ;   \ NT3.51 or above
                  deprecated \ since a long time
  : Win95?        \ replace by WINVER WIN95 =
                  ( -- f1 )
!                 winver win95 = ;
                  deprecated \ since a long time
  : Win98?        \ replace by WINVER WIN98 WINME BETWEEN
                  ( -- f1 )
!                 winver win98 winme between ;
                  deprecated \ since a long time
  : Win32s?       \ replace by FALSE (win32s is no longer supported)
***************
*** 353,357 ****
  \ Message-Loop  \ replace by MessageLoop
  
! 
  
  dpr-warning-on warning on
--- 355,359 ----
  \ Message-Loop  \ replace by MessageLoop
  
! in-previous
  
  dpr-warning-on warning on