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...> - 2008-08-17 11:19:40
|
Update of /cvsroot/win32forth/win32forth/demos In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv10285 Added Files: BANNER_BLK_ReadFirst.txt Log Message: Jos: Explanation for those who only know about F12 of FLOAD --- NEW FILE: BANNER_BLK_ReadFirst.txt --- BANNER.BLK is a block file. The use of F12 or fload is not possible. Steps to run BANNER.BLK ( Replace E: in the location where your Win32Forth is located. ) 1) FLOAD E:\win32forth\src\lib\BLOCK.F 2) OPEN-BLOCKFILE E:\win32forth\DEMOS\BANNER.BLK 3) 1 7 thru Enter the word demo to run the demo again. |
|
From: Jos v.d.V. <jo...@us...> - 2008-08-17 11:16:04
|
Update of /cvsroot/win32forth/win32forth/demos In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv7953 Modified Files: BANNER.BLK Log Message: Jos: Removed the DBG command. Index: BANNER.BLK =================================================================== RCS file: /cvsroot/win32forth/win32forth/demos/BANNER.BLK,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** BANNER.BLK 28 Oct 2006 10:56:40 -0000 1.1 --- BANNER.BLK 17 Aug 2008 11:15:57 -0000 1.2 *************** *** 1 **** ! \ \ BANNER.SEQ Compliments of F83X mod to sequential by Tom Z CREATE CHAR-MATRIX \ build the character generator HEX ( ) 00 C, 00 C, 00 C, 00 C, 00 C, 00 C, 00 C, 00 C, ( !) 20 C, 20 C, 20 C, 20 C, 20 C, 00 C, 20 C, 00 C, ( ") 50 C, 50 C, 50 C, 00 C, 00 C, 00 C, 00 C, 00 C, ( #) 50 C, 50 C, F8 C, 50 C, F8 C, 50 C, 50 C, 00 C, ( $) 20 C, 78 C, A0 C, 70 C, 28 C, F0 C, 20 C, 00 C, ( %) C0 C, C8 C, 10 C, 20 C, 40 C, 98 C, 18 C, 00 C, ( &) 40 C, A0 C, A0 C, 40 C, A8 C, 90 C, 68 C, 00 C, ( ') 30 C, 30 C, 10 C, 20 C, 00 C, 00 C, 00 C, 00 C, ( () 20 C, 40 C, 80 C, 80 C, 80 C, 40 C, 20 C, 00 C, ( ) 20 C, 10 C, 08 C, 08 C, 08 C, 10 C, 20 C, 00 C, ( *) 20 C, a8 C, 70 C, 20 C, 70 C, a8 C, 20 C, 00 C, \ ( +) 00 C, 20 C, 20 C, 70 C, 20 C, 20 C, 00 C, 00 C, ( ,) 00 C, 00 C, 00 C, 30 C, 30 C, 10 C, 20 C, 00 C, ( -) 00 C, 00 C, 00 C, 70 C, 00 C, 00 C, 00 C, 00 C, ( .) 00 C, 00 C, 00 C, 00 C, 00 C, 30 C, 30 C, 00 C, ( /) 00 C, 08 C, 10 C, 20 C, 40 C, 80 C, 00 C, 00 C, ( 0) 70 C, 88 C, 98 C, A8 C, C8 C, 88 C, 70 C, 00 C, ( 1) 20 C, 60 C, 20 C, 20 C, 20 C, 20 C, 70 C, 00 C, ( 2) 70 C, 88 C, 08 C, 30 C, 40 C, 80 C, F8 C, 00 C, ( 3) F8 C, 10 C, 20 C, 30 C, 08 C, 88 C, 70 C, 00 C, ( 4) 10 C, 30 C, 50 C, 90 C, F8 C, 10 C, 10 C, 00 C, ( 5) F8 C, 80 C, F0 C, 08 C, 08 C, 88 C, 70 C, 00 C, ( 6) 38 C, 40 C, 80 C, F0 C, 88 C, 88 C, 70 C, 00 C, ( 7) F8 C, 08 C, 10 C, 20 C, 40 C, 40 C, 40 C, 00 C, ( 8) 70 C, 88 C, 88 C, 70 C, 88 C, 88 C, 70 C, 00 C, \ ( 9) 70 C, 88 C, 88 C, 78 C, 08 C, 10 C, E0 C, 00 C, ( :) 00 C, 60 C, 60 C, 00 C, 60 C, 60 C, 00 C, 00 C, ( ;) 00 C, 60 C, 60 C, 00 C, 60 C, 60 C, 40 C, 00 C, ( <) 10 C, 20 C, 40 C, 80 C, 40 C, 20 C, 10 C, 00 C, ( =) 00 C, 00 C, F8 C, 00 C, F8 C, 00 C, 00 C, 00 C, ( >) 40 C, 20 C, 10 C, 08 C, 10 C, 20 C, 40 C, 00 C, ( ?) 70 C, 88 C, 10 C, 20 C, 20 C, 00 C, 20 C, 00 C, ( @) 70 C, 88 C, A8 C, B8 C, B0 C, 80 C, 78 C, 00 C, ( A) 20 C, 70 C, 88 C, 88 C, F8 C, 88 C, 88 C, 00 C, ( B) F0 C, 88 C, 88 C, F0 C, 88 C, 88 C, F0 C, 00 C, ( C) 70 C, 88 C, 80 C, 80 C, 80 C, 88 C, 70 C, 00 C, ( D) F0 C, 48 C, 48 C, 48 C, 48 C, 48 C, F0 C, 00 C, ( E) F8 C, 80 C, 80 C, F0 C, 80 C, 80 C, F8 C, 00 C, ( F) F8 C, 80 C, 80 C, F0 C, 80 C, 80 C, 80 C, 00 C, \ ( G) 78 C, 80 C, 80 C, 80 C, 98 C, 88 C, 78 C, 00 C, ( H) 88 C, 88 C, 88 C, F8 C, 88 C, 88 C, 88 C, 00 C, ( I) 70 C, 20 C, 20 C, 20 C, 20 C, 20 C, 70 C, 00 C, ( J) 08 C, 08 C, 08 C, 08 C, 08 C, 88 C, 78 C, 00 C, ( K) 88 C, 90 C, A0 C, C0 C, A0 C, 90 C, 88 C, 00 C, ( L) 80 C, 80 C, 80 C, 80 C, 80 C, 80 C, F8 C, 00 C, ( M) 88 C, D8 C, A8 C, A8 C, 88 C, 88 C, 88 C, 00 C, ( N) 88 C, 88 C, C8 C, A8 C, 98 C, 88 C, 88 C, 00 C, ( O) 70 C, 88 C, 88 C, 88 C, 88 C, 88 C, 70 C, 00 C, ( P) F0 C, 88 C, 88 C, F0 C, 80 C, 80 C, 80 C, 00 C, ( Q) 70 C, 88 C, 88 C, 88 C, A8 C, 90 C, 68 C, 00 C, ( R) F0 C, 88 C, 88 C, F0 C, A0 C, 90 C, 88 C, 00 C, ( S) 70 C, 88 C, 80 C, 70 C, 08 C, 88 C, 70 C, 00 C, ( T) F8 C, 20 C, 20 C, 20 C, 20 C, 20 C, 20 C, 00 C, \ ( U) 88 C, 88 C, 88 C, 88 C, 88 C, 88 C, 70 C, 00 C, ( V) 88 C, 88 C, 88 C, 88 C, 88 C, 50 C, 20 C, 00 C, ( W) 88 C, 88 C, 88 C, A8 C, A8 C, D8 C, 88 C, 00 C, ( X) 88 C, 88 C, 50 C, 20 C, 50 C, 88 C, 88 C, 00 C, ( Y) 88 C, 88 C, 50 C, 20 C, 20 C, 20 C, 20 C, 00 C, ( Z) F8 C, 08 C, 10 C, 20 C, 40 C, 80 C, F8 C, 00 C, ( [) 78 C, 40 C, 40 C, 40 C, 40 C, 40 C, 78 C, 00 C, ( \) 00 C, 80 C, 40 C, 20 C, 10 C, 08 C, 00 C, 00 C, ( ]) F0 C, 10 C, 10 C, 10 C, 10 C, 10 C, F0 C, 00 C, ( ^) 00 C, 00 C, 20 C, 50 C, 88 C, 00 C, 00 C, 00 C, ( _) 00 C, 00 C, 00 C, 00 C, 00 C, 00 C, 00 C, F8 C, DECIMAL CREATE BITS ( --- a1 ) 128 C, 64 C, 32 C, 16 C, 8 C, 4 C, 2 C, 1 C, \ : BIT ( N1 --- F1 ) BITS + C@ AND 0= 1+ ; : LC>UC ( c -- ) DUP 96 128 WITHIN 32 AND - ; : BANNER ( a n -- ) BOUNDS 8 0 DO CR 2DUP ?DO I C@ 127 AND LC>UC 32 - 8 * CHAR-MATRIX + J + C@ 7 0 DO DUP I BIT IF ASCII # ELSE BL THEN EMIT LOOP DROP LOOP LOOP 2DROP ; \ : DEMO ( --- ) \ print demonstration message CLS CR s" WELCOME" BANNER s" TO FORTH" BANNER 2 SECONDS CLS CR s" BANNER" BANNER s" PROGRAM" BANNER s" FROM F83X" BANNER ; dbg DEMO \ No newline at end of file --- 1 ---- ! \ \ BANNER.SEQ Compliments of F83X mod to sequential by Tom Z CREATE CHAR-MATRIX \ build the character generator HEX ( ) 00 C, 00 C, 00 C, 00 C, 00 C, 00 C, 00 C, 00 C, ( !) 20 C, 20 C, 20 C, 20 C, 20 C, 00 C, 20 C, 00 C, ( ") 50 C, 50 C, 50 C, 00 C, 00 C, 00 C, 00 C, 00 C, ( #) 50 C, 50 C, F8 C, 50 C, F8 C, 50 C, 50 C, 00 C, ( $) 20 C, 78 C, A0 C, 70 C, 28 C, F0 C, 20 C, 00 C, ( %) C0 C, C8 C, 10 C, 20 C, 40 C, 98 C, 18 C, 00 C, ( &) 40 C, A0 C, A0 C, 40 C, A8 C, 90 C, 68 C, 00 C, ( ') 30 C, 30 C, 10 C, 20 C, 00 C, 00 C, 00 C, 00 C, ( () 20 C, 40 C, 80 C, 80 C, 80 C, 40 C, 20 C, 00 C, ( ) 20 C, 10 C, 08 C, 08 C, 08 C, 10 C, 20 C, 00 C, ( *) 20 C, a8 C, 70 C, 20 C, 70 C, a8 C, 20 C, 00 C, \ ( +) 00 C, 20 C, 20 C, 70 C, 20 C, 20 C, 00 C, 00 C, ( ,) 00 C, 00 C, 00 C, 30 C, 30 C, 10 C, 20 C, 00 C, ( -) 00 C, 00 C, 00 C, 70 C, 00 C, 00 C, 00 C, 00 C, ( .) 00 C, 00 C, 00 C, 00 C, 00 C, 30 C, 30 C, 00 C, ( /) 00 C, 08 C, 10 C, 20 C, 40 C, 80 C, 00 C, 00 C, ( 0) 70 C, 88 C, 98 C, A8 C, C8 C, 88 C, 70 C, 00 C, ( 1) 20 C, 60 C, 20 C, 20 C, 20 C, 20 C, 70 C, 00 C, ( 2) 70 C, 88 C, 08 C, 30 C, 40 C, 80 C, F8 C, 00 C, ( 3) F8 C, 10 C, 20 C, 30 C, 08 C, 88 C, 70 C, 00 C, ( 4) 10 C, 30 C, 50 C, 90 C, F8 C, 10 C, 10 C, 00 C, ( 5) F8 C, 80 C, F0 C, 08 C, 08 C, 88 C, 70 C, 00 C, ( 6) 38 C, 40 C, 80 C, F0 C, 88 C, 88 C, 70 C, 00 C, ( 7) F8 C, 08 C, 10 C, 20 C, 40 C, 40 C, 40 C, 00 C, ( 8) 70 C, 88 C, 88 C, 70 C, 88 C, 88 C, 70 C, 00 C, \ ( 9) 70 C, 88 C, 88 C, 78 C, 08 C, 10 C, E0 C, 00 C, ( :) 00 C, 60 C, 60 C, 00 C, 60 C, 60 C, 00 C, 00 C, ( ;) 00 C, 60 C, 60 C, 00 C, 60 C, 60 C, 40 C, 00 C, ( <) 10 C, 20 C, 40 C, 80 C, 40 C, 20 C, 10 C, 00 C, ( =) 00 C, 00 C, F8 C, 00 C, F8 C, 00 C, 00 C, 00 C, ( >) 40 C, 20 C, 10 C, 08 C, 10 C, 20 C, 40 C, 00 C, ( ?) 70 C, 88 C, 10 C, 20 C, 20 C, 00 C, 20 C, 00 C, ( @) 70 C, 88 C, A8 C, B8 C, B0 C, 80 C, 78 C, 00 C, ( A) 20 C, 70 C, 88 C, 88 C, F8 C, 88 C, 88 C, 00 C, ( B) F0 C, 88 C, 88 C, F0 C, 88 C, 88 C, F0 C, 00 C, ( C) 70 C, 88 C, 80 C, 80 C, 80 C, 88 C, 70 C, 00 C, ( D) F0 C, 48 C, 48 C, 48 C, 48 C, 48 C, F0 C, 00 C, ( E) F8 C, 80 C, 80 C, F0 C, 80 C, 80 C, F8 C, 00 C, ( F) F8 C, 80 C, 80 C, F0 C, 80 C, 80 C, 80 C, 00 C, \ ( G) 78 C, 80 C, 80 C, 80 C, 98 C, 88 C, 78 C, 00 C, ( H) 88 C, 88 C, 88 C, F8 C, 88 C, 88 C, 88 C, 00 C, ( I) 70 C, 20 C, 20 C, 20 C, 20 C, 20 C, 70 C, 00 C, ( J) 08 C, 08 C, 08 C, 08 C, 08 C, 88 C, 78 C, 00 C, ( K) 88 C, 90 C, A0 C, C0 C, A0 C, 90 C, 88 C, 00 C, ( L) 80 C, 80 C, 80 C, 80 C, 80 C, 80 C, F8 C, 00 C, ( M) 88 C, D8 C, A8 C, A8 C, 88 C, 88 C, 88 C, 00 C, ( N) 88 C, 88 C, C8 C, A8 C, 98 C, 88 C, 88 C, 00 C, ( O) 70 C, 88 C, 88 C, 88 C, 88 C, 88 C, 70 C, 00 C, ( P) F0 C, 88 C, 88 C, F0 C, 80 C, 80 C, 80 C, 00 C, ( Q) 70 C, 88 C, 88 C, 88 C, A8 C, 90 C, 68 C, 00 C, ( R) F0 C, 88 C, 88 C, F0 C, A0 C, 90 C, 88 C, 00 C, ( S) 70 C, 88 C, 80 C, 70 C, 08 C, 88 C, 70 C, 00 C, ( T) F8 C, 20 C, 20 C, 20 C, 20 C, 20 C, 20 C, 00 C, \ ( U) 88 C, 88 C, 88 C, 88 C, 88 C, 88 C, 70 C, 00 C, ( V) 88 C, 88 C, 88 C, 88 C, 88 C, 50 C, 20 C, 00 C, ( W) 88 C, 88 C, 88 C, A8 C, A8 C, D8 C, 88 C, 00 C, ( X) 88 C, 88 C, 50 C, 20 C, 50 C, 88 C, 88 C, 00 C, ( Y) 88 C, 88 C, 50 C, 20 C, 20 C, 20 C, 20 C, 00 C, ( Z) F8 C, 08 C, 10 C, 20 C, 40 C, 80 C, F8 C, 00 C, ( [) 78 C, 40 C, 40 C, 40 C, 40 C, 40 C, 78 C, 00 C, ( \) 00 C, 80 C, 40 C, 20 C, 10 C, 08 C, 00 C, 00 C, ( ]) F0 C, 10 C, 10 C, 10 C, 10 C, 10 C, F0 C, 00 C, ( ^) 00 C, 00 C, 20 C, 50 C, 88 C, 00 C, 00 C, 00 C, ( _) 00 C, 00 C, 00 C, 00 C, 00 C, 00 C, 00 C, F8 C, DECIMAL CREATE BITS ( --- a1 ) 128 C, 64 C, 32 C, 16 C, 8 C, 4 C, 2 C, 1 C, \ : BIT ( N1 --- F1 ) BITS + C@ AND 0= 1+ ; : LC>UC ( c -- ) DUP 96 128 WITHIN 32 AND - ; : BANNER ( a n -- ) BOUNDS 8 0 DO CR 2DUP ?DO I C@ 127 AND LC>UC 32 - 8 * CHAR-MATRIX + J + C@ 7 0 DO DUP I BIT IF ASCII # ELSE BL THEN EMIT LOOP DROP LOOP LOOP 2DROP ; \ : DEMO ( --- ) \ print demonstration message CLS CR s" WELCOME" BANNER s" TO FORTH" BANNER 2 SECONDS CLS CR s" BANNER" BANNER s" PROGRAM" BANNER s" FROM F83X" BANNER ; DEMO \ No newline at end of file |
|
From: Jos v.d.V. <jo...@us...> - 2008-08-16 17:59:24
|
Update of /cvsroot/win32forth/win32forth/demos In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv2651 Modified Files: ListViewDemo.f Log Message: Jos: Adapted for the new console Index: ListViewDemo.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/demos/ListViewDemo.f,v retrieving revision 1.14 retrieving revision 1.15 diff -C2 -d -r1.14 -r1.15 *** ListViewDemo.f 11 Jun 2006 09:53:44 -0000 1.14 --- ListViewDemo.f 16 Aug 2008 17:59:21 -0000 1.15 *************** *** 9,16 **** Needs ListView.f - Needs NoConsole.f Needs Resources.f ! 0 value turnkey? 20 constant FontHeight --- 9,15 ---- Needs ListView.f Needs Resources.f ! 1 value turnkey? 20 constant FontHeight *************** *** 392,396 **** turnkey? [if] - NoConsoleIO NoConsoleInImage ' main turnkey ListViewDemo.exe s" WIN32FOR.ICO" s" ListViewDemo.exe" AddAppIcon --- 391,394 ---- |
|
From: Jos v.d.V. <jo...@us...> - 2008-08-16 17:14:27
|
Update of /cvsroot/win32forth/win32forth/demos In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv17147 Modified Files: ROMCALC.F Log Message: Jos: Adapted for the new console Index: ROMCALC.F =================================================================== RCS file: /cvsroot/win32forth/win32forth/demos/ROMCALC.F,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 *** ROMCALC.F 18 Jul 2008 23:05:40 -0000 1.2 --- ROMCALC.F 16 Aug 2008 17:14:23 -0000 1.3 *************** *** 716,720 **** : do-romcalc ( -- ) decimal ! Start: CalcWindow ; ' do-romcalc turnkey romcalc \ Create a standalone program with the --- 716,721 ---- : do-romcalc ( -- ) decimal ! Start: CalcWindow begin messageloop again ! ; ' do-romcalc turnkey romcalc \ Create a standalone program with the |
|
From: Jos v.d.V. <jo...@us...> - 2008-08-16 15:18:35
|
Update of /cvsroot/win32forth/win32forth/demos In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv32734 Modified Files: HtmlDisplay.f MultiHello.f PdfControlDemo.f WINCLOCK.F WINHELLO.F Log Message: Jos: Adapted for the new console or changed Win32Forth environment. Index: PdfControlDemo.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/demos/PdfControlDemo.f,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** PdfControlDemo.f 18 Sep 2005 11:10:31 -0000 1.1 --- PdfControlDemo.f 16 Aug 2008 15:18:30 -0000 1.2 *************** *** 54,58 **** pdfwin pwin start: pwin ! s" doc\Forth_Primer.pdf" Prepend<home>\ loadfile: pwin drop --- 54,58 ---- pdfwin pwin start: pwin ! s" Help\html\Guides\And_so_Forth.pdf" Prepend<home>\ loadfile: pwin drop Index: HtmlDisplay.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/demos/HtmlDisplay.f,v retrieving revision 1.3 retrieving revision 1.4 diff -C2 -d -r1.3 -r1.4 *** HtmlDisplay.f 15 Sep 2005 16:36:09 -0000 1.3 --- HtmlDisplay.f 16 Aug 2008 15:18:30 -0000 1.4 *************** *** 34,39 **** Start: MainWindow1 ! s" doc\p-index.htm" Prepend<home>\ PAD place PAD +null PAD 1+ SetURL: MainWindow1 Start: MainWindow2 ! s" doc\dpans\dpans.htm" Prepend<home>\ PAD place PAD +null PAD 1+ SetURL: MainWindow2 --- 34,39 ---- Start: MainWindow1 ! s" Help\html\dpans\dpans.htm" Prepend<home>\ PAD place PAD +null PAD 1+ SetURL: MainWindow1 Start: MainWindow2 ! s" Help\html\Guides\primer_Noble.htm" Prepend<home>\ PAD place PAD +null PAD 1+ SetURL: MainWindow2 Index: WINHELLO.F =================================================================== RCS file: /cvsroot/win32forth/win32forth/demos/WINHELLO.F,v retrieving revision 1.4 retrieving revision 1.5 diff -C2 -d -r1.4 -r1.5 *** WINHELLO.F 26 Apr 2008 11:14:33 -0000 1.4 --- WINHELLO.F 16 Aug 2008 15:18:30 -0000 1.5 *************** *** 5,12 **** only forth also definitions - needs NoConsole.f needs Resources.f ! false value turnkey? \ --------------------------------------------------------------- --- 5,12 ---- only forth also definitions needs Resources.f ! \ false ! 1 value turnkey? \ --------------------------------------------------------------- *************** *** 103,109 **** turnkey? [if] - NoConsoleIO \ Setup the Console I/O for an application without the console window. - NoConsoleInImage \ Tell Imageman that we don't need the w32fconsole.dll. - \ Create the exe-file &forthdir count &appdir place --- 103,106 ---- Index: MultiHello.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/demos/MultiHello.f,v retrieving revision 1.3 retrieving revision 1.4 diff -C2 -d -r1.3 -r1.4 *** MultiHello.f 30 May 2008 20:18:44 -0000 1.3 --- MultiHello.f 16 Aug 2008 15:18:30 -0000 1.4 *************** *** 5,9 **** needs task.f - needs NoConsole.f needs Resources.f --- 5,8 ---- *************** *** 205,211 **** turnkey? [if] - NoConsoleIO \ Setup the Console I/O for an application without the console window. - NoConsoleInImage \ Tell Imageman that we don't need the w32fconsole.dll. - \ Create the exe-file &forthdir count &appdir place --- 204,207 ---- Index: WINCLOCK.F =================================================================== RCS file: /cvsroot/win32forth/win32forth/demos/WINCLOCK.F,v retrieving revision 1.5 retrieving revision 1.6 diff -C2 -d -r1.5 -r1.6 *** WINCLOCK.F 30 Apr 2008 15:51:08 -0000 1.5 --- WINCLOCK.F 16 Aug 2008 15:18:30 -0000 1.6 *************** *** 5,9 **** only forth also definitions - needs NoConsole.f needs Resources.f needs lib\BitmapDC.f --- 5,8 ---- *************** *** 367,373 **** turnkey? [if] - NoConsoleIO \ Setup the Console I/O for an application without the console window. - NoConsoleInImage \ Tell Imageman that we don't need the w32fconsole.dll. - \ Create the exe-file &forthdir count &appdir place --- 366,369 ---- |
|
From: Jos v.d.V. <jo...@us...> - 2008-08-16 13:31:50
|
Update of /cvsroot/win32forth/win32forth/src/console In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv24368/console Modified Files: NewConsole.f Log Message: Jos: To simplify console applications. Saving boring cut and past actions. Index: NewConsole.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/console/NewConsole.f,v retrieving revision 1.18 retrieving revision 1.19 diff -C2 -d -r1.18 -r1.19 *** NewConsole.f 15 Aug 2008 21:00:18 -0000 1.18 --- NewConsole.f 16 Aug 2008 13:31:47 -0000 1.19 *************** *** 175,179 **** ; )) ! 32 NEWUSER MessageStructure : MessageLoop ( -- ) --- 175,179 ---- ; )) ! 32 NEWUSER MessageStructure : MessageLoop ( -- ) *************** *** 413,423 **** : New-default-hello ( -- ) \ for turnkey ! initialization-chain do-chain ! exception@ if bye then ! get-commandline \ commandline to SOURCE ! default-application ! ; ! ' New-default-hello is default-hello MODULE --- 413,454 ---- : New-default-hello ( -- ) \ for turnkey ! initialization-chain do-chain ! exception@ if bye then ! get-commandline beep \ commandline to SOURCE ! default-application ! ; ! ' New-default-hello is default-hello \ turnkey is default ! ! : hello-console-application ( -- ) \ for applications in the console ! initialization-chain do-chain \ default initialization (needed for all apps ) ! init-console drop \ start console ( will be seen ) ! unset-except set-except \ exception handling needs to be set after the console is started ! exception@ if bye then ! menu-off \ close menubar ! HideStatusBar: ConsoleWindow \ close the statusbar ! init-screen \ show console ! get-commandline \ copy commandline to SOURCE ! default-application \ and run our app ! ; ! ! ! : hello-application ( -- ) \ start an application in its own window (hidden console) ! initialization-chain do-chain ! NewConsole ! init-console drop \ start console ( will NOT be seen ) ! unset-except set-except \ exception handling needs to be set after the console is started ! exception@ if bye then ! StopLaunching not \ if instance allowed to run ! if default-application then \ then run it ! ; ! ! : in-hidden-console ( -- ) \ changes default-hello for hidden console applications ! ['] hello-application is default-hello ! ; ! ! : in-console ( -- ) \ changes default-hello for applications in a visible console ! ['] hello-console-application is default-hello ! ; MODULE |
|
From: Jos v.d.V. <jo...@us...> - 2008-08-16 13:31:50
|
Update of /cvsroot/win32forth/win32forth/src In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv24368 Modified Files: imageman.f Log Message: Jos: To simplify console applications. Saving boring cut and past actions. Index: imageman.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/imageman.f,v retrieving revision 1.15 retrieving revision 1.16 diff -C2 -d -r1.15 -r1.16 *** imageman.f 29 Jun 2008 05:12:40 -0000 1.15 --- imageman.f 16 Aug 2008 13:31:47 -0000 1.16 *************** *** 824,827 **** --- 824,833 ---- startup. BOTH THESE VALUES ARE NOW IGNORED. APPLICATION is now effectively a synonym of FSAVE. + + Note: When you use the new console then you can choose to run + the application in a visible console or in a hidden console. + That can be done with the words in-console or in-hidden-console. + See NewConsole.f for the details + )) *************** *** 971,976 **** --- 977,985 ---- ; + defer console-application ' noop is console-application + : APPLICATION ( app-mem sys-mem app-cfa -<name>- ) \ create application "name" depth 3 < abort" Need 3 arguments, APP-MEM SYS-MEM and APP-CFA" + console-application \ Determines what default-hello will be used >r 2drop action-of boot |
|
From: Jos v.d.V. <jo...@us...> - 2008-08-16 13:31:39
|
Update of /cvsroot/win32forth/win32forth/apps/Internet/WebServer In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv24353 Modified Files: WebServer.F Log Message: Jos: To simplify console applications. Saving boring cut and past actions. Index: WebServer.F =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/Internet/WebServer/WebServer.F,v retrieving revision 1.4 retrieving revision 1.5 diff -C2 -d -r1.4 -r1.5 *** WebServer.F 13 Aug 2008 11:40:54 -0000 1.4 --- WebServer.F 16 Aug 2008 13:31:35 -0000 1.5 *************** *** 77,123 **** ; ! \ create a turnkey application create-turnkey? [IF] ! also hidden ! (( ! : www-server-hello ( -- ) \ startup stuff ! \ default initialization (needed for all turnkey apps) ! init-console ! if initialization-chain do-chain then ! exception@ if bye then ! ! \ our own initialization ! menu-off \ close menubar ! ['] _interpret is interpret \ close the statusbar ! Destroy: ConsoleStatusbar ! init-screen \ show console ! ! get-commandline \ copy commandline to SOURCE ! default-application \ and run our app ! ; ! )) ! : www-server-hello ( -- ) \ startup stuff ! \ default initialization (needed for all turnkey apps) ! initialization-chain do-chain ! init-console drop ! unset-except set-except \ exception handling needs to be set after the console is started ! exception@ if bye then ! ! \ our own initialization ! menu-off \ close menubar ! HideStatusBar: ConsoleWindow \ close the statusbar ! init-screen \ show console ! get-commandline \ copy commandline to SOURCE ! default-application \ and run our app ! ; ! ! previous ! ! \ override default-hello with our own one ! ' www-server-hello is default-hello \ and create the application ! &forthdir count &appdir place 0 0 ' www-server APPLICATION WebServer.exe 1 pause-seconds bye --- 77,87 ---- ; ! \ create an application that runs in the console create-turnkey? [IF] ! in-console \ and create the application ! &forthdir count &appdir place \ in the Forth-directory 0 0 ' www-server APPLICATION WebServer.exe 1 pause-seconds bye |
|
From: Jos v.d.V. <jo...@us...> - 2008-08-16 13:31:29
|
Update of /cvsroot/win32forth/win32forth/apps/Console-Games In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv24329/Console-Games Modified Files: strek.f tetris.f Log Message: Jos: To simplify console applications. Saving boring cut and past actions. Index: strek.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/Console-Games/strek.f,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 *** strek.f 13 Aug 2008 11:40:41 -0000 1.2 --- strek.f 16 Aug 2008 13:31:24 -0000 1.3 *************** *** 1534,1539 **** --- 1534,1543 ---- ; + : set-console-title ( -- ) + Z" Super Star Trek" CONHNDL call SetWindowText drop ; + : strek ( -- ) \ page + set-console-title cr cr cr ." ------*------, " *************** *** 1551,1587 **** ; ! \ create a turnkey application ! create-turnkey? [IF] ! ! : set-console-title ( -- ) ! Z" Super Star Trek" CONHNDL call SetWindowText drop ; ! ! also hidden ! ! : strek-hello ( -- ) \ startup stuff ! ! \ default initialization (needed for all turnkey apps) ! initialization-chain do-chain ! init-console drop ! unset-except set-except \ exception handling needs to be set after the console is started ! exception@ if bye then ! ! \ our own initialization ! menu-off \ close menubar ! HideStatusBar: ConsoleWindow \ close the statusbar ! set-console-title \ set window title ! init-screen \ show console ! get-commandline \ copy commandline to SOURCE ! default-application \ and run our app ! ; ! previous ! \ override default-hello with our own one ! ' strek-hello is default-hello ! \ and create the turnkey app. ! &forthdir count &appdir place 0 0 ' strek APPLICATION StarTrek.exe 1 pause-seconds bye --- 1555,1569 ---- ; ! \ create an application that runs in the console ! create-turnkey? [IF] ! \ override default-hello to start ! in-console \ the application in a visible console ! \ create the application ! &forthdir count &appdir place \ in the Forth-directory 0 0 ' strek APPLICATION StarTrek.exe + 1 pause-seconds bye Index: tetris.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/Console-Games/tetris.f,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 *** tetris.f 13 Aug 2008 11:40:41 -0000 1.2 --- tetris.f 16 Aug 2008 13:31:24 -0000 1.3 *************** *** 390,395 **** forth definitions : tt \ --- ; play the tetris game ! initialize s" Press any key " bottom-msg key drop draw-bottom begin --- 390,398 ---- forth definitions + : set-console-title ( -- ) + Z" Tetris" CONHNDL call SetWindowText drop ; + : tt \ --- ; play the tetris game ! set-console-title initialize s" Press any key " bottom-msg key drop draw-bottom begin *************** *** 403,438 **** ! \ create a turnkey application create-turnkey? [IF] ! : set-console-title ( -- ) ! Z" Tetris" CONHNDL call SetWindowText drop ; ! ! also hidden ! ! : tetris-hello ( -- ) \ startup stuff ! ! \ default initialization (needed for all turnkey apps) ! initialization-chain do-chain ! init-console drop ! exception@ if bye then ! unset-except set-except \ exception handling needs to be set after the console is started ! ! \ our own initialization ! menu-off \ close menubar ! HideStatusBar: ConsoleWindow \ close the statusbar ! set-console-title \ set window title ! init-screen \ show console ! get-commandline \ copy commandline to SOURCE ! default-application \ and run our app ! ; ! ! previous ! ! \ override default-hello with our own one ! ' tetris-hello is default-hello ! \ and create the turnkey app. ! &forthdir count &appdir place 0 0 ' tt APPLICATION tetris.exe 1 pause-seconds bye --- 406,417 ---- ! \ create an application in the console create-turnkey? [IF] ! \ override default-hello to start ! in-console \ the application in a visible console ! \ create the application ! &forthdir count &appdir place \ in the Forth-directory 0 0 ' tt APPLICATION tetris.exe 1 pause-seconds bye |
|
From: Jos v.d.V. <jo...@us...> - 2008-08-16 13:31:28
|
Update of /cvsroot/win32forth/win32forth/apps/WinEd In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv24329/WinEd Modified Files: WinEd.f Log Message: Jos: To simplify console applications. Saving boring cut and past actions. Index: WinEd.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/WinEd/WinEd.f,v retrieving revision 1.19 retrieving revision 1.20 diff -C2 -d -r1.19 -r1.20 *** WinEd.f 2 Aug 2008 15:45:48 -0000 1.19 --- WinEd.f 16 Aug 2008 13:31:25 -0000 1.20 *************** *** 119,135 **** [DEFINED] C_EMIT [IF] \ When the new console is used ! : New-default-hello ( -- ) \ startup stuff ! initialization-chain do-chain ! NewConsole ! init-console drop \ start console hidden ! \ init-screen \ start console visible ! exception@ if bye then ! unset-except set-except \ exception handling needs to be set after the console is started ! exception@ if bye then ! \ get-commandline \ commandline to SOURCE ! default-application ! ; ! ! ' New-default-hello is default-hello [THEN] --- 119,123 ---- [DEFINED] C_EMIT [IF] \ When the new console is used ! in-hidden-console [THEN] |
|
From: Jos v.d.V. <jo...@us...> - 2008-08-16 13:31:28
|
Update of /cvsroot/win32forth/win32forth/apps/Win32ForthIDE In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv24329/Win32ForthIDE Modified Files: Main.f Log Message: Jos: To simplify console applications. Saving boring cut and past actions. Index: Main.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/Win32ForthIDE/Main.f,v retrieving revision 1.52 retrieving revision 1.53 diff -C2 -d -r1.52 -r1.53 *** Main.f 27 Jul 2008 07:21:51 -0000 1.52 --- Main.f 16 Aug 2008 13:31:24 -0000 1.53 *************** *** 1229,1244 **** [DEFINED] C_EMIT [IF] \ When the new console is used ! : New_default-hello ( -- ) \ startup stuff ! initialization-chain do-chain ! NewConsole ! init-console drop \ start console hidden ! \ init-screen \ start console visible ! unset-except set-except \ exception handling needs to be set after the console is started ! exception@ if bye then ! \ get-commandline \ commandline to SOURCE ! StopLaunching not \ if instance allowed to run ! if default-application then \ then run it ! ; ! ' New_default-hello is default-hello [THEN] --- 1229,1233 ---- [DEFINED] C_EMIT [IF] \ When the new console is used ! in-hidden-console [THEN] |
|
From: Jos v.d.V. <jo...@us...> - 2008-08-15 21:00:22
|
Update of /cvsroot/win32forth/win32forth/src/console In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv25628 Modified Files: NewConsole.f Log Message: Jos: Improved as George first suggested till someone finds the solution for the bug in LocalAlloc: Index: NewConsole.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/console/NewConsole.f,v retrieving revision 1.17 retrieving revision 1.18 diff -C2 -d -r1.17 -r1.18 *** NewConsole.f 15 Aug 2008 11:29:03 -0000 1.17 --- NewConsole.f 15 Aug 2008 21:00:18 -0000 1.18 *************** *** 175,179 **** ; )) ! Create MessageStructure 32 allot : MessageLoop ( -- ) --- 175,179 ---- ; )) ! 32 NEWUSER MessageStructure : MessageLoop ( -- ) |
|
From: Rod O. <rod...@us...> - 2008-08-15 11:29:07
|
Update of /cvsroot/win32forth/win32forth/src/console In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv22342 Modified Files: CommandWindow.f NewConsole.f Log Message: Rod: paste-load now pastes and executes all lines from the clipboard Index: NewConsole.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/console/NewConsole.f,v retrieving revision 1.16 retrieving revision 1.17 diff -C2 -d -r1.16 -r1.17 *** NewConsole.f 13 Aug 2008 17:00:09 -0000 1.16 --- NewConsole.f 15 Aug 2008 11:29:03 -0000 1.17 *************** *** 269,272 **** --- 269,273 ---- : c_key? ( -- f ) + cmd.ClipboardHandle IF false exit THEN \ seem to need to disable key? during paste KeysOff: cmd \ PauseForMessage Index: CommandWindow.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/console/CommandWindow.f,v retrieving revision 1.12 retrieving revision 1.13 diff -C2 -d -r1.12 -r1.13 *** CommandWindow.f 14 Aug 2008 22:12:45 -0000 1.12 --- CommandWindow.f 15 Aug 2008 11:29:03 -0000 1.13 *************** *** 947,954 **** ;M ! :M Paste: ( -- ) \ paste only the first line (less CR) in commandline CF_TEXT call IsClipboardFormatAvailable IF hWnd call OpenClipboard drop CF_TEXT call GetClipboardData dup call GlobalLock zcount --- 947,994 ---- ;M ! int ClipboardHandle ! int ClipboardAddress ! int ClipboardCount ! ! : OpenClipboard ( -- ) CF_TEXT call IsClipboardFormatAvailable IF hWnd call OpenClipboard drop + CF_TEXT call GetClipboardData dup to ClipboardHandle + call GlobalLock zcount to ClipboardCount to ClipboardAddress + THEN + ; + + : CloseClipboard ( -- ) + ClipboardHandle call GlobalUnlock drop + call CloseClipboard drop + 0 to ClipboardHandle + ; + + :M EmptyClipboard: ( -- ) hWnd call OpenClipboard drop call EmptyClipboard drop call CloseClipboard drop ;M + + :M Paste: ( -- ) \ paste (and execute) all text in the clipboard to the commandline + ClipboardHandle 0= IF OpenClipboard ClipboardHandle 0= IF beep exitm THEN THEN + ClipboardAddress ClipboardCount 2dup 2dup 13 scan nip dup>r - dup>r \ next line without CRLF + pad place pad +null pad 1+ InsertTextOnCommandLine: self r> r> \ chars inserted, chars remaining + IF + /string 13 skip 10 skip to ClipboardCount to ClipboardAddress \ lines remaining + EndPrompt: self + ClipboardCount + IF 'V' +k_control PutKey: self \ repeat Paste: + ELSE CloseClipboard + THEN + ELSE + 3drop + 0 to ClipboardCount + CloseClipboard + THEN + true to editing + ;M + + :M PasteFirstLine: ( -- ) \ paste only the first line (less CR) to the commandline + CF_TEXT call IsClipboardFormatAvailable + IF + hWnd call OpenClipboard drop CF_TEXT call GetClipboardData dup call GlobalLock zcount |
|
From: Rod O. <rod...@us...> - 2008-08-14 22:12:49
|
Update of /cvsroot/win32forth/win32forth/src/console In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv20695 Modified Files: CommandWindow.f Log Message: Rod: improved scrolling Index: CommandWindow.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/console/CommandWindow.f,v retrieving revision 1.11 retrieving revision 1.12 diff -C2 -d -r1.11 -r1.12 *** CommandWindow.f 12 Aug 2008 17:05:32 -0000 1.11 --- CommandWindow.f 14 Aug 2008 22:12:45 -0000 1.12 *************** *** 465,488 **** ;M ! :M AutoScroll: ( -- ) \ scroll caret into view ! WindowState: parent SIZE_MINIMIZED = IF exitm THEN ! BEGIN CaretPos @ width iRightMargin - > WHILE PauseForMessages HorzLine negate HScroll SCP REPEAT ! BEGIN CaretPos @ iLeftMargin < WHILE HorzLine HScroll SCP REPEAT ! BEGIN CaretPos cell+ @ VertLine + height > WHILE VertLine negate VScroll SCP UpdatePoint: self REPEAT ! BEGIN CaretPos cell+ @ 0 < WHILE VertLine VScroll SCP UpdatePoint: self REPEAT UpdateHScroll: self ! UpdateVScroll: self ;M ! (( ! :M AutoVScroll: ( -- ) \ scroll caret into view vertically after cr ! BEGIN CaretPos cell+ @ VertLine + height > WHILE VertLine negate VScroll SCP UpdatePoint: self Update: self REPEAT ! BEGIN CaretPos cell+ @ 0 < WHILE VertLine VScroll SCP Update: self REPEAT UpdateVScroll: self ;M ! )) ! :M AutoHScroll: ( -- ) \ scroll caret into view horizontally after cr ! BEGIN CaretPos @ width iRightMargin - > WHILE PauseForMessages HorzLine negate HScroll SCP REPEAT ! BEGIN CaretPos @ iLeftMargin < WHILE HorzLine HScroll SCP REPEAT UpdateHScroll: self ;M --- 465,495 ---- ;M ! :M AutoHScroll: ( -- ) \ scroll caret into view horizontally ! PauseForMessages ! iLeftMargin CaretPos @ - 0 max ! width iRightMargin - CaretPos @ - 0 min + HScroll UpdateHScroll: self ! SCP ;M ! ! :M AutoVScroll: ( -- ) \ scroll caret into view vertically ! PauseForMessages ! 0 CaretPos cell+ @ - 0 max ! height VertLine - CaretPos cell+ @ - 0 min + VScroll UpdateVScroll: self + SCP ;M ! ! :M AutoScroll: ( -- ) \ scroll caret into view ! WindowState: parent SIZE_MINIMIZED = IF exitm THEN ! UpdatePoint: self \ force a paint to update text size ! PauseForMessages ! iLeftMargin CaretPos @ - 0 max ! width iRightMargin - CaretPos @ - 0 min + HScroll ! 0 CaretPos cell+ @ - 0 max ! height VertLine - CaretPos cell+ @ - 0 min + VScroll UpdateHScroll: self + UpdateVScroll: self + \ SCP ;M |
|
From: Jos v.d.V. <jo...@us...> - 2008-08-13 22:05:29
|
Update of /cvsroot/win32forth/win32forth/Help In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv27031 Modified Files: HelpCreateDexhDocs.f Log Message: Jos: helpdexh.f is in an other directory. Index: HelpCreateDexhDocs.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/Help/HelpCreateDexhDocs.f,v retrieving revision 1.4 retrieving revision 1.5 diff -C2 -d -r1.4 -r1.5 *** HelpCreateDexhDocs.f 16 Jun 2008 04:59:04 -0000 1.4 --- HelpCreateDexhDocs.f 13 Aug 2008 22:05:24 -0000 1.5 *************** *** 125,130 **** s" src\ansfile.f" s" help\html\dexh-ansfile.htm" create-doc s" src\lib\switch.f" s" help\html\dexh-switch.htm" create-doc ! ! s" help\helpdexh.f" s" help\html\dexh-helpdexh.htm" create-doc s" help\HelpMain.f" s" help\html\dexh-HelpMain.htm" create-doc s" src\w32fmsg.f" s" help\html\dexh-w32fmsg.htm" create-doc --- 125,129 ---- s" src\ansfile.f" s" help\html\dexh-ansfile.htm" create-doc s" src\lib\switch.f" s" help\html\dexh-switch.htm" create-doc ! s" src\tools\helpdexh.f" s" help\html\dexh-helpdexh.htm" create-doc s" help\HelpMain.f" s" help\html\dexh-HelpMain.htm" create-doc s" src\w32fmsg.f" s" help\html\dexh-w32fmsg.htm" create-doc |
|
From: Jos v.d.V. <jo...@us...> - 2008-08-13 21:55:07
|
Update of /cvsroot/win32forth/win32forth/Help In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv23617 Modified Files: HelpScope.f Log Message: Jos: A number of sources could not be handled. Index: HelpScope.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/Help/HelpScope.f,v retrieving revision 1.4 retrieving revision 1.5 diff -C2 -d -r1.4 -r1.5 *** HelpScope.f 3 Aug 2008 10:52:16 -0000 1.4 --- HelpScope.f 13 Aug 2008 21:55:03 -0000 1.5 *************** *** 154,158 **** SrcScope: src\tools\dump.f \ HEX dump ! SrcScope: src\console\console2.f \ Console I/O part 2 SrcScope: src\debug.f \ (sys) debug --- 154,158 ---- SrcScope: src\tools\dump.f \ HEX dump ! \ SrcScope: src\console\console2.f \ Console I/O part 2 ( hangs ) SrcScope: src\debug.f \ (sys) debug *************** *** 166,170 **** SrcScope: src\environ.f \ (sys) environment? support ! SrcScope: src\console\lineedit.f \ line editor utility SrcScope: src\utils.f \ load other misc utility words SrcScope: src\exceptio.f \ windows exception handling --- 166,170 ---- SrcScope: src\environ.f \ (sys) environment? support ! \ SrcScope: src\console\lineedit.f \ line editor utility ( hangs ) SrcScope: src\utils.f \ load other misc utility words SrcScope: src\exceptio.f \ windows exception handling *************** *** 197,204 **** SrcScope: src\console\forthdlg.f \ console dialogs ! SrcScope: src\keysave.f \ keyboard macro recording SrcScope: src\tools\tools.f \ various tool's SrcScope: src\lib\LoadProject.f \ Loads latest project ! SrcScope: src\console\ConsoleMenu.f \ console menu bar \ SrcScope: src\console\ConsoleStatBar.f \ console status bar \ useless for now \ SrcScope: src\console\BasicWin.f \ Basic window for console \ useless for now --- 197,204 ---- SrcScope: src\console\forthdlg.f \ console dialogs ! \ SrcScope: src\keysave.f \ keyboard macro recording ( hangs ) SrcScope: src\tools\tools.f \ various tool's SrcScope: src\lib\LoadProject.f \ Loads latest project ! \ SrcScope: src\console\ConsoleMenu.f \ console menu bar ( hangs ) \ SrcScope: src\console\ConsoleStatBar.f \ console status bar \ useless for now \ SrcScope: src\console\BasicWin.f \ Basic window for console \ useless for now *************** *** 218,222 **** SrcScope: src\gdi\gdiMetafileDC.f ! SrcScope: src\console\noconsole.f \ 2) Library files : --- 218,222 ---- SrcScope: src\gdi\gdiMetafileDC.f ! \ SrcScope: src\console\noconsole.f ( hangs ) \ 2) Library files : |
|
From: Jos v.d.V. <jo...@us...> - 2008-08-13 21:10:47
|
Update of /cvsroot/win32forth/win32forth In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv7352 Modified Files: setup.exe Log Message: Jos: Made with the new console Index: setup.exe =================================================================== RCS file: /cvsroot/win32forth/win32forth/setup.exe,v retrieving revision 1.33 retrieving revision 1.34 diff -C2 -d -r1.33 -r1.34 Binary files /tmp/cvsFPTg2H and /tmp/cvsQSLuxa differ |
|
From: Jos v.d.V. <jo...@us...> - 2008-08-13 21:08:34
|
Update of /cvsroot/win32forth/win32forth/apps/Setup In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv5767 Modified Files: Setup.f Log Message: Jos: Moved to the new console Index: Setup.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/Setup/Setup.f,v retrieving revision 1.16 retrieving revision 1.17 diff -C2 -d -r1.16 -r1.17 *** Setup.f 2 Aug 2008 22:19:23 -0000 1.16 --- Setup.f 13 Aug 2008 21:08:30 -0000 1.17 *************** *** 232,236 **** : buildstage1 ." -- Stage 1" cr ! c" FKERNEL.EXE fload src\extend.f bye" procexec c" WIN32FOR.EXE" filecheck ; --- 232,236 ---- : buildstage1 ." -- Stage 1" cr ! c" FKERNEL.EXE fload src\extendnew.f bye" procexec c" WIN32FOR.EXE" filecheck ; *************** *** 250,254 **** : buildextend ." -- Extend" cr ! c" FKERNEL.EXE fload src\extend.f bye" procexec c" WIN32FOR.EXE" filecheck ; --- 250,254 ---- : buildextend ." -- Extend" cr ! c" FKERNEL.EXE fload src\extendnew.f bye" procexec c" WIN32FOR.EXE" filecheck ; *************** *** 274,278 **** : buildforthform cr ! cr ." *** ForthForm can no longer be built *** " cr comment: [cdo] --- 274,278 ---- : buildforthform cr ! cr ." *** ForthForm has been moved to the IDE *** " cr comment: [cdo] *************** *** 285,289 **** : buildproject cr ! cr ." *** ProjectManager can no longer be built *** " cr comment: [cdo] --- 285,289 ---- : buildproject cr ! cr ." *** ProjectManager has been moved to the IDE *** " cr comment: [cdo] *************** *** 296,300 **** : buildscintilla cr ! cr ." *** SciEdit can no longer be built *** " cr comment: [cdo] --- 296,300 ---- : buildscintilla cr ! cr ." *** SciEdit has been moved to the IDE *** " cr comment: [cdo] |
|
From: Jos v.d.V. <jo...@us...> - 2008-08-13 21:00:40
|
Update of /cvsroot/win32forth/win32forth/Help In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv1623 Modified Files: HelpMain.f Log Message: Jos: Moved to the new console Index: HelpMain.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/Help/HelpMain.f,v retrieving revision 1.4 retrieving revision 1.5 diff -C2 -d -r1.4 -r1.5 *** HelpMain.f 29 Jun 2008 10:46:35 -0000 1.4 --- HelpMain.f 13 Aug 2008 21:00:35 -0000 1.5 *************** *** 136,140 **** true value Turnkey? - needs noconsole.f needs resources.f --- 136,139 ---- *************** *** 578,583 **** Nostack turnkey? ! [if] NoConsoleIO NoConsoleInImage ! &forthdir count &appdir place \ to make it compile from every directory w32fHelp to NewAppID true to RunUnique --- 577,581 ---- Nostack turnkey? ! [if] &forthdir count &appdir place \ to make it compile from every directory w32fHelp to NewAppID true to RunUnique |
|
From: Jos v.d.V. <jo...@us...> - 2008-08-13 17:01:26
|
Update of /cvsroot/win32forth/win32forth/apps/PlayVirginRadio In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv1112 Modified Files: PlayVirginRadio.f Log Message: Jos: Adapted for the new messageloop. Index: PlayVirginRadio.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/PlayVirginRadio/PlayVirginRadio.f,v retrieving revision 1.11 retrieving revision 1.12 diff -C2 -d -r1.11 -r1.12 *** PlayVirginRadio.f 13 Aug 2008 11:40:43 -0000 1.11 --- PlayVirginRadio.f 13 Aug 2008 17:01:23 -0000 1.12 *************** *** 152,156 **** StartPlayer Turnkeyed? ! IF MessageLoop bye THEN ; --- 152,159 ---- StartPlayer Turnkeyed? ! IF ! begin Call WaitMessage drop \ Wait for a new msg ! MessageLoop ! again THEN ; |
|
From: Jos v.d.V. <jo...@us...> - 2008-08-13 17:00:16
|
Update of /cvsroot/win32forth/win32forth/src/console In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv642 Modified Files: NewConsole.f Log Message: Jos: Solved the black screen in chess. Index: NewConsole.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/console/NewConsole.f,v retrieving revision 1.15 retrieving revision 1.16 diff -C2 -d -r1.15 -r1.16 *** NewConsole.f 13 Aug 2008 11:41:05 -0000 1.15 --- NewConsole.f 13 Aug 2008 17:00:09 -0000 1.16 *************** *** 175,182 **** ; )) ! : MessageLoop { | pMsg -- } ! 7 cells LocalAlloc: pMsg ! BEGIN 0 0 0 pMsg Call GetMessage ! WHILE pMsg HandleMessages drop REPEAT ; --- 175,183 ---- ; )) ! Create MessageStructure 32 allot ! ! : MessageLoop ( -- ) ! BEGIN 0 0 0 MessageStructure Call GetMessage ! WHILE MessageStructure HandleMessages drop REPEAT ; |
|
From: Jos v.d.V. <jo...@us...> - 2008-08-13 13:16:12
|
Update of /cvsroot/win32forth/win32forth/apps/Solipon2 In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv8055 Modified Files: SOLIPION.F Log Message: Jos: Moved to the new console. Index: SOLIPION.F =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/Solipon2/SOLIPION.F,v retrieving revision 1.9 retrieving revision 1.10 diff -C2 -d -r1.9 -r1.10 *** SOLIPION.F 3 May 2008 08:44:05 -0000 1.9 --- SOLIPION.F 13 Aug 2008 13:16:08 -0000 1.10 *************** *** 3,7 **** only forth also definitions ! needs NoConsole.f needs Resources.f --- 3,7 ---- only forth also definitions ! \ needs NoConsole.f needs Resources.f *************** *** 952,955 **** --- 952,956 ---- else ekey then + case 13 of Game endof *************** *** 1044,1052 **** ; ! turnkey? [if] \ Create the exe-file &forthdir count &appdir place ! ' solipion turnkey Solipion.exe \ add the Application icon to the EXE file --- 1045,1072 ---- ; ! : solipon-hello ( -- ) \ startup stuff ! \ default initialization (needed for all turnkey apps) ! initialization-chain do-chain ! init-console drop ! unset-except set-except \ exception handling needs to be set after the console is started ! exception@ if bye then ! ! \ our own initialization ! menu-off \ close menubar ! HideStatusBar: ConsoleWindow \ close the statusbar ! \ init-screen \ show console ! \ get-commandline \ copy commandline to SOURCE ! default-application \ and run our app ! ; ! ! ! turnkey? [if] \ ekey and pushkey can only be used in applications ! ! \ override default-hello with our own one ! ' solipon-hello is default-hello \ Create the exe-file &forthdir count &appdir place ! 0 0 ' solipion APPLICATION Solipion.exe \ add the Application icon to the EXE file |
|
From: Jos v.d.V. <jo...@us...> - 2008-08-13 11:41:10
|
Update of /cvsroot/win32forth/win32forth/src/console In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv5402 Modified Files: NewConsole.f Log Message: Jos: Enabled MessageLoop and moved a number of applications to the new console. Others will follow... Index: NewConsole.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/console/NewConsole.f,v retrieving revision 1.14 retrieving revision 1.15 diff -C2 -d -r1.14 -r1.15 *** NewConsole.f 12 Aug 2008 17:05:32 -0000 1.14 --- NewConsole.f 13 Aug 2008 11:41:05 -0000 1.15 *************** *** 173,177 **** PM_REMOVE 0 0 0 pMsg Call PeekMessage IF pMsg HandleMessages drop THEN ! ; : MessageLoop { | pMsg -- } --- 173,177 ---- PM_REMOVE 0 0 0 pMsg Call PeekMessage IF pMsg HandleMessages drop THEN ! ; )) : MessageLoop { | pMsg -- } *************** *** 181,185 **** REPEAT ; - )) \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ --- 181,184 ---- |
|
From: Jos v.d.V. <jo...@us...> - 2008-08-13 11:40:58
|
Update of /cvsroot/win32forth/win32forth/apps/Internet/WebServer In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv5151 Modified Files: WebServer.F Log Message: Jos: Enabled MessageLoop and moved a number of applications to the new console. Others will follow... Index: WebServer.F =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/Internet/WebServer/WebServer.F,v retrieving revision 1.3 retrieving revision 1.4 diff -C2 -d -r1.3 -r1.4 *** WebServer.F 7 Jul 2007 18:12:13 -0000 1.3 --- WebServer.F 13 Aug 2008 11:40:54 -0000 1.4 *************** *** 24,28 **** Z" Win32Forth - HTTP Web Server" conHndl call SetWindowText drop ; ! s" doc\" Prepend<home>\ webpath place \ *G the path to the web content --- 24,28 ---- Z" Win32Forth - HTTP Web Server" conHndl call SetWindowText drop ; ! s" Help\html\" Prepend<home>\ webpath place \ *G the path to the web content *************** *** 57,61 **** \ ** Tell your firewall that Win32Forth is allowed to use port 80. \n \ ** Then you should able to see the server in your browser by using: \n ! \ ** http://localhost/p-index.htm \n \ ** Assuming that the file p-index.htm is in your webpath. \n \ ** When you would like to use the websever over the internet. \n --- 57,61 ---- \ ** Tell your firewall that Win32Forth is allowed to use port 80. \n \ ** Then you should able to see the server in your browser by using: \n ! \ ** http://localhost/DPANSE.HTM \n \ ** Assuming that the file p-index.htm is in your webpath. \n \ ** When you would like to use the websever over the internet. \n *************** *** 67,71 **** cls ." The Win32Forth HTTP Web Server is running." cr ! server-choose-path cr ." webpath = " webpath count type cr --- 67,71 ---- cls ." The Win32Forth HTTP Web Server is running." cr ! server-choose-path ( EG: ~\win32forth\Help\html\dpans ) cr ." webpath = " webpath count type cr *************** *** 81,85 **** also hidden ! : www-server-hello ( -- ) \ startup stuff \ default initialization (needed for all turnkey apps) --- 81,85 ---- also hidden ! (( : www-server-hello ( -- ) \ startup stuff \ default initialization (needed for all turnkey apps) *************** *** 97,100 **** --- 97,115 ---- default-application \ and run our app ; + )) + : www-server-hello ( -- ) \ startup stuff + \ default initialization (needed for all turnkey apps) + initialization-chain do-chain + init-console drop + unset-except set-except \ exception handling needs to be set after the console is started + exception@ if bye then + + \ our own initialization + menu-off \ close menubar + HideStatusBar: ConsoleWindow \ close the statusbar + init-screen \ show console + get-commandline \ copy commandline to SOURCE + default-application \ and run our app + ; previous |
|
From: Jos v.d.V. <jo...@us...> - 2008-08-13 11:40:48
|
Update of /cvsroot/win32forth/win32forth/apps/PlayVirginRadio In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv5118/PlayVirginRadio Modified Files: PlayVirginRadio.f Log Message: Jos: Enabled MessageLoop and moved a number of applications to the new console. Others will follow... Index: PlayVirginRadio.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/PlayVirginRadio/PlayVirginRadio.f,v retrieving revision 1.10 retrieving revision 1.11 diff -C2 -d -r1.10 -r1.11 *** PlayVirginRadio.f 2 Dec 2006 10:17:30 -0000 1.10 --- PlayVirginRadio.f 13 Aug 2008 11:40:43 -0000 1.11 *************** *** 18,22 **** needs HtmlControl.f needs SoundVolume.f ! needs NoConsole.f needs Resources.f --- 18,22 ---- needs HtmlControl.f needs SoundVolume.f ! \ needs NoConsole.f needs Resources.f *************** *** 157,166 **** turnkey? [if] - \ Setup the Console I/O for an application without the console window. - NoConsoleIO - - \ Tell Imageman that we don't need the w32fconsole.dll. - NoConsoleInImage - \ Create the exe-file &forthdir count &appdir place --- 157,160 ---- |
1040 messages has been excluded from this view by a project administrator.
