OpenCascade/occt
1
0
Fork 0
mirror of https://git.dev.opencascade.org/repos/occt.git synced 2025-04-05 18:16:23 +03:00
Code Packages Releases Activity

0023085: Call of tcl DFBrowser leads to error message

Browse Source 
Fix the problem of bug ID 23085. Now dftree.tcl script is loaded (if found) inside the command.
Compilation problem fixed (missing include), redundant comments removed, code simplified, error messages added
This commit is contained in:
szy 2012-04-12 13:54:51 +04:00
parent f04309524a
commit 409cc8d1dc
1 changed files with 32 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

43
src/DDF/DDF_BrowserCommands.cxx
View File

@ -17,12 +17,6 @@
// purpose or non-infringement. Please see the License for the specific terms // purpose or non-infringement. Please see the License for the specific terms
// and conditions governing the rights and limitations under the License. // and conditions governing the rights and limitations under the License.
// -----------------------
// Version: 0.0
//Version Date Purpose
// 0.0 Oct 3 1997 Creation
#include <stdio.h> #include <stdio.h>
#include <DDF.hxx> #include <DDF.hxx>
@ -41,6 +35,8 @@
#include <TCollection_AsciiString.hxx> #include <TCollection_AsciiString.hxx>
#include <TCollection_HAsciiString.hxx> #include <TCollection_HAsciiString.hxx>
#include <OSD_File.hxx>
#ifdef WNT #ifdef WNT
#include <stdio.h> #include <stdio.h>
#endif #endif
@ -56,19 +52,44 @@ static Standard_Integer DFBrowse (Draw_Interpretor& di,
Standard_Integer n, Standard_Integer n,
const char** a) const char** a)
{ {
if (n<2) return 1; if (n<2)
{
cout << "Use: " << a[0] << " document [brower_name]" << endl;
return 1;
}
Handle(TDF_Data) DF; Handle(TDF_Data) DF;
if (!DDF::GetDF (a[1], DF)) return 1; if (!DDF::GetDF (a[1], DF))
{
cout << "Error: document " << a[1] << " is not found" << endl;
return 1;
}
Handle(DDF_Browser) NewDDFBrowser = new DDF_Browser(DF); Handle(DDF_Browser) NewDDFBrowser = new DDF_Browser(DF);
TCollection_AsciiString name("browser_"); TCollection_AsciiString name("browser_");
name += ((n == 3)? a[2] : a[1]); name += ((n == 3)? a[2] : a[1]);
Draw::Set (name.ToCString(), NewDDFBrowser); Draw::Set (name.ToCString(), NewDDFBrowser);
TCollection_AsciiString inst1("dftree "); // Load Tcl Script
inst1.AssignCat(name); TCollection_AsciiString aTclScript (getenv ("CSF_DrawPluginDefaults"));
di.Eval(inst1.ToCString()); aTclScript.AssignCat ( "/dftree.tcl" );
OSD_File aTclScriptFile (aTclScript);
if (aTclScriptFile.Exists()) {
#ifdef DEB
cout << "Load " << aTclScript << endl;
#endif
di.EvalFile( aTclScript.ToCString() );
}
else
{
cout << "Error: Could not load script " << aTclScript << endl;
cout << "Check environment variable CSF_DrawPluginDefaults" << endl;
}
// Call command dftree defined in dftree.tcl
TCollection_AsciiString aCommand = "dftree ";
aCommand.AssignCat(name);
di.Eval(aCommand.ToCString());
return 0; return 0;
} }