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-06-05 07:47:12
|
Update of /cvsroot/win32forth/win32forth/src In directory sfp-cvsdas-4.v30.ch3.sourceforge.com:/tmp/cvs-serv1655 Modified Files: FLOAT.F w32fMsg.f Log Message: Fixed minor bug in >FLOAT Index: w32fMsg.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/w32fMsg.f,v retrieving revision 1.13 retrieving revision 1.14 diff -C2 -d -r1.13 -r1.14 *** w32fMsg.f 20 Oct 2008 21:20:45 -0000 1.13 --- w32fMsg.f 5 Jun 2010 07:47:03 -0000 1.14 *************** *** 75,79 **** \ ** application's inter-process identification & communication capabilities. ! \ *P The default action is using none of theese lines, the result in this case is: \ *B While developping, your program is considered to be win32Forth itself. \ ** It is able to communicate with Help and IDE, for example for using the debugger. --- 75,79 ---- \ ** application's inter-process identification & communication capabilities. ! \ *P The default action is using none of these lines, the result in this case is: \ *B While developping, your program is considered to be win32Forth itself. \ ** It is able to communicate with Help and IDE, for example for using the debugger. *************** *** 325,329 **** \ *P Each application can create a set of win32forth-specific messages, identified ! \ ** by custom messages numbers. Theese message identifiers must be loaded in both \ ** applications so that they understand each other. --- 325,329 ---- \ *P Each application can create a set of win32forth-specific messages, identified ! \ ** by custom messages numbers. These message identifiers must be loaded in both \ ** applications so that they understand each other. Index: FLOAT.F =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/FLOAT.F,v retrieving revision 1.54 retrieving revision 1.55 diff -C2 -d -r1.54 -r1.55 *** FLOAT.F 24 May 2010 21:09:44 -0000 1.54 --- FLOAT.F 5 Jun 2010 07:47:03 -0000 1.55 *************** *** 1656,1660 **** code sig>f ( fs: -- r ) \ Push contents of 80-bit BCD number in fbcd-buf onto FP stack ! fbld fbcd-buf fpu> float; --- 1656,1660 ---- code sig>f ( fs: -- r ) \ Push contents of 80-bit BCD number in fbcd-buf onto FP stack ! fbld fbcd-buf [up] fpu> float; |
|
From: George H. <geo...@us...> - 2010-06-05 07:37:57
|
Update of /cvsroot/win32forth/win32forth/src In directory sfp-cvsdas-4.v30.ch3.sourceforge.com:/tmp/cvs-serv31641 Modified Files: Tag: V614XX FLOAT.F Log Message: Fixed minor bug in >FLOAT Index: FLOAT.F =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/FLOAT.F,v retrieving revision 1.53.2.1 retrieving revision 1.53.2.2 diff -C2 -d -r1.53.2.1 -r1.53.2.2 *** FLOAT.F 24 May 2010 22:34:18 -0000 1.53.2.1 --- FLOAT.F 5 Jun 2010 07:37:48 -0000 1.53.2.2 *************** *** 1656,1660 **** code sig>f ( fs: -- r ) \ Push contents of 80-bit BCD number in fbcd-buf onto FP stack ! fbld fbcd-buf fpu> float; --- 1656,1660 ---- code sig>f ( fs: -- r ) \ Push contents of 80-bit BCD number in fbcd-buf onto FP stack ! fbld fbcd-buf [up] fpu> float; |
|
From: Jos v.d.V. <jo...@us...> - 2010-06-03 08:56:48
|
Update of /cvsroot/win32forth/win32forth/Templates In directory sfp-cvsdas-4.v30.ch3.sourceforge.com:/tmp/cvs-serv734/Templates Modified Files: TreeViewInSplitWindow.f Log Message: Jos: Removed 'tvitem->tvins' and 'tvitem /tvitem erase' and the old tvitem Index: TreeViewInSplitWindow.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/Templates/TreeViewInSplitWindow.f,v retrieving revision 1.3 retrieving revision 1.4 diff -C2 -d -r1.3 -r1.4 *** TreeViewInSplitWindow.f 17 Aug 2008 16:38:21 -0000 1.3 --- TreeViewInSplitWindow.f 3 Jun 2010 08:56:38 -0000 1.4 *************** *** 30,34 **** : AddItem ( sztext hAfter hParent nChildren -- ) tvins /tvins erase - tvitem /tvitem erase ( nChildren) to cChildren ( hParent) to hParent --- 30,33 ---- *************** *** 37,41 **** TVIF_TEXT TVIF_CHILDREN or to mask - tvitem->tvins tvins 0 TVM_INSERTITEMA hWnd Call SendMessage to hPrev --- 36,39 ---- |
|
From: Jos v.d.V. <jo...@us...> - 2010-06-03 08:56:47
|
Update of /cvsroot/win32forth/win32forth/apps/Win32ForthIDE In directory sfp-cvsdas-4.v30.ch3.sourceforge.com:/tmp/cvs-serv734/apps/Win32ForthIDE Modified Files: ClassBrowser.f CreateMenu.f ProjectTree.f ProjectWindow.f Log Message: Jos: Removed 'tvitem->tvins' and 'tvitem /tvitem erase' and the old tvitem Index: ProjectWindow.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/Win32ForthIDE/ProjectWindow.f,v retrieving revision 1.7 retrieving revision 1.8 diff -C2 -d -r1.7 -r1.8 *** ProjectWindow.f 1 Feb 2010 01:43:50 -0000 1.7 --- ProjectWindow.f 3 Jun 2010 08:56:38 -0000 1.8 *************** *** 260,264 **** : AddChildItem ( -- ) tvins /tvins erase - tvitem /tvitem erase 0 to cChildren Handle: ThisList to hParent --- 260,263 ---- *************** *** 269,273 **** ThisItem to lparam [ TVIF_TEXT TVIF_CHILDREN or TVIF_PARAM or TVIF_IMAGE or TVIF_SELECTEDIMAGE or ] literal to mask - tvitem->tvins InsertItem: Self IsHandle: ThisItem ; --- 268,271 ---- *************** *** 331,335 **** : AddParentItem ( lparam hAfter hParent nChildren -- hwnd ) tvins /tvins erase - tvitem /tvitem erase ( nChildren) to cChildren ( hParent) to hParent --- 329,332 ---- *************** *** 341,345 **** [ TVIF_TEXT TVIF_CHILDREN or TVIF_PARAM or TVIF_STATE or TVIF_IMAGE or TVIF_SELECTEDIMAGE or ] LITERAL to mask TVIS_BOLD dup to state to statemask - tvitem->tvins InsertItem: Self ; --- 338,341 ---- *************** *** 356,364 **** : HaveChildren ( -- ) \ show the "+" next to item tvins /tvins erase - tvitem /tvitem erase 1 to cChildren Handle: CurrentChild to hitem TVIF_CHILDREN to mask - tvitem->tvins SetItem: Self ; --- 352,358 ---- *************** *** 366,370 **** HaveChildren tvins /tvins erase - tvitem /tvitem erase 0 to cChildren Handle: CurrentChild to hParent --- 360,363 ---- *************** *** 375,379 **** ThisGrandChild to lparam [ TVIF_TEXT TVIF_CHILDREN or TVIF_PARAM or TVIF_IMAGE or TVIF_SELECTEDIMAGE or ] LITERAL to mask - tvitem->tvins InsertItem: Self IsHandle: ThisGrandChild Incr: CurrentChild \ bump child count --- 368,371 ---- Index: ClassBrowser.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/Win32ForthIDE/ClassBrowser.f,v retrieving revision 1.9 retrieving revision 1.10 diff -C2 -d -r1.9 -r1.10 *** ClassBrowser.f 2 Jun 2010 20:53:11 -0000 1.9 --- ClassBrowser.f 3 Jun 2010 08:56:38 -0000 1.10 *************** *** 59,63 **** r> if TVIF_CHILDREN or then to mask - tvitem->tvins tvins 0 TVM_INSERTITEMA hWnd Call SendMessage to hPrev ; --- 59,62 ---- Index: ProjectTree.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/Win32ForthIDE/ProjectTree.f,v retrieving revision 1.24 retrieving revision 1.25 diff -C2 -d -r1.24 -r1.25 *** ProjectTree.f 10 May 2009 03:54:17 -0000 1.24 --- ProjectTree.f 3 Jun 2010 08:56:38 -0000 1.25 *************** *** 260,264 **** : AddChildItem ( -- ) tvins /tvins erase - tvitem /tvitem erase 0 to cChildren Handle: ThisList to hParent --- 260,263 ---- *************** *** 275,279 **** [ TVIF_TEXT TVIF_CHILDREN or TVIF_PARAM or TVIF_IMAGE or TVIF_SELECTEDIMAGE or ] literal to mask - tvitem->tvins InsertItem: self IsHandle: ThisItem ; --- 274,277 ---- *************** *** 331,335 **** : AddParentItem ( lparam hAfter hParent nChildren -- hwnd ) tvins /tvins erase - tvitem /tvitem erase ( nChildren) to cChildren ( hParent) to hParent --- 329,332 ---- *************** *** 342,346 **** TVIF_TEXT TVIF_CHILDREN or TVIF_PARAM or TVIF_IMAGE or TVIF_SELECTEDIMAGE or to mask - tvitem->tvins InsertItem: self ; --- 339,342 ---- Index: CreateMenu.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/Win32ForthIDE/CreateMenu.f,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 *** CreateMenu.f 3 Aug 2008 10:56:41 -0000 1.2 --- CreateMenu.f 3 Jun 2010 08:56:38 -0000 1.3 *************** *** 165,169 **** then setname: ThisItem tvins /tvins erase - tvitem /tvitem erase 1 to cChildren TVI_ROOT to hParent --- 165,168 ---- *************** *** 174,178 **** to mask TVIS_BOLD dup to state to statemask \ embolden menubar name - tvitem->tvins tvins 0 TVM_INSERTITEMA SendMessage:self dup ishandle: ThisItem to hwndmain --- 173,176 ---- *************** *** 181,185 **** : AddTreeItem ( -- ) tvins /tvins erase - tvitem /tvitem erase ParentWindow: ThisItem to hParent TVI_LAST to hInsertAfter --- 179,182 ---- *************** *** 193,197 **** to statemask then to mask - tvitem->tvins tvins 0 TVM_INSERTITEMA SendMessage:self IsHandle: ThisItem ; --- 190,193 ---- |
|
From: Jos v.d.V. <jo...@us...> - 2010-06-03 08:56:46
|
Update of /cvsroot/win32forth/win32forth/src/lib In directory sfp-cvsdas-4.v30.ch3.sourceforge.com:/tmp/cvs-serv734/src/lib Modified Files: FileLister.f treeview.f Log Message: Jos: Removed 'tvitem->tvins' and 'tvitem /tvitem erase' and the old tvitem Index: treeview.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/lib/treeview.f,v retrieving revision 1.15 retrieving revision 1.16 diff -C2 -d -r1.15 -r1.16 *** treeview.f 2 Jun 2010 20:25:31 -0000 1.15 --- treeview.f 3 Jun 2010 08:56:38 -0000 1.16 *************** *** 100,121 **** ;RecordSize: /nmhdr - (( Record: tvitem \ Has been moved to tvins to avoid - int mask \ a MOVE for each item that has been inserted. - int hItem - int state - int stateMask - int pszText - int cchTextMax - int iImage - int iSelectedImage - int cChildren - int lParam - ;RecordSize: /tvitem )) - Record: tvins int hParent int hInsertAfter ! \ TV_ITEM item ! \ /tvitem bytes item int mask int hItem --- 100,107 ---- ;RecordSize: /nmhdr Record: tvins int hParent int hInsertAfter ! \ tvitem starts here int mask int hItem *************** *** 370,374 **** : AddItem ( sztext hAfter hParent nChildren -- ) tvins /tvins erase - tvitem /tvitem erase ( nChildren) to cChildren ( hParent) to hParent --- 356,359 ---- *************** *** 377,381 **** TVIF_TEXT TVIF_CHILDREN or to mask - \ tvitem->tvins tvins 0 TVM_INSERTITEMA hWnd Call SendMessage to hPrev --- 362,365 ---- Index: FileLister.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/lib/FileLister.f,v retrieving revision 1.10 retrieving revision 1.11 diff -C2 -d -r1.10 -r1.11 *** FileLister.f 7 Feb 2010 07:31:12 -0000 1.10 --- FileLister.f 3 Jun 2010 08:56:38 -0000 1.11 *************** *** 410,414 **** : AddTreeItem ( -- ) \ add file or directory to tree tvins /tvins erase - tvitem /tvitem erase ?HasFiles to cChildren Handle: FolderList to hParent --- 410,413 ---- *************** *** 421,425 **** [ TVIF_TEXT TVIF_CHILDREN or TVIF_PARAM or TVIF_IMAGE or TVIF_SELECTEDIMAGE or ] LITERAL to mask - tvitem->tvins tvins 0 TVM_INSERTITEMA hWnd Call SendMessage IsHandle: ThisItem ; --- 420,423 ---- *************** *** 460,464 **** : AddRoot ( -- ) tvins /tvins erase - tvitem /tvitem erase 1 to cChildren \ assuming we have TVI_ROOT to hParent --- 458,461 ---- *************** *** 470,474 **** [ TVIF_TEXT TVIF_CHILDREN or TVIF_PARAM or TVIF_IMAGE or TVIF_SELECTEDIMAGE or ] LITERAL to mask - tvitem->tvins tvins 0 TVM_INSERTITEMA hWnd Call SendMessage dup ishandle: FolderList to hwndmain ; --- 467,470 ---- |
|
From: Jos v.d.V. <jo...@us...> - 2010-06-03 08:56:45
|
Update of /cvsroot/win32forth/win32forth/Help In directory sfp-cvsdas-4.v30.ch3.sourceforge.com:/tmp/cvs-serv734/Help Modified Files: HelpTestTV.f HelpWindow.f Log Message: Jos: Removed 'tvitem->tvins' and 'tvitem /tvitem erase' and the old tvitem Index: HelpTestTV.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/Help/HelpTestTV.f,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** HelpTestTV.f 15 May 2008 05:38:38 -0000 1.1 --- HelpTestTV.f 3 Jun 2010 08:56:37 -0000 1.2 *************** *** 60,64 **** : AddItem ( sztext hAfter hParent nChildren fChildren -- ) \ add an entry to the treeview tvins /tvins erase - tvitem /tvitem erase >r ( nChildren) to cChildren --- 60,63 ---- *************** *** 69,73 **** r> if TVIF_CHILDREN or then to mask - tvitem->tvins tvins 0 TVM_INSERTITEMA hWnd Call SendMessage to hPrev ; --- 68,71 ---- *************** *** 75,84 **** : /Children ( hitem -- ) tvins /tvins erase - tvitem /tvitem erase to hitem 0 to cChildren [ TVIF_HANDLE TVIF_CHILDREN or ] literal to mask - tvitem->tvins SetItem: self ; --- 73,80 ---- Index: HelpWindow.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/Help/HelpWindow.f,v retrieving revision 1.7 retrieving revision 1.8 diff -C2 -d -r1.7 -r1.8 *** HelpWindow.f 6 Sep 2008 22:00:25 -0000 1.7 --- HelpWindow.f 3 Jun 2010 08:56:37 -0000 1.8 *************** *** 266,270 **** \ add an entry to the treeview tvins /tvins erase - tvitem /tvitem erase >r ( nChildren) to cChildren --- 266,269 ---- *************** *** 276,280 **** r> if TVIF_CHILDREN or then to mask - tvitem->tvins tvins 0 TVM_INSERTITEMA hWnd Call SendMessage to hPrev ; --- 275,278 ---- *************** *** 282,291 **** : /Children ( hitem -- ) tvins /tvins erase - tvitem /tvitem erase to hitem 0 to cChildren [ TVIF_HANDLE TVIF_CHILDREN or ] literal to mask - tvitem->tvins SetItem: self ; --- 280,287 ---- *************** *** 505,509 **** \ add an entry to the treeview tvins /tvins erase - tvitem /tvitem erase >r ( nChildren) to cChildren --- 501,504 ---- *************** *** 517,521 **** r> if TVIF_CHILDREN or then to mask - tvitem->tvins tvins 0 TVM_INSERTITEMA hWnd Call SendMessage to hPrev ; --- 512,515 ---- *************** *** 523,532 **** : /Children ( hitem -- ) tvins /tvins erase - tvitem /tvitem erase to hitem 0 to cChildren [ TVIF_HANDLE TVIF_CHILDREN or ] literal to mask - tvitem->tvins SetItem: self ; --- 517,524 ---- *************** *** 604,613 **** :M SetImage: ( hitem iImage -- ) tvins /tvins erase - tvitem /tvitem erase dup to iImage to iSelectedImage to hitem [ TVIF_HANDLE TVIF_IMAGE or TVIF_SELECTEDIMAGE or ] literal to mask - tvitem->tvins SetItem: self ;M --- 596,603 ---- |
|
From: Jos v.d.V. <jo...@us...> - 2010-06-03 08:56:45
|
Update of /cvsroot/win32forth/win32forth/apps/Player4 In directory sfp-cvsdas-4.v30.ch3.sourceforge.com:/tmp/cvs-serv734/apps/Player4 Modified Files: Mediatree.f Log Message: Jos: Removed 'tvitem->tvins' and 'tvitem /tvitem erase' and the old tvitem Index: Mediatree.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/Player4/Mediatree.f,v retrieving revision 1.37 retrieving revision 1.38 diff -C2 -d -r1.37 -r1.38 *** Mediatree.f 26 Sep 2008 12:00:27 -0000 1.37 --- Mediatree.f 3 Jun 2010 08:56:38 -0000 1.38 *************** *** 82,86 **** then InlineRecord +place InlineRecord +null ! InlineRecord 1+ to pszText tvitem->tvins tvins 0 TVM_INSERTITEMA hWnd Call SendMessage to hInsertAfter then --- 82,86 ---- then InlineRecord +place InlineRecord +null ! InlineRecord 1+ to pszText tvins 0 TVM_INSERTITEMA hWnd Call SendMessage to hInsertAfter then *************** *** 93,97 **** ( hParent) to hParent ( hAfter) to hInsertAfter ! to pszText tvitem->tvins tvins 0 TVM_INSERTITEMA hWnd Call SendMessage dup to hPrev --- 93,97 ---- ( hParent) to hParent ( hAfter) to hInsertAfter ! to pszText tvins 0 TVM_INSERTITEMA hWnd Call SendMessage dup to hPrev *************** *** 216,220 **** 0 to last-selected-rec tvins /tvins erase - tvitem /tvitem erase TVI_ROOT to hParent [ TVIF_TEXT TVIF_CHILDREN or TVIF_PARAM or TVIF_STATE or ] literal to mask --- 216,219 ---- |
|
From: Jos v.d.V. <jo...@us...> - 2010-06-03 08:56:45
|
Update of /cvsroot/win32forth/win32forth/src/tools In directory sfp-cvsdas-4.v30.ch3.sourceforge.com:/tmp/cvs-serv734/src/tools Modified Files: ClassBrowser.f Log Message: Jos: Removed 'tvitem->tvins' and 'tvitem /tvitem erase' and the old tvitem Index: ClassBrowser.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/tools/ClassBrowser.f,v retrieving revision 1.6 retrieving revision 1.7 diff -C2 -d -r1.6 -r1.7 *** ClassBrowser.f 18 Jul 2008 19:37:57 -0000 1.6 --- ClassBrowser.f 3 Jun 2010 08:56:38 -0000 1.7 *************** *** 35,39 **** : AddItem ( xt sztext hAfter hParent nChildren fChildren -- ) \ add an entry to the treeview tvins /tvins erase - tvitem /tvitem erase >r ( nChildren) to cChildren --- 35,38 ---- *************** *** 45,49 **** r> if TVIF_CHILDREN or then to mask - tvitem->tvins tvins 0 TVM_INSERTITEMA hWnd Call SendMessage to hPrev ; --- 44,47 ---- |
|
From: Jos v.d.V. <jo...@us...> - 2010-06-02 20:53:19
|
Update of /cvsroot/win32forth/win32forth/apps/Win32ForthIDE In directory sfp-cvsdas-4.v30.ch3.sourceforge.com:/tmp/cvs-serv11762/apps/Win32ForthIDE Modified Files: ClassBrowser.f Log Message: Jos: Removed Winpause from AddItem. Thius is possible thanks to new console. I discouvered that is wimpause is not needed anymore to switch to an other task. Also removed a duplicate erase. tvins /tvins erase erases also tvitem in the updated treeview. Index: ClassBrowser.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/Win32ForthIDE/ClassBrowser.f,v retrieving revision 1.8 retrieving revision 1.9 diff -C2 -d -r1.8 -r1.9 *** ClassBrowser.f 13 Jul 2008 12:50:49 -0000 1.8 --- ClassBrowser.f 2 Jun 2010 20:53:11 -0000 1.9 *************** *** 50,54 **** : AddItem ( xt sztext hAfter hParent nChildren fChildren -- ) \ add an entry to the treeview tvins /tvins erase - tvitem /tvitem erase >r ( nChildren) to cChildren --- 50,53 ---- *************** *** 62,66 **** tvitem->tvins tvins 0 TVM_INSERTITEMA hWnd Call SendMessage ! to hPrev winpause ; MAXSTRING 1+ bytes NameBuf$ --- 61,65 ---- tvitem->tvins tvins 0 TVM_INSERTITEMA hWnd Call SendMessage ! to hPrev ; MAXSTRING 1+ bytes NameBuf$ |
|
From: Jos v.d.V. <jo...@us...> - 2010-06-02 20:25:40
|
Update of /cvsroot/win32forth/win32forth/src/lib In directory sfp-cvsdas-4.v30.ch3.sourceforge.com:/tmp/cvs-serv6482/src/lib Modified Files: treeview.f Log Message: Jos: Moved tvitem into tvins. That avoids a MOVE when an item is inserted into the treeview. Notes: 1) In case of problems it can be rolled back when needed. 2) tvitem can not be a constant Index: treeview.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/lib/treeview.f,v retrieving revision 1.14 retrieving revision 1.15 diff -C2 -d -r1.14 -r1.15 *** treeview.f 29 Nov 2009 22:17:22 -0000 1.14 --- treeview.f 2 Jun 2010 20:25:31 -0000 1.15 *************** *** 5,9 **** \ On creation needs a sensible StartSize: ( default set to size of parent ) \ Class control does not have the definition "null-check" which is in ! \ class Window and hence Child-Window. (( TreeView.F A rudimentary TreeView class by Michael Hillerström --- 5,9 ---- \ On creation needs a sensible StartSize: ( default set to size of parent ) \ Class control does not have the definition "null-check" which is in ! \ class Window and hence Child-Window. (( TreeView.F A rudimentary TreeView class by Michael Hillerström *************** *** 100,105 **** ;RecordSize: /nmhdr ! Record: tvitem ! int mask int hItem int state --- 100,105 ---- ;RecordSize: /nmhdr ! (( Record: tvitem \ Has been moved to tvins to avoid ! int mask \ a MOVE for each item that has been inserted. int hItem int state *************** *** 111,115 **** int cChildren int lParam ! ;RecordSize: /tvitem Record: tvins --- 111,115 ---- int cChildren int lParam ! ;RecordSize: /tvitem )) Record: tvins *************** *** 117,123 **** int hInsertAfter \ TV_ITEM item ! /tvitem bytes item ;RecordSize: /tvins \ Record: tvdi \ NMHDR hdr --- 117,137 ---- int hInsertAfter \ TV_ITEM item ! \ /tvitem bytes item ! int mask ! int hItem ! int state ! int stateMask ! int pszText ! int cchTextMax ! int iImage ! int iSelectedImage ! int cChildren ! int lParam ;RecordSize: /tvins + : tvitem ( - adr ) tvins 2 cells+ ; + + /tvins 2 cells- constant /tvitem + \ Record: tvdi \ NMHDR hdr *************** *** 180,185 **** nmtv /nmtv 2dup erase move ; ! : tvitem->tvins ( -- ) ! tvitem item /tvitem move ; --- 194,199 ---- nmtv /nmtv 2dup erase move ; ! : tvitem->tvins ( -- ) ; immediate \ Does nothing now ! \ tvitem item /tvitem move ; *************** *** 257,261 **** :M GetPrevious: ( hItem -- hItem ) TVGN_PREVIOUS GetNextItem: self ;M :M GetLastVisible: ( hItem -- hItem ) TVGN_LASTVISIBLE GetNextItem: self ;M ! :M GetFirstVisible: ( hItem -- hItem ) TVGN_FIRSTVISIBLE GetNextItem: self ;M int maxwidth --- 271,275 ---- :M GetPrevious: ( hItem -- hItem ) TVGN_PREVIOUS GetNextItem: self ;M :M GetLastVisible: ( hItem -- hItem ) TVGN_LASTVISIBLE GetNextItem: self ;M ! :M GetFirstVisible: ( hItem -- hItem ) TVGN_FIRSTVISIBLE GetNextItem: self ;M int maxwidth *************** *** 363,367 **** TVIF_TEXT TVIF_CHILDREN or to mask ! tvitem->tvins tvins 0 TVM_INSERTITEMA hWnd Call SendMessage to hPrev --- 377,381 ---- TVIF_TEXT TVIF_CHILDREN or to mask ! \ tvitem->tvins tvins 0 TVM_INSERTITEMA hWnd Call SendMessage to hPrev |
|
From: George H. <geo...@us...> - 2010-05-24 22:34:28
|
Update of /cvsroot/win32forth/win32forth/src In directory sfp-cvsdas-4.v30.ch3.sourceforge.com:/tmp/cvs-serv15253 Modified Files: Tag: V614XX FLOAT.F Log Message: Fixed bug in FEXPM1 Index: FLOAT.F =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/FLOAT.F,v retrieving revision 1.53 retrieving revision 1.53.2.1 diff -C2 -d -r1.53 -r1.53.2.1 *** FLOAT.F 5 Oct 2008 20:29:32 -0000 1.53 --- FLOAT.F 24 May 2010 22:34:18 -0000 1.53.2.1 *************** *** 1386,1391 **** fchs jmp short L$4 ! fld st(0) \ duplicate exponent \ 2 ! L$3: frndint \ take integer part \ 2 fsub st(1), st \ get fractional part \ 2 fld1 \ 3 --- 1386,1391 ---- fchs jmp short L$4 ! L$3: fld st(0) \ duplicate exponent \ 2 ! frndint \ take integer part \ 2 fsub st(1), st \ get fractional part \ 2 fld1 \ 3 |
|
From: George H. <geo...@us...> - 2010-05-24 21:09:52
|
Update of /cvsroot/win32forth/win32forth/src In directory sfp-cvsdas-4.v30.ch3.sourceforge.com:/tmp/cvs-serv3460 Modified Files: FLOAT.F Log Message: Fixed bug in FEXPM1 Index: FLOAT.F =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/FLOAT.F,v retrieving revision 1.53 retrieving revision 1.54 diff -C2 -d -r1.53 -r1.54 *** FLOAT.F 5 Oct 2008 20:29:32 -0000 1.53 --- FLOAT.F 24 May 2010 21:09:44 -0000 1.54 *************** *** 1386,1391 **** fchs jmp short L$4 ! fld st(0) \ duplicate exponent \ 2 ! L$3: frndint \ take integer part \ 2 fsub st(1), st \ get fractional part \ 2 fld1 \ 3 --- 1386,1391 ---- fchs jmp short L$4 ! L$3: fld st(0) \ duplicate exponent \ 2 ! frndint \ take integer part \ 2 fsub st(1), st \ get fractional part \ 2 fld1 \ 3 |
|
From: George H. <geo...@us...> - 2010-05-15 21:09:22
|
Update of /cvsroot/win32forth/win32forth/src In directory sfp-cvsdas-4.v30.ch3.sourceforge.com:/tmp/cvs-serv21318 Modified Files: Class.f Primutil.f Log Message: Added BUFFER: Index: Primutil.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/Primutil.f,v retrieving revision 1.48 retrieving revision 1.49 diff -C2 -d -r1.48 -r1.49 *** Primutil.f 7 Feb 2010 07:27:20 -0000 1.48 --- Primutil.f 15 May 2010 21:09:14 -0000 1.49 *************** *** 241,244 **** --- 241,248 ---- ; + : Buffer: ( defining: +n "name" -- child's runtime: -- a-addr ) + \ *G Create a buffer +n bytes long. The address of the buffer is aligned. + Create allot ; + in-application Index: Class.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/Class.f,v retrieving revision 1.34 retrieving revision 1.35 diff -C2 -d -r1.34 -r1.35 *** Class.f 29 Jun 2008 05:12:39 -0000 1.34 --- Class.f 15 May 2010 21:09:14 -0000 1.35 *************** *** 387,391 **** THEN ; ! create obj-buf MAXSTRING allot : (Obj-Build) ( #elems ^class OR ^class -- ) \ Build an instance of a class --- 387,391 ---- THEN ; ! MAXSTRING Buffer: obj-buf : (Obj-Build) ( #elems ^class OR ^class -- ) \ Build an instance of a class |
|
From: George H. <geo...@us...> - 2010-05-15 21:04:52
|
Update of /cvsroot/win32forth/win32forth/src/kernel In directory sfp-cvsdas-4.v30.ch3.sourceforge.com:/tmp/cvs-serv20375 Modified Files: fkernel.f Log Message: Increased number of locals to 16 Index: fkernel.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/kernel/fkernel.f,v retrieving revision 1.64 retrieving revision 1.65 diff -C2 -d -r1.64 -r1.65 *** fkernel.f 22 Feb 2010 11:05:31 -0000 1.64 --- fkernel.f 15 May 2010 21:04:43 -0000 1.65 *************** *** 5207,5212 **** a; tcode-here cell- \ point at the offset in lea jmp eax \ and leap... ! a; tcode-here 12 3 * + swap tcode-! \ correct the lea calculation ! pop 11 cells [ebp] \ nop \ 12th pop 10 cells [ebp] \ nop pop 9 cells [ebp] \ nop --- 5207,5216 ---- a; tcode-here cell- \ point at the offset in lea jmp eax \ and leap... ! a; tcode-here 16 3 * + swap tcode-! \ correct the lea calculation ! pop 15 cells [ebp] \ nop \ 16th ! pop 14 cells [ebp] \ nop ! pop 13 cells [ebp] \ nop ! pop 12 cells [ebp] \ nop ! pop 11 cells [ebp] \ nop pop 10 cells [ebp] \ nop pop 9 cells [ebp] \ nop *************** *** 5239,5246 **** 10 LOCAL LOCAL10 11 LOCAL LOCAL11 | CREATE LOCAL-PTRS ' LOCAL0 , ' LOCAL1 , ' LOCAL2 , ' LOCAL3 , ' LOCAL4 , ' LOCAL5 , ' LOCAL6 , ' LOCAL7 , ' LOCAL8 , ' LOCAL9 , ! ' LOCAL10 , ' LOCAL11 , | CREATE LDP 0 , 0 , 0 , DP-LINK LINK, ," *LOCALS" \ locals pointer --- 5243,5258 ---- 10 LOCAL LOCAL10 11 LOCAL LOCAL11 + 12 LOCAL LOCAL12 + 13 LOCAL LOCAL13 + 14 LOCAL LOCAL14 + 15 LOCAL LOCAL15 | CREATE LOCAL-PTRS ' LOCAL0 , ' LOCAL1 , ' LOCAL2 , ' LOCAL3 , ' LOCAL4 , ' LOCAL5 , ' LOCAL6 , ' LOCAL7 , ' LOCAL8 , ' LOCAL9 , ! ' LOCAL10 , ' LOCAL11 , ' LOCAL12 , ' LOCAL13 , ! ' LOCAL14 , ' LOCAL15 , ! ! ! | CREATE LDP 0 , 0 , 0 , DP-LINK LINK, ," *LOCALS" \ locals pointer *************** *** 5248,5252 **** in-system ! 12 CONSTANT #-LOCALS \ must match code above!!!! 4096 EQU LOCALS-LEN --- 5260,5264 ---- in-system ! 16 CONSTANT #-LOCALS \ must match code above!!!! 4096 EQU LOCALS-LEN |
|
From: Liebhardt L. <mi...@ra...> - 2010-03-28 17:06:50
|
Any glorified, transfigured Homeric heroes. In a word, the heroic spirit, as seen in heroic poetry, is the outcome of a society cut loose from its roots, of a time of migrations, of the shifting of populations.[42] But more is needed, and just this something more the age that gave birth to Homer had. We know now that before the northern people whom we call Greeks, and who called themselves Hellenes, came down into Greece, there had grown up in the basin of the AEgean a civilization splendid, wealthy, rich in art and already ancient, the civilization that has come to light at Troy, Mycenae, Tiryns, and most of all in Crete. The adventurers from North and South came upon a land rich in spoils, where a chieftain with a band of hardy followers might sack a city and dower himself and his men with sudden wealth. Such conditions, such a contact of new and old, of settled splendour beset by unbridled adventure, go to the making |
|
From: George H. <geo...@us...> - 2010-02-25 19:37:46
|
Update of /cvsroot/win32forth/win32forth/Help/hdb In directory sfp-cvsdas-1.v30.ch3.sourceforge.com:/tmp/cvs-serv13979 Modified Files: HelpSummary.tv Log Message: Updated help items Index: HelpSummary.tv =================================================================== RCS file: /cvsroot/win32forth/win32forth/Help/hdb/HelpSummary.tv,v retrieving revision 1.9 retrieving revision 1.10 diff -C2 -d -r1.9 -r1.10 *** HelpSummary.tv 30 Aug 2008 21:55:12 -0000 1.9 --- HelpSummary.tv 25 Feb 2010 19:37:35 -0000 1.10 *************** *** 25,33 **** \ \ If a line holds an empty link information, the treeview entry is considered as a ! \ summary line and will receive "closed book" and "open book" icons ! \ If a line holds a file .htm link (with sub-path), it will recieve a "help sheet" icon ! \ If the local html link is "help\html\w32f-todo.htm", the "help sheet" will be grayed ! \ If the html link is for an acrobat file, the icon will be "acrobat" ! \ If the link begins with "http://" or "mailto:" or "news:", the icon will be "earth" --- 25,33 ---- \ \ If a line holds an empty link information, the treeview entry is considered as a ! \ summary line and will receive "closed book" and "open book" icons. ! \ If a line holds a file .htm link (with sub-path), it will recieve a "help sheet" icon. ! \ If the local html link is "help\html\w32f-todo.htm", the "help sheet" will be grayed. ! \ If the html link is for an acrobat file, the icon will be "acrobat". ! \ If the link begins with "http://" or "mailto:" or "news:", the icon will be "world". *************** *** 49,54 **** 1 tvn| Release notes - Upgrading| tvd| | 2 tvn| How to convert from version 6.12.00| tvd| help\html\w32f-MoveTo.6.14.htm| \ <-- OK for now ! 2 tvn| Future version 6.14.00| tvd| help\html\w32f-relnotes.6.14.htm| \ <-- OK ! 2 tvn| What's new in version 6.12.00| tvd| help\html\w32f-relnotes.6.12.htm| \ <-- OK 2 tvn| Version 6.10.00| tvd| help\html\w32f-relnotes.6.10.htm| \ <-- OK 2 tvn| Versions 2.9G to 6.08.00| tvd| help\html\w32f-relnotes.htm| \ <-- OK --- 49,55 ---- 1 tvn| Release notes - Upgrading| tvd| | 2 tvn| How to convert from version 6.12.00| tvd| help\html\w32f-MoveTo.6.14.htm| \ <-- OK for now ! 2 tvn| Future version 6.16.00 or 7.00.00| tvd| help\html\w32f-relnotes.6.15.htm| \ <-- OK ! 2 tvn| What's new in version 6.14.00| tvd| help\html\w32f-relnotes.6.14.htm| \ <-- OK ! 2 tvn| Version 6.12.00| tvd| help\html\w32f-relnotes.6.12.htm| \ <-- OK 2 tvn| Version 6.10.00| tvd| help\html\w32f-relnotes.6.10.htm| \ <-- OK 2 tvn| Versions 2.9G to 6.08.00| tvd| help\html\w32f-relnotes.htm| \ <-- OK |
|
From: George H. <geo...@us...> - 2010-02-25 19:22:56
|
Update of /cvsroot/win32forth/win32forth/Help/hdb In directory sfp-cvsdas-1.v30.ch3.sourceforge.com:/tmp/cvs-serv10647/hdb Modified Files: Tag: V614XX HelpSummary.tv Log Message: Updated release notes and help items Index: HelpSummary.tv =================================================================== RCS file: /cvsroot/win32forth/win32forth/Help/hdb/HelpSummary.tv,v retrieving revision 1.9 retrieving revision 1.9.2.1 diff -C2 -d -r1.9 -r1.9.2.1 *** HelpSummary.tv 30 Aug 2008 21:55:12 -0000 1.9 --- HelpSummary.tv 25 Feb 2010 19:22:42 -0000 1.9.2.1 *************** *** 49,54 **** 1 tvn| Release notes - Upgrading| tvd| | 2 tvn| How to convert from version 6.12.00| tvd| help\html\w32f-MoveTo.6.14.htm| \ <-- OK for now ! 2 tvn| Future version 6.14.00| tvd| help\html\w32f-relnotes.6.14.htm| \ <-- OK ! 2 tvn| What's new in version 6.12.00| tvd| help\html\w32f-relnotes.6.12.htm| \ <-- OK 2 tvn| Version 6.10.00| tvd| help\html\w32f-relnotes.6.10.htm| \ <-- OK 2 tvn| Versions 2.9G to 6.08.00| tvd| help\html\w32f-relnotes.htm| \ <-- OK --- 49,54 ---- 1 tvn| Release notes - Upgrading| tvd| | 2 tvn| How to convert from version 6.12.00| tvd| help\html\w32f-MoveTo.6.14.htm| \ <-- OK for now ! 2 tvn| What's new in version 6.14.00| tvd| help\html\w32f-relnotes.6.14.htm| \ <-- OK ! 2 tvn| Version 6.12.00| tvd| help\html\w32f-relnotes.6.12.htm| \ <-- OK 2 tvn| Version 6.10.00| tvd| help\html\w32f-relnotes.6.10.htm| \ <-- OK 2 tvn| Versions 2.9G to 6.08.00| tvd| help\html\w32f-relnotes.htm| \ <-- OK |
|
From: George H. <geo...@us...> - 2010-02-25 19:22:54
|
Update of /cvsroot/win32forth/win32forth/Help/html In directory sfp-cvsdas-1.v30.ch3.sourceforge.com:/tmp/cvs-serv10647/html Modified Files: Tag: V614XX w32f-relnotes.6.14.htm Log Message: Updated release notes and help items Index: w32f-relnotes.6.14.htm =================================================================== RCS file: /cvsroot/win32forth/win32forth/Help/html/w32f-relnotes.6.14.htm,v retrieving revision 1.3 retrieving revision 1.3.2.1 diff -C2 -d -r1.3 -r1.3.2.1 *** w32f-relnotes.6.14.htm 28 Aug 2008 00:29:04 -0000 1.3 --- w32f-relnotes.6.14.htm 25 Feb 2010 19:22:42 -0000 1.3.2.1 *************** *** 31,34 **** --- 31,35 ---- <h3>System Changes</h3> <ul> + <li>A new console written in Forth. w32fConsole.dll is not needed anymore.</li> <li>ForthForm has been integrated into the Win32ForthIDE.</li> <li>Help has been totally rewritten and runs in a separate application.</li> *************** *** 38,53 **** saving words (see <a href='w32f-MoveTo.6.14.htm'>"How to convert from version 6.12.00"</a>).</li> </ul> <h3>Bug fixes</h3> <p>A large number of bugs have been fixed. Changes can be found at the ! <a href="http://sourceforge.net/mailarchive/forum.php?forum_id=43364">CVS Commit ! List</a>.</p> ! ! - <h2>New Applications</h2> - <ul> - </ul> <h2>New Tools</h2> --- 39,51 ---- saving words (see <a href='w32f-MoveTo.6.14.htm'>"How to convert from version 6.12.00"</a>).</li> + <li> A lot of code has been moved.</li> + <li> An improved IDE.</li> + <li> see ~\src\Compat\Evolve.f for specific to the changes between the releases 6.12.00 and 6.14.00.</li> </ul> <h3>Bug fixes</h3> <p>A large number of bugs have been fixed. Changes can be found at the ! <a href="http://sourceforge.net/mailarchive/forum.php?forum_name=win32forth-cvs">CVS Commit List</a>.</p> <h2>New Tools</h2> *************** *** 56,63 **** </ul> - <h2>New Controls</h2> - <ul> - </ul> - <h2>New classes</h2> <ul> --- 54,57 ---- *************** *** 65,81 **** <li><a href="./classes/ExtDC.htm">Ext-WinDC</a> Extended version of the WinDC class.</li> <li><a href="./classes/BitmapDC.htm">Bitmap-DC</a> Bitmap device context class.</li> - <ul> </ul> <h2>New Libraries</h2> ! <ul> ! </ul> ! ! <h2>New Demos</h2> ! <ul> </ul> <hr> ! <p>Document : w32f-relnotes.6.14.htm -- 2008/04/30 -- dbu_de</p> </body> --- 59,70 ---- <li><a href="./classes/ExtDC.htm">Ext-WinDC</a> Extended version of the WinDC class.</li> <li><a href="./classes/BitmapDC.htm">Bitmap-DC</a> Bitmap device context class.</li> </ul> <h2>New Libraries</h2> ! <ul> <li><b>EscapedStrings.f</b> Initial written by Stephen Pelc modified for Win32Forth by Dirk Busch.</li> </ul> <hr> ! <p>Document : w32f-relnotes.6.14.htm -- 2010/02/14 -- </p> </body> |
|
From: George H. <geo...@us...> - 2010-02-22 11:06:47
|
Update of /cvsroot/win32forth/win32forth/src/kernel In directory sfp-cvsdas-1.v30.ch3.sourceforge.com:/tmp/cvs-serv31089 Modified Files: fkernel.f Log Message: Fixed RESIZE to return original address when it wasn't previously ALLOCATEd. Index: fkernel.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/kernel/fkernel.f,v retrieving revision 1.63 retrieving revision 1.64 diff -C2 -d -r1.63 -r1.64 *** fkernel.f 21 Oct 2009 21:57:53 -0000 1.63 --- fkernel.f 22 Feb 2010 11:05:31 -0000 1.64 *************** *** 3952,3957 **** : realloc ( n addr -- addr' fl ) mem>link dup malloc-unlink \ remove from list ! if nip TRUE \ if not in list ! exit \ then fail the function then malloc-adjlen under+ --- 3952,3957 ---- : realloc ( n addr -- addr' fl ) mem>link dup malloc-unlink \ remove from list ! if nip link>mem TRUE \ if not in list ! exit \ then fail the function then malloc-adjlen under+ |
|
From: Jos v.d.V. <jo...@us...> - 2010-02-15 22:45:28
|
Update of /cvsroot/win32forth/win32forth/src/lib In directory sfp-cvsdas-1.v30.ch3.sourceforge.com:/tmp/cvs-serv7906/src/lib Modified Files: Buttons.f Log Message: Jos: ToolString: is now in control.f and wil work in all the buttons when needed Index: Buttons.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/lib/Buttons.f,v retrieving revision 1.3 retrieving revision 1.4 diff -C2 -d -r1.3 -r1.4 *** Buttons.f 29 Aug 2006 08:52:25 -0000 1.3 --- Buttons.f 15 Feb 2010 22:44:50 -0000 1.4 *************** *** 196,199 **** --- 196,200 ---- WindowStyle: super BS_DEFPUSHBUTTON OR ;M + ;Class \ *G End of DefPushButton class *************** *** 246,254 **** ;M - :M ToolString: ( addr cnt -- ) - binfo place - binfo count \n->crlf - ;M - :M Close: ( -- ) \ DeleteBitmap: self --- 247,250 ---- *************** *** 308,316 **** GetIcon: self ;M - :M ToolString: ( addr cnt -- ) - binfo place - binfo count \n->crlf - ;M - :M Close: ( -- ) \ DeleteIcon: self --- 304,307 ---- |
|
From: Jos v.d.V. <jo...@us...> - 2010-02-15 22:43:33
|
Update of /cvsroot/win32forth/win32forth/src In directory sfp-cvsdas-1.v30.ch3.sourceforge.com:/tmp/cvs-serv7425/src Modified Files: CONTROL.F Log Message: Jos: Added ToolString: Index: CONTROL.F =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/CONTROL.F,v retrieving revision 1.10 retrieving revision 1.11 diff -C2 -d -r1.10 -r1.11 *** CONTROL.F 21 May 2007 09:57:26 -0000 1.10 --- CONTROL.F 15 Feb 2010 22:42:56 -0000 1.11 *************** *** 307,310 **** --- 307,315 ---- ;M + :M ToolString: ( addr cnt -- ) + binfo place + binfo count \n->crlf + ;M + ;Class \ *G End of Control class |
|
From: George H. <geo...@us...> - 2010-02-14 23:27:05
|
Update of /cvsroot/win32forth/win32forth/src/lib In directory sfp-cvsdas-1.v30.ch3.sourceforge.com:/tmp/cvs-serv12766 Modified Files: RegistryWindowPos.f Log Message: Fixed to use Temprect. Index: RegistryWindowPos.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/lib/RegistryWindowPos.f,v retrieving revision 1.3 retrieving revision 1.4 diff -C2 -d -r1.3 -r1.4 *** RegistryWindowPos.f 14 Feb 2010 17:46:27 -0000 1.3 --- RegistryWindowPos.f 14 Feb 2010 23:26:15 -0000 1.4 *************** *** 24,31 **** : GetWindowRect ( hWnd -- x y w h ) ! EraseRect: winRect ! winRect.AddrOf swap Call GetWindowRect ?win-error ! Left: wRect Top: winRect ! Right: wRect Bottom: winRect ; create progreg$ MAX-PATH allot --- 24,31 ---- : GetWindowRect ( hWnd -- x y w h ) ! EraseRect: tempRect ! tempRect swap Call GetWindowRect ?win-error ! Left: tempRect Top: tempRect ! Right: tempRect Bottom: tempRect ; create progreg$ MAX-PATH allot |
|
From: Jos v.d.V. <jo...@us...> - 2010-02-14 19:52:27
|
Update of /cvsroot/win32forth/win32forth/Help/html In directory sfp-cvsdas-1.v30.ch3.sourceforge.com:/tmp/cvs-serv14037/Help/html Added Files: w32f-relnotes.6.15.htm Log Message: Jos: The release note for version 6.15 --- NEW FILE: w32f-relnotes.6.15.htm --- <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN" "http://www.w3.org/TR/html4/strict.dtd"> <html> <head> <title>Win32Forth Help</title> <link rel="stylesheet" type="text/css" href="style.css"> </head> <body> <h1>Release Notes for version 6.14.00 </h2> <h2>Contributors (in alphabetical order) </h2> <dir> <li>Robert Dudley Ackerman</li> <li>Ezra Boyce</li> <li>Dirk Busch</li> <li>Thomas Dixon</li> <li>Camille Doiteau</li> <li>Brad Eckert</li> <li>Bruno Gauthier</li> <li>George Hubert</li> <li>Alex McDonald</li> <li>Rod Oakford</li> <li>Andrew Stephenson</li> <li>Jos van de Ven</li> <li>and others...</li> </dir> <h2>Overview </h2> <h3>System Changes</h3> <ul> <li>Line to be replaced by the first change</li> </ul> <h3>Bug fixes</h3> <p>A large number of bugs have been fixed. Changes can be found at the <a href="http://sourceforge.net/mailarchive/forum.php?forum_name=win32forth-cvs">CVS Commit List</a>.</p> <h2>New Applications</h2> <ul> </ul> <h2>New Tools</h2> <ul> </ul> <h2>New Controls</h2> <ul> </ul> <h2>New classes</h2> <ul> </ul> <h2>New Libraries</h2> </ul> <h2>New Demos</h2> <ul> </ul> <hr> <p>Document : w32f-relnotes.6.15.htm -- 2010/02/14 -- </p> </body> </html> |
|
From: Jos v.d.V. <jo...@us...> - 2010-02-14 19:48:31
|
Update of /cvsroot/win32forth/win32forth/Help/html In directory sfp-cvsdas-1.v30.ch3.sourceforge.com:/tmp/cvs-serv13304/Help/html Modified Files: w32f-relnotes.6.14.htm Log Message: Jos: The release note for version 6.14 Index: w32f-relnotes.6.14.htm =================================================================== RCS file: /cvsroot/win32forth/win32forth/Help/html/w32f-relnotes.6.14.htm,v retrieving revision 1.3 retrieving revision 1.4 diff -C2 -d -r1.3 -r1.4 *** w32f-relnotes.6.14.htm 28 Aug 2008 00:29:04 -0000 1.3 --- w32f-relnotes.6.14.htm 14 Feb 2010 19:48:03 -0000 1.4 *************** *** 31,34 **** --- 31,35 ---- <h3>System Changes</h3> <ul> + <li>A new console written in Forth. w32fConsole.dll is not needed anymore.</li> <li>ForthForm has been integrated into the Win32ForthIDE.</li> <li>Help has been totally rewritten and runs in a separate application.</li> *************** *** 38,53 **** saving words (see <a href='w32f-MoveTo.6.14.htm'>"How to convert from version 6.12.00"</a>).</li> </ul> <h3>Bug fixes</h3> <p>A large number of bugs have been fixed. Changes can be found at the ! <a href="http://sourceforge.net/mailarchive/forum.php?forum_id=43364">CVS Commit ! List</a>.</p> ! ! - <h2>New Applications</h2> - <ul> - </ul> <h2>New Tools</h2> --- 39,51 ---- saving words (see <a href='w32f-MoveTo.6.14.htm'>"How to convert from version 6.12.00"</a>).</li> + <li> A lot of code has been moved.</li> + <li> An improved IDE.</li> + <li> see ~\src\Compat\Evolve.f for specific to the changes between the releases 6.12.00 and 6.14.00.</li> </ul> <h3>Bug fixes</h3> <p>A large number of bugs have been fixed. Changes can be found at the ! <a href="http://sourceforge.net/mailarchive/forum.php?forum_name=win32forth-cvs">CVS Commit List</a>.</p> <h2>New Tools</h2> *************** *** 56,63 **** </ul> - <h2>New Controls</h2> - <ul> - </ul> - <h2>New classes</h2> <ul> --- 54,57 ---- *************** *** 65,81 **** <li><a href="./classes/ExtDC.htm">Ext-WinDC</a> Extended version of the WinDC class.</li> <li><a href="./classes/BitmapDC.htm">Bitmap-DC</a> Bitmap device context class.</li> - <ul> </ul> <h2>New Libraries</h2> ! <ul> ! </ul> ! ! <h2>New Demos</h2> ! <ul> </ul> <hr> ! <p>Document : w32f-relnotes.6.14.htm -- 2008/04/30 -- dbu_de</p> </body> --- 59,70 ---- <li><a href="./classes/ExtDC.htm">Ext-WinDC</a> Extended version of the WinDC class.</li> <li><a href="./classes/BitmapDC.htm">Bitmap-DC</a> Bitmap device context class.</li> </ul> <h2>New Libraries</h2> ! <ul> <li><b>EscapedStrings.f</b> Initial written by Stephen Pelc modified for Win32Forth by Dirk Busch.</li> </ul> <hr> ! <p>Document : w32f-relnotes.6.14.htm -- 2010/02/14 -- </p> </body> |
|
From: George H. <geo...@us...> - 2010-02-14 18:03:14
|
Update of /cvsroot/win32forth/win32forth/apps/Chess In directory sfp-cvsdas-1.v30.ch3.sourceforge.com:/tmp/cvs-serv2321 Modified Files: Fullscreen.f Oglwin.f Log Message: Minor optimisation Index: Oglwin.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/Chess/Oglwin.f,v retrieving revision 1.5 retrieving revision 1.6 diff -C2 -d -r1.5 -r1.6 *** Oglwin.f 2 Aug 2008 10:16:51 -0000 1.5 --- Oglwin.f 14 Feb 2010 18:03:05 -0000 1.6 *************** *** 52,60 **** 0 0 \ adjust x,y relative to 0,0 StartSize: [ self ] \ width, height ! SetRect: WndRect ExStyle \ extended style WindowHasMenu: [ self ] \ have menu flag? WindowStyle: [ self ] \ the window style ! AddrOf: WndRect \ make a new rectangle call AdjustWindowRectEx ?win-error \ adjust the window ^base \ creation parameters lpParam --- 52,60 ---- 0 0 \ adjust x,y relative to 0,0 StartSize: [ self ] \ width, height ! SetRect: WinRect ExStyle \ extended style WindowHasMenu: [ self ] \ have menu flag? WindowStyle: [ self ] \ the window style ! AddrOf: WinRect \ make a new rectangle call AdjustWindowRectEx ?win-error \ adjust the window ^base \ creation parameters lpParam *************** *** 62,67 **** NULL LoadMenu: [ self ] \ menu hMenu ParentWindow: [ self ] \ parent window handle ok hWndParent ! Bottom: WndRect Top: WndRect - \ adjusted height ! Right: WndRect Left: WndRect - \ adjusted width StartPos: [ self ] swap \ y, x starting position WindowStyle: [ self ] \ the window style dwStyle --- 62,67 ---- NULL LoadMenu: [ self ] \ menu hMenu ParentWindow: [ self ] \ parent window handle ok hWndParent ! Bottom: WinRect Top: WinRect - \ adjusted height ! Right: WinRect Left: WinRect - \ adjusted width StartPos: [ self ] swap \ y, x starting position WindowStyle: [ self ] \ the window style dwStyle *************** *** 70,74 **** ExStyle Call CreateWindowEx ! EraseRect: WndRect ; --- 70,74 ---- ExStyle Call CreateWindowEx ! EraseRect: WinRect ; Index: Fullscreen.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/Chess/Fullscreen.f,v retrieving revision 1.3 retrieving revision 1.4 diff -C2 -d -r1.3 -r1.4 *** Fullscreen.f 29 Jun 2008 19:49:30 -0000 1.3 --- Fullscreen.f 14 Feb 2010 18:02:59 -0000 1.4 *************** *** 4,33 **** struct{ \ devmode ! DWORD dmDeviceName ! WORD dmSpecVersion ! WORD dmDriverVersion ! WORD dmSize ! WORD dmDriverExtra ! DWORD dmFields ! WORD dmOrientation ! WORD dmPaperSize WORD dmPaperLength ! WORD dmPaperWidth ! WORD dmScale ! WORD dmCopies ! WORD dmDefaultSource ! WORD dmPrintQuality ! WORD dmColor ! WORD dmDuplex WORD dmYResolution \ 148 ! WORD dmTTOption WORD dmCollate \ 32 DWORD dmFormName \ 28 WORD dmUnusedPadding ! DWORD dmBitsPerPel DWORD dmPelsWidth \ 1024 \ W98 max width of screen DWORD dmPelsHeight \ 768 \ W98 max height of screen ! DWORD dmDisplayFlags ! DWORD dmDisplayFrequency DWORD dmICMMethod DWORD dmICMIntent --- 4,33 ---- struct{ \ devmode ! DWORD dmDeviceName ! WORD dmSpecVersion ! WORD dmDriverVersion ! WORD dmSize ! WORD dmDriverExtra ! DWORD dmFields ! WORD dmOrientation ! WORD dmPaperSize WORD dmPaperLength ! WORD dmPaperWidth ! WORD dmScale ! WORD dmCopies ! WORD dmDefaultSource ! WORD dmPrintQuality ! WORD dmColor ! WORD dmDuplex WORD dmYResolution \ 148 ! WORD dmTTOption WORD dmCollate \ 32 DWORD dmFormName \ 28 WORD dmUnusedPadding ! DWORD dmBitsPerPel DWORD dmPelsWidth \ 1024 \ W98 max width of screen DWORD dmPelsHeight \ 768 \ W98 max height of screen ! DWORD dmDisplayFlags ! DWORD dmDisplayFrequency DWORD dmICMMethod DWORD dmICMIntent *************** *** 132,142 **** 0 0 \ adjust x,y relative to 0,0 StartSize: [ self ] \ width, height ! SetRect: WndRect ^base \ creation parameters lpParam appInst \ program instance *hInstance NULL LoadMenu: [ self ] \ menu hMenu ParentWindow: [ self ] \ parent window handle ok hWndParent ! Bottom: WndRect Top: WndRect - \ adjusted height ! Right: WndRect Left: WndRect - \ adjusted width StartPos: [ self ] swap \ y, x starting position WindowStyle: [ self ] \ the window style dwStyle --- 132,142 ---- 0 0 \ adjust x,y relative to 0,0 StartSize: [ self ] \ width, height ! SetRect: WinRect ^base \ creation parameters lpParam appInst \ program instance *hInstance NULL LoadMenu: [ self ] \ menu hMenu ParentWindow: [ self ] \ parent window handle ok hWndParent ! Height: WinRect \ adjusted height ! Width: WinRect \ adjusted width StartPos: [ self ] swap \ y, x starting position WindowStyle: [ self ] \ the window style dwStyle *************** *** 145,149 **** WS_EX_APPWINDOW WS_EX_TOPMOST or Call CreateWindowEx ! EraseRect: WndRect ; --- 145,149 ---- WS_EX_APPWINDOW WS_EX_TOPMOST or Call CreateWindowEx ! EraseRect: WinRect ; |
1040 messages has been excluded from this view by a project administrator.
