[Win32forth-cvs] win32forth/src/lib ScintillaControl.f, 1.6, 1.7 ScintillaEdit.f, 1.5, 1.6

[Ezra B. <ezr...@us...>]

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

Modified Files:
	ScintillaControl.f ScintillaEdit.f 
Log Message:
Minor fix to allow flashing cursor in scintilla control.

Index: ScintillaEdit.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/lib/ScintillaEdit.f,v
retrieving revision 1.5
retrieving revision 1.6
diff -C2 -d -r1.5 -r1.6
*** ScintillaEdit.f	13 Oct 2006 03:50:29 -0000	1.5
--- ScintillaEdit.f	14 May 2007 05:34:38 -0000	1.6
***************
*** 200,207 ****
                  SetWindowTitle: self ;M
  
! :M OpenFile:    ( -- )          \ open a file
                  GetOpenFilename ?dup
                  if   OpenNamedFile: self
!                 else drop
                  then ;M
  
--- 200,207 ----
                  SetWindowTitle: self ;M
  
! :M OpenFile:    ( -- f )          \ open a file
                  GetOpenFilename ?dup
                  if   OpenNamedFile: self
!                 else drop false
                  then ;M
  

Index: ScintillaControl.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/lib/ScintillaControl.f,v
retrieving revision 1.6
retrieving revision 1.7
diff -C2 -d -r1.6 -r1.7
*** ScintillaControl.f	15 Apr 2007 03:30:53 -0000	1.6
--- ScintillaControl.f	14 May 2007 05:34:38 -0000	1.7
***************
*** 1982,1985 ****
--- 1982,1991 ----
          ;M
  
+ :M WM_TIMER  	{ h m w l -- res } \ override so we can get a flashing cursor in scintilla control
+                 old-WndProc
+                 IF      h m w l old-WndProc CallWindowProc
+                 ELSE	0
+                 THEN	;M
+ 
  ;Class