[Win32forth-cvs] win32forth/apps/ProMgr ProjectManager.f, 1.14, 1.15

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

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

Modified Files:
	ProjectManager.f 
Log Message:
Rod: Updated to work with TreeView class derived from Control class by adding
StartSize: method to TheProject.  Used WndClassStyle: method instead of SetClassLong.

Index: ProjectManager.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/apps/ProMgr/ProjectManager.f,v
retrieving revision 1.14
retrieving revision 1.15
diff -C2 -d -r1.14 -r1.15
*** ProjectManager.f	13 Jun 2006 19:20:25 -0000	1.14
--- ProjectManager.f	13 Jun 2006 19:34:42 -0000	1.15
***************
*** 1,2 ****
--- 1,4 ----
+ \ $Id$
+ 
  \ ProjectManager.f    version 2
  
***************
*** 5,8 ****
--- 7,17 ----
  comment:
  
+ Tuesday, June 13 2006 - Rod
+ 
+     Updated to work with TreeView class derived from Control class by adding
+     StartSize: method to TheProject.  Used WndClassStyle: method instead of SetClassLong
+     wherever possible.  Splitter bar object NOT needed when background of main window
+     is set to COLOR_BTNFACE. 
+ 
  October 07, 2005 - EAB - added class for viewing binary files of any size.
  
***************
*** 428,431 ****
--- 437,442 ----
  :Object TheProject  <super TreeViewControl
  
+ :M StartSize: ( w h -- )   width: parent height: parent ;M
+ 
  File ProjectFile
  load-bitmap imagelist "treeimages.bmp"
***************
*** 867,873 ****
  :Object LeftPane  <Super Child-Window
  
  :M On_Init: ( -- )
          On_Init: super
-         CS_DBLCLKS GCL_STYLE hWnd Call SetClassLong  drop
          WS_CLIPCHILDREN +Style: self
          ;M
--- 878,887 ----
  :Object LeftPane  <Super Child-Window
  
+ :M WndClassStyle: ( -- style )
+          \ CS_DBLCLKS only to prevent flicker in window on sizing.
+          CS_DBLCLKS ;M
+ 
  :M On_Init: ( -- )
          On_Init: super
          WS_CLIPCHILDREN +Style: self
          ;M
***************
*** 899,902 ****
--- 913,920 ----
  HexViewer BinaryBox
  
+ :M WndClassStyle: ( -- style )
+          \ CS_DBLCLKS only to prevent flicker in window on sizing.
+          CS_DBLCLKS ;M
+ 
  :M ExWindowStyle:   ( -- )
                  WS_EX_CLIENTEDGE ;M
***************
*** 1043,1047 ****
  ;Object
  
! 
  \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
  \ \\\\\ Splitter window \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
--- 1061,1065 ----
  ;Object
  
! (( ****not needed as long as HBRBACKGROUND set to COLOR_BTNFACE in main window****
  \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
  \ \\\\\ Splitter window \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
***************
*** 1061,1065 ****
  
  ;Object
! 
  
  \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
--- 1079,1083 ----
  
  ;Object
! ))
  
  \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
***************
*** 1101,1105 ****
          0  ToolBarHeight  LeftWidth  LeftHeight  Move: LeftPane
          LeftWidth thickness +  ToolBarHeight  Width LeftWidth thickness + -  LeftHeight  Move: RightPane
!         LeftWidth  ToolBarHeight  thickness  LeftHeight  Move: Splitter
          AutoSize: TheProject ;
  
--- 1119,1123 ----
          0  ToolBarHeight  LeftWidth  LeftHeight  Move: LeftPane
          LeftWidth thickness +  ToolBarHeight  Width LeftWidth thickness + -  LeftHeight  Move: RightPane
! \        LeftWidth  ToolBarHeight  thickness  LeftHeight  Move: Splitter
          AutoSize: TheProject ;
  
***************
*** 1158,1161 ****
--- 1176,1183 ----
          ;M
  
+ :M WndClassStyle: ( -- style )
+          \ CS_DBLCLKS only to prevent flicker in window on sizing.
+          CS_DBLCLKS ;M
+ 
  :M WindowHasMenu: ( -- f )   true ;M
  
***************
*** 1174,1178 ****
  
  :M On_Init: ( -- )
-         CS_DBLCLKS GCL_STYLE hWnd  Call SetClassLong  drop
          WS_CLIPCHILDREN +Style: self
          self to TheProjectWindow
--- 1196,1199 ----