Menu
▾
▴
win32forth-cvs — CVS Commit List
You can subscribe to this list here.
| 2004 |
Jan
|
Feb
|
Mar
|
Apr
|
May
|
Jun
|
Jul
|
Aug
|
Sep
|
Oct
|
Nov
|
Dec
(70) |
|---|---|---|---|---|---|---|---|---|---|---|---|---|
| 2005 |
Jan
(38) |
Feb
(4) |
Mar
(11) |
Apr
(49) |
May
(81) |
Jun
(65) |
Jul
(36) |
Aug
(57) |
Sep
(63) |
Oct
(57) |
Nov
(49) |
Dec
(41) |
| 2006 |
Jan
(75) |
Feb
(80) |
Mar
(10) |
Apr
(13) |
May
(100) |
Jun
(100) |
Jul
(77) |
Aug
(87) |
Sep
(80) |
Oct
(124) |
Nov
(39) |
Dec
(41) |
| 2007 |
Jan
(20) |
Feb
(32) |
Mar
(32) |
Apr
(43) |
May
(146) |
Jun
(40) |
Jul
(49) |
Aug
(33) |
Sep
(25) |
Oct
(19) |
Nov
(11) |
Dec
(8) |
| 2008 |
Jan
(4) |
Feb
(11) |
Mar
(31) |
Apr
(40) |
May
(34) |
Jun
(24) |
Jul
(39) |
Aug
(104) |
Sep
(27) |
Oct
(35) |
Nov
(34) |
Dec
(97) |
| 2009 |
Jan
(75) |
Feb
(29) |
Mar
(45) |
Apr
(76) |
May
(121) |
Jun
(103) |
Jul
(67) |
Aug
(28) |
Sep
(22) |
Oct
(39) |
Nov
(9) |
Dec
(15) |
| 2010 |
Jan
(7) |
Feb
(39) |
Mar
(40) |
Apr
(57) |
May
(67) |
Jun
(69) |
Jul
(49) |
Aug
(68) |
Sep
(22) |
Oct
(7) |
Nov
(2) |
Dec
(10) |
| 2011 |
Jan
|
Feb
|
Mar
(10) |
Apr
(4) |
May
(6) |
Jun
(10) |
Jul
(16) |
Aug
(23) |
Sep
(9) |
Oct
|
Nov
(28) |
Dec
(3) |
| 2012 |
Jan
(11) |
Feb
(10) |
Mar
(1) |
Apr
|
May
(4) |
Jun
(3) |
Jul
(3) |
Aug
(4) |
Sep
(2) |
Oct
|
Nov
|
Dec
(1) |
| 2013 |
Jan
|
Feb
(7) |
Mar
(30) |
Apr
(4) |
May
(4) |
Jun
(8) |
Jul
(10) |
Aug
(4) |
Sep
|
Oct
(2) |
Nov
(24) |
Dec
(13) |
| 2014 |
Jan
(7) |
Feb
(2) |
Mar
|
Apr
(1) |
May
(9) |
Jun
|
Jul
(3) |
Aug
(9) |
Sep
|
Oct
(2) |
Nov
|
Dec
(3) |
| 2015 |
Jan
(4) |
Feb
(2) |
Mar
|
Apr
|
May
|
Jun
(1) |
Jul
|
Aug
(5) |
Sep
(1) |
Oct
(4) |
Nov
(7) |
Dec
(39) |
| 2016 |
Jan
(17) |
Feb
(2) |
Mar
(2) |
Apr
|
May
(1) |
Jun
(1) |
Jul
|
Aug
|
Sep
|
Oct
|
Nov
(1) |
Dec
(2) |
| 2017 |
Jan
|
Feb
(3) |
Mar
|
Apr
|
May
(1) |
Jun
(2) |
Jul
|
Aug
(3) |
Sep
|
Oct
|
Nov
|
Dec
(2) |
| 2018 |
Jan
|
Feb
|
Mar
(2) |
Apr
|
May
|
Jun
|
Jul
|
Aug
|
Sep
|
Oct
|
Nov
|
Dec
|
| 2019 |
Jan
|
Feb
|
Mar
(1) |
Apr
|
May
|
Jun
|
Jul
|
Aug
|
Sep
|
Oct
|
Nov
|
Dec
|
| 2022 |
Jan
|
Feb
|
Mar
|
Apr
|
May
(1) |
Jun
|
Jul
|
Aug
|
Sep
(1) |
Oct
(2) |
Nov
(1) |
Dec
(1) |
| 2023 |
Jan
|
Feb
|
Mar
|
Apr
|
May
|
Jun
|
Jul
|
Aug
(1) |
Sep
|
Oct
(1) |
Nov
|
Dec
|
| 2025 |
Jan
|
Feb
|
Mar
|
Apr
|
May
|
Jun
(1) |
Jul
|
Aug
|
Sep
|
Oct
|
Nov
|
Dec
|
|
From: Jos v.d.V. <jo...@us...> - 2014-01-24 13:55:57
|
Update of /cvsroot/win32forth/win32forth/src/lib/fmacro In directory sfp-cvs-1.v30.ch3.sourceforge.com:/tmp/cvs-serv13642 Modified Files: PROFILER.F Log Message: Jos Supressing console messsages Index: PROFILER.F =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/lib/fmacro/PROFILER.F,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 *** PROFILER.F 21 Jun 2008 14:38:02 -0000 1.2 --- PROFILER.F 24 Jan 2014 13:55:55 -0000 1.3 *************** *** 115,126 **** : profiler ( -- ) ! ['] elapsed is debug-entry ! ['] .tsc_time is debug-.s ! ['] tsc_init is debug-exit rps ; : profile ( -<name>- ) \ Shows the elapsed time while profiling. ! profiler ' adebug ; previous --- 115,126 ---- : profiler ( -- ) ! \IN-SYSTEM-OK ['] elapsed is debug-entry ! \IN-SYSTEM-OK ['] .tsc_time is debug-.s ! \IN-SYSTEM-OK ['] tsc_init is debug-exit rps ; : profile ( -<name>- ) \ Shows the elapsed time while profiling. ! \IN-SYSTEM-OK profiler ' adebug ; previous |
|
From: Jos v.d.V. <jo...@us...> - 2014-01-24 13:54:10
|
Update of /cvsroot/win32forth/win32forth/src/console In directory sfp-cvs-1.v30.ch3.sourceforge.com:/tmp/cvs-serv13502 Modified Files: NewConsole.f Log Message: Jos Making sure that the console also disapear from the taskmanager. Index: NewConsole.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/console/NewConsole.f,v retrieving revision 1.40 retrieving revision 1.41 diff -C2 -d -r1.40 -r1.41 *** NewConsole.f 15 Nov 2013 19:35:03 -0000 1.40 --- NewConsole.f 24 Jan 2014 13:54:08 -0000 1.41 *************** *** 183,186 **** --- 183,190 ---- ;M + + :M WM_CLOSE ( h m w l -- res ) + bye 0 ;M + ;Object |
|
From: Jos v.d.V. <jo...@us...> - 2014-01-14 12:50:58
|
Update of /cvsroot/win32forth/win32forth/src In directory sfp-cvs-1.v30.ch3.sourceforge.com:/tmp/cvs-serv30653 Modified Files: Primutil.f Log Message: Jos better layout. Index: Primutil.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/Primutil.f,v retrieving revision 1.69 retrieving revision 1.70 diff -C2 -d -r1.69 -r1.70 *** Primutil.f 14 Jan 2014 12:21:53 -0000 1.69 --- Primutil.f 14 Jan 2014 12:50:56 -0000 1.70 *************** *** 166,170 **** : is-default ( cfa -<name>- ) ! \ G* Set the default field of a deferred word. state @ if POSTPONE @(ip) POSTPONE _is-default --- 166,170 ---- : is-default ( cfa -<name>- ) ! \ *G Set the default field of a deferred word. state @ if POSTPONE @(ip) POSTPONE _is-default |
|
From: Jos v.d.V. <jo...@us...> - 2014-01-14 12:49:51
|
Update of /cvsroot/win32forth/win32forth/src/kernel In directory sfp-cvs-1.v30.ch3.sourceforge.com:/tmp/cvs-serv30583 Modified Files: fkernel.f Log Message: Jos better layout. Index: fkernel.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/kernel/fkernel.f,v retrieving revision 1.101 retrieving revision 1.102 diff -C2 -d -r1.101 -r1.102 *** fkernel.f 14 Jan 2014 12:21:00 -0000 1.101 --- fkernel.f 14 Jan 2014 12:49:49 -0000 1.102 *************** *** 4602,4606 **** CREATE 0 , ; ! : DEFER ( "name" -- ) \ create a deferred execution function \ *G create a deferred execution function, defaults to a NOOP \ ** Typical usage ' new-action is deferred-action --- 4602,4606 ---- CREATE 0 , ; ! : DEFER ( "name" -- ) \ *G create a deferred execution function, defaults to a NOOP \ ** Typical usage ' new-action is deferred-action |
|
From: Jos v.d.V. <jo...@us...> - 2014-01-14 12:21:56
|
Update of /cvsroot/win32forth/win32forth/src In directory sfp-cvs-1.v30.ch3.sourceforge.com:/tmp/cvs-serv28863 Modified Files: Primutil.f Log Message: Jos Doc update to avoid future searches Index: Primutil.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/Primutil.f,v retrieving revision 1.68 retrieving revision 1.69 diff -C2 -d -r1.68 -r1.69 *** Primutil.f 17 Dec 2013 19:25:22 -0000 1.68 --- Primutil.f 14 Jan 2014 12:21:53 -0000 1.69 *************** *** 165,169 **** in-system ! : is-default ( cfa -<name>- ) \ set the default field of a deferred word state @ if POSTPONE @(ip) POSTPONE _is-default --- 165,170 ---- in-system ! : is-default ( cfa -<name>- ) ! \ G* Set the default field of a deferred word. state @ if POSTPONE @(ip) POSTPONE _is-default *************** *** 171,175 **** then ; immediate ! : restore-default ( -<name>- ) \ reset name to its default function state @ if POSTPONE _restore_default --- 172,177 ---- then ; immediate ! : restore-default ( -<name>- ) ! \ *G Reset name to its default function. state @ if POSTPONE _restore_default |
|
From: Jos v.d.V. <jo...@us...> - 2014-01-14 12:21:03
|
Update of /cvsroot/win32forth/win32forth/src/kernel In directory sfp-cvs-1.v30.ch3.sourceforge.com:/tmp/cvs-serv28807 Modified Files: fkernel.f Log Message: Jos Doc update to avoid future searches Index: fkernel.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/kernel/fkernel.f,v retrieving revision 1.100 retrieving revision 1.101 diff -C2 -d -r1.100 -r1.101 *** fkernel.f 9 Dec 2013 19:34:37 -0000 1.100 --- fkernel.f 14 Jan 2014 12:21:00 -0000 1.101 *************** *** 4606,4609 **** --- 4606,4610 ---- \ ** Typical usage ' new-action is deferred-action \ ** -or- : new-word ['] new-action is deferred-action ; + \ ** See also: is-default restore-default action-of defer@ defer! HEADER DODEFER COMPILE, COMPILE NOOP |
|
From: George H. <geo...@us...> - 2014-01-03 10:11:26
|
Update of /cvsroot/win32forth/win32forth-extsrc/extsrc/installer In directory sfp-cvs-1.v30.ch3.sourceforge.com:/tmp/cvs-serv7374 Modified Files: Files.nsi Uninstall.nsi Win32Forth.nsi Log Message: Updated for WinVersion.f Index: Files.nsi =================================================================== RCS file: /cvsroot/win32forth/win32forth-extsrc/extsrc/installer/Files.nsi,v retrieving revision 1.13 retrieving revision 1.14 diff -C2 -d -r1.13 -r1.14 *** Files.nsi 11 Mar 2013 00:15:22 -0000 1.13 --- Files.nsi 3 Jan 2014 10:11:23 -0000 1.14 *************** *** 41,111 **** File "..\..\..\win32forth\apps\Console-Games\strek.f" File "..\..\..\win32forth\apps\Console-Games\tetris.f" ! SetOutPath "$INSTDIR\apps\ForthForm\" ! File "..\..\..\win32forth\apps\ForthForm\ABOUT.F" ! File "..\..\..\win32forth\apps\ForthForm\CONTROLPROPERTYII.ff" ! File "..\..\..\win32forth\apps\ForthForm\CreateMenu.f" ! File "..\..\..\win32forth\apps\ForthForm\CreateMenuFormII.ff" ! File "..\..\..\win32forth\apps\ForthForm\CreatePropertyForm.f" ! File "..\..\..\win32forth\apps\ForthForm\CreatePropertyForm.ff" ! File "..\..\..\win32forth\apps\ForthForm\CreateToolBar.f" ! File "..\..\..\win32forth\apps\ForthForm\CreateToolBarForm.ff" ! File "..\..\..\win32forth\apps\ForthForm\EXAMPLE.F" ! File "..\..\..\win32forth\apps\ForthForm\EXAMPLE.ff" ! File "..\..\..\win32forth\apps\ForthForm\EXAMPLE.frm" ! File "..\..\..\win32forth\apps\ForthForm\ExampleII.f" ! File "..\..\..\win32forth\apps\ForthForm\EXAMPLEII.ff" ! File "..\..\..\win32forth\apps\ForthForm\EXAMPLEII.frm" ! File "..\..\..\win32forth\apps\ForthForm\FORMCONTROLS.F" ! File "..\..\..\win32forth\apps\ForthForm\FormHelp.f" ! File "..\..\..\win32forth\apps\ForthForm\FormMenu.f" ! File "..\..\..\win32forth\apps\ForthForm\FormMonitor.f" ! File "..\..\..\win32forth\apps\ForthForm\FORMOBJECT.F" ! File "..\..\..\win32forth\apps\ForthForm\FormPad.f" ! File "..\..\..\win32forth\apps\ForthForm\FormPad.ff" ! File "..\..\..\win32forth\apps\ForthForm\FORMPROPERTY.F" ! File "..\..\..\win32forth\apps\ForthForm\FORMPROPERTY.ff" ! File "..\..\..\win32forth\apps\ForthForm\Forms.frm" ! File "..\..\..\win32forth\apps\ForthForm\FORMTOOLBAR.F" ! File "..\..\..\win32forth\apps\ForthForm\FORTHFORM.F" ! File "..\..\..\win32forth\apps\ForthForm\GroupAction.f" ! File "..\..\..\win32forth\apps\ForthForm\GroupAction.ff" ! File "..\..\..\win32forth\apps\ForthForm\JoinStr.f" ! File "..\..\..\win32forth\apps\ForthForm\New Files.txt" ! File "..\..\..\win32forth\apps\ForthForm\POINT.F" ! File "..\..\..\win32forth\apps\ForthForm\PREFERENCES.ff" ! File "..\..\..\win32forth\apps\ForthForm\RECT.F" ! File "..\..\..\win32forth\apps\ForthForm\Splitter1.f" ! File "..\..\..\win32forth\apps\ForthForm\Splitter2.f" ! File "..\..\..\win32forth\apps\ForthForm\Splitter3.f" ! File "..\..\..\win32forth\apps\ForthForm\Splitter4.f" ! File "..\..\..\win32forth\apps\ForthForm\Splitter5.f" ! File "..\..\..\win32forth\apps\ForthForm\Splitter6.f" ! File "..\..\..\win32forth\apps\ForthForm\SplitterWindow.f" ! File "..\..\..\win32forth\apps\ForthForm\SplitterWindow.ff" ! File "..\..\..\win32forth\apps\ForthForm\TABORDER.F" ! File "..\..\..\win32forth\apps\ForthForm\TabPropertyWindow.ff" ! File "..\..\..\win32forth\apps\ForthForm\TESTEXAMPLE.F" ! SetOutPath "$INSTDIR\apps\ForthForm\res\" ! File "..\..\..\win32forth\apps\ForthForm\res\FFBITMAPS.BMP" ! File "..\..\..\win32forth\apps\ForthForm\res\folder.bmp" ! File "..\..\..\win32forth\apps\ForthForm\res\PICTURE.BMP" ! File "..\..\..\win32forth\apps\ForthForm\res\save1.bmp" ! File "..\..\..\win32forth\apps\ForthForm\res\save2.bmp" ! File "..\..\..\win32forth\apps\ForthForm\res\SCRLDOWN.BMP" ! File "..\..\..\win32forth\apps\ForthForm\res\SCRLleft.BMP" ! File "..\..\..\win32forth\apps\ForthForm\res\SCRLRight.BMP" ! File "..\..\..\win32forth\apps\ForthForm\res\SCRLUP.BMP" ! File "..\..\..\win32forth\apps\ForthForm\res\splitwin-type1.bmp" ! File "..\..\..\win32forth\apps\ForthForm\res\splitwin-type2.BMP" ! File "..\..\..\win32forth\apps\ForthForm\res\Splitwin-type3.bmp" ! File "..\..\..\win32forth\apps\ForthForm\res\Splitwin-type4.bmp" ! File "..\..\..\win32forth\apps\ForthForm\res\Splitwin-type5.bmp" ! File "..\..\..\win32forth\apps\ForthForm\res\Splitwin-type6.bmp" ! File "..\..\..\win32forth\apps\ForthForm\res\STATIC.BMP" ! File "..\..\..\win32forth\apps\ForthForm\res\stop1.BMP" ! File "..\..\..\win32forth\apps\ForthForm\res\stop2.BMP" SetOutPath "$INSTDIR\apps\Internet\" File "..\..\..\win32forth\apps\Internet\iRipper.f" File "..\..\..\win32forth\apps\Internet\telnet.f" SetOutPath "$INSTDIR\apps\Internet\WebServer\" File "..\..\..\win32forth\apps\Internet\WebServer\DSTR.F" --- 41,49 ---- File "..\..\..\win32forth\apps\Console-Games\strek.f" File "..\..\..\win32forth\apps\Console-Games\tetris.f" ! SetOutPath "$INSTDIR\apps\Internet\" File "..\..\..\win32forth\apps\Internet\iRipper.f" File "..\..\..\win32forth\apps\Internet\telnet.f" + SetOutPath "$INSTDIR\apps\Internet\WebServer\" File "..\..\..\win32forth\apps\Internet\WebServer\DSTR.F" *************** *** 118,121 **** --- 56,60 ---- File "..\..\..\win32forth\apps\Internet\WebServer\sockserv.f" File "..\..\..\win32forth\apps\Internet\WebServer\WebServer.F" + SetOutPath "$INSTDIR\apps\PictureViewer\" File "..\..\..\win32forth\apps\PictureViewer\AddPVResourcesToWin32for.f" *************** *** 131,134 **** --- 70,74 ---- File "..\..\..\win32forth\apps\PictureViewer\PVToolbar.f" File "..\..\..\win32forth\apps\PictureViewer\RotateBits.f" + SetOutPath "$INSTDIR\apps\PictureViewer\Res\" File "..\..\..\win32forth\apps\PictureViewer\Res\Blank.cur" *************** *** 157,160 **** --- 97,101 ---- File "..\..\..\win32forth\apps\PictureViewer\Res\PVres.BAT" File "..\..\..\win32forth\apps\PictureViewer\Res\Toolbar.bmp" + SetOutPath "$INSTDIR\apps\Player4\" File "..\..\..\win32forth\apps\Player4\Catalog.f" *************** *** 182,219 **** File "..\..\..\win32forth\apps\Player4\View.f" File "..\..\..\win32forth\apps\Player4\view.ff" SetOutPath "$INSTDIR\apps\PlayVirginRadio\" File "..\..\..\win32forth\apps\PlayVirginRadio\PlayVirginRadio.exe.manifest" File "..\..\..\win32forth\apps\PlayVirginRadio\PlayVirginRadio.f" File "..\..\..\win32forth\apps\PlayVirginRadio\Virgin.ico" ! SetOutPath "$INSTDIR\apps\ProMgr\" ! File "..\..\..\win32forth\apps\ProMgr\AboutForm.f" ! File "..\..\..\win32forth\apps\ProMgr\HexViewer.f" ! File "..\..\..\win32forth\apps\ProMgr\PMMenu.f" ! File "..\..\..\win32forth\apps\ProMgr\ProjectManager.f" ! File "..\..\..\win32forth\apps\ProMgr\zipper.f" ! SetOutPath "$INSTDIR\apps\ProMgr\res\" ! File "..\..\..\win32forth\apps\ProMgr\res\pbitmaps.BMP" ! File "..\..\..\win32forth\apps\ProMgr\res\ToolbarBitmaps.bmp" ! File "..\..\..\win32forth\apps\ProMgr\res\treeimages.bmp" ! SetOutPath "$INSTDIR\apps\SciEdit\" ! File "..\..\..\win32forth\apps\SciEdit\AnsLink.f" ! File "..\..\..\win32forth\apps\SciEdit\ClassBrowser.f" ! File "..\..\..\win32forth\apps\SciEdit\CommandID.f" ! File "..\..\..\win32forth\apps\SciEdit\EdAbout.f" ! File "..\..\..\win32forth\apps\SciEdit\EdCommand.f" ! File "..\..\..\win32forth\apps\SciEdit\EdCompile.f" ! File "..\..\..\win32forth\apps\SciEdit\EdDebug.f" ! File "..\..\..\win32forth\apps\SciEdit\EdFindInFiles.f" ! File "..\..\..\win32forth\apps\SciEdit\EdMenu.f" ! File "..\..\..\win32forth\apps\SciEdit\EdRemote.f" ! File "..\..\..\win32forth\apps\SciEdit\EdStatusbar.f" ! File "..\..\..\win32forth\apps\SciEdit\EdToolbar.f" ! File "..\..\..\win32forth\apps\SciEdit\EdVersion.f" ! File "..\..\..\win32forth\apps\SciEdit\Main.f" ! File "..\..\..\win32forth\apps\SciEdit\ScintillaHyperMDI.f" ! File "..\..\..\win32forth\apps\SciEdit\ScintillaMDI.f" ! File "..\..\..\win32forth\apps\SciEdit\X_SEARCH.F" ! SetOutPath "$INSTDIR\apps\SciEdit\res\" ! File "..\..\..\win32forth\apps\SciEdit\res\Toolbar.bmp" SetOutPath "$INSTDIR\apps\Setup\" File "..\..\..\win32forth\apps\Setup\COM01.F" --- 123,132 ---- File "..\..\..\win32forth\apps\Player4\View.f" File "..\..\..\win32forth\apps\Player4\view.ff" + SetOutPath "$INSTDIR\apps\PlayVirginRadio\" File "..\..\..\win32forth\apps\PlayVirginRadio\PlayVirginRadio.exe.manifest" File "..\..\..\win32forth\apps\PlayVirginRadio\PlayVirginRadio.f" File "..\..\..\win32forth\apps\PlayVirginRadio\Virgin.ico" ! SetOutPath "$INSTDIR\apps\Setup\" File "..\..\..\win32forth\apps\Setup\COM01.F" *************** *** 223,226 **** --- 136,140 ---- File "..\..\..\win32forth\apps\Setup\Setup.f" File "..\..\..\win32forth\apps\Setup\Setup_dtop_lnk.f" + SetOutPath "$INSTDIR\apps\Solipon2\" File "..\..\..\win32forth\apps\Solipon2\051.SOL" *************** *** 273,276 **** --- 187,191 ---- File "..\..\..\win32forth\apps\Solipon2\Sound.f" File "..\..\..\win32forth\apps\Solipon2\YAHOO.WAV" + SetOutPath "$INSTDIR\apps\Sudoku\" File "..\..\..\win32forth\apps\Sudoku\Applause7.wav" *************** *** 284,287 **** --- 199,203 ---- File "..\..\..\win32forth\apps\Sudoku\SudokuStatusBar.f" File "..\..\..\win32forth\apps\Sudoku\SudokuToolbar.f" + SetOutPath "$INSTDIR\apps\Sudoku\Games\" File "..\..\..\win32forth\apps\Sudoku\Games\Easy1.sku" *************** *** 335,338 **** --- 251,255 ---- File "..\..\..\win32forth\apps\Sudoku\Games\Standard8.sku" File "..\..\..\win32forth\apps\Sudoku\Games\Standard9.sku" + SetOutPath "$INSTDIR\apps\Sudoku\Res\" File "..\..\..\win32forth\apps\Sudoku\Res\arrow_m0.cur" *************** *** 350,353 **** --- 267,271 ---- File "..\..\..\win32forth\apps\Sudoku\Res\SudokuDialog.RES" File "..\..\..\win32forth\apps\Sudoku\Res\Toolbar.bmp" + SetOutPath "$INSTDIR\apps\Win32ForthIDE\" File "..\..\..\win32forth\apps\Win32ForthIDE\AnsLink.f" *************** *** 401,404 **** --- 319,323 ---- File "..\..\..\win32forth\apps\Win32ForthIDE\TABORDER.F" File "..\..\..\win32forth\apps\Win32ForthIDE\X_SEARCH.F" + SetOutPath "$INSTDIR\apps\Win32ForthIDE\Forms\" File "..\..\..\win32forth\apps\Win32ForthIDE\Forms\ChooseIcon.ff" *************** *** 447,450 **** --- 366,370 ---- File "..\..\..\win32forth\apps\Win32ForthIDE\Forms\TabPropertyWindow.ff" File "..\..\..\win32forth\apps\Win32ForthIDE\Forms\TabPropertyWindow.frm" + SetOutPath "$INSTDIR\apps\Win32ForthIDE\res\" File "..\..\..\win32forth\apps\Win32ForthIDE\res\copy.bmp" *************** *** 478,481 **** --- 398,402 ---- File "..\..\..\win32forth\apps\Win32ForthIDE\res\WinEdit.h" File "..\..\..\win32forth\apps\Win32ForthIDE\res\WinEdit.res" + SetOutPath "$INSTDIR\apps\WinEd\" File "..\..\..\win32forth\apps\WinEd\Ed_About.F" *************** *** 516,519 **** --- 437,441 ---- File "..\..\..\win32forth\apps\WinEd\WinEd.f" File "..\..\..\win32forth\apps\WinEd\X_SEARCH.F" + SetOutPath "$INSTDIR\apps\WinEd\res\" File "..\..\..\win32forth\apps\WinEd\res\WinEd.bmp" *************** *** 521,524 **** --- 443,447 ---- File "..\..\..\win32forth\apps\WinEd\res\WinEdit.h" File "..\..\..\win32forth\apps\WinEd\res\WinEdit.res" + SetOutPath "$INSTDIR\demos\" File "..\..\..\win32forth\demos\BANNER.BLK" *************** *** 558,565 **** --- 481,490 ---- File "..\..\..\win32forth\demos\WINSER.F" File "..\..\..\win32forth\demos\WinSock Demo.f" + SetOutPath "$INSTDIR\demos\AccelDemo\" File "..\..\..\win32forth\demos\AccelDemo\Accel.f" File "..\..\..\win32forth\demos\AccelDemo\AccelDemo.bmp" File "..\..\..\win32forth\demos\AccelDemo\AccelDemo.f" + SetOutPath "$INSTDIR\demos\ADO\" File "..\..\..\win32forth\demos\ADO\ADOreadme.txt" *************** *** 569,572 **** --- 494,498 ---- File "..\..\..\win32forth\demos\ADO\EX_Ins.f" File "..\..\..\win32forth\demos\ADO\EX_InsSQL.f" + SetOutPath "$INSTDIR\demos\COM\" File "..\..\..\win32forth\demos\COM\D3Dtest.f" *************** *** 575,578 **** --- 501,505 ---- File "..\..\..\win32forth\demos\COM\EX_DDRAW.F" File "..\..\..\win32forth\demos\COM\EX_SAPI.F" + SetOutPath "$INSTDIR\demos\GdiDemo\" File "..\..\..\win32forth\demos\GdiDemo\BitBlt.f" *************** *** 583,590 **** --- 510,519 ---- File "..\..\..\win32forth\demos\GdiDemo\TextList.f" File "..\..\..\win32forth\demos\GdiDemo\TxtAlign.f" + SetOutPath "$INSTDIR\demos\MiniDB\" File "..\..\..\win32forth\demos\MiniDB\EditDB.f" File "..\..\..\win32forth\demos\MiniDB\MiniDB.f" File "..\..\..\win32forth\demos\MiniDB\STARTDB.F" + SetOutPath "$INSTDIR\doc\" File "..\..\..\win32forth\doc\FreeImagePublicLicense.txt" *************** *** 632,635 **** --- 561,565 ---- File "..\..\..\win32forth\doc\ForthForm\Forthform.gif" File "..\..\..\win32forth\doc\ForthForm\ForthForm.htm" + SetOutPath "$INSTDIR\doc\Noble stuff\" File "..\..\..\win32forth\doc\Noble stuff\bin_rts.txt" *************** *** 646,649 **** --- 576,580 ---- File "..\..\..\win32forth\doc\Noble stuff\vector1.f" File "..\..\..\win32forth\doc\Noble stuff\vector1.htm" + SetOutPath "$INSTDIR\doc\OldStuff\" File "..\..\..\win32forth\doc\OldStuff\DPANS94.TXT" *************** *** 653,656 **** --- 584,588 ---- File "..\..\..\win32forth\doc\OldStuff\w32f-glossary.csv" File "..\..\..\win32forth\doc\OldStuff\Windlls-Dangerous trick.htm" + SetOutPath "$INSTDIR\doc\OldStuff\OldConsole\" File "..\..\..\win32forth\doc\OldStuff\OldConsole\BasicWin.f" *************** *** 670,673 **** --- 602,606 ---- File "..\..\..\win32forth\doc\OldStuff\OldConsole\w32fConsole.dll" File "..\..\..\win32forth\doc\OldStuff\OldConsole\WinBase.f" + SetOutPath "$INSTDIR\Help\" File "..\..\..\win32forth\Help\FileParser.f" *************** *** 682,685 **** --- 615,619 ---- File "..\..\..\win32forth\Help\HelpTestTV.f" File "..\..\..\win32forth\Help\HelpWindow.f" + SetOutPath "$INSTDIR\Help\hdb\" File "..\..\..\win32forth\Help\hdb\Help.cfg" *************** *** 696,699 **** --- 630,634 ---- File "..\..\..\win32forth\Help\hdb\HelpWrd.tv" File "..\..\..\win32forth\Help\hdb\HelpWrd.txt" + SetOutPath "$INSTDIR\Help\html\" File "..\..\..\win32forth\Help\html\anew-w32f.htm" *************** *** 823,826 **** --- 758,762 ---- File "..\..\..\win32forth\Help\html\w32f-winedit.jpg" File "..\..\..\win32forth\Help\html\Win32ForthIDE.ico" + SetOutPath "$INSTDIR\Help\html\dpans\" File "..\..\..\win32forth\Help\html\dpans\A0001.HTM" *************** *** 876,879 **** --- 812,816 ---- File "..\..\..\win32forth\Help\html\dpans\RIGHT.GIF" File "..\..\..\win32forth\Help\html\dpans\UP.GIF" + SetOutPath "$INSTDIR\Help\html\Guides\" File "..\..\..\win32forth\Help\html\Guides\And_so_Forth.pdf" *************** *** 888,891 **** --- 825,829 ---- File "..\..\..\win32forth\Help\html\Guides\up.gif" File "..\..\..\win32forth\Help\html\Guides\win32for.gif" + SetOutPath "$INSTDIR\Help\html\IDE\" File "..\..\..\win32forth\Help\html\IDE\back.gif" *************** *** 934,937 **** --- 872,876 ---- File "..\..\..\win32forth\Help\html\IDE\Win32ForthIDE.htm" File "..\..\..\win32forth\Help\html\IDE\Win32ForthIDE.ico" + SetOutPath "$INSTDIR\Help\Res\" File "..\..\..\win32forth\Help\Res\HAcrobat.bmp" *************** *** 948,951 **** --- 887,891 ---- File "..\..\..\win32forth\Help\Res\HSource.bmp" File "..\..\..\win32forth\Help\Res\Hwww.bmp" + SetOutPath "$INSTDIR\proj\" File "..\..\..\win32forth\proj\Chess.fpj" *************** *** 954,959 **** File "..\..\..\win32forth\proj\Player4th.fpj" File "..\..\..\win32forth\proj\PlayVirginRadio.fpj" - File "..\..\..\win32forth\proj\ProMgr.fpj" - File "..\..\..\win32forth\proj\SciEdit.fpj" File "..\..\..\win32forth\proj\Solipon.fpj" File "..\..\..\win32forth\proj\Sudoku.fpj" --- 894,897 ---- *************** *** 1023,1028 **** --- 961,968 ---- File "..\..\..\win32forth\src\Winlib.f" File "..\..\..\win32forth\src\WINMSG.F" + File "..\..\..\win32forth\src\WinVersion.f" File "..\..\..\win32forth\src\WORDS.F" File "..\..\..\win32forth\src\xfiledlg.f" + SetOutPath "$INSTDIR\src\Compat\" File "..\..\..\win32forth\src\Compat\Compatibility.f" *************** *** 1031,1034 **** --- 971,975 ---- File "..\..\..\win32forth\src\Compat\OldPaths.f" File "..\..\..\win32forth\src\Compat\Release.f" + SetOutPath "$INSTDIR\src\console\" File "..\..\..\win32forth\src\console\CommandWindow.f" *************** *** 1040,1043 **** --- 981,985 ---- File "..\..\..\win32forth\src\console\NewConsole.f" File "..\..\..\win32forth\src\console\NewConsole.txt" + SetOutPath "$INSTDIR\src\gdi\" File "..\..\..\win32forth\src\gdi\gdi.f" *************** *** 1053,1056 **** --- 995,999 ---- File "..\..\..\win32forth\src\gdi\gdiTools.f" File "..\..\..\win32forth\src\gdi\gdiWindowDc.f" + SetOutPath "$INSTDIR\src\kernel\" File "..\..\..\win32forth\src\kernel\fkernel.f" *************** *** 1063,1066 **** --- 1006,1010 ---- File "..\..\..\win32forth\src\kernel\MetaDlg.frm" File "..\..\..\win32forth\src\kernel\version.f" + SetOutPath "$INSTDIR\src\lib\" File "..\..\..\win32forth\src\lib\AcceleratorTables.f" *************** *** 1146,1149 **** --- 1090,1094 ---- File "..\..\..\win32forth\src\lib\Win32Help.f" File "..\..\..\win32forth\src\lib\w_search.f" + SetOutPath "$INSTDIR\src\lib\Ext_classes\" File "..\..\..\win32forth\src\lib\Ext_classes\$X.F" *************** *** 1155,1158 **** --- 1100,1104 ---- File "..\..\..\win32forth\src\lib\Ext_classes\Sequence.f" File "..\..\..\win32forth\src\lib\Ext_classes\VAR11.F" + SetOutPath "$INSTDIR\src\lib\fmacro\" File "..\..\..\win32forth\src\lib\fmacro\FMACRO.F" *************** *** 1162,1165 **** --- 1108,1112 ---- File "..\..\..\win32forth\src\lib\fmacro\PROFILER.F" File "..\..\..\win32forth\src\lib\fmacro\SIEVE.F" + SetOutPath "$INSTDIR\src\old\" File "..\..\..\win32forth\src\old\ASSERT.F" *************** *** 1177,1180 **** --- 1124,1128 ---- File "..\..\..\win32forth\src\old\VCALL.F" File "..\..\..\win32forth\src\old\WINSTACK.F" + SetOutPath "$INSTDIR\src\res\" File "..\..\..\win32forth\src\res\Forthdlg.h" *************** *** 1188,1191 **** --- 1136,1140 ---- File "..\..\..\win32forth\src\res\Win32For.ico" File "..\..\..\win32forth\src\res\WinEd.ico" + SetOutPath "$INSTDIR\src\tools\" File "..\..\..\win32forth\src\tools\AxConInfo.f" *************** *** 1205,1208 **** --- 1154,1158 ---- File "..\..\..\win32forth\src\tools\W32fdexh.f" File "..\..\..\win32forth\src\tools\xref.f" + SetOutPath "$INSTDIR\Templates\" File "..\..\..\win32forth\Templates\MinimalWindow.f" Index: Uninstall.nsi =================================================================== RCS file: /cvsroot/win32forth/win32forth-extsrc/extsrc/installer/Uninstall.nsi,v retrieving revision 1.13 retrieving revision 1.14 diff -C2 -d -r1.13 -r1.14 *** Uninstall.nsi 11 Mar 2013 00:15:22 -0000 1.13 --- Uninstall.nsi 3 Jan 2014 10:11:23 -0000 1.14 *************** *** 990,993 **** --- 990,994 ---- Delete "$INSTDIR\src\Winlib.f" Delete "$INSTDIR\src\WINMSG.F" + Delete "$INSTDIR\src\WinVersion.f" Delete "$INSTDIR\src\WORDS.F" Delete "$INSTDIR\src\xfiledlg.f" Index: Win32Forth.nsi =================================================================== RCS file: /cvsroot/win32forth/win32forth-extsrc/extsrc/installer/Win32Forth.nsi,v retrieving revision 1.18 retrieving revision 1.19 diff -C2 -d -r1.18 -r1.19 *** Win32Forth.nsi 21 Jul 2013 00:30:16 -0000 1.18 --- Win32Forth.nsi 3 Jan 2014 10:11:23 -0000 1.19 *************** *** 44,78 **** WriteRegStr HKCR "f_auto_file\shell" "" "open" WriteRegStr HKCR "f_auto_file\shell\open\command" "" '"$INSTDIR\WinEd.exe" "%1"' AFE1: ! ; MessageBox MB_YESNO|MB_ICONQUESTION "Should the file extention .F be associated with 'SciEdit'?" IDNO AFE2 ! ; WriteRegStr HKCR ".f" "" "f_auto_file" ! ; WriteRegStr HKCR "f_auto_file" "" "${APPNAME} Sourcefile" ! ; WriteRegStr HKCR "f_auto_file\shell" "" "open" ! ; WriteRegStr HKCR "f_auto_file\shell\open\command" "" '"$INSTDIR\SciEditMdi.EXE" "%1"' ! AFE2: ! MessageBox MB_YESNO|MB_ICONQUESTION "Should the file extention .F be associated with the 'Win32Forth IDE'?" IDNO AFE3 WriteRegStr HKCR ".f" "" "f_auto_file" WriteRegStr HKCR "f_auto_file" "" "${APPNAME} Sourcefile" WriteRegStr HKCR "f_auto_file\shell" "" "open" WriteRegStr HKCR "f_auto_file\shell\open\command" "" '"$INSTDIR\Win32ForthIDE.EXE" "%1"' ! AFE3: ! ; MessageBox MB_YESNO|MB_ICONQUESTION "Should the file extention .FF be associated with 'ForthForm'?" IDNO AFE4 ! ; WriteRegStr HKCR ".ff" "" "ff_auto_file" ! ; WriteRegStr HKCR "ff_auto_file" "" "${APPNAME} Form" ! ; WriteRegStr HKCR "ff_auto_file\shell" "" "open" ! ; WriteRegStr HKCR "ff_auto_file\shell\open\command" "" '"$INSTDIR\ForthForm.exe" "%1"' ! AFE4: ! ; MessageBox MB_YESNO|MB_ICONQUESTION "Should the file extention .FPJ be associated with 'ProjectManager'?" IDNO AFE5 ! ; WriteRegStr HKCR ".fpj" "" "fpj_auto_file" ! ; WriteRegStr HKCR "fpj_auto_file" "" "${APPNAME} Projectfile" ! ; WriteRegStr HKCR "fpj_auto_file\shell" "" "open" ! ; WriteRegStr HKCR "fpj_auto_file\shell\open\command" "" '"$INSTDIR\Project.exe" "%1"' ! AFE5: ! MessageBox MB_YESNO|MB_ICONQUESTION "Should the file extention .FPJ be associated with the 'Win32Forth IDE'?" IDNO AFE6 WriteRegStr HKCR ".fpj" "" "fpj_auto_file" WriteRegStr HKCR "fpj_auto_file" "" "${APPNAME} Projectfile" WriteRegStr HKCR "fpj_auto_file\shell" "" "open" WriteRegStr HKCR "fpj_auto_file\shell\open\command" "" '"$INSTDIR\Win32ForthIDE.exe" "%1"' ! AFE6: FunctionEnd --- 44,62 ---- WriteRegStr HKCR "f_auto_file\shell" "" "open" WriteRegStr HKCR "f_auto_file\shell\open\command" "" '"$INSTDIR\WinEd.exe" "%1"' + AFE1: ! MessageBox MB_YESNO|MB_ICONQUESTION "Should the file extention .F be associated with the 'Win32Forth IDE'?" IDNO AFE2 WriteRegStr HKCR ".f" "" "f_auto_file" WriteRegStr HKCR "f_auto_file" "" "${APPNAME} Sourcefile" WriteRegStr HKCR "f_auto_file\shell" "" "open" WriteRegStr HKCR "f_auto_file\shell\open\command" "" '"$INSTDIR\Win32ForthIDE.EXE" "%1"' ! ! AFE2: ! MessageBox MB_YESNO|MB_ICONQUESTION "Should the file extention .FPJ be associated with the 'Win32Forth IDE'?" IDNO AFE3 WriteRegStr HKCR ".fpj" "" "fpj_auto_file" WriteRegStr HKCR "fpj_auto_file" "" "${APPNAME} Projectfile" WriteRegStr HKCR "fpj_auto_file\shell" "" "open" WriteRegStr HKCR "fpj_auto_file\shell\open\command" "" '"$INSTDIR\Win32ForthIDE.exe" "%1"' ! AFE3: FunctionEnd |
|
From: George H. <geo...@us...> - 2013-12-17 20:35:25
|
Update of /cvsroot/win32forth/win32forth/src In directory sfp-cvs-1.v30.ch3.sourceforge.com:/tmp/cvs-serv29588 Added Files: Winversion.f Log Message: New file of code from primutils.f --- NEW FILE: Winversion.f --- \ $Id: Winversion.f,v 1.1 2013/12/17 20:35:23 georgeahubert Exp $ \ ---------------- Operating System Checking -------------------------- \ Moved here from PrimUtil.f 1 PROC GetVersionEx version# ((version)) 0. 2swap >number 3drop 7 < [if] \ For V6.xx.xx suporting older OSs 1 constant win95 2 constant win98 3 constant winme 4 constant winnt351 5 constant winnt4 [then] 6 constant win2k 7 constant winxp 8 constant win2003 \ Windows Server 2003 R2 9 constant winvista \ Windows Vista 10 constant win2008 \ Windows Server 2008 11 constant win2008r2 \ Windows Server 2008 R2 12 constant win7 \ Windows 7 13 constant win8 \ Windows 8 \ To check for a version, say Win2K or greater, try WINVER WIN2K >= \ NOTE The future V7.xx.xx and later will only support WIN2K or greaeter anyway. 0 value winver : winver-init ( -- ) \ get windows version 156 dup _localalloc dup>r ! \ set length of OSVERSIONINFOEX structure r@ call GetVersionEx \ call os for version [ version# ((version)) 0. 2swap >number 3drop 7 < ] [if] \ For V6.xx.xx suporting older OSs dup 0= if drop 148 r@ ! r@ call GetVersionEx then \ try lower size for win98FE (and possibly win95) [then] 0= abort" call failed" r@ 4 cells+ @ \ get osplatformid case [ version# ((version)) 0. 2swap >number 3drop 7 < ] [if] \ For V6.xx.xx suporting older OSs 1 of \ 95, 98, and me r@ 2 cells+ @ \ minorversion case 0 of win95 endof \ 95 10 of win98 endof \ 98 90 of winme endof \ me endcase endof [then] 2 of \ nt, 2k, xp r@ cell+ @ \ majorversion case [ version# ((version)) 0. 2swap >number 3drop 7 < ] [if] \ For V6.xx.xx suporting older OSs 3 of winnt351 endof \ nt351 4 of winnt4 endof \ nt4 [then] 5 of r@ 2 cells+ @ \ minor version case 0 of win2k endof \ win2k 1 of winxp endof \ winxp 2 of win2003 endof \ 2003 endcase endof 6 of r@ 2 cells+ @ \ minor version case 0 of r@ 154 + c@ \ Product Type VER_NT_WORKSTATION = if winvista \ Windows Vista else win2008 \ Windows Server 2008 then endof 1 of r@ 154 + c@ \ Product Type VER_NT_WORKSTATION = if win7 \ Windows 7 else win2008r2 \ Windows Server 2008 R2 then endof 2 of r@ 154 + c@ \ Product Type VER_NT_WORKSTATION = if win8 \ Windows 8 else win2008r2 \ Windows Server 2008 R2 then endof drop -2 dup \ unknown product Type endcase endof drop -1 dup \ unknown windows version endcase endof endcase to winver rdrop _localfree ; initialization-chain chain-add winver-init winver-init |
|
From: George H. <geo...@us...> - 2013-12-17 19:25:53
|
Update of /cvsroot/win32forth/win32forth In directory sfp-cvs-1.v30.ch3.sourceforge.com:/tmp/cvs-serv25360 Modified Files: WinEdColorize.f fkernel.exe Log Message: Minor bug fixes and enhancements Index: WinEdColorize.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/WinEdColorize.f,v retrieving revision 1.3 retrieving revision 1.4 diff -C2 -d -r1.3 -r1.4 *** WinEdColorize.f 13 May 2007 07:52:25 -0000 1.3 --- WinEdColorize.f 17 Dec 2013 19:25:20 -0000 1.4 *************** *** 26,69 **** 9 13 CALL 1 16 ENTRY ! 1 18 CODE defining words that come in pairs 1 12 CFA-CODE green 1 12 CFA-FUNC 1 12 END-CODE yellow 1 12 C; ! 9 9 : 9 1 :M does not color the second word like it should ! 1 9 :NONAME ! 1 9 ; ! 1 9 :M ! 1 9 ;M ! 1 9 :CLASS ! 1 9 ;CLASS ltyellow ! 1 9 :OBJECT ! 1 9 ;OBJECT ! 1 9 EXIT unusual control things that should stand out ! 1 9 ?EXIT ! 1 9 LEAVE ! 1 9 UNLOOP ! 1 9 QUIT ! 1 9 RECURSE ! 1 9 IF control structures ! 1 9 -IF ! 1 9 ELSE ! 1 9 THEN ! 1 9 BEGIN ! 1 9 WHILE ! 1 9 REPEAT ! 1 9 AGAIN ! 1 9 UNTIL ! 1 9 CONTINUE ! 1 9 DO ! 1 9 ?DO ! 1 9 DO-THRU ! 1 9 LOOP ! 1 9 +LOOP ! 1 9 CASE ! 1 9 OF ! 1 9 ENDOF ! 1 9 ENDCASE 1 6 HERE dictionary and search order 1 6 ORG --- 26,69 ---- 9 13 CALL 1 16 ENTRY ! 1 12 CODE defining words that come in pairs 1 12 CFA-CODE green 1 12 CFA-FUNC 1 12 END-CODE yellow 1 12 C; ! 9 12 : 9 1 :M does not color the second word like it should ! 1 12 :NONAME ! 1 12 ; ! 1 12 :M ! 1 12 ;M ! 1 12 :CLASS ! 1 12 ;CLASS ltyellow ! 1 12 :OBJECT ! 1 12 ;OBJECT ! 1 12 EXIT unusual control things that should stand out ! 1 12 ?EXIT ! 1 12 LEAVE ! 1 12 UNLOOP ! 1 12 QUIT ! 1 12 RECURSE ! 1 12 IF control structures ! 1 12 -IF ! 1 12 ELSE ! 1 12 THEN ! 1 12 BEGIN ! 1 12 WHILE ! 1 12 REPEAT ! 1 12 AGAIN ! 1 12 UNTIL ! 1 12 CONTINUE ! 1 12 DO ! 1 12 ?DO ! 1 12 DO-THRU ! 1 12 LOOP ! 1 12 +LOOP ! 1 12 CASE ! 1 12 OF ! 1 12 ENDOF ! 1 12 ENDCASE 1 6 HERE dictionary and search order 1 6 ORG *************** *** 81,85 **** 1 6 MARKER 1 6 ANEW ! 1 13 VALUE single defining words 1 5 CONSTANT 1 5 VARIABLE --- 81,85 ---- 1 6 MARKER 1 6 ANEW ! 1 5 VALUE single defining words 1 5 CONSTANT 1 5 VARIABLE *************** *** 342,346 **** 1 11 FLOOR 1 11 F-ROT ! 1 11 FPICK 1 11 FSQRT 1 11 FTUCK --- 342,346 ---- 1 11 FLOOR 1 11 F-ROT ! 1 11 FPICK 1 11 FSQRT 1 11 FTUCK *************** *** 425,492 **** \ 10 2 (( \ 11 2 )) - \ 3 0 ((( - - \s - #entry creates - entry creates - VALUES - entry# - entry-#bytes - editAsBinary? - WinEdWindow - WinEdToolbar - ConsoleWindow - - printed-columns - find-top-margin - - -right-edge - - low-right-edge - - start-text-size - - start-width - start-height - drag-barV - drag-barH - drag-thick - edit-min - console-height - listHeight - listHeightDefault - - using98/NT? - console-savelines - first-line-saved - - show-console? - recent-files? - - findComboEdit - addFileMenu - - colorize? - page-lines? - auto-new? - auto-margin? - mousedown? - focusing? - minimized? - tool-bar? - floating-bar? - min-tool-bar? - save-find? - WinEd-web? - save-margin? - all-occur? - - save-minutes - open-previous? - term-canceled? - as-pc? - start-browse? - interpreting? - max-toolbar - displayingLine --- 425,427 ---- Index: fkernel.exe =================================================================== RCS file: /cvsroot/win32forth/win32forth/fkernel.exe,v retrieving revision 1.66 retrieving revision 1.67 diff -C2 -d -r1.66 -r1.67 Binary files /tmp/cvsde5VcO and /tmp/cvs2a5KgJ differ |
|
From: George H. <geo...@us...> - 2013-12-17 19:25:25
|
Update of /cvsroot/win32forth/win32forth/src In directory sfp-cvs-1.v30.ch3.sourceforge.com:/tmp/cvs-serv25360/src Modified Files: BUTTON.F CONTROLS.F Class.f Dc.f GENERIC.F Primutil.f WINMSG.F Window.f Log Message: Minor bug fixes and enhancements Index: WINMSG.F =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/WINMSG.F,v retrieving revision 1.7 retrieving revision 1.8 diff -C2 -d -r1.7 -r1.8 *** WINMSG.F 20 Nov 2013 12:28:36 -0000 1.7 --- WINMSG.F 17 Dec 2013 19:25:22 -0000 1.8 *************** *** 11,16 **** int cols int rows ! int ontop? ! int msgactive int msg-string int msg-length --- 11,16 ---- int cols int rows ! ' wStatus1 alias ontop? ! ' wStatus2 alias msgactive int msg-string int msg-length *************** *** 32,36 **** :M GetActive: ( -- f1 ) \ is the message window active ! msgactive ;M --- 32,36 ---- :M GetActive: ( -- f1 ) \ is the message window active ! msgactive 0<> ;M *************** *** 115,119 **** ;Class ! msgwindow msg-window INTERNAL --- 115,119 ---- ;Class ! UserObject: msgwindow msg-window INTERNAL Index: GENERIC.F =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/GENERIC.F,v retrieving revision 1.32 retrieving revision 1.33 diff -C2 -d -r1.32 -r1.33 *** GENERIC.F 28 Nov 2013 20:51:55 -0000 1.32 --- GENERIC.F 17 Dec 2013 19:25:22 -0000 1.33 *************** *** 68,95 **** \ *G Base class for all window objects. - (( - \ Macros for backward compatibility - : wRect.addrof s" addrof: winrect" evaluate ; immediate - : wRect.left s" left: winrect" evaluate ; immediate - : wRect.right s" right: winrect" evaluate ; immediate - : wRect.top s" top: winrect" evaluate ; immediate - : wRect.bottom s" bottom: winrect" evaluate ; immediate - \ synonym TempRect.addrof wRect.addrof \ made a colon def - [cdo-2008May13] - \ synonym TempRect.left wRect.left \ made a colon def - [cdo-2008May13] - \ synonym TempRect.right wRect.right \ made a colon def - [cdo-2008May13] - \ synonym TempRect.top wRect.top \ made a colon def - [cdo-2008May13] - \ synonym TempRect.bottom wRect.bottom \ made a colon def - [cdo-2008May13] - - : TempRect.addrof \ synonym of wRect.addrof for backward compatibility - postpone wRect.addrof ; IMMEDIATE - : TempRect.left \ synonym of wRect.Left for backward compatibility - postpone wRect.left ; IMMEDIATE - : TempRect.right \ synonym of wRect.right for backward compatibility - postpone wRect.right ; IMMEDIATE - : TempRect.top \ synonym of wRect.top for backward compatibility - postpone wRect.top ; IMMEDIATE - : TempRect.bottom \ synonym of wRect.bottom for backward compatibility - postpone wRect.bottom ; IMMEDIATE - )) in-application --- 68,71 ---- *************** *** 330,334 **** hWnd if EraseRect: WinRect ! AddrOf: WinRect hWnd Call GetWindowRect ?win-error Left: WinRect Top: WinRect Right: WinRect Bottom: WinRect --- 306,310 ---- hWnd if EraseRect: WinRect ! WinRect hWnd Call GetWindowRect ?win-error Left: WinRect Top: WinRect Right: WinRect Bottom: WinRect Index: Dc.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/Dc.f,v retrieving revision 1.20 retrieving revision 1.21 diff -C2 -d -r1.20 -r1.21 *** Dc.f 6 Nov 2013 21:56:29 -0000 1.20 --- Dc.f 17 Dec 2013 19:25:22 -0000 1.21 *************** *** 323,327 **** Brush: PRINTFILLCOLOR left top right bottom SetRect: RECT ! RECT.AddrOf GetHandle: super ( 3 win-parameters ) Call FillRect ?win-error ;M --- 323,327 ---- Brush: PRINTFILLCOLOR left top right bottom SetRect: RECT ! RECT GetHandle: super ( 3 win-parameters ) Call FillRect ?win-error ;M Index: BUTTON.F =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/BUTTON.F,v retrieving revision 1.3 retrieving revision 1.4 diff -C2 -d -r1.3 -r1.4 *** BUTTON.F 26 Jun 2010 08:24:15 -0000 1.3 --- BUTTON.F 17 Dec 2013 19:25:22 -0000 1.4 *************** *** 699,703 **** 0 0 StartSize: self 1+ SetRect: WinRect ! Addrof: WinRect GetHandle: dc call FillRect ?win-error EraseRect: WinRect StartPos: self StartSize: self Move: self --- 699,703 ---- 0 0 StartSize: self 1+ SetRect: WinRect ! WinRect GetHandle: dc call FillRect ?win-error EraseRect: WinRect StartPos: self StartSize: self Move: self Index: CONTROLS.F =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/CONTROLS.F,v retrieving revision 1.14 retrieving revision 1.15 diff -C2 -d -r1.14 -r1.15 *** CONTROLS.F 20 Nov 2013 12:28:36 -0000 1.14 --- CONTROLS.F 17 Dec 2013 19:25:22 -0000 1.15 *************** *** 115,119 **** :M WM_SETCURSOR { hndl msg wparam lparam -- res } EraseRect: WinRect \ init to zeros ! AddrOf: WinRect GetClientRect: self hWnd get-mouse-xy Top: WinRect Bottom: WinRect between over Left: WinRect Right: WinRect between and --- 115,119 ---- :M WM_SETCURSOR { hndl msg wparam lparam -- res } EraseRect: WinRect \ init to zeros ! WinRect GetClientRect: self hWnd get-mouse-xy Top: WinRect Bottom: WinRect between over Left: WinRect Right: WinRect between and Index: Class.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/Class.f,v retrieving revision 1.46 retrieving revision 1.47 diff -C2 -d -r1.46 -r1.47 *** Class.f 9 Dec 2013 21:25:16 -0000 1.46 --- Class.f 17 Dec 2013 19:25:22 -0000 1.47 *************** *** 90,93 **** --- 90,95 ---- : class-allot ( n -- ) ^class DFA +! ; + : Class-align ( -- ) ^class dfa dup @ aligned swap ! ; + 0 value bitcnt 0 value bitmaxval *************** *** 415,419 **** \ from stack, if it's an array of objects THEN ! dLen cell+ idWid IF idWid #els * ( cell+ ) + \ get total length of obj --- 417,421 ---- \ from stack, if it's an array of objects THEN ! dLen ( cell+ ) idWid IF idWid #els * ( cell+ ) + \ get total length of obj *************** *** 467,470 **** --- 469,476 ---- fcall (heapObj) pop ecx + mov eax, UserObjectList [UP] + mov -4 [ecx], eax + lea eax, -4 [ecx] + mov UserObjectList [UP] , eax @@2: mov 0 [ecx], ebx @@3: next *************** *** 493,497 **** \ ** 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 --- 499,503 ---- \ ** 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 2 cells+ NEXT-USER ! cell+ , <building> ; internal *************** *** 973,979 **** if count name-max-chars min 2dup tempmsg$ place \ in case there is an error ! 2dup method-hash dup ?unhash ! if nip nip ! else >r unres-methods begin dup c@ while count + --- 979,985 ---- if count name-max-chars min 2dup tempmsg$ place \ in case there is an error ! 2dup hash-wid Search-Wordlist ! if execute nip nip ! else 2dup method-hash >r unres-methods begin dup c@ while count + *************** *** 1075,1078 **** --- 1081,1085 ---- \ ** in a Record: so only objects that don't use late binding can be used. -1 to contiguous-data? + Class-align header (&iv) , \ return address of array of bytes *************** *** 1187,1190 **** --- 1194,1198 ---- \ *G Long integer (32bit) instance variable. When used as an object variable has the same \ ** behaviour as VALUEs. + contiguous-data? 0= if Class-align then header (iv@) , *************** *** 1197,1200 **** --- 1205,1209 ---- : dint ( -"name"- ) \ W32F Class \ *G Double (64bit) instance variable. + contiguous-data? 0= if Class-align then header (ivd@) , *************** *** 1303,1306 **** --- 1312,1320 ---- ~: [ dup>r ] r> ( cell- ) Free THROW_DISPOSE_ERR ?throw ; + : ?Dispose ( addr -- ) + \ *G Dispose of a dynamically allocated object if address is non-zero. Allows storing either + \ ** 0 or an object address in a value. + ?dup if Dispose then ; + \ -------------------------------------------------------------------- \ ------------- Support for windows procedures etc ------------------- *************** *** 1365,1369 **** ;Class ! previous also in-system --- 1379,1389 ---- ;Class ! hashed definitions ! ! ' Addr: alias AddrOf: ! ! previous also definitions ! ! in-system *************** *** 1394,1398 **** \ ** ivar. Note dints perform the AND on the 2 cells of the ivar storing the result as the \ ** most significant cell, with n1 as the least. ! dup>r Get: self AND r> put: self ;M :M Or: ( n1 -- ) --- 1414,1418 ---- \ ** ivar. Note dints perform the AND on the 2 cells of the ivar storing the result as the \ ** most significant cell, with n1 as the least. ! dup>r Get: self AND r> put: self ;M :M Or: ( n1 -- ) *************** *** 1464,1469 **** EraseRect: self ;M - :M AddrOf: ( -- n1 ) AddrOf ;M - :M Addr: ( -- n1 ) AddrOf ;M :M Left: ( -- n1 ) Left ;M :M Top: ( -- n1 ) Top ;M --- 1484,1487 ---- Index: Window.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/Window.f,v retrieving revision 1.34 retrieving revision 1.35 diff -C2 -d -r1.34 -r1.35 *** Window.f 20 Nov 2013 12:28:36 -0000 1.34 --- Window.f 17 Dec 2013 19:25:22 -0000 1.35 *************** *** 165,169 **** r> self find-method execute SetRect: WinRect ! AddrOf: WinRect \ make a new rectangle Call AdjustWindowRectEx ?win-error \ adjust the window Height: WinRect \ adjusted height --- 165,169 ---- r> self find-method execute SetRect: WinRect ! WinRect \ make a new rectangle Call AdjustWindowRectEx ?win-error \ adjust the window Height: WinRect \ adjusted height *************** *** 295,299 **** WindowHasMenu: [ self ] \ have menu flag? WindowStyle: [ self ] \ window style ! AddrOf: WinRect \ make a new rectangle call AdjustWindowRectEx ?win-error \ adjust the window --- 295,299 ---- WindowHasMenu: [ self ] \ have menu flag? WindowStyle: [ self ] \ window style ! WinRect \ make a new rectangle call AdjustWindowRectEx ?win-error \ adjust the window Index: Primutil.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/Primutil.f,v retrieving revision 1.67 retrieving revision 1.68 diff -C2 -d -r1.67 -r1.68 *** Primutil.f 9 Dec 2013 21:25:16 -0000 1.67 --- Primutil.f 17 Dec 2013 19:25:22 -0000 1.68 *************** *** 1002,1005 **** --- 1002,1007 ---- in-application + cell NewUser UserObjectList \ For disposing of User Objects + \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ \ Locking for Windows |
|
From: George H. <geo...@us...> - 2013-12-17 19:25:24
|
Update of /cvsroot/win32forth/win32forth/apps/Sudoku In directory sfp-cvs-1.v30.ch3.sourceforge.com:/tmp/cvs-serv25360/apps/Sudoku Modified Files: Sudoku.f Log Message: Minor bug fixes and enhancements Index: Sudoku.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/Sudoku/Sudoku.f,v retrieving revision 1.10 retrieving revision 1.11 diff -C2 -d -r1.10 -r1.11 *** Sudoku.f 17 Jan 2012 21:12:25 -0000 1.10 --- Sudoku.f 17 Dec 2013 19:25:21 -0000 1.11 *************** *** 1067,1074 **** WindowSettings entries \ Address Length Default Value Reg Type Reg Value Name ! Frame 12 + ( 4 ) 539 REG_DWORD RegEntry "WindowWidth" ! Frame 16 + 429 REG_DWORD RegEntry "WindowHeight" ! Frame 20 + 135 REG_DWORD RegEntry "WindowLeft" ! Frame 24 + 66 REG_DWORD RegEntry "WindowTop" EndEntries --- 1067,1074 ---- WindowSettings entries \ Address Length Default Value Reg Type Reg Value Name ! &of: Frame.Width ( 4 ) 539 REG_DWORD RegEntry "WindowWidth" ! &of: Frame.Height 429 REG_DWORD RegEntry "WindowHeight" ! &of: Frame.OriginX 135 REG_DWORD RegEntry "WindowLeft" ! &of: Frame.OriginY 66 REG_DWORD RegEntry "WindowTop" EndEntries |
|
From: George H. <geo...@us...> - 2013-12-17 19:25:23
|
Update of /cvsroot/win32forth/win32forth/apps/PictureViewer In directory sfp-cvs-1.v30.ch3.sourceforge.com:/tmp/cvs-serv25360/apps/PictureViewer Modified Files: PictureViewer.f Log Message: Minor bug fixes and enhancements Index: PictureViewer.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/PictureViewer/PictureViewer.f,v retrieving revision 1.9 retrieving revision 1.10 diff -C2 -d -r1.9 -r1.10 *** PictureViewer.f 17 Jan 2012 19:36:11 -0000 1.9 --- PictureViewer.f 17 Dec 2013 19:25:21 -0000 1.10 *************** *** 695,699 **** ChildWindowState SIZE_RESTORED = IF ! AddrOf: WindowRect dup hWnd Call GetWindowRect drop MDIClient: Frame Call ScreenToClient drop --- 695,699 ---- ChildWindowState SIZE_RESTORED = IF ! WindowRect dup hWnd Call GetWindowRect drop MDIClient: Frame Call ScreenToClient drop *************** *** 724,729 **** :M GetMDIClientRect: ( -- w h ) ! AddrOf: WindowRect MDIClient: Frame Call GetClientRect drop ! WindowRect.Right WindowRect.Bottom ;M --- 724,729 ---- :M GetMDIClientRect: ( -- w h ) ! WindowRect MDIClient: Frame Call GetClientRect drop ! Right: WindowRect Bottom: WindowRect ;M |
|
From: George H. <geo...@us...> - 2013-12-09 21:34:06
|
Update of /cvsroot/win32forth/win32forth/apps/WinEd In directory sfp-cvs-1.v30.ch3.sourceforge.com:/tmp/cvs-serv31639/WinEd Modified Files: Ed_HyperLink.F WinEd.f Log Message: Ability to build V7 plus minor mods. Index: WinEd.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/WinEd/WinEd.f,v retrieving revision 1.27 retrieving revision 1.28 diff -C2 -d -r1.27 -r1.28 *** WinEd.f 28 Nov 2013 19:13:25 -0000 1.27 --- WinEd.f 9 Dec 2013 21:34:03 -0000 1.28 *************** *** 163,168 **** \ add the resources to the exe file ! winver winnt4 >= ! [if] &forthdir count pad place s" WinEd.exe" pad +place --- 163,170 ---- \ add the resources to the exe file ! ! version# ((version)) 0. 2swap >number 3drop 7 < dup [if] winver winnt4 < and [then] 0= ! [if] ! &forthdir count pad place s" WinEd.exe" pad +place *************** *** 174,178 **** false EndUpdate ! [else] s" src\res\WinEd.ico" s" WinEd.exe" Prepend<home>\ AddAppIcon [then] --- 176,180 ---- false EndUpdate ! [else] \ For V6.xx.xx older OSs s" src\res\WinEd.ico" s" WinEd.exe" Prepend<home>\ AddAppIcon [then] *************** *** 180,184 **** s" WinEd.exe" prepend<home>\ (AddCheckSum) 1 pause-seconds bye ! [else] WinEd [then] --- 182,186 ---- s" WinEd.exe" prepend<home>\ (AddCheckSum) 1 pause-seconds bye ! [else] WinEd [then] Index: Ed_HyperLink.F =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/WinEd/Ed_HyperLink.F,v retrieving revision 1.9 retrieving revision 1.10 diff -C2 -d -r1.9 -r1.10 *** Ed_HyperLink.F 14 Jul 2013 12:43:20 -0000 1.9 --- Ed_HyperLink.F 9 Dec 2013 21:34:03 -0000 1.10 *************** *** 440,445 **** \ so we can only use it under Win98, WinME and Win2000 and later. \ This bug was reported on Wed, 02 Jun 2004 by Bruce Rennie ! [ winver win95 = winver winnt351 = or winver winnt4 = or ] ! [IF] count file-to-edit$ place file-to-edit$ +NULL --- 440,446 ---- \ so we can only use it under Win98, WinME and Win2000 and later. \ This bug was reported on Wed, 02 Jun 2004 by Bruce Rennie ! [ version# ((version)) 0. 2swap >number 3drop 7 < dup ] [if] ! [ winver win95 = winver winnt351 = or winver winnt4 = or and ] [then] ! [if] \ For V6.xx.xx older OSs count file-to-edit$ place file-to-edit$ +NULL |
|
From: George H. <geo...@us...> - 2013-12-09 21:34:05
|
Update of /cvsroot/win32forth/win32forth/apps/Sudoku In directory sfp-cvs-1.v30.ch3.sourceforge.com:/tmp/cvs-serv31639/Sudoku Modified Files: SudokuResources.f Log Message: Ability to build V7 plus minor mods. Index: SudokuResources.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/Sudoku/SudokuResources.f,v retrieving revision 1.4 retrieving revision 1.5 diff -C2 -d -r1.4 -r1.5 *** SudokuResources.f 10 Aug 2006 22:31:18 -0000 1.4 --- SudokuResources.f 9 Dec 2013 21:34:03 -0000 1.5 *************** *** 6,10 **** ! winver winnt4 >= [if] &forthdir count pad place --- 6,11 ---- ! version# ((version)) 0. 2swap >number 3drop 7 < dup [if] winver winnt4 < and [then] 0= ! [if] \ Not for V6.xx.xx older OSs &forthdir count pad place |
|
From: George H. <geo...@us...> - 2013-12-09 21:34:04
|
Update of /cvsroot/win32forth/win32forth/apps/ForthForm In directory sfp-cvs-1.v30.ch3.sourceforge.com:/tmp/cvs-serv31639/ForthForm Modified Files: FORMOBJECT.F FORTHFORM.F Log Message: Ability to build V7 plus minor mods. Index: FORTHFORM.F =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/ForthForm/FORTHFORM.F,v retrieving revision 1.25 retrieving revision 1.26 diff -C2 -d -r1.25 -r1.26 *** FORTHFORM.F 2 Dec 2010 05:32:54 -0000 1.25 --- FORTHFORM.F 9 Dec 2013 21:34:02 -0000 1.26 *************** *** 60,64 **** DIALOG-CLASS CHILD-CLASS ! MDIDIALOG-CLASS ; \ identifiers for toolbar alignment --- 60,65 ---- DIALOG-CLASS CHILD-CLASS ! MDIDIALOG-CLASS ! TRAY-CLASS ; \ identifiers for toolbar alignment Index: FORMOBJECT.F =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/ForthForm/FORMOBJECT.F,v retrieving revision 1.21 retrieving revision 1.22 diff -C2 -d -r1.21 -r1.22 *** FORMOBJECT.F 28 Apr 2008 05:22:44 -0000 1.21 --- FORMOBJECT.F 9 Dec 2013 21:34:02 -0000 1.22 *************** *** 1332,1348 **** :M PushKey: ( c -- ) case ! ( Ctrl-R ) 'R' +k_control of doSaveAs endof ! ( Ctrl-S ) 'S' +k_control of doSave endof ! ( Ctrl-T ) 'T' +k_control of doTest endof ! ( Ctrl-V ) 'V' +k_control of doEditor endof ! ( Ctrl-W ) 'W' +k_control of doWrite endof ! K_DELETE of dodelete endof ! K_LEFT of adjust-left endof ! K_RIGHT of adjust-right endof ! K_UP of adjust-up endof ! K_DOWN of adjust-down endof ! K_F12 of K_F12 PushKey: TheMainWindow endof ! K_F9 of K_F9 PushKey: TheMainWindow endof ! K_F1 of K_F1 PushKey: TheMainWindow endof endcase ;M --- 1332,1348 ---- :M PushKey: ( c -- ) case ! ( Ctrl-R ) 'R' +k_control of doSaveAs endof ! ( Ctrl-S ) 'S' +k_control of doSave endof ! ( Ctrl-T ) 'T' +k_control of doTest endof ! ( Ctrl-V ) 'V' +k_control of doEditor endof ! ( Ctrl-W ) 'W' +k_control of doWrite endof ! K_DELETE of dodelete endof ! K_LEFT of adjust-left endof ! K_RIGHT of adjust-right endof ! K_UP of adjust-up endof ! K_DOWN of adjust-down endof ! K-F12 of K-F12 PushKey: TheMainWindow endof ! K-F9 of K-F9 PushKey: TheMainWindow endof ! K-F1 of K-F1 PushKey: TheMainWindow endof endcase ;M |
|
From: George H. <geo...@us...> - 2013-12-09 21:27:25
|
Update of /cvsroot/win32forth/win32forth/demos In directory sfp-cvs-1.v30.ch3.sourceforge.com:/tmp/cvs-serv31216 Modified Files: MultiHello.f Log Message: Added call to PostQuitMessage that got lost somewhere. Index: MultiHello.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/demos/MultiHello.f,v retrieving revision 1.8 retrieving revision 1.9 diff -C2 -d -r1.8 -r1.9 *** MultiHello.f 29 Nov 2013 14:43:29 -0000 1.8 --- MultiHello.f 9 Dec 2013 21:27:23 -0000 1.9 *************** *** 94,97 **** --- 94,98 ---- :M On_Done: ( -- ) \ things to do before program termination + 0 call PostQuitMessage drop myblock task>handle @ call CloseHandle 0= throw \ close taskhandle myblock free throw \ free taskblock *************** *** 189,192 **** --- 190,195 ---- New> DemoThreadWindow start: [ ] ; + 1 proc CloseHandle + :noname ( -- ) ['] (StartWindow) 5 cells allocate throw tuck tuck |
|
From: George H. <geo...@us...> - 2013-12-09 21:25:19
|
Update of /cvsroot/win32forth/win32forth/src In directory sfp-cvs-1.v30.ch3.sourceforge.com:/tmp/cvs-serv31062 Modified Files: Boot.f CONTROL.F Class.f Extend.f Pre-save.f Primutil.f Utils.f Log Message: Moved some memory allocation initialisation to pre-save, moved class pointers and data for heap objects down by 1 cell. Made able to build V7.xx.xx conditionally (V7.xx.xx requires win2000 or above) Index: Boot.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/Boot.f,v retrieving revision 1.8 retrieving revision 1.9 diff -C2 -d -r1.8 -r1.9 *** Boot.f 15 Nov 2013 19:35:02 -0000 1.8 --- Boot.f 9 Dec 2013 21:25:16 -0000 1.9 *************** *** 10,16 **** --- 10,18 ---- \ -rbs make shell work in other drives : set-shell + [ version# ((version)) 0. 2swap >number 3drop 7 < ] [if] \ For V6.xx.xx suporting older OSs winver winnt351 >= if s" CMD.EXE " else s" c:\command.com " then + [else] s" CMD.EXE" [then] 2dup dos$ place shell$ place s" /c " shell$ +place ; Index: Extend.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/Extend.f,v retrieving revision 1.32 retrieving revision 1.33 diff -C2 -d -r1.32 -r1.33 *** Extend.f 15 Nov 2013 19:35:03 -0000 1.32 --- Extend.f 9 Dec 2013 21:25:16 -0000 1.33 *************** *** 14,17 **** --- 14,19 ---- sys-FLOAD src\module.f \ scoping support for modules sys-FLOAD src\interpif.f \ interpretive conditionals + FLOAD src\WinVersion.f \ Windows Versioning + FLOAD src\paths.f \ multi path support words *************** *** 117,121 **** fload lib\Resources.f ! winver winnt4 >= [if] &forthdir count pad place --- 119,124 ---- fload lib\Resources.f ! version# ((version)) 0. 2swap >number 3drop 7 < dup [if] winver winnt4 < and [then] 0= ! [if] &forthdir count pad place *************** *** 128,132 **** false EndUpdate ! [else] s" src\res\Win32For.ico" s" Win32for.exe" AddAppIcon [then] --- 131,135 ---- false EndUpdate ! [else] \ For V6.xx.xx older OSs s" src\res\Win32For.ico" s" Win32for.exe" AddAppIcon [then] Index: Utils.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/Utils.f,v retrieving revision 1.31 retrieving revision 1.32 diff -C2 -d -r1.31 -r1.32 *** Utils.f 15 Nov 2013 19:35:03 -0000 1.31 --- Utils.f 9 Dec 2013 21:25:16 -0000 1.32 *************** *** 56,59 **** --- 56,60 ---- cr ." Platform: Windows " winver case + [ version# ((version)) 0. 2swap >number 3drop 7 < ] [if] \ For V6.xx.xx suporting older OSs WIN95 of ." 95" endof WIN98 of ." 98" endof *************** *** 61,65 **** WINNT351 of ." NT3.51" endof WINNT4 of ." NT4" endof ! WIN2K of ." 2000" endof WINXP of ." XP" endof WIN2003 of ." SERVER 2003 R2" endof --- 62,66 ---- WINNT351 of ." NT3.51" endof WINNT4 of ." NT4" endof ! [then] WIN2K of ." 2000" endof WINXP of ." XP" endof WIN2003 of ." SERVER 2003 R2" endof Index: Class.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/Class.f,v retrieving revision 1.45 retrieving revision 1.46 diff -C2 -d -r1.45 -r1.46 *** Class.f 20 Nov 2013 12:28:36 -0000 1.45 --- Class.f 9 Dec 2013 21:25:16 -0000 1.46 *************** *** 417,425 **** dLen cell+ idWid ! IF idWid #els * cell+ + \ get total length of obj THEN malloc ! theClass over ! \ create the class ptr ! cell+ to obAddr \ get nonReloc heap, save ptr to cfa idWid IF obAddr dLen + idWid over w! 2 + #els swap w! --- 417,425 ---- dLen cell+ idWid ! IF idWid #els * ( cell+ ) + \ get total length of obj THEN malloc ! theClass over cell- ! \ create the class ptr ! ( cell+ ) to obAddr \ get nonReloc heap, save ptr to cfa idWid IF obAddr dLen + idWid over w! 2 + #els swap w! *************** *** 1301,1305 **** : Dispose ( addr -- ) \ *G Dispose of a dynamically allocated object. ! ~: [ dup>r ] r> cell- Free THROW_DISPOSE_ERR ?throw ; \ -------------------------------------------------------------------- --- 1301,1305 ---- : Dispose ( addr -- ) \ *G Dispose of a dynamically allocated object. ! ~: [ dup>r ] r> ( cell- ) Free THROW_DISPOSE_ERR ?throw ; \ -------------------------------------------------------------------- Index: Pre-save.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/Pre-save.f,v retrieving revision 1.8 retrieving revision 1.9 diff -C2 -d -r1.8 -r1.9 *** Pre-save.f 28 Nov 2013 20:51:55 -0000 1.8 --- Pre-save.f 9 Dec 2013 21:25:16 -0000 1.9 *************** *** 69,76 **** : pre-init-system-locks-off ( -- ) ! \ *G Set all the system deferred words for locking and unlocking (except (memlock) and ! \ ** (memunlock) which are set by the kernel) to noops in the image. This is done for ! \ ** the system so that at start-up code that uses them will work correctly before the locks ! \ ** are initialised. ['] noop is-image (controllock) ['] noop is-image (controlunlock) --- 69,76 ---- : pre-init-system-locks-off ( -- ) ! \ *G Set all the system deferred words for locking and unlocking to noops in the image. ! \ ** This is done for the system so that at start-up code that uses ! \ ** them will work correctly before the locks are initialised. ! \ ** Also the allocated memory link is zeroed. ['] noop is-image (controllock) ['] noop is-image (controlunlock) *************** *** 85,88 **** --- 85,91 ---- ['] noop is-image (gdilock) ['] noop is-image (gdiunlock) + ['] noop is-image (memlock) + ['] noop is-image (memunlock) + 0 malloc-link >image ! ; Index: Primutil.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/Primutil.f,v retrieving revision 1.66 retrieving revision 1.67 diff -C2 -d -r1.66 -r1.67 *** Primutil.f 28 Nov 2013 20:51:55 -0000 1.66 --- Primutil.f 9 Dec 2013 21:25:16 -0000 1.67 *************** *** 728,812 **** reset-stack-chain do-chain ; is reset-stacks \ install in kernel word - \ ---------------- Operating System Checking -------------------------- - - 1 PROC GetVersionEx - - 1 constant win95 - 2 constant win98 - 3 constant winme - 4 constant winnt351 - 5 constant winnt4 - 6 constant win2k - 7 constant winxp - 8 constant win2003 \ Windows Server 2003 R2 - 9 constant winvista \ Windows Vista - 10 constant win2008 \ Windows Server 2008 - 11 constant win2008r2 \ Windows Server 2008 R2 - 12 constant win7 \ Windows 7 - 13 constant win8 \ Windows 8 - - \ To check for a version, say Win2K or greater, try WINVER WIN2K >= - - 0 value winver - - : winver-init ( -- ) \ get windows version - 156 dup _localalloc dup>r ! \ set length of OSVERSIONINFOEX structure - r@ call GetVersionEx \ call os for version - dup 0= if drop 148 r@ ! r@ call GetVersionEx then \ try lower size for win98FE (and possibly win95) - 0= abort" call failed" - r@ 4 cells+ @ \ get osplatformid - case - 1 of \ 95, 98, and me - r@ 2 cells+ @ \ minorversion - case - 0 of win95 endof \ 95 - 10 of win98 endof \ 98 - 90 of winme endof \ me - endcase - endof - - 2 of \ nt, 2k, xp - r@ cell+ @ \ majorversion - case - 3 of winnt351 endof \ nt351 - 4 of winnt4 endof \ nt4 - 5 of - r@ 2 cells+ @ \ minor version - case - 0 of win2k endof \ win2k - 1 of winxp endof \ winxp - 2 of win2003 endof \ 2003 - endcase - endof - 6 of - r@ 2 cells+ @ \ minor version - case - 0 of r@ 154 + c@ \ Product Type - VER_NT_WORKSTATION = if winvista \ Windows Vista - else win2008 \ Windows Server 2008 - then - endof - 1 of r@ 154 + c@ \ Product Type - VER_NT_WORKSTATION = if win7 \ Windows 7 - else win2008r2 \ Windows Server 2008 R2 - then - endof - 2 of r@ 154 + c@ \ Product Type - VER_NT_WORKSTATION = if win8 \ Windows 8 - else win2008r2 \ Windows Server 2008 R2 - then - endof - drop -2 dup \ unknown product Type - endcase - endof - drop -1 dup \ unknown windows version - endcase - endof - endcase to winver - rdrop _localfree - ; - - initialization-chain chain-add winver-init - winver-init \ -------------------- Load Standard Libraries -------------------- --- 728,731 ---- Index: CONTROL.F =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/CONTROL.F,v retrieving revision 1.15 retrieving revision 1.16 diff -C2 -d -r1.15 -r1.16 *** CONTROL.F 28 Nov 2013 20:51:55 -0000 1.15 --- CONTROL.F 9 Dec 2013 21:25:16 -0000 1.16 *************** *** 100,105 **** int title \ the counted title string int handleofparent \ the frame window handle ! int Horizontal ! int Vertical ' wStatus0 alias timering? \ are we opening a popup info window ' wStatus1 alias timerclosed? \ has popup been closed --- 100,105 ---- int title \ the counted title string int handleofparent \ the frame window handle ! short Horizontal ! short Vertical ' wStatus0 alias timering? \ are we opening a popup info window ' wStatus1 alias timerclosed? \ has popup been closed |
|
From: George H. <geo...@us...> - 2013-12-09 19:42:03
|
Update of /cvsroot/win32forth/win32forth/src/lib In directory sfp-cvs-1.v30.ch3.sourceforge.com:/tmp/cvs-serv23016 Modified Files: Calendar.f RESOURCES.F task.f Log Message: Minor mods and tidy up Index: task.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/lib/task.f,v retrieving revision 1.21 retrieving revision 1.22 diff -C2 -d -r1.21 -r1.22 *** task.f 28 Nov 2013 20:51:56 -0000 1.21 --- task.f 9 Dec 2013 19:42:00 -0000 1.22 *************** *** 198,202 **** call LeaveCriticalSection drop ; ! winver winnt4 < [if] \ sorry, TryEnterCriticalSection() is only avaible for NT4 and later !!! --- 198,203 ---- call LeaveCriticalSection drop ; ! version# ((version)) 0. 2swap >number 3drop 7 < dup [if] winver winnt4 < and [then] ! [if] \ For V6.xx.xx older OSs \ sorry, TryEnterCriticalSection() is only avaible for NT4 and later !!! *************** *** 209,213 **** call InitializeCriticalSection drop ; ! [else] : trylock ( lock -- fl ) \ W32F Lock --- 210,214 ---- call InitializeCriticalSection drop ; ! [else] \ For future V7.xx.xx and above and newer OSs made conditional for now. : trylock ( lock -- fl ) \ W32F Lock Index: RESOURCES.F =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/lib/RESOURCES.F,v retrieving revision 1.10 retrieving revision 1.11 diff -C2 -d -r1.10 -r1.11 *** RESOURCES.F 6 Nov 2013 21:56:29 -0000 1.10 --- RESOURCES.F 9 Dec 2013 19:42:00 -0000 1.11 *************** *** 54,62 **** internal ! winver winnt4 < [if] cr .( Sorry the Resources Utility requires Windows NT4, 2K or better.) ! [else] 5 proc EnumResourceLanguages --- 54,63 ---- internal ! version# ((version)) 0. 2swap >number 3drop 7 < dup [if] winver winnt4 < and [then] ! [if] \ For V6.xx.xx older OSs cr .( Sorry the Resources Utility requires Windows NT4, 2K or better.) ! [else] \ For future V7.xx.xx and above made conditional for now. 5 proc EnumResourceLanguages *************** *** 354,359 **** external ! winver winnt4 < [if] ! \ Add the Icon filename1 to the Application filename2 : AddAppIcon ( s" filename1" s" filename2" -- ) --- 355,360 ---- external ! version# ((version)) 0. 2swap >number 3drop 7 < dup [if] winver winnt4 < and [then] ! [if] \ For V6.xx.xx older OSs \ Add the Icon filename1 to the Application filename2 : AddAppIcon ( s" filename1" s" filename2" -- ) Index: Calendar.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/lib/Calendar.f,v retrieving revision 1.8 retrieving revision 1.9 diff -C2 -d -r1.8 -r1.9 *** Calendar.f 15 Mar 2013 00:23:07 -0000 1.8 --- Calendar.f 9 Dec 2013 19:42:00 -0000 1.9 *************** *** 12,58 **** cr .( Loading Calendar Classes...) ! INTERNAL ! EXTERNAL ! ! synonym DateTimeControl Control ! ! #IFNDEF wYear ! \ Because _SystemTime is a user variable The following need to be set at run time ! 0 value wyear ! 0 value wmonth ! 0 value wDayOfWeek ! 0 value wDay ! 0 value wHour ! 0 value wMinute ! 0 value wSecond ! 0 value wMilliSeconds ! 16 Constant sizeof(_systemTime) ! ! : set-time-pointers ( -- ) ! _SystemTime ! dup to wYear ! 2 + dup to wMonth ! 2 + dup to wDayOfWeek ! 2 + dup to wDay ! 2 + dup to wHour ! 2 + dup to wMinute ! 2 + dup to wSecond ! 2 + to wMilliSeconds ; ! initialization-chain chain-add set-time-pointers ! set-time-pointers ! ! #then ! ! \ TODO: Move the SystemTime-struct into class. So that every instance of the ! \ control becomes his own set of values. ! ! \ *P The MonthCalendar and TimeDatePicker controls both use the _SystemTime structure ! \ ** defined in the file ANSFILE.F , the members of which are; ! \ *Q wYear \ ** The year (1601 - 30827). \ ** ! \ ** wMonth ! \ ** The month. \ ** \ ** January = 1 --- 12,22 ---- cr .( Loading Calendar Classes...) ! \ *P The MonthCalendar and TimeDatePicker controls both use a structure, the members ! \ ** of which are; ! \ *Q Year \ ** The year (1601 - 30827). \ ** ! \ ** Month \ ** \ ** January = 1 *************** *** 69,74 **** \ ** December = 12 \ ** ! \ ** wDayOfWeek ! \ ** The day of the week. \ ** \ ** Sunday = 0 --- 33,37 ---- \ ** December = 12 \ ** ! \ ** DayOfWeek \ ** \ ** Sunday = 0 *************** *** 80,94 **** \ ** Saturday = 6 \ ** ! \ ** wDay \ ** The day of the month (0-31). ! \ ** wHour \ ** The hour (0-23). ! \ ** wMinute \ ** The minute(s) (0-59). ! \ ** wSecond \ ** The second(s) (0-59). ! \ ** wMilliseconds \ ** The millisecond(s) (0-999). \ ------------------------------------------------------------------------ \ *W <a name="MonthCalendar"></a> --- 43,85 ---- \ ** Saturday = 6 \ ** ! \ ** Day \ ** The day of the month (0-31). ! \ ** Hour \ ** The hour (0-23). ! \ ** Minute \ ** The minute(s) (0-59). ! \ ** Second \ ** The second(s) (0-59). ! \ ** Milliseconds \ ** The millisecond(s) (0-999). + in-system + + |Class DateTimeControl <super Control + + in-previous + + Record: Time + short year + short month + short DayOfWeek + short Day + short Hour + short Minute + short Second + short MilliSeconds + ;RecordSize: SizeOfTime + + : SendTimeMessage ( message -- ) + >r Time 0 r> SendMessage:Self ?Win-Error ; + + : Date> ( -- day month year ) + day month year ; + + : >Date ( day month year -- ) + to day to month to year ; + + ;Class + \ ------------------------------------------------------------------------ \ *W <a name="MonthCalendar"></a> *************** *** 120,125 **** \ *P \i Month \d is the month (January = 1; December = 12) \ *P \i year \d is the year (1601 - 30827). ! _SystemTime 0 MCM_GETCURSEL SendMessage:SelfDrop ! wday w@ wmonth w@ wyear w@ ;M :M GetToday: ( -- day month year ) --- 111,118 ---- \ *P \i Month \d is the month (January = 1; December = 12) \ *P \i year \d is the year (1601 - 30827). ! \ _SystemTime 0 MCM_GETCURSEL SendMessage:SelfDrop ! \ wday w@ wmonth w@ wyear w@ ;M ! MCM_GETCURSEL SendTimeMessage ! date> ;M :M GetToday: ( -- day month year ) *************** *** 128,133 **** \ *P \i Month \d is the month (January = 1; December = 12) \ *P \i year \d is the year (1601 - 30827). ! _systemtime 0 MCM_GETTODAY SendMessage:Self ?Win-Error ! wday w@ wmonth w@ wyear w@ ;M ;Class \ *G End of MonthCalendar class --- 121,129 ---- \ *P \i Month \d is the month (January = 1; December = 12) \ *P \i year \d is the year (1601 - 30827). ! \ MCM_GETTODAY SendMessage:Self ?Win-Error ! \ wday w@ wmonth w@ wyear w@ ;M ! MCM_GETTODAY SendTimeMessage ! date> ;M ! ;Class \ *G End of MonthCalendar class *************** *** 251,270 **** :M GetTime: ( -- hrs min secs ) \ *G get user selected time ! _SystemTime 0 DTM_GETSYSTEMTIME SendMessage:Self GDT_VALID = ! if wHour w@ wMinute w@ wSecond w@ ! else 0 0 0 ! then ;M :M SetTime: ( hr min sec -- ) \ *G set time for user to edit ! wSecond w! wMinute w! wHour w! ! 0 wMilliSeconds w! ! _SystemTime GDT_VALID DTM_SETSYSTEMTIME SendMessage:Self ?Win-Error ;M :M GetDate: ( -- day month year ) \ *G get user selected date GetTime: self 3dup or or 0<> ! if 3drop wDay w@ wMonth w@ wYear w@ then ;M --- 247,275 ---- :M GetTime: ( -- hrs min secs ) \ *G get user selected time ! \ _SystemTime 0 DTM_GETSYSTEMTIME SendMessage:Self GDT_VALID = ! \ if wHour w@ wMinute w@ wSecond w@ ! \ else 0 0 0 ! \ then ;M ! 0 DTM_GETSYSTEMTIME SendTimeMessage ! Hour Minute Second ;M :M SetTime: ( hr min sec -- ) \ *G set time for user to edit ! \ wSecond w! wMinute w! wHour w! ! \ 0 wMilliSeconds w! ! \ _SystemTime GDT_VALID DTM_SETSYSTEMTIME SendMessage:Self ?Win-Error ! \ ;M ! to Second to Minute to Hour ! 0 to MilliSeconds ! DTM_SETSYSTEMTIME SendTimeMessage ;M :M GetDate: ( -- day month year ) \ *G get user selected date + \ GetTime: self 3dup or or 0<> + \ if 3drop wDay w@ wMonth w@ wYear w@ + \ then ;M GetTime: self 3dup or or 0<> ! if 3drop Date> then ;M *************** *** 272,276 **** \ *G End of DateTimePicker class - MODULE - \ *Z --- 277,279 ---- |
|
From: George H. <geo...@us...> - 2013-12-09 19:34:40
|
Update of /cvsroot/win32forth/win32forth/src/kernel In directory sfp-cvs-1.v30.ch3.sourceforge.com:/tmp/cvs-serv22434 Modified Files: fkernel.f version.f Log Message: Tidied up memory allocation Index: fkernel.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/kernel/fkernel.f,v retrieving revision 1.99 retrieving revision 1.100 diff -C2 -d -r1.99 -r1.100 *** fkernel.f 28 Nov 2013 19:28:18 -0000 1.99 --- fkernel.f 9 Dec 2013 19:34:37 -0000 1.100 *************** *** 3909,3916 **** \ 06/09/2002 21:54:51 arm major modifications ! \ [malloc_next][heapaddress][mem_type][ 0 ] [malloced_memory][extra_cells] ! \ | ! \ * returns this address on allocate * ! \ this is the "address" \ Changes: \ All memory calls are now to Windows heap functions --- 3909,3917 ---- \ 06/09/2002 21:54:51 arm major modifications ! \ [malloc_next][heapaddress][mem_type][ 0/class ] [malloced_memory][extra_cells] ! \ ^ | ! \ contains 0 for allcated memory * returns this address on allocate * ! \ class pointer for objects this is the "address" ! \ created with new> see class.f \ Changes: \ All memory calls are now to Windows heap functions *************** *** 3999,4003 **** if drop 0 TRUE \ error, fl=true else dup malloc-add-link \ link in ! link>mem FALSE \ point at real mem then ; \ -- f1 = true on error --- 4000,4005 ---- if drop 0 TRUE \ error, fl=true else dup malloc-add-link \ link in ! link>mem 0 over cell- ! \ point at real mem and zero preceeding cell ! FALSE then ; \ -- f1 = true on error *************** *** 4005,4009 **** allocate THROW_MEMALLOCFAIL ?THROW ; ! |: (free) ( link-addr -- f1 ) \ free memory (addr points link) dup malloc-unlink \ first, delete from malloc list if drop TRUE \ if it failed, return failure --- 4007,4013 ---- allocate THROW_MEMALLOCFAIL ?THROW ; ! : free ( addr -- f1 ) \ release the memory pointer ! \ f1=TRUE=failed, f1=FALSE=ok ! mem>link \ point at true address dup malloc-unlink \ first, delete from malloc list if drop TRUE \ if it failed, return failure *************** *** 4011,4023 **** then ; - : free ( addr -- f1 ) \ release the memory pointer - \ f1=TRUE=failed, f1=FALSE=ok - mem>link (free) ; \ point at true address - - |: (release) ( link-addr -- ) \ release block - (free) THROW_MEMRELFAIL ?THROW ; ! : release ( addr -- ) ! mem>link (release) ; : realloc ( u addr -- addr' fl ) --- 4015,4021 ---- then ; ! : release ( addr -- ) \ release block ! free THROW_MEMRELFAIL ?THROW ; : realloc ( u addr -- addr' fl ) *************** *** 4049,4064 **** |: init-malloc ( -- ) - \ NOTE the two deferred words MUST BE reset to Noop's before any mallocs - ['] noop is (memlock) \ turn off lock until inited - ['] noop is (memunlock) \ turn off unlock until inited - 0 malloc-link ! call GetProcessHeap malloc-haddr ! ; \ heap address save in var - (( - |: term-malloc ( -- ) \ release all allocated memory - ['] (release) malloc-link do-link - ; - )) - \ -------------------- ANS File Functions -------------------- --- 4047,4052 ---- Index: version.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/kernel/version.f,v retrieving revision 1.23 retrieving revision 1.24 diff -C2 -d -r1.23 -r1.24 *** version.f 21 Jul 2013 00:24:17 -0000 1.23 --- version.f 9 Dec 2013 19:34:37 -0000 1.24 *************** *** 3,7 **** cr .( Loading META version info) ! 61503 VALUE #VERSION# \ Change only the version number above; the build number is automatically assigned. --- 3,8 ---- cr .( Loading META version info) ! 61503 VALUE #VERSION# ! \ 70000 VALUE #VERSION# \ For future V7.xx.xx testing \ Change only the version number above; the build number is automatically assigned. |
|
From: George H. <geo...@us...> - 2013-12-09 19:24:14
|
Update of /cvsroot/win32forth/win32forth/Help/html In directory sfp-cvs-1.v30.ch3.sourceforge.com:/tmp/cvs-serv21801 Modified Files: class-Mdi.htm class-TrayWindow.htm class-control.htm class-controls.htm class-generic.htm dexh-unicode.htm Log Message: Updated docs Index: class-Mdi.htm =================================================================== RCS file: /cvsroot/win32forth/win32forth/Help/html/class-Mdi.htm,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 *** class-Mdi.htm 18 Jul 2012 12:47:28 -0000 1.2 --- class-Mdi.htm 9 Dec 2013 19:24:11 -0000 1.3 *************** *** 211,214 **** --- 211,216 ---- THEN ; + IdCounter constant StartId + NewID IDM_NEW NewID IDM_CLOSE *************** *** 220,226 **** NewID IDM_OPEN_FILE ! Create MenuTable (NewID) 200 - 4 * allot ! : DoMenu ( ID -- ) 200 - 4 * MenuTable + @ ?dup IF execute THEN ; ! : SetMenu ( ID -- ) last @ name> swap 200 - 4 * MenuTable + ! ; MENUBAR MDIMenu --- 222,230 ---- NewID IDM_OPEN_FILE ! IdCounter constant EndId ! ! Create MenuTable EndId StartId - 4 * allot ! : DoMenu ( ID -- ) StartId - 4 * MenuTable + @ ?dup IF execute THEN ; ! : SetMenu ( ID -- ) last @ name> swap StartId - 4 * MenuTable + ! ; MENUBAR MDIMenu *************** *** 290,294 **** :M OnWmCommand: ( hwnd msg wparam lparam -- hwnd msg wparam lparam ) OnWmCommand: Super ! over LOWORD ( Menu ID ) dup 200 (NewID) within \ intercept Menu commands IF DoMenu ELSE drop THEN ;M --- 294,298 ---- :M OnWmCommand: ( hwnd msg wparam lparam -- hwnd msg wparam lparam ) OnWmCommand: Super ! over LOWORD ( Menu ID ) dup StartId EndId within \ intercept Menu commands IF DoMenu ELSE drop THEN ;M Index: dexh-unicode.htm =================================================================== RCS file: /cvsroot/win32forth/win32forth/Help/html/dexh-unicode.htm,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** dexh-unicode.htm 15 May 2008 06:28:27 -0000 1.1 --- dexh-unicode.htm 9 Dec 2013 19:24:12 -0000 1.2 *************** *** 12,19 **** --- 12,24 ---- </h1><h3><i>Tom Dixon - August 2006 </i></h3><p>Unicode wordset for working with Unicode APIs + </p><p><b><code>: Unew$ ( -- addr ) + </code></b><br>Allocate 2X MAXSTRING bytes from the dynamic string buffer and return the address. This is + designed for 16bit Unicode strings which are twice as long as Ascii. </p><p><b><code>: UniPlace ( addr len destaddr -- ) </code></b><br>Store a unicode string to an address </p><p><b><code>: +UniPlace ( addr len destaddr -- ) </code></b><br>Append a string to the end of an address + </p><p><b><code>: +UniNull ( destaddr -- ) + </code></b><br>Append a null to the unicode string at address. </p><p><b><code>: UniCount ( addr -- addr len ) </code></b><br>Fetch a unicode string from an address (stored with uniplace) *************** *** 31,35 **** must free ascii string afterwards when no longer needed. </p><p><b><code>: >Unicode ( str len -- str len ) ! </code></b><br>Convert ascii string to unicode (uses new$) </p><p><b><code>: >ascii ( str len -- str len ) </code></b><br>Convert unicode string to ascii (uses new$) --- 36,40 ---- must free ascii string afterwards when no longer needed. </p><p><b><code>: >Unicode ( str len -- str len ) ! </code></b><br>Convert ascii string to unicode (uses Unew$) </p><p><b><code>: >ascii ( str len -- str len ) </code></b><br>Convert unicode string to ascii (uses new$) Index: class-controls.htm =================================================================== RCS file: /cvsroot/win32forth/win32forth/Help/html/class-controls.htm,v retrieving revision 1.7 retrieving revision 1.8 diff -C2 -d -r1.7 -r1.8 *** class-controls.htm 6 Nov 2013 23:46:31 -0000 1.7 --- class-controls.htm 9 Dec 2013 19:24:12 -0000 1.8 *************** *** 1180,1190 **** </p><p><b><code>;Class </code></b><br>End of SizeBox class ! </p><p>The MonthCalendar and TimeDatePicker controls both use the _SystemTime structure ! defined in the file ANSFILE.F , the members of which are; ! </p><h3><i>wYear </i></h3><p>The year (1601 - 30827). ! wMonth ! The month. January = 1 --- 1180,1189 ---- </p><p><b><code>;Class </code></b><br>End of SizeBox class ! </p><p>The MonthCalendar and TimeDatePicker controls both use a structure, the members ! of which are; ! </p><h3><i>Year </i></h3><p>The year (1601 - 30827). ! Month January = 1 *************** *** 1201,1206 **** December = 12 ! wDayOfWeek ! The day of the week. Sunday = 0 --- 1200,1204 ---- December = 12 ! DayOfWeek Sunday = 0 *************** *** 1212,1224 **** Saturday = 6 ! wDay The day of the month (0-31). ! wHour The hour (0-23). ! wMinute The minute(s) (0-59). ! wSecond The second(s) (0-59). ! wMilliseconds The millisecond(s) (0-999). </p><a name="MonthCalendar"></a> --- 1210,1222 ---- Saturday = 6 ! Day The day of the month (0-31). ! Hour The hour (0-23). ! Minute The minute(s) (0-59). ! Second The second(s) (0-59). ! Milliseconds The millisecond(s) (0-999). </p><a name="MonthCalendar"></a> Index: class-control.htm =================================================================== RCS file: /cvsroot/win32forth/win32forth/Help/html/class-control.htm,v retrieving revision 1.3 retrieving revision 1.4 diff -C2 -d -r1.3 -r1.4 *** class-control.htm 15 Mar 2013 00:25:01 -0000 1.3 --- class-control.htm 9 Dec 2013 19:24:12 -0000 1.4 *************** *** 31,35 **** </p><p><b><code>:M AddStyle: ( n -- ) </code></b><br>Set any additional style of the control. Must be done before the control ! is created. </p><p><b><code>:M StartSize: ( -- width height ) </code></b><br>Get the start size of this control. <br /> --- 31,35 ---- </p><p><b><code>:M AddStyle: ( n -- ) </code></b><br>Set any additional style of the control. Must be done before the control ! is started. Use +Style: to add to a running control. </p><p><b><code>:M StartSize: ( -- width height ) </code></b><br>Get the start size of this control. <br /> Index: class-TrayWindow.htm =================================================================== RCS file: /cvsroot/win32forth/win32forth/Help/html/class-TrayWindow.htm,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 *** class-TrayWindow.htm 15 Nov 2013 17:40:43 -0000 1.2 --- class-TrayWindow.htm 9 Dec 2013 19:24:12 -0000 1.3 *************** *** 16,21 **** </h2><p><b><code>:class TrayWindow <super window </code></b><br>TrayWindow class - </p><p><b><code>:M DefaultIcon: ( -- hIcon ) - </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 --- 16,19 ---- Index: class-generic.htm =================================================================== RCS file: /cvsroot/win32forth/win32forth/Help/html/class-generic.htm,v retrieving revision 1.7 retrieving revision 1.8 diff -C2 -d -r1.7 -r1.8 *** class-generic.htm 20 Nov 2013 11:48:12 -0000 1.7 --- class-generic.htm 9 Dec 2013 19:24:12 -0000 1.8 *************** *** 142,148 **** bypassing the application queue. If the update region is empty, no message is sent. </p><p><b><code>:M Scroll: { x y -- } ! </code></b><br>The ScrollWindow function scrolls the contents of the specified window's client area. </p><p><b><code>:M Move: { x y w h -- } ! </code></b><br>The MoveWindow function changes the position and dimensions of window. For a top-level window, the position and dimensions are relative to the upper-left corner of the screen. For a child window, they are relative to the upper-left corner of the parent --- 142,148 ---- bypassing the application queue. If the update region is empty, no message is sent. </p><p><b><code>:M Scroll: { x y -- } ! </code></b><br>Scroll the contents of the specified window's client area. </p><p><b><code>:M Move: { x y w h -- } ! </code></b><br>Change the position and dimensions of window. For a top-level window, the position and dimensions are relative to the upper-left corner of the screen. For a child window, they are relative to the upper-left corner of the parent *************** *** 291,301 **** </tr> </table><p><b><code>:M GetStyle: ( -- style ) ! </code></b><br>Retrieves the window styles. </p><p><b><code>:M SetStyle: ( style -- ) ! </code></b><br>Sets a new window style. </p><p><b><code>:M +Style: ( style -- ) ! </code></b><br>Add a window style. </p><p><b><code>:M -Style: ( style -- ) ! </code></b><br>Remove a window style. </p><p><b><code>:M SetFocus: ( -- ) </code></b><br>The SetFocus function sets the keyboard focus to the window. The window must be --- 291,301 ---- </tr> </table><p><b><code>:M GetStyle: ( -- style ) ! </code></b><br>Retrieves the window styles of a running window. </p><p><b><code>:M SetStyle: ( style -- ) ! </code></b><br>Sets a new window style of a running window. </p><p><b><code>:M +Style: ( style -- ) ! </code></b><br>Add a window style to a running window. </p><p><b><code>:M -Style: ( style -- ) ! </code></b><br>Remove a window style from a running window. </p><p><b><code>:M SetFocus: ( -- ) </code></b><br>The SetFocus function sets the keyboard focus to the window. The window must be *************** *** 616,619 **** --- 616,627 ---- FontObject must be the HANDLE of a font. If this parameter is NULL, the control uses the default system font to draw text. + </p><p><b><code>: +DialogList ( -- ) \ link into dialog list in Start: + </code></b><br>Used so window responds to Dialog messages. Used by ModeLessDialog DialogWindow and + MdiDialog classes but can be added to any descendants of class Window (including + descendants of Child-Window) so they can respond to dialog messages. Can also be + used programatically. + </p><p><b><code>: -DialogList ( -- ) \ don't link from dialog list in Start: + </code></b><br>Disable responding to dialog messages. This was mainly used for the ~: destructor method + though is no longer needed. Can also be used programatically. </p><p><b><code>:M On_Init: ( -- ) </code></b><br>Thing's to do during creation of the window. |
|
From: George H. <geo...@us...> - 2013-11-29 14:43:31
|
Update of /cvsroot/win32forth/win32forth/demos/AccelDemo In directory sfp-cvs-1.v30.ch3.sourceforge.com:/tmp/cvs-serv8641/AccelDemo Modified Files: AccelDemo.f Log Message: Minor mods and bug fixes Index: AccelDemo.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/demos/AccelDemo/AccelDemo.f,v retrieving revision 1.7 retrieving revision 1.8 diff -C2 -d -r1.7 -r1.8 *** AccelDemo.f 2 Sep 2008 06:46:26 -0000 1.7 --- AccelDemo.f 29 Nov 2013 14:43:29 -0000 1.8 *************** *** 10,14 **** only forth also definitions ! fload accel.f \ dbu defer Init-Accelerator-Table ' noop is Init-Accelerator-Table \ dbu --- 10,14 ---- only forth also definitions ! require accel.f \ dbu defer Init-Accelerator-Table ' noop is Init-Accelerator-Table \ dbu |
|
From: George H. <geo...@us...> - 2013-11-28 21:19:31
|
Update of /cvsroot/win32forth/win32forth/src/lib In directory sfp-cvs-1.v30.ch3.sourceforge.com:/tmp/cvs-serv3867 Modified Files: FCOM.F Unicode.F Log Message: Added +UniNull and Unew$ to unicode. Moved words used by FCOM only at compile time to system space. Index: Unicode.F =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/lib/Unicode.F,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** Unicode.F 19 Aug 2006 01:52:51 -0000 1.1 --- Unicode.F 28 Nov 2013 21:19:29 -0000 1.2 *************** *** 19,22 **** --- 19,26 ---- 1 proc SysFreeString + : Unew$ ( -- addr ) + \ *G Allocate 2X MAXSTRING bytes from the dynamic string buffer and return the address. This is + \ ** designed for 16bit Unicode strings which are twice as long as Ascii. + MAXSTRING 2* DynAlloc ; : UniPlace ( addr len destaddr -- ) *************** *** 28,31 **** --- 32,39 ---- 2dup @ + >r dup >r dup @ + 4 + 2dup + 0 swap ! swap cmove r> r> swap ! ; + : +UniNull ( destaddr -- ) + \ *G Append a null to the unicode string at address. + dup @ 2* + 0 swap w! ; + : UniCount ( addr -- addr len ) \ *G Fetch a unicode string from an address (stored with uniplace) *************** *** 60,65 **** : >Unicode ( str len -- str len ) ! \ *G Convert ascii string to unicode (uses new$) ! asc>uni 2dup new$ dup >r uniplace drop free drop r> unicount ; : >ascii ( str len -- str len ) --- 68,73 ---- : >Unicode ( str len -- str len ) ! \ *G Convert ascii string to unicode (uses Unew$) ! asc>uni 2dup Unew$ dup >r uniplace drop free drop r> dup +UniNull unicount ; : >ascii ( str len -- str len ) Index: FCOM.F =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/lib/FCOM.F,v retrieving revision 1.8 retrieving revision 1.9 diff -C2 -d -r1.8 -r1.9 *** FCOM.F 19 Aug 2011 14:42:03 -0000 1.8 --- FCOM.F 28 Nov 2013 21:19:29 -0000 1.9 *************** *** 8,15 **** anew -FCOM.f - internal - external - - winlibrary oleaut32.dll --- 8,11 ---- *************** *** 30,35 **** --- 26,35 ---- \ Defining GUIDs + in-system + internal + : hatoi number? 2drop ; + external *************** *** 49,53 **** begin over w@ while 2 2 d+ repeat nip pad @ swap ; - internal --- 49,52 ---- *************** *** 85,94 **** internal 0 value openiface external : IMethod ( n -- ) \ n is vtable index ! here openiface 16 + @ , openiface 16 + ! , , ! here parse-word dup 1+ allot rot place ; : UCOM ( pointer -- ) \ call using an interface --- 84,95 ---- internal + 0 value openiface + external : IMethod ( n -- ) \ n is vtable index ! >System here openiface 16 + @ , openiface 16 + ! , , ! here parse-word dup 1+ allot rot place System> ; : UCOM ( pointer -- ) \ call using an interface *************** *** 101,105 **** : INTERFACE ( interface |guid -- ) ! ?dup if create guid, 16 + here over @ , swap ! else create guid, 0 , then ; --- 102,106 ---- : INTERFACE ( interface |guid -- ) ! ?dup if create guid, 16 + here over @ , swap ! else create guid, 0 , then ; *************** *** 107,111 **** : Close-Interface ( -- ) 0 to openiface ; - \ define the unknown interface --- 108,111 ---- *************** *** 117,121 **** Close-Interface ! \ dispatch interface IUnknown Interface IDispatch {00020400-0000-0000-C000-000000000046} IDispatch Open-Interface --- 117,124 ---- Close-Interface ! in-previous ! ! \ dispatch interface. IDispatch must be in application space because it's used by AX controls. ! IUnknown Interface IDispatch {00020400-0000-0000-C000-000000000046} IDispatch Open-Interface *************** *** 128,131 **** --- 131,136 ---- UUID GUID_NULL {00000000-0000-0000-0000-000000000000} + in-system + \ **** AUTOMATION **** \ this is the point where automation tries to control the rigors of *************** *** 207,211 **** Close-Interface - internal --- 212,215 ---- *************** *** 229,233 **** \ defines a structure ! : Struct ( structtype -- ) create dup cell+ , @ allot IMMEDIATE does> dup peek rot @ search-struct if skip-word dup 3 cells + @ execute + cell+ --- 233,238 ---- \ defines a structure ! : Struct ( structtype -- ) create dup cell+ , @ allot IMMEDIATE ! Suppress-system does> dup peek rot @ search-struct if skip-word dup 3 cells + @ execute + cell+ *************** *** 244,247 **** --- 249,253 ---- internal + 0 value openstruct *************** *** 251,254 **** --- 257,261 ---- peek rot cell+ search-struct if skip-word dup 3 cells + @ execute + then ; + external *************** *** 369,372 **** --- 376,380 ---- close-struct + in-previous \ FuncKind enumeration *************** *** 459,462 **** --- 467,472 ---- internal + in-system + : vt>Str ( vt -- str len ) \ for type to string conversion case *************** *** 509,512 **** --- 519,524 ---- endcase ; + in-previous + : argcells ( VT -- #cells ) \ returns the number of cells needed for a vtype dup 5 = if drop 2 exit then *************** *** 537,540 **** --- 549,553 ---- dup tattr-allot dup UseStruct TYPEATTR cbSizeInstance @ -rot tattr-free ; + in-system \ function stuff *************** *** 592,597 **** abort" Unable to Bind to type!" r> r> r> -rot ; - - \ These words are for "dumping" interfaces and structures so you don't have \ to look at documentation as much while your programming --- 605,608 ---- *************** *** 861,869 **** : comfind ( str -- str 0 | cfa flag ) ! [ action-of find literal ] execute \ call previous find word ?dup 0= if count 0 ?typelib if ['] noop 1 else drop 1- 0 then then ; ! ' comfind is find \ Late-Binding for Types in typelibraries (needed only for interfaces and structures) --- 872,880 ---- : comfind ( str -- str 0 | cfa flag ) ! [ action-of find compile, ] \ call previous find word ?dup 0= if count 0 ?typelib if ['] noop 1 else drop 1- 0 then then ; ! \in-system-ok ' comfind is find \ Late-Binding for Types in typelibraries (needed only for interfaces and structures) *************** *** 912,915 **** --- 923,927 ---- drop 0 typelibhead ! ; + in-previous : com_init 0 CoInitialize drop ; *************** *** 918,927 **** com_init ! unload-chain chain-add-before freetypelibs ! internal ! \ IDipatch Calling Interface \ This is for calling methods in the IDispatch Interface. \ It is a nasty calling convention that uses run-time type checking, passes arguments --- 930,938 ---- com_init ! \in-system-ok unload-chain chain-add-before freetypelibs internal ! \ IDispatch Calling Interface \ This is for calling methods in the IDispatch Interface. \ It is a nasty calling convention that uses run-time type checking, passes arguments *************** *** 958,965 **** --- 969,980 ---- else abort" Variant Stack Full!" then ; + in-system + : .vt ( -- ) DispCall cargs @ 0 ?do DispCall rgvarg @ i 16 * + vt@ dup vt>str type ." : " argcells 2 = if d. else . then loop ; + in-previous + : retVT@ ( -- n VT ) RetVT vt@ ; *************** *** 985,988 **** --- 1000,1005 ---- >unicode drop INVOKE_FUNC ; + in-system + : .dispwords ( interface -- ) 0 >r rp@ 0 rot 0 swap UCOM IDispatch GetTypeInfo abort" Unable to Call Dispatch!" *************** *** 991,994 **** --- 1008,1018 ---- external + in-previous + + : do-displate ( interface interface str len -- hres ) \ bind by string, not by ID + methkind swap rot getdispID rot DispatchCall ; + + in-system + : Do-Disp ( interface -- hres ) \ behavior of a dispatcher peek s" Words" Istr= if .dispwords skip-word exit then *************** *** 1002,1014 **** abort" Unable to Find ProgID!" IDispatch swap CLSCTX_SERVER 0 rot CoCreateInstance abort" Unable to Get IUnknown!" ! IMMEDIATE does> do-disp ; ! ! : do-displate ( interface interface str len -- hres ) \ bind by string, not by ID ! methkind swap rot getdispID rot DispatchCall ; ! : DispLate" ( interface <method> -- hres ) \ late-late bound dispatch ! state @ if COMPILE dup COMPILE (s") ," COMPILE do-displate else dup [CHAR] " parse do-displate then ; IMMEDIATE module --- 1026,1037 ---- abort" Unable to Find ProgID!" IDispatch swap CLSCTX_SERVER 0 rot CoCreateInstance abort" Unable to Get IUnknown!" ! IMMEDIATE does> Do-Disp ; ! : DispLate" ( interface "method"" -- hres ) \ late-late bound dispatch ! state @ if postpone dup postpone (s") ," postpone do-displate else dup [CHAR] " parse do-displate then ; IMMEDIATE + in-previous + module *************** *** 1032,1036 **** \ To Start up a component, you need to call CoCreateInstance (part of OLE32.DLL) ! SpVoice 0 1 ISpVoice voice CoCreateInstance [IF] ." Can't Load SPVoice!" [THEN] \ Now "voice" can be called as if it were an object. If called --- 1055,1059 ---- \ To Start up a component, you need to call CoCreateInstance (part of OLE32.DLL) ! voice ISpVoice 1 0 SpVoice CoCreateInstance [IF] ." Can't Load SPVoice!" [THEN] \ Now "voice" can be called as if it were an object. If called |
|
From: George H. <geo...@us...> - 2013-11-28 20:51:58
|
Update of /cvsroot/win32forth/win32forth/src In directory sfp-cvs-1.v30.ch3.sourceforge.com:/tmp/cvs-serv1710 Modified Files: CONTROL.F GENERIC.F Pre-save.f Primutil.f Log Message: Added suppress-system for DOES> words. Moved setting of locks to pre-save and minor tweeks to GUI. Index: GENERIC.F =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/GENERIC.F,v retrieving revision 1.31 retrieving revision 1.32 diff -C2 -d -r1.31 -r1.32 *** GENERIC.F 20 Nov 2013 12:28:36 -0000 1.31 --- GENERIC.F 28 Nov 2013 20:51:55 -0000 1.32 *************** *** 115,119 **** in-previous ! 1 bits AmDialog 1 bits wStatus1 1 bits wStatus2 --- 115,119 ---- in-previous ! 1 bits wStatus0 ' wStatus0 alias AmDialog \ Can be aliased by descendants of CONTROL only 1 bits wStatus1 1 bits wStatus2 *************** *** 294,298 **** :M Scroll: { x y -- } ! \ *G The ScrollWindow function scrolls the contents of the specified window's client area. hWnd if 0 0 y x hWnd Call ScrollWindow drop --- 294,298 ---- :M Scroll: { x y -- } ! \ *G Scroll the contents of the specified window's client area. hWnd if 0 0 y x hWnd Call ScrollWindow drop *************** *** 300,304 **** :M Move: { x y w h -- } ! \ *G The MoveWindow function changes the position and dimensions of window. \ ** For a top-level window, the position and dimensions are relative to the upper-left corner \ ** of the screen. For a child window, they are relative to the upper-left corner of the parent --- 300,304 ---- :M Move: { x y w h -- } ! \ *G Change the position and dimensions of window. \ ** For a top-level window, the position and dimensions are relative to the upper-left corner \ ** of the screen. For a child window, they are relative to the upper-left corner of the parent *************** *** 451,467 **** :M GetStyle: ( -- style ) ! \ *G Retrieves the window styles. GWL_STYLE GetWindowLong: self ;M :M SetStyle: ( style -- ) ! \ *G Sets a new window style. GWL_STYLE SetWindowLong: self drop ;M :M +Style: ( style -- ) ! \ *G Add a window style. GetStyle: self OR SetStyle: self ;M :M -Style: ( style -- ) ! \ *G Remove a window style. INVERT GetStyle: self AND SetStyle: self ;M --- 451,467 ---- :M GetStyle: ( -- style ) ! \ *G Retrieves the window styles of a running window. GWL_STYLE GetWindowLong: self ;M :M SetStyle: ( style -- ) ! \ *G Sets a new window style of a running window. GWL_STYLE SetWindowLong: self drop ;M :M +Style: ( style -- ) ! \ *G Add a window style to a running window. GetStyle: self OR SetStyle: self ;M :M -Style: ( style -- ) ! \ *G Remove a window style from a running window. INVERT GetStyle: self AND SetStyle: self ;M *************** *** 653,669 **** \ 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 --- 653,676 ---- \ The following definitions are for handling Dialog messages and have been moved \ here rather than have multiple copies of the code in different descendants : ?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 ; : ?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. + : +DialogList ( -- ) \ link into dialog list in Start: + \ *G Used so window responds to Dialog messages. Used by ModeLessDialog DialogWindow and + \ ** MdiDialog classes but can be added to any descendants of class Window (including + \ ** descendants of Child-Window) so they can respond to dialog messages. Can also be + \ ** used programatically. + 1 to AmDialog hwnd if ?DoAddDialogList then ; + + : -DialogList ( -- ) \ don't link from dialog list in Start: + \ *G Disable responding to dialog messages. This was mainly used for the ~: destructor method + \ ** though is no longer needed. Can also be used programatically. + hwnd if ?DoRemoveDialogList then 0 to AmDialog ; + : DoDialogMsg { pMsg flag -- pMsg f | pMsg FALSE } Dialog-link \ all dialog handles Index: Pre-save.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/Pre-save.f,v retrieving revision 1.7 retrieving revision 1.8 diff -C2 -d -r1.7 -r1.8 *** Pre-save.f 15 Nov 2013 19:35:03 -0000 1.7 --- Pre-save.f 28 Nov 2013 20:51:55 -0000 1.8 *************** *** 66,68 **** --- 66,93 ---- pre-save-image-chain chain-add PreInitAppID + dpr-warning-off + + : pre-init-system-locks-off ( -- ) + \ *G Set all the system deferred words for locking and unlocking (except (memlock) and + \ ** (memunlock) which are set by the kernel) to noops in the image. This is done for + \ ** the system so that at start-up code that uses them will work correctly before the locks + \ ** are initialised. + ['] noop is-image (controllock) + ['] noop is-image (controlunlock) + ['] noop is-image (dialoglock) \ no longer needed + ['] noop is-image (dialogunlock) \ no longer needed + ['] noop is-image (classnamelock) + ['] noop is-image (classnameunlock) + ['] noop is-image (pointerlock) + ['] noop is-image (pointerunlock) + ['] noop is-image (dynlock) + ['] noop is-image (dynunlock) + ['] noop is-image (gdilock) + ['] noop is-image (gdiunlock) + ; + + dpr-warning-on + + pre-save-image-chain chain-add pre-init-system-locks-off + in-previous Index: Primutil.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/Primutil.f,v retrieving revision 1.65 retrieving revision 1.66 diff -C2 -d -r1.65 -r1.66 *** Primutil.f 20 Nov 2013 12:28:36 -0000 1.65 --- Primutil.f 28 Nov 2013 20:51:55 -0000 1.66 *************** *** 251,254 **** --- 251,256 ---- r> to sys-warning? throw ; immediate + : Suppress-system suppress on ; + : allot-to ( n1 -- ) \ *G Extend the dictionary space of most recent word compile to length n1. *************** *** 1085,1092 **** \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ defer (controllock) defer (controlunlock) ! defer (dialoglock) ! defer (dialogunlock) defer (classnamelock) defer (classnameunlock) --- 1087,1096 ---- \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ + dpr-warning-off + defer (controllock) defer (controlunlock) ! defer (dialoglock) deprecated ! defer (dialogunlock) deprecated defer (classnamelock) defer (classnameunlock) *************** *** 1098,1123 **** defer (gdiunlock) ! : init-system-locks-off ( -- ) ! \ *G Set all the system deferred words for locking and unlocking (except (memlock) and ! \ ** (memunlock) which are set by the kernel) to noops. This is done automatically ! \ ** by the system at start-up so code that uses it will work correctly before the locks ! \ ** are initialised. ! ['] noop is (controllock) ! ['] noop is (controlunlock) ! ['] noop is (dialoglock) ! ['] noop is (dialogunlock) ! ['] noop is (classnamelock) ! ['] noop is (classnameunlock) ! ['] noop is (pointerlock) ! ['] noop is (pointerunlock) ! ['] noop is (dynlock) ! ['] noop is (dynunlock) ! ['] noop is (gdilock) ! ['] noop is (gdiunlock) ! ; ! ! init-system-locks-off ! initialization-chain chain-add init-system-locks-off \s --- 1102,1119 ---- defer (gdiunlock) ! ' noop is (controllock) ! ' noop is (controlunlock) ! ' noop is (dialoglock) \ no longer needed ! ' noop is (dialogunlock) \ no longer needed ! ' noop is (classnamelock) ! ' noop is (classnameunlock) ! ' noop is (pointerlock) ! ' noop is (pointerunlock) ! ' noop is (dynlock) ! ' noop is (dynunlock) ! ' noop is (gdilock) ! ' noop is (gdiunlock) ! dpr-warning-on \s Index: CONTROL.F =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/CONTROL.F,v retrieving revision 1.14 retrieving revision 1.15 diff -C2 -d -r1.14 -r1.15 *** CONTROL.F 15 Mar 2013 00:23:06 -0000 1.14 --- CONTROL.F 28 Nov 2013 20:51:55 -0000 1.15 *************** *** 102,108 **** int Horizontal int Vertical ! int timering? \ are we opening a popup info window ! int timerclosed? \ has popup been closed ! int auto-close? \ does info window automatically close after a time? int style max-binfo 1+ bytes binfo --- 102,108 ---- int Horizontal int Vertical ! ' wStatus0 alias timering? \ are we opening a popup info window ! ' wStatus1 alias timerclosed? \ has popup been closed ! ' wStatus2 alias auto-close? \ does info window automatically close after a time? int style max-binfo 1+ bytes binfo *************** *** 179,187 **** :M WindowStyle: ( -- style ) \ *G Get the window style of this control ! [ WS_CHILD WS_VISIBLE or ] literal ;M :M AddStyle: ( n -- ) \ *G Set any additional style of the control. Must be done before the control ! \ ** is created. to style ;M --- 179,187 ---- :M WindowStyle: ( -- style ) \ *G Get the window style of this control ! [ WS_CHILD WS_VISIBLE or ] literal style or ;M :M AddStyle: ( n -- ) \ *G Set any additional style of the control. Must be done before the control ! \ ** is started. Use +Style: to add to a running control. to style ;M *************** *** 249,253 **** :M GetAutoClose: ( -- flag ) ! auto-close? ;M :M WM_TIMER ( h m w l -- res ) --- 249,253 ---- :M GetAutoClose: ( -- flag ) ! auto-close? 0<> ;M :M WM_TIMER ( h m w l -- res ) |
|
From: George H. <geo...@us...> - 2013-11-28 19:46:33
|
Update of /cvsroot/win32forth/win32forth/src/lib In directory sfp-cvs-1.v30.ch3.sourceforge.com:/tmp/cvs-serv29647 Modified Files: HtmlDisplayWindow.f Log Message: Modified to get all the winrect parameters for the client area before getting the height of the rebar (which also uses winrect) to avoid conflict. Index: HtmlDisplayWindow.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/lib/HtmlDisplayWindow.f,v retrieving revision 1.10 retrieving revision 1.11 diff -C2 -d -r1.10 -r1.11 *** HtmlDisplayWindow.f 15 Nov 2013 19:35:04 -0000 1.10 --- HtmlDisplayWindow.f 28 Nov 2013 19:46:29 -0000 1.11 *************** *** 220,227 **** winRect GetClientRect: self ! Left: winRect ! ShowToolbar? if Height: HtmlRebar 2 - else Top: winRect then ! Right: winRect ! Bottom: winRect ShowToolbar? if Height: HtmlRebar - 1+ then Move: HtmlControl --- 220,226 ---- winRect GetClientRect: self ! Left: winRect Top: winRect Right: winRect Bottom: winRect 2>r ! ShowToolbar? if drop Height: HtmlRebar 2 - then ! 2r> ShowToolbar? if Height: HtmlRebar - 1+ then Move: HtmlControl |
|
From: George H. <geo...@us...> - 2013-11-28 19:28:20
|
Update of /cvsroot/win32forth/win32forth/src/kernel In directory sfp-cvs-1.v30.ch3.sourceforge.com:/tmp/cvs-serv28403 Modified Files: fkernel.f Log Message: Added a variable to allow CREATE ...IMMEDIATE....DOES>... words to be put in system space w/o issuing warnings when new descendants are created.Modified DOES> and ;CODE to use latestxt. Index: fkernel.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/kernel/fkernel.f,v retrieving revision 1.98 retrieving revision 1.99 diff -C2 -d -r1.98 -r1.99 *** fkernel.f 19 Nov 2013 16:31:44 -0000 1.98 --- fkernel.f 28 Nov 2013 19:28:18 -0000 1.99 *************** *** 4544,4557 **** @ @ 0x00FFFFFF and 0xC1C790 = ; \ nop mov ecx, # ?; used in see and debugger in-application : (;CODE) ( -- ) ! R> @ LAST @ NAME> ! ; : (DOES>) ( -- ) ! LAST @ NAME> R> TUCK @ OVER ! ! SYS-ADDR? 0= SWAP ! SYS-ADDR? AND SYS-WARNING? AND ! IF WARN_SYSWORD3 WARNMSG THEN ; : #(;CODE) ( a1 -- ) --- 4544,4563 ---- @ @ 0x00FFFFFF and 0xC1C790 = ; \ nop mov ecx, # ?; used in see and debugger + variable suppress suppress off + + : Sys-warn-does? ( newcode destxt -- ) + suppress @ if suppress off 2drop else + SYS-ADDR? 0= SWAP + SYS-ADDR? AND SYS-WARNING? AND + IF WARN_SYSWORD3 WARNMSG THEN then ; + in-application : (;CODE) ( -- ) ! R> @ Latestxt @ ! ; : (DOES>) ( -- ) ! Latestxt @ R> TUCK @ OVER ! ! turnkeyed? if 2drop else Sys-warn-does? then ; : #(;CODE) ( a1 -- ) *************** *** 6072,6076 **** \ PARMS IF COMPILE UNNESTP ELSE COMPILE UNNEST THEN [COMPILE] EXIT ! FALSE TO ?:M [COMPILE] [ PARMS-INIT DO-;CHAIN ; IMMEDIATE --- 6078,6082 ---- \ PARMS IF COMPILE UNNESTP ELSE COMPILE UNNEST THEN [COMPILE] EXIT ! FALSE TO ?:M [COMPILE] [ PARMS-INIT DO-;CHAIN suppress off ; IMMEDIATE |
1040 messages has been excluded from this view by a project administrator.
