]> Creatis software - bbtk.git/blobdiff - kernel/src/bbtkWxGUIScriptingInterface.cxx
*** empty log message ***
[bbtk.git] / kernel / src / bbtkWxGUIScriptingInterface.cxx
index 9952d89991724e99721f2e112e581a30a7fded09..669d9ac2cb0eb4bdff773e38de94ec95deb72e56 100644 (file)
@@ -3,8 +3,8 @@
   Program:   bbtk
   Module:    $RCSfile: bbtkWxGUIScriptingInterface.cxx,v $
   Language:  C++
-  Date:      $Date: 2008/03/21 11:46:41 $
-  Version:   $Revision: 1.1 $
+  Date:      $Date: 2008/06/26 06:50:05 $
+  Version:   $Revision: 1.12 $
                                                                                 
   Copyright (c) CREATIS (Centre de Recherche et d'Applications en Traitement de
   l'Image). All rights reserved. See Doc/License.txt or
@@ -53,7 +53,13 @@ namespace bbtk
       ID_Menu_CreateBlackBox,
       ID_Menu_ShowImageGraph,
       ID_Menu_CreateIndex,
-      ID_Button_Run
+      ID_Menu_Windows_Files,
+      ID_Menu_Windows_Help,
+      ID_Menu_Windows_Messages,
+      ID_Menu_Windows_Command,
+      ID_Menu_Windows_Save,
+      ID_Menu_Windows_PackageBrowser
+      //      ID_Button_Run
     };
     
   
@@ -64,9 +70,10 @@ namespace bbtk
 //    m_mgr = new wxAuiManager(this);
        m_mgr.SetManagedWindow(this);
    
-    mInterpreter = new bbtk::Interpreter();
+       mInterpreter = bbtk::Interpreter::New();
     mInterpreter->SetUser(this);
     mInterpreter->SetCommandLine(true);
+    mInterpreter->SetThrow(true);
     //==============
     // Menu
     wxInitAllImageHandlers();
@@ -83,11 +90,32 @@ namespace bbtk
     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") );
