doc/v630/TGHtmlBrowser_8cxx_source.html

// @(#)root/guitml:$Id$

// Author: Bertrand Bellenot   26/09/2007


/*************************************************************************

 * Copyright (C) 1995-2007, Rene Brun and Fons Rademakers.               *

 * All rights reserved.                                                  *

 *                                                                       *

 * For the licensing terms see $ROOTSYS/LICENSE.                         *

 * For the list of contributors see $ROOTSYS/README/CREDITS.             *

 *************************************************************************/


#include "TROOT.h"

#include "TSystem.h"

#include "TGMenu.h"

#include "TGComboBox.h"

#include "TGButton.h"

#include "TGTextBuffer.h"

#include "TGTextEntry.h"

#include "TGStatusBar.h"

#include "TGFileDialog.h"

#include "TFile.h"

#include "TBrowser.h"

#include "TGHtml.h"

#include "TString.h"

#include "TUrl.h"

#include "TSocket.h"

#include "TGHtmlBrowser.h"

#include "TGText.h"

#include "TError.h"

#include "TVirtualX.h"

#include "snprintf.h"

#ifdef R__SSL

#include "TSSLSocket.h"

#endif

#ifdef WIN32

#include "TWin32SplashThread.h"

#endif


#include <cstdlib>


/** \class TGHtmlBrowser

    \ingroup guihtml


A very simple HTML browser.


*/


ClassImp(TGHtmlBrowser);


enum EMyMessageTypes {

   kM_FILE_OPEN,

   kM_FILE_SAVEAS,

   kM_FILE_BROWSE,

   kM_FILE_EXIT,

   kM_FAVORITES_ADD,

   kM_TOOLS_CLEARHIST,

   kM_HELP_ABOUT

};


static const char *gHtmlFTypes[] = {

   "HTML files",    "*.htm*",

   "All files",     "*",

    0,               0

};


const char *HtmlError[] = {

"<!DOCTYPE HTML PUBLIC \"-//W3C//DTD HTML 4.01 Transitional//EN\" \"http://www.w3c.org/TR/1999/REC-html401-19991224/loose.dtd\"> ",

"<HTML><HEAD><TITLE>RHTML cannot display the webpage</TITLE> ",

"<META http-equiv=Content-Type content=\"text/html; charset=UTF-8\"></HEAD> ",

"<BODY> ",

"<TABLE cellSpacing=0 cellPadding=0 width=730 border=0> ",

"  <TBODY> ",

"  <TR> ",

"    <TD id=infoIconAlign vAlign=top align=left width=60 rowSpan=2> ",

"    <IMG src=\"info.gif\"> ",

"    </TD> ",

"    <TD id=mainTitleAlign vAlign=center align=left width=*> ",

"      <H1 id=mainTitle>RHTML cannot display the webpage</H1></TD></TR> ",

"  <TR> ",

"    <TD class=errorCodeAndDivider id=errorCodeAlign align=right>&nbsp;  ",

"      <DIV class=divider></DIV></TD></TR> ",

"  <TR> ",

"      <UL> ",

"      </UL> ",

"    <TD>&nbsp; </TD> ",

"    <TD id=MostLikelyAlign vAlign=top align=left> ",

"      <H3 id=likelyCauses>Most likely causes:</H3> ",

"      <UL> ",

"        <LI id=causeNotConnected>You are not connected to the Internet.  ",

"        <LI id=causeSiteProblem>The website is encountering problems.  ",

"        <LI id=causeErrorInAddress>There might be a typing error in the address.  ",

"        <LI id=causeOtherError>  ",

"        </LI></UL></TD></TR> ",

"  <TR> ",

"    <TD id=infoBlockAlign vAlign=top align=right>&nbsp; </TD> ",

"    <TD id=moreInformationAlign vAlign=center align=left> ",

"      <H4> ",

"      <TABLE> ",

"        <TBODY> ",

"        <TR> ",

"          <TD vAlign=top><SPAN id=moreInfoContainer></SPAN><ID  ",

"            id=moreInformation>More information</ID> ",

"      </TD></TR></TBODY></TABLE></H4> ",

"      <DIV class=infoBlock id=infoBlockID> ",

"      <P><ID id=errorExpl1>This problem can be caused by a variety of issues,  ",

"      including:</ID>  ",

"      <UL> ",

"        <LI id=errorExpl2>Internet connectivity has been lost.  ",

"        <LI id=errorExpl3>The website is temporarily unavailable.  ",

"        <LI id=errorExpl4>The Domain Name Server (DNS) is not reachable.  ",

"        <LI id=errorExpl5>The Domain Name Server (DNS) does not have a listing  ",

"        for the website's domain.  ",

"      <P></P> ",

"      <P></P></DIV></TD></TR></TBODY></TABLE></BODY></HTML> ",

0

};


////////////////////////////////////////////////////////////////////////////////

/// TGHtmlBrowser constructor.


TGHtmlBrowser::TGHtmlBrowser(const char *filename, const TGWindow *p, UInt_t w, UInt_t h)

             : TGMainFrame(p, w, h)

