]> Creatis software - bbtk.git/blobdiff - kernel/src/bbtkWxGUIScriptingInterface.cxx
BUG MACOS
[bbtk.git] / kernel / src / bbtkWxGUIScriptingInterface.cxx
index a1d274df8542aba28916fae0ea479290d022067d..f06b07eced988fe2dac3cc031f485b96e31f7fcb 100644 (file)
@@ -1,20 +1,35 @@
-/*=========================================================================
-                                                                                
+/*=========================================================================                                                                               
   Program:   bbtk
   Module:    $RCSfile: bbtkWxGUIScriptingInterface.cxx,v $
   Language:  C++
-  Date:      $Date: 2008/03/25 10:31:18 $
-  Version:   $Revision: 1.3 $
-                                                                                
-  Copyright (c) CREATIS (Centre de Recherche et d'Applications en Traitement de
-  l'Image). All rights reserved. See Doc/License.txt or
-  http://www.creatis.insa-lyon.fr/Public/bbtk/License.html for details.
-                                                                                
-     This software is distributed WITHOUT ANY WARRANTY; without even
-     the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR
-     PURPOSE.  See the above copyright notices for more information.
-                                                                                
-=========================================================================*//**
+  Date:      $Date: 2009/03/30 15:22:51 $
+  Version:   $Revision: 1.36 $
+=========================================================================*/
+
+/* ---------------------------------------------------------------------
+
+* Copyright (c) CREATIS-LRMN (Centre de Recherche en Imagerie Medicale)
+* Authors : Eduardo Davila, Laurent Guigues, Jean-Pierre Roux
+*
+*  This software is governed by the CeCILL-B license under French law and 
+*  abiding by the rules of distribution of free software. You can  use, 
+*  modify and/ or redistribute the software under the terms of the CeCILL-B 
+*  license as circulated by CEA, CNRS and INRIA at the following URL 
+*  http://www.cecill.info/licences/Licence_CeCILL-B_V1-en.html 
+*  or in the file LICENSE.txt.
+*
+*  As a counterpart to the access to the source code and  rights to copy,
+*  modify and redistribute granted by the license, users are provided only
+*  with a limited warranty  and the software's author,  the holder of the
+*  economic rights,  and the successive licensors  have only  limited
+*  liability. 
+*
+*  The fact that you are presently reading this means that you have had
+*  knowledge of the CeCILL-B license and that you accept its terms.
+* ------------------------------------------------------------------------ */                                                                         
+   
+
+/**
  * \brief Short description in one line
  * 
  * Long description which 
 #include "bbtkWxBlackBox.h"
 #include "bbtkConfigurationFile.h"
 #include "bbtkWxStreamRedirector.h"
+#include "bbtkUtilities.h"
+
+#include <wx/tipwin.h>
+#include <wx/splash.h>
 
-#include "icons/cc_run.xpm"
+//#include "icons/cc_run.xpm"
 
 namespace bbtk
 {
@@ -52,43 +70,55 @@ namespace bbtk
       ID_Menu_CreatePackage,
       ID_Menu_CreateBlackBox,
       ID_Menu_ShowImageGraph,
-      ID_Menu_CreateIndex,
+      ID_Menu_RegeneratePackageDoc,
+      ID_Menu_RegenerateBoxesLists,
+      ID_Menu_RegenerateAll,
+      ID_Menu_PlugPackage,
       ID_Menu_Windows_Files,
       ID_Menu_Windows_Help,
       ID_Menu_Windows_Messages,
       ID_Menu_Windows_Command,
-      ID_Menu_Windows_Save
+      ID_Menu_Windows_Save,
+      ID_Menu_Windows_PackageBrowser
       //      ID_Button_Run
     };
     
   
   //================================================================
-  WxGUIScriptingInterface::WxGUIScriptingInterface( wxWindow *parent, wxString title, wxSize size)
-    : wxFrame((wxFrame *)parent, -1, title, wxDefaultPosition, size)
+  WxGUIScriptingInterface::WxGUIScriptingInterface( wxWindow *parent )
+    : wxFrame((wxFrame *)parent, -1, _T("bbStudio"), 
+             wxDefaultPosition, wxSize(1200,800) )
   {    
-//    m_mgr = new wxAuiManager(this);
-       m_mgr.SetManagedWindow(this);
-   
-    mInterpreter = new bbtk::Interpreter();
+    m_mgr.SetManagedWindow(this);
+    
+    mInterpreter = bbtk::Interpreter::New();
     mInterpreter->SetUser(this);
-    mInterpreter->SetCommandLine(true);
+       mInterpreter->SetCommandLine(true);
+    mInterpreter->SetThrow(true);
+    //    mInterpreter->AddBreakObserver
+    //boost::bind( &WxGUIScriptingInterface::InterpreterUserOnBreak, this ));
     //==============
     // Menu
     wxInitAllImageHandlers();
     
     wxMenu *menuFile = new wxMenu;
+    menuFile->Append( ID_Menu_EditConfig, _T("Open bbtk &Config file") );
     menuFile->Append( ID_Menu_Quit, _T("&Quit") );
     
     wxMenu *menuAbout = new wxMenu;
     menuAbout->Append( ID_Menu_About, _T("&About...") );
 
     wxMenu *menuTools = new wxMenu;
-    menuTools->Append( ID_Menu_EditConfig, _T("&Edit bbtk config") );
     menuTools->Append( ID_Menu_CreatePackage, _T("Create &package") );
-    menuTools->Append( ID_Menu_CreateBlackBox, _T("Create &blackbox") );
-    menuTools->Append( ID_Menu_ShowImageGraph, _T("&Show last image graph") );
-    menuTools->Append( ID_Menu_CreateIndex, _T("&Generate index") );
-    
+    menuTools->Append( ID_Menu_CreateBlackBox, _T("Create &black box") );
+    menuTools->Append( ID_Menu_PlugPackage, _T("&Plug package") );
+    menuTools->AppendSeparator();
+    menuTools->Append( ID_Menu_RegeneratePackageDoc,_T("Regenerate package &doc") );
+    menuTools->Append( ID_Menu_RegenerateBoxesLists,_T("Regenerate boxes &lists") );
+    menuTools->Append( ID_Menu_RegenerateAll,_T("Regenerate &all") );
+    menuTools->AppendSeparator();
+    menuTools->Append( ID_Menu_ShowImageGraph, _T("&Show last graph") );
+
     wxMenu *menuWindows = new wxMenu;
     menuWindows->AppendCheckItem(ID_Menu_Windows_Files,
                                 _T("Show 'files' panel") )->Check();
@@ -98,43 +128,79 @@ namespace bbtk
                                 _T("Show 'messages' panel") )->Check();
     menuWindows->AppendCheckItem(ID_Menu_Windows_Command,
                                 _T("Show 'command' panel") )->Check();
-    
     menuWindows->AppendSeparator();
-    menuWindows->Append ( ID_Menu_Windows_Save, _T("Save interface configuration"));
+    menuWindows->Append( ID_Menu_Windows_PackageBrowser, _T("Start Package &Browser") );
+    
+    //    menuWindows->AppendSeparator();
+    //    menuWindows->Append ( ID_Menu_Windows_Save, _T("Save interface configuration"));
+
+    wxMenu *menuOptions = new wxMenu;
+    mwxMenuItemReset = menuOptions->AppendCheckItem(-1,
+                                                   _T("Reset before running") );
+    mwxMenuItemReset->Check();
 
     wxMenuBar *menuBar = new wxMenuBar;
     menuBar->Append( menuFile, _T("&File") );
     menuBar->Append( menuTools, _T("&Tools") );
+    menuBar->Append( menuOptions, _T("&Options") );
     menuBar->Append( menuWindows, _T("&Windows") );
     menuBar->Append( menuAbout, _T("About") );
     
     SetMenuBar( menuBar );
     
+    //=== 
+    // Status bar
     CreateStatusBar();
-    SetStatusText( _T("Welcome to bbi !") );
+    SetStatusText( _T("Welcome to bbStudio !") );
     
-    //
+    //===
+    // Panes (Files, Messages, Help, Command)
     mWxGUITextEditor = new WxGUITextEditor(this,this);
     mWxGUITextEditor->SetFileNameFilter("*.bbs");
-
+       
     mWxGUIHtmlBrowser = new WxGUIHtmlBrowser(this,wxSize(200,0),this);
 
-    /*    
-         wxBitmap bmp_run(cc_run_xpm);
-         mwxButtonRun = new wxBitmapButton( this, ID_Button_Run,bmp_run);//_T("Run")  );
-    */
-  
     mWxGUIOutputMessages = new WxGUIOutputMessages(this);
 
     mWxGUICommand = new WxGUICommand(this,this);
    
     mWxGUICommand->SetFocus();
 