+
+    wxMenu *menuWindows = new wxMenu;
+    menuWindows->AppendCheckItem(ID_Menu_Windows_Files,
+                                _T("Show 'files' panel") )->Check();
+    menuWindows->AppendCheckItem(ID_Menu_Windows_Help,
+                                _T("Show 'help' panel") )->Check();
+    menuWindows->AppendCheckItem(ID_Menu_Windows_Messages,
+                                _T("Show 'messages' panel") )->Check();
+    menuWindows->AppendCheckItem(ID_Menu_Windows_Command,
+                                _T("Show 'command' panel") )->Check();
+    menuWindows->AppendSeparator();
+    menuWindows->Append( ID_Menu_Windows_PackageBrowser, _T("Show 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 );
@@ -95,108 +123,111 @@ namespace bbtk
     CreateStatusBar();
     SetStatusText( _T("Welcome to bbi !") );
     
-
-    /*
-    m_mgr.AddPane(CreateSizeReportCtrl(), wxAuiPaneInfo().
-                  Name(wxT("test4")).Caption(wxT("Pane Caption")).
-                  Left());
-    */
-
-   //==============
-    // Notebook
-    
-    //    wxFlexGridSizer *sizer = new wxFlexGridSizer(1);
-    
-//EED    wxBoxSizer* sizer = new wxBoxSizer(wxVERTICAL);
-//    mwxNotebook = new wxNotebook(this,-1,wxDefaultPosition, wxDefaultSize, 0);
-/*
-    mwxNotebook = new wxAuiNotebook(this,  
-                                    -1,
-                                    wxPoint(0, 0),
-                                    wxSize(500,500),
-                                    wxAUI_NB_TAB_SPLIT | wxAUI_NB_TAB_EXTERNAL_MOVE | wxNO_BORDER);
-    
-    mwxPageCommand = new wxPanel(mwxNotebook,-1);        
-    mwxPageHelp = new wxPanel(mwxNotebook,-1);    
-    
-    
-    wxBoxSizer *cmdsizer = new wxBoxSizer(wxVERTICAL);
-    
-    mwxPageCommand->SetAutoLayout(true);    
-    mwxPageCommand->SetSizer(cmdsizer);
-    cmdsizer->Fit(mwxPageCommand);
-    cmdsizer->SetSizeHints(mwxPageCommand);
-
-    wxBoxSizer *helpsizer = new wxBoxSizer(wxVERTICAL);
-    
-    mwxPageHelp->SetAutoLayout(true);    
-    mwxPageHelp->SetSizer(helpsizer);
-    helpsizer->Fit(mwxPageHelp);
-    helpsizer->SetSizeHints(mwxPageHelp);
-*/ 
-    mWxGUITextEditor = new WxGUITextEditor(this);
+    //
+    mWxGUITextEditor = new WxGUITextEditor(this,this);
     mWxGUITextEditor->SetFileNameFilter("*.bbs");
+       
+    mWxGUIHtmlBrowser          = new WxGUIHtmlBrowser(this,wxSize(200,0),this);
 
-      mWxGUIHtmlBrowser = new WxGUIHtmlBrowser(this, //mwxPageHelp,
-                                            //EED                                wxSize(1200,0));
-                                            wxSize(200,0));
-
-    //    mWxGUIHtmlBrowser->SetSize(wxSize(800,1000));
-    //   helpsizer->Add (mWxGUIHtmlBrowser,1, wxGROW|wxLEFT|wxRIGHT|wxTOP, 5  );
-    //    helpsizer->Add ( new wxButton(mwxPageHelp,-1,"perro"), 0,  wxEXPAND  );
-    
-    wxBitmap bmp_run(cc_run_xpm);
-    mwxButtonRun = new wxBitmapButton( this, ID_Button_Run,bmp_run);//_T("Run")  );
-    // helpsizer->Add( mwxButtonRun, 0, wxALL, 5  );
 
+       /*    
+         wxBitmap bmp_run(cc_run_xpm);
+         mwxButtonRun = new wxBitmapButton( this, ID_Button_Run,bmp_run);//_T("Run")  );
+    */
   
-    //==============
-    // Command page 
     mWxGUIOutputMessages = new WxGUIOutputMessages(this);
 
     mWxGUICommand = new WxGUICommand(this,this);
    
-    //    mWxGUICommand->SetFocus();
+    mWxGUICommand->SetFocus();
 
-    //    cmdsizer->Add (mWxGUIOutputMessages, 1, wxALL | wxGROW, 5);
-    //    cmdsizer->Add (mWxGUICommand, 0, wxALL | wxGROW, 5);
 
-        
-    // Creates and sets the parent window of all bbtk windows
-    wxWindow* top = new wxPanel(this,-1);//,_T("top"));
-    top->Hide();
-    Wx::SetTopWindow(top);
-    
+    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);
 
-    // Layout
-//EED    SetSizer(sizer);
-/*
-    mwxNotebook->AddPage( mwxPageCommand, _T("Command"));
-    mwxNotebook->AddPage( mwxPageHelp, _T("Help"));
-*/
+    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))
+                 );   
+
+  /*
+    //
     m_mgr.AddPane(mWxGUITextEditor,
                  wxAuiPaneInfo().Name(wxT("editor_content"))
-                 .Top());     
+                 .Caption(wxT("Files"))
+                 .MinimizeButton(true)
+                 .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(200,100))
+                 );
+
     m_mgr.AddPane(mWxGUIOutputMessages,
                  wxAuiPaneInfo().Name(wxT("messages_content"))
                  .Caption(wxT("Messages"))
-                 .Center());     
-    m_mgr.AddPane(mWxGUIHtmlBrowser,
-                 wxAuiPaneInfo().Name(wxT("browser_content"))
-                 .Right());     
+                 .MinimizeButton(true)
+                 .MaximizeButton(true)
+                 .Bottom()
+                 .MinSize(wxSize(100,100))
+                 );
     m_mgr.AddPane(mWxGUICommand,
                  wxAuiPaneInfo().Name(wxT("command_content"))
-                 .Bottom());     
-    m_mgr.AddPane(mwxButtonRun,
-                 wxAuiPaneInfo().Name(wxT("button_run_content")));     
+                 .Caption(wxT("Command"))
+                 .MinimizeButton(true)
+                 .MaximizeButton(true)
+                 .Bottom()
+                 .Position(1)
+                 .MinSize(wxSize(100,100))
+                 );     
+    */
+    //    m_mgr.AddPane(mwxButtonRun,
+    //           wxAuiPaneInfo().Name(wxT("button_run_content")));     
 
+    // Creates the parent window of all bbtk windows as a child of this
+    Wx::CreateTopWindow(this);
+    // Add the method OnWxSignal as a Wx::Signal observer 
+    //bbtkAddWxSignalObserver(WxGUIPackageBrowser2Window::OnWxSignal);
 
 //.PaneBorder(false)); 
     m_mgr.Update();
        
     SetAutoLayout(true);
     Layout();