{

   SetCleanup(kDeepCleanup);

   fNbFavorites = 1000;

   fMenuBar = new TGMenuBar(this, 35, 50, kHorizontalFrame);


   fMenuFile = new TGPopupMenu(gClient->GetDefaultRoot());

   fMenuFile->AddEntry(" &Open...\tCtrl+O", kM_FILE_OPEN, 0,

                       gClient->GetPicture("ed_open.png"));

   fMenuFile->AddEntry(" Save &As...\tCtrl+A", kM_FILE_SAVEAS, 0,

                       gClient->GetPicture("ed_save.png"));

   fMenuFile->AddEntry(" &Browse...\tCtrl+B", kM_FILE_BROWSE);

   fMenuFile->AddSeparator();

   fMenuFile->AddEntry(" E&xit\tCtrl+Q", kM_FILE_EXIT, 0,

                       gClient->GetPicture("bld_exit.png"));

   fMenuFile->Associate(this);


   fMenuFavorites = new TGPopupMenu(gClient->GetDefaultRoot());

   fMenuFavorites->AddEntry("&Add to Favorites", kM_FAVORITES_ADD, 0,

                            gClient->GetPicture("bld_plus.png"));

   fMenuFavorites->AddSeparator();

   fMenuFavorites->AddEntry("http://root.cern.ch", fNbFavorites++, 0,

                            gClient->GetPicture("htmlfile.gif"));

   fMenuFavorites->Associate(this);


   fMenuTools = new TGPopupMenu(gClient->GetDefaultRoot());

   fMenuTools->AddEntry("&Clear History", kM_TOOLS_CLEARHIST, 0,

                        gClient->GetPicture("ed_delete.png"));

   fMenuTools->Associate(this);


   fMenuHelp = new TGPopupMenu(gClient->GetDefaultRoot());

   fMenuHelp->AddEntry(" &About...", kM_HELP_ABOUT, 0, gClient->GetPicture("about.xpm"));

   fMenuHelp->Associate(this);


   fMenuBar->AddPopup("&File", fMenuFile, new TGLayoutHints(kLHintsTop | kLHintsLeft, 0, 4, 0, 0));

   fMenuBar->AddPopup("&Favorites", fMenuFavorites, new TGLayoutHints(kLHintsTop | kLHintsLeft, 0, 4, 0, 0));

   fMenuBar->AddPopup("&Tools", fMenuTools, new TGLayoutHints(kLHintsTop | kLHintsLeft, 0, 4, 0, 0));

   fMenuBar->AddPopup("&Help", fMenuHelp, new TGLayoutHints(kLHintsTop | kLHintsRight));


   AddFrame(fMenuBar, new TGLayoutHints(kLHintsTop | kLHintsExpandX));


   // vertical frame

   fVerticalFrame = new TGVerticalFrame(this,727,600,kVerticalFrame);


   fHorizontalFrame = new TGHorizontalFrame(fVerticalFrame,727,600);


   fBack = new TGPictureButton(fHorizontalFrame,gClient->GetPicture("GoBack.gif"));

   fBack->SetStyle(gClient->GetStyle());

   fBack->SetToolTipText("Go Back");

   fHorizontalFrame->AddFrame(fBack, new TGLayoutHints(kLHintsLeft | kLHintsTop | kLHintsCenterY,2,2,2,2));

   fBack->Connect("Clicked()", "TGHtmlBrowser", this, "Back()");


   fForward = new TGPictureButton(fHorizontalFrame,gClient->GetPicture("GoForward.gif"));

   fForward->SetStyle(gClient->GetStyle());

   fForward->SetToolTipText("Go Forward");

   fHorizontalFrame->AddFrame(fForward, new TGLayoutHints(kLHintsLeft | kLHintsTop | kLHintsCenterY,2,2,2,2));

   fForward->Connect("Clicked()", "TGHtmlBrowser", this, "Forward()");


   fReload = new TGPictureButton(fHorizontalFrame,gClient->GetPicture("ReloadPage.gif"));

   fReload->SetStyle(gClient->GetStyle());

   fReload->SetToolTipText("Reload Page");

   fHorizontalFrame->AddFrame(fReload, new TGLayoutHints(kLHintsLeft | kLHintsTop | kLHintsCenterY,2,2,2,2));

   fReload->Connect("Clicked()", "TGHtmlBrowser", this, "Reload()");


   fStop = new TGPictureButton(fHorizontalFrame,gClient->GetPicture("StopLoading.gif"));

   fStop->SetStyle(gClient->GetStyle());

   fStop->SetToolTipText("Stop Loading");

   fHorizontalFrame->AddFrame(fStop, new TGLayoutHints(kLHintsLeft | kLHintsTop | kLHintsCenterY,2,2,2,2));

   fStop->Connect("Clicked()", "TGHtmlBrowser", this, "Stop()");


   fHome = new TGPictureButton(fHorizontalFrame,gClient->GetPicture("GoHome.gif"));

   fHome->SetStyle(gClient->GetStyle());

   fHome->SetToolTipText("Go to ROOT HomePage\n  (http://root.cern.ch)");

   fHorizontalFrame->AddFrame(fHome, new TGLayoutHints(kLHintsLeft | kLHintsTop | kLHintsCenterY,2,2,2,2));

   fHome->Connect("Clicked()", "TGHtmlBrowser", this, "Selected(=\"http://root.cern.ch\")");


   // combo box

   fURLBuf   = new TGTextBuffer(256);

   fComboBox = new TGComboBox(fHorizontalFrame, "");

   fURL      = fComboBox->GetTextEntry();

   fURLBuf   = fURL->GetBuffer();

   fComboBox->Resize(200, fURL->GetDefaultHeight());

   fURL->Connect("ReturnPressed()", "TGHtmlBrowser", this, "URLChanged()");


   if (filename) {

      fComboBox->AddEntry(filename, 1);

      fURL->SetText(filename);

   }

   fComboBox->Select(0);

   fComboBox->Connect("Selected(char *)", "TGHtmlBrowser", this, "Selected(char *)");


   fHorizontalFrame->AddFrame(fComboBox, new TGLayoutHints(kLHintsLeft | kLHintsCenterY | kLHintsExpandX,2,2,2,2));


   fVerticalFrame->AddFrame(fHorizontalFrame, new TGLayoutHints(kLHintsLeft | kLHintsTop | kLHintsExpandX,2,2,2,2));


   // embedded canvas

   fHtml = new TGHtml(fVerticalFrame, 10, 10, -1);

   fVerticalFrame->AddFrame(fHtml, new TGLayoutHints(kLHintsLeft | kLHintsTop | kLHintsExpandX | kLHintsExpandY,2,2,2,2));


   AddFrame(fVerticalFrame, new TGLayoutHints(kLHintsLeft | kLHintsTop | kLHintsExpandX | kLHintsExpandY,2,2,2,2));


   // status bar

   fStatusBar = new TGStatusBar(this,100,20);

   Int_t partsusBar[] = {75,25};

   fStatusBar->SetParts(partsusBar,2);

   AddFrame(fStatusBar, new TGLayoutHints(kLHintsBottom | kLHintsExpandX));


   fHtml->Connect("MouseOver(const char *)", "TGHtmlBrowser", this, "MouseOver(const char *)");

   fHtml->Connect("MouseDown(const char *)", "TGHtmlBrowser", this, "MouseDown(const char *)");


   MapSubwindows();

   Resize(GetDefaultSize());

   MapWindow();

   Resize(w, h);


   if (filename)

      Selected(filename);

}


////////////////////////////////////////////////////////////////////////////////

/// Read (open) remote files.


