Fixed Window deletion mechanism

[bbtk.git] / kernel / src / bbtkExecuter.cxx

diff --git a/kernel/src/bbtkExecuter.cxx b/kernel/src/bbtkExecuter.cxx
index 519a264eec6eb7bb3017a38ae007d33df0cf4c89..91054a35c8c026b47be07c4315fa66c5d4c0750e 100644 (file)
--- a/kernel/src/bbtkExecuter.cxx
+++ b/kernel/src/bbtkExecuter.cxx
@@ -2,8 +2,8 @@
   Program:   bbtk
   Module:    $RCSfile: bbtkExecuter.cxx,v $
   Language:  C++
-  Date:      $Date: 2009/03/30 15:22:51 $
-  Version:   $Revision: 1.29 $
+  Date:      $Date: 2009/05/28 08:12:05 $
+  Version:   $Revision: 1.30 $
 =========================================================================*/
 
 /* ---------------------------------------------------------------------
@@ -37,6 +37,7 @@
 #include "bbtkMessageManager.h"
 #include "bbtkFactory.h"
 #include "bbtkUtilities.h"
+//#include "bbtkWx.h"
 #include <fstream>
 
 #ifdef USE_WXWIDGETS
@@ -52,7 +53,7 @@ namespace bbtk
   //=======================================================================
   Executer::Pointer Executer::New()
   {
-    bbtkDebugMessage("Kernel",9,"Executer::New()"<<std::endl);
+    bbtkDebugMessage("object",9,"Executer::New()"<<std::endl);
     return MakePointer(new Executer());
   }
   //=======================================================================
@@ -67,7 +68,7 @@ namespace bbtk
     mDialogMode(NoDialog),
     mNoErrorMode(false)
   {
-    bbtkDebugMessageInc("Kernel",9,"Executer::Executer()" <<std::endl);
+    bbtkDebugMessage("object",2,"==> Executer()" <<std::endl);
     mFactory = Factory::New();
     // The smart pointer on this is not made yet (is made by New) 
     // -> create it to pass it to the factory
@@ -76,19 +77,19 @@ namespace bbtk
     // -> this would auto-destroy !!
     mFactory->SetExecuter(MakePointer(this,true));
     Reset();
-    bbtkDebugDecTab("Kernel",9);
+    bbtkDebugMessage("object",2,"<== Executer()" <<std::endl);
   }
   //=======================================================================
 
   //=======================================================================
   Executer::~Executer()
   {
-     bbtkDebugMessageInc("Kernel",9,"==> Executer::~Executer()" <<std::endl);
+     bbtkDebugMessage("object",2,"==> ~Executer()" <<std::endl);
      mOpenDefinition.clear();
      mOpenPackage.clear();
      mFactory->Reset();
      mFactory.reset();
-     bbtkDebugDecTab("Kernel",9);
+     bbtkDebugMessage("object",2,"<== ~Executer()" <<std::endl);
   }
   //=======================================================================
 
@@ -111,14 +112,18 @@ namespace bbtk
   //=======================================================================
   void Executer::Reset()
   {
-    bbtkDebugMessageInc("Kernel",9,"Executer::Reset()" <<std::endl);
+    bbtkDebugMessage("kernel",9,"==> Executer::Reset()" <<std::endl);
 
     GetFactory()->CheckPackages();
  
     mOpenDefinition.clear();
     mOpenPackage.clear();
-    GetFactory()->Reset();
 
+    //  Wx::DestroyTopWindow();
+
+    GetFactory()->Reset();
+    Wx::ProcessPendingEvents();
+ 
     // Create user package
     Package::Pointer p =
       Package::New("user","internal","User defined black boxes","");
@@ -142,8 +147,7 @@ namespace bbtk
 
     //    Object::PrintObjectListInfo();
     //  GetFactory()->CheckPackages();
-
-    bbtkDebugDecTab("Kernel",9);
+    bbtkDebugMessage("kernel",9,"<== Executer::Reset()" <<std::endl);
   }
   //=======================================================================
 
@@ -159,7 +163,7 @@ namespace bbtk
   //=======================================================================
   void Executer::BeginPackage (const std::string &name)
   {
-     bbtkDebugMessageInc("Kernel",9,"Executer::BeginPackage(\""<<name<<"\")"
+     bbtkDebugMessage("kernel",9,"==> Executer::BeginPackage(\""<<name<<"\")"
                         <<std::endl);
      Package::Pointer p;
      try 
@@ -172,6 +176,9 @@ namespace bbtk
        GetFactory()->InsertPackage(p);
       }
      mOpenPackage.push_back(p);
+
+     bbtkDebugMessage("kernel",9,"<== Executer::BeginPackage(\""<<name<<"\")"
+                     <<std::endl);
   }
   //=======================================================================
 
@@ -187,9 +194,9 @@ namespace bbtk
                          const std::string &pack,
                          const std::string &scriptfilename)
   {
-    bbtkDebugMessageInc("Kernel",9,"Executer::Define(\""<<name<<
-                        ","<<pack<<"\")"
-                        <<std::endl);
+    bbtkDebugMessage("kernel",9,"==> Executer::Define(\""<<name<<
+                    ","<<pack<<"\")"
+                    <<std::endl);
 
     ComplexBlackBoxDescriptor::Pointer b 
       = ComplexBlackBoxDescriptor::New(name);
@@ -197,7 +204,9 @@ namespace bbtk
     b->SetScriptFileName(scriptfilename);
     mOpenDefinition.push_back( CBBDefinition( b, pack ) );
     
-    bbtkDebugDecTab("Kernel",9);
+    bbtkDebugMessage("kernel",9,"<== Executer::Define(\""<<name<<
+                    ","<<pack<<"\")"
+                    <<std::endl);
   }
   //=======================================================================
 
@@ -213,18 +222,18 @@ namespace bbtk
   //=======================================================================
   void Executer::Clear()
   {
-    bbtkDebugMessageInc("Kernel",9,"Executer::Clear()" <<std::endl);
+    bbtkDebugMessage("kernel",9,"==> Executer::Clear()" <<std::endl);
     GetCurrentDescriptor()->GetPrototype()->Clear();
-
+    bbtkDebugMessage("kernel",9,"<== Executer::Clear()" <<std::endl);
   }
   //=======================================================================
 
   //=======================================================================
   void Executer::EndDefine ()
   {
-    bbtkDebugMessageInc("Kernel",9,"Executer::EndDefine(\""
-                        <<GetCurrentDescriptor()->GetTypeName()<<"\")" 
-                        <<std::endl);
+    bbtkDebugMessage("kernel",9,"==> Executer::EndDefine(\""
+                    <<GetCurrentDescriptor()->GetTypeName()<<"\")" 
+                    <<std::endl);
     // Does current package exist ?
     Package::Pointer p;
     std::string pname(mOpenDefinition.back().package);
@@ -246,6 +255,9 @@ namespace bbtk
       }
     p->RegisterBlackBox(GetCurrentDescriptor());
     
+    bbtkDebugMessage("kernel",9,"<== Executer::EndDefine(\""
+                    <<GetCurrentDescriptor()->GetTypeName()<<"\")" 
+                    <<std::endl);
     mOpenDefinition.pop_back();
   }
   //======================================================================= 
@@ -493,10 +505,9 @@ namespace bbtk
   /// prints the list of the boxes of the current descriptor
   void Executer::PrintBoxes()
   {
-    bbtkMessageInc("Help",1,"The black box descriptor \""
-                   <<GetCurrentDescriptor()->GetTypeName()<<"\" contains : "<<std::endl);
+    bbtkMessage("help",1,"The black box descriptor \""
+               <<GetCurrentDescriptor()->GetTypeName()<<"\" contains : "<<std::endl);
     GetCurrentDescriptor()->PrintBlackBoxes();
-    bbtkDecTab("Help",1);
  }
   //=======================================================================
 
@@ -625,8 +636,8 @@ namespace bbtk
       } 
     else 
       {
-       bbtkMessageInc("Help",1,"No black box: \""
-                      <<nameblackbox<<"\" " <<std::endl);
+       bbtkMessage("help",1,"No black box: \""
+                   <<nameblackbox<<"\" " <<std::endl);
       }
     return page;
   }
@@ -688,7 +699,7 @@ namespace bbtk
     if (GetNoExecMode() &&  (GetCurrentDescriptor()==GetWorkspace()) ) return;
     if (GetCurrentDescriptor()!=GetWorkspace()) return;
 
-    bbtkDebugMessageInc("Interpreter",9,"Interpreter::Print(\""<<str<<"\")"<<std::endl);
+    bbtkDebugMessage("kernel",9,"Executer::Print(\""<<str<<"\")"<<std::endl);
 
  // TO DO :
  // InterpretLine ("load std")
@@ -746,9 +757,9 @@ namespace bbtk
     for (i= chains.begin(); i!=chains.end(); ++i) 
       {
        Utilities::SubsBackslashN(*i);
-       bbtkMessage("Output",1,*i);
+       bbtkMessage("output",1,*i);
       }
-    bbtkMessage("Output",1,std::endl);
+    bbtkMessage("output",1,std::endl);
   }
   //==========================================================================