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
|