Ssiz_t ReadSize(const char *url)

{

   char buf[4096];

   TUrl fUrl(url);


   // Give full URL so Apache's virtual hosts solution works.

   TString msg = "HEAD ";

   msg += fUrl.GetProtocol();

   msg += "://";

   msg += fUrl.GetHost();

   msg += ":";

   msg += fUrl.GetPort();

   msg += "/";

   msg += fUrl.GetFile();

   msg += " HTTP/1.0";

   msg += "\r\n";

   msg += "User-Agent: ROOT-TWebFile/1.1";

   msg += "\r\n\r\n";


   TSocket *s;

   TString uri(url);

   if (!uri.BeginsWith("http://") && !uri.BeginsWith("https://"))

      return 0;

   if (uri.BeginsWith("https://")) {

#ifdef R__SSL

      s = new TSSLSocket(fUrl.GetHost(), fUrl.GetPort());

#else

      ::Error("ReadSize", "library compiled without SSL, https not supported");

      return 0;

#endif

   }

   else {

      s = new TSocket(fUrl.GetHost(), fUrl.GetPort());

   }

   if (!s->IsValid()) {

      delete s;

      return 0;

   }

   if (s->SendRaw(msg.Data(), msg.Length()) == -1) {

      delete s;

      return 0;

   }

   if (s->RecvRaw(buf, 4096) == -1) {

      delete s;

      return 0;

   }

   TString reply(buf);

   Ssiz_t idx = reply.Index("Content-length:", 0, TString::kIgnoreCase);

   if (idx > 0) {

      idx += 15;

      TString slen = reply(idx, reply.Length() - idx);

      delete s;

      return (Ssiz_t)atol(slen.Data());

   }

   delete s;

   return 0;

}


////////////////////////////////////////////////////////////////////////////////

/// Read (open) remote files.


static char *ReadRemote(const char *url)

{

   static char *buf = 0;

   TUrl fUrl(url);


   Ssiz_t size = ReadSize(url);

   if (size <= 0) size = 1024*1024;


   TString msg = "GET ";

   msg += fUrl.GetProtocol();

   msg += "://";

   msg += fUrl.GetHost();

   msg += ":";

   msg += fUrl.GetPort();

   msg += "/";

   msg += fUrl.GetFile();

   msg += "\r\n";


   TSocket *s;

   TString uri(url);

   if (!uri.BeginsWith("http://") && !uri.BeginsWith("https://"))

      return 0;

   if (uri.BeginsWith("https://")) {

#ifdef R__SSL

      s = new TSSLSocket(fUrl.GetHost(), fUrl.GetPort());

#else

      ::Error("ReadRemote", "library compiled without SSL, https not supported");

     return 0;

#endif

   }

   else {

      s = new TSocket(fUrl.GetHost(), fUrl.GetPort());

   }

   if (!s->IsValid()) {

      delete s;

      return 0;

   }

   if (s->SendRaw(msg.Data(), msg.Length()) == -1) {

      delete s;

      return 0;

   }

   buf = (char *)calloc(size+1, sizeof(char));

   if (s->RecvRaw(buf, size) == -1) {

      free(buf);

      delete s;

      return 0;

   }

   delete s;

   return buf;

}


////////////////////////////////////////////////////////////////////////////////

/// Open (browse) selected URL.


void TGHtmlBrowser::Selected(const char *uri)

{

   char *buf = 0;

   FILE *f;


   if (CheckAnchors(uri))

      return;


   TString surl(gSystem->UnixPathName(uri));

   if (!surl.BeginsWith("http://") && !surl.BeginsWith("https://") &&

       !surl.BeginsWith("ftp://") && !surl.BeginsWith("file://")) {

      if (surl.BeginsWith("file:"))

         surl.ReplaceAll("file:", "file://");

      else

         surl.Prepend("file://");

   }

   if (surl.EndsWith(".root")) {

      // in case of root file, just open it and refresh browsers

      gVirtualX->SetCursor(fHtml->GetId(), gVirtualX->CreateCursor(kWatch));

      gROOT->ProcessLine(Form("TFile::Open(\"%s\");", surl.Data()));

      Clicked((char *)surl.Data());

      gROOT->RefreshBrowsers();

      gVirtualX->SetCursor(fHtml->GetId(), gVirtualX->CreateCursor(kPointer));

      return;

   }

   gVirtualX->SetCursor(fHtml->GetId(), gVirtualX->CreateCursor(kWatch));

   TUrl url(surl.Data());

   if (surl.EndsWith(".pdf", TString::kIgnoreCase)) {

      // special case: open pdf files with external viewer

      // works only on Windows for the time being...

      if (!gVirtualX->InheritsFrom("TGX11")) {

         TString cmd = TString::Format("explorer %s", surl.Data());

         gSystem->Exec(cmd.Data());

      }

      gVirtualX->SetCursor(fHtml->GetId(), gVirtualX->CreateCursor(kPointer));

      return;

   }

   if (surl.EndsWith(".gif") || surl.EndsWith(".jpg") || surl.EndsWith(".png")) {

      // special case: single picture

      fHtml->Clear();

      char imgHtml[1024];

      snprintf(imgHtml, 1000, "<IMG src=\"%s\"> ", surl.Data());

      fHtml->ParseText(imgHtml);

      fHtml->SetBaseUri(url.GetUrl());

      fURL->SetText(surl.Data());

      if (!fComboBox->FindEntry(surl.Data()))

         fComboBox->AddEntry(surl.Data(), fComboBox->GetNumberOfEntries()+1);

      fHtml->Layout();

      gVirtualX->SetCursor(fHtml->GetId(), gVirtualX->CreateCursor(kPointer));

      return;

   }

   if (!strcmp(url.GetProtocol(), "http") ||

       !strcmp(url.GetProtocol(), "https")) {

      // standard web page

      buf = ReadRemote(url.GetUrl());

      if (buf) {

         fHtml->Clear();

         fHtml->Layout();

         fHtml->SetBaseUri(url.GetUrl());

         fHtml->ParseText(buf);

         free(buf);

         fURL->SetText(surl.Data());

         if (!fComboBox->FindEntry(surl.Data()))

            fComboBox->AddEntry(surl.Data(), fComboBox->GetNumberOfEntries()+1);

      }

      else {

         fHtml->Clear();

         fHtml->Layout();

         fHtml->SetBaseUri("");

         for (int i=0; HtmlError[i]; i++) {

            fHtml->ParseText((char *)HtmlError[i]);

         }

      }

   }

   else {

      // local file

      f = fopen(url.GetFile(), "r");

      if (f) {

         TString fpath = url.GetUrl();

         fpath.ReplaceAll(gSystem->BaseName(fpath.Data()), "");

         fpath.ReplaceAll("file://", "");

         fHtml->Clear();

         fHtml->Layout();

         fHtml->SetBaseUri(fpath.Data());

         buf = (char *)calloc(4096, sizeof(char));

         if (buf) {

            while (fgets(buf, 4096, f)) {

               fHtml->ParseText(buf);

            }

            free(buf);

         }

         fclose(f);

         fURL->SetText(surl.Data());

         if (!fComboBox->FindEntry(surl.Data()))

            fComboBox->AddEntry(surl.Data(), fComboBox->GetNumberOfEntries()+1);

      }

      else {

         fHtml->Clear();

         fHtml->Layout();

         fHtml->SetBaseUri("");

         for (int i=0; HtmlError[i]; i++) {

            fHtml->ParseText((char *)HtmlError[i]);

         }

      }

   }

   // restore cursor

   gVirtualX->SetCursor(fHtml->GetId(), gVirtualX->CreateCursor(kPointer));

   fHtml->Layout();

   Ssiz_t idx = surl.Last('#');

   if (idx > 0) {

      idx +=1; // skip #

      TString anchor = surl(idx, surl.Length() - idx);

      fHtml->GotoAnchor(anchor.Data());

   }

   SetWindowName(Form("%s - RHTML",surl.Data()));

}


