[Win32forth-cvs] win32forth/apps/WinEd Ed_EditWindowObj.F, 1.5, 1.6 Ed_Keys.F, 1.10, 1.11 WinEd.f, 1.26, 1.27

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

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

Modified Files:
	Ed_EditWindowObj.F Ed_Keys.F WinEd.f 
Log Message:
Modified to use [ ACTION-OF BYE COMPILE,] rather than BYE so the old setting is used to avoid endles recursion: it only worked by accident.

Index: WinEd.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/apps/WinEd/WinEd.f,v
retrieving revision 1.26
retrieving revision 1.27
diff -C2 -d -r1.26 -r1.27
*** WinEd.f	17 Jan 2012 19:36:11 -0000	1.26
--- WinEd.f	28 Nov 2013 19:13:25 -0000	1.27
***************
*** 180,185 ****
                  s" WinEd.exe" prepend<home>\ (AddCheckSum)
                  1 pause-seconds bye
!         [else]
!                 s" src\res\WinEd.ico"  s" WinEd.exe" Prepend<home>\ AddAppIcon
                  WinEd
          [then]
--- 180,184 ----
                  s" WinEd.exe" prepend<home>\ (AddCheckSum)
                  1 pause-seconds bye
!         [else]        
                  WinEd
          [then]

Index: Ed_EditWindowObj.F
===================================================================
RCS file: /cvsroot/win32forth/win32forth/apps/WinEd/Ed_EditWindowObj.F,v
retrieving revision 1.5
retrieving revision 1.6
diff -C2 -d -r1.5 -r1.6
*** Ed_EditWindowObj.F	5 Oct 2005 15:54:39 -0000	1.5
--- Ed_EditWindowObj.F	28 Nov 2013 19:13:25 -0000	1.6
***************
*** 231,235 ****
                  THEN ;
  
! \ New above latest on bottom 
  
  : "PutTextOut   ( a1 n1 -- )  \ Need a short comment here  jp???
--- 231,235 ----
                  THEN ;
  
! \ New above latest on bottom
  
  : "PutTextOut   ( a1 n1 -- )  \ Need a short comment here  jp???
***************
*** 368,372 ****
          WHILE   @
          REPEAT  here swap ! 0 , here cell+ ,
!         docol ,                          \ make a headerless def
          compile (s") ,"text" align       \ compile in html command string
          compile (?htm-EXIT)              \ compile in html test
--- 368,372 ----
          WHILE   @
          REPEAT  here swap ! 0 , here cell+ ,
! \in-system-ok docol ,                    \ make a headerless def
          compile (s") ,"text" align       \ compile in html command string
          compile (?htm-EXIT)              \ compile in html test
***************
*** 376,380 ****
           ( a1 n1 -- a2 n2 )              \ runtime
           html-chain                      \ link into html-chain
!          StringHtml ; 
  
  : &:     ( "&string" -- )                \ compile time
--- 376,380 ----
           ( a1 n1 -- a2 n2 )              \ runtime
           html-chain                      \ link into html-chain
!          StringHtml ;
  
  : &:     ( "&string" -- )                \ compile time

Index: Ed_Keys.F
===================================================================
RCS file: /cvsroot/win32forth/win32forth/apps/WinEd/Ed_Keys.F,v
retrieving revision 1.10
retrieving revision 1.11
diff -C2 -d -r1.10 -r1.11
*** Ed_Keys.F	2 Sep 2008 06:38:41 -0000	1.10
--- Ed_Keys.F	28 Nov 2013 19:13:25 -0000	1.11
***************
*** 48,52 ****
          view-before-bye
          term-canceled? 0=
!         IF      k_BYE
          THEN    ;
  
--- 48,52 ----
          view-before-bye
          term-canceled? 0=
!         IF   [ Action-of BYE compile, ]
          THEN    ;