> -- Edward Ivanov писал(а):
> (* Oberon-2, не работает !!! *)  -- W.SendMessage (hwndSB, CC.SB_SETPARTS, SYSTEM.CAST (W.WPARAM, LEN(arrWidthsSB)), SYSTEM.CAST (W.LPARAM, SYSTEM.ADR(arrWidthsSB)));  -- или вот так  -- W.SendMessage (hwndSB, CC.SB_SETPARTS, SYSTEM.CAST (W.WPARAM, LEN(arrWidthsSB)), SYSTEM.CAST (W.LPARAM, SYSTEM.M2ADR(arrWidthsSB)));
Вообще-то, SYSTEM.CAST - это как раз Модула, а Оберон - SYSTEM.VAL.