- 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 , true , 0 , -12345 , 0,
+ kControlPopupButtonProc , (long) this ) ;
+
+ m_macPopUpMenuHandle = NewMenu( 1 , "\pPopUp Menu" ) ;
+ SetControlData( m_macControl , kControlNoPart , kControlPopupButtonMenuHandleTag , sizeof( MenuHandle ) , (char*) &m_macPopUpMenuHandle) ;
+ for ( int i = 0 ; i < n ; i++ )
+ {
+ appendmenu( m_macPopUpMenuHandle , choices[i] ) ;
+ }
+ SetControlMinimum( m_macControl , 0 ) ;
+ SetControlMaximum( m_macControl , m_noStrings) ;
+ SetControlValue( m_macControl , 1 ) ;
+
+ MacPostControlCreate() ;
+
+ return TRUE;