old-classes function

Class "unit" and "viewport" as S4 classes