-    // Creates and sets the parent window of all bbtk windows
-    wxWindow* top = new wxPanel(this,-1);//,_T("top"));
-    top->Hide();
-    Wx::SetTopWindow(top);
-    
+#if NOTEBOOK
+
+    mwxNotebook = new wxAuiNotebook(this,  
+                                   -1,
+                                   wxPoint(0, 0),
+                                   wxSize(500,500),
+                                   wxAUI_NB_TAB_SPLIT 
+                                   | wxAUI_NB_TAB_MOVE
+                                   | wxAUI_NB_TAB_EXTERNAL_MOVE
+                                   //| wxAUI_NB_WINDOWLIST_BUTTON
+                                   //|wxAUI_NB_SCROLL_BUTTONS
+                                   // | wxAUI_NB_CLOSE_BUTTON 
+                                   //| wxAUI_NB_CLOSE_ON_ACTIVE_TAB
+                                   //| wxAUI_NB_CLOSE_ON_ALL_TABS
+                                   | wxNO_BORDER);
+  
+
+    mwxNotebook->AddPage(mWxGUITextEditor,_T("Files"),true);
+    mwxNotebook->AddPage(mWxGUIHtmlBrowser,_T("Help"),true);
+
+    mwxNotebook->AddPage(mWxGUIOutputMessages,_T("Messages"),true);
+
+    mwxNotebook->AddPage(mWxGUICommand,_T("Command"),true);
+
+
+    m_mgr.AddPane(mwxNotebook,
+                 wxAuiPaneInfo().Name(wxT("nb"))
+                 .CaptionVisible(false)
+                 .MinimizeButton(false)
+                 .MaximizeButton(false)
+                 .Center()
+                 //              .MinSize(wxSize(100,100))
+                 );   
+#else 
 
     //
     m_mgr.AddPane(mWxGUITextEditor,
@@ -144,15 +210,18 @@ namespace bbtk
                  .MaximizeButton(true)
                  .Center()
                  .MinSize(wxSize(100,100))
-                 );     
+                 );   
+  
     m_mgr.AddPane(mWxGUIHtmlBrowser,
                  wxAuiPaneInfo().Name(wxT("browser_content"))
                  .Caption(wxT("Help"))
                  .MinimizeButton(true)
                  .MaximizeButton(true)
                  .Right()
-                 .MinSize(wxSize(100,100))
+                 .Layer(2)
+                 .MinSize(wxSize(400,100))
                  );
