[Win32forth-cvs] win32forth/apps/WinEd Ed_HyperLink.F, 1.9, 1.10 WinEd.f, 1.27, 1.28

[George H. <geo...@us...>]

Update of /cvsroot/win32forth/win32forth/apps/WinEd
In directory sfp-cvs-1.v30.ch3.sourceforge.com:/tmp/cvs-serv31639/WinEd

Modified Files:
	Ed_HyperLink.F WinEd.f 
Log Message:
Ability to build V7 plus minor mods.

Index: WinEd.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/apps/WinEd/WinEd.f,v
retrieving revision 1.27
retrieving revision 1.28
diff -C2 -d -r1.27 -r1.28
*** WinEd.f	28 Nov 2013 19:13:25 -0000	1.27
--- WinEd.f	9 Dec 2013 21:34:03 -0000	1.28
***************
*** 163,168 ****
  
                  \ add the resources to the exe file
!                 winver winnt4 >=
!                 [if]
                          &forthdir count pad place
                          s" WinEd.exe" pad +place
--- 163,170 ----
  
                  \ add the resources to the exe file
! 
! version# ((version)) 0. 2swap >number 3drop 7 < dup [if] winver winnt4 < and [then] 0=
! [if]
! 
                          &forthdir count pad place
                          s" WinEd.exe" pad +place
***************
*** 174,178 ****
                          false EndUpdate
  
!                 [else]
                          s" src\res\WinEd.ico"  s" WinEd.exe" Prepend<home>\ AddAppIcon
                  [then]
--- 176,180 ----
                          false EndUpdate
  
!                 [else]  \ For V6.xx.xx older OSs
                          s" src\res\WinEd.ico"  s" WinEd.exe" Prepend<home>\ AddAppIcon
                  [then]
***************
*** 180,184 ****
                  s" WinEd.exe" prepend<home>\ (AddCheckSum)
                  1 pause-seconds bye
!         [else]        
                  WinEd
          [then]
--- 182,186 ----
                  s" WinEd.exe" prepend<home>\ (AddCheckSum)
                  1 pause-seconds bye
!         [else]
                  WinEd
          [then]

Index: Ed_HyperLink.F
===================================================================
RCS file: /cvsroot/win32forth/win32forth/apps/WinEd/Ed_HyperLink.F,v
retrieving revision 1.9
retrieving revision 1.10
diff -C2 -d -r1.9 -r1.10
*** Ed_HyperLink.F	14 Jul 2013 12:43:20 -0000	1.9
--- Ed_HyperLink.F	9 Dec 2013 21:34:03 -0000	1.10
***************
*** 440,445 ****
  \ so we can only use it under Win98, WinME and Win2000 and later.
  \ This bug was reported on Wed, 02 Jun 2004 by Bruce Rennie
! [ winver win95 = winver winnt351 = or winver winnt4 = or ]
! [IF]
          count file-to-edit$ place
          file-to-edit$ +NULL
--- 440,446 ----
  \ so we can only use it under Win98, WinME and Win2000 and later.
  \ This bug was reported on Wed, 02 Jun 2004 by Bruce Rennie
! [ version# ((version)) 0. 2swap >number 3drop 7 < dup ] [if]
! [ winver win95 = winver winnt351 = or winver winnt4 = or and ] [then]
! [if]  \ For V6.xx.xx older OSs
          count file-to-edit$ place
          file-to-edit$ +NULL