-/*
- what *should* these functions *do* anyway.
- */
-Real
-Dimension_cache::relative_coordinate (Dimension_cache *d) const
-{
- Real r =0.0;
- if (d == this) // UGH
- return 0.0;
-
- for (Dimension_cache* c = parent_l_;
- c != d;
- c = c->parent_l_)
- r += c->offset_;
- return r;
-}
-
-Dimension_cache *
-Dimension_cache::common_group (Dimension_cache const* s) const
-{
- Link_array<Dimension_cache const> my_groups;
- for (Dimension_cache const *c = this;
- c ; c = c->parent_l_)
- my_groups.push (c);
-
-
- Dimension_cache const *common=0;
-
- for (Dimension_cache const * d = s;
- !common && d;
- d = d->parent_l_)
- common = my_groups.find_l (d);
-
- return (Dimension_cache*)common;
-}
-
-
-
-void
-Dimension_cache::set_empty (bool b)
-{
- if (empty_b_ != b)
- {
- empty_b_ = b;
- if (!empty_b_)
- invalidate ();
- }
-}
-