]> git.saurik.com Git - wxWidgets.git/blob - src/mac/radiobut.cpp
MSW compilation fixes - widgets sample runs!
[wxWidgets.git] / src / mac / radiobut.cpp
1 /////////////////////////////////////////////////////////////////////////////
2 // Name: radiobut.cpp
3 // Purpose: wxRadioButton
4 // Author: AUTHOR
5 // Modified by: JS Lair (99/11/15) adding the cyclic groupe notion for radiobox
6 // Created: ??/??/98
7 // RCS-ID: $Id$
8 // Copyright: (c) AUTHOR
9 // Licence: wxWindows licence
10 /////////////////////////////////////////////////////////////////////////////
11
12 #ifdef __GNUG__
13 #pragma implementation "radiobut.h"
14 #endif
15
16 #include "wx/radiobut.h"
17
18
19 IMPLEMENT_DYNAMIC_CLASS(wxRadioButton, wxControl)
20
21 #include <wx/mac/uma.h>
22
23 bool wxRadioButton::Create(wxWindow *parent, wxWindowID id,
24 const wxString& label,
25 const wxPoint& pos,
26 const wxSize& size, long style,
27 const wxValidator& validator,
28 const wxString& name)
29 {
30 Rect bounds ;
31 Str255 title ;
32
33 MacPreControlCreate( parent , id , label , pos , size ,style, validator , name , &bounds , title ) ;
34
35 m_macControl = UMANewControl( parent->GetMacRootWindow() , &bounds , title , false , 0 , 0 , 1,
36 kControlRadioButtonProc , (long) this ) ;
37
38 MacPostControlCreate() ;
39
40 m_cycle = this ;
41
42 if (HasFlag(wxRB_GROUP))
43 {
44 AddInCycle( NULL ) ;
45 }
46 else
47 {
48 /* search backward for last group start */
49 wxRadioButton *chief = (wxRadioButton*) NULL;
50 wxWindowList::Node *node = parent->GetChildren().GetLast();
51 while (node)
52 {
53 wxWindow *child = node->GetData();
54 if (child->IsKindOf( CLASSINFO( wxRadioButton ) ) )
55 {
56 chief = (wxRadioButton*) child;
57 if (child->HasFlag(wxRB_GROUP)) break;
58 }
59 node = node->GetPrevious();
60 }
61 AddInCycle( chief ) ;
62 }
63 return TRUE;
64 }
65
66 void wxRadioButton::SetValue(bool val)
67 {
68 int i;
69 wxRadioButton *cycle;
70 if ( GetControlValue( m_macControl ) == val )
71 return ;
72
73 ::SetControlValue( m_macControl , val ) ;
74 if (val)
75 {
76 cycle=this->NextInCycle();
77 if (cycle!=NULL) {
78 while (cycle!=this) {
79 cycle->SetValue(false);
80 cycle=cycle->NextInCycle();
81 }
82 }
83 }
84 }
85
86 bool wxRadioButton::GetValue() const
87 {
88 return ::GetControlValue( m_macControl ) ;
89 }
90
91 void wxRadioButton::Command (wxCommandEvent & event)
92 {
93 SetValue ( (event.GetInt() != 0) );
94 ProcessCommand (event);
95 }
96
97 void wxRadioButton::MacHandleControlClick( ControlHandle control , SInt16 controlpart )
98 {
99 if ( GetValue() )
100 return ;
101
102 wxRadioButton *cycle, *old = NULL ;
103 cycle=this->NextInCycle();
104 if (cycle!=NULL) {
105 while (cycle!=this) {
106 if ( cycle->GetValue() ) {
107 old = cycle ;
108 cycle->SetValue(false);
109 }
110 cycle=cycle->NextInCycle();
111 }
112 }
113
114 SetValue(true) ;
115
116 if ( old ) {
117 wxCommandEvent event(wxEVT_COMMAND_RADIOBUTTON_SELECTED, old->m_windowId );
118 event.SetEventObject(old);
119 event.SetInt( false );
120 old->ProcessCommand(event);
121 }
122 wxCommandEvent event2(wxEVT_COMMAND_RADIOBUTTON_SELECTED, m_windowId );
123 event2.SetEventObject(this);
124 event2.SetInt( true );
125 ProcessCommand(event2);
126 }
127
128 wxRadioButton *wxRadioButton::AddInCycle(wxRadioButton *cycle)
129 {
130 wxRadioButton *next,*current;
131
132 if (cycle==NULL) {
133 m_cycle=this;
134 return(this);
135 }
136 else {
137 current=cycle;
138 while ((next=current->m_cycle)!=cycle)
139 current=current->m_cycle;
140 m_cycle=cycle;
141 current->m_cycle=this;
142 return(cycle);
143 }
144 }