+
     m_mgr.AddPane(mWxGUIOutputMessages,
                  wxAuiPaneInfo().Name(wxT("messages_content"))
                  .Caption(wxT("Messages"))
@@ -161,32 +230,78 @@ namespace bbtk
                  .Bottom()
                  .MinSize(wxSize(100,100))
                  );
+         
     m_mgr.AddPane(mWxGUICommand,
                  wxAuiPaneInfo().Name(wxT("command_content"))
                  .Caption(wxT("Command"))
                  .MinimizeButton(true)
                  .MaximizeButton(true)
                  .Bottom()
-                 .Position(1)
+                 .Layer(1)
                  .MinSize(wxSize(100,100))
                  );     
-    //    m_mgr.AddPane(mwxButtonRun,
-    //           wxAuiPaneInfo().Name(wxT("button_run_content")));     
+#endif
 
+    // parent window of all bbtk windows will be a child of this
+    Wx::SetTopWindowParent(this);
+    // Add the method OnWxSignal as a Wx::Signal observer 
+    //bbtkAddWxSignalObserver(WxGUIPackageBrowser2Window::OnWxSignal);
 
-//.PaneBorder(false)); 
-    m_mgr.Update();
+    //.PaneBorder(false)); 
+    // Load the interface appearance saved on last closing
+    LoadPerspective();
+
+    // Done in LoadPerspective
+    //    m_mgr.Update();
        
     SetAutoLayout(true);
     Layout();
+    //    mwxNotebook->SetSelection(1);
+    mWxGUIHtmlBrowser->GoHome();
 //    Refresh();
-//    m_mgr.Update();
+    m_mgr.Update();
+    //   LoadPerspective();
+
+    mBreaked = false;  
+
+    wxBitmap bitmap;   
+    wxSplashScreen* splash;
+    long style = wxSPLASH_CENTRE_ON_SCREEN | wxSPLASH_TIMEOUT;
+    if (ConfigurationFile::GetInstance().DotBbtkIsNew())
+      style = wxSPLASH_CENTRE_ON_SCREEN | wxSPLASH_NO_TIMEOUT;
+    std::string splash_file = ConfigurationFile::GetInstance().Get_data_path();
+    splash_file += "/kernel/icons/bbStudioSplashScreen.png";
+
+    if (bitmap.LoadFile(std2wx(splash_file),wxBITMAP_TYPE_PNG))
+      splash = 
+       new wxSplashScreen(bitmap,
+                          style,
+                          1000, 0, -1, wxDefaultPosition, wxDefaultSize,
+                          wxSIMPLE_BORDER|wxSTAY_ON_TOP);
+       
+    
+    if (ConfigurationFile::GetInstance().DotBbtkIsNew())
+      {
+
+       DoRegeneratePackageDoc("-a");   
+       DoRegenerateBoxesLists();
+
+       /*
+       wxTipWindow* tip = new wxTipWindow(this,
+                                          _T("\n                  Welcome to bbStudio !\n\n   To run a demo or example:\n     1. click on the 'Demos' or 'Examples' link\n     2. select a demo or example\n     3. click on the '[source]' link : the source file is loaded in bbStudio\n     4. click on the 'Run' button (the arrow at the bottom right of the source file)   \n"),1000);
+       tip->CenterOnParent();
+       tip->Show();
+       */
+       if (splash) splash->Destroy();
+      }
+
   }
   //================================================================
 
  //================================================================
   WxGUIScriptingInterface::~WxGUIScriptingInterface()
   {
+    SavePerspective();
     m_mgr.UnInit();
   }
   //================================================================
