[Win32forth-cvs] win32forth/src/lib excontrols.f,1.17,1.18

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

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

Modified Files:
	excontrols.f 
Log Message:
Fixed the resizing of the windows within the TabControl and corrected some doc of the TabControl.

Index: excontrols.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/lib/excontrols.f,v
retrieving revision 1.17
retrieving revision 1.18
diff -C2 -d -r1.17 -r1.18
*** excontrols.f	29 May 2006 16:47:46 -0000	1.17
--- excontrols.f	4 Jun 2006 09:58:50 -0000	1.18
***************
*** 2321,2325 ****
          TCM_ADJUSTRECT SendMessage:self drop ;M
  
! :M ClientSize:  ( -- x y w h )
  \ *G Return size of display area of the tab control.
          TempRect.addrof GetClientRect: self
--- 2321,2325 ----
          TCM_ADJUSTRECT SendMessage:self drop ;M
  
! :M ClientSize:  ( -- left top right bottom )
  \ *G Return size of display area of the tab control.
          TempRect.addrof GetClientRect: self
***************
*** 2327,2331 ****
          temprect.left temprect.top temprect.right temprect.bottom ;M
  
! :M WindowSize:	( 0 0 width height -- x y w h )
  \ *G Given display area return window size required.
          SetRect: Temprect
--- 2327,2331 ----
          temprect.left temprect.top temprect.right temprect.bottom ;M
  
! :M WindowSize:	( 0 0 width height -- left top right bottom )
  \ *G Given display area return window size required.
          SetRect: Temprect
***************
*** 2351,2356 ****
  		tempRect.AddrOf GetClientRect: Parent
  		0 0 Right: tempRect Bottom: tempRect \ x,y,h,w
! 		Move: self
! 		;M
  
  :M Enable:      ( f -- )
--- 2351,2355 ----
  		tempRect.AddrOf GetClientRect: Parent
  		0 0 Right: tempRect Bottom: tempRect \ x,y,h,w
! 		Move: self ;M
  
  :M Enable:      ( f -- )