- if (parent) parent->AddChild(this);
-
- if ( id == -1 )
- m_windowId = (int)NewControlId();
- else
- m_windowId = id;
-
- // TODO: create choice control
- return FALSE;
+ Rect bounds ;
+ Str255 title ;
+
+ MacPreControlCreate( parent , id , "" , pos , size ,style, validator , name , &bounds , title ) ;
+
+ m_macControl = UMANewControl( parent->GetMacRootWindow() , &bounds , title , false , 0 , -12345 , 0 ,
+ kControlPopupButtonProc + kControlPopupFixedWidthVariant , (long) this ) ;
+
+ m_macPopUpMenuHandle = NewMenu( 1 , "\pPopUp Menu" ) ;
+ SetControlData( m_macControl , kControlNoPart , kControlPopupButtonMenuHandleTag , sizeof( MenuHandle ) , (char*) &m_macPopUpMenuHandle) ;
+ SetControlMinimum( m_macControl , 0 ) ;
+ SetControlMaximum( m_macControl , 0) ;
+ if ( n > 0 )
+ SetControlValue( m_macControl , 1 ) ;
+
+ MacPostControlCreate() ;
+
+ for ( int i = 0; i < n; i++ )
+ {
+ Append(choices[i]);
+ }
+ return TRUE;