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