OpenCascade/occt
1
0
Fork 0
mirror of https://git.dev.opencascade.org/repos/occt.git synced 2025-08-19 13:40:49 +03:00
Code Activity

0023452: Couldn't catch results produced by commands "data" and "tpstat"

Browse Source 
Add new printer
Improving of duplication of command's output
Simplification of removing duplication of command's output
Removing of brackets
improved version
Test correction
This commit is contained in:
mkv
2012-12-14 16:51:39 +04:00
parent c7e8fd777c
commit fa350ff051
4 changed files with 26 additions and 22 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
src/XSDRAW/XSDRAW.cdl
View File

@@ -31,7 +31,7 @@ package XSDRAW
uses TCollection, TColStd, TopTools,
gp, Geom, Geom2d, TopoDS, MoniTool,
Interface, Transfer, IFSelect, XSControl, Draw, SWDRAW
Interface, Transfer, IFSelect, XSControl, Draw, SWDRAW, Message
is

7
src/XSDRAW/XSDRAW.cxx
View File

@@ -39,6 +39,8 @@
#include <Message.hxx>
#include <Message_Messenger.hxx>
#include <Message_PrinterOStream.hxx>
#include <Draw_Printer.hxx>
static int deja = 0, dejald = 0;
//unused variable
@@ -109,6 +111,11 @@ void XSDRAW::LoadDraw (Draw_Interpretor& theCommands)
// performed not in IFSelect_SessionPilot but in standard Tcl interpretor
XSDRAW::RemoveCommand("x");
XSDRAW::RemoveCommand("exit");
const Handle(Message_Messenger) &sout = Message::DefaultMessenger();
if (!sout.IsNull()){
sout->RemovePrinters(STANDARD_TYPE(Message_PrinterOStream));
sout->AddPrinter(new Draw_Printer(theCommands));
}
// if (!getenv("WBHOSTTOP")) XSDRAW::RemoveCommand("xsnew");
Handle(TColStd_HSequenceOfAsciiString) list =
IFSelect_Activator::Commands(0);