@@ -197,31 +312,80 @@ namespace bbtk
     mWxGUITextEditor->Open(filename);
   }
   //================================================================
-
+  /*
+  catch (BreakException e)                                             \
+    {                                                                  \
+      std::cout << "* BREAK"<<std::endl;                               \
+      if (e.IsInScriptFile())                                          \
+       std::cout << "* FILE   : '"<<e.GetScriptFile()<<"'"<<std::endl; \
+      std::cout << "* LINE   : "<<e.GetScriptLine()<<std::endl;                \
+    }                                                                  \
+  catch (QuitException e)                                              \
+    {                                                                  \
+      std::cout << "* QUIT"<<std::endl;                                        \
+      if (e.IsInScriptFile())                                          \
+       std::cout << "* FILE   : '"<<e.GetScriptFile()<<"'"<<std::endl; \
+      std::cout << "* LINE   : "<<e.GetScriptLine()<<std::endl;                \
+    }                                                                  \
+*/
+  
+#define CATCH_MACRO                                                    \
+  catch (InterpreterException e)                                       \
+    {                                                                  \
+      if (e.GetErrorMessage()=="quit")                                 \
+       {                                                               \
+         std::cerr << "* QUIT ENCOUNTERED"<<std::endl;                 \
+         if (e.IsInScriptFile())                                       \
+           std::cerr << "* FILE   : '"<<e.GetScriptFile()<<"'"<<std::endl; \
+         std::cerr << "* LINE   : "<<e.GetScriptLine()<<std::endl;     \
+       }                                                               \
+      else if (e.GetErrorMessage()=="break")                           \
+       {                                                               \
+         mBreaked = true;                                              \
+         std::cerr << "* BREAK"<<std::endl;                            \
+         if (e.IsInScriptFile())                                       \
+           std::cerr << "* FILE   : '"<<e.GetScriptFile()<<"'"<<std::endl; \
+         std::cerr << "* LINE   : "<<e.GetScriptLine()<<std::endl;     \
+       }                                                               \
+      else                                                             \
+       {                                                               \
+         std::cerr << "* ERROR : "<<e.GetErrorMessage()<<std::endl;    \
+         if (e.IsInScriptFile())                                       \
+           std::cerr << "* FILE   : '"<<e.GetScriptFile()<<"'"<<std::endl; \
+         std::cerr << "* LINE   : "<<e.GetScriptLine()<<std::endl;     \
+         int lev = bbtk::MessageManager::GetMessageLevel("Error");     \
+         if (lev > 0) {                                                \
+           std::cerr << "* Exception thrown : "<<std::endl;            \
+           std::cerr << "*  OBJECT : " <<e.GetObject()<<std::endl;     \
+           std::cerr << "*  FILE   : " <<e.GetSourceFile()<<std::endl; \
+         }                                                             \
+       }                                                               \
+    }
+  
   //================================================================
   void WxGUIScriptingInterface::WxGUICommandEnter(const std::string& command)
   {
     std::string s("> ");
     s += command + "\n";
     mWxGUIOutputMessages->Print(s,wxRED);
-
-    if (  mInterpreter->InterpretLine( command ) == 
-         Interpreter::Interpreter_QUIT )
+    
+    try
       {
-       Close(true); 
+       mInterpreter->InterpretLine( command );
       }
+    CATCH_MACRO;
   }
   //================================================================
-
+  
   //================================================================
   /// Runs the interpretation of a file
   bool WxGUIScriptingInterface::InterpretFile( const std::string& filename) 
   { 
-    if ( mInterpreter->InterpretFile(filename) ==
-        Interpreter::Interpreter_ERROR ) 
+    try
       {
-       return false;
+       mInterpreter->InterpretFile(filename);
       }
+    CATCH_MACRO;
     return true;
   }
   //================================================================
@@ -232,55 +396,29 @@ namespace bbtk
     //    wxString temp = mWxGUIHtmlBrowser->GetCurrentPage();
     std::stringstream* buf = new std::stringstream;
     (*buf) << mWxGUITextEditor->GetCurrentPage()->GetText();
