Update of /cvsroot/win32forth/win32forth/src
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv3096/src
Modified Files:
Shell.f
Log Message:
Expanded TAB's into spaces.
Index: Shell.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/Shell.f,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** Shell.f 2 Jun 2005 21:14:55 -0000 1.2
--- Shell.f 12 Aug 2005 16:36:13 -0000 1.3
***************
*** 50,54 ****
10 proc CreateProcess
: (CreateProcess) ( a1 -- f1 ) \ pass to NT without any interpretation
! \ Note: a1 must point to a zString !!!
ProcInfo 4 cells erase \ clear procinfo
--- 50,54 ----
10 proc CreateProcess
: (CreateProcess) ( a1 -- f1 ) \ pass to NT without any interpretation
! \ Note: a1 must point to a zString !!!
ProcInfo 4 cells erase \ clear procinfo
***************
*** 316,321 ****
bl word count conhndl "Web-Link ;
! : "file-link ( adr len hWnd -- ) \ open a local file in default browser
! s" file:" temp$ place \ build string
! >R Prepend<home>\ temp$ +place \ file:<absolute path>\<file name>.<ext>
! temp$ count r> "web-link ;
--- 316,322 ----
bl word count conhndl "Web-Link ;
! : "file-link ( adr len hWnd -- ) \ open a local file in default browser
! s" file:" temp$ place \ build string
! >R Prepend<home>\ temp$ +place \ file:<absolute path>\<file name>.<ext>
! temp$ count r> "web-link ;
! |
