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 ;
|
