[Win32forth-cvs] win32forth/src Class.f,1.28,1.29 Dc.f,1.12,1.13

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

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

Modified Files:
	Class.f Dc.f 
Log Message:
gah:Tidied up vocabularies in class.f and added dependencies to dc.f and gdi\\gdistruct.f

Index: Dc.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/Dc.f,v
retrieving revision 1.12
retrieving revision 1.13
diff -C2 -d -r1.12 -r1.13
*** Dc.f	19 Nov 2005 11:13:09 -0000	1.12
--- Dc.f	30 Apr 2007 08:27:44 -0000	1.13
***************
*** 14,17 ****
--- 14,20 ----
  
  needs gdi/gdiDC.f
+ needs colors.f
+ needs PrintSupport.f
+ needs Fonts.f
  
  \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\

Index: Class.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/Class.f,v
retrieving revision 1.28
retrieving revision 1.29
diff -C2 -d -r1.28 -r1.29
*** Class.f	16 Apr 2007 09:07:23 -0000	1.28
--- Class.f	30 Apr 2007 08:27:44 -0000	1.29
***************
*** 602,606 ****
  module
  
! classes also definitions
  
  internal
--- 602,606 ----
  module
  
! classes definitions
  
  internal
***************
*** 1234,1238 ****
  module
  
! forth definitions also hidden
  
  : +range  ['] ?range is ?idx ;  +range
--- 1234,1238 ----
  module
  
! previous definitions also classes also hidden
  
  : +range  ['] ?range is ?idx ;  +range
***************
*** 1241,1245 ****
  initialization-chain chain-add +range
  
! classes
  
  : Dimension     ( Rows Cols -- Size )
--- 1241,1245 ----
  initialization-chain chain-add +range
  
! previous
  
  : Dimension     ( Rows Cols -- Size )
***************
*** 1248,1252 ****
  \ ** For dynamic object DIMENSION applies to the next 2 dimensional array in the same task.
            ColDim ! RowDim !  ColDim  RowDim  *  ;
! previous
  
  : Dispose       ( addr -- )
--- 1248,1252 ----
  \ ** For dynamic object DIMENSION applies to the next 2 dimensional array in the same task.
            ColDim ! RowDim !  ColDim  RowDim  *  ;
! 
  
  : Dispose       ( addr -- )
***************
*** 1275,1279 ****
  in-system
  
! :Class ClassRoot   ' classes >Class classes inherit
  \ *G Use this class if you have no ivars in your class.
  \ ** It will trap undefined methods that might slip through otherwise.
--- 1275,1279 ----
  in-system
  
! :Class ClassRoot   ' classes >Class inherit
  \ *G Use this class if you have no ivars in your class.
  \ ** It will trap undefined methods that might slip through otherwise.
***************
*** 1306,1309 ****
--- 1306,1311 ----
  ;Class
  
+ previous also
+ 
  in-system
  
***************
*** 1351,1354 ****
--- 1353,1359 ----
  ;Class
  \ *G End of class
+ 
+ also classes
+ 
  unres-methods unres-len erase
  
***************
*** 1356,1359 ****
--- 1361,1366 ----
  \ link into definition completion
  
+ previous
+ 
  \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
  \               Define data type class for strings
***************
*** 1447,1451 ****
  \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
  
! classes also hidden also
  
  : GetMethod     { \ m0cfa -- -<method: object>- m0cfa }  \ W32F        Class
--- 1454,1458 ----
  \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
  
! also classes also hidden
  
  : GetMethod     { \ m0cfa -- -<method: object>- m0cfa }  \ W32F        Class
***************
*** 1465,1469 ****
                  Postpone Literal ; Immediate
  
  IN-APPLICATION
  
- only forth also definitions
--- 1472,1477 ----
                  Postpone Literal ; Immediate
  
+ previous previous
+ 
  IN-APPLICATION