[Win32forth-cvs] win32forth/apps/Win32ForthIDE ProjectWindow.f, 1.1, 1.2

[Ezra B. <ezr...@us...>]

Update of /cvsroot/win32forth/win32forth/apps/Win32ForthIDE
In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv18154/apps/Win32ForthIDE

Modified Files:
	ProjectWindow.f 
Log Message:
Navigator update. EAB

Index: ProjectWindow.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/apps/Win32ForthIDE/ProjectWindow.f,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** ProjectWindow.f	8 Sep 2008 03:02:34 -0000	1.1
--- ProjectWindow.f	11 Sep 2008 03:22:35 -0000	1.2
***************
*** 376,380 ****
  : add-code	{ cid -- }
  		in-definition? ?exit \ should not happen!
! 		bl word dup c@ 0= abort" Add Code error!"
  		count currentname place
  		cid to code-id
--- 376,380 ----
  : add-code	{ cid -- }
  		in-definition? ?exit \ should not happen!
! 		bl word dup c@ 0= if drop exit then  \ forget it!
  		count currentname place
  		cid to code-id
***************
*** 388,392 ****
  : add-data	{ cid -- }
  		in-definition? ?exit
! 		bl word dup c@ 0= abort" Add data error!"
  		count currentname place
  		cid to code-id
--- 388,392 ----
  : add-data	{ cid -- }
  		in-definition? ?exit
! 		bl word dup c@ 0= if drop exit then  \ forget it!
  		count currentname place
  		cid to code-id
***************
*** 395,399 ****
  : add-class	{ cid -- }
  		in-class? ?exit
! 		bl word dup c@ 0= abort" Add Class\Object error!"
  		count currentname place
  		currentname count parentclass place
--- 395,399 ----
  : add-class	{ cid -- }
  		in-class? ?exit
! 		bl word dup c@ 0= if drop exit then  \ forget it!
  		count currentname place
  		currentname count parentclass place
***************
*** 405,409 ****
  		in-definition? ?exit
  		in-class? not ?exit
! 		bl word dup c@ 0= abort" Add Method error!"
  		count currentname place
  		+parent-class
--- 405,409 ----
  		in-definition? ?exit
  		in-class? not ?exit
! 		bl word dup c@ 0= if drop exit then  \ forget it!
  		count currentname place
  		+parent-class