[Win32forth-cvs] win32forth/apps/Setup COM01.F,1.1,1.2 dtop_lnk.f,1.1,1.2

[Dirk B. <db...@us...>]

Update of /cvsroot/win32forth/win32forth/apps/Setup
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv5876/apps/Setup

Modified Files:
	COM01.F dtop_lnk.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: COM01.F
===================================================================
RCS file: /cvsroot/win32forth/win32forth/apps/Setup/COM01.F,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
Binary files /tmp/cvsSwRFcF and /tmp/cvsuGcQNZ differ

Index: dtop_lnk.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/apps/Setup/dtop_lnk.f,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** dtop_lnk.f	21 Dec 2004 00:18:49 -0000	1.1
--- dtop_lnk.f	5 May 2005 09:43:27 -0000	1.2
***************
*** 109,114 ****
  2 PROC SHGetPathFromIDList
  : GetSpecialFolderLocation   ( nFolder - adr count )
!     &DesktopPidl rel>abs swap NULL call SHGetSpecialFolderLocation drop
!     tmp$ rel>abs &DesktopPidl @ call SHGetPathFromIDList drop
      tmp$ zcount
   ;
--- 109,114 ----
  2 PROC SHGetPathFromIDList
  : GetSpecialFolderLocation   ( nFolder - adr count )
!     &DesktopPidl swap NULL call SHGetSpecialFolderLocation drop
!     tmp$ &DesktopPidl @ call SHGetPathFromIDList drop
      tmp$ zcount
   ;
***************
*** 116,122 ****
  : init_dtop_for_link
     CoInitialize
!    &pLink rel>abs IID_IShellLink rel>abs CLSCTX_INPROC_SERVER
!    NULL CLSID_ShellLink rel>abs    call CoCreateInstance ?failed
!    &pPersistFile rel>abs IID_IPersistFile rel>abs *QueryInterface ->pLink
   ;
  
--- 116,122 ----
  : init_dtop_for_link
     CoInitialize
!    &pLink IID_IShellLink CLSCTX_INPROC_SERVER
!    NULL CLSID_ShellLink call CoCreateInstance ?failed
!    &pPersistFile IID_IPersistFile *QueryInterface ->pLink
   ;
  
***************
*** 137,141 ****
  
  : buf+null ( buf$ n - abs_adr$incl_0 )
!    pad ascii-z rel>abs
   ;
  
--- 137,141 ----
  
  : buf+null ( buf$ n - abs_adr$incl_0 )
!    pad ascii-z
   ;
  
***************
*** 143,147 ****
     buf+null *SetPath        ->plink
     SW_SHOW  *SetShowCmd     ->plink
!    rel>abs  *SetDescription ->pLink
   ;
  
--- 143,147 ----
     buf+null *SetPath        ->plink
     SW_SHOW  *SetShowCmd     ->plink
!             *SetDescription ->pLink
   ;
  
***************
*** 149,153 ****
               { \ buffer -- }
     1024 LocalAlloc: buffer \ dbu
!    buffer ansi>unicode true buffer rel>abs *Save ->pPersistFile
   ;
  
--- 149,153 ----
               { \ buffer -- }
     1024 LocalAlloc: buffer \ dbu
!    buffer ansi>unicode true buffer *Save ->pPersistFile
   ;