-
-    mInterpreter->SetThrow(true);
     try 
       {
-       mInterpreter->InterpretBuffer(buf);
-      }
-    catch (InterpreterError e)
-      {
-       std::cerr << "* IERROR : "<<e.GetMessage()<<std::endl; 
-       if (e.IsInScriptFile())  
-         std::cerr << "* FILE   : '"<<e.GetScriptFile()<<"'"<<std::endl;
-       std::cerr << "* LINE   : "<<e.GetScriptLine()<<std::endl;
-       int lev = bbtk::MessageManager::GetMessageLevel("Error");
-       if (lev > 0) {
-         std::cerr << "* Exception thrown : "<<std::endl;
-         std::cerr << "*  OBJECT : " <<e.GetObject()<<std::endl;
-         std::cerr << "*  FILE   : " <<e.GetSourceFile()<<std::endl;
-       }         
-      }
-    /*
-   //    wxString temp = mWxGUIHtmlBrowser->GetCurrentPage();
-    std::string filename = mWxGUITextEditor->GetCurrentPage();//wx2std(temp);
-    size_t s = filename.length();
-
-    Interpreter* I = new Interpreter;
-    
-    if ((s>3) && (filename[s-1]=='s')
-       && (filename[s-2]=='b')
-       && (filename[s-3]=='b')
-       && (filename[s-4]=='.'))
-      {
-        std::string tmp("Executing ");
-        tmp += filename;
-       SetStatusText(std2wx(tmp));
-       I->InterpretFile(filename);
+       if (!mBreaked)
+         {
+           if (mwxMenuItemReset->IsChecked()) WxGUICommandEnter("reset");
+           mInterpreter->InterpretBuffer(buf);
+         }
+       else 
+         {
+           mBreaked = false;
+           mInterpreter->InterpretCurrentStreams();
+         }
+       //      std::cout << "EO RUN"<<std::endl;
       }
-    else
-      {
-       SetStatusText(_T("The current page is not a bbs file : cannot execute it"));
-      }
-    
-    delete I;
-    */
+    CATCH_MACRO;
+    //    std::cout << "EO RUN 3"<<std::endl;
   }
   //================================================================  
 
   //================================================================
   void WxGUIScriptingInterface::OnMenuQuit(wxCommandEvent& WXUNUSED(event))
   {
+    if (!mWxGUITextEditor->CloseAllPages()) return;
     Close(true);
   }
   //================================================================