////////////////////////////////////////////////////////////////////////////////

/// URL combobox has changed.


void TGHtmlBrowser::URLChanged()

{

   const char *string = fURL->GetText();

   if (string) {

      Selected(gSystem->UnixPathName(string));

   }

}


////////////////////////////////////////////////////////////////////////////////

/// Handle "Back" navigation button.


void TGHtmlBrowser::Back()

{

   Int_t index = 0;

   const char *string = fURL->GetText();

   TGLBEntry * lbe1 = fComboBox->FindEntry(string);

   if (lbe1)

      index = lbe1->EntryId();

   if (index > 0) {

      fComboBox->Select(index - 1, kTRUE);

      TGTextLBEntry *entry = (TGTextLBEntry *)fComboBox->GetSelectedEntry();

      if (entry) {

         string = entry->GetTitle();

         if (string)

            Selected(string);

      }

   }

}


////////////////////////////////////////////////////////////////////////////////

/// Check if we just change position in the page (using anchor)

/// and return kTRUE if any anchor has been found and followed.


Bool_t TGHtmlBrowser::CheckAnchors(const char *uri)

{

   TString surl(gSystem->UnixPathName(uri));


   if (!fHtml->GetBaseUri())

      return kFALSE;

   TString actual = fHtml->GetBaseUri();

   Ssiz_t idx = surl.Last('#');

   Ssiz_t idy = actual.Last('#');

   TString short1(surl.Data());

   TString short2(actual.Data());

   if (idx > 0)

      short1 = surl(0, idx);

   if (idy > 0)

      short2 = actual(0, idy);


   if (short1 == short2) {

      if (idx > 0) {

         idx +=1; // skip #

         TString anchor = surl(idx, surl.Length() - idx);

         fHtml->GotoAnchor(anchor.Data());

      }

      else {

         fHtml->ScrollToPosition(TGLongPosition(0, 0));

      }

      fHtml->SetBaseUri(surl.Data());

      if (!fComboBox->FindEntry(surl.Data()))

         fComboBox->AddEntry(surl.Data(), fComboBox->GetNumberOfEntries()+1);

      fURL->SetText(surl.Data());

      fComboBox->Select(fComboBox->GetNumberOfEntries(), kFALSE);

      SetWindowName(Form("%s - RHTML",surl.Data()));

      return kTRUE;

   }

   return kFALSE;

}


////////////////////////////////////////////////////////////////////////////////

/// Handle "Forward" navigation button.


void TGHtmlBrowser::Forward()

{

   Int_t index = 0;

   const char *string = fURL->GetText();

   TGLBEntry * lbe1 = fComboBox->FindEntry(string);

   if (lbe1)

      index = lbe1->EntryId();

   if (index < fComboBox->GetNumberOfEntries()) {

      fComboBox->Select(index + 1, kTRUE);

      TGTextLBEntry *entry = (TGTextLBEntry *)fComboBox->GetSelectedEntry();

      if (entry) {

         string = entry->GetTitle();

         if (string)

            Selected(string);

      }

   }

}


////////////////////////////////////////////////////////////////////////////////

/// Handle "Reload" navigation button.


void TGHtmlBrowser::Reload()

{

   const char *string = fURL->GetText();

   if (string)

      Selected(string);

}


////////////////////////////////////////////////////////////////////////////////

/// Handle "Reload" navigation button.


void TGHtmlBrowser::Stop()

{

}


////////////////////////////////////////////////////////////////////////////////

/// Handle "MouseOver" TGHtml signal.


void TGHtmlBrowser::MouseOver(const char *url)

{

   fStatusBar->SetText(url, 0);

}


////////////////////////////////////////////////////////////////////////////////

/// Handle "MouseDown" TGHtml signal.


void TGHtmlBrowser::MouseDown(const char *url)

{

   Selected(url);

}


////////////////////////////////////////////////////////////////////////////////

/// Process Events.


Bool_t TGHtmlBrowser::ProcessMessage(Longptr_t msg, Longptr_t parm1, Longptr_t)

