[Win32forth-cvs] win32forth-610old/demos/MdiEdit AnsLink.f,1.1,1.2 ClassBrowser.f,1.1,1.2

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

Update of /cvsroot/win32forth/win32forth-610old/demos/MdiEdit
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv14222/win32forth-610old/demos/MdiEdit

Modified Files:
	AnsLink.f ClassBrowser.f 
Log Message:
gah: changed STR(NC)= to ISTR=

Index: AnsLink.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth-610old/demos/MdiEdit/AnsLink.f,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** AnsLink.f	14 Dec 2004 23:53:46 -0000	1.1
--- AnsLink.f	20 Jun 2005 12:25:46 -0000	1.2
***************
*** 394,398 ****
  		if   ANS-WORDS >r
  		     begin  2dup r@ count dup
! 		     while  STR(NC)= 0<>
  			    if 2drop r> exit then
  			    r> skip-string skip-string skip-string >r
--- 394,398 ----
  		if   ANS-WORDS >r
  		     begin  2dup r@ count dup
! 		     while  ISTR= 0<>
  			    if 2drop r> exit then
  			    r> skip-string skip-string skip-string >r

Index: ClassBrowser.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth-610old/demos/MdiEdit/ClassBrowser.f,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** ClassBrowser.f	14 Dec 2004 23:53:46 -0000	1.1
--- ClassBrowser.f	20 Jun 2005 12:25:46 -0000	1.2
***************
*** 200,204 ****
                  if   \ if it's defind in FKERNEL.F than we must
  		     \ add the path to the file
! 		     count 2dup KERNFILE count STR(NC)=
  		     if Prepend<home>\ then
  
--- 200,204 ----
                  if   \ if it's defind in FKERNEL.F than we must
  		     \ add the path to the file
! 		     count 2dup KERNFILE count ISTR=
  		     if Prepend<home>\ then