[Win32forth-cvs] win32forth/apps/SciEdit EdCompile.f,1.3,1.4

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

Update of /cvsroot/win32forth/win32forth/apps/SciEdit
In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv26633/apps/SciEdit

Modified Files:
	EdCompile.f 
Log Message:
- Fixed F12 in WinEd, SciEdit and the Win32Forth IDE. Now it should work when a Win32Forth turnkey application with an embedded console window (e.g. Solipon) is running, too.

Index: EdCompile.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/apps/SciEdit/EdCompile.f,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -d -r1.3 -r1.4
*** EdCompile.f	21 Aug 2005 11:11:04 -0000	1.3
--- EdCompile.f	22 Jul 2006 08:21:52 -0000	1.4
***************
*** 18,22 ****
  
  create Win32ForthClassName ," Win32Forth" \ the window class name of the forth console
! create Win32ForthName ," Win32Forth" \ the window name of the forth console
  0 value hWndForthWindow \ holds the current handle of forth console
  
--- 18,22 ----
  
  create Win32ForthClassName ," Win32Forth" \ the window class name of the forth console
! create Win32ForthName MAXSTRING allot Win32ForthName off \ the window name of the forth console
  0 value hWndForthWindow \ holds the current handle of forth console
  
***************
*** 41,48 ****
          then ;
  
  : GetForthWindow ( -- ) \ get the handle of the forth console window
          0 to hWndForthWindow
          GetHandle: Frame GetProcessId
!         &GetForthWindowCallback 
          Call EnumWindows drop ;
  
--- 41,62 ----
          then ;
  
+ : BuildWin32ForthName ( -- )
+ \ Build the window name of the Forth console window.
+ \ If a Forth console window is embedded within an turnkey application
+ \ the name is "Win32Forth".
+ \ For a stand alone console which is needed here it is "Win32forth <Version>",
+ \ were <Version> is something like "6.11.09" (see src/extend.f).
+         base @ decimal
+         S" Win32Forth " Win32ForthName place
+         version# ((version)) Win32ForthName +place
+         Win32ForthName +NULL
+         base !
+         ;
+ 
  : GetForthWindow ( -- ) \ get the handle of the forth console window
+         BuildWin32ForthName
          0 to hWndForthWindow
          GetHandle: Frame GetProcessId
!         &GetForthWindowCallback
          Call EnumWindows drop ;