{

   switch (GET_MSG(msg)) {

   case kC_COMMAND:

      {

         switch (GET_SUBMSG(msg)) {


            case kCM_MENU:

            case kCM_BUTTON:


               switch(parm1) {


                  case kM_FILE_EXIT:

                     CloseWindow();

                     break;


                  case kM_FILE_OPEN:

                     {

                        static TString dir(".");

                        TGFileInfo fi;

                        fi.fFileTypes = gHtmlFTypes;

                        fi.SetIniDir(dir);

                        new TGFileDialog(fClient->GetRoot(), this,

                                         kFDOpen, &fi);

                        dir = fi.fIniDir;

                        if (fi.fFilename) {

                           Selected(Form("file://%s",

                              gSystem->UnixPathName(fi.fFilename)));

                        }

                     }

                     break;


                  case kM_FILE_SAVEAS:

                     {

                        static TString sdir(".");

                        TGFileInfo fi;

                        fi.fFileTypes = gHtmlFTypes;

                        fi.SetIniDir(sdir);

                        new TGFileDialog(fClient->GetRoot(), this,

                                         kFDSave, &fi);

                        sdir = fi.fIniDir;

                        if (fi.fFilename) {

                           TGText txt(fHtml->GetText());

                           txt.Save(gSystem->UnixPathName(fi.fFilename));

                        }

                     }

                     break;


                  case kM_FAVORITES_ADD:

                     fMenuFavorites->AddEntry(Form("%s",

                           fURL->GetText()), fNbFavorites++, 0,

                           gClient->GetPicture("htmlfile.gif"));

                     break;


                  case kM_TOOLS_CLEARHIST:

                     fComboBox->RemoveEntries(1,fComboBox->GetNumberOfEntries());

                     break;


                  case kM_FILE_BROWSE:

                     new TBrowser();

                     break;


                  case kM_HELP_ABOUT:

                     {

#ifdef R__UNIX

                        TString rootx = TROOT::GetBinDir() + "/root -a &";

                        gSystem->Exec(rootx);

#else

#ifdef WIN32

                        new TWin32SplashThread(kTRUE);

#else

                        char str[32];

                        snprintf(str, 32, "About ROOT %s...", gROOT->GetVersion());

                        TRootHelpDialog *hd = new TRootHelpDialog(this, str,

                                                                  600, 400);

                        hd->SetText(gHelpAbout);

                        hd->Popup();

#endif

#endif

                     }

                     break;


                  default:

                     {

                        if (parm1 < 1000) break;

                        TGMenuEntry *entry = fMenuFavorites->GetEntry(parm1);

                        if (!entry) break;

                        const char *shortcut = entry->GetName();

                        if (shortcut)

                           Selected(shortcut);

                     }

                     break;

               }

               break;

         }

         break;

      }

   }

   return kTRUE;

}


kWatch
@ kWatch
Definition GuiTypes.h:375

kPointer
@ kPointer
Definition GuiTypes.h:375

kVerticalFrame
@ kVerticalFrame
Definition GuiTypes.h:381

kHorizontalFrame
@ kHorizontalFrame
Definition GuiTypes.h:382

gHelpAbout
R__EXTERN const char gHelpAbout[]
Definition HelpText.h:17

f
#define f(i)
Definition RSha256.hxx:104

h
#define h(i)
Definition RSha256.hxx:106

size
size_t size(const MatrixT &matrix)
retrieve the size of a square matrix

Longptr_t
long Longptr_t
Definition RtypesCore.h:82

Ssiz_t
int Ssiz_t
Definition RtypesCore.h:67

kFALSE
constexpr Bool_t kFALSE
Definition RtypesCore.h:101

kTRUE
constexpr Bool_t kTRUE
Definition RtypesCore.h:100

ClassImp
#define ClassImp(name)
Definition Rtypes.h:377

TBrowser.h

TError.h

Error
void Error(const char *location, const char *msgfmt,...)
Use this function in case an error occurred.
Definition TError.cxx:185

TFile.h

TGButton.h

gClient
#define gClient
Definition TGClient.h:157

TGComboBox.h

TGFileDialog.h

kFDOpen
@ kFDOpen
Definition TGFileDialog.h:21

kFDSave
@ kFDSave
Definition TGFileDialog.h:22

kDeepCleanup
@ kDeepCleanup
Definition TGFrame.h:42

HtmlError
const char * HtmlError[]
Definition TGHtmlBrowser.cxx:67

EMyMessageTypes
EMyMessageTypes
Definition TGHtmlBrowser.cxx:51

kM_HELP_ABOUT
@ kM_HELP_ABOUT
Definition TGHtmlBrowser.cxx:58

kM_FILE_EXIT
@ kM_FILE_EXIT
Definition TGHtmlBrowser.cxx:55

kM_FAVORITES_ADD
@ kM_FAVORITES_ADD
Definition TGHtmlBrowser.cxx:56

kM_FILE_OPEN
@ kM_FILE_OPEN
Definition TGHtmlBrowser.cxx:52

kM_TOOLS_CLEARHIST
@ kM_TOOLS_CLEARHIST
Definition TGHtmlBrowser.cxx:57

kM_FILE_SAVEAS
@ kM_FILE_SAVEAS
Definition TGHtmlBrowser.cxx:53

kM_FILE_BROWSE
@ kM_FILE_BROWSE
Definition TGHtmlBrowser.cxx:54

ReadSize
Ssiz_t ReadSize(const char *url)
Read (open) remote files.
Definition TGHtmlBrowser.cxx:245

gHtmlFTypes
static const char * gHtmlFTypes[]
Definition TGHtmlBrowser.cxx:61

ReadRemote
static char * ReadRemote(const char *url)
Read (open) remote files.
Definition TGHtmlBrowser.cxx:306

TGHtmlBrowser.h

TGHtml.h

kLHintsRight
@ kLHintsRight
Definition TGLayout.h:26

kLHintsExpandY
@ kLHintsExpandY
Definition TGLayout.h:31

kLHintsLeft
@ kLHintsLeft
Definition TGLayout.h:24

kLHintsCenterY
@ kLHintsCenterY
Definition TGLayout.h:28

kLHintsBottom
@ kLHintsBottom
Definition TGLayout.h:29

kLHintsTop
@ kLHintsTop
Definition TGLayout.h:27

kLHintsExpandX
@ kLHintsExpandX
Definition TGLayout.h:30

TGMenu.h

TGStatusBar.h

TGTextBuffer.h

kM_HELP_ABOUT
@ kM_HELP_ABOUT
Definition TGTextEditor.cxx:195

kM_FILE_EXIT
@ kM_FILE_EXIT
Definition TGTextEditor.cxx:192

kM_FILE_OPEN
@ kM_FILE_OPEN
Definition TGTextEditor.cxx:191

kM_FILE_SAVEAS
@ kM_FILE_SAVEAS
Definition TGTextEditor.cxx:191

TGTextEntry.h

TGText.h

w
winID w
Definition TGWin32VirtualGLProxy.cxx:39

