#include "TROOT.h"
#include "TSystem.h"
#include "TRint.h"
#include "TApplication.h"
#include "TGClient.h"
#include "TGLabel.h"
#include "TGFrame.h"
#include "TGLayout.h"
#include "TGComboBox.h"
#include "TGTextView.h"
#include "TGTextEntry.h"
#include "TGTextEdit.h"
#include "TInterpreter.h"
#include "Getline.h"
#include "TGCommandPlugin.h"
ClassImp(TGCommandPlugin)
TGCommandPlugin::TGCommandPlugin(const TGWindow *p, UInt_t w, UInt_t h) :
TGMainFrame(p, w, h)
{
SetCleanup(kDeepCleanup);
fHf = new TGHorizontalFrame(this, 100, 20);
fComboCmd = new TGComboBox(fHf, "", 1);
fCommand = fComboCmd->GetTextEntry();
fCommandBuf = fCommand->GetBuffer();
fComboCmd->Resize(200, fCommand->GetDefaultHeight());
fHf->AddFrame(fComboCmd, new TGLayoutHints(kLHintsCenterY |
kLHintsRight | kLHintsExpandX, 5, 5, 1, 1));
fHf->AddFrame(fLabel = new TGLabel(fHf, "Command (local):"),
new TGLayoutHints(kLHintsCenterY | kLHintsRight,
5, 5, 1, 1));
AddFrame(fHf, new TGLayoutHints(kLHintsLeft | kLHintsTop |
kLHintsExpandX, 3, 3, 3, 3));
fCommand->Connect("ReturnPressed()", "TGCommandPlugin", this,
"HandleCommand()");
Pixel_t pxl;
gClient->GetColorByName("#ccccff", pxl);
fStatus = new TGTextView(this, 10, 100, 1);
fStatus->SetSelectBack(pxl);
fStatus->SetSelectFore(TGFrame::GetBlackPixel());
AddFrame(fStatus, new TGLayoutHints(kLHintsLeft | kLHintsTop |
kLHintsExpandX | kLHintsExpandY, 3, 3, 3, 3));
fPid = gSystem->GetPid();
TString defhist(Form("%s/.root_hist", gSystem->UnixPathName(
gSystem->HomeDirectory())));
FILE *lunin = fopen(defhist.Data(), "rt");
if (lunin) {
char histline[256];
while (fgets(histline, 256, lunin)) {
histline[strlen(histline)-1] = 0;
fComboCmd->InsertEntry(histline, 0, -1);
}
fclose(lunin);
}
fTimer = new TTimer(this, 1000);
fTimer->Reset();
fTimer->TurnOn();
MapSubwindows();
Resize(GetDefaultSize());
MapWindow();
}
TGCommandPlugin::~TGCommandPlugin()
{
TString pathtmp = Form("%s/command.%d.log", gSystem->TempDirectory(), fPid);
gSystem->Unlink(pathtmp);
delete fTimer;
Cleanup();
}
void TGCommandPlugin::CheckRemote(const char * )
{
Pixel_t pxl;
TApplication *app = gROOT->GetApplication();
if (!app->InheritsFrom("TRint"))
return;
TString sPrompt = ((TRint*)app)->GetPrompt();
Int_t end = sPrompt.Index(":root [", 0);
if (end > 0 && end != kNPOS) {
sPrompt.Remove(end);
gClient->GetColorByName("#ff0000", pxl);
fLabel->SetTextColor(pxl);
fLabel->SetText(Form("Command (%s):", sPrompt.Data()));
}
else {
gClient->GetColorByName("#000000", pxl);
fLabel->SetTextColor(pxl);
fLabel->SetText("Command (local):");
}
fHf->Layout();
}
void TGCommandPlugin::HandleCommand()
{
const char *string = fCommandBuf->GetString();
if (strlen(string) > 1) {
TString sPrompt = "root []";
TString pathtmp = Form("%s/command.%d.log", gSystem->TempDirectory(), fPid);
TApplication *app = gROOT->GetApplication();
if (app->InheritsFrom("TRint"))
sPrompt = ((TRint*)gROOT->GetApplication())->GetPrompt();
FILE *lunout = fopen(pathtmp.Data(), "a+t");
if (lunout) {
fputs(Form("%s%s\n",sPrompt.Data(), string), lunout);
fclose(lunout);
}
gSystem->RedirectOutput(pathtmp.Data(), "a");
gApplication->SetBit(TApplication::kProcessRemotely);
gROOT->ProcessLine(string);
fComboCmd->InsertEntry(string, 0, -1);
if (app->InheritsFrom("TRint"))
Gl_histadd((char *)string);
gSystem->RedirectOutput(0);
fStatus->LoadFile(pathtmp.Data());
fStatus->ShowBottom();
CheckRemote(string);
fCommand->Clear();
}
}
Bool_t TGCommandPlugin::HandleTimer(TTimer *t)
{
if (t != fTimer) return kTRUE;
CheckRemote("");
return kTRUE;
}
Last change: Wed Jun 25 08:39:43 2008
Last generated: 2008-06-25 08:39
This page has been automatically generated. If you have any comments or suggestions about the page layout send a mail to ROOT support, or contact the developers with any questions or problems regarding ROOT.