@@ -291,7 +429,7 @@ namespace bbtk
   {
     m_mgr.Update();
        Refresh();
-    wxMessageBox(_T("  bbi\nThe Black Box Toolkit interpreter\n(c) CREATIS-LRMN 2008"),
+    wxMessageBox(_T("  bbStudio\nThe Black Box Toolkit Development Studio\n(c) CREATIS-LRMN 2008"),
                  _T("About ..."), wxOK | wxICON_INFORMATION,
                  this);
   }
@@ -301,35 +439,61 @@ namespace bbtk
   //================================================================
   void WxGUIScriptingInterface::OnMenuEditConfig(wxCommandEvent& WXUNUSED(event))
   {
-       std::string commandStr;
-    std::string configFile = ConfigurationFile::GetInstance().Get_config_xml_full_path();
-#ifdef WIN32
-       commandStr = "notepad.exe ";
+    std::string configFile = 
+      ConfigurationFile::GetInstance().Get_config_xml_full_path();
+    Open(configFile);
+  }
+  //================================================================
+
+  //================================================================
+  void WxGUIScriptingInterface::OnMenuWindowsPackageBrowser(wxCommandEvent& WXUNUSED(event))
+  {
+    wxBusyCursor wait;
+    WxGUIPackageBrowser2Window *helpbrowser = new
+      WxGUIPackageBrowser2Window(this,_T("Package Browser"), wxSize(600,600) );
+    helpbrowser->Show();
+    
+    /*
+    wxBusyCursor wait;
+    WxGUIPackageBrowser2 *browser = new WxGUIPackageBrowser2(this);
+    browser->IncludeAll();
+    */
+#if NOTEBOOK
+    //     mwxNotebook->AddPage(browser,_T("Package Browser"),true);
 #else
-       commandStr = "gedit ";
-#endif 
-       commandStr = commandStr + configFile;
-       std::cout << "system: " << commandStr << std::endl;
-       system ( commandStr.c_str() );
+     /*
+     m_mgr.AddPane(browser,
+                  wxAuiPaneInfo().Name(wxT("package_brower"))
+                  .Caption(wxT("Package browser"))
+                  .MinimizeButton(true)
+                  .MaximizeButton(true)
+                  .Bottom()
+                  .Position(1)
+                  .MinSize(wxSize(100,100))
+                  );     
+     */
+#endif
   }
   //================================================================
 
 
+
   //================================================================
   void WxGUIScriptingInterface::OnMenuCreatePackage(wxCommandEvent& WXUNUSED(event))
   {
-printf("EED WxGUIScriptingInterface::OnMenuCreatePackage 01 \n");
-    std::string command("toolsbbtk/appli/CreatePackage");
-printf("EED WxGUIScriptingInterface::OnMenuCreatePackage 02 \n");
-
+/*
+    std::string command("toolsbbtk/appli/GUICreatePackage");
     bbtkMessage("Debug",1,"Executing : '"<<command<<"'"<<std::endl);
-printf("EED WxGUIScriptingInterface::OnMenuCreatePackage 03 \n");
-    Interpreter* I = new Interpreter;    
-printf("EED WxGUIScriptingInterface::OnMenuCreatePackage 04 \n");
+  
+       Interpreter::Pointer I = Interpreter::New();    
     I->InterpretFile(command);
-printf("EED WxGUIScriptingInterface::OnMenuCreatePackage 05 \n");
-    delete I;
-printf("EED WxGUIScriptingInterface::OnMenuCreatePackage 06 \n");
+*/
+    std::string command("reset");
+       mWxGUICommand->SendCommand(command);
+    command = "include toolsbbtk/appli/GUICreatePackage";
+    bbtkMessage("Debug",1,"Executing : '"<<command<<"'"<<std::endl);
+       mWxGUICommand->SendCommand(command);
+
   }
   //================================================================
 
@@ -337,53 +501,208 @@ printf("EED WxGUIScriptingInterface::OnMenuCreatePackage 06 \n");
   //================================================================
   void WxGUIScriptingInterface::OnMenuCreateBlackBox(wxCommandEvent& WXUNUSED(event))
   {
-    std::string command("toolsbbtk/appli/CreateBlackBox");
+         /*
+    std::string command("toolsbbtk/appli/GUICreateBlackBox");
     bbtkMessage("Debug",1,"Executing : '"<<command<<"'"<<std::endl);
-    Interpreter* I = new Interpreter;    
+    
+    Interpreter::Pointer I = Interpreter::New();    
     I->InterpretFile(command);
-    delete I;
+*/
+    std::string command("reset");
+       mWxGUICommand->SendCommand(command);
+    command = "include toolsbbtk/appli/GUICreateBlackBox";
+    bbtkMessage("Debug",1,"Executing : '"<<command<<"'"<<std::endl);
+       mWxGUICommand->SendCommand(command);
   }
   //================================================================
   
   //================================================================
   void WxGUIScriptingInterface::OnMenuShowImageGraph(wxCommandEvent& WXUNUSED(event))
   {
-    std::string default_temp_dir = ConfigurationFile::GetInstance().Get_default_temp_dir();
 
+      std::string doc_path = bbtk::ConfigurationFile::GetInstance().Get_doc_path();
+      doc_path += bbtk::ConfigurationFile::GetInstance().Get_file_separator();
+      doc_path += "bbdoc";
+      doc_path += bbtk::ConfigurationFile::GetInstance().Get_file_separator();
+         
+         std::string pack_name("User");
+         std::string pack_path = doc_path + pack_name;
+         
+         
 #if defined(WIN32)
     std::string strappli="start ";
 #else
-    std::string strappli="gnome-open ";
+  #if defined(MACOSX)
+      std::string strappli="open ";
+  #else
+      std::string strappli="gnome-open ";        
+  #endif
 #endif
-    std::string strcommand = strappli +default_temp_dir+"/temp_dir/workspace_workspacePrototype.png";
-       std::cout << "system: " << strcommand << std::endl;
+         
+         std::string strcommand = strappli +pack_path+"/workspace_workspacePrototype.png";
+    // std::cout << "system: " << strcommand << std::endl;
     system ( strcommand.c_str() );
 
   }
   //================================================================
 
+  void WxGUIScriptingInterface::DoRegeneratePackageDoc( const std::string& pack )
+  {
+    std::string mess("Regenerating doc for package '");
+    if (pack!="-a") 
+      mess += pack + "'";
+    else 
+      mess = "Regenerating doc for all packages";
+    mess += " ... please wait";
+
+    SetStatusText( std2wx(mess) );
+
+    BBTK_BUSY_CURSOR;
+
+    std::string command;
+#if defined(WIN32)
+    command = "\"";
+#endif
+    command += ConfigurationFile::GetInstance().Get_bin_path();
+    command += ConfigurationFile::GetInstance().Get_file_separator();
+    command += "bbRegeneratePackageDoc";
+#if defined(WIN32)
+       command += "\"";
+#endif
+       command += " " + pack + " -q";
+    bbtkMessage("debug",1,"Executing system command '"<<command<<"'"<<std::endl);
+
+printf("EED WxGUIScriptingInterface::DoRegeneratePackageDoc %s",  command.c_str());      
+
+    if ( ! system ( command.c_str() ) )
+      {
+       SetStatusText( _T("Done !"));
+       /*
+       wxMessageBox(_T("Done !"),_T("Regenerate package '")
+                    +std2wx(pack)+_T("' doc"),
+                    wxOK | wxICON_INFORMATION);
+       */
+      }
+    else 
+      {
+       SetStatusText( _T("Done !"));
+       wxString err(_T("An error occured while running '"));
+       err +=  bbtk::std2wx(command) + _T("'");
+       wxMessageBox(err,_T("Regenerate package doc"),wxOK | wxICON_ERROR);      
+      }
+
+
+
+  }
+
 
   //================================================================
-  void WxGUIScriptingInterface::OnMenuCreateIndex(wxCommandEvent& WXUNUSED(event))
+  void WxGUIScriptingInterface::OnMenuRegeneratePackageDoc(wxCommandEvent& WXUNUSED(event))
   {
-    std::string doc_path = ConfigurationFile::GetInstance().Get_doc_path();
-    std::string filepath = doc_path+"/bbdoc/make-index.bbs";
-    Interpreter* I = new Interpreter;    
-
-//EED  std::cout << "bbi: include "<<filepath<<std::endl;
-//EED  I->InterpretFile( filepath );
-
-    I->InterpretLine( "exec freeze");
-    I->InterpretLine( "include *");
-    I->InterpretLine( "index "+doc_path+"/bbdoc/index-alpha.html Initials");
-    I->InterpretLine( "index "+doc_path+"/bbdoc/index-package.html Packages");
-    I->InterpretLine( "index "+doc_path+"/bbdoc/index-category.html Categories");
-    I->InterpretLine( "index "+doc_path+"/bbdoc/index-adaptors.html Adaptors");
+    wxString name = wxGetTextFromUser(_T("Enter package name (-a for all)"),
+                                     _T("Regenerate package doc"),
+                                     _T(""));
+    if (name.IsEmpty()) return;
+    std::string pack = bbtk::wx2std(name);
     
-    delete I;
+       DoRegeneratePackageDoc(pack);
+  }
+  //================================================================
+
+
+  //================================================================
+  void WxGUIScriptingInterface::DoRegenerateBoxesLists()
+  {
+    SetStatusText( _T("Regenerating boxes lists ... please wait") );
+    BBTK_BUSY_CURSOR ;
+
+    std::string command;
+#if defined(WIN32)
+       command = "\"";
+#endif
+    command += ConfigurationFile::GetInstance().Get_bin_path();
+    command += ConfigurationFile::GetInstance().Get_file_separator();
+    command += "bbRegenerateBoxesLists";
+#if defined(WIN32)
+       command += "\"";
+#endif
+       command += " -q";
+       bbtkMessage("debug",1,"Executing system command '"<<command<<"'"<<std::endl);
+
+
+
+    if ( ! system ( command.c_str() ) )
+      {
+       SetStatusText( _T("Done !"));
+       /*
+       wxMessageBox(_T("Done !"),_T("Regenerate boxes lists"),
+                    wxOK | wxICON_INFORMATION);
+       */
+      }
+    else 
+      {
+       SetStatusText( _T("Done !"));
+       wxString err(_T("An error occured while running '"));
+       err +=  bbtk::std2wx(command) + _T("'");
+       wxMessageBox(err,_T("Regenerate boxes lists"),wxOK | wxICON_ERROR);      
+      }
+  }
+  //================================================================
+
+
+  //================================================================
+  void WxGUIScriptingInterface::OnMenuRegenerateBoxesLists(wxCommandEvent& WXUNUSED(event))
+  {
+       DoRegenerateBoxesLists();
   }
   //================================================================
 
+  //================================================================
+  void WxGUIScriptingInterface::OnMenuRegenerateAll(wxCommandEvent& WXUNUSED(event))
+  {
+       
+    DoRegeneratePackageDoc("-a");      
+       DoRegenerateBoxesLists();
+  }
+  //================================================================
+
+  //================================================================
+  void WxGUIScriptingInterface::OnMenuPlugPackage(wxCommandEvent& WXUNUSED(event))
+  {
+    long style = wxDD_DEFAULT_STYLE | wxDD_DIR_MUST_EXIST;
+    wxDirDialog* FD = 
+      new wxDirDialog( 0, 
+                      _T("Select package directory"),
+                      _T(""),
+                      style);
+    
+    if (FD->ShowModal()==wxID_OK)
+      {
+       std::string path = wx2std (FD->GetPath()) ;
+       std::string fname = path + "/bbtkPackage"; 
+       if ( ! Utilities::FileExists( fname ) )
+         {
+           wxString err(_T("The directory does not contain a 'bbtkPackage' file"));
+           wxMessageBox(err,_T("Plug package"),wxOK | wxICON_ERROR);      
+           return;
+         }
+       
+       std::ifstream f;
+       f.open(fname.c_str());
+       std::string pname;
+       f >> pname;
+       f.close();
+       
+       
+       bbtk::ConfigurationFile::GetInstance().AddPackagePathsAndWrite( path );
+       
+       DoRegeneratePackageDoc(pname);
+       DoRegenerateBoxesLists();
+
+         }     
+  }
+  //================================================================
 
   //================================================================
   void WxGUIScriptingInterface::InterpreterUserViewHtmlPage(const std::string& page)
@@ -402,10 +721,19 @@ printf("EED WxGUIScriptingInterface::OnMenuCreatePackage 06 \n");
   } 
   //================================================================  
   