p
winID h TVirtualViewer3D TVirtualGLPainter p
Definition TGWin32VirtualGLProxy.cxx:51

filename
Option_t Option_t TPoint TPoint const char GetTextMagnitude GetFillStyle GetLineColor GetLineWidth GetMarkerStyle GetTextAlign GetTextColor GetTextSize void char Point_t Rectangle_t WindowAttributes_t Float_t Float_t Float_t Int_t Int_t UInt_t UInt_t Rectangle_t Int_t Int_t Window_t TString Int_t GCValues_t GetPrimarySelectionOwner GetDisplay GetScreen GetColormap GetNativeEvent const char const char dpyName wid window const char font_name cursor keysym reg const char only_if_exist regb h Point_t winding char text const char depth char const char Int_t count const char ColorStruct_t color const char filename
Definition TGWin32VirtualXProxy.cxx:232

index
Option_t Option_t TPoint TPoint const char GetTextMagnitude GetFillStyle GetLineColor GetLineWidth GetMarkerStyle GetTextAlign GetTextColor GetTextSize void char Point_t Rectangle_t WindowAttributes_t index
Definition TGWin32VirtualXProxy.cxx:168

TROOT.h

gROOT
#define gROOT
Definition TROOT.h:407

TSSLSocket.h

TSocket.h

TString.h

Form
char * Form(const char *fmt,...)
Formats a string in a circular formatting buffer.
Definition TString.cxx:2467

TSystem.h

gSystem
R__EXTERN TSystem * gSystem
Definition TSystem.h:560

TUrl.h

TVirtualX.h

gVirtualX
#define gVirtualX
Definition TVirtualX.h:338

TWin32SplashThread.h

GET_MSG
Int_t GET_MSG(Long_t val)
Definition WidgetMessageTypes.h:110

kCM_MENU
@ kCM_MENU
Definition WidgetMessageTypes.h:32

kC_COMMAND
@ kC_COMMAND
Definition WidgetMessageTypes.h:31

kCM_BUTTON
@ kCM_BUTTON
Definition WidgetMessageTypes.h:34

GET_SUBMSG
Int_t GET_SUBMSG(Long_t val)
Definition WidgetMessageTypes.h:111

free
#define free
Definition civetweb.c:1539

calloc
#define calloc
Definition civetweb.c:1537

snprintf
#define snprintf
Definition civetweb.c:1540

TBrowser
Using a TBrowser one can browse all ROOT objects.
Definition TBrowser.h:37

TGButton::SetToolTipText
virtual void SetToolTipText(const char *text, Long_t delayms=400)
Set tool tip text associated with this button.
Definition TGButton.cxx:445

TGButton::SetStyle
virtual void SetStyle(UInt_t newstyle)
Set the button style (modern or classic).
Definition TGButton.cxx:271

