[Win32forth-cvs] win32forth-stc/src Class.f, 1.7, 1.8 Utils.f, 1.4, 1.5 dthread.f, 1.1, 1.2

[Jos v.d.V. <jo...@us...>]

Update of /cvsroot/win32forth/win32forth-stc/src
In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv7994

Modified Files:
	Class.f Utils.f dthread.f 
Log Message:
Jos: Enabled .classes and moved voc>vcfa and name>

Index: Utils.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth-stc/src/Utils.f,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -d -r1.4 -r1.5
*** Utils.f	11 May 2007 10:45:16 -0000	1.4
--- Utils.f	20 May 2007 15:09:15 -0000	1.5
***************
*** 22,26 ****
  
  260 constant max-handle
! ' name>xt alias name>
  Library Shell32.dll
  
--- 22,26 ----
  
  260 constant max-handle
! 
  Library Shell32.dll
  

Index: dthread.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth-stc/src/dthread.f,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** dthread.f	19 May 2007 10:12:28 -0000	1.1
--- dthread.f	20 May 2007 15:09:15 -0000	1.2
***************
*** 4,8 ****
  cr .( Loading Hash Thread Display...)
  
-   synonym voc>vcfa voc>vxt@
    synonym l>name link>name
  ' count alias nfa-count
--- 4,7 ----

Index: Class.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth-stc/src/Class.f,v
retrieving revision 1.7
retrieving revision 1.8
diff -C2 -d -r1.7 -r1.8
*** Class.f	13 May 2007 22:13:26 -0000	1.7
--- Class.f	20 May 2007 15:09:13 -0000	1.8
***************
*** 1603,1608 ****
  \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
  
  IN-SYSTEM
! ((
  : .CLASSES      ( -- )          \ W32F        Class
  \ *G Display all classes in the system.
--- 1603,1611 ----
  \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
  
+   synonym voc>vcfa voc>vxt@
+   synonym name> name>xt
+ 
  IN-SYSTEM
! 
  : .CLASSES      ( -- )          \ W32F        Class
  \ *G Display all classes in the system.
***************
*** 1612,1617 ****
                  BEGIN   dup vlink>voc
                          voc>vcfa dup ?isClass
!                         IF      dup >name name>
!                                 ['] [UNKNOWN] =         \ if not found
                                  IF      drop            \ then discard the class
                                  ELSE    .name
--- 1615,1620 ----
                  BEGIN   dup vlink>voc
                          voc>vcfa dup ?isClass
!                         IF      dup >name name> 0=
!                                \ ['] [UNKNOWN] =         \ if not found
                                  IF      drop            \ then discard the class
                                  ELSE    .name
***************
*** 1622,1626 ****
                          @ dup 0=
                  UNTIL   drop  ;
! ))
  \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
  \ return xt of method
--- 1625,1629 ----
                          @ dup 0=
                  UNTIL   drop  ;
! 
  \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
  \ return xt of method