// ->!MenuLib



int pca_handle;


int pca_entry(int entry,int subcode)
{
 pca_object(entry);
 return(0);
}


int pca_menu(int open)
{
 int    i;
 string s;

 if(pca_handle) delete_menu(pca_handle);

 pca_handle=create_menu("PCA");

 i=0;
 while(pca_name(i++,s))
  addentry_menu(pca_handle,"pca_entry","","","",s);

 if(i<=1) addentry_menu(pca_handle,"","","","","Not available");

 return(pca_handle);
}


int pca_flags(int entry,string & text)
{
 return(pca_setup()?0:SHADED);
}


void main(void)
{
 script_menu_initialise();
 addentry_menu(script_handle,"","pca_flags","pca_menu","","PCA");
}
