[Win32forth-cvs] win32forth/src/lib TabControl.f,1.6,1.7

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

Update of /cvsroot/win32forth/win32forth/src/lib
In directory 23jxhf1.ch3.sourceforge.com:/tmp/cvs-serv30377

Modified Files:
	TabControl.f 
Log Message:
- Changed the TabControl class to set the default gui font on start.
- MultiLineTabControl class added

Index: TabControl.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/lib/TabControl.f,v
retrieving revision 1.6
retrieving revision 1.7
diff -C2 -d -r1.6 -r1.7
*** TabControl.f	29 Jun 2008 05:12:40 -0000	1.6
--- TabControl.f	23 Dec 2008 10:48:04 -0000	1.7
***************
*** 86,93 ****
                  lparam ;M
  
- :M Start:       ( Parent -- )
- \ *G Create the control.
-                 to parent z" SysTabControl32" create-control ;M
- 
  \ You can cause the tabs to look like buttons by specifying the TCS_BUTTONS style. Tabs in this type of tab control
  \ should serve the same function as button controls; that is, clicking a tab should carry out a command instead of
--- 86,89 ----
***************
*** 284,290 ****
--- 280,308 ----
  		;M
  
+ :M Start:       ( Parent -- )
+ \ *G Create the control.
+                 to parent z" SysTabControl32" create-control
+ 	        DEFAULT_GUI_FONT call GetStockObject SetFont: self
+                 ;M
+ 
  ;Class
  \ *G End of TabControl class
  
+ \ ------------------------------------------------------------------------
+ \ *W <a name="MultiLineTabControl"></a>
+ \ *S MultiLineTabControl class
+ \ ------------------------------------------------------------------------
+ :Class MultiLineTabControl	<Super TabControl
+ \ *G Multiline Tab control.
+ \ ** Multiple rows of tabs are displayed, if necessary, so all tabs are visible at once.
+ 
+ :M Start:	( Parent -- )
+ 	        TCS_MULTILINE AddStyle: self
+ 	        Start: super
+ 	       ;M
+ ;class
+ \ *G End of MultiLineTabControl class
+ 
+ 
  \ *P For a demo how to use the TabControl see: TabControlDemo.f