+    mwxNotebook->SetSelection(1);
+    mWxGUIHtmlBrowser->GoHome();
 //    Refresh();
 //    m_mgr.Update();
   }
@@ -215,69 +246,76 @@ namespace bbtk
     mWxGUITextEditor->Open(filename);
   }
   //================================================================
-
+  
+#define CATCH_MACRO                                                    \
+  catch (QuitException e)                                              \
+    {                                                                  \
+      std::cout << "* quit exception caught"<<std::endl;               \
+    }                                                                  \
+  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;     \
+      }                                                                        \
+    }
+  
   //================================================================
   void WxGUIScriptingInterface::WxGUICommandEnter(const std::string& command)
   {
     std::string s("> ");
     s += command + "\n";
     mWxGUIOutputMessages->Print(s,wxRED);
-
-    if (  mInterpreter->InterpretLine( command ) == 
-         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::ERROR ) 
+    try
       {
-       return false;
+       mInterpreter->InterpretFile(filename);
       }
+    CATCH_MACRO;
     return true;
   }
   //================================================================
  
   //================================================================
-  void WxGUIScriptingInterface::OnButtonRun(wxCommandEvent& WXUNUSED(event))
+  void WxGUIScriptingInterface::WxGUITextEditorRun()
   {
-    wxString per = m_mgr.SavePerspective();
-    std::cout << per<< std::endl;
-
-//    wxString temp = mWxGUIHtmlBrowser->GetCurrentPage();
-    std::string filename = mWxGUIHtmlBrowser->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]=='.'))
+    //    wxString temp = mWxGUIHtmlBrowser->GetCurrentPage();
+    std::stringstream* buf = new std::stringstream;
+    (*buf) << mWxGUITextEditor->GetCurrentPage()->GetText();
+    try 
       {
-        std::string tmp("Executing ");
-        tmp += filename;
-       SetStatusText(std2wx(tmp));
-       I->InterpretFile(filename);
+       std::cout << "RUN"<<std::endl;
+       if (mwxMenuItemReset->IsChecked()) WxGUICommandEnter("reset");
+       mInterpreter->InterpretBuffer(buf);
+       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);
   }
   //================================================================
@@ -306,27 +344,33 @@ namespace bbtk
        commandStr = "gedit ";
 #endif 
        commandStr = commandStr + configFile;
-       std::cout << "system: " << commandStr << std::endl;
+       //      std::cout << "system: " << commandStr << std::endl;
        system ( commandStr.c_str() );
   }
   //================================================================
 
+  //================================================================
+  void WxGUIScriptingInterface::OnMenuWindowsPackageBrowser(wxCommandEvent& WXUNUSED(event))
+  {
+        wxBusyCursor wait;
+     WxGUIPackageBrowser2 *browser = new WxGUIPackageBrowser2(this);
+     browser->IncludeAll();
+        mwxNotebook->AddPage(browser,_T("Package Browser"),true);
+  }
+  //================================================================
+
+
 
   //================================================================
   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");
+
   }
   //================================================================
 
@@ -334,11 +378,11 @@ 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;
   }
   //================================================================
   
@@ -353,7 +397,7 @@ printf("EED WxGUIScriptingInterface::OnMenuCreatePackage 06 \n");
     std::string strappli="gnome-open ";
 #endif
     std::string strcommand = strappli +default_temp_dir+"/temp_dir/workspace_workspacePrototype.png";
-       std::cout << "system: " << strcommand << std::endl;
+    // std::cout << "system: " << strcommand << std::endl;
     system ( strcommand.c_str() );
 
   }
@@ -365,10 +409,8 @@ printf("EED WxGUIScriptingInterface::OnMenuCreatePackage 06 \n");
   {
     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 );
+    Interpreter::Pointer I = Interpreter::New();    
 
     I->InterpretLine( "exec freeze");
     I->InterpretLine( "include *");
@@ -377,7 +419,6 @@ printf("EED WxGUIScriptingInterface::OnMenuCreatePackage 06 \n");
     I->InterpretLine( "index "+doc_path+"/bbdoc/index-category.html Categories");
     I->InterpretLine( "index "+doc_path+"/bbdoc/index-adaptors.html Adaptors");
     
-    delete I;
   }
   //================================================================
 
