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
|
