0031687: Draw Harness, ViewerTest - extend command vrenderparams with option updating...
[occt.git] / src / IGESSelect / IGESSelect_ComputeStatus.cxx
CommitLineData
973c2be1 1// Copyright (c) 1999-2014 OPEN CASCADE SAS
b311480e 2//
973c2be1 3// This file is part of Open CASCADE Technology software library.
b311480e 4//
d5f74e42 5// This library is free software; you can redistribute it and/or modify it under
6// the terms of the GNU Lesser General Public License version 2.1 as published
973c2be1 7// by the Free Software Foundation, with special exception defined in the file
8// OCCT_LGPL_EXCEPTION.txt. Consult the file LICENSE_LGPL_21.txt included in OCCT
9// distribution for complete text of the license and disclaimer of any warranty.
b311480e 10//
973c2be1 11// Alternatively, this file may be used under the terms of Open CASCADE
12// commercial license or contractual agreement.
b311480e 13
42cf5bc1 14
15#include <IFSelect_ContextModif.hxx>
7fd59977 16#include <IGESData_BasicEditor.hxx>
42cf5bc1 17#include <IGESData_IGESModel.hxx>
18#include <IGESData_Protocol.hxx>
19#include <IGESSelect_ComputeStatus.hxx>
7fd59977 20#include <Interface_Check.hxx>
42cf5bc1 21#include <Interface_CopyTool.hxx>
7fd59977 22#include <Interface_Macros.hxx>
42cf5bc1 23#include <Standard_Type.hxx>
24#include <TCollection_AsciiString.hxx>
7fd59977 25
92efcf78 26IMPLEMENT_STANDARD_RTTIEXT(IGESSelect_ComputeStatus,IGESSelect_ModelModifier)
27
b311480e 28IGESSelect_ComputeStatus::IGESSelect_ComputeStatus ()
7fd59977 29 : IGESSelect_ModelModifier (Standard_False) { }
30
31 void IGESSelect_ComputeStatus::Performing
32 (IFSelect_ContextModif& ctx,
33 const Handle(IGESData_IGESModel)& target,
34 Interface_CopyTool& ) const
35{
36 DeclareAndCast(IGESData_Protocol,protocol,ctx.Protocol());
37 if (protocol.IsNull()) {
38 ctx.CCheck()->AddFail("IGES Compute Status, Protocol incorrect");
39 return;
40 }
41
42 IGESData_BasicEditor corrector (target,protocol);
43 corrector.ComputeStatus();
44}
45
46
47 TCollection_AsciiString IGESSelect_ComputeStatus::Label () const
48{
49 return TCollection_AsciiString ("Compute Status of IGES Entities (Directory Part)");
50}