The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
#include "apricot.h"
#include "AccelTable.h"
#include "Widget.h"
#include <AccelTable.inc>
#ifdef __cplusplus
extern "C" {
#endif


#undef  my
#define inherited CAbstractMenu->
#define my  ((( PAccelTable) self)-> self)
#define var (( PAccelTable) self)

void
AccelTable_init( Handle self, HV * profile)
{
	dPROFILE;
	inherited init( self, profile);
	var-> system = false;
	my-> set_items( self, pget_sv( items));
	CORE_INIT_TRANSIENT(AccelTable);
}

void
AccelTable_set_items( Handle self, SV * menuItems)
{
	if ( var-> stage > csFrozen) return;
	my-> dispose_menu( self, var->  tree);
	var-> tree = ( PMenuItemReg) my-> new_menu( self, menuItems, 0);
}

Bool
AccelTable_selected( Handle self, Bool set, Bool selected)
{
	if ( !set)
		return CWidget( var-> owner)-> get_accelTable( var-> owner) == self;
	if ( var-> stage > csFrozen)
		return false;
	if ( selected)
		CWidget( var-> owner)-> set_accelTable( var->  owner, self);
	else if ( my-> get_selected( self))
		CWidget( var-> owner)-> set_accelTable( var->  owner, nilHandle);
	return false;
}


#ifdef __cplusplus
}
#endif