Menu
▾
▴
[Win32forth-cvs] win32forth/apps/ProMgr ProjectManager.f,1.3,1.4 zipper.f,1.1,1.2
|
From: Dirk B. <db...@us...> - 2005-05-05 09:44:07
|
Update of /cvsroot/win32forth/win32forth/apps/ProMgr In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv5876/apps/ProMgr Modified Files: ProjectManager.f zipper.f Log Message: Removed REL>ABS and ABS>REL from the applications and demos, and made the demos work with the current w32f version Index: ProjectManager.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/ProMgr/ProjectManager.f,v retrieving revision 1.3 retrieving revision 1.4 diff -C2 -d -r1.3 -r1.4 *** ProjectManager.f 3 May 2005 12:21:09 -0000 1.3 --- ProjectManager.f 5 May 2005 09:43:27 -0000 1.4 *************** *** 442,446 **** GetName: ThisItem name-only? if zcount "to-pathend" asciiz ! then rel>abs to pszText ThisItem to lparam ?itemimages to iImage --- 442,446 ---- GetName: ThisItem name-only? if zcount "to-pathend" asciiz ! then to pszText ThisItem to lparam ?itemimages to iImage *************** *** 449,453 **** TVIF_IMAGE or TVIF_SELECTEDIMAGE or to mask tvitem->tvins ! tvins rel>abs 0 TVM_INSERTITEMA hWnd Call SendMessage IsHandle: ThisItem ; --- 449,453 ---- TVIF_IMAGE or TVIF_SELECTEDIMAGE or to mask tvitem->tvins ! tvins 0 TVM_INSERTITEMA hWnd Call SendMessage IsHandle: ThisItem ; *************** *** 509,515 **** ( hParent) to hParent ( hAfter) to hInsertAfter ! ( lparam) to lparam ! getname: lparam ! rel>abs to pszText 0 to iImage 1 to iSelectedImage --- 509,514 ---- ( hParent) to hParent ( hAfter) to hInsertAfter ! ( lparam) to lparam ! getname: lparam to pszText 0 to iImage 1 to iSelectedImage *************** *** 517,521 **** TVIF_IMAGE or TVIF_SELECTEDIMAGE or to mask tvitem->tvins ! tvins rel>abs 0 TVM_INSERTITEMA hWnd Call SendMessage ; : AddParentLists ( -- ) --- 516,520 ---- TVIF_IMAGE or TVIF_SELECTEDIMAGE or to mask tvitem->tvins ! tvins 0 TVM_INSERTITEMA hWnd Call SendMessage ; : AddParentLists ( -- ) *************** *** 674,679 **** hwndmain to hitem TVIF_TEXT to mask ! ProjectName 1+ rel>abs to psztext ! tvitem rel>abs 0 TVM_SETITEM hwnd Call SendMessage drop ProjectName count SetName: mainlist ;m --- 673,678 ---- hwndmain to hitem TVIF_TEXT to mask ! ProjectName 1+ to psztext ! tvitem 0 TVM_SETITEM hwnd Call SendMessage drop ProjectName count SetName: mainlist ;m *************** *** 776,780 **** :M WM_NOTIFY ( h m w l -- f ) ! dup abs>rel @ GetHandle: TheProject = if dup 2 cells+ @ NM_DBLCLK = if ItemId: SelectedItem 0= --- 775,779 ---- :M WM_NOTIFY ( h m w l -- f ) ! dup @ GetHandle: TheProject = if dup 2 cells+ @ NM_DBLCLK = if ItemId: SelectedItem 0= Index: zipper.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/ProMgr/zipper.f,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** zipper.f 21 Dec 2004 00:18:46 -0000 1.1 --- zipper.f 5 May 2005 09:43:27 -0000 1.2 *************** *** 142,146 **** 2 CallBack: Zip32Print ( addr n -- res ) ! drop abs>rel zcount 2dup + 1- c@ 0x0A = if 1- \ remove trailing linefeed then -trailing doZip32Print --- 142,146 ---- 2 CallBack: Zip32Print ( addr n -- res ) ! drop zcount 2dup + 1- c@ 0x0A = if 1- \ remove trailing linefeed then -trailing doZip32Print *************** *** 155,159 **** 2 CallBack: Zip32Service ( addr n -- res ) \ if res = 1 zip will abort ! drop abs>rel zcount 2dup + 1- c@ 0x0A = if 1- \ remove trailing linefeed then -trailing doZip32Service ; --- 155,159 ---- 2 CallBack: Zip32Service ( addr n -- res ) \ if res = 1 zip will abort ! drop zcount 2dup + 1- c@ 0x0A = if 1- \ remove trailing linefeed then -trailing doZip32Service ; *************** *** 162,166 **** 4 CallBack: Zip32Password { addr1 addr2 n addr3 -- res } ! addr1 abs>rel addr2 abs>rel n addr3 abs>rel doZip32Password 0 ; --- 162,166 ---- 4 CallBack: Zip32Password { addr1 addr2 n addr3 -- res } ! addr1 addr2 n addr3 doZip32Password 0 ; *************** *** 169,173 **** 1 CallBack: Zip32Comment ( addr -- ) ! abs>rel doZip32Comment 1 ; --- 169,173 ---- 1 CallBack: Zip32Comment ( addr -- ) ! doZip32Comment 1 ; *************** *** 176,185 **** zset? ?exit \ already set with{ ZipCallBacks }with ! &Zip32Print rel>abs put> ZDLLPRNT ! &Zip32Service rel>abs put> ZDLLSERVICE ! &Zip32Password rel>abs put> ZDLLPASSWORD ! &Zip32Comment rel>abs put> ZDLLCOMMENT end-with ! ZipCallBacks sizeof() drop rel>abs Init-Zip32 to zcode true to zset? ; --- 176,185 ---- zset? ?exit \ already set with{ ZipCallBacks }with ! &Zip32Print put> ZDLLPRNT ! &Zip32Service put> ZDLLSERVICE ! &Zip32Password put> ZDLLPASSWORD ! &Zip32Comment put> ZDLLCOMMENT end-with ! ZipCallBacks sizeof() drop Init-Zip32 to zcode true to zset? ; *************** *** 192,196 **** : SetZipOptions ( -- ) ! ZipOptions sizeof() drop rel>abs DoSetZipOptions to zcode ; external --- 192,196 ---- : SetZipOptions ( -- ) ! ZipOptions sizeof() drop DoSetZipOptions to zcode ; external *************** *** 207,212 **** NextAddress fcnt 1+ + ZipBuffer ZipBufferSize + u< not abort" Buffer full!" faddr NextAddress fcnt move ! \ nextaddress must be rel>abs for passing to DLL ! NextAddress rel>abs #FilesAdded cells ZipBuffer + ! NextAddress fcnt + 0 over c! \ null terminate 1+ to NextAddress 1 +to #FilesAdded ; --- 207,211 ---- NextAddress fcnt 1+ + ZipBuffer ZipBufferSize + u< not abort" Buffer full!" faddr NextAddress fcnt move ! NextAddress #FilesAdded cells ZipBuffer + ! NextAddress fcnt + 0 over c! \ null terminate 1+ to NextAddress 1 +to #FilesAdded ; *************** *** 220,225 **** SetZipCallBacks SetZipOptions ! ZipBuffer rel>abs ! zname zcnt asciiz rel>abs #FilesToBeZipped Zip dup to zcode ?zip-error ; --- 219,224 ---- SetZipCallBacks SetZipOptions ! ZipBuffer ! zname zcnt asciiz #FilesToBeZipped Zip dup to zcode ?zip-error ; *************** *** 247,248 **** --- 246,248 ---- That all folks! + |
