Update of /cvsroot/win32forth/win32forth/apps/Win32ForthIDE
In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv11794/apps/Win32ForthIDE
Modified Files:
Main.f
Log Message:
Rod: updated Activate: method to stop scroll bar flicker
Index: Main.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/apps/Win32ForthIDE/Main.f,v
retrieving revision 1.11
retrieving revision 1.12
diff -C2 -d -r1.11 -r1.12
*** Main.f 11 Jun 2006 18:04:10 -0000 1.11
--- Main.f 11 Jun 2006 20:51:26 -0000 1.12
***************
*** 482,485 ****
--- 482,495 ----
HandleW32FMsg ;M
+ :M Activate:
+ GetActive: self drop \ maximised flag
+ IF false SetRedraw: self THEN
+ Activate: super
+ true SetRedraw: self
+ WS_CLIPCHILDREN -Style: ActiveChild
+ Paint: ActiveChild
+ WS_CLIPCHILDREN +Style: ActiveChild
+ ;M
+
int FileNotFound
2 CallBack: FindFile { hChild lparam -- f }
|
