void FinishDeferredSF (void)
{
if (deferSetFormula->lLength) {
SortLists (deferSetFormula, &deferIsConstant);
_SimpleList tcache;
long iv,
i = variableNames.Traverser (tcache,iv,variableNames.GetRoot());
for (; i >= 0; i = variableNames.Traverser (tcache,iv)) {
_Variable* theV = FetchVar(i);
if (theV->IsContainer()) {
((_VariableContainer*)theV)->SetMDependance (*deferSetFormula);
}
}
for (long j = 0; j<likeFuncList.lLength; j++)
if (((_String*)likeFuncNamesList(j))->sLength) {
_LikelihoodFunction * lf = (_LikelihoodFunction*)likeFuncList(j);
for (long k = 0; k < deferSetFormula->lLength; k++) {
lf->UpdateIndependent(deferSetFormula->lData[k],deferIsConstant.lData[k]);
}
}
}
DeleteObject (deferSetFormula);
deferSetFormula = nil;
deferIsConstant.Clear();
}
ProcItemsEnumerator(ULONG theOptions) : myOptions(theOptions), myCurIndex(), myEffective(0)
{
if ( (myOptions & (ENUMOPTIONS_FOLDERS_ON_TOP|ENUMOPTIONS_FOLDERS_ON_BTM)) != 0)
FillLists<true>();
else
FillLists<false>();
if ( (myOptions & ENUMOPTIONS_SORT_ITEMS) != 0)
SortLists();
MergeLists( (myOptions & ENUMOPTIONS_FOLDERS_ON_BTM) == 0);
}
//__________________________________________________________________
void _HYSequencePane::AlphabetizeSpecies (void)
{
_List currentActiveNames;
long k;
for (k=0; k<speciesIndex.lLength; k++)
currentActiveNames << rowHeaders (speciesIndex.lData[k]);
SortLists (¤tActiveNames,&speciesIndex);
BuildPane ();
_MarkForUpdate();
}
void _HYObjectInspector::SortObjectsByName (long location)
{
_HYTable* table = (_HYTable*)GetCellObject (HY_OBJECT_INSPECTOR_TABLE_ROW,0);
_List menuItems;
menuItems.AppendNewInstance(new _String ("Ascending"));
menuItems.AppendNewInstance(new _String ("Descending"));
long h = table->_HandlePullDown (menuItems,(location&0xffff0000)>>16,location&0x0000ffff,0),
k;
if (h>=0) {
menuItems.Clear();
_SimpleList index;
for (k=0; k<table->verticalSpaces.lLength; k++) {
index<<k;
menuItems << table->GetCellData (0,k);
}
bool hasPadding = ((_String*)menuItems(menuItems.lLength-1))->sLength==0;
if (hasPadding) {
menuItems.Delete (menuItems.lLength-1);
index.Delete (index.lLength-1);
}
SortLists (&menuItems, &index);
if (h==1) {
index.Flip();
}
if (hasPadding) {
index<<index.lLength;
}
table->SetRowOrder (index);
}
}
