]> git.saurik.com Git - wxWidgets.git/blob - src/mac/statbox.cpp
Added child window scrolling
[wxWidgets.git] / src / mac / statbox.cpp
1 /////////////////////////////////////////////////////////////////////////////
2 // Name: statbox.cpp
3 // Purpose: wxStaticBox
4 // Author: AUTHOR
5 // Modified by:
6 // Created: ??/??/98
7 // RCS-ID: $Id$
8 // Copyright: (c) AUTHOR
9 // Licence: wxWindows licence
10 /////////////////////////////////////////////////////////////////////////////
11
12 #ifdef __GNUG__
13 #pragma implementation "statbox.h"
14 #endif
15
16 #include "wx/statbox.h"
17 #include "wx/mac/uma.h"
18
19 #if !USE_SHARED_LIBRARY
20 IMPLEMENT_DYNAMIC_CLASS(wxStaticBox, wxControl)
21
22 BEGIN_EVENT_TABLE(wxStaticBox, wxControl)
23 EVT_ERASE_BACKGROUND(wxStaticBox::OnEraseBackground)
24 END_EVENT_TABLE()
25
26 #endif
27
28 /*
29 * Static box
30 */
31
32 bool wxStaticBox::Create(wxWindow *parent, wxWindowID id,
33 const wxString& label,
34 const wxPoint& pos,
35 const wxSize& size,
36 long style,
37 const wxString& name)
38 {
39 Rect bounds ;
40 Str255 title ;
41
42 MacPreControlCreate( parent , id , label , pos , size ,style, wxDefaultValidator , name , &bounds , title ) ;
43
44 m_macControl = UMANewControl( parent->GetMacRootWindow() , &bounds , title , true , 0 , 0 , 1,
45 kControlGroupBoxTextTitleProc , (long) this ) ;
46
47 MacPostControlCreate() ;
48
49 return TRUE;
50 }