TGClient::GetRoot
const TGWindow * GetRoot() const
Returns current root (i.e.
Definition TGClient.cxx:224

TGComboBox
A combobox (also known as a drop down listbox) allows the selection of one item out of a list of item...
Definition TGComboBox.h:47

TGComboBox::GetSelectedEntry
virtual TGLBEntry * GetSelectedEntry() const
Definition TGComboBox.h:115

TGComboBox::GetTextEntry
virtual TGTextEntry * GetTextEntry() const
Definition TGComboBox.h:111

TGComboBox::AddEntry
virtual void AddEntry(TGString *s, Int_t id)
Definition TGComboBox.h:86

TGComboBox::RemoveEntries
virtual void RemoveEntries(Int_t from_ID, Int_t to_ID)
Definition TGComboBox.h:105

TGComboBox::Select
virtual void Select(Int_t id, Bool_t emit=kTRUE)
Make the selected item visible in the combo box window and emit signals according to the second param...
Definition TGComboBox.cxx:456

TGComboBox::FindEntry
virtual TGLBEntry * FindEntry(const char *s) const
Find entry by name.
Definition TGComboBox.cxx:427

TGComboBox::GetNumberOfEntries
virtual Int_t GetNumberOfEntries() const
Definition TGComboBox.h:107

TGCompositeFrame::GetDefaultSize
TGDimension GetDefaultSize() const override
std::cout << fWidth << "x" << fHeight << std::endl;
Definition TGFrame.h:316

TGCompositeFrame::AddFrame
virtual void AddFrame(TGFrame *f, TGLayoutHints *l=nullptr)
Add frame to the composite frame using the specified layout hints.
Definition TGFrame.cxx:1117

TGCompositeFrame::MapSubwindows
void MapSubwindows() override
Map all sub windows that are part of the composite frame.
Definition TGFrame.cxx:1164

TGCompositeFrame::SetCleanup
void SetCleanup(Int_t mode=kLocalCleanup) override
Turn on automatic cleanup of child frames in dtor.
Definition TGFrame.cxx:1072

TGFileDialog
This class creates a file selection dialog.
Definition TGFileDialog.h:65

TGFileInfo
Definition TGFileDialog.h:39

TGFileInfo::fFilename
char * fFilename
selected file name
Definition TGFileDialog.h:46

TGFileInfo::fFileTypes
const char ** fFileTypes
file types used to filter selectable files
Definition TGFileDialog.h:48

TGFileInfo::fIniDir
char * fIniDir
on input: initial directory, on output: new directory
Definition TGFileDialog.h:47

TGFileInfo::SetIniDir
void SetIniDir(const char *inidir)
Set directory name.
Definition TGFileDialog.cxx:116

TGFrame::Resize
void Resize(UInt_t w=0, UInt_t h=0) override
Resize the frame.
Definition TGFrame.cxx:605

TGFrame::GetDefaultHeight
virtual UInt_t GetDefaultHeight() const
Definition TGFrame.h:191

TGFrame::MapWindow
void MapWindow() override
map window
Definition TGFrame.h:204

TGHorizontalFrame
A composite frame that layout their children in horizontal way.
Definition TGFrame.h:385

TGHtmlBrowser
A very simple HTML browser.
Definition TGHtmlBrowser.h:34

TGHtmlBrowser::Reload
void Reload()
Handle "Reload" navigation button.
Definition TGHtmlBrowser.cxx:573

TGHtmlBrowser::fHtml
TGHtml * fHtml
Definition TGHtmlBrowser.h:54

TGHtmlBrowser::CheckAnchors
Bool_t CheckAnchors(const char *)
Check if we just change position in the page (using anchor) and return kTRUE if any anchor has been f...
Definition TGHtmlBrowser.cxx:513

TGHtmlBrowser::fURLBuf
TGTextBuffer * fURLBuf
Definition TGHtmlBrowser.h:52

TGHtmlBrowser::MouseOver
void MouseOver(const char *)
Handle "MouseOver" TGHtml signal.
Definition TGHtmlBrowser.cxx:590

TGHtmlBrowser::Back
void Back()
Handle "Back" navigation button.
Definition TGHtmlBrowser.cxx:491

TGHtmlBrowser::fVerticalFrame
TGVerticalFrame * fVerticalFrame
Definition TGHtmlBrowser.h:44

TGHtmlBrowser::TGHtmlBrowser
TGHtmlBrowser(const char *filename=nullptr, const TGWindow *p=nullptr, UInt_t w=900, UInt_t h=600)
TGHtmlBrowser constructor.
Definition TGHtmlBrowser.cxx:122

TGHtmlBrowser::fMenuHelp
TGPopupMenu * fMenuHelp
Definition TGHtmlBrowser.h:42

TGHtmlBrowser::fNbFavorites
Int_t fNbFavorites
Definition TGHtmlBrowser.h:55

TGHtmlBrowser::fStop
TGPictureButton * fStop
Definition TGHtmlBrowser.h:49

TGHtmlBrowser::fMenuBar
TGMenuBar * fMenuBar
Definition TGHtmlBrowser.h:38

TGHtmlBrowser::Selected
void Selected(const char *txt)
Open (browse) selected URL.
Definition TGHtmlBrowser.cxx:360

TGHtmlBrowser::MouseDown
void MouseDown(const char *)
Handle "MouseDown" TGHtml signal.
Definition TGHtmlBrowser.cxx:598

TGHtmlBrowser::fHome
TGPictureButton * fHome
Definition TGHtmlBrowser.h:50

TGHtmlBrowser::fHorizontalFrame
TGHorizontalFrame * fHorizontalFrame
Definition TGHtmlBrowser.h:45

TGHtmlBrowser::Clicked
void Clicked(char *uri)
Definition TGHtmlBrowser.h:72

TGHtmlBrowser::ProcessMessage
Bool_t ProcessMessage(Longptr_t msg, Longptr_t parm1, Longptr_t) override
Process Events.
Definition TGHtmlBrowser.cxx:606

TGHtmlBrowser::fMenuFile
TGPopupMenu * fMenuFile
Definition TGHtmlBrowser.h:39

TGHtmlBrowser::fBack
TGPictureButton * fBack
Definition TGHtmlBrowser.h:46

TGHtmlBrowser::fStatusBar
TGStatusBar * fStatusBar
Definition TGHtmlBrowser.h:43

TGHtmlBrowser::fMenuFavorites
TGPopupMenu * fMenuFavorites
Definition TGHtmlBrowser.h:40

TGHtmlBrowser::fForward
TGPictureButton * fForward
Definition TGHtmlBrowser.h:47

TGHtmlBrowser::Forward
void Forward()
Handle "Forward" navigation button.
Definition TGHtmlBrowser.cxx:552

TGHtmlBrowser::Stop
void Stop()
Handle "Reload" navigation button.
Definition TGHtmlBrowser.cxx:583

TGHtmlBrowser::fReload
TGPictureButton * fReload
Definition TGHtmlBrowser.h:48

TGHtmlBrowser::fURL
TGTextEntry * fURL
Definition TGHtmlBrowser.h:53

TGHtmlBrowser::URLChanged
void URLChanged()
URL combobox has changed.
Definition TGHtmlBrowser.cxx:480

TGHtmlBrowser::fComboBox
TGComboBox * fComboBox
Definition TGHtmlBrowser.h:51

TGHtmlBrowser::fMenuTools
TGPopupMenu * fMenuTools
Definition TGHtmlBrowser.h:41

TGHtml
The ROOT HTML widget.
Definition TGHtml.h:873

TGHtml::GotoAnchor
int GotoAnchor(const char *name)
Go to anchor position.
Definition TGHtml.cxx:461

TGHtml::ParseText
int ParseText(char *text, const char *index=nullptr)
Appends (or insert at the specified position) the given HTML text to the end of any HTML text that ma...
Definition TGHtml.cxx:325

TGHtml::SetBaseUri
void SetBaseUri(const char *uri)
Sets base URI.
Definition TGHtml.cxx:451

TGHtml::GetBaseUri
const char * GetBaseUri() const
Definition TGHtml.h:907

TGHtml::Clear
void Clear(Option_t *="") override
Erase all HTML from this widget and clear the screen.
Definition TGHtml.cxx:310

TGHtml::GetText
const char * GetText() const
Definition TGHtml.h:962

TGLBEntry
Basic listbox entries.
Definition TGListBox.h:24

TGLBEntry::EntryId
Int_t EntryId() const
Definition TGListBox.h:40

TGLayoutHints
This class describes layout hints used by the layout classes.
Definition TGLayout.h:50

TGLongPosition
Definition TGDimension.h:54

TGMainFrame
Defines top level windows that interact with the system Window Manager.
Definition TGFrame.h:397

TGMainFrame::CloseWindow
virtual void CloseWindow()
Close and delete main frame.
Definition TGFrame.cxx:1770

TGMainFrame::SetWindowName
void SetWindowName(const char *name=nullptr) override
Set window name. This is typically done via the window manager.
Definition TGFrame.cxx:1788

TGMenuBar
The TGMenu.h header contains all different menu classes.
Definition TGMenu.h:282

TGMenuBar::AddPopup
virtual void AddPopup(TGHotString *s, TGPopupMenu *menu, TGLayoutHints *l, TGPopupMenu *before=nullptr)
Add popup menu to menu bar.
Definition TGMenu.cxx:418

TGMenuEntry
This class contains all information about a menu entry.
Definition TGMenu.h:57

TGMenuEntry::GetName
const char * GetName() const override
Returns name of object.
Definition TGMenu.h:84

TGObject::fClient
TGClient * fClient
Connection to display server.
Definition TGObject.h:25

TGObject::GetId
Handle_t GetId() const
Definition TGObject.h:41

TGPictureButton
Yield an action as soon as it is clicked.
Definition TGButton.h:228

TGPopupMenu
This class creates a popup menu object.
Definition TGMenu.h:110

TGPopupMenu::GetEntry
virtual TGMenuEntry * GetEntry(Int_t id)
Find entry with specified id.
Definition TGMenu.cxx:1897

TGPopupMenu::Associate
virtual void Associate(const TGWindow *w)
Definition TGMenu.h:206

TGPopupMenu::AddSeparator
virtual void AddSeparator(TGMenuEntry *before=nullptr)
Add a menu separator to the menu.
Definition TGMenu.cxx:1060

TGPopupMenu::AddEntry
virtual void AddEntry(TGHotString *s, Int_t id, void *ud=nullptr, const TGPicture *p=nullptr, TGMenuEntry *before=nullptr)
Add a menu entry.
Definition TGMenu.cxx:990

TGStatusBar
Provides a StatusBar widget.
Definition TGStatusBar.h:21

TGStatusBar::SetText
virtual void SetText(TGString *text, Int_t partidx=0)
Set text in partition partidx in status bar.
Definition TGStatusBar.cxx:145

TGStatusBar::SetParts
virtual void SetParts(Int_t npart)
Divide the status bar in npart equal sized parts.
Definition TGStatusBar.cxx:293

TGTextBuffer
A text buffer is used in several widgets, like TGTextEntry, TGFileDialog, etc.
Definition TGTextBuffer.h:17

TGTextEntry::GetBuffer
TGTextBuffer * GetBuffer() const
Definition TGTextEntry.h:112

TGTextEntry::GetText
const char * GetText() const
Definition TGTextEntry.h:119

TGTextEntry::SetText
virtual void SetText(const char *text, Bool_t emit=kTRUE)
Sets text entry to text, clears the selection and moves the cursor to the end of the line.
Definition TGTextEntry.cxx:611

TGTextLBEntry
Text string listbox entries.
Definition TGListBox.h:48

TGTextLBEntry::GetTitle
const char * GetTitle() const override
Returns title of object.
Definition TGListBox.h:81

TGText
A TGText is a multi line text buffer.
Definition TGText.h:57

TGText::Save
Bool_t Save(const char *fn)
Save text buffer to file fn.
Definition TGText.cxx:610

TGVerticalFrame
A composite frame that layout their children in vertical way.
Definition TGFrame.h:374

TGView::Layout
void Layout() override
layout view
Definition TGView.cxx:346

TGView::ScrollToPosition
virtual void ScrollToPosition(TGLongPosition newPos)
Scroll the canvas to pos.
Definition TGView.cxx:453

TGWindow
ROOT GUI Window base class.
Definition TGWindow.h:23

TQObject::Connect
Bool_t Connect(const char *signal, const char *receiver_class, void *receiver, const char *slot)
Non-static method is used to connect from the signal of this object to the receiver slot.
Definition TQObject.cxx:869

TROOT::GetBinDir
static const TString & GetBinDir()
Get the binary directory in the installation. Static utility function.
Definition TROOT.cxx:2968

TRootHelpDialog
A TRootHelpDialog is used to display help text (or any text in a dialog window).
Definition TRootHelpDialog.h:22

TRootHelpDialog::SetText
void SetText(const char *helpText)
Set help text from helpText buffer in TGTextView.
Definition TRootHelpDialog.cxx:77

TRootHelpDialog::Popup
void Popup()
Show help dialog.
Definition TRootHelpDialog.cxx:69

TSSLSocket
Definition TSSLSocket.h:28

TSocket
Definition TSocket.h:41

TSocket::RecvRaw
virtual Int_t RecvRaw(void *buffer, Int_t length, ESendRecvOptions opt=kDefault)
Receive a raw buffer of specified length bytes.
Definition TSocket.cxx:898

TSocket::SendRaw
virtual Int_t SendRaw(const void *buffer, Int_t length, ESendRecvOptions opt=kDefault)
Send a raw buffer of specified length.
Definition TSocket.cxx:620

TSocket::IsValid
virtual Bool_t IsValid() const
Definition TSocket.h:132

TString
Basic string class.
Definition TString.h:139

TString::Length
Ssiz_t Length() const
Definition TString.h:421

TString::EndsWith
Bool_t EndsWith(const char *pat, ECaseCompare cmp=kExact) const
Return true if string ends with the specified string.
Definition TString.cxx:2222

TString::Data
const char * Data() const
Definition TString.h:380

TString::ReplaceAll
TString & ReplaceAll(const TString &s1, const TString &s2)
Definition TString.h:704

TString::kIgnoreCase
@ kIgnoreCase
Definition TString.h:279

TString::Last
Ssiz_t Last(char c) const
Find last occurrence of a character c.
Definition TString.cxx:924

TString::BeginsWith
Bool_t BeginsWith(const char *s, ECaseCompare cmp=kExact) const
Definition TString.h:627

TString::Prepend
TString & Prepend(const char *cs)
Definition TString.h:673

TString::Format
static TString Format(const char *fmt,...)
Static method which formats a string using a printf style format descriptor and return a TString.
Definition TString.cxx:2356

TString::Index
Ssiz_t Index(const char *pat, Ssiz_t i=0, ECaseCompare cmp=kExact) const
Definition TString.h:651

TSystem::Exec
virtual Int_t Exec(const char *shellcmd)
Execute a command.
Definition TSystem.cxx:640

TSystem::UnixPathName
virtual const char * UnixPathName(const char *unixpathname)
Convert from a local pathname to a Unix pathname.
Definition TSystem.cxx:1050

TSystem::BaseName
virtual const char * BaseName(const char *pathname)
Base name of a file name. Base name of /user/root is root.
Definition TSystem.cxx:921

TUrl
This class represents a WWW compatible URL.
Definition TUrl.h:33

TUrl::GetUrl
const char * GetUrl(Bool_t withDeflt=kFALSE) const
Return full URL.
Definition TUrl.cxx:390

TUrl::GetFile
const char * GetFile() const
Definition TUrl.h:69

TUrl::GetHost
const char * GetHost() const
Definition TUrl.h:67

TUrl::GetProtocol
const char * GetProtocol() const
Definition TUrl.h:64

TUrl::GetPort
Int_t GetPort() const
Definition TUrl.h:78

TWin32SplashThread
Definition TWin32SplashThread.h:18

bool

int

unsigned int