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-11-28 19:13:27
|
Update of /cvsroot/win32forth/win32forth/apps/WinEd In directory sfp-cvs-1.v30.ch3.sourceforge.com:/tmp/cvs-serv27345 Modified Files: Ed_EditWindowObj.F Ed_Keys.F WinEd.f Log Message: Modified to use [ ACTION-OF BYE COMPILE,] rather than BYE so the old setting is used to avoid endles recursion: it only worked by accident. Index: WinEd.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/WinEd/WinEd.f,v retrieving revision 1.26 retrieving revision 1.27 diff -C2 -d -r1.26 -r1.27 *** WinEd.f 17 Jan 2012 19:36:11 -0000 1.26 --- WinEd.f 28 Nov 2013 19:13:25 -0000 1.27 *************** *** 180,185 **** s" WinEd.exe" prepend<home>\ (AddCheckSum) 1 pause-seconds bye ! [else] ! s" src\res\WinEd.ico" s" WinEd.exe" Prepend<home>\ AddAppIcon WinEd [then] --- 180,184 ---- s" WinEd.exe" prepend<home>\ (AddCheckSum) 1 pause-seconds bye ! [else] WinEd [then] Index: Ed_EditWindowObj.F =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/WinEd/Ed_EditWindowObj.F,v retrieving revision 1.5 retrieving revision 1.6 diff -C2 -d -r1.5 -r1.6 *** Ed_EditWindowObj.F 5 Oct 2005 15:54:39 -0000 1.5 --- Ed_EditWindowObj.F 28 Nov 2013 19:13:25 -0000 1.6 *************** *** 231,235 **** THEN ; ! \ New above latest on bottom : "PutTextOut ( a1 n1 -- ) \ Need a short comment here jp??? --- 231,235 ---- THEN ; ! \ New above latest on bottom : "PutTextOut ( a1 n1 -- ) \ Need a short comment here jp??? *************** *** 368,372 **** WHILE @ REPEAT here swap ! 0 , here cell+ , ! docol , \ make a headerless def compile (s") ,"text" align \ compile in html command string compile (?htm-EXIT) \ compile in html test --- 368,372 ---- WHILE @ REPEAT here swap ! 0 , here cell+ , ! \in-system-ok docol , \ make a headerless def compile (s") ,"text" align \ compile in html command string compile (?htm-EXIT) \ compile in html test *************** *** 376,380 **** ( a1 n1 -- a2 n2 ) \ runtime html-chain \ link into html-chain ! StringHtml ; : &: ( "&string" -- ) \ compile time --- 376,380 ---- ( a1 n1 -- a2 n2 ) \ runtime html-chain \ link into html-chain ! StringHtml ; : &: ( "&string" -- ) \ compile time Index: Ed_Keys.F =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/WinEd/Ed_Keys.F,v retrieving revision 1.10 retrieving revision 1.11 diff -C2 -d -r1.10 -r1.11 *** Ed_Keys.F 2 Sep 2008 06:38:41 -0000 1.10 --- Ed_Keys.F 28 Nov 2013 19:13:25 -0000 1.11 *************** *** 48,52 **** view-before-bye term-canceled? 0= ! IF k_BYE THEN ; --- 48,52 ---- view-before-bye term-canceled? 0= ! IF [ Action-of BYE compile, ] THEN ; |
|
From: George H. <geo...@us...> - 2013-11-20 18:45:37
|
Update of /cvsroot/win32forth/win32forth/apps/Player4 In directory sfp-cvs-1.v30.ch3.sourceforge.com:/tmp/cvs-serv14417 Modified Files: Pl_About.f Log Message: Index: Pl_About.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/Player4/Pl_About.f,v retrieving revision 1.3 retrieving revision 1.4 diff -C2 -d -r1.3 -r1.4 Binary files /tmp/cvs0L8vAz and /tmp/cvs9IHB1J differ |
|
From: George H. <geo...@us...> - 2013-11-20 12:32:56
|
Update of /cvsroot/win32forth/win32forth In directory sfp-cvs-1.v30.ch3.sourceforge.com:/tmp/cvs-serv21999 Modified Files: fkernel.exe setup.exe Log Message: Latest EXE's Index: setup.exe =================================================================== RCS file: /cvsroot/win32forth/win32forth/setup.exe,v retrieving revision 1.50 retrieving revision 1.51 diff -C2 -d -r1.50 -r1.51 Binary files /tmp/cvsaZdips and /tmp/cvsOvSlRe differ Index: fkernel.exe =================================================================== RCS file: /cvsroot/win32forth/win32forth/fkernel.exe,v retrieving revision 1.65 retrieving revision 1.66 diff -C2 -d -r1.65 -r1.66 Binary files /tmp/cvsEi2Snr and /tmp/cvsT0TYRd differ |
|
From: George H. <geo...@us...> - 2013-11-20 12:28:39
|
Update of /cvsroot/win32forth/win32forth/src/lib In directory sfp-cvs-1.v30.ch3.sourceforge.com:/tmp/cvs-serv21636/lib Modified Files: FolderView.f ScintillaLexer.f switch.f Log Message: Added UserObject: (see new version of TEMPRECT in class.f) for example of use (easy). Made rectangles in windows all use a User object (it's task safe). WaitforMessage now forwards WM_QUIT to the outer message loop. Added UserObject: to see and improved seeing of switches. Minor tidy up. Index: switch.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/lib/switch.f,v retrieving revision 1.7 retrieving revision 1.8 diff -C2 -d -r1.7 -r1.8 *** switch.f 22 Apr 2013 19:53:54 -0000 1.7 --- switch.f 20 Nov 2013 12:28:36 -0000 1.8 *************** *** 196,213 **** dup .condition @ repeat ; ! : .DEFAULT ( xt -- ) \ Print default. ! ." default ( n -- ) " 2 cells + @ dup unknown? ! if ." does: " >body .pfa ! else .name then ; : (.SWITCH) ( xt -- ) \ Print Switch. ! dup cr .default >body @ .conditions ; : _.SWITCH ( xt -- xt|0) \ Used by SEE. ! -if dup @ doswitch = if ." is a switch" ! (.switch) 0 then then ; \in-system-ok .other-class-chain chain-add _.switch --- 196,211 ---- dup .condition @ repeat ; ! : .DEFAULT ( xt f -- ) \ Print default. ! if >body .pfa else .name then ; : (.SWITCH) ( xt -- ) \ Print Switch. ! dup 2 cells + @ dup unknown? tuck 2>r if ." SWITCH: " else ." [SWITCH " then ! dup .name space 2r> .default >body @ .conditions ." SWITCH]" cr ; : _.SWITCH ( xt -- xt|0) \ Used by SEE. ! -if dup @ doswitch = if (.switch) 0 then then ; \in-system-ok .other-class-chain chain-add _.switch *************** *** 220,224 **** \ ** they are defined the earlier they are in the list. dup @ doswitch <> abort" expects the xt of a SWITCH" ! cr dup .name (.switch) ; : .SWITCHES \ FORTH SYSTEM --- 218,222 ---- \ ** they are defined the earlier they are in the list. dup @ doswitch <> abort" expects the xt of a SWITCH" ! cr (.switch) ; : .SWITCHES \ FORTH SYSTEM Index: FolderView.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/lib/FolderView.f,v retrieving revision 1.6 retrieving revision 1.7 diff -C2 -d -r1.6 -r1.7 *** FolderView.f 2 Dec 2010 05:25:32 -0000 1.6 --- FolderView.f 20 Nov 2013 12:28:36 -0000 1.7 *************** *** 1,2 **** --- 1,4 ---- + \ $Id$ + \ FolderView.f \ Adapted from FileLister.f Wednesday, July 04 2007 Ezra Boyce Index: ScintillaLexer.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/lib/ScintillaLexer.f,v retrieving revision 1.11 retrieving revision 1.12 diff -C2 -d -r1.11 -r1.12 *** ScintillaLexer.f 15 Nov 2013 19:35:04 -0000 1.11 --- ScintillaLexer.f 20 Nov 2013 12:28:36 -0000 1.12 *************** *** 65,69 **** ,{ CATCH THROW ABORT QUIT AS MACRO #DEFINE } ,{ RECORD: ;RECORD ;RECORDSIZE: BYTES BYTE BITS SHORT INT DINT } ! ,{ MACRO: ENDM SUBR: CFA-FUNC |CLASS } ,{ DEFAULTOF RANGEOF "OF "OF-BEGIN "OF-CONTAIN |OF |IF } --- 65,69 ---- ,{ CATCH THROW ABORT QUIT AS MACRO #DEFINE } ,{ RECORD: ;RECORD ;RECORDSIZE: BYTES BYTE BITS SHORT INT DINT } ! ,{ MACRO: ENDM SUBR: CFA-FUNC |CLASS USEROBJECT: } ,{ DEFAULTOF RANGEOF "OF "OF-BEGIN "OF-CONTAIN |OF |IF } |
|
From: George H. <geo...@us...> - 2013-11-20 12:28:38
|
Update of /cvsroot/win32forth/win32forth/src In directory sfp-cvs-1.v30.ch3.sourceforge.com:/tmp/cvs-serv21636 Modified Files: CONTROLS.F Class.f GENERIC.F Primutil.f SEE.F WINMSG.F Window.f Log Message: Added UserObject: (see new version of TEMPRECT in class.f) for example of use (easy). Made rectangles in windows all use a User object (it's task safe). WaitforMessage now forwards WM_QUIT to the outer message loop. Added UserObject: to see and improved seeing of switches. Minor tidy up. Index: WINMSG.F =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/WINMSG.F,v retrieving revision 1.6 retrieving revision 1.7 diff -C2 -d -r1.6 -r1.7 *** WINMSG.F 11 Jun 2007 22:26:51 -0000 1.6 --- WINMSG.F 20 Nov 2013 12:28:36 -0000 1.7 *************** *** 137,141 **** INTERNAL ! : ("message) ( f -- ) \ display message window OnTop: msg-window MessageText: msg-window --- 137,141 ---- INTERNAL ! : ("message) ( addr len f -- ) \ display message window OnTop: msg-window MessageText: msg-window Index: GENERIC.F =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/GENERIC.F,v retrieving revision 1.30 retrieving revision 1.31 diff -C2 -d -r1.30 -r1.31 *** GENERIC.F 15 Nov 2013 19:35:03 -0000 1.30 --- GENERIC.F 20 Nov 2013 12:28:36 -0000 1.31 *************** *** 19,31 **** \ ** any instances. \n \ ** The Global Rectangle objects wRect and WndRect ( originally ! \ ** defined in Window.f ) have been replaced by a Rectangle IVAR WinRect so that \ ** Windows in different threads don't interfere with each other's drawing \ ** operations. \n ! \ ** For backwards compatibility wRect is defined as an int which is set ! \ ** to the address of WinRect by the ClassInit: method ( and WndRect is defined as ! \ ** an alias of wRect in Window.f. Also ) however WinRect should be used in new ! \ ** code since it uses early binding. ClientRect in class EditControl ( in Controls.f ) ! \ ** is also defined as an alias of wRect for compatibility. \n ! \ ** We also provide wRect as an alias of TempRect for compatibility. \n --- 19,27 ---- \ ** any instances. \n \ ** The Global Rectangle objects wRect and WndRect ( originally ! \ ** defined in Window.f ) are now synonyms of temprect ( defined in class.f ) ! \ ** which has been made a User Object so that \ ** Windows in different threads don't interfere with each other's drawing \ ** operations. \n ! *************** *** 55,58 **** --- 51,55 ---- ' TempRect Alias wRect \ Can't be made a colon def - [cdo-2008May13] + ' TempRect Alias WinRect \ Moved from control.f since it's also used by descendants of the class window. *************** *** 71,75 **** \ *G Base class for all window objects. ! \ Macros for backward compatibility : wRect.addrof s" addrof: winrect" evaluate ; immediate --- 68,72 ---- \ *G Base class for all window objects. ! (( \ Macros for backward compatibility : wRect.addrof s" addrof: winrect" evaluate ; immediate *************** *** 94,98 **** : TempRect.bottom \ synonym of wRect.bottom for backward compatibility postpone wRect.bottom ; IMMEDIATE ! in-application --- 91,95 ---- : TempRect.bottom \ synonym of wRect.bottom for backward compatibility postpone wRect.bottom ; IMMEDIATE ! )) in-application *************** *** 151,162 **** 1 bits wStatus31 ! Rectangle WinRect \ The following is for backward compatibility. Use WinRect for new code since it will \ be early bound whereas wRect will be latebound. ! int wRect ! synonym tempRect wRect \ ----------------------------------------------------------------- --- 148,159 ---- 1 bits wStatus31 ! \ Rectangle WinRect \ The following is for backward compatibility. Use WinRect for new code since it will \ be early bound whereas wRect will be latebound. ! \ int wRect ! \ synonym tempRect wRect \ ----------------------------------------------------------------- *************** *** 206,210 **** \in-system-ok if link-window then \ turnkeyed application so skip linking dialoglink off \ added Sonntag, Juni 04 2006 dbu ! addr: WinRect to wRect ;M --- 203,207 ---- \in-system-ok if link-window then \ turnkeyed application so skip linking dialoglink off \ added Sonntag, Juni 04 2006 dbu ! \ addr: WinRect to wRect ;M Index: CONTROLS.F =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/CONTROLS.F,v retrieving revision 1.13 retrieving revision 1.14 diff -C2 -d -r1.13 -r1.14 *** CONTROLS.F 6 Nov 2013 21:56:29 -0000 1.13 --- CONTROLS.F 20 Nov 2013 12:28:36 -0000 1.14 *************** *** 22,25 **** --- 22,27 ---- cr .( Loading Low Level Controls...) + synonym ClientRect wRect + \ *W <a name="EditControl"></a> \ *S EditControl class *************** *** 35,58 **** int pWmKillFocus \ function returns '0' if it handled message, non-zero otherwise - \ For backwards compatibility. NOTE must be defined with synonym for typing in the object compiler. - synonym ClientRect wRect \ made colon defs - [cdo-2008May13]. Undone Tuesday, February 09 2010 gah. - synonym ClientRect.addrof wRect.addrof - synonym ClientRect.left wRect.left - synonym ClientRect.right wRect.right - synonym ClientRect.top wRect.top - \ Synonym ClientRect.bottom wRect.bottom - \ : ClientRect \ synonym of wRect - for backwards compatibility - \ wRect ; - \ : ClientRect.addrof \ synonym of wRect.addrof - for backwards compatibility - \ wRect.addrof ; - \ : ClientRect.left \ synonym of wRect.left - for backwards compatibility - \ wRect.left ; - \ : ClientRect.right \ synonym of wRect.right - for backwards compatibility - \ wRect.right ; - \ : ClientRect.top \ synonym of wRect.top - for backwards compatibility - \ wRect.top ; - \ : ClientRect.bottom \ synonym of wRect.bottom - for backwards compatibility - \ wRect.bottom ; - :M ClassInit: ( -- ) \ *G Initialise the class. --- 37,40 ---- Index: Class.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/Class.f,v retrieving revision 1.44 retrieving revision 1.45 diff -C2 -d -r1.44 -r1.45 *** Class.f 6 Nov 2013 21:56:29 -0000 1.44 --- Class.f 20 Nov 2013 12:28:36 -0000 1.45 *************** *** 13,20 **** REQUIRE CLASS-ERRS.F - -4105 constant warn_clash - - throw_msgs link, warn_clash , ," has a hash value that is already recognised by this class." - true value ?win-error-enabled \ initially errors are enabled --- 13,16 ---- *************** *** 24,27 **** --- 20,27 ---- IN-SYSTEM + -4105 constant warn_clash + + throw_msgs link, warn_clash , ," has a hash value that is already recognised by this class." + : @word ( -<word>- addr ) bl word uppercase ; *************** *** 369,374 **** r> r> swap XFA ! ; \ restore XFA contents ! : (Building) ( #elems ^class OR ^class -- ) ! doObj , \ cfa dup , \ class here (newObject) ! --- 369,373 ---- r> r> swap XFA ! ; \ restore XFA contents ! : <Building> ( #elems ^class OR ^class -- ) dup , \ class here (newObject) ! *************** *** 378,381 **** --- 377,383 ---- ClassInit ; \ send CLASSINIT: message + : (Building) ( #elems ^class OR ^class -- ) + doObj , <Building> ; \ cfa + : (|Build) ( #elems ^class OR ^class -- ) \ Build an instance of a class ^class *************** *** 404,411 **** in-previous - external - \ ( <number_of_elements> theClass -- ) ! : (heapObj) { theClass \ dLen obAddr idWid #els -- } 0 to #els theClass DFA @ to dLen --- 406,411 ---- in-previous \ ( <number_of_elements> theClass -- ) ! : (heapObj) { theClass \ dLen obAddr idWid #els -- addr } 0 to #els theClass DFA @ to dLen *************** *** 430,433 **** --- 430,435 ---- in-system + external + \ The following definition is executed at compile time so as long as its run-time (heapobj) is \ in application space it can go in system space *************** *** 448,451 **** --- 450,500 ---- internal + cfa-code DoUserObj + push ebx + mov ecx, 4 [eax] + add ecx, edx \ ecx is now address of pointer in user area. + mov ebx, 0 [ecx] + cmp ebx, # 0 + jne short @@3 + mov ebx, useroffs negate [edx] + and ebx, # Main-Task + test ebx, # Main-Task + je short @@1 + lea ebx, 12 [eax] + jmp short @@2 + @@1: mov ebx, 8 [eax] + push ecx + fcall (heapObj) + pop ecx + @@2: mov 0 [ecx], ebx + @@3: next + ;c + + : ?isUserObj ( cfa -- f ) + @ doUserObj = ; + + get-current also hidden definitions + + : .USEROBJECT: ( cfa -- ) + ." USEROBJECT: " dup 2 cells+ @ body> .name .name ; + + : _.USEROBJECT: ( cfa -- cfa|0 ) + -if dup ?isUserObj if .USEROBJECT: 0 then then ; + + \in-system-ok .other-class-chain chain-add _.USEROBJECT: + + previous set-current + + external + + : UserObject: ( Define: "class" "name" -- Child: -- addr ) + \ *G Create a new user variable that is a pointer to either the object following object ( for the main task only ) + \ ** or to a dynamic object on the heap ( for other tasks ). The dynamic object is only created the first time it's + \ ** referenced. The pointer is set for the main task at compile time or the first usage for a saved program. + ' dup ?isClass not THROW_NOT_CLASS ?throw >body Header DoUserObj compile, + NEXT-USER @ dup cell+ NEXT-USER ! , <building> ; + + internal + \ --------------- Build SUPER and SELF pseudo ivars --------------- *************** *** 703,713 **** \ by str. parmfind ?missing ! dup ?IsObj if 1 exit then ! dup ?IsClass if 2 exit then ! dup ?IsLocal if 4 exit then ! dup ?IsParen if 5 exit then \ needs to preceed next line, ! dup ?IsVect if 3 exit then \ because [ is a deferred word ! dup ?Is** if 6 exit then ! dup ?Is[self] if 7 exit then 1 THROW_INVALID_OBJ_REF ?throw ; --- 752,763 ---- \ by str. parmfind ?missing ! dup ?IsObj if 1 exit then ! dup ?IsClass if 2 exit then ! dup ?IsLocal if 4 exit then ! dup ?IsParen if 5 exit then \ needs to preceed next line, ! dup ?IsVect if 3 exit then \ because [ is a deferred word ! dup ?Is** if 6 exit then ! dup ?Is[self] if 7 exit then ! dup ?isUserObj if 8 exit then 1 THROW_INVALID_OBJ_REF ?throw ; *************** *** 793,796 **** --- 843,853 ---- selID Class (findm) compile, ; + : UserObj.Var, { selID ObjCfa \ Obj Class -- } + ObjCfa 3 cells+ dup NestedObject to Obj to Class obj_hstring c@ + if Class VarFind POSTPONE LITERAL + then + ObjCfa compile, Obj swap - ?dup if POSTPONE LITERAL postpone + then + selID Class (findm) compile, ; + 0 value varCfa *************** *** 825,836 **** : objRef ( selID $str -- ) \ Build a reference to an object or vector Case refToken ! 0 ( ? ) of abort endof ! 1 ( object ) of Obj.Var, endof ! 2 ( class ) of >Class (findm) , endof ! 3 ( vector ) of compile, POSTPONE (defer) , endof ! 4 ( parm ) of compile, POSTPONE (defer) , endof ! 5 ( paren ) of drop LateBound endof ! 6 ( ** ) of drop postpone (defer) , endof ! 7 ( [self] ) of drop postpone ^base postpone (defer) , endof Endcase ; --- 882,894 ---- : objRef ( selID $str -- ) \ Build a reference to an object or vector Case refToken ! 0 ( ? ) of abort endof ! 1 ( object ) of Obj.Var, endof ! 2 ( class ) of >Class (findm) , endof ! 3 ( vector ) of compile, POSTPONE (defer) , endof ! 4 ( parm ) of compile, POSTPONE (defer) , endof ! 5 ( paren ) of drop LateBound endof ! 6 ( ** ) of drop postpone (defer) , endof ! 7 ( [self] ) of drop postpone ^base postpone (defer) , endof ! 8 ( User Object ) of UserObj.Var, endof Endcase ; *************** *** 838,849 **** 0 to varCfa Case refToken ! 0 ( ? ) of abort endof ! 1 ( object ) of RunObj.Var endof ! 2 ( class ) of >Class (findm) endof ! 3 ( vector ) of execute Find-Method endof ! 4 ( parm ) of abort endof ! 5 ( paren ) of drop LateBound ['] noop endof ! 6 ( ** ) of drop swap Find-Method endof ! 7 ( [self] ) of abort endof Endcase ; --- 896,908 ---- 0 to varCfa Case refToken ! 0 ( ? ) of abort endof ! 1 ( object ) of RunObj.Var endof ! 2 ( class ) of >Class (findm) endof ! 3 ( vector ) of execute Find-Method endof ! 4 ( parm ) of abort endof ! 5 ( paren ) of drop LateBound ['] noop endof ! 6 ( ** ) of drop swap Find-Method endof ! 7 ( [self] ) of abort endof ! 8 ( User Object ) of dup execute -rot 2 cells+ @ (findm) endof Endcase ; *************** *** 903,907 **** ! : x.do_message ( -- ) x.buf (do_message) ; IMMEDIATE --- 962,966 ---- ! : x.do_message ( -- ) \ Not normally used directly x.buf (do_message) ; IMMEDIATE *************** *** 941,945 **** then x.buf find ! ( check it is obj ) ( arm) -if drop dup ?isObj then ( arm) nip ?dup 0= --- 1000,1004 ---- then x.buf find ! ( check it is obj ) ( arm) -if drop dup ?isObj over ?isUserObj or then ( arm) nip ?dup 0= *************** *** 1423,1427 **** ;Class ! RECTANGLE temprect \ a sample rectangle object, used by the system sometimes --- 1482,1486 ---- ;Class ! UserObject: RECTANGLE temprect \ a sample rectangle object, used by the system sometimes Index: SEE.F =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/SEE.F,v retrieving revision 1.13 retrieving revision 1.14 diff -C2 -d -r1.13 -r1.14 *** SEE.F 20 Mar 2013 23:51:21 -0000 1.13 --- SEE.F 20 Nov 2013 12:28:36 -0000 1.14 *************** *** 264,270 **** : .OTHER ( cfa -- ) - DUP .NAME .other-class-chain do-chain ?dup ! if DUP @ OVER CELL+ = IF .CODE EXIT THEN \ will need changed for code sect DUP DOES>? IF .DOES> EXIT THEN .;CODE --- 264,269 ---- : .OTHER ( cfa -- ) .other-class-chain do-chain ?dup ! if DUP .NAME DUP @ OVER CELL+ = IF .CODE EXIT THEN \ will need changed for code sect DUP DOES>? IF .DOES> EXIT THEN .;CODE Index: Window.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/Window.f,v retrieving revision 1.33 retrieving revision 1.34 diff -C2 -d -r1.33 -r1.34 *** Window.f 15 Nov 2013 19:35:03 -0000 1.33 --- Window.f 20 Nov 2013 12:28:36 -0000 1.34 *************** *** 42,56 **** \ ------------------------------------------------------------ :CLASS Window <SUPER Generic-Window \ *G Base class for window objects. - \ The following synonyms replace the original global rectangle object - \ and dotted notations for it, for backward compatibility: see Generic.f - synonym WndRect.addrof wRect.addrof - synonym WndRect.left wRect.left - synonym WndRect.right wRect.right - synonym WndRect.top wRect.top - synonym WndRect.bottom wRect.bottom - int CurrentPopup \ current right mouse popup menu int CurrentMenu \ current menubar --- 42,50 ---- \ ------------------------------------------------------------ + synonym WndRect wrect + :CLASS Window <SUPER Generic-Window \ *G Base class for window objects. int CurrentPopup \ current right mouse popup menu int CurrentMenu \ current menubar *************** *** 74,82 **** int hWndParent \ handle of the parent window (added Sonntag, Juni 04 2006 dbu) - \ The following is for backward compatibility. Use WinRect for new code since it will - \ be early bound whereas wRect will be latebound. - - synonym WndRect wrect - :M ClassInit: ( -- ) \ *G Initialise the class. --- 68,71 ---- Index: Primutil.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/Primutil.f,v retrieving revision 1.64 retrieving revision 1.65 diff -C2 -d -r1.64 -r1.65 *** Primutil.f 15 Nov 2013 19:35:03 -0000 1.64 --- Primutil.f 20 Nov 2013 12:28:36 -0000 1.65 *************** *** 80,84 **** IN-APPLICATION ! defer "message ' 2drop is "message defer "top-message ' 2drop is "top-message defer message-off ' noop is message-off --- 80,84 ---- IN-APPLICATION ! defer "message ( addr len -- ) ' 2drop is "message defer "top-message ' 2drop is "top-message defer message-off ' noop is message-off *************** *** 850,855 **** 7 cells LocalAlloc: pMsg 0 0 0 pMsg Call GetMessage ! IF pMsg HandleMessages drop ! THEN ; --- 850,856 ---- 7 cells LocalAlloc: pMsg 0 0 0 pMsg Call GetMessage ! IF pMsg HandleMessages ! ELSE 0 Call PostQuitMessage ! THEN drop ; |
|
From: George H. <geo...@us...> - 2013-11-20 12:09:17
|
Update of /cvsroot/win32forth/win32forth/apps/Win32ForthIDE In directory sfp-cvs-1.v30.ch3.sourceforge.com:/tmp/cvs-serv20563 Modified Files: EdFilePane.f Main.f Log Message: Added extra task to speed up initialisation Index: Main.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/Win32ForthIDE/Main.f,v retrieving revision 1.75 retrieving revision 1.76 diff -C2 -d -r1.75 -r1.76 *** Main.f 15 Nov 2013 18:23:44 -0000 1.75 --- Main.f 20 Nov 2013 12:09:15 -0000 1.76 *************** *** 401,404 **** --- 401,405 ---- 0 proc GetCurrentThread 2 proc SetThreadPriority + 1 proc CloseHandle : Below ( -- ) THREAD_PRIORITY_BELOW_NORMAL GetCurrentThread SetThreadPriority drop ; *************** *** 406,413 **** 0 :NoName ( -- ) Below InitVocBrowser: cTabWindow ; Task-Block Constant VocInitTask 0 :NoName ( -- ) Below InitClassBrowser: cTabWindow ; Task-Block Constant ClassInitTask : InitClassBrowsers ( -- ) ! VocInitTask run-task 0= abort" Failed to start background Task" ! ClassInitTask run-task 0= abort" Failed to start background Task" ; \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ --- 407,420 ---- 0 :NoName ( -- ) Below InitVocBrowser: cTabWindow ; Task-Block Constant VocInitTask 0 :NoName ( -- ) Below InitClassBrowser: cTabWindow ; Task-Block Constant ClassInitTask + 0 :NoName ( -- ) Below UpDateFiles: TheDirectory ; Task-Block Constant UpdateTask : InitClassBrowsers ( -- ) ! VocInitTask dup run-task 0= abort" Failed to start background Task" ! task>handle @ call CloseHandle drop ! ClassInitTask dup run-task 0= abort" Failed to start background Task" ! task>handle @ call CloseHandle drop ; ! ! :NoName UpdateTask dup run-task 0= abort" Failed to start background Task" ! task>handle @ call CloseHandle drop ; is UpdateAsTask \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ Index: EdFilePane.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/Win32ForthIDE/EdFilePane.f,v retrieving revision 1.7 retrieving revision 1.8 diff -C2 -d -r1.7 -r1.8 *** EdFilePane.f 21 Jul 2011 18:13:43 -0000 1.7 --- EdFilePane.f 20 Nov 2013 12:09:15 -0000 1.8 *************** *** 13,16 **** --- 13,18 ---- ImageButton imgDupeButton + defer UpdateAsTask + :Object TheFolderview <Super Child-Window *************** *** 43,47 **** : update-dir ( -- ) GetSelectedString: cmblstFilters parse-filters SetSpecs: TheDirectory ! UpDateFiles: TheDirectory ; : add-filter { \ editing? -- } --- 45,49 ---- : update-dir ( -- ) GetSelectedString: cmblstFilters parse-filters SetSpecs: TheDirectory ! UpdateAsTask ; : add-filter { \ editing? -- } |
|
From: George H. <geo...@us...> - 2013-11-20 11:48:15
|
Update of /cvsroot/win32forth/win32forth/Help/html In directory sfp-cvs-1.v30.ch3.sourceforge.com:/tmp/cvs-serv19190 Modified Files: class-generic.htm dexh-w32fmsg.htm Log Message: Updated docs Index: dexh-w32fmsg.htm =================================================================== RCS file: /cvsroot/win32forth/win32forth/Help/html/dexh-w32fmsg.htm,v retrieving revision 1.5 retrieving revision 1.6 diff -C2 -d -r1.5 -r1.6 *** dexh-w32fmsg.htm 15 Mar 2013 00:25:01 -0000 1.5 --- dexh-w32fmsg.htm 20 Nov 2013 11:48:12 -0000 1.6 *************** *** 53,57 **** </pre><p>The lines marked (*1*) (*2*) and (*3*) are all you need to set your application's inter-process identification & communication capabilities. ! </p><p>The default action is using none of theese lines, the result in this case is: </p><ul><li>While developping, your program is considered to be win32Forth itself. It is able to communicate with Help and IDE, for example for using the debugger. --- 53,57 ---- </pre><p>The lines marked (*1*) (*2*) and (*3*) are all you need to set your application's inter-process identification & communication capabilities. ! </p><p>The default action is using none of these lines, the result in this case is: </p><ul><li>While developping, your program is considered to be win32Forth itself. It is able to communicate with Help and IDE, for example for using the debugger. *************** *** 105,109 **** WM_COPYDATA, that can send any block of data to another window. </p><p>Each application can create a set of win32forth-specific messages, identified ! by custom messages numbers. Theese message identifiers must be loaded in both applications so that they understand each other. </p><p>The contents of a win32forth --- 105,109 ---- WM_COPYDATA, that can send any block of data to another window. </p><p>Each application can create a set of win32forth-specific messages, identified ! by custom messages numbers. These message identifiers must be loaded in both applications so that they understand each other. </p><p>The contents of a win32forth Index: class-generic.htm =================================================================== RCS file: /cvsroot/win32forth/win32forth/Help/html/class-generic.htm,v retrieving revision 1.6 retrieving revision 1.7 diff -C2 -d -r1.6 -r1.7 *** class-generic.htm 15 Nov 2013 17:40:43 -0000 1.6 --- class-generic.htm 20 Nov 2013 11:48:12 -0000 1.7 *************** *** 11,37 **** <h1>Generic-Window -- Base class for all window objects. </h1><p>Generic-Window is the base class for all window objects. This class ! contains a single ivar, hWnd, that is the (MS Windows) handle for the window. This class encapsulates all the Win32 API calls that specify a window handle. There will be the following subclasses of Generic-Window: </p><ul> ! <li><a href="clas-Window.htm">Window</a> Adds a device context and the ablility to display text and graphics output.</li> ! <li><a href="clas-Dialog.htm">Dialog</a> Support for dialog boxes</li> ! <li><a href="clas-Control.htm">Control</a> Adds support for the standard Win32 controls with subclassing.</li> </ul> <p>Since Generic-Window is a generic class it should not be used to create any instances. <br /> The Global Rectangle objects wRect and WndRect ( originally ! defined in Window.f ) have been replaced by a Rectangle IVAR WinRect so that Windows in different threads don't interfere with each other's drawing operations. <br /> - For backwards compatibility wRect is defined as an int which is set - to the address of WinRect by the ClassInit: method ( and WndRect is defined as - an alias of wRect in Window.f. Also ) however WinRect should be used in new - code since it uses early binding. ClientRect in class EditControl ( in Controls.f ) - is also defined as an alias of wRect for compatibility. <br /> - We also provide wRect as an alias of TempRect for compatibility. <br /> - Temporarily added new generic class Dialog&Control and moved some code into it and - duplicated the same code in Class Window so that Ivar offsets in Class Window are - the same for temporary compatibility. </p><h2>Glossary </h2><p><b><code>: get-mouse-xy ( hWnd -- x y) \ W32F --- 11,29 ---- <h1>Generic-Window -- Base class for all window objects. </h1><p>Generic-Window is the base class for all window objects. This class ! contains an ivar, hWnd, that is the (MS Windows) handle for the window. This class encapsulates all the Win32 API calls that specify a window handle. There will be the following subclasses of Generic-Window: </p><ul> ! <li><a href="class-Window.htm">Window</a> Adds a device context and the ablility to display text and graphics output.</li> ! <li><a href="class-Dialog.htm">Dialog</a> Support for dialog boxes</li> ! <li><a href="class-Control.htm">Control</a> Adds support for the standard Win32 controls with subclassing.</li> </ul> <p>Since Generic-Window is a generic class it should not be used to create any instances. <br /> The Global Rectangle objects wRect and WndRect ( originally ! defined in Window.f ) are now synonyms of temprect ( defined in class.f ) ! which has been made a User Object so that Windows in different threads don't interfere with each other's drawing operations. <br /> </p><h2>Glossary </h2><p><b><code>: get-mouse-xy ( hWnd -- x y) \ W32F |
|
From: George H. <geo...@us...> - 2013-11-19 16:37:29
|
Update of /cvsroot/win32forth/win32forth In directory sfp-cvs-1.v30.ch3.sourceforge.com:/tmp/cvs-serv6395 Modified Files: fkernel.exe Log Message: New Kernel needed by some later files. Index: fkernel.exe =================================================================== RCS file: /cvsroot/win32forth/win32forth/fkernel.exe,v retrieving revision 1.64 retrieving revision 1.65 diff -C2 -d -r1.64 -r1.65 Binary files /tmp/cvsSVW9gR and /tmp/cvsaM2kNk differ |
|
From: George H. <geo...@us...> - 2013-11-19 16:31:47
|
Update of /cvsroot/win32forth/win32forth/src/kernel In directory sfp-cvs-1.v30.ch3.sourceforge.com:/tmp/cvs-serv5943 Modified Files: fkernel.f Log Message: Made Main-Task findable. Added LATESTXT (as in STC). Moved user variables used by exceptions. Index: fkernel.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/kernel/fkernel.f,v retrieving revision 1.97 retrieving revision 1.98 diff -C2 -d -r1.97 -r1.98 *** fkernel.f 15 Nov 2013 19:35:03 -0000 1.97 --- fkernel.f 19 Nov 2013 16:31:44 -0000 1.98 *************** *** 2011,2014 **** --- 2011,2016 ---- DUP USER &EXREC CELL+ ( for exception handling ) DUP USER &EXCEPT CELL+ ( for exception handling ) + DUP USER exc-guard CELL+ + DUP USER exc-access CELL+ DUP USER HANDLER CELL+ ( throw frame ) DUP USER LP CELL+ ( local variable pointer ) *************** *** 2045,2049 **** Task-Status @ and 0 <> ; ! 1 | Constant Main-Task 2 Constant Assync-Task --- 2047,2051 ---- Task-Status @ and 0 <> ; ! 1 Constant Main-Task 2 Constant Assync-Task *************** *** 2903,2906 **** --- 2905,2909 ---- VARIABLE CONTEXT #VOCS CELLS ALLOT \ make context array of #VOCS+1 cells VARIABLE CURRENT + VARIABLE LatestXT VARIABLE LAST \ NFA of last header created VARIABLE LAST-LINK \ address of last link for last header created *************** *** 4457,4461 **** \ follows the CFA-pointer when compiling definitions into some named space \ (which may not be the same space as the header). ! align HERE CFAPTR! ; --- 4460,4464 ---- \ follows the CFA-pointer when compiling definitions into some named space \ (which may not be the same space as the header). ! align HERE dup LatestXT ! CFAPTR! ; *************** *** 4498,4502 **** \ *P NOTE View of either name can go to the synonym instead (it depends which name \ ** is found first in a full dictionary search). ! HEADER CFAPTR! ; : SYNONYM ( -<newname> <oldname>- ) \ 200X --- 4501,4505 ---- \ *P NOTE View of either name can go to the synonym instead (it depends which name \ ** is found first in a full dictionary search). ! HEADER CFAPTR! dup latestXT ! ; : SYNONYM ( -<newname> <oldname>- ) \ 200X *************** *** 4513,4517 **** DEFINED DUP ?MISSING 1 = IF IMMEDIATE THEN \ make synonym immediate if original is ! CFAPTR! reveal ; \ set the cfa pointer of header --- 4516,4520 ---- DEFINED DUP ?MISSING 1 = IF IMMEDIATE THEN \ make synonym immediate if original is ! CFAPTR! dup latestXT ! reveal ; \ set the cfa pointer of header *************** *** 4579,4583 **** : :NONAME ( -- xt ) \ start a headerless colon definition ! ALIGN HERE DUP ANON ! :COLONDEF ; : : ( "name" -- ) \ Forth's primary function defining word --- 4582,4586 ---- : :NONAME ( -- xt ) \ start a headerless colon definition ! ALIGN HERE DUP ANON ! :COLONDEF dup latestXT ! ; : : ( "name" -- ) \ Forth's primary function defining word *************** *** 4871,4875 **** \ 07/07/2003 21:10:55 fkernel.f [ 745385 ] Bug in "Find Text in Files" Dialog ! DEFER WINPAUSE ( -- ) \ release control to OS for a moment, pump message loop (in wrapper) : (WINPAUSE) KEY? DROP ; ' (WINPAUSE) IS WINPAUSE --- 4874,4878 ---- \ 07/07/2003 21:10:55 fkernel.f [ 745385 ] Bug in "Find Text in Files" Dialog ! DEFER WINPAUSE ( -- ) \ release control to OS for a moment, pump the message loop : (WINPAUSE) KEY? DROP ; ' (WINPAUSE) IS WINPAUSE *************** *** 5675,5683 **** \ -------------------- Task support & initialisation ------------------------ - \ VARIABLE &EXCEPT - \ VARIABLE &EXREC - cell NEXT-USER @ SWAP OVER + NEXT-USER ! USER exc-guard - cell NEXT-USER @ SWAP OVER + NEXT-USER ! USER exc-access - align here: K32VAL --- 5678,5681 ---- |
|
From: George H. <geo...@us...> - 2013-11-15 19:35:06
|
Update of /cvsroot/win32forth/win32forth/src In directory sfp-cvs-1.v30.ch3.sourceforge.com:/tmp/cvs-serv15036 Modified Files: ASMWIN32.F Boot.f COLORS.F EXCEPTIO.F Extend.f GENERIC.F Pre-save.f Primutil.f Struct200x.f Utils.f Window.f paths.f w32fMsg.f w32fMsgList.f Log Message: Made dialog message handling on a per task basis. Made ?color check a deferred word. Added colouring of 2VALUE FVALUE and BUFFER: to lexer. Added WinCall macro to assembler and GoHome to set the home directory. Removed loading of scrncntrl.f and reference to w32fconsole.dll. Default for GetToolTip: in tray window class is now the window title. Index: ASMWIN32.F =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/ASMWIN32.F,v retrieving revision 1.6 retrieving revision 1.7 diff -C2 -d -r1.6 -r1.7 *** ASMWIN32.F 3 Aug 2006 13:08:22 -0000 1.6 --- ASMWIN32.F 15 Nov 2013 19:35:02 -0000 1.7 *************** *** 99,102 **** --- 99,113 ---- macro: [TOS], ( -- ) [EBX], endm + macro: WinCall ( "Proc" ) + \ *G A macro: to call a windows procedure. The arguments must be pushed onto the system stack + \ ** beforehand and the return value is in eax. For calls with a C convention rather than + \ ** standard call the stack must be cleaned up. + mov -4 [ebp], edx + xor edx, edx + call 0 Proc winproc-last @ proc>ep [edx] + mov edx, -4 [ebp] + endm + + also assembler also asm-hidden current @ also forth definitions nostack1 Index: Boot.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/Boot.f,v retrieving revision 1.7 retrieving revision 1.8 diff -C2 -d -r1.7 -r1.8 *** Boot.f 14 Feb 2013 19:25:19 -0000 1.7 --- Boot.f 15 Nov 2013 19:35:02 -0000 1.8 *************** *** 44,53 **** cls only forth also definitions - set-shell stack-check-off \ disable stack depth checking (can be enabled in userconfig if wanted) - config$ LoadConfigFile - Start-Interpreter ; --- 44,50 ---- Index: w32fMsg.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/w32fMsg.f,v retrieving revision 1.21 retrieving revision 1.22 diff -C2 -d -r1.21 -r1.22 *** w32fMsg.f 7 Mar 2013 15:29:02 -0000 1.21 --- w32fMsg.f 15 Nov 2013 19:35:03 -0000 1.22 *************** *** 75,79 **** \ ** application's inter-process identification & communication capabilities. ! \ *P The default action is using none of theese lines, the result in this case is: \ *B While developping, your program is considered to be win32Forth itself. \ ** It is able to communicate with Help and IDE, for example for using the debugger. --- 75,79 ---- \ ** application's inter-process identification & communication capabilities. ! \ *P The default action is using none of these lines, the result in this case is: \ *B While developping, your program is considered to be win32Forth itself. \ ** It is able to communicate with Help and IDE, for example for using the debugger. *************** *** 338,342 **** \ *P Each application can create a set of win32forth-specific messages, identified ! \ ** by custom messages numbers. Theese message identifiers must be loaded in both \ ** applications so that they understand each other. --- 338,342 ---- \ *P Each application can create a set of win32forth-specific messages, identified ! \ ** by custom messages numbers. These message identifiers must be loaded in both \ ** applications so that they understand each other. *************** *** 497,501 **** else >r ((createprocess)) \ launch the w32fapp if r>drop -1 ! else 2000 30 time-taken * + ( ms) ProcInfo @ \ give the launched process a.. call WaitForInputIdle drop \ ..chance to set its hwnd.. CloseThread \ ..in shared memory --- 497,501 ---- else >r ((createprocess)) \ launch the w32fapp if r>drop -1 ! else 3000 40 time-taken * + ( ms) ProcInfo @ \ give the launched process a.. call WaitForInputIdle drop \ ..chance to set its hwnd.. CloseThread \ ..in shared memory Index: GENERIC.F =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/GENERIC.F,v retrieving revision 1.29 retrieving revision 1.30 diff -C2 -d -r1.29 -r1.30 *** GENERIC.F 6 Nov 2013 21:56:29 -0000 1.29 --- GENERIC.F 15 Nov 2013 19:35:03 -0000 1.30 *************** *** 6,17 **** \ *P Generic-Window is the base class for all window objects. This class ! \ ** contains a single ivar, hWnd, that is the (MS Windows) handle for the \ ** window. This class encapsulates all the Win32 API calls that specify a \ ** window handle. There will be the following subclasses of Generic-Window: \ *W <ul> ! \ *W <li><a href="clas-Window.htm">Window</a> Adds a device context and the ablility to display text and graphics output.</li> ! \ *W <li><a href="clas-Dialog.htm">Dialog</a> Support for dialog boxes</li> ! \ *W <li><a href="clas-Control.htm">Control</a> Adds support for the standard Win32 controls with subclassing.</li> \ *W </ul> --- 6,17 ---- \ *P Generic-Window is the base class for all window objects. This class ! \ ** contains an ivar, hWnd, that is the (MS Windows) handle for the \ ** window. This class encapsulates all the Win32 API calls that specify a \ ** window handle. There will be the following subclasses of Generic-Window: \ *W <ul> ! \ *W <li><a href="class-Window.htm">Window</a> Adds a device context and the ablility to display text and graphics output.</li> ! \ *W <li><a href="class-Dialog.htm">Dialog</a> Support for dialog boxes</li> ! \ *W <li><a href="class-Control.htm">Control</a> Adds support for the standard Win32 controls with subclassing.</li> \ *W </ul> *************** *** 28,34 **** \ ** is also defined as an alias of wRect for compatibility. \n \ ** We also provide wRect as an alias of TempRect for compatibility. \n ! \ ** Temporarily added new generic class Dialog&Control and moved some code into it and ! \ ** duplicated the same code in Class Window so that Ivar offsets in Class Window are ! \ ** the same for temporary compatibility. \ *S Glossary --- 28,32 ---- \ ** is also defined as an alias of wRect for compatibility. \n \ ** We also provide wRect as an alias of TempRect for compatibility. \n ! \ *S Glossary *************** *** 49,54 **** \ Linked list, to hold all modeless dialog, Frame window and MDI child window objects \ that respond to dialog messages. ! VARIABLE dialog-link ! dialog-link OFF \ Normally wRect is called by methods and : definitions inside generic-window, however the --- 47,52 ---- \ Linked list, to hold all modeless dialog, Frame window and MDI child window objects \ that respond to dialog messages. ! cell NewUser dialog-link ! dialog-link OFF \ Normally wRect is called by methods and : definitions inside generic-window, however the *************** *** 112,122 **** \ *G handle to Win32 window object ! int mydialoglink ! \ The following is for backward compatibility. Use WinRect for new code since it will ! \ be early bound whereas wRect will be latebound. Rectangle WinRect int wRect --- 110,159 ---- \ *G handle to Win32 window object ! cell bytes dialoglink \ must follow hwnd ! in-system ! ! int (wStatus) ! ! in-previous ! ! 1 bits AmDialog ! 1 bits wStatus1 ! 1 bits wStatus2 ! 1 bits wStatus3 ! 1 bits wStatus4 ! 1 bits wStatus5 ! 1 bits wStatus6 ! 1 bits wStatus7 ! 1 bits wStatus8 ! 1 bits wStatus9 ! 1 bits wStatus10 ! 1 bits wStatus11 ! 1 bits wStatus12 ! 1 bits wStatus13 ! 1 bits wStatus14 ! 1 bits wStatus15 ! 1 bits wStatus16 ! 1 bits wStatus17 ! 1 bits wStatus18 ! 1 bits wStatus19 ! 1 bits wStatus20 ! 1 bits wStatus21 ! 1 bits wStatus22 ! 1 bits wStatus23 ! 1 bits wStatus24 ! 1 bits wStatus25 ! 1 bits wStatus26 ! 1 bits wStatus27 ! 1 bits wStatus28 ! 1 bits wStatus29 ! 1 bits wStatus30 ! 1 bits wStatus31 Rectangle WinRect + \ The following is for backward compatibility. Use WinRect for new code since it will + \ be early bound whereas wRect will be latebound. + int wRect *************** *** 168,172 **** 0 to hWnd turnkeyed? 0= \ only dynamic windows can be used in a \in-system-ok if link-window then \ turnkeyed application so skip linking ! 0 to mydialoglink \ added Sonntag, Juni 04 2006 dbu addr: WinRect to wRect ;M --- 205,209 ---- 0 to hWnd turnkeyed? 0= \ only dynamic windows can be used in a \in-system-ok if link-window then \ turnkeyed application so skip linking ! dialoglink off \ added Sonntag, Juni 04 2006 dbu addr: WinRect to wRect ;M *************** *** 619,641 **** \ The following definitions are for handling Dialog messages and have been moved \ here rather than have multiple copies of the code in different descendants ! : +DialogList ( -- ) \ link into dialog list ! (dialoglock) Dialog-link link, ! self , Dialog-link @ (dialogunlock) to mydialoglink ; ! : -DialogList ( -- ) \ Unlink from dialog list ! (dialoglock) mydialoglink Dialog-link un-link drop (dialogunlock) ; : DoDialogMsg { pMsg flag -- pMsg f | pMsg FALSE } - (dialoglock) Dialog-link \ all dialog handles begin @ dup 0<> \ while not end of chain flag and \ and haven't found a handler ! while dup>r cell+ @ ! Gethandle: generic-window -if pMsg swap Call IsDialogMessage then 0= to flag r> ! repeat (dialogunlock) drop pMsg flag ; msg-chain chain-add DoDialogMsg --- 656,682 ---- \ The following definitions are for handling Dialog messages and have been moved \ here rather than have multiple copies of the code in different descendants ! : +DialogList ( -- ) \ link into dialog list in Start: ! 1 to AmDialog ; ! : ?DoAddDialogList ( -- ) \ Needs to be in On_Init: for all dialogs and dialog-windows. ! AmDialog 0<> dialoglink @ 0= and if dialoglink Dialog-link add-link then ; ! ! : -DialogList ( -- ) \ don't link from dialog list in Start: ! 0 to AmDialog ; ! ! : ?DoRemoveDialogList ( -- ) \ Needs to be in On_Done: for all dialogs and dialog-windows. ! AmDialog 0<> dialoglink @ 0<> and if dialoglink \ Normally this is achieved through inheritance ! Dialog-link un-link drop dialoglink off then ; \ by using On_Done: Super. : DoDialogMsg { pMsg flag -- pMsg f | pMsg FALSE } Dialog-link \ all dialog handles begin @ dup 0<> \ while not end of chain flag and \ and haven't found a handler ! while dup>r cell- @ -if pMsg swap Call IsDialogMessage then 0= to flag r> ! repeat drop pMsg flag ; msg-chain chain-add DoDialogMsg *************** *** 648,657 **** :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 --- 689,698 ---- :M On_Init: ( -- ) \ *G Thing's to do during creation of the window. ! \ ** Default does ?DoAddDialogList. ! ?DoAddDialogList ;M :M On_Done: ( -- ) ! \ *G Thing's to do when the window will be destroyed. Default does ?DoRemoveDialogList. ! ?DoRemoveDialogList ;M ;CLASS Index: paths.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/paths.f,v retrieving revision 1.39 retrieving revision 1.40 diff -C2 -d -r1.39 -r1.40 *** paths.f 19 Sep 2012 15:27:08 -0000 1.39 --- paths.f 15 Nov 2013 19:35:03 -0000 1.40 *************** *** 361,364 **** --- 361,367 ---- &forthdir count MakeAbsolutePath count ; + : GoHome ( -- ) + 0 0 Prepend<home>\ "chdir ; + \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ Index: w32fMsgList.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/w32fMsgList.f,v retrieving revision 1.5 retrieving revision 1.6 diff -C2 -d -r1.5 -r1.6 *** w32fMsgList.f 31 Aug 2010 19:46:33 -0000 1.5 --- w32fMsgList.f 15 Nov 2013 19:35:03 -0000 1.6 *************** *** 77,81 **** \ Also, these messages are likely to be used by every release. ! \ The basic parameters for a message are "addr" "siz" of a data area \ All messages return -1 if the message was processed, 0 if not --- 77,81 ---- \ Also, these messages are likely to be used by every release. ! \ The basic parameters for a message are "addr" "size" of a data area \ All messages return -1 if the message was processed, 0 if not *************** *** 88,96 **** \ -------------------------------- 123401 constant WM_WORDHELP \ ask help to display quickinfo for a word ! \ addr siz = word (return 0 if not in database) 123402 constant WM_LINEFILE \ ask Help to display file for a word ! \ addr siz : cell = line ; string = filename 123403 constant WM_HTML \ ask help to display an html sheet ! \ addr siz : string = url \ Sender : Help Receiver : Forth --- 88,96 ---- \ -------------------------------- 123401 constant WM_WORDHELP \ ask help to display quickinfo for a word ! \ addr size = word (return 0 if not in database) 123402 constant WM_LINEFILE \ ask Help to display file for a word ! \ addr size : cell = line ; string = filename 123403 constant WM_HTML \ ask help to display an html sheet ! \ addr size : string = url \ Sender : Help Receiver : Forth *************** *** 98,106 **** 123407 constant WM_SHOWDEFER \ send DEFER name and expect that receiver will \ display its current contents ! \ addr siz = word \ Sender : all Receiver : Forth \ -------------------------------- ! 123701 constant WM_KEY \ give Forth a key (addr siz contains: byte = key) 123702 constant WM_PASTELOAD \ tell Forth to get text from the clipboard and \ compile it - the sender is supposed to have --- 98,106 ---- 123407 constant WM_SHOWDEFER \ send DEFER name and expect that receiver will \ display its current contents ! \ addr size = word \ Sender : all Receiver : Forth \ -------------------------------- ! 123701 constant WM_KEY \ give Forth a key (addr size contains: byte = key) 123702 constant WM_PASTELOAD \ tell Forth to get text from the clipboard and \ compile it - the sender is supposed to have *************** *** 111,115 **** 123502 constant WM_SETBP \ tell the forth console to set a breakpoint on a word \ ie: tell it to start debugging the word ! \ addr siz : word name result =0 failed -1 success 123503 constant WM_STEPBP \ single step (addr=len=0) 123504 constant WM_NESTBP \ nest into this definition (addr=len=0) --- 111,115 ---- 123502 constant WM_SETBP \ tell the forth console to set a breakpoint on a word \ ie: tell it to start debugging the word ! \ addr size : word name result =0 failed -1 success 123503 constant WM_STEPBP \ single step (addr=len=0) 123504 constant WM_NESTBP \ nest into this definition (addr=len=0) Index: Struct200x.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/Struct200x.f,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** Struct200x.f 25 May 2011 20:50:46 -0000 1.1 --- Struct200x.f 15 Nov 2013 19:35:03 -0000 1.2 *************** *** 13,16 **** --- 13,18 ---- \ ------------------------------------------------------------------------ + in-system + : begin-structure ( -- addr 0 ) create here 0 0 , *************** *** 41,44 **** previous set-current [then] ! --- 43,46 ---- previous set-current [then] ! in-previous Index: EXCEPTIO.F =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/EXCEPTIO.F,v retrieving revision 1.10 retrieving revision 1.11 diff -C2 -d -r1.10 -r1.11 *** EXCEPTIO.F 1 Mar 2011 21:50:02 -0000 1.10 --- EXCEPTIO.F 15 Nov 2013 19:35:03 -0000 1.11 *************** *** 298,302 **** : except-presskey ( -- ) ! TCB @ 0= if cr ." Press any key to exit..." wait then ; \ Only wait for main (console) task. EXTERNAL --- 298,302 ---- : except-presskey ( -- ) ! main? if cr ." Press any key to exit..." wait then ; \ Only wait for main (console) task. EXTERNAL *************** *** 389,393 **** : Release-Except-Buffer ( -- ) ! &exrec @ release &exrec off ; : SET-EXCEPT ( -- ) \ set exception routine handler --- 389,393 ---- : Release-Except-Buffer ( -- ) ! &exrec @ ?dup if ( release ) free drop &exrec off then ; : SET-EXCEPT ( -- ) \ set exception routine handler *************** *** 399,405 **** : UNSET-EXCEPT ( prev-except-addr -- ) \ unset exception routine ! &exrec @ ExceptHandler @ \ get old exception handler call SetUnhandledExceptionFilter drop ! Release-Except-Buffer ; \ clear execution record address INTERNAL --- 399,405 ---- : UNSET-EXCEPT ( prev-except-addr -- ) \ unset exception routine ! &exrec @ ?dup if ExceptHandler @ \ get old exception handler call SetUnhandledExceptionFilter drop ! Release-Except-Buffer then ; \ clear execution record address INTERNAL Index: Utils.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/Utils.f,v retrieving revision 1.30 retrieving revision 1.31 diff -C2 -d -r1.30 -r1.31 *** Utils.f 1 Jun 2013 12:30:48 -0000 1.30 --- Utils.f 15 Nov 2013 19:35:03 -0000 1.31 *************** *** 148,152 **** INTERNAL EXTERNAL - IN-APPLICATION \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ --- 148,151 ---- *************** *** 571,576 **** \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ - IN-SYSTEM - : DefaultOf ( -- ) \ define a default condition for CASE structure \ *** must be last in the series of OF *** --- 570,573 ---- *************** *** 653,656 **** --- 650,655 ---- POSTPONE ; immediate ; + in-application + MODULE Index: Window.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/Window.f,v retrieving revision 1.32 retrieving revision 1.33 diff -C2 -d -r1.32 -r1.33 *** Window.f 28 Jun 2013 11:51:08 -0000 1.32 --- Window.f 15 Nov 2013 19:35:03 -0000 1.33 *************** *** 73,77 **** \ left it here in order not to break too much code (Sonntag, Juni 04 2006 dbu). int hWndParent \ handle of the parent window (added Sonntag, Juni 04 2006 dbu) - \ int mydialoglink \ The following is for backward compatibility. Use WinRect for new code since it will --- 73,76 ---- *************** *** 93,97 **** 0 to Parent \ added Sonntag, Juni 04 2006 dbu 0 to hWndParent \ added Sonntag, Juni 04 2006 dbu - 0 to mydialoglink \ added Sonntag, Juni 04 2006 dbu 640 to Width 480 to Height --- 92,95 ---- *************** *** 101,115 **** ['] noop to track-func WindowClassName MAXSTRING erase \ clear the class name - \ addr: WinRect to wRect ;M - \ Temporarily moved here to overcome problem with offset of ints - \ : +DialogList ( -- ) \ link into dialog list - \ (dialoglock) Dialog-link link, - \ self , Dialog-link @ (dialogunlock) to mydialoglink ; - \ - \ : -DialogList ( -- ) \ Unlink from dialog list - \ (dialoglock) mydialoglink Dialog-link un-link drop (dialogunlock) ; - \ ----------------------------------------------------------------- \ *N Window sizing --- 99,104 ---- *************** *** 459,465 **** \ *G User windows should override the WindowStyle: method to \ ** set the default icon handle for window. Default is the W32F icon. ! 101 appInst Call LoadIcon dup 0= ! if drop 100 z" w32fConsole.dll" Call GetModuleHandle Call LoadIcon ! then ;M :M WindowStyle: ( -- style ) --- 448,454 ---- \ *G User windows should override the WindowStyle: method to \ ** set the default icon handle for window. Default is the W32F icon. ! 101 appInst Call LoadIcon \ dup 0= ! \ if drop 100 z" w32fConsole.dll" Call GetModuleHandle Call LoadIcon ! ( then ) ;M :M WindowStyle: ( -- style ) Index: Pre-save.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/Pre-save.f,v retrieving revision 1.6 retrieving revision 1.7 diff -C2 -d -r1.6 -r1.7 *** Pre-save.f 20 Mar 2013 23:51:21 -0000 1.6 --- Pre-save.f 15 Nov 2013 19:35:03 -0000 1.7 *************** *** 5,8 **** --- 5,14 ---- Require Imageman.f + : Zero_conhndl ( -- ) + \ *G Make sure console handle in image is zero. + &of _conhndl >image off ; + + pre-save-image-chain chain-add Zero_conhndl + : Trim-image-list ( addr -- ) \ *G Given the head of a list or chain remove all those items not in the image. Index: Primutil.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/Primutil.f,v retrieving revision 1.63 retrieving revision 1.64 diff -C2 -d -r1.63 -r1.64 *** Primutil.f 6 Nov 2013 21:56:29 -0000 1.63 --- Primutil.f 15 Nov 2013 19:35:03 -0000 1.64 *************** *** 497,501 **** : 2value ( d1 -<name>- ) ! header do2value , here 3 cells+ , do2value! , do2value+! , , , ; \ synonym 2to to \ Sets a 2value \ made a colon def - [cdo-2008May13] --- 497,501 ---- : 2value ( d1 -<name>- ) ! \in-system-ok header do2value , here 3 cells+ , do2value! , do2value+! , , , ; \ synonym 2to to \ Sets a 2value \ made a colon def - [cdo-2008May13] *************** *** 862,866 **** WHILE MessageStructure HandleMessages drop REPEAT ! 0 Call PostQuitMessage drop ; \ Note: just in case several MessageLoop are accidently launched, the last \ line ensures that all of them will exit when WM_QUIT is received. --- 862,867 ---- WHILE MessageStructure HandleMessages drop REPEAT ! 0 Call PostQuitMessage drop ! ; \ Note: just in case several MessageLoop are accidently launched, the last \ line ensures that all of them will exit when WM_QUIT is received. Index: COLORS.F =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/COLORS.F,v retrieving revision 1.4 retrieving revision 1.5 diff -C2 -d -r1.4 -r1.5 *** COLORS.F 25 Aug 2008 23:07:06 -0000 1.4 --- COLORS.F 15 Nov 2013 19:35:03 -0000 1.5 *************** *** 47,50 **** --- 47,51 ---- : (?ColorCheck) ( a1 -- a1 ) + ?win-error-enabled 0= ?EXIT \ leave if error checking is not enabled >r colors-link @ begin dup *************** *** 57,66 **** true Abort" This is not a ColorObject!" ; ! in-application ! : ?ColorCheck ( a1 -- a1 ) \ verify that a1 is a color object address ! TURNKEYED? ! ?win-error-enabled 0= or ?EXIT \ leave if error checking is not enabled ! \in-system-ok (?ColorCheck) ; \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ --- 58,74 ---- true Abort" This is not a ColorObject!" ; ! in-previous ! defer ?ColorCheck ( a1 -- a1 ) \ verify that a1 is a color object address ! \in-system-ok ' (?ColorCheck) is ?ColorCheck ! ! in-system ! ! : ImageSet?ColorSet ( -- ) ! TURNKEYED? if ['] noop else ['] (?ColorCheck) then is-image ?ColorCheck ; ! ! pre-save-image-chain chain-add ImageSet?ColorSet ! ! in-previous \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ *************** *** 72,111 **** :Class ColorObject <Super Object - \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ - \ internal initialization and un-initialization routines for color objects. - \ It seems Windows doesn't like a program that creates and destroys color - \ objects repeatedly as the program executes, so we need to do this at - \ program start only. - \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ - in-system - - : trim-colors ( nfa -- nfa ) - dup colors-link full-trim ; - - forget-chain chain-add trim-colors - - in-application - - : init-colors { \ clink -- } \ initialize brushes and pens - colors-link @ - begin dup - while dup cell+ @ to clink - ZeroColor: clink - InitColor: clink - @ - repeat drop ; - - initialization-chain chain-add init-colors - - : uninit-colors { \ clink -- } \ delete brushes and pens - colors-link @ - begin dup - while dup cell+ @ to clink - UnInitColor: clink - @ - repeat drop ; - - unload-chain chain-add-before uninit-colors \ local data allocated for each color object that is defined. --- 80,84 ---- *************** *** 150,153 **** --- 123,170 ---- self , ;M + \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ + \ internal initialization and un-initialization routines for color objects. + \ It seems Windows doesn't like a program that creates and destroys color + \ objects repeatedly as the program executes, so we need to do this at + \ program start only. + \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ + + in-system + + : trim-colors ( nfa -- nfa ) + dup colors-link full-trim ; + + forget-chain chain-add trim-colors + + : zero-image-colors ( -- ) + colors-link + begin @ ?dup + while dup cell+ @ + >image ?dup if ZeroColor: ColorObject then + repeat ; + + pre-save-image-chain chain-add zero-image-colors + + in-previous + + : init-colors ( -- ) \ initialize brushes and pens + colors-link @ + begin dup + while dup cell+ @ + InitColor: ColorObject + @ + repeat drop ; + + initialization-chain chain-add init-colors + + : uninit-colors ( -- ) \ delete brushes and pens + colors-link @ + begin dup + while dup cell+ @ + UnInitColor: ColorObject + @ + repeat drop ; + + unload-chain chain-add-before uninit-colors \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ Index: Extend.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/Extend.f,v retrieving revision 1.31 retrieving revision 1.32 diff -C2 -d -r1.31 -r1.32 *** Extend.f 11 Mar 2013 00:19:30 -0000 1.31 --- Extend.f 15 Nov 2013 19:35:03 -0000 1.32 *************** *** 39,43 **** FLOAD src\class.f \ ***** Object Oriented Programming Support ***** ! FLOAD src\scrnctrl.f \ screen control words FLOAD src\registry.f \ Win32 Registry support FLOAD src\ansfile.f \ ansi file words --- 39,43 ---- FLOAD src\class.f \ ***** Object Oriented Programming Support ***** ! \ FLOAD src\scrnctrl.f \ screen control words FLOAD src\registry.f \ Win32 Registry support FLOAD src\ansfile.f \ ansi file words *************** *** 58,62 **** sys-fload src\imageman.f \ fsave, application & turnkey words \ sys-fload src\Pre-save.f \ DON'T use sys-fload but the following instead ! in-system Require src\Pre-save.f in-previous \ MUST be conditional sys-FLOAD src\dbgsrc1.f \ source level debugging support part one sys-FLOAD src\dbgsrc2.f \ source level debugging support part two --- 58,62 ---- sys-fload src\imageman.f \ fsave, application & turnkey words \ sys-fload src\Pre-save.f \ DON'T use sys-fload but the following instead ! in-system Require src\Pre-save.f in-previous \ MUST be conditional sys-FLOAD src\dbgsrc1.f \ source level debugging support part one sys-FLOAD src\dbgsrc2.f \ source level debugging support part two *************** *** 87,90 **** --- 87,92 ---- FLOAD src\console\NewConsole.f \ the new console + \ fload src\exceptio.f \ utility words to support windows exception handling + FLOAD src\compat\Evolve.f \ win2forth evolution between 2 releases |
|
From: George H. <geo...@us...> - 2013-11-15 19:35:05
|
Update of /cvsroot/win32forth/win32forth/src/Compat In directory sfp-cvs-1.v30.ch3.sourceforge.com:/tmp/cvs-serv15036/Compat Modified Files: Evolve.f Log Message: Made dialog message handling on a per task basis. Made ?color check a deferred word. Added colouring of 2VALUE FVALUE and BUFFER: to lexer. Added WinCall macro to assembler and GoHome to set the home directory. Removed loading of scrncntrl.f and reference to w32fconsole.dll. Default for GetToolTip: in tray window class is now the window title. Index: Evolve.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/Compat/Evolve.f,v retrieving revision 1.12 retrieving revision 1.13 diff -C2 -d -r1.12 -r1.13 *** Evolve.f 7 Mar 2013 16:41:36 -0000 1.12 --- Evolve.f 15 Nov 2013 19:35:03 -0000 1.13 *************** *** 45,68 **** \ ------------------ ! : /* \ replace by ( ... ) or (( ... )) \in-system-ok s" */" "comment ; immediate ! deprecated \ june 27 2008 - was in-system ! : (* \ replace by ( ... ) or (( ... )) \in-system-ok s" *)" "comment ; immediate ! deprecated \ june 27 2008 - was in-system ! : DOC \ replace by ( ... ) or (( ... )) \in-system-ok s" ENDDOC" "comment ; immediate ! deprecated \ june 27 2008 - was in-system : -- \ replace by \ NOTE this refers to -- outside of { and } ; it is still part of the \ LOCALS syntax postpone \ ; immediate ! deprecated \ june 27 2008 - was in-system : <A \ replace by \ postpone \ ; immediate ! deprecated \ june 27 2008 - was in-system --- 45,70 ---- \ ------------------ ! in-system ! ! : /* \ up to */ replace by ( ... ) or (( ... )) \in-system-ok s" */" "comment ; immediate ! deprecated \ june 27 2008 ! : (* \ up to *) replace by ( ... ) or (( ... )) \in-system-ok s" *)" "comment ; immediate ! deprecated \ june 27 2008 ! : DOC \ up to ENDDOC replace by ( ... ) or (( ... )) \in-system-ok s" ENDDOC" "comment ; immediate ! deprecated \ june 27 2008 : -- \ replace by \ NOTE this refers to -- outside of { and } ; it is still part of the \ LOCALS syntax postpone \ ; immediate ! deprecated \ june 27 2008 : <A \ replace by \ postpone \ ; immediate ! deprecated \ june 27 2008 *************** *** 88,92 **** : WITH-IMG \ replace by nothing (was a NOOP). No longer needed since the 'c' wrapper was removed. ; IMMEDIATE ! deprecated \ since late 2003 - was in-system --- 90,94 ---- : WITH-IMG \ replace by nothing (was a NOOP). No longer needed since the 'c' wrapper was removed. ; IMMEDIATE ! deprecated \ since late 2003 *************** *** 95,107 **** : NT? \ replace by WINVER WINNT351 >= ( -- fl ) ! WinVer 4 >= ; \ NT3.51 or above deprecated \ since a long time : Win95? \ replace by WINVER WIN95 = ( -- f1 ) ! winver 1 = ; deprecated \ since a long time : Win98? \ replace by WINVER WIN98 WINME BETWEEN ( -- f1 ) ! winver 2 3 between ; deprecated \ since a long time : Win32s? \ replace by FALSE (win32s is no longer supported) --- 97,109 ---- : NT? \ replace by WINVER WINNT351 >= ( -- fl ) ! WinVer WINNT351 >= ; \ NT3.51 or above deprecated \ since a long time : Win95? \ replace by WINVER WIN95 = ( -- f1 ) ! winver win95 = ; deprecated \ since a long time : Win98? \ replace by WINVER WIN98 WINME BETWEEN ( -- f1 ) ! winver win98 winme between ; deprecated \ since a long time : Win32s? \ replace by FALSE (win32s is no longer supported) *************** *** 353,357 **** \ Message-Loop \ replace by MessageLoop ! dpr-warning-on warning on --- 355,359 ---- \ Message-Loop \ replace by MessageLoop ! in-previous dpr-warning-on warning on |
|
From: George H. <geo...@us...> - 2013-11-15 18:23:47
|
Update of /cvsroot/win32forth/win32forth/apps/Win32ForthIDE In directory sfp-cvs-1.v30.ch3.sourceforge.com:/tmp/cvs-serv10025 Modified Files: EdFORTHFORM.F FORMOBJECT.F FORMPROPERTY.F Main.f ProjectWindow.f Log Message: Added tray window class and ability to add minimise button to form designer. Improved command line handling plus minor optimisations. Index: EdFORTHFORM.F =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/Win32ForthIDE/EdFORTHFORM.F,v retrieving revision 1.11 retrieving revision 1.12 diff -C2 -d -r1.11 -r1.12 *** EdFORTHFORM.F 12 Feb 2011 02:43:31 -0000 1.11 --- EdFORTHFORM.F 15 Nov 2013 18:23:44 -0000 1.12 *************** *** 39,42 **** --- 39,43 ---- CHILD-CLASS \ child window forms MDIDIALOG-CLASS \ MDI forms + TRAY-CLASS ; *************** *** 400,405 **** : TurnkeyForm ( -- ) \ compile form to executable file Activeform 0= ?exit \ shouldn't happen but just in case ! GetSuperClass: ActiveForm DIALOG-CLASS <> dup \ dialog only! ! s" Only forms of class dialog window can be turnkeyed!" ?MessageBox ?exit GetHandle: MainWindow SetParentWindow: frmGetIconFile --- 401,406 ---- : TurnkeyForm ( -- ) \ compile form to executable file Activeform 0= ?exit \ shouldn't happen but just in case ! GetSuperClass: ActiveForm dup DIALOG-CLASS swap TRAY-CLASS or <> dup \ dialog only! ! s" Only forms of class dialog window or tray window can be turnkeyed!" ?MessageBox ?exit GetHandle: MainWindow SetParentWindow: frmGetIconFile Index: FORMPROPERTY.F =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/Win32ForthIDE/FORMPROPERTY.F,v retrieving revision 1.4 retrieving revision 1.5 diff -C2 -d -r1.4 -r1.5 *** FORMPROPERTY.F 21 Jul 2011 18:13:43 -0000 1.4 --- FORMPROPERTY.F 15 Nov 2013 18:23:44 -0000 1.5 *************** *** 224,234 **** 1 SetValue: spnHeight false ! dup Check: chkModal ! dup Check: chkSave ! dup Check: chkChildState ! dup Check: chkStatusBar ! dup Check: radChildWindow ! dup Check: radMDIDialogWindow ! Check: radDialogWindow ;M --- 224,235 ---- 1 SetValue: spnHeight false ! dup Check: chkModal ! dup Check: chkSave ! dup Check: chkChildState ! dup Check: chkStatusBar ! dup Check: radChildWindow ! dup Check: radMDIDialogWindow ! dup Check: radDialogWindow ! Check: radTrayWindow ;M *************** *** 251,254 **** --- 252,256 ---- UnCheckButton: radMDIDialogWindow UnCheckButton: radDialogWindow + UnCheckButton: radTrayWindow true Enable: chkChildState endof *************** *** 256,259 **** --- 258,268 ---- UnCheckButton: radChildWindow UnCheckButton: radDialogWindow + UnCheckButton: radTrayWindow + false Enable: chkChildState + endof + TRAY-CLASS of CheckButton: radTrayWindow + UnCheckButton: radMdiDialogWindow + UnCheckButton: radChildWindow + UnCheckButton: radDialogWindow false Enable: chkChildState endof *************** *** 261,264 **** --- 270,274 ---- UnCheckButton: radMDIDialogWindow UnCheckButton: radChildWindow + UnCheckButton: radTrayWindow false Enable: chkChildState endcase *************** *** 281,285 **** else IsButtonChecked?: radChildWindow if CHILD-CLASS ! else MDIDIALOG-CLASS then then IsSuperClass: ActiveForm --- 291,298 ---- else IsButtonChecked?: radChildWindow if CHILD-CLASS ! else IsButtonChecked?: radTrayWindow ! if TRAY-CLASS ! else MDIDIALOG-CLASS ! then then then IsSuperClass: ActiveForm Index: ProjectWindow.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/Win32ForthIDE/ProjectWindow.f,v retrieving revision 1.10 retrieving revision 1.11 diff -C2 -d -r1.10 -r1.11 *** ProjectWindow.f 21 Feb 2011 06:13:40 -0000 1.10 --- ProjectWindow.f 15 Nov 2013 18:23:44 -0000 1.11 *************** *** 1085,1091 **** ;M - :M On_Done: ( -- ) - On_Done: Super ;M - ;Object --- 1085,1088 ---- Index: Main.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/Win32ForthIDE/Main.f,v retrieving revision 1.74 retrieving revision 1.75 diff -C2 -d -r1.74 -r1.75 *** Main.f 17 Jan 2012 19:36:11 -0000 1.74 --- Main.f 15 Nov 2013 18:23:44 -0000 1.75 *************** *** 18,22 **** only forth also editor definitions \ put all words into the EDITOR vocabulary ! true value sysgen s" apps\win32forthIDE" "fpath+ --- 18,22 ---- only forth also editor definitions \ put all words into the EDITOR vocabulary ! true value sysgen s" apps\win32forthIDE" "fpath+ *************** *** 548,551 **** --- 548,552 ---- int WindowState + :M On_Size: ( h m w -- ) to WindowState \ get WindowState, don't save size of maximised or minimised window *************** *** 1137,1141 **** \ then then ! SelectionMode virtualspace? if [ SCVS_USERACCESSIBLE SCVS_RECTANGULARSELECTION or ] LITERAL --- 1138,1142 ---- \ then then ! \ SelectionMode virtualspace? if [ SCVS_USERACCESSIBLE SCVS_RECTANGULARSELECTION or ] LITERAL *************** *** 1580,1583 **** --- 1581,1588 ---- bl kparse -trailing number? ; + : Command>Edit ( -- n addr ) + CmdLine strip-cmdline + pad place 0 pad ; + : HandleCmdLine { \ bBrowse bEdit #line -- } \ simple command-line handling CMDLINE ?dup *************** *** 1606,1613 **** 2dup IsHtmlFile? if (OpenHtmlFile) ! else (OpenRemoteFile) ActiveChild ! if bBrowse SetBrowseMode: ActiveChild ! #line 1- GotoLine: ActiveChild ! then then then --- 1611,1615 ---- 2dup IsHtmlFile? if (OpenHtmlFile) ! else Command>edit bEdit if $edit else $browse then then then *************** *** 1626,1631 **** to w32fsharep then ! CmdLine strip-cmdline ! pad place 0 pad $edit CloseSharedMemory bye --- 1628,1632 ---- to w32fsharep then ! Command>edit $edit CloseSharedMemory bye *************** *** 1649,1652 **** --- 1650,1654 ---- false to RunUnique NoConsoleBoot \ no console needed, will start MessageLoop + ' Main ' SAVE catch win32forthIDE.exe checkstack *************** *** 1659,1663 **** \ ' Mainsaved ' SAVE catch win32forthIDE.exe checkstack ! \ \ Use this to have a full console for debugging purpose \ : mainsaved ( -- ) \ for "special case" of win32forthIDE \ main --- 1661,1665 ---- \ ' Mainsaved ' SAVE catch win32forthIDE.exe checkstack ! \ Use this to have a full console for debugging purpose \ : mainsaved ( -- ) \ for "special case" of win32forthIDE \ main *************** *** 1691,1695 **** 1 pause-seconds bye [else] - s" src\res\SciEditMDI.ico" s" win32forthIDE.exe" Prepend<home>\ AddAppIcon Main [then] --- 1693,1696 ---- Index: FORMOBJECT.F =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/Win32ForthIDE/FORMOBJECT.F,v retrieving revision 1.12 retrieving revision 1.13 diff -C2 -d -r1.12 -r1.13 *** FORMOBJECT.F 6 Nov 2013 22:11:59 -0000 1.12 --- FORMOBJECT.F 15 Nov 2013 18:23:44 -0000 1.13 *************** *** 66,70 **** 2 +tabs ; ! \ Define Form Object class for ForthForm :Class Form <Super Window --- 66,70 ---- 2 +tabs ; ! \ Define Form Object class for Forth Designer :Class Form <Super Window *************** *** 77,88 **** 32 bytes frmName int controlcount ! byte FormFlags ! 1 bits Modal ! 1 bits SaveScreen? ! 2 bits FormSuperClass \ 0 = dialogwindow, 1 = childwindow, 2 = mdi dialog window ! 1 bits Childstate ! 1 bits with-statusbar ! 2 bits ReservedFlags ! maxstring 1- bytes Reserved \ for future features? original 260 ;RecordSize: sizeof(Info) --- 77,89 ---- 32 bytes frmName int controlcount ! int FormFlags ! 1 bits Modal ! 1 bits SaveScreen? ! 2 bits FormSuperClass \ 0 = dialogwindow, 1 = childwindow, 2 = mdi dialog window 3 = tray window ! 1 bits Childstate ! 1 bits with-statusbar ! 1 bits min-box ! 25 bits ReservedFlags ! maxstring cell - bytes Reserved \ for future features? original 260 ;RecordSize: sizeof(Info) *************** *** 1097,1100 **** --- 1098,1102 ---- :M ClassInit: ( -- ) ClassInit: super + info sizeof(info) erase Erase: upperleft Erase: lowerright *************** *** 1686,1690 **** then then GetSuperClass: self MDIDIALOG-CLASS = ! if s" \- mdidialogwindow needs mdidialog.f \ MDI class and its routines" append&crlf then ; --- 1688,1694 ---- then then GetSuperClass: self MDIDIALOG-CLASS = ! if s" Require mdidialog.f \ MDI class and its routines" append&crlf ! then GetSuperClass: self TRAY-CLASS = ! if s" Require TrayWindow.f \ Tray Window class and its routines" append&crlf then ; *************** *** 1762,1768 **** GetSuperClass: self dup CHILD-CLASS = if drop s" Child-Window" ! else MDIDIALOG-CLASS = ! if s" MDIDialogWindow" ! else s" DialogWindow" then then append&crlf --- 1766,1774 ---- GetSuperClass: self dup CHILD-CLASS = if drop s" Child-Window" ! else dup MDIDIALOG-CLASS = ! if drop s" MDIDialogWindow" ! else TRAY-CLASS = if s" TrayWindow" ! else s" DialogWindow" ! then then then append&crlf *************** *** 1772,1776 **** with-statusbar if s" StatusBar TheStatusBar" append&crlf ! then GetSuperclass: self DIALOG-CLASS = \ only for dialogwindow super class if SaveScreen? if frmXPos #append frmYPos #append --- 1778,1782 ---- with-statusbar if s" StatusBar TheStatusBar" append&crlf ! then GetSuperclass: self dup DIALOG-CLASS = TRAY-CLASS or \ only for dialogwindow or TrayWindow super class if SaveScreen? if frmXPos #append frmYPos #append *************** *** 1878,1884 **** 2tabs s" ClassInit: super" append&crlf ! GetSuperClass: self CHILD-CLASS = if 2tabs s" +dialoglist \ allow handling of dialog messages" append&crlf ! 2tabs NextId #append s" to id \ set child id, changeable" append&crlf then 2tabs s" \ Insert your code here, e.g initialize variables, values etc." append&crlf --- 1884,1892 ---- 2tabs s" ClassInit: super" append&crlf ! GetSuperClass: self dup CHILD-CLASS = swap TRAY-CLASS or if 2tabs s" +dialoglist \ allow handling of dialog messages" append&crlf ! then ! GetSuperClass: self CHILD-CLASS = ! if 2tabs NextId #append s" to id \ set child id, changeable" append&crlf then 2tabs s" \ Insert your code here, e.g initialize variables, values etc." append&crlf *************** *** 1908,1915 **** s" :M WindowStyle:" SearchLocalCode ?exit \ exits if you have written your own window style code ?write-child-style ! GetSuperClass: self DIALOG-CLASS <> ?exit \ don't write style for child windows or mdi dialogs +crlf s" :M WindowStyle: ( -- style )" append&crlf ! 2tabs s" WS_POPUPWINDOW WS_DLGFRAME or " append&crlf 2tabs s" ;M" append&crlf ; --- 1916,1925 ---- s" :M WindowStyle:" SearchLocalCode ?exit \ exits if you have written your own window style code ?write-child-style ! GetSuperClass: self dup DIALOG-CLASS <> swap TRAY-CLASS <> and ?exit \ don't write style for child windows or mdi dialogs +crlf s" :M WindowStyle: ( -- style )" append&crlf ! 2tabs s" WS_POPUPWINDOW WS_DLGFRAME or" append ! GetSuperClass: self dup TRAY-CLASS = DIALOG-CLASS = or min-box <> and ! if s" WS_MINIMIZEBOX or" append then +crlf 2tabs s" ;M" append&crlf ; *************** *** 1930,1934 **** : writeStartPos ( -- ) ! GetSuperClass: self DIALOG-CLASS <> ?exit +crlf s" :M StartPos: ( -- x y )" append&crlf --- 1940,1944 ---- : writeStartPos ( -- ) ! GetSuperClass: self dup DIALOG-CLASS <> swap TRAY-CLASS <> and ?exit +crlf s" :M StartPos: ( -- x y )" append&crlf *************** *** 2000,2004 **** 2tabs s" Delete: WinFont" append&crlf write-delete-fonts \ delete any other fonts created ! GetSuperClass: self DIALOG-CLASS = if SaveScreen? if 2tabs s" originx originy 2to XYPos" append&crlf --- 2010,2014 ---- 2tabs s" Delete: WinFont" append&crlf write-delete-fonts \ delete any other fonts created ! GetSuperClass: self dup DIALOG-CLASS = swap TRAY-CLASS = or if SaveScreen? if 2tabs s" originx originy 2to XYPos" append&crlf *************** *** 2049,2053 **** 2tabs s" ;M" append&crlf ; ! : writeStart ( -- ) \ make a modal form not return until it's close, code from G. Hubert GetSuperClass: self DIALOG-CLASS <> ?exit modal 0= ?exit --- 2059,2063 ---- 2tabs s" ;M" append&crlf ; ! : writeStart ( -- ) \ make a modal form not return until it's closed, code from G. Hubert GetSuperClass: self DIALOG-CLASS <> ?exit modal 0= ?exit *************** *** 2063,2072 **** s" : Main ( -- )" append&crlf 2tabs s" Start: " append frmName count append&crlf ! 2tabs s" MessageLoop bye ;" append&crlf +crlf s" &forthdir count &appdir place" append&crlf s" ' Main turnkey " append frmName count append s" .exe" append&crlf false to turnkeying? \ reset it iconfile c@ \ do we have an icon file? ! if s" Needs Resources.f" append&crlf \ load resources s"append iconfile count append "append s" " append \in-system-ok s"append join$( &appdir count frmName count s" .exe" )join$ count append "append --- 2073,2082 ---- s" : Main ( -- )" append&crlf 2tabs s" Start: " append frmName count append&crlf ! 2tabs s" ;" append&crlf +crlf s" &forthdir count &appdir place" append&crlf s" ' Main turnkey " append frmName count append s" .exe" append&crlf false to turnkeying? \ reset it iconfile c@ \ do we have an icon file? ! if s" Require Resources.f" append&crlf \ load resources s"append iconfile count append "append s" " append \in-system-ok s"append join$( &appdir count frmName count s" .exe" )join$ count append "append *************** *** 2209,2212 **** --- 2219,2223 ---- +crlf s" :M On_Init: ( -- )" append&crlf + 2tabs s" On_Init: Super" append&crlf 2tabs s"append s" MS Sans Serif" append "append s" SetFaceName: WinFont" append&crlf |
|
From: George H. <geo...@us...> - 2013-11-15 17:43:53
|
Update of /cvsroot/win32forth/win32forth/Help In directory sfp-cvs-1.v30.ch3.sourceforge.com:/tmp/cvs-serv7737 Modified Files: HelpScope.f Log Message: Updated help Index: HelpScope.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/Help/HelpScope.f,v retrieving revision 1.10 retrieving revision 1.11 diff -C2 -d -r1.10 -r1.11 *** HelpScope.f 6 Nov 2013 23:46:31 -0000 1.10 --- HelpScope.f 15 Nov 2013 17:43:50 -0000 1.11 *************** *** 160,164 **** SrcScope: src\class.f \ Object Oriented Programming ! SrcScope: src\scrnctrl.f \ screen control words SrcScope: src\registry.f \ Win32 Registry support SrcScope: src\ansfile.f \ ansi file words --- 160,164 ---- SrcScope: src\class.f \ Object Oriented Programming ! \ SrcScope: src\scrnctrl.f \ screen control words SrcScope: src\registry.f \ Win32 Registry support SrcScope: src\ansfile.f \ ansi file words |
|
From: George H. <geo...@us...> - 2013-11-15 17:40:45
|
Update of /cvsroot/win32forth/win32forth/Help/html In directory sfp-cvs-1.v30.ch3.sourceforge.com:/tmp/cvs-serv7457 Modified Files: class-TrayWindow.htm class-gdiStruct.htm class-generic.htm Log Message: Updated docs Index: class-TrayWindow.htm =================================================================== RCS file: /cvsroot/win32forth/win32forth/Help/html/class-TrayWindow.htm,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** class-TrayWindow.htm 17 Nov 2011 21:57:09 -0000 1.1 --- class-TrayWindow.htm 15 Nov 2013 17:40:43 -0000 1.2 *************** *** 19,23 **** </code></b><br>Get the handle of the icon which should be added to the traybar. </p><p><b><code>:M GetTooltip: ( -- addr len ) ! </code></b><br>Get the tooltip text for the traybar icon. </p><p><b><code>:M AddIcon: ( -- ) </code></b><br>Add our icon to the traybar --- 19,23 ---- </code></b><br>Get the handle of the icon which should be added to the traybar. </p><p><b><code>:M GetTooltip: ( -- addr len ) ! </code></b><br>Get the tooltip text for the traybar icon. Default is to print the title of the window </p><p><b><code>:M AddIcon: ( -- ) </code></b><br>Add our icon to the traybar Index: class-generic.htm =================================================================== RCS file: /cvsroot/win32forth/win32forth/Help/html/class-generic.htm,v retrieving revision 1.5 retrieving revision 1.6 diff -C2 -d -r1.5 -r1.6 *** class-generic.htm 6 Nov 2013 23:46:31 -0000 1.5 --- class-generic.htm 15 Nov 2013 17:40:43 -0000 1.6 *************** *** 626,632 **** </p><p><b><code>:M On_Init: ( -- ) </code></b><br>Thing's to do during creation of the window. ! Default does nothing. </p><p><b><code>:M On_Done: ( -- ) ! </code></b><br>Thing's to do when the window will be destroyed. Default does nothing. </p><p><b><code>;CLASS </code></b><br>End of generic-window class --- 626,632 ---- </p><p><b><code>:M On_Init: ( -- ) </code></b><br>Thing's to do during creation of the window. ! Default does ?DoAddDialogList. </p><p><b><code>:M On_Done: ( -- ) ! </code></b><br>Thing's to do when the window will be destroyed. Default does ?DoRemoveDialogList. </p><p><b><code>;CLASS </code></b><br>End of generic-window class Index: class-gdiStruct.htm =================================================================== RCS file: /cvsroot/win32forth/win32forth/Help/html/class-gdiStruct.htm,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** class-gdiStruct.htm 17 Nov 2011 21:57:09 -0000 1.1 --- class-gdiStruct.htm 15 Nov 2013 17:40:43 -0000 1.2 *************** *** 240,244 **** </p><a name="gdiRGBQUAD"></a> <h2>gdiRGBQUAD class ! </h2><p><b><code>:class gdiRGBQUAD <super gdiCOLORREF </code></b><br>Wrapper class for a RGBQUAD struct </p><p>The RGBQUAD structure describes a color consisting of relative --- 240,244 ---- </p><a name="gdiRGBQUAD"></a> <h2>gdiRGBQUAD class ! </h2><p><b><code>synonym gdiRGBQUAD gdiCOLORREF </code></b><br>Wrapper class for a RGBQUAD struct </p><p>The RGBQUAD structure describes a color consisting of relative *************** *** 246,252 **** </p><p>The bmiColors member of the BITMAPINFO structure consists of an array of RGBQUAD structures. ! </p><p>Note: This class doesn't have any private methods. For a description of the methods see the <i> gdiCOLORREF </i> class. ! </p><p><b><code>;class </code></b><br>End of gdiRGBQUAD class </p><a name="gdiSIZE"></a> --- 246,252 ---- </p><p>The bmiColors member of the BITMAPINFO structure consists of an array of RGBQUAD structures. ! </p><p>Note: This class is a synonym of gdiCOLORREF. For a description of the methods see the <i> gdiCOLORREF </i> class. ! </p><p><b><code>\ ;class </code></b><br>End of gdiRGBQUAD class </p><a name="gdiSIZE"></a> |
|
From: George H. <geo...@us...> - 2013-11-06 23:46:34
|
Update of /cvsroot/win32forth/win32forth/Help/html In directory sfp-cvs-1.v30.ch3.sourceforge.com:/tmp/cvs-serv9366/html Modified Files: class-controls.htm class-dialog.htm class-generic.htm dexh-float.htm dexh-interpif.htm w32f-relnotes.6.16.htm Log Message: Updated docs Index: dexh-float.htm =================================================================== RCS file: /cvsroot/win32forth/win32forth/Help/html/dexh-float.htm,v retrieving revision 1.3 retrieving revision 1.4 diff -C2 -d -r1.3 -r1.4 *** dexh-float.htm 22 Apr 2013 19:20:21 -0000 1.3 --- dexh-float.htm 6 Nov 2013 23:46:31 -0000 1.4 *************** *** 103,115 **** </code></b><br><b> Interpretation: ( -<fvalue>- -- fs: r -- ) <br /> Compilation: ( -<fvalue>- -- Run-time: FS: r -- ) </b> ! </p><p>Store r into -<fvalue>-. If -<fvalue>- is not defined with fvalue then memory may ! be corrupted; no checks are made so the user should take care. FTO should not be ! POSTPONEd. </p><p><b><code>synonym +fto +to \ W32F Floating extra </code></b><br><b> Interpretation: ( -<fvalue>- -- fs: r -- ) <br /> Compilation: ( -<fvalue>- -- Run-time: FS: r -- ) </b> ! </p><p>Add r into -<fvalue>-. If -<fvalue>- is not defined with fvalue then memory may ! be corrupted; no checks are made so the user should take care. +FTO should not be ! POSTPONEd. </p><p><b><code>: FCONSTANT ( "name" -- ; fs: r -- ) \ ANSI Floating </code></b><br> <b> Interpretation: ( "name" ; fs: r -- ) </b> <br /> --- 103,111 ---- </code></b><br><b> Interpretation: ( -<fvalue>- -- fs: r -- ) <br /> Compilation: ( -<fvalue>- -- Run-time: FS: r -- ) </b> ! </p><p>Store r into -<fvalue>-. </p><p><b><code>synonym +fto +to \ W32F Floating extra </code></b><br><b> Interpretation: ( -<fvalue>- -- fs: r -- ) <br /> Compilation: ( -<fvalue>- -- Run-time: FS: r -- ) </b> ! </p><p>Add r into -<fvalue>-. </p><p><b><code>: FCONSTANT ( "name" -- ; fs: r -- ) \ ANSI Floating </code></b><br> <b> Interpretation: ( "name" ; fs: r -- ) </b> <br /> Index: class-dialog.htm =================================================================== RCS file: /cvsroot/win32forth/win32forth/Help/html/class-dialog.htm,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 *** class-dialog.htm 18 Jul 2012 12:47:28 -0000 1.2 --- class-dialog.htm 6 Nov 2013 23:46:31 -0000 1.3 *************** *** 60,64 **** To use this class you have to create a ressource file (*.res) which must contain the dialog resource. Since Win32Forth doesn't provide any tool's to create a dialog ! resource you should use ForthForm to create your dialog windows instead. </p><p><b><code>:M Start: ( parent -- flag ) </code></b><br>Open the dialog --- 60,64 ---- To use this class you have to create a ressource file (*.res) which must contain the dialog resource. Since Win32Forth doesn't provide any tool's to create a dialog ! resource you should use the Win32ForthIDE Forth Designer to create your dialog windows instead. </p><p><b><code>:M Start: ( parent -- flag ) </code></b><br>Open the dialog *************** *** 77,81 **** To use this class you have to create a ressource file (*.res) which must contain the dialog resource. Since Win32Forth doesn't provide any tool's to create a dialog ! resource you should use ForthForm to create your dialog windows instead. </p><p><b><code>:M WindowStyle: ( -- n1 ) </code></b><br>Get the window style of the dialog. --- 77,81 ---- To use this class you have to create a ressource file (*.res) which must contain the dialog resource. Since Win32Forth doesn't provide any tool's to create a dialog ! resource you should use Win32ForthIDE Forth Designer to create your dialog windows instead. </p><p><b><code>:M WindowStyle: ( -- n1 ) </code></b><br>Get the window style of the dialog. Index: class-controls.htm =================================================================== RCS file: /cvsroot/win32forth/win32forth/Help/html/class-controls.htm,v retrieving revision 1.6 retrieving revision 1.7 diff -C2 -d -r1.6 -r1.7 *** class-controls.htm 22 Apr 2013 19:20:21 -0000 1.6 --- class-controls.htm 6 Nov 2013 23:46:31 -0000 1.7 *************** *** 129,134 **** </code></b><br>Initialise the class. </p><p><b><code>:M SetFunc: ( cfa -- ) ! </code></b><br>Set the button function. This function es executed when the ! button is pressed whith a click with the left mouse button </p><p><b><code>:M WindowStyle: ( -- style ) </code></b><br>Get the window style of the control. The default style is: BS_PUSHBUTTON, --- 129,134 ---- </code></b><br>Initialise the class. </p><p><b><code>:M SetFunc: ( cfa -- ) ! </code></b><br>Set the button function. This function is executed when the ! button is pressed with a click with the left mouse button </p><p><b><code>:M WindowStyle: ( -- style ) </code></b><br>Get the window style of the control. The default style is: BS_PUSHBUTTON, *************** *** 305,309 **** the value of <i> n </i>, whichever is smaller. For multiline edit controls, this value is either 0xFFFF bytes or the value of <i> n </i>, whichever is smaller. ! </p><p><b><code>:M GetTextEx: { buffer$ maxlen -- buffer$ len } </code></b><br>Copies the text of the edit control into a buffer. </p><p><i> buffer$ </i> is the address of the buffer that will receive the text. --- 305,309 ---- the value of <i> n </i>, whichever is smaller. For multiline edit controls, this value is either 0xFFFF bytes or the value of <i> n </i>, whichever is smaller. ! </p><p><b><code>:M GetTextEx: \ { buffer$ maxlen -- buffer$ len } </code></b><br>Copies the text of the edit control into a buffer. </p><p><i> buffer$ </i> is the address of the buffer that will receive the text. Index: w32f-relnotes.6.16.htm =================================================================== RCS file: /cvsroot/win32forth/win32forth/Help/html/w32f-relnotes.6.16.htm,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** w32f-relnotes.6.16.htm 18 Nov 2011 01:47:11 -0000 1.1 --- w32f-relnotes.6.16.htm 6 Nov 2013 23:46:31 -0000 1.2 *************** *** 36,39 **** --- 36,40 ---- <li>200X PARSE-NAME added.</li> <li>RECURSE now works correctly with :NONAME</li> + <li> EXIT ?EXIT and ; now work the same as EXITM ?EXITM and ;M in methods.</li> <li>RESTORE-INPUT now repositions the file and rereads the line if input source is a file.</li> <li>USER area increased to 8192 bytes</li> *************** *** 41,44 **** --- 42,46 ---- <li>New user variable TASK-STATUS added to provide 32 bit flags (8 for applications), plus access words.</li> <li>Assychronous callbacks in multi-media automatically handled.</li> + <li>EXIT, ?EXIT and and ; now work with methods as alternatives to EXITM ?EXITM and ;M.</li> <li>Opening source files associated with an editor (WinEd, SciEdit or Win32ForthIDE) when the editor is running causes the file to display in the running instance.</li> Index: dexh-interpif.htm =================================================================== RCS file: /cvsroot/win32forth/win32forth/Help/html/dexh-interpif.htm,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 *** dexh-interpif.htm 20 Nov 2011 19:40:26 -0000 1.2 --- dexh-interpif.htm 6 Nov 2013 23:46:31 -0000 1.3 *************** *** 100,108 **** #ELSE, #THEN or #ENDIF is parsed then error -58 is thrown. This word is designed to ignore object.ivar type words. ! </p><p><b><code>: [DEFINED] ( "aword" -- f1 ) \ W32F TOOLS EXTRA </code></b><br>Compilation: Perform the execution semantics given below. <br /> Execution: Return true if "aword" is found in a search of the search order. This word is designed to ignore object.ivar type words. ! </p><p><b><code>: [UNDEFINED] ( "aword" -- f1 ) \ W32F TOOLS EXTRA </code></b><br>Compilation: Perform the execution semantics given below. <br /> Execution: Return false if "aword" is found in a search of the search order. --- 100,108 ---- #ELSE, #THEN or #ENDIF is parsed then error -58 is thrown. This word is designed to ignore object.ivar type words. ! </p><p><b><code>: [DEFINED] ( "aword" -- f1 ) \ Forth200X TOOLS EXT </code></b><br>Compilation: Perform the execution semantics given below. <br /> Execution: Return true if "aword" is found in a search of the search order. This word is designed to ignore object.ivar type words. ! </p><p><b><code>: [UNDEFINED] ( "aword" -- f1 ) \ Forth200X TOOLS EXT </code></b><br>Compilation: Perform the execution semantics given below. <br /> Execution: Return false if "aword" is found in a search of the search order. Index: class-generic.htm =================================================================== RCS file: /cvsroot/win32forth/win32forth/Help/html/class-generic.htm,v retrieving revision 1.4 retrieving revision 1.5 diff -C2 -d -r1.4 -r1.5 *** class-generic.htm 15 Mar 2013 00:25:01 -0000 1.4 --- class-generic.htm 6 Nov 2013 23:46:31 -0000 1.5 *************** *** 58,62 **** </p><p><b><code>:M DestroyWindow: ( -- ) </code></b><br>Destroy the window. The handle is always zero after executing this method. In a ! mult-tasking application this method causes an error if executed by a task that didn't create the window. </p><p><b><code>:M Close: ( -- ) --- 58,62 ---- </p><p><b><code>:M DestroyWindow: ( -- ) </code></b><br>Destroy the window. The handle is always zero after executing this method. In a ! multi-tasking application this method causes an error if executed by a task that didn't create the window. </p><p><b><code>:M Close: ( -- ) *************** *** 173,176 **** --- 173,178 ---- </code></b><br>The GetWindowText function copies the text of the window's title bar (if it has one) into a buffer. If the window is a control, the text of the control is copied. + The text is stored in a dynamic buffer so should be copied if it needs to be + persistant. </p><p><b><code>:M SetTextAlign: ( flag -- ) </code></b><br>Set the text-alignment for the window. <br /> |
|
From: George H. <geo...@us...> - 2013-11-06 23:46:33
|
Update of /cvsroot/win32forth/win32forth/Help/hdb In directory sfp-cvs-1.v30.ch3.sourceforge.com:/tmp/cvs-serv9366/hdb Modified Files: Help.cfg Log Message: Updated docs Index: Help.cfg =================================================================== RCS file: /cvsroot/win32forth/win32forth/Help/hdb/Help.cfg,v retrieving revision 1.13 retrieving revision 1.14 diff -C2 -d -r1.13 -r1.14 *** Help.cfg 22 Apr 2013 19:20:21 -0000 1.13 --- Help.cfg 6 Nov 2013 23:46:31 -0000 1.14 *************** *** 3,7 **** [WindowW] 1019 [WindowH] 708 ! [SplitterV] 209 [SplitterH] 112 \ No newline at end of file --- 3,7 ---- [WindowW] 1019 [WindowH] 708 ! [SplitterV] 544 [SplitterH] 112 \ No newline at end of file |
|
From: George H. <geo...@us...> - 2013-11-06 22:12:02
|
Update of /cvsroot/win32forth/win32forth/apps/Win32ForthIDE In directory sfp-cvs-1.v30.ch3.sourceforge.com:/tmp/cvs-serv2484 Modified Files: FORMOBJECT.F ScintillaMDI.f Log Message: Added .frm files to forth file list Index: FORMOBJECT.F =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/Win32ForthIDE/FORMOBJECT.F,v retrieving revision 1.11 retrieving revision 1.12 diff -C2 -d -r1.11 -r1.12 *** FORMOBJECT.F 21 Jul 2011 18:13:43 -0000 1.11 --- FORMOBJECT.F 6 Nov 2013 22:11:59 -0000 1.12 *************** *** 1947,1953 **** then r> 0= if 2tabs s" dup 0= \ id is from a menu if lparam is zero" append&crlf ! 2tabs s" if over LOWORD CurrentMenu if dup DoMenu: CurrentMenu then" append&crlf ! 2tabs s" CurrentPopup if dup DoMenu: CurrentPopup then drop" append&crlf ! 2tabs s" else over LOWORD ( ID ) self \ object address on stack" append&crlf 2tabs s" WMCommand-Func ?dup \ must not be zero" append&crlf 2tabs s" if execute" append&crlf --- 1947,1952 ---- then r> 0= if 2tabs s" dup 0= \ id is from a menu if lparam is zero" append&crlf ! 2tabs s" if WM_COMMAND wm: super" append&crlf ! 2tabs s" else over LOWORD ( ID ) self \ object address on stack" append&crlf 2tabs s" WMCommand-Func ?dup \ must not be zero" append&crlf 2tabs s" if execute" append&crlf Index: ScintillaMDI.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/Win32ForthIDE/ScintillaMDI.f,v retrieving revision 1.16 retrieving revision 1.17 diff -C2 -d -r1.16 -r1.17 *** ScintillaMDI.f 7 Sep 2011 03:00:23 -0000 1.16 --- ScintillaMDI.f 6 Nov 2013 22:11:59 -0000 1.17 *************** *** 17,21 **** \ ------------------------------------------------------------------------------ ! MultiFileOpenDialog SourceFileOpenDialog "Open Source Files" "Forth Files (*.f,*.fs,*.4th,*.fth,*.seq)|*.f;*.fs;*.4th;*.fth;*.seq|All Files (*.*)|*.*" FileSaveDialog SaveSourceFileDialog "Save Source File" "Forth Files (*.f)|*.f|All Files (*.*)|*.*|" --- 17,21 ---- \ ------------------------------------------------------------------------------ ! MultiFileOpenDialog SourceFileOpenDialog "Open Source Files" "Forth Files (*.f,*.frm,*.fs,*.4th,*.fth,*.seq)|*.f;*.frm;*.fs;*.4th;*.fth;*.seq|All Files (*.*)|*.*" FileSaveDialog SaveSourceFileDialog "Save Source File" "Forth Files (*.f)|*.f|All Files (*.*)|*.*|" |
Update of /cvsroot/win32forth/win32forth/src In directory sfp-cvs-1.v30.ch3.sourceforge.com:/tmp/cvs-serv1436 Modified Files: CONTROLS.F Class.f Dc.f Dialog.f FLOAT.F GENERIC.F INTERPIF.F PRIMHASH.F Primutil.f Log Message: Made ; EXIT and ?EXIT work for methods, TO and +TO now throw an error for use with a child of FCONSTANT. GETTEXT: in window classes now uses a dynamic buffer. B. BU,.R BUD,.R all deprecated. Minor optimisations and doc changes. Index: PRIMHASH.F =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/PRIMHASH.F,v retrieving revision 1.10 retrieving revision 1.11 diff -C2 -d -r1.10 -r1.11 *** PRIMHASH.F 19 Aug 2011 13:10:45 -0000 1.10 --- PRIMHASH.F 6 Nov 2013 21:56:29 -0000 1.11 *************** *** 120,129 **** next c; ! in-system ! ! : EXITM ( -- ) \ exit a method definition ! ?comp postpone unnestm ; immediate ! in-application \ -------------------- Runtime for Objects -------------------- --- 120,134 ---- next c; ! \ in-system ! \ ! \ : EXITM ( -- ) \ exit a method definition ! \ ?comp postpone unnestm ; immediate ! \ ! \ ! \ ! \ in-application ! synonym exitm exit ! synonym ?exitm ?exit \ -------------------- Runtime for Objects -------------------- Index: GENERIC.F =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/GENERIC.F,v retrieving revision 1.28 retrieving revision 1.29 diff -C2 -d -r1.28 -r1.29 *** GENERIC.F 15 Mar 2013 00:23:06 -0000 1.28 --- GENERIC.F 6 Nov 2013 21:56:29 -0000 1.29 *************** *** 187,191 **** :M DestroyWindow: ( -- ) \ *G Destroy the window. The handle is always zero after executing this method. In a ! \ ** mult-tasking application this method causes an error if executed by a task that \ ** didn't create the window. hWnd --- 187,191 ---- :M DestroyWindow: ( -- ) \ *G Destroy the window. The handle is always zero after executing this method. In a ! \ ** multi-tasking application this method causes an error if executed by a task that \ ** didn't create the window. hWnd *************** *** 316,321 **** then ;M - maxstring newuser gettext$ - 3 import: GetWindowText --- 316,319 ---- *************** *** 323,328 **** \ *G The GetWindowText function copies the text of the window's title bar (if it has one) \ ** into a buffer. If the window is a control, the text of the control is copied. ! gettext$ hWnd ! -if over MAXCOUNTED ( 3reverse Call ) GetWindowText then ;M --- 321,328 ---- \ *G The GetWindowText function copies the text of the window's title bar (if it has one) \ ** into a buffer. If the window is a control, the text of the control is copied. ! \ ** The text is stored in a dynamic buffer so should be copied if it needs to be ! \ ** persistant. ! new$ hWnd ! -if over MAXCOUNTED GetWindowText then ;M Index: Dc.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/Dc.f,v retrieving revision 1.19 retrieving revision 1.20 diff -C2 -d -r1.19 -r1.20 *** Dc.f 2 Sep 2008 07:01:20 -0000 1.19 --- Dc.f 6 Nov 2013 21:56:29 -0000 1.20 *************** *** 26,32 **** :CLASS WinDC <Super gdiDC ! int hDC \ Handle to the device context ! \ I can't get rid of it since some old applications ! \ are accesing this ivar like this: dc.hDC int currentfont --- 26,34 ---- :CLASS WinDC <Super gdiDC ! \ int hDC \ Handle to the device context ! \ \ I can't get rid of it since some old applications ! \ \ are accesing this ivar like this: dc.hDC ! ! synonym hdc hobject int currentfont *************** *** 39,43 **** :M PutHandle: ( hdc -- ) ! dup to hDC to hObject ;M --- 41,45 ---- :M PutHandle: ( hdc -- ) ! \ dup to hDC to hObject ;M Index: FLOAT.F =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/FLOAT.F,v retrieving revision 1.62 retrieving revision 1.63 diff -C2 -d -r1.62 -r1.63 *** FLOAT.F 14 Aug 2013 19:02:37 -0000 1.62 --- FLOAT.F 6 Nov 2013 21:56:29 -0000 1.63 *************** *** 456,461 **** create B/FLOAT allot ; - in-previous - : FVALUE ( compiling "name" -- ; fs: r -- ; run-time FS: -- r ) \ W32F Floating ext \ *G Define a floating point value initialised from the FP stack. --- 456,459 ---- *************** *** 479,484 **** - in-previous - : FCONSTANT ( "name" -- ; fs: r -- ) \ ANSI Floating \ *G \b Interpretation: ( "name" ; fs: r -- ) \d \n --- 477,480 ---- *************** *** 495,498 **** --- 491,496 ---- float; + in-previous + \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ \ Floating point literals. We store the 64-bit or 80-bit floating point *************** *** 1175,1178 **** --- 1173,1178 ---- f1.0 f2/ fconstant f0.5 ( fs: -- r ) + [defined] dofcon [if] ' finf @ to dofcon [then] + internal Index: Class.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/Class.f,v retrieving revision 1.43 retrieving revision 1.44 diff -C2 -d -r1.43 -r1.44 *** Class.f 14 Feb 2013 20:05:47 -0000 1.43 --- Class.f 6 Nov 2013 21:56:29 -0000 1.44 *************** *** 246,261 **** ^class 0= THROW_NOT_IN_CLASS ?throw ; \ Determine if next word is an instance var. \ Return pointer to class field in ivar structure. : VFIND ( str -- str f OR ^iclass t ) ^class ! IF dup count method-hash ^class IFA ((findv)) ! -if rot drop then ELSE 0 THEN ; : classVFIND ( str ^class -- str f OR ^iclass t ) ! >r dup count method-hash r> IFA ((findv)) ! -if rot drop then ; : IDX-HDR ( #elems ^class OR ^class -- indlen ) --- 246,262 ---- ^class 0= THROW_NOT_IN_CLASS ?throw ; + : (vfind) ( str hash ^class -- str f | ^iclass t ) + IFA ((findv)) -if rot drop then ; + \ Determine if next word is an instance var. \ Return pointer to class field in ivar structure. : VFIND ( str -- str f OR ^iclass t ) ^class ! IF dup count method-hash ^class (vfind) ELSE 0 THEN ; : classVFIND ( str ^class -- str f OR ^iclass t ) ! >r dup count method-hash r> (vfind) ; : IDX-HDR ( #elems ^class OR ^class -- indlen ) *************** *** 663,667 **** then then method ! true to ?:M ; immediate \ mark as making a new method : ;M ( -- ) --- 664,668 ---- then then method ! ['] unnestm to ?:M ; immediate \ mark as making a new method : ;M ( -- ) Index: Dialog.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/Dialog.f,v retrieving revision 1.8 retrieving revision 1.9 diff -C2 -d -r1.8 -r1.9 *** Dialog.f 15 Mar 2013 00:23:06 -0000 1.8 --- Dialog.f 6 Nov 2013 21:56:29 -0000 1.9 *************** *** 84,88 **** \ ** To use this class you have to create a ressource file (*.res) which must contain \ ** the dialog resource. Since Win32Forth doesn't provide any tool's to create a dialog ! \ ** resource you should use ForthForm to create your dialog windows instead. : (DialogProc) ( hwnd msg wparam lparam -- res ) --- 84,88 ---- \ ** To use this class you have to create a ressource file (*.res) which must contain \ ** the dialog resource. Since Win32Forth doesn't provide any tool's to create a dialog ! \ ** resource you should use the Win32ForthIDE Forth Designer to create your dialog windows instead. : (DialogProc) ( hwnd msg wparam lparam -- res ) *************** *** 201,205 **** \ ** To use this class you have to create a ressource file (*.res) which must contain \ ** the dialog resource. Since Win32Forth doesn't provide any tool's to create a dialog ! \ ** resource you should use ForthForm to create your dialog windows instead. int hTemplate --- 201,205 ---- \ ** To use this class you have to create a ressource file (*.res) which must contain \ ** the dialog resource. Since Win32Forth doesn't provide any tool's to create a dialog ! \ ** resource you should use Win32ForthIDE Forth Designer to create your dialog windows instead. int hTemplate Index: CONTROLS.F =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/CONTROLS.F,v retrieving revision 1.12 retrieving revision 1.13 diff -C2 -d -r1.12 -r1.13 *** CONTROLS.F 14 Feb 2010 17:46:21 -0000 1.12 --- CONTROLS.F 6 Nov 2013 21:56:29 -0000 1.13 *************** *** 340,345 **** :M SetFunc: ( cfa -- ) ! \ *G Set the button function. This function es executed when the ! \ ** button is pressed whith a click with the left mouse button to buttonfunc ;M --- 340,345 ---- :M SetFunc: ( cfa -- ) ! \ *G Set the button function. This function is executed when the ! \ ** button is pressed with a click with the left mouse button to buttonfunc ;M Index: INTERPIF.F =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/INTERPIF.F,v retrieving revision 1.6 retrieving revision 1.7 diff -C2 -d -r1.6 -r1.7 *** INTERPIF.F 20 Nov 2011 19:42:10 -0000 1.6 --- INTERPIF.F 6 Nov 2013 21:56:29 -0000 1.7 *************** *** 168,172 **** \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ ! : [DEFINED] ( "aword" -- f1 ) \ W32F TOOLS EXTRA \ *G Compilation: Perform the execution semantics given below. \n \ ** Execution: Return true if "aword" is found in a search of the search order. --- 168,172 ---- \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ ! : [DEFINED] ( "aword" -- f1 ) \ Forth200X TOOLS EXT \ *G Compilation: Perform the execution semantics given below. \n \ ** Execution: Return true if "aword" is found in a search of the search order. *************** *** 176,180 **** R> TO DPR-WARNING? ; IMMEDIATE ! : [UNDEFINED] ( "aword" -- f1 ) \ W32F TOOLS EXTRA \ *G Compilation: Perform the execution semantics given below. \n \ ** Execution: Return false if "aword" is found in a search of the search order. --- 176,180 ---- R> TO DPR-WARNING? ; IMMEDIATE ! : [UNDEFINED] ( "aword" -- f1 ) \ Forth200X TOOLS EXT \ *G Compilation: Perform the execution semantics given below. \n \ ** Execution: Return false if "aword" is found in a search of the search order. Index: Primutil.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/Primutil.f,v retrieving revision 1.62 retrieving revision 1.63 diff -C2 -d -r1.62 -r1.63 *** Primutil.f 2 Jun 2013 21:57:41 -0000 1.62 --- Primutil.f 6 Nov 2013 21:56:29 -0000 1.63 *************** *** 617,629 **** \ BINARY double number display with commas ! : RADIX: ( n1 -<name>- ) ! CREATE , DOCOL , !CSP ] ! DOES> BASE @ >R ! LCOUNT BASE ! EXECUTE \ run headerless definition ! R> BASE ! ; ! ! 2 RADIX: BUD,.R ( ud width -- ) UD,.R ; ! 2 RADIX: BU,.R ( n1 width -- ) U,.R ; ! 2 RADIX: B. ( n1 -- ) 1 U,.R ; \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ --- 617,623 ---- \ BINARY double number display with commas ! : BUD,.R ( ud width -- ) BASE @ >R BINARY UD,.R R> BASE ! ; deprecated ! : BU,.R ( n1 width -- ) BASE @ >R BINARY U,.R R> BASE ! ; deprecated ! : B. ( n1 -- ) BASE @ >R BINARY 1 U,.R R> BASE ! ; deprecated \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ |
|
From: George H. <geo...@us...> - 2013-11-06 21:56:31
|
Update of /cvsroot/win32forth/win32forth/src/lib In directory sfp-cvs-1.v30.ch3.sourceforge.com:/tmp/cvs-serv1436/lib Modified Files: RESOURCES.F TextBox.f Log Message: Made ; EXIT and ?EXIT work for methods, TO and +TO now throw an error for use with a child of FCONSTANT. GETTEXT: in window classes now uses a dynamic buffer. B. BU,.R BUD,.R all deprecated. Minor optimisations and doc changes. Index: RESOURCES.F =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/lib/RESOURCES.F,v retrieving revision 1.9 retrieving revision 1.10 diff -C2 -d -r1.9 -r1.10 *** RESOURCES.F 19 Aug 2011 14:42:03 -0000 1.9 --- RESOURCES.F 6 Nov 2013 21:56:29 -0000 1.10 *************** *** 341,346 **** RT_CURSOR UpdateResource LOOP ; - in-application - [then] --- 341,344 ---- Index: TextBox.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/lib/TextBox.f,v retrieving revision 1.4 retrieving revision 1.5 diff -C2 -d -r1.4 -r1.5 *** TextBox.f 15 Mar 2013 00:23:07 -0000 1.4 --- TextBox.f 6 Nov 2013 21:56:29 -0000 1.5 *************** *** 177,181 **** 0 swap EM_SETLIMITTEXT SendMessage:SelfDrop ;M ! :M GetTextEx: { buffer$ maxlen -- buffer$ len } \ *G Copies the text of the edit control into a buffer. \ *P \i buffer$ \d is the address of the buffer that will receive the text. --- 177,181 ---- 0 swap EM_SETLIMITTEXT SendMessage:SelfDrop ;M ! :M GetTextEx: \ { buffer$ maxlen -- buffer$ len } \ *G Copies the text of the edit control into a buffer. \ *P \i buffer$ \d is the address of the buffer that will receive the text. *************** *** 185,189 **** \ *P If the method succeeds, \i len \d is the length, in characters, of the copied \ ** string, not including the terminating null character. ! maxlen buffer$ hwnd Call GetWindowText buffer$ swap ;M :M SetTextZ: ( addrz -- ) --- 185,190 ---- \ *P If the method succeeds, \i len \d is the length, in characters, of the copied \ ** string, not including the terminating null character. ! \ maxlen buffer$ hwnd Call GetWindowText buffer$ swap ;M ! over hwnd Call GetWindowText ;M :M SetTextZ: ( addrz -- ) |
|
From: George H. <geo...@us...> - 2013-08-14 19:02:40
|
Update of /cvsroot/win32forth/win32forth/src In directory sfp-cvs-1.v30.ch3.sourceforge.com:/tmp/cvs-serv17899 Modified Files: FLOAT.F imageman.f Log Message: Minor tidy up Index: FLOAT.F =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/FLOAT.F,v retrieving revision 1.61 retrieving revision 1.62 diff -C2 -d -r1.61 -r1.62 *** FLOAT.F 14 Jun 2013 01:02:35 -0000 1.61 --- FLOAT.F 14 Aug 2013 19:02:37 -0000 1.62 *************** *** 310,315 **** \ macro to end float words macro: float; ! fsp-adjust if ! add ecx, # fsp-adjust mov FSP_MEMORY , ecx 0 to fsp-adjust then --- 310,316 ---- \ macro to end float words macro: float; ! fsp-adjust if fsp-adjust 0< if ! sub ecx, # fsp-adjust negate ! else add ecx, # fsp-adjust then mov FSP_MEMORY , ecx 0 to fsp-adjust then *************** *** 575,580 **** \ *G Remove r from the floating-point stack. fstack-check_1 ! sub ecx , # B/FLOAT ! mov FSP_MEMORY , ecx float; --- 576,580 ---- \ *G Remove r from the floating-point stack. fstack-check_1 ! -fsp-adjust float; *************** *** 654,659 **** \ *G Remove the top 2 FP stack entries. fstack-check_2 ! sub ecx , # B/FLOAT 2* ! mov FSP_MEMORY , ecx float; --- 654,659 ---- \ *G Remove the top 2 FP stack entries. fstack-check_2 ! -fsp-adjust ! -fsp-adjust float; Index: imageman.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/imageman.f,v retrieving revision 1.32 retrieving revision 1.33 diff -C2 -d -r1.32 -r1.33 *** imageman.f 20 Mar 2013 23:51:21 -0000 1.32 --- imageman.f 14 Aug 2013 19:02:37 -0000 1.33 *************** *** 881,885 **** exception@ ! if CMDLINE drop OFF \ reset commandline s" Exception occured in Forth initialization" MsgBox \ .exception ? --- 881,885 ---- exception@ ! if Empty-command-line \ reset commandline s" Exception occured in Forth initialization" MsgBox \ .exception ? |
|
From: George H. <geo...@us...> - 2013-08-14 18:04:33
|
Update of /cvsroot/win32forth/win32forth-extsrc/extsrc/installer In directory sfp-cvs-1.v30.ch3.sourceforge.com:/tmp/cvs-serv14216 Modified Files: Tag: v614xx Win32Forth.nsi Log Message: Updated to version 6.14.04 Index: Win32Forth.nsi =================================================================== RCS file: /cvsroot/win32forth/win32forth-extsrc/extsrc/installer/Win32Forth.nsi,v retrieving revision 1.14.2.1 retrieving revision 1.14.2.2 diff -C2 -d -r1.14.2.1 -r1.14.2.2 *** Win32Forth.nsi 30 Mar 2013 20:54:57 -0000 1.14.2.1 --- Win32Forth.nsi 14 Aug 2013 18:04:30 -0000 1.14.2.2 *************** *** 8,14 **** !define VER_MAJOR 6 !define VER_MINOR 14 ! !define VER_REVISION 02 ! !define VER_DISPLAY "6.14.03" ! !define VER_FILE "61403" ; Define your application name --- 8,14 ---- !define VER_MAJOR 6 !define VER_MINOR 14 ! !define VER_REVISION 04 ! !define VER_DISPLAY "6.14.04" ! !define VER_FILE "61404" ; Define your application name |
|
From: George H. <geo...@us...> - 2013-08-14 18:01:09
|
Update of /cvsroot/win32forth/win32forth/src In directory sfp-cvs-1.v30.ch3.sourceforge.com:/tmp/cvs-serv13816 Modified Files: Tag: V614XX FLOAT.F Log Message: Fixed bug in Fdrop and F2drop Index: FLOAT.F =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/FLOAT.F,v retrieving revision 1.53.2.2 retrieving revision 1.53.2.3 diff -C2 -d -r1.53.2.2 -r1.53.2.3 *** FLOAT.F 5 Jun 2010 07:37:48 -0000 1.53.2.2 --- FLOAT.F 14 Aug 2013 18:01:05 -0000 1.53.2.3 *************** *** 86,90 **** 0 [tos] endm ! in-application \ *W <a name="Sec#1"></a> --- 86,90 ---- 0 [tos] endm ! in-previous \ *W <a name="Sec#1"></a> *************** *** 166,170 **** [THEN] ! in-application previous definitions --- 166,170 ---- [THEN] ! in-previous previous definitions *************** *** 187,191 **** FLOATSTACK + [ecx] [up] endm ! in-application -45 Constant THROW_FLOATSTACKUNDER --- 187,191 ---- FLOATSTACK + [ecx] [up] endm ! in-previous -45 Constant THROW_FLOATSTACKUNDER *************** *** 273,277 **** endm ! \ makro to copy ST(0) on the separate float stack macro: (FPU>) fsp-cached? 0= if --- 273,277 ---- endm ! \ macro to copy ST(0) on the separate float stack macro: (FPU>) fsp-cached? 0= if *************** *** 288,292 **** endm ! \ makro to move the top of the separate float stack into st(0) macro: >FPU fsp-cached? 0= if --- 288,292 ---- endm ! \ macro to move the top of the separate float stack into st(0) macro: >FPU fsp-cached? 0= if *************** *** 316,320 **** false to fsp-cached? next ;c endm ! in-application \ Subroutine to check the depth of the float stack for underflow errors. --- 316,320 ---- false to fsp-cached? next ;c endm ! in-previous \ Subroutine to check the depth of the float stack for underflow errors. *************** *** 331,335 **** in-system ! \ makro to check if there is at least one element on the floating point stack macro: fstack-check_1 mov eax, # b/float --- 331,335 ---- in-system ! \ macro to check if there is at least one element on the floating point stack macro: fstack-check_1 mov eax, # b/float *************** *** 338,342 **** endm ! \ makro to check if there are at least two elements on the floating point stack macro: fstack-check_2 mov eax, # b/float 2* --- 338,342 ---- endm ! \ macro to check if there are at least two elements on the floating point stack macro: fstack-check_2 mov eax, # b/float 2* *************** *** 345,349 **** endm ! \ makro to check if there are at least three elements on the floating point stack macro: fstack-check_3 mov eax, # b/float 3 * --- 345,349 ---- endm ! \ macro to check if there are at least three elements on the floating point stack macro: fstack-check_3 mov eax, # b/float 3 * *************** *** 352,356 **** endm ! in-application \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ --- 352,356 ---- endm ! in-previous \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ *************** *** 425,469 **** \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ in-system ! : FVARIABLE ( compiling -<name>- -- ; run-time -- addr) \ ANSI Floating \ *G Define a floating-point variable in the dictionary. The contents are undefined. create B/FLOAT allot ; ! : FVALUE ( compiling -<name>- -- ; fs: r -- ; run-time FS: -- r ) \ W32F Floating extra \ *G Define a floating point value initialised from the FP stack. ! create f, ;code ! fld fsize 4 [eax] FPU> float; - in-application - - code _fto ( FS: n - ; 'fvalue - ) - fstack-check_1 - >FPU - add ebx, # cell \ >body - fstp FSIZE DATASTACK_MEMORY - pop ebx - float; ! in-system ! : FTO \ W32F Floating extra \ *G \b Interpretation: ( -<fvalue>- -- fs: r -- ) \n \ ** Compilation: ( -<fvalue>- -- Run-time: FS: r -- ) \d ! \ *P Store r into -<fvalue>-. If -<fvalue>- is not defined with fvalue then memory may ! \ ** be corrupted; no checks are made so the user should take care. FTO should not be ! \ ** POSTPONEd. ! state @ ! if postpone ['] postpone _fto ! else ' _fto ! then ; IMMEDIATE - in-application ! : FCONSTANT ( -<name>- ; fs: r -- ) \ ANSI Floating ! \ *G \b Interpretation: ( -<name>- ; fs: r -- ) \d \n \ ** Define an FP constant. \n \ ** \b Compilation: \d \n --- 425,485 ---- \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ + internal + + cfa-code dofvalue! ( fs: r -- ) + push ebx + mov ebx, -4 [eax] + fstack-check_1 + >FPU \ to st(0) + fstp FSIZE datastack_memory + pop ebx + float; + + cfa-code dofvalue+! ( fs: r -- ) + push tos + mov ebx, -8 [eax] + fstack-check_1 + >FPU + fld FSIZE DATASTACK_MEMORY + faddp st(1), st + fstp fsize datastack_memory + pop tos + float; + + external + in-system ! : FVARIABLE ( compiling "name" -- ; run-time -- addr) \ ANSI Floating \ *G Define a floating-point variable in the dictionary. The contents are undefined. create B/FLOAT allot ; ! in-previous ! ! : FVALUE ( compiling "name" -- ; fs: r -- ; run-time FS: -- r ) \ W32F Floating ext \ *G Define a floating point value initialised from the FP stack. ! create here 0 , dofvalue! , dofvalue+! , here swap ! f, ;code ! mov ecx, 4 [eax] ! fld fsize 0 [ecx] FPU> float; ! synonym fto to \ W32F Floating extra ! \ *G \b Interpretation: ( -<fvalue>- -- fs: r -- ) \n ! \ ** Compilation: ( -<fvalue>- -- Run-time: FS: r -- ) \d ! \ *P Store r into -<fvalue>-. ! synonym +fto +to \ W32F Floating extra \ *G \b Interpretation: ( -<fvalue>- -- fs: r -- ) \n \ ** Compilation: ( -<fvalue>- -- Run-time: FS: r -- ) \d ! \ *P Add r into -<fvalue>-. ! in-previous ! ! : FCONSTANT ( "name" -- ; fs: r -- ) \ ANSI Floating ! \ *G \b Interpretation: ( "name" ; fs: r -- ) \d \n \ ** Define an FP constant. \n \ ** \b Compilation: \d \n *************** *** 514,517 **** --- 530,568 ---- \ in-application + in-system + + also assembler + + : DFIELD: ( n1 "name" -- n2 ) ( addr -- 'addr ) + \ *G Skip leading space delimiters. Parse name delimited by a space. Offset is the first + \ ** double-float aligned value greater than or equal to n1. n2 = offset + 1 double-float. + \ ** Create a definition for name with the execution semantics given below. + \ ** name Execution: ( addr1 -- addr2 ) + \ ** Add the offset calculated during the compile time action to addr1 giving the + \ ** double-float aligned address addr2. + double field+ ; + + : FFIELD: ( n1 "name" -- n2 ) ( addr -- 'addr ) + \ *G Skip leading space delimiters. Parse name delimited by a space. Offset is the first + \ ** float aligned value greater than or equal to n1. n2 = offset + 1 float. + \ ** Create a definition for name with the execution semantics given below. + \ ** name Execution: ( addr1 -- addr2 ) + \ ** Add the offset calculated during the compile time action to addr1 giving the float + \ ** aligned address addr2. + fsize field+ ; + + : SFIELD: ( n1 "name" -- n2 ) ( addr -- 'addr ) + \ *G Skip leading space delimiters. Parse name delimited by a space. Offset is the first + \ ** singe-float aligned value greater than or equal to n1. n2 = offset + 1 single-float. + \ ** Create a definition for name with the execution semantics given below. + \ ** name Execution: ( addr1 -- addr2 ) + \ ** Add the offset calculated during the compile time action to addr1 giving the + \ ** single-float aligned address addr2. + float field+ ; + + previous + + in-previous + \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ \ Floating point stack operators *************** *** 524,528 **** \ *G Remove r from the floating-point stack. fstack-check_1 ! sub FSP_MEMORY , # B/FLOAT float; --- 575,580 ---- \ *G Remove r from the floating-point stack. fstack-check_1 ! sub ecx , # B/FLOAT ! mov FSP_MEMORY , ecx float; *************** *** 602,606 **** \ *G Remove the top 2 FP stack entries. fstack-check_2 ! sub FSP_MEMORY , # B/FLOAT 2* float; --- 654,659 ---- \ *G Remove the top 2 FP stack entries. fstack-check_2 ! sub ecx , # B/FLOAT 2* ! mov FSP_MEMORY , ecx float; *************** *** 788,792 **** endm ! in-application code FLOOR ( fs: r1 -- r2 ) \ ANSI Floating --- 841,845 ---- endm ! in-previous code FLOOR ( fs: r1 -- r2 ) \ ANSI Floating *************** *** 934,938 **** endm ! in-application code fcomppx ( -- flags ; fs: r1 r2 -- ) \ for comparing 2 FP values --- 987,991 ---- endm ! in-previous code fcomppx ( -- flags ; fs: r1 r2 -- ) \ for comparing 2 FP values *************** *** 1512,1516 **** in-system ! : float-array ( n1 -<name>- ) \ compile time ( -- a1 ) \ runtime create floats allot ; --- 1565,1569 ---- in-system ! : float-array ( n1 "name" -- ) \ compile time ( -- a1 ) \ runtime create floats allot ; *************** *** 1518,1522 **** internal ! in-application \ pointer to a float primitives --- 1571,1575 ---- internal ! in-previous \ pointer to a float primitives *************** *** 1560,1594 **** external ! : ^float ( a1 -<name>- ) \ compile time 64-bits ( fs: -- r ) \ runtime header ^float@ , ^float! , ^float+! , ( a1 ) , ; ! : #^float-array ( n1 -<name>- ) \ compile time 64-bits ( n1 -- ; fs: -- r ) \ runtime header ^#float@ , ^#float! , ^#float+! , ( n1 ) , ; ! : FLOAT ( -<name>- ) \ compile time 64-bits ( -- ; fs: -- r ) \ runtime header float@ , float! , float+! , 1 floats here over erase allot ; ! : #float-array ( n1 -<name>- ) \ compile time 64-bits ( n1 -- ; fs: -- r ) \ runtime header #float@ , #float! , #float+! , ( n1 ) 1+ floats here over erase allot ; ! : f-> ( n1 -<name>- ) \ store a value into a float ' ?float 1 cells+ cfa-comp, ; immediate ! : f+> ( n1 -<name>- ) \ increment the value of a float ' ?float 2 cells+ cfa-comp, ; immediate ! : f#-> ( n1 -<name>- ) \ store a value into a float ' ?#float 1 cells+ cfa-comp, ; immediate ! : f#+> ( n1 -<name>- ) \ increment the value of a float ' ?#float 2 cells+ cfa-comp, ; immediate ! in-application \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ --- 1613,1647 ---- external ! : ^float ( a1 "name" -- ) \ compile time 64-bits ( fs: -- r ) \ runtime header ^float@ , ^float! , ^float+! , ( a1 ) , ; ! : #^float-array ( n1 "name" -- ) \ compile time 64-bits ( n1 -- ; fs: -- r ) \ runtime header ^#float@ , ^#float! , ^#float+! , ( n1 ) , ; ! : FLOAT ( "name" -- ) \ compile time 64-bits ( -- ; fs: -- r ) \ runtime header float@ , float! , float+! , 1 floats here over erase allot ; ! : #float-array ( n1 "name" -- ) \ compile time 64-bits ( n1 -- ; fs: -- r ) \ runtime header #float@ , #float! , #float+! , ( n1 ) 1+ floats here over erase allot ; ! : f-> ( n1 "name" -- ) \ store a value into a float ' ?float 1 cells+ cfa-comp, ; immediate ! : f+> ( n1 "name" -- ) \ increment the value of a float ' ?float 2 cells+ cfa-comp, ; immediate ! : f#-> ( n1 "name" -- ) \ store a value into a float ' ?#float 1 cells+ cfa-comp, ; immediate ! : f#+> ( n1 "name" -- ) \ increment the value of a float ' ?#float 2 cells+ cfa-comp, ; immediate ! in-previous \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ *************** *** 1892,1896 **** IF postpone fliteral THEN ; immediate ! in-application \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ --- 1945,1949 ---- IF postpone fliteral THEN ; immediate ! in-previous \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ *************** *** 2373,2377 **** defer .float ' see.float is .float ! in-application \ changed arm 25/04/2005 23:09:50 to use new number chain technique (see numconv.f) --- 2426,2430 ---- defer .float ' see.float is .float ! in-previous \ changed arm 25/04/2005 23:09:50 to use new number chain technique (see numconv.f) *************** *** 2400,2410 **** number?-chain chain-add float-number? \ link into number conversion chain \ changed to use the reset-stack-chain \ January 22nd, 2004 - 13:53 dbu ! : FLOAT-RESET-STACKS ( ?? -- ) \ reset stack ! finit turnkeyed? ?exit ! \in-system-ok 0 to fsp-cached? 0 to fsp-adjust ; ! reset-stack-chain chain-add FLOAT-RESET-STACKS : _FLOAT-NUMBER, ( d1 -- d1 ) \ interpreting a double --- 2453,2468 ---- number?-chain chain-add float-number? \ link into number conversion chain + reset-stack-chain chain-add finit + + in-system + \ changed to use the reset-stack-chain \ January 22nd, 2004 - 13:53 dbu ! : FLOAT-RESET-STACKS ( -- ) \ reset compile time values ! 0 to fsp-cached? 0 to fsp-adjust ; ! \in-system-ok reset-stack-chain chain-add FLOAT-RESET-STACKS ! ! in-previous : _FLOAT-NUMBER, ( d1 -- d1 ) \ interpreting a double |
|
From: George H. <geo...@us...> - 2013-08-14 17:03:49
|
Update of /cvsroot/win32forth/win32forth/src/kernel In directory sfp-cvs-1.v30.ch3.sourceforge.com:/tmp/cvs-serv11425 Modified Files: Tag: V614XX version.f Log Message: Updated to version 6.14 Index: version.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/kernel/version.f,v retrieving revision 1.16.2.3 retrieving revision 1.16.2.4 diff -C2 -d -r1.16.2.3 -r1.16.2.4 *** version.f 30 Mar 2013 21:02:48 -0000 1.16.2.3 --- version.f 14 Aug 2013 17:03:46 -0000 1.16.2.4 *************** *** 3,7 **** cr .( Loading META version info) ! 61403 VALUE #VERSION# \ Change only the version number above; the build number is automatically assigned. --- 3,7 ---- cr .( Loading META version info) ! 61404 VALUE #VERSION# \ Change only the version number above; the build number is automatically assigned. |
|
From: George H. <geo...@us...> - 2013-07-21 00:30:18
|
Update of /cvsroot/win32forth/win32forth-extsrc/extsrc/installer In directory sfp-cvs-1.v30.ch3.sourceforge.com:/tmp/cvs-serv27575 Modified Files: Win32Forth.nsi Log Message: Updated to V6.15.03 Index: Win32Forth.nsi =================================================================== RCS file: /cvsroot/win32forth/win32forth-extsrc/extsrc/installer/Win32Forth.nsi,v retrieving revision 1.17 retrieving revision 1.18 diff -C2 -d -r1.17 -r1.18 *** Win32Forth.nsi 20 Jul 2013 20:55:08 -0000 1.17 --- Win32Forth.nsi 21 Jul 2013 00:30:16 -0000 1.18 *************** *** 8,14 **** !define VER_MAJOR 6 !define VER_MINOR 15 ! !define VER_REVISION 02 ! !define VER_DISPLAY "6.15.02" ! !define VER_FILE "61502" !define VER_FOLDER "615xx" --- 8,14 ---- !define VER_MAJOR 6 !define VER_MINOR 15 ! !define VER_REVISION 03 ! !define VER_DISPLAY "6.15.03" ! !define VER_FILE "61503" !define VER_FOLDER "615xx" |
|
From: George H. <geo...@us...> - 2013-07-21 00:24:19
|
Update of /cvsroot/win32forth/win32forth/src/kernel In directory sfp-cvs-1.v30.ch3.sourceforge.com:/tmp/cvs-serv27348 Modified Files: version.f Log Message: Updated to V6.15.03 Index: version.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/kernel/version.f,v retrieving revision 1.22 retrieving revision 1.23 diff -C2 -d -r1.22 -r1.23 *** version.f 20 Jul 2013 20:56:26 -0000 1.22 --- version.f 21 Jul 2013 00:24:17 -0000 1.23 *************** *** 3,7 **** cr .( Loading META version info) ! 61502 VALUE #VERSION# \ Change only the version number above; the build number is automatically assigned. --- 3,7 ---- cr .( Loading META version info) ! 61503 VALUE #VERSION# \ Change only the version number above; the build number is automatically assigned. |
1040 messages has been excluded from this view by a project administrator.
