[Win32forth-cvs] win32forth/apps/Win32ForthIDE EdTabControl.f, 1.3, 1.4

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

Update of /cvsroot/win32forth/win32forth/apps/Win32ForthIDE
In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv27316/apps/Win32ForthIDE

Modified Files:
	EdTabControl.f 
Log Message:
Rod: Eliminated the flicker in the left pane

Index: EdTabControl.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/apps/Win32ForthIDE/EdTabControl.f,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -d -r1.3 -r1.4
*** EdTabControl.f	7 Jun 2006 15:37:31 -0000	1.3
--- EdTabControl.f	7 Jun 2006 21:55:03 -0000	1.4
***************
*** 45,52 ****
          WS_EX_CLIENTEDGE ;M
  
- :M WndClassStyle:       ( -- style )
- \ Set the style member of the the WNDCLASS structure.
-         CS_DBLCLKS ;M
- 
  :M Start:       ( Parent -- )
          Start: super
--- 45,48 ----
***************
*** 148,164 ****
  :class ProjectWindow  <Super ProjectTreeViewControl
  
- :M WindowStyle: ( -- style )
-         WindowStyle: super
-         WS_BORDER invert and \ remove WS_BORDER style
-         WS_CLIPCHILDREN or
-         ;M
- 
  :M ExWindowStyle: ( -- )
          WS_EX_CLIENTEDGE ;M
  
- :M WndClassStyle:       ( -- style )
- \ Set the style member of the the WNDCLASS structure.
-         CS_DBLCLKS ;M
- 
  :M Handle_Notify: ( h m w l -- f )
  \ Handle the notification messages of the treeview control.
--- 144,150 ----
***************
*** 175,182 ****
  :class TabControlEx <super TabControl
  
- :M WndClassStyle:       ( -- style )
- \ Set the style member of the the WNDCLASS structure.
-         CS_DBLCLKS ;M
- 
  :M Start:	( Parent -- )
  	Start: super
--- 161,164 ----
***************
*** 197,214 ****
  ClassBrowserWindow cVocTree
  
  :M ReSize:	( -- )
  \ Resize the controls within the main window.
! 	AutoSize: cTab
  
!  	ClientSize: cTab 2over d- ( x y w h )
          4dup Move: cFileList
          4dup Move: cProjectTree
!  	4dup Move: cClassTree
!  	     Move: cVocTree
! 	;M
  
  :M On_Size:	( -- )
  \ Handle the WM_SIZE message.
! 	On_Size: super ReSize: self ;M
  
  :M AutoSize:    ( -- )
--- 179,200 ----
  ClassBrowserWindow cVocTree
  
+ :M WndClassStyle:       ( -- style )
+ \ Set the style member of the the WNDCLASS structure.
+         CS_DBLCLKS ;M
+ 
  :M ReSize:	( -- )
  \ Resize the controls within the main window.
!         AutoSize: cTab
  
!         ClientSize: cTab 2over d- ( x y w h )
          4dup Move: cFileList
          4dup Move: cProjectTree
!  	  4dup Move: cClassTree
!  	       Move: cVocTree
!         ;M
  
  :M On_Size:	( -- )
  \ Handle the WM_SIZE message.
!         ReSize: self ;M
  
  :M AutoSize:    ( -- )
***************
*** 219,249 ****
  
  : ShowFiles     ( -- )
          SW_HIDE Show: cProjectTree
          SW_HIDE Show: cVocTree
          SW_HIDE Show: cClassTree
-         SW_SHOW Show: cFileList
          ;
  
  : ShowProject   ( -- )
          SW_HIDE Show: cFileList
          SW_HIDE Show: cVocTree
          SW_HIDE Show: cClassTree
-         SW_SHOW Show: cProjectTree
          ;
  
  : ShowVocs      ( -- )
          SW_HIDE Show: cFileList
          SW_HIDE Show: cProjectTree
          SW_HIDE Show: cClassTree
-         AddVocabularies: cVocTree
-         SW_SHOW Show: cVocTree
          ;
  
  : ShowClasses   ( -- )
          SW_HIDE Show: cFileList
          SW_HIDE Show: cProjectTree
          SW_HIDE Show: cVocTree
-         AddClasses: cClassTree
-         SW_SHOW Show: cClassTree
          ;
  
--- 205,235 ----
  
  : ShowFiles     ( -- )
+         SW_SHOW Show: cFileList   \ show before hide
          SW_HIDE Show: cProjectTree
          SW_HIDE Show: cVocTree
          SW_HIDE Show: cClassTree
          ;
  
  : ShowProject   ( -- )
+         SW_SHOW Show: cProjectTree
          SW_HIDE Show: cFileList
          SW_HIDE Show: cVocTree
          SW_HIDE Show: cClassTree
          ;
  
  : ShowVocs      ( -- )
+         AddVocabularies: cVocTree
+         SW_SHOW Show: cVocTree
          SW_HIDE Show: cFileList
          SW_HIDE Show: cProjectTree
          SW_HIDE Show: cClassTree
          ;
  
  : ShowClasses   ( -- )
+         AddClasses: cClassTree
+         SW_SHOW Show: cClassTree
          SW_HIDE Show: cFileList
          SW_HIDE Show: cProjectTree
          SW_HIDE Show: cVocTree
          ;
  
***************
*** 282,290 ****
  
  :M On_Init:     ( -- )
- 	self Start: cTab
  	self Start: cFileList
  	self Start: cProjectTree
  	self Start: cVocTree
  	self Start: cClassTree
  
  \ TEST ONLY...
--- 268,276 ----
  
  :M On_Init:     ( -- )
  	self Start: cFileList
  	self Start: cProjectTree
  	self Start: cVocTree
  	self Start: cClassTree
+ 	self Start: cTab   \ must be started last
  
  \ TEST ONLY...
***************
*** 317,321 ****
  	\ ------------------------------------------------------------------------
  
- 	ReSize: self    \ resize the controls within the main window
          SelChange: self \ show the control for the currently selected tab
  
--- 303,306 ----