[Win32forth-cvs] win32forth/src CALLBACK.f, 1.8, 1.9 Extend.f, 1.12, 1.13 editor_io.f, 1.2, 1.3

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

Update of /cvsroot/win32forth/win32forth/src
In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv6548/src

Modified Files:
	CALLBACK.f Extend.f editor_io.f 
Log Message:
- Fixed this nasty Win32ForthIDE F12 bug :-)

Index: editor_io.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/editor_io.f,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** editor_io.f	23 Jul 2006 09:39:39 -0000	1.2
--- editor_io.f	12 May 2007 07:51:19 -0000	1.3
***************
*** 171,175 ****
  : (win-set-break) { wParam lParam \ bp$ -- wParam lParam }
                  wParam lParam
!                 second-forth? ?EXIT             \ ignore messages if second copy
                  MAXSTRING LocalAlloc: bp$
                  ed-ptr   0= ?EXIT               \ exit if no shared memory
--- 171,180 ----
  : (win-set-break) { wParam lParam \ bp$ -- wParam lParam }
                  wParam lParam
! 
! \ This forth instance counting doesn't work well, and I don't understand
! \ what it's realy good for. So I removed the SECOND-FORTH? check to
! \ fix this nasty Win32ForthIDE F12 bug. (Samstag, Mai 12 2007 dbu)
! \               second-forth? ?EXIT             \ ignore messages if second copy
! 
                  MAXSTRING LocalAlloc: bp$
                  ed-ptr   0= ?EXIT               \ exit if no shared memory

Index: CALLBACK.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/CALLBACK.f,v
retrieving revision 1.8
retrieving revision 1.9
diff -C2 -d -r1.8 -r1.9
*** CALLBACK.f	26 May 2006 12:42:38 -0000	1.8
--- CALLBACK.f	12 May 2007 07:51:19 -0000	1.9
***************
*** 274,279 ****
  \ ** able to talk to other instances of forth.
          \ Create a unique message name; we do this to make shure
!         \ that the console only talk to WinEd/SciEdit with the
!         \ build with the Win32Forth Version.
  
          \ using PAD is ok here; because this is called before any
--- 274,279 ----
  \ ** able to talk to other instances of forth.
          \ Create a unique message name; we do this to make shure
!         \ that the console only talks to WinEd/SciEdit build with the
!         \ same Win32Forth Version.
  
          \ using PAD is ok here; because this is called before any

Index: Extend.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/Extend.f,v
retrieving revision 1.12
retrieving revision 1.13
diff -C2 -d -r1.12 -r1.13
*** Extend.f	25 Feb 2007 19:04:53 -0000	1.12
--- Extend.f	12 May 2007 07:51:19 -0000	1.13
***************
*** 125,131 ****
                  THEN
  
                  ed-ptr  0<>                     \ if shared memory was inited
!                 IF
!                      ed-forth-count @ 1 >
                       IF   TRUE to second-forth?
                       THEN
--- 125,133 ----
                  THEN
  
+ \ This forth instance counting doesn't work well, and I don't understand
+ \ what it's realy good for. I think I have to dig my head deeper into this area,
+ \ to see if it can't be removed completly (Samstag, Mai 12 2007 dbu).
                  ed-ptr  0<>                     \ if shared memory was inited
!                 IF   ed-forth-count @ 1 >
                       IF   TRUE to second-forth?
                       THEN