1 // Copyright (c) 1998-1999 Matra Datavision
2 // Copyright (c) 1999-2014 OPEN CASCADE SAS
4 // This file is part of Open CASCADE Technology software library.
6 // This library is free software; you can redistribute it and/or modify it under
7 // the terms of the GNU Lesser General Public License version 2.1 as published
8 // by the Free Software Foundation, with special exception defined in the file
9 // OCCT_LGPL_EXCEPTION.txt. Consult the file LICENSE_LGPL_21.txt included in OCCT
10 // distribution for complete text of the license and disclaimer of any warranty.
12 // Alternatively, this file may be used under the terms of Open CASCADE
13 // commercial license or contractual agreement.
15 #include <Storage_Root.ixx>
17 Storage_Root::Storage_Root() : myRef(0)
21 Storage_Root::Storage_Root(const TCollection_AsciiString& aName,const Handle(Standard_Persistent)& anObject) : myRef(0)
26 if (!anObject.IsNull()) {
27 myType = anObject->DynamicType()->Name();
31 void Storage_Root::SetName(const TCollection_AsciiString& aName)
36 TCollection_AsciiString Storage_Root::Name() const
41 void Storage_Root::SetObject(const Handle(Standard_Persistent)& anObject)
45 if (!anObject.IsNull()) {
46 myType = anObject->DynamicType()->Name();
50 Handle(Standard_Persistent) Storage_Root::Object() const
55 TCollection_AsciiString Storage_Root::Type() const
60 void Storage_Root::SetReference(const Standard_Integer aRef)
65 Standard_Integer Storage_Root::Reference() const
70 void Storage_Root::SetType(const TCollection_AsciiString& aType)