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
|
