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: George H. <geo...@us...> - 2013-03-30 21:02:50
|
Update of /cvsroot/win32forth/win32forth/src In directory sfp-cvs-1.v30.ch3.sourceforge.com:/tmp/cvs-serv18936 Modified Files: Tag: V614XX BUTTON.F Menu.f Log Message: Bug fixes for CMOVE CMOVE> WORD RESIZE RECURSE and RESTORE-INPUT Index: BUTTON.F =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/BUTTON.F,v retrieving revision 1.2 retrieving revision 1.2.6.1 diff -C2 -d -r1.2 -r1.2.6.1 *** BUTTON.F 24 Aug 2005 07:24:10 -0000 1.2 --- BUTTON.F 30 Mar 2013 21:02:48 -0000 1.2.6.1 *************** *** 410,414 **** GetBCnt: BuildBar 1+ PutBCnt: BuildBar \ bump count :noname to bfunc ! hide !csp ; --- 410,414 ---- GetBCnt: BuildBar 1+ PutBCnt: BuildBar \ bump count :noname to bfunc ! !csp ; *************** *** 481,485 **** GetBCnt: BuildBar 1+ PutBCnt: BuildBar \ bump count :noname to bfunc ! hide !csp ; --- 481,485 ---- GetBCnt: BuildBar 1+ PutBCnt: BuildBar \ bump count :noname to bfunc ! !csp ; *************** *** 691,695 **** then GetPrev: hb to hb ! repeat then ;M --- 691,695 ---- then GetPrev: hb to hb ! repeat then ;M *************** *** 706,710 **** :M On_Done: ( -- ) On_Done: super ! FALSE to started? ;M --- 706,710 ---- :M On_Done: ( -- ) On_Done: super ! FALSE to started? ;M *************** *** 820,824 **** GetBCnt: BuildBar 1+ PutBCnt: BuildBar \ bump count :noname to bfunc ! hide !csp ; --- 820,824 ---- GetBCnt: BuildBar 1+ PutBCnt: BuildBar \ bump count :noname to bfunc ! !csp ; *************** *** 887,891 **** :M GetBheight: ( -- edit_height ) editheight ! ;M :M StartSize: ( width height ) --- 887,891 ---- :M GetBheight: ( -- edit_height ) editheight ! ;M :M StartSize: ( width height ) *************** *** 949,953 **** :M GetBheight: ( -- edit_height ) bheight ! ;M :M StartSize: ( width height ) --- 949,953 ---- :M GetBheight: ( -- edit_height ) bheight ! ;M :M StartSize: ( width height ) Index: Menu.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/Menu.f,v retrieving revision 1.6 retrieving revision 1.6.6.1 diff -C2 -d -r1.6 -r1.6.6.1 *** Menu.f 27 Jun 2007 07:31:16 -0000 1.6 --- Menu.f 30 Mar 2013 21:02:48 -0000 1.6.6.1 *************** *** 262,266 **** NextId to mid :noname to mfunc ! hide !csp BREAK_FLAG to BROKEN_FLAG 0 to BREAK_FLAG --- 262,266 ---- NextId to mid :noname to mfunc ! !csp BREAK_FLAG to BROKEN_FLAG 0 to BREAK_FLAG *************** *** 539,543 **** m"text" :noname to mfunc ! hide !csp ; --- 539,543 ---- m"text" :noname to mfunc ! !csp ; |
|
From: George H. <geo...@us...> - 2013-03-30 20:55:00
|
Update of /cvsroot/win32forth/win32forth-extsrc/extsrc/installer In directory sfp-cvs-1.v30.ch3.sourceforge.com:/tmp/cvs-serv18417 Modified Files: Tag: v614xx Win32Forth.nsi Log Message: Updated? Index: Win32Forth.nsi =================================================================== RCS file: /cvsroot/win32forth/win32forth-extsrc/extsrc/installer/Win32Forth.nsi,v retrieving revision 1.14 retrieving revision 1.14.2.1 diff -C2 -d -r1.14 -r1.14.2.1 *** Win32Forth.nsi 9 Mar 2013 17:33:58 -0000 1.14 --- Win32Forth.nsi 30 Mar 2013 20:54:57 -0000 1.14.2.1 *************** *** 9,14 **** !define VER_MINOR 14 !define VER_REVISION 02 ! !define VER_DISPLAY "6.14.02" ! !define VER_FILE "61402" ; Define your application name --- 9,14 ---- !define VER_MINOR 14 !define VER_REVISION 02 ! !define VER_DISPLAY "6.14.03" ! !define VER_FILE "61403" ; Define your application name |
|
From: George H. <geo...@us...> - 2013-03-23 22:00:35
|
Update of /cvsroot/win32forth/win32forth/src In directory sfp-cvs-1.v30.ch3.sourceforge.com:/tmp/cvs-serv20822 Modified Files: Window.f Log Message: Moved default-class-name to default-window-class Index: Window.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/Window.f,v retrieving revision 1.29 retrieving revision 1.30 diff -C2 -d -r1.29 -r1.30 *** Window.f 15 Mar 2013 00:23:06 -0000 1.29 --- Window.f 23 Mar 2013 22:00:33 -0000 1.30 *************** *** 269,274 **** --- 269,290 ---- ;Record + : default-class-name ( -- ) + \ The a default window class name for this window. Every window + \ will become it's own class name and it's own window class. + \ Note: If the window class name is set with SetClassName: before + \ the Start: method is called no default class name will be set. + WindowClassName c@ 0= + if (classnamelock) + s" w32fWindow-" WindowClassName place + ClassNameID (.) WindowClassName +place + WindowClassName +null + 1 +to ClassNameID + (classnameunlock) + then + \ cr ." The WindowClassName is: " WindowClassName count type + ; : default-window-class ( -- ) \ Fill in the defaults for the window class. + default-class-name WndClassStyle: [ self ] to Style TheWndProc to wndProc *************** *** 286,308 **** WndClass Call RegisterClass ; - : default-class-name ( -- ) - \ The a default window class name for this window. Every window - \ will become it's own class name and it's own window class. - \ Note: If the window class name is set with SetClassName: before - \ the Start: method is called no default class name will be set. - WindowClassName c@ 0= - if (classnamelock) - s" w32fWindow-" WindowClassName place - ClassNameID (.) WindowClassName +place - WindowClassName +null - 1 +to ClassNameID - (classnameunlock) - then - \ cr ." The WindowClassName is: " WindowClassName count type - ; - : register-frame-window ( -- f ) \ Init the window class and register it. - default-class-name default-window-class register-the-class ; --- 302,307 ---- |
|
From: George H. <geo...@us...> - 2013-03-23 21:38:06
|
Update of /cvsroot/win32forth/win32forth/src In directory sfp-cvs-1.v30.ch3.sourceforge.com:/tmp/cvs-serv19953/src Modified Files: Tag: V614XX imagehds.f imageman.f Log Message: Updated to v6.14.02 modified code section flags in image Index: imagehds.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/imagehds.f,v retrieving revision 1.2 retrieving revision 1.2.6.1 diff -C2 -d -r1.2 -r1.2.6.1 *** imagehds.f 5 Jan 2005 23:30:00 -0000 1.2 --- imagehds.f 23 Mar 2013 21:38:04 -0000 1.2.6.1 *************** *** 126,130 **** 0X40000000 CONSTANT S-READ 0X80000000 CONSTANT S-WRITE ! S-CODE S-EXECUTE S-READ S-INIT OR OR OR CONSTANT STD-CODE \ abbreviation S-READ S-WRITE S-INIT OR OR CONSTANT STD-DATA \ abbreviation --- 126,130 ---- 0X40000000 CONSTANT S-READ 0X80000000 CONSTANT S-WRITE ! S-CODE S-EXECUTE S-READ OR OR CONSTANT STD-CODE \ abbreviation S-READ S-WRITE S-INIT OR OR CONSTANT STD-DATA \ abbreviation *************** *** 159,164 **** 4 FLD RELOC-BLOCKLEN \ length of the reloc section (from RELOC-RVA-PAGE) 2 FLD RELOC-FIXUP \ 4 bit type, 12 bit offset ! VALUE RELOC-LEN DROP \ length, variable ! 0x0000 CONSTANT RELOC-ABS \ absolute (a noop) 0x3000 CONSTANT RELOC-HILO \ high/low relocation (32 bit relocation) --- 159,164 ---- 4 FLD RELOC-BLOCKLEN \ length of the reloc section (from RELOC-RVA-PAGE) 2 FLD RELOC-FIXUP \ 4 bit type, 12 bit offset ! VALUE RELOC-LEN DROP \ length, variable ! 0x0000 CONSTANT RELOC-ABS \ absolute (a noop) 0x3000 CONSTANT RELOC-HILO \ high/low relocation (32 bit relocation) Index: imageman.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/imageman.f,v retrieving revision 1.24 retrieving revision 1.24.2.1 diff -C2 -d -r1.24 -r1.24.2.1 *** imageman.f 25 Feb 2009 23:41:23 -0000 1.24 --- imageman.f 23 Mar 2013 21:38:04 -0000 1.24.2.1 *************** *** 686,690 **** s" .code" SECTION ! STD-DATA STD-CODE or SECTIONTYPE IMAGE-CODEPTR IMAGE-CACTUAL SECTIONDATA IMAGE-CSIZE SECTIONSIZE --- 686,690 ---- s" .code" SECTION ! STD-CODE S-WRITE or SECTIONTYPE IMAGE-CODEPTR IMAGE-CACTUAL SECTIONDATA IMAGE-CSIZE SECTIONSIZE |
|
From: George H. <geo...@us...> - 2013-03-20 23:51:24
|
Update of /cvsroot/win32forth/win32forth/src In directory sfp-cvs-1.v30.ch3.sourceforge.com:/tmp/cvs-serv10466/src Modified Files: Debug.f Pre-save.f Primutil.f SEE.F imageman.f Log Message: Interpret reset when NEWCONSOLE isn't used. SEE now dististinguishes between Vocabulary and Lexicon. Evaluate can now be used with Lexicons in turnkeyed programs. Index: Pre-save.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/Pre-save.f,v retrieving revision 1.5 retrieving revision 1.6 diff -C2 -d -r1.5 -r1.6 *** Pre-save.f 11 Mar 2013 00:19:30 -0000 1.5 --- Pre-save.f 20 Mar 2013 23:51:21 -0000 1.6 *************** *** 33,36 **** --- 33,48 ---- pre-save-image-chain chain-add init-image-handles + : Init-turnkey-find ( -- ) + turnkeyed? if ['] parmfind is-image find then ; + + pre-save-image-chain chain-add Init-turnkey-find + + : Init-turnkey-nodebug ( -- ) + turnkeyed? if ['] noop is-image save-src + ['] noop is-image ?unsave-src then ; + + pre-save-image-chain chain-add Init-turnkey-nodebug + + : Init?EnableConsoleMessages ( -- ) ['] noop is-image ?EnableConsoleMessages ; Index: Primutil.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/Primutil.f,v retrieving revision 1.58 retrieving revision 1.59 diff -C2 -d -r1.58 -r1.59 *** Primutil.f 8 Mar 2013 20:43:04 -0000 1.58 --- Primutil.f 20 Mar 2013 23:51:21 -0000 1.59 *************** *** 871,874 **** --- 871,875 ---- : DosConsole ( -- ) \ switch to DOS console functions + ['] _interpret is interpret ['] NOOP IS CONSOLE ['] d_Init-Console IS INIT-CONSOLE Index: SEE.F =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/SEE.F,v retrieving revision 1.12 retrieving revision 1.13 diff -C2 -d -r1.12 -r1.13 *** SEE.F 26 Jul 2009 13:18:12 -0000 1.12 --- SEE.F 20 Mar 2013 23:51:21 -0000 1.13 *************** *** 239,245 **** ." :CLASS " .name ; ! : .VOCABULARY ( cfa -- ) \ use VOCS to see all the vocabularys \ this word is used internaly by the code for SEE ! ." VOCABULARY " .name ; : .: ( cfa -- ) --- 239,245 ---- ." :CLASS " .name ; ! : .VOCABULARY ( cfa -- ) \ use VOCS to see all the vocabularies and lexicons \ this word is used internaly by the code for SEE ! dup IN-APP-SPACE? if ." LEXICON " else ." VOCABULARY " then .name ; : .: ( cfa -- ) Index: Debug.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/Debug.f,v retrieving revision 1.23 retrieving revision 1.24 diff -C2 -d -r1.23 -r1.24 *** Debug.f 14 Feb 2013 20:05:47 -0000 1.23 --- Debug.f 20 Mar 2013 23:51:21 -0000 1.24 *************** *** 36,40 **** ' 2drop is-default $watch ! \ theese words are defered to later hook special use of debugger, eg lib\fmacro\profiler.f defer debug-entry ' noop is debug-entry \ application init stuff defer debug-.s ' noop is debug-.s \ show stack in current dbg base --- 36,40 ---- ' 2drop is-default $watch ! \ these words are defered to later hook special use of debugger, eg lib\fmacro\profiler.f defer debug-entry ' noop is debug-entry \ application init stuff defer debug-.s ' noop is debug-.s \ show stack in current dbg base Index: imageman.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/imageman.f,v retrieving revision 1.31 retrieving revision 1.32 diff -C2 -d -r1.31 -r1.32 *** imageman.f 11 Mar 2013 00:19:30 -0000 1.31 --- imageman.f 20 Mar 2013 23:51:21 -0000 1.32 *************** *** 922,983 **** : PresetDosConsole ( -- ) \ Preset DOS console functions in Image ! ['] NOOP IS-IMAGE CONSOLE ! ['] d_Init-Console IS-IMAGE INIT-CONSOLE ! ['] NOOP IS-IMAGE INIT-SCREEN ! ['] d_KEY IS-IMAGE KEY ! ['] d_KEY? IS-IMAGE KEY? ! ['] d_ACCEPT IS-IMAGE ACCEPT ! ['] DROP IS-IMAGE PUSHKEY ! ['] 2DROP IS-IMAGE "PUSHKEYS ! ['] NOOP IS-IMAGE CLS ! ['] d_EMIT IS-IMAGE EMIT ! ['] d_TYPE IS-IMAGE TYPE ! ['] d_CR IS-IMAGE CR ! ['] DROP IS-IMAGE ?CR ! ['] 2DROP IS-IMAGE GOTOXY ! ['] K_NOOP2 IS-IMAGE GETXY ! ['] 2DROP IS-IMAGE FGBG! ! ['] K_NOOP1 IS-IMAGE FG@ ! ['] K_NOOP1 IS-IMAGE BG@ ! ['] 2DROP IS-IMAGE SETCHARWH ! ['] K_NOOP2 IS-IMAGE CHARWH ! ['] DROP IS-IMAGE SET-CURSOR ! ['] K_NOOP1 IS-IMAGE GET-CURSOR ! ['] K_NOOP2 IS-IMAGE GETCOLROW ! ['] K_NOOP1 IS-IMAGE GETROWOFF ! ['] K_NOOP1 IS-IMAGE &THE-SCREEN ! ['] NOOP IS-IMAGE SCROLLTOVIEW \ preset BYE to default ( although should have never changed) ! ['] k_bye IS-IMAGE bye ; : PresetNoConsoleIO ( -- ) \ Preset all defered I/O words to noop's. ! ['] NOOP IS-IMAGE CONSOLE ! ['] K_NOOP1 IS-IMAGE INIT-CONSOLE ! ['] NOOP IS-IMAGE INIT-SCREEN ! ['] K_NOOP1 IS-IMAGE KEY ! ['] K_NOOP1 IS-IMAGE KEY? ! ['] K_NOOP0 IS-IMAGE ACCEPT ! ['] DROP IS-IMAGE PUSHKEY ! ['] 2DROP IS-IMAGE "PUSHKEYS ! ['] NOOP IS-IMAGE CLS ! ['] DROP IS-IMAGE EMIT ! ['] 2DROP IS-IMAGE TYPE ! ['] NOOP IS-IMAGE CR ! ['] DROP IS-IMAGE ?CR ! ['] 2DROP IS-IMAGE GOTOXY ! ['] K_NOOP2 IS-IMAGE GETXY ! ['] 2DROP IS-IMAGE FGBG! ! ['] K_NOOP1 IS-IMAGE FG@ ! ['] K_NOOP1 IS-IMAGE BG@ ! ['] 2DROP IS-IMAGE SETCHARWH ! ['] K_NOOP2 IS-IMAGE CHARWH ! ['] DROP IS-IMAGE SET-CURSOR ! ['] K_NOOP1 IS-IMAGE GET-CURSOR ! ['] K_NOOP2 IS-IMAGE GETCOLROW ! ['] K_NOOP1 IS-IMAGE GETROWOFF ! ['] K_NOOP1 IS-IMAGE &THE-SCREEN ! ['] NOOP IS-IMAGE SCROLLTOVIEW \ preset BYE to default ( although should have never changed) ! ['] k_bye IS-IMAGE bye ; \ ------------------------------------------------------------------------------ --- 922,985 ---- : PresetDosConsole ( -- ) \ Preset DOS console functions in Image ! ['] _interpret is-image interpret ! ['] NOOP IS-IMAGE CONSOLE ! ['] d_Init-Console IS-IMAGE INIT-CONSOLE ! ['] NOOP IS-IMAGE INIT-SCREEN ! ['] d_KEY IS-IMAGE KEY ! ['] d_KEY? IS-IMAGE KEY? ! ['] d_ACCEPT IS-IMAGE ACCEPT ! ['] DROP IS-IMAGE PUSHKEY ! ['] 2DROP IS-IMAGE "PUSHKEYS ! ['] NOOP IS-IMAGE CLS ! ['] d_EMIT IS-IMAGE EMIT ! ['] d_TYPE IS-IMAGE TYPE ! ['] d_CR IS-IMAGE CR ! ['] DROP IS-IMAGE ?CR ! ['] 2DROP IS-IMAGE GOTOXY ! ['] K_NOOP2 IS-IMAGE GETXY ! ['] 2DROP IS-IMAGE FGBG! ! ['] K_NOOP1 IS-IMAGE FG@ ! ['] K_NOOP1 IS-IMAGE BG@ ! ['] 2DROP IS-IMAGE SETCHARWH ! ['] K_NOOP2 IS-IMAGE CHARWH ! ['] DROP IS-IMAGE SET-CURSOR ! ['] K_NOOP1 IS-IMAGE GET-CURSOR ! ['] K_NOOP2 IS-IMAGE GETCOLROW ! ['] K_NOOP1 IS-IMAGE GETROWOFF ! ['] K_NOOP1 IS-IMAGE &THE-SCREEN ! ['] NOOP IS-IMAGE SCROLLTOVIEW \ preset BYE to default ( although should have never changed) ! ['] k_bye IS-IMAGE bye ; : PresetNoConsoleIO ( -- ) \ Preset all defered I/O words to noop's. ! ['] _interpret is-image interpret ! ['] NOOP IS-IMAGE CONSOLE ! ['] K_NOOP1 IS-IMAGE INIT-CONSOLE ! ['] NOOP IS-IMAGE INIT-SCREEN ! ['] K_NOOP1 IS-IMAGE KEY ! ['] K_NOOP1 IS-IMAGE KEY? ! ['] K_NOOP0 IS-IMAGE ACCEPT ! ['] DROP IS-IMAGE PUSHKEY ! ['] 2DROP IS-IMAGE "PUSHKEYS ! ['] NOOP IS-IMAGE CLS ! ['] DROP IS-IMAGE EMIT ! ['] 2DROP IS-IMAGE TYPE ! ['] NOOP IS-IMAGE CR ! ['] DROP IS-IMAGE ?CR ! ['] 2DROP IS-IMAGE GOTOXY ! ['] K_NOOP2 IS-IMAGE GETXY ! ['] 2DROP IS-IMAGE FGBG! ! ['] K_NOOP1 IS-IMAGE FG@ ! ['] K_NOOP1 IS-IMAGE BG@ ! ['] 2DROP IS-IMAGE SETCHARWH ! ['] K_NOOP2 IS-IMAGE CHARWH ! ['] DROP IS-IMAGE SET-CURSOR ! ['] K_NOOP1 IS-IMAGE GET-CURSOR ! ['] K_NOOP2 IS-IMAGE GETCOLROW ! ['] K_NOOP1 IS-IMAGE GETROWOFF ! ['] K_NOOP1 IS-IMAGE &THE-SCREEN ! ['] NOOP IS-IMAGE SCROLLTOVIEW \ preset BYE to default ( although should have never changed) ! ['] k_bye IS-IMAGE bye ; \ ------------------------------------------------------------------------------ |
|
From: George H. <geo...@us...> - 2013-03-20 23:51:23
|
Update of /cvsroot/win32forth/win32forth/apps/Setup In directory sfp-cvs-1.v30.ch3.sourceforge.com:/tmp/cvs-serv10466/apps/Setup Modified Files: Setup.f Setup_dtop_lnk.f Log Message: Interpret reset when NEWCONSOLE isn't used. SEE now dististinguishes between Vocabulary and Lexicon. Evaluate can now be used with Lexicons in turnkeyed programs. Index: Setup.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/Setup/Setup.f,v retrieving revision 1.31 retrieving revision 1.32 diff -C2 -d -r1.31 -r1.32 *** Setup.f 11 Mar 2013 00:19:29 -0000 1.31 --- Setup.f 20 Mar 2013 23:51:20 -0000 1.32 *************** *** 118,127 **** : dashline ." ----------------------------------------------------------------------- " cr ; ! defer DoCmdLine ( -- ) ' noop is DoCmdLine : SetUpForth ( -- f ) cmdline nip ! if DoCmdLine ! false else dashline --- 118,127 ---- : dashline ." ----------------------------------------------------------------------- " cr ; ! ! 1 #lexicon commands \ for commandline arguments : SetUpForth ( -- f ) cmdline nip ! if ['] commands vcfa>voc 1 set-order cmdline empty-command-line evaluate false else dashline *************** *** 350,354 **** ; ! external \ following words can be used on the commandline : install-silent ( f -- ) --- 350,359 ---- ; ! private commands internal ! ! \ following words can be used on the commandline ! ! ' true alias true \ needed for commandline in commands lexicon ! ' false alias false \ needed for commandline in commands lexicon : install-silent ( f -- ) *************** *** 464,477 **** endedok ; - : Twined - ." Starting" 600000 ms - cls cr - ." WINED requested" cr key drop - dashline - ." Rebuilding WINED.EXE" cr key drop - checkcont - buildwined - setup-bye - ; \ index --- 469,472 ---- *************** *** 558,567 **** ; ! :noname ( -- ) \ to add more words follow the pattern ! cmdline s" install" istr= if install then ! cmdline s" true install-silent" istr= if true install-silent then ! ; is DoCmdLine 2 PROC SetWindowText : setup ( -- ) \ Install win32forth show-console normal-console --- 553,560 ---- ; ! external 2 PROC SetWindowText + : setup ( -- ) \ Install win32forth show-console normal-console *************** *** 601,604 **** --- 594,599 ---- then ; + module + \ create setup.exe *************** *** 608,618 **** s" '" pad place pad +place s" '" pad +place pad count ' turnkey execute-parsing \ cludgy but it works ! \ IS INTERPRET - FLOAD ..\..\src\lib\Resources.f s" src\res\Win32For.ico" Prepend<home>\ pad place pad count s" Setup.exe" Prepend<home>\ AddAppIcon ! Require Checksum.f ! s" Setup.exe" prepend<home>\ (AddCheckSum) wait&bye --- 603,613 ---- s" '" pad place pad +place s" '" pad +place pad count ' turnkey execute-parsing \ cludgy but it works ! Require Resources.f s" src\res\Win32For.ico" Prepend<home>\ pad place pad count s" Setup.exe" Prepend<home>\ AddAppIcon ! Require Checksum.f ! ! s" Setup.exe" prepend<home>\ (AddCheckSum) wait&bye Index: Setup_dtop_lnk.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/Setup/Setup_dtop_lnk.f,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 Binary files /tmp/cvsg7qQmt and /tmp/cvsCXJ0IK differ |
|
From: George H. <geo...@us...> - 2013-03-15 00:25:05
|
Update of /cvsroot/win32forth/win32forth/Help/hdb In directory sfp-cvs-1.v30.ch3.sourceforge.com:/tmp/cvs-serv12202/hdb Modified Files: Help.cfg Log Message: Updated help database and docs Index: Help.cfg =================================================================== RCS file: /cvsroot/win32forth/win32forth/Help/hdb/Help.cfg,v retrieving revision 1.11 retrieving revision 1.12 diff -C2 -d -r1.11 -r1.12 *** Help.cfg 9 Mar 2013 21:31:08 -0000 1.11 --- Help.cfg 15 Mar 2013 00:25:01 -0000 1.12 *************** *** 3,7 **** [WindowW] 1019 [WindowH] 708 ! [SplitterV] 221 [SplitterH] 112 \ No newline at end of file --- 3,7 ---- [WindowW] 1019 [WindowH] 708 ! [SplitterV] 343 [SplitterH] 112 \ No newline at end of file |
|
From: George H. <geo...@us...> - 2013-03-15 00:23:09
|
Update of /cvsroot/win32forth/win32forth/src In directory sfp-cvs-1.v30.ch3.sourceforge.com:/tmp/cvs-serv12034 Modified Files: CONTROL.F Dialog.f GENERIC.F Window.f Log Message: moved style and addstyle: to control. moved on_init and on_done to generic-window and other factoring Index: Window.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/Window.f,v retrieving revision 1.28 retrieving revision 1.29 diff -C2 -d -r1.28 -r1.29 *** Window.f 14 Feb 2013 20:05:48 -0000 1.28 --- Window.f 15 Mar 2013 00:23:06 -0000 1.29 *************** *** 380,391 **** then ;M ! :M On_Init: ( -- ) ! \ *G Thing's to do during creation of the window. ! \ ** Default does nothing. ! ;M ! ! :M On_Done: ( -- ) ! \ *G Thing's to do when the window will be destroyed. Default does nothing. ! ;M \ *E Your On_Init: and On_Done: methods should look like this: --- 380,384 ---- then ;M ! \ *P On_Init: and On_Done were moved to Generic-Window. \ *E Your On_Init: and On_Done: methods should look like this: *************** *** 427,433 **** Close: [ self ] ;M - :M WM_CREATE ( hwnd msg wparam lparam -- res ) - On_Init: [ self ] 0 ;M - :M WM_DESTROY ( hwnd msg wparam lparam -- res ) On_Done: [ self ] --- 420,423 ---- *************** *** 882,897 **** hWnd Call EnableWindow drop ;M - :M GetWindowRect: ( -- left top right bottom ) - \ *G The GetWindowRect method retrieves the dimensions of the bounding rectangle of the window. - \ ** The dimensions are given in screen coordinates that are relative to the upper-left corner - \ of the screen. - hWnd - if EraseRect: WinRect - WinRect hWnd Call GetWindowRect ?win-error - Left: WinRect Top: WinRect - Right: WinRect Bottom: WinRect - else 0 0 0 0 - then ;M - :M SetTitle: { adr len \ temp$ -- } \ *G Set the window title. --- 872,875 ---- Index: Dialog.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/Dialog.f,v retrieving revision 1.7 retrieving revision 1.8 diff -C2 -d -r1.7 -r1.8 *** Dialog.f 9 Jun 2012 18:45:47 -0000 1.7 --- Dialog.f 15 Mar 2013 00:23:06 -0000 1.8 *************** *** 162,166 **** :M On_Init: ( hwndfocus -- f ) \ *G Init the dialog ! drop 1 ;M \ -------------------- Process Commands from Controls -------------------- --- 162,166 ---- :M On_Init: ( hwndfocus -- f ) \ *G Init the dialog ! drop true ;M \ -------------------- Process Commands from Controls -------------------- Index: CONTROL.F =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/CONTROL.F,v retrieving revision 1.13 retrieving revision 1.14 diff -C2 -d -r1.13 -r1.14 *** CONTROL.F 9 Jun 2012 18:45:47 -0000 1.13 --- CONTROL.F 15 Mar 2013 00:23:06 -0000 1.14 *************** *** 78,88 **** between and ; \ *W <a name="Control"></a> \ *S Generic Control class ! :Class Control <Super Generic-Window \ *G Generic control class. \n \ ** Since Control is a generic class it should not be used to create \ ** any instances. \ The following definition must directly precede old-wndproc to work correctly code (old-wndproc) ( ^control -- old-wndproc ) \ address of old window prodedure --- 78,92 ---- between and ; + in-system + \ *W <a name="Control"></a> \ *S Generic Control class ! |Class Control <Super Generic-Window \ *G Generic control class. \n \ ** Since Control is a generic class it should not be used to create \ ** any instances. + in-previous + \ The following definition must directly precede old-wndproc to work correctly code (old-wndproc) ( ^control -- old-wndproc ) \ address of old window prodedure *************** *** 101,104 **** --- 105,109 ---- int timerclosed? \ has popup been closed int auto-close? \ does info window automatically close after a time? + int style max-binfo 1+ bytes binfo *************** *** 141,144 **** --- 146,150 ---- 0 to handleofparent 0 to old-wndproc + 0 to style unique-id to id z" " to title *************** *** 175,178 **** --- 181,189 ---- [ WS_CHILD WS_VISIBLE or ] literal ;M + :M AddStyle: ( n -- ) + \ *G Set any additional style of the control. Must be done before the control + \ ** is created. + to style ;M + :M StartSize: ( -- width height ) \ *G Get the start size of this control. \n *************** *** 312,315 **** --- 323,340 ---- ;M + :M WM_DESTROY + On_Done: [ self ] + old-wndproc CallWindowProc + 0 to hWnd + ;M + + :M Enable: ( f -- ) + \ *G Enable the control. + ID EnableDlgItem: parent ;M + + :M Disable: ( -- ) + \ *G Disable the control. + false Enable: self ;M + ;Class \ *G End of Control class Index: GENERIC.F =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/GENERIC.F,v retrieving revision 1.27 retrieving revision 1.28 diff -C2 -d -r1.27 -r1.28 *** GENERIC.F 9 Jun 2012 18:45:47 -0000 1.27 --- GENERIC.F 15 Mar 2013 00:23:06 -0000 1.28 *************** *** 181,185 **** :M ZeroWindow: ( -- ) ! \ *G Clear the window handle. Normally handled by the system. At all window \ ** handles are zeroed automatically in the image when saving. 0 to hWnd ;M --- 181,185 ---- :M ZeroWindow: ( -- ) ! \ *G Clear the window handle. Normally handled by the system. All window \ ** handles are zeroed automatically in the image when saving. 0 to hWnd ;M *************** *** 641,644 **** --- 641,658 ---- msg-chain chain-add DoDialogMsg + \ moved here for both windows and controls + + :M WM_CREATE ( hwnd msg wparam lparam -- res ) + On_Init: [ self ] false ;M + + :M On_Init: ( -- ) + \ *G Thing's to do during creation of the window. + \ ** Default does nothing. + ;M + + :M On_Done: ( -- ) + \ *G Thing's to do when the window will be destroyed. Default does nothing. + ;M + ;CLASS \ *G End of generic-window class |
|
From: George H. <geo...@us...> - 2013-03-11 00:19:33
|
Update of /cvsroot/win32forth/win32forth/src/kernel In directory sfp-cvs-1.v30.ch3.sourceforge.com:/tmp/cvs-serv6721/src/kernel Modified Files: version.f Log Message: Updated to V6.15.01 plus tidy up/finish off updating setup Index: version.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/kernel/version.f,v retrieving revision 1.20 retrieving revision 1.21 diff -C2 -d -r1.20 -r1.21 *** version.f 24 Jun 2011 17:02:02 -0000 1.20 --- version.f 11 Mar 2013 00:19:30 -0000 1.21 *************** *** 3,7 **** cr .( Loading META version info) ! 61500 VALUE #VERSION# \ Change only the version number above; the build number is automatically assigned. --- 3,7 ---- cr .( Loading META version info) ! 61501 VALUE #VERSION# \ Change only the version number above; the build number is automatically assigned. |
|
From: George H. <geo...@us...> - 2013-03-11 00:19:32
|
Update of /cvsroot/win32forth/win32forth In directory sfp-cvs-1.v30.ch3.sourceforge.com:/tmp/cvs-serv6721 Modified Files: setup.exe Log Message: Updated to V6.15.01 plus tidy up/finish off updating setup Index: setup.exe =================================================================== RCS file: /cvsroot/win32forth/win32forth/setup.exe,v retrieving revision 1.47 retrieving revision 1.48 diff -C2 -d -r1.47 -r1.48 Binary files /tmp/cvstTG1Sn and /tmp/cvsiLOMcl differ |
|
From: George H. <geo...@us...> - 2013-03-11 00:15:25
|
Update of /cvsroot/win32forth/win32forth-extsrc/extsrc/installer In directory sfp-cvs-1.v30.ch3.sourceforge.com:/tmp/cvs-serv6293 Modified Files: Files.nsi Uninstall.nsi Win32Forth.nsi Log Message: Provisional build for V615xx (subject to change) Index: Files.nsi =================================================================== RCS file: /cvsroot/win32forth/win32forth-extsrc/extsrc/installer/Files.nsi,v retrieving revision 1.12 retrieving revision 1.13 diff -C2 -d -r1.12 -r1.13 *** Files.nsi 9 Mar 2013 18:15:33 -0000 1.12 --- Files.nsi 11 Mar 2013 00:15:22 -0000 1.13 *************** *** 413,416 **** --- 413,422 ---- File "..\..\..\win32forth\apps\Win32ForthIDE\Forms\CreateToolBarForm.ff" File "..\..\..\win32forth\apps\Win32ForthIDE\Forms\CreateToolBarForm.frm" + File "..\..\..\win32forth\apps\Win32ForthIDE\Forms\DebugForm.ff" + File "..\..\..\win32forth\apps\Win32ForthIDE\Forms\DebugForm.frm" + File "..\..\..\win32forth\apps\Win32ForthIDE\Forms\DesignerForm.ff" + File "..\..\..\win32forth\apps\Win32ForthIDE\Forms\DesignerForm.frm" + File "..\..\..\win32forth\apps\Win32ForthIDE\Forms\EditorForm.ff" + File "..\..\..\win32forth\apps\Win32ForthIDE\Forms\EditorForm.frm" File "..\..\..\win32forth\apps\Win32ForthIDE\Forms\EdPreferences.ff" File "..\..\..\win32forth\apps\Win32ForthIDE\Forms\EdPreferences.frm" *************** *** 424,428 **** --- 430,446 ---- File "..\..\..\win32forth\apps\Win32ForthIDE\Forms\GroupAction.ff" File "..\..\..\win32forth\apps\Win32ForthIDE\Forms\GroupAction.frm" + File "..\..\..\win32forth\apps\Win32ForthIDE\Forms\IDEform.ff" + File "..\..\..\win32forth\apps\Win32ForthIDE\Forms\IDEform.frm" + File "..\..\..\win32forth\apps\Win32ForthIDE\Forms\MsgBoxBuilder.ff" + File "..\..\..\win32forth\apps\Win32ForthIDE\Forms\MsgBoxBuilder.ff_code" + File "..\..\..\win32forth\apps\Win32ForthIDE\Forms\MsgBoxBuilder.frm" + File "..\..\..\win32forth\apps\Win32ForthIDE\Forms\NavigatorForm.ff" + File "..\..\..\win32forth\apps\Win32ForthIDE\Forms\NavigatorForm.frm" File "..\..\..\win32forth\apps\Win32ForthIDE\Forms\PREFERENCES.frm" + File "..\..\..\win32forth\apps\Win32ForthIDE\Forms\SavePrompt.ff" + File "..\..\..\win32forth\apps\Win32ForthIDE\Forms\SavePrompt.ff_code" + File "..\..\..\win32forth\apps\Win32ForthIDE\Forms\SavePrompt.frm" + File "..\..\..\win32forth\apps\Win32ForthIDE\Forms\SearchPrompt.ff" + File "..\..\..\win32forth\apps\Win32ForthIDE\Forms\SearchPrompt.frm" File "..\..\..\win32forth\apps\Win32ForthIDE\Forms\SplitterWindow.ff" File "..\..\..\win32forth\apps\Win32ForthIDE\Forms\SplitterWindow.frm" *************** *** 675,679 **** File "..\..\..\win32forth\Help\hdb\HelpVoc.hdb" File "..\..\..\win32forth\Help\hdb\HelpWrd.hdb" ! File "..\..\..\win32forth\Help\hdb\HelpWrd.ndx" File "..\..\..\win32forth\Help\hdb\HelpWrd.tv" File "..\..\..\win32forth\Help\hdb\HelpWrd.txt" --- 693,697 ---- File "..\..\..\win32forth\Help\hdb\HelpVoc.hdb" File "..\..\..\win32forth\Help\hdb\HelpWrd.hdb" ! File "..\..\..\win32forth\Help\hdb\HelpWrd.hdx" File "..\..\..\win32forth\Help\hdb\HelpWrd.tv" File "..\..\..\win32forth\Help\hdb\HelpWrd.txt" *************** *** 989,993 **** File "..\..\..\win32forth\src\paths.f" File "..\..\..\win32forth\src\POINTER.F" ! File "..\..\..\win32forth\src\presave.F" File "..\..\..\win32forth\src\PRIMHASH.F" File "..\..\..\win32forth\src\Primutil.f" --- 1007,1011 ---- File "..\..\..\win32forth\src\paths.f" File "..\..\..\win32forth\src\POINTER.F" ! File "..\..\..\win32forth\src\pre-save.f" File "..\..\..\win32forth\src\PRIMHASH.F" File "..\..\..\win32forth\src\Primutil.f" *************** *** 1058,1061 **** --- 1076,1080 ---- File "..\..\..\win32forth\src\lib\Buttons.f" File "..\..\..\win32forth\src\lib\Calendar.f" + File "..\..\..\win32forth\src\lib\Checksum.f" File "..\..\..\win32forth\src\lib\CTYPE.F" File "..\..\..\win32forth\src\lib\DIALOGRC.F" Index: Uninstall.nsi =================================================================== RCS file: /cvsroot/win32forth/win32forth-extsrc/extsrc/installer/Uninstall.nsi,v retrieving revision 1.12 retrieving revision 1.13 diff -C2 -d -r1.12 -r1.13 *** Uninstall.nsi 9 Mar 2013 18:15:33 -0000 1.12 --- Uninstall.nsi 11 Mar 2013 00:15:22 -0000 1.13 *************** *** 403,406 **** --- 403,412 ---- Delete "$INSTDIR\apps\Win32ForthIDE\Forms\CreateToolBarForm.ff" Delete "$INSTDIR\apps\Win32ForthIDE\Forms\CreateToolBarForm.frm" + Delete "$INSTDIR\apps\Win32ForthIDE\Forms\DebugForm.ff" + Delete "$INSTDIR\apps\Win32ForthIDE\Forms\DebugForm.frm" + Delete "$INSTDIR\apps\Win32ForthIDE\Forms\DesignerForm.ff" + Delete "$INSTDIR\apps\Win32ForthIDE\Forms\DesignerForm.frm" + Delete "$INSTDIR\apps\Win32ForthIDE\Forms\EditorForm.ff" + Delete "$INSTDIR\apps\Win32ForthIDE\Forms\EditorForm.frm" Delete "$INSTDIR\apps\Win32ForthIDE\Forms\EdPreferences.ff" Delete "$INSTDIR\apps\Win32ForthIDE\Forms\EdPreferences.frm" *************** *** 414,418 **** --- 420,436 ---- Delete "$INSTDIR\apps\Win32ForthIDE\Forms\GroupAction.ff" Delete "$INSTDIR\apps\Win32ForthIDE\Forms\GroupAction.frm" + Delete "$INSTDIR\apps\Win32ForthIDE\Forms\IDEform.ff" + Delete "$INSTDIR\apps\Win32ForthIDE\Forms\IDEform.frm" + Delete "$INSTDIR\apps\Win32ForthIDE\Forms\MsgBoxBuilder.ff" + Delete "$INSTDIR\apps\Win32ForthIDE\Forms\MsgBoxBuilder.ff_code" + Delete "$INSTDIR\apps\Win32ForthIDE\Forms\MsgBoxBuilder.frm" + Delete "$INSTDIR\apps\Win32ForthIDE\Forms\NavigatorForm.ff" + Delete "$INSTDIR\apps\Win32ForthIDE\Forms\NavigatorForm.frm" Delete "$INSTDIR\apps\Win32ForthIDE\Forms\PREFERENCES.frm" + Delete "$INSTDIR\apps\Win32ForthIDE\Forms\SavePrompt.ff" + Delete "$INSTDIR\apps\Win32ForthIDE\Forms\SavePrompt.ff_code" + Delete "$INSTDIR\apps\Win32ForthIDE\Forms\SavePrompt.frm" + Delete "$INSTDIR\apps\Win32ForthIDE\Forms\SearchPrompt.ff" + Delete "$INSTDIR\apps\Win32ForthIDE\Forms\SearchPrompt.frm" Delete "$INSTDIR\apps\Win32ForthIDE\Forms\SplitterWindow.ff" Delete "$INSTDIR\apps\Win32ForthIDE\Forms\SplitterWindow.frm" *************** *** 649,653 **** Delete "$INSTDIR\Help\hdb\HelpVoc.hdb" Delete "$INSTDIR\Help\hdb\HelpWrd.hdb" ! Delete "$INSTDIR\Help\hdb\HelpWrd.ndx" Delete "$INSTDIR\Help\hdb\HelpWrd.tv" Delete "$INSTDIR\Help\hdb\HelpWrd.txt" --- 667,671 ---- Delete "$INSTDIR\Help\hdb\HelpVoc.hdb" Delete "$INSTDIR\Help\hdb\HelpWrd.hdb" ! Delete "$INSTDIR\Help\hdb\HelpWrd.hdx" Delete "$INSTDIR\Help\hdb\HelpWrd.tv" Delete "$INSTDIR\Help\hdb\HelpWrd.txt" *************** *** 956,960 **** Delete "$INSTDIR\src\paths.f" Delete "$INSTDIR\src\POINTER.F" ! Delete "$INSTDIR\src\presave.f Delete "$INSTDIR\src\PRIMHASH.F" Delete "$INSTDIR\src\Primutil.f" --- 974,978 ---- Delete "$INSTDIR\src\paths.f" Delete "$INSTDIR\src\POINTER.F" ! Delete "$INSTDIR\src\pre-save.f" Delete "$INSTDIR\src\PRIMHASH.F" Delete "$INSTDIR\src\Primutil.f" *************** *** 1020,1023 **** --- 1038,1042 ---- Delete "$INSTDIR\src\lib\Buttons.f" Delete "$INSTDIR\src\lib\Calendar.f" + Delete "$INSTDIR\src\lib\Checksum.f" Delete "$INSTDIR\src\lib\CTYPE.F" Delete "$INSTDIR\src\lib\DIALOGRC.F" Index: Win32Forth.nsi =================================================================== RCS file: /cvsroot/win32forth/win32forth-extsrc/extsrc/installer/Win32Forth.nsi,v retrieving revision 1.15 retrieving revision 1.16 diff -C2 -d -r1.15 -r1.16 *** Win32Forth.nsi 9 Mar 2013 18:15:33 -0000 1.15 --- Win32Forth.nsi 11 Mar 2013 00:15:22 -0000 1.16 *************** *** 39,47 **** Function AssociateFileExtentions ! ; MessageBox MB_YESNO|MB_ICONQUESTION "Should the file extention .F be associated with 'WinEd'?" IDNO AFE1 ! ; WriteRegStr HKCR ".f" "" "f_auto_file" ! ; WriteRegStr HKCR "f_auto_file" "" "${APPNAME} Sourcefile" ! ; WriteRegStr HKCR "f_auto_file\shell" "" "open" ! ; WriteRegStr HKCR "f_auto_file\shell\open\command" "" '"$INSTDIR\WinEd.exe" "%1"' AFE1: ; MessageBox MB_YESNO|MB_ICONQUESTION "Should the file extention .F be associated with 'SciEdit'?" IDNO AFE2 --- 39,47 ---- Function AssociateFileExtentions ! MessageBox MB_YESNO|MB_ICONQUESTION "Should the file extention .F be associated with 'WinEd'?" IDNO AFE1 ! WriteRegStr HKCR ".f" "" "f_auto_file" ! WriteRegStr HKCR "f_auto_file" "" "${APPNAME} Sourcefile" ! WriteRegStr HKCR "f_auto_file\shell" "" "open" ! WriteRegStr HKCR "f_auto_file\shell\open\command" "" '"$INSTDIR\WinEd.exe" "%1"' AFE1: ; MessageBox MB_YESNO|MB_ICONQUESTION "Should the file extention .F be associated with 'SciEdit'?" IDNO AFE2 |
|
From: George H. <geo...@us...> - 2013-03-09 21:31:10
|
Update of /cvsroot/win32forth/win32forth/Help/hdb In directory sfp-cvs-1.v30.ch3.sourceforge.com:/tmp/cvs-serv29797 Modified Files: Help.cfg Log Message: minor edit Index: Help.cfg =================================================================== RCS file: /cvsroot/win32forth/win32forth/Help/hdb/Help.cfg,v retrieving revision 1.10 retrieving revision 1.11 diff -C2 -d -r1.10 -r1.11 *** Help.cfg 7 Mar 2013 16:19:15 -0000 1.10 --- Help.cfg 9 Mar 2013 21:31:08 -0000 1.11 *************** *** 1,7 **** [WindowX] -2 [WindowY] -2 ! [WindowW] 1020 [WindowH] 708 ! [SplitterV] 200 [SplitterH] 112 \ No newline at end of file --- 1,7 ---- [WindowX] -2 [WindowY] -2 ! [WindowW] 1019 [WindowH] 708 ! [SplitterV] 221 [SplitterH] 112 \ No newline at end of file |
Update of /cvsroot/win32forth/win32forth/Help/hdb In directory sfp-cvs-1.v30.ch3.sourceforge.com:/tmp/cvs-serv19447 Removed Files: HelpAns.hdb HelpCls.tv HelpFct.hdb HelpSrc.hdb HelpVoc.hdb HelpWrd.hdb HelpWrd.tv HelpWrd.txt Log Message: Not needed in CVS (they are rebuilt by option U in setup). --- HelpVoc.hdb DELETED --- --- HelpCls.tv DELETED --- --- HelpSrc.hdb DELETED --- --- HelpAns.hdb DELETED --- --- HelpWrd.txt DELETED --- --- HelpWrd.hdb DELETED --- --- HelpWrd.tv DELETED --- --- HelpFct.hdb DELETED --- |
|
From: George H. <geo...@us...> - 2013-03-09 18:20:26
|
Update of /cvsroot/win32forth/win32forth-extsrc/extsrc/w32fConsole In directory sfp-cvs-1.v30.ch3.sourceforge.com:/tmp/cvs-serv18345/w32fConsole Removed Files: Console.cpp Console.def Console.dsp Console.dsw Console.rc HAND.CUR Keyboard.cpp MAGNIFY.CUR SPLITH.CUR SPLITV.CUR StdAfx.cpp StdAfx.h Term.cpp Term.h harrow.cur resource.h Log Message: Removed no longer needed source for old DLLs (NOTE they are still on the V614xx branch if needed). --- Keyboard.cpp DELETED --- --- Term.cpp DELETED --- --- SPLITV.CUR DELETED --- --- Console.rc DELETED --- --- SPLITH.CUR DELETED --- --- HAND.CUR DELETED --- --- Console.cpp DELETED --- --- Console.def DELETED --- --- Console.dsw DELETED --- --- MAGNIFY.CUR DELETED --- --- harrow.cur DELETED --- --- StdAfx.h DELETED --- --- StdAfx.cpp DELETED --- --- Term.h DELETED --- --- Console.dsp DELETED --- --- resource.h DELETED --- |
|
From: George H. <geo...@us...> - 2013-03-09 18:15:35
|
Update of /cvsroot/win32forth/win32forth-extsrc/extsrc/installer In directory sfp-cvs-1.v30.ch3.sourceforge.com:/tmp/cvs-serv18143 Modified Files: Files.nsi Uninstall.nsi Win32Forth.nsi Log Message: Versions for V615xx (work in progress) Index: Files.nsi =================================================================== RCS file: /cvsroot/win32forth/win32forth-extsrc/extsrc/installer/Files.nsi,v retrieving revision 1.11 retrieving revision 1.12 diff -C2 -d -r1.11 -r1.12 *** Files.nsi 9 Mar 2013 17:33:58 -0000 1.11 --- Files.nsi 9 Mar 2013 18:15:33 -0000 1.12 *************** *** 680,712 **** SetOutPath "$INSTDIR\Help\html\" File "..\..\..\win32forth\Help\html\anew-w32f.htm" ! File "..\..\..\win32forth\Help\html\clas-Ado.htm" ! File "..\..\..\win32forth\Help\html\clas-AXControl.htm" ! File "..\..\..\win32forth\Help\html\clas-BitmapDC.htm" ! File "..\..\..\win32forth\Help\html\clas-childwnd.htm" ! File "..\..\..\win32forth\Help\html\clas-control.htm" ! File "..\..\..\win32forth\Help\html\clas-controls.htm" ! File "..\..\..\win32forth\Help\html\clas-dialog.htm" ! File "..\..\..\win32forth\Help\html\clas-ExtDC.htm" ! File "..\..\..\win32forth\Help\html\clas-file.htm" ! File "..\..\..\win32forth\Help\html\clas-gdiBase.htm" ! File "..\..\..\win32forth\Help\html\clas-gdiBitmap.htm" ! File "..\..\..\win32forth\Help\html\clas-gdiBrush.htm" ! File "..\..\..\win32forth\Help\html\clas-gdiDC.htm" ! File "..\..\..\win32forth\Help\html\clas-gdiFont.htm" ! File "..\..\..\win32forth\Help\html\clas-gdiMetafile.htm" ! File "..\..\..\win32forth\Help\html\clas-gdiMetafileDC.htm" ! File "..\..\..\win32forth\Help\html\clas-gdiPen.htm" ! File "..\..\..\win32forth\Help\html\clas-gdiStruct.htm" ! File "..\..\..\win32forth\Help\html\clas-gdiWindowDC.htm" ! File "..\..\..\win32forth\Help\html\clas-generic.htm" ! File "..\..\..\win32forth\Help\html\clas-HTMLcontrol.htm" ! File "..\..\..\win32forth\Help\html\clas-Mdi.htm" ! File "..\..\..\win32forth\Help\html\clas-MdiDialog.htm" ! File "..\..\..\win32forth\Help\html\clas-Sock.htm" ! File "..\..\..\win32forth\Help\html\clas-sockserv.htm" ! File "..\..\..\win32forth\Help\html\clas-SQLite.htm" ! File "..\..\..\win32forth\Help\html\clas-TimerWindow.htm" ! File "..\..\..\win32forth\Help\html\clas-TrayWindow.htm" ! File "..\..\..\win32forth\Help\html\clas-window.htm" File "..\..\..\win32forth\Help\html\dexh-AcceleratorTables.htm" File "..\..\..\win32forth\Help\html\dexh-ansfile.htm" --- 680,712 ---- SetOutPath "$INSTDIR\Help\html\" File "..\..\..\win32forth\Help\html\anew-w32f.htm" ! File "..\..\..\win32forth\Help\html\class-Ado.htm" ! File "..\..\..\win32forth\Help\html\class-AXControl.htm" ! File "..\..\..\win32forth\Help\html\class-BitmapDC.htm" ! File "..\..\..\win32forth\Help\html\class-childwnd.htm" ! File "..\..\..\win32forth\Help\html\class-control.htm" ! File "..\..\..\win32forth\Help\html\class-controls.htm" ! File "..\..\..\win32forth\Help\html\class-dialog.htm" ! File "..\..\..\win32forth\Help\html\class-ExtDC.htm" ! File "..\..\..\win32forth\Help\html\class-file.htm" ! File "..\..\..\win32forth\Help\html\class-gdiBase.htm" ! File "..\..\..\win32forth\Help\html\class-gdiBitmap.htm" ! File "..\..\..\win32forth\Help\html\class-gdiBrush.htm" ! File "..\..\..\win32forth\Help\html\class-gdiDC.htm" ! File "..\..\..\win32forth\Help\html\class-gdiFont.htm" ! File "..\..\..\win32forth\Help\html\class-gdiMetafile.htm" ! File "..\..\..\win32forth\Help\html\class-gdiMetafileDC.htm" ! File "..\..\..\win32forth\Help\html\class-gdiPen.htm" ! File "..\..\..\win32forth\Help\html\class-gdiStruct.htm" ! File "..\..\..\win32forth\Help\html\class-gdiWindowDC.htm" ! File "..\..\..\win32forth\Help\html\class-generic.htm" ! File "..\..\..\win32forth\Help\html\class-HTMLcontrol.htm" ! File "..\..\..\win32forth\Help\html\class-Mdi.htm" ! File "..\..\..\win32forth\Help\html\class-MdiDialog.htm" ! File "..\..\..\win32forth\Help\html\class-Sock.htm" ! File "..\..\..\win32forth\Help\html\class-sockserv.htm" ! File "..\..\..\win32forth\Help\html\class-SQLite.htm" ! File "..\..\..\win32forth\Help\html\class-TimerWindow.htm" ! File "..\..\..\win32forth\Help\html\class-TrayWindow.htm" ! File "..\..\..\win32forth\Help\html\class-window.htm" File "..\..\..\win32forth\Help\html\dexh-AcceleratorTables.htm" File "..\..\..\win32forth\Help\html\dexh-ansfile.htm" *************** *** 953,956 **** --- 953,957 ---- File "..\..\..\win32forth\src\CALLBACK.f" File "..\..\..\win32forth\src\CHILDWND.F" + File "..\..\..\win32forth\src\Class-errs.f" File "..\..\..\win32forth\src\Class.f" File "..\..\..\win32forth\src\CLASSDBG.F" *************** *** 959,962 **** --- 960,964 ---- File "..\..\..\win32forth\src\CONTROL.F" File "..\..\..\win32forth\src\CONTROLS.F" + File "..\..\..\win32forth\src\CreateProcess.f" File "..\..\..\win32forth\src\DBGSRC1.F" File "..\..\..\win32forth\src\DBGSRC2.F" *************** *** 987,990 **** --- 989,993 ---- File "..\..\..\win32forth\src\paths.f" File "..\..\..\win32forth\src\POINTER.F" + File "..\..\..\win32forth\src\presave.F" File "..\..\..\win32forth\src\PRIMHASH.F" File "..\..\..\win32forth\src\Primutil.f" *************** *** 994,998 **** File "..\..\..\win32forth\src\SEE.F" File "..\..\..\win32forth\src\Shell.f" ! File "..\..\..\win32forth\src\sysload.f" File "..\..\..\win32forth\src\transient.f" File "..\..\..\win32forth\src\Utils.f" --- 997,1001 ---- File "..\..\..\win32forth\src\SEE.F" File "..\..\..\win32forth\src\Shell.f" ! File "..\..\..\win32forth\src\Struct200X.f" File "..\..\..\win32forth\src\transient.f" File "..\..\..\win32forth\src\Utils.f" Index: Uninstall.nsi =================================================================== RCS file: /cvsroot/win32forth/win32forth-extsrc/extsrc/installer/Uninstall.nsi,v retrieving revision 1.11 retrieving revision 1.12 diff -C2 -d -r1.11 -r1.12 *** Uninstall.nsi 9 Mar 2013 17:33:58 -0000 1.11 --- Uninstall.nsi 9 Mar 2013 18:15:33 -0000 1.12 *************** *** 653,685 **** Delete "$INSTDIR\Help\hdb\HelpWrd.txt" Delete "$INSTDIR\Help\html\anew-w32f.htm" ! Delete "$INSTDIR\Help\html\clas-Ado.htm" ! Delete "$INSTDIR\Help\html\clas-AXControl.htm" ! Delete "$INSTDIR\Help\html\clas-BitmapDC.htm" ! Delete "$INSTDIR\Help\html\clas-childwnd.htm" ! Delete "$INSTDIR\Help\html\clas-control.htm" ! Delete "$INSTDIR\Help\html\clas-controls.htm" ! Delete "$INSTDIR\Help\html\clas-dialog.htm" ! Delete "$INSTDIR\Help\html\clas-ExtDC.htm" ! Delete "$INSTDIR\Help\html\clas-file.htm" ! Delete "$INSTDIR\Help\html\clas-gdiBase.htm" ! Delete "$INSTDIR\Help\html\clas-gdiBitmap.htm" ! Delete "$INSTDIR\Help\html\clas-gdiBrush.htm" ! Delete "$INSTDIR\Help\html\clas-gdiDC.htm" ! Delete "$INSTDIR\Help\html\clas-gdiFont.htm" ! Delete "$INSTDIR\Help\html\clas-gdiMetafile.htm" ! Delete "$INSTDIR\Help\html\clas-gdiMetafileDC.htm" ! Delete "$INSTDIR\Help\html\clas-gdiPen.htm" ! Delete "$INSTDIR\Help\html\clas-gdiStruct.htm" ! Delete "$INSTDIR\Help\html\clas-gdiWindowDC.htm" ! Delete "$INSTDIR\Help\html\clas-generic.htm" ! Delete "$INSTDIR\Help\html\clas-HTMLcontrol.htm" ! Delete "$INSTDIR\Help\html\clas-Mdi.htm" ! Delete "$INSTDIR\Help\html\clas-MdiDialog.htm" ! Delete "$INSTDIR\Help\html\clas-Sock.htm" ! Delete "$INSTDIR\Help\html\clas-sockserv.htm" ! Delete "$INSTDIR\Help\html\clas-SQLite.htm" ! Delete "$INSTDIR\Help\html\clas-TimerWindow.htm" ! Delete "$INSTDIR\Help\html\clas-TrayWindow.htm" ! Delete "$INSTDIR\Help\html\clas-window.htm" Delete "$INSTDIR\Help\html\dexh-AcceleratorTables.htm" Delete "$INSTDIR\Help\html\dexh-ansfile.htm" --- 653,685 ---- Delete "$INSTDIR\Help\hdb\HelpWrd.txt" Delete "$INSTDIR\Help\html\anew-w32f.htm" ! Delete "$INSTDIR\Help\html\class-Ado.htm" ! Delete "$INSTDIR\Help\html\class-AXControl.htm" ! Delete "$INSTDIR\Help\html\class-BitmapDC.htm" ! Delete "$INSTDIR\Help\html\class-childwnd.htm" ! Delete "$INSTDIR\Help\html\class-control.htm" ! Delete "$INSTDIR\Help\html\class-controls.htm" ! Delete "$INSTDIR\Help\html\class-dialog.htm" ! Delete "$INSTDIR\Help\html\class-ExtDC.htm" ! Delete "$INSTDIR\Help\html\class-file.htm" ! Delete "$INSTDIR\Help\html\class-gdiBase.htm" ! Delete "$INSTDIR\Help\html\class-gdiBitmap.htm" ! Delete "$INSTDIR\Help\html\class-gdiBrush.htm" ! Delete "$INSTDIR\Help\html\class-gdiDC.htm" ! Delete "$INSTDIR\Help\html\class-gdiFont.htm" ! Delete "$INSTDIR\Help\html\class-gdiMetafile.htm" ! Delete "$INSTDIR\Help\html\class-gdiMetafileDC.htm" ! Delete "$INSTDIR\Help\html\class-gdiPen.htm" ! Delete "$INSTDIR\Help\html\class-gdiStruct.htm" ! Delete "$INSTDIR\Help\html\class-gdiWindowDC.htm" ! Delete "$INSTDIR\Help\html\class-generic.htm" ! Delete "$INSTDIR\Help\html\class-HTMLcontrol.htm" ! Delete "$INSTDIR\Help\html\class-Mdi.htm" ! Delete "$INSTDIR\Help\html\class-MdiDialog.htm" ! Delete "$INSTDIR\Help\html\class-Sock.htm" ! Delete "$INSTDIR\Help\html\class-sockserv.htm" ! Delete "$INSTDIR\Help\html\class-SQLite.htm" ! Delete "$INSTDIR\Help\html\class-TimerWindow.htm" ! Delete "$INSTDIR\Help\html\class-TrayWindow.htm" ! Delete "$INSTDIR\Help\html\class-window.htm" Delete "$INSTDIR\Help\html\dexh-AcceleratorTables.htm" Delete "$INSTDIR\Help\html\dexh-ansfile.htm" *************** *** 920,923 **** --- 920,924 ---- Delete "$INSTDIR\src\CALLBACK.f" Delete "$INSTDIR\src\CHILDWND.F" + Delete "$INSTDIR\src\Class-errs.f" Delete "$INSTDIR\src\Class.f" Delete "$INSTDIR\src\CLASSDBG.F" *************** *** 926,929 **** --- 927,931 ---- Delete "$INSTDIR\src\CONTROL.F" Delete "$INSTDIR\src\CONTROLS.F" + Delete "$INSTDIR\src\CreateProcess.f" Delete "$INSTDIR\src\DBGSRC1.F" Delete "$INSTDIR\src\DBGSRC2.F" *************** *** 954,957 **** --- 956,960 ---- Delete "$INSTDIR\src\paths.f" Delete "$INSTDIR\src\POINTER.F" + Delete "$INSTDIR\src\presave.f Delete "$INSTDIR\src\PRIMHASH.F" Delete "$INSTDIR\src\Primutil.f" *************** *** 961,965 **** Delete "$INSTDIR\src\SEE.F" Delete "$INSTDIR\src\Shell.f" ! Delete "$INSTDIR\src\sysload.f" Delete "$INSTDIR\src\transient.f" Delete "$INSTDIR\src\Utils.f" --- 964,968 ---- Delete "$INSTDIR\src\SEE.F" Delete "$INSTDIR\src\Shell.f" ! Delete "$INSTDIR\src\Struct200X.f" Delete "$INSTDIR\src\transient.f" Delete "$INSTDIR\src\Utils.f" *************** *** 1222,1248 **** Delete "$INSTDIR\extsrc\installer\WinEd.exe" Delete "$INSTDIR\extsrc\installer\WinEd.ndx" ! Delete "$INSTDIR\extsrc\w32fConsole\Console.cpp" ! Delete "$INSTDIR\extsrc\w32fConsole\Console.def" ! Delete "$INSTDIR\extsrc\w32fConsole\Console.dsp" ! Delete "$INSTDIR\extsrc\w32fConsole\Console.dsw" ! Delete "$INSTDIR\extsrc\w32fConsole\Console.rc" ! Delete "$INSTDIR\extsrc\w32fConsole\HAND.CUR" ! Delete "$INSTDIR\extsrc\w32fConsole\harrow.cur" ! Delete "$INSTDIR\extsrc\w32fConsole\Keyboard.cpp" ! Delete "$INSTDIR\extsrc\w32fConsole\MAGNIFY.CUR" ! Delete "$INSTDIR\extsrc\w32fConsole\resource.h" ! Delete "$INSTDIR\extsrc\w32fConsole\SPLITH.CUR" ! Delete "$INSTDIR\extsrc\w32fConsole\SPLITV.CUR" ! Delete "$INSTDIR\extsrc\w32fConsole\StdAfx.cpp" ! Delete "$INSTDIR\extsrc\w32fConsole\StdAfx.h" ! Delete "$INSTDIR\extsrc\w32fConsole\Term.cpp" ! Delete "$INSTDIR\extsrc\w32fConsole\Term.h" ! Delete "$INSTDIR\extsrc\w32fHtmlDisplay\resource.h" ! Delete "$INSTDIR\extsrc\w32fHtmlDisplay\w32fHtmlDisplay.c" ! Delete "$INSTDIR\extsrc\w32fHtmlDisplay\w32fHtmlDisplay.def" ! Delete "$INSTDIR\extsrc\w32fHtmlDisplay\w32fHtmlDisplay.dsp" ! Delete "$INSTDIR\extsrc\w32fHtmlDisplay\w32fHtmlDisplay.dsw" ! Delete "$INSTDIR\extsrc\w32fHtmlDisplay\w32fHtmlDisplay.h" ! Delete "$INSTDIR\extsrc\w32fHtmlDisplay\w32fHtmlDisplay.rc" Delete "$INSTDIR\extsrc\w32fScintilla\delbin.bat" Delete "$INSTDIR\extsrc\w32fScintilla\delcvs.bat" --- 1225,1251 ---- Delete "$INSTDIR\extsrc\installer\WinEd.exe" Delete "$INSTDIR\extsrc\installer\WinEd.ndx" ! ; Delete "$INSTDIR\extsrc\w32fConsole\Console.cpp" ! ; Delete "$INSTDIR\extsrc\w32fConsole\Console.def" ! ; Delete "$INSTDIR\extsrc\w32fConsole\Console.dsp" ! ; Delete "$INSTDIR\extsrc\w32fConsole\Console.dsw" ! ; Delete "$INSTDIR\extsrc\w32fConsole\Console.rc" ! ; Delete "$INSTDIR\extsrc\w32fConsole\HAND.CUR" ! ; Delete "$INSTDIR\extsrc\w32fConsole\harrow.cur" ! ; Delete "$INSTDIR\extsrc\w32fConsole\Keyboard.cpp" ! ; Delete "$INSTDIR\extsrc\w32fConsole\MAGNIFY.CUR" ! ; Delete "$INSTDIR\extsrc\w32fConsole\resource.h" ! ; Delete "$INSTDIR\extsrc\w32fConsole\SPLITH.CUR" ! ; Delete "$INSTDIR\extsrc\w32fConsole\SPLITV.CUR" ! ; Delete "$INSTDIR\extsrc\w32fConsole\StdAfx.cpp" ! ; Delete "$INSTDIR\extsrc\w32fConsole\StdAfx.h" ! ; Delete "$INSTDIR\extsrc\w32fConsole\Term.cpp" ! ; Delete "$INSTDIR\extsrc\w32fConsole\Term.h" ! ; Delete "$INSTDIR\extsrc\w32fHtmlDisplay\resource.h" ! ; Delete "$INSTDIR\extsrc\w32fHtmlDisplay\w32fHtmlDisplay.c" ! ; Delete "$INSTDIR\extsrc\w32fHtmlDisplay\w32fHtmlDisplay.def" ! ; Delete "$INSTDIR\extsrc\w32fHtmlDisplay\w32fHtmlDisplay.dsp" ! ; Delete "$INSTDIR\extsrc\w32fHtmlDisplay\w32fHtmlDisplay.dsw" ! ; Delete "$INSTDIR\extsrc\w32fHtmlDisplay\w32fHtmlDisplay.h" ! ; Delete "$INSTDIR\extsrc\w32fHtmlDisplay\w32fHtmlDisplay.rc" Delete "$INSTDIR\extsrc\w32fScintilla\delbin.bat" Delete "$INSTDIR\extsrc\w32fScintilla\delcvs.bat" *************** *** 1434,1439 **** RMDir "$INSTDIR\extsrc\w32fScintilla\doc\" RMDir "$INSTDIR\extsrc\w32fScintilla\" ! RMDir "$INSTDIR\extsrc\w32fHtmlDisplay\" ! RMDir "$INSTDIR\extsrc\w32fConsole\" RMDir "$INSTDIR\extsrc\installer\" RMDir "$INSTDIR\extsrc\" --- 1437,1442 ---- RMDir "$INSTDIR\extsrc\w32fScintilla\doc\" RMDir "$INSTDIR\extsrc\w32fScintilla\" ! ; RMDir "$INSTDIR\extsrc\w32fHtmlDisplay\" ! ; RMDir "$INSTDIR\extsrc\w32fConsole\" RMDir "$INSTDIR\extsrc\installer\" RMDir "$INSTDIR\extsrc\" Index: Win32Forth.nsi =================================================================== RCS file: /cvsroot/win32forth/win32forth-extsrc/extsrc/installer/Win32Forth.nsi,v retrieving revision 1.14 retrieving revision 1.15 diff -C2 -d -r1.14 -r1.15 *** Win32Forth.nsi 9 Mar 2013 17:33:58 -0000 1.14 --- Win32Forth.nsi 9 Mar 2013 18:15:33 -0000 1.15 *************** *** 7,18 **** ; Define your application version !define VER_MAJOR 6 ! !define VER_MINOR 14 ! !define VER_REVISION 02 ! !define VER_DISPLAY "6.14.02" ! !define VER_FILE "61402" ; Define your application name !define APPNAME "Win32Forth" !define APPNAMEANDVERSION "${APPNAME} ${VER_DISPLAY}" !define PUBISHER "Win32Forth Project Group" --- 7,22 ---- ; Define your application version !define VER_MAJOR 6 ! !define VER_MINOR 15 ! !define VER_REVISION 01 ! !define VER_DISPLAY "6.15.01" ! !define VER_FILE "61501" ! !define VER_FOLDER "615xx" ! ; Define your application name !define APPNAME "Win32Forth" !define APPNAMEANDVERSION "${APPNAME} ${VER_DISPLAY}" + !define APPFOLDER "${APPNAME} ${VER_FOLDER}" + !define PUBISHER "Win32Forth Project Group" *************** *** 22,27 **** ; Main Install settings Name "${APPNAMEANDVERSION}" ! ; InstallDir "$PROGRAMFILES\${APPNAMEANDVERSION}" ! InstallDir "c:\${APPNAMEANDVERSION}" InstallDirRegKey HKLM "Software\${APPNAMEANDVERSION}" "" OutFile "w32f${VER_FILE}.exe" --- 26,31 ---- ; Main Install settings Name "${APPNAMEANDVERSION}" ! ; InstallDir "$PROGRAMFILES\${APPFOLDER}" ! InstallDir "c:\${APPFOLDER}" InstallDirRegKey HKLM "Software\${APPNAMEANDVERSION}" "" OutFile "w32f${VER_FILE}.exe" |
|
From: George H. <geo...@us...> - 2013-03-09 17:34:01
|
Update of /cvsroot/win32forth/win32forth-extsrc/extsrc/installer In directory sfp-cvs-1.v30.ch3.sourceforge.com:/tmp/cvs-serv16491 Modified Files: Files.nsi Uninstall.nsi Win32Forth.nsi Log Message: Updated for V6.14.02 plus removed .bak files (shouldn't be there anyway). Index: Files.nsi =================================================================== RCS file: /cvsroot/win32forth/win32forth-extsrc/extsrc/installer/Files.nsi,v retrieving revision 1.10 retrieving revision 1.11 diff -C2 -d -r1.10 -r1.11 *** Files.nsi 1 Sep 2010 06:52:35 -0000 1.10 --- Files.nsi 9 Mar 2013 17:33:58 -0000 1.11 *************** *** 1,3 **** ! ; Set Section Files and Shortcuts SetOutPath "$INSTDIR\" File "..\..\..\win32forth\fkernel.exe" --- 1,3 ---- ! ; Set Section Files and Shortcuts SetOutPath "$INSTDIR\" File "..\..\..\win32forth\fkernel.exe" Index: Uninstall.nsi =================================================================== RCS file: /cvsroot/win32forth/win32forth-extsrc/extsrc/installer/Uninstall.nsi,v retrieving revision 1.10 retrieving revision 1.11 diff -C2 -d -r1.10 -r1.11 *** Uninstall.nsi 1 Sep 2010 06:52:35 -0000 1.10 --- Uninstall.nsi 9 Mar 2013 17:33:58 -0000 1.11 *************** *** 1145,1148 **** --- 1145,1208 ---- Delete "$INSTDIR\Templates\TreeViewInSplitWindow.f" + ; Remove remaining directories + RMDir "$SMPROGRAMS\My Application" + RMDir "$INSTDIR\Templates\" + RMDir "$INSTDIR\src\tools\" + RMDir "$INSTDIR\src\res\" + RMDir "$INSTDIR\src\old\" + RMDir "$INSTDIR\src\lib\fmacro\" + RMDir "$INSTDIR\src\lib\Ext_classes\" + RMDir "$INSTDIR\src\lib\" + RMDir "$INSTDIR\src\kernel\" + RMDir "$INSTDIR\src\gdi\" + RMDir "$INSTDIR\src\console\" + RMDir "$INSTDIR\src\Compat\" + RMDir "$INSTDIR\src\" + RMDir "$INSTDIR\proj\" + RMDir "$INSTDIR\Help\Res\" + RMDir "$INSTDIR\Help\html\IDE\" + RMDir "$INSTDIR\Help\html\Guides\" + RMDir "$INSTDIR\Help\html\dpans\" + RMDir "$INSTDIR\Help\html\" + RMDir "$INSTDIR\Help\hdb\" + RMDir "$INSTDIR\Help\" + RMDir "$INSTDIR\doc\OldStuff\OldConsole\" + RMDir "$INSTDIR\doc\OldStuff\" + RMDir "$INSTDIR\doc\Noble stuff\" + RMDir "$INSTDIR\doc\ForthForm\" + RMDir "$INSTDIR\doc\" + RMDir "$INSTDIR\demos\MiniDB\" + RMDir "$INSTDIR\demos\GdiDemo\" + RMDir "$INSTDIR\demos\COM\" + RMDir "$INSTDIR\demos\ADO\" + RMDir "$INSTDIR\demos\AccelDemo\" + RMDir "$INSTDIR\demos\" + RMDir "$INSTDIR\apps\WinEd\res\" + RMDir "$INSTDIR\apps\WinEd\" + RMDir "$INSTDIR\apps\Win32ForthIDE\res\" + RMDir "$INSTDIR\apps\Win32ForthIDE\Forms\" + RMDir "$INSTDIR\apps\Win32ForthIDE\" + RMDir "$INSTDIR\apps\Sudoku\Res\" + RMDir "$INSTDIR\apps\Sudoku\Games\" + RMDir "$INSTDIR\apps\Sudoku\" + RMDir "$INSTDIR\apps\Solipon2\" + RMDir "$INSTDIR\apps\Setup\" + RMDir "$INSTDIR\apps\SciEdit\res\" + RMDir "$INSTDIR\apps\SciEdit\" + RMDir "$INSTDIR\apps\ProMgr\res\" + RMDir "$INSTDIR\apps\ProMgr\" + RMDir "$INSTDIR\apps\PlayVirginRadio\" + RMDir "$INSTDIR\apps\Player4\" + RMDir "$INSTDIR\apps\PictureViewer\Res\" + RMDir "$INSTDIR\apps\PictureViewer\" + RMDir "$INSTDIR\apps\Internet\WebServer\" + RMDir "$INSTDIR\apps\Internet\" + RMDir "$INSTDIR\apps\ForthForm\res\" + RMDir "$INSTDIR\apps\ForthForm\" + RMDir "$INSTDIR\apps\Console-Games\" + RMDir "$INSTDIR\apps\Chess\" + RMDir "$INSTDIR\apps\" + RMDir "$INSTDIR\" + ; Clean up ExtSource Delete "$INSTDIR\extsrc\installer\ExtFiles.nsi" *************** *** 1379,1383 **** RMDir "$INSTDIR\extsrc\" - RMDir "$SMPROGRAMS\My Application" RMDir "$INSTDIR\Templates\" RMDir "$INSTDIR\src\tools\" --- 1439,1442 ---- Index: Win32Forth.nsi =================================================================== RCS file: /cvsroot/win32forth/win32forth-extsrc/extsrc/installer/Win32Forth.nsi,v retrieving revision 1.13 retrieving revision 1.14 diff -C2 -d -r1.13 -r1.14 *** Win32Forth.nsi 31 Aug 2010 07:27:02 -0000 1.13 --- Win32Forth.nsi 9 Mar 2013 17:33:58 -0000 1.14 *************** *** 8,14 **** !define VER_MAJOR 6 !define VER_MINOR 14 ! !define VER_REVISION 01 ! !define VER_DISPLAY "6.14.01" ! !define VER_FILE "61401" ; Define your application name --- 8,14 ---- !define VER_MAJOR 6 !define VER_MINOR 14 ! !define VER_REVISION 02 ! !define VER_DISPLAY "6.14.02" ! !define VER_FILE "61402" ; Define your application name |
|
From: George H. <geo...@us...> - 2013-03-08 21:01:08
|
Update of /cvsroot/win32forth/win32forth/Help/hdb In directory sfp-cvs-1.v30.ch3.sourceforge.com:/tmp/cvs-serv20283 Modified Files: HelpCls.tv HelpWrd.hdb HelpWrd.tv HelpWrd.txt Log Message: Updated help files Index: HelpCls.tv =================================================================== RCS file: /cvsroot/win32forth/win32forth/Help/hdb/HelpCls.tv,v retrieving revision 1.16 retrieving revision 1.17 diff -C2 -d -r1.16 -r1.17 *** HelpCls.tv 7 Mar 2013 16:19:15 -0000 1.16 --- HelpCls.tv 8 Mar 2013 21:01:03 -0000 1.17 *************** *** 1,2290 **** ! 0 tvn| CLASSROOT| tvd| 5536| 1 tvn| -methods-| tvd| 0| ! -2 tvn| CLASSINIT:| tvd| 5537| ! -2 tvn| ~:| tvd| 5538| ! -2 tvn| ADDR:| tvd| 5539| ! -2 tvn| PRINT:| tvd| 5540| ! 1 tvn| OBJECT| tvd| 5541| 2 tvn| -methods-| tvd| 0| ! -3 tvn| GET:| tvd| 5542| ! -3 tvn| PUT:| tvd| 5543| [...4551 lines suppressed...] ! -4 tvn| FIELDNAME:| tvd| 8596| ! -4 tvn| GETINT:| tvd| 8597| ! -4 tvn| GETDOUBLE:| tvd| 8598| ! -4 tvn| GETFLOAT:| tvd| 8599| ! -4 tvn| GETSTR:| tvd| 8600| ! -4 tvn| GETBLOB:| tvd| 8601| ! -4 tvn| ISNULL?:| tvd| 8602| ! -4 tvn| NEXTROW:| tvd| 8603| ! -4 tvn| (BIND):| tvd| 8604| ! -4 tvn| BINDINT:| tvd| 8605| ! -4 tvn| BINDDOUBLE:| tvd| 8606| ! -4 tvn| BINDFLOAT:| tvd| 8607| ! -4 tvn| BINDSTR:| tvd| 8608| ! -4 tvn| BINDBLOB:| tvd| 8609| ! 1 tvn| STRING| tvd| 8616| 2 tvn| -methods-| tvd| 0| ! -3 tvn| GET:| tvd| 8617| ! -3 tvn| PUT:| tvd| 8618| ! -3 tvn| ADD:| tvd| 8619| ! -3 tvn| APPEND:| tvd| 8620| Index: HelpWrd.txt =================================================================== RCS file: /cvsroot/win32forth/win32forth/Help/hdb/HelpWrd.txt,v retrieving revision 1.22 retrieving revision 1.23 diff -C2 -d -r1.22 -r1.23 *** HelpWrd.txt 7 Mar 2013 16:19:16 -0000 1.22 --- HelpWrd.txt 8 Mar 2013 21:01:03 -0000 1.23 *************** *** 1447,1453 **** CREATE USERCONFIG$ BYTES &PS - : (CLASSINIT) ( -- ) - : (CLASSINIT) ( n1 -- ) : (CLASSINIT) ( x y width height -- ) CONSTANT 1/1 CONSTANT 1/2 --- 1447,1453 ---- CREATE USERCONFIG$ BYTES &PS [...1191 lines suppressed...] : IN-SYS-SPACE? ( addr -- flag ) : INIT-SYSTEM-LOCKS-OFF ( -- ) ! \ Set all the system deferred words for locking to noops. This is done automatically \ by the system at start-up so code that uses it will work correctly before the locks \ are initialised. --- 13862,13867 ---- : IN-SYS-SPACE? ( addr -- flag ) : INIT-SYSTEM-LOCKS-OFF ( -- ) ! \ Set all the system deferred words for locking and unlocking (except (memlock) and ! \ (memunlock) which are set by the kernel) to noops. This is done automatically \ by the system at start-up so code that uses it will work correctly before the locks \ are initialised. *************** *** 13895,13898 **** --- 13903,13907 ---- NEW-SYS-CHAIN POST-FORGET-CHAIN \ chain of types of things to forget NEW-SYS-CHAIN PRE-SAVE-IMAGE-CHAIN \ chain for things to be done to an image prior to saving + DEFER PRESETCONSOLEIO VALUE PROC_NEXT \ next procedure value : RADIX: ( n1 -<name>- ) Index: HelpWrd.hdb =================================================================== RCS file: /cvsroot/win32forth/win32forth/Help/hdb/HelpWrd.hdb,v retrieving revision 1.22 retrieving revision 1.23 diff -C2 -d -r1.22 -r1.23 Binary files /tmp/cvsqUwrEP and /tmp/cvsVz8ygh differ Index: HelpWrd.tv =================================================================== RCS file: /cvsroot/win32forth/win32forth/Help/hdb/HelpWrd.tv,v retrieving revision 1.21 retrieving revision 1.22 diff -C2 -d -r1.21 -r1.22 *** HelpWrd.tv 7 Mar 2013 16:19:16 -0000 1.21 --- HelpWrd.tv 8 Mar 2013 21:01:03 -0000 1.22 *************** *** 1,14591 **** 0 tvn| Words| tvd| 0| ! 1 tvn| CLASSROOT| tvd| 5536| 2 tvn| -methods-| tvd| 0| ! -3 tvn| CLASSINIT:| tvd| 5537| ! -3 tvn| ~:| tvd| 5538| ! -3 tvn| ADDR:| tvd| 5539| ! -3 tvn| PRINT:| tvd| 5540| ! 2 tvn| OBJECT| tvd| 5541| 3 tvn| -methods-| tvd| 0| ! -4 tvn| GET:| tvd| 5542| [...29158 lines suppressed...] ! 2 tvn| \+| tvd| 5360| ! 2 tvn| \-| tvd| 5361| ! 2 tvn| \IN-SYSTEM-OK| tvd| 5366| ! 2 tvn| \S| tvd| 5409| ! 2 tvn| ]MACRO| tvd| 5251| ! 2 tvn| __STDCALL| tvd| 5242| ! 2 tvn| {| tvd| 5432| ! 2 tvn| {:| tvd| 5431| ! 2 tvn| |IF| tvd| 4936| ! 2 tvn| |OF| tvd| 4935| 1 tvn| Deprecated| tvd| 0| ! 2 tvn| .DIR->FILE-NAME| tvd| 5089| ! 2 tvn| >BOLD| tvd| 4148| ! 2 tvn| >NORM| tvd| 4147| ! 2 tvn| ABS>REL| tvd| 5386| ! 2 tvn| REL>ABS| tvd| 5387| ! 2 tvn| TASK-SLEEP| tvd| 2600| ! 2 tvn| _PRINT-DIR-FILES| tvd| 5087| 1 tvn| Vocabularies| tvd| 0| 2 tvn| Application space| tvd| 0| |
|
From: George H. <geo...@us...> - 2013-03-08 20:52:50
|
Update of /cvsroot/win32forth/win32forth In directory sfp-cvs-1.v30.ch3.sourceforge.com:/tmp/cvs-serv19835 Modified Files: setup.exe Log Message: Latest version of setup (at 80.5k I don't think I can get it much smaller) Index: setup.exe =================================================================== RCS file: /cvsroot/win32forth/win32forth/setup.exe,v retrieving revision 1.46 retrieving revision 1.47 diff -C2 -d -r1.46 -r1.47 Binary files /tmp/cvs3mw69N and /tmp/cvs6gBosQ differ |
|
From: George H. <geo...@us...> - 2013-03-08 20:43:07
|
Update of /cvsroot/win32forth/win32forth/src In directory sfp-cvs-1.v30.ch3.sourceforge.com:/tmp/cvs-serv19404 Modified Files: Menu.f Pre-save.f Primutil.f imageman.f Log Message: Finished moving words. Now turnkeys can have a dos console (like setup.exe) but not the GUI based one (lot's of things in that are still in-system). Minor corrections Index: Pre-save.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/Pre-save.f,v retrieving revision 1.3 retrieving revision 1.4 diff -C2 -d -r1.3 -r1.4 *** Pre-save.f 7 Mar 2013 15:29:02 -0000 1.3 --- Pre-save.f 8 Mar 2013 20:43:04 -0000 1.4 *************** *** 3,6 **** --- 3,8 ---- in-system + Require Imageman.f + : Trim-image-list ( addr -- ) \ *G Given the head of a list or chain remove all those items not in the image. *************** *** 32,41 **** : Init?EnableConsoleMessages ( -- ) ! ['] noop ['] ?EnableConsoleMessages >image >body ! ; pre-save-image-chain chain-add Init?EnableConsoleMessages - in-previous - : PreInitAppID ( -- ) NewAppID &of MyAppID >image ! --- 34,41 ---- : Init?EnableConsoleMessages ( -- ) ! ['] noop is-image ?EnableConsoleMessages ; pre-save-image-chain chain-add Init?EnableConsoleMessages : PreInitAppID ( -- ) NewAppID &of MyAppID >image ! *************** *** 45,46 **** --- 45,48 ---- pre-save-image-chain chain-add PreInitAppID + + in-previous Index: Primutil.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/Primutil.f,v retrieving revision 1.57 retrieving revision 1.58 diff -C2 -d -r1.57 -r1.58 *** Primutil.f 8 Mar 2013 00:07:53 -0000 1.57 --- Primutil.f 8 Mar 2013 20:43:04 -0000 1.58 *************** *** 836,839 **** --- 836,840 ---- + in-system \ ------------------ switching defered i/o ------------------ *************** *** 869,874 **** ['] k_bye IS bye ; - \ in-system - : DosConsole ( -- ) \ switch to DOS console functions ['] NOOP IS CONSOLE --- 870,873 ---- *************** *** 898,910 **** ['] K_NOOP1 IS &THE-SCREEN ['] NOOP IS SCROLLTOVIEW ! \ reset BYE to default ( althought should have never changed) ['] k_bye IS bye ; in-application \ defered i/o setting for various consoles ! : (NoConsoleBoot) ( -- ) NoConsoleIO ; \ in-system ! : (DosConsoleBoot) ( -- ) DosConsole init-console drop ; defer (ConsoleBoot) ' DosConsole is (ConsoleBoot) --- 897,911 ---- ['] K_NOOP1 IS &THE-SCREEN ['] NOOP IS SCROLLTOVIEW ! \ reset BYE to default ( although should have never changed) ['] k_bye IS bye ; in-application \ defered i/o setting for various consoles ! : (NoConsoleBoot) ( -- ) ( NoConsoleIO ) ; \ in-system ! : (DosConsoleBoot) ( -- ) ( DosConsole ) init-console drop ; ! ! in-system defer (ConsoleBoot) ' DosConsole is (ConsoleBoot) *************** *** 912,918 **** defer (ConsoleHiddenBoot) ' DosConsole is (ConsoleHiddenBoot) ! in-system \ ----------------------------------------------------------------------- --- 913,921 ---- defer (ConsoleHiddenBoot) ' DosConsole is (ConsoleHiddenBoot) + defer PresetConsoleIO ' noop is PresetConsoleIO + pre-save-image-chain chain-add PresetConsoleIO ! \ in-system \ ----------------------------------------------------------------------- *************** *** 1062,1066 **** : init-system-locks-off ( -- ) ! \ *G Set all the system deferred words for locking to noops. This is done automatically \ ** by the system at start-up so code that uses it will work correctly before the locks \ ** are initialised. --- 1065,1070 ---- : init-system-locks-off ( -- ) ! \ *G Set all the system deferred words for locking and unlocking (except (memlock) and ! \ ** (memunlock) which are set by the kernel) to noops. This is done automatically \ ** by the system at start-up so code that uses it will work correctly before the locks \ ** are initialised. Index: Menu.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/Menu.f,v retrieving revision 1.9 retrieving revision 1.10 diff -C2 -d -r1.9 -r1.10 *** Menu.f 14 Feb 2013 20:05:48 -0000 1.9 --- Menu.f 8 Mar 2013 20:43:04 -0000 1.10 *************** *** 492,496 **** :M ClassInit: ( -- ) ClassInit: super ! m"text" ,"text" ;M --- 492,496 ---- :M ClassInit: ( -- ) ClassInit: super ! \in-system-ok m"text" ,"text" ;M *************** *** 510,514 **** :M ClassInit: ( check_flag -- ) ClassInit: super ! m"text" to check_flag ;M --- 510,514 ---- :M ClassInit: ( check_flag -- ) ClassInit: super ! \in-system-ok m"text" to check_flag ;M Index: imageman.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/imageman.f,v retrieving revision 1.29 retrieving revision 1.30 diff -C2 -d -r1.29 -r1.30 *** imageman.f 7 Mar 2013 15:29:02 -0000 1.29 --- imageman.f 8 Mar 2013 20:43:04 -0000 1.30 *************** *** 276,281 **** ; - \ EXTERNAL - : SECTIONTYPE ( n -- ) \ section characteristics SECT-CHARACTER @ OR SECT-CHARACTER ! ; \ or them in --- 276,279 ---- *************** *** 328,333 **** ; - \ INTERNAL - : SECTWRITE ( -- ) \ write out sections EXEH-#SECTS W@ 0 ?DO \ now each section --- 326,329 ---- *************** *** 396,401 **** ; - \ EXTERNAL - : IMPLIB ( addr len -- ) \ define library name IMPLIB-LINK IMPSTR \ allocate the string --- 392,395 ---- *************** *** 449,454 **** )) - \ INTERNAL - (( 0 VALUE CURR-IID \ current IID --- 443,446 ---- *************** *** 459,463 **** 0 VALUE LEN-ALLIIDS \ length of all IIDs )) ! \ EXTERNAL : MOVE-NAME { src dest -- len } --- 451,455 ---- 0 VALUE LEN-ALLIIDS \ length of all IIDs )) ! \ : MOVE-NAME { src dest -- len } *************** *** 560,565 **** 0 VALUE BUILDTYPE \ EXE or DLL - \ EXTERNAL - : SUBSYSTEM ( m -- ) \ declare subsystem CASE --- 552,555 ---- *************** *** 729,733 **** ; ! PREVIOUS DEFINITIONS ALSO VIMAGE --- 719,723 ---- ; ! External *************** *** 818,825 **** IMG-ENTRY TO IMAGE-ENTRY STD-EXELOAD TO IMAGE-ORIGIN - IMAGE-PTR APP-ORIGIN - >R \ adjust to app origin ZERO-WORDS \ list of app words to zero - pre-save-image-chain do-chain \ do any extra manipulations BEGIN DUP CELL+ SWAP @ ?DUP WHILE --- 808,814 ---- IMG-ENTRY TO IMAGE-ENTRY STD-EXELOAD TO IMAGE-ORIGIN IMAGE-PTR APP-ORIGIN - >R \ adjust to app origin + ZERO-WORDS \ list of app words to zero BEGIN DUP CELL+ SWAP @ ?DUP WHILE *************** *** 827,834 **** --- 816,854 ---- REPEAT R>DROP DROP + pre-save-image-chain do-chain \ do any extra manipulations + IMAGE-STATS ; + Internal + + \ ------------------------------------------------------------------------------ + \ Helper words for Image manipulation + \ ------------------------------------------------------------------------------ + + : >IMAGE-APP ( Addr1 -- Addr2 ) + APP-ORIGIN - IMAGE-APPPTR + ; + + : >IMAGE-SYS ( Addr1 -- Addr2 ) + SYS-ORIGIN - IMAGE-SYSPTR + ; + + : >IMAGE-CODE ( Addr1 -- Addr2 ) + CODE-ORIGIN - IMAGE-CODEPTR + ; + + EXTERNAL + + : >IMAGE ( Addr1 -- Addr2|false ) + dup in-app-space? if >image-app else + dup in-sys-space? if >image-sys else + dup in-code-space? if >image-code else + drop false then then then ; + + : IN-IMAGE? ( Addr1 -- flag ) + dup in-app-space? over in-sys-space? or swap in-code-space? or ; + + : is-image ( xt "name" -- ) \ preset a defer to xt + ?comp ' >body postpone literal postpone >image postpone ! ; immediate + \ ------------------------------------------------------------------------------ \ General boot words *************** *** 895,904 **** \ This could be solved once the Console itself uses MessageLoop. \ ------------------------------------------------------------------------------ ! \ SAVE & TURNKEY \ ------------------------------------------------------------------------------ ! IN-SYSTEM CREATE &appdir MAXCOUNTED 1+ ALLOT \ static application directory --- 915,987 ---- \ This could be solved once the Console itself uses MessageLoop. + IN-SYSTEM \ ------------------------------------------------------------------------------ ! \ PresetConsole Defers in image \ ------------------------------------------------------------------------------ ! : PresetDosConsole ( -- ) \ Preset DOS console functions in Image ! ['] NOOP IS-IMAGE CONSOLE ! ['] d_Init-Console IS-IMAGE INIT-CONSOLE ! ['] NOOP IS-IMAGE INIT-SCREEN ! ['] d_KEY IS-IMAGE KEY ! ['] d_KEY? IS-IMAGE KEY? ! ['] d_ACCEPT IS-IMAGE ACCEPT ! ['] DROP IS-IMAGE PUSHKEY ! ['] 2DROP IS-IMAGE "PUSHKEYS ! ['] NOOP IS-IMAGE CLS ! ['] d_EMIT IS-IMAGE EMIT ! ['] d_TYPE IS-IMAGE TYPE ! ['] d_CR IS-IMAGE CR ! ['] DROP IS-IMAGE ?CR ! ['] 2DROP IS-IMAGE GOTOXY ! ['] K_NOOP2 IS-IMAGE GETXY ! ['] 2DROP IS-IMAGE FGBG! ! ['] K_NOOP1 IS-IMAGE FG@ ! ['] K_NOOP1 IS-IMAGE BG@ ! ['] 2DROP IS-IMAGE SETCHARWH ! ['] K_NOOP2 IS-IMAGE CHARWH ! ['] DROP IS-IMAGE SET-CURSOR ! ['] K_NOOP1 IS-IMAGE GET-CURSOR ! ['] K_NOOP2 IS-IMAGE GETCOLROW ! ['] K_NOOP1 IS-IMAGE GETROWOFF ! ['] K_NOOP1 IS-IMAGE &THE-SCREEN ! ['] NOOP IS-IMAGE SCROLLTOVIEW ! \ preset BYE to default ( although should have never changed) ! ['] k_bye IS-IMAGE bye ; ! ! : PresetNoConsoleIO ( -- ) \ Preset all defered I/O words to noop's. ! ['] NOOP IS-IMAGE CONSOLE ! ['] K_NOOP1 IS-IMAGE INIT-CONSOLE ! ['] NOOP IS-IMAGE INIT-SCREEN ! ['] K_NOOP1 IS-IMAGE KEY ! ['] K_NOOP1 IS-IMAGE KEY? ! ['] K_NOOP0 IS-IMAGE ACCEPT ! ['] DROP IS-IMAGE PUSHKEY ! ['] 2DROP IS-IMAGE "PUSHKEYS ! ['] NOOP IS-IMAGE CLS ! ['] DROP IS-IMAGE EMIT ! ['] 2DROP IS-IMAGE TYPE ! ['] NOOP IS-IMAGE CR ! ['] DROP IS-IMAGE ?CR ! ['] 2DROP IS-IMAGE GOTOXY ! ['] K_NOOP2 IS-IMAGE GETXY ! ['] 2DROP IS-IMAGE FGBG! ! ['] K_NOOP1 IS-IMAGE FG@ ! ['] K_NOOP1 IS-IMAGE BG@ ! ['] 2DROP IS-IMAGE SETCHARWH ! ['] K_NOOP2 IS-IMAGE CHARWH ! ['] DROP IS-IMAGE SET-CURSOR ! ['] K_NOOP1 IS-IMAGE GET-CURSOR ! ['] K_NOOP2 IS-IMAGE GETCOLROW ! ['] K_NOOP1 IS-IMAGE GETROWOFF ! ['] K_NOOP1 IS-IMAGE &THE-SCREEN ! ['] NOOP IS-IMAGE SCROLLTOVIEW ! \ preset BYE to default ( although should have never changed) ! ['] k_bye IS-IMAGE bye ; ! ! \ ------------------------------------------------------------------------------ ! \ SAVE & TURNKEY ! \ ------------------------------------------------------------------------------ CREATE &appdir MAXCOUNTED 1+ ALLOT \ static application directory *************** *** 948,957 **** ConsoleMode case ! 1 of ['] (NoConsoleBoot) endof ! 2 of ['] (DosConsoleBoot) endof ! 4 of ['] (ConsoleBoot) endof ! 8 of ['] (ConsoleHiddenBoot) endof true Abort" Illegal console mode" endcase is DoConsoleBoot \ set SAVEd console mode 0 to ConsoleMode \ reset default (saver & image) --- 1031,1041 ---- ConsoleMode case ! 1 of ['] (NoConsoleBoot) ['] PresetNoConsoleIO endof ! 2 of ['] (DosConsoleBoot) ['] PresetDosConsole endof ! 4 of action-of (ConsoleBoot) ['] noop endof ! 8 of action-of (ConsoleHiddenBoot) ['] noop endof true Abort" Illegal console mode" endcase + is PresetConsoleIO \ set to preset IO in image is DoConsoleBoot \ set SAVEd console mode 0 to ConsoleMode \ reset default (saver & image) *************** *** 1018,1043 **** r> throw ; \ throw error after restore - \ Helper words for Image manipulation - - : >IMAGE-APP ( Addr1 -- Addr2 ) - APP-ORIGIN - IMAGE-APPPTR + ; - - : >IMAGE-SYS ( Addr1 -- Addr2 ) - SYS-ORIGIN - IMAGE-SYSPTR + ; - - : >IMAGE-CODE ( Addr1 -- Addr2 ) - CODE-ORIGIN - IMAGE-CODEPTR + ; - - EXTERNAL - - : >IMAGE ( Addr1 -- Addr2|false ) - dup in-app-space? if >image-app else - dup in-sys-space? if >image-sys else - dup in-code-space? if >image-code else - drop false then then then ; - - : IN-IMAGE? ( Addr1 -- flag ) - dup in-app-space? over in-sys-space? or swap in-code-space? or ; - MODULE --- 1102,1105 ---- |
|
From: George H. <geo...@us...> - 2013-03-08 00:07:55
|
Update of /cvsroot/win32forth/win32forth/src/console In directory sfp-cvs-1.v30.ch3.sourceforge.com:/tmp/cvs-serv21580/console Modified Files: Console1.f Log Message: Moved words to application space so that setup could be turnkeyed. Work in progress. Index: Console1.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/console/Console1.f,v retrieving revision 1.8 retrieving revision 1.9 diff -C2 -d -r1.8 -r1.9 *** Console1.f 26 Jul 2009 13:16:27 -0000 1.8 --- Console1.f 8 Mar 2013 00:07:53 -0000 1.9 *************** *** 234,237 **** --- 234,239 ---- \ 0 value savecony + in-application + 2 PROC ShowWindow : show-window ( n -- ) *************** *** 265,270 **** \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ - in-application - SYNONYM EKEY KEY ( -- u ) SYNONYM EKEY? KEY? ( -- flag ) --- 267,270 ---- |
|
From: George H. <geo...@us...> - 2013-03-08 00:00:13
|
Update of /cvsroot/win32forth/win32forth In directory sfp-cvs-1.v30.ch3.sourceforge.com:/tmp/cvs-serv21124 Modified Files: setup.exe Log Message: Latest setup (very small) Index: setup.exe =================================================================== RCS file: /cvsroot/win32forth/win32forth/setup.exe,v retrieving revision 1.45 retrieving revision 1.46 diff -C2 -d -r1.45 -r1.46 Binary files /tmp/cvsrCvCUW and /tmp/cvsxn2l7c differ |
|
From: George H. <geo...@us...> - 2013-03-07 23:58:41
|
Update of /cvsroot/win32forth/win32forth/apps/Setup In directory sfp-cvs-1.v30.ch3.sourceforge.com:/tmp/cvs-serv21040 Modified Files: Setup.f Log Message: Now works as turnkey (and is a lot smaller). Index: Setup.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/Setup/Setup.f,v retrieving revision 1.29 retrieving revision 1.30 diff -C2 -d -r1.29 -r1.30 *** Setup.f 7 Mar 2013 15:36:22 -0000 1.29 --- Setup.f 7 Mar 2013 23:58:39 -0000 1.30 *************** *** 32,35 **** --- 32,36 ---- FLOAD ..\..\src\shell.f SYS-FLOAD ..\..\src\imageman.f + sys-fload ..\..\src\Pre-save.f FLOAD ..\..\src\Keyboard.f \ function and special key constants *************** *** 585,589 **** DosConsoleBoot ! ' setup s" Setup.exe" Prepend<home>\ "SAVE FLOAD ..\..\src\lib\Resources.f --- 586,591 ---- DosConsoleBoot ! ' setup s" Setup.exe" Prepend<home>\ \ "SAVE ! s" '" pad place pad +place s" '" pad +place pad count ' turnkey execute-parsing \ cludgy but it works FLOAD ..\..\src\lib\Resources.f |
|
From: George H. <geo...@us...> - 2013-03-07 16:41:39
|
Update of /cvsroot/win32forth/win32forth/src/Compat In directory sfp-cvs-1.v30.ch3.sourceforge.com:/tmp/cvs-serv22853/src/Compat Modified Files: Evolve.f Log Message: Newest setup.exe plus updated evolve.f for ((createprocess)) Index: Evolve.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/Compat/Evolve.f,v retrieving revision 1.11 retrieving revision 1.12 diff -C2 -d -r1.11 -r1.12 *** Evolve.f 16 Nov 2009 23:14:30 -0000 1.11 --- Evolve.f 7 Mar 2013 16:41:36 -0000 1.12 *************** *** 127,131 **** : zEXEC \ replace by zEXEC-CMD or zEXEC-CMD-WAIT depending on your needs ( a1 -- f1 ) \ execute a command line ! count [CreateProcess] ; deprecated \ since a long time : ` \ replace by SHELL --- 127,131 ---- : zEXEC \ replace by zEXEC-CMD or zEXEC-CMD-WAIT depending on your needs ( a1 -- f1 ) \ execute a command line ! count ((CreateProcess)) ; deprecated \ since a long time : ` \ replace by SHELL |
|
From: George H. <geo...@us...> - 2013-03-07 16:41:38
|
Update of /cvsroot/win32forth/win32forth In directory sfp-cvs-1.v30.ch3.sourceforge.com:/tmp/cvs-serv22853 Modified Files: setup.exe Log Message: Newest setup.exe plus updated evolve.f for ((createprocess)) Index: setup.exe =================================================================== RCS file: /cvsroot/win32forth/win32forth/setup.exe,v retrieving revision 1.44 retrieving revision 1.45 diff -C2 -d -r1.44 -r1.45 Binary files /tmp/cvsi1QAmG and /tmp/cvs0HTEJF differ |
|
From: George H. <geo...@us...> - 2013-03-07 16:19:50
|
Update of /cvsroot/win32forth/win32forth/Help In directory sfp-cvs-1.v30.ch3.sourceforge.com:/tmp/cvs-serv18417 Modified Files: HelpBuildHDB.f HelpMain.f HelpScope.f Log Message: Renamed index file extension to.hdx to avoid confusion with .ndx files used by the editors. Index file appears only to be needed to build the database: should it be a temporary file? Index: HelpScope.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/Help/HelpScope.f,v retrieving revision 1.8 retrieving revision 1.9 diff -C2 -d -r1.8 -r1.9 *** HelpScope.f 26 Feb 2012 20:01:35 -0000 1.8 --- HelpScope.f 7 Mar 2013 16:19:15 -0000 1.9 *************** *** 173,176 **** --- 173,178 ---- SrcScope: src\exceptio.f \ windows exception handling + SrcScope: src\CreateProcess.f \ common code REQUIREd by w32fmsg.f and Shell.f + SrcScope: src\w32fMsgList.f \ load win32forth-specific messages list SrcScope: src\w32fMsg.f \ load win32forth-specific messages Index: HelpMain.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/Help/HelpMain.f,v retrieving revision 1.12 retrieving revision 1.13 diff -C2 -d -r1.12 -r1.13 *** HelpMain.f 17 Jan 2012 21:07:46 -0000 1.12 --- HelpMain.f 7 Mar 2013 16:19:15 -0000 1.13 *************** *** 164,168 **** DFILE HelpFct.hdb DummyFilename \ Functionality table DFILE HelpWrd.hdb DummyFilename \ words database ! DFILE HelpWrd.ndx DummyFilename \ words index DFILE HelpWrd.txt DummyFilename \ words quick info DFILE HelpWrd.tv DummyFilename \ words treeview-structure-text-file --- 164,168 ---- DFILE HelpFct.hdb DummyFilename \ Functionality table DFILE HelpWrd.hdb DummyFilename \ words database ! DFILE HelpWrd.hdx DummyFilename \ words index DFILE HelpWrd.txt DummyFilename \ words quick info DFILE HelpWrd.tv DummyFilename \ words treeview-structure-text-file *************** *** 211,218 **** New$ &ForthDir count 2 pick place ! s" Help\hdb\HelpWrd.ndx" 2 pick +place ! count HelpWrd.ndx FileName! ! HelpWrd.ndx fopen or ! HelpWrd.ndx fclose drop New$ &ForthDir count 2 pick place --- 211,218 ---- New$ &ForthDir count 2 pick place ! s" Help\hdb\HelpWrd.hdx" 2 pick +place ! count HelpWrd.hdx FileName! ! HelpWrd.hdx fopen or ! HelpWrd.hdx fclose drop New$ &ForthDir count 2 pick place *************** *** 429,436 **** : ReadNdx ( -- status ) \ status: =0 ok \ fill array of record with file's contents ! helpWrd.ndx fopen \ open file if 2 exit then ! filecells 2 cells helpWrd.ndx ReadSeq \ get file header ! if helpWrd.ndx fClose drop 4 exit then filecell1 @ #Wrd ! filecell2 @ 1+ WordName diSize ! \ dirty trick to resize --- 429,436 ---- : ReadNdx ( -- status ) \ status: =0 ok \ fill array of record with file's contents ! HelpWrd.hdx fopen \ open file if 2 exit then ! filecells 2 cells HelpWrd.hdx ReadSeq \ get file header ! if HelpWrd.hdx fClose drop 4 exit then filecell1 @ #Wrd ! filecell2 @ 1+ WordName diSize ! \ dirty trick to resize *************** *** 442,451 **** HelpWrd[] valloc ! 0 helpWrd.ndx FSEEK \ load whole file ! if helpWrd.ndx fClose drop 4 exit then 0 HelpWrd[] vaddr HelpWrd[] SizeOf ! helpWrd.ndx READSEQ ! if helpWrd.ndx fClose drop 4 exit then ! helpWrd.ndx fClose drop 0 ; (( --- 442,451 ---- HelpWrd[] valloc ! 0 HelpWrd.hdx FSEEK \ load whole file ! if HelpWrd.hdx fClose drop 4 exit then 0 HelpWrd[] vaddr HelpWrd[] SizeOf ! HelpWrd.hdx READSEQ ! if HelpWrd.hdx fClose drop 4 exit then ! HelpWrd.hdx fClose drop 0 ; (( Index: HelpBuildHDB.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/Help/HelpBuildHDB.f,v retrieving revision 1.5 retrieving revision 1.6 diff -C2 -d -r1.5 -r1.6 *** HelpBuildHDB.f 18 Nov 2011 11:43:54 -0000 1.5 --- HelpBuildHDB.f 7 Mar 2013 16:19:15 -0000 1.6 *************** *** 371,375 **** \ ------------------------------------------------------------------------------ cr .( ) ! cr .( Building main help database HelpWrd.hdb and index HelpWrd.ndx) cr .( ) \ ------------------------------------------------------------------------------ --- 371,375 ---- \ ------------------------------------------------------------------------------ cr .( ) ! cr .( Building main help database HelpWrd.hdb and index HelpWrd.hdx) cr .( ) \ ------------------------------------------------------------------------------ *************** *** 976,980 **** \ ------------------------------------------------------------------------------ ! cr .( A bit of housekeeping for HelpWrd.hdb and create HelpWrd.ndx from tWrdList...) \ ------------------------------------------------------------------------------ --- 976,980 ---- \ ------------------------------------------------------------------------------ ! cr .( A bit of housekeeping for HelpWrd.hdb and create HelpWrd.hdx from tWrdList...) \ ------------------------------------------------------------------------------ *************** *** 996,1000 **** ! cr .( Creating HelpWrd.ndx from tWrdList...) \ ------------------------------------------ --- 996,1000 ---- ! cr .( Creating HelpWrd.hdx from tWrdList...) \ ------------------------------------------ *************** *** 1046,1050 **** ! cr .( Sorting HelpWrd.ndx by ascending words...) cr .( [there may exist multiple keys, eg methods, same words in different vocs, etc]) \ ----------------------------------------------------------------------------- --- 1046,1050 ---- ! cr .( Sorting HelpWrd.hdx by ascending words...) cr .( [there may exist multiple keys, eg methods, same words in different vocs, etc]) \ ----------------------------------------------------------------------------- *************** *** 1070,1074 **** \ For now the WordExtra field contains (only for methods) the n0 of the record in \ HelpWrd.hdb of the method's parent. Here we replace this by the n0 of the record ! \ in HelpWrd.ndx itself. This must be done AFTER index sorting, so that n0records \ in index will remain unchanged from now on. --- 1070,1074 ---- \ For now the WordExtra field contains (only for methods) the n0 of the record in \ HelpWrd.hdb of the method's parent. Here we replace this by the n0 of the record ! \ in HelpWrd.hdx itself. This must be done AFTER index sorting, so that n0records \ in index will remain unchanged from now on. *************** *** 1112,1127 **** \ save index to file ! DFILE tHelpWrd.ndx DummyFilename \ file on disk NoStack New$ &ForthDir count 2 pick place \ set file name ! s" Help\hdb\HelpWrd.ndx" 2 pick +place ! count tHelpWrd.ndx FileName! ! \ tHelpWrd.ndx .filename ! tHelpWrd.ndx fforcecreate 0<> [IF] -1 abort" Couldn't create tHelpWrd.ndx" [THEN] ! tHelpWrd.ndx fopen 0<> [IF] -1 abort" Couldn't open tHelpWrd.ndx" [THEN] NoStack 0 tHelpWrd[] vaddr tHelpWrd[] SizeOf ! tHelpWrd.ndx WRITESEQ 0<> [IF] -1 abort" Write error in tHelpWrd.ndx" [THEN] ! tHelpWrd.ndx fClose drop --- 1112,1127 ---- \ save index to file ! DFILE tHelpWrd.hdx DummyFilename \ file on disk NoStack New$ &ForthDir count 2 pick place \ set file name ! s" Help\hdb\HelpWrd.hdx" 2 pick +place ! count tHelpWrd.hdx FileName! ! \ tHelpWrd.hdx .filename ! tHelpWrd.hdx fforcecreate 0<> [IF] -1 abort" Couldn't create tHelpWrd.hdx" [THEN] ! tHelpWrd.hdx fopen 0<> [IF] -1 abort" Couldn't open tHelpWrd.hdx" [THEN] NoStack 0 tHelpWrd[] vaddr tHelpWrd[] SizeOf ! tHelpWrd.hdx WRITESEQ 0<> [IF] -1 abort" Write error in tHelpWrd.hdx" [THEN] ! tHelpWrd.hdx fClose drop *************** *** 1444,1448 **** ! \ Check in HelScope.f the hidden vocabularies and files that you will retreive \ from the following search. : PreBuildFct ( -- ) --- 1444,1448 ---- ! \ Check in HelpScope.f the hidden vocabularies and files that you will retrieve \ from the following search. : PreBuildFct ( -- ) *************** *** 1501,1505 **** \ ------------------------------------------------------------------------------ ! \ HelpWrd.hdb and HelpWrd.ndx are now finished. \ We also have a little part of the tv-structure-text-file (for top down classes) \ Now, we have to create the whole tv-structure-text-file --- 1501,1505 ---- \ ------------------------------------------------------------------------------ ! \ HelpWrd.hdb and HelpWrd.hdx are now finished. \ We also have a little part of the tv-structure-text-file (for top down classes) \ Now, we have to create the whole tv-structure-text-file |
1040 messages has been excluded from this view by a project administrator.
