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
|
