В примереObxTweensто контекст создаётся вNewContextдо вызоваRecalcLayout

## Код:
```
PROCEDURE NewContext (v: Views.View; base: View): Context;
      VAR c: Context;
   BEGIN
      NEW(c);
      c.view := v; c.base := base;
      v.InitContext(c); Stores.Join(v, base);
      RETURN c
   END NewContext;
```


## Код:
```
PROCEDURE NewTwin* (top, bottom: Views.View): Views.View;
      VAR v: View;
   BEGIN
      NEW(v);
      v.top := NewContext(top, v); v.bottom := NewContext(bottom, v);
      NEW(v.ident); Stores.Join(v, v.ident); v.focus := v.bottom;
      RETURN v
   END NewTwin;
```


А у вас в примереtopтипаFieldнигде не создаётся, поэтому и не работает.