XSGui.cxx

Go to the documentation of this file.

/*
 * $Header$
 * $Log$
 *
 * The graphical user interface for the Neutron Cross section database
 */

#define __XSGUI_CXX

#include <stdio.h>
#include <stdlib.h>

#include <TROOT.h>
#include <TGraph.h>
#include <TFrame.h>
#include <TCanvas.h>
#include <TSystem.h>
#include <TApplication.h>
#include <Riostream.h>

#include "XSGui.h"
#include "XSVarious.h"
#include "XSElementDlg.h"
#include "XSReactionDlg.h"

//ClassImp(XSGui)

const char *filetypes[] = {     "All files",    "*",
                                "Data file",    "*.dat",
                                "ENDF files",   "*.endf",
                                0,              0 };

/* ----- XSGui ----- */
XSGui::XSGui(const TGWindow *p, UInt_t w, UInt_t h)
        : TGMainFrame(p, w, h)
{
        // Create the main frame. A TGMainFrame is a top level window.

        // Create menubar and popup menus. The hint objects are used to place
        // and group the different menu widgets with respect to eachother.
        menuBarLayout = new TGLayoutHints(
                                kLHintsTop | kLHintsLeft | kLHintsExpandX,
                                0, 0, 1, 1);
        menuBarItemLayout = new TGLayoutHints(kLHintsTop | kLHintsLeft,
                                0, 4, 0, 0);
        menuBarHelpLayout = new TGLayoutHints(kLHintsTop | kLHintsRight);

        // Build up the menus
        // First the Main (FILE) menu
        fileMenu = new TGPopupMenu(fClient->GetRoot());
        fileMenu->AddEntry("&Open...", M_FILE_OPEN);
        fileMenu->AddEntry("&Save", M_FILE_SAVE);
        fileMenu->AddEntry("S&ave as...", M_FILE_SAVEAS);
        fileMenu->AddEntry("&Close", M_FILE_CLOSE);
        fileMenu->AddSeparator();
        fileMenu->AddEntry("&Print", M_FILE_PRINT);
        fileMenu->AddEntry("P&rint setup...", M_FILE_PRINT_SETUP);
        fileMenu->AddSeparator();
        fileMenu->AddEntry("E&xit", M_FILE_EXIT);

        fileMenu->DisableEntry(M_FILE_SAVEAS);
        fileMenu->DisableEntry(M_FILE_CLOSE);

        // The database menu and the current elements in graph
        elemMenu = new TGPopupMenu(fClient->GetRoot());
        elemMenu->AddEntry("&Reaction", M_ELEM_REACTION);
        elemMenu->AddEntry("&Modify", M_ELEM_MODIFY);
        elemMenu->AddEntry("&Clear", M_ELEM_CLEAR);
        elemMenu->AddSeparator();
        elemMenu->AddLabel("Current Elements in Graph");

        // The Currently Editing elements menu
        optMenu = new TGPopupMenu(fClient->GetRoot());
        optMenu->AddEntry("&Zoom", -1);
        optMenu->AddEntry("&Options", -1);

        // The Help Menu
        helpMenu = new TGPopupMenu(fClient->GetRoot());
        helpMenu->AddEntry("&About",M_HELP_ABOUT);

        // Menu button messages are handled by the main frame (i.e. "this")
        // ProcessMessage() method.
        fileMenu->Associate(this);
        elemMenu->Associate(this);
        optMenu->Associate(this);
        helpMenu->Associate(this);

        menuBar = new TGMenuBar(this, 1, 1, kHorizontalFrame);
        menuBar->AddPopup("&File", fileMenu, menuBarItemLayout);
        menuBar->AddPopup("&Element", elemMenu, menuBarItemLayout);
        menuBar->AddPopup("&Options", optMenu, menuBarItemLayout);
        menuBar->AddPopup("&Help", helpMenu, menuBarHelpLayout);

        AddFrame(menuBar, menuBarLayout);

        // Create a ROOT Canvas used for drawing...
        canvasWindow = new TRootEmbeddedCanvas("Canvas",this,
                        600,400);

        // Initialise the canvas
        canvas = canvasWindow->GetCanvas();
        canvas->SetFillColor(42);
        canvas->SetGrid();
        canvas->GetFrame()->SetFillColor(21);
        canvas->GetFrame()->SetBorderSize(6);
        canvas->SetLogx();
        canvas->SetLogy();
        canvas->Update();

        AddFrame(canvasWindow,
                new TGLayoutHints(kLHintsExpandX | kLHintsExpandY,
                        0, 0, 2, 2));

        statusBar = new TGStatusBar(this, 60, 20);
        AddFrame(statusBar, new TGLayoutHints(kLHintsBottom | kLHintsExpandX,
                0, 0, 1, 0));
        statusBar->SetText(PRGNAME);

        SetWindowName(PRGNAME);

        MapSubwindows();

        // we need to use GetDefault...() to initialize the layout algorithm...
        Resize(GetDefaultSize());

        MapWindow();
} // XSGui

