From: cascade <cascade@opencascade.com>
Date: Wed, 18 Feb 2004 10:12:43 +0000 (+0000)
Subject: BUC5100,BUC5101 Transition on STL stringstream instead obsolete sstream.  cxx, edl... 
X-Git-Url: http://git.dev.opencascade.org/gitweb/?a=commitdiff_plain;h=012903d98d7d61bec0638cb5522ef610f4d9d3f4;p=occt-wok.git

BUC5100,BUC5101 Transition on STL stringstream instead obsolete sstream.  cxx, edl hxx cdl
---

diff --git a/src/WOKTclTools/WOKTclTools_Interpretor.cxx b/src/WOKTclTools/WOKTclTools_Interpretor.cxx
index 8f4c050..c669fd8 100755
--- a/src/WOKTclTools/WOKTclTools_Interpretor.cxx
+++ b/src/WOKTclTools/WOKTclTools_Interpretor.cxx
@@ -4,6 +4,7 @@
 //		<jga@cobrax>
 
 #include <TCollection_HAsciiString.hxx>
+#include <Standard_Macro.hxx>
 
 #include <WOKTools_ReturnValue.hxx>
 #include <WOKTools_StringValue.hxx>
@@ -107,9 +108,9 @@ static Standard_Integer WOKCommand(ClientData clientData, Tcl_Interp *,
     catch (Standard_Failure) {
       Handle(Standard_Failure) E = Standard_Failure::Caught();
       
-      strstream astream;
+      Standard_SStream astream;
       astream << E << ends;
-      ErrorMsg << argv[0] << "Exception was raised : " << astream.str() << endm;
+      ErrorMsg << argv[0] << "Exception was raised : " << GetSString(astream) << endm;
       WOKUtils_ProcessManager::UnArm();
       return TCL_ERROR;
     }