// This library adds some convenience functions to COFFEE
// (C) MAXON Computer GmbH 2000

GetActiveDocument()
{
	var doc = GetFirstDocument(); if (!doc) return NULL;

	if (doc->GetBit(2)) return doc; // first element is already the active one

	return doc->SearchNext(2);
}

GetActiveObject(doc)
{
	var op = doc->GetFirstObject(); if (!op) return NULL;

	if (op->GetBit(2)) return op; // first element is already the active one

	return op->SearchNext(2);
}

GetActiveTag(op)
{
	var tag = op->GetFirstTag(); if (!tag) return NULL;

	if (tag->GetBit(2)) return tag; // first element is already the active one

	return tag->SearchNext(2);
}