[Win32forth-cvs] win32forth/src CHILDWND.F, 1.7, 1.8 CONTROL.F, 1.6, 1.7 GENERIC.F, 1.12, 1.13

[Dirk B. <db...@us...>]

Update of /cvsroot/win32forth/win32forth/src
In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv23478/src

Modified Files:
	CHILDWND.F CONTROL.F GENERIC.F 
Log Message:
- Changed the TreeViewControl to use the control class as the base class.
- Moved some methods from the ProjectTreeViewControl into the TreeViewControl class.
- Changed the TreeViewControl to use SendMessage:self and SendMessage:selfdrop
- AutoSize: method added to the control and the child-window class.

Index: CHILDWND.F
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/CHILDWND.F,v
retrieving revision 1.7
retrieving revision 1.8
diff -C2 -d -r1.7 -r1.8
*** CHILDWND.F	5 Jun 2006 07:37:15 -0000	1.7
--- CHILDWND.F	11 Jun 2006 07:37:26 -0000	1.8
***************
*** 121,124 ****
--- 121,131 ----
                  then ;M
  
+ :M AutoSize:    ( -- )
+ \ *G Size the window to fit into the client area of the parent window.
+                 tempRect.AddrOf GetClientRect: Parent
+                 0 0 Right: tempRect Bottom: tempRect   \ x,y,h,w
+                 Move: self
+                 ;M
+ 
  ;Class
  \ *G End of Child-Window class

Index: CONTROL.F
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/CONTROL.F,v
retrieving revision 1.6
retrieving revision 1.7
diff -C2 -d -r1.6 -r1.7
*** CONTROL.F	31 Dec 2005 11:12:44 -0000	1.6
--- CONTROL.F	11 Jun 2006 07:37:27 -0000	1.7
***************
*** 186,194 ****
                  0  0 ;M      \
  
! :M StartPos:    ( -- left  top )
  \ *G Get the start position of this control. \n
  \ ** Override this method to change it.
                  0  0 ;M
  
  :M CreateStruct: ( -- CreateStrucPointer )
  \ *G This pointer to a structure, depends on what kind of window you are
--- 186,201 ----
                  0  0 ;M      \
  
! :M StartPos:    ( -- left top )
  \ *G Get the start position of this control. \n
  \ ** Override this method to change it.
                  0  0 ;M
  
+ :M AutoSize:    ( -- )
+ \ *G Size the window to fit into the client area of the parent window.
+                 tempRect.AddrOf GetClientRect: Parent
+                 0 0 Right: tempRect Bottom: tempRect   \ x,y,h,w
+                 Move: self
+                 ;M
+ 
  :M CreateStruct: ( -- CreateStrucPointer )
  \ *G This pointer to a structure, depends on what kind of window you are

Index: GENERIC.F
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/GENERIC.F,v
retrieving revision 1.12
retrieving revision 1.13
diff -C2 -d -r1.12 -r1.13
*** GENERIC.F	8 Jun 2006 07:54:07 -0000	1.12
--- GENERIC.F	11 Jun 2006 07:37:27 -0000	1.13
***************
*** 113,118 ****
  
  
! : SendMessage:Self ( lParam wParam message -- result )   hWnd call SendMessage ;
! : SendMessage:SelfDrop ( lParam wParam message -- )   SendMessage:Self drop ;
  
  \ -----------------------------------------------------------------
--- 113,123 ----
  
  
! : SendMessage:Self      ( lParam wParam message -- result )
! \ *G Send a windows message to our self.
!                 hWnd call SendMessage ;
! 
! : SendMessage:SelfDrop  ( lParam wParam message -- )
! \ *G Send a windows message to our self and discard the result.
!                 SendMessage:Self drop ;
  
  \ -----------------------------------------------------------------
***************
*** 237,240 ****
--- 242,246 ----
                  then
                  ;M
+ 
  ((
  :M GetWindowRect: ( -- left top right bottom )