@@ -390,7 +431,7 @@ printf("EED WxGUIScriptingInterface::OnMenuCreatePackage 06 \n");
     if (mWxGUIHtmlBrowser->GoTo(s)) 
       {
 //EED  mwxNotebook->ChangeSelection(1);
-       mwxNotebook->SetSelection(1);
+//     mwxNotebook->SetSelection(1);
       }
     else 
       {
@@ -399,7 +440,84 @@ printf("EED WxGUIScriptingInterface::OnMenuCreatePackage 06 \n");
   } 
   //================================================================  
   
+  //================================================================  
+  bool WxGUIScriptingInterface::WxGUIHtmlBrowserUserOnLinkClicked(const std::string& target)
+  {
+    size_t s = target.length();
+    if ((s>3) && (target[s-1]=='s')
+       && (target[s-2]=='b')
+       && (target[s-3]=='b')
+       && (target[s-4]=='.'))
+      {
+       mWxGUITextEditor->Open(target);
+       mwxNotebook->SetSelection(0);
+       mWxGUITextEditor->SetFocus();
+       return false;
+      }
+    return true;
+  }
+  //================================================================  
+
+  void WxGUIScriptingInterface::OnMenuWindowsCheck( wxCommandEvent& event, 
+                                                   wxWindow* w)
+  {
+    bool checked = event.IsChecked();
+    bool shown = m_mgr.GetPane(w).IsShown();
+    //    std::cout << "checked = "<<checked<<" - shown = "<<shown<<std::endl;
+    if (checked ^ shown) 
+      {
+       m_mgr.GetPane(w).Show(checked);
+       m_mgr.Update();
+      }
+  }
+
+
+  //================================================================  
+  void WxGUIScriptingInterface::OnMenuWindowsFiles(wxCommandEvent& event)
+  {
+    OnMenuWindowsCheck(event,mWxGUITextEditor);
+  }
+  //================================================================  
+
+  //================================================================  
+  void  WxGUIScriptingInterface::OnMenuWindowsHelp(wxCommandEvent& event)
+  {
+    OnMenuWindowsCheck(event,mWxGUIHtmlBrowser);
+  }
+  //================================================================  
+
+  //================================================================  
+  void  WxGUIScriptingInterface::OnMenuWindowsMessages(wxCommandEvent& event)
+  {
+    OnMenuWindowsCheck(event,mWxGUIOutputMessages);
+  }
+  //================================================================  
+
+  //================================================================  
+  void  WxGUIScriptingInterface::OnMenuWindowsCommand(wxCommandEvent& event)
+  {
+    OnMenuWindowsCheck(event,mWxGUICommand);
+  }
+  //================================================================  
+
+  //================================================================  
+  void WxGUIScriptingInterface::OnMenuWindowsSave( wxCommandEvent& WXUNUSED(event))
+  {
+    // TO DO : Save it into ConfigurationFile
+    //    m_mgr.SavePerspective();
+  }
+  //================================================================  
+
+
+  //================================================================  
+  void WxGUIScriptingInterface::OnPaneClose(wxAuiManagerEvent& evt)
+  {
+    std::cout  << "Closing panel '"<<evt.pane->name<<"'"<<std::endl;
     
+  }
+  //================================================================  
+
+  
   //================================================================  
   BEGIN_EVENT_TABLE(WxGUIScriptingInterface, wxFrame)
     EVT_MENU(ID_Menu_Quit, WxGUIScriptingInterface::OnMenuQuit)
@@ -409,7 +527,13 @@ printf("EED WxGUIScriptingInterface::OnMenuCreatePackage 06 \n");
     EVT_MENU(ID_Menu_CreateBlackBox, WxGUIScriptingInterface::OnMenuCreateBlackBox)
     EVT_MENU(ID_Menu_ShowImageGraph, WxGUIScriptingInterface::OnMenuShowImageGraph)
     EVT_MENU(ID_Menu_CreateIndex, WxGUIScriptingInterface::OnMenuCreateIndex)
-    EVT_BUTTON(ID_Button_Run, WxGUIScriptingInterface::OnButtonRun )
+    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_PackageBrowser, WxGUIScriptingInterface::OnMenuWindowsPackageBrowser)
+    EVT_AUI_PANE_CLOSE(WxGUIScriptingInterface::OnPaneClose)
+  //    EVT_BUTTON(ID_Button_Run, WxGUIScriptingInterface::OnButtonRun )
     END_EVENT_TABLE()
   //================================================================