+  /*
+  //================================================================
+  void WxGUIScriptingInterface::InterpreterUserOnBreak()
+  {
+    //    std::cout << "Break" << std::endl;
+    
+  }
+  //================================================================
+  */
+
   //================================================================  
   bool WxGUIScriptingInterface::WxGUIHtmlBrowserUserOnLinkClicked(const std::string& target)
   {
-    std::cout << "OnLink"<<std::endl; 
     size_t s = target.length();
     if ((s>3) && (target[s-1]=='s')
        && (target[s-2]=='b')
@@ -413,6 +741,10 @@ printf("EED WxGUIScriptingInterface::OnMenuCreatePackage 06 \n");
        && (target[s-4]=='.'))
       {
        mWxGUITextEditor->Open(target);
+#if NOTEBOOK
+       mwxNotebook->SetSelection(0);
+#endif
+       mWxGUITextEditor->SetFocus();
        return false;
       }
     return true;
@@ -464,17 +796,75 @@ printf("EED WxGUIScriptingInterface::OnMenuCreatePackage 06 \n");
   //================================================================  
   void WxGUIScriptingInterface::OnMenuWindowsSave( wxCommandEvent& WXUNUSED(event))
   {
-    // TO DO : Save it into ConfigurationFile
-    //    m_mgr.SavePerspective();
+    SavePerspective();
+  }
+  //================================================================  
+
+  //================================================================  
+  void WxGUIScriptingInterface::SavePerspective()
+  {
+    //    std::cout  << "Saving configuration..."<<std::endl;
+    std::string conf = wx2std(m_mgr.SavePerspective());
+    std::string fname = Utilities::MakeUserSettingsFullFileName("bbStudio.aui");
+    std::ofstream f;
+    f.open(fname.c_str(), std::ios::out );
+    f << conf << std::endl;
+
+    //    int x,y;
+    //    GetPosition(&x,&y);
+    //    f << x << "  " << y << std::endl;
+
+
+    int w,h;
+    GetSize(&w,&h);
+
+    f << w << " " << h << std::endl;
+
+    f.close();
   }
   //================================================================  
 
+  //================================================================  
+  void WxGUIScriptingInterface::LoadPerspective()
+  {
+    std::string fname = 
+      Utilities::MakeUserSettingsFullFileName("bbStudio.aui");
+    if ( Utilities::FileExists( fname ))
+      {
+       //      std::cout  << "Loading configuration..."<<std::endl;
+
+       std::ifstream f;
+       f.open(fname.c_str());
+       std::string conf;
+       f >> conf;
+
+       //      int x,y;
+       //      f >> x >> y ;
+
+       int w,h;
+       f >> w >> h ;
+
+       f.close();
+       
+       //      std::cout << conf << std::endl;
+
+       //      Move(x,y);
+       SetSize(w,h);
+       m_mgr.LoadPerspective(std2wx(conf));
+      }
+    else 
+      {
+       m_mgr.Update();
+      }
+  }
+  //================================================================  
 
   //================================================================  
   void WxGUIScriptingInterface::OnPaneClose(wxAuiManagerEvent& evt)
   {
     std::cout  << "Closing panel '"<<evt.pane->name<<"'"<<std::endl;
-    
+    // TO DO : Uncheck 
+    //    OnMenuWindowsCheck( wxCommandEvent& event, wxWindow* w);
   }
   //================================================================  
 
@@ -487,11 +877,16 @@ printf("EED WxGUIScriptingInterface::OnMenuCreatePackage 06 \n");
     EVT_MENU(ID_Menu_CreatePackage, WxGUIScriptingInterface::OnMenuCreatePackage)
     EVT_MENU(ID_Menu_CreateBlackBox, WxGUIScriptingInterface::OnMenuCreateBlackBox)
     EVT_MENU(ID_Menu_ShowImageGraph, WxGUIScriptingInterface::OnMenuShowImageGraph)
-    EVT_MENU(ID_Menu_CreateIndex, WxGUIScriptingInterface::OnMenuCreateIndex)
+    EVT_MENU(ID_Menu_RegeneratePackageDoc, WxGUIScriptingInterface::OnMenuRegeneratePackageDoc)
+    EVT_MENU(ID_Menu_RegenerateBoxesLists, WxGUIScriptingInterface::OnMenuRegenerateBoxesLists)
+    EVT_MENU(ID_Menu_RegenerateAll, WxGUIScriptingInterface::OnMenuRegenerateAll)
+    EVT_MENU(ID_Menu_PlugPackage, WxGUIScriptingInterface::OnMenuPlugPackage)
     EVT_MENU(ID_Menu_Windows_Files, WxGUIScriptingInterface::OnMenuWindowsFiles)
     EVT_MENU(ID_Menu_Windows_Help, WxGUIScriptingInterface::OnMenuWindowsHelp)
     EVT_MENU(ID_Menu_Windows_Messages, WxGUIScriptingInterface::OnMenuWindowsMessages)
     EVT_MENU(ID_Menu_Windows_Command, WxGUIScriptingInterface::OnMenuWindowsCommand)
+    EVT_MENU(ID_Menu_Windows_Save, WxGUIScriptingInterface::OnMenuWindowsSave)
+    EVT_MENU(ID_Menu_Windows_PackageBrowser, WxGUIScriptingInterface::OnMenuWindowsPackageBrowser)
     EVT_AUI_PANE_CLOSE(WxGUIScriptingInterface::OnPaneClose)
   //    EVT_BUTTON(ID_Button_Run, WxGUIScriptingInterface::OnButtonRun )
     END_EVENT_TABLE()