Scales initial commit

This commit is contained in:
Norayr Chilingarian 2013-10-29 18:42:28 +04:00
parent e76b8bf27c
commit c5823b7657

View file

@ -36,10 +36,10 @@
---------------------------------------------------------------------------- ----------------------------------------------------------------------------
*) *)
MODULE ulmScales; MODULE Scales;
IMPORT Disciplines := ulmDisciplines, Events := ulmEvents, Objects := ulmObjects, Operations := ulmOperations, PersistentObjects := ulmPersistentObjects, IMPORT Disciplines, Events, Objects, Operations, PersistentObjects,
RelatedEvents := ulmRelatedEvents, Services := ulmServices; RelatedEvents, Services;
TYPE TYPE
Scale* = POINTER TO ScaleRec; Scale* = POINTER TO ScaleRec;
@ -440,4 +440,4 @@ BEGIN
InitInterface; InitInterface;
PersistentObjects.RegisterType(measureType, PersistentObjects.RegisterType(measureType,
"Scales.Measure", "Operations.Operand", NIL); "Scales.Measure", "Operations.Operand", NIL);
END ulmScales. END Scales.