/* ----- ~XSGui ----- */
XSGui::~XSGui()
{
        // Delete all created widgets.
        delete menuBarLayout;
        delete menuBarItemLayout;
        delete menuBarHelpLayout;

        delete fileMenu;
        delete elemMenu;
        delete optMenu;
        delete helpMenu;

        delete statusBar;
        delete canvasWindow;
} // ~XSGui

/* ----- CloseWindow ----- */
void
XSGui::CloseWindow()
{
        // Got close message for this MainFrame. Calls parent CloseWindow()
        // (which destroys the window) and terminate the application.
        // The close message is generated by the window manager when its close
        // window menu item is selected.

        TGMainFrame::CloseWindow();
        gApplication->Terminate(0);
} // CloseWindow

/* ----- ProcessMenuMessage ----- */
Bool_t
XSGui::ProcessMenuMessage( Long_t param )
{
        switch (param) {
                case M_FILE_OPEN:
                    {
                        static TString dir(".");
                        TGFileInfo fi;
                        fi.fFileTypes = filetypes;
                        fi.fIniDir    = StrDup(dir);
                        new TGFileDialog(fClient->GetRoot(), this, kFDOpen, &fi);
                        dir = fi.fIniDir;
                     }
                     break;

                case M_FILE_SAVE:
                        printf("M_FILE_SAVE\n");
                        break;

                case M_FILE_EXIT:
                        // this also terminates theApp
                        CloseWindow();
                        break;

                case M_ELEM_REACTION:
                        new XSReactionDlg(fClient->GetRoot(), this, 1, 500,600);
                        break;

                case M_HELP_ABOUT:
                        // About();
                        int     retval;
                        new TGMsgBox(fClient->GetRoot(), this,
                                "About", "About....",
                                kMBIconAsterisk, kMBOk, &retval );
                        break;

                default:
                        break;
        }
        return kTRUE;
} // ProcessMenuMessage

/* ----- ProcessMessage ----- */
Bool_t
XSGui::ProcessMessage(Long_t msg, Long_t param1, Long_t)
{
        // Handle messages send to the XSGui object.
        char    str[100];

        switch (GET_MSG(msg)) {

                case kC_COMMAND:
                        switch (GET_SUBMSG(msg)) {

                                case kCM_BUTTON:
                                        snprintf(str,100,
                                           "Button was pressed, id = %ld\n",
                                            param1);
                                        statusBar->SetText(str);
                                        break;

                                case kCM_MENUSELECT:
                                        if (param1>=0)
                                                statusBar->SetText(menuTip[param1]);
                                        else
                                                statusBar->SetText("Undefined Menu!");
                                        break;

                                case kCM_MENU:
                                        ProcessMenuMessage(param1);
                                        break;

                                default:
                                        break;
                        }
                default:
                        break;
        }
        return kTRUE;
} // ProcessMessage

//---- Main program ----------------------------------------------------------

TROOT root("GUI", "GUI test environement");

/* ----- main ----- */
int main(int ac, char *av[])
{
        TApplication theApp("App", &ac, av);

        XSGui mainWindow(gClient->GetRoot(), 400, 220);

        XSinitialise();

        theApp.Run();

        XSfinalise();
        return 0;
} // main

---