Menu
▾
▴
win32forth-cvs — CVS Commit List
You can subscribe to this list here.
| 2004 |
Jan
|
Feb
|
Mar
|
Apr
|
May
|
Jun
|
Jul
|
Aug
|
Sep
|
Oct
|
Nov
|
Dec
(70) |
|---|---|---|---|---|---|---|---|---|---|---|---|---|
| 2005 |
Jan
(38) |
Feb
(4) |
Mar
(11) |
Apr
(49) |
May
(81) |
Jun
(65) |
Jul
(36) |
Aug
(57) |
Sep
(63) |
Oct
(57) |
Nov
(49) |
Dec
(41) |
| 2006 |
Jan
(75) |
Feb
(80) |
Mar
(10) |
Apr
(13) |
May
(100) |
Jun
(100) |
Jul
(77) |
Aug
(87) |
Sep
(80) |
Oct
(124) |
Nov
(39) |
Dec
(41) |
| 2007 |
Jan
(20) |
Feb
(32) |
Mar
(32) |
Apr
(43) |
May
(146) |
Jun
(40) |
Jul
(49) |
Aug
(33) |
Sep
(25) |
Oct
(19) |
Nov
(11) |
Dec
(8) |
| 2008 |
Jan
(4) |
Feb
(11) |
Mar
(31) |
Apr
(40) |
May
(34) |
Jun
(24) |
Jul
(39) |
Aug
(104) |
Sep
(27) |
Oct
(35) |
Nov
(34) |
Dec
(97) |
| 2009 |
Jan
(75) |
Feb
(29) |
Mar
(45) |
Apr
(76) |
May
(121) |
Jun
(103) |
Jul
(67) |
Aug
(28) |
Sep
(22) |
Oct
(39) |
Nov
(9) |
Dec
(15) |
| 2010 |
Jan
(7) |
Feb
(39) |
Mar
(40) |
Apr
(57) |
May
(67) |
Jun
(69) |
Jul
(49) |
Aug
(68) |
Sep
(22) |
Oct
(7) |
Nov
(2) |
Dec
(10) |
| 2011 |
Jan
|
Feb
|
Mar
(10) |
Apr
(4) |
May
(6) |
Jun
(10) |
Jul
(16) |
Aug
(23) |
Sep
(9) |
Oct
|
Nov
(28) |
Dec
(3) |
| 2012 |
Jan
(11) |
Feb
(10) |
Mar
(1) |
Apr
|
May
(4) |
Jun
(3) |
Jul
(3) |
Aug
(4) |
Sep
(2) |
Oct
|
Nov
|
Dec
(1) |
| 2013 |
Jan
|
Feb
(7) |
Mar
(30) |
Apr
(4) |
May
(4) |
Jun
(8) |
Jul
(10) |
Aug
(4) |
Sep
|
Oct
(2) |
Nov
(24) |
Dec
(13) |
| 2014 |
Jan
(7) |
Feb
(2) |
Mar
|
Apr
(1) |
May
(9) |
Jun
|
Jul
(3) |
Aug
(9) |
Sep
|
Oct
(2) |
Nov
|
Dec
(3) |
| 2015 |
Jan
(4) |
Feb
(2) |
Mar
|
Apr
|
May
|
Jun
(1) |
Jul
|
Aug
(5) |
Sep
(1) |
Oct
(4) |
Nov
(7) |
Dec
(39) |
| 2016 |
Jan
(17) |
Feb
(2) |
Mar
(2) |
Apr
|
May
(1) |
Jun
(1) |
Jul
|
Aug
|
Sep
|
Oct
|
Nov
(1) |
Dec
(2) |
| 2017 |
Jan
|
Feb
(3) |
Mar
|
Apr
|
May
(1) |
Jun
(2) |
Jul
|
Aug
(3) |
Sep
|
Oct
|
Nov
|
Dec
(2) |
| 2018 |
Jan
|
Feb
|
Mar
(2) |
Apr
|
May
|
Jun
|
Jul
|
Aug
|
Sep
|
Oct
|
Nov
|
Dec
|
| 2019 |
Jan
|
Feb
|
Mar
(1) |
Apr
|
May
|
Jun
|
Jul
|
Aug
|
Sep
|
Oct
|
Nov
|
Dec
|
| 2022 |
Jan
|
Feb
|
Mar
|
Apr
|
May
(1) |
Jun
|
Jul
|
Aug
|
Sep
(1) |
Oct
(2) |
Nov
(1) |
Dec
(1) |
| 2023 |
Jan
|
Feb
|
Mar
|
Apr
|
May
|
Jun
|
Jul
|
Aug
(1) |
Sep
|
Oct
(1) |
Nov
|
Dec
|
| 2025 |
Jan
|
Feb
|
Mar
|
Apr
|
May
|
Jun
(1) |
Jul
|
Aug
|
Sep
|
Oct
|
Nov
|
Dec
|
|
From: Jos v.d.V. <jo...@us...> - 2011-12-18 14:26:06
|
Update of /cvsroot/win32forth/win32forth/src/lib/fmacro
In directory vz-cvs-4.sog:/tmp/cvs-serv25774
Modified Files:
FMACRO.F
Log Message:
Jos: addr@+ addr@< faddr@ faddr! are now also able to use the user-area
Index: FMACRO.F
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/lib/fmacro/FMACRO.F,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -d -r1.4 -r1.5
*** FMACRO.F 14 Dec 2011 13:47:01 -0000 1.4
--- FMACRO.F 18 Dec 2011 14:26:03 -0000 1.5
***************
*** 132,136 ****
2. Words like: addr@+ addr@< faddr@ faddr! are used during COMPILE-time.
They put an address in your code that will be used in runtime.
! 3. The word ADDR enables you to get an address on the stack in runtime.
--- 132,136 ----
2. Words like: addr@+ addr@< faddr@ faddr! are used during COMPILE-time.
They put an address in your code that will be used in runtime.
! 3. The word ADDR enables you to get an address on the stack in runtime when not in the user-area.
***************
*** 172,175 ****
--- 172,176 ----
the user-area is handled by EDX so you should not use the local B
when you are using the user-area.
+ December 18th, 2011 addr@+ addr@< faddr@ faddr! are now also able to use the user-area
))
***************
*** 785,789 ****
: addr@+ ( n name-addr - n+value )
! [ also forth ] $03 code-c, $9F code-c, code-, [ previous ]
a;;
--- 786,793 ----
: addr@+ ( n name-addr - n+value )
! user?
! if [ also forth ] $03 code-c, $9A code-c, TCB - code-, [ previous ]
! else [ also forth ] $03 code-c, $9F code-c, code-, [ previous ]
! then
a;;
***************
*** 797,812 ****
: addr@ ( name-addr - value )
! [ also forth ] $53 code-c, $8B code-c, $9F code-c, code-, [ previous ]
a;;
: addr! ( name-addr - value )
! [ also forth ] $89 code-c, $9F code-c, code-, $5B code-c, [ previous ]
a;;
: 0= ( n1 -- f1 ) \ return true if n1 equals zero
sub ebx, # 1
sbb ebx, ebx
! a;;
: if \ compiletime: ( - adr-to-jmp-part1 )
--- 801,828 ----
: addr@ ( name-addr - value )
! user?
! if [ also forth ] $53 code-c, $8B code-c, $9A code-c, TCB - code-, [ previous ]
! else [ also forth ] $53 code-c, $8B code-c, $9F code-c, code-, [ previous ]
! then
a;;
: addr! ( name-addr - value )
! user?
! if [ also forth ] $89 code-c, $9A code-c, TCB - code-, $5B code-c, [ previous ]
! else [ also forth ] $89 code-c, $9F code-c, code-, $5B code-c, [ previous ]
! then
a;;
+ : addr@< ( addr -- flag )
+ user?
+ if [ also forth ] $3B code-c, $9A code-c, TCB - code-, $C7 code-c, $C3 code-c, 0 code-, $1B code-c, $DB code-c, [ previous ]
+ else [ also forth ] $3B code-c, $9F code-c, code-, $C7 code-c, $C3 code-c, 0 code-, $1B code-c, $DB code-c, [ previous ]
+ then
+ a;;
: 0= ( n1 -- f1 ) \ return true if n1 equals zero
sub ebx, # 1
sbb ebx, ebx
! a;;
: if \ compiletime: ( - adr-to-jmp-part1 )
***************
*** 892,899 ****
: dfloat+ ( addr1 -- addr2 ) 8 ass-lit + a;;
- : addr@< ( addr -- flag )
- [ also forth ] $3B code-c, $9F code-c, code-, $C7 code-c, $C3 code-c, 0 code-, $1B code-c, $DB code-c,
- [ previous ]
- a;;
: < ( n1 n2 -- f1 )
--- 908,911 ----
***************
*** 1009,1018 ****
\ needs profiler.f
! B/FLOAT newuser t1
! \ fvariable t1
fvariable t2
fvariable t3
! 99e t1 f!
20001e t2 f!
--- 1021,1030 ----
\ needs profiler.f
! \ B/FLOAT newuser t1
! fvariable t1
fvariable t2
fvariable t3
! 99 t1 !
20001e t2 f!
***************
*** 1020,1032 ****
code BM
! t1 faddr@
! t1 faddr@+
! t1 faddr!
next, end-code
see t1
! see bm
! : x11 9e bm t1 f@ f. ;
cr x11 .s
--- 1032,1044 ----
code BM
! addr t1
! \ t1 faddr@+
! \ t1 faddr!
next, end-code
see t1
! see bm
! : x11 3 bm @ .s ;
cr x11 .s
|
|
From: Jos v.d.V. <jo...@us...> - 2011-12-14 13:47:04
|
Update of /cvsroot/win32forth/win32forth/src/lib/fmacro
In directory vz-cvs-4.sog:/tmp/cvs-serv27995
Modified Files:
FMACRO.F
Log Message:
Jos: Made the user-area accessible and adapted fmacro.f for Win32Forth version 6.14/6.15
Index: FMACRO.F
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/lib/fmacro/FMACRO.F,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -d -r1.3 -r1.4
*** FMACRO.F 20 May 2009 15:05:15 -0000 1.3
--- FMACRO.F 14 Dec 2011 13:47:01 -0000 1.4
***************
*** 1,3 ****
! \ needs optimize.f \ load the optimizer here when you would like to see its effect.
anew fmacro.f \ December 26th, 2004 by J.v.d.Ven
--- 1,3 ----
! \ needs src\old\optimize.f \ load the optimizer here when you would like to see its effect.
anew fmacro.f \ December 26th, 2004 by J.v.d.Ven
***************
*** 16,22 ****
Conditions:
! A P400
! using Win32forth Version: 6.09.04 Build: 156
! under XP
Results of the tests when optimize.f IS loaded:
--- 16,20 ----
Conditions:
! A P400 using Win32forth Version: 6.09.04 Build: 156 under XP:
Results of the tests when optimize.f IS loaded:
***************
*** 32,35 ****
--- 30,45 ----
Test4 using the macro code bypassing the stack:.Elapsed time: 00:00:00.851
+ The "memory" effect is almost gone under Windows 7 with an iCore7.
+ Under Windows 7 using Win32forth Version: 6.15.00 Build: 40 when optimize.f IS loaded::
+ Test1 normal:...................................Elapsed time: 00:00:00.203
+ Test2 with the optimizer :......................Elapsed time: 00:00:00.188
+ Test3 using the macro code:.....................Elapsed time: 00:00:00.124
+ Test4 using the macro code bypassing the stack:.Elapsed time: 00:00:00.113
+
+ When optimize.f is NOT loaded I get:
+ Test3 using the macro code:.....................Elapsed time: 00:00:00.119
+ Test4 using the macro code bypassing the stack:.Elapsed time: 00:00:00.106
+
+
The floating point part uses the hardware stack of the CPU
The size of the hardware floating point stack is limited to 8 floats.
***************
*** 76,84 ****
As soon as you are used to Forth you might like it since it
is possible to translate Forth like statements into code which might be
! 5 times faster than high level Win32Forth depending on your code.
Variables and fvariables of Forth can be used.
They are faster in this pack than value or fvalue.
- fdump shows the hardware stack.
Only words that I needed are done.
--- 86,94 ----
As soon as you are used to Forth you might like it since it
is possible to translate Forth like statements into code which might be
! 2 till 5 times faster than high level Win32Forth depending on your code and
! your PC.
Variables and fvariables of Forth can be used.
They are faster in this pack than value or fvalue.
Only words that I needed are done.
***************
*** 155,178 ****
pop ebx push ebx
! December 9th, 2004 Added: r_nos_c!, r_nos_!, b_nos_c!, b_nos_!, a_nos_c! and a_nos_!
to avoid using the parameter stack.
December 27th, 2004 Removed a bug from begin while repeat
! May 20th, 2009 Removed a bug from - added: swap- and j
))
defined code-c, nip not [IF]
! synonym code-c, c,
synonym code-w, w,
! synonym code-, ,
synonym code-here here
synonym cdp dp
[then]
SYS-WARNING-OFF
! : qalign code-here -11 and 12 + code-here - allot ;
: 32align code-here -31 and 32 + code-here - allot ;
: fvariable ( -<name>- ) \ compile time
( -- a1 ) \ runtime
--- 165,195 ----
pop ebx push ebx
! December 9th, 2004 Added: r_nos_c!, r_nos_!, b_nos_c!, b_nos_!, a_nos_c! and a_nos_!
to avoid using the parameter stack.
December 27th, 2004 Removed a bug from begin while repeat
! May 20th, 2009 Removed a bug from - added: swap- and j
! December 14th, 2011 Made the user-area accessible and adapted it for Win32Forth version 6.14
! the user-area is handled by EDX so you should not use the local B
! when you are using the user-area.
))
+
defined code-c, nip not [IF]
! synonym code-c, c,
synonym code-w, w,
! synonym code-, ,
synonym code-here here
synonym cdp dp
[then]
+
SYS-WARNING-OFF
! : qalign code-here -11 and 12 + code-here - allot ;
: 32align code-here -31 and 32 + code-here - allot ;
+ DUP-WARNING-OFF
+
: fvariable ( -<name>- ) \ compile time
( -- a1 ) \ runtime
***************
*** 180,189 ****
create B/FLOAT allot ; \ Uses 4 bytes in runtime
0e fvariable fzero fzero f!
0 variable _zero _zero !
0 constant zero
! fsp b/float - constant fsp-
! up@ constant _up
also assembler definitions
--- 197,208 ----
create B/FLOAT allot ; \ Uses 4 bytes in runtime
+ DUP-WARNING-ON
+
0e fvariable fzero fzero f!
0 variable _zero _zero !
0 constant zero
! : user? ( adr - adr flag ) dup rp0 dup usersize + between ;
!
also assembler definitions
***************
*** 198,205 ****
0 value FLD_extended|double
0 value FSTP_extended|double
B/FLOAT 10 =
! [IF] $AFDB to FLD_extended|double $BFDB to FSTP_extended|double
! [ELSE] $87DD to FLD_extended|double $9FDD to FSTP_extended|double
[THEN]
--- 217,229 ----
0 value FLD_extended|double
0 value FSTP_extended|double
+ 0 value FLD_extended|double_[edx]
+ 0 value FSTP_extended|double_[edx]
B/FLOAT 10 =
! [IF] $AFDB to FLD_extended|double $BFDB to FSTP_extended|double
! $AADD to FLD_extended|double_[edx] $BADD to FSTP_extended|double_[edx]
! [ELSE] $87DD to FLD_extended|double $9FDD to FSTP_extended|double
! $82DD to FLD_extended|double_[edx] $9ADD to FSTP_extended|double_[edx]
!
[THEN]
***************
*** 505,508 ****
--- 529,551 ----
: ass-lit+ ( <lit> - ) [ also forth ] $81 code-c, $C3 code-c, code-, [ previous ] a;;
+
+ : user! \ Compiletime: ( name-user - ) ( n -- )
+ [ also forth ] $89 code-c, $9A code-c, TCB - code-, $5B code-c, [ previous ]
+ a;;
+
+ : user@ \ Compiletime: ( name-user - ) ( - n )
+ [ also forth ] $53 code-c, $8B code-c, $9A code-c, TCB - code-, [ previous ]
+ a;;
+
+
+ : fuser! \ Compiletime: ( name-fuser - ) Runtime: ( fhw: r -- )
+ [ also forth ] FSTP_extended|double_[edx] code-w, TCB - code-, [ previous ]
+ a;;
+
+ : fuser@ \ Compiletime: ( name-fuser - ) Runtime: ( fhw: -- r )
+ [ also forth ] FLD_extended|double_[edx] code-w, TCB - code-, [ previous ]
+ a;;
+
+
: f@ ( addr -- ) ( fhw: -- r )
fld FSIZE DATASTACK_MEMORY
***************
*** 555,562 ****
a;;
! : faddr! \ Compiletime: ( name-fvariable|addr - ) Runtime: ( fhw: r -- )
[ also forth ] FSTP_extended|double code-w, code-, [ previous ]
a;;
: fdup ( hw: r -- r r ) fld st(0) a;;
: fover ( hw: r1 r2 -- r1 r2 r1 ) fld st(1) a;;
--- 598,611 ----
a;;
! : (faddr! \ Compiletime: ( name-fvariable|addr - ) Runtime: ( fhw: r -- )
[ also forth ] FSTP_extended|double code-w, code-, [ previous ]
a;;
+ : faddr! \ Compiletime: ( name-fuser|addr - ) Runtime: ( fhw: -- addrf@ )
+ user?
+ IF fuser!
+ ELSE (faddr!
+ THEN a;;
+
: fdup ( hw: r -- r r ) fld st(0) a;;
: fover ( hw: r1 r2 -- r1 r2 r1 ) fld st(1) a;;
***************
*** 577,581 ****
mov eax, FSP_MEMORY
sub eax, # B/FLOAT
! fld FSIZE FSTACK [eax] [edx]
mov FSP_MEMORY , eax
a;;
--- 626,630 ----
mov eax, FSP_MEMORY
sub eax, # B/FLOAT
! fld FSIZE floatstack [eax] [up]
mov FSP_MEMORY , eax
a;;
***************
*** 600,608 ****
))
! : faddr@ \ Compiletime: ( name-fvariable|addr - ) Runtime: ( fhw: -- addrf@ )
[ also forth ] FLD_extended|double code-w, code-, [ previous ]
a;;
! : faddr@+ \ Compiletime: ( name-fvariable|addr - ) Runtime: ( fhw: -- ftos+addrf@ )
[ B/FLOAT 8 = ]
[IF] [ also forth ] $87DC code-w, code-, [ previous ]
--- 649,664 ----
))
!
! : (faddr@ \ Compiletime: ( name-fvariable|addr - ) Runtime: ( fhw: -- addrf@ )
[ also forth ] FLD_extended|double code-w, code-, [ previous ]
a;;
! : faddr@ \ Compiletime: ( name-fuser|addr - ) Runtime: ( fhw: -- addrf@ )
! user?
! IF fuser@
! ELSE (faddr@
! THEN a;;
!
! : (faddr@+ \ Compiletime: ( name-fvariable|addr - ) Runtime: ( fhw: -- ftos+addrf@ )
[ B/FLOAT 8 = ]
[IF] [ also forth ] $87DC code-w, code-, [ previous ]
***************
*** 610,615 ****
[THEN] a;;
! : faddr@- \ Compiletime: ( name-fvariable|addr - ) Runtime: ( fhw: -- ftos-addrf@ )
[ B/FLOAT 8 = ]
[IF] [ also forth ] $AFDC code-w, code-, [ previous ]
--- 666,684 ----
[THEN] a;;
+ : fuser@+ \ Compiletime: ( name-fuser - ) Runtime: ( fhw: -- ftos+addrf@ )
+ [ B/FLOAT 8 = ]
+ [IF] [ also forth ] $82DC code-w, tcb - code-, [ previous ]
+ [ELSE] faddr@ f+
+ [THEN] a;;
!
! : faddr@+ \ Compiletime: ( name-fuser|addr - ) Runtime: ( fhw: -- addrf@ )
! user?
! IF fuser@+
! ELSE (faddr@+
! THEN a;;
!
!
! : (faddr@- \ Compiletime: ( name-fvariable|addr - ) Runtime: ( fhw: -- ftos-addrf@ )
[ B/FLOAT 8 = ]
[IF] [ also forth ] $AFDC code-w, code-, [ previous ]
***************
*** 618,622 ****
! : faddr@/ \ Compiletime: ( name-fvariable|addr - ) Runtime: ( fhw: -- ftos/addrf@ )
[ B/FLOAT 8 = ]
[IF] [ also forth ] $BFDC code-w, code-, [ previous ]
--- 687,704 ----
! : fuser@- \ Compiletime: ( name-fuser - ) Runtime: ( fhw: -- ftos+addrf@ )
! [ B/FLOAT 8 = ]
! [IF] [ also forth ] $AADC code-w, tcb - code-, [ previous ]
! [ELSE] faddr@ f-
! [THEN] a;;
!
!
! : faddr@- \ Compiletime: ( name-fuser|addr - ) Runtime: ( fhw: -- addrf@ )
! user?
! IF fuser@-
! ELSE (faddr@-
! THEN a;;
!
! : (faddr@/ \ Compiletime: ( name-fvariable|addr - ) Runtime: ( fhw: -- ftos/addrf@ )
[ B/FLOAT 8 = ]
[IF] [ also forth ] $BFDC code-w, code-, [ previous ]
***************
*** 624,628 ****
[THEN] a;;
! : faddr@* \ Compiletime: ( name-fvariable|addr - ) Runtime: ( fhw: -- ftos-addrf@ )
[ B/FLOAT 8 = ]
[IF] [ also forth ] $8FDC code-w, code-, [ previous ]
--- 706,724 ----
[THEN] a;;
! : fuser@/ \ Compiletime: ( name-fuser - ) Runtime: ( fhw: -- ftos/addrf@ )
! [ B/FLOAT 8 = ]
! [IF] [ also forth ] $BADC code-w, tcb - code-, [ previous ]
! [ELSE] faddr@ f/
! [THEN] a;;
!
!
!
! : faddr@/ \ Compiletime: ( name-fuser|addr - ) Runtime: ( fhw: -- addrf@ )
! user?
! IF fuser@/
! ELSE (faddr@/
! THEN a;;
!
! : (faddr@* \ Compiletime: ( name-fvariable|addr - ) Runtime: ( fhw: -- ftos-addrf@ )
[ B/FLOAT 8 = ]
[IF] [ also forth ] $8FDC code-w, code-, [ previous ]
***************
*** 630,633 ****
--- 726,743 ----
[THEN] a;;
+
+ : fuser@* \ Compiletime: ( name-fuser - ) Runtime: ( fhw: -- ftos-addrf@ )
+ [ B/FLOAT 8 = ]
+ [IF] [ also forth ] $8ADC code-w, tcb - code-, [ previous ]
+ [ELSE] faddr@ f*
+ [THEN] a;;
+
+
+ : faddr@* \ Compiletime: ( name-fuser|addr - ) Runtime: ( fhw: -- addrf@ )
+ user?
+ IF fuser@*
+ ELSE (faddr@*
+ THEN a;;
+
: c0c3? ( -- flag ) ( hw: -- )
push ebx
***************
*** 732,735 ****
--- 842,847 ----
a;;
+ DUP-WARNING-OFF
+
: leave \ compiletime: ( - ) ( fs: - leave-flag|adr )
[ also forth ] $e9 code-c, fdrop code-here s>f -1 code-, [ previous ]
***************
*** 750,753 ****
--- 862,867 ----
a;;
+ DUP-WARNING-ON
+
: begin \ compiletime: ( - adr-at-begin )
[ also forth ] code-here
***************
*** 822,825 ****
--- 936,942 ----
a;;
+
+
+
\ Use: variable t1 code x1 t1 addr@< next, end-code
***************
*** 833,844 ****
in-application SYS-WARNING-ON \ End of added macro's
- only forth definitions also hidden
-
- : fdump ( - ) fdump ;
-
only forth also definitions
code df@>hw ( addr -- ) ( hw: -- r )
! fld double DATASTACK_MEMORY
drop
next,
--- 950,957 ----
in-application SYS-WARNING-ON \ End of added macro's
only forth also definitions
code df@>hw ( addr -- ) ( hw: -- r )
! fld double DATASTACK_MEMORY
drop
next,
***************
*** 861,865 ****
: faddr@* ( - faddr@ ) ( f: -- ftos+addrf@ ) f@ f* ;
: faddr@/ ( - faddr@ ) ( f: -- ftos+addrf@ ) f@ f/ ;
! : execute_exit ( xt - ) postpone execute postpone exit ; immediate
variable loc_a variable loc_b
--- 974,978 ----
: faddr@* ( - faddr@ ) ( f: -- ftos+addrf@ ) f@ f* ;
: faddr@/ ( - faddr@ ) ( f: -- ftos+addrf@ ) f@ f/ ;
! \IN-SYSTEM-OK : execute_exit ( xt - ) postpone execute postpone exit ; immediate
variable loc_a variable loc_b
***************
*** 889,911 ****
\ : r@a+a! ( r: - r: ) ( a - r+a) s" r@ a@ + a!" EVALUATE ; IMMEDIATE
! (( >>> Disable or delete this line to run the following BM test
\ needs profiler.f
! fvariable t1
fvariable t2
fvariable t3
! code BM \ This test section is disabled
next, end-code
! : x11 2 0 4e bm ;
! cr 10e t1 f!
! see BM x11 .s
abort
--- 1002,1034 ----
\ : r@a+a! ( r: - r: ) ( a - r+a) s" r@ a@ + a!" EVALUATE ; IMMEDIATE
!
!
! (( >>> Disable or delete this line to run the following BM test
\ needs profiler.f
! B/FLOAT newuser t1
! \ fvariable t1
fvariable t2
fvariable t3
! 99e t1 f!
! 20001e t2 f!
!
+ code BM
+ t1 faddr@
+ t1 faddr@+
+ t1 faddr!
next, end-code
+ see t1
+ see bm
! : x11 9e bm t1 f@ f. ;
! cr x11 .s
abort
|
|
From: George H. <geo...@us...> - 2011-11-27 19:44:11
|
Update of /cvsroot/win32forth/win32forth/src
In directory vz-cvs-4.sog:/tmp/cvs-serv19802
Modified Files:
Class.f
Log Message:
Minor correction
Index: Class.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/Class.f,v
retrieving revision 1.40
retrieving revision 1.41
diff -C2 -d -r1.40 -r1.41
*** Class.f 27 Nov 2011 19:20:13 -0000 1.40
--- Class.f 27 Nov 2011 19:44:09 -0000 1.41
***************
*** 880,884 ****
: WM: ( WM_MESSAGE -<object>- ) \ WM_CLOSE WM: Super
here 2 cells - @ ['] LIT <>
! THROW_INVALID_IVAR ?throw
here cell - @ \ get the literal
-2 cells allot \ release the space
--- 880,884 ----
: WM: ( WM_MESSAGE -<object>- ) \ WM_CLOSE WM: Super
here 2 cells - @ ['] LIT <>
! THROW_NO_WM ?throw
here cell - @ \ get the literal
-2 cells allot \ release the space
|
|
From: George H. <geo...@us...> - 2011-11-27 19:20:15
|
Update of /cvsroot/win32forth/win32forth/src
In directory vz-cvs-4.sog:/tmp/cvs-serv14156
Modified Files:
Class-errs.f Class.f
Log Message:
Finished off class errors
Index: Class.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/Class.f,v
retrieving revision 1.39
retrieving revision 1.40
diff -C2 -d -r1.39 -r1.40
*** Class.f 17 Sep 2011 14:45:13 -0000 1.39
--- Class.f 27 Nov 2011 19:20:13 -0000 1.40
***************
*** 559,563 ****
\ Use the following syntax: ' ExistingObject Clone NameOfNewObject
dup @ doobj = \ must be cfa of object
! 0= abort" Can only clone Objects"
>body @ (build) ; \ build the object
--- 559,563 ----
\ Use the following syntax: ' ExistingObject Clone NameOfNewObject
dup @ doobj = \ must be cfa of object
! 0= THROW_NO_CLONE ?throw
>body @ (build) ; \ build the object
***************
*** 608,616 ****
: ;Class ( -- )
! Obj-CLASS abort" Classes must start with :Class or |Class"
(;ClObj) ;
: ;Object ( -- )
! Obj-CLASS 0= abort" Objects must start with :Object"
(;ClObj)
Obj-CLASS (Obj-Build)
--- 608,616 ----
: ;Class ( -- )
! Obj-CLASS THROW_NOT_CLASS ?throw
(;ClObj) ;
: ;Object ( -- )
! Obj-CLASS 0= THROW_NOT_OBJ ?throw
(;ClObj)
Obj-CLASS (Obj-Build)
***************
*** 665,669 ****
: ;M ( -- )
! ?:M 0= abort" Methods must START with :M !"
false to ?:M
?csp
--- 665,669 ----
: ;M ( -- )
! ?:M 0= THROW_NOT_METHOD ?throw
false to ?:M
?csp
***************
*** 708,712 ****
dup ?Is** if 6 exit then
dup ?Is[self] if 7 exit then
! 1 abort" Invalid object type" ;
\ -------------------- Late Binding --------------------
--- 708,712 ----
dup ?Is** if 6 exit then
dup ?Is[self] if 7 exit then
! 1 THROW_INVALID_OBJ_REF ?throw ;
\ -------------------- Late Binding --------------------
***************
*** 735,739 ****
obj_hstring count \ -- a1,n1
Class body> vcfa>voc search-wordlist
! 0= abort" Can't find Variable"
dup @ (IV@) =
over @ &(IVB@) = or
--- 735,739 ----
obj_hstring count \ -- a1,n1
Class body> vcfa>voc search-wordlist
! 0= THROW_NO_FIND_VAR ?throw
dup @ (IV@) =
over @ &(IVB@) = or
***************
*** 742,746 ****
over @ (IVD@) = or
over @ (&IV) = or
! 0= abort" Can ONLY use DOT notation on BYTE, SHORT, INT, BYTES or RECORD:"
;
--- 742,746 ----
over @ (IVD@) = or
over @ (&IV) = or
! 0= THROW_INVALID_IVAR ?throw
;
***************
*** 755,759 ****
obj_hstring c! \ lay down object name
( class obj_hstring+1 )
! 1- swap classVFIND 0= abort" Can't find object"
2@ swap +to obj
rem$ count obj_hstring place \ recover remainder of string
--- 755,759 ----
obj_hstring c! \ lay down object name
( class obj_hstring+1 )
! 1- swap classVFIND 0= THROW_NO_FIND_OBJ ?throw
2@ swap +to obj
rem$ count obj_hstring place \ recover remainder of string
***************
*** 774,778 ****
nip - name-max-chars min \ calc & clip to legal max
obj_hstring c! \ lay down object name
! 1- Class classVFIND 0= abort" Can't find object"
2@ to Class +to offset
rem$ count obj_hstring place \ recover remainder of string
--- 774,778 ----
nip - name-max-chars min \ calc & clip to legal max
obj_hstring c! \ lay down object name
! 1- Class classVFIND 0= THROW_NO_FIND_OBJ ?throw
2@ to Class +to offset
rem$ count obj_hstring place \ recover remainder of string
***************
*** 806,810 ****
: runIvarRef { selID ^iclass \ Obj Class -- } \ run ivar reference (DEBUG ONLY!!)
! ^base 0= abort" No object exposed"
^iclass dup @ to Class Class>Obj to Obj
obj_hstring count '.' scan nip
--- 806,810 ----
: runIvarRef { selID ^iclass \ Obj Class -- } \ run ivar reference (DEBUG ONLY!!)
! ^base 0= THROW_OBJ_EXPOSED ?throw
^iclass dup @ to Class Class>Obj to Obj
obj_hstring count '.' scan nip
***************
*** 817,821 ****
: getIvarRef { selID ^iclass -- ^obj m0cfa }
! ^base 0= abort" No object exposed"
selID ^iclass Class>Obj Find-Method
swap @ ( offset ) ^base + swap ;
--- 817,821 ----
: getIvarRef { selID ^iclass -- ^obj m0cfa }
! ^base 0= THROW_OBJ_EXPOSED ?throw
selID ^iclass Class>Obj Find-Method
swap @ ( offset ) ^base + swap ;
***************
*** 880,884 ****
: WM: ( WM_MESSAGE -<object>- ) \ WM_CLOSE WM: Super
here 2 cells - @ ['] LIT <>
! abort" Must be preceeded by a WM_MESSAGE"
here cell - @ \ get the literal
-2 cells allot \ release the space
--- 880,884 ----
: WM: ( WM_MESSAGE -<object>- ) \ WM_CLOSE WM: Super
here 2 cells - @ ['] LIT <>
! THROW_INVALID_IVAR ?throw
here cell - @ \ get the literal
-2 cells allot \ release the space
***************
*** 919,923 ****
repeat 2dup + 1+ \ end of string
unres-methods unres-len + > \ beyond end?
! abort" Unresolved Methods buffer overflow!"
place
r>
--- 919,923 ----
repeat 2dup + 1+ \ end of string
unres-methods unres-len + > \ beyond end?
! THROW_METH_BUFF_OVERFLOW ?throw
place
r>
Index: Class-errs.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/Class-errs.f,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** Class-errs.f 21 Jul 2011 18:26:21 -0000 1.1
--- Class-errs.f 27 Nov 2011 19:20:12 -0000 1.2
***************
*** 26,30 ****
DUP 1- SWAP CONSTANT THROW_INVALID_IVAR
DUP 1- SWAP CONSTANT THROW_NO_FIND_OBJ
! DUP 1- SWAP CONSTANT THROW_OBJ_EXPO
DUP 1- SWAP CONSTANT THROW_NO_WM
DUP 1- SWAP CONSTANT THROW_METH_BUFF_OVERFLOW
--- 26,30 ----
DUP 1- SWAP CONSTANT THROW_INVALID_IVAR
DUP 1- SWAP CONSTANT THROW_NO_FIND_OBJ
! DUP 1- SWAP CONSTANT THROW_OBJ_EXPOSED
DUP 1- SWAP CONSTANT THROW_NO_WM
DUP 1- SWAP CONSTANT THROW_METH_BUFF_OVERFLOW
***************
*** 52,56 ****
THROW_MSGS LINK, THROW_INVALID_IVAR , ," Can ONLY use DOT notation on BYTE, SHORT, INT, BYTES or RECORD:"
THROW_MSGS LINK, THROW_NO_FIND_OBJ , ," Can't find object"
! THROW_MSGS LINK, THROW_OBJ_EXPO , ," No object exposed"
THROW_MSGS LINK, THROW_NO_WM , ," Must be preceeded by a WM_MESSAGE"
THROW_MSGS LINK, THROW_METH_BUFF_OVERFLOW , ," Unresolved Methods buffer overflow!"
--- 52,56 ----
THROW_MSGS LINK, THROW_INVALID_IVAR , ," Can ONLY use DOT notation on BYTE, SHORT, INT, BYTES or RECORD:"
THROW_MSGS LINK, THROW_NO_FIND_OBJ , ," Can't find object"
! THROW_MSGS LINK, THROW_OBJ_EXPOSED , ," No object exposed"
THROW_MSGS LINK, THROW_NO_WM , ," Must be preceeded by a WM_MESSAGE"
THROW_MSGS LINK, THROW_METH_BUFF_OVERFLOW , ," Unresolved Methods buffer overflow!"
|
|
From: George H. <geo...@us...> - 2011-11-20 19:42:12
|
Update of /cvsroot/win32forth/win32forth/src In directory vz-cvs-4.sog:/tmp/cvs-serv32565 Modified Files: CALLBACK.f INTERPIF.F Log Message: Updated docs. Index: INTERPIF.F =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/INTERPIF.F,v retrieving revision 1.5 retrieving revision 1.6 diff -C2 -d -r1.5 -r1.6 *** INTERPIF.F 3 Aug 2008 11:08:47 -0000 1.5 --- INTERPIF.F 20 Nov 2011 19:42:10 -0000 1.6 *************** *** 12,16 **** \ *T Interpretive conditionals in Win32Forth ! \ *P Win32Forth supports the ANSI interpretive from the tools extension wordset, with some \ ** W32F specific extensions as well as an alternative set based on the 'C' style words \ ** #if #else #then etc. --- 12,16 ---- \ *T Interpretive conditionals in Win32Forth ! \ *P Win32Forth supports the ANSI interpretive conditionals from the tools extension wordset, with some \ ** W32F specific extensions as well as an alternative set based on the 'C' style words \ ** #if #else #then etc. Index: CALLBACK.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/CALLBACK.f,v retrieving revision 1.17 retrieving revision 1.18 diff -C2 -d -r1.17 -r1.18 *** CALLBACK.f 9 Nov 2011 23:31:33 -0000 1.17 --- CALLBACK.f 20 Nov 2011 19:42:10 -0000 1.18 *************** *** 17,20 **** --- 17,26 ---- \ ** main (console) task only). It is important to remember a normal xt will not work as a callback. + \ *P Win32Forth now supports assynchronous callbacks (since V6.16.xx) as used in the multi media (Winmm) + \ ** API. Since these create a new thread Win32Forth creates a USER area the first time it runs and leaves + \ ** space for it subsequently. NOTE versions up to V6.04.xx could run assynchronous callbacks, but since + \ ** they shared the main tasks USER area they had restrictions on use of LOCALs USER variables etc. These + \ ** restrictions no longer apply. + \ *S Glossary |
|
From: George H. <geo...@us...> - 2011-11-20 19:40:29
|
Update of /cvsroot/win32forth/win32forth/Help/html In directory vz-cvs-4.sog:/tmp/cvs-serv32409 Modified Files: dexh-Callback.htm dexh-HelpMain.htm dexh-interpif.htm Log Message: Updated docs. Index: dexh-Callback.htm =================================================================== RCS file: /cvsroot/win32forth/win32forth/Help/html/dexh-Callback.htm,v retrieving revision 1.3 retrieving revision 1.4 diff -C2 -d -r1.3 -r1.4 *** dexh-Callback.htm 13 Jun 2009 11:05:59 -0000 1.3 --- dexh-Callback.htm 20 Nov 2011 19:40:26 -0000 1.4 *************** *** 17,20 **** --- 17,25 ---- to V6.06.xx always used the CONUSER pointer for this so callbacks were restricted to the main (console) task only). It is important to remember a normal xt will not work as a callback. + </p><p>Win32Forth now supports assynchronous callbacks (since V6.16.xx) as used in the multi media (Winmm) + API. Since these create a new thread Win32Forth creates a USER area the first time it runs and leaves + space for it subsequently. NOTE versions up to V6.04.xx could run assynchronous callbacks, but since + they shared the main tasks USER area they had restrictions on use of LOCALs USER variables etc. These + restrictions no longer apply. </p><h2>Glossary </h2><p><b><code>: __STDCALL ( -- ) \ w32f sys Index: dexh-HelpMain.htm =================================================================== RCS file: /cvsroot/win32forth/win32forth/Help/html/dexh-HelpMain.htm,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 *** dexh-HelpMain.htm 28 May 2008 04:01:07 -0000 1.2 --- dexh-HelpMain.htm 20 Nov 2011 19:40:26 -0000 1.3 *************** *** 49,55 **** </p><ul><li>a set of hand-written html pages (names beginning with "<b>w32f-</b>")<br /> plus htm files in the help\html subdirs forthform, dpans and guides ! </li><li>a set of dexh-generated help pages (names beginning with "<b>dexh-</b>" or "<b>clas-</b>")<br /> (please have a look at the dexh documentation next to this page) ! </li><li>an help summary, describing, for each html page, its hierarchy and link. </li></ul><h3>Maintaining the hand-written help pages : </h3><p>Theese are basic-html pages. We suggest you use a simple text editor to edit --- 49,55 ---- </p><ul><li>a set of hand-written html pages (names beginning with "<b>w32f-</b>")<br /> plus htm files in the help\html subdirs forthform, dpans and guides ! </li><li>a set of dexh-generated help pages (names beginning with "<b>dexh-</b>" or "<b>class-</b>")<br /> (please have a look at the dexh documentation next to this page) ! </li><li>a help summary, describing, for each html page, its hierarchy and link. </li></ul><h3>Maintaining the hand-written help pages : </h3><p>Theese are basic-html pages. We suggest you use a simple text editor to edit Index: dexh-interpif.htm =================================================================== RCS file: /cvsroot/win32forth/win32forth/Help/html/dexh-interpif.htm,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** dexh-interpif.htm 15 May 2008 06:28:27 -0000 1.1 --- dexh-interpif.htm 20 Nov 2011 19:40:26 -0000 1.2 *************** *** 10,14 **** <body> <h1>Interpretive conditionals in Win32Forth ! </h1><p>Win32Forth supports the ANSI interpretive from the tools extension wordset, with some W32F specific extensions as well as an alternative set based on the 'C' style words #if #else #then etc. --- 10,14 ---- <body> <h1>Interpretive conditionals in Win32Forth ! </h1><p>Win32Forth supports the ANSI interpretive conditionals from the tools extension wordset, with some W32F specific extensions as well as an alternative set based on the 'C' style words #if #else #then etc. |
|
From: George H. <geo...@us...> - 2011-11-18 22:40:03
|
Update of /cvsroot/win32forth/win32forth/Help/html
In directory vz-cvs-4.sog:/tmp/cvs-serv6074/html
Modified Files:
w32f-HelpPresent.htm w32f-boolean.htm w32f-vocabulary.htm
Log Message:
Updated docs. Optimised structures
Index: w32f-boolean.htm
===================================================================
RCS file: /cvsroot/win32forth/win32forth/Help/html/w32f-boolean.htm,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** w32f-boolean.htm 15 May 2008 06:28:27 -0000 1.1
--- w32f-boolean.htm 18 Nov 2011 22:40:00 -0000 1.2
***************
*** 64,68 ****
MIN ( n1 n2 -- n3 ) minimum of singles n1 and n2
</pre>
!
<p><hr>Document : w32f-boolean -- 2008/06/09 -- Camille Doiteau</p>
</body>
--- 64,69 ----
MIN ( n1 n2 -- n3 ) minimum of singles n1 and n2
</pre>
! <h2>Floating Point Comparison operators</h2>
! <a href="dexh-float.htm#Sec#9">see here</a>
<p><hr>Document : w32f-boolean -- 2008/06/09 -- Camille Doiteau</p>
</body>
Index: w32f-HelpPresent.htm
===================================================================
RCS file: /cvsroot/win32forth/win32forth/Help/html/w32f-HelpPresent.htm,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -d -r1.3 -r1.4
*** w32f-HelpPresent.htm 1 Mar 2011 21:52:06 -0000 1.3
--- w32f-HelpPresent.htm 18 Nov 2011 22:40:00 -0000 1.4
***************
*** 83,90 ****
the quick info to know in what source file this word was defined (say
"afile.f") and add at the beginning of your source the directive
! :<code> NEEDS afile.f</code></p>
<p>You can look at the <code>DEFER</code>ed words contents by typing, in the
! Console, <code>ACTION-OF adefer 'SEE</code> .
<hr>
--- 83,90 ----
the quick info to know in what source file this word was defined (say
"afile.f") and add at the beginning of your source the directive
! :<code> REQUIRE afile.f</code></p>
<p>You can look at the <code>DEFER</code>ed words contents by typing, in the
! Console, <code>SEE adefer</code> .
<hr>
Index: w32f-vocabulary.htm
===================================================================
RCS file: /cvsroot/win32forth/win32forth/Help/html/w32f-vocabulary.htm,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** w32f-vocabulary.htm 15 May 2008 07:36:50 -0000 1.1
--- w32f-vocabulary.htm 18 Nov 2011 22:40:00 -0000 1.2
***************
*** 9,16 ****
<h1>Wordlists & Vocabularies</h1>
! <p>Given the ANS standard, wordlists have replaced vocabularies. They represent the same
! concept but wordlists are handled via numbers ("wid" or wordlists ids) and vocabularies
are handled by names, which is more handy. That is why we still use vocabularies in
! Win32Forth (They are internally defined as wordlists however). In the following, we will
consider wordlists and vocabularies as synonyms, which they are not.</p>
--- 9,17 ----
<h1>Wordlists & Vocabularies</h1>
! <p>In the ANS standard, wordlists have replaced vocabularies. They represent the same
! concept but wordlists are handled via unique identifiers ("wid" or wordlists ids) and vocabularies
are handled by names, which is more handy. That is why we still use vocabularies in
! Win32Forth (They are internally defined as wordlists however).Win32Forth Vocabularies follow the Forth-83 model
! (the same as g Forth). In the following, we will
consider wordlists and vocabularies as synonyms, which they are not.</p>
***************
*** 37,49 ****
<p>Note : this is the initial order. If you accidentally remove the <code>FORTH</code> vocabulary
! just before <code>ROOT</code> , you will not have any word left but <code>FORTH</code> (this is
! the only word defined in <code>ROOT</code>) and you will have to execute it to restore the
! order to : </p>
<pre> ORDER
Context: FORTH ROOT
Current: FORTH ok</pre>
! <p>You can deliberately clean the search order by invoquing the word <code>ONLY</code>. For
! the same reason as above, you will then be obliged to invoque <code>FORTH</code> to
obtain the same result. So remember that you have to use the sequence <code>ONLY FORTH</code>
to clean the search order.</p>
--- 38,51 ----
<p>Note : this is the initial order. If you accidentally remove the <code>FORTH</code> vocabulary
! just before <code>ROOT</code> , you will not have any words left but <code>FORTH</code>
! , <code>FORTH-WORDLIST</code> and <code>SET-ORDER</code>(these are the only words defined in
! <code>ROOT</code>) and you will have to execute one or more of them in order to restore the order
! to :</p>
<pre> ORDER
Context: FORTH ROOT
Current: FORTH ok</pre>
! <p>You can deliberately clean the search order by invoking the word <code>ONLY</code>. For
! the reason given above, you will then be obliged to invoke <code>FORTH</code> to
obtain the same result. So remember that you have to use the sequence <code>ONLY FORTH</code>
to clean the search order.</p>
***************
*** 63,67 ****
Current: FORTH </pre>
! <p>Invoquing a vocabulary name replaces the top of <code>ORDER</code> with that vocabulary.
Still with the previous example :</p>
<pre> ASSEMBLER
--- 65,69 ----
Current: FORTH </pre>
! <p>Invoking a vocabulary name replaces the top of <code>ORDER</code> with that vocabulary.
Still with the previous example :</p>
<pre> ASSEMBLER
|
|
From: George H. <geo...@us...> - 2011-11-18 21:42:16
|
Update of /cvsroot/win32forth/win32forth/Help/hdb In directory vz-cvs-4.sog:/tmp/cvs-serv32524 Modified Files: HelpSummary.tv Log Message: Updated docs. Index: HelpSummary.tv =================================================================== RCS file: /cvsroot/win32forth/win32forth/Help/hdb/HelpSummary.tv,v retrieving revision 1.11 retrieving revision 1.12 diff -C2 -d -r1.11 -r1.12 *** HelpSummary.tv 18 Nov 2011 01:36:48 -0000 1.11 --- HelpSummary.tv 18 Nov 2011 21:42:14 -0000 1.12 *************** *** 88,94 **** 4 tvn| Switches| tvd| Help\html\dexh-switch.htm| \ <-- OK ??? with flow control ? 4 tvn| Chains| tvd| help\html\w32f-chains.htm| \ <-- OK ! 3 tvn| Wordlists & Vocabularies| tvd| help\html\w32f-vocabulary.htm| \ <-- OK ! 3 tvn| Source compiling tools| tvd| | 4 tvn| Using the Module Wordset| tvd| help\html\dexh-module.htm| \ <-- OK 4 tvn| Interpretive conditionals| tvd| help\html\dexh-interpif.htm| \ <-- OK 3 tvn| Task Wordset| tvd| help\html\dexh-task.htm| \ <-- OK --- 88,95 ---- 4 tvn| Switches| tvd| Help\html\dexh-switch.htm| \ <-- OK ??? with flow control ? 4 tvn| Chains| tvd| help\html\w32f-chains.htm| \ <-- OK ! 3 tvn| The Search Order| tvd| | \ <-- OK ! 4 tvn| Wordlists & Vocabularies| tvd| help\html\w32f-vocabulary.htm| \ <-- OK 4 tvn| Using the Module Wordset| tvd| help\html\dexh-module.htm| \ <-- OK + 3 tvn| Source compiling tools| tvd| | 4 tvn| Interpretive conditionals| tvd| help\html\dexh-interpif.htm| \ <-- OK 3 tvn| Task Wordset| tvd| help\html\dexh-task.htm| \ <-- OK *************** *** 104,107 **** --- 105,109 ---- 2 tvn| OOP reference| tvd| | 3 tvn| OOP reference| tvd| help\html\w32f-objects.htm| \ <-- OK + weblink + 3 tvn| Debugging words for classes| tvd| help\html\dexh-classdbg.htm| \ <-- OK 2 tvn| Windows interface| tvd| | 3 tvn| Windows programming basics| tvd| help\html\w32f-todo.htm| \ ??? *************** *** 124,128 **** 3 tvn| The dictionaries| tvd| help\html\w32f-arch-dict.htm| \ <-- OK 3 tvn| Meta-compilation & FSAVE image| tvd| help\html\w32f-arch-meta.htm| \ <-- OK ! 1 tvn| IDE| tvd| | 2 tvn| Overview| tvd| help\html\IDE\win32ForthIDE.htm| \ <-- OK 2 tvn| IDE menus| tvd| help\html\IDE\IDEmenus.htm| \ <-- OK --- 126,130 ---- 3 tvn| The dictionaries| tvd| help\html\w32f-arch-dict.htm| \ <-- OK 3 tvn| Meta-compilation & FSAVE image| tvd| help\html\w32f-arch-meta.htm| \ <-- OK ! 1 tvn| Win32ForthIDE| tvd| | 2 tvn| Overview| tvd| help\html\IDE\win32ForthIDE.htm| \ <-- OK 2 tvn| IDE menus| tvd| help\html\IDE\IDEmenus.htm| \ <-- OK *************** *** 134,138 **** 3 tvn| Project manager| tvd| help\html\IDE\projectmanager.htm| \ <-- OK 3 tvn| Project navigator| tvd| help\html\IDE\project navigator.htm| \ <-- OK ! 3 tvn| Step by step demo| tvd| help\html\w32f-todo.htm| \ <-- OK 2 tvn| Form designer| tvd| | 3 tvn| Overview| tvd| help\html\IDE\Form designer.htm| \ <-- OK --- 136,140 ---- 3 tvn| Project manager| tvd| help\html\IDE\projectmanager.htm| \ <-- OK 3 tvn| Project navigator| tvd| help\html\IDE\project navigator.htm| \ <-- OK ! \ 3 tvn| Step by step demo| tvd| help\html\w32f-todo.htm| \ <-- OK 2 tvn| Form designer| tvd| | 3 tvn| Overview| tvd| help\html\IDE\Form designer.htm| \ <-- OK *************** *** 144,150 **** 3 tvn| Creating splitter windows| tvd| help\html\IDE\Splitter windows.htm| \ <-- OK 3 tvn| Creating property sheets| tvd| help\html\IDE\PropertyForm.htm| \ <-- OK ! 3 tvn| Step by step demo| tvd| help\html\w32f-todo.htm| \ <-- OK 2 tvn| Source level debugger| tvd| | 3 tvn| Source level debugger| tvd| help\html\w32f-todo.htm| \ <-- OK 1 tvn| Other development tools| tvd| | 2 tvn| This help & Dexh| tvd| | --- 146,153 ---- 3 tvn| Creating splitter windows| tvd| help\html\IDE\Splitter windows.htm| \ <-- OK 3 tvn| Creating property sheets| tvd| help\html\IDE\PropertyForm.htm| \ <-- OK ! \ 3 tvn| Step by step demo| tvd| help\html\w32f-todo.htm| \ <-- OK 2 tvn| Source level debugger| tvd| | 3 tvn| Source level debugger| tvd| help\html\w32f-todo.htm| \ <-- OK + 1 tvn| WinEdit| tvd| help\html\w32f-winedit.htm| \ <-- OK + w32f-winedit.jpg 1 tvn| Other development tools| tvd| | 2 tvn| This help & Dexh| tvd| | *************** *** 153,157 **** 2 tvn| Debugger| tvd| | 3 tvn| Forth debugger| tvd| help\html\w32F-debugging.htm| \ <-- OK - 3 tvn| More debug words for classes| tvd| help\html\dexh-classdbg.htm| \ <-- OK 2 tvn| Assembler & Disassembler| tvd| | 3 tvn| Assembler| tvd| help\html\w32f-486asm.htm| \ <-- OK + w32f-486asm-copyasm486.gpl & .lgpl --- 156,159 ---- *************** *** 161,165 **** 3 tvn| Compile resources in source| tvd| help\html\w32f-dialogrc.txt| \ <-- text file 2 tvn| Miscellaneous| tvd| | - 3 tvn| WinEdit| tvd| help\html\w32f-winedit.htm| \ <-- OK + w32f-winedit.jpg 3 tvn| Cross reference| tvd| help\html\w32f-todo.htm| \ ??? 3 tvn| Differential file comparison| tvd| help\html\w32f-todo.htm| \ ??? --- 163,166 ---- |
|
From: George H. <geo...@us...> - 2011-11-18 14:19:55
|
Update of /cvsroot/win32forth/win32forth/src/lib In directory vz-cvs-4.sog:/tmp/cvs-serv26452 Modified Files: UpDownControl.f Log Message: Updated docs. Index: UpDownControl.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/lib/UpDownControl.f,v retrieving revision 1.4 retrieving revision 1.5 diff -C2 -d -r1.4 -r1.5 *** UpDownControl.f 18 Nov 2011 11:08:05 -0000 1.4 --- UpDownControl.f 18 Nov 2011 14:19:53 -0000 1.5 *************** *** 17,21 **** \ ------------------------------------------------------------------------ \ *W <a name="UpDownControl"></a> ! \ *S UpDownControl class \ ------------------------------------------------------------------------ :Class UpDownControl <Super Control --- 17,21 ---- \ ------------------------------------------------------------------------ \ *W <a name="UpDownControl"></a> ! \ *S Up-Down Control class \ ------------------------------------------------------------------------ :Class UpDownControl <Super Control *************** *** 106,110 **** ;Class ! \ *G End of UpDownControl control :Class SpinnerControl <Super UpDownControl --- 106,113 ---- ;Class ! \ *G End of Up-Down Control Class ! ! \ *W <a name="SpinnerControl"></a> ! \ *S Spinner Control class :Class SpinnerControl <Super UpDownControl |
|
From: George H. <geo...@us...> - 2011-11-18 14:19:08
|
Update of /cvsroot/win32forth/win32forth/src In directory vz-cvs-4.sog:/tmp/cvs-serv26370 Modified Files: 586ASMCM.f PrintSupport.f floadcmdline.f Log Message: Added $Id:$ Index: floadcmdline.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/floadcmdline.f,v retrieving revision 1.7 retrieving revision 1.8 diff -C2 -d -r1.7 -r1.8 *** floadcmdline.f 6 Jan 2007 13:58:57 -0000 1.7 --- floadcmdline.f 18 Nov 2011 14:19:06 -0000 1.8 *************** *** 1,2 **** --- 1,4 ---- + \ $Id$ + Anew -FloadCmdLine *************** *** 20,24 **** \ ** \n7.Icon: Choose a nice Icon and Click op OK \ ** \n8.Use change to check it. ! \ ** \n9.Fload c:win32forth\src\FloadCmdLine.f \ ** \n10.Copy c:\win32forth\src\Win32for.exe to c:\win32forth\Win32for.exe \ ** \n11.Overwrite the orginal version. --- 22,26 ---- \ ** \n7.Icon: Choose a nice Icon and Click op OK \ ** \n8.Use change to check it. ! \ ** \n9.Fload c:win32forth\src\FloadCmdLine.f \ ** \n10.Copy c:\win32forth\src\Win32for.exe to c:\win32forth\Win32for.exe \ ** \n11.Overwrite the orginal version. Index: PrintSupport.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/PrintSupport.f,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 *** PrintSupport.f 29 Jun 2008 05:12:39 -0000 1.2 --- PrintSupport.f 18 Nov 2011 14:19:06 -0000 1.3 *************** *** 1,2 **** --- 1,4 ---- + \ $Id$ + \ PrintSupport Rod Oakford June 28th, 2004 Index: 586ASMCM.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/586ASMCM.f,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 *** 586ASMCM.f 2 Dec 2006 12:09:52 -0000 1.2 --- 586ASMCM.f 18 Nov 2011 14:19:06 -0000 1.3 *************** *** 1,4 **** ! \ 586asmcm.f 19/05/2003 17:13:07 arm conditional move macros for 586+ ! \ Also floating-point extensions for P6 or better only forth also assembler --- 1,5 ---- ! \ $Id$ ! \ arm conditional move macros for 586+ ! \ Also floating-point extensions for P6 or better gah only forth also assembler |
|
From: George H. <geo...@us...> - 2011-11-18 14:18:29
|
Update of /cvsroot/win32forth/win32forth/Help
In directory vz-cvs-4.sog:/tmp/cvs-serv26300
Modified Files:
HelpCreateDexhDocs.f
Log Message:
Updated docs.
Index: HelpCreateDexhDocs.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/Help/HelpCreateDexhDocs.f,v
retrieving revision 1.10
retrieving revision 1.11
diff -C2 -d -r1.10 -r1.11
*** HelpCreateDexhDocs.f 18 Nov 2011 11:06:43 -0000 1.10
--- HelpCreateDexhDocs.f 18 Nov 2011 14:18:27 -0000 1.11
***************
*** 74,78 ****
s" src\lib\Calendar.f" s" help\html\class-controls.htm" append-doc
s" src\lib\TabControl.f" s" help\html\class-controls.htm" append-doc
- s" src\lib\UpDownControl.f" s" help\html\class-controls.htm" append-doc
+tr s" src\lib\ButtonBar.f" s" help\html\class-controls.htm" append-doc
--- 74,77 ----
|
|
From: George H. <geo...@us...> - 2011-11-18 14:17:03
|
Update of /cvsroot/win32forth/win32forth/Help/html
In directory vz-cvs-4.sog:/tmp/cvs-serv26080
Modified Files:
class-controls.htm w32f-classes.htm
Log Message:
Updated docs.
Index: class-controls.htm
===================================================================
RCS file: /cvsroot/win32forth/win32forth/Help/html/class-controls.htm,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** class-controls.htm 18 Nov 2011 11:04:29 -0000 1.2
--- class-controls.htm 18 Nov 2011 14:17:01 -0000 1.3
***************
*** 727,731 ****
</code></b><br>End of DragListbox class
</p><a name="UpDownControl"></a>
! <h2>UpDownControl class
</h2><p><b><code>:Class UpDownControl <Super Control
</code></b><br>Up-Down control
--- 727,731 ----
</code></b><br>End of DragListbox class
</p><a name="UpDownControl"></a>
! <h2>Up-Down Control class
</h2><p><b><code>:Class UpDownControl <Super Control
</code></b><br>Up-Down control
***************
*** 775,780 ****
</code></b><br>Disable the control.
</p><p><b><code>;Class
! </code></b><br>End of UpDownControl control
! </p><p><b><code>:Class SpinnerControl <Super UpDownControl
</code></b><br>Spinner Control Class.
</p><p>This class is a combination of an up-down control and a Text Box (the buddy).
--- 775,782 ----
</code></b><br>Disable the control.
</p><p><b><code>;Class
! </code></b><br>End of Up-Down Control Class
! </p><a name="SpinnerControl"></a>
! <h2>Spinner Control class
! </h2><p><b><code>:Class SpinnerControl <Super UpDownControl
</code></b><br>Spinner Control Class.
</p><p>This class is a combination of an up-down control and a Text Box (the buddy).
***************
*** 1688,1756 ****
</code></b><br>End of MultiLineTabControl class
</p><p>For a demo how to use the TabControl see: TabControlDemo.f
- </p><a name="UpDownControl"></a>
- <h2>UpDownControl class
- </h2><p><b><code>:Class UpDownControl <Super Control
- </code></b><br>Up-Down control
- </p><p>An up-down control is a pair of arrow buttons that the user can click to
- increment or decrement a value, such as a scroll position or a number displayed
- in a companion control.
- </p><p>For 16 Bit values only.
- </p><p><b><code>:M ClassInit: ( -- )
- </code></b><br>Initialise the class.
- </p><p><b><code>:M WindowStyle: ( -- style )
- </code></b><br>Get the window style of the control. Default style is:
- WS_BORDER, UDS_ARROWKEYS, UDS_SETBUDDYINT and UDS_ALIGNRIGHT.
- </p><p><b><code>:M AddStyle: ( n -- )
- </code></b><br>Set any additional style of the control. Must be done before the control
- is created.
- </p><p><b><code>:M Start: ( Parent -- )
- </code></b><br>Create the control.
- </p><p><b><code>:M StartSize: ( -- cx cy )
- </code></b><br>default window size
- </p><p><b><code>:M StartPos: ( -- x y )
- </code></b><br>default window position
- </p><p><b><code>:M SetBuddy: ( hBuddy -- )
- </code></b><br>Sets the buddy window for the up-down control.
- </p><p><b><code>:M GetValue: ( -- n )
- </code></b><br>Retrieves the current position of the up-down control.
- Note: This method ABORT's on error.
- </p><p><b><code>:M SetValue: ( n -- )
- </code></b><br>Set the current position for the up-down control.
- </p><p><b><code>:M SetDecimal: ( -- )
- </code></b><br>Sets the radix base for the control to decimal.
- Decimal numbers are signed.
- </p><p><b><code>:M SetHex: ( -- )
- </code></b><br>Sets the radix base for the control to hexadecimal.
- Hexadecimal numbers are always unsigned.
- </p><p><b><code>:M GetBase: ( -- n )
- </code></b><br>Get the current radix base (that is, either base 10 or 16).
- </p><p><b><code>:M SetRange: ( lower upper -- )
- </code></b><br>Sets the minimum and maximum positions (range) the control.
- Neither position can be greater than the UD_MAXVAL value or less than
- the UD_MINVAL value. In addition, the difference between the two positions
- cannot exceed UD_MAXVAL.
- </p><p><b><code>:M GetRange: ( -- lower upper )
- </code></b><br>Retrieves the minimum and maximum positions (range) for the control.
- </p><p><b><code>:M Enable: ( f -- )
- </code></b><br>Enable the control.
- </p><p><b><code>:M Disable: ( -- )
- </code></b><br>Disable the control.
- </p><p><b><code>;Class
- </code></b><br>End of UpDownControl control
- </p><p><b><code>:Class SpinnerControl <Super UpDownControl
- </code></b><br>Spinner Control Class.
- </p><p>This class is a combination of an up-down control and a Text Box (the buddy).
- </p><p><b><code>:m start: ( parent -- )
- </code></b><br>Start the control.
- </p><p><b><code>:m TheBox: ( -- spinbox )
- </code></b><br>Object address of the text box for directly manipulating it (though it shouldn't really be done).
- </p><p><b><code>:m Move: ( x y w h -- )
- </code></b><br>Move the text box to the specified positon and the up-down control as well.
- </p><p><b><code>:m SetFont: ( hndl -- )
- </code></b><br>Set the font of the text box.
- </p><p><b><code>:M Close: ( -- )
- </code></b><br>Close the control.
- </p><p><b><code>
- </code></b><br>End of Spinner Control Class.
</p><h1>ExControls -- More (enhanced) classes for non-standard windows controls.
</h1><a name="VertButtonBar"></a>
--- 1690,1693 ----
Index: w32f-classes.htm
===================================================================
RCS file: /cvsroot/win32forth/win32forth/Help/html/w32f-classes.htm,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** w32f-classes.htm 17 Nov 2011 21:57:09 -0000 1.2
--- w32f-classes.htm 18 Nov 2011 14:17:01 -0000 1.3
***************
*** 75,79 ****
<li><b>Other controls</b></li>
<ul type=circle>
! <li><a href="class-Controls.htm#TabControl">TabControl</a> Class for tabulator controls.</li>
</ul>
</ul>
--- 75,81 ----
<li><b>Other controls</b></li>
<ul type=circle>
! <li><a href="class-Controls.htm#TabControl">Tab Control</a> Class for tabulator controls.</li>
! <li><a href="class-Controls.htm#UpDownControl">Up-down Control</a> Class for up-down controls.</li>
! <li><a href="class-Controls.htm#SpinnerControl">Spinner Control</a> Class for spinner controls.</li>
</ul>
</ul>
|
|
From: George H. <geo...@us...> - 2011-11-18 11:43:56
|
Update of /cvsroot/win32forth/win32forth/Help In directory vz-cvs-4.sog:/tmp/cvs-serv28260 Modified Files: HelpBuildHDB.f Log Message: Added $Id:$ Index: HelpBuildHDB.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/Help/HelpBuildHDB.f,v retrieving revision 1.4 retrieving revision 1.5 diff -C2 -d -r1.4 -r1.5 *** HelpBuildHDB.f 26 Aug 2008 00:19:20 -0000 1.4 --- HelpBuildHDB.f 18 Nov 2011 11:43:54 -0000 1.5 *************** *** 1,3 **** ! \ HelpBuildHDB.f \ By Camille Doiteau - Feb 2008 --- 1,3 ---- ! \ $Id$ \ By Camille Doiteau - Feb 2008 *************** *** 1047,1051 **** cr .( Sorting HelpWrd.ndx by ascending words...) ! cr .( [it may exist multiple keys, eg methods, same words in different vocs, etc]) \ ----------------------------------------------------------------------------- --- 1047,1051 ---- cr .( Sorting HelpWrd.ndx by ascending words...) ! cr .( [there may exist multiple keys, eg methods, same words in different vocs, etc]) \ ----------------------------------------------------------------------------- |
|
From: George H. <geo...@us...> - 2011-11-18 11:40:21
|
Update of /cvsroot/win32forth/win32forth/Help/hdb
In directory vz-cvs-4.sog:/tmp/cvs-serv27792
Modified Files:
HelpCls.tv HelpWrd.hdb HelpWrd.ndx HelpWrd.tv HelpWrd.txt
Log Message:
Rebuilt help database
Index: HelpCls.tv
===================================================================
RCS file: /cvsroot/win32forth/win32forth/Help/hdb/HelpCls.tv,v
retrieving revision 1.10
retrieving revision 1.11
diff -C2 -d -r1.10 -r1.11
*** HelpCls.tv 18 Nov 2011 01:36:48 -0000 1.10
--- HelpCls.tv 18 Nov 2011 11:40:15 -0000 1.11
***************
*** 1,2291 ****
! 0 tvn| CLASSROOT| tvd| 5515|
1 tvn| -methods-| tvd| 0|
! -2 tvn| CLASSINIT:| tvd| 5516|
! -2 tvn| ~:| tvd| 5517|
! -2 tvn| ADDR:| tvd| 5518|
! -2 tvn| PRINT:| tvd| 5519|
! 1 tvn| OBJECT| tvd| 5520|
2 tvn| -methods-| tvd| 0|
! -3 tvn| GET:| tvd| 5521|
! -3 tvn| PUT:| tvd| 5522|
[...4553 lines suppressed...]
! -4 tvn| FIELDNAME:| tvd| 8579|
! -4 tvn| GETINT:| tvd| 8580|
! -4 tvn| GETDOUBLE:| tvd| 8581|
! -4 tvn| GETFLOAT:| tvd| 8582|
! -4 tvn| GETSTR:| tvd| 8583|
! -4 tvn| GETBLOB:| tvd| 8584|
! -4 tvn| ISNULL?:| tvd| 8585|
! -4 tvn| NEXTROW:| tvd| 8586|
! -4 tvn| (BIND):| tvd| 8587|
! -4 tvn| BINDINT:| tvd| 8588|
! -4 tvn| BINDDOUBLE:| tvd| 8589|
! -4 tvn| BINDFLOAT:| tvd| 8590|
! -4 tvn| BINDSTR:| tvd| 8591|
! -4 tvn| BINDBLOB:| tvd| 8592|
! 1 tvn| STRING| tvd| 8599|
2 tvn| -methods-| tvd| 0|
! -3 tvn| GET:| tvd| 8600|
! -3 tvn| PUT:| tvd| 8601|
! -3 tvn| ADD:| tvd| 8602|
! -3 tvn| APPEND:| tvd| 8603|
Index: HelpWrd.txt
===================================================================
RCS file: /cvsroot/win32forth/win32forth/Help/hdb/HelpWrd.txt,v
retrieving revision 1.14
retrieving revision 1.15
diff -C2 -d -r1.14 -r1.15
*** HelpWrd.txt 18 Nov 2011 01:36:48 -0000 1.14
--- HelpWrd.txt 18 Nov 2011 11:40:15 -0000 1.15
***************
*** 1447,1453 ****
CREATE USERCONFIG$
BYTES &PS
: (CLASSINIT) ( x y width height -- )
: (CLASSINIT) ( -- )
- : (CLASSINIT) ( n1 -- )
CONSTANT 1/1
CONSTANT 1/2
--- 1447,1453 ----
CREATE USERCONFIG$
BYTES &PS
[...1027 lines suppressed...]
+ :M LOADMENU: ( pid parent -- )
:M LOADMENU: ( mb parent -- )
:M LOADMENU: ( pid parent -- )
: M"TEXT" ( -<"text">- )
INT MB \ temporary variable used for menubar traversal
***************
*** 13243,13248 ****
INT PM \ temp for popup menu list processing
INT POPID
- INT POPID
INT POPID \ handle of this items popup menu
|CLASS POPUP
|CLASS POPUP
--- 13257,13262 ----
INT PM \ temp for popup menu list processing
INT POPID
INT POPID \ handle of this items popup menu
+ INT POPID
|CLASS POPUP
|CLASS POPUP
Index: HelpWrd.hdb
===================================================================
RCS file: /cvsroot/win32forth/win32forth/Help/hdb/HelpWrd.hdb,v
retrieving revision 1.14
retrieving revision 1.15
diff -C2 -d -r1.14 -r1.15
Binary files /tmp/cvspO8odK and /tmp/cvs7KN2jh differ
Index: HelpWrd.tv
===================================================================
RCS file: /cvsroot/win32forth/win32forth/Help/hdb/HelpWrd.tv,v
retrieving revision 1.13
retrieving revision 1.14
diff -C2 -d -r1.13 -r1.14
*** HelpWrd.tv 18 Nov 2011 01:36:48 -0000 1.13
--- HelpWrd.tv 18 Nov 2011 11:40:15 -0000 1.14
***************
*** 1,5278 ****
0 tvn| Words| tvd| 0|
! 1 tvn| CLASSROOT| tvd| 5515|
2 tvn| -methods-| tvd| 0|
! -3 tvn| CLASSINIT:| tvd| 5516|
! -3 tvn| ~:| tvd| 5517|
! -3 tvn| ADDR:| tvd| 5518|
! -3 tvn| PRINT:| tvd| 5519|
! 2 tvn| OBJECT| tvd| 5520|
3 tvn| -methods-| tvd| 0|
! -4 tvn| GET:| tvd| 5521|
[...26488 lines suppressed...]
! 2 tvn| \+| tvd| 5332|
! 2 tvn| \-| tvd| 5333|
! 2 tvn| \IN-SYSTEM-OK| tvd| 5338|
! 2 tvn| \S| tvd| 5387|
! 2 tvn| ]MACRO| tvd| 5228|
! 2 tvn| __STDCALL| tvd| 5219|
! 2 tvn| {| tvd| 5410|
! 2 tvn| {:| tvd| 5409|
! 2 tvn| |IF| tvd| 4947|
! 2 tvn| |OF| tvd| 4946|
1 tvn| Deprecated| tvd| 0|
! 2 tvn| .DIR->FILE-NAME| tvd| 5089|
! 2 tvn| >BOLD| tvd| 4158|
! 2 tvn| >NORM| tvd| 4157|
! 2 tvn| ABS>REL| tvd| 5358|
! 2 tvn| REL>ABS| tvd| 5359|
! 2 tvn| TASK-SLEEP| tvd| 2593|
! 2 tvn| _PRINT-DIR-FILES| tvd| 5087|
1 tvn| Vocabularies| tvd| 0|
2 tvn| Application space| tvd| 0|
Index: HelpWrd.ndx
===================================================================
RCS file: /cvsroot/win32forth/win32forth/Help/hdb/HelpWrd.ndx,v
retrieving revision 1.14
retrieving revision 1.15
diff -C2 -d -r1.14 -r1.15
Binary files /tmp/cvs6ZsSsW and /tmp/cvsV0NpKy differ
|
|
From: George H. <geo...@us...> - 2011-11-18 11:08:08
|
Update of /cvsroot/win32forth/win32forth/src/lib
In directory vz-cvs-4.sog:/tmp/cvs-serv21609
Modified Files:
ButtonBar.f UpDownControl.f
Log Message:
Added Spinner doc and minor corrections.
Index: ButtonBar.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/lib/ButtonBar.f,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -d -r1.3 -r1.4
*** ButtonBar.f 29 Aug 2006 08:52:25 -0000 1.3
--- ButtonBar.f 18 Nov 2011 11:08:05 -0000 1.4
***************
*** 13,17 ****
EXTERNAL
! \ *T ExControls -- More (enhanced) classes for none standard windows controls.
\ ------------------------------------------------------------------------
--- 13,17 ----
EXTERNAL
! \ *T ExControls -- More (enhanced) classes for non-standard windows controls.
\ ------------------------------------------------------------------------
Index: UpDownControl.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/lib/UpDownControl.f,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -d -r1.3 -r1.4
*** UpDownControl.f 29 Aug 2006 08:52:25 -0000 1.3
--- UpDownControl.f 18 Nov 2011 11:08:05 -0000 1.4
***************
*** 109,123 ****
:Class SpinnerControl <Super UpDownControl
TextBox TheBox
! :m start: ( parent -- ) \ both must have same parent
! dup Start: TheBox
Start: super
;m
! :m TheBox: ( -- spinbox ) \ in case we need it directly for some reason
Addr: TheBox ;m
:m Move: ( x y w h -- )
Move: TheBox
\ allow the updowncontrol to move with the editcontrol
--- 109,130 ----
:Class SpinnerControl <Super UpDownControl
+ \ *G Spinner Control Class.
+
+ \ *P This class is a combination of an up-down control and a Text Box (the buddy).
+
TextBox TheBox
! :m start: ( parent -- )
! \ *G Start the control.
! dup Start: TheBox \ both must have same parent
Start: super
;m
! :m TheBox: ( -- spinbox )
! \ *G Object address of the text box for directly manipulating it (though it shouldn't really be done).
Addr: TheBox ;m
:m Move: ( x y w h -- )
+ \ *G Move the text box to the specified positon and the up-down control as well.
Move: TheBox
\ allow the updowncontrol to move with the editcontrol
***************
*** 125,135 ****
--- 132,146 ----
:m SetFont: ( hndl -- )
+ \ *G Set the font of the text box.
Setfont: TheBox ;m
:M Close: ( -- )
+ \ *G Close the control.
Close: TheBox
Close: self ;M
;class
+ \ *G End of Spinner Control Class.
+
MODULE
|
|
From: George H. <geo...@us...> - 2011-11-18 11:06:45
|
Update of /cvsroot/win32forth/win32forth/Help
In directory vz-cvs-4.sog:/tmp/cvs-serv20424
Modified Files:
HelpCreateDexhDocs.f HelpDexH.f
Log Message:
Updated docs and added $Id:$
Index: HelpCreateDexhDocs.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/Help/HelpCreateDexhDocs.f,v
retrieving revision 1.9
retrieving revision 1.10
diff -C2 -d -r1.9 -r1.10
*** HelpCreateDexhDocs.f 18 Nov 2011 01:32:27 -0000 1.9
--- HelpCreateDexhDocs.f 18 Nov 2011 11:06:43 -0000 1.10
***************
*** 74,77 ****
--- 74,78 ----
s" src\lib\Calendar.f" s" help\html\class-controls.htm" append-doc
s" src\lib\TabControl.f" s" help\html\class-controls.htm" append-doc
+ s" src\lib\UpDownControl.f" s" help\html\class-controls.htm" append-doc
+tr s" src\lib\ButtonBar.f" s" help\html\class-controls.htm" append-doc
Index: HelpDexH.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/Help/HelpDexH.f,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -d -r1.3 -r1.4
*** HelpDexH.f 23 Dec 2008 21:09:12 -0000 1.3
--- HelpDexH.f 18 Nov 2011 11:06:43 -0000 1.4
***************
*** 1,3 ****
! \ HelpDexH.f
\ *! dexh-Helpdexh
--- 1,3 ----
! \ $Id$
\ *! dexh-Helpdexh
|
|
From: George H. <geo...@us...> - 2011-11-18 11:04:31
|
Update of /cvsroot/win32forth/win32forth/Help/html In directory vz-cvs-4.sog:/tmp/cvs-serv20115 Modified Files: class-controls.htm Removed Files: clas-SQLite.htm clas-Sock.htm clas-sockserv.htm Log Message: Updated docs. --- clas-Sock.htm DELETED --- --- clas-sockserv.htm DELETED --- Index: class-controls.htm =================================================================== RCS file: /cvsroot/win32forth/win32forth/Help/html/class-controls.htm,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** class-controls.htm 17 Nov 2011 21:57:09 -0000 1.1 --- class-controls.htm 18 Nov 2011 11:04:29 -0000 1.2 *************** *** 776,779 **** --- 776,794 ---- </p><p><b><code>;Class </code></b><br>End of UpDownControl control + </p><p><b><code>:Class SpinnerControl <Super UpDownControl + </code></b><br>Spinner Control Class. + </p><p>This class is a combination of an up-down control and a Text Box (the buddy). + </p><p><b><code>:m start: ( parent -- ) + </code></b><br>Start the control. + </p><p><b><code>:m TheBox: ( -- spinbox ) + </code></b><br>Object address of the text box for directly manipulating it (though it shouldn't really be done). + </p><p><b><code>:m Move: ( x y w h -- ) + </code></b><br>Move the text box to the specified positon and the up-down control as well. + </p><p><b><code>:m SetFont: ( hndl -- ) + </code></b><br>Set the font of the text box. + </p><p><b><code>:M Close: ( -- ) + </code></b><br>Close the control. + </p><p><b><code> + </code></b><br>End of Spinner Control Class. </p><a name="CheckBox"></a> <h2>CheckBox class *************** *** 1673,1677 **** </code></b><br>End of MultiLineTabControl class </p><p>For a demo how to use the TabControl see: TabControlDemo.f ! </p><h1>ExControls -- More (enhanced) classes for none standard windows controls. </h1><a name="VertButtonBar"></a> <h2>VertButtonBar class --- 1688,1757 ---- </code></b><br>End of MultiLineTabControl class </p><p>For a demo how to use the TabControl see: TabControlDemo.f ! </p><a name="UpDownControl"></a> ! <h2>UpDownControl class ! </h2><p><b><code>:Class UpDownControl <Super Control ! </code></b><br>Up-Down control ! </p><p>An up-down control is a pair of arrow buttons that the user can click to ! increment or decrement a value, such as a scroll position or a number displayed ! in a companion control. ! </p><p>For 16 Bit values only. ! </p><p><b><code>:M ClassInit: ( -- ) ! </code></b><br>Initialise the class. ! </p><p><b><code>:M WindowStyle: ( -- style ) ! </code></b><br>Get the window style of the control. Default style is: ! WS_BORDER, UDS_ARROWKEYS, UDS_SETBUDDYINT and UDS_ALIGNRIGHT. ! </p><p><b><code>:M AddStyle: ( n -- ) ! </code></b><br>Set any additional style of the control. Must be done before the control ! is created. ! </p><p><b><code>:M Start: ( Parent -- ) ! </code></b><br>Create the control. ! </p><p><b><code>:M StartSize: ( -- cx cy ) ! </code></b><br>default window size ! </p><p><b><code>:M StartPos: ( -- x y ) ! </code></b><br>default window position ! </p><p><b><code>:M SetBuddy: ( hBuddy -- ) ! </code></b><br>Sets the buddy window for the up-down control. ! </p><p><b><code>:M GetValue: ( -- n ) ! </code></b><br>Retrieves the current position of the up-down control. ! Note: This method ABORT's on error. ! </p><p><b><code>:M SetValue: ( n -- ) ! </code></b><br>Set the current position for the up-down control. ! </p><p><b><code>:M SetDecimal: ( -- ) ! </code></b><br>Sets the radix base for the control to decimal. ! Decimal numbers are signed. ! </p><p><b><code>:M SetHex: ( -- ) ! </code></b><br>Sets the radix base for the control to hexadecimal. ! Hexadecimal numbers are always unsigned. ! </p><p><b><code>:M GetBase: ( -- n ) ! </code></b><br>Get the current radix base (that is, either base 10 or 16). ! </p><p><b><code>:M SetRange: ( lower upper -- ) ! </code></b><br>Sets the minimum and maximum positions (range) the control. ! Neither position can be greater than the UD_MAXVAL value or less than ! the UD_MINVAL value. In addition, the difference between the two positions ! cannot exceed UD_MAXVAL. ! </p><p><b><code>:M GetRange: ( -- lower upper ) ! </code></b><br>Retrieves the minimum and maximum positions (range) for the control. ! </p><p><b><code>:M Enable: ( f -- ) ! </code></b><br>Enable the control. ! </p><p><b><code>:M Disable: ( -- ) ! </code></b><br>Disable the control. ! </p><p><b><code>;Class ! </code></b><br>End of UpDownControl control ! </p><p><b><code>:Class SpinnerControl <Super UpDownControl ! </code></b><br>Spinner Control Class. ! </p><p>This class is a combination of an up-down control and a Text Box (the buddy). ! </p><p><b><code>:m start: ( parent -- ) ! </code></b><br>Start the control. ! </p><p><b><code>:m TheBox: ( -- spinbox ) ! </code></b><br>Object address of the text box for directly manipulating it (though it shouldn't really be done). ! </p><p><b><code>:m Move: ( x y w h -- ) ! </code></b><br>Move the text box to the specified positon and the up-down control as well. ! </p><p><b><code>:m SetFont: ( hndl -- ) ! </code></b><br>Set the font of the text box. ! </p><p><b><code>:M Close: ( -- ) ! </code></b><br>Close the control. ! </p><p><b><code> ! </code></b><br>End of Spinner Control Class. ! </p><h1>ExControls -- More (enhanced) classes for non-standard windows controls. </h1><a name="VertButtonBar"></a> <h2>VertButtonBar class --- clas-SQLite.htm DELETED --- |
|
From: George H. <geo...@us...> - 2011-11-18 01:51:42
|
Update of /cvsroot/win32forth/win32forth/Help In directory vz-cvs-4.sog:/tmp/cvs-serv29784 Modified Files: HelpTestTV.f Log Message: Added $Id:$ Index: HelpTestTV.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/Help/HelpTestTV.f,v retrieving revision 1.3 retrieving revision 1.4 diff -C2 -d -r1.3 -r1.4 *** HelpTestTV.f 21 Jul 2011 18:35:17 -0000 1.3 --- HelpTestTV.f 18 Nov 2011 01:51:40 -0000 1.4 *************** *** 1,3 **** ! \ HelpTestTv.f \ By Camille Doiteau - Feb 2008 --- 1,3 ---- ! \ $Id$ \ By Camille Doiteau - Feb 2008 |
|
From: George H. <geo...@us...> - 2011-11-18 01:47:13
|
Update of /cvsroot/win32forth/win32forth/Help/html In directory vz-cvs-4.sog:/tmp/cvs-serv28424 Added Files: w32f-relnotes.6.16.htm Removed Files: w32f-relnotes.6.15.htm Log Message: Recommit due to CVS problem --- w32f-relnotes.6.15.htm DELETED --- --- NEW FILE: w32f-relnotes.6.16.htm --- <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN" "http://www.w3.org/TR/html4/strict.dtd"> <html> <head> <title>Win32Forth Help</title> <link rel="stylesheet" type="text/css" href="style.css"> </head> <body> <h1>Release Notes for version 6.16.00 </h2> <h2>Contributors (in alphabetical order) </h2> <dir> <li>Robert Dudley Ackerman</li> <li>Ezra Boyce</li> <li>Dirk Busch</li> <li>Thomas Dixon</li> <li>Camille Doiteau</li> <li>Brad Eckert</li> <li>Bruno Gauthier</li> <li>George Hubert</li> <li>Alex McDonald</li> <li>Rod Oakford</li> <li>Andrew Stephenson</li> <li>Jos van de Ven</li> <li>and others...</li> </dir> <h2>Overview </h2> <h3>System Changes</h3> <ul> <li>Number of locals increased to 16.</li> <li>200X {: :} locals syntax added.</li> <li>EXECUTE-PARSING added.</li> <li>200X PARSE-NAME added.</li> <li>RECURSE now works correctly with :NONAME</li> <li>RESTORE-INPUT now repositions the file and rereads the line if input source is a file.</li> <li>USER area increased to 8192 bytes</li> <li>USER area moved down closer to parameter stack.</li> <li>New user variable TASK-STATUS added to provide 32 bit flags (8 for applications), plus access words.</li> <li>Assychronous callbacks in multi-media automatically handled.</li> <li>Opening source files associated with an editor (WinEd, SciEdit or Win32ForthIDE) when the editor is running causes the file to display in the running instance.</li> </ul> <h3>Bug fixes</h3> <p>A large number of bugs have been fixed. Changes can be found at the <a href="http://sourceforge.net/mailarchive/forum.php?forum_name=win32forth-cvs">CVS Commit List</a>.</p> <h2>New Applications</h2> <ul> </ul> <h2>New Tools</h2> <ul> </ul> <h2>New Controls</h2> <ul> </ul> <h2>New classes</h2> <ul> </ul> <h2>New Libraries</h2> </ul> <h2>New Demos</h2> <ul> </ul> <hr> <p>Document : w32f-relnotes.6.16.htm -- 2010/02/14 -- </p> </body> </html> |
Update of /cvsroot/win32forth/win32forth/Help/html In directory vz-cvs-4.sog:/tmp/cvs-serv28169 Removed Files: clas-BitmapDC.htm clas-ExtDC.htm clas-HTMLcontrol.htm clas-TimerWindow.htm clas-TrayWindow.htm clas-control.htm clas-controls.htm clas-dialog.htm clas-file.htm clas-gdiBase.htm clas-gdiBitmap.htm clas-gdiBrush.htm clas-gdiDC.htm clas-gdiFont.htm clas-gdiMetafile.htm clas-gdiPen.htm clas-gdiStruct.htm clas-gdiWindowDC.htm clas-window.htm Log Message: Recommit due to CVS problem --- clas-gdiWindowDC.htm DELETED --- --- clas-gdiBrush.htm DELETED --- --- clas-BitmapDC.htm DELETED --- --- clas-controls.htm DELETED --- --- clas-TimerWindow.htm DELETED --- --- clas-gdiMetafile.htm DELETED --- --- clas-TrayWindow.htm DELETED --- --- clas-dialog.htm DELETED --- --- clas-HTMLcontrol.htm DELETED --- --- clas-gdiFont.htm DELETED --- --- clas-gdiPen.htm DELETED --- --- clas-file.htm DELETED --- --- clas-gdiBitmap.htm DELETED --- --- clas-gdiDC.htm DELETED --- --- clas-window.htm DELETED --- --- clas-gdiBase.htm DELETED --- --- clas-ExtDC.htm DELETED --- --- clas-control.htm DELETED --- --- clas-gdiStruct.htm DELETED --- |
|
From: George H. <geo...@us...> - 2011-11-18 01:36:51
|
Update of /cvsroot/win32forth/win32forth/Help/hdb
In directory vz-cvs-4.sog:/tmp/cvs-serv26484
Modified Files:
Help.cfg HelpCls.tv HelpSummary.tv HelpWrd.hdb HelpWrd.ndx
HelpWrd.tv HelpWrd.txt
Log Message:
Recommit due to CVS problem
Index: HelpCls.tv
===================================================================
RCS file: /cvsroot/win32forth/win32forth/Help/hdb/HelpCls.tv,v
retrieving revision 1.9
retrieving revision 1.10
diff -C2 -d -r1.9 -r1.10
*** HelpCls.tv 19 Aug 2011 13:03:15 -0000 1.9
--- HelpCls.tv 18 Nov 2011 01:36:48 -0000 1.10
***************
*** 1,2291 ****
! 0 tvn| CLASSROOT| tvd| 5514|
1 tvn| -methods-| tvd| 0|
! -2 tvn| CLASSINIT:| tvd| 5515|
! -2 tvn| ~:| tvd| 5516|
! -2 tvn| ADDR:| tvd| 5517|
! -2 tvn| PRINT:| tvd| 5518|
! 1 tvn| OBJECT| tvd| 5519|
2 tvn| -methods-| tvd| 0|
! -3 tvn| GET:| tvd| 5520|
! -3 tvn| PUT:| tvd| 5521|
[...4553 lines suppressed...]
! -4 tvn| FIELDNAME:| tvd| 8578|
! -4 tvn| GETINT:| tvd| 8579|
! -4 tvn| GETDOUBLE:| tvd| 8580|
! -4 tvn| GETFLOAT:| tvd| 8581|
! -4 tvn| GETSTR:| tvd| 8582|
! -4 tvn| GETBLOB:| tvd| 8583|
! -4 tvn| ISNULL?:| tvd| 8584|
! -4 tvn| NEXTROW:| tvd| 8585|
! -4 tvn| (BIND):| tvd| 8586|
! -4 tvn| BINDINT:| tvd| 8587|
! -4 tvn| BINDDOUBLE:| tvd| 8588|
! -4 tvn| BINDFLOAT:| tvd| 8589|
! -4 tvn| BINDSTR:| tvd| 8590|
! -4 tvn| BINDBLOB:| tvd| 8591|
! 1 tvn| STRING| tvd| 8598|
2 tvn| -methods-| tvd| 0|
! -3 tvn| GET:| tvd| 8599|
! -3 tvn| PUT:| tvd| 8600|
! -3 tvn| ADD:| tvd| 8601|
! -3 tvn| APPEND:| tvd| 8602|
Index: Help.cfg
===================================================================
RCS file: /cvsroot/win32forth/win32forth/Help/hdb/Help.cfg,v
retrieving revision 1.6
retrieving revision 1.7
diff -C2 -d -r1.6 -r1.7
*** Help.cfg 18 Aug 2011 15:47:23 -0000 1.6
--- Help.cfg 18 Nov 2011 01:36:48 -0000 1.7
***************
*** 3,7 ****
[WindowW] 1021
[WindowH] 708
! [SplitterV] 217
[SplitterH] 112
\ No newline at end of file
--- 3,7 ----
[WindowW] 1021
[WindowH] 708
! [SplitterV] 282
[SplitterH] 112
\ No newline at end of file
Index: HelpSummary.tv
===================================================================
RCS file: /cvsroot/win32forth/win32forth/Help/hdb/HelpSummary.tv,v
retrieving revision 1.10
retrieving revision 1.11
diff -C2 -d -r1.10 -r1.11
*** HelpSummary.tv 25 Feb 2010 19:37:35 -0000 1.10
--- HelpSummary.tv 18 Nov 2011 01:36:48 -0000 1.11
***************
*** 1,2 ****
--- 1,4 ----
+ \ $Id$
+
\ HELP SUMMARY DESCRIPTION
***************
*** 48,53 ****
2 tvn| FAQ| tvd| help\html\w32f-faq.htm| \ <-- OK
1 tvn| Release notes - Upgrading| tvd| |
! 2 tvn| How to convert from version 6.12.00| tvd| help\html\w32f-MoveTo.6.14.htm| \ <-- OK for now
! 2 tvn| Future version 6.16.00 or 7.00.00| tvd| help\html\w32f-relnotes.6.15.htm| \ <-- OK
2 tvn| What's new in version 6.14.00| tvd| help\html\w32f-relnotes.6.14.htm| \ <-- OK
2 tvn| Version 6.12.00| tvd| help\html\w32f-relnotes.6.12.htm| \ <-- OK
--- 50,55 ----
2 tvn| FAQ| tvd| help\html\w32f-faq.htm| \ <-- OK
1 tvn| Release notes - Upgrading| tvd| |
! 2 tvn| How to convert from version 6.12.00| tvd| help\html\w32f-MoveTo.6.14.htm| \ <-- OK for now
! 2 tvn| Future version 6.16.00| tvd| help\html\w32f-relnotes.6.16.htm| \ <-- OK
2 tvn| What's new in version 6.14.00| tvd| help\html\w32f-relnotes.6.14.htm| \ <-- OK
2 tvn| Version 6.12.00| tvd| help\html\w32f-relnotes.6.12.htm| \ <-- OK
Index: HelpWrd.hdb
===================================================================
RCS file: /cvsroot/win32forth/win32forth/Help/hdb/HelpWrd.hdb,v
retrieving revision 1.13
retrieving revision 1.14
diff -C2 -d -r1.13 -r1.14
Binary files /tmp/cvsSDzLFv and /tmp/cvsf2YUeN differ
Index: HelpWrd.tv
===================================================================
RCS file: /cvsroot/win32forth/win32forth/Help/hdb/HelpWrd.tv,v
retrieving revision 1.12
retrieving revision 1.13
diff -C2 -d -r1.12 -r1.13
*** HelpWrd.tv 19 Aug 2011 13:03:15 -0000 1.12
--- HelpWrd.tv 18 Nov 2011 01:36:48 -0000 1.13
***************
*** 1,5278 ****
0 tvn| Words| tvd| 0|
! 1 tvn| CLASSROOT| tvd| 5514|
2 tvn| -methods-| tvd| 0|
! -3 tvn| CLASSINIT:| tvd| 5515|
! -3 tvn| ~:| tvd| 5516|
! -3 tvn| ADDR:| tvd| 5517|
! -3 tvn| PRINT:| tvd| 5518|
! 2 tvn| OBJECT| tvd| 5519|
3 tvn| -methods-| tvd| 0|
! -4 tvn| GET:| tvd| 5520|
[...21386 lines suppressed...]
2 tvn| \| tvd| 4266|
! 2 tvn| \| tvd| 2781|
! 2 tvn| \+| tvd| 5331|
! 2 tvn| \-| tvd| 5332|
! 2 tvn| \IN-SYSTEM-OK| tvd| 5337|
! 2 tvn| \S| tvd| 5386|
! 2 tvn| ]MACRO| tvd| 5227|
! 2 tvn| __STDCALL| tvd| 5218|
! 2 tvn| {| tvd| 5409|
! 2 tvn| {:| tvd| 5408|
2 tvn| |IF| tvd| 4946|
2 tvn| |OF| tvd| 4945|
1 tvn| Deprecated| tvd| 0|
2 tvn| .DIR->FILE-NAME| tvd| 5088|
! 2 tvn| >BOLD| tvd| 4157|
! 2 tvn| >NORM| tvd| 4156|
! 2 tvn| ABS>REL| tvd| 5357|
! 2 tvn| REL>ABS| tvd| 5358|
2 tvn| TASK-SLEEP| tvd| 2592|
2 tvn| _PRINT-DIR-FILES| tvd| 5086|
Index: HelpWrd.ndx
===================================================================
RCS file: /cvsroot/win32forth/win32forth/Help/hdb/HelpWrd.ndx,v
retrieving revision 1.13
retrieving revision 1.14
diff -C2 -d -r1.13 -r1.14
Binary files /tmp/cvsHW006f and /tmp/cvsBkrbez differ
Index: HelpWrd.txt
===================================================================
RCS file: /cvsroot/win32forth/win32forth/Help/hdb/HelpWrd.txt,v
retrieving revision 1.13
retrieving revision 1.14
diff -C2 -d -r1.13 -r1.14
*** HelpWrd.txt 19 Aug 2011 13:03:15 -0000 1.13
--- HelpWrd.txt 18 Nov 2011 01:36:48 -0000 1.14
***************
*** 1447,1453 ****
CREATE USERCONFIG$
BYTES &PS
- : (CLASSINIT) ( n1 -- )
: (CLASSINIT) ( x y width height -- )
: (CLASSINIT) ( -- )
CONSTANT 1/1
CONSTANT 1/2
--- 1447,1453 ----
CREATE USERCONFIG$
BYTES &PS
[...1355 lines suppressed...]
\ followed by null.
--- 13500,13504 ----
: PATH: ( -- )
\ Defines a directory search path.
! \ The first cell holds a pointer to 2 cells in the user area which are used to handle a search path.
\ The next 260 bytes are reserved for a counted string of a path.
\ followed by null.
***************
*** 14649,14653 ****
INT PS_TOP
:M PUSHKEY: ( c1 -- )
! \ override to process keys yoruself.
: REGISTER-FRAME-WINDOW ( -- f )
\ Init the window class and register it.
--- 14651,14655 ----
INT PS_TOP
:M PUSHKEY: ( c1 -- )
! \ override to process keys yourself.
: REGISTER-FRAME-WINDOW ( -- f )
\ Init the window class and register it.
|
|
From: George H. <geo...@us...> - 2011-11-18 01:34:13
|
Update of /cvsroot/win32forth/win32forth/Help/html In directory vz-cvs-4.sog:/tmp/cvs-serv26394 Removed Files: clas-Mdi.htm clas-gdiMetafileDC.htm Log Message: Recommit due to CVS problem --- clas-gdiMetafileDC.htm DELETED --- --- clas-Mdi.htm DELETED --- |
|
From: George H. <geo...@us...> - 2011-11-18 01:32:29
|
Update of /cvsroot/win32forth/win32forth/Help/html In directory vz-cvs-4.sog:/tmp/cvs-serv26220/html Removed Files: clas-childwnd.htm Log Message: Recommit due to CVS problem --- clas-childwnd.htm DELETED --- |
|
From: George H. <geo...@us...> - 2011-11-18 00:33:08
|
Update of /cvsroot/win32forth/win32forth/Help/html/Guides In directory vz-cvs-4.sog:/tmp/cvs-serv14136 Added Files: nright.gif Log Message: Recommit due to CVS problem --- NEW FILE: nright.gif --- (This appears to be a binary file; contents omitted.) |
|
From: George H. <geo...@us...> - 2011-11-17 20:56:44
|
Update of /cvsroot/win32forth/win32forth/Help In directory vz-cvs-4.sog:/tmp/cvs-serv32626 Modified Files: HelpMain.f Log Message: Added $Id:$ Index: HelpMain.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/Help/HelpMain.f,v retrieving revision 1.9 retrieving revision 1.10 diff -C2 -d -r1.9 -r1.10 *** HelpMain.f 19 Aug 2011 13:03:15 -0000 1.9 --- HelpMain.f 17 Nov 2011 20:56:42 -0000 1.10 *************** *** 1,3 **** ! \ HelpMain.f \ By Camille Doiteau - Feb 2008 --- 1,3 ---- ! \ $Id$ \ By Camille Doiteau - Feb 2008 |
1040 messages has been excluded from this view by a project administrator.
