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