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...> - 2005-04-28 16:01:37
|
Update of /cvsroot/win32forth/win32forth/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv14637/win32forth/src Modified Files: CONTROL.F Dc.f Dialog.f Extend.f FONTS.F MAPFILE.F Utils.f WINMSG.F WORDS.F Log Message: gah: removed a few rel>abs from files Index: WINMSG.F =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/WINMSG.F,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** WINMSG.F 21 Dec 2004 00:19:08 -0000 1.1 --- WINMSG.F 28 Apr 2005 16:01:25 -0000 1.2 *************** *** 214,218 **** &InfoRect GetClientRect: self Brush: TIPCOLOR ! &InfoRect rel>abs GetHandle: dc call FillRect ?win-error TRANSPARENT SetBkMode: dc --- 214,218 ---- &InfoRect GetClientRect: self Brush: TIPCOLOR ! &InfoRect GetHandle: dc call FillRect ?win-error TRANSPARENT SetBkMode: dc *************** *** 261,262 **** --- 261,263 ---- MODULE + |
|
From: Alex M. <ale...@us...> - 2005-04-26 19:57:24
|
Update of /cvsroot/win32forth/win32forth/apps/Setup In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv3549/apps/Setup Modified Files: Setup.f Log Message: arm: major change to number conversion routines (but not float); see numconv.f Index: Setup.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/Setup/Setup.f,v retrieving revision 1.3 retrieving revision 1.4 diff -C2 -d -r1.3 -r1.4 *** Setup.f 23 Apr 2005 12:27:21 -0000 1.3 --- Setup.f 26 Apr 2005 19:56:45 -0000 1.4 *************** *** 10,13 **** --- 10,14 ---- \ this is all we of win32forth to create a smal Setup.exe FLOAD ..\..\src\comment.f + FLOAD ..\..\src\numconv.f FLOAD ..\..\src\console\console.f \ Console I/O extracted from Primutil.f FLOAD ..\..\src\primutil.f \ primitive utilities *************** *** 525,527 **** wait&bye - |
|
From: Alex M. <ale...@us...> - 2005-04-26 19:56:59
|
Update of /cvsroot/win32forth/win32forth/src/kernel In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv3549/src/kernel Modified Files: fkernel.f meta-compiler.f Log Message: arm: major change to number conversion routines (but not float); see numconv.f Index: meta-compiler.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/kernel/meta-compiler.f,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 *** meta-compiler.f 12 Mar 2005 09:09:58 -0000 1.2 --- meta-compiler.f 26 Apr 2005 19:56:50 -0000 1.3 *************** *** 753,757 **** \ ====================================================================== \ Identify numbers (single numbers only) ! : NUMBER? ( addr -- n f ) count OVER C@ [CHAR] - = \ leading minus sign? --- 753,757 ---- \ ====================================================================== \ Identify numbers (single numbers only) ! (( : NUMBER? ( addr -- n f ) count OVER C@ [CHAR] - = \ leading minus sign? *************** *** 759,767 **** 0 0 2SWAP >NUMBER 0= NIP NIP ( -- u f ) R> IF SWAP NEGATE SWAP THEN ; ! ! : new-number ( ^str -- d n ) \ an extensible version of NUMBER count temp$ place ! temp$ ?uppercase ! count super-number? nip ; \ ====================================================================== --- 759,770 ---- 0 0 2SWAP >NUMBER 0= NIP NIP ( -- u f ) R> IF SWAP NEGATE SWAP THEN ; ! )) ! : meta-number? ( ^str -- d n ) \ an extensible version of NUMBER count temp$ place ! temp$ ['] number catch ! if false else ! double? abort" Doubles not supported in meta-compiler" ! float? abort" Floats not supported in metacompiler" ! drop true then ; \ ====================================================================== *************** *** 782,786 **** BEGIN TOKEN FIND \ no locals or class words IF EXECUTE ! ELSE new-NUMBER IF [TRANSITION] LITERAL ELSE DROP T-IN @ >IN ! --- 785,789 ---- BEGIN TOKEN FIND \ no locals or class words IF EXECUTE ! ELSE meta-number? IF [TRANSITION] LITERAL ELSE DROP T-IN @ >IN ! *************** *** 816,818 **** - |
|
From: Alex M. <ale...@us...> - 2005-04-26 19:56:58
|
Update of /cvsroot/win32forth/win32forth In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv3549 Modified Files: fkernel.exe setup.exe Log Message: arm: major change to number conversion routines (but not float); see numconv.f Index: setup.exe =================================================================== RCS file: /cvsroot/win32forth/win32forth/setup.exe,v retrieving revision 1.4 retrieving revision 1.5 diff -C2 -d -r1.4 -r1.5 Binary files /tmp/cvsgxCw0j and /tmp/cvsWxgKso differ Index: fkernel.exe =================================================================== RCS file: /cvsroot/win32forth/win32forth/fkernel.exe,v retrieving revision 1.8 retrieving revision 1.9 diff -C2 -d -r1.8 -r1.9 Binary files /tmp/cvsqjppnP and /tmp/cvsDHtg7T differ |
|
From: Alex M. <ale...@us...> - 2005-04-26 19:56:58
|
Update of /cvsroot/win32forth/win32forth/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv3549/src Modified Files: Class.f Extend.f FLOAT.F Primutil.f Added Files: numconv.f Log Message: arm: major change to number conversion routines (but not float); see numconv.f Index: Primutil.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/Primutil.f,v retrieving revision 1.3 retrieving revision 1.4 diff -C2 -d -r1.3 -r1.4 *** Primutil.f 12 Mar 2005 09:09:57 -0000 1.3 --- Primutil.f 26 Apr 2005 19:56:49 -0000 1.4 *************** *** 119,124 **** : not 0= ; - : d0= or 0= ; - : get-commandline ( -- ) \ initialize TIB from the commandline 0 to source-id --- 119,122 ---- *************** *** 270,275 **** 2 * 1+ dup>r roll r> roll ; - : D>S ( d1 -- n1 ) - drop ; 0 value olddepth --- 268,271 ---- *************** *** 558,562 **** new-chain mouse-chain \ chain of things to do on mouse down new-chain forth-io-chain \ chain of things to to to restore forth-io ! new-chain number?-chain \ chain of number conversion options new-chain ledit-chain \ line editor function key chain new-chain msg-chain \ chain of forth key messages --- 554,558 ---- new-chain mouse-chain \ chain of things to do on mouse down new-chain forth-io-chain \ chain of things to to to restore forth-io ! \ new-chain number?-chain \ chain of number conversion options new-chain ledit-chain \ line editor function key chain new-chain msg-chain \ chain of forth key messages *************** *** 621,625 **** : winver-init ( -- n ) \ get windows version 148 dup _localalloc dup>r ! \ set length of structure ! r@ rel>abs call GetVersionEx \ call os for version 0= abort" call failed" r@ 4 cells+ @ \ get osplatformid --- 617,621 ---- : winver-init ( -- n ) \ get windows version 148 dup _localalloc dup>r ! \ set length of structure ! r@ call GetVersionEx \ call os for version 0= abort" call failed" r@ 4 cells+ @ \ get osplatformid *************** *** 674,813 **** DEPRECATED - \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ - \ A super version of number that detect the 0x00 'C' style of hex numbers - \ as well as ascii characters in the 'A' format. - \ A HEX number ending in 'L' automatically has the 'L' removed. This is - \ done so Forth can accept 0x1234L format numbers as they are encountered - \ in 'C' header files. - \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ - - : new-number? ( a1 n1 f1 -- d1 TRUE | a1 n1 FALSE ) - dup ?exit drop - 2dup number? - if 2swap 2drop TRUE - else 2drop FALSE - then ; - - number?-chain chain-add new-number? \ first item in NUMBER? chain - - \ October 19th, 2000 - 9:39 tjz - \ per a suggestion from Anton Ertl <an...@a0...>, I have - \ modified 0xNUMBER? to allow the following syntax; - \ - \ old way still works new way also works - \ 0x-23 -0x23 - \ - \ old ways didn't work anyway new way works - \ '-a' -'a' -'a' - \ - - : 0xNUMBER? { adr len flg \ adr2 len2 -- d1 TRUE | a1 n1 FALSE } - flg \ leave if already converted - IF adr len flg - EXIT - THEN - adr c@ ascii - = dup >r \ if preceeded by '-' - IF adr len 1 /string \ then strip it off - ELSE adr len - THEN to len2 to adr2 \ new string to use - adr2 c@ ascii ' = \ test for leading tick (') - IF len2 3 = \ and length is three - adr2 2 + c@ ascii ' = and \ and trailing tick (') - IF adr2 1+ c@ 0 TRUE - ELSE adr2 len2 flg - THEN - ELSE base @ >r \ preserve base - adr2 len2 - adr2 2 S" 0X" str= \ if start with 0x - IF hex \ use hex number base - 2 /string \ remove 0x - 2dup + 1- c@ ascii L = \ if have trailing 'L' - IF 1- 0 max \ then remove that also - THEN - ELSE adr2 1 S" $" str= \ if start with $ - IF hex \ use hex number base - 1 /string \ remove $ - THEN - THEN - FALSE new-number? - r> base ! \ restore base - THEN - IF r> \ converted, so get '-' flag - IF DNEGATE \ if true, then negate result - THEN TRUE \ and return a true flag - ELSE r>drop \ didn't convert, discard '-' flag - 2drop \ discard the string - adr len \ replace with original string - FALSE \ and return a false flag - THEN ; - - number?-chain chain-add 0xNUMBER? - - \ Each number conversion check on the "number?-chain" checks to see if the - \ string a1,n1 has already been converted (f1=TRUE), if it has, then they - \ simply exit. If string a1,n1 hasn't been converted, then they attempt - \ conversion. If conversion fails, they return the original string a1,n1 - \ and a f1=FLASE flag. If conversion succeeds, then they return their - \ result, either on the data stack, or the floating point stack, and return - \ f1=TRUE to say conversion was completed properly. In the case of a - \ floating point conversion, a global flag is set to be used later by - \ NUMBER, when it goes to compile the number. This is needed since - \ floating point numbers are returned on the floating point stack instead - \ of on the data stack. The chain number conversion technique allow number - \ conversion to be easily extended to support additional forms of number - \ conversion. - - : _discard-number ( d1 -- ) \ discard a converted number - 2drop ; - - defer discard-number - ' _discard-number is discard-number - - : super-number? ( a1 n1 -- d f1 ) - FALSE to double? - FALSE number?-chain do-chain ; - - : new-number ( ^str -- d ) \ an extensible version of NUMBER - ?UPPERCASE count super-number? ?missing ; - - ' new-number is number \ replace normal number conversion - \ with the new chain scheme - - - \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ - \ -------------------- Windows Constant Server -------------------- - \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ - - WinLibrary WINCON.DLL - winlib-last @ constant WinConLib - 3 proc wcFindWin32Constant - winproc-last @ constant WinConPtr \ for **WORDS.F** - 3 proc wsEnumWin32Constants - winproc-last @ constant WinEnumPtr \ for **WORDS.F** - - \ Linkage for Windows Constant server through the number chain - - : wincon-number? ( a1 n1 f1 -- d1 TRUE | a1 n1 FALSE ) - { \ con$ WinVal -- } - MAXSTRING LocalAlloc: con$ \ allocate a buffer the con name - dup ?EXIT drop - 2dup con$ place \ lay string in buffer - 2dup swap rel>abs - &of WinVal rel>abs -rot \ under adr & len - Call wcFindWin32Constant \ find it - IF 2drop - WinVal 0 TRUE \ return constant, zero and TRUE - ELSE s" A" con$ +place \ append an 'A' - con$ count swap rel>abs - &of WinVal rel>abs -rot \ under adr & len - Call wcFindWin32Constant \ find it - IF 2drop - WinVal 0 TRUE - ELSE FALSE - THEN - THEN ; - - number?-chain chain-add wincon-number? \ windows constant server - \ -------------------- Load Standard Libraries -------------------- --- 670,673 ---- *************** *** 994,1055 **** defer (dialogunlock) ' noop is (dialogunlock) - \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ - \ Additional words for printing - \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ - - \ Replaced by printsupport.f - - \s - WINLIBRARY W32FPRINT.DLL - 1 PROC p_printdlg as print-setup ( hwnd -- PintDC ) - \ bring up the printer page setup - 0 PROC p_startprint - 0 PROC p_pageprint - 0 PROC p_endprint - 1 PROC p_initprint - 0 PROC p_closeprint - \ if n1 >0 then n1 = printer resolution in DPI - \ if n1 <0 then n1 = device indepentant code, -1 = draft to -4 = high - 0 PROC p_qualityprint as quality-print ( -- n1 ) \ return the print quality code - 0 PROC p_startapage - 0 PROC p_endapage - 0 PROC p_printcopies as get-copies ( -- n1 ) - 0 PROC p_printfrompages as get-frompage ( -- n1 ) - 0 PROC p_printtopages as get-topage ( -- n1 ) - 1 PROC p_orientation as PRINT-ORIENTATION ( f1 -- hDC ) \ true = landscape - 4 PROC p_initprint2 - \ rls February 4th, 2002 - 5:47 - 0 PROC p_printflags as print-flags ( -- flag ) - \ true if selection radio button chosen - - : print-start ( -- ) \ start printing a new page & doc - call p_startprint drop ; - - : print-page ( -- ) \ finish current page start new page - call p_pageprint drop ; - - : print-end ( -- ) \ finish printing page and doc - call p_endprint drop ; - - : print-init ( -- printDC ) \ initialize the printer, return DC - 0 call p_initprint ; - - \ rls February 4th, 2002 - 20:24 - : print-init2 ( bitmapped flags topage -- printDC ) - 0 call p_initprint2 ; \ initialize the printer, return DC - - : auto-print-init ( -- printDC ) \ initialize the printer, return DC - 1 call p_initprint ; - - : print-close ( -- ) \ close the printer - call p_closeprint drop ; - - : start-page ( -- ) - call p_startapage drop ; - - : end-page ( -- ) - call p_endapage drop ; - - - |
|
From: George H. <geo...@us...> - 2005-04-26 07:40:28
|
Update of /cvsroot/win32forth/win32forth/src/kernel In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv7156/win32forth/src/kernel Modified Files: fkernel.f Log Message: gah: corrected spelling in docs plus minor optimizations to kernel Index: fkernel.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/kernel/fkernel.f,v retrieving revision 1.9 retrieving revision 1.10 diff -C2 -d -r1.9 -r1.10 *** fkernel.f 25 Apr 2005 15:39:20 -0000 1.9 --- fkernel.f 26 Apr 2005 07:40:03 -0000 1.10 *************** *** 3730,3742 **** 8 CELLS CONSTANT malloc-adjlen \ adjustment for headers + extra cells - |: mHeapCheck ( abs-addr | 0 -- rel-addr flag ) \ check flag and change to rel-addr - dup swap 0= ; - |: mHeapAlloc ( n -- rel-addr fl ) \ allocate n bytes, return rel address malloc-hflag malloc-haddr @ \ flags, heapaddress ! call HeapAlloc mHeapCheck ; |: mHeapParm ( rel-addr -- abs-addr 0 abs-heap-addr ) \ set up parms ! dup swap \ abs rel link>haddr @ malloc-hflag swap \ abs 0 heap-addr ; --- 3730,3739 ---- 8 CELLS CONSTANT malloc-adjlen \ adjustment for headers + extra cells |: mHeapAlloc ( n -- rel-addr fl ) \ allocate n bytes, return rel address malloc-hflag malloc-haddr @ \ flags, heapaddress ! call HeapAlloc dup 0= ; |: mHeapParm ( rel-addr -- abs-addr 0 abs-heap-addr ) \ set up parms ! dup \ abs rel link>haddr @ malloc-hflag swap \ abs 0 heap-addr ; *************** *** 3748,3754 **** |: mHeapReAlloc ( n rel-addr -- rel-addr' fl ) \ realloc n rel-addr bytes mHeapParm ! call HeapReAlloc \ flags, heapaddress ! mHeapCheck ; ! : mHeapSize ( rel-addr -- n ) \ size of rel-addr bytes mHeapParm --- 3745,3750 ---- |: mHeapReAlloc ( n rel-addr -- rel-addr' fl ) \ realloc n rel-addr bytes mHeapParm ! call HeapReAlloc dup 0= ; \ flags, heapaddress ! : mHeapSize ( rel-addr -- n ) \ size of rel-addr bytes mHeapParm *************** *** 5677,5684 **** : ?EXIT ( F1 -- ) EXIT_A ! COMPILE ?BRANCH >MARK [COMPILE] EXIT ! COMPILE _THEN ! >RESOLVE ; IMMEDIATE |: DOES>_A ( -- ) --- 5673,5679 ---- : ?EXIT ( F1 -- ) EXIT_A ! [COMPILE] IF [COMPILE] EXIT ! [COMPILE] THEN ; IMMEDIATE |: DOES>_A ( -- ) |
|
From: George H. <geo...@us...> - 2005-04-26 07:40:14
|
Update of /cvsroot/win32forth/win32forth/doc In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv7156/win32forth/doc Modified Files: p-gethelp.htm Log Message: gah: corrected spelling in docs plus minor optimizations to kernel Index: p-gethelp.htm =================================================================== RCS file: /cvsroot/win32forth/win32forth/doc/p-gethelp.htm,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 *** p-gethelp.htm 18 Apr 2005 17:39:24 -0000 1.2 --- p-gethelp.htm 26 Apr 2005 07:40:02 -0000 1.3 *************** *** 996,1002 **** Warning(-4104)</a></b></font></span><b><span class="fixedfont"><font size="4">: is a deprecated word</font></span></b></p> ! <p><b>Summary: </b>Warning. The word you are using is marked as deprecated. Sutch words will be removed form Win32Forth in the future.For more information take ! a look at the source of the depreacted word.</p> <p><b>Example:</b></p> <blockquote> --- 996,1002 ---- Warning(-4104)</a></b></font></span><b><span class="fixedfont"><font size="4">: is a deprecated word</font></span></b></p> ! <p><b>Summary: </b>Warning. The word you are using is marked as deprecated. Such words will be removed form Win32Forth in the future.For more information take ! a look at the source of the deprecated word.</p> <p><b>Example:</b></p> <blockquote> |
|
From: Dirk B. <db...@us...> - 2005-04-25 15:41:22
|
Update of /cvsroot/win32forth/win32forth/apps/Player4 In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv32459/apps/Player4 Modified Files: Mediatree.f PLAYER4.F Pl_Version.f Log Message: Only some minor changes Index: PLAYER4.F =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/Player4/PLAYER4.F,v retrieving revision 1.5 retrieving revision 1.6 diff -C2 -d -r1.5 -r1.6 *** PLAYER4.F 25 Apr 2005 12:29:07 -0000 1.5 --- PLAYER4.F 25 Apr 2005 15:40:44 -0000 1.6 *************** *** 35,39 **** \ true value turnkey? ! false value turnkey? \ ----------------------------------------------------------------------------- --- 35,39 ---- \ true value turnkey? ! false value turnkey? \ ----------------------------------------------------------------------------- *************** *** 268,272 **** \ ----------------------------------------------------------------------------- : uninit-player4 ( -- ) - \ Close: Player4W DestroyWindow: MainWindow ; unload-chain chain-add-before uninit-player4 --- 268,271 ---- *************** *** 274,297 **** :noname ( -- ) \ sort catalog by random catalog-exist? ! if \ AbortPlaying: Player4W ! randomize-catalog RefreshCatalog then ; is RandomizeCatalog :noname ( -- ) \ sort catalog by file names catalog-exist? ! if \ AbortPlaying: Player4W ! sort_by_filename RefreshCatalog then ; is SortCatalog :noname ( -- ) \ search the catalog catalog-exist? ! if \ AbortPlaying: Player4W ! player-base search-records then ; is SearchCatalog :noname ( -- ) ! SW_HIDE Show: Catalog ! Refresh: Catalog ! SW_RESTORE Show: Catalog ; is RefreshCatalog --- 273,291 ---- :noname ( -- ) \ sort catalog by random catalog-exist? ! if randomize-catalog RefreshCatalog then ; is RandomizeCatalog :noname ( -- ) \ sort catalog by file names catalog-exist? ! if sort_by_filename RefreshCatalog then ; is SortCatalog :noname ( -- ) \ search the catalog catalog-exist? ! if player-base search-records then ; is SearchCatalog :noname ( -- ) ! Refresh: Catalog ; is RefreshCatalog *************** *** 440,441 **** --- 434,436 ---- [then] \s + |
|
From: Dirk B. <db...@us...> - 2005-04-25 15:39:28
|
Update of /cvsroot/win32forth/win32forth/src/kernel In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv31279/src/kernel Modified Files: fkernel.f Log Message: Fied a bug in (dprwarn) reported by Alex. Index: fkernel.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/kernel/fkernel.f,v retrieving revision 1.8 retrieving revision 1.9 diff -C2 -d -r1.8 -r1.9 *** fkernel.f 18 Apr 2005 17:39:42 -0000 1.8 --- fkernel.f 25 Apr 2005 15:39:20 -0000 1.9 *************** *** 5168,5173 **** : (dprwarn) ( f -- f ) \ warn if deprected word was found ! dup 0<> DPR-WARNING? LATEST-NFA @ n>bfa c@ BFA_DEPRECATED and and and ! IF WARN_DEPRECATEDWORD WARNMSG THEN ; \ Search order for PARMFIND is --- 5168,5178 ---- : (dprwarn) ( f -- f ) \ warn if deprected word was found ! dup 0<> DPR-WARNING? and ! if LATEST-NFA @ ?dup ! if n>bfa c@ BFA_DEPRECATED and ! if WARN_DEPRECATEDWORD WARNMSG ! then ! then ! then ; \ Search order for PARMFIND is |
|
From: Dirk B. <db...@us...> - 2005-04-25 15:39:28
|
Update of /cvsroot/win32forth/win32forth In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv31279 Modified Files: fkernel.exe Log Message: Fied a bug in (dprwarn) reported by Alex. Index: fkernel.exe =================================================================== RCS file: /cvsroot/win32forth/win32forth/fkernel.exe,v retrieving revision 1.7 retrieving revision 1.8 diff -C2 -d -r1.7 -r1.8 Binary files /tmp/cvsiBeY6F and /tmp/cvsMd0LbS differ |
|
From: Jos v.d.V. <jo...@us...> - 2005-04-25 12:29:35
|
Update of /cvsroot/win32forth/win32forth/apps/Player4 In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv29038/win32forth/apps/Player4 Modified Files: Mediatree.f PLAYER4.F Pl_Version.f Log Message: Jos: Made Refresh 2* faster Index: PLAYER4.F =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/Player4/PLAYER4.F,v retrieving revision 1.4 retrieving revision 1.5 diff -C2 -d -r1.4 -r1.5 *** PLAYER4.F 24 Apr 2005 13:35:54 -0000 1.4 --- PLAYER4.F 25 Apr 2005 12:29:07 -0000 1.5 *************** *** 199,203 **** catalog-exist? ! if get-media-path-from-dat-file map-database then addr: self to player-base --- 199,204 ---- catalog-exist? ! if get-media-path-from-dat-file map-database ! database-mhndl #records-in-database . ." Records" then addr: self to player-base *************** *** 289,292 **** --- 290,299 ---- then ; is SearchCatalog + :noname ( -- ) + SW_HIDE Show: Catalog + Refresh: Catalog + SW_RESTORE Show: Catalog + ; is RefreshCatalog + \ ----------------------------------------------------------------------------- \ Simple command line handling *************** *** 414,422 **** \ depth 2 >= \ if 0max 99 min 65535 100 */ 65536 * swap ! \ 0max 99 min 65535 100 */ + \ 0 Call waveOutSetVolume drop \ else cr ." No enough parameters !!! " \ then ; ! \ \ 100 100 volume! --- 421,429 ---- \ depth 2 >= \ if 0max 99 min 65535 100 */ 65536 * swap ! \ 0max 99 min 65535 100 */ + \ 0 Call waveOutSetVolume drop \ else cr ." No enough parameters !!! " \ then ; ! \ \ 100 100 volume! *************** *** 432,435 **** PLAYER4 [then] ! ! |
|
From: Dirk B. <db...@us...> - 2005-04-24 16:28:50
|
Update of /cvsroot/win32forth/win32forth/apps/Player4 In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv27562/apps/Player4 Modified Files: TrayWindow.f Log Message: Player 4th Version: 1.01.10 -> Traybar icon added Index: TrayWindow.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/Player4/TrayWindow.f,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 Binary files /tmp/cvsNO1xlM and /tmp/cvsRgmg9c differ |
|
From: Dirk B. <db...@us...> - 2005-04-24 13:36:05
|
Update of /cvsroot/win32forth/win32forth/apps/Player4 In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv4568/apps/Player4 Modified Files: PLAYER4.F Pl_MciWindow.f Pl_Version.f Added Files: TrayWindow.f Log Message: Player 4th Version: 1.01.10 -> Traybar icon added Index: PLAYER4.F =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/Player4/PLAYER4.F,v retrieving revision 1.3 retrieving revision 1.4 diff -C2 -d -r1.3 -r1.4 *** PLAYER4.F 23 Apr 2005 11:00:06 -0000 1.3 --- PLAYER4.F 24 Apr 2005 13:35:54 -0000 1.4 *************** *** 6,10 **** \ \ Created: Donnerstag, März 31 2005 - dbu ! \ Updated: Samstag, April 16 2005 - dbu \ \ A simple Audio- and Videoplayer using the MciVideoWindow class. --- 6,10 ---- \ \ Created: Donnerstag, März 31 2005 - dbu ! \ Updated: Sonntag, April 24 2005 - dbu \ \ A simple Audio- and Videoplayer using the MciVideoWindow class. *************** *** 31,34 **** --- 31,36 ---- needs shell_r.f needs catalog.f + needs TrayWindow.f + needs Player4.frm \ true value turnkey? *************** *** 109,113 **** \ Define the Main Window \ ----------------------------------------------------------------------------- ! :Object MainWindow <super Window 0 value toolbarH \ set to height of toolbar if any --- 111,115 ---- \ Define the Main Window \ ----------------------------------------------------------------------------- ! :Object MainWindow <super TrayWindow 0 value toolbarH \ set to height of toolbar if any *************** *** 181,184 **** --- 183,187 ---- :M On_Init: ( -- ) + On_Init: super ['] dosizing to track-func ['] on_clicked to click-func *************** *** 212,215 **** --- 215,238 ---- bye 0 ;M + \ ----------------------------------------------------------------------------- + \ Traybar handling + \ ----------------------------------------------------------------------------- + :M ShowWindow: ( -- ) + IsVisible?: self 0= + if ShowWindow: super + Video?: Player4W if Resume: Player4W then + SW_RESTORE Show: ControlCenter Update: ControlCenter + then ;M + + :M HideWindow: ( -- ) + IsVisible?: self + if Video?: Player4W if Pause: Player4W then + SW_HIDE Show: ControlCenter Update: ControlCenter + HideWindow: super + then ;M + + :M GetTooltip: ( -- addr len ) + WindowTitle: self zcount ;M + ;Object *************** *** 217,222 **** \ "Control center" dialog \ ----------------------------------------------------------------------------- - needs Player4.frm - : Pause/Resume ( -- ) Playing?: Player4W if Pause/Resume: Player4W then ; --- 240,243 ---- *************** *** 246,250 **** \ ----------------------------------------------------------------------------- : uninit-player4 ( -- ) ! Close: Player4W DestroyWindow: MainWindow ; unload-chain chain-add-before uninit-player4 --- 267,271 ---- \ ----------------------------------------------------------------------------- : uninit-player4 ( -- ) ! \ Close: Player4W DestroyWindow: MainWindow ; unload-chain chain-add-before uninit-player4 Index: Pl_MciWindow.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/Player4/Pl_MciWindow.f,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 *** Pl_MciWindow.f 23 Apr 2005 11:00:08 -0000 1.2 --- Pl_MciWindow.f 24 Apr 2005 13:35:54 -0000 1.3 *************** *** 68,101 **** Video?: self 0= ;M - \ : IsFileType? ( addr len addr1 len1 -- f ) - \ string1$ place string0$ place - \ string0$ count ".EXT-ONLY" 2dup upper - \ string1$ count 2dup upper - \ compare 0= ; - - \ : type-of-media ( addr len -- addr len f ) \ true if it's a video file - \ 2dup - \ 2dup s" .mp3" IsFileType? -rot - \ 2dup s" .mid" IsFileType? -rot - \ s" .wav" IsFileType? - \ OR OR if false else true then ; - \ - \ : IsRealMedia? ( addr len -- f ) \ true if it's a RealPlayer file - \ s" .rm" IsFileType? ; - - \ : GetShortPathName ( addr len -- addr1 len1 ) - \ string0$ place string0$ +null - \ maxstring string1$ rel>abs string0$ 1+ rel>abs Call GetShortPathName drop - \ string1$ zcount ; - \ - \ : (.ms) ( ms -- addr len ) - \ 1000 /mod 60 /mod 60 /mod - \ 2 .#" string1$ place - \ s" :" string1$ +place 2 .#" string1$ +place - \ s" :" string1$ +place 2 .#" string1$ +place - \ s" ." string1$ +place 3 .#" string1$ +place - \ - \ string1$ count ; - : ReTitle ( addr len -- ) WindowTitle: parent zcount string0$ place ?dup --- 68,71 ---- --- NEW FILE: TrayWindow.f --- \ File: TrayWindow.f \ \ Author: Dirk Busch (dbu) \ Email: dir...@wi... \ \ Created: Sonntag, April 24 2005 - dbu \ Updated: Sonntag, April 24 2005 - dbu \ \ A window class that add's an icon in the traybar \ and hides itself when it is minimized cr .( Loading TrayWindow class...) anew -TrayWindow.f needs struct.f allocation ' dword alias HWND \ 4 bytes ' dword alias HICON \ 4 bytes previous internal struct{ \ NOTIFYICONDATA DWORD nid_cbSize HWND nid_hWnd UINT nid_uID UINT nid_uFlags UINT nid_uCallbackMessage HICON nid_hIcon 64 Field: nid_szTip }struct NOTIFYICONDATA #define NIM_ADD 0x00000000 #define NIM_MODIFY 0x00000001 #define NIM_DELETE 0x00000002 #define NIF_MESSAGE 0x00000001 #define NIF_ICON 0x00000002 #define NIF_TIP 0x00000004 2 proc Shell_NotifyIconA as Shell_NotifyIcon external :class TrayWindow <super window sizeof NOTIFYICONDATA mkstruct: pNOTIFYICONDATA :M GetTooltip: ( -- addr len ) s" Tooltip text" ;M :M GetID: ( -- uID ) 1 ;M :M GetFlags: ( -- uFlags ) [ NIF_ICON NIF_MESSAGE NIF_TIP or or ] literal ;M WM_APP 1+ constant WM_CALLBACK_MESSAGE :M On_Init: ( -- ) On_Init: super sizeof NOTIFYICONDATA >struct pNOTIFYICONDATA nid_cbSize ! GetHandle: self >struct pNOTIFYICONDATA nid_hWnd ! GetID: [ self ] >struct pNOTIFYICONDATA nid_uID ! GetFlags: [ self ] >struct pNOTIFYICONDATA nid_uFlags ! WM_CALLBACK_MESSAGE >struct pNOTIFYICONDATA nid_uCallbackMessage ! DefaultIcon: [ self ] >struct pNOTIFYICONDATA nid_hIcon ! GetTooltip: [ self ] >struct pNOTIFYICONDATA nid_szTip swap 64 min cmove pNOTIFYICONDATA NIM_ADD call Shell_NotifyIcon . ;M :M On_Done: ( -- ) pNOTIFYICONDATA NIM_DELETE call Shell_NotifyIcon . On_Done: super ;M :M IsVisible?: ( -- f ) GetHandle: self call IsWindowVisible ;M :M ShowWindow: ( -- ) IsVisible?: self 0= if SW_RESTORE Show: self Update: self then ;M :M HideWindow: ( -- ) IsVisible?: self if SW_HIDE Show: self Update: self then ;M :M WM_CALLBACK_MESSAGE ( hWnd uMsg wParam lParam -- f ) case WM_LBUTTONUP of ShowWindow: [ self ] endof endcase 0 ;M :M WM_SYSCOMMAND ( wparam lparam -- res ) over SC_MINIMIZE = if HideWindow: [ self ] else hWnd WM_SYSCOMMAND 2swap DefWindowProc: self then ;M ;class module |
|
From: Dirk B. <db...@us...> - 2005-04-24 13:35:10
|
Update of /cvsroot/win32forth/win32forth/apps/Player4 In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv4414/apps/Player4 Removed Files: STRUCT.F SUB_DIRS.F Log Message: Files removed because they are in src/lib, too. --- STRUCT.F DELETED --- --- SUB_DIRS.F DELETED --- |
|
From: Jos v.d.V. <jo...@us...> - 2005-04-24 12:01:21
|
Update of /cvsroot/win32forth/win32forth/src/lib In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv19370/win32forth/src/lib Modified Files: STRUCT.F Log Message: Jos: Removed the introduced bug from >struct Index: STRUCT.F =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/lib/STRUCT.F,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 *** STRUCT.F 19 Apr 2005 14:04:02 -0000 1.2 --- STRUCT.F 24 Apr 2005 12:01:13 -0000 1.3 *************** *** 1,5 **** \ $Id$ ! anew -struct.f \ for Win32Forth April 4th, 2005 \ For C like structures. --- 1,5 ---- \ $Id$ ! anew -struct.f \ for Win32Forth April 24th, 2005 \ For C like structures. *************** *** 15,19 **** \ January 15th, 2002 - 16:46 removed a bug from _add-struct \ July 13th, 2002 - 16:26 Added Field: - \ April 4th, 2005 - 14:10 removed a bug from >struct in-system --- 15,18 ---- *************** *** 28,32 **** \ The following memory allocation words allow nesting and cloning \ of a memory structure. Definitions made in C can be used with ! \ small modifications. 0 value _struct --- 27,31 ---- \ The following memory allocation words allow nesting and cloning \ of a memory structure. Definitions made in C can be used with ! \ small modifications. Use mkstruct: to allocate memory. 0 value _struct *************** *** 118,122 **** \ >struct compiles the adress and offset as 1 adress inside a definition : >struct ( -<name-struct>- -<member>- - adress+offset_in_structure ) ! ' >body getsize-struct + postpone literal ; immediate : struct{ ( -- ) --- 117,121 ---- \ >struct compiles the adress and offset as 1 adress inside a definition : >struct ( -<name-struct>- -<member>- - adress+offset_in_structure ) ! ' >body cell+ getsize-struct + postpone literal ; immediate : struct{ ( -- ) |
|
From: Jos v.d.V. <jo...@us...> - 2005-04-24 11:59:24
|
Update of /cvsroot/win32forth/win32forth/apps/Player4 In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv18042/win32forth/apps/Player4 Modified Files: Catalog.f Log Message: Jos: Redefined InlineRecord for struct.f Index: Catalog.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/Player4/Catalog.f,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 *** Catalog.f 23 Apr 2005 11:00:06 -0000 1.2 --- Catalog.f 24 Apr 2005 11:59:16 -0000 1.3 *************** *** 40,44 **** \ An easy way to create and debug a fixed record ! sizeof RecordDef dup to record-size create InlineRecord allot : file-exist? ( adr len -- true-if-file-exist ) --- 40,44 ---- \ An easy way to create and debug a fixed record ! sizeof RecordDef dup to record-size mkstruct: InlineRecord : file-exist? ( adr len -- true-if-file-exist ) *************** *** 247,249 **** \s ! |
|
From: Dirk B. <db...@us...> - 2005-04-23 12:43:04
|
Update of /cvsroot/win32forth/win32forth-extsrc/extsrc/w32fConsole In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv2339/extsrc/w32fConsole Modified Files: Console.rc Term.cpp Log Message: Fixed the console size bug (after rebuilding the system) Index: Console.rc =================================================================== RCS file: /cvsroot/win32forth/win32forth-extsrc/extsrc/w32fConsole/Console.rc,v retrieving revision 1.5 retrieving revision 1.6 diff -C2 -d -r1.5 -r1.6 *** Console.rc 12 Mar 2005 09:42:54 -0000 1.5 --- Console.rc 23 Apr 2005 12:42:56 -0000 1.6 *************** *** 55,60 **** VS_VERSION_INFO VERSIONINFO ! FILEVERSION 6,11,0,19 ! PRODUCTVERSION 6,11,0,19 FILEFLAGSMASK 0x3fL #ifdef _DEBUG --- 55,60 ---- VS_VERSION_INFO VERSIONINFO ! FILEVERSION 6,11,0,22 ! PRODUCTVERSION 6,11,0,22 FILEFLAGSMASK 0x3fL #ifdef _DEBUG *************** *** 74,78 **** VALUE "CompanyName", "Win32Forth developer team\0" VALUE "FileDescription", "Win32Forth console\0" ! VALUE "FileVersion", "6, 11, 0, 19\0" VALUE "InternalName", "CONSOLE\0" VALUE "LegalCopyright", "\0" --- 74,78 ---- VALUE "CompanyName", "Win32Forth developer team\0" VALUE "FileDescription", "Win32Forth console\0" ! VALUE "FileVersion", "6, 11, 0, 22\0" VALUE "InternalName", "CONSOLE\0" VALUE "LegalCopyright", "\0" *************** *** 81,85 **** VALUE "PrivateBuild", "\0" VALUE "ProductName", "Win32Forth\0" ! VALUE "ProductVersion", "6, 11, 0, 19\0" VALUE "SpecialBuild", "\0" END --- 81,85 ---- VALUE "PrivateBuild", "\0" VALUE "ProductName", "Win32Forth\0" ! VALUE "ProductVersion", "6, 11, 0, 22\0" VALUE "SpecialBuild", "\0" END Index: Term.cpp =================================================================== RCS file: /cvsroot/win32forth/win32forth-extsrc/extsrc/w32fConsole/Term.cpp,v retrieving revision 1.5 retrieving revision 1.6 diff -C2 -d -r1.5 -r1.6 *** Term.cpp 12 Mar 2005 09:42:54 -0000 1.5 --- Term.cpp 23 Apr 2005 12:42:56 -0000 1.6 *************** *** 942,963 **** case WM_DESTROY: { ! // destroy the console window ! DestroyWindow( hWndConsole ); ! ! // save window position ! WINDOWPLACEMENT wp; ! wp.length = sizeof(WINDOWPLACEMENT); ! if( GetWindowPlacement(hwnd, &wp) && wp.showCmd != SW_SHOWMINIMIZED ) { ! // Only save position if I am not minimized ! RECT rc; ! GetWindowRect(hwnd, &rc); ! char s[512]; ! sprintf(s, "%d,%d,%d,%d\0", rc.left, rc.top, rc.right, rc.bottom); ! HKEY theKey = RegGetKey(); ! RegSetValueEx( theKey, "Console", 0, REG_SZ, (const BYTE *)&s, strlen(s) ); ! RegCloseKey ( theKey ); } --- 942,966 ---- case WM_DESTROY: { ! if( IsWindow( hWndConsole ) ) // only once... { ! // destroy the console window ! DestroyWindow( hWndConsole ); ! // save window position ! WINDOWPLACEMENT wp; ! wp.length = sizeof(WINDOWPLACEMENT); ! if( GetWindowPlacement(hwnd, &wp) && wp.showCmd != SW_SHOWMINIMIZED ) ! { ! // Only save position if I am not minimized ! RECT rc; ! GetWindowRect(hwnd, &rc); ! char s[512]; ! sprintf(s, "%d,%d,%d,%d\0", rc.left, rc.top, rc.right, rc.bottom); ! ! HKEY theKey = RegGetKey(); ! RegSetValueEx( theKey, "Console", 0, REG_SZ, (const BYTE *)&s, strlen(s) ); ! RegCloseKey ( theKey ); ! } } *************** *** 1236,1239 **** --- 1239,1303 ---- //************************************************************************************************* + // GetDefaultConsolePos() + //************************************************************************************************* + RECT GetDefaultConsolePos( void ) + { + RECT rcConsole = { 0, 0, 800, 600 }; + + RECT rcDesktop; + if( SystemParametersInfo( SPI_GETWORKAREA, 0, &rcDesktop, 0 ) ) + rcConsole = rcDesktop; + + return rcConsole; + } + + //************************************************************************************************* + // GetConsolePos() + //************************************************************************************************* + RECT GetConsolePos( void ) + { + RECT rcConsole; + + // get last console pos from registry + char szConsolePos[512] = ""; + RegReadKey( "Console", szConsolePos, sizeof(szConsolePos) ); + if( *szConsolePos ) + { + sscanf( szConsolePos, "%d,%d,%d,%d", &rcConsole.left, &rcConsole.top, &rcConsole.right, &rcConsole.bottom ); + + // Clip the console pos to the size of the work area. + // The work area is the portion of the screen not obscured by the system taskbar + // or by application desktop toolbars. + RECT rcDesktop; + if( SystemParametersInfo( SPI_GETWORKAREA, 0, &rcDesktop, 0 ) ) + { + rcConsole.left = max( rcConsole.left , rcDesktop.left ); + rcConsole.top = max( rcConsole.top , rcDesktop.top ); + rcConsole.right = min( rcConsole.right , rcDesktop.right ); + rcConsole.bottom = min( rcConsole.bottom, rcDesktop.bottom ); + } + } + else + { + // if they have never been set, use defaults + rcConsole = GetDefaultConsolePos(); + } + + if( (rcConsole.right - rcConsole.left) <= 100 ) + { + rcConsole.left = 0; + rcConsole.right = 800; + } + + if( (rcConsole.bottom - rcConsole.top) <= 100 ) + { + rcConsole.top = 0; + rcConsole.bottom = 600; + } + + return rcConsole; + } + + //************************************************************************************************* // init Console I/O //************************************************************************************************* *************** *** 1248,1263 **** // get console window pos from registry ! char s[512] = ""; ! RegReadKey( "Console", s, sizeof(s) ); ! ! RECT pos; memset( &pos, 0, sizeof(pos) ); // bugfix for SF-Request ID 762961 July 2nd, 2003 - 17:51 dbu ! sscanf( (char *)&s, "%d,%d,%d,%d", &pos.left, &pos.top, &pos.right, &pos.bottom ); ! if( pos.bottom == 0 ) // if they have never been set, use defaults ! { ! pos.left = 3; ! pos.top = 3; ! pos.right = 634; ! pos.bottom = 474; ! } // Register main window class --- 1312,1316 ---- // get console window pos from registry ! RECT pos = GetConsolePos(); // Register main window class *************** *** 1296,1307 **** WindowTitle, // window caption WS_OVERLAPPEDWINDOW, // window style ! pos.left, ! pos.top, ! (pos.right - pos.left), ! (pos.bottom - pos.top), NULL, // parent window handle NULL, // window menu handle hInstance, // program instance handle ! NULL) ; // creation parameters return (int)hWndMain; --- 1349,1360 ---- WindowTitle, // window caption WS_OVERLAPPEDWINDOW, // window style ! pos.left, // window x-position ! pos.top, // window y-position ! pos.right - pos.left, // window width ! pos.bottom - pos.top, // window height NULL, // parent window handle NULL, // window menu handle hInstance, // program instance handle ! NULL ); // creation parameters return (int)hWndMain; |
|
From: Dirk B. <db...@us...> - 2005-04-23 12:27:31
|
Update of /cvsroot/win32forth/win32forth In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv25419 Modified Files: setup.exe w32fConsole.dll Log Message: Fixed the console size bug (after rebuilding the system) Index: setup.exe =================================================================== RCS file: /cvsroot/win32forth/win32forth/setup.exe,v retrieving revision 1.3 retrieving revision 1.4 diff -C2 -d -r1.3 -r1.4 Binary files /tmp/cvsnuCFpl and /tmp/cvsE8W0LO differ Index: w32fConsole.dll =================================================================== RCS file: /cvsroot/win32forth/win32forth/w32fConsole.dll,v retrieving revision 1.6 retrieving revision 1.7 diff -C2 -d -r1.6 -r1.7 Binary files /tmp/cvsrvn1Zr and /tmp/cvs3Wl6pV differ |
|
From: Dirk B. <db...@us...> - 2005-04-23 12:27:29
|
Update of /cvsroot/win32forth/win32forth/apps/Setup In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv25419/apps/Setup Modified Files: HYPER.F Setup.f Log Message: Fixed the console size bug (after rebuilding the system) Index: Setup.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/Setup/Setup.f,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 *** Setup.f 18 Apr 2005 17:39:22 -0000 1.2 --- Setup.f 23 Apr 2005 12:27:21 -0000 1.3 *************** *** 25,31 **** FLOAD ..\..\src\Keyboard.f \ function and special key constants FLOAD ..\..\src\pointer.f ! \ FLOAD ..\..\src\registry.f \ Win32 Registry support FLOAD ..\..\src\ansfile.f FLOAD ..\..\src\shell.f \ the Setup starts here... --- 25,32 ---- FLOAD ..\..\src\Keyboard.f \ function and special key constants FLOAD ..\..\src\pointer.f ! FLOAD ..\..\src\registry.f \ Win32 Registry support FLOAD ..\..\src\ansfile.f FLOAD ..\..\src\shell.f + FLOAD ..\..\src\callback.f \ the Setup starts here... *************** *** 62,80 **** -if ." invoked with commandline <" type ." >" cr then ! \ s" console" getsetting regsett place ! \ s" 80,80,520,600" s" console" setsetting GetSystemDirectory ; ! : setupterm ( -- ) ! 1 Show-Window ! \ regsett count s" console" setsetting ! ; : setup-bye ( -- ) ! setupterm bye ; : wait&bye cr ! ." Press any key to exit..." ekey setup-bye ; ! 3 proc CopyFile --- 63,81 ---- -if ." invoked with commandline <" type ." >" cr then ! s" console" getsetting regsett place \ save current console window size ! s" 80,80,600,400" s" console" setsetting GetSystemDirectory ; ! 0 callback &noop noop \ a noop-callback : setup-bye ( -- ) ! &CB-BYE @ &noop &CB-BYE ! \ make BYE a noop; so that destroying the console ! defer@ bye ['] noop is bye \ window will not terminate the setup ! _conHndl call DestroyWindow drop \ destroy the console window ! regsett count s" console" setsetting \ restore console window size in registry ! unload-forth 0 Call ExitProcess ; \ exit setup : wait&bye cr ! ." Press any key to exit..." ekey drop setup-bye ; 3 proc CopyFile Index: HYPER.F =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/Setup/HYPER.F,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** HYPER.F 21 Dec 2004 00:18:49 -0000 1.1 --- HYPER.F 23 Apr 2005 12:27:21 -0000 1.2 *************** *** 36,40 **** anew -hyper.f ! .( Loading Hyper...) \ Runtime allocated MAXSTRING length buffers --- 36,40 ---- anew -hyper.f ! cr .( Loading Hyper...) \ Runtime allocated MAXSTRING length buffers |
Update of /cvsroot/win32forth/win32forth/apps/Player4 In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv10118/apps/Player4 Modified Files: Catalog.f MciInterface.f Mediatree.f PLAYER4.F Pl_MciWindow.f Pl_Version.f W_SEARCH.F Added Files: Pl_Toolset.f Log Message: Player 4th Version: 1.01.09 Index: MciInterface.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/Player4/MciInterface.f,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** MciInterface.f 18 Apr 2005 17:52:11 -0000 1.1 --- MciInterface.f 23 Apr 2005 11:00:06 -0000 1.2 *************** *** 141,158 **** GetLength ;M - \ search for char in string, return string till - \ char and rest of string after char - \ May 23rd, 2003 - 17:14 dbu - : /get { str len char \ str1 len1 -- str len str1 len1 } - str len char scan to len1 to str1 - len1 0> - if len len1 - to len - str1 1+ to str1 - len1 1- ?dup if to len1 then - then str len str1 len1 ; - - : 2nip ( d1 d2 -- d2 ) - 2swap 2drop ; - : GetHeightAndWidth ( -- ) Video? --- 141,144 ---- Index: Mediatree.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/Player4/Mediatree.f,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 *** Mediatree.f 20 Apr 2005 22:00:30 -0000 1.2 --- Mediatree.f 23 Apr 2005 11:00:06 -0000 1.3 *************** *** 378,381 **** --- 378,384 ---- ;M + :M ~: ( -- ) + GetHandle: self call DestroyWindow drop ;M + ;Class *************** *** 393,403 **** WS_EX_CLIENTEDGE or ;M ! :M On_Init: ( -- ) ! On_Init: super ! New> NewTVC to TreeView 1001 SetId: TreeView ! self Start: TreeView true to EnableNotify? ;M --- 396,413 ---- WS_EX_CLIENTEDGE or ;M ! : CreateTreeView ( -- ) \ create a treeview window ! TreeView 0<> ?exit New> NewTVC to TreeView 1001 SetId: TreeView ! self Start: TreeView ; + : DestroyTreeView ( -- ) \ destroy the current treeview window + TreeView 0= ?exit + TreeView dispose \ destroy the window + 0 to TreeView ; + + :M On_Init: ( -- ) + On_Init: super + 0 to TreeView CreateTreeView true to EnableNotify? ;M *************** *** 406,424 **** AutoSize: TreeView ;M ! :M Refresh: ( - ) timer-reset ! wait-cursor paint: self \ Huge impact here EnableNotify? false to EnableNotify? ! TVI_ROOT DeleteItem: TreeView ! FillTreeView: TreeView to EnableNotify? ! arrow-cursor paint: self \ Small impact here .elapsed ;M - \ The elapsed times for Refresh: when the catalog is sorted again. - \ 12.875 sec without paint: self - \ 4.89 sec with paint: self :M WM_NOTIFY ( h m w l -- f ) --- 416,435 ---- AutoSize: TreeView ;M ! :M Refresh: ( -- ) timer-reset ! wait-cursor EnableNotify? false to EnableNotify? ! DestroyTreeView \ destroy the current treeview window ! CreateTreeView \ create a new one ! SW_HIDE Show: TreeView \ hide, ! On_Size: self \ resize, ! FillTreeView: TreeView \ fill, ! SW_RESTORE Show: TreeView \ and show it to EnableNotify? ! arrow-cursor .elapsed ;M :M WM_NOTIFY ( h m w l -- f ) *************** *** 438,440 **** \s ! |
|
From: Jos v.d.V. <jo...@us...> - 2005-04-20 22:00:41
|
Update of /cvsroot/win32forth/win32forth/apps/Player4 In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv13567 Modified Files: Mediatree.f Log Message: Jos: Now Refresh: is 2* faster on my PC Index: Mediatree.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/Player4/Mediatree.f,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** Mediatree.f 18 Apr 2005 17:52:11 -0000 1.1 --- Mediatree.f 20 Apr 2005 22:00:30 -0000 1.2 *************** *** 407,411 **** :M Refresh: ( - ) ! wait-cursor EnableNotify? false to EnableNotify? --- 407,412 ---- :M Refresh: ( - ) ! timer-reset ! wait-cursor paint: self \ Huge impact here EnableNotify? false to EnableNotify? *************** *** 414,419 **** to EnableNotify? ! arrow-cursor ;M :M WM_NOTIFY ( h m w l -- f ) --- 415,424 ---- to EnableNotify? ! arrow-cursor paint: self \ Small impact here ! .elapsed ;M + \ The elapsed times for Refresh: when the catalog is sorted again. + \ 12.875 sec without paint: self + \ 4.89 sec with paint: self :M WM_NOTIFY ( h m w l -- f ) |
|
From: George H. <geo...@us...> - 2005-04-19 14:04:10
|
Update of /cvsroot/win32forth/win32forth/src/lib In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv9155/win32forth/src/lib Modified Files: STRUCT.F Log Message: gah: newer version of struct from player4 Index: STRUCT.F =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/lib/STRUCT.F,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** STRUCT.F 21 Dec 2004 00:19:10 -0000 1.1 --- STRUCT.F 19 Apr 2005 14:04:02 -0000 1.2 *************** *** 1,5 **** \ $Id$ ! anew -struct.f \ for Win32Forth October 7th, 2002 - 10:35 \ For C like structures. --- 1,5 ---- \ $Id$ ! anew -struct.f \ for Win32Forth April 4th, 2005 \ For C like structures. *************** *** 15,18 **** --- 15,19 ---- \ January 15th, 2002 - 16:46 removed a bug from _add-struct \ July 13th, 2002 - 16:26 Added Field: + \ April 4th, 2005 - 14:10 removed a bug from >struct in-system *************** *** 117,121 **** \ >struct compiles the adress and offset as 1 adress inside a definition : >struct ( -<name-struct>- -<member>- - adress+offset_in_structure ) ! ' >body cell+ getsize-struct + postpone literal ; immediate : struct{ ( -- ) --- 118,122 ---- \ >struct compiles the adress and offset as 1 adress inside a definition : >struct ( -<name-struct>- -<member>- - adress+offset_in_structure ) ! ' >body getsize-struct + postpone literal ; immediate : struct{ ( -- ) *************** *** 208,210 **** \s ! |
|
From: Dirk B. <db...@us...> - 2005-04-18 17:52:39
|
Update of /cvsroot/win32forth/win32forth/apps/Player4 In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv17895/apps/Player4 Modified Files: PLAYER4.F Added Files: Catalog.f MciInterface.f Mediatree.f NUMBER.F PLAYER4.ff PLAYER4.frm Pl_About.f Pl_MciWindow.f Pl_Version.f STRUCT.F SUB_DIRS.F W_SEARCH.F shell_r.f Removed Files: NViewLib.dll Log Message: Player Version 1.01.08 uploaded --- NEW FILE: NUMBER.F --- anew number.f \ March 12th, 2002 - 11:48 \ Shows numbers according to the international settings of the control panel. \ March 11th, 2002 - 14:57 changed init_digits. \ Now it seems to be right for various windows-systems \ needs toolset.f \ Update: December 17th, 2001 or better. : s(d.#) ( d1 n1 sign -- a1 count ) \ display d1 with n1 places behind DP >r >r <# r> ?dup \ if not zero, then display places if 0 max 0 ?do # loop [char] . hold then #s r> if [char] - hold \ including the sign then #> ; 80 constant hld-max : lprep ( l h n1 sign - base hld-max hld_abs 0 adr$ 0 LOCALE_SYSTEM_DEFAULT ) 2>r base @ -rot decimal 2>r hld-max hld rel>abs 0 2r> pad 30 erase 2r> s(d.#) drop rel>abs 0 LOCALE_SYSTEM_DEFAULT ; : fvalue-to-string \ ( adr - ) fs: ( n - ) \ Borrowed from f. >r 0 r@ c! \ Now it puts a float in a string fdepth 0 <= IF ." Empty " r> drop EXIT THEN precision 1 max set-precision fexam 0x0200 and IF fabs s" -" r@ +place THEN fdup f0.5 f< IF s" ." r@ +place f1.0 f+ $ftemp precision 1+ maxsig umin represent drop drop drop $ftemp 1+ precision maxsig 1- umin r@ +place s" " r@ +place ELSE $ftemp precision represent 0= IF drop drop $ftemp precision r@ +place s" " r@ +place ELSE drop dup precision < IF dup 0= IF drop s" ." r@ +place $ftemp precision r@ +place s" " r> +place EXIT THEN $ftemp over r@ +place s" ." r@ +place $ftemp over + swap precision swap - r@ +place s" " r@ +place ELSE dup precision = IF $ftemp swap r@ +place s" . " r> +place EXIT THEN $ftemp precision r@ +place r@ pad ! precision - 0 DO s" 0" pad @ +place LOOP s" . " r@ +place THEN THEN THEN r> drop ; : lfprep ( f: f - ) ( - base hld-max hld_abs 0 adr$ 0 LOCALE_SYSTEM_DEFAULT ) base @ decimal hld-max hld rel>abs 0 pad 30 erase pad fvalue-to-string pad 1+ rel>abs 0 LOCALE_SYSTEM_DEFAULT ; 0 value #idigits 0 value #iCurrDigits : digit@>s ( adr - digit ) c@ 0xf and ; : reg-digit@ ( adr n - digit ) drop digit@>s ; : no_idigits ( count - count_without_the_idigits ) #idigits 0> if #idigits - 1- then ; : type-r ( adr count right-justify - ) 2dup >= if drop else over - spaces then type ; : dsigned? ( l h - ul hl sign ) 2dup dabs 2swap d0< ; : hld-count ( count - hld count-1 ) hld swap 1- ; : (l.$fin) ( l h - adr count ) dsigned? #iCurrDigits swap lprep call GetCurrencyFormat hld-count rot base ! ; : (l.ud) ( l h n1 sign - adr count ) \ max: +/- -18.446.744.073.709.551.615 lprep call GetNumberFormat hld-count rot base ! ; : (l.d) ( l h n1 - adr count ) >r dsigned? r> swap (l.ud) ; : (l.dint) ( l h - adr count ) 0 (l.d) no_idigits ; \ January 11th, 2002 : (l.int) ( n - adr count ) s>d (l.dint) ; \ January 11th, 2002 : l.ud ( l h - ) #idigits false (l.ud) type ; : l.d ( l h - ) #idigits (l.d) type ; : l. ( n - ) s>d l.d ; : l.int ( n - ) (l.int) type ; : l.d$fin ( l h - ) (l.$fin) type ; : l.$fin ( n - ) s>d l.d$fin ; : l.dr ( r l h - ) #idigits (l.d) rot type-r ; : l.r ( n r - ) swap s>d l.dr ; : l.intr ( n r - ) swap s>d 0 (l.d) no_idigits rot type-r ; : l.d$finr ( l h r - ) -rot (l.$fin) rot type-r ; : l.$finr ( n r - ) swap s>d rot l.d$finr ; : (l.f) ( f: f - adr count ) \ not very accurate when B/FLOAT is 8 precision 26 set-precision lfprep call GetNumberFormat hld-count rot base ! rot set-precision ; : l.f ( f: f - ) (l.f) type ; : l.fr ( r - ) ( f: f - ) (l.f) rot type-r ; : #zeros-in$? ( adr count - #zeros ) 0 swap 0 do over i + c@ ascii 0 = abs + loop nip ; : init_digits ( - ) 1 0 0 (l.d) #zeros-in$? to #idigits 1 0 (l.$fin) #zeros-in$? to #iCurrDigits ; initialization-chain chain-add init_digits init_digits \s (( ( Remove or disable this line to see the demo ) \ Usage: cr -1234e l.f cr 123.4e l.f cr cr -12e 12 l.fr cr 123.4e 12 l.fr cr -12345e 12 l.fr cr 1239.47e 12 l.fr cr cr 9841 l. cr -9841 l.int cr cr -12345 10 l.intr cr 123 10 l.intr cr 1 10 l.intr cr 12345 10 l.r cr \ The Euro-sign will be shown when it is in the current font. cr -1234567 l.$fin cr cr -1234567 15 l.$finr cr 12345 15 l.$finr cr -12 15 l.$finr cr cr 1 1 l.ud cr -1 -1 l.ud : .GetProcessWorkingSetSize hld rel>abs hld 4 + rel>abs call GetCurrentProcess call GetProcessWorkingSetSize ?win-error hld 4 + @ hld @ cr 10 ." Maximum working set size" l.intr cr 10 ." Minimum working set size" l.intr ; cr .GetProcessWorkingSetSize cr \ )) \s |
|
From: Dirk B. <db...@us...> - 2005-04-18 17:40:03
|
Update of /cvsroot/win32forth/win32forth/apps/WinEd In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv10915/apps/WinEd Modified Files: Ed_Globals.F Ed_Keys.F WinEd.f Log Message: zEXEC rewritten (see Shell.f), made DEPRECATED work for class members,SF[1178189] fixed, SF[1178189] fixed, SF[1178186] fixed, SF[1167791] fixed, SF[774094] fixed; and some other small changes I can't remebere any more Index: WinEd.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/WinEd/WinEd.f,v retrieving revision 1.3 retrieving revision 1.4 diff -C2 -d -r1.3 -r1.4 *** WinEd.f 12 Mar 2005 09:29:20 -0000 1.3 --- WinEd.f 18 Apr 2005 17:39:22 -0000 1.4 *************** *** 88,92 **** FALSE to browse? 0 to left-margin ! NT? Win98? or to using98/NT? 0 to right-edge false to edit-changed? --- 88,93 ---- FALSE to browse? 0 to left-margin ! WinVer 4 >= ( NT? ) ! winver 2 3 between ( Win98? ) or to using98/NT? 0 to right-edge false to edit-changed? Index: Ed_Globals.F =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/WinEd/Ed_Globals.F,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** Ed_Globals.F 12 Mar 2005 09:29:20 -0000 1.1 --- Ed_Globals.F 18 Apr 2005 17:39:22 -0000 1.2 *************** *** 110,114 **** THEN ; ! : WaitForConsole { / ?deadlook -- } \ wait until console is ready to accept char's \ return's after 10 seconds even when the console is not ready 0 to ?deadlook --- 110,114 ---- THEN ; ! : WaitForConsole { \ ?deadlook -- } \ wait until console is ready to accept char's \ return's after 10 seconds even when the console is not ready 0 to ?deadlook *************** *** 125,130 **** file$ ?+\ s" Win32For.exe" file$ +place ! file$ +NULL ! file$ 1+ zEXEC \ wait untill Forth is loaded --- 125,129 ---- file$ ?+\ s" Win32For.exe" file$ +place ! file$ EXEC-CMD drop \ wait untill Forth is loaded *************** *** 140,141 **** --- 139,141 ---- + |
|
From: Dirk B. <db...@us...> - 2005-04-18 17:40:03
|
Update of /cvsroot/win32forth/win32forth/doc In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv10915/doc Modified Files: p-gethelp.htm Log Message: zEXEC rewritten (see Shell.f), made DEPRECATED work for class members,SF[1178189] fixed, SF[1178189] fixed, SF[1178186] fixed, SF[1167791] fixed, SF[774094] fixed; and some other small changes I can't remebere any more Index: p-gethelp.htm =================================================================== RCS file: /cvsroot/win32forth/win32forth/doc/p-gethelp.htm,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** p-gethelp.htm 21 Dec 2004 00:18:56 -0000 1.1 --- p-gethelp.htm 18 Apr 2005 17:39:24 -0000 1.2 *************** *** 67,70 **** --- 67,75 ---- be used to suppress the warning for the current line if it's used after values are added to the stack.</p> + + <h3>Deprecated Word Warnings</h3> + <p>The display of these warnings is controlled by the value <b><span class="fixedfont">DPR-WARNING?</span></b> which can be set and reset + with <b><span class="fixedfont">DPR-WARNING-ON</span></b> and <b><span class="fixedfont">DPR-WARNING-OFF</span></b> respectively.</p> + <hr> <h2>Error messages</h2> *************** *** 321,325 **** <span class="fixedfont"><a href="#Warning(-4103)">is an application word set to a system word</a></span></td> </tr> ! <tr> <td style="font-weight: normal; color: black; border-left-style: none; border-right-style: none; border-top-style: none; border-bottom: .75pt solid green; background-color: #CCCCCC" width="212" align="center"> -4103</td> --- 326,330 ---- <span class="fixedfont"><a href="#Warning(-4103)">is an application word set to a system word</a></span></td> </tr> ! <tr> <td style="font-weight: normal; color: black; border-left-style: none; border-right-style: none; border-top-style: none; border-bottom: .75pt solid green; background-color: #CCCCCC" width="212" align="center"> -4103</td> *************** *** 327,330 **** --- 332,341 ---- <span class="fixedfont"><a href="#Warning(-4103)">stack depth increased</a></span></td> </tr> + <tr> + <td style="font-weight: normal; color: black; border-left-style: none; border-right-style: none; border-top-style: none; border-bottom: .75pt solid green; background-color: #CCCCCC" width="212" align="center"> + -4104</td> + <td style="font-weight: normal; color: black; border-left-style: none; border-right-style: none; border-top-style: none; border-bottom: .75pt solid green; background-color: #CCCCCC" width="356"> + <span class="fixedfont"><a href="#Warning(-4104)">is a deprecated word</a></span></td> + </tr> </table> </center> *************** *** 980,983 **** --- 991,1014 ---- </blockquote> <p><b>Resolution: </b>Depends; check out whether it's OK for this to happen.</p> + + <hr> + <p><span class="fixedfont"><font size="4"><b><a name="Warning(-4104)"> + Warning(-4104)</a></b></font></span><b><span class="fixedfont"><font size="4">: + is a deprecated word</font></span></b></p> + <p><b>Summary: </b>Warning. The word you are using is marked as deprecated. Sutch + words will be removed form Win32Forth in the future.For more information take + a look at the source of the depreacted word.</p> + <p><b>Example:</b></p> + <blockquote> + <pre> + foo ; DEPRECATED ok + : foo1 foo ; + ^^^ + Warning(-4104): FOO is a deprecated word ok</pre> + </blockquote> + <p><b>Resolution: </b>If you understand this, and it's annoying you, then turn + off warnings with <span class="fixedfont"><a href="#Suppressing Warnings"> + DPR-WARNING-OFF</a></span>. Otherwise, realise that your application might not + work with new Win32Forth Versions in the future.</p> <hr> <p><b><span class="fixedfont"><font size="4"><a name="Error(9998)">Error(9998)</a>: <name> |
1040 messages has been excluded from this view by a project administrator.
