[Win32forth-cvs] win32forth/apps/Win32ForthIDE Main.f,1.11,1.12

[Rod O. <rod...@us...>]

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 }