Menu
▾
▴
win32forth-cvs — CVS Commit List
You can subscribe to this list here.
| 2004 |
Jan
|
Feb
|
Mar
|
Apr
|
May
|
Jun
|
Jul
|
Aug
|
Sep
|
Oct
|
Nov
|
Dec
(70) |
|---|---|---|---|---|---|---|---|---|---|---|---|---|
| 2005 |
Jan
(38) |
Feb
(4) |
Mar
(11) |
Apr
(49) |
May
(81) |
Jun
(65) |
Jul
(36) |
Aug
(57) |
Sep
(63) |
Oct
(57) |
Nov
(49) |
Dec
(41) |
| 2006 |
Jan
(75) |
Feb
(80) |
Mar
(10) |
Apr
(13) |
May
(100) |
Jun
(100) |
Jul
(77) |
Aug
(87) |
Sep
(80) |
Oct
(124) |
Nov
(39) |
Dec
(41) |
| 2007 |
Jan
(20) |
Feb
(32) |
Mar
(32) |
Apr
(43) |
May
(146) |
Jun
(40) |
Jul
(49) |
Aug
(33) |
Sep
(25) |
Oct
(19) |
Nov
(11) |
Dec
(8) |
| 2008 |
Jan
(4) |
Feb
(11) |
Mar
(31) |
Apr
(40) |
May
(34) |
Jun
(24) |
Jul
(39) |
Aug
(104) |
Sep
(27) |
Oct
(35) |
Nov
(34) |
Dec
(97) |
| 2009 |
Jan
(75) |
Feb
(29) |
Mar
(45) |
Apr
(76) |
May
(121) |
Jun
(103) |
Jul
(67) |
Aug
(28) |
Sep
(22) |
Oct
(39) |
Nov
(9) |
Dec
(15) |
| 2010 |
Jan
(7) |
Feb
(39) |
Mar
(40) |
Apr
(57) |
May
(67) |
Jun
(69) |
Jul
(49) |
Aug
(68) |
Sep
(22) |
Oct
(7) |
Nov
(2) |
Dec
(10) |
| 2011 |
Jan
|
Feb
|
Mar
(10) |
Apr
(4) |
May
(6) |
Jun
(10) |
Jul
(16) |
Aug
(23) |
Sep
(9) |
Oct
|
Nov
(28) |
Dec
(3) |
| 2012 |
Jan
(11) |
Feb
(10) |
Mar
(1) |
Apr
|
May
(4) |
Jun
(3) |
Jul
(3) |
Aug
(4) |
Sep
(2) |
Oct
|
Nov
|
Dec
(1) |
| 2013 |
Jan
|
Feb
(7) |
Mar
(30) |
Apr
(4) |
May
(4) |
Jun
(8) |
Jul
(10) |
Aug
(4) |
Sep
|
Oct
(2) |
Nov
(24) |
Dec
(13) |
| 2014 |
Jan
(7) |
Feb
(2) |
Mar
|
Apr
(1) |
May
(9) |
Jun
|
Jul
(3) |
Aug
(9) |
Sep
|
Oct
(2) |
Nov
|
Dec
(3) |
| 2015 |
Jan
(4) |
Feb
(2) |
Mar
|
Apr
|
May
|
Jun
(1) |
Jul
|
Aug
(5) |
Sep
(1) |
Oct
(4) |
Nov
(7) |
Dec
(39) |
| 2016 |
Jan
(17) |
Feb
(2) |
Mar
(2) |
Apr
|
May
(1) |
Jun
(1) |
Jul
|
Aug
|
Sep
|
Oct
|
Nov
(1) |
Dec
(2) |
| 2017 |
Jan
|
Feb
(3) |
Mar
|
Apr
|
May
(1) |
Jun
(2) |
Jul
|
Aug
(3) |
Sep
|
Oct
|
Nov
|
Dec
(2) |
| 2018 |
Jan
|
Feb
|
Mar
(2) |
Apr
|
May
|
Jun
|
Jul
|
Aug
|
Sep
|
Oct
|
Nov
|
Dec
|
| 2019 |
Jan
|
Feb
|
Mar
(1) |
Apr
|
May
|
Jun
|
Jul
|
Aug
|
Sep
|
Oct
|
Nov
|
Dec
|
| 2022 |
Jan
|
Feb
|
Mar
|
Apr
|
May
(1) |
Jun
|
Jul
|
Aug
|
Sep
(1) |
Oct
(2) |
Nov
(1) |
Dec
(1) |
| 2023 |
Jan
|
Feb
|
Mar
|
Apr
|
May
|
Jun
|
Jul
|
Aug
(1) |
Sep
|
Oct
(1) |
Nov
|
Dec
|
| 2025 |
Jan
|
Feb
|
Mar
|
Apr
|
May
|
Jun
(1) |
Jul
|
Aug
|
Sep
|
Oct
|
Nov
|
Dec
|
|
From: George H. <geo...@us...> - 2010-02-14 17:47:08
|
Update of /cvsroot/win32forth/win32forth/src/kernel In directory sfp-cvsdas-1.v30.ch3.sourceforge.com:/tmp/cvs-serv422/kernel Modified Files: version.f Log Message: Minor optimisation Index: version.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/kernel/version.f,v retrieving revision 1.16 retrieving revision 1.17 diff -C2 -d -r1.16 -r1.17 *** version.f 7 Feb 2010 08:02:22 -0000 1.16 --- version.f 14 Feb 2010 17:46:23 -0000 1.17 *************** *** 3,10 **** cr .( Loading META version info) ! 61400 VALUE #VERSION# \ Change only the version number above; the build number is automatically assigned. ! \ After changeing the version number you must rebuild your complete Win32Forth \ system (including WinEd and SciEdit). Because this Version number is used in \ wm_win32for-init to create a unique message name. --- 3,10 ---- cr .( Loading META version info) ! 61500 VALUE #VERSION# \ Change only the version number above; the build number is automatically assigned. ! \ After changing the version number you must rebuild your complete Win32Forth \ system (including WinEd and SciEdit). Because this Version number is used in \ wm_win32for-init to create a unique message name. |
|
From: George H. <geo...@us...> - 2010-02-14 17:47:02
|
Update of /cvsroot/win32forth/win32forth/src In directory sfp-cvsdas-1.v30.ch3.sourceforge.com:/tmp/cvs-serv422 Modified Files: CONTROLS.F Window.f Log Message: Minor optimisation Index: Window.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/Window.f,v retrieving revision 1.24 retrieving revision 1.25 diff -C2 -d -r1.24 -r1.25 *** Window.f 9 Feb 2010 19:22:10 -0000 1.24 --- Window.f 14 Feb 2010 17:46:23 -0000 1.25 *************** *** 135,139 **** to Height to Width ;M ! :M On_Size: ( wParam -- ) \ *G User windows should override the On_Size: method. When this method is \ ** called, the variables Width and Height will have already been set. \n --- 135,139 ---- to Height to Width ;M ! :M On_Size: ( hndl msg wParam -- ) \ *G User windows should override the On_Size: method. When this method is \ ** called, the variables Width and Height will have already been set. \n Index: CONTROLS.F =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/CONTROLS.F,v retrieving revision 1.11 retrieving revision 1.12 diff -C2 -d -r1.11 -r1.12 *** CONTROLS.F 15 May 2008 04:28:26 -0000 1.11 --- CONTROLS.F 14 Feb 2010 17:46:21 -0000 1.12 *************** *** 35,57 **** int pWmKillFocus \ function returns '0' if it handled message, non-zero otherwise ! \ For backwards compatibility ! \ synonym ClientRect wRect \ made colon defs - [cdo-2008May13] ! \ synonym ClientRect.addrof wRect.addrof ! \ synonym ClientRect.left wRect.left ! \ synonym ClientRect.right wRect.right ! \ synonym ClientRect.top wRect.top \ Synonym ClientRect.bottom wRect.bottom ! : ClientRect \ synonym of wRect - for backwards compatibility ! wRect ; ! : ClientRect.addrof \ synonym of wRect.addrof - for backwards compatibility ! wRect.addrof ; ! : ClientRect.left \ synonym of wRect.left - for backwards compatibility ! wRect.left ; ! : ClientRect.right \ synonym of wRect.right - for backwards compatibility ! wRect.right ; ! : ClientRect.top \ synonym of wRect.top - for backwards compatibility ! wRect.top ; ! : ClientRect.bottom \ synonym of wRect.bottom - for backwards compatibility ! wRect.bottom ; :M ClassInit: ( -- ) --- 35,57 ---- int pWmKillFocus \ function returns '0' if it handled message, non-zero otherwise ! \ For backwards compatibility. NOTE must be defined with synonym for typing in the object compiler. ! synonym ClientRect wRect \ made colon defs - [cdo-2008May13]. Undone Tuesday, February 09 2010 gah. ! synonym ClientRect.addrof wRect.addrof ! synonym ClientRect.left wRect.left ! synonym ClientRect.right wRect.right ! synonym ClientRect.top wRect.top \ Synonym ClientRect.bottom wRect.bottom ! \ : ClientRect \ synonym of wRect - for backwards compatibility ! \ wRect ; ! \ : ClientRect.addrof \ synonym of wRect.addrof - for backwards compatibility ! \ wRect.addrof ; ! \ : ClientRect.left \ synonym of wRect.left - for backwards compatibility ! \ wRect.left ; ! \ : ClientRect.right \ synonym of wRect.right - for backwards compatibility ! \ wRect.right ; ! \ : ClientRect.top \ synonym of wRect.top - for backwards compatibility ! \ wRect.top ; ! \ : ClientRect.bottom \ synonym of wRect.bottom - for backwards compatibility ! \ wRect.bottom ; :M ClassInit: ( -- ) |
|
From: George H. <geo...@us...> - 2010-02-14 17:46:38
|
Update of /cvsroot/win32forth/win32forth/src/tools In directory sfp-cvsdas-1.v30.ch3.sourceforge.com:/tmp/cvs-serv422/tools Modified Files: ListDLLSymbols.F Log Message: Minor optimisation Index: ListDLLSymbols.F =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/tools/ListDLLSymbols.F,v retrieving revision 1.3 retrieving revision 1.4 diff -C2 -d -r1.3 -r1.4 *** ListDLLSymbols.F 28 Dec 2008 02:27:05 -0000 1.3 --- ListDLLSymbols.F 14 Feb 2010 17:46:28 -0000 1.4 *************** *** 23,30 **** defer EnumSymbolsProc ! 3 callback: EnumSymbolsCallback { pSymInfo SymbolSize UserContext -- } ! pSymInfo to pSymInfo pSymInfo 84 + pSymInfo 76 + @ ( add len ) ! EnumSymbolsProc ; : _EnumSymbolsProc ( add len -- ) --- 23,29 ---- defer EnumSymbolsProc ! 3 callback: EnumSymbolsCallback { pSymInfo SymbolSize UserContext -- true } pSymInfo 84 + pSymInfo 76 + @ ( add len ) ! EnumSymbolsProc true ; : _EnumSymbolsProc ( add len -- ) |
|
From: George H. <geo...@us...> - 2010-02-14 17:46:37
|
Update of /cvsroot/win32forth/win32forth/src/lib In directory sfp-cvsdas-1.v30.ch3.sourceforge.com:/tmp/cvs-serv422/lib Modified Files: RegistryWindowPos.f Log Message: Minor optimisation Index: RegistryWindowPos.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/lib/RegistryWindowPos.f,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 Binary files /tmp/cvsrHOTUR and /tmp/cvsyS2kRE differ |
|
From: George H. <geo...@us...> - 2010-02-14 17:42:18
|
Update of /cvsroot/win32forth/win32forth/demos In directory sfp-cvsdas-1.v30.ch3.sourceforge.com:/tmp/cvs-serv32415 Modified Files: MultiHello.f WINHELLO.F Log Message: Minor optimisation Index: WINHELLO.F =================================================================== RCS file: /cvsroot/win32forth/win32forth/demos/WINHELLO.F,v retrieving revision 1.7 retrieving revision 1.8 diff -C2 -d -r1.7 -r1.8 *** WINHELLO.F 2 Sep 2008 06:46:27 -0000 1.7 --- WINHELLO.F 14 Feb 2010 17:42:07 -0000 1.8 *************** *** 40,45 **** \ check if our drawing area is visible or not ! 0 0 170 90 SetRect: wRect ! AddrOf: wRect GetHandle: dc call RectVisible if \ let's draw... black SetBkColor: dc --- 40,45 ---- \ check if our drawing area is visible or not ! 0 0 170 90 SetRect: winRect ! AddrOf: winRect GetHandle: dc call RectVisible if \ let's draw... black SetBkColor: dc *************** *** 62,67 **** \ of the window only the the part of the window in whitch we \ are going to draw is marked as invalid. ! 0 0 170 90 SetRect: wRect ! 1 AddrOf: wRect hWnd Call InvalidateRect ?win-error ;M --- 62,67 ---- \ of the window only the the part of the window in whitch we \ are going to draw is marked as invalid. ! 0 0 170 90 SetRect: winRect ! 1 AddrOf: winRect hWnd Call InvalidateRect ?win-error ;M Index: MultiHello.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/demos/MultiHello.f,v retrieving revision 1.6 retrieving revision 1.7 diff -C2 -d -r1.6 -r1.7 *** MultiHello.f 2 Sep 2008 06:46:27 -0000 1.6 --- MultiHello.f 14 Feb 2010 17:42:01 -0000 1.7 *************** *** 134,139 **** \ get the Client area of the window and fill it black ! AddrOf: wRect GetClientRect: self ! black AddrOf: wRect FillRect: dc \ set the backgroundcolor for text to black --- 134,139 ---- \ get the Client area of the window and fill it black ! AddrOf: winRect GetClientRect: self ! black AddrOf: winRect FillRect: dc \ set the backgroundcolor for text to black |
|
From: George H. <geo...@us...> - 2010-02-09 19:55:04
|
Update of /cvsroot/win32forth/win32forth/src/lib In directory sfp-cvsdas-1.v30.ch3.sourceforge.com:/tmp/cvs-serv14048 Modified Files: Tag: V614XX MDI.F Log Message: Minor optimisation Index: MDI.F =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/lib/MDI.F,v retrieving revision 1.8 retrieving revision 1.8.6.1 diff -C2 -d -r1.8 -r1.8.6.1 *** MDI.F 5 Jun 2006 06:40:35 -0000 1.8 --- MDI.F 9 Feb 2010 19:54:57 -0000 1.8.6.1 *************** *** 286,294 **** 3 pick ( msg ) over obj>class MFA ((findm)) IF - sp0 @ >r sp@ 4 cells+ sp0 ! dup>r catch ?dup IF r@ WndProcError THEN r>drop - r> sp0 ! ELSE drop DefMDIChildProc --- 286,292 ---- |
|
From: George H. <geo...@us...> - 2010-02-09 19:53:50
|
Update of /cvsroot/win32forth/win32forth/src/lib In directory sfp-cvsdas-1.v30.ch3.sourceforge.com:/tmp/cvs-serv13954 Modified Files: MDI.F Log Message: Minor optimisation Index: MDI.F =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/lib/MDI.F,v retrieving revision 1.8 retrieving revision 1.9 diff -C2 -d -r1.8 -r1.9 *** MDI.F 5 Jun 2006 06:40:35 -0000 1.8 --- MDI.F 9 Feb 2010 19:53:43 -0000 1.9 *************** *** 286,294 **** 3 pick ( msg ) over obj>class MFA ((findm)) IF - sp0 @ >r sp@ 4 cells+ sp0 ! dup>r catch ?dup IF r@ WndProcError THEN r>drop - r> sp0 ! ELSE drop DefMDIChildProc --- 286,292 ---- |
|
From: George H. <geo...@us...> - 2010-02-09 19:52:22
|
Update of /cvsroot/win32forth/win32forth/src In directory sfp-cvsdas-1.v30.ch3.sourceforge.com:/tmp/cvs-serv13780 Modified Files: Tag: V614XX Window.f Log Message: Minor optimisation Index: Window.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/Window.f,v retrieving revision 1.23 retrieving revision 1.23.2.1 diff -C2 -d -r1.23 -r1.23.2.1 *** Window.f 1 Feb 2010 01:29:41 -0000 1.23 --- Window.f 9 Feb 2010 19:52:13 -0000 1.23.2.1 *************** *** 243,252 **** 3 pick ( msg ) over obj>class MFA ((findm)) ! if sp0 @ >r sp@ 6 cells+ sp0 ! dup>r catch ?dup if r@ WndProcError then rdrop - r> sp0 ! else \ -- a1 \ the object address DefWindowProc: [ ( a1 -- ) ] \ gets used here --- 243,251 ---- 3 pick ( msg ) over obj>class MFA ((findm)) ! if dup>r catch ?dup if r@ WndProcError then rdrop else \ -- a1 \ the object address DefWindowProc: [ ( a1 -- ) ] \ gets used here |
|
From: George H. <geo...@us...> - 2010-02-09 19:22:21
|
Update of /cvsroot/win32forth/win32forth/src In directory sfp-cvsdas-1.v30.ch3.sourceforge.com:/tmp/cvs-serv8522 Modified Files: Window.f Log Message: Minor optimisation Index: Window.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/Window.f,v retrieving revision 1.23 retrieving revision 1.24 diff -C2 -d -r1.23 -r1.24 *** Window.f 1 Feb 2010 01:29:41 -0000 1.23 --- Window.f 9 Feb 2010 19:22:10 -0000 1.24 *************** *** 243,252 **** 3 pick ( msg ) over obj>class MFA ((findm)) ! if sp0 @ >r sp@ 6 cells+ sp0 ! dup>r catch ?dup if r@ WndProcError then rdrop - r> sp0 ! else \ -- a1 \ the object address DefWindowProc: [ ( a1 -- ) ] \ gets used here --- 243,251 ---- 3 pick ( msg ) over obj>class MFA ((findm)) ! if dup>r catch ?dup if r@ WndProcError then rdrop else \ -- a1 \ the object address DefWindowProc: [ ( a1 -- ) ] \ gets used here |
|
From: Dirk B. <db...@us...> - 2010-02-07 08:35:02
|
Update of /cvsroot/win32forth/win32forth-extsrc/extsrc/installer In directory sfp-cvsdas-1.v30.ch3.sourceforge.com:/tmp/cvs-serv32329 Modified Files: Files.nsi Uninstall.nsi Win32Forth.nsi Log Message: Changed Version to 6.14.00 Index: Files.nsi =================================================================== RCS file: /cvsroot/win32forth/win32forth-extsrc/extsrc/installer/Files.nsi,v retrieving revision 1.7 retrieving revision 1.8 diff -C2 -d -r1.7 -r1.8 *** Files.nsi 13 Jun 2009 11:03:40 -0000 1.7 --- Files.nsi 7 Feb 2010 08:34:51 -0000 1.8 *************** *** 5,29 **** File "..\..\..\win32forth\HAND.CUR" File "..\..\..\win32forth\HARROW.CUR" - File "..\..\..\win32forth\Help.exe" File "..\..\..\win32forth\Hyper.cfg" - File "..\..\..\win32forth\HYPER.NDX" File "..\..\..\win32forth\MAGNIFY.CUR" - File "..\..\..\win32forth\PictureViewer.exe" - File "..\..\..\win32forth\Player4.exe" - File "..\..\..\win32forth\PlayVirginRadio.exe" File "..\..\..\win32forth\setup.exe" - File "..\..\..\win32forth\Solipion.exe" File "..\..\..\win32forth\SPLITH.CUR" File "..\..\..\win32forth\SPLITV.CUR" File "..\..\..\win32forth\sqlite3.dll" - File "..\..\..\win32forth\Sudoku.exe" File "..\..\..\win32forth\w32fScintilla.dll" File "..\..\..\win32forth\Win32for.cfg" - File "..\..\..\win32forth\WIN32FOR.DBG" - File "..\..\..\win32forth\Win32for.exe" - File "..\..\..\win32forth\win32forthIDE.exe" File "..\..\..\win32forth\Win32forUser.cfg" File "..\..\..\win32forth\Wincon.dll" - File "..\..\..\win32forth\WinEd.exe" File "..\..\..\win32forth\WinEdColorize.f" File "..\..\..\win32forth\WinEdColorize1.COL" --- 5,18 ---- *************** *** 85,89 **** File "..\..\..\win32forth\apps\ForthForm\POINT.F" File "..\..\..\win32forth\apps\ForthForm\PREFERENCES.ff" - File "..\..\..\win32forth\apps\ForthForm\quiksort.f" File "..\..\..\win32forth\apps\ForthForm\RECT.F" File "..\..\..\win32forth\apps\ForthForm\Splitter1.f" --- 74,77 ---- *************** *** 401,405 **** File "..\..\..\win32forth\apps\Win32ForthIDE\ProjectTree.f" File "..\..\..\win32forth\apps\Win32ForthIDE\ProjectWindow.f" - File "..\..\..\win32forth\apps\Win32ForthIDE\quiksort.f" File "..\..\..\win32forth\apps\Win32ForthIDE\RECT.F" File "..\..\..\win32forth\apps\Win32ForthIDE\ScintillaHyperMDI.f" --- 389,392 ---- *************** *** 415,418 **** --- 402,408 ---- File "..\..\..\win32forth\apps\Win32ForthIDE\X_SEARCH.F" SetOutPath "$INSTDIR\apps\Win32ForthIDE\Forms\" + File "..\..\..\win32forth\apps\Win32ForthIDE\Forms\ChooseIcon.ff" + File "..\..\..\win32forth\apps\Win32ForthIDE\Forms\ChooseIcon.ff_code" + File "..\..\..\win32forth\apps\Win32ForthIDE\Forms\ChooseIcon.frm" File "..\..\..\win32forth\apps\Win32ForthIDE\Forms\CONTROLPROPERTY.ff" File "..\..\..\win32forth\apps\Win32ForthIDE\Forms\CONTROLPROPERTY.frm" *************** *** 998,1001 **** --- 988,992 ---- File "..\..\..\win32forth\src\POINTER.F" File "..\..\..\win32forth\src\PRIMHASH.F" + File "..\..\..\win32forth\src\Primutil.bak" File "..\..\..\win32forth\src\Primutil.f" File "..\..\..\win32forth\src\PrintSupport.f" *************** *** 1006,1009 **** --- 997,1001 ---- File "..\..\..\win32forth\src\sysload.f" File "..\..\..\win32forth\src\transient.f" + File "..\..\..\win32forth\src\Utils.bak" File "..\..\..\win32forth\src\Utils.f" File "..\..\..\win32forth\src\w32fMsg.f" *************** *** 1079,1082 **** --- 1071,1075 ---- File "..\..\..\win32forth\src\lib\file.f" File "..\..\..\win32forth\src\lib\FileAssociations.f" + File "..\..\..\win32forth\src\lib\FileLister.bak" File "..\..\..\win32forth\src\lib\FileLister.f" File "..\..\..\win32forth\src\lib\FlashControl.F" *************** *** 1101,1104 **** --- 1094,1098 ---- File "..\..\..\win32forth\src\lib\PDFControl.F" File "..\..\..\win32forth\src\lib\ProgressBar.f" + File "..\..\..\win32forth\src\lib\quiksort.f" File "..\..\..\win32forth\src\lib\RebarControl.f" File "..\..\..\win32forth\src\lib\RecentFiles.f" Index: Uninstall.nsi =================================================================== RCS file: /cvsroot/win32forth/win32forth-extsrc/extsrc/installer/Uninstall.nsi,v retrieving revision 1.7 retrieving revision 1.8 diff -C2 -d -r1.7 -r1.8 *** Uninstall.nsi 13 Jun 2009 11:03:41 -0000 1.7 --- Uninstall.nsi 7 Feb 2010 08:34:52 -0000 1.8 *************** *** 1,28 **** ! ; Clean up Win32Forth Delete "$INSTDIR\fkernel.exe" Delete "$INSTDIR\FreeImage.dll" Delete "$INSTDIR\HAND.CUR" Delete "$INSTDIR\HARROW.CUR" - Delete "$INSTDIR\Help.exe" Delete "$INSTDIR\Hyper.cfg" - Delete "$INSTDIR\HYPER.NDX" Delete "$INSTDIR\MAGNIFY.CUR" - Delete "$INSTDIR\PictureViewer.exe" - Delete "$INSTDIR\Player4.exe" - Delete "$INSTDIR\PlayVirginRadio.exe" Delete "$INSTDIR\setup.exe" - Delete "$INSTDIR\Solipion.exe" Delete "$INSTDIR\SPLITH.CUR" Delete "$INSTDIR\SPLITV.CUR" Delete "$INSTDIR\sqlite3.dll" - Delete "$INSTDIR\Sudoku.exe" Delete "$INSTDIR\w32fScintilla.dll" Delete "$INSTDIR\Win32for.cfg" - Delete "$INSTDIR\WIN32FOR.DBG" - Delete "$INSTDIR\Win32for.exe" - Delete "$INSTDIR\win32forthIDE.exe" Delete "$INSTDIR\Win32forUser.cfg" Delete "$INSTDIR\Wincon.dll" - Delete "$INSTDIR\WinEd.exe" Delete "$INSTDIR\WinEdColorize.f" Delete "$INSTDIR\WinEdColorize1.COL" --- 1,29 ---- ! ; Clean up Win32Forth ! Delete "$INSTDIR\Help.exe" ! Delete "$INSTDIR\HYPER.NDX" ! Delete "$INSTDIR\PictureViewer.exe" ! Delete "$INSTDIR\Player4.exe" ! Delete "$INSTDIR\PlayVirginRadio.exe" ! Delete "$INSTDIR\Solipion.exe" ! Delete "$INSTDIR\Sudoku.exe" ! Delete "$INSTDIR\WIN32FOR.DBG" ! Delete "$INSTDIR\Win32for.exe" ! Delete "$INSTDIR\win32forthIDE.exe" ! Delete "$INSTDIR\WinEd.exe" ! Delete "$INSTDIR\fkernel.exe" Delete "$INSTDIR\FreeImage.dll" Delete "$INSTDIR\HAND.CUR" Delete "$INSTDIR\HARROW.CUR" Delete "$INSTDIR\Hyper.cfg" Delete "$INSTDIR\MAGNIFY.CUR" Delete "$INSTDIR\setup.exe" Delete "$INSTDIR\SPLITH.CUR" Delete "$INSTDIR\SPLITV.CUR" Delete "$INSTDIR\sqlite3.dll" Delete "$INSTDIR\w32fScintilla.dll" Delete "$INSTDIR\Win32for.cfg" Delete "$INSTDIR\Win32forUser.cfg" Delete "$INSTDIR\Wincon.dll" Delete "$INSTDIR\WinEdColorize.f" Delete "$INSTDIR\WinEdColorize1.COL" *************** *** 81,85 **** Delete "$INSTDIR\apps\ForthForm\POINT.F" Delete "$INSTDIR\apps\ForthForm\PREFERENCES.ff" - Delete "$INSTDIR\apps\ForthForm\quiksort.f" Delete "$INSTDIR\apps\ForthForm\RECT.F" Delete "$INSTDIR\apps\ForthForm\Splitter1.f" --- 82,85 ---- *************** *** 380,384 **** Delete "$INSTDIR\apps\Win32ForthIDE\ProjectTree.f" Delete "$INSTDIR\apps\Win32ForthIDE\ProjectWindow.f" - Delete "$INSTDIR\apps\Win32ForthIDE\quiksort.f" Delete "$INSTDIR\apps\Win32ForthIDE\RECT.F" Delete "$INSTDIR\apps\Win32ForthIDE\ScintillaHyperMDI.f" --- 380,383 ---- *************** *** 393,396 **** --- 392,398 ---- Delete "$INSTDIR\apps\Win32ForthIDE\TABORDER.F" Delete "$INSTDIR\apps\Win32ForthIDE\X_SEARCH.F" + Delete "$INSTDIR\apps\Win32ForthIDE\Forms\ChooseIcon.ff" + Delete "$INSTDIR\apps\Win32ForthIDE\Forms\ChooseIcon.ff_code" + Delete "$INSTDIR\apps\Win32ForthIDE\Forms\ChooseIcon.frm" Delete "$INSTDIR\apps\Win32ForthIDE\Forms\CONTROLPROPERTY.ff" Delete "$INSTDIR\apps\Win32ForthIDE\Forms\CONTROLPROPERTY.frm" *************** *** 953,956 **** --- 955,959 ---- Delete "$INSTDIR\src\POINTER.F" Delete "$INSTDIR\src\PRIMHASH.F" + Delete "$INSTDIR\src\Primutil.bak" Delete "$INSTDIR\src\Primutil.f" Delete "$INSTDIR\src\PrintSupport.f" *************** *** 961,964 **** --- 964,968 ---- Delete "$INSTDIR\src\sysload.f" Delete "$INSTDIR\src\transient.f" + Delete "$INSTDIR\src\Utils.bak" Delete "$INSTDIR\src\Utils.f" Delete "$INSTDIR\src\w32fMsg.f" *************** *** 1029,1032 **** --- 1033,1037 ---- Delete "$INSTDIR\src\lib\file.f" Delete "$INSTDIR\src\lib\FileAssociations.f" + Delete "$INSTDIR\src\lib\FileLister.bak" Delete "$INSTDIR\src\lib\FileLister.f" Delete "$INSTDIR\src\lib\FlashControl.F" *************** *** 1051,1054 **** --- 1056,1060 ---- Delete "$INSTDIR\src\lib\PDFControl.F" Delete "$INSTDIR\src\lib\ProgressBar.f" + Delete "$INSTDIR\src\lib\quiksort.f" Delete "$INSTDIR\src\lib\RebarControl.f" Delete "$INSTDIR\src\lib\RecentFiles.f" *************** *** 1143,1146 **** --- 1149,1212 ---- Delete "$INSTDIR\Templates\TreeViewInSplitWindow.f" + ; Remove remaining directories + RMDir "$SMPROGRAMS\My Application" + RMDir "$INSTDIR\Templates\" + RMDir "$INSTDIR\src\tools\" + RMDir "$INSTDIR\src\res\" + RMDir "$INSTDIR\src\old\" + RMDir "$INSTDIR\src\lib\fmacro\" + RMDir "$INSTDIR\src\lib\Ext_classes\" + RMDir "$INSTDIR\src\lib\" + RMDir "$INSTDIR\src\kernel\" + RMDir "$INSTDIR\src\gdi\" + RMDir "$INSTDIR\src\console\" + RMDir "$INSTDIR\src\Compat\" + RMDir "$INSTDIR\src\" + RMDir "$INSTDIR\proj\" + RMDir "$INSTDIR\Help\Res\" + RMDir "$INSTDIR\Help\html\IDE\" + RMDir "$INSTDIR\Help\html\Guides\" + RMDir "$INSTDIR\Help\html\dpans\" + RMDir "$INSTDIR\Help\html\" + RMDir "$INSTDIR\Help\hdb\" + RMDir "$INSTDIR\Help\" + RMDir "$INSTDIR\doc\OldStuff\OldConsole\" + RMDir "$INSTDIR\doc\OldStuff\" + RMDir "$INSTDIR\doc\Noble stuff\" + RMDir "$INSTDIR\doc\ForthForm\" + RMDir "$INSTDIR\doc\" + RMDir "$INSTDIR\demos\MiniDB\" + RMDir "$INSTDIR\demos\GdiDemo\" + RMDir "$INSTDIR\demos\COM\" + RMDir "$INSTDIR\demos\ADO\" + RMDir "$INSTDIR\demos\AccelDemo\" + RMDir "$INSTDIR\demos\" + RMDir "$INSTDIR\apps\WinEd\res\" + RMDir "$INSTDIR\apps\WinEd\" + RMDir "$INSTDIR\apps\Win32ForthIDE\res\" + RMDir "$INSTDIR\apps\Win32ForthIDE\Forms\" + RMDir "$INSTDIR\apps\Win32ForthIDE\" + RMDir "$INSTDIR\apps\Sudoku\Res\" + RMDir "$INSTDIR\apps\Sudoku\Games\" + RMDir "$INSTDIR\apps\Sudoku\" + RMDir "$INSTDIR\apps\Solipon2\" + RMDir "$INSTDIR\apps\Setup\" + RMDir "$INSTDIR\apps\SciEdit\res\" + RMDir "$INSTDIR\apps\SciEdit\" + RMDir "$INSTDIR\apps\ProMgr\res\" + RMDir "$INSTDIR\apps\ProMgr\" + RMDir "$INSTDIR\apps\PlayVirginRadio\" + RMDir "$INSTDIR\apps\Player4\" + RMDir "$INSTDIR\apps\PictureViewer\Res\" + RMDir "$INSTDIR\apps\PictureViewer\" + RMDir "$INSTDIR\apps\Internet\WebServer\" + RMDir "$INSTDIR\apps\Internet\" + RMDir "$INSTDIR\apps\ForthForm\res\" + RMDir "$INSTDIR\apps\ForthForm\" + RMDir "$INSTDIR\apps\Console-Games\" + RMDir "$INSTDIR\apps\Chess\" + RMDir "$INSTDIR\apps\" + RMDir "$INSTDIR\" + ; Clean up ExtSource Delete "$INSTDIR\extsrc\installer\ExtFiles.nsi" Index: Win32Forth.nsi =================================================================== RCS file: /cvsroot/win32forth/win32forth-extsrc/extsrc/installer/Win32Forth.nsi,v retrieving revision 1.11 retrieving revision 1.12 diff -C2 -d -r1.11 -r1.12 *** Win32Forth.nsi 13 Jun 2009 11:03:41 -0000 1.11 --- Win32Forth.nsi 7 Feb 2010 08:34:52 -0000 1.12 *************** *** 7,14 **** ; Define your application version !define VER_MAJOR 6 ! !define VER_MINOR 13 ! !define VER_REVISION 03 ! !define VER_DISPLAY "6.13.03" ! !define VER_FILE "61303" ; Define your application name --- 7,14 ---- ; Define your application version !define VER_MAJOR 6 ! !define VER_MINOR 14 ! !define VER_REVISION 00 ! !define VER_DISPLAY "6.14.00" ! !define VER_FILE "61400" ; Define your application name *************** *** 22,26 **** ; Main Install settings Name "${APPNAMEANDVERSION}" ! InstallDir "$PROGRAMFILES\${APPNAMEANDVERSION}" InstallDirRegKey HKLM "Software\${APPNAMEANDVERSION}" "" OutFile "w32f${VER_FILE}.exe" --- 22,27 ---- ; Main Install settings Name "${APPNAMEANDVERSION}" ! ; InstallDir "$PROGRAMFILES\${APPNAMEANDVERSION}" ! InstallDir "c:\${APPNAMEANDVERSION}" InstallDirRegKey HKLM "Software\${APPNAMEANDVERSION}" "" OutFile "w32f${VER_FILE}.exe" |
|
From: Dirk B. <db...@us...> - 2010-02-07 08:06:31
|
Update of /cvsroot/win32forth/win32forth In directory sfp-cvsdas-1.v30.ch3.sourceforge.com:/tmp/cvs-serv11654 Modified Files: fkernel.exe setup.exe Log Message: Changed Version to 6.14.00 Index: setup.exe =================================================================== RCS file: /cvsroot/win32forth/win32forth/setup.exe,v retrieving revision 1.37 retrieving revision 1.38 diff -C2 -d -r1.37 -r1.38 Binary files /tmp/cvsT08Byr and /tmp/cvsjuSu7n differ Index: fkernel.exe =================================================================== RCS file: /cvsroot/win32forth/win32forth/fkernel.exe,v retrieving revision 1.57 retrieving revision 1.58 diff -C2 -d -r1.57 -r1.58 Binary files /tmp/cvsQ19xyq and /tmp/cvsVOHS8m differ |
|
From: Dirk B. <db...@us...> - 2010-02-07 08:02:30
|
Update of /cvsroot/win32forth/win32forth/src/kernel In directory sfp-cvsdas-1.v30.ch3.sourceforge.com:/tmp/cvs-serv9524 Modified Files: version.f Log Message: Changed Version to 6.14.00 Index: version.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/kernel/version.f,v retrieving revision 1.15 retrieving revision 1.16 diff -C2 -d -r1.15 -r1.16 *** version.f 13 Jun 2009 11:05:59 -0000 1.15 --- version.f 7 Feb 2010 08:02:22 -0000 1.16 *************** *** 3,7 **** cr .( Loading META version info) ! 61303 VALUE #VERSION# \ Change only the version number above; the build number is automatically assigned. --- 3,7 ---- cr .( Loading META version info) ! 61400 VALUE #VERSION# \ Change only the version number above; the build number is automatically assigned. |
|
From: Dirk B. <db...@us...> - 2010-02-07 07:36:25
|
Update of /cvsroot/win32forth/win32forth/Help/hdb In directory sfp-cvsdas-1.v30.ch3.sourceforge.com:/tmp/cvs-serv28562 Modified Files: HelpCls.tv HelpWrd.hdb HelpWrd.ndx HelpWrd.tv HelpWrd.txt Log Message: Rebuild of the "Help word database" Index: HelpCls.tv =================================================================== RCS file: /cvsroot/win32forth/win32forth/Help/hdb/HelpCls.tv,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** HelpCls.tv 13 Jun 2009 11:09:51 -0000 1.1 --- HelpCls.tv 7 Feb 2010 07:36:16 -0000 1.2 *************** *** 1,2289 **** ! 0 tvn| CLASSROOT| tvd| 5445| 1 tvn| -methods-| tvd| 0| ! -2 tvn| CLASSINIT:| tvd| 5446| ! -2 tvn| ~:| tvd| 5447| ! -2 tvn| ADDR:| tvd| 5448| ! -2 tvn| PRINT:| tvd| 5449| ! 1 tvn| OBJECT| tvd| 5450| 2 tvn| -methods-| tvd| 0| ! -3 tvn| GET:| tvd| 5451| ! -3 tvn| PUT:| tvd| 5452| [...4551 lines suppressed...] ! -4 tvn| FIELDNAME:| tvd| 8518| ! -4 tvn| GETINT:| tvd| 8519| ! -4 tvn| GETDOUBLE:| tvd| 8520| ! -4 tvn| GETFLOAT:| tvd| 8521| ! -4 tvn| GETSTR:| tvd| 8522| ! -4 tvn| GETBLOB:| tvd| 8523| ! -4 tvn| ISNULL?:| tvd| 8524| ! -4 tvn| NEXTROW:| tvd| 8525| ! -4 tvn| (BIND):| tvd| 8526| ! -4 tvn| BINDINT:| tvd| 8527| ! -4 tvn| BINDDOUBLE:| tvd| 8528| ! -4 tvn| BINDFLOAT:| tvd| 8529| ! -4 tvn| BINDSTR:| tvd| 8530| ! -4 tvn| BINDBLOB:| tvd| 8531| ! 1 tvn| STRING| tvd| 8537| 2 tvn| -methods-| tvd| 0| ! -3 tvn| GET:| tvd| 8538| ! -3 tvn| PUT:| tvd| 8539| ! -3 tvn| ADD:| tvd| 8540| ! -3 tvn| APPEND:| tvd| 8541| Index: HelpWrd.txt =================================================================== RCS file: /cvsroot/win32forth/win32forth/Help/hdb/HelpWrd.txt,v retrieving revision 1.5 retrieving revision 1.6 diff -C2 -d -r1.5 -r1.6 *** HelpWrd.txt 13 Jun 2009 11:05:59 -0000 1.5 --- HelpWrd.txt 7 Feb 2010 07:36:16 -0000 1.6 *************** *** 1305,1309 **** \ 0 , \ dwReserved1 \ MAX-PATH allot \ cFileName[MAX_PATH] ! \ 14 allot \ cAlternateFileNane[14] MACRO: ;M MACRO: AH, --- 1305,1309 ---- \ 0 , \ dwReserved1 \ MAX-PATH allot \ cFileName[MAX_PATH] ! \ 14 allot \ cAlternateFileName[14] MACRO: ;M [...1091 lines suppressed...] ! CONSTANT WIN2008 \ Windows Server 2008 ! CONSTANT WIN2008R2 \ Windows Server 2008 R2 CONSTANT WIN2K + CONSTANT WIN7 \ Windows 7 + \ To check for a version, say Win2K or greater, try WINVER WIN2K >= CONSTANT WIN95 CONSTANT WIN98 *************** *** 13840,13844 **** : WINVER-INIT ( -- ) \ get windows version ! CONSTANT WINVISTA \ To check for a version, say Win2K or greater, try WINVER WIN2K >= CONSTANT WINXP VALUE WITH-SOURCE? --- 13846,13850 ---- : WINVER-INIT ( -- ) \ get windows version ! CONSTANT WINVISTA \ Windows Vista CONSTANT WINXP VALUE WITH-SOURCE? Index: HelpWrd.hdb =================================================================== RCS file: /cvsroot/win32forth/win32forth/Help/hdb/HelpWrd.hdb,v retrieving revision 1.5 retrieving revision 1.6 diff -C2 -d -r1.5 -r1.6 Binary files /tmp/cvs6ORo97 and /tmp/cvs4OWAC3 differ Index: HelpWrd.tv =================================================================== RCS file: /cvsroot/win32forth/win32forth/Help/hdb/HelpWrd.tv,v retrieving revision 1.5 retrieving revision 1.6 diff -C2 -d -r1.5 -r1.6 *** HelpWrd.tv 13 Jun 2009 11:05:59 -0000 1.5 --- HelpWrd.tv 7 Feb 2010 07:36:16 -0000 1.6 *************** *** 1,5272 **** 0 tvn| Words| tvd| 0| ! 1 tvn| CLASSROOT| tvd| 5445| 2 tvn| -methods-| tvd| 0| ! -3 tvn| CLASSINIT:| tvd| 5446| ! -3 tvn| ~:| tvd| 5447| ! -3 tvn| ADDR:| tvd| 5448| ! -3 tvn| PRINT:| tvd| 5449| ! 2 tvn| OBJECT| tvd| 5450| 3 tvn| -methods-| tvd| 0| ! -4 tvn| GET:| tvd| 5451| [...23492 lines suppressed...] ! 2 tvn| \| tvd| 4222| ! 2 tvn| \+| tvd| 5267| ! 2 tvn| \-| tvd| 5268| ! 2 tvn| \IN-SYSTEM-OK| tvd| 5272| ! 2 tvn| \S| tvd| 5321| ! 2 tvn| ]MACRO| tvd| 5163| ! 2 tvn| __STDCALL| tvd| 5154| ! 2 tvn| {| tvd| 5343| ! 2 tvn| |IF| tvd| 4892| ! 2 tvn| |OF| tvd| 4891| 1 tvn| Deprecated| tvd| 0| ! 2 tvn| .DIR->FILE-NAME| tvd| 5025| ! 2 tvn| >BOLD| tvd| 4117| ! 2 tvn| >NORM| tvd| 4116| ! 2 tvn| ABS>REL| tvd| 5292| ! 2 tvn| REL>ABS| tvd| 5293| 2 tvn| TASK-SLEEP| tvd| 2577| ! 2 tvn| _PRINT-DIR-FILES| tvd| 5023| 1 tvn| Vocabularies| tvd| 0| 2 tvn| Application space| tvd| 0| Index: HelpWrd.ndx =================================================================== RCS file: /cvsroot/win32forth/win32forth/Help/hdb/HelpWrd.ndx,v retrieving revision 1.5 retrieving revision 1.6 diff -C2 -d -r1.5 -r1.6 Binary files /tmp/cvs1krMnZ and /tmp/cvsuof9ZW differ |
|
From: Dirk B. <db...@us...> - 2010-02-07 07:31:20
|
Update of /cvsroot/win32forth/win32forth/src/lib In directory sfp-cvsdas-1.v30.ch3.sourceforge.com:/tmp/cvs-serv28263 Modified Files: FileLister.f Log Message: Fixed rebuilding of "the Help word database" Index: FileLister.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/lib/FileLister.f,v retrieving revision 1.9 retrieving revision 1.10 diff -C2 -d -r1.9 -r1.10 *** FileLister.f 24 Aug 2008 04:06:56 -0000 1.9 --- FileLister.f 7 Feb 2010 07:31:12 -0000 1.10 *************** *** 13,17 **** needs treeview.f needs bitmap.f ! needs apps\forthform\quiksort.f load-bitmap folderbmp "apps\forthform\res\folder.bmp" --- 13,17 ---- needs treeview.f needs bitmap.f ! needs quiksort.f load-bitmap folderbmp "apps\forthform\res\folder.bmp" |
|
From: Dirk B. <db...@us...> - 2010-02-07 07:27:28
|
Update of /cvsroot/win32forth/win32forth In directory sfp-cvsdas-1.v30.ch3.sourceforge.com:/tmp/cvs-serv25727 Modified Files: Win32for.cfg Log Message: Win7 added Index: Win32for.cfg =================================================================== RCS file: /cvsroot/win32forth/win32forth/Win32for.cfg,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 *** Win32for.cfg 22 Dec 2008 11:04:52 -0000 1.2 --- Win32for.cfg 7 Feb 2010 07:27:19 -0000 1.3 *************** *** 3,7 **** \ All system configurations should be in this file ! .( Win32Forth: a 32 Bit Forth for Windows 95/98/ME/NT4/W2K/XP) .version .cversion --- 3,7 ---- \ All system configurations should be in this file ! .( Win32Forth: a 32 Bit Forth for Windows 95/98/ME/NT4/W2K/XP/VISTA and WIN7) .version .cversion |
|
From: Dirk B. <db...@us...> - 2010-02-07 07:27:28
|
Update of /cvsroot/win32forth/win32forth/src In directory sfp-cvsdas-1.v30.ch3.sourceforge.com:/tmp/cvs-serv25727/src Modified Files: Primutil.f Utils.f Log Message: Win7 added Index: Utils.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/Utils.f,v retrieving revision 1.27 retrieving revision 1.28 diff -C2 -d -r1.27 -r1.28 *** Utils.f 20 May 2009 10:18:10 -0000 1.27 --- Utils.f 7 Feb 2010 07:27:20 -0000 1.28 *************** *** 63,68 **** WIN2K of ." 2000" endof WINXP of ." XP" endof ! WIN2003 of ." 2003" endof WINVISTA of ." VISTA" endof endcase ; --- 63,71 ---- WIN2K of ." 2000" endof WINXP of ." XP" endof ! WIN2003 of ." SERVER 2003 R2" endof WINVISTA of ." VISTA" endof + WIN2008 of ." SERVER 2008" endof + WIN2008R2 of ." SERVER 2008 R2" endof + WIN7 of ." WIN7" endof endcase ; Index: Primutil.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/Primutil.f,v retrieving revision 1.47 retrieving revision 1.48 diff -C2 -d -r1.47 -r1.48 *** Primutil.f 17 Jan 2010 10:54:50 -0000 1.47 --- Primutil.f 7 Feb 2010 07:27:20 -0000 1.48 *************** *** 696,708 **** 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 ! 9 constant winvista \ To check for a version, say Win2K or greater, try WINVER WIN2K >= --- 696,711 ---- 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 \ To check for a version, say Win2K or greater, try WINVER WIN2K >= *************** *** 711,715 **** : winver-init ( -- ) \ get windows version ! 148 dup _localalloc dup>r ! \ set length of structure r@ call GetVersionEx \ call os for version 0= abort" call failed" --- 714,718 ---- : winver-init ( -- ) \ get windows version ! 156 dup _localalloc dup>r ! \ set length of OSVERSIONINFOEX structure r@ call GetVersionEx \ call os for version 0= abort" call failed" *************** *** 738,742 **** endcase endof ! 6 of winvista endof drop -1 dup \ unknown windows version endcase --- 741,760 ---- 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 ! endcase ! ! endof drop -1 dup \ unknown windows version endcase |
|
From: George H. <geo...@us...> - 2010-02-04 21:19:00
|
Update of /cvsroot/win32forth/win32forth/src In directory sfp-cvsdas-1.v30.ch3.sourceforge.com:/tmp/cvs-serv1584 Modified Files: ANSFILE.F Log Message: Fixed spelling Index: ANSFILE.F =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/ANSFILE.F,v retrieving revision 1.11 retrieving revision 1.12 diff -C2 -d -r1.11 -r1.12 *** ANSFILE.F 15 May 2008 04:28:26 -0000 1.11 --- ANSFILE.F 4 Feb 2010 21:18:43 -0000 1.12 *************** *** 55,59 **** \ 0 , \ dwReserved1 \ MAX-PATH allot \ cFileName[MAX_PATH] ! \ 14 allot \ cAlternateFileNane[14] 2 newuser ptr-DOS-date \ ptr to 16 bit DOS date --- 55,59 ---- \ 0 , \ dwReserved1 \ MAX-PATH allot \ cFileName[MAX_PATH] ! \ 14 allot \ cAlternateFileName[14] 2 newuser ptr-DOS-date \ ptr to 16 bit DOS date |
|
From: Ezra B. <ezr...@us...> - 2010-02-01 01:43:59
|
Update of /cvsroot/win32forth/win32forth/apps/Win32ForthIDE In directory sfp-cvsdas-1.v30.ch3.sourceforge.com:/tmp/cvs-serv18355 Modified Files: FORMOBJECT.F Main.f ProjectWindow.f Log Message: Updates.EAB Index: ProjectWindow.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/Win32ForthIDE/ProjectWindow.f,v retrieving revision 1.6 retrieving revision 1.7 diff -C2 -d -r1.6 -r1.7 *** ProjectWindow.f 21 May 2009 03:16:55 -0000 1.6 --- ProjectWindow.f 1 Feb 2010 01:43:50 -0000 1.7 *************** *** 753,759 **** \ DOC 32 ENDDOC ! : +Comment ( n -- ) comment? IF drop ELSE comment? or to comment? THEN ; ! : -Comment ( n -- ) invert comment? and to comment? ; ! : \Comment ( -- ) comment? 0= IF source nip >in ! THEN ; \ ignore till end of line : build-NavigatorTree ( -- ) --- 753,759 ---- \ DOC 32 ENDDOC ! \ : +Comment ( n -- ) comment? IF drop ELSE comment? or to comment? THEN ; ! \ : -Comment ( n -- ) invert comment? and to comment? ; ! \ : \Comment ( -- ) comment? 0= IF source nip >in ! THEN ; \ ignore till end of line : build-NavigatorTree ( -- ) *************** *** 921,927 **** Clear: NavigatorTree GetTabCount: OpenFilesTab 1+ 0 ! do TCIF_PARAM IsMask: OpenFilesTab ! i GetTabInfo: OpenFilesTab ! Lparam: OpenFilesTab dup to ThisFile if GetFileType: ThisFile FT_SOURCE = if GetFileName: ThisFile count TrackCode: NavigatorTree --- 921,925 ---- Clear: NavigatorTree GetTabCount: OpenFilesTab 1+ 0 ! do i GetFileTabChild dup to ThisFile if GetFileType: ThisFile FT_SOURCE = if GetFileName: ThisFile count TrackCode: NavigatorTree Index: Main.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/Win32ForthIDE/Main.f,v retrieving revision 1.64 retrieving revision 1.65 diff -C2 -d -r1.64 -r1.65 *** Main.f 10 May 2009 03:56:28 -0000 1.64 --- Main.f 1 Feb 2010 01:43:50 -0000 1.65 *************** *** 142,145 **** --- 142,149 ---- TCS_BUTTONS TCS_MULTILINE or TCS_FLATBUTTONS or AddStyle: OpenFilesTab Font TabFont + Font DefaultEditorFont + S" Fixedsys" SetFaceName: DefaultEditorFont + 9 SetHeight: DefaultEditorFont + DefaultEditorFont value EditorFont : GetFileTabChild ( ndx -- child ) \ ndx must be valid *************** *** 186,192 **** TabFile? ?dup if 0 ! do TCIF_PARAM IsMask: OpenFilesTab ! i GetTabInfo: OpenFilesTab ! Lparam: OpenFilesTab ActiveChild = if i SetSelectedTab: OpenFilesTab leave then --- 190,194 ---- TabFile? ?dup if 0 ! do i GetFileTabChild ActiveChild = if i SetSelectedTab: OpenFilesTab leave then *************** *** 229,233 **** tab-index GetFileTabChild >r GetFileType: [ r@ ] FT_SOURCE = ! if Compile: [ r@ ] then r>drop ; --- 231,237 ---- tab-index GetFileTabChild >r GetFileType: [ r@ ] FT_SOURCE = ! if SaveAllBeforeCompile? ! if IDM_SAVE_ALL DoCommand ! then Compile: [ r@ ] then r>drop ; *************** *** 249,258 **** tab-index GetFileTabChild GetFileType: [ ] FT_SOURCE = Enable: mnucmp ; ! : Handle_TabRightClick { \ htinfo -- } ! GetHandle: OpenFilesTab get-mouse-xy swap pad 2! ! pad 0 TCM_HITTEST GetHandle: OpenFilesTab Call SendMessage ! dup to tab-index -1 <> if check-menu-funcs ! GetHandle: Mainwindow dup get-mouse-xy rot Track: TabPopup then ; --- 253,266 ---- tab-index GetFileTabChild GetFileType: [ ] FT_SOURCE = Enable: mnucmp ; ! : OnTabButton? { \ htinfo -- f } \ was the mouse right clicked on a tab button?, f = -1 if no, tab index if yes ! 3 cells localalloc: htinfo ! GetHandle: OpenFilesTab get-mouse-xy swap htinfo 2! ! htinfo 0 TCM_HITTEST GetHandle: OpenFilesTab Call SendMessage \ -1 means it wasn't on a tab ! ; ! ! : Handle_TabRightClick ( -- ) ! OnTabButton? dup to tab-index -1 <> if check-menu-funcs ! GetHandle: Mainwindow dup get-mouse-xy rot Track: TabPopup then ; *************** *** 578,581 **** --- 586,592 ---- MonitorTop s>d (d.) s" MonitorTop" "SetDefault Detached? s>d (d.) s" Detached" "SetDefault + GetFaceName: EditorFont s" TextFont" "SetDefault + GetHeight: EditorFont + s>d (d.) s" TextFontSize" "SetDefault WindowState SIZE_RESTORED = *************** *** 640,643 **** --- 651,656 ---- s" MonitorTop" "GetDefaultValue if to MonitorTop else drop then s" Detached" "GetDefaultValue if to detached? else drop then + s" TextFont" "GetDefault -IF 2dup SetFaceName: EditorFont THEN 2drop + s" TextFontSize" "GetDefaultValue if SetHeight: EditorFont else drop then s" SearchText" "GetDefault -IF 2dup "CLIP" find-buf place THEN 2drop *************** *** 695,702 **** load-defaults self Start: OpenFilesTab \ start after mdiclient - Handle: TabFont SetFont: OpenFilesTab show-form-tab \ show the form designer whether detached or not Adjust-Monitor ! TabPopup SetPopupBar: self Update show-project-tab \ always default --- 708,714 ---- load-defaults self Start: OpenFilesTab \ start after mdiclient show-form-tab \ show the form designer whether detached or not Adjust-Monitor ! TabPopup SetPopupBar: self \ start the popup Update show-project-tab \ always default *************** *** 714,717 **** --- 726,735 ---- THEN ;M + :M WM_RBUTTONDOWN ( h m w l -- res ) + OnTabButton? -1 <> + if WM_RBUTTONDOWN WM: Super \ handle it normally + else 0 \ forget it + then ;M + :M WM_CLOSE ( h m w l -- res ) CloseAll: self *************** *** 824,827 **** --- 842,846 ---- caret-backcolor SetCaretBackColor: ChildParent Select-ForeColor Select-BackColor SetSelectionColor: ChildParent + EditorFont SetFont: ChildWindow \ tuck it here so splitter windows are also updated ; Index: FORMOBJECT.F =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/Win32ForthIDE/FORMOBJECT.F,v retrieving revision 1.6 retrieving revision 1.7 diff -C2 -d -r1.6 -r1.7 *** FORMOBJECT.F 10 Apr 2009 16:44:39 -0000 1.6 --- FORMOBJECT.F 1 Feb 2010 01:43:50 -0000 1.7 *************** *** 25,29 **** --- 25,31 ---- MenuItem "Save (.ff)" IDM_FORM_SAVE DoCommand ; MenuItem "Save &As" IDM_FORM_SaveAs DoCommand ; + MenuSeparator MenuItem "Compile (.frm)" IDM_FORM_WRITE DoCommand ; + :MenuItem mnu_tkey "Compile to exe" IDM_TURNKEY_FORM DoCommand ; MenuSeparator MenuItem "Add/Edit Code" ShowCodeEditorTab ; *************** *** 104,107 **** --- 106,113 ---- int firsttime? \ are we sizing for the first time? int locked? + int turnkeying? + int success? \ true if successful compile + create exe-ext ," _exe" \ form file with turnkey code e.g form1.frm_exe + MultistatusBar frmStatusbar *************** *** 997,1000 **** --- 1003,1007 ---- ?mnu_font else locked? Check: mnu_lock + GetSuperClass: ActiveForm DIALOG-CLASS = Enable: mnu_tkey FormPopup to CurrentPopup then h m w l WM_RBUTTONDOWN WM: Super *************** *** 1017,1025 **** 0 to OnInitCode max-codesize malloc to Globalcode ! GlobalCode max-codesize erase max-codesize malloc to LocalCode ! LocalCode max-codesize erase max-codesize malloc to OnInitCode ! OnInitCode max-codesize erase 0 to LocalCursorPos 0 to GlobalCursorPos --- 1024,1032 ---- 0 to OnInitCode max-codesize malloc to Globalcode ! GlobalCode off max-codesize malloc to LocalCode ! LocalCode off max-codesize malloc to OnInitCode ! OnInitCode off 0 to LocalCursorPos 0 to GlobalCursorPos *************** *** 1102,1105 **** --- 1109,1113 ---- true to firsttime? false to locked? + false to turnkeying? Init: self ;M *************** *** 1391,1395 **** #controls SetCount: self GetData: self Write: FormFile \ save header first ! if Close: FormFile exit \ exit if errorl then #Controls 1+ 1 ?do i SetThisControl --- 1399,1403 ---- #controls SetCount: self GetData: self Write: FormFile \ save header first ! if Close: FormFile exit \ exit if error then #Controls 1+ 1 ?do i SetThisControl *************** *** 1575,1579 **** : writeGroupStyle ( -- ) \ write WS_GROUP style if needed ! Group?: ThisControl GetType: ThisControl TypeRadioButton <> and if +crlf 2tabs s" WS_GROUP +Style: " append --- 1583,1587 ---- : writeGroupStyle ( -- ) \ write WS_GROUP style if needed ! Group?: ThisControl GetType: ThisControl TypeRadioButton <> and if +crlf 2tabs s" WS_GROUP +Style: " append *************** *** 1668,1671 **** --- 1676,1685 ---- then ; + : SearchLocalCode ( str cnt -- f ) \ search local code for str, return true if found + LocalCode zcount -trailing ?dup + if 2swap caps-search nip nip + else drop false + then ; + : writeGlobalCode ( -- ) \ outside of form GlobalCode zcount -trailing ?dup *************** *** 1879,1882 **** --- 1893,1897 ---- : writeWindowStyle ( -- ) + s" :M WindowStyle:" SearchLocalCode ?exit \ exits if you have written your own window style code ?write-child-style GetSuperClass: self DIALOG-CLASS <> ?exit \ don't write style for child windows or mdi dialogs *************** *** 1914,1930 **** : writeWM_COMMAND ( -- ) +crlf ! GetSuperClass: self MDIDIALOG-CLASS = if s" :M ON_COMMAND: ( h m w l -- res )" append&crlf else s" :M WM_COMMAND ( h m w l -- res )" append&crlf ! then ! 2tabs s" over LOWORD ( ID ) self \ object address on stack" append&crlf ! 2tabs s" WMCommand-Func ?dup \ must not be zero" append&crlf ! 2tabs s" if" append 1 +tabs s" execute" append&crlf ! 2tabs s" else" append 1 +tabs s" 2drop \ drop ID and object address" ! append&crlf 2tabs s" then" append 1 +tabs s" 0 ;M" append&crlf \ write function to set OnWMCommand +crlf s" :M SetCommand: ( cfa -- ) \ set WMCommand function" append&crlf 2tabs s" to WMCommand-Func" append&crlf ! 2tabs s" ;M" append&crlf ; : writeOnPaint ( -- ) --- 1929,1955 ---- : writeWM_COMMAND ( -- ) +crlf ! GetSuperClass: self MDIDIALOG-CLASS = dup>r if s" :M ON_COMMAND: ( h m w l -- res )" append&crlf else s" :M WM_COMMAND ( h m w l -- res )" append&crlf ! then r> 0= ! if 2tabs s" dup 0= \ id is from a menu if lparam is zero" append&crlf ! 2tabs s" if over LOWORD CurrentMenu if dup DoMenu: CurrentMenu then" append&crlf ! 2tabs s" CurrentPopup if dup DoMenu: CurrentPopup then drop" append&crlf ! 2tabs s" else over LOWORD ( ID ) self \ object address on stack" append&crlf ! 2tabs s" WMCommand-Func ?dup \ must not be zero" append&crlf ! 2tabs s" if execute" append&crlf ! 2tabs s" else 2drop \ drop ID and object address" append&crlf ! 2tabs s" then" append&crlf ! 2tabs s" then " append ! else 2tabs s" over LOWORD ( ID ) self \ object address on stack" append&crlf ! 2tabs s" WMCommand-Func ?dup \ must not be zero" append&crlf ! 2tabs s" if execute" append&crlf ! 2tabs s" else 2drop \ drop ID and object address" append&crlf ! 2tabs s" then " append ! then s" 0 ;M" append&crlf \ write function to set OnWMCommand +crlf s" :M SetCommand: ( cfa -- ) \ set WMCommand function" append&crlf 2tabs s" to WMCommand-Func" append&crlf ! 2tabs s" ;M" append&crlf ; : writeOnPaint ( -- ) *************** *** 1935,1938 **** --- 1960,1964 ---- : writeOnSize ( -- ) + s" :M On_Size:" SearchLocalCode ?exit \ exit if you have written your own sizing code with-statusbar not ?exit +crlf *************** *** 1977,1981 **** then then 2tabs s" \ Insert your code here, e.g delete fonts, any bitmaps etc." append&crlf ! 2tabs s" On_Done: super" append&crlf 2tabs s" ;M" append&crlf ; --- 2003,2009 ---- then then 2tabs s" \ Insert your code here, e.g delete fonts, any bitmaps etc." append&crlf ! turnkeying? ! if 2tabs s" 0 Call PostQuitMessage drop \ quit the application" append&crlf ! then 2tabs s" On_Done: super" append&crlf 2tabs s" ;M" append&crlf ; *************** *** 2016,2019 **** --- 2044,2064 ---- 2tabs s" ;M" append&crlf ; + : writeMain ( -- ) \ main routine for a turnkeyed form + turnkeying? not ?exit + +crlf + s" : Main ( -- )" append&crlf + 2tabs s" Start: " append frmName count append&crlf + 2tabs s" MessageLoop bye ;" append&crlf + +crlf s" &forthdir count &appdir place" append&crlf + s" ' Main turnkey " append frmName count append s" .exe" append&crlf + false to turnkeying? \ reset it + iconfile c@ \ do we have an icon file? + if s" Needs Resources.f" append&crlf \ load resources + s"append iconfile count append "append s" " append + \in-system-ok s"append join$( &appdir count frmName count s" .exe" )join$ count append "append + s" AddAppIcon" append&crlf + then s" 1 pause-seconds bye" append + ; + : startpushbutton ( -- ) writecommoncode *************** *** 2234,2238 **** writeOnSize WriteOnDone ! writeClosing ; :M GetBuffer: ( -- addr len ) --- 2279,2284 ---- writeOnSize WriteOnDone ! writeClosing ! WriteMain ; :M GetBuffer: ( -- addr len ) *************** *** 2303,2309 **** 2dup temp$ place s" .bak" temp$ +place ! temp$ count rename-file drop ; : WriteForm { flag \ file$ -- } \ flag is true if showing messages max-path LocalAlloc: file$ IsNewForm? --- 2349,2358 ---- 2dup temp$ place s" .bak" temp$ +place ! temp$ count delete-file drop \ delete any existing file first ! temp$ count rename-file drop \ before renaming ! ; : WriteForm { flag \ file$ -- } \ flag is true if showing messages + false to success? max-path LocalAlloc: file$ IsNewForm? *************** *** 2317,2322 **** if SetFocus: self OverWrite? 0= ?exit then ! then file$ count create-backup \ always create backup file ! GetBuffer: self nip \ do we have info? if file$ count SetName: FormFile Create: FormFile ?exit --- 2366,2373 ---- if SetFocus: self OverWrite? 0= ?exit then ! then turnkeying? ! if exe-ext count file$ +place \ differentiate a turnkey form from normal compiled form ! else file$ count create-backup \ create backup file ! then GetBuffer: self nip \ do we have info? if file$ count SetName: FormFile Create: FormFile ?exit *************** *** 2324,2327 **** --- 2375,2379 ---- Close: FormFile \ close first then ?exit \ exit on error + true to success? flag 0= ?exit join$( s" File " *************** *** 2342,2345 **** --- 2394,2403 ---- false WriteForm ;M + :M Turnkey: ( -- ) + true to turnkeying? + Compile: self success? + if join$( textfile exe-ext count )join$ count Compile-File + then ;M + ;Class |
|
From: Ezra B. <ezr...@us...> - 2010-02-01 01:42:54
|
Update of /cvsroot/win32forth/win32forth/apps/Win32ForthIDE In directory sfp-cvsdas-1.v30.ch3.sourceforge.com:/tmp/cvs-serv18274 Modified Files: EdMenu.f EdVersion.f Log Message: Updates.EAB Index: EdVersion.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/Win32ForthIDE/EdVersion.f,v retrieving revision 1.13 retrieving revision 1.14 diff -C2 -d -r1.13 -r1.14 *** EdVersion.f 10 May 2009 03:53:27 -0000 1.13 --- EdVersion.f 1 Feb 2010 01:42:46 -0000 1.14 *************** *** 1,5 **** \ $Id$ ! 10210 value sciedit_version# \ Version numbers: v.ww.rr --- 1,5 ---- \ $Id$ ! 10211 value sciedit_version# \ Version numbers: v.ww.rr *************** *** 328,333 **** Can be useful when navigating not only projects but the application source code of others. ! Sunday, May 03 2009 ! - Added right click menu to tab in editor. ! Full project rebuild also navigates project, including library files and any forms. ! Added project icons to navigator. They were already there --- 328,343 ---- Can be useful when navigating not only projects but the application source code of others. ! Sunday, April 26 2009 ! - Added application template loader for templates in \templates folder ! Saturday, May 02 2009 ! - Added popup menu with some useful functions to right click of tabs in IDE editor ! ! \ changes for version 1.02.11 ! EAB Wednesday, July 08 2009 ! - Added the ability to compile dialog forms directly to executable file. Available from right click menu. ! Actually a good idea now that we can add code to a form at design time. Idea from Dirk Bruehl. ! Sunday, August 02 2009 ! - Opened files can now be added to project ! Tuesday, August 11 2009 ! - Added the ability to change the editor font. ! Index: EdMenu.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/Win32ForthIDE/EdMenu.f,v retrieving revision 1.30 retrieving revision 1.31 diff -C2 -d -r1.30 -r1.31 *** EdMenu.f 8 Sep 2008 03:03:59 -0000 1.30 --- EdMenu.f 1 Feb 2010 01:42:46 -0000 1.31 *************** *** 96,100 **** MenuItem "&New Module... \tCtrl+M" IDM_NEW_MODULE_PRJ DoCommand ; MenuSeparator ! MenuItem "&Add files to project... \tCtrl+A" IDM_ADD_PRJ DoCommand ; MenuItem "&Delete from project \tCtrl+D" IDM_DELETE_PRJ DoCommand ; :MenuItem me_addforms "Add open &forms \tCtrl+F" IDM_ADD_FORMS_PRJ DoCommand ; --- 96,101 ---- MenuItem "&New Module... \tCtrl+M" IDM_NEW_MODULE_PRJ DoCommand ; MenuSeparator ! MenuItem "&Add files to... \tCtrl+A" IDM_ADD_PRJ DoCommand ; ! :MenuItem me_addopenfls "Add opened files" IDM_ADD_OPEN_PRJ DoCommand ; MenuItem "&Delete from project \tCtrl+D" IDM_DELETE_PRJ DoCommand ; :MenuItem me_addforms "Add open &forms \tCtrl+F" IDM_ADD_FORMS_PRJ DoCommand ; *************** *** 173,178 **** MenuItem "IDE &Preferences" IDM_PREFERENCES DoCommand ; MenuSeparator ! MenuItem "Save Current Session" IDM_SAVEDEFAULT_SESSION DoCommand ; ! MenuItem "Reload Session" IDM_LOADDEFAULT_SESSION DoCommand ; MenuSeparator :MenuItem mp_showsb "&Show Statusbar" IDM_SHOW_STATUSBAR DoCommand ; --- 174,182 ---- MenuItem "IDE &Preferences" IDM_PREFERENCES DoCommand ; MenuSeparator ! MenuItem "Save Default Session" IDM_SAVEDEFAULT_SESSION DoCommand ; ! MenuItem "Reload Default Session" IDM_LOADDEFAULT_SESSION DoCommand ; ! MenuSeparator ! MenuItem "Load Session" IDM_FORM_LoadSession DoCommand ; ! MenuItem "Save Session" IDM_FORM_SaveSession DoCommand ; MenuSeparator :MenuItem mp_showsb "&Show Statusbar" IDM_SHOW_STATUSBAR DoCommand ; *************** *** 447,451 **** dup Enable: mf_tile_ver dup Enable: mf_arrange ! Enable: mf_cascade ?EnableFormMenuItems 0 ; --- 451,456 ---- dup Enable: mf_tile_ver dup Enable: mf_arrange ! dup Enable: mf_cascade ! Enable: me_addopenfls ?EnableFormMenuItems 0 ; |
|
From: Ezra B. <ezr...@us...> - 2010-02-01 01:41:57
|
Update of /cvsroot/win32forth/win32forth/apps/Win32ForthIDE In directory sfp-cvsdas-1.v30.ch3.sourceforge.com:/tmp/cvs-serv18139 Modified Files: CommandID.f EdFORTHFORM.F EdPreferences.f Log Message: Updates.EAB Index: EdFORTHFORM.F =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/Win32ForthIDE/EdFORTHFORM.F,v retrieving revision 1.8 retrieving revision 1.9 diff -C2 -d -r1.8 -r1.9 *** EdFORTHFORM.F 10 May 2009 03:50:51 -0000 1.8 --- EdFORTHFORM.F 1 Feb 2010 01:41:48 -0000 1.9 *************** *** 308,311 **** --- 308,312 ---- needs SplitterWindow.frm needs TabPropertyWindow.frm + needs ChooseIcon.frm \ more sources needs formcontrols.f \ subclassed control object *************** *** 389,392 **** --- 390,404 ---- SaveAs: ActiveForm ; IDM_FORM_SAVEAS SetCommand + : TurnkeyForm ( -- ) \ compile form to executable file + Activeform 0= ?exit \ shouldn't happen but just in case + GetSuperClass: ActiveForm DIALOG-CLASS <> dup \ dialog only! + s" Only forms of class dialog window can be turnkeyed!" ?MessageBox + ?exit + GetHandle: MainWindow SetParentWindow: frmGetIconFile + Start: frmGetIconFile \ is an iconfile needed? + continue? \ if yes + if Turnkey: ActiveForm \ then go ahead and compile + then ; IDM_TURNKEY_FORM SetCommand + : CompileForm ( -- ) \ compile to disk ActiveForm *************** *** 470,474 **** ActiveCoder ?dup if GetHandle: [ ] CloseChild: MainWindow ! then FormList Dispose 0 to FormList ActiveChild 0= \ no other file opened --- 482,486 ---- ActiveCoder ?dup if GetHandle: [ ] CloseChild: MainWindow ! then Close: CodePreviewWindow FormList Dispose 0 to FormList ActiveChild 0= \ no other file opened *************** *** 602,631 **** : write-openfiles { \ flag ThisChild -- f } false to flag ! GetTabCount: OpenFilesTab dup 0> ! if 1+ 0 ! do TCIF_PARAM IsMask: OpenFilesTab ! i GetTabInfo: OpenFilesTab ! Lparam: OpenFilesTab dup to ThisChild ! if GetFileName: ThisChild dup ! count "TO-PATHEND" s" <Untitled>" istr= not ! if s" File= " append ! count append ! GetFileType: ThisChild FT_SOURCE = ! if ',' cappend ! ChildWindow: ThisChild ! GetCurrentPos: [ ] (.) append ! ',' cappend ! ?BrowseMode: ThisChild ! if s" BROWSING" ! else s" EDITING" ! THEN append&crlf ! else +crlf ! then ! else drop then then ! loop ! else drop ! then ; : (SaveSession) ( filename$ -- ) --- 614,638 ---- : write-openfiles { \ flag ThisChild -- f } false to flag ! TabFile? 0 ! ?do i GetFileTabChild dup to ThisChild ! if GetFileName: ThisChild dup ! count "TO-PATHEND" s" <Untitled>" istr= not ! if s" File= " append ! count append ! GetFileType: ThisChild FT_SOURCE = ! if ',' cappend ! ChildWindow: ThisChild ! GetCurrentPos: [ ] (.) append ! ',' cappend ! ?BrowseMode: ThisChild ! if s" BROWSING" ! else s" EDITING" ! THEN append&crlf ! else +crlf then + else drop then ! then ! loop ; : (SaveSession) ( filename$ -- ) Index: EdPreferences.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/Win32ForthIDE/EdPreferences.f,v retrieving revision 1.7 retrieving revision 1.8 diff -C2 -d -r1.7 -r1.8 *** EdPreferences.f 10 May 2009 03:50:51 -0000 1.7 --- EdPreferences.f 1 Feb 2010 01:41:48 -0000 1.8 *************** *** 35,61 **** colorobject browsefore colorobject browseback ! : savecolors ( -- ) ! color: fore to fore-color ! color: back to back-color ! color: curr to caret-backcolor ! color: selfore to select-forecolor ! color: selback to select-backcolor ! color: browsefore to browse-forecolor ! color: browseback to browse-backcolor ! detached? >r \ save it for a moment ! IsButtonChecked?: chkAutoIndent to autoindent? ! IsButtonChecked?: chkShowTabs to with-tabs? ! IsButtonChecked?: chkIncludeLibs to include-libs? ! IsButtonChecked?: chkAutoProperty to AutoProperty? ! IsButtonChecked?: chkSingleControl to SingleControl? ! IsButtonChecked?: chkDetached to detached? ! detached? r> <> \ if this status changed ! if IDM_SHOW_FORMTAB DoCommand ! then Update ! Resize: MainWindow ! ; : command-func ( id obj -- ) --- 35,99 ---- colorobject browsefore colorobject browseback + Font Pfont \ font to actually modify, if not cancelled will copy to editorfont + 0 value fore-color-save + 0 value back-color-save + 0 value caret-backcolor-save + 0 value select-forecolor-save + 0 value select-backcolor-save + 0 value browse-forecolor-save + 0 value browse-backcolor-save + : backup-colors ( -- ) + fore-color to fore-color-save + back-color to back-color-save + caret-backcolor to caret-backcolor-save + select-forecolor to select-forecolor-save + select-backcolor to select-backcolor-save + browse-forecolor to browse-forecolor-save + browse-backcolor to browse-backcolor-save ; ! : restore-colors ( -- ) ! fore-color-save to fore-color ! back-color-save to back-color ! caret-backcolor-save to caret-backcolor ! select-forecolor-save to select-forecolor ! select-backcolor-save to select-backcolor ! browse-forecolor-save to browse-forecolor ! browse-backcolor-save to browse-backcolor ; ! : set-colors ( -- ) ! color: fore to fore-color ! color: back to back-color ! color: curr to caret-backcolor ! color: selfore to select-forecolor ! color: selback to select-backcolor ! color: browsefore to browse-forecolor ! color: browseback to browse-backcolor ; ! ! : savecolors ( -- ) ! set-colors ! GetLogFont: PFont GetLogFont: DefaultEditorFont [ LF_FACESIZE 28 + ] LITERAL cmove ! DefaultEditorFont to EditorFont ! ! detached? >r \ save it for a moment ! IsButtonChecked?: chkAutoIndent to autoindent? ! IsButtonChecked?: chkShowTabs to with-tabs? ! IsButtonChecked?: chkIncludeLibs to include-libs? ! IsButtonChecked?: chkAutoProperty to AutoProperty? ! IsButtonChecked?: chkSingleControl to SingleControl? ! IsButtonChecked?: chkDetached to detached? ! detached? r> <> \ if this status changed ! if IDM_SHOW_FORMTAB DoCommand ! then Update ! Resize: MainWindow ; ! ! : DisplayFontName ( -- ) ! s" Text Font: " pad place GetFaceName: PFont pad +place ! pad count SetText: btnFont ; ! ! : SetPFont ( -- ) ! GetLogFont: DefaultEditorFont GetLogFont: PFont [ LF_FACESIZE 28 + ] LITERAL cmove ! DisplayFontName ! pFont to EditorFont ; : command-func ( id obj -- ) *************** *** 69,73 **** getid: btnBrowseBack of choose: browseback if color: browseback paint: browse-backwindow then endof getid: btnBrowseFore of choose: browsefore if color: browsefore paint: browse-forewindow then endof ! getid: btncancel of close: self endof getid: btnok of savecolors close: self endof endcase ; --- 107,113 ---- getid: btnBrowseBack of choose: browseback if color: browseback paint: browse-backwindow then endof getid: btnBrowseFore of choose: browsefore if color: browsefore paint: browse-forewindow then endof ! getid: btnPreview of set-colors Update endof ! getid: btnFont of choose: pfont if DisplayFontName Update then endof ! getid: btncancel of DefaultEditorFont to EditorFont restore-colors Update close: self endof getid: btnok of savecolors close: self endof endcase ; *************** *** 84,88 **** SingleControl? Check: chkSingleControl detached? Check: chkDetached ! ['] command-func setcommand: self --- 124,129 ---- SingleControl? Check: chkSingleControl detached? Check: chkDetached ! SetPFont ! backup-colors ['] command-func setcommand: self Index: CommandID.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/Win32ForthIDE/CommandID.f,v retrieving revision 1.21 retrieving revision 1.22 diff -C2 -d -r1.21 -r1.22 *** CommandID.f 8 Sep 2008 03:03:59 -0000 1.21 --- CommandID.f 1 Feb 2010 01:41:48 -0000 1.22 *************** *** 146,149 **** --- 146,150 ---- NewID IDM_SHOWPROJECT_TAB NewID IDM_CLOSE_PRJ + NewID IDM_ADD_OPEN_PRJ \ Form Designer *************** *** 193,196 **** --- 194,198 ---- NewID IDM_FORM_AddToProject NewID IDM_FORM_ADDCODE + NewID IDM_TURNKEY_FORM IdCounter constant IDM_LAST |
|
From: Ezra B. <ezr...@us...> - 2010-02-01 01:36:34
|
Update of /cvsroot/win32forth/win32forth/apps/Win32ForthIDE/Forms In directory sfp-cvsdas-1.v30.ch3.sourceforge.com:/tmp/cvs-serv17886 Modified Files: EdPreferences.ff EdPreferences.frm Added Files: ChooseIcon.ff ChooseIcon.ff_code ChooseIcon.frm Log Message: Updates.EAB --- NEW FILE: ChooseIcon.ff_code --- (This appears to be a binary file; contents omitted.) --- NEW FILE: ChooseIcon.ff --- (This appears to be a binary file; contents omitted.) Index: EdPreferences.ff =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/Win32ForthIDE/Forms/EdPreferences.ff,v retrieving revision 1.4 retrieving revision 1.5 diff -C2 -d -r1.4 -r1.5 Binary files /tmp/cvs16OExC and /tmp/cvsOhJj7v differ --- NEW FILE: ChooseIcon.frm --- \ CHOOSEICON.FRM \- textbox needs excontrols.f FileOpenDialog GetIconFileDlg "Select Icon File" "Icon Files|*.ico|" create iconfile 0 , max-path allot false value continue? \ continue compiling? :Object frmGetIconFile <Super DialogWindow Font WinFont \ default font ' 2drop value WmCommand-Func \ function pointer for WM_COMMAND ColorObject FrmColor \ the background color 350 175 2value XYPos \ save screen location of form Label lblIconFile TextBox txtIconFile PushButton btnChoose PushButton btnClear PushButton btnContinue PushButton btnCancel : On_btnChoose ( h m w l -- ) \ what to do when btnChoose control has been clicked hwnd Start: GetIconFileDlg dup c@ if count SetText: txtIconFile else drop then ; : On_btnClear ( h m w l -- ) \ what to do when btnClear control has been clicked s" " SetText: txtIconFile ; : On_btnContinue ( h m w l -- ) \ what to do when btnContinue control has been clicked true to continue? GetText: txtIconFile -trailing iconfile place Close: self ; : On_btnCancel ( h m w l -- ) \ what to do when btnCancel control has been clicked false to continue? Close: self ; : frmDefaultCommand ( h m w l id obj -- ) drop case GetID: btnChoose of On_btnChoose endof GetID: btnClear of On_btnClear endof IDCONTINUE of On_btnContinue endof IDCANCEL of On_btnCancel endof endcase ; : OnInitFunction ( -- ) \ executed after form and all controls have been created iconfile count SetText: txtIconFile ; :M ClassInit: ( -- ) ClassInit: super \ Insert your code here, e.g initialize variables, values etc. ;M :M WindowStyle: ( -- style ) WS_POPUPWINDOW WS_DLGFRAME or ;M \ N.B if this form is a modal form a non-zero parent must be set :M ParentWindow: ( -- hwndparent | 0 if no parent ) hWndParent ;M :M SetParentWindow: ( hwndparent -- ) \ set owner window to hWndParent ;M :M WindowTitle: ( -- ztitle ) z" Choose Icon" ;M :M StartSize: ( -- width height ) 351 83 ;M :M StartPos: ( -- x y ) XYPos ;M :M Start: ( -- ) Start: Super Begin WinPause Hwnd 0= Until ;M :M Close: ( -- ) \ Insert your code here, e.g any data entered in form that needs to be saved Close: super ;M :M WM_COMMAND ( h m w l -- res ) over LOWORD ( ID ) self \ object address on stack WMCommand-Func ?dup \ must not be zero if execute else 2drop \ drop ID and object address then 0 ;M :M SetCommand: ( cfa -- ) \ set WMCommand function to WMCommand-Func ;M :M On_Init: ( -- ) s" MS Sans Serif" SetFaceName: WinFont 8 Width: WinFont Create: WinFont \ set form color to system color COLOR_BTNFACE Call GetSysColor NewColor: FrmColor self Start: lblIconFile 6 18 46 18 Move: lblIconFile Handle: Winfont SetFont: lblIconFile SS_RIGHT +Style: lblIconFile s" IconFile:" SetText: lblIconFile self Start: txtIconFile 54 18 234 18 Move: txtIconFile Handle: Winfont SetFont: txtIconFile self Start: btnChoose 291 18 27 16 Move: btnChoose Handle: Winfont SetFont: btnChoose s" ..." SetText: btnChoose self Start: btnClear 320 18 27 16 Move: btnClear Handle: Winfont SetFont: btnClear s" C" SetText: btnClear IDCONTINUE SetID: btnContinue self Start: btnContinue 86 53 82 25 Move: btnContinue Handle: Winfont SetFont: btnContinue s" Continue" SetText: btnContinue IDCANCEL SetID: btnCancel self Start: btnCancel 170 53 82 25 Move: btnCancel Handle: Winfont SetFont: btnCancel s" Cancel" SetText: btnCancel ParentWindow: self \ if this is a modal form disable parent if 0 ParentWindow: self Call EnableWindow drop then ['] frmDefaultCommand SetCommand: self OnInitFunction ;M :M On_Paint: ( -- ) 0 0 GetSize: self Addr: FrmColor FillArea: dc ;M :M On_Done: ( -- ) Delete: WinFont originx originy 2to XYPos ParentWindow: self \ if modal form re-enable parent if 1 ParentWindow: self Call EnableWindow drop \ reset focus to parent if we have one ParentWindow: self Call SetFocus drop then \ Insert your code here, e.g delete fonts, any bitmaps etc. On_Done: super ;M ;Object Index: EdPreferences.frm =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/Win32ForthIDE/Forms/EdPreferences.frm,v retrieving revision 1.4 retrieving revision 1.5 diff -C2 -d -r1.4 -r1.5 *** EdPreferences.frm 10 Apr 2009 16:56:09 -0000 1.4 --- EdPreferences.frm 1 Feb 2010 01:36:25 -0000 1.5 *************** *** 19,22 **** --- 19,25 ---- PushButton btnSelectFore PushButton btnSelectBack + PushButton btnBrowseFore + PushButton btnBrowseBack + PushButton btnPreview \ Coordinates and dimensions for foreChild 130 value foreChildX *************** *** 46,49 **** --- 49,53 ---- CheckBox chkAutoIndent CheckBox chkShowTabs + PushButton btnFont CheckBox chkAutoProperty CheckBox chkSingleControl *************** *** 52,57 **** PushButton btnOk PushButton btnCancel - PushButton btnBrowseFore - PushButton btnBrowseBack \ Coordinates and dimensions for BrowseForeChild 130 value BrowseForeChildX --- 56,59 ---- *************** *** 89,93 **** :M StartSize: ( -- width height ) ! 381 361 ;M --- 91,95 ---- :M StartSize: ( -- width height ) ! 383 383 ;M *************** *** 107,115 **** :M WM_COMMAND ( h m w l -- res ) ! over LOWORD ( ID ) self \ object address on stack ! WMCommand-Func ?dup \ must not be zero ! if execute ! else 2drop \ drop ID and object address ! then 0 ;M :M SetCommand: ( cfa -- ) \ set WMCommand function --- 109,121 ---- :M WM_COMMAND ( h m w l -- res ) ! dup 0= \ id is from a menu if lparam is zero ! if over LOWORD CurrentMenu if dup DoMenu: CurrentMenu then ! CurrentPopup if dup DoMenu: CurrentPopup then drop ! else over LOWORD ( ID ) self \ object address on stack ! WMCommand-Func ?dup \ must not be zero ! if execute ! else 2drop \ drop ID and object address ! then ! then 0 ;M :M SetCommand: ( cfa -- ) \ set WMCommand function *************** *** 127,174 **** self Start: grpFormOptions ! 191 98 175 99 Move: grpFormOptions Handle: Winfont SetFont: grpFormOptions s" Form Designer" SetText: grpFormOptions self Start: grpNavigator ! 16 244 190 57 Move: grpNavigator Handle: Winfont SetFont: grpNavigator s" Project Navigator" SetText: grpNavigator self Start: grpEditorOptions ! 191 16 175 71 Move: grpEditorOptions Handle: Winfont SetFont: grpEditorOptions s" Editor Options" SetText: grpEditorOptions self Start: grpColors ! 16 14 162 215 Move: grpColors Handle: Winfont SetFont: grpColors s" Editor Colors" SetText: grpColors self Start: btnForeground ! 25 30 103 26 Move: btnForeground Handle: Winfont SetFont: btnForeground s" ForeGround" SetText: btnForeground self Start: btnBackground ! 25 58 103 26 Move: btnBackground Handle: Winfont SetFont: btnBackground s" BackGround" SetText: btnBackground self Start: btnCurrentline ! 25 86 103 26 Move: btnCurrentline Handle: Winfont SetFont: btnCurrentline s" Current Line" SetText: btnCurrentline self Start: btnSelectFore ! 25 114 103 26 Move: btnSelectFore Handle: Winfont SetFont: btnSelectFore s" Select Foreground" SetText: btnSelectFore self Start: btnSelectBack ! 25 142 103 26 Move: btnSelectBack Handle: Winfont SetFont: btnSelectBack s" Select Background" SetText: btnSelectBack self Start: chkAutoIndent 203 32 100 25 Move: chkAutoIndent --- 133,195 ---- self Start: grpFormOptions ! 191 122 175 99 Move: grpFormOptions Handle: Winfont SetFont: grpFormOptions s" Form Designer" SetText: grpFormOptions self Start: grpNavigator ! 16 271 190 57 Move: grpNavigator Handle: Winfont SetFont: grpNavigator s" Project Navigator" SetText: grpNavigator self Start: grpEditorOptions ! 191 16 185 101 Move: grpEditorOptions Handle: Winfont SetFont: grpEditorOptions s" Editor Options" SetText: grpEditorOptions self Start: grpColors ! 16 14 162 246 Move: grpColors Handle: Winfont SetFont: grpColors s" Editor Colors" SetText: grpColors self Start: btnForeground ! 28 30 100 26 Move: btnForeground Handle: Winfont SetFont: btnForeground s" ForeGround" SetText: btnForeground self Start: btnBackground ! 28 58 100 26 Move: btnBackground Handle: Winfont SetFont: btnBackground s" BackGround" SetText: btnBackground self Start: btnCurrentline ! 28 86 100 26 Move: btnCurrentline Handle: Winfont SetFont: btnCurrentline s" Current Line" SetText: btnCurrentline self Start: btnSelectFore ! 28 114 100 26 Move: btnSelectFore Handle: Winfont SetFont: btnSelectFore s" Select Foreground" SetText: btnSelectFore self Start: btnSelectBack ! 28 142 100 26 Move: btnSelectBack Handle: Winfont SetFont: btnSelectBack s" Select Background" SetText: btnSelectBack + self Start: btnBrowseFore + 28 170 100 26 Move: btnBrowseFore + Handle: Winfont SetFont: btnBrowseFore + s" Browse Foreground" SetText: btnBrowseFore + + self Start: btnBrowseBack + 28 198 100 26 Move: btnBrowseBack + Handle: Winfont SetFont: btnBrowseBack + s" Browse Background" SetText: btnBrowseBack + + self Start: btnPreview + 28 232 100 25 Move: btnPreview + Handle: Winfont SetFont: btnPreview + s" Preview" SetText: btnPreview + self Start: chkAutoIndent 203 32 100 25 Move: chkAutoIndent *************** *** 181,224 **** s" Show Tabs" SetText: chkShowTabs self Start: chkAutoProperty ! 203 115 127 25 Move: chkAutoProperty Handle: Winfont SetFont: chkAutoProperty s" Auto display properties" SetText: chkAutoProperty self Start: chkSingleControl ! 203 142 139 25 Move: chkSingleControl Handle: Winfont SetFont: chkSingleControl s" Click adds single control" SetText: chkSingleControl self Start: chkDetached ! 203 167 156 23 Move: chkDetached Handle: Winfont SetFont: chkDetached s" Float Form Designer Window" SetText: chkDetached self Start: chkIncludeLibs ! 28 265 175 24 Move: chkIncludeLibs Handle: Winfont SetFont: chkIncludeLibs s" Include library files when tracking" SetText: chkIncludeLibs self Start: btnOk ! 18 320 80 25 Move: btnOk Handle: Winfont SetFont: btnOk s" &Ok" SetText: btnOk self Start: btnCancel ! 100 320 80 25 Move: btnCancel Handle: Winfont SetFont: btnCancel s" &Cancel" SetText: btnCancel - self Start: btnBrowseFore - 25 170 103 26 Move: btnBrowseFore - Handle: Winfont SetFont: btnBrowseFore - s" Browse Foreground" SetText: btnBrowseFore - - self Start: btnBrowseBack - 25 198 103 26 Move: btnBrowseBack - Handle: Winfont SetFont: btnBrowseBack - s" Browse Background" SetText: btnBrowseBack - ParentWindow: self \ if this is a modal form disable parent if 0 ParentWindow: self Call EnableWindow drop then --- 202,240 ---- s" Show Tabs" SetText: chkShowTabs + self Start: btnFont + 203 91 166 22 Move: btnFont + Handle: Winfont SetFont: btnFont + s" Text Font:" SetText: btnFont + self Start: chkAutoProperty ! 203 139 127 25 Move: chkAutoProperty Handle: Winfont SetFont: chkAutoProperty s" Auto display properties" SetText: chkAutoProperty self Start: chkSingleControl ! 203 166 139 25 Move: chkSingleControl Handle: Winfont SetFont: chkSingleControl s" Click adds single control" SetText: chkSingleControl self Start: chkDetached ! 203 191 156 23 Move: chkDetached Handle: Winfont SetFont: chkDetached s" Float Form Designer Window" SetText: chkDetached self Start: chkIncludeLibs ! 28 292 175 24 Move: chkIncludeLibs Handle: Winfont SetFont: chkIncludeLibs s" Include library files when tracking" SetText: chkIncludeLibs self Start: btnOk ! 18 347 80 25 Move: btnOk Handle: Winfont SetFont: btnOk s" &Ok" SetText: btnOk self Start: btnCancel ! 100 347 80 25 Move: btnCancel Handle: Winfont SetFont: btnCancel s" &Cancel" SetText: btnCancel ParentWindow: self \ if this is a modal form disable parent if 0 ParentWindow: self Call EnableWindow drop then |
|
From: Ezra B. <ezr...@us...> - 2010-02-01 01:32:39
|
Update of /cvsroot/win32forth/win32forth/src/lib In directory sfp-cvsdas-1.v30.ch3.sourceforge.com:/tmp/cvs-serv17440 Modified Files: FolderView.f ScintillaControl.f Log Message: Updates.EAB Index: ScintillaControl.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/lib/ScintillaControl.f,v retrieving revision 1.9 retrieving revision 1.10 diff -C2 -d -r1.9 -r1.10 *** ScintillaControl.f 3 Aug 2008 11:08:51 -0000 1.9 --- ScintillaControl.f 1 Feb 2010 01:32:31 -0000 1.10 *************** *** 1689,1692 **** --- 1689,1700 ---- swap SCI_STYLESETFONT SendMessage:Self drop ;M + :M SetFont: { TheFont -- } + STYLE_DEFAULT GetFaceName: TheFont asciiz StyleSetFont: self + GetDC: self >r + LOGPIXELSY r@ Call GetDeviceCaps >r + GetHeight: TheFont 72 * r> / abs STYLE_DEFAULT SCI_STYLESETSIZE SendMessage:SelfDrop + GetWeight: TheFont 700 = STYLE_DEFAULT SCI_STYLESETBOLD SendMessage:SelfDrop + GetItalic: TheFont STYLE_DEFAULT SCI_STYLESETITALIC SendMessage:SelfDrop + r> ReleaseDc: self ;M \ ----------------------------------------------------------------------------- Index: FolderView.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/lib/FolderView.f,v retrieving revision 1.3 retrieving revision 1.4 diff -C2 -d -r1.3 -r1.4 *** FolderView.f 10 Apr 2009 16:24:33 -0000 1.3 --- FolderView.f 1 Feb 2010 01:32:31 -0000 1.4 *************** *** 6,9 **** --- 6,10 ---- needs listview.f needs quiksort.f + needs statusbar.f \- ?exitm macro ?exitm " if exitm then" *************** *** 25,74 **** Endbar - \ #IFNDEF compareia - \ - \ code compareia ( adr1 len1 adr2 len2 -- n ) - \ sub ebp, # 8 - \ mov 0 [ebp], edi - \ mov 4 [ebp], esi - \ pop eax \ eax = adr2 - \ pop ecx \ ecx = len1 - \ pop esi \ esi = adr1 - \ add esi, edi \ absolute address - \ add edi, eax \ edi = adr2 (abs) - \ sub eax, eax \ default is 0 (strings match) - \ cmp ecx, ebx \ compare lengths - \ je short @@2 - \ ja short @@1 - \ dec eax \ if len1 < len2, default is -1 - \ jmp short @@2 - \ @@1: - \ inc eax \ if len1 > len2, default is 1 - \ mov ecx, ebx \ and use shorter length - \ @@2: - \ mov bl, BYTE [esi] - \ mov bh, BYTE [edi] - \ inc esi - \ inc edi - \ cmp bx, # $2F2F \ skip chars beteen 0 and 2F ( now lower case ) - \ jle short @@7 - \ or bx, # $2020 \ May 21st, 2003 or is better then xor - \ @@7: - \ cmp bh, bl - \ loopz @@2 - \ - \ je short @@4 \ if equal, return default - \ jnb short @@3 \ ** jnb for an unsigned test ( was jns ) - \ mov eax, # 1 \ if str1 > str2, return 1 - \ jmp short @@4 - \ @@3: - \ mov eax, # -1 \ if str1 < str2, return -1 - \ @@4: - \ mov ebx, eax - \ mov edi, 0 [ebp] - \ mov esi, 4 [ebp] - \ add ebp, # 8 - \ next c; - \ #ENDIF - INTERNAL EXTERNAL --- 26,29 ---- *************** *** 100,103 **** --- 55,111 ---- MODULE + \ ************************************************************************* + \ Simple no frills wildcard (* and ?) pattern matching of files, emulates API I think. + create filespec-name 100 allot filespec-name off + create filespec-ext 100 allot filespec-ext off + create filebuf max-path allot + create filebuf-ext 100 allot + + : ?*-in-name { buf -- } \ first cell of buffer stores flag for * check + buf cell+ count tuck '*' scan nip dup>r - buf cell+ c! + r> buf ! ; + + : parse-filespecs { addr cnt -- } + addr cnt "minus-ext" filespec-name cell+ place + addr cnt ".ext-only" 1 /string filespec-ext cell+ place + filespec-name ?*-in-name + filespec-ext ?*-in-name ; + + : parse-filename { addr cnt -- } + addr cnt "minus-ext" filebuf place + addr cnt ".ext-only" 1 /string filebuf-ext place ; + + : compare-buf { specname bufname \ speclen buflen specflag -- f } + specname cell+ c@ to speclen + specname @ to specflag + bufname c@ to buflen + speclen 0= specflag 0<> and ?dup ?exit \ assume single * in spec + false \ default result + speclen buflen > ?exit \ filespec greater so fail + speclen 0 + ?do specname cell+ 1+ i + c@ dup '?' <> + if upc bufname 1+ i + c@ upc <> + if unloop exit \ comparison failed + then + else drop + then + loop speclen 0= buflen 0<> and ?exit \ no specs so leave as false + \ comparison should be successful only if both buffers are = in length + \ OR if they are not equal but an * is specified in the specs + \ ( if they are not equal at this point specs is shorter of two ) + speclen buflen = ( -- res f ) \ two buffers are equal + dup not ( -- res f -f ) \ they are not equal + specflag 0<> and \ but we have an * + or or ; \ or to default flag + + : match-specs? { specname speccnt fname fcnt -- f } + specname speccnt s" *.*" str= ?dup ?exit \ special case + fname fcnt parse-filename + specname speccnt parse-filespecs + filespec-name filebuf compare-buf dup 0= ?exit + filespec-ext filebuf-ext compare-buf and ; + + \ ************************************************************************** + :Class FindFile <Super Object *************** *** 122,126 **** :M GetFileSize: ( -- d ) ! get-file-size ;M --- 130,134 ---- :M GetFileSize: ( -- d ) ! _win32-find-data 7 cells+ 2@ ;M *************** *** 131,140 **** ;M ! : .or..? ( -- f ) \ is found file directories . or ..? ! GetFileName: self drop c@ '.' = ; :M IsDirectory?: ( -- f ) \ exclude . and .. ! GetFileAttributes: self FILE_ATTRIBUTE_DIRECTORY and 0<> ! .or..? not and ;M --- 139,148 ---- ;M ! :M .or..?: ( -- f ) \ is found file directories . or ..? ! GetFileName: self drop c@ '.' = ;M :M IsDirectory?: ( -- f ) \ exclude . and .. ! GetFileAttributes: self FILE_ATTRIBUTE_DIRECTORY and ! \ .or..? not and ;M *************** *** 172,176 **** :Class FolderItem <super Object ! max-path 1+ bytes itemname int iconhandle int itemhandle \ parent handle --- 180,184 ---- :Class FolderItem <super Object ! max-path cell+ bytes itemname int iconhandle int itemhandle \ parent handle *************** *** 206,214 **** :M GetFileSize: ( -- d ) ! FileSizeLow ;M ! : .or..? ( -- f ) \ is found file directories . or ..? ! GetFileName: self drop c@ '.' = ; :M IsFile?: ( -- f ) --- 214,222 ---- :M GetFileSize: ( -- d ) ! FileSizeLow FileSizeHigh ;M ! :M .or..?: ( -- f ) \ is found file directories . or ..? ! GetFileName: self drop c@ '.' = ;M :M IsFile?: ( -- f ) *************** *** 217,230 **** :M IsDirectory?: ( -- f ) \ exclude . and .. ! IsFile?: self not ! .or..? not and ;M :M Classinit: ( -- ) Classinit: super ! Win32_Find_Data sizeof(Win32_Find_Data) erase 0 to iconhandle 0 to itemhandle ! -1 index ! ;M --- 225,237 ---- :M IsDirectory?: ( -- f ) \ exclude . and .. ! GetFileAttributes: self FILE_ATTRIBUTE_DIRECTORY and ;M :M Classinit: ( -- ) Classinit: super ! \ Win32_Find_Data sizeof(Win32_Find_Data) erase 0 to iconhandle 0 to itemhandle ! 0 index ! ;M *************** *** 233,245 **** :M setup: ( addr cnt -- ) \ assumes name is set for FindFirstFile, FindNextFile etc. ! itemname max-path erase ! max-path min 0max itemname swap move \ transfer the info ! _Win32-Find-Data Win32_Find_Data sizeof(Win32_Find_Data) move index itemname itemhandle Call ExtractAssociatedIcon to iconhandle ;M :M GetName: ( -- addrz ) ! itemname ;M :M GetName$: ( -- addr cnt ) --- 240,253 ---- :M setup: ( addr cnt -- ) \ assumes name is set for FindFirstFile, FindNextFile etc. ! \ itemname max-path erase ! max-path min 0max dup>r itemname swap cmove ! itemname r> + off \ transfer the info ! _Win32-Find-Data Win32_Find_Data sizeof(Win32_Find_Data) cmove index itemname itemhandle Call ExtractAssociatedIcon to iconhandle ;M :M GetName: ( -- addrz ) ! itemname ;M :M GetName$: ( -- addr cnt ) *************** *** 252,255 **** --- 260,270 ---- to itemhandle ;M + \ Windows API say the following isn't necessary but it is + :M ~: ( -- ) + iconhandle ?dup + if Call DestroyIcon drop + 0 to iconhandle + then ;M + ;Class *************** *** 269,273 **** ;M ! :M total: ( -- n ) Data@: self if #links: self --- 284,288 ---- ;M ! :M Total: ( -- n ) Data@: self if #links: self *************** *** 276,281 **** :M GetItem: { n -- obj | -1 } ! -1 total: self 0= ?exitm ! n 1 total: self between not ?exitm drop n >Link#: self Data@: self ;M --- 291,296 ---- :M GetItem: { n -- obj | -1 } ! -1 Total: self 0= ?exitm ! n 1 Total: self between not ?exitm drop n >Link#: self Data@: self ;M *************** *** 299,302 **** --- 314,318 ---- int itemindex int FolderList + int DirList int ThisItem \ temp pointer to new item int hwndSmallIcons \ handle to imagelist for small icons *************** *** 311,321 **** int #dirs \ number of directories found when updating int #fls \ ditto files int hwndlabel \ handle to window to display path int popup? \ number of files shown is limited only by available memory \ however only first 4k will be sorted. Of course the buffer size could always be increased ! 16 1024 * constant recbuffer-size ! recbuffer-size cell / constant max-recs \ about 4000 files and directories for sorting ! int recbuffer \ pointer to memory used for sorting max-path 1+ bytes Treepath --- 327,340 ---- int #dirs \ number of directories found when updating int #fls \ ditto files + dint total-size \ size of all files found int hwndlabel \ handle to window to display path int popup? + StatusBar ViewStatusBar + \ number of files shown is limited only by available memory \ however only first 4k will be sorted. Of course the buffer size could always be increased ! 16 1024 * constant RecBuffer-size ! RecBuffer-size cell / constant max-recs \ about 4000 files and directories for sorting ! int RecBuffer \ pointer to memory used for sorting max-path 1+ bytes Treepath *************** *** 328,338 **** pathstr cnt + 1- c@ ':' = ; ! : free-recbuffer ( -- ) ! recbuffer ?dup if release ! 0 to recbuffer then ; : InitTheViewColumns ( -- ) LVCF_FMT LVCF_WIDTH LVCF_TEXT LVCF_SUBITEM or or or Setmask: lvc --- 347,373 ---- pathstr cnt + 1- c@ ':' = ; + : RecBuffer() ( n -- addr ) + RecBuffer +cells ; ! : free-RecBuffer ( -- ) ! RecBuffer ?dup if release ! 0 to RecBuffer then ; + : ReadRecBuffer { list -- } \ load temporary buffer with record pointers + >FirstLink: List + Total: List max-recs min 0max 0 + ?do Data@: List i RecBuffer() ! + >NextLink: List + loop ; + + : writeRecBuffer { list -- } \ rewrite records to database + >FirstLink: List + Total: List max-recs min 0max 0 + ?do i RecBuffer() @ Data!: List + >NextLink: List + loop ; + : InitTheViewColumns ( -- ) LVCF_FMT LVCF_WIDTH LVCF_TEXT LVCF_SUBITEM or or or Setmask: lvc *************** *** 359,368 **** 80 Setcx: lvc z" Time" SetpszText: lvc ! Addr: lvc swap 1+ InsertColumn: TheView drop ! ! ; : CreateSmallImageList ( -- ) \ create small image list for list control ! total: folderlist \ maximum images dup \ number of images to use ILC_COLOR16 \ color depth --- 394,401 ---- 80 Setcx: lvc z" Time" SetpszText: lvc ! Addr: lvc swap 1+ InsertColumn: TheView drop ; : CreateSmallImageList ( -- ) \ create small image list for list control ! Total: FolderList Total: DirList + \ maximum images dup \ number of images to use ILC_COLOR16 \ color depth *************** *** 371,379 **** Call ImageList_Create to hwndSmallIcons \ do the following BEFORE adding any icons ! Color: WHITE hwndSmallIcons Call ImageList_SetBkColor drop ! ; : CreateLargeImageList ( -- ) \ create large image list for listview control ! total: folderlist \ maximum images dup \ number of images to use ILC_COLOR16 \ color depth --- 404,411 ---- Call ImageList_Create to hwndSmallIcons \ do the following BEFORE adding any icons ! Color: WHITE hwndSmallIcons Call ImageList_SetBkColor drop ; : CreateLargeImageList ( -- ) \ create large image list for listview control ! Total: FolderList Total: DirList + \ maximum images dup \ number of images to use ILC_COLOR16 \ color depth *************** *** 382,387 **** Call ImageList_Create to hwndLargeIcons \ do the following BEFORE adding any icons ! Color: WHITE hwndLargeIcons Call ImageList_SetBkColor drop ! ; : DestroyImageLists ( -- ) --- 414,418 ---- Call ImageList_Create to hwndLargeIcons \ do the following BEFORE adding any icons ! Color: WHITE hwndLargeIcons Call ImageList_SetBkColor drop ; : DestroyImageLists ( -- ) *************** *** 394,416 **** then ; ! : add-small-icons { \ item -- } \ add icon for each file CreateSmallImageList - total: folderlist 1+ 1 - ?do i >Link#: FolderList - Data@: FolderList to item - IconHandle: item ?dup if - hwndSmallIcons Call ImageList_AddIcon drop then - loop ; - - : add-large-icons { \ item -- } \ add icon for each file CreateLargeImageList ! total: folderlist 1+ 1 ! ?do i >Link#: FolderList ! Data@: FolderList to item ! IconHandle: item ?dup if ! hwndLargeIcons Call ImageList_AddIcon drop then loop ; - : AddFile ( str cnt -- ) Data@: FolderList --- 425,447 ---- then ; ! : add-icons { \ item -- } CreateSmallImageList CreateLargeImageList ! DirList ReadRecBuffer ! Total: DirList 0 ! ?do i RecBuffer() @ to item ! IconHandle: item ?dup ! if dup hwndLargeIcons Call ImageList_AddIcon drop ! hwndSmallIcons Call ImageList_AddIcon drop ! then ! loop FolderList ReadRecBuffer ! Total: FolderList 0 ! ?do i RecBuffer() @ to item ! IconHandle: item ?dup ! if dup hwndLargeIcons Call ImageList_AddIcon drop ! hwndSmallIcons Call ImageList_AddIcon drop ! then loop ; : AddFile ( str cnt -- ) Data@: FolderList *************** *** 420,423 **** --- 451,461 ---- ( str cnt ) SetUp: ThisItem ; + : AddDir ( str cnt -- ) + Data@: DirList + if AddLink: DirList + then New> FolderItem dup Data!: DirList to ThisItem + hwnd SetHandle: ThisItem + ( str cnt ) SetUp: ThisItem ; + : get-date-and-time ( obj -- timestr cnt datestr cnt ) GetModifiedTime: [ ] *************** *** 432,437 **** ; ! : AddViewItem { ndx \ obj -- } ! ndx 1+ GetItem: FolderList to obj \ first add the name LVIF_TEXT LVIF_PARAM or LVIF_IMAGE or SetMask: LvItem --- 470,478 ---- ; ! : AddViewItem { list ndx \ obj -- } ! ndx 1+ GetItem: List to obj ! list FolderList = show-dirs? and \ #dirs 0<> and ! if #dirs +to ndx \ offset for files ! then \ first add the name LVIF_TEXT LVIF_PARAM or LVIF_IMAGE or SetMask: LvItem *************** *** 439,443 **** obj SetlParam: LvItem ndx SetIImage: Lvitem ! GetFileName: obj drop SetpszText: LvItem Addr: LvItem InsertItem: TheView drop \ now we add subitems. --- 480,484 ---- obj SetlParam: LvItem ndx SetIImage: Lvitem ! GetFileName: obj drop SetpszText: LvItem Addr: LvItem InsertItem: TheView drop \ now we add subitems. *************** *** 447,451 **** 1 SetiSubItem: LVItem IsFile?: obj ! if GetFileSize: obj 0 (ud,.) asciiz else z" " \ show no size for directories then SetpszText: LvItem --- 488,492 ---- 1 SetiSubItem: LVItem IsFile?: obj ! if GetFileSize: obj (ud,.) asciiz else z" " \ show no size for directories then SetpszText: LvItem *************** *** 464,486 **** 3 SetiSubItem: LVItem ( time ) asciiz SetpszText: LvItem ! Addr: LvItem ndx SetItemText: TheView drop ! ! ; : show-files ( -- ) \ add file and stats to the listviewbox DeleteAllItems: TheView drop DestroyImageLists ! add-small-icons hwndSmallIcons LVSIL_SMALL SetImageList: TheView drop - add-large-icons hwndLargeIcons LVSIL_NORMAL SetImageList: TheView drop ! Total: FolderList dup SetItemCount: TheView drop ! 0 ! ?do i AddViewItem loop ; ! :M start: ( parent -- ) ! start: super ! new> treelist to folderlist ! recbuffer-size malloc to recbuffer ;M --- 505,536 ---- 3 SetiSubItem: LVItem ( time ) asciiz SetpszText: LvItem ! Addr: LvItem ndx SetItemText: TheView drop ; : show-files ( -- ) \ add file and stats to the listviewbox DeleteAllItems: TheView drop DestroyImageLists ! add-icons hwndSmallIcons LVSIL_SMALL SetImageList: TheView drop hwndLargeIcons LVSIL_NORMAL SetImageList: TheView drop ! 0 show-dirs? ! if #dirs + ! then show-files? ! if #fls + ! then SetItemCount: TheView drop ! show-dirs? ! if Total: DirList 0 ! ?do DirList i AddViewItem ! loop ! then show-files? ! if Total: FolderList 0 ! ?do FolderList i AddViewItem ! loop ! then ; ! :M Start: ( parent -- ) ! Start: super ! new> TreeList to FolderList ! new> TreeList to DirList ! RecBuffer-Size malloc to RecBuffer ;M *************** *** 489,496 **** InitTheViewColumns ViewPopupBar SetPopupBar: self ;M :M On_Size: ( -- ) ! 0 0 GetSize: self Move: TheView ;M :M Classinit: ( -- ) --- 539,548 ---- InitTheViewColumns ViewPopupBar SetPopupBar: self + self Start: ViewStatusBar ;M :M On_Size: ( -- ) ! Redraw: ViewStatusBar ! 0 0 GetSize: self Height: ViewStatusBar - Move: TheView ;M :M Classinit: ( -- ) *************** *** 512,517 **** 0 to #dirs 0 to #fls 0 to hwndlabel ! 0 to recbuffer NextID to id SortAscending: [ self ] ;M --- 564,570 ---- 0 to #dirs 0 to #fls + 0.0 2to total-size 0 to hwndlabel ! 0 to RecBuffer NextID to id SortAscending: [ self ] ;M *************** *** 522,572 **** FolderList Dispose 0 to FolderList ! then ; :M ~: ( -- ) DisposeTheList ! free-recbuffer ;M :M Close: ( -- ) DisposeTheList ! free-recbuffer DestroyImageLists ;M ! : finddirs ( -- ) ! 0 to #dirs TreePath count s" *.*" Setup: FileFinder FindFiles: FileFinder begin 0= while IsDirectory?: FileFinder ! if FullPath: FileFinder AddFile ! 1 +to #dirs ! then FindNextFile: FileFinder ! repeat FindClose: FileFinder ; ! ! : findfiles ( -- ) ! 0 to #fls ! thespecs first-path" ! begin dup 0> ! while TreePath count 2swap SetUp: FileFinder ! FindFiles: FileFinder ! begin 0= ! while IsFile?: FileFinder ! if FullPath: FileFinder AddFile ! 1 +to #fls ! then FindNextFile: FileFinder ! repeat FindClose: FileFinder ! thespecs next-path" ! repeat 2drop ; ! ! : FindAllFiles ( -- ) ! show-dirs? ! if finddirs ! then show-files? ! if findfiles ! then ; ! ! : recbuffer() ( n -- addr ) ! recbuffer +cells ; : dosortorder ( n -- f ) --- 575,620 ---- FolderList Dispose 0 to FolderList ! then DirList ! if DirList DisposeList ! DirList Dispose ! 0 to DirList ! then ; :M ~: ( -- ) DisposeTheList ! free-RecBuffer ;M :M Close: ( -- ) DisposeTheList ! free-RecBuffer DestroyImageLists ;M ! \ scan a directory once for all files, compare each file found to file specs and add ! \ if match is found ! : FindAllFiles ( -- ) ! 0 to #dirs ! 0 to #fls ! 0.0 2to total-size TreePath count s" *.*" Setup: FileFinder FindFiles: FileFinder begin 0= while IsDirectory?: FileFinder ! if .or..?: FileFinder not ! if FullPath: FileFinder AddDir ! 1 +to #dirs ! then ! else thespecs first-path" ! begin dup 0> ! while GetFileName: FileFinder match-specs? ! if FullPath: FileFinder AddFile ! GetFileSize: FileFinder 2+to total-size ! 1 +to #fls ! 0 0 \ set to leave ! else thespecs next-path" ! then ! repeat 2drop ! then FindNextFile: FileFinder ! repeat FindClose: FileFinder ; : dosortorder ( n -- f ) *************** *** 575,604 **** : compare-recs ( n1 n2 -- f ) GetFileName: [ swap ] ! GetFileName: [ rot ] caps-compare ( compareia ) dosortorder ; ! ! : readrecbuffer ( -- ) \ load temporary buffer with record pointers ! >FirstLink: FolderList ! total: FolderList max-recs min 0max 0 ! ?do Data@: FolderList i recbuffer() ! ! >NextLink: FolderList ! loop ; ! ! : writerecbuffer ( -- ) \ rewrite sorted records to database ! >FirstLink: FolderList ! total: FolderList max-recs min 0max 0 ! ?do i recbuffer() @ Data!: FolderList ! >NextLink: FolderList ! loop ; ! : sortfiles ( -- ) ! recbuffer 0= ?exit \ if not allocated abort sorting ['] compare-recs is precedes \ set sort comparator ! total: folderlist 2 < ?exit ! readrecbuffer \ load buffer ! #dirs 1 > ! if 0 recbuffer() #dirs sort \ sort the directories ! then #fls 1 > ! if #dirs recbuffer() #fls sort \ and the files ! then writerecbuffer ; :M Setpath: { addr cnt -- } \ check for valid path --- 623,639 ---- : compare-recs ( n1 n2 -- f ) GetFileName: [ swap ] ! GetFileName: [ rot ] caps-compare dosortorder ; ! : (sort) { list -- } ! RecBuffer 0= ?exit \ if not allocated abort sorting ['] compare-recs is precedes \ set sort comparator ! Total: list 2 < ?exit ! list ReadRecBuffer \ load buffer ! 0 RecBuffer() Total: list sort \ ! list writeRecBuffer ; ! ! : sortfolder ( -- ) ! DirList (sort) ! FolderList (sort) ; :M Setpath: { addr cnt -- } \ check for valid path *************** *** 607,611 **** treepath +null exitm ! then addr cnt 2dup + 1- c@ '\' = if 1- then find-first-file --- 642,646 ---- treepath +null exitm ! then addr cnt lastchar '\' = if 1- then find-first-file *************** *** 628,632 **** hwndlabel 0= ?exit hwndlabel Call IsWindow 0= ?exit ! treepath count asciiz 0 WM_SETTEXT hwndlabel send-window ; :M UpdateFiles: ( -- ) \ primary word, rebuild files list in view --- 663,678 ---- hwndlabel 0= ?exit hwndlabel Call IsWindow 0= ?exit ! treepath count asciiz 0 WM_SETTEXT hwndlabel Call SendMessage drop ; ! ! : show-stats ( -- ) ! new$ >r ! #dirs (.) r@ place ! s" Directories, " r@ +place ! #fls (.) r@ +place ! s" files totalling " r@ +place ! total-size (ud,.) r@ +place ! s" bytes" r@ +place ! r@ +null ! r> 1+ SetText: ViewStatusBar ; :M UpdateFiles: ( -- ) \ primary word, rebuild files list in view *************** *** 634,643 **** if current-dir$ count SetPath: self then _Win32-Find-Data [ 11 cells max-path + 14 + ] LITERAL erase FolderList DisposeList 0 to SelectedItem FindAllFiles ! SortFiles show-files show-path self On_Update null-check execute \ user function ;M --- 680,693 ---- if current-dir$ count SetPath: self then _Win32-Find-Data [ 11 cells max-path + 14 + ] LITERAL erase + s" Building list..." "message FolderList DisposeList + DirList DisposeList 0 to SelectedItem FindAllFiles ! SortFolder show-files show-path + show-stats + message-off self On_Update null-check execute \ user function ;M *************** *** 686,689 **** --- 736,742 ---- #fls ;M + :M TotalFileSize: ( -- d ) + total-size ;M + :M Showfiles: ( f -- ) \ flag=true if showing files to show-files? ;M *************** *** 745,759 **** ncode case ! LVN_ITEMCHANGED of l LVN_GetNotifyParam to SelectedItem ! l LVN_GetNotifyItem dup itemindex <> ! if to itemindex ! SelectedItem OnSelect null-check execute \ call only once ! else drop ! then ! endof ! NM_RCLICK of popup? if show-popup then ! endof ! NM_DBLCLK of ?descend ! endof endcase false --- 798,812 ---- ncode case ! LVN_ITEMCHANGED of l LVN_GetNotifyParam to SelectedItem ! l LVN_GetNotifyItem dup itemindex <> ! if to itemindex ! SelectedItem OnSelect null-check execute \ call only once ! else drop ! then ! endof ! NM_RCLICK of popup? if show-popup then ! endof ! NM_DBLCLK of ?descend ! endof endcase false |
|
From: Ezra B. <ezr...@us...> - 2010-02-01 01:31:38
|
Update of /cvsroot/win32forth/win32forth/src/console In directory sfp-cvsdas-1.v30.ch3.sourceforge.com:/tmp/cvs-serv17338 Modified Files: NewConsole.f Log Message: Fix for console window update from debugger. EAB Index: NewConsole.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/console/NewConsole.f,v retrieving revision 1.35 retrieving revision 1.36 diff -C2 -d -r1.35 -r1.36 *** NewConsole.f 29 May 2009 11:28:14 -0000 1.35 --- NewConsole.f 1 Feb 2010 01:31:28 -0000 1.36 *************** *** 147,151 **** \in-system-ok WM_PASTELOAD OF 2drop paste-load -1 ENDOF DEFAULTOF 2drop 0 ENDOF ! ENDCASE ;M previous --- 147,152 ---- \in-system-ok WM_PASTELOAD OF 2drop paste-load -1 ENDOF DEFAULTOF 2drop 0 ENDOF ! ENDCASE Paint: cmd \ needs a windows msg to proces keys, brute force solution until! ! ;M previous |
|
From: Ezra B. <ezr...@us...> - 2010-02-01 01:29:50
|
Update of /cvsroot/win32forth/win32forth/src In directory sfp-cvsdas-1.v30.ch3.sourceforge.com:/tmp/cvs-serv17118 Modified Files: Window.f Log Message: Bug fix. Index: Window.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/Window.f,v retrieving revision 1.22 retrieving revision 1.23 diff -C2 -d -r1.22 -r1.23 *** Window.f 29 Oct 2008 23:20:55 -0000 1.22 --- Window.f 1 Feb 2010 01:29:41 -0000 1.23 *************** *** 243,247 **** 3 pick ( msg ) over obj>class MFA ((findm)) ! if sp0 @ >r sp@ 4 cells+ sp0 ! dup>r catch ?dup --- 243,247 ---- 3 pick ( msg ) over obj>class MFA ((findm)) ! if sp0 @ >r sp@ 6 cells+ sp0 ! dup>r catch ?dup |
|
From: Viagra on www.na47.c. <gho...@pr...> - 2010-01-25 23:41:33
|
eight ies helma nd webbs scree ned aosta |
1040 messages has been excluded from this view by a project administrator.
