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 ----
|
