[Win32forth-cvs] win32forth/src Shell.f,NONE,1.1 Class.f,1.2,1.3 EXCEPTIO.F,1.1,1.2 Extend.f,1.3,1.4 MAPFILE.F,1.2,1.3 PRIMHASH.F,1.1,1.2 Utils.f,1.3,1.4 paths.f,1.1,1.2

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

Update of /cvsroot/win32forth/win32forth/src
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv10915/src

Modified Files:
	Class.f EXCEPTIO.F Extend.f MAPFILE.F PRIMHASH.F Utils.f 
	paths.f 
Added Files:
	Shell.f 
Log Message:
zEXEC rewritten (see Shell.f), made DEPRECATED work for class members,SF[1178189] fixed, SF[1178189] fixed, SF[1178186] fixed, SF[1167791] fixed, SF[774094] fixed; and some other small changes I can't remebere any more

Index: Class.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/Class.f,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** Class.f	13 Apr 2005 00:09:20 -0000	1.2
--- Class.f	18 Apr 2005 17:39:42 -0000	1.3
***************
*** 106,114 ****
  : (FINDM)   ( SelID ^class -- m0cfa )   \ find method in a class
          2dup
!         MFA ((findm)) if  nip nip EXIT  then
          nip
          S"  not understood by class " tempmsg$ +place
!         body> >name nfa-count tempmsg$ +place
!         tempmsg$ msg !  -2 throw ;
  
  : FIND-METHOD   ( SelID ^obj -- ^obj m0cfa )   \ find method in object
--- 106,117 ----
  : (FINDM)   ( SelID ^class -- m0cfa )   \ find method in a class
          2dup
!         MFA ((findm)) if nip nip EXIT then
          nip
+ 
          S"  not understood by class " tempmsg$ +place
! 	turnkeyed? \ Sonntag, März 13 2005 dbu
! 	if   drop s" [UNKNOWN]" tempmsg$ +place
! 	else body> >name nfa-count tempmsg$ +place
! 	then tempmsg$ msg !  -2 throw ;
  
  : FIND-METHOD   ( SelID ^obj -- ^obj m0cfa )   \ find method in object
***************
*** 889,893 ****
  
  : msgFind       ( addr -- addr false | cfa true )
!                 PARMFIND ?DUP 0= IF _MSGFIND THEN ;
  
  \ If FIND is used in a TURNKEYed application it must be reset to PARMFIND
--- 892,899 ----
  
  : msgFind       ( addr -- addr false | cfa true )
!                 PARMFIND ?DUP 0=
! 		IF   _MSGFIND
!   		     (dprwarn) \ warn if deprecated selector is found (Sonntag, März 13 2005 dbu)
! 		THEN ;
  
  \ If FIND is used in a TURNKEYed application it must be reset to PARMFIND
***************
*** 1198,1199 ****
--- 1204,1206 ----
  